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

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

Line: 17


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

Line: 35


    IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
      Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');

Line: 49


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

Line: 56


    new_references.last_update_date := x_last_update_date;

Line: 57


    new_references.last_updated_by := x_last_updated_by;

Line: 58


    new_references.last_update_login := x_last_update_login;

Line: 68


  PROCEDURE BeforeRowInsertUpdateDelete1(
    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: 81


	ELSE -- p_inserting or p_updating
		v_course_cd := new_references.course_cd;

Line: 85


	-- Validate the insert/update/delete.
	IF  IGS_PS_VAL_CRS.crsp_val_iud_crv_dtl (
			v_course_cd,
			v_version_number,
			v_message_name) = FALSE THEN
	Fnd_Message.Set_Name('IGS', v_message_name);

Line: 96


  END BeforeRowInsertUpdateDelete1;

Line: 143


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

Line: 158


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

Line: 185


      SELECT   rowid
      FROM     IGS_PE_ALTERNATV_EXT
      WHERE    course_cd = x_course_cd
      AND      version_number = x_version_number
      AND      exit_course_cd = x_exit_course_cd
      FOR UPDATE NOWAIT;

Line: 213


      SELECT   rowid
      FROM     IGS_PE_ALTERNATV_EXT
      WHERE    exit_course_cd = x_course_cd ;

Line: 240


      SELECT   rowid
      FROM     IGS_PE_ALTERNATV_EXT
      WHERE    course_cd = x_course_cd
      AND      version_number = x_version_number ;

Line: 271


    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_version_number,
      x_exit_course_cd,
      x_exit_version_set,
      x_creation_date,
      x_created_by,
      x_last_update_date,
      x_last_updated_by,
      x_last_update_login
    );

Line: 291


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

Line: 306


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

Line: 312


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

Line: 316


 ELSIF (p_action = 'VALIDATE_INSERT') THEN
      IF  Get_PK_For_Validation (
          NEW_REFERENCES.course_cd ,
          NEW_REFERENCES.version_number ,
          NEW_REFERENCES.exit_course_cd
          ) THEN
         Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');

Line: 328


 ELSIF (p_action = 'VALIDATE_UPDATE') THEN

       Check_Constraints; -- if procedure present

Line: 332


ELSIF (p_action = 'VALIDATE_DELETE') THEN
      Check_Child_Existance; -- if procedure present

Line: 346


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

Line: 349


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

Line: 352


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

Line: 360


procedure INSERT_ROW (
  X_ROWID in out NOCOPY VARCHAR2,
  X_COURSE_CD in VARCHAR2,
  X_VERSION_NUMBER in NUMBER,
  X_EXIT_COURSE_CD in VARCHAR2,
  X_EXIT_VERSION_SET in VARCHAR2,
  X_MODE in VARCHAR2 default 'R'
  ) as
    cursor C is select ROWID from IGS_PE_ALTERNATV_EXT
      where COURSE_CD = X_COURSE_CD
      and VERSION_NUMBER = X_VERSION_NUMBER
      and EXIT_COURSE_CD = X_EXIT_COURSE_CD;

Line: 372


    X_LAST_UPDATE_DATE DATE;

Line: 373


    X_LAST_UPDATED_BY NUMBER;

Line: 374


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 376


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 378


    X_LAST_UPDATED_BY := 1;

Line: 379


    X_LAST_UPDATE_LOGIN := 0;

Line: 381


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 382


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 385


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 386


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 395


 p_action=>'INSERT',
 x_rowid=>X_ROWID,
 x_course_cd=>X_COURSE_CD,
 x_exit_course_cd=>X_EXIT_COURSE_CD,
 x_exit_version_set=>X_EXIT_VERSION_SET,
 x_version_number=>X_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: 407


  insert into IGS_PE_ALTERNATV_EXT (
    COURSE_CD,
    VERSION_NUMBER,
    EXIT_COURSE_CD,
    EXIT_VERSION_SET,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN
  ) values (
    NEW_REFERENCES.COURSE_CD,
    NEW_REFERENCES.VERSION_NUMBER,
    NEW_REFERENCES.EXIT_COURSE_CD,
    NEW_REFERENCES.EXIT_VERSION_SET,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN
  );

Line: 437


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

Line: 441


end INSERT_ROW;

Line: 450


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

Line: 461


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

Line: 481


procedure UPDATE_ROW (
  X_ROWID in VARCHAR2,
  X_COURSE_CD in VARCHAR2,
  X_VERSION_NUMBER in NUMBER,
  X_EXIT_COURSE_CD in VARCHAR2,
  X_EXIT_VERSION_SET in VARCHAR2,
  X_MODE in VARCHAR2 default 'R'
  ) as
    X_LAST_UPDATE_DATE DATE;

Line: 490


    X_LAST_UPDATED_BY NUMBER;

Line: 491


    X_LAST_UPDATE_LOGIN NUMBER;

Line: 493


  X_LAST_UPDATE_DATE := SYSDATE;

Line: 495


    X_LAST_UPDATED_BY := 1;

Line: 496


    X_LAST_UPDATE_LOGIN := 0;

Line: 498


    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;

Line: 499


    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;

Line: 502


    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;

Line: 503


    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;

Line: 512


 p_action=>'UPDATE',
 x_rowid=>X_ROWID,
 x_course_cd=>X_COURSE_CD,
 x_exit_course_cd=>X_EXIT_COURSE_CD,
 x_exit_version_set=>X_EXIT_VERSION_SET,
 x_version_number=>X_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: 524


  update IGS_PE_ALTERNATV_EXT set
    EXIT_VERSION_SET = NEW_REFERENCES.EXIT_VERSION_SET,
    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: 536


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

Line: 540


end UPDATE_ROW;

Line: 550


  cursor c1 is select rowid from IGS_PE_ALTERNATV_EXT
     where COURSE_CD = X_COURSE_CD
     and VERSION_NUMBER = X_VERSION_NUMBER
     and EXIT_COURSE_CD = X_EXIT_COURSE_CD
  ;

Line: 561


    INSERT_ROW (
     X_ROWID,
     X_COURSE_CD,
     X_VERSION_NUMBER,
     X_EXIT_COURSE_CD,
     X_EXIT_VERSION_SET,
     X_MODE);

Line: 571


  UPDATE_ROW (
   X_ROWID,
   X_COURSE_CD,
   X_VERSION_NUMBER,
   X_EXIT_COURSE_CD,
   X_EXIT_VERSION_SET,
   X_MODE);

Line: 580


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

Line: 589


  delete from IGS_PE_ALTERNATV_EXT
  where ROWID = X_ROWID;

Line: 596


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

Line: 601


end DELETE_ROW;