The following lines contain the word 'select', 'insert', 'update' or 'delete':
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_pkg_reduct_ind IN VARCHAR2 DEFAULT NULL
) as
CURSOR cur_old_ref_values IS
SELECT *
FROM IGR_I_APPL_ALL
WHERE rowid = x_rowid;
IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
IF (p_action = 'UPDATE') THEN
new_references.creation_date := old_references.creation_date;
new_references.last_update_date := x_last_update_date;
new_references.last_updated_by := x_last_updated_by;
new_references.last_update_login := x_last_update_login;
PROCEDURE BeforeRowInsertUpdate1(
p_inserting IN BOOLEAN DEFAULT FALSE,
p_updating IN BOOLEAN DEFAULT FALSE,
p_deleting IN BOOLEAN DEFAULT FALSE
) as
CURSOR c_birth_date(p_person_id igs_pe_person_base_v.person_id%TYPE) IS
SELECT birth_date
FROM igs_pe_person_base_v
WHERE person_id =p_person_id ;
SELECT deceased_ind
FROM igs_pe_hz_parties
WHERE party_id = cp_party_id;
IF p_inserting OR p_updating THEN
OPEN c_deceased(new_references.person_id);
IF p_inserting OR
(p_updating AND
(new_references.enquiry_dt <> TRUNC(old_references.enquiry_dt)) OR
(new_references.indicated_mailing_dt <> TRUNC(old_references.indicated_mailing_dt))) THEN
IF IGR_VAL_EAP.admp_val_eap_ind_dt(new_references.enquiry_dt,
new_references.indicated_mailing_dt,
v_message_name) = FALSE THEN
Fnd_Message.Set_Name('IGS', v_message_name);
END BeforeRowInsertUpdate1;
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
SELECT rowid
FROM IGR_I_APPL_ALL
WHERE person_id = x_person_id
AND enquiry_appl_number = x_enquiry_appl_number
FOR UPDATE NOWAIT;
SELECT rowid
FROM IGR_I_APPL_ALL
WHERE person_id = x_person_id OR
registering_person_id = x_person_id ;
SELECT rowid
FROM IGR_I_APPL_ALL
WHERE adm_cal_type = x_sub_cal_type
AND adm_ci_sequence_number = x_sub_ci_sequence_number
AND acad_cal_type = x_sup_cal_type
AND acad_ci_sequence_number = x_sup_ci_sequence_number;
SELECT rowid
FROM IGR_I_APPL_ALL
WHERE inq_entry_level_id = x_inq_entry_level_id ;
SELECT rowid
FROM IGR_I_APPL_ALL
WHERE edu_goal_id = x_code_id
AND how_knowus_id = x_code_id
AND who_influenced_id = x_code_id;
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_pkg_reduct_ind IN VARCHAR2 DEFAULT NULL
) as
BEGIN
Set_Column_Values (
p_action,
x_rowid,
x_person_id,
X_sales_lead_id,
x_enquiry_appl_number,
x_acad_cal_type,
x_acad_ci_sequence_number,
x_adm_cal_type,
x_adm_ci_sequence_number,
x_enquiry_dt,
x_registering_person_id,
x_override_process_ind,
x_indicated_mailing_dt,
x_comments,
x_inq_entry_level_id ,
x_edu_goal_id ,
x_party_id ,
x_how_knowus_id ,
x_who_influenced_id ,
x_attribute_category ,
x_attribute1 ,
x_attribute2 ,
x_attribute3 ,
x_attribute4 ,
x_attribute5 ,
x_attribute6 ,
x_attribute7 ,
x_attribute8 ,
x_attribute9 ,
x_attribute10 ,
x_attribute11 ,
x_attribute12 ,
x_attribute13 ,
x_attribute14 ,
x_attribute15 ,
x_attribute16 ,
x_attribute17 ,
x_attribute18 ,
x_attribute19 ,
x_attribute20 ,
x_last_process_dt,
x_org_id,
x_creation_date,
x_created_by,
x_last_update_date,
x_last_updated_by,
x_last_update_login,
x_pkg_reduct_ind
);
IF (p_action = 'INSERT') THEN
-- Call all the procedures related to Before Insert.
BeforeRowInsertUpdate1 ( p_inserting => TRUE );
ELSIF (p_action = 'UPDATE') THEN
-- Call all the procedures related to Before Update.
BeforeRowInsertUpdate1 ( p_updating => TRUE );
ELSIF (p_action = 'DELETE') THEN
Check_Child_Existance;
ELSIF (p_action = 'VALIDATE_INSERT') THEN
IF Get_PK_For_Validation (
new_references.person_id ,
new_references.enquiry_appl_number
) THEN
Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
ELSIF (p_action = 'VALIDATE_UPDATE') THEN
Check_Constraints;
ELSIF (p_action = 'VALIDATE_DELETE') THEN
-- Call all the procedures related to Before Delete.
BeforeRowInsertUpdate1 ( p_deleting => TRUE );
procedure INSERT_ROW (
X_ROWID in out NOCOPY VARCHAR2,
X_PERSON_ID in NUMBER,
X_SALES_LEAD_ID IN NUMBER,
X_ENQUIRY_APPL_NUMBER OUT NOCOPY NUMBER,
X_ACAD_CAL_TYPE in VARCHAR2,
X_ACAD_CI_SEQUENCE_NUMBER in NUMBER,
X_ADM_CAL_TYPE in VARCHAR2,
X_ADM_CI_SEQUENCE_NUMBER in NUMBER,
X_ENQUIRY_DT in DATE,
X_REGISTERING_PERSON_ID in NUMBER,
X_OVERRIDE_PROCESS_IND in VARCHAR2,
X_INDICATED_MAILING_DT in DATE,
X_LAST_PROCESS_DT in DATE,
X_COMMENTS in VARCHAR2,
X_INQ_ENTRY_LEVEL_ID in NUMBER DEFAULT NULL,
X_EDU_GOAL_ID in NUMBER DEFAULT NULL,
X_PARTY_ID in NUMBER DEFAULT NULL,
X_HOW_KNOWUS_ID in NUMBER DEFAULT NULL,
X_WHO_INFLUENCED_ID in NUMBER DEFAULT NULL,
X_ATTRIBUTE_CATEGORY in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE1 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE2 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE3 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE4 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE5 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE6 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE7 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE8 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE9 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE10 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE11 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE12 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE13 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE14 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE15 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE16 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE17 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE18 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE19 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE20 in VARCHAR2 DEFAULT NULL,
X_MODE in VARCHAR2 default 'R',
X_ORG_ID in NUMBER,
X_PKG_REDUCT_IND IN VARCHAR2 DEFAULT NULL
) as
cursor C is select ROWID from IGR_I_APPL_ALL
where PERSON_ID = X_PERSON_ID
and ENQUIRY_APPL_NUMBER = X_ENQUIRY_APPL_NUMBER;
X_LAST_UPDATE_DATE DATE;
X_LAST_UPDATED_BY NUMBER;
X_LAST_UPDATE_LOGIN NUMBER;
X_PROGRAM_UPDATE_DATE DATE;
X_LAST_UPDATE_DATE := SYSDATE;
X_LAST_UPDATED_BY := 1;
X_LAST_UPDATE_LOGIN := 0;
X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
if X_LAST_UPDATED_BY is NULL then
X_LAST_UPDATED_BY := -1;
X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
if X_LAST_UPDATE_LOGIN is NULL then
X_LAST_UPDATE_LOGIN := -1;
X_PROGRAM_UPDATE_DATE := NULL;
X_PROGRAM_UPDATE_DATE := SYSDATE;
p_action=>'INSERT',
x_rowid=>X_ROWID,
x_acad_cal_type=>X_ACAD_CAL_TYPE,
x_acad_ci_sequence_number=>X_ACAD_CI_SEQUENCE_NUMBER,
x_adm_cal_type=>X_ADM_CAL_TYPE,
x_adm_ci_sequence_number=>X_ADM_CI_SEQUENCE_NUMBER,
x_comments=>X_COMMENTS,
x_inq_entry_level_id=>X_INQ_ENTRY_LEVEL_ID,
x_edu_goal_id=>X_EDU_GOAL_ID,
x_party_id=>X_PARTY_ID,
x_how_knowus_id=>X_HOW_KNOWUS_ID,
x_who_influenced_id=>X_WHO_INFLUENCED_ID,
x_attribute_category=>X_ATTRIBUTE_CATEGORY,
x_attribute1=>X_ATTRIBUTE1,
x_attribute2=>X_ATTRIBUTE2,
x_attribute3=>X_ATTRIBUTE3,
x_attribute4=>X_ATTRIBUTE4,
x_attribute5=>X_ATTRIBUTE5,
x_attribute6=> X_ATTRIBUTE6,
x_attribute7=>X_ATTRIBUTE7,
x_attribute8=>X_ATTRIBUTE8,
x_attribute9=>X_ATTRIBUTE9,
x_attribute10=>X_ATTRIBUTE10,
x_attribute11=>X_ATTRIBUTE11,
x_attribute12=>X_ATTRIBUTE12,
x_attribute13=>X_ATTRIBUTE13,
x_attribute14=>X_ATTRIBUTE14,
x_attribute15=>X_ATTRIBUTE15,
x_attribute16=>X_ATTRIBUTE16,
x_attribute17=>X_ATTRIBUTE17,
x_attribute18=>X_ATTRIBUTE18,
x_attribute19=>X_ATTRIBUTE19,
x_attribute20=>X_ATTRIBUTE20,
x_enquiry_appl_number=>X_ENQUIRY_APPL_NUMBER,
x_enquiry_dt=>NVL(X_ENQUIRY_DT, SYSDATE),
x_indicated_mailing_dt=>X_INDICATED_MAILING_DT,
x_last_process_dt=>X_LAST_PROCESS_DT,
x_override_process_ind=>NVL(X_OVERRIDE_PROCESS_IND,'N'),
x_person_id=>X_PERSON_ID,
x_sales_lead_id => X_sales_lead_id,
x_registering_person_id=>X_REGISTERING_PERSON_ID,
x_org_id => igs_ge_gen_003.get_org_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_pkg_reduct_ind => X_PKG_REDUCT_IND
);
insert into IGR_I_APPL_ALL (
PERSON_ID,
ENQUIRY_APPL_NUMBER,
SALES_LEAD_ID,
ACAD_CAL_TYPE,
ACAD_CI_SEQUENCE_NUMBER,
ADM_CAL_TYPE,
ADM_CI_SEQUENCE_NUMBER,
ENQUIRY_DT,
REGISTERING_PERSON_ID,
OVERRIDE_PROCESS_IND,
INDICATED_MAILING_DT,
LAST_PROCESS_DT,
COMMENTS,
INQ_ENTRY_LEVEL_ID,
EDU_GOAL_ID,
PARTY_ID,
HOW_KNOWUS_ID,
WHO_INFLUENCED_ID,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
ATTRIBUTE16,
ATTRIBUTE17,
ATTRIBUTE18,
ATTRIBUTE19,
ATTRIBUTE20,
ORG_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
REQUEST_ID,
PROGRAM_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_UPDATE_DATE,
PKG_REDUCT_IND
) values (
NEW_REFERENCES.PERSON_ID,
IGR_I_APPL_S.NEXTVAL,
NEW_REFERENCES.SALES_LEAD_ID,
NEW_REFERENCES.ACAD_CAL_TYPE,
NEW_REFERENCES.ACAD_CI_SEQUENCE_NUMBER,
NEW_REFERENCES.ADM_CAL_TYPE,
NEW_REFERENCES.ADM_CI_SEQUENCE_NUMBER,
NEW_REFERENCES.ENQUIRY_DT,
NEW_REFERENCES.REGISTERING_PERSON_ID,
NEW_REFERENCES.OVERRIDE_PROCESS_IND,
NEW_REFERENCES.INDICATED_MAILING_DT,
NEW_REFERENCES.LAST_PROCESS_DT,
NEW_REFERENCES.COMMENTS,
NEW_REFERENCES.INQ_ENTRY_LEVEL_ID,
NEW_REFERENCES.EDU_GOAL_ID,
NEW_REFERENCES.PARTY_ID,
NEW_REFERENCES.HOW_KNOWUS_ID,
NEW_REFERENCES.WHO_INFLUENCED_ID,
NEW_REFERENCES.ATTRIBUTE_CATEGORY,
NEW_REFERENCES.ATTRIBUTE1,
NEW_REFERENCES.ATTRIBUTE2,
NEW_REFERENCES.ATTRIBUTE3,
NEW_REFERENCES.ATTRIBUTE4,
NEW_REFERENCES.ATTRIBUTE5,
NEW_REFERENCES.ATTRIBUTE6,
NEW_REFERENCES.ATTRIBUTE7,
NEW_REFERENCES.ATTRIBUTE8,
NEW_REFERENCES.ATTRIBUTE9,
NEW_REFERENCES.ATTRIBUTE10,
NEW_REFERENCES.ATTRIBUTE11,
NEW_REFERENCES.ATTRIBUTE12,
NEW_REFERENCES.ATTRIBUTE13,
NEW_REFERENCES.ATTRIBUTE14,
NEW_REFERENCES.ATTRIBUTE15,
NEW_REFERENCES.ATTRIBUTE16,
NEW_REFERENCES.ATTRIBUTE17,
NEW_REFERENCES.ATTRIBUTE18,
NEW_REFERENCES.ATTRIBUTE19,
NEW_REFERENCES.ATTRIBUTE20,
NEW_REFERENCES.ORG_ID,
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,
NEW_REFERENCES.PKG_REDUCT_IND
)RETURNING ENQUIRY_APPL_NUMBER INTO X_ENQUIRY_APPL_NUMBER;
end INSERT_ROW;
cursor c1 is select
ACAD_CAL_TYPE,
ACAD_CI_SEQUENCE_NUMBER,
ADM_CAL_TYPE,
ADM_CI_SEQUENCE_NUMBER,
ENQUIRY_DT,
REGISTERING_PERSON_ID,
OVERRIDE_PROCESS_IND,
INDICATED_MAILING_DT,
LAST_PROCESS_DT,
COMMENTS,
INQ_ENTRY_LEVEL_ID,
EDU_GOAL_ID,
PARTY_ID,
HOW_KNOWUS_ID,
WHO_INFLUENCED_ID,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
ATTRIBUTE16,
ATTRIBUTE17,
ATTRIBUTE18,
ATTRIBUTE19,
ATTRIBUTE20,
PKG_REDUCT_IND
from IGR_I_APPL_ALL
where ROWID = X_ROWID
for update nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
X_ROWID in VARCHAR2,
X_PERSON_ID in NUMBER,
X_SALES_LEAD_ID in NUMBER,
X_ENQUIRY_APPL_NUMBER in NUMBER,
X_ACAD_CAL_TYPE in VARCHAR2,
X_ACAD_CI_SEQUENCE_NUMBER in NUMBER,
X_ADM_CAL_TYPE in VARCHAR2,
X_ADM_CI_SEQUENCE_NUMBER in NUMBER,
X_ENQUIRY_DT in DATE,
X_REGISTERING_PERSON_ID in NUMBER,
X_OVERRIDE_PROCESS_IND in VARCHAR2,
X_INDICATED_MAILING_DT in DATE,
X_LAST_PROCESS_DT in DATE,
X_COMMENTS in VARCHAR2,
X_INQ_ENTRY_LEVEL_ID in NUMBER DEFAULT NULL,
X_EDU_GOAL_ID in NUMBER DEFAULT NULL,
X_PARTY_ID in NUMBER DEFAULT NULL,
X_HOW_KNOWUS_ID in NUMBER DEFAULT NULL,
X_WHO_INFLUENCED_ID in NUMBER DEFAULT NULL,
X_ATTRIBUTE_CATEGORY in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE1 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE2 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE3 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE4 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE5 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE6 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE7 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE8 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE9 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE10 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE11 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE12 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE13 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE14 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE15 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE16 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE17 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE18 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE19 in VARCHAR2 DEFAULT NULL,
X_ATTRIBUTE20 in VARCHAR2 DEFAULT NULL,
X_MODE in VARCHAR2 default 'R',
X_PKG_REDUCT_IND IN VARCHAR2 DEFAULT NULL
) as
X_LAST_UPDATE_DATE DATE;
X_LAST_UPDATED_BY NUMBER;
X_LAST_UPDATE_LOGIN NUMBER;
X_PROGRAM_UPDATE_DATE DATE;
X_LAST_UPDATE_DATE := SYSDATE;
X_LAST_UPDATED_BY := 1;
X_LAST_UPDATE_LOGIN := 0;
X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
if X_LAST_UPDATED_BY is NULL then
X_LAST_UPDATED_BY := -1;
X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
if X_LAST_UPDATE_LOGIN is NULL then
X_LAST_UPDATE_LOGIN := -1;
p_action=>'UPDATE',
x_rowid=>X_ROWID,
x_acad_cal_type=>X_ACAD_CAL_TYPE,
x_acad_ci_sequence_number=>X_ACAD_CI_SEQUENCE_NUMBER,
x_adm_cal_type=>X_ADM_CAL_TYPE,
x_adm_ci_sequence_number=>X_ADM_CI_SEQUENCE_NUMBER,
x_comments=>X_COMMENTS,
x_inq_entry_level_id=>X_INQ_ENTRY_LEVEL_ID,
x_edu_goal_id=>X_EDU_GOAL_ID,
x_party_id=>X_PARTY_ID,
x_how_knowus_id=>X_HOW_KNOWUS_ID,
x_who_influenced_id=>X_WHO_INFLUENCED_ID,
x_attribute_category=>X_ATTRIBUTE_CATEGORY,
x_attribute1=>X_ATTRIBUTE1,
x_attribute2=>X_ATTRIBUTE2,
x_attribute3=>X_ATTRIBUTE3,
x_attribute4=>X_ATTRIBUTE4,
x_attribute5=>X_ATTRIBUTE5,
x_attribute6=>X_ATTRIBUTE6,
x_attribute7=>X_ATTRIBUTE7,
x_attribute8=>X_ATTRIBUTE8,
x_attribute9=>X_ATTRIBUTE9,
x_attribute10=>X_ATTRIBUTE10,
x_attribute11=>X_ATTRIBUTE11,
x_attribute12=>X_ATTRIBUTE12,
x_attribute13=>X_ATTRIBUTE13,
x_attribute14=>X_ATTRIBUTE14,
x_attribute15=>X_ATTRIBUTE15,
x_attribute16=>X_ATTRIBUTE16,
x_attribute17=>X_ATTRIBUTE17,
x_attribute18=>X_ATTRIBUTE18,
x_attribute19=>X_ATTRIBUTE19,
x_attribute20=>X_ATTRIBUTE20,
x_enquiry_appl_number=>X_ENQUIRY_APPL_NUMBER,
x_enquiry_dt=>X_ENQUIRY_DT,
x_indicated_mailing_dt=>X_INDICATED_MAILING_DT,
x_last_process_dt=>X_LAST_PROCESS_DT,
x_override_process_ind=>X_OVERRIDE_PROCESS_IND,
x_person_id=>X_PERSON_ID,
X_sales_lead_id => X_sales_lead_id,
x_registering_person_id=>X_REGISTERING_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_pkg_reduct_ind => X_PKG_REDUCT_IND
);
X_PROGRAM_UPDATE_DATE :=
OLD_REFERENCES.PROGRAM_UPDATE_DATE;
X_PROGRAM_UPDATE_DATE := SYSDATE;
update IGR_I_APPL_ALL set
ACAD_CAL_TYPE = NEW_REFERENCES.ACAD_CAL_TYPE,
ACAD_CI_SEQUENCE_NUMBER = NEW_REFERENCES.ACAD_CI_SEQUENCE_NUMBER,
ADM_CAL_TYPE = NEW_REFERENCES.ADM_CAL_TYPE,
ADM_CI_SEQUENCE_NUMBER = NEW_REFERENCES.ADM_CI_SEQUENCE_NUMBER,
ENQUIRY_DT = NEW_REFERENCES.ENQUIRY_DT,
REGISTERING_PERSON_ID = NEW_REFERENCES.REGISTERING_PERSON_ID,
OVERRIDE_PROCESS_IND = NEW_REFERENCES.OVERRIDE_PROCESS_IND,
INDICATED_MAILING_DT = NEW_REFERENCES.INDICATED_MAILING_DT,
LAST_PROCESS_DT = NEW_REFERENCES.LAST_PROCESS_DT,
COMMENTS = NEW_REFERENCES.COMMENTS,
INQ_ENTRY_LEVEL_ID=NEW_REFERENCES.INQ_ENTRY_LEVEL_ID,
EDU_GOAL_ID=NEW_REFERENCES.EDU_GOAL_ID,
PARTY_ID=NEW_REFERENCES.PARTY_ID,
HOW_KNOWUS_ID=NEW_REFERENCES.HOW_KNOWUS_ID,
WHO_INFLUENCED_ID=NEW_REFERENCES.WHO_INFLUENCED_ID,
ATTRIBUTE_CATEGORY=NEW_REFERENCES.ATTRIBUTE_CATEGORY,
ATTRIBUTE1=NEW_REFERENCES.ATTRIBUTE1,
ATTRIBUTE2=NEW_REFERENCES.ATTRIBUTE2,
ATTRIBUTE3=NEW_REFERENCES.ATTRIBUTE3,
ATTRIBUTE4=NEW_REFERENCES.ATTRIBUTE4,
ATTRIBUTE5=NEW_REFERENCES.ATTRIBUTE5,
ATTRIBUTE6=NEW_REFERENCES.ATTRIBUTE6,
ATTRIBUTE7=NEW_REFERENCES.ATTRIBUTE7,
ATTRIBUTE8=NEW_REFERENCES.ATTRIBUTE8,
ATTRIBUTE9=NEW_REFERENCES.ATTRIBUTE9,
ATTRIBUTE10=NEW_REFERENCES.ATTRIBUTE10,
ATTRIBUTE11=NEW_REFERENCES.ATTRIBUTE11,
ATTRIBUTE12=NEW_REFERENCES.ATTRIBUTE12,
ATTRIBUTE13=NEW_REFERENCES.ATTRIBUTE13,
ATTRIBUTE14=NEW_REFERENCES.ATTRIBUTE14,
ATTRIBUTE15=NEW_REFERENCES.ATTRIBUTE15,
ATTRIBUTE16=NEW_REFERENCES.ATTRIBUTE16,
ATTRIBUTE17=NEW_REFERENCES.ATTRIBUTE17,
ATTRIBUTE18=NEW_REFERENCES.ATTRIBUTE18,
ATTRIBUTE19=NEW_REFERENCES.ATTRIBUTE19,
ATTRIBUTE20=NEW_REFERENCES.ATTRIBUTE20,
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,
PKG_REDUCT_IND = X_PKG_REDUCT_IND
where ROWID = X_ROWID
;
end UPDATE_ROW;
cursor c1 is select rowid from IGR_I_APPL_ALL
where PERSON_ID = X_PERSON_ID
and ENQUIRY_APPL_NUMBER = X_ENQUIRY_APPL_NUMBER ;
INSERT_ROW (
X_ROWID,
X_PERSON_ID,
X_ENQUIRY_APPL_NUMBER,
l_sales_lead_id,
X_ACAD_CAL_TYPE,
X_ACAD_CI_SEQUENCE_NUMBER,
X_ADM_CAL_TYPE,
X_ADM_CI_SEQUENCE_NUMBER,
X_ENQUIRY_DT,
X_REGISTERING_PERSON_ID,
X_OVERRIDE_PROCESS_IND,
X_INDICATED_MAILING_DT,
X_LAST_PROCESS_DT,
X_COMMENTS,
X_INQ_ENTRY_LEVEL_ID,
X_EDU_GOAL_ID,
X_PARTY_ID,
X_HOW_KNOWUS_ID,
X_WHO_INFLUENCED_ID,
X_ATTRIBUTE_CATEGORY,
X_ATTRIBUTE1,
X_ATTRIBUTE2,
X_ATTRIBUTE3,
X_ATTRIBUTE4,
X_ATTRIBUTE5,
X_ATTRIBUTE6,
X_ATTRIBUTE7,
X_ATTRIBUTE8,
X_ATTRIBUTE9,
X_ATTRIBUTE10,
X_ATTRIBUTE11,
X_ATTRIBUTE12,
X_ATTRIBUTE13,
X_ATTRIBUTE14,
X_ATTRIBUTE15,
X_ATTRIBUTE16,
X_ATTRIBUTE17,
X_ATTRIBUTE18,
X_ATTRIBUTE19,
X_ATTRIBUTE20,
X_MODE,
X_ORG_ID,
X_PKG_REDUCT_IND);
UPDATE_ROW (
X_ROWID,
X_PERSON_ID,
X_ENQUIRY_APPL_NUMBER,
X_SALES_LEAD_ID,
X_ACAD_CAL_TYPE,
X_ACAD_CI_SEQUENCE_NUMBER,
X_ADM_CAL_TYPE,
X_ADM_CI_SEQUENCE_NUMBER,
X_ENQUIRY_DT,
X_REGISTERING_PERSON_ID,
X_OVERRIDE_PROCESS_IND,
X_INDICATED_MAILING_DT,
X_LAST_PROCESS_DT,
X_COMMENTS,
X_INQ_ENTRY_LEVEL_ID,
X_EDU_GOAL_ID,
X_PARTY_ID,
X_HOW_KNOWUS_ID,
X_WHO_INFLUENCED_ID,
X_ATTRIBUTE_CATEGORY,
X_ATTRIBUTE1,
X_ATTRIBUTE2,
X_ATTRIBUTE3,
X_ATTRIBUTE4,
X_ATTRIBUTE5,
X_ATTRIBUTE6,
X_ATTRIBUTE7,
X_ATTRIBUTE8,
X_ATTRIBUTE9,
X_ATTRIBUTE10,
X_ATTRIBUTE11,
X_ATTRIBUTE12,
X_ATTRIBUTE13,
X_ATTRIBUTE14,
X_ATTRIBUTE15,
X_ATTRIBUTE16,
X_ATTRIBUTE17,
X_ATTRIBUTE18,
X_ATTRIBUTE19,
X_ATTRIBUTE20,
X_MODE,
X_PKG_REDUCT_IND);
procedure DELETE_ROW (
X_ROWID in VARCHAR2
) as
begin
Before_DML(
p_action => 'DELETE',
x_rowid => X_ROWID
);
delete from IGR_I_APPL_ALL
where ROWID = X_ROWID;
end DELETE_ROW;