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

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

Line: 13


    x_delete_ind IN VARCHAR2 DEFAULT NULL,
    x_dflt_ind IN VARCHAR2 DEFAULT NULL,
    x_creation_date IN DATE DEFAULT NULL,
    x_created_by IN NUMBER DEFAULT NULL,
    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_PS_UNIT_DISC_CRT
      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: 47


    new_references.delete_ind := x_delete_ind;

Line: 49


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

Line: 56


    new_references.last_update_date := x_last_update_date;

Line: 57


    new_references.last_updated_by := x_last_updated_by;

Line: 58


    new_references.last_update_login := x_last_update_login;

Line: 62


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


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


	    IF	IGS_EN_VAL_UDDC.ENRP_VAL_UDDC_FIELDS(new_references.administrative_unit_status						,new_references.delete_ind
			,v_message_name) = FALSE THEN
		Fnd_Message.Set_Name('IGS',v_message_name);

Line: 98


  END BeforeRowInsertUpdate1;

Line: 114


	ELSIF Upper(Column_Name)='DELETE_IND' Then
		New_References.delete_ind := Column_Value;

Line: 142


	IF Upper(Column_Name)='DELETE_IND' OR Column_Name IS NULL Then
		IF New_References.delete_ind NOT IN ('Y','N') Then
			        Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');

Line: 160


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

Line: 172


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

Line: 186


      SELECT   rowid
      FROM     IGS_PS_UNIT_DISC_CRT
      WHERE    unit_discont_dt_alias = x_unit_discont_dt_alias
      FOR UPDATE NOWAIT;

Line: 211


      SELECT   rowid
      FROM     IGS_PS_UNIT_DISC_CRT
      WHERE    unit_discont_dt_alias = x_dt_alias ;

Line: 237


    x_delete_ind IN VARCHAR2 DEFAULT NULL,
    x_dflt_ind IN VARCHAR2 DEFAULT NULL,
    x_creation_date IN DATE DEFAULT NULL,
    x_created_by IN NUMBER DEFAULT NULL,
    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_unit_discont_dt_alias,
      x_administrative_unit_status,
      x_delete_ind,
      x_dflt_ind,
      x_creation_date,
      x_created_by,
      x_last_update_date,
      x_last_updated_by,
      x_last_update_login
    );

Line: 261


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

Line: 271


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

Line: 277


ELSIF (p_action = 'VALIDATE_INSERT') THEN
	 IF Get_PK_For_Validation (New_References.unit_discont_dt_alias) THEN
			Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');

Line: 284


   ELSIF (p_action = 'VALIDATE_UPDATE') THEN
	   Check_Constraints;

Line: 303


procedure INSERT_ROW (
  X_ROWID in out NOCOPY VARCHAR2,
  X_UNIT_DISCONT_DT_ALIAS in VARCHAR2,
  X_ADMINISTRATIVE_UNIT_STATUS in VARCHAR2,
  X_DELETE_IND in VARCHAR2,
  X_DFLT_IND in VARCHAR2,
  X_MODE in VARCHAR2 default 'R'
  ) AS
    cursor C is select ROWID from IGS_PS_UNIT_DISC_CRT
      where UNIT_DISCONT_DT_ALIAS = X_UNIT_DISCONT_DT_ALIAS;

Line: 313


    X_LAST_UPDATE_DATE DATE;

Line: 314


    X_LAST_UPDATED_BY NUMBER;

Line: 315


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 317


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 319


    X_LAST_UPDATED_BY := 1;

Line: 320


    X_LAST_UPDATE_LOGIN := 0;

