48:
49:
50: CURSOR c_appl_hist_cur IS
51: SELECT *
52: FROM igs_ad_apphist_int
53: WHERE interface_run_id = p_interface_run_id
54: AND status = '2'
55: ORDER BY person_id,admission_appl_number;
56:
73:
74: l_status VARCHAR2(1);
75:
76: l_person_id igs_ad_interface.person_id%TYPE;
77: l_admission_appl_number igs_ad_apphist_int.admission_appl_number%TYPE;
78:
79: l_person_id_errored igs_ad_interface.person_id%TYPE;
80: l_adm_appl_num_errored igs_ad_apphist_int.admission_appl_number%TYPE;
81:
76: l_person_id igs_ad_interface.person_id%TYPE;
77: l_admission_appl_number igs_ad_apphist_int.admission_appl_number%TYPE;
78:
79: l_person_id_errored igs_ad_interface.person_id%TYPE;
80: l_adm_appl_num_errored igs_ad_apphist_int.admission_appl_number%TYPE;
81:
82: l_prog_label VARCHAR2(100);
83: l_label VARCHAR2(100);
84: l_debug_str VARCHAR2(2000);
155: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
156: END IF;
157:
158: -- Error out all the interface records, if the corrospending person already having application history details.
159: UPDATE igs_ad_apphist_int in_rec
160: SET error_code = cst_ec_val_E686
161: ,error_text = cst_et_val_E686
162: , status ='3'
163: WHERE STATUS = '2'
168: AND admission_appl_number = in_rec.admission_appl_number);
169:
170: COMMIT;
171:
172: UPDATE igs_ad_apphist_int in_rec
173: SET error_code = cst_ec_val_E709
174: ,error_text = cst_et_val_E709
175: , status ='3'
176: WHERE STATUS = '2'
236: x_adm_fee_status => appl_hist_rec.adm_fee_status,
237: x_tac_appl_ind => appl_hist_rec.tac_appl_ind,
238: x_mode => 'R');
239:
240: UPDATE igs_ad_apphist_int
241: SET status =cst_s_val_1
242: WHERE interface_apphist_id = appl_hist_rec.interface_apphist_id;
243: -- If the all qulaificaton records with same person_id are processed , then commit;
244: --If person_id changes from previous one then it means that records with previous person_id are processed
248: l_person_id_errored := appl_hist_rec.person_id ;
249: l_adm_appl_num_errored := appl_hist_rec.admission_appl_number;
250:
251: l_error_text := igs_ad_gen_016.get_lkup_meaning ('IMPORT_ERROR_CODE', l_error_code, 8405);
252: UPDATE igs_ad_apphist_int
253: SET status = cst_s_val_3
254: , error_code = l_error_code
255: , error_text = l_error_text
256: WHERE interface_apphist_id = appl_hist_rec.interface_apphist_id;
255: , error_text = l_error_text
256: WHERE interface_apphist_id = appl_hist_rec.interface_apphist_id;
257:
258: IF p_enable_log = 'Y' THEN
259: igs_ad_imp_001.logerrormessage(appl_hist_rec.interface_apphist_id,l_error_code,'IGS_AD_APPHIST_INT');
260: END IF;
261: l_error_code := 'E688';
262: l_error_text := igs_ad_gen_016.get_lkup_meaning ('IMPORT_ERROR_CODE', 'E688', 8405);
263:
260: END IF;
261: l_error_code := 'E688';
262: l_error_text := igs_ad_gen_016.get_lkup_meaning ('IMPORT_ERROR_CODE', 'E688', 8405);
263:
264: UPDATE igs_ad_apphist_int
265: SET status = cst_s_val_3
266: , error_code = l_error_code
267: , error_text = l_error_text
268: WHERE person_id = appl_hist_rec.person_id
281: p_hash_msg_name_text_type_tab => l_hash_msg_name_text_type_tab);
282: IF l_hash_msg_name_text_type_tab(l_msg_count-1).name <> 'ORA' THEN
283: l_error_text := l_msg_data;
284: IF p_enable_log = 'Y' THEN
285: igs_ad_imp_001.logerrormessage(appl_hist_rec.interface_apphist_id,l_msg_data,'IGS_AD_APPHIST_INT');
286: END IF;
287: ELSE
288: l_error_code := 'E518';
289: IF fnd_log.test(fnd_log.level_exception,l_prog_label) THEN
303: l_adm_appl_num_errored := appl_hist_rec.admission_appl_number;
304:
305: l_error_text := NVL(l_msg_data,igs_ad_gen_016.get_lkup_meaning ('IMPORT_ERROR_CODE', l_error_code, 8405));
306:
307: UPDATE igs_ad_apphist_int
308: SET status = cst_s_val_3
309: , error_code = l_error_code
310: , error_text = l_error_text
311: WHERE interface_apphist_id = appl_hist_rec.interface_apphist_id;
313: l_error_code := 'E688';
314:
315: l_error_text := igs_ad_gen_016.get_lkup_meaning ('IMPORT_ERROR_CODE', l_error_code, 8405);
316:
317: UPDATE igs_ad_apphist_int
318: SET status = cst_s_val_3
319: , error_code = l_error_code
320: , error_text = l_error_text
321: WHERE person_id = appl_hist_rec.person_id