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_USEC_X_UNITS_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

  /*************************************************************
  Created By :  shgeorge
  Date Created By :  10-May-2000
  Purpose :
  Know limitations, enhancements or remarks
  Change History
  Who             When            What

  (reverse chronological order - newest change first)
  ***************************************************************/

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

Line: 45


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

Line: 47


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


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

Line: 164


      SELECT   rowid
      FROM     igs_ps_usec_x_units
      WHERE    unit_sec_cross_units_id = x_unit_sec_cross_units_id
      FOR UPDATE NOWAIT;

Line: 202


      SELECT   rowid
      FROM     igs_ps_usec_x_units
      WHERE    cross_listed_version_number = x_cross_listed_version_number
      AND      cross_listed_unit_cd = x_cross_listed_unit_cd
      AND      uoo_id = x_uoo_id 	and      ((l_rowid is null) or (rowid <> l_rowid))

      ;

Line: 239


      SELECT   rowid
      FROM     igs_ps_usec_x_units
      WHERE    uoo_id = x_uoo_id ;

Line: 269


    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
  /*************************************************************
  Created By :  shgeorge
  Date Created By :  10-May-2000
  Purpose :
  Know limitations, enhancements or remarks
  Change History
  Who             When            What

  (reverse chronological order - newest change first)
  ***************************************************************/

  BEGIN

    Set_Column_Values (
      p_action,
      x_rowid,
      x_unit_sec_cross_units_id,
      x_uoo_id,
      x_cross_listed_unit_cd,
      x_cross_listed_version_number,
      x_creation_date,
      x_created_by,
      x_last_update_date,
      x_last_updated_by,
      x_last_update_login
    );

Line: 300


    IF (p_action = 'INSERT') THEN
      -- Call all the procedures related to Before Insert.
      Null;

Line: 312


    ELSIF (p_action = 'UPDATE') THEN
      -- Call all the procedures related to Before Update.
      Null;

Line: 318


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

Line: 321


    ELSIF (p_action = 'VALIDATE_INSERT') THEN
	 -- Call all the procedures related to Before Insert.
      IF Get_PK_For_Validation (
    		new_references.unit_sec_cross_units_id)  THEN
	       Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');

Line: 331


    ELSIF (p_action = 'VALIDATE_UPDATE') THEN
      Check_Uniqueness;

Line: 334


    ELSIF (p_action = 'VALIDATE_DELETE') THEN
      Null;

Line: 359


    IF (p_action = 'INSERT') THEN
      -- Call all the procedures related to After Insert.
      Null;

Line: 362


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

Line: 365


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

Line: 372


 procedure INSERT_ROW (
      X_ROWID in out NOCOPY VARCHAR2,
       x_UNIT_SEC_CROSS_UNITS_ID IN OUT NOCOPY NUMBER,
       x_UOO_ID IN NUMBER,
       x_CROSS_LISTED_UNIT_CD IN VARCHAR2,
       x_CROSS_LISTED_VERSION_NUMBER IN NUMBER,
      X_MODE in VARCHAR2 default 'R'
  ) AS
  /*************************************************************
  Created By :  shgeorge
  Date Created By :  10-May-2000
  Purpose :
  Know limitations, enhancements or remarks
  Change History
  Who             When            What

  (reverse chronological order - newest change first)
  ***************************************************************/

    cursor C is select ROWID from IGS_PS_USEC_X_UNITS
             where                 UNIT_SEC_CROSS_UNITS_ID= X_UNIT_SEC_CROSS_UNITS_ID
;

Line: 394


     X_LAST_UPDATE_DATE DATE ;

Line: 395


     X_LAST_UPDATED_BY NUMBER ;

Line: 396


     X_LAST_UPDATE_LOGIN NUMBER ;

Line: 398


     X_LAST_UPDATE_DATE := SYSDATE;

Line: 400


        X_LAST_UPDATED_BY := 1;

Line: 401


        X_LAST_UPDATE_LOGIN := 0;

Line: 403


               X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 404


            if X_LAST_UPDATED_BY is NULL then
                X_LAST_UPDATED_BY := -1;

Line: 407


            X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 408


         if X_LAST_UPDATE_LOGIN is NULL then
            X_LAST_UPDATE_LOGIN := -1;

Line: 416


   SELECT
   	IGS_PS_USEC_X_UNITS_S.NextVal
   INTO
   	x_UNIT_SEC_CROSS_UNITS_ID
   FROM
   	dual;

