[Home] [Help]
43:
44: IF g_crnt_institute IS NULL THEN
45: fnd_message.set_name('IGS','IGS_UC_CURR_INST_NOT_SET');
46: errbuf := fnd_message.get;
47: fnd_file.put_line(fnd_file.log, errbuf);
48: retcode := 2;
49: END IF;
50:
51:
55:
56: IF g_config_cycle IS NULL THEN
57: fnd_message.set_name('IGS','IGS_UC_CYCLE_NOT_FOUND');
58: errbuf := fnd_message.get;
59: fnd_file.put_line(fnd_file.log, errbuf);
60: retcode := 2;
61: END IF;
62:
63: EXCEPTION
66: Fnd_Message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
67: fnd_message.set_token('NAME', 'PROCESS_UCAS_DATA.APPL_DATA_SETUP');
68: retcode := 2;
69: errbuf := fnd_message.get;
70: fnd_file.put_line(fnd_file.log, errbuf);
71: END appl_data_setup;
72:
73: PROCEDURE validate_applicant (p_appno igs_uc_applicants.app_no%TYPE,
74: p_error_cd OUT NOCOPY g_error_code%TYPE) IS
196: fnd_Message.Set_name('IGS','IGS_UC_ERR_CREATE_PRSN');
197: fnd_message.set_token('APPNO', ivstarn_rec.appno);
198: fnd_message.set_token('INTERFACE_ID', ivstarn_rec.ad_interface_id);
199: fnd_message.set_token('BATCH', ivstarn_rec.ad_batch_id);
200: fnd_file.put_line(fnd_file.LOG, fnd_message.get());
201:
202: END IF;
203:
204: END LOOP;
215:
216: -- even though the admission import process completes in error , this process should continue processing
217: Fnd_Message.Set_name('IGS','IGS_GE_UNHANDLED_EXP');
218: fnd_message.set_token('NAME','IGS_UC_PROC_APPLICATION_DATA.PROC_UPDATE_IVSTARN_STATUS'||' - '||SQLERRM);
219: fnd_file.put_line(fnd_file.LOG,fnd_message.get());
220:
221: END proc_update_ivstarn_status;
222:
223:
260:
261: BEGIN
262:
263: -- log Processing message
264: fnd_file.put_line(fnd_file.log, '==========================================================================');
265: fnd_Message.Set_name('IGS','IGS_UC_PRSN_UPDATE_FOR_APPNO');
266: fnd_message.set_token('TIME', TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
267: fnd_file.put_line(fnd_file.LOG,fnd_message.get);
268: fnd_file.put_line(fnd_file.log, '==========================================================================');
263: -- log Processing message
264: fnd_file.put_line(fnd_file.log, '==========================================================================');
265: fnd_Message.Set_name('IGS','IGS_UC_PRSN_UPDATE_FOR_APPNO');
266: fnd_message.set_token('TIME', TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
267: fnd_file.put_line(fnd_file.LOG,fnd_message.get);
268: fnd_file.put_line(fnd_file.log, '==========================================================================');
269:
270: FOR ucas_app_person_rec IN ucas_app_person_cur
271: LOOP
264: fnd_file.put_line(fnd_file.log, '==========================================================================');
265: fnd_Message.Set_name('IGS','IGS_UC_PRSN_UPDATE_FOR_APPNO');
266: fnd_message.set_token('TIME', TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
267: fnd_file.put_line(fnd_file.LOG,fnd_message.get);
268: fnd_file.put_line(fnd_file.log, '==========================================================================');
269:
270: FOR ucas_app_person_rec IN ucas_app_person_cur
271: LOOP
272:
301:
302: -- log Processing message
303: fnd_Message.Set_name('IGS','IGS_UC_PRSN_POPULATE_APPNO');
304: fnd_message.set_token('APPNO', TO_CHAR(ucas_app_person_rec.app_no));
305: fnd_file.put_line(fnd_file.LOG,fnd_message.get);
306:
307: -- update UCAS Applicants table with Person ID.
308: BEGIN
309: igs_uc_applicants_pkg.update_row -- IGSXI01B.pls
419: );
420:
421: EXCEPTION
422: WHEN OTHERS THEN
423: fnd_file.put_line(fnd_file.log, SQLERRM);
424:
425: END;
426:
427: END IF;
432: IF get_person_cur%ISOPEN THEN
433: CLOSE get_person_cur;
434: END IF;
435:
436: fnd_file.put_line(fnd_file.LOG, SQLERRM);
437: fnd_Message.Set_name('IGS','IGS_UC_ERR_PRSN_POPULATION');
438: fnd_message.set_token('APPNO', TO_CHAR(ucas_app_person_rec.app_no));
439: fnd_file.put_line(fnd_file.LOG,fnd_message.get);
440: END;
435:
436: fnd_file.put_line(fnd_file.LOG, SQLERRM);
437: fnd_Message.Set_name('IGS','IGS_UC_ERR_PRSN_POPULATION');
438: fnd_message.set_token('APPNO', TO_CHAR(ucas_app_person_rec.app_no));
439: fnd_file.put_line(fnd_file.LOG,fnd_message.get);
440: END;
441:
442: END LOOP;
443:
445: WHEN OTHERS THEN
446: -- even though Exception is raised in this process, process should continue.
447: Fnd_Message.Set_name('IGS','IGS_GE_UNHANDLED_EXP');
448: fnd_message.set_token('NAME','IGS_UC_PROC_APPLICATION_DATA.PROC_POPULATE_OSS_PERSON'||' - '||SQLERRM);
449: fnd_file.put_line(fnd_file.LOG,fnd_message.get());
450: END proc_populate_oss_person ;
451:
452:
453:
477: match_set_rec cur_match_set%ROWTYPE;
478:
479: BEGIN
480:
481: fnd_file.put_line(fnd_file.log, '==========================================================================');
482: fnd_Message.Set_name('IGS','IGS_UC_ADM_IMP_PROC_LAUNCH');
483: fnd_message.set_token('REQ_ID', TO_CHAR(p_batch_id) || ' At ' || TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
484: fnd_file.put_line(fnd_file.LOG, fnd_message.get);
485: fnd_file.put_line(fnd_file.log, '==========================================================================');
480:
481: fnd_file.put_line(fnd_file.log, '==========================================================================');
482: fnd_Message.Set_name('IGS','IGS_UC_ADM_IMP_PROC_LAUNCH');
483: fnd_message.set_token('REQ_ID', TO_CHAR(p_batch_id) || ' At ' || TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
484: fnd_file.put_line(fnd_file.LOG, fnd_message.get);
485: fnd_file.put_line(fnd_file.log, '==========================================================================');
486:
487: -- Get the match set criteria corresponding to the ucas source type to be used for the person import
488: match_set_rec := NULL ;
481: fnd_file.put_line(fnd_file.log, '==========================================================================');
482: fnd_Message.Set_name('IGS','IGS_UC_ADM_IMP_PROC_LAUNCH');
483: fnd_message.set_token('REQ_ID', TO_CHAR(p_batch_id) || ' At ' || TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
484: fnd_file.put_line(fnd_file.LOG, fnd_message.get);
485: fnd_file.put_line(fnd_file.log, '==========================================================================');
486:
487: -- Get the match set criteria corresponding to the ucas source type to be used for the person import
488: match_set_rec := NULL ;
489: OPEN cur_match_set;
510: p_interface_run_id => l_interface_run_id ,
511: P_org_id => NULL
512: );
513:
514: fnd_file.put_line(fnd_file.log, '==========================================================================');
515: fnd_Message.Set_name('IGS', 'IGS_UC_RTRN_ADM_IMP_PROC') ;
516: fnd_message.set_token('TIME', TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
517: fnd_file.put_line(fnd_file.log, fnd_message.get);
518: fnd_file.put_line(fnd_file.log, '==========================================================================');
513:
514: fnd_file.put_line(fnd_file.log, '==========================================================================');
515: fnd_Message.Set_name('IGS', 'IGS_UC_RTRN_ADM_IMP_PROC') ;
516: fnd_message.set_token('TIME', TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
517: fnd_file.put_line(fnd_file.log, fnd_message.get);
518: fnd_file.put_line(fnd_file.log, '==========================================================================');
519:
520: EXCEPTION
521: WHEN OTHERS THEN
514: fnd_file.put_line(fnd_file.log, '==========================================================================');
515: fnd_Message.Set_name('IGS', 'IGS_UC_RTRN_ADM_IMP_PROC') ;
516: fnd_message.set_token('TIME', TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
517: fnd_file.put_line(fnd_file.log, fnd_message.get);
518: fnd_file.put_line(fnd_file.log, '==========================================================================');
519:
520: EXCEPTION
521: WHEN OTHERS THEN
522: -- even though the admission import process completes in error , this process should continue processing
527: END IF;
528:
529: fnd_Message.Set_name('IGS','IGS_GE_UNHANDLED_EXP');
530: fnd_message.set_token('NAME','IGS_UC_PROC_APPLICATION_DATA.PROC_INVOKE_ADM_IMP_PROCESS'||' - '||SQLERRM);
531: fnd_file.put_line(fnd_file.LOG,fnd_message.get());
532:
533: END proc_invoke_adm_imp_process;
534:
535:
658: l_invoke_adm_import_Proc_flag := 'N';
659:
660: fnd_message.set_name('IGS','IGS_UC_PROC_VIEW_DATA');
661: fnd_message.set_token('VIEW', 'IVSTARN ON '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
662: fnd_file.put_line(fnd_file.log, fnd_message.get);
663:
664: ----------------------------------------------------
665: -- Derive the SOURCE TYPE ID value for UCAS PER.
666: -- Derived only once per execution of this procedure
670:
671: IF (src_types_cur%NOTFOUND) THEN
672: CLOSE src_types_cur;
673: fnd_message.set_name('IGS','IGS_UC_NO_UCAS_SRC_TYP');
674: fnd_file.put_line(fnd_file.log, fnd_message.get);
675: App_Exception.Raise_Exception;
676: END IF;
677: CLOSE src_types_cur;
678:
698:
699: -- log record processing info.
700: fnd_message.set_name('IGS','IGS_UC_APPNO_PROC');
701: fnd_message.set_token('APPL_NO', TO_CHAR(new_ivstarn_rec.appno));
702: fnd_file.put_line(fnd_file.log, fnd_message.get);
703:
704:
705: SAVEPOINT ivstarn_rec_savepoint;
706:
769: IF l_oss_sex_val IS NULL THEN
770: fnd_message.set_name('IGS','IGS_UC_INV_MAPPING_VAL');
771: fnd_message.set_token('CODE', new_ivstarn_rec.sex);
772: fnd_message.set_token('TYPE', 'SEX');
773: fnd_file.put_line(fnd_file.log, fnd_message.get);
774: g_error_code := '1054';
775: END IF;
776:
777: END IF;
811: -- The record should get processed with TITLE as NULL.
812: fnd_message.set_name('IGS','IGS_UC_INVALID_TITLE');
813: fnd_message.set_token('UCAS_TITLE', new_ivstarn_rec.title);
814: fnd_message.set_token('APPNO', TO_CHAR(new_ivstarn_rec.appno));
815: fnd_file.put_line(fnd_file.log, fnd_message.get);
816: new_ivstarn_rec.title := NULL;
817:
818: ELSE -- since found with '.', append it to Title.
819: new_ivstarn_rec.title := new_ivstarn_rec.title || '.';
837: IF g_error_code IS NULL THEN
838:
839: -- log appropriate message
840: fnd_message.set_name('IGS','IGS_UC_PROC_UCAS_APP');
841: fnd_file.put_line(fnd_file.log, fnd_message.get);
842:
843: -- check whether the Application rec already exists in UCAS Applicants table.
844: OPEN old_appl_cur(new_ivstarn_rec.appno);
845: FETCH old_appl_cur INTO appl_rec;
959:
960: EXCEPTION
961: WHEN OTHERS THEN
962: g_error_code := '1056';
963: fnd_file.put_line(fnd_file.log, SQLERRM);
964: END;
965:
966: ELSE
967: -- no update to IGS_UC_APPLICANTS from this procedure. Only insert is allowed
980: IF g_error_code IS NULL THEN
981:
982: -- log appropriate message
983: fnd_message.set_name('IGS','IGS_UC_PROC_UCAS_NAMES');
984: fnd_file.put_line(fnd_file.log, fnd_message.get);
985:
986:
987: -- check whether the Application rec already exists in UCAS NAMES table.
988: OPEN old_starn_cur(new_ivstarn_rec.appno);
1012:
1013: EXCEPTION
1014: WHEN OTHERS THEN
1015: g_error_code := '9999';
1016: fnd_file.put_line(fnd_file.log, SQLERRM);
1017: END;
1018:
1019: ELSE -- Corr. rec exists in UCAS Names table hence going for update.
1020:
1037:
1038: EXCEPTION
1039: WHEN OTHERS THEN
1040: g_error_code := '9998';
1041: fnd_file.put_line(fnd_file.log, SQLERRM);
1042: END;
1043:
1044: END IF; -- insert/update APP NAMES table.
1045:
1074:
1075: -- log appropriate message
1076: fnd_message.set_name('IGS','IGS_UC_ADM_IMP_BATCH_ID');
1077: fnd_message.set_token('BATCHID', TO_CHAR(l_adm_batch_id));
1078: fnd_file.put_line(fnd_file.log, fnd_message.get);
1079:
1080: -- Populate a batch record into Adm Batch table
1081: INSERT INTO igs_ad_imp_batch_det ( batch_id,
1082: batch_desc,
1104:
1105: EXCEPTION
1106: WHEN OTHERS THEN
1107: g_error_code := '9999';
1108: fnd_file.put_line(fnd_file.log, SQLERRM);
1109: END;
1110:
1111: END IF; -- Flag check
1112:
1114: IF g_error_code IS NULL THEN
1115: BEGIN
1116: fnd_message.set_name('IGS','IGS_UC_APP_REC_INTO_ADM');
1117: fnd_message.set_token('APPNO', TO_CHAR(new_ivstarn_rec.appno));
1118: fnd_file.put_line(fnd_file.log, fnd_message.get);
1119:
1120: -- get the IGS_AD_INTERFACE ID.
1121: OPEN get_interface_id;
1122: FETCH get_interface_id INTO l_interface_id;
1165:
1166: -- log appropriate message
1167: fnd_message.set_name('IGS','IGS_UC_ADM_IMP_INT_ID');
1168: fnd_message.set_token('INT_ID', TO_CHAR(l_interface_id));
1169: fnd_file.put_line(fnd_file.log, fnd_message.get);
1170:
1171:
1172: EXCEPTION
1173: WHEN OTHERS THEN
1171:
1172: EXCEPTION
1173: WHEN OTHERS THEN
1174: g_error_code := '1057'; -- insert error
1175: fnd_file.put_line(fnd_file.log, SQLERRM);
1176:
1177: -- Close any Open cursors
1178: IF get_interface_id%ISOPEN THEN
1179: CLOSE get_interface_id;
1184: -- Processing for Populating Alternate Person ID table.
1185: IF g_error_code IS NULL THEN
1186:
1187: fnd_message.set_name('IGS','IGS_UC_APP_REC_INTO_ALT_PRSN');
1188: fnd_file.put_line(fnd_file.log, fnd_message.get);
1189:
1190: --Derive the Alternate Person ID Type based on the system to which the Application belongs.
1191: IF l_system_code = 'U' THEN
1192: l_alt_pers_id_type := 'UCASID';
1244:
1245: -- log appropriate message
1246: fnd_message.set_name('IGS','IGS_UC_ADM_IMP_API_INT_ID');
1247: fnd_message.set_token('INT_ID', TO_CHAR(l_alt_pers_seq_id));
1248: fnd_file.put_line(fnd_file.log, fnd_message.get);
1249:
1250:
1251: EXCEPTION
1252: WHEN OTHERS THEN
1250:
1251: EXCEPTION
1252: WHEN OTHERS THEN
1253: g_error_code := '1058';
1254: fnd_file.put_line(fnd_file.log, SQLERRM);
1255:
1256: -- Close any Open cursors
1257: IF get_alt_pers_id_cur%ISOPEN THEN
1258: CLOSE get_alt_pers_id_cur;
1275: -- catch any unhandled/unexpected errors while processing a record.
1276: -- This would enable processing to continue with subsequent records.
1277: ROLLBACK TO ivstarn_rec_savepoint;
1278: g_error_code := '1055';
1279: fnd_file.put_line(fnd_file.log, SQLERRM);
1280:
1281: -- Close any Open cursors
1282: IF cur_ucas_control%ISOPEN THEN
1283: CLOSE cur_ucas_control;
1312: IF g_error_code IS NOT NULL THEN
1313:
1314: fnd_message.set_name('IGS','IGS_UC_REC_FAIL_PROC');
1315: fnd_message.set_token('APPNO', TO_CHAR(new_ivstarn_rec.appno));
1316: fnd_file.put_line(fnd_file.log, fnd_message.get);
1317:
1318:
1319: -- rollback the insert/updates made for this record
1320: ROLLBACK TO ivstarn_rec_savepoint;
1345:
1346:
1347: END LOOP;
1348:
1349: fnd_file.put_line(fnd_file.log, ''); -- to get a blank line
1350: fnd_file.put_line(fnd_file.log, ''); -- to get a blank line
1351: fnd_file.put_line(fnd_file.log, '==========================================================================');
1352: fnd_message.set_name('IGS','IGS_UC_RECS_INTO_AD_INT');
1353: fnd_message.set_token('RECCNT', TO_CHAR(l_recs_inserted));
1346:
1347: END LOOP;
1348:
1349: fnd_file.put_line(fnd_file.log, ''); -- to get a blank line
1350: fnd_file.put_line(fnd_file.log, ''); -- to get a blank line
1351: fnd_file.put_line(fnd_file.log, '==========================================================================');
1352: fnd_message.set_name('IGS','IGS_UC_RECS_INTO_AD_INT');
1353: fnd_message.set_token('RECCNT', TO_CHAR(l_recs_inserted));
1354: fnd_file.put_line(fnd_file.log, fnd_message.get);
1347: END LOOP;
1348:
1349: fnd_file.put_line(fnd_file.log, ''); -- to get a blank line
1350: fnd_file.put_line(fnd_file.log, ''); -- to get a blank line
1351: fnd_file.put_line(fnd_file.log, '==========================================================================');
1352: fnd_message.set_name('IGS','IGS_UC_RECS_INTO_AD_INT');
1353: fnd_message.set_token('RECCNT', TO_CHAR(l_recs_inserted));
1354: fnd_file.put_line(fnd_file.log, fnd_message.get);
1355: fnd_file.put_line(fnd_file.log, '==========================================================================');
1350: fnd_file.put_line(fnd_file.log, ''); -- to get a blank line
1351: fnd_file.put_line(fnd_file.log, '==========================================================================');
1352: fnd_message.set_name('IGS','IGS_UC_RECS_INTO_AD_INT');
1353: fnd_message.set_token('RECCNT', TO_CHAR(l_recs_inserted));
1354: fnd_file.put_line(fnd_file.log, fnd_message.get);
1355: fnd_file.put_line(fnd_file.log, '==========================================================================');
1356: fnd_file.put_line(fnd_file.log, ''); -- to get a blank line
1357: fnd_file.put_line(fnd_file.log, ''); -- to get a blank line
1358:
1351: fnd_file.put_line(fnd_file.log, '==========================================================================');
1352: fnd_message.set_name('IGS','IGS_UC_RECS_INTO_AD_INT');
1353: fnd_message.set_token('RECCNT', TO_CHAR(l_recs_inserted));
1354: fnd_file.put_line(fnd_file.log, fnd_message.get);
1355: fnd_file.put_line(fnd_file.log, '==========================================================================');
1356: fnd_file.put_line(fnd_file.log, ''); -- to get a blank line
1357: fnd_file.put_line(fnd_file.log, ''); -- to get a blank line
1358:
1359:
1352: fnd_message.set_name('IGS','IGS_UC_RECS_INTO_AD_INT');
1353: fnd_message.set_token('RECCNT', TO_CHAR(l_recs_inserted));
1354: fnd_file.put_line(fnd_file.log, fnd_message.get);
1355: fnd_file.put_line(fnd_file.log, '==========================================================================');
1356: fnd_file.put_line(fnd_file.log, ''); -- to get a blank line
1357: fnd_file.put_line(fnd_file.log, ''); -- to get a blank line
1358:
1359:
1360: COMMIT;
1353: fnd_message.set_token('RECCNT', TO_CHAR(l_recs_inserted));
1354: fnd_file.put_line(fnd_file.log, fnd_message.get);
1355: fnd_file.put_line(fnd_file.log, '==========================================================================');
1356: fnd_file.put_line(fnd_file.log, ''); -- to get a blank line
1357: fnd_file.put_line(fnd_file.log, ''); -- to get a blank line
1358:
1359:
1360: COMMIT;
1361:
1385: WHEN OTHERS THEN
1386: ROLLBACK;
1387: fnd_message.set_name('IGS','IGS_UC_VW_PROC_ERROR');
1388: fnd_message.set_token('VIEW_NAME', 'IVSTARN'||' - '||SQLERRM);
1389: fnd_file.put_line(fnd_file.log, fnd_message.get);
1390: END process_ivstarn;
1391:
1392:
1393:
1443: l_valid := NULL;
1444:
1445: fnd_message.set_name('IGS','IGS_UC_PROC_VIEW_DATA');
1446: fnd_message.set_token('VIEW', 'IVSTARA ON '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
1447: fnd_file.put_line(fnd_file.log, fnd_message.get);
1448:
1449: -- Get all the reocords from interface table with status = 'N'
1450: FOR new_ivstara_rec IN new_ivstara_cur
1451: LOOP
1458:
1459: -- log Application processing message.
1460: fnd_message.set_name('IGS','IGS_UC_APPNO_PROC');
1461: fnd_message.set_token('APPL_NO', TO_CHAR(new_ivstara_rec.appno));
1462: fnd_file.put_line(fnd_file.log, fnd_message.get);
1463:
1464:
1465: -- mandatory field validations
1466: IF new_ivstara_rec.appno IS NULL THEN
1558:
1559: EXCEPTION
1560: WHEN OTHERS THEN
1561: g_error_code := '9999';
1562: fnd_file.put_line(fnd_file.log, SQLERRM);
1563: END;
1564:
1565: ELSE /* Update the record */
1566:
1723:
1724: EXCEPTION
1725: WHEN OTHERS THEN
1726: g_error_code := '9998';
1727: fnd_file.put_line(fnd_file.log, SQLERRM);
1728: END;
1729:
1730: END IF; -- insert / update
1731:
1735: WHEN OTHERS THEN
1736: -- catch any unhandled/unexpected errors while processing a record.
1737: -- This would enable processing to continue with subsequent records.
1738: g_error_code := '1055';
1739: fnd_file.put_line(fnd_file.log, SQLERRM);
1740:
1741: -- Close any Open cursors
1742: IF old_stara_cur%ISOPEN THEN
1743: CLOSE old_stara_cur;
1777: WHEN OTHERS THEN
1778: ROLLBACK;
1779: fnd_message.set_name('IGS','IGS_UC_ERROR_PROC_DATA');
1780: fnd_message.set_token('VIEW', 'IVSTARA'||' - '||SQLERRM);
1781: fnd_file.put_line(fnd_file.log, fnd_message.get);
1782: END process_ivstara;
1783:
1784:
1785:
1878: g_error_code := NULL;
1879:
1880: fnd_message.set_name('IGS','IGS_UC_PROC_VIEW_DATA');
1881: fnd_message.set_token('VIEW', 'IVSTARK ON '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
1882: fnd_file.put_line(fnd_file.log, fnd_message.get);
1883:
1884: -- Get all the reocords from interface table with status = 'N'
1885: FOR new_ivstark_rec IN new_ivstark_cur
1886: LOOP
1893:
1894: -- log Application processing message.
1895: fnd_message.set_name('IGS','IGS_UC_APPNO_PROC');
1896: fnd_message.set_token('APPL_NO', TO_CHAR(new_ivstark_rec.appno));
1897: fnd_file.put_line(fnd_file.log, fnd_message.get);
1898:
1899: -- Mandatory field validations.
1900: IF new_ivstark_rec.appno IS NULL THEN
1901: g_error_code := '1037';
2336:
2337: EXCEPTION
2338: WHEN OTHERS THEN
2339: g_error_code := '9998';
2340: fnd_file.put_line(fnd_file.log, SQLERRM);
2341: END;
2342:
2343: -- jchakrab added for Bug 5481963 - 06-Sep-2006
2344: IF new_ivstark_rec.withdrawn = 'C' OR new_ivstark_rec.withdrawn = 'W' THEN
2421: END LOOP;
2422: EXCEPTION
2423: WHEN OTHERS THEN
2424: g_error_code := '9998';
2425: fnd_file.put_line(fnd_file.log, SQLERRM);
2426: END;
2427:
2428: END IF; -- end-if for new_ivstark_rec.withdrawn = C or W
2429:
2437: WHEN OTHERS THEN
2438: -- catch any unhandled/unexpected errors while processing a record.
2439: -- This would enable processing to continue with subsequent records.
2440: g_error_code := '1055';
2441: fnd_file.put_line(fnd_file.log, SQLERRM);
2442:
2443: -- Close any Open cursors
2444: IF validate_refcodes_cur%ISOPEN THEN
2445: CLOSE validate_refcodes_cur;
2491: WHEN OTHERS THEN
2492: ROLLBACK;
2493: fnd_message.set_name('IGS','IGS_UC_ERROR_PROC_DATA');
2494: fnd_message.set_token('VIEW', 'IVSTARK'||' - '||SQLERRM);
2495: fnd_file.put_line(fnd_file.log, fnd_message.get);
2496: END process_ivstark;
2497:
2498:
2499:
2606: g_error_code := NULL;
2607:
2608: fnd_message.set_name('IGS','IGS_UC_PROC_VIEW_DATA');
2609: fnd_message.set_token('VIEW', 'IVSTARC ON '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
2610: fnd_file.put_line(fnd_file.log, fnd_message.get);
2611:
2612: -- Get all the reocords from interface table with status = 'N'
2613: FOR new_ivstarc_rec IN new_ivstarc_cur
2614: LOOP
2628: -- log Application Choice processing message.
2629: fnd_message.set_name('IGS','IGS_UC_APPNO_CHOICE_PROC');
2630: fnd_message.set_token('APPNO', TO_CHAR(new_ivstarc_rec.appno));
2631: fnd_message.set_token('CHOICE',TO_CHAR(new_ivstarc_rec.choiceno));
2632: fnd_file.put_line(fnd_file.log, fnd_message.get);
2633:
2634:
2635: -- no mandatory field validations as this is an update
2636: IF new_ivstarc_rec.appno IS NULL OR new_ivstarc_rec.choiceno IS NULL OR
2863: EXCEPTION
2864: WHEN OTHERS THEN
2865:
2866: g_error_code := '9999';
2867: fnd_file.put_line(fnd_file.log, SQLERRM);
2868: END;
2869:
2870: END IF; --error code
2871:
2960:
2961: EXCEPTION
2962: WHEN OTHERS THEN
2963: g_error_code := '9998';
2964: fnd_file.put_line(fnd_file.log, SQLERRM);
2965: END;
2966:
2967:
2968: -- calling the update tbh
3035:
3036: EXCEPTION
3037: WHEN OTHERS THEN
3038: g_error_code := '9998';
3039: fnd_file.put_line(fnd_file.log, SQLERRM);
3040: END;
3041:
3042: END IF; -- error code for Update row
3043:
3155:
3156: EXCEPTION
3157: WHEN OTHERS THEN
3158: g_error_code := '9998';
3159: fnd_file.put_line(fnd_file.log, SQLERRM);
3160: END;
3161:
3162: END IF; -- error code for Update row
3163:
3190:
3191: -- catch any unhandled/unexpected errors while processing a record.
3192: -- This would enable processing to continue with subsequent records.
3193: g_error_code := '1055';
3194: fnd_file.put_line(fnd_file.log, SQLERRM);
3195:
3196:
3197:
3198: END;
3231: WHEN OTHERS THEN
3232: ROLLBACK;
3233: fnd_message.set_name('IGS','IGS_UC_ERROR_PROC_DATA');
3234: fnd_message.set_token('VIEW', 'IVSTARC'||' - '||SQLERRM);
3235: fnd_file.put_line(fnd_file.log, fnd_message.get);
3236: END process_ivstarc;
3237:
3238:
3239:
3339: g_error_code := NULL;
3340:
3341: fnd_message.set_name('IGS','IGS_UC_PROC_VIEW_DATA');
3342: fnd_message.set_token('VIEW', 'IVSTARG ON '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
3343: fnd_file.put_line(fnd_file.log, fnd_message.get);
3344:
3345: -- Get all the reocords from interface table with status = 'N'
3346: FOR new_ivstarg_rec IN new_ivstarg_cur
3347: LOOP
3364: -- log Application Choice processing message.
3365: fnd_message.set_name('IGS','IGS_UC_APPNO_CHOICE_PROC');
3366: fnd_message.set_token('APPNO', TO_CHAR(new_ivstarg_rec.appno));
3367: fnd_message.set_token('CHOICE',TO_CHAR(new_ivstarg_rec.roundno));
3368: fnd_file.put_line(fnd_file.log, fnd_message.get);
3369:
3370:
3371: -- no mandatory field validations as this is an update
3372: IF new_ivstarg_rec.appno IS NULL OR
3541:
3542: EXCEPTION
3543: WHEN OTHERS THEN
3544: g_error_code := '9998';
3545: fnd_file.put_line(fnd_file.log, SQLERRM);
3546: END;
3547:
3548: END IF; -- error code
3549:
3677: EXCEPTION
3678: WHEN OTHERS THEN
3679:
3680: g_error_code := '9999';
3681: fnd_file.put_line(fnd_file.log, SQLERRM);
3682: END;
3683:
3684: END IF; -- error code
3685:
3771:
3772: EXCEPTION
3773: WHEN OTHERS THEN
3774: g_error_code := '9998';
3775: fnd_file.put_line(fnd_file.log, SQLERRM);
3776: END;
3777:
3778:
3779: IF g_error_code IS NULL THEN
3844:
3845: EXCEPTION
3846: WHEN OTHERS THEN
3847: g_error_code := '9998';
3848: fnd_file.put_line(fnd_file.log, SQLERRM);
3849: END;
3850: END IF; -- error code
3851:
3852:
3962:
3963: EXCEPTION
3964: WHEN OTHERS THEN
3965: g_error_code := '9998';
3966: fnd_file.put_line(fnd_file.log, SQLERRM);
3967: END;
3968: END IF; -- error code
3969:
3970: END IF; -- insert / update (starg rowid check)
3999: CLOSE validate_Institution;
4000: END IF;
4001:
4002: g_error_code := '1055';
4003: fnd_file.put_line(fnd_file.log, SQLERRM);
4004: END;
4005:
4006: -- update the interface table rec - record_status if successfully processed or Error Code if any error encountered
4007: -- while processing the record.
4038: ROLLBACK TO process_ivstarg;
4039: COMMIT;
4040: fnd_message.set_name('IGS','IGS_UC_ERROR_PROC_DATA');
4041: fnd_message.set_token('VIEW', 'IVSTARG'||' - '||SQLERRM);
4042: fnd_file.put_line(fnd_file.log, fnd_message.get);
4043: END process_ivstarg;
4044:
4045:
4046:
4077: g_error_code := NULL;
4078:
4079: fnd_message.set_name('IGS','IGS_UC_PROC_VIEW_DATA');
4080: fnd_message.set_token('VIEW', 'IVSTART ON '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
4081: fnd_file.put_line(fnd_file.log, fnd_message.get);
4082:
4083: -- Get all the reocords from interface table with status = 'N'
4084: FOR new_ivstart_rec IN new_ivstart_cur
4085: LOOP
4091:
4092: -- log Application processing message.
4093: fnd_message.set_name('IGS','IGS_UC_APPNO_PROC');
4094: fnd_message.set_token('APPL_NO', TO_CHAR(new_ivstart_rec.appno));
4095: fnd_file.put_line(fnd_file.log, fnd_message.get);
4096:
4097:
4098: -- mandatory field validations
4099: IF new_ivstart_rec.appno IS NULL THEN
4241:
4242: EXCEPTION
4243: WHEN OTHERS THEN
4244: g_error_code := '9998';
4245: fnd_file.put_line(fnd_file.log, SQLERRM);
4246: END;
4247:
4248: END IF; -- main processing
4249:
4258: CLOSE old_start_cur;
4259: END IF;
4260:
4261: g_error_code := '1055';
4262: fnd_file.put_line(fnd_file.log, SQLERRM);
4263: END;
4264:
4265: -- update the interface table rec - record_status if successfully processed or Error Code if any error encountered
4266: -- while processing the record.
4296: WHEN OTHERS THEN
4297: ROLLBACK;
4298: fnd_message.set_name('IGS','IGS_UC_ERROR_PROC_DATA');
4299: fnd_message.set_token('VIEW', 'IVSTART'||' - '||SQLERRM);
4300: fnd_file.put_line(fnd_file.log, fnd_message.get);
4301: END process_ivstart;
4302:
4303:
4304:
4336: g_error_code := NULL;
4337:
4338: fnd_message.set_name('IGS','IGS_UC_PROC_VIEW_DATA');
4339: fnd_message.set_token('VIEW', 'IVQUALIFICATION ON '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
4340: fnd_file.put_line(fnd_file.log, fnd_message.get);
4341:
4342: -- Get all the reocords from interface table with status = 'N'
4343: FOR new_ivqual_rec IN new_ivqual_cur
4344: LOOP
4351:
4352: -- log Application processing message.
4353: fnd_message.set_name('IGS','IGS_UC_APPNO_PROC');
4354: fnd_message.set_token('APPL_NO', TO_CHAR(new_ivqual_rec.appno));
4355: fnd_file.put_line(fnd_file.log, fnd_message.get);
4356:
4357:
4358: -- mandatory field validations as this is an update
4359: IF new_ivqual_rec.appno IS NULL THEN
4498:
4499: EXCEPTION
4500: WHEN OTHERS THEN
4501: g_error_code := '9998';
4502: fnd_file.put_line(fnd_file.log, SQLERRM);
4503:
4504: END;
4505:
4506: END IF; -- main processing
4515: CLOSE old_qual_cur;
4516: END IF;
4517:
4518: g_error_code := '1055';
4519: fnd_file.put_line(fnd_file.log, SQLERRM);
4520:
4521: END;
4522:
4523: -- update the interface table rec - record_status if successfully processed or Error Code if any error encountered
4554: WHEN OTHERS THEN
4555: ROLLBACK;
4556: fnd_message.set_name('IGS','IGS_UC_ERROR_PROC_DATA');
4557: fnd_message.set_token('VIEW', 'IVQUALIFICATION'||' - '||SQLERRM);
4558: fnd_file.put_line(fnd_file.log, fnd_message.get);
4559: END process_ivqualification;
4560:
4561:
4562:
4597: g_error_code := NULL;
4598:
4599: fnd_message.set_name('IGS','IGS_UC_PROC_VIEW_DATA');
4600: fnd_message.set_token('VIEW', 'IVSTATEMENT ON '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
4601: fnd_file.put_line(fnd_file.log, fnd_message.get);
4602:
4603: -- Get all the reocords from interface table with status = 'N'
4604: FOR new_ivstmt_rec IN new_ivstmnt_cur
4605: LOOP
4612:
4613: -- log Application processing message.
4614: fnd_message.set_name('IGS','IGS_UC_APPNO_PROC');
4615: fnd_message.set_token('APPL_NO', TO_CHAR(new_ivstmt_rec.appno));
4616: fnd_file.put_line(fnd_file.log, fnd_message.get);
4617:
4618:
4619: -- mandatory field validations as this is an update
4620: IF new_ivstmt_rec.appno IS NULL THEN
4769:
4770: EXCEPTION
4771: WHEN OTHERS THEN
4772: g_error_code := '9998';
4773: fnd_file.put_line(fnd_file.log, SQLERRM);
4774: END;
4775:
4776: END IF; -- only update and no insert.
4777:
4787: CLOSE old_stmt_cur;
4788: END IF;
4789:
4790: g_error_code := '1055';
4791: fnd_file.put_line(fnd_file.log, SQLERRM);
4792: END;
4793:
4794: -- update the interface table rec - record_status if successfully processed or Error Code if any error encountered
4795: -- while processing the record.
4825: WHEN OTHERS THEN
4826: ROLLBACK;
4827: fnd_message.set_name('IGS','IGS_UC_ERROR_PROC_DATA');
4828: fnd_message.set_token('VIEW', 'IVSTATEMENT'||' - '||SQLERRM);
4829: fnd_file.put_line(fnd_file.log, fnd_message.get);
4830: END process_ivstatement;
4831:
4832:
4833:
4870: g_error_code := NULL;
4871:
4872: fnd_message.set_name('IGS','IGS_UC_PROC_VIEW_DATA');
4873: fnd_message.set_token('VIEW', 'IVOFFER ON '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
4874: fnd_file.put_line(fnd_file.log, fnd_message.get);
4875:
4876: -- Get all the reocords from interface table with status = 'N'
4877: FOR new_ivoffer_rec IN new_ivoffer_cur
4878: LOOP
4886: -- log Application Choice processing message.
4887: fnd_message.set_name('IGS','IGS_UC_APPNO_CHOICE_PROC');
4888: fnd_message.set_token('APPNO', TO_CHAR(new_ivoffer_rec.appno));
4889: fnd_message.set_token('CHOICE',TO_CHAR(new_ivoffer_rec.choiceno));
4890: fnd_file.put_line(fnd_file.log, fnd_message.get);
4891:
4892:
4893: -- no mandatory field validations as this is an update
4894: IF new_ivoffer_rec.appno IS NULL OR new_ivoffer_rec.choiceno IS NULL OR
4991:
4992: EXCEPTION
4993: WHEN OTHERS THEN
4994: g_error_code := '9998';
4995: fnd_file.put_line(fnd_file.log, SQLERRM);
4996:
4997: END;
4998:
4999: END IF; -- insert / update
5011: CLOSE old_offer_cur;
5012: END IF;
5013:
5014: g_error_code := '1055';
5015: fnd_file.put_line(fnd_file.log, SQLERRM);
5016: END;
5017:
5018: -- update the interface table rec - record_status if successfully processed or Error Code if any error encountered
5019: -- while processing the record.
5049: WHEN OTHERS THEN
5050: ROLLBACK;
5051: fnd_message.set_name('IGS','IGS_UC_ERROR_PROC_DATA');
5052: fnd_message.set_token('VIEW', 'IVOFFER'||' - '||SQLERRM);
5053: fnd_file.put_line(fnd_file.log, fnd_message.get);
5054: END process_ivoffer;
5055:
5056:
5057:
5114: g_error_code := NULL;
5115:
5116: fnd_message.set_name('IGS','IGS_UC_PROC_VIEW_DATA');
5117: fnd_message.set_token('VIEW', 'IVSTARX ON '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
5118: fnd_file.put_line(fnd_file.log, fnd_message.get);
5119:
5120: -- Get all the reocords from interface table with status = 'N'
5121: FOR new_ivstarx_rec IN new_ivstarx_cur
5122: LOOP
5129:
5130: -- log record processing info.
5131: fnd_message.set_name('IGS','IGS_UC_APPNO_PROC');
5132: fnd_message.set_token('APPL_NO', TO_CHAR(new_ivstarx_rec.appno));
5133: fnd_file.put_line(fnd_file.log, fnd_message.get);
5134:
5135:
5136: -- no mandatory field validations as this is an update
5137: IF new_ivstarx_rec.appno IS NULL THEN
5249:
5250: EXCEPTION
5251: WHEN OTHERS THEN
5252: g_error_code := '9999';
5253: fnd_file.put_line(fnd_file.log, SQLERRM);
5254: END;
5255:
5256:
5257: ELSE -- update
5290:
5291: EXCEPTION
5292: WHEN OTHERS THEN
5293: g_error_code := '9998';
5294: fnd_file.put_line(fnd_file.log, SQLERRM);
5295: END;
5296:
5297: END IF; -- insert / update
5298:
5320: CLOSE get_appl_dets;
5321: END IF;
5322:
5323: g_error_code := '1055';
5324: fnd_file.put_line(fnd_file.log, SQLERRM);
5325: END;
5326:
5327: -- update the interface table rec - record_status if successfully processed or Error Code if any error encountered
5328: -- while processing the record.
5358: WHEN OTHERS THEN
5359: ROLLBACK;
5360: fnd_message.set_name('IGS','IGS_UC_ERROR_PROC_DATA');
5361: fnd_message.set_token('VIEW', 'IVSTARX'||' - '||SQLERRM);
5362: fnd_file.put_line(fnd_file.log, fnd_message.get);
5363: END process_ivstarx;
5364:
5365:
5366:
5425: g_error_code := NULL;
5426:
5427: fnd_message.set_name('IGS','IGS_UC_PROC_VIEW_DATA');
5428: fnd_message.set_token('VIEW', 'IVSTARH ON '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
5429: fnd_file.put_line(fnd_file.log, fnd_message.get);
5430:
5431: -- Get all the reocords from interface table with status = 'N'
5432: FOR new_ivstarh_rec IN new_ivstarh_cur
5433: LOOP
5440:
5441: -- log record processing info.
5442: fnd_message.set_name('IGS','IGS_UC_APPNO_PROC');
5443: fnd_message.set_token('APPL_NO', TO_CHAR(new_ivstarh_rec.appno));
5444: fnd_file.put_line(fnd_file.log, fnd_message.get);
5445:
5446:
5447: -- no mandatory field validations as this is an update
5448: IF new_ivstarh_rec.appno IS NULL THEN
5562:
5563: EXCEPTION
5564: WHEN OTHERS THEN
5565: g_error_code := '9999';
5566: fnd_file.put_line(fnd_file.log, SQLERRM);
5567: END;
5568:
5569:
5570: ELSE -- update
5603:
5604: EXCEPTION
5605: WHEN OTHERS THEN
5606: g_error_code := '9998';
5607: fnd_file.put_line(fnd_file.log, SQLERRM);
5608: END;
5609:
5610: END IF; -- insert / update
5611:
5633: CLOSE get_appl_dets;
5634: END IF;
5635:
5636: g_error_code := '1055';
5637: fnd_file.put_line(fnd_file.log, SQLERRM);
5638: END;
5639:
5640: -- update the interface table rec - record_status if successfully processed or Error Code if any error encountered
5641: -- while processing the record.
5671: WHEN OTHERS THEN
5672: ROLLBACK;
5673: fnd_message.set_name('IGS','IGS_UC_ERROR_PROC_DATA');
5674: fnd_message.set_token('VIEW', 'IVSTARH'||' - '||SQLERRM);
5675: fnd_file.put_line(fnd_file.log, fnd_message.get);
5676: END process_ivstarh;
5677:
5678:
5679:
5800: g_error_code := NULL;
5801:
5802: fnd_message.set_name('IGS','IGS_UC_PROC_VIEW_DATA');
5803: fnd_message.set_token('VIEW', 'IVSTARZ1 ON '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
5804: fnd_file.put_line(fnd_file.log, fnd_message.get);
5805:
5806: -- Get all the reocords from interface table with status = 'N'
5807: FOR new_ivstarz1_rec IN new_ivstarz1_cur
5808: LOOP
5818:
5819: -- log record processing info.
5820: fnd_message.set_name('IGS','IGS_UC_APPNO_PROC');
5821: fnd_message.set_token('APPL_NO', TO_CHAR(new_ivstarz1_rec.appno));
5822: fnd_file.put_line(fnd_file.log, fnd_message.get);
5823:
5824:
5825: -- mandatory field validations
5826: IF new_ivstarz1_rec.appno IS NULL THEN
5971:
5972: EXCEPTION
5973: WHEN OTHERS THEN
5974: g_error_code := '9999';
5975: fnd_file.put_line(fnd_file.log, SQLERRM);
5976: END;
5977:
5978:
5979: ELSE -- update
6006:
6007: EXCEPTION
6008: WHEN OTHERS THEN
6009: g_error_code := '9998';
6010: fnd_file.put_line(fnd_file.log, SQLERRM);
6011: END;
6012:
6013: END IF; -- insert / update
6014:
6163:
6164: EXCEPTION
6165: WHEN OTHERS THEN
6166: g_error_code := '9998';
6167: fnd_file.put_line(fnd_file.log, SQLERRM);
6168: END;
6169:
6170: END IF; -- error code check
6171:
6199: CLOSE get_appl_dets;
6200: END IF;
6201:
6202: g_error_code := '1055';
6203: fnd_file.put_line(fnd_file.log, SQLERRM);
6204: END;
6205:
6206: -- update the interface table rec - record_status if successfully processed or Error Code if any error encountered
6207: -- while processing the record.
6237: WHEN OTHERS THEN
6238: ROLLBACK;
6239: fnd_message.set_name('IGS','IGS_UC_ERROR_PROC_DATA');
6240: fnd_message.set_token('VIEW', 'IVSTARZ1'||' - '||SQLERRM);
6241: fnd_file.put_line(fnd_file.log, fnd_message.get);
6242: END process_ivstarz1;
6243:
6244:
6245:
6342: g_error_code := NULL;
6343:
6344: fnd_message.set_name('IGS','IGS_UC_PROC_VIEW_DATA');
6345: fnd_message.set_token('VIEW', 'IVSTARZ2 ON '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
6346: fnd_file.put_line(fnd_file.log, fnd_message.get);
6347:
6348: -- Get all the reocords from interface table with status = 'N'
6349: FOR new_ivstarz2_rec IN new_ivstarz2_cur
6350: LOOP
6364: fnd_message.set_token('APPNO', TO_CHAR(new_ivstarz2_rec.appno));
6365: fnd_message.set_token('INST', new_ivstarz2_rec.inst);
6366: fnd_message.set_token('PROGRAM', new_ivstarz2_rec.course);
6367: fnd_message.set_token('CAMPUS', new_ivstarz2_rec.campus);
6368: fnd_file.put_line(fnd_file.log, fnd_message.get);
6369:
6370:
6371: -- no mandatory field validations as this is an update
6372: IF new_ivstarz2_rec.appno IS NULL OR
6532:
6533: EXCEPTION
6534: WHEN OTHERS THEN
6535: g_error_code := '9999';
6536: fnd_file.put_line(fnd_file.log, SQLERRM);
6537: END;
6538:
6539:
6540: ELSE -- update
6568:
6569: EXCEPTION
6570: WHEN OTHERS THEN
6571: g_error_code := '9998';
6572: fnd_file.put_line(fnd_file.log, SQLERRM);
6573: END;
6574:
6575: END IF; -- insert / update
6576:
6598: CLOSE validate_Course;
6599: END IF;
6600:
6601: g_error_code := '1055';
6602: fnd_file.put_line(fnd_file.log, SQLERRM);
6603: END;
6604:
6605: -- update the interface table rec - record_status if successfully processed or Error Code if any error encountered
6606: -- while processing the record.
6636: WHEN OTHERS THEN
6637: ROLLBACK;
6638: fnd_message.set_name('IGS','IGS_UC_ERROR_PROC_DATA');
6639: fnd_message.set_token('VIEW', 'IVSTARZ2'||' - '||SQLERRM);
6640: fnd_file.put_line(fnd_file.log, fnd_message.get);
6641: END process_ivstarz2;
6642:
6643:
6644:
6688: g_error_code := NULL;
6689:
6690: fnd_message.set_name('IGS','IGS_UC_PROC_VIEW_DATA');
6691: fnd_message.set_token('VIEW', 'IVSTARW ON '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
6692: fnd_file.put_line(fnd_file.log, fnd_message.get);
6693:
6694: --get the reinstate remark text from IGS_UC_APP_WITHDRAWN lookup
6695: OPEN c_reinstate_meaning;
6696: FETCH c_reinstate_meaning INTO l_reinstate_meaning;
6707:
6708: -- log record processing info.
6709: fnd_message.set_name('IGS','IGS_UC_APPNO_PROC');
6710: fnd_message.set_token('APPL_NO', TO_CHAR(new_ivstarw_rec.appno));
6711: fnd_file.put_line(fnd_file.log, fnd_message.get);
6712:
6713:
6714: -- no mandatory field validations as this is an update
6715: IF new_ivstarw_rec.appno IS NULL THEN
6776:
6777: EXCEPTION
6778: WHEN OTHERS THEN
6779: g_error_code := '9999';
6780: fnd_file.put_line(fnd_file.log, SQLERRM);
6781: END;
6782:
6783:
6784: ELSE -- update
6811:
6812: EXCEPTION
6813: WHEN OTHERS THEN
6814: g_error_code := '9998';
6815: fnd_file.put_line(fnd_file.log, SQLERRM);
6816: END;
6817:
6818: END IF; -- insert / update
6819:
6829: CLOSE old_starw_cur;
6830: END IF;
6831:
6832: g_error_code := '1055';
6833: fnd_file.put_line(fnd_file.log, SQLERRM);
6834: END;
6835:
6836: -- update the interface table rec - record_status if successfully processed or Error Code if any error encountered
6837: -- while processing the record.
6867: WHEN OTHERS THEN
6868: ROLLBACK;
6869: fnd_message.set_name('IGS','IGS_UC_ERROR_PROC_DATA');
6870: fnd_message.set_token('VIEW', 'IVSTARW'||' - '||SQLERRM);
6871: fnd_file.put_line(fnd_file.log, fnd_message.get);
6872: END process_ivstarw;
6873:
6874:
6875:
6922: g_error_code := NULL;
6923:
6924: fnd_message.set_name('IGS','IGS_UC_PROC_VIEW_DATA');
6925: fnd_message.set_token('VIEW', 'IVREFERENCE ON '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
6926: fnd_file.put_line(fnd_file.log, fnd_message.get);
6927:
6928: -- Get all the reocords from interface table with status = 'N'
6929: FOR new_ireference_rec IN new_ivrefer_cur
6930: LOOP
6938: -- log record processing info.
6939: fnd_message.set_name('IGS','IGS_UC_APPNO_REFEREE_PROC');
6940: fnd_message.set_token('APPNO', TO_CHAR(new_ireference_rec.appno));
6941: fnd_message.set_token('REFEREE', new_ireference_rec.refereename);
6942: fnd_file.put_line(fnd_file.log, fnd_message.get);
6943:
6944:
6945: -- no mandatory field validations as this is an update
6946: IF new_ireference_rec.appno IS NULL THEN
7011: CLOSE old_clob_cur;
7012: END IF;
7013:
7014: g_error_code := '9999';
7015: fnd_file.put_line(fnd_file.log, SQLERRM);
7016: END;
7017:
7018:
7019: ELSE -- update
7056: CLOSE old_clob_cur;
7057: END IF;
7058:
7059: g_error_code := '9998';
7060: fnd_file.put_line(fnd_file.log, SQLERRM);
7061:
7062: END;
7063:
7064: END IF; -- insert / update
7079: CLOSE old_clob_cur;
7080: END IF;
7081:
7082: g_error_code := '1055';
7083: fnd_file.put_line(fnd_file.log, SQLERRM);
7084: END;
7085:
7086: -- update the interface table rec - record_status if successfully processed or Error Code if any error encountered
7087: -- while processing the record.
7117: WHEN OTHERS THEN
7118: ROLLBACK;
7119: fnd_message.set_name('IGS','IGS_UC_ERROR_PROC_DATA');
7120: fnd_message.set_token('VIEW', 'IVREFERENCE'||' - '||SQLERRM);
7121: fnd_file.put_line(fnd_file.log, fnd_message.get);
7122: END process_ivreference;
7123:
7124:
7125:
7166: g_error_code := NULL;
7167:
7168: fnd_message.set_name('IGS','IGS_UC_PROC_VIEW_DATA');
7169: fnd_message.set_token('VIEW', 'IVFORMQUALS ON '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
7170: fnd_file.put_line(fnd_file.log, fnd_message.get);
7171:
7172: -- Get all the reocords from interface table with status = 'N'
7173: FOR new_ivfrmqual_rec IN new_ivfrmqual_cur
7174: LOOP
7181: -- log record processing info.
7182: fnd_message.set_name('IGS','IGS_UC_APPNO_QUAL_PROC');
7183: fnd_message.set_token('APPNO', TO_CHAR(new_ivfrmqual_rec.appno));
7184: fnd_message.set_token('QUAL', TO_CHAR(new_ivfrmqual_rec.qualid));
7185: fnd_file.put_line(fnd_file.log, fnd_message.get);
7186:
7187:
7188: -- no mandatory field validations as this is an update
7189: IF new_ivfrmqual_rec.appno IS NULL THEN
7235:
7236: EXCEPTION
7237: WHEN OTHERS THEN
7238: g_error_code := '9999';
7239: fnd_file.put_line(fnd_file.log, SQLERRM);
7240:
7241: END;
7242:
7243:
7259:
7260: EXCEPTION
7261: WHEN OTHERS THEN
7262: g_error_code := '9998';
7263: fnd_file.put_line(fnd_file.log, SQLERRM);
7264:
7265: END;
7266:
7267: END IF; -- insert / update
7278: CLOSE old_frmqual_cur;
7279: END IF;
7280:
7281: g_error_code := '1055';
7282: fnd_file.put_line(fnd_file.log, SQLERRM);
7283: END;
7284:
7285: -- update the interface table rec - record_status if successfully processed or Error Code if any error encountered
7286: -- while processing the record.
7316: WHEN OTHERS THEN
7317: ROLLBACK;
7318: fnd_message.set_name('IGS','IGS_UC_ERROR_PROC_DATA');
7319: fnd_message.set_token('VIEW', 'IVFORMQUALS'||' - '||SQLERRM);
7320: fnd_file.put_line(fnd_file.log, fnd_message.get);
7321: END process_ivformquals;
7322:
7323:
7324:
7450: g_error_code := NULL;
7451:
7452: fnd_message.set_name('IGS','IGS_UC_PROC_VIEW_DATA');
7453: fnd_message.set_token('VIEW', 'IVSTARPQR ON '||TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS'));
7454: fnd_file.put_line(fnd_file.log, fnd_message.get);
7455:
7456: -- Bug No. 3114787. Code added to so that all the records for an applicant get processed or none
7457: -- the processing is rolled back.
7458: -- LOOP through the Applications to be processed
7487: -- log record processing info.
7488: fnd_message.set_name('IGS','IGS_UC_APPNO_SUBJ_PROC');
7489: fnd_message.set_token('APPNO', TO_CHAR(new_ivstarpqr_rec.appno));
7490: fnd_message.set_token('SUBJ', TO_CHAR(new_ivstarpqr_rec.subjectid));
7491: fnd_file.put_line(fnd_file.log, fnd_message.get);
7492:
7493: ----------------------------
7494: -- AppNo validation
7495: ----------------------------
7557: g_error_code := '1059';
7558: fnd_message.set_name( 'IGS','IGS_UC_NO_EBL_MAP_REC') ;
7559: fnd_message.set_token ('EXAM_BRD', new_ivstarpqr_rec.examboard) ;
7560: fnd_message.set_token('EBL_CD',l_gen_ebl_format) ;
7561: fnd_file.put_line(fnd_file.LOG,fnd_message.get()) ;
7562:
7563: ELSE
7564: -- If mapping seeded record is found then set the correct exam_level in cases where the cursor
7565: -- will fetch more than 1 rows , these cases are exam board A/L/O/N/W and generic ebl code ANN
7633: fnd_message.set_token('SITTING', new_ivstarpqr_rec.sitting) ;
7634: fnd_message.set_token('AWD_BDY',c_map_exam_ebl_rec.awarding_body) ;
7635: fnd_message.set_token('EXAM_LEVEL',c_map_exam_ebl_rec.exam_level) ;
7636: fnd_message.set_token('EBL_SUBJ',l_conv_ebl_code ) ;
7637: fnd_file.put_line(fnd_file.LOG,fnd_message.get()) ;
7638: ELSE
7639: -- populate subject ID value into Rec so that it can be processed as usual(as a record)
7640: new_ivstarpqr_rec.subjectid := l_subjectid;
7641: CLOSE c_subjectid ;
7756:
7757: EXCEPTION
7758: WHEN OTHERS THEN
7759: g_error_code := '9999';
7760: fnd_file.put_line(fnd_file.log, SQLERRM);
7761: END;
7762:
7763:
7764: ELSE -- update
7823: CLOSE c_subjectid;
7824: END IF;
7825:
7826: g_error_code := '1055';
7827: fnd_file.put_line(fnd_file.log, SQLERRM);
7828: END;
7829:
7830: -- update the interface table rec - record_status if successfully processed or Error Code if any error encountered
7831: -- while processing the record.
7880: WHEN OTHERS THEN
7881: ROLLBACK;
7882: fnd_message.set_name('IGS','IGS_UC_ERROR_PROC_DATA');
7883: fnd_message.set_token('VIEW', 'IVSTARPQR'||' - '||SQLERRM);
7884: fnd_file.put_line(fnd_file.log, fnd_message.get);
7885: END process_ivstarpqr;
7886:
7887:
7888: END igs_uc_proc_application_data;