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_PE_UNT_REQUIRMNT_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_PE_UNT_REQUIRMNT
      WHERE    rowid = x_rowid;

Line: 40


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

Line: 59


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

Line: 66


    new_references.last_update_date := x_last_update_date;

Line: 67


    new_references.last_updated_by := x_last_updated_by;

Line: 68


    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: 81


		IF p_inserting OR (p_updating AND
		(NVL(old_references.pur_start_dt, IGS_GE_DATE.IGSDATE('1900/01/01'))
		<> new_references.pur_start_dt))
		THEN
		IF IGS_EN_VAL_PCE.enrp_val_encmb_dt (
			 	new_references.pur_start_dt,
			 	v_message_name) = FALSE THEN
			 Fnd_Message.Set_Name('IGS', v_message_name);

Line: 96


	IF p_inserting THEN
		IF IGS_EN_VAL_PCE.enrp_val_encmb_dts (
			 	new_references.pee_start_dt,
			 	new_references.pur_start_dt,
			 	v_message_name) = FALSE THEN
			 Fnd_Message.Set_Name('IGS', v_message_name);

Line: 109


		IF p_inserting OR (p_updating AND
		(NVL(old_references.expiry_dt, IGS_GE_DATE.IGSDATE('1900/01/01'))
		<> new_references.expiry_dt))
		THEN
		IF IGS_EN_VAL_PCE.enrp_val_strt_exp_dt (
			 	new_references.pur_start_dt,
			 	new_references.expiry_dt,
			 	v_message_name) = FALSE THEN
			 Fnd_Message.Set_Name('IGS', v_message_name);

Line: 132


	IF p_inserting THEN
		IF IGS_EN_VAL_PCE.enrp_val_pee_table (
			 	new_references.s_encmb_effect_type,
			 	'IGS_PE_UNT_REQUIRMNT',
			 	v_message_name) = FALSE THEN
			 Fnd_Message.Set_Name('IGS', v_message_name);

Line: 144


  END BeforeRowInsertUpdate1;

Line: 152


  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: 182


  END AfterRowInsertUpdate2;

Line: 257


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

Line: 270


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

Line: 290


      SELECT   rowid
      FROM     IGS_PE_UNT_REQUIRMNT
      WHERE    s_encmb_effect_type = x_s_encmb_effect_type
      AND      pen_start_dt = x_pen_start_dt
      AND      person_id = x_person_id
      AND      encumbrance_type = x_encumbrance_type
      AND      pee_start_dt = x_pee_start_dt
      AND      pee_sequence_number = x_pee_sequence_number
      AND      unit_cd = x_unit_cd
      AND      pur_start_dt = x_pur_start_dt
      FOR UPDATE NOWAIT;

Line: 329


      SELECT   rowid
      FROM     IGS_PE_UNT_REQUIRMNT
      WHERE    person_id = x_person_id
      AND      encumbrance_type = x_encumbrance_type
      AND      pen_start_dt = x_pen_start_dt
      AND      s_encmb_effect_type = x_s_encmb_effect_type
      AND      pee_start_dt = x_pee_start_dt
      AND      pee_sequence_number = x_pee_sequence_number ;

Line: 360


      SELECT   rowid
      FROM     IGS_PE_UNT_REQUIRMNT
      WHERE    unit_cd = x_unit_cd ;

Line: 395


    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_encumbrance_type,
      x_pen_start_dt,
      x_s_encmb_effect_type,
      x_pee_start_dt,
      x_pee_sequence_number,
      x_unit_cd,
      x_pur_start_dt,
      x_expiry_dt,
      x_creation_date,
      x_created_by,
      x_last_update_date,
      x_last_updated_by,
      x_last_update_login
    );

Line: 420


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

Line: 439


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

Line: 446


 ELSIF (p_action = 'DELETE') THEN
       -- Call all the procedures related to Before Delete.

       NULL;

