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

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

Line: 22


    x_last_update_date IN DATE ,
    x_last_updated_by IN NUMBER ,
    x_last_update_login IN NUMBER ,
    X_CORE_IND IN VARCHAR2
  ) AS

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

Line: 41


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

Line: 43


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

Line: 62


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

Line: 69


    new_references.last_update_date := x_last_update_date;

Line: 70


    new_references.last_updated_by := x_last_updated_by;

Line: 71


    new_references.last_update_login := x_last_update_login;

Line: 75


  PROCEDURE BeforeRowInsertUpdateDelete1(
    p_inserting IN BOOLEAN,
    p_updating IN BOOLEAN,
    p_deleting IN BOOLEAN
    ) AS
	v_message_name		VARCHAR2(30);

Line: 82


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

Line: 102


	-- Validate the insert/update
	IF p_inserting OR p_updating THEN
		-- Validate the UnitCode
		IF (new_references.unit_cd IS NOT NULL AND (p_inserting OR
		   (p_updating AND new_references.unit_cd <> old_references.unit_cd))) THEN
			IF IGS_PS_VAL_POSu.crsp_val_uv_active (
					new_references.unit_cd,
					v_message_name) = FALSE THEN
						Fnd_Message.Set_Name('IGS', v_message_name);

Line: 116


		IF (new_references.unit_location_cd IS NOT NULL AND (p_inserting OR
		   (p_updating AND new_references.unit_location_cd <> old_references.unit_location_cd))) THEN

		   -- As part of the bug# 1956374 changed to the below call from IGS_PS_VAL_POSu.crsp_val_loc_cd
			IF IGS_PS_VAL_UOO.crsp_val_loc_cd (
					new_references.unit_location_cd,
					v_message_name) = FALSE THEN
						Fnd_Message.Set_Name('IGS', v_message_name);

Line: 129


		IF (new_references.unit_class IS NOT NULL AND (p_inserting OR
		   (p_updating AND new_references.unit_class<> old_references.unit_class))) THEN
		   -- As part of the bug# 1956374 changed to the below call from IGS_PS_VAL_POSu.crsp_val_ucl_closed
			IF IGS_AS_VAL_UAI.crsp_val_ucl_closed (
					new_references.unit_class,
					v_message_name) = FALSE THEN
						Fnd_Message.Set_Name('IGS', v_message_name);

Line: 154


  END BeforeRowInsertUpdateDelete1;

Line: 156


  PROCEDURE AfterRowInsertUpdate2(
    p_inserting IN BOOLEAN,
    p_updating IN BOOLEAN,
    p_deleting IN BOOLEAN
    ) AS
	v_message_name	VARCHAR2(30);

Line: 186


  END AfterRowInsertUpdate2;

Line: 323


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

Line: 348


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

Line: 361


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

Line: 374


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

Line: 391


      SELECT   rowid
      FROM     IGS_PS_PAT_STUDY_UNT
      WHERE    course_cd = x_course_cd
      AND      version_number = x_version_number
      AND      cal_type = x_cal_type
      AND      pos_sequence_number = x_pos_sequence_number
      AND      posp_sequence_number = x_posp_sequence_number
      AND      sequence_number = x_sequence_number
      FOR UPDATE NOWAIT;

Line: 421


      SELECT   rowid
      FROM     IGS_PS_PAT_STUDY_UNT
      WHERE    unit_location_cd = x_location_cd ;

Line: 451


      SELECT   rowid
      FROM     IGS_PS_PAT_STUDY_UNT
      WHERE    course_cd = x_course_cd
      AND      version_number = x_version_number
      AND      cal_type = x_cal_type
      AND      pos_sequence_number = x_pos_sequence_number
      AND      posp_sequence_number = x_sequence_number ;

Line: 481


      SELECT   rowid
      FROM     IGS_PS_PAT_STUDY_UNT
      WHERE    unit_cd = x_unit_cd ;

Line: 517


    x_last_update_date IN DATE ,
    x_last_updated_by IN NUMBER ,
    x_last_update_login IN NUMBER ,
    x_core_ind IN VARCHAR2
  ) AS
  BEGIN

    Set_Column_Values (
      p_action,
      x_rowid,
      x_course_cd,
      x_version_number,
      x_cal_type,
      x_pos_sequence_number,
      x_posp_sequence_number,
      x_sequence_number,
      x_unit_cd,
      x_unit_location_cd,
      x_unit_class,
      x_description,
      x_creation_date,
      x_created_by,
      x_last_update_date,
      x_last_updated_by,
      x_last_update_login,
	  x_core_ind
    );

