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

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

Line: 21


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

Line: 39


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

Line: 41


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

Line: 57


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

Line: 64


    new_references.last_update_date := x_last_update_date;

Line: 65


    new_references.last_updated_by := x_last_updated_by;

Line: 66


    new_references.last_update_login := x_last_update_login;

Line: 76


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


	-- Validate that inserts
	IF  p_inserting THEN
		-- 
		-- Can only create against ACTIVE or PLANNED IGS_PS_COURSE versions
		IF  IGS_PS_VAL_CRS.crsp_val_iud_crv_dtl (
						new_references.course_cd,
						new_references.crv_version_number,
						v_message_name) = FALSE THEN
		Fnd_Message.Set_Name('IGS',v_message_name);

Line: 106


	-- Validate that inserts/updates are allowed
	IF  p_inserting OR p_updating THEN
		-- 
		-- Can only link to courses which do not breach the IGS_PS_COURSE type restrictions
		IF  IGS_PS_VAL_COus.crsp_val_cous_usctv (
						new_references.course_cd,
						new_references.crv_version_number,
						new_references.unit_set_cd,
						new_references.us_version_number,
						v_message_name) = FALSE THEN
		Fnd_Message.Set_Name('IGS',v_message_name);

Line: 138


  END BeforeRowInsertUpdate1;

Line: 228


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

Line: 244


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

Line: 341


      SELECT   rowid
      FROM     IGS_PS_OFR_UNIT_SET
      WHERE    course_cd = x_course_cd
      AND      crv_version_number = x_crv_version_number
      AND      cal_type = x_cal_type
      AND      unit_set_cd = x_unit_set_cd
      AND      us_version_number = x_us_version_number
      FOR UPDATE NOWAIT;

Line: 373


      SELECT   rowid
      FROM     IGS_PS_OFR_UNIT_SET
      WHERE    course_cd = x_course_cd
      AND      crv_version_number = x_version_number
      AND      cal_type = x_cal_type ;

Line: 402


      SELECT   rowid
      FROM     IGS_PS_OFR_UNIT_SET
      WHERE    unit_set_cd = x_unit_set_cd
      AND      us_version_number = x_version_number ;

Line: 437


    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_unit_set_cd,
      x_us_version_number,
      x_override_title,
      x_only_as_sub_ind,
      x_show_on_official_ntfctn_ind,
      x_creation_date,
      x_created_by,
      x_last_update_date,
      x_last_updated_by,
      x_last_update_login
    );

Line: 461


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

Line: 477


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

Line: 482


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

Line: 486


    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.unit_set_cd ,
    		new_references.us_version_number
	) THEN
	Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');

Line: 499


    ELSIF (p_action = 'VALIDATE_UPDATE') THEN
	Check_Constraints;

Line: 501


   ELSIF (p_action = 'VALIDATE_DELETE') THEN
      Check_Child_Existance;

Line: 519


procedure INSERT_ROW (
  X_ROWID in out NOCOPY VARCHAR2,
  X_COURSE_CD in VARCHAR2,
  X_CRV_VERSION_NUMBER in NUMBER,
  X_CAL_TYPE in VARCHAR2,
  X_UNIT_SET_CD in VARCHAR2,
  X_US_VERSION_NUMBER in NUMBER,
  X_OVERRIDE_TITLE in VARCHAR2,
  X_ONLY_AS_SUB_IND in VARCHAR2,
  X_SHOW_ON_OFFICIAL_NTFCTN_IND in VARCHAR2,
  X_MODE in VARCHAR2 default 'R'
  ) AS
    cursor C is select ROWID from IGS_PS_OFR_UNIT_SET
      where COURSE_CD = X_COURSE_CD
      and CRV_VERSION_NUMBER = X_CRV_VERSION_NUMBER
      and CAL_TYPE = X_CAL_TYPE
      and UNIT_SET_CD = X_UNIT_SET_CD
      and US_VERSION_NUMBER = X_US_VERSION_NUMBER;

Line: 537


    X_LAST_UPDATE_DATE DATE;

Line: 538


    X_LAST_UPDATED_BY NUMBER;

Line: 539


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 541


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 543


    X_LAST_UPDATED_BY := 1;

Line: 544


    X_LAST_UPDATE_LOGIN := 0;

