The following lines contain the word 'select', 'insert', 'update' or 'delete':
cdcruz 18-feb-2002 bug 2217104 Admit to future term Enhancement,updated tbh call for
new columns being added to IGS_AD_PS_APPL_INST
nshee 29-Aug-2002 Bug 2395510 added 6 columns as part of deferments build
***************************************************************/
-- All records selected from Interface Tables
CURSOR c_acai_int (p_acadindex_batch_id NUMBER) IS
SELECT aii.acadindex_id,
aii.person_id,
aii.admission_appl_number,
aii.nominated_course_cd,
aii.sequence_number,
aii.admission_index,
aii.calculation_date
FROM igs_ad_acad_idx_int_all aii,
igs_ad_acidx_hdr aih
WHERE aii.record_status ='2'
AND aih.acadindex_batch_id = p_acadindex_batch_id
AND aii.acadindex_batch_id = aih.acadindex_batch_id;
SELECT 'x'
FROM igs_ad_acad_idx_int_all
WHERE acadindex_batch_id = p_acadindex_batch_id;
PROCEDURE update_int_table(p_rec_status NUMBER,
p_error_code VARCHAR2,
p_acadindex_id NUMBER,
p_log_text VARCHAR2) AS
BEGIN
UPDATE igs_ad_acad_idx_int_all
SET record_status = p_rec_status,
error_code = p_error_code,
error_Text = p_log_text
WHERE acadindex_id = p_acadindex_id;
END update_int_table;
update_int_table('3','E005',c_acai_inst_rec.acadindex_id,l_msg_data);
update_int_table('3','E004',c_acai_inst_rec.acadindex_id,'IGS_GE_UNHANDLED_EXCEPTION');
ELSE -- Delete the successful record from Interface Table
-- FND_FILE.PUT_LINE(FND_FILE.LOG, '7: If Return status = success then delete the record');
DELETE igs_ad_acad_idx_int_all
WHERE acadindex_id=c_acai_inst_rec.acadindex_id;
update_int_table('3','E004',c_acai_inst_rec.acadindex_id,'IGS_GE_UNHANDLED_EXCEPTION');
DELETE igs_ad_acidx_hdr_all
WHERE acadindex_batch_id = p_acadindex_batch_id;
FND_MESSAGE.SET_NAME('IGS','IGS_AD_ACDX_REC_DELETED');