Line: 545


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

Line: 564


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

Line: 571


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

Line: 576


 ELSIF (p_action = 'VALIDATE_INSERT') THEN
      IF  Get_PK_For_Validation (
		    new_references.course_cd,
		    new_references.version_number,
		    new_references.cal_type,
		    new_references.pos_sequence_number,
		    new_references.posp_sequence_number,
		    new_references.sequence_number
			 ) THEN
         Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');

Line: 590


 ELSIF (p_action = 'VALIDATE_UPDATE') THEN
       Check_Constraints;

Line: 604


    IF (p_action = 'INSERT') THEN
      -- Call all the procedures related to After Insert.
      AfterRowInsertUpdate2 ( p_inserting => TRUE,
	                          p_updating => FALSE,
							  p_deleting => FALSE );

Line: 609


    ELSIF (p_action = 'UPDATE') THEN
      -- Call all the procedures related to After Update.
      AfterRowInsertUpdate2 ( p_updating => TRUE,
	                          p_inserting => FALSE,
							  p_deleting => FALSE );

Line: 619


procedure INSERT_ROW (
  X_ROWID in out NOCOPY VARCHAR2,
  X_COURSE_CD in VARCHAR2,
  X_VERSION_NUMBER in NUMBER,
  X_POS_SEQUENCE_NUMBER in NUMBER,
  X_SEQUENCE_NUMBER in NUMBER,
  X_POSP_SEQUENCE_NUMBER in NUMBER,
  X_CAL_TYPE in VARCHAR2,
  X_UNIT_CD in VARCHAR2,
  X_UNIT_LOCATION_CD in VARCHAR2,
  X_UNIT_CLASS in VARCHAR2,
  X_DESCRIPTION in VARCHAR2,
  X_MODE in VARCHAR2,
  X_CORE_IND IN VARCHAR2
  ) as
    cursor C is select ROWID from IGS_PS_PAT_STUDY_UNT
      where COURSE_CD = X_COURSE_CD
      and VERSION_NUMBER = X_VERSION_NUMBER
      and POS_SEQUENCE_NUMBER = X_POS_SEQUENCE_NUMBER
      and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER
      and POSP_SEQUENCE_NUMBER = X_POSP_SEQUENCE_NUMBER
      and CAL_TYPE = X_CAL_TYPE;

Line: 641


    X_LAST_UPDATE_DATE DATE;

Line: 642


    X_LAST_UPDATED_BY NUMBER;

Line: 643


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 645


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 647


    X_LAST_UPDATED_BY := 1;

Line: 648


    X_LAST_UPDATE_LOGIN := 0;

Line: 650


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 651


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 654


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 655


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 664


   Before_DML( p_action => 'INSERT',
    x_rowid => X_ROWID,
    x_course_cd => X_COURSE_CD,
    x_version_number => X_VERSION_NUMBER,
    x_cal_type => X_CAL_TYPE,
    x_pos_sequence_number => X_POS_SEQUENCE_NUMBER,
    x_posp_sequence_number => X_POSP_SEQUENCE_NUMBER,
    x_sequence_number => X_SEQUENCE_NUMBER,
    x_unit_cd => X_UNIT_CD,
    x_unit_location_cd => X_UNIT_LOCATION_CD,
    x_unit_class => X_UNIT_CLASS,
    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,
	x_core_ind => NVL(X_CORE_IND,'N')
  );

Line: 683


  insert into IGS_PS_PAT_STUDY_UNT (
    COURSE_CD,
    VERSION_NUMBER,
    CAL_TYPE,
    POS_SEQUENCE_NUMBER,
    POSP_SEQUENCE_NUMBER,
    SEQUENCE_NUMBER,
    UNIT_CD,
    UNIT_LOCATION_CD,
    UNIT_CLASS,
    DESCRIPTION,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN,
	CORE_IND
  ) values (
    NEW_REFERENCES.COURSE_CD,
    NEW_REFERENCES.VERSION_NUMBER,
    NEW_REFERENCES.CAL_TYPE,
    NEW_REFERENCES.POS_SEQUENCE_NUMBER,
    NEW_REFERENCES.POSP_SEQUENCE_NUMBER,
    NEW_REFERENCES.SEQUENCE_NUMBER,
    NEW_REFERENCES.UNIT_CD,
    NEW_REFERENCES.UNIT_LOCATION_CD,
    NEW_REFERENCES.UNIT_CLASS,
    NEW_REFERENCES.DESCRIPTION,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN,
	NEW_REFERENCES.CORE_IND
  );