Line: 546


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 547


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 550


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 551


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 560


    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_unit_set_cd => X_UNIT_SET_CD,
    x_us_version_number => X_US_VERSION_NUMBER,
    x_override_title => X_OVERRIDE_TITLE,
    x_only_as_sub_ind => NVL(X_ONLY_AS_SUB_IND,'N'),
    x_show_on_official_ntfctn_ind => NVL(X_SHOW_ON_OFFICIAL_NTFCTN_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: 577


  insert into IGS_PS_OFR_UNIT_SET (
    COURSE_CD,
    CRV_VERSION_NUMBER,
    CAL_TYPE,
    UNIT_SET_CD,
    US_VERSION_NUMBER,
    OVERRIDE_TITLE,
    ONLY_AS_SUB_IND,
    SHOW_ON_OFFICIAL_NTFCTN_IND,
    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.UNIT_SET_CD,
    NEW_REFERENCES.US_VERSION_NUMBER,
    NEW_REFERENCES.OVERRIDE_TITLE,
    NEW_REFERENCES.ONLY_AS_SUB_IND,
    NEW_REFERENCES.SHOW_ON_OFFICIAL_NTFCTN_IND,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN
  );

Line: 615


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

Line: 618


end INSERT_ROW;

Line: 631


  cursor c1 is select
      OVERRIDE_TITLE,
      ONLY_AS_SUB_IND,
      SHOW_ON_OFFICIAL_NTFCTN_IND
    from IGS_PS_OFR_UNIT_SET
    where ROWID = X_ROWID
    for update nowait;

Line: 645


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

Line: 667


procedure UPDATE_ROW (
  X_ROWID IN VARCHAR2,
  X_COURSE_CD in VARCHAR2,
  X_CRV_VERSION_NUMBER in NUMBER,
  X_CAL_TYPE in VARCHAR2,
  X_UNIT_SET_CD in VARCHAR2,
  X_US_VERSION_NUMBER in NUMBER,
  X_OVERRIDE_TITLE in VARCHAR2,
  X_ONLY_AS_SUB_IND in VARCHAR2,
  X_SHOW_ON_OFFICIAL_NTFCTN_IND in VARCHAR2,
  X_MODE in VARCHAR2 default 'R'
  ) AS
    X_LAST_UPDATE_DATE DATE;

Line: 680


    X_LAST_UPDATED_BY NUMBER;

Line: 681


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 683


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 685


    X_LAST_UPDATED_BY := 1;

Line: 686


    X_LAST_UPDATE_LOGIN := 0;

Line: 688


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 689


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 692


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 693


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 702


    p_action => 'UPDATE',
    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_unit_set_cd => X_UNIT_SET_CD,
    x_us_version_number => X_US_VERSION_NUMBER,
    x_override_title => X_OVERRIDE_TITLE,
    x_only_as_sub_ind => X_ONLY_AS_SUB_IND,
    x_show_on_official_ntfctn_ind => X_SHOW_ON_OFFICIAL_NTFCTN_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: 718


  update IGS_PS_OFR_UNIT_SET set
    OVERRIDE_TITLE = NEW_REFERENCES.OVERRIDE_TITLE,
    ONLY_AS_SUB_IND = NEW_REFERENCES.ONLY_AS_SUB_IND,
    SHOW_ON_OFFICIAL_NTFCTN_IND = NEW_REFERENCES.SHOW_ON_OFFICIAL_NTFCTN_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: 731


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

Line: 734


end UPDATE_ROW;

Line: 748


  cursor c1 is select rowid from IGS_PS_OFR_UNIT_SET
     where COURSE_CD = X_COURSE_CD
     and CRV_VERSION_NUMBER = X_CRV_VERSION_NUMBER
     and CAL_TYPE = X_CAL_TYPE
     and UNIT_SET_CD = X_UNIT_SET_CD
     and US_VERSION_NUMBER = X_US_VERSION_NUMBER
  ;

Line: 760


    INSERT_ROW (
     X_ROWID,
     X_COURSE_CD,
     X_CRV_VERSION_NUMBER,
     X_CAL_TYPE,
     X_UNIT_SET_CD,
     X_US_VERSION_NUMBER,
     X_OVERRIDE_TITLE,
     X_ONLY_AS_SUB_IND,
     X_SHOW_ON_OFFICIAL_NTFCTN_IND,
     X_MODE);

Line: 774


  UPDATE_ROW (
   X_ROWID,
   X_COURSE_CD,
   X_CRV_VERSION_NUMBER,
   X_CAL_TYPE,
   X_UNIT_SET_CD,
   X_US_VERSION_NUMBER,
   X_OVERRIDE_TITLE,
   X_ONLY_AS_SUB_IND,
   X_SHOW_ON_OFFICIAL_NTFCTN_IND,
   X_MODE);

Line: 787


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

Line: 795


  delete from IGS_PS_OFR_UNIT_SET
    where ROWID = X_ROWID;

Line: 801


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

Line: 804


end DELETE_ROW;