DBA Data[Home] [Help]

APPS.IGS_PS_ANL_LOAD_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_ANL_LOAD
      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: 54

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

    new_references.last_update_date := x_last_update_date;
Line: 62

    new_references.last_updated_by := x_last_updated_by;
Line: 63

    new_references.last_update_login := x_last_update_login;
Line: 96

  SELECT 'X'
  FROM   igs_ps_anl_load
  WHERE  course_cd=cp_course_cd
  AND    version_number=cp_version_number
  AND    yr_num = cp_yr_num
  AND    cp_start_dt >= effective_start_dt AND cp_start_dt <= NVL(effective_end_dt,cp_start_dt)
  AND    (rowid <> cp_row_id  OR (cp_row_id IS NULL));
Line: 110

  SELECT 'X'
  FROM   igs_ps_anl_load
  WHERE  course_cd=cp_course_cd
  AND    version_number=cp_version_number
  AND    yr_num = cp_yr_num
  AND    (cp_end_dt >= effective_start_dt OR (cp_end_dt IS NULL)) AND cp_start_dt <= effective_start_dt
  AND    (rowid <> cp_row_id OR (cp_row_id IS NULL));
Line: 146

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

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

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

	IF p_inserting OR p_updating THEN
		-- Because start date is part of the key it will be set and
		-- is not updateable, so only need to check the end date.
		IF ( new_references.effective_end_dt IS NOT NULL AND
			(NVL(substr(new_references.effective_end_dt,1,10),'1990/01/01') <>
			 NVL(substr(old_references.effective_end_dt,1,10),'1900/01/01'))) THEN
			IF igs_ad_val_edtl.genp_val_strt_end_dt (
					new_references.effective_start_dt,
					new_references.effective_end_dt,
					v_message_name) = FALSE THEN
				Fnd_Message.Set_Name('IGS',v_message_name);
Line: 191

  END BeforeRowInsertUpdateDelete1;
Line: 199

  PROCEDURE AfterRowInsertUpdate2(
    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: 223

  END AfterRowInsertUpdate2;
Line: 283

	        Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
Line: 312

      SELECT   rowid
      FROM     IGS_PS_ANL_LOAD
      WHERE    course_cd = x_course_cd
      AND      version_number = x_version_number
      AND      yr_num = x_yr_num
      AND      effective_start_dt = x_effective_start_dt
      FOR UPDATE NOWAIT;
Line: 342

      SELECT   rowid
      FROM     IGS_PS_ANL_LOAD
      WHERE    course_cd = x_course_cd
      AND      version_number = x_version_number ;
Line: 375

    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_yr_num,
      x_effective_start_dt,
      x_effective_end_dt,
      x_annual_load_val,
      x_creation_date,
      x_created_by,
      x_last_update_date,
      x_last_updated_by,
      x_last_update_login
    );
Line: 398

    IF p_action IN ( 'INSERT', 'VALIDATE_INSERT','UPDATE','VALIDATE_UPDATE') THEN
      IF NOT validate_overlapping(x_course_cd , x_version_number,x_yr_num ,
                                 x_effective_start_dt  , x_effective_end_dt,x_rowid  )   THEN
        fnd_message.set_name('IGS','IGS_PS_OVERLAP_PERIODS');
Line: 408

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

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

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

    ELSIF (p_action = 'VALIDATE_INSERT') THEN
	IF  Get_PK_For_Validation (
      new_references.course_cd,
      new_references.version_number,
      new_references.yr_num,
      new_references.effective_start_dt) THEN
	    Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
Line: 442

    ELSIF (p_action = 'VALIDATE_UPDATE') THEN
	Check_Constraints;
Line: 444

    ELSIF (p_action = 'VALIDATE_DELETE') THEN
	Check_Child_Existance;
Line: 460

procedure INSERT_ROW (
  X_ROWID in out NOCOPY VARCHAR2,
  X_VERSION_NUMBER in NUMBER,
  X_COURSE_CD in VARCHAR2,
  X_YR_NUM in NUMBER,
  X_EFFECTIVE_START_DT in DATE,
  X_EFFECTIVE_END_DT in DATE,
  X_ANNUAL_LOAD_VAL in NUMBER,
  X_MODE in VARCHAR2 default 'R'
  ) AS
    cursor C is select ROWID from IGS_PS_ANL_LOAD
      where VERSION_NUMBER = X_VERSION_NUMBER
      and COURSE_CD = X_COURSE_CD
      and YR_NUM = X_YR_NUM
      and EFFECTIVE_START_DT = X_EFFECTIVE_START_DT;
Line: 475

    X_LAST_UPDATE_DATE DATE;
Line: 476

    X_LAST_UPDATED_BY NUMBER;
Line: 477

    X_LAST_UPDATE_LOGIN NUMBER;
Line: 479

  X_LAST_UPDATE_DATE := SYSDATE;
Line: 481

    X_LAST_UPDATED_BY := 1;
