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

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

Line: 20


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

Line: 38


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

Line: 40


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

Line: 55


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

Line: 62


    new_references.last_update_date := x_last_update_date;

Line: 63


    new_references.last_updated_by := x_last_updated_by;

Line: 64


    new_references.last_update_login := x_last_update_login;

Line: 68


  PROCEDURE BeforeRowInsert1(
    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: 75


	-- Validate that inserts
	IF  p_inserting THEN
		-- 
		-- Can only create superior against ACTIVE or PLANNED IGS_PS_UNIT sets
		IF  IGS_PS_VAL_COusr.crsp_val_iud_us_dtl (
						new_references.sup_unit_set_cd,
						new_references.sup_us_version_number,
						v_message_name) = FALSE THEN
			FND_MESSAGE.SET_NAME('IGS',v_message_name);

Line: 127


  END BeforeRowInsert1;

Line: 129


  PROCEDURE AfterRowInsert2(
    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: 151


  END AfterRowInsert2;

Line: 233


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

Line: 259


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

Line: 278


      SELECT   rowid
      FROM     IGS_PS_OF_UNT_SET_RL
      WHERE    course_cd = x_course_cd
      AND      crv_version_number = x_crv_version_number
      AND      cal_type = x_cal_type
      AND      sup_unit_set_cd = x_sup_unit_set_cd
      AND      sup_us_version_number = x_sup_us_version_number
      AND      sub_unit_set_cd = x_sub_unit_set_cd
      AND      sub_us_version_number = x_sub_us_version_number
      FOR UPDATE NOWAIT;

Line: 313


      SELECT   rowid
      FROM     IGS_PS_OF_UNT_SET_RL
      WHERE    (course_cd = x_course_cd
      AND      crv_version_number = x_crv_version_number
      AND      cal_type = x_cal_type
      AND      sub_unit_set_cd = x_unit_set_cd
      AND      sub_us_version_number = x_us_version_number)
	OR       (course_cd = x_course_cd
      AND      crv_version_number = x_crv_version_number
      AND      cal_type = x_cal_type
      AND      sup_unit_set_cd = x_unit_set_cd
      AND      sup_us_version_number = x_us_version_number);

Line: 354


    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_course_cd,
      x_crv_version_number,
      x_cal_type,
      x_sup_unit_set_cd,
      x_sup_us_version_number,
      x_sub_unit_set_cd,
      x_sub_us_version_number,
      x_creation_date,
      x_created_by,
      x_last_update_date,
      x_last_updated_by,
      x_last_update_login
    );

Line: 377


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

Line: 395


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

Line: 400


 ELSIF (p_action = 'VALIDATE_INSERT') THEN
      IF  Get_PK_For_Validation (
	    new_references.course_cd,
	    new_references.crv_version_number,
    	    new_references.cal_type,
    	    new_references.sup_unit_set_cd,
 	    new_references.sup_us_version_number,
    	    new_references.sub_unit_set_cd,
    	    new_references.sub_us_version_number
           ) THEN
         Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');

Line: 415


 ELSIF (p_action = 'VALIDATE_UPDATE') THEN
       Check_Constraints;

Line: 428


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

Line: 436


procedure INSERT_ROW (
  X_ROWID in out NOCOPY VARCHAR2,
  X_COURSE_CD in VARCHAR2,
  X_CRV_VERSION_NUMBER in NUMBER,
  X_SUP_US_VERSION_NUMBER in NUMBER,
  X_SUB_UNIT_SET_CD in VARCHAR2,
  X_SUP_UNIT_SET_CD in VARCHAR2,
  X_CAL_TYPE in VARCHAR2,
  X_SUB_US_VERSION_NUMBER in NUMBER,
  X_MODE in VARCHAR2 default 'R'
  ) AS
    cursor C is select ROWID from IGS_PS_OF_UNT_SET_RL
      where COURSE_CD = X_COURSE_CD
      and CRV_VERSION_NUMBER = X_CRV_VERSION_NUMBER
      and SUP_US_VERSION_NUMBER = X_SUP_US_VERSION_NUMBER
      and SUB_UNIT_SET_CD = X_SUB_UNIT_SET_CD
      and SUP_UNIT_SET_CD = X_SUP_UNIT_SET_CD
      and CAL_TYPE = X_CAL_TYPE
      and SUB_US_VERSION_NUMBER = X_SUB_US_VERSION_NUMBER;

Line: 455


    X_LAST_UPDATE_DATE DATE;

Line: 456


    X_LAST_UPDATED_BY NUMBER;

Line: 457


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 459


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 461


    X_LAST_UPDATED_BY := 1;

Line: 462


    X_LAST_UPDATE_LOGIN := 0;

Line: 464


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 465


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 468


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 469


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 478


 Before_DML( p_action => 'INSERT',
    x_rowid => X_ROWID,
    x_course_cd => X_COURSE_CD,
    x_crv_version_number => X_CRV_VERSION_NUMBER,
    x_cal_type => X_CAL_TYPE,
    x_sup_unit_set_cd => X_SUP_UNIT_SET_CD,
    x_sup_us_version_number => X_SUP_US_VERSION_NUMBER,
    x_sub_unit_set_cd => X_SUB_UNIT_SET_CD,
    x_sub_us_version_number => X_SUB_US_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: 494


  insert into IGS_PS_OF_UNT_SET_RL (
    COURSE_CD,
    CRV_VERSION_NUMBER,
    CAL_TYPE,
    SUP_UNIT_SET_CD,
    SUP_US_VERSION_NUMBER,
    SUB_UNIT_SET_CD,
    SUB_US_VERSION_NUMBER,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN
  ) values (
    NEW_REFERENCES.COURSE_CD,
    NEW_REFERENCES.CRV_VERSION_NUMBER,
    NEW_REFERENCES.CAL_TYPE,
    NEW_REFERENCES.SUP_UNIT_SET_CD,
    NEW_REFERENCES.SUP_US_VERSION_NUMBER,
    NEW_REFERENCES.SUB_UNIT_SET_CD,
    NEW_REFERENCES.SUB_US_VERSION_NUMBER,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN
  );

Line: 531


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

Line: 536


end INSERT_ROW;

Line: 548


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

Line: 558


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

Line: 567


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

Line: 574


  delete from IGS_PS_OF_UNT_SET_RL
  where ROWID = X_ROWID;

Line: 580


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

Line: 584


end DELETE_ROW;