Line: 450


 ELSIF (p_action = 'VALIDATE_INSERT') THEN
      IF  Get_PK_For_Validation (
          new_references.s_encmb_effect_type ,
    new_references.pen_start_dt ,
    new_references.person_id ,
    new_references.encumbrance_type ,
    new_references.pee_start_dt ,
    new_references.pee_sequence_number ,
    new_references.unit_cd ,
    new_references.pur_start_dt ) THEN
         Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');

Line: 466


     ELSIF (p_action = 'VALIDATE_UPDATE') THEN

       Check_Constraints; -- if procedure present

Line: 469


     ELSIF (p_action = 'VALIDATE_DELETE') THEN
      NULL;

Line: 483


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

Line: 486


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

Line: 489


    ELSIF (p_action = 'DELETE') THEN
      -- Call all the procedures related to After Delete.
      Null;

Line: 496


procedure INSERT_ROW (
  X_ROWID in out NOCOPY VARCHAR2,
  X_PERSON_ID in NUMBER,
  X_ENCUMBRANCE_TYPE in VARCHAR2,
  X_PEN_START_DT in DATE,
  X_S_ENCMB_EFFECT_TYPE in VARCHAR2,
  X_PEE_START_DT in DATE,
  X_PEE_SEQUENCE_NUMBER in NUMBER,
  X_UNIT_CD in VARCHAR2,
  X_PUR_START_DT in DATE,
  X_EXPIRY_DT in DATE,
  X_MODE in VARCHAR2 default 'R'
  ) AS
    cursor C is select ROWID from IGS_PE_UNT_REQUIRMNT
      where PERSON_ID = X_PERSON_ID
      and ENCUMBRANCE_TYPE = X_ENCUMBRANCE_TYPE
      and PEN_START_DT = X_PEN_START_DT
      and S_ENCMB_EFFECT_TYPE = X_S_ENCMB_EFFECT_TYPE
      and PEE_START_DT = X_PEE_START_DT
      and PEE_SEQUENCE_NUMBER = X_PEE_SEQUENCE_NUMBER
      and UNIT_CD = X_UNIT_CD
      and PUR_START_DT = X_PUR_START_DT;

Line: 518


    X_LAST_UPDATE_DATE DATE;

Line: 519


    X_LAST_UPDATED_BY NUMBER;

Line: 520


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 522


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 524


    X_LAST_UPDATED_BY := 1;

Line: 525


    X_LAST_UPDATE_LOGIN := 0;

Line: 527


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 528


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 531


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 532


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 541


   p_action=>'INSERT',
   x_rowid=>X_ROWID,
   x_encumbrance_type=>X_ENCUMBRANCE_TYPE,
   x_expiry_dt=>X_EXPIRY_DT,
   x_pee_sequence_number=>X_PEE_SEQUENCE_NUMBER,
   x_pee_start_dt=>X_PEE_START_DT,
   x_pen_start_dt=>X_PEN_START_DT,
   x_person_id=>X_PERSON_ID,
   x_pur_start_dt=>X_PUR_START_DT,
   x_s_encmb_effect_type=>X_S_ENCMB_EFFECT_TYPE,
   x_unit_cd=>X_UNIT_CD,
   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: 559


  insert into IGS_PE_UNT_REQUIRMNT (
    PERSON_ID,
    ENCUMBRANCE_TYPE,
    PEN_START_DT,
    S_ENCMB_EFFECT_TYPE,
    PEE_START_DT,
    PEE_SEQUENCE_NUMBER,
    UNIT_CD,
    PUR_START_DT,
    EXPIRY_DT,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN
  ) values (
    NEW_REFERENCES.PERSON_ID,
    NEW_REFERENCES.ENCUMBRANCE_TYPE,
    NEW_REFERENCES.PEN_START_DT,
    NEW_REFERENCES.S_ENCMB_EFFECT_TYPE,
    NEW_REFERENCES.PEE_START_DT,
    NEW_REFERENCES.PEE_SEQUENCE_NUMBER,
    NEW_REFERENCES.UNIT_CD,
    NEW_REFERENCES.PUR_START_DT,
    NEW_REFERENCES.EXPIRY_DT,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN
  );