Line: 727


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

Line: 730


end INSERT_ROW;

Line: 746


  cursor c1 is select
      UNIT_CD,
      UNIT_LOCATION_CD,
      UNIT_CLASS,
      DESCRIPTION,
	  CORE_IND
    from IGS_PS_PAT_STUDY_UNT
    where ROWID = X_ROWID for update nowait;

Line: 761


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

Line: 793


procedure UPDATE_ROW (
  X_ROWID in VARCHAR2,
  X_COURSE_CD in VARCHAR2,
  X_VERSION_NUMBER in NUMBER,
  X_POS_SEQUENCE_NUMBER in NUMBER,
  X_SEQUENCE_NUMBER in NUMBER,
  X_POSP_SEQUENCE_NUMBER in NUMBER,
  X_CAL_TYPE in VARCHAR2,
  X_UNIT_CD in VARCHAR2,
  X_UNIT_LOCATION_CD in VARCHAR2,
  X_UNIT_CLASS in VARCHAR2,
  X_DESCRIPTION in VARCHAR2,
  X_MODE in VARCHAR2,
  X_CORE_IND IN VARCHAR2
  ) as
    X_LAST_UPDATE_DATE DATE;

Line: 809


    X_LAST_UPDATED_BY NUMBER;

Line: 810


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 812


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 814


    X_LAST_UPDATED_BY := 1;

Line: 815


    X_LAST_UPDATE_LOGIN := 0;

Line: 817


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 818


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 821


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 822


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 831


   Before_DML( p_action => 'UPDATE',
    x_rowid => X_ROWID,
    x_course_cd => X_COURSE_CD,
    x_version_number => X_VERSION_NUMBER,
    x_cal_type => X_CAL_TYPE,
    x_pos_sequence_number => X_POS_SEQUENCE_NUMBER,
    x_posp_sequence_number => X_POSP_SEQUENCE_NUMBER,
    x_sequence_number => X_SEQUENCE_NUMBER,
    x_unit_cd => X_UNIT_CD,
    x_unit_location_cd => X_UNIT_LOCATION_CD,
    x_unit_class => X_UNIT_CLASS,
    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,
	x_core_ind => NVL(X_CORE_IND,'N')
  );

Line: 851


  update IGS_PS_PAT_STUDY_UNT set
    UNIT_CD = NEW_REFERENCES.UNIT_CD,
    UNIT_LOCATION_CD = NEW_REFERENCES.UNIT_LOCATION_CD,
    UNIT_CLASS = NEW_REFERENCES.UNIT_CLASS,
    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,
	CORE_IND = new_references.CORE_IND
  where ROWID = X_ROWID
  ;

Line: 866


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

Line: 869


end UPDATE_ROW;

Line: 886


  cursor c1 is select rowid from IGS_PS_PAT_STUDY_UNT
     where COURSE_CD = X_COURSE_CD
     and VERSION_NUMBER = X_VERSION_NUMBER
     and POS_SEQUENCE_NUMBER = X_POS_SEQUENCE_NUMBER
     and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER
     and POSP_SEQUENCE_NUMBER = X_POSP_SEQUENCE_NUMBER
     and CAL_TYPE = X_CAL_TYPE
  ;

Line: 899


    INSERT_ROW (
     X_ROWID,
     X_COURSE_CD,
     X_VERSION_NUMBER,
     X_POS_SEQUENCE_NUMBER,
     X_SEQUENCE_NUMBER,
     X_POSP_SEQUENCE_NUMBER,
     X_CAL_TYPE,
     X_UNIT_CD,
     X_UNIT_LOCATION_CD,
     X_UNIT_CLASS,
     X_DESCRIPTION,
     X_MODE,
	 X_CORE_IND);

Line: 916


  UPDATE_ROW (
   X_ROWID,
   X_COURSE_CD,
   X_VERSION_NUMBER,
   X_POS_SEQUENCE_NUMBER,
   X_SEQUENCE_NUMBER,
   X_POSP_SEQUENCE_NUMBER,
   X_CAL_TYPE,
   X_UNIT_CD,
   X_UNIT_LOCATION_CD,
   X_UNIT_CLASS,
   X_DESCRIPTION,
   X_MODE,
   X_CORE_IND);

Line: 932


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

Line: 939


  delete from IGS_PS_PAT_STUDY_UNT
  where ROWID = X_ROWID;

Line: 945


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

Line: 949


end DELETE_ROW;