The following lines contain the word 'select', 'insert', 'update' or 'delete':
x_last_update_date IN DATE,
x_last_updated_by IN NUMBER,
x_last_update_login IN NUMBER ,
x_choice_number IN VARCHAR2,
x_routeb_pref IN VARCHAR2,
x_alt_appl_id IN VARCHAR2,
x_appl_fee_amt IN NUMBER
) AS
------------------------------------------------------------------
--Change History:
--Who When What
--smadathi 12-Feb-2002 Bug 2217104. Added columns choice_number,routeb_pref
-------------------------------------------------------------------
CURSOR cur_old_ref_values IS
SELECT *
FROM IGS_AD_APPL_ALL
WHERE rowid = x_rowid;
IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
Close cur_old_ref_values;
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 BeforeRowInsertUpdateDelete1(
p_inserting IN BOOLEAN,
p_updating IN BOOLEAN,
p_deleting IN BOOLEAN
) AS
v_message_name VARCHAR2(30);
SELECT s_admission_step_type
FROM IGS_AD_PRCS_CAT_STEP
WHERE admission_cat = cp_admission_cat AND
s_admission_process_type = cp_s_admission_process_type AND
step_group_type <> 'TRACK' ;-- 2402377
SELECT birth_date
FROM igs_pe_person_base_v
WHERE person_id =p_person_id ;
IF p_inserting OR p_updating THEN
OPEN c_birth_date(new_references.person_id);
END IF; -- p_inserting or p_updating.
-- on insert because they cannot be updated.
IF p_inserting THEN
--
-- Validate insert of the admission application record.
--
IF IGS_AD_VAL_AA.admp_val_aa_insert (
new_references.person_id,
new_references.adm_cal_type,
new_references.adm_ci_sequence_number,
new_references.s_admission_process_type,
v_person_encmb_chk_ind,
new_references.appl_dt,
v_title_required_ind,
v_birth_dt_required_ind,
v_message_name,
v_return_type) = FALSE THEN
IF NVL(v_return_type, '-1') = cst_error THEN
--raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
END IF; -- p_inserting.
-- Validate update of the admission application record.
IF (TRUNC(old_references.appl_dt) <> new_references.appl_dt OR
old_references.adm_fee_status <> new_references.adm_fee_status OR
old_references.tac_appl_ind <> new_references.tac_appl_ind) THEN
IF IGS_AD_VAL_AA.admp_val_aa_update (
old_references.adm_appl_status,
v_message_name) = FALSE THEN
--raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
-- Cannot update the Commencement Period.
IF ((old_references.acad_cal_type <> new_references.acad_cal_type) OR
(old_references.acad_ci_sequence_number <> new_references.acad_ci_sequence_number) OR (old_references.adm_cal_type <> new_references.adm_cal_type) OR
(old_references.adm_ci_sequence_number <> new_references.adm_ci_sequence_number)) THEN
--raise_application_error(-20000, IGS_GE_GEN_002.GENP_GET_MESSAGE(2537));
-- Cannot update the Admission Process Category.
--
IF ((old_references.admission_cat <> new_references.admission_cat) OR
(old_references.s_admission_process_type <> new_references.s_admission_process_type) OR
(old_references.application_type IS NOT NULL AND old_references.application_type <> new_references.application_type )) THEN
--raise_application_error(-20000, IGS_GE_GEN_002.GENP_GET_MESSAGE(2538));
-- Cannot update the Choice Number for UK Profile.
--
IF FND_PROFILE.VALUE('OSS_COUNTRY_CODE') = 'GB' AND (old_references.choice_number <> new_references.choice_number) THEN
FND_MESSAGE.SET_NAME('IGS','IGS_AD_UPD_CH_NUM');
-- Cannot update the Choice Number for Alternate Application ID for UK Profile.
--
IF FND_PROFILE.VALUE('OSS_COUNTRY_CODE') = 'GB' AND (old_references.alt_appl_id <> new_references.alt_appl_id) THEN
FND_MESSAGE.SET_NAME('IGS','IGS_AD_UPD_ALT_APPL_ID');
-- Validate delete of the admission application record.
--
IF IGS_AD_VAL_AA.admp_val_aa_delete (
old_references.adm_appl_status,
v_message_name) = FALSE THEN
--raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
IF p_inserting OR
(p_updating AND
(TRUNC(old_references.appl_dt) <> new_references.appl_dt)) THEN
IF IGS_AD_VAL_AA.admp_val_aa_appl_dt (
new_references.appl_dt,
v_message_name) = FALSE THEN
--raise_application_error(-20000, IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
IF p_inserting OR
(p_updating AND
(old_references.adm_appl_status <> new_references.adm_appl_status))
THEN
IF IGS_AD_VAL_AA.admp_val_aa_aas (
new_references.person_id,
new_references.admission_appl_number,
new_references.adm_appl_status,
v_message_name) = FALSE THEN
--raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
IF p_inserting OR
(p_updating AND
(old_references.adm_fee_status <> new_references.adm_fee_status))
THEN
IF IGS_AD_VAL_AA.admp_val_aa_afs (
new_references.person_id,
new_references.admission_appl_number,
new_references.adm_fee_status,
v_fees_required_ind,
v_cond_offer_fee_allowed_ind,
v_message_name) = FALSE THEN
--raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
IF p_inserting OR
(p_updating AND
(old_references.tac_appl_ind <> new_references.tac_appl_ind) OR
(TRUNC(old_references.appl_dt) <> new_references.appl_dt) ) THEN
IF IGS_AD_VAL_AA.admp_val_aa_tac_appl (
new_references.person_id,
new_references.tac_appl_ind,
new_references.appl_dt,
new_references.s_admission_process_type,
v_message_name,
v_return_type) = FALSE THEN
IF NVL(v_return_type, '-1') = cst_error THEN
--raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
IF p_inserting OR
(p_updating AND
(NVL(old_references.appl_fee_amt,-1) <> NVL(new_references.appl_fee_amt,-2)))
THEN
IF new_references.appl_fee_amt < 0 OR
new_references.appl_fee_amt IS NULL THEN
FND_MESSAGE.SET_NAME('IGS','IGS_AD_FEE_AMT_NON_NEGATIVE');
END BeforeRowInsertUpdateDelete1;
PROCEDURE AfterRowUpdateDelete2(
p_inserting IN BOOLEAN,
p_updating IN BOOLEAN,
p_deleting IN BOOLEAN
) AS
v_message_name VARCHAR2(30);
new_references.last_updated_by,
old_references.last_updated_by,
new_references.last_update_date,
old_references.last_update_date);
-- Delete admission application history records.
IF IGS_AD_GEN_001.ADMP_DEL_AA_HIST (
old_references.person_id,
old_references.admission_appl_number,
v_message_name) = FALSE THEN
--raise_application_error(-20000,IGS_GE_GEN_002.GENP_GET_MESSAGE(v_message_num));
END AfterRowUpdateDelete2;
SELECT rowid
FROM IGS_AD_APPL_ALL
WHERE person_id = x_person_id
AND admission_appl_number = x_admission_appl_number
FOR UPDATE NOWAIT;
SELECT rowid
FROM igs_ad_appl_all
WHERE application_type = x_application_type;
SELECT rowid
FROM IGS_AD_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 IGS_AD_APPL_ALL
WHERE person_id = x_person_id ;
SELECT rowid
FROM IGS_AD_APPL_ALL
WHERE adm_appl_status = x_adm_appl_status ;
SELECT rowid
FROM IGS_AD_APPL_ALL
WHERE adm_fee_status = x_adm_fee_status ;
SELECT rowid
FROM IGS_AD_APPL_ALL
WHERE adm_cal_type = x_adm_cal_type
AND adm_ci_sequence_number = x_adm_ci_sequence_number
AND admission_cat = x_admission_cat
AND s_admission_process_type = x_s_admission_process_type ;
SELECT rowid
FROM IGS_AD_APPL_ALL
WHERE admission_cat = x_admission_cat
AND s_admission_process_type = x_s_admission_process_type ;
SELECT rowid
FROM igs_ad_appl_all
WHERE spcl_grp_1 = x_code_id
OR spcl_grp_2 = x_code_id;
x_last_update_date IN DATE,
x_last_updated_by IN NUMBER,
x_last_update_login IN NUMBER,
x_choice_number IN VARCHAR2,
x_routeb_pref IN VARCHAR2,
x_alt_appl_id IN VARCHAR2,
x_appl_fee_amt IN NUMBER
) AS
------------------------------------------------------------------
--Change History:
--Who When What
--smadathi 12-Feb-2002 Bug 2217104. Added columns choice_number,routeb_pref
--pbondugu 04-Mar-2003 Validation is added for checking whether application date
-- is greater than birthdate or not.
--pbondugu 23-apr-2003 validation for checking whether application date
-- is greater than birthdate or not is moved to BeforeRowInsertUpdateDelete1
-------------------------------------------------------------------
BEGIN
Set_Column_Values (
p_action,
x_rowid,
x_org_id,
x_person_id,
x_admission_appl_number,
x_appl_dt,
x_acad_cal_type,
x_acad_ci_sequence_number,
x_adm_cal_type,
x_adm_ci_sequence_number,
x_admission_cat,
x_s_admission_process_type,
x_adm_appl_status,
x_adm_fee_status,
x_tac_appl_ind,
x_spcl_grp_1,
x_spcl_grp_2,
x_common_app,
x_application_type,
x_creation_date,
x_created_by,
x_last_update_date,
x_last_updated_by,
x_last_update_login ,
x_choice_number,
x_routeb_pref,
x_alt_appl_id,
x_appl_fee_amt
);
IF (p_action = 'INSERT') THEN
-- Call all the procedures related to Before Insert.
BeforeRowInsertUpdateDelete1 (
p_inserting => TRUE,
p_updating => FALSE,
p_deleting => FALSE );
ELSIF (p_action = 'UPDATE') THEN
-- Call all the procedures related to Before Update.
BeforeRowInsertUpdateDelete1 (
p_inserting => FALSE,
p_updating => TRUE,
p_deleting => FALSE );
ELSIF (p_action = 'DELETE') THEN
-- Call all the procedures related to Before Delete.
BeforeRowInsertUpdateDelete1 (
p_inserting => FALSE,
p_updating => FALSE,
p_deleting => TRUE );
ELSIF (p_action = 'VALIDATE_INSERT') THEN
-- Call all the procedures related to Before Delete.
IF GET_PK_FOR_VALIDATION(
new_references.person_id,
new_references.admission_appl_number
)THEN
FND_MESSAGE.SET_NAME('IGS','IGS_GE_MULTI_ORG_DUP_REC');
ELSIF (p_action = 'VALIDATE_UPDATE') THEN
-- Call all the procedures related to Before Delete.
check_constraints;
ELSIF (p_action = 'VALIDATE_DELETE') THEN
-- Call all the procedures related to Before Delete.
Check_Child_Existance;
IF (p_action = 'UPDATE') THEN
-- Call all the procedures related to After Update.
AfterRowUpdateDelete2 (
p_inserting => FALSE,
p_updating => TRUE,
p_deleting => FALSE );
ELSIF (p_action = 'DELETE') THEN
-- Call all the procedures related to After Delete.
AfterRowUpdateDelete2 (
p_inserting => FALSE,
p_updating => FALSE,
p_deleting => TRUE );
procedure INSERT_ROW (
X_ROWID in out NOCOPY VARCHAR2,
X_ORG_ID in NUMBER,
X_PERSON_ID in NUMBER,
X_ADMISSION_APPL_NUMBER in NUMBER,
X_APPL_DT in DATE,
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_ADMISSION_CAT in VARCHAR2,
X_S_ADMISSION_PROCESS_TYPE in VARCHAR2,
X_ADM_APPL_STATUS in VARCHAR2,
X_ADM_FEE_STATUS in VARCHAR2,
X_TAC_APPL_IND in VARCHAR2,
x_spcl_grp_1 IN NUMBER,
x_spcl_grp_2 IN NUMBER,
x_common_app IN VARCHAR2,
x_application_type IN VARCHAR2,
X_MODE IN VARCHAR2,
x_choice_number IN VARCHAR2,
x_routeb_pref IN VARCHAR2,
x_alt_appl_id IN VARCHAR2,
x_appl_fee_amt IN NUMBER DEFAULT NULL
) AS
------------------------------------------------------------------
--Change History:
--Who When What
--ravishar 25-May-2005 Security related changes(Bug- 4344197)
--smvk 14-Feb-2002 Call to igs_ge_gen_003.get_org_id w.r.t SWCR006
--smadathi 12-Feb-2002 Bug 2217104. Added columns choice_number,routeb_pref
-------------------------------------------------------------------
cursor C is select ROWID from IGS_AD_APPL_ALL
where PERSON_ID = X_PERSON_ID
and ADMISSION_APPL_NUMBER = X_ADMISSION_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_org_id => igs_ge_gen_003.get_org_id,
x_person_id => X_PERSON_ID,
x_admission_appl_number => X_ADMISSION_APPL_NUMBER,
x_appl_dt => Nvl(X_APPL_DT, SYSDATE),
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_admission_cat => X_ADMISSION_CAT,
x_s_admission_process_type => X_S_ADMISSION_PROCESS_TYPE,
x_adm_appl_status => X_ADM_APPL_STATUS,
x_adm_fee_status => X_ADM_FEE_STATUS,
x_tac_appl_ind => Nvl(X_TAC_APPL_IND, 'N'),
x_spcl_grp_1 => x_spcl_grp_1,
x_spcl_grp_2 => x_spcl_grp_2,
x_common_app => x_common_app,
x_application_type => x_application_type,
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_choice_number => x_choice_number,
x_routeb_pref => x_routeb_pref,
x_alt_appl_id => x_alt_appl_id,
x_appl_fee_amt => x_appl_fee_amt
);
insert into IGS_AD_APPL_ALL (
PERSON_ID,
ORG_ID,
ADMISSION_APPL_NUMBER,
APPL_DT,
ACAD_CAL_TYPE,
ACAD_CI_SEQUENCE_NUMBER,
ADM_CAL_TYPE,
ADM_CI_SEQUENCE_NUMBER,
ADMISSION_CAT,
S_ADMISSION_PROCESS_TYPE,
ADM_APPL_STATUS,
ADM_FEE_STATUS,
TAC_APPL_IND,
spcl_grp_1,
spcl_grp_2,
common_app,
application_type,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
REQUEST_ID,
PROGRAM_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_UPDATE_DATE,
choice_number,
routeb_pref,
application_id,
alt_appl_id,
appl_fee_amt
) values (
NEW_REFERENCES.PERSON_ID,
NEW_REFERENCES.ORG_ID,
NEW_REFERENCES.ADMISSION_APPL_NUMBER,
NEW_REFERENCES.APPL_DT,
NEW_REFERENCES.ACAD_CAL_TYPE,
NEW_REFERENCES.ACAD_CI_SEQUENCE_NUMBER,
NEW_REFERENCES.ADM_CAL_TYPE,
NEW_REFERENCES.ADM_CI_SEQUENCE_NUMBER,
NEW_REFERENCES.ADMISSION_CAT,
NEW_REFERENCES.S_ADMISSION_PROCESS_TYPE,
NEW_REFERENCES.ADM_APPL_STATUS,
NEW_REFERENCES.ADM_FEE_STATUS,
NEW_REFERENCES.TAC_APPL_IND,
NEW_REFERENCES.spcl_grp_1,
NEW_REFERENCES.spcl_grp_2,
NEW_REFERENCES.common_app,
new_references.application_type,
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.choice_number,
new_references.routeb_pref,
IGS_AD_APL_INT_S.nextval,
new_references.alt_appl_id,
new_references.appl_fee_amt
);
p_action => 'INSERT',
x_rowid => X_ROWID
);
end INSERT_ROW;
cursor c1 is select
APPL_DT,
ACAD_CAL_TYPE,
ACAD_CI_SEQUENCE_NUMBER,
ADM_CAL_TYPE,
ADM_CI_SEQUENCE_NUMBER,
ADMISSION_CAT,
S_ADMISSION_PROCESS_TYPE,
ADM_APPL_STATUS,
ADM_FEE_STATUS,
TAC_APPL_IND,
spcl_grp_1,
spcl_grp_2,
common_app,
application_type,
choice_number,
routeb_pref,
alt_appl_id,
appl_fee_amt
from IGS_AD_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_ADMISSION_APPL_NUMBER in NUMBER,
X_APPL_DT in DATE,
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_ADMISSION_CAT in VARCHAR2,
X_S_ADMISSION_PROCESS_TYPE in VARCHAR2,
X_ADM_APPL_STATUS in VARCHAR2,
X_ADM_FEE_STATUS in VARCHAR2,
X_TAC_APPL_IND in VARCHAR2,
x_spcl_grp_1 IN NUMBER,
x_spcl_grp_2 IN NUMBER,
x_common_app IN VARCHAR2,
x_application_type IN VARCHAR2,
X_MODE IN VARCHAR2,
x_choice_number IN VARCHAR2,
x_routeb_pref IN VARCHAR2,
x_alt_appl_id IN VARCHAR2,
x_appl_fee_amt IN NUMBER 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_person_id => X_PERSON_ID,
x_admission_appl_number => X_ADMISSION_APPL_NUMBER,
x_appl_dt => X_APPL_DT,
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_admission_cat => X_ADMISSION_CAT,
x_s_admission_process_type => X_S_ADMISSION_PROCESS_TYPE,
x_adm_appl_status => X_ADM_APPL_STATUS,
x_adm_fee_status => X_ADM_FEE_STATUS,
x_tac_appl_ind => X_TAC_APPL_IND,
x_spcl_grp_1 => x_spcl_grp_1,
x_spcl_grp_2 => x_spcl_grp_2,
x_common_app => x_common_app,
x_application_type => x_application_type,
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_choice_number => x_choice_number,
x_routeb_pref => x_routeb_pref,
x_alt_appl_id => x_alt_appl_id,
x_appl_fee_amt => x_appl_fee_amt
);
X_PROGRAM_UPDATE_DATE := OLD_REFERENCES.PROGRAM_UPDATE_DATE;
X_PROGRAM_UPDATE_DATE := SYSDATE;
/* Removed the Commencement Period details (Acad and Adm calendars) from the update statement
as they should not be allowed to update for an existing application. Bug: 2772337 */
IF (x_mode = 'S') THEN
igs_sc_gen_001.set_ctx('R');
update IGS_AD_APPL_ALL set
APPL_DT = NEW_REFERENCES.APPL_DT,
ADM_APPL_STATUS = NEW_REFERENCES.ADM_APPL_STATUS,
ADM_FEE_STATUS = NEW_REFERENCES.ADM_FEE_STATUS,
TAC_APPL_IND = NEW_REFERENCES.TAC_APPL_IND,
spcl_grp_1 = NEW_REFERENCES.spcl_grp_1,
spcl_grp_2 = NEW_REFERENCES.spcl_grp_2,
common_app = NEW_REFERENCES.common_app,
application_type = NEW_REFERENCES.application_type,
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,
choice_number = new_references.choice_number,
routeb_pref = new_references.routeb_pref,
alt_appl_id = new_references.alt_appl_id,
appl_fee_amt = new_references.appl_fee_amt
where ROWID = X_ROWID
;
p_action => 'UPDATE',
x_rowid => X_ROWID
);
end UPDATE_ROW;
cursor c1 is select rowid from IGS_AD_APPL_ALL
where PERSON_ID = X_PERSON_ID
and ADMISSION_APPL_NUMBER = X_ADMISSION_APPL_NUMBER
;
INSERT_ROW (
X_ROWID,
X_ORG_ID,
X_PERSON_ID,
X_ADMISSION_APPL_NUMBER,
X_APPL_DT,
X_ACAD_CAL_TYPE,
X_ACAD_CI_SEQUENCE_NUMBER,
X_ADM_CAL_TYPE,
X_ADM_CI_SEQUENCE_NUMBER,
X_ADMISSION_CAT,
X_S_ADMISSION_PROCESS_TYPE,
X_ADM_APPL_STATUS,
X_ADM_FEE_STATUS,
X_TAC_APPL_IND,
x_spcl_grp_1,
x_spcl_grp_2,
x_common_app,
x_application_type,
X_MODE,
x_choice_number,
x_routeb_pref,
x_alt_appl_id,
x_appl_fee_amt
);
UPDATE_ROW (
X_ROWID,
X_PERSON_ID,
X_ADMISSION_APPL_NUMBER,
X_APPL_DT,
X_ACAD_CAL_TYPE,
X_ACAD_CI_SEQUENCE_NUMBER,
X_ADM_CAL_TYPE,
X_ADM_CI_SEQUENCE_NUMBER,
X_ADMISSION_CAT,
X_S_ADMISSION_PROCESS_TYPE,
X_ADM_APPL_STATUS,
X_ADM_FEE_STATUS,
X_TAC_APPL_IND,
x_spcl_grp_1,
x_spcl_grp_2,
x_common_app,
x_application_type,
X_MODE,
x_choice_number,
x_routeb_pref,
x_alt_appl_id,
x_appl_fee_amt
);
procedure DELETE_ROW (
X_ROWID in VARCHAR2,
x_mode IN VARCHAR2
) AS
begin
Before_DML (
p_action => 'DELETE',
x_rowid => X_ROWID
);
delete from IGS_AD_APPL_ALL
where ROWID = X_ROWID;
p_action => 'DELETE',
x_rowid => X_ROWID
);
end DELETE_ROW;