Line: 423


 		p_action=>'INSERT',
 		x_rowid=>X_ROWID,
 	       x_unit_sec_cross_units_id=>X_UNIT_SEC_CROSS_UNITS_ID,
 	       x_uoo_id=>X_UOO_ID,
 	       x_cross_listed_unit_cd=>X_CROSS_LISTED_UNIT_CD,
 	       x_cross_listed_version_number=>X_CROSS_LISTED_VERSION_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: 434


     insert into IGS_PS_USEC_X_UNITS (
		UNIT_SEC_CROSS_UNITS_ID
		,UOO_ID
		,CROSS_LISTED_UNIT_CD
		,CROSS_LISTED_VERSION_NUMBER
	        ,CREATION_DATE
		,CREATED_BY
		,LAST_UPDATE_DATE
		,LAST_UPDATED_BY
		,LAST_UPDATE_LOGIN
        ) values  (
	        NEW_REFERENCES.UNIT_SEC_CROSS_UNITS_ID
	        ,NEW_REFERENCES.UOO_ID
	        ,NEW_REFERENCES.CROSS_LISTED_UNIT_CD
	        ,NEW_REFERENCES.CROSS_LISTED_VERSION_NUMBER
	        ,X_LAST_UPDATE_DATE
		,X_LAST_UPDATED_BY
		,X_LAST_UPDATE_DATE
		,X_LAST_UPDATED_BY
		,X_LAST_UPDATE_LOGIN
);

Line: 463


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

Line: 465


end INSERT_ROW;

Line: 483


   cursor c1 is select
      UOO_ID
,      CROSS_LISTED_UNIT_CD
,      CROSS_LISTED_VERSION_NUMBER
    from IGS_PS_USEC_X_UNITS
    where ROWID = X_ROWID
    for update nowait;

Line: 495


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

Line: 514


 Procedure UPDATE_ROW (
      X_ROWID in  VARCHAR2,
       x_UNIT_SEC_CROSS_UNITS_ID IN NUMBER,
       x_UOO_ID IN NUMBER,
       x_CROSS_LISTED_UNIT_CD IN VARCHAR2,
       x_CROSS_LISTED_VERSION_NUMBER IN NUMBER,
      X_MODE in VARCHAR2 default 'R'
  ) AS
  /*************************************************************
  Created By :  shgeorge
  Date Created By :  10-May-2000
  Purpose :
  Know limitations, enhancements or remarks
  Change History
  Who             When            What

  (reverse chronological order - newest change first)
  ***************************************************************/

     X_LAST_UPDATE_DATE DATE ;

Line: 534


     X_LAST_UPDATED_BY NUMBER ;

Line: 535


     X_LAST_UPDATE_LOGIN NUMBER ;

Line: 537


     X_LAST_UPDATE_DATE := SYSDATE;

Line: 539


        X_LAST_UPDATED_BY := 1;

Line: 540


        X_LAST_UPDATE_LOGIN := 0;

Line: 542


               X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 543


            if X_LAST_UPDATED_BY is NULL then
                X_LAST_UPDATED_BY := -1;

Line: 546


            X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 547


         if X_LAST_UPDATE_LOGIN is NULL then
            X_LAST_UPDATE_LOGIN := -1;

Line: 556


 		p_action=>'UPDATE',
 		x_rowid=>X_ROWID,
 	       x_unit_sec_cross_units_id=>X_UNIT_SEC_CROSS_UNITS_ID,
 	       x_uoo_id=>X_UOO_ID,
 	       x_cross_listed_unit_cd=>X_CROSS_LISTED_UNIT_CD,
 	       x_cross_listed_version_number=>X_CROSS_LISTED_VERSION_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: 567


   update IGS_PS_USEC_X_UNITS set
      UOO_ID =  NEW_REFERENCES.UOO_ID,
      CROSS_LISTED_UNIT_CD =  NEW_REFERENCES.CROSS_LISTED_UNIT_CD,
      CROSS_LISTED_VERSION_NUMBER =  NEW_REFERENCES.CROSS_LISTED_VERSION_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: 580


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

Line: 583


end UPDATE_ROW;

Line: 603


    cursor c1 is select ROWID from IGS_PS_USEC_X_UNITS
             where     UNIT_SEC_CROSS_UNITS_ID= X_UNIT_SEC_CROSS_UNITS_ID
;

Line: 611


    INSERT_ROW (
      X_ROWID,
       X_UNIT_SEC_CROSS_UNITS_ID,
       X_UOO_ID,
       X_CROSS_LISTED_UNIT_CD,
       X_CROSS_LISTED_VERSION_NUMBER,
      X_MODE );

Line: 621


UPDATE_ROW (
      X_ROWID,
       X_UNIT_SEC_CROSS_UNITS_ID,
       X_UOO_ID,
       X_CROSS_LISTED_UNIT_CD,
       X_CROSS_LISTED_VERSION_NUMBER,
      X_MODE );

Line: 629


procedure DELETE_ROW (
  X_ROWID in VARCHAR2
) AS
  /*************************************************************
  Created By :  shgeorge
  Date Created By :  10-May-2000
  Purpose :
  Know limitations, enhancements or remarks
  Change History
  Who             When            What

  (reverse chronological order - newest change first)
  ***************************************************************/

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

Line: 648


 delete from IGS_PS_USEC_X_UNITS
 where ROWID = X_ROWID;

Line: 654


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

Line: 657


end DELETE_ROW;