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_AD_ADM_UT_STT_LD_PKG SQL Statements

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

Line: 17


    x_last_update_date IN DATE DEFAULT NULL,
    x_last_updated_by IN NUMBER DEFAULT NULL,
    x_last_update_login IN NUMBER DEFAULT NULL
  ) IS

    CURSOR cur_old_ref_values IS
      SELECT   *
      FROM     IGS_AD_ADM_UT_STT_LD
      WHERE    rowid = x_rowid;

Line: 35


    IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
      Close cur_old_ref_values;

Line: 37


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

Line: 50


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

Line: 57


    new_references.last_update_date := x_last_update_date;

Line: 58


    new_references.last_updated_by := x_last_updated_by;

Line: 59


    new_references.last_update_login := x_last_update_login;

Line: 71


  PROCEDURE BeforeRowInsertUpdateDelete1(
    p_inserting IN BOOLEAN DEFAULT FALSE,
    p_updating IN BOOLEAN DEFAULT FALSE,
    p_deleting IN BOOLEAN DEFAULT FALSE
    ) IS
	v_message_name		VARCHAR2(30);

Line: 80


	IF p_inserting OR p_updating THEN
		v_cal_type := new_references.cal_type;

Line: 87


	-- Validate if insert, update or delete is allowed.
/*
||  Bug ID 1956374 - Removal of Duplicate Program Units from OSS.
||  Changed the reference of "IGS_EN_VAL_AUSL.STAP_VAL_CI_STATUS" to program unit "IGS_EN_VAL_DLA.STAP_VAL_CI_STATUS". -- kdande
*/
	IF IGS_EN_VAL_DLA.stap_val_ci_status (
			v_cal_type,
			v_ci_sequence_number,
			v_message_name) = FALSE THEN

		    Fnd_Message.Set_Name('IGS',v_message_name);

Line: 101


	-- Validate that inserts/updates are allowed
	IF  p_inserting OR p_updating THEN
	    IF	IGS_EN_VAL_UDDC.ENRP_VAL_AUS_CLOSED(new_references.administrative_unit_status
						,v_message_name) = FALSE THEN
		    Fnd_Message.Set_Name('IGS',v_message_name);

Line: 118


  END BeforeRowInsertUpdateDelete1;

Line: 131


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

Line: 149


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

Line: 216


      SELECT   rowid
      FROM     IGS_AD_ADM_UT_STT_LD
      WHERE    administrative_unit_status = x_administrative_unit_status
      AND      cal_type = x_cal_type
      AND      ci_sequence_number = x_ci_sequence_number
      AND      teach_cal_type = x_teach_cal_type
      FOR UPDATE NOWAIT;

Line: 247


      SELECT   rowid
      FROM     IGS_AD_ADM_UT_STT_LD
      WHERE    cal_type = x_cal_type
      AND      ci_sequence_number = x_ci_sequence_number
      AND      teach_cal_type = x_teach_cal_type ;

Line: 280


    x_last_update_date IN DATE DEFAULT NULL,
    x_last_updated_by IN NUMBER DEFAULT NULL,
    x_last_update_login IN NUMBER DEFAULT NULL
  ) IS
  BEGIN

    Set_Column_Values (
      p_action,
      x_rowid,
      x_administrative_unit_status,
      x_cal_type,
      x_ci_sequence_number,
      x_teach_cal_type,
      x_load_incurred_ind,
      x_creation_date,
      x_created_by,
      x_last_update_date,
      x_last_updated_by,
      x_last_update_login
    );

Line: 301


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

Line: 317


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

Line: 323


    ELSIF (p_action = 'DELETE') THEN
      -- Call all the procedures related to Before Delete.
      BeforeRowInsertUpdateDelete1 ( p_deleting => TRUE );

Line: 327


    ELSIF (p_action = 'VALIDATE_INSERT') THEN
    	IF Get_PK_For_Validation (
         new_references.administrative_unit_status ,
         new_references.cal_type,
         new_references.ci_sequence_number,
         new_references.teach_cal_type ) THEN

         Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');

Line: 340


    ELSIF (p_action = 'VALIDATE_UPDATE') THEN
      Check_constraints;

Line: 356


procedure INSERT_ROW (
  X_ROWID in out NOCOPY VARCHAR2,
  X_ADMINISTRATIVE_UNIT_STATUS in VARCHAR2,
  X_CAL_TYPE in VARCHAR2,
  X_CI_SEQUENCE_NUMBER in NUMBER,
  X_TEACH_CAL_TYPE in VARCHAR2,
  X_LOAD_INCURRED_IND in VARCHAR2,
  X_MODE in VARCHAR2 default 'R'
  ) is
    cursor C is select ROWID from IGS_AD_ADM_UT_STT_LD
      where ADMINISTRATIVE_UNIT_STATUS = X_ADMINISTRATIVE_UNIT_STATUS
      and CAL_TYPE = X_CAL_TYPE
      and CI_SEQUENCE_NUMBER = X_CI_SEQUENCE_NUMBER
      and TEACH_CAL_TYPE = X_TEACH_CAL_TYPE;