Line: 599


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

Line: 602


end INSERT_ROW;

Line: 616


  cursor c1 is select
      EXPIRY_DT
    from IGS_PE_UNT_REQUIRMNT
    where  ROWID = X_ROWID
    for update nowait;

Line: 627


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

Line: 647


procedure UPDATE_ROW (
  X_ROWID in VARCHAR2,
  X_PERSON_ID in NUMBER,
  X_ENCUMBRANCE_TYPE in VARCHAR2,
  X_PEN_START_DT in DATE,
  X_S_ENCMB_EFFECT_TYPE in VARCHAR2,
  X_PEE_START_DT in DATE,
  X_PEE_SEQUENCE_NUMBER in NUMBER,
  X_UNIT_CD in VARCHAR2,
  X_PUR_START_DT in DATE,
  X_EXPIRY_DT in DATE,
  X_MODE in VARCHAR2 default 'R'
  ) AS
    X_LAST_UPDATE_DATE DATE;

Line: 661


    X_LAST_UPDATED_BY NUMBER;

Line: 662


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 664


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 666


    X_LAST_UPDATED_BY := 1;

Line: 667


    X_LAST_UPDATE_LOGIN := 0;

Line: 669


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 670


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 673


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 674


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 683


   p_action=>'UPDATE',
   x_rowid=>X_ROWID,
   x_encumbrance_type=>X_ENCUMBRANCE_TYPE,
   x_expiry_dt=>X_EXPIRY_DT,
   x_pee_sequence_number=>X_PEE_SEQUENCE_NUMBER,
   x_pee_start_dt=>X_PEE_START_DT,
   x_pen_start_dt=>X_PEN_START_DT,
   x_person_id=>X_PERSON_ID,
   x_pur_start_dt=>X_PUR_START_DT,
   x_s_encmb_effect_type=>X_S_ENCMB_EFFECT_TYPE,
   x_unit_cd=>X_UNIT_CD,
   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: 701


  update IGS_PE_UNT_REQUIRMNT set
    EXPIRY_DT = NEW_REFERENCES.EXPIRY_DT,
    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: 712


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

Line: 715


end UPDATE_ROW;

Line: 730


  cursor c1 is select rowid from IGS_PE_UNT_REQUIRMNT
     where PERSON_ID = X_PERSON_ID
     and ENCUMBRANCE_TYPE = X_ENCUMBRANCE_TYPE
     and PEN_START_DT = X_PEN_START_DT
     and S_ENCMB_EFFECT_TYPE = X_S_ENCMB_EFFECT_TYPE
     and PEE_START_DT = X_PEE_START_DT
     and PEE_SEQUENCE_NUMBER = X_PEE_SEQUENCE_NUMBER
     and UNIT_CD = X_UNIT_CD
     and PUR_START_DT = X_PUR_START_DT
  ;

Line: 746


    INSERT_ROW (
     X_ROWID,
     X_PERSON_ID,
     X_ENCUMBRANCE_TYPE,
     X_PEN_START_DT,
     X_S_ENCMB_EFFECT_TYPE,
     X_PEE_START_DT,
     X_PEE_SEQUENCE_NUMBER,
     X_UNIT_CD,
     X_PUR_START_DT,
     X_EXPIRY_DT,
     X_MODE);

Line: 761


  UPDATE_ROW (
   X_ROWID,
   X_PERSON_ID,
   X_ENCUMBRANCE_TYPE,
   X_PEN_START_DT,
   X_S_ENCMB_EFFECT_TYPE,
   X_PEE_START_DT,
   X_PEE_SEQUENCE_NUMBER,
   X_UNIT_CD,
   X_PUR_START_DT,
   X_EXPIRY_DT,
   X_MODE);

Line: 775


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

Line: 783


  delete from IGS_PE_UNT_REQUIRMNT
  where ROWID = X_ROWID;

Line: 789


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

Line: 792


end DELETE_ROW;