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

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

Line: 18


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

Line: 36


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

Line: 38


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

Line: 51


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

Line: 58


    new_references.last_update_date := x_last_update_date;

Line: 59


    new_references.last_updated_by := x_last_updated_by;

Line: 60


    new_references.last_update_login := x_last_update_login;

Line: 64


  PROCEDURE BeforeRowInsertUpdateDelete1(
    p_inserting IN BOOLEAN DEFAULT FALSE,
    p_updating IN BOOLEAN DEFAULT FALSE,
    p_deleting IN BOOLEAN DEFAULT FALSE
    ) AS
	v_unit_cd		IGS_PS_UNIT_REF_CD.unit_cd%TYPE;

Line: 78


	ELSE -- p_inserting or p_updating
		v_unit_cd := new_references.unit_cd;

Line: 82


	-- Validate the insert/update/delete.
	IF  IGS_PS_VAL_UNIT.crsp_val_iud_uv_dtl (
			v_unit_cd,
			v_version_number,
v_message_name) = FALSE THEN
		Fnd_Message.Set_Name('IGS',v_message_name);

Line: 91


	-- Validate reference code type.  Referenece code type is not updateable.
	IF p_inserting THEN
	-- As part of the bug# 1956374 changed to the below call from IGS_PS_VAL_URC.crsp_val_ref_cd_type
		IF IGS_PS_VAL_CRFC.crsp_val_ref_cd_type(
				new_references.reference_cd_type,
v_message_name) = FALSE THEN
		Fnd_Message.Set_Name('IGS',v_message_name);

Line: 105


			SELECT	DECODE(NVL(old_references.description,'NULL'),NVL(new_references.description,'NULL'),
						NULL,old_references.description)
			INTO	v_description
			FROM	dual;

Line: 114


				old_references.last_update_date,
				new_references.last_update_date,
				old_references.last_updated_by,
				v_description);

Line: 120


	-- Create history record on delete
	IF p_deleting THEN
	  IF igs_ps_val_atl.chk_mandatory_ref_cd(old_references.reference_cd_type) THEN
	      Fnd_Message.Set_Name ('IGS', 'IGS_PS_REF_CD_MANDATORY');

Line: 132


			old_references.last_update_date,
			SYSDATE,
			old_references.last_updated_by,
			old_references.description);

Line: 139


  END BeforeRowInsertUpdateDelete1;

Line: 204


      SELECT   rowid
      FROM     IGS_PS_UNIT_REF_CD
      WHERE    unit_cd = x_unit_cd
      AND      version_number = x_version_number
      AND      reference_cd_type = x_reference_cd_type
	AND 	   (l_rowid IS NULL OR rowid <> l_rowid)
      FOR UPDATE NOWAIT;

Line: 242


  SELECT 'X'
  FROM   igs_ge_ref_cd_type_all
  WHERE  restricted_flag='Y'
  AND    reference_cd_type=cp_reference_cd_type;

Line: 256


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

Line: 273


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

Line: 293


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

Line: 310


      SELECT   rowid
      FROM     IGS_PS_UNIT_REF_CD
      WHERE    unit_cd = x_unit_cd
      AND      version_number = x_version_number
      AND      reference_cd_type = x_reference_cd_type
      AND      reference_cd = x_reference_cd
      FOR UPDATE NOWAIT;

Line: 339


      SELECT   rowid
      FROM     IGS_PS_UNIT_REF_CD
      WHERE    reference_cd_type = x_reference_cd_type ;

Line: 377


      SELECT   ROWID
      FROM     igs_ps_unit_ref_cd
      WHERE    reference_cd_type = x_reference_cd_type
      AND      reference_cd = x_reference_cd ;

Line: 406


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

Line: 438


    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_reference_cd_type,
      x_reference_cd,
      x_description,
      x_creation_date,
      x_created_by,
      x_last_update_date,
      x_last_updated_by,
      x_last_update_login
    );

Line: 459


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

Line: 473


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

Line: 479


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

Line: 482


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

Line: 493


   ELSIF (p_action = 'VALIDATE_UPDATE') THEN
	   Check_Constraints;

Line: 513


procedure INSERT_ROW (
  X_ROWID in out NOCOPY VARCHAR2,
  X_UNIT_CD in VARCHAR2,
  X_REFERENCE_CD_TYPE in VARCHAR2,
  X_VERSION_NUMBER in NUMBER,
  X_REFERENCE_CD in VARCHAR2,
  X_DESCRIPTION in VARCHAR2,
  X_MODE in VARCHAR2 default 'R'
  ) AS
    cursor C is select ROWID from IGS_PS_UNIT_REF_CD
      where UNIT_CD = X_UNIT_CD
      and REFERENCE_CD_TYPE = X_REFERENCE_CD_TYPE
      and VERSION_NUMBER = X_VERSION_NUMBER
      and REFERENCE_CD = X_REFERENCE_CD;