Line: 370


    X_LAST_UPDATE_DATE DATE;

Line: 371


    X_LAST_UPDATED_BY NUMBER;

Line: 372


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 374


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 376


    X_LAST_UPDATED_BY := 1;

Line: 377


    X_LAST_UPDATE_LOGIN := 0;

Line: 379


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 380


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 383


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 384


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 394


    p_action => 'INSERT',
    x_rowid => X_ROWID,
    x_administrative_unit_status => X_ADMINISTRATIVE_UNIT_STATUS,
    x_cal_type => X_CAL_TYPE,
    x_ci_sequence_number => X_CI_SEQUENCE_NUMBER,
    x_teach_cal_type => X_TEACH_CAL_TYPE,
    x_load_incurred_ind => Nvl(X_LOAD_INCURRED_IND, 'Y'),
    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: 407


  insert into IGS_AD_ADM_UT_STT_LD (
    ADMINISTRATIVE_UNIT_STATUS,
    CAL_TYPE,
    CI_SEQUENCE_NUMBER,
    TEACH_CAL_TYPE,
    LOAD_INCURRED_IND,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN
  ) values (
    NEW_REFERENCES.ADMINISTRATIVE_UNIT_STATUS,
    NEW_REFERENCES.CAL_TYPE,
    NEW_REFERENCES.CI_SEQUENCE_NUMBER,
    NEW_REFERENCES.TEACH_CAL_TYPE,
    NEW_REFERENCES.LOAD_INCURRED_IND,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN
  );

Line: 439


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

Line: 442


end INSERT_ROW;

Line: 452


  cursor c1 is select
      LOAD_INCURRED_IND
    from IGS_AD_ADM_UT_STT_LD
    where ROWID = X_ROWID
    for update nowait;

Line: 464


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

Line: 480


procedure UPDATE_ROW (
  X_ROWID in VARCHAR2,
  X_ADMINISTRATIVE_UNIT_STATUS in VARCHAR2,
  X_CAL_TYPE in VARCHAR2,
  X_CI_SEQUENCE_NUMBER in NUMBER,
  X_TEACH_CAL_TYPE in VARCHAR2,
  X_LOAD_INCURRED_IND in VARCHAR2,
  X_MODE in VARCHAR2 default 'R'
  ) is
    X_LAST_UPDATE_DATE DATE;

Line: 490


    X_LAST_UPDATED_BY NUMBER;

Line: 491


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 493


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 495


    X_LAST_UPDATED_BY := 1;

Line: 496


    X_LAST_UPDATE_LOGIN := 0;

Line: 498


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 499


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 502


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 503


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 513


    p_action => 'UPDATE',
    x_rowid => X_ROWID,
    x_administrative_unit_status => X_ADMINISTRATIVE_UNIT_STATUS,
    x_cal_type => X_CAL_TYPE,
    x_ci_sequence_number => X_CI_SEQUENCE_NUMBER,
    x_teach_cal_type => X_TEACH_CAL_TYPE,
    x_load_incurred_ind => X_LOAD_INCURRED_IND,
    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: 527


  update IGS_AD_ADM_UT_STT_LD set
    LOAD_INCURRED_IND = NEW_REFERENCES.LOAD_INCURRED_IND,
    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: 537


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

Line: 541


end UPDATE_ROW;

Line: 552


  cursor c1 is select rowid from IGS_AD_ADM_UT_STT_LD
     where ADMINISTRATIVE_UNIT_STATUS = X_ADMINISTRATIVE_UNIT_STATUS
     and CAL_TYPE = X_CAL_TYPE
     and CI_SEQUENCE_NUMBER = X_CI_SEQUENCE_NUMBER
     and TEACH_CAL_TYPE = X_TEACH_CAL_TYPE  ;

Line: 562


    INSERT_ROW (
     X_ROWID,
     X_ADMINISTRATIVE_UNIT_STATUS,
     X_CAL_TYPE,
     X_CI_SEQUENCE_NUMBER,
     X_TEACH_CAL_TYPE,
     X_LOAD_INCURRED_IND,
     X_MODE);

Line: 573


  UPDATE_ROW (
   X_ROWID,
   X_ADMINISTRATIVE_UNIT_STATUS,
   X_CAL_TYPE,
   X_CI_SEQUENCE_NUMBER,
   X_TEACH_CAL_TYPE,
   X_LOAD_INCURRED_IND,
   X_MODE);

Line: 583


procedure DELETE_ROW (
X_ROWID in VARCHAR2
) is
begin

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

Line: 592


  delete from IGS_AD_ADM_UT_STT_LD
  where ROWID = X_ROWID;

Line: 598


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

Line: 601


end DELETE_ROW;