DBA Data[Home] [Help]

APPS.IGR_I_A_PKGITM_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,
    x_donot_mail_ind IN VARCHAR2 DEFAULT NULL
  ) as

    CURSOR cur_old_ref_values IS
      SELECT   *
      FROM     IGR_I_A_PKGITM
      WHERE    rowid = x_rowid;
Line: 36

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

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

    new_references.last_update_date := x_last_update_date;
Line: 59

    new_references.last_updated_by := x_last_updated_by;
Line: 60

    new_references.last_update_login := x_last_update_login;
Line: 64

 PROCEDURE BeforeRowInsertUpdateDelete1(
    p_inserting IN BOOLEAN DEFAULT FALSE,
    p_updating IN BOOLEAN DEFAULT FALSE,
    p_deleting IN BOOLEAN DEFAULT FALSE
    ) as
    CURSOR c_deceased(cp_party_id igs_pe_hz_parties.party_id%TYPE) IS
     SELECT deceased_ind
     FROM igs_pe_hz_parties
     WHERE party_id = cp_party_id;
Line: 77

    IF p_inserting OR p_updating THEN
          OPEN c_deceased(new_references.person_id);
Line: 94

    IF p_inserting OR
       (p_updating AND
       (new_references.mailed_dt <> NVL(TRUNC(old_references.mailed_dt), new_references.mailed_dt - 1 ))) THEN
        IF IGR_VAL_EAPMPI.admp_val_eapmpi_dt(new_references.person_id,
                        new_references.enquiry_appl_number,
                        new_references.mailed_dt,
                        v_message_name) = FALSE THEN
                     Fnd_Message.Set_Name('IGS', v_message_name);
Line: 108

  END BeforeRowInsertUpdateDelete1;
Line: 188

      SELECT   rowid
      FROM     IGR_I_A_PKGITM
      WHERE    person_id = x_person_id
      AND      enquiry_appl_number = x_enquiry_appl_number
      AND      PACKAGE_ITEM_ID = x_PACKAGE_ITEM_ID
      FOR UPDATE NOWAIT;
Line: 217

      SELECT   rowid
      FROM     IGR_I_A_PKGITM
      WHERE    person_id = x_person_id
      AND      enquiry_appl_number = x_enquiry_appl_number ;
Line: 249

    x_last_update_date IN DATE DEFAULT NULL,
    x_last_updated_by IN NUMBER DEFAULT NULL,
    x_last_update_login IN NUMBER DEFAULT NULL,
    x_donot_mail_ind IN VARCHAR2 DEFAULT NULL
  ) as
  BEGIN

    Set_Column_Values (
      p_action,
      x_rowid,
      x_person_id,
      x_enquiry_appl_number,
      x_PACKAGE_ITEM_ID,
      x_mailed_dt,
      x_creation_date,
      x_created_by,
      x_last_update_date,
      x_last_updated_by,
      x_last_update_login,
      x_donot_mail_ind
    );
Line: 271

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

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

    ELSIF (p_action = 'DELETE') THEN
      null;
Line: 294

    ELSIF (p_action = 'VALIDATE_INSERT') THEN
IF  Get_PK_For_Validation (
             new_references.person_id ,
             new_references.enquiry_appl_number,
             new_references.PACKAGE_ITEM_ID

                         ) THEN
    Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
Line: 306

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

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

procedure INSERT_ROW (
  X_ROWID in out NOCOPY VARCHAR2,
  X_PERSON_ID in NUMBER,
  X_ENQUIRY_APPL_NUMBER in NUMBER,
  X_PACKAGE_ITEM_ID in NUMBER,
  X_MAILED_DT in DATE,
  X_MODE in VARCHAR2 default 'R',
  X_DONOT_MAIL_IND IN VARCHAR2 DEFAULT NULL,
  X_ACTION IN VARCHAR2,
  X_ret_status     OUT NOCOPY VARCHAR2,
  X_msg_data       OUT NOCOPY VARCHAR2,
  X_msg_count      OUT NOCOPY NUMBER
  ) as
    cursor C is select ROWID from IGR_I_A_PKGITM
      where PERSON_ID = X_PERSON_ID
      and ENQUIRY_APPL_NUMBER = X_ENQUIRY_APPL_NUMBER
      and PACKAGE_ITEM_ID = X_PACKAGE_ITEM_ID;
Line: 332

    X_LAST_UPDATE_DATE DATE;
Line: 333

    X_LAST_UPDATED_BY NUMBER;
Line: 334

    X_LAST_UPDATE_LOGIN NUMBER;
Line: 338

    X_PROGRAM_UPDATE_DATE DATE;
Line: 342

    SELECT sales_lead_id
    FROM   igr_i_appl_v
    WHERE  person_id = p_person_id
    AND    enquiry_appl_number = p_enquiry_appl_number ;
Line: 350

  X_LAST_UPDATE_DATE := SYSDATE;
Line: 352

    X_LAST_UPDATED_BY := 1;
Line: 353

    X_LAST_UPDATE_LOGIN := 0;
Line: 355

    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
Line: 356

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

    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
Line: 360

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

     X_PROGRAM_UPDATE_DATE := NULL;
Line: 373

     X_PROGRAM_UPDATE_DATE := SYSDATE;
Line: 382

  p_action=>'INSERT',
  x_rowid=>X_ROWID,
  x_enquiry_appl_number=>X_ENQUIRY_APPL_NUMBER,
  x_PACKAGE_ITEM_ID=>X_PACKAGE_ITEM_ID,
  x_mailed_dt=>X_MAILED_DT,
  x_person_id=>X_PERSON_ID,
  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_donot_mail_ind=>X_DONOT_MAIL_IND
  );
