[Home] [Help]
232: p_error_text VARCHAR2, p_sequence_number NUMBER,p_error_code VARCHAR2,
233: p_admission_appl_number NUMBER ,
234: p_match_ind VARCHAR2 ) AS
235: PRAGMA AUTONOMOUS_TRANSACTION;
236: l_error_text igs_ad_ps_appl_inst_int.error_text%TYPE;
237: BEGIN
238: UPDATE igs_ad_ps_appl_inst_int
239: SET error_text = p_error_text,
240: status = p_status,
234: p_match_ind VARCHAR2 ) AS
235: PRAGMA AUTONOMOUS_TRANSACTION;
236: l_error_text igs_ad_ps_appl_inst_int.error_text%TYPE;
237: BEGIN
238: UPDATE igs_ad_ps_appl_inst_int
239: SET error_text = p_error_text,
240: status = p_status,
241: sequence_number = p_sequence_number,
242: error_code = p_error_code,
287: cp_interface_appl_id igs_ad_apl_int.interface_appl_id%TYPE ) IS
288: SELECT
289: cst_insert dmlmode, aplinst.rowid, aplinst.*
290: FROM
291: igs_ad_ps_appl_inst_int aplinst
292: WHERE aplinst.status = '2'
293: AND aplinst.interface_run_id = p_interface_run_id
294: AND ( p_rule = 'R' AND aplinst.match_ind IN ('16', '25')
295: OR update_adm_seq_number IS NULL )
297: UNION ALL
298: SELECT
299: cst_update dmlmode, aplinst.rowid, aplinst.*
300: FROM
301: igs_ad_ps_appl_inst_int aplinst
302: WHERE aplinst.status = '2'
303: AND aplinst.interface_run_id = p_interface_run_id
304: AND aplinst.interface_appl_id = NVL(cp_interface_appl_id , aplinst.interface_appl_id)
305: AND ( p_rule = 'I' OR (p_rule = 'R' AND aplinst.match_ind = '21'))
1282: -- IF update_seq_num is NOT NULL
1283: -- update the instance
1284: -- ELSE create_application_instance
1285: --If given invalid update transcript ID then error out.
1286: UPDATE igs_ad_ps_appl_inst_int aplinst
1287: SET
1288: status = '3'
1289: , error_code = 'E706'
1290: ,error_Text = igs_ad_gen_016.get_lkup_meaning ('IMPORT_ERROR_CODE', 'E706', 8405)
1299: ) ;
1300: COMMIT;
1301: -- 1. Set STATUS to 3 for interface records with RULE = E or I and MATCH IND is not null and not '15'
1302: IF p_rule IN ('E', 'I') THEN
1303: UPDATE igs_ad_ps_appl_inst_int
1304: SET
1305: status = '3'
1306: , error_code = 'E700'
1307: ,error_Text = igs_ad_gen_016.get_lkup_meaning ('IMPORT_ERROR_CODE', 'E700', 8405)
1312: COMMIT;
1313:
1314: -- 2. Set STATUS to 1 for interface records with RULE = R and MATCH IND = 17,18,19,22,23,24,27
1315: IF p_rule = 'R' THEN
1316: UPDATE igs_ad_ps_appl_inst_int
1317: SET
1318: status = '1', error_code = NULL
1319: WHERE interface_run_id = p_interface_run_id
1320: AND status = '2'
1321: AND match_ind IN ('17', '18', '19', '22', '23', '24', '27');
1322: END IF;
1323:
1324: IF p_rule = 'E' THEN
1325: UPDATE igs_ad_ps_appl_inst_int
1326: SET
1327: status = '1'
1328: , match_ind = '19'
1329: , SEQUENCE_NUMBER = update_adm_seq_number
1476: x_appl_inst_status =>dup_applinst_rec.appl_inst_status,
1477: x_ais_reason =>dup_applinst_rec.ais_reason
1478: );
1479:
1480: UPDATE igs_ad_ps_appl_inst_int
1481: SET
1482: status = '1',
1483: sequence_number = dup_applinst_rec.sequence_number
1484: WHERE interface_ps_appl_inst_id = applinst_rec.interface_ps_appl_inst_id;
1518: l_debug_str, NULL,
1519: NULL,NULL,NULL,NULL,TO_CHAR(l_request_id));
1520: END IF;
1521: END IF;
1522: UPDATE igs_ad_ps_appl_inst_int
1523: SET
1524: status = '3',
1525: error_code = l_error_code,
1526: error_text = l_error_text
1530: END IF;
1531: END LOOP;
1532:
1533: IF p_rule = 'R' THEN
1534: UPDATE igs_ad_ps_appl_inst_int applinst
1535: SET
1536: status = '1'
1537: , match_ind = '23'
1538: , sequence_number = applinst.update_adm_seq_number
1590: END IF;
1591:
1592:
1593: IF p_rule = 'R' THEN
1594: UPDATE igs_ad_ps_appl_inst_int
1595: SET
1596: status = '3'
1597: , match_ind = '20'
1598: WHERE interface_run_id = p_interface_run_id
1600: AND update_adm_seq_number IS NOT NULL;
1601: END IF;
1602:
1603: IF p_rule = 'R' THEN
1604: UPDATE igs_ad_ps_appl_inst_int
1605: SET
1606: status = '3'
1607: , error_code = 'E700'
1608: , error_text = igs_ad_gen_016.get_lkup_meaning ('IMPORT_ERROR_CODE', 'E700', 8405)
1840: );
1841: END IF;
1842: COMMIT;
1843:
1844: UPDATE igs_ad_ps_appl_inst_int a
1845: SET (person_id, admission_appl_number,interface_run_id ) =
1846: ( SELECT person_id, admission_appl_number ,interface_run_id
1847: FROM igs_ad_apl_int
1848: WHERE interface_appl_id = a.interface_appl_id