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

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

Line: 16


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

Line: 34


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

Line: 36


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

Line: 48


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

Line: 55


    new_references.last_update_date := x_last_update_date;

Line: 56


    new_references.last_updated_by := x_last_updated_by;

Line: 57


    new_references.last_update_login := x_last_update_login;

Line: 61


  PROCEDURE BeforeRowInsertUpdateDelete1(
    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: 68


	-- Validate the insert/update/delete
	IF p_inserting OR p_updating THEN
		IF  IGS_PS_VAL_UNIT.crsp_val_iud_uv_dtl(
				new_references.unit_cd,
				new_references.version_number,
			v_message_name) = FALSE THEN
		Fnd_Message.Set_Name('IGS',v_message_name);

Line: 89


	IF p_inserting OR p_updating THEN
/*
||  Bug ID 1956374 - Removal of Duplicate Program Units from OSS.
||  Changed the reference of "IGS_PS_VAL_UVR.RULP_VAL_RUL_SRC" to program unit "IGS_FI_VAL_FDFR.RULP_VAL_RUL_SRC". -- kdande
*/
		IF  IGS_FI_VAL_FDFR.rulp_val_rul_src(
				new_references.s_rule_call_cd,
				'UNIT',
				new_references.rul_sequence_number,
			v_message_name) = FALSE THEN
		Fnd_Message.Set_Name('IGS',v_message_name);

Line: 105


  END BeforeRowInsertUpdateDelete1;

Line: 148


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

Line: 162


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

Line: 179


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

Line: 196


      SELECT   rowid
      FROM     IGS_PS_UNIT_VER_RU
      WHERE    unit_cd = x_unit_cd
      AND      version_number = x_version_number
      AND      s_rule_call_cd = x_s_rule_call_cd
      FOR UPDATE NOWAIT;

Line: 224


      SELECT   rowid
      FROM     IGS_PS_UNIT_VER_RU
      WHERE    rul_sequence_number = x_sequence_number ;

Line: 250


      SELECT   rowid
      FROM     IGS_PS_UNIT_VER_RU
      WHERE    s_rule_call_cd = x_s_rule_call_cd ;

Line: 277


      SELECT   rowid
      FROM     IGS_PS_UNIT_VER_RU
      WHERE    unit_cd = x_unit_cd
      AND      version_number = x_version_number ;

Line: 308


    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_cd,
      x_version_number,
      x_s_rule_call_cd,
      x_rul_sequence_number,
      x_creation_date,
      x_created_by,
      x_last_update_date,
      x_last_updated_by,
      x_last_update_login
    );

Line: 328


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

Line: 340


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

Line: 345


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

Line: 348


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

Line: 357


   ELSIF (p_action = 'VALIDATE_UPDATE') THEN
	   Check_Constraints;

Line: 375


procedure INSERT_ROW (
  X_ROWID in out NOCOPY VARCHAR2,
  X_UNIT_CD in VARCHAR2,
  X_VERSION_NUMBER in NUMBER,
  X_S_RULE_CALL_CD in VARCHAR2,
  X_RUL_SEQUENCE_NUMBER in NUMBER,
  X_MODE in VARCHAR2 default 'R'
  ) AS
    cursor C is select ROWID from IGS_PS_UNIT_VER_RU
      where UNIT_CD = X_UNIT_CD
      and VERSION_NUMBER = X_VERSION_NUMBER
      and S_RULE_CALL_CD = X_S_RULE_CALL_CD;

Line: 387


    X_LAST_UPDATE_DATE DATE;

Line: 388


    X_LAST_UPDATED_BY NUMBER;

Line: 389


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 391


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 393


    X_LAST_UPDATED_BY := 1;

Line: 394


    X_LAST_UPDATE_LOGIN := 0;

Line: 396


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 397


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 400


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 401


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 411


  p_action => 'INSERT',
  x_rowid => X_ROWID,
  x_unit_cd => X_UNIT_CD,
  x_version_number => X_VERSION_NUMBER,
  x_s_rule_call_cd => X_S_RULE_CALL_CD,
  x_rul_sequence_number => X_RUL_SEQUENCE_NUMBER,
  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: 424


  insert into IGS_PS_UNIT_VER_RU (
    UNIT_CD,
    VERSION_NUMBER,
    S_RULE_CALL_CD,
    RUL_SEQUENCE_NUMBER,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN
  ) values (
    NEW_REFERENCES.UNIT_CD,
    NEW_REFERENCES.VERSION_NUMBER,
    NEW_REFERENCES.S_RULE_CALL_CD,
    NEW_REFERENCES.RUL_SEQUENCE_NUMBER,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN
  );

Line: 454


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

Line: 458


end INSERT_ROW;

Line: 467


  cursor c1 is select
      RUL_SEQUENCE_NUMBER
    from IGS_PS_UNIT_VER_RU
    where ROWID = X_ROWID for update nowait;

Line: 478


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

Line: 496


procedure UPDATE_ROW (
  X_ROWID in VARCHAR2,
  X_UNIT_CD in VARCHAR2,
  X_VERSION_NUMBER in NUMBER,
  X_S_RULE_CALL_CD in VARCHAR2,
  X_RUL_SEQUENCE_NUMBER in NUMBER,
  X_MODE in VARCHAR2 default 'R'
  ) AS
    X_LAST_UPDATE_DATE DATE;

Line: 505


    X_LAST_UPDATED_BY NUMBER;

Line: 506


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 508


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 510


    X_LAST_UPDATED_BY := 1;

Line: 511


    X_LAST_UPDATE_LOGIN := 0;

Line: 513


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 514


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 517


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 518


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 528


  p_action => 'UPDATE',
  x_rowid => X_ROWID,
  x_unit_cd => X_UNIT_CD,
  x_version_number => X_VERSION_NUMBER,
  x_s_rule_call_cd => X_S_RULE_CALL_CD,
  x_rul_sequence_number => X_RUL_SEQUENCE_NUMBER,
  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: 540


  update IGS_PS_UNIT_VER_RU set
    RUL_SEQUENCE_NUMBER = NEW_REFERENCES.RUL_SEQUENCE_NUMBER,
    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: 550


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

Line: 553


end UPDATE_ROW;

Line: 563


  cursor c1 is select rowid from IGS_PS_UNIT_VER_RU
     where UNIT_CD = X_UNIT_CD
     and VERSION_NUMBER = X_VERSION_NUMBER
     and S_RULE_CALL_CD = X_S_RULE_CALL_CD
  ;

Line: 573


    INSERT_ROW (
     X_ROWID,
     X_UNIT_CD,
     X_VERSION_NUMBER,
     X_S_RULE_CALL_CD,
     X_RUL_SEQUENCE_NUMBER,
     X_MODE);

Line: 583


  UPDATE_ROW (
   X_ROWID,
   X_UNIT_CD,
   X_VERSION_NUMBER,
   X_S_RULE_CALL_CD,
   X_RUL_SEQUENCE_NUMBER,
   X_MODE);

Line: 592


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

Line: 600


  delete from IGS_PS_UNIT_VER_RU
  where ROWID = X_ROWID;

Line: 606


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

Line: 609


end DELETE_ROW;