eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.IGS_AS_ITEM_ASSESSOR_PKG SQL Statements

The following lines contain the word 'select', 'insert', 'update' or 'delete':

Line: 22


    x_last_update_date IN DATE DEFAULT NULL,
    x_last_updated_by IN NUMBER DEFAULT NULL,
    x_last_update_login IN NUMBER DEFAULT NULL
  ) AS
    CURSOR cur_old_ref_values IS
      SELECT   *
      FROM     IGS_AS_ITEM_ASSESSOR
      WHERE    rowid = x_rowid;

Line: 36


    IF (cur_old_ref_values%NOTFOUND) AND (p_action  NOT IN ('INSERT','VALIDATE_INSERT')) THEN
      Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');

Line: 56


    IF (p_action = 'UPDATE') THEN
      new_references.creation_date := old_references.creation_date;

Line: 63


    new_references.last_update_date := x_last_update_date;

Line: 64


    new_references.last_updated_by := x_last_updated_by;

Line: 65


    new_references.last_update_login := x_last_update_login;

Line: 72


  PROCEDURE BeforeRowInsertUpdate1(
    p_inserting IN BOOLEAN DEFAULT FALSE,
    p_updating IN BOOLEAN DEFAULT FALSE,
    p_deleting IN BOOLEAN DEFAULT FALSE
    ) AS
	v_message_name		VARCHAR2(30);

Line: 79


	-- Validate that inserts/updates are allowed
	IF  p_inserting OR p_updating THEN
	    -- 
	    -- Validate IGS_PE_PERSON exists
	    IF	IGS_CO_VAL_OC.genp_val_prsn_id(new_references.person_id,
					      v_message_name) = FALSE THEN
		FND_MESSAGE.SET_NAME('IGS',v_message_name);

Line: 125


  END BeforeRowInsertUpdate1;

Line: 131


  PROCEDURE AfterRowInsertUpdate2(
    p_inserting IN BOOLEAN DEFAULT FALSE,
    p_updating IN BOOLEAN DEFAULT FALSE,
    p_deleting IN BOOLEAN DEFAULT FALSE
    ) AS
     v_message_name	VARCHAR2(30);

Line: 138


	IF  p_inserting OR p_updating THEN
         	IF  new_references.primary_assessor_ind = 'Y' THEN
  		    IF  IGS_AS_VAL_AIA.assp_val_aia_primary (
  					new_references.ass_id,
  					new_references.person_id,
  					new_references.sequence_number,
  					v_message_name) = FALSE THEN
  			FND_MESSAGE.SET_NAME('IGS',v_message_name);

Line: 166


  END AfterRowInsertUpdate2;

Line: 179


	    Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');

Line: 188


	 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');

Line: 199


 	    Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');

Line: 209


  	    Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');

Line: 219


	    Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');

Line: 229


	    Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');

Line: 241


      SELECT   rowid
      FROM     IGS_AS_ITEM_ASSESSOR
      WHERE    ass_id = x_ass_id
      AND      person_id = x_person_id
      AND      sequence_number = x_sequence_number
      FOR UPDATE NOWAIT;

Line: 264


      SELECT   rowid
      FROM     IGS_AS_ITEM_ASSESSOR
      WHERE    ass_id = x_ass_id ;

Line: 285


      SELECT   rowid
      FROM     IGS_AS_ITEM_ASSESSOR
      WHERE    ass_assessor_type = x_ass_assessor_type ;

Line: 306


      SELECT   rowid
      FROM     IGS_AS_ITEM_ASSESSOR
      WHERE    location_cd = x_location_cd ;

Line: 327


      SELECT   rowid
      FROM     IGS_AS_ITEM_ASSESSOR
      WHERE    person_id = x_person_id ;

Line: 349


      SELECT   rowid
      FROM     IGS_AS_ITEM_ASSESSOR
      WHERE    unit_mode = x_unit_mode ;

Line: 381


    x_last_update_date IN DATE DEFAULT NULL,
    x_last_updated_by IN NUMBER DEFAULT NULL,
    x_last_update_login IN NUMBER DEFAULT NULL
  ) AS
  BEGIN
    Set_Column_Values (
      p_action,
      x_rowid,
      x_person_id,
      x_sequence_number,
      x_ass_assessor_type,
      x_primary_assessor_ind,
      x_item_limit,
      x_location_cd,
      x_unit_mode,
      x_unit_class,
      x_comments,
      x_ass_id,
      x_creation_date,
      x_created_by,
      x_last_update_date,
      x_last_updated_by,
      x_last_update_login
    );

Line: 405


    IF (p_action = 'INSERT') THEN
      -- Call all the procedures related to Before Insert.
      BeforeRowInsertUpdate1 ( p_inserting => TRUE ) ;