Line: 322


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 323


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 326


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 327


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 337


  p_action => 'INSERT',
  x_rowid =>  X_ROWID,
  x_unit_discont_dt_alias => X_UNIT_DISCONT_DT_ALIAS,
  x_administrative_unit_status => X_ADMINISTRATIVE_UNIT_STATUS,
  x_delete_ind => NVL(X_DELETE_IND,'N'),
  x_dflt_ind => NVL(X_DFLT_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: 350


  insert into IGS_PS_UNIT_DISC_CRT (
    UNIT_DISCONT_DT_ALIAS,
    ADMINISTRATIVE_UNIT_STATUS,
    DELETE_IND,
    DFLT_IND,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN
  ) values (
    NEW_REFERENCES.UNIT_DISCONT_DT_ALIAS,
    NEW_REFERENCES.ADMINISTRATIVE_UNIT_STATUS,
    NEW_REFERENCES.DELETE_IND,
    NEW_REFERENCES.DFLT_IND,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN
  );

Line: 380


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

Line: 384


end INSERT_ROW;

Line: 390


  X_DELETE_IND in VARCHAR2,
  X_DFLT_IND in VARCHAR2
) AS
  cursor c1 is select
      ADMINISTRATIVE_UNIT_STATUS,
      DELETE_IND,
      DFLT_IND
    from IGS_PS_UNIT_DISC_CRT
    where ROWID = X_ROWID
    for update nowait;

Line: 407


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

Line: 417


      AND (tlinfo.DELETE_IND = X_DELETE_IND)
      AND (tlinfo.DFLT_IND = X_DFLT_IND)
  ) then
    null;

Line: 429


procedure UPDATE_ROW (
  X_ROWID IN VARCHAR2,
  X_UNIT_DISCONT_DT_ALIAS in VARCHAR2,
  X_ADMINISTRATIVE_UNIT_STATUS in VARCHAR2,
  X_DELETE_IND in VARCHAR2,
  X_DFLT_IND in VARCHAR2,
  X_MODE in VARCHAR2 default 'R'
  ) AS
    X_LAST_UPDATE_DATE DATE;

Line: 438


    X_LAST_UPDATED_BY NUMBER;

Line: 439


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 441


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 443


    X_LAST_UPDATED_BY := 1;

Line: 444


    X_LAST_UPDATE_LOGIN := 0;

Line: 446


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 447


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 450


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 451


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 461


  p_action => 'UPDATE',
  x_rowid =>  X_ROWID,
  x_unit_discont_dt_alias => X_UNIT_DISCONT_DT_ALIAS,
  x_administrative_unit_status => X_ADMINISTRATIVE_UNIT_STATUS,
  x_delete_ind => X_DELETE_IND,
  x_dflt_ind => X_DFLT_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: 473


  update IGS_PS_UNIT_DISC_CRT set
    ADMINISTRATIVE_UNIT_STATUS = NEW_REFERENCES.ADMINISTRATIVE_UNIT_STATUS,
    DELETE_IND = NEW_REFERENCES.DELETE_IND,
    DFLT_IND = NEW_REFERENCES.DFLT_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: 486


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

Line: 490


end UPDATE_ROW;

Line: 496


  X_DELETE_IND in VARCHAR2,
  X_DFLT_IND in VARCHAR2,
  X_MODE in VARCHAR2 default 'R'
  ) AS
  cursor c1 is select rowid from IGS_PS_UNIT_DISC_CRT
     where UNIT_DISCONT_DT_ALIAS = X_UNIT_DISCONT_DT_ALIAS
  ;

Line: 508


    INSERT_ROW (
     X_ROWID,
     X_UNIT_DISCONT_DT_ALIAS,
     X_ADMINISTRATIVE_UNIT_STATUS,
     X_DELETE_IND,
     X_DFLT_IND,
     X_MODE);

Line: 518


  UPDATE_ROW (
   X_ROWID,
   X_UNIT_DISCONT_DT_ALIAS,
   X_ADMINISTRATIVE_UNIT_STATUS,
   X_DELETE_IND,
   X_DFLT_IND,
   X_MODE);

Line: 527


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

Line: 535


  delete from IGS_PS_UNIT_DISC_CRT
    where ROWID = X_ROWID;

Line: 541


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

Line: 545


end DELETE_ROW;