Line: 395

  insert into IGR_I_A_PKGITM (
    PERSON_ID,
    ENQUIRY_APPL_NUMBER,
    PACKAGE_ITEM_ID,
    MAILED_DT,
    DONOT_MAIL_IND,
    CREATION_DATE,
    CREATED_BY,
    LAST_UPDATE_DATE,
    LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN,
    REQUEST_ID,
    PROGRAM_ID,
    PROGRAM_APPLICATION_ID,
    PROGRAM_UPDATE_DATE
  ) values (
    NEW_REFERENCES.PERSON_ID,
    NEW_REFERENCES.ENQUIRY_APPL_NUMBER,
    NEW_REFERENCES.PACKAGE_ITEM_ID,
    NEW_REFERENCES.MAILED_DT,
    NEW_REFERENCES.DONOT_MAIL_IND,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_DATE,
    X_LAST_UPDATED_BY,
    X_LAST_UPDATE_LOGIN,
    X_REQUEST_ID,
    X_PROGRAM_ID,
    X_PROGRAM_APPLICATION_ID,
    X_PROGRAM_UPDATE_DATE
  );
Line: 451

 end INSERT_ROW;
Line: 461

  cursor c1 is select
      MAILED_DT,DONOT_MAIL_IND
    from IGR_I_A_PKGITM
    where ROWID = X_ROWID
    for update nowait;
Line: 472

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

procedure UPDATE_ROW (
  X_ROWID in VARCHAR2,
  X_PERSON_ID in NUMBER,
  X_ENQUIRY_APPL_NUMBER in NUMBER,
  X_PACKAGE_ITEM_ID in NUMBER,
  X_MAILED_DT in DATE,
  X_MODE in VARCHAR2 default 'R',
  X_DONOT_MAIL_IND IN VARCHAR2 DEFAULT NULL,
  X_ACTION IN VARCHAR2,
  X_ret_status     OUT NOCOPY VARCHAR2,
  X_msg_data       OUT NOCOPY VARCHAR2,
  X_msg_count      OUT NOCOPY NUMBER

  ) as
    X_LAST_UPDATE_DATE DATE;
Line: 507

    X_LAST_UPDATED_BY NUMBER;
Line: 508

    X_LAST_UPDATE_LOGIN NUMBER;
Line: 512

    X_PROGRAM_UPDATE_DATE DATE;
Line: 515

    SELECT sales_lead_id
    FROM   igr_i_appl_v
    WHERE  person_id = p_person_id
    AND    enquiry_appl_number = p_enquiry_appl_number ;
Line: 523

  X_LAST_UPDATE_DATE := SYSDATE;
Line: 525

    X_LAST_UPDATED_BY := 1;
Line: 526

    X_LAST_UPDATE_LOGIN := 0;
Line: 528

    X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
Line: 529

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

    X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
Line: 533

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

     X_PROGRAM_UPDATE_DATE :=
                  OLD_REFERENCES.PROGRAM_UPDATE_DATE;
Line: 553

     X_PROGRAM_UPDATE_DATE := SYSDATE;
Line: 558

  p_action=>'UPDATE',
  x_rowid=>X_ROWID,
  x_enquiry_appl_number=>X_ENQUIRY_APPL_NUMBER,
  x_PACKAGE_ITEM_ID=>X_PACKAGE_ITEM_ID,
  x_mailed_dt=>X_MAILED_DT,
  x_person_id=>X_PERSON_ID,
  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_donot_mail_ind=>X_DONOT_MAIL_IND
  );
Line: 572

  update IGR_I_A_PKGITM set
    MAILED_DT = NEW_REFERENCES.MAILED_DT,
    DONOT_MAIL_IND = NEW_REFERENCES.DONOT_MAIL_IND,
    LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
    LAST_UPDATED_BY = X_LAST_UPDATED_BY,
    LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
    REQUEST_ID = X_REQUEST_ID,
    PROGRAM_ID = X_PROGRAM_ID,
    PROGRAM_APPLICATION_ID = X_PROGRAM_APPLICATION_ID,
    PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE
  where ROWID = X_ROWID
  ;
Line: 602

end UPDATE_ROW;
Line: 618

  cursor c1 is select rowid from IGR_I_A_PKGITM
     where PERSON_ID = X_PERSON_ID
     and ENQUIRY_APPL_NUMBER = X_ENQUIRY_APPL_NUMBER
     and PACKAGE_ITEM_ID = X_PACKAGE_ITEM_ID
  ;
Line: 629

    INSERT_ROW (
     X_ROWID,
     X_PERSON_ID,
     X_ENQUIRY_APPL_NUMBER,
     X_PACKAGE_ITEM_ID,
     X_MAILED_DT,
     X_MODE,
     X_DONOT_MAIL_IND,
     X_ACTION ,
     X_ret_status  ,
     X_msg_data     ,
     X_msg_count    );
Line: 644

  UPDATE_ROW (
   X_ROWID,
   X_PERSON_ID,
   X_ENQUIRY_APPL_NUMBER,
   X_PACKAGE_ITEM_ID,
   X_MAILED_DT,
   X_MODE,
   X_DONOT_MAIL_IND,
   X_ACTION,
   X_ret_status ,
   X_msg_data    ,
   X_msg_count     );
Line: 658

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

  delete from IGR_I_A_PKGITM
  where ROWID = X_ROWID;
Line: 671

end DELETE_ROW;