Line: 527


    X_LAST_UPDATE_DATE DATE;

Line: 528


    X_LAST_UPDATED_BY NUMBER;

Line: 529


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 531


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 533


    X_LAST_UPDATED_BY := 1;

Line: 534


    X_LAST_UPDATE_LOGIN := 0;

Line: 536


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 537


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 540


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 541


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 551


  p_action => 'INSERT',
  x_rowid => X_ROWID,
  x_unit_cd => X_UNIT_CD,
  x_version_number => X_VERSION_NUMBER,
  x_reference_cd_type => X_REFERENCE_CD_TYPE,
  x_reference_cd => X_REFERENCE_CD,
  x_description => X_DESCRIPTION,
  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: 565


  insert into IGS_PS_UNIT_REF_CD (
    UNIT_CD,
    VERSION_NUMBER,
    REFERENCE_CD_TYPE,
    REFERENCE_CD,
    DESCRIPTION,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN
  ) values (
    NEW_REFERENCES.UNIT_CD,
    NEW_REFERENCES.VERSION_NUMBER,
    NEW_REFERENCES.REFERENCE_CD_TYPE,
    NEW_REFERENCES.REFERENCE_CD,
    NEW_REFERENCES.DESCRIPTION,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN
  );

Line: 597


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

Line: 602


end INSERT_ROW;

Line: 612


  cursor c1 is select
      DESCRIPTION
    from IGS_PS_UNIT_REF_CD
    where ROWID = X_ROWID for update nowait;

Line: 623


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

Line: 643


procedure UPDATE_ROW (
  X_ROWID in VARCHAR2,
  X_UNIT_CD in VARCHAR2,
  X_REFERENCE_CD_TYPE in VARCHAR2,
  X_VERSION_NUMBER in NUMBER,
  X_REFERENCE_CD in VARCHAR2,
  X_DESCRIPTION in VARCHAR2,
  X_MODE in VARCHAR2 default 'R'
  ) AS
    X_LAST_UPDATE_DATE DATE;

Line: 653


    X_LAST_UPDATED_BY NUMBER;

Line: 654


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 656


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 658


    X_LAST_UPDATED_BY := 1;

Line: 659


    X_LAST_UPDATE_LOGIN := 0;

Line: 661


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 662


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 665


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 666


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 676


  p_action => 'UPDATE',
  x_rowid => X_ROWID,
  x_unit_cd => X_UNIT_CD,
  x_version_number => X_VERSION_NUMBER,
  x_reference_cd_type => X_REFERENCE_CD_TYPE,
  x_reference_cd => X_REFERENCE_CD,
  x_description => X_DESCRIPTION,
  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: 690


  update IGS_PS_UNIT_REF_CD set
    UNIT_CD = NEW_REFERENCES.UNIT_CD,
    VERSION_NUMBER = NEW_REFERENCES.VERSION_NUMBER,
    REFERENCE_CD_TYPE = NEW_REFERENCES.REFERENCE_CD_TYPE,
    REFERENCE_CD= NEW_REFERENCES.REFERENCE_CD,
    DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
    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: 705


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

Line: 708


end UPDATE_ROW;

Line: 719


  cursor c1 is select rowid from IGS_PS_UNIT_REF_CD
     where UNIT_CD = X_UNIT_CD
     and REFERENCE_CD_TYPE = X_REFERENCE_CD_TYPE
     and VERSION_NUMBER = X_VERSION_NUMBER
     and REFERENCE_CD = X_REFERENCE_CD
  ;

Line: 730


    INSERT_ROW (
     X_ROWID,
     X_UNIT_CD,
     X_REFERENCE_CD_TYPE,
     X_VERSION_NUMBER,
     X_REFERENCE_CD,
     X_DESCRIPTION,
     X_MODE);

Line: 741


  UPDATE_ROW (
   X_ROWID,
   X_UNIT_CD,
   X_REFERENCE_CD_TYPE,
   X_VERSION_NUMBER,
   X_REFERENCE_CD,
   X_DESCRIPTION,
   X_MODE);

Line: 751


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

Line: 759


  delete from IGS_PS_UNIT_REF_CD
  where ROWID = X_ROWID
  ;

Line: 766


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

Line: 770


end DELETE_ROW;