Line: 482

    X_LAST_UPDATE_LOGIN := 0;
Line: 484

    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
Line: 485

    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;
Line: 488

    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
Line: 489

    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;
Line: 499

    p_action => 'INSERT',
    x_rowid => X_ROWID,
    x_course_cd => X_COURSE_CD,
    x_version_number => X_VERSION_NUMBER,
    x_yr_num => X_YR_NUM,
    x_effective_start_dt => X_EFFECTIVE_START_DT,
    x_effective_end_dt => X_EFFECTIVE_END_DT ,
    x_annual_load_val => X_ANNUAL_LOAD_VAL ,
    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: 514

  insert into IGS_PS_ANL_LOAD (
    VERSION_NUMBER,
    COURSE_CD,
    YR_NUM,
    EFFECTIVE_START_DT,
    EFFECTIVE_END_DT,
    ANNUAL_LOAD_VAL,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN
  ) values (
    NEW_REFERENCES.VERSION_NUMBER,
    NEW_REFERENCES.COURSE_CD,
    NEW_REFERENCES.YR_NUM,
    NEW_REFERENCES.EFFECTIVE_START_DT,
    NEW_REFERENCES.EFFECTIVE_END_DT,
    NEW_REFERENCES.ANNUAL_LOAD_VAL,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN
  );
Line: 549

	p_action => 'INSERT',
	x_rowid => X_ROWID
);
Line: 553

end INSERT_ROW;
Line: 564

  cursor c1 is select
      EFFECTIVE_END_DT,
      ANNUAL_LOAD_VAL
    from IGS_PS_ANL_LOAD
    where ROWID = X_ROWID
    for update nowait;
Line: 577

    fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
Line: 598

procedure UPDATE_ROW (
  X_ROWID IN VARCHAR2,
  X_VERSION_NUMBER in NUMBER,
  X_COURSE_CD in VARCHAR2,
  X_YR_NUM in NUMBER,
  X_EFFECTIVE_START_DT in DATE,
  X_EFFECTIVE_END_DT in DATE,
  X_ANNUAL_LOAD_VAL in NUMBER,
  X_MODE in VARCHAR2 default 'R'
  ) AS
    X_LAST_UPDATE_DATE DATE;
Line: 609

    X_LAST_UPDATED_BY NUMBER;
Line: 610

    X_LAST_UPDATE_LOGIN NUMBER;
Line: 612

  X_LAST_UPDATE_DATE := SYSDATE;
Line: 614

    X_LAST_UPDATED_BY := 1;
Line: 615

    X_LAST_UPDATE_LOGIN := 0;
Line: 617

    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
Line: 618

    if X_LAST_UPDATED_BY is NULL then
      X_LAST_UPDATED_BY := -1;
Line: 621

    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
Line: 622

    if X_LAST_UPDATE_LOGIN is NULL then
      X_LAST_UPDATE_LOGIN := -1;
Line: 632

    p_action => 'UPDATE',
    x_rowid => X_ROWID,
    x_course_cd => X_COURSE_CD,
    x_version_number => X_VERSION_NUMBER,
    x_yr_num => X_YR_NUM,
    x_effective_start_dt => X_EFFECTIVE_START_DT,
    x_effective_end_dt => X_EFFECTIVE_END_DT ,
    x_annual_load_val => X_ANNUAL_LOAD_VAL ,
    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: 647

  update IGS_PS_ANL_LOAD set
    EFFECTIVE_END_DT = NEW_REFERENCES.EFFECTIVE_END_DT,
    ANNUAL_LOAD_VAL = NEW_REFERENCES.ANNUAL_LOAD_VAL,
    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: 660

	p_action => 'UPDATE',
	x_rowid => X_ROWID
);
Line: 664

end UPDATE_ROW;
Line: 676

  cursor c1 is select rowid from IGS_PS_ANL_LOAD
     where VERSION_NUMBER = X_VERSION_NUMBER
     and COURSE_CD = X_COURSE_CD
     and YR_NUM = X_YR_NUM
     and EFFECTIVE_START_DT = X_EFFECTIVE_START_DT
  ;
Line: 687

    INSERT_ROW (
     X_ROWID,
     X_VERSION_NUMBER,
     X_COURSE_CD,
     X_YR_NUM,
     X_EFFECTIVE_START_DT,
     X_EFFECTIVE_END_DT,
     X_ANNUAL_LOAD_VAL,
     X_MODE);
Line: 699

  UPDATE_ROW (
   X_ROWID,
   X_VERSION_NUMBER,
   X_COURSE_CD,
   X_YR_NUM,
   X_EFFECTIVE_START_DT,
   X_EFFECTIVE_END_DT,
   X_ANNUAL_LOAD_VAL,
   X_MODE);
Line: 710

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

  delete from IGS_PS_ANL_LOAD
  where ROWID = X_ROWID;
Line: 726

	p_action => 'DELETE',
	x_rowid => X_ROWID
);
Line: 730

end DELETE_ROW;