Line: 418


    ELSIF (p_action = 'UPDATE') THEN
      -- Call all the procedures related to Before Update.
      BeforeRowInsertUpdate1 ( p_updating => TRUE );

Line: 424


	ELSIF (p_action = 'VALIDATE_INSERT') THEN
	     IF  Get_PK_For_Validation ( new_references.ass_id ,
    new_references.person_id ,
    new_references.sequence_number  ) THEN
        Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');

Line: 432


	ELSIF (p_action = 'VALIDATE_UPDATE') THEN

	 Check_Constraints;

Line: 443


    IF (p_action = 'INSERT') THEN
      -- Call all the procedures related to After Insert.
      AfterRowInsertUpdate2 ( p_inserting => TRUE );

Line: 446


    ELSIF (p_action = 'UPDATE') THEN
      -- Call all the procedures related to After Update.
      AfterRowInsertUpdate2 ( p_updating => TRUE );

Line: 452


procedure INSERT_ROW (
  X_ROWID in out NOCOPY VARCHAR2,
  X_ASS_ID in NUMBER,
  X_PERSON_ID in NUMBER,
  X_SEQUENCE_NUMBER in NUMBER,
  X_ASS_ASSESSOR_TYPE in VARCHAR2,
  X_PRIMARY_ASSESSOR_IND in VARCHAR2,
  X_ITEM_LIMIT in NUMBER,
  X_LOCATION_CD in VARCHAR2,
  X_UNIT_MODE in VARCHAR2,
  X_UNIT_CLASS in VARCHAR2,
  X_COMMENTS in VARCHAR2,
  X_MODE in VARCHAR2 default 'R'
  ) AS
    cursor C is select ROWID from IGS_AS_ITEM_ASSESSOR
      where ASS_ID = X_ASS_ID
      and PERSON_ID = X_PERSON_ID
      and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER;

Line: 470


    X_LAST_UPDATE_DATE DATE;

Line: 471


    X_LAST_UPDATED_BY NUMBER;

Line: 472


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 475


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 477


    X_LAST_UPDATED_BY := 1;

Line: 478


    X_LAST_UPDATE_LOGIN := 0;

Line: 480


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 481


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 484


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 485


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 494


 p_action=>'INSERT',
 x_rowid=>X_ROWID,
 x_ass_assessor_type=>X_ASS_ASSESSOR_TYPE,
 x_ass_id=>X_ASS_ID,
 x_comments=>X_COMMENTS,
 x_item_limit=>X_ITEM_LIMIT,
 x_location_cd=>X_LOCATION_CD,
 x_person_id=>X_PERSON_ID,
 x_primary_assessor_ind=> NVL(X_PRIMARY_ASSESSOR_IND,'Y'),
 x_sequence_number=>X_SEQUENCE_NUMBER,
 x_unit_class=>X_UNIT_CLASS,
 x_unit_mode=>X_UNIT_MODE,
 x_creation_date=>X_LAST_UPDATE_DATE,
 x_created_by=>X_LAST_UPDATED_BY,
 x_last_update_date=>X_LAST_UPDATE_DATE,
 x_last_updated_by=>X_LAST_UPDATED_BY,
 x_last_update_login=>X_LAST_UPDATE_LOGIN
 );

Line: 512


  insert into IGS_AS_ITEM_ASSESSOR (
    ASS_ID,
    PERSON_ID,
    SEQUENCE_NUMBER,
    ASS_ASSESSOR_TYPE,
    PRIMARY_ASSESSOR_IND,
    ITEM_LIMIT,
    LOCATION_CD,
    UNIT_MODE,
    UNIT_CLASS,
    COMMENTS,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN
  ) values (
    NEW_REFERENCES.ASS_ID,
    NEW_REFERENCES.PERSON_ID,
    NEW_REFERENCES.SEQUENCE_NUMBER,
    NEW_REFERENCES.ASS_ASSESSOR_TYPE,
    NEW_REFERENCES.PRIMARY_ASSESSOR_IND,
    NEW_REFERENCES.ITEM_LIMIT,
    NEW_REFERENCES.LOCATION_CD,
    NEW_REFERENCES.UNIT_MODE,
    NEW_REFERENCES.UNIT_CLASS,
    NEW_REFERENCES.COMMENTS,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN
  );

Line: 553


  p_action => 'INSERT',
  x_rowid => X_ROWID
  );

Line: 556


end INSERT_ROW;

Line: 570


  cursor c1 is select
      ASS_ASSESSOR_TYPE,
      PRIMARY_ASSESSOR_IND,
      ITEM_LIMIT,
      LOCATION_CD,
      UNIT_MODE,
      UNIT_CLASS,
      COMMENTS
    from IGS_AS_ITEM_ASSESSOR
    where ROWID = X_ROWID  for update  nowait;

Line: 585


    fnd_message.set_name('FND', 'FORM_RECORD_DELETED');

Line: 618


procedure UPDATE_ROW (
  X_ROWID in  VARCHAR2,
  X_ASS_ID in NUMBER,
  X_PERSON_ID in NUMBER,
  X_SEQUENCE_NUMBER in NUMBER,
  X_ASS_ASSESSOR_TYPE in VARCHAR2,
  X_PRIMARY_ASSESSOR_IND in VARCHAR2,
  X_ITEM_LIMIT in NUMBER,
  X_LOCATION_CD in VARCHAR2,
  X_UNIT_MODE in VARCHAR2,
  X_UNIT_CLASS in VARCHAR2,
  X_COMMENTS in VARCHAR2,
  X_MODE in VARCHAR2 default 'R'
  ) AS
    X_LAST_UPDATE_DATE DATE;

Line: 633


    X_LAST_UPDATED_BY NUMBER;

Line: 634


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 636


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 638


    X_LAST_UPDATED_BY := 1;

Line: 639


    X_LAST_UPDATE_LOGIN := 0;

Line: 641


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 642


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 645


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 646


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 655


 p_action=>'UPDATE',
 x_rowid=>X_ROWID,
 x_ass_assessor_type=>X_ASS_ASSESSOR_TYPE,
 x_ass_id=>X_ASS_ID,
 x_comments=>X_COMMENTS,
 x_item_limit=>X_ITEM_LIMIT,
 x_location_cd=>X_LOCATION_CD,
 x_person_id=>X_PERSON_ID,
 x_primary_assessor_ind=>X_PRIMARY_ASSESSOR_IND,
 x_sequence_number=>X_SEQUENCE_NUMBER,
 x_unit_class=>X_UNIT_CLASS,
 x_unit_mode=>X_UNIT_MODE,
 x_creation_date=>X_LAST_UPDATE_DATE,
 x_created_by=>X_LAST_UPDATED_BY,
 x_last_update_date=>X_LAST_UPDATE_DATE,
 x_last_updated_by=>X_LAST_UPDATED_BY,
 x_last_update_login=>X_LAST_UPDATE_LOGIN
 );

Line: 673


  update IGS_AS_ITEM_ASSESSOR set
    ASS_ASSESSOR_TYPE = NEW_REFERENCES.ASS_ASSESSOR_TYPE,
    PRIMARY_ASSESSOR_IND = NEW_REFERENCES.PRIMARY_ASSESSOR_IND,
    ITEM_LIMIT = NEW_REFERENCES.ITEM_LIMIT,
    LOCATION_CD = NEW_REFERENCES.LOCATION_CD,
    UNIT_MODE = NEW_REFERENCES.UNIT_MODE,
    UNIT_CLASS = NEW_REFERENCES.UNIT_CLASS,
    COMMENTS = NEW_REFERENCES.COMMENTS,
    LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
    LAST_UPDATED_BY = X_LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
  where ROWID = X_ROWID;

Line: 689


  p_action => 'UPDATE',
  x_rowid => X_ROWID
  );

Line: 692


end UPDATE_ROW;

Line: 707


  cursor c1 is select rowid from IGS_AS_ITEM_ASSESSOR
     where ASS_ID = X_ASS_ID
     and PERSON_ID = X_PERSON_ID
     and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER
  ;

Line: 717


    INSERT_ROW (
     X_ROWID,
     X_ASS_ID,
     X_PERSON_ID,
     X_SEQUENCE_NUMBER,
     X_ASS_ASSESSOR_TYPE,
     X_PRIMARY_ASSESSOR_IND,
     X_ITEM_LIMIT,
     X_LOCATION_CD,
     X_UNIT_MODE,
     X_UNIT_CLASS,
     X_COMMENTS,
     X_MODE);

Line: 733


  UPDATE_ROW (
   X_ROWID,
   X_ASS_ID,
   X_PERSON_ID,
   X_SEQUENCE_NUMBER,
   X_ASS_ASSESSOR_TYPE,
   X_PRIMARY_ASSESSOR_IND,
   X_ITEM_LIMIT,
   X_LOCATION_CD,
   X_UNIT_MODE,
   X_UNIT_CLASS,
   X_COMMENTS,
   X_MODE);

Line: 747


procedure DELETE_ROW (
  X_ROWID in VARCHAR2) AS
begin
 Before_DML(
  p_action => 'DELETE',
  x_rowid => X_ROWID
  );

Line: 754


  delete from IGS_AS_ITEM_ASSESSOR
 where ROWID = X_ROWID;

Line: 757


  p_action => 'DELETE',
  x_rowid => X_ROWID
  );

Line: 763


end DELETE_ROW;