339:
340: EXCEPTION
341: when no_data_found then
342: rollback;
343: FND_MESSAGE.Set_Name('XTR', p_no_data_error);
344: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
345: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
346: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
347: --=================================== DEBUG ===============================================--
340: EXCEPTION
341: when no_data_found then
342: rollback;
343: FND_MESSAGE.Set_Name('XTR', p_no_data_error);
344: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
345: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
346: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
347: --=================================== DEBUG ===============================================--
348: IF xtr_risk_debug_pkg.g_Debug THEN
341: when no_data_found then
342: rollback;
343: FND_MESSAGE.Set_Name('XTR', p_no_data_error);
344: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
345: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
346: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
347: --=================================== DEBUG ===============================================--
348: IF xtr_risk_debug_pkg.g_Debug THEN
349: xtr_risk_debug_pkg.dpush('LOCK_BATCH - error');
353: --==========================================================================================--
354: return(2);
355: when e_record_locked then
356: rollback;
357: FND_MESSAGE.Set_Name('XTR', p_locking_error);
358: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
359: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
360: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
361: --=================================== DEBUG ===============================================--
354: return(2);
355: when e_record_locked then
356: rollback;
357: FND_MESSAGE.Set_Name('XTR', p_locking_error);
358: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
359: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
360: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
361: --=================================== DEBUG ===============================================--
362: IF xtr_risk_debug_pkg.g_Debug THEN
355: when e_record_locked then
356: rollback;
357: FND_MESSAGE.Set_Name('XTR', p_locking_error);
358: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
359: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
360: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
361: --=================================== DEBUG ===============================================--
362: IF xtr_risk_debug_pkg.g_Debug THEN
363: xtr_risk_debug_pkg.dpush('LOCK_BATCH - error');
367: --==========================================================================================--
368: return(2);
369: when others then
370: rollback;
371: FND_MESSAGE.Set_Name('XTR', C_BATCH_ERROR);
372: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
373: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
374: FND_FILE.Put_line (FND_FILE.LOG, sqlcode||'- '||sqlerrm(sqlcode));
375: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
368: return(2);
369: when others then
370: rollback;
371: FND_MESSAGE.Set_Name('XTR', C_BATCH_ERROR);
372: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
373: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
374: FND_FILE.Put_line (FND_FILE.LOG, sqlcode||'- '||sqlerrm(sqlcode));
375: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
376: --=================================== DEBUG ===============================================--
369: when others then
370: rollback;
371: FND_MESSAGE.Set_Name('XTR', C_BATCH_ERROR);
372: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
373: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
374: FND_FILE.Put_line (FND_FILE.LOG, sqlcode||'- '||sqlerrm(sqlcode));
375: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
376: --=================================== DEBUG ===============================================--
377: IF xtr_risk_debug_pkg.g_Debug THEN
427:
428: EXCEPTION
429: when no_data_found then
430: rollback;
431: FND_MESSAGE.Set_Name('XTR', p_no_data_error);
432: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
433: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
434: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
435: --=================================== DEBUG ===============================================--
428: EXCEPTION
429: when no_data_found then
430: rollback;
431: FND_MESSAGE.Set_Name('XTR', p_no_data_error);
432: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
433: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
434: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
435: --=================================== DEBUG ===============================================--
436: IF xtr_risk_debug_pkg.g_Debug THEN
429: when no_data_found then
430: rollback;
431: FND_MESSAGE.Set_Name('XTR', p_no_data_error);
432: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
433: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
434: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
435: --=================================== DEBUG ===============================================--
436: IF xtr_risk_debug_pkg.g_Debug THEN
437: xtr_risk_debug_pkg.dpush('LOCK_EVENT - error');
441: --==========================================================================================--
442: return(2);
443: when e_record_locked then
444: rollback;
445: FND_MESSAGE.Set_Name('XTR', p_locking_error);
446: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
447: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
448: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
449: --=================================== DEBUG ===============================================--
442: return(2);
443: when e_record_locked then
444: rollback;
445: FND_MESSAGE.Set_Name('XTR', p_locking_error);
446: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
447: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
448: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
449: --=================================== DEBUG ===============================================--
450: IF xtr_risk_debug_pkg.g_Debug THEN
443: when e_record_locked then
444: rollback;
445: FND_MESSAGE.Set_Name('XTR', p_locking_error);
446: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
447: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
448: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
449: --=================================== DEBUG ===============================================--
450: IF xtr_risk_debug_pkg.g_Debug THEN
451: xtr_risk_debug_pkg.dpush('LOCK_EVENT - error');
455: --==========================================================================================--
456: return(2);
457: when others then
458: rollback;
459: FND_MESSAGE.Set_Name('XTR', C_BATCH_ERROR);
460: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
461: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
462: FND_FILE.Put_line (FND_FILE.LOG, sqlcode||'- '||sqlerrm(sqlcode));
463: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
456: return(2);
457: when others then
458: rollback;
459: FND_MESSAGE.Set_Name('XTR', C_BATCH_ERROR);
460: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
461: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
462: FND_FILE.Put_line (FND_FILE.LOG, sqlcode||'- '||sqlerrm(sqlcode));
463: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
464: --=================================== DEBUG ===============================================--
457: when others then
458: rollback;
459: FND_MESSAGE.Set_Name('XTR', C_BATCH_ERROR);
460: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
461: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
462: FND_FILE.Put_line (FND_FILE.LOG, sqlcode||'- '||sqlerrm(sqlcode));
463: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
464: --=================================== DEBUG ===============================================--
465: IF xtr_risk_debug_pkg.g_Debug THEN
613: xtr_risk_debug_pkg.dpop('CHK_ELIGIBLE_COMPANY - LOG_ERROR');
614: END IF;
615: --==========================================================================================--
616:
617: FND_MESSAGE.Set_Name('XTR', p_err_code);
618: if p_err_code in (C_NO_REVAL_DATA, C_NO_ACCRUAL_DATA, C_NO_JOURNAL_DATA, C_INCOMPLETE_REVAL,
619: C_NO_RETROET_DATA, C_INCOMPLETE_RETROET ) then -- FAS 3378028 errors
620: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
621: elsif p_err_code in (C_MISSING_REVAL, C_MISSING_ACCRUAL, C_MISSING_JOURNAL,
616:
617: FND_MESSAGE.Set_Name('XTR', p_err_code);
618: if p_err_code in (C_NO_REVAL_DATA, C_NO_ACCRUAL_DATA, C_NO_JOURNAL_DATA, C_INCOMPLETE_REVAL,
619: C_NO_RETROET_DATA, C_INCOMPLETE_RETROET ) then -- FAS 3378028 errors
620: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
621: elsif p_err_code in (C_MISSING_REVAL, C_MISSING_ACCRUAL, C_MISSING_JOURNAL,
622: C_MISSING_RETROET) then -- FAS 3378028 errors
623: FND_MESSAGE.Set_Token('BED', p_batch_BED);
624: end if;
619: C_NO_RETROET_DATA, C_INCOMPLETE_RETROET ) then -- FAS 3378028 errors
620: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
621: elsif p_err_code in (C_MISSING_REVAL, C_MISSING_ACCRUAL, C_MISSING_JOURNAL,
622: C_MISSING_RETROET) then -- FAS 3378028 errors
623: FND_MESSAGE.Set_Token('BED', p_batch_BED);
624: end if;
625: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
626: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
627: return(2);
621: elsif p_err_code in (C_MISSING_REVAL, C_MISSING_ACCRUAL, C_MISSING_JOURNAL,
622: C_MISSING_RETROET) then -- FAS 3378028 errors
623: FND_MESSAGE.Set_Token('BED', p_batch_BED);
624: end if;
625: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
626: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
627: return(2);
628:
629: END;
997: p_batch_end,
998: 'N', -- only generate rates for Normal batch
999: p_batch_id);
1000: COMMIT;
1001: FND_MESSAGE.Set_Name('XTR', C_GENERATED_RATES);
1002: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1003: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1004: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1005:
998: 'N', -- only generate rates for Normal batch
999: p_batch_id);
1000: COMMIT;
1001: FND_MESSAGE.Set_Name('XTR', C_GENERATED_RATES);
1002: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1003: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1004: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1005:
1006: end if;
999: p_batch_id);
1000: COMMIT;
1001: FND_MESSAGE.Set_Name('XTR', C_GENERATED_RATES);
1002: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1003: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1004: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1005:
1006: end if;
1007:
1107:
1108: if REVAL_DETAILS_INCOMPLETE (p_company, p_batch_start, p_batch_end, l_batch_id) then
1109:
1110: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1111: FND_MESSAGE.Set_Name('XTR', C_INCOMPLETE_REVAL);
1112: FND_MESSAGE.Set_Token('BATCH', l_batch_id);
1113: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1114: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1115: p_retcode := 2;
1108: if REVAL_DETAILS_INCOMPLETE (p_company, p_batch_start, p_batch_end, l_batch_id) then
1109:
1110: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1111: FND_MESSAGE.Set_Name('XTR', C_INCOMPLETE_REVAL);
1112: FND_MESSAGE.Set_Token('BATCH', l_batch_id);
1113: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1114: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1115: p_retcode := 2;
1116:
1109:
1110: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1111: FND_MESSAGE.Set_Name('XTR', C_INCOMPLETE_REVAL);
1112: FND_MESSAGE.Set_Token('BATCH', l_batch_id);
1113: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1114: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1115: p_retcode := 2;
1116:
1117: else
1114: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1115: p_retcode := 2;
1116:
1117: else
1118: FND_MESSAGE.Set_Name('XTR', C_GENERATED_REVAL);
1119: FND_MESSAGE.Set_Token('BATCH', l_batch_id);
1120: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1121: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1122: p_retcode := l_retcode; -- return any retcode from revaluation
1115: p_retcode := 2;
1116:
1117: else
1118: FND_MESSAGE.Set_Name('XTR', C_GENERATED_REVAL);
1119: FND_MESSAGE.Set_Token('BATCH', l_batch_id);
1120: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1121: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1122: p_retcode := l_retcode; -- return any retcode from revaluation
1123: end if;
1116:
1117: else
1118: FND_MESSAGE.Set_Name('XTR', C_GENERATED_REVAL);
1119: FND_MESSAGE.Set_Token('BATCH', l_batch_id);
1120: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1121: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1122: p_retcode := l_retcode; -- return any retcode from revaluation
1123: end if;
1124:
1207:
1208: if p_retcode = 0 then
1209: COMMIT;
1210:
1211: FND_MESSAGE.Set_Name('XTR', C_AUTHORIZED_REVAL);
1212: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1213: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1214: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1215:
1208: if p_retcode = 0 then
1209: COMMIT;
1210:
1211: FND_MESSAGE.Set_Name('XTR', C_AUTHORIZED_REVAL);
1212: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1213: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1214: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1215:
1216: end if;
1209: COMMIT;
1210:
1211: FND_MESSAGE.Set_Name('XTR', C_AUTHORIZED_REVAL);
1212: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1213: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1214: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1215:
1216: end if;
1217:
1322: if l_retcode = 0 then -- no special requirement for FAILURE/WARNING setting in retro process.
1323:
1324: if RETRO_DETAILS_INCOMPLETE(p_company, p_batch_start, p_batch_end,p_batch_id) then
1325: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1326: FND_MESSAGE.Set_Name('XTR', C_INCOMPLETE_RETROET);
1327: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1328: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1329: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1330: p_retcode := 2;
1323:
1324: if RETRO_DETAILS_INCOMPLETE(p_company, p_batch_start, p_batch_end,p_batch_id) then
1325: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1326: FND_MESSAGE.Set_Name('XTR', C_INCOMPLETE_RETROET);
1327: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1328: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1329: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1330: p_retcode := 2;
1331:
1324: if RETRO_DETAILS_INCOMPLETE(p_company, p_batch_start, p_batch_end,p_batch_id) then
1325: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1326: FND_MESSAGE.Set_Name('XTR', C_INCOMPLETE_RETROET);
1327: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1328: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1329: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1330: p_retcode := 2;
1331:
1332: else
1330: p_retcode := 2;
1331:
1332: else
1333:
1334: FND_MESSAGE.Set_Name('XTR', C_GENERATED_RETROET);
1335: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1336: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1337: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1338: p_retcode := l_retcode;
1331:
1332: else
1333:
1334: FND_MESSAGE.Set_Name('XTR', C_GENERATED_RETROET);
1335: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1336: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1337: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1338: p_retcode := l_retcode;
1339:
1332: else
1333:
1334: FND_MESSAGE.Set_Name('XTR', C_GENERATED_RETROET);
1335: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1336: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1337: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1338: p_retcode := l_retcode;
1339:
1340: end if;
1438: p_retcode := 2;
1439: END;
1440:
1441: COMMIT;
1442: FND_MESSAGE.Set_Name('XTR', C_AUTHORIZED_RETROET);
1443: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1444: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1445: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1446:
1439: END;
1440:
1441: COMMIT;
1442: FND_MESSAGE.Set_Name('XTR', C_AUTHORIZED_RETROET);
1443: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1444: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1445: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1446:
1447: end if;
1440:
1441: COMMIT;
1442: FND_MESSAGE.Set_Name('XTR', C_AUTHORIZED_RETROET);
1443: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1444: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1445: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1446:
1447: end if;
1448:
1558: fetch cur_new_BID into p_batch_id;
1559: close cur_new_BID;
1560: end if;
1561:
1562: FND_MESSAGE.Set_Name('XTR', C_GENERATED_ACCRUAL);
1563: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1564: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1565: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1566:
1559: close cur_new_BID;
1560: end if;
1561:
1562: FND_MESSAGE.Set_Name('XTR', C_GENERATED_ACCRUAL);
1563: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1564: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1565: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1566:
1567: end if;
1560: end if;
1561:
1562: FND_MESSAGE.Set_Name('XTR', C_GENERATED_ACCRUAL);
1563: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1564: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1565: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1566:
1567: end if;
1568:
1636: and event_code = C_ACCRUAL;
1637:
1638: COMMIT;
1639:
1640: FND_MESSAGE.Set_Name('XTR', C_AUTHORIZED_ACCRUAL);
1641: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1642: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1643: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1644:
1637:
1638: COMMIT;
1639:
1640: FND_MESSAGE.Set_Name('XTR', C_AUTHORIZED_ACCRUAL);
1641: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1642: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1643: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1644:
1645: end if;
1638: COMMIT;
1639:
1640: FND_MESSAGE.Set_Name('XTR', C_AUTHORIZED_ACCRUAL);
1641: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1642: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1643: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1644:
1645: end if;
1646:
1723: p_retcode := 2;
1724:
1725: else
1726:
1727: FND_MESSAGE.Set_Name('XTR', C_GENERATED_JOURNAL);
1728: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1729: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1730: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1731:
1724:
1725: else
1726:
1727: FND_MESSAGE.Set_Name('XTR', C_GENERATED_JOURNAL);
1728: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1729: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1730: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1731:
1732: end If;
1725: else
1726:
1727: FND_MESSAGE.Set_Name('XTR', C_GENERATED_JOURNAL);
1728: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1729: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1730: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1731:
1732: end If;
1733:
1805: p_retcode := 2;
1806:
1807: else
1808:
1809: FND_MESSAGE.Set_Name('XTR', C_TRANSFERRED_JOURNAL);
1810: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1811: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1812: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1813:
1806:
1807: else
1808:
1809: FND_MESSAGE.Set_Name('XTR', C_TRANSFERRED_JOURNAL);
1810: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1811: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1812: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1813:
1814: end If;
1807: else
1808:
1809: FND_MESSAGE.Set_Name('XTR', C_TRANSFERRED_JOURNAL);
1810: FND_MESSAGE.Set_Token('BATCH', p_batch_id);
1811: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1812: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1813:
1814: end If;
1815:
1983: end if;
1984:
1985: if l_upgrade is not null then
1986: if l_lastBED >= p_cutoff_date then
1987: FND_MESSAGE.Set_Name('XTR', C_COMPLETED_BATCH);
1988: FND_MESSAGE.Set_Token('BATCH_END', to_char(p_cutoff_date));
1989: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1990: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1991: p_retcode := 2;
1984:
1985: if l_upgrade is not null then
1986: if l_lastBED >= p_cutoff_date then
1987: FND_MESSAGE.Set_Name('XTR', C_COMPLETED_BATCH);
1988: FND_MESSAGE.Set_Token('BATCH_END', to_char(p_cutoff_date));
1989: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1990: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1991: p_retcode := 2;
1992: else
1985: if l_upgrade is not null then
1986: if l_lastBED >= p_cutoff_date then
1987: FND_MESSAGE.Set_Name('XTR', C_COMPLETED_BATCH);
1988: FND_MESSAGE.Set_Token('BATCH_END', to_char(p_cutoff_date));
1989: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
1990: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
1991: p_retcode := 2;
1992: else
1993: l_period_start := l_lastBED + 1;
2035:
2036: if p_retcode = -1 then -- just in case
2037: p_retcode := 2;
2038: elsif p_retcode <> 2 then
2039: FND_MESSAGE.Set_Name('XTR', C_NEW_BATCH);
2040: FND_MESSAGE.Set_Token('BATCH', l_batch_id);
2041: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2042: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2043: end if;
2036: if p_retcode = -1 then -- just in case
2037: p_retcode := 2;
2038: elsif p_retcode <> 2 then
2039: FND_MESSAGE.Set_Name('XTR', C_NEW_BATCH);
2040: FND_MESSAGE.Set_Token('BATCH', l_batch_id);
2041: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2042: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2043: end if;
2044:
2037: p_retcode := 2;
2038: elsif p_retcode <> 2 then
2039: FND_MESSAGE.Set_Name('XTR', C_NEW_BATCH);
2040: FND_MESSAGE.Set_Token('BATCH', l_batch_id);
2041: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2042: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2043: end if;
2044:
2045: end if; -- p_retcode = 0
2135: -- FAS 3378028
2136: -- If start from REVAL/RETRO and end at RETRO, but the first incomplete batch
2137: -- has RETRO event but some of the details are incomplete.
2138: -----------------------------------------------------------------------------
2139: FND_MESSAGE.Set_Name('XTR', C_INCOMPLETE_RETROET);
2140: FND_MESSAGE.Set_Token('BATCH', l_batch_id);
2141: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2142: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2143: p_retcode := 2; -- should this be WARNING or ERROR
2136: -- If start from REVAL/RETRO and end at RETRO, but the first incomplete batch
2137: -- has RETRO event but some of the details are incomplete.
2138: -----------------------------------------------------------------------------
2139: FND_MESSAGE.Set_Name('XTR', C_INCOMPLETE_RETROET);
2140: FND_MESSAGE.Set_Token('BATCH', l_batch_id);
2141: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2142: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2143: p_retcode := 2; -- should this be WARNING or ERROR
2144:
2137: -- has RETRO event but some of the details are incomplete.
2138: -----------------------------------------------------------------------------
2139: FND_MESSAGE.Set_Name('XTR', C_INCOMPLETE_RETROET);
2140: FND_MESSAGE.Set_Token('BATCH', l_batch_id);
2141: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2142: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2143: p_retcode := 2; -- should this be WARNING or ERROR
2144:
2145: else
2325: end if;
2326:
2327: if l_upgrade is not null then
2328: if l_lastBED >= p_cutoff_date then
2329: FND_MESSAGE.Set_Name('XTR', C_COMPLETED_BATCH);
2330: FND_MESSAGE.Set_Token('BATCH_END', to_char(p_cutoff_date));
2331: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2332: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2333: p_retcode := 2;
2326:
2327: if l_upgrade is not null then
2328: if l_lastBED >= p_cutoff_date then
2329: FND_MESSAGE.Set_Name('XTR', C_COMPLETED_BATCH);
2330: FND_MESSAGE.Set_Token('BATCH_END', to_char(p_cutoff_date));
2331: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2332: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2333: p_retcode := 2;
2334: else
2327: if l_upgrade is not null then
2328: if l_lastBED >= p_cutoff_date then
2329: FND_MESSAGE.Set_Name('XTR', C_COMPLETED_BATCH);
2330: FND_MESSAGE.Set_Token('BATCH_END', to_char(p_cutoff_date));
2331: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2332: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2333: p_retcode := 2;
2334: else
2335: l_period_start := l_lastBED + 1;
2365: p_retcode := greatest(l_sub_retcode, p_retcode);
2366: end if;
2367:
2368: if p_retcode <> 2 then
2369: FND_MESSAGE.Set_Name('XTR', C_NEW_BATCH);
2370: FND_MESSAGE.Set_Token('BATCH', l_batch_id);
2371: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2372: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2373: end if;
2366: end if;
2367:
2368: if p_retcode <> 2 then
2369: FND_MESSAGE.Set_Name('XTR', C_NEW_BATCH);
2370: FND_MESSAGE.Set_Token('BATCH', l_batch_id);
2371: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2372: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2373: end if;
2374:
2367:
2368: if p_retcode <> 2 then
2369: FND_MESSAGE.Set_Name('XTR', C_NEW_BATCH);
2370: FND_MESSAGE.Set_Token('BATCH', l_batch_id);
2371: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2372: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2373: end if;
2374:
2375: end if;
2602:
2603: if p_do_reval = 'Y' and p_start_process = C_PROCESS_REVAL then
2604:
2605: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2606: FND_MESSAGE.Set_Name('XTR', C_SUBPROCESS_REVAL);
2607: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2608: FND_FILE.Put_Line (FND_FILE.LOG, '============================================');
2609:
2610: if p_incomplete = 'Y' then
2603: if p_do_reval = 'Y' and p_start_process = C_PROCESS_REVAL then
2604:
2605: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2606: FND_MESSAGE.Set_Name('XTR', C_SUBPROCESS_REVAL);
2607: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2608: FND_FILE.Put_Line (FND_FILE.LOG, '============================================');
2609:
2610: if p_incomplete = 'Y' then
2611: REVAL_SUBPROCESS(l_retcode,
2631: -- (If we check for p_incomplete, then Retro will not be processed at all, which will be wrong.)
2632: --
2633: if p_do_retro = 'Y' and p_start_process <= C_PROCESS_RETROET and p_end_process >= C_PROCESS_RETROET then
2634: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2635: FND_MESSAGE.Set_Name('XTR', C_SUBPROCESS_RETROET);
2636: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2637: FND_FILE.Put_Line (FND_FILE.LOG, '============================================');
2638: RETRO_SUBPROCESS (l_retcode,
2639: p_company,
2632: --
2633: if p_do_retro = 'Y' and p_start_process <= C_PROCESS_RETROET and p_end_process >= C_PROCESS_RETROET then
2634: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2635: FND_MESSAGE.Set_Name('XTR', C_SUBPROCESS_RETROET);
2636: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2637: FND_FILE.Put_Line (FND_FILE.LOG, '============================================');
2638: RETRO_SUBPROCESS (l_retcode,
2639: p_company,
2640: l_cutoff_date);
2646: --------------------------------------------------------------------
2647: if p_start_process <= C_PROCESS_ACCRUAL and p_end_process >= C_PROCESS_ACCRUAL then
2648:
2649: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2650: FND_MESSAGE.Set_Name('XTR', C_SUBPROCESS_ACCRUAL);
2651: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2652: FND_FILE.Put_Line (FND_FILE.LOG, '============================================');
2653:
2654: ACCRUAL_SUBPROCESS (l_retcode,
2647: if p_start_process <= C_PROCESS_ACCRUAL and p_end_process >= C_PROCESS_ACCRUAL then
2648:
2649: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2650: FND_MESSAGE.Set_Name('XTR', C_SUBPROCESS_ACCRUAL);
2651: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2652: FND_FILE.Put_Line (FND_FILE.LOG, '============================================');
2653:
2654: ACCRUAL_SUBPROCESS (l_retcode,
2655: p_company,
2673: --------------------------------------------------------------------
2674: if p_start_process <= C_PROCESS_JOURNAL and p_end_process >= C_PROCESS_JOURNAL then
2675:
2676: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2677: FND_MESSAGE.Set_Name('XTR', C_SUBPROCESS_JOURNAL);
2678: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2679: FND_FILE.Put_Line (FND_FILE.LOG, '============================================');
2680:
2681: JOURNAL_SUBPROCESS (l_retcode,
2674: if p_start_process <= C_PROCESS_JOURNAL and p_end_process >= C_PROCESS_JOURNAL then
2675:
2676: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2677: FND_MESSAGE.Set_Name('XTR', C_SUBPROCESS_JOURNAL);
2678: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2679: FND_FILE.Put_Line (FND_FILE.LOG, '============================================');
2680:
2681: JOURNAL_SUBPROCESS (l_retcode,
2682: p_company,
2689: --------------------------------------------------------------------
2690: if p_end_process = C_PROCESS_TRANSFER then
2691:
2692: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2693: FND_MESSAGE.Set_Name('XTR', C_SUBPROCESS_TRANSFER);
2694: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2695: FND_FILE.Put_Line (FND_FILE.LOG, '============================================');
2696:
2697: TRANSFER_SUBPROCESS (l_retcode,
2690: if p_end_process = C_PROCESS_TRANSFER then
2691:
2692: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2693: FND_MESSAGE.Set_Name('XTR', C_SUBPROCESS_TRANSFER);
2694: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2695: FND_FILE.Put_Line (FND_FILE.LOG, '============================================');
2696:
2697: TRANSFER_SUBPROCESS (l_retcode,
2698: p_company,
2776: -- 3378028 FAS To check that new options are submitted.
2777: if p_start_process not in (C_PROCESS_REVAL, C_PROCESS_RETROET, C_PROCESS_ACCRUAL, C_PROCESS_JOURNAL, C_PROCESS_TRANSFER) or
2778: p_end_process not in (C_PROCESS_REVAL, C_PROCESS_RETROET, C_PROCESS_ACCRUAL, C_PROCESS_JOURNAL, C_PROCESS_TRANSFER) then
2779:
2780: FND_MESSAGE.Set_Name('XTR',C_INVALID_STRM_PROCESS);
2781: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2782: l_retcode := 2;
2783:
2784: elsif l_cutoff_date > sysdate then
2777: if p_start_process not in (C_PROCESS_REVAL, C_PROCESS_RETROET, C_PROCESS_ACCRUAL, C_PROCESS_JOURNAL, C_PROCESS_TRANSFER) or
2778: p_end_process not in (C_PROCESS_REVAL, C_PROCESS_RETROET, C_PROCESS_ACCRUAL, C_PROCESS_JOURNAL, C_PROCESS_TRANSFER) then
2779:
2780: FND_MESSAGE.Set_Name('XTR',C_INVALID_STRM_PROCESS);
2781: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2782: l_retcode := 2;
2783:
2784: elsif l_cutoff_date > sysdate then
2785:
2782: l_retcode := 2;
2783:
2784: elsif l_cutoff_date > sysdate then
2785:
2786: FND_MESSAGE.Set_Name('XTR',C_CUTOFF_DATE_ERROR);
2787: FND_MESSAGE.Set_Token('CUTOFF', l_cutoff_date);
2788: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2789: l_retcode := 2;
2790:
2783:
2784: elsif l_cutoff_date > sysdate then
2785:
2786: FND_MESSAGE.Set_Name('XTR',C_CUTOFF_DATE_ERROR);
2787: FND_MESSAGE.Set_Token('CUTOFF', l_cutoff_date);
2788: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2789: l_retcode := 2;
2790:
2791: else
2784: elsif l_cutoff_date > sysdate then
2785:
2786: FND_MESSAGE.Set_Name('XTR',C_CUTOFF_DATE_ERROR);
2787: FND_MESSAGE.Set_Token('CUTOFF', l_cutoff_date);
2788: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2789: l_retcode := 2;
2790:
2791: else
2792:
2834: -------------------------------------------------------------------------------------------------
2835: -- if (p_end_process = C_PROCESS_REVAL) then -- 3050444 new issue 1
2836: --
2837: if p_start_process = C_PROCESS_REVAL then
2838: FND_MESSAGE.Set_Name('XTR', C_COMPANY_NO_REVAL);
2839: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2840: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2841: l_sub_retcode := 2;
2842: elsif p_start_process = C_PROCESS_RETROET then
2835: -- if (p_end_process = C_PROCESS_REVAL) then -- 3050444 new issue 1
2836: --
2837: if p_start_process = C_PROCESS_REVAL then
2838: FND_MESSAGE.Set_Name('XTR', C_COMPANY_NO_REVAL);
2839: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2840: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2841: l_sub_retcode := 2;
2842: elsif p_start_process = C_PROCESS_RETROET then
2843: FND_MESSAGE.Set_Name('XTR', C_COMPANY_NO_RETROET);
2839: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2840: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2841: l_sub_retcode := 2;
2842: elsif p_start_process = C_PROCESS_RETROET then
2843: FND_MESSAGE.Set_Name('XTR', C_COMPANY_NO_RETROET);
2844: FND_FILE.Put_Line(FND_FILE.LOG, FND_MESSAGE.Get);
2845: FND_FILE.Put_Line(FND_FILE.LOG, ' ');
2846: l_sub_retcode := 2;
2847: end if;
2840: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2841: l_sub_retcode := 2;
2842: elsif p_start_process = C_PROCESS_RETROET then
2843: FND_MESSAGE.Set_Name('XTR', C_COMPANY_NO_RETROET);
2844: FND_FILE.Put_Line(FND_FILE.LOG, FND_MESSAGE.Get);
2845: FND_FILE.Put_Line(FND_FILE.LOG, ' ');
2846: l_sub_retcode := 2;
2847: end if;
2848:
2852: -- 3378028 Check that company runs retrospective testing.
2853: -- Only failed for companies starts from Reval and not use Effectiveness Testing
2854: --------------------------------------------------------------------------------
2855: if l_do_retro = 'N' and p_start_process = C_PROCESS_RETROET then
2856: FND_MESSAGE.Set_Name('XTR',C_COMPANY_NO_RETROET);
2857: FND_FILE.Put_Line(FND_FILE.LOG, FND_MESSAGE.Get);
2858: FND_FILE.Put_Line(FND_FILE.LOG, ' ');
2859: l_sub_retcode := 2;
2860: end if;
2853: -- Only failed for companies starts from Reval and not use Effectiveness Testing
2854: --------------------------------------------------------------------------------
2855: if l_do_retro = 'N' and p_start_process = C_PROCESS_RETROET then
2856: FND_MESSAGE.Set_Name('XTR',C_COMPANY_NO_RETROET);
2857: FND_FILE.Put_Line(FND_FILE.LOG, FND_MESSAGE.Get);
2858: FND_FILE.Put_Line(FND_FILE.LOG, ' ');
2859: l_sub_retcode := 2;
2860: end if;
2861:
2898: -- if p_end_process = C_PROCESS_RETROET, then it should be caught in CHK_ELIGIBLE_COMPANY
2899: -- and a child process should not be submitted.
2900: ------------------------------------------------------------------------------------------------
2901: if p_start_process = C_PROCESS_REVAL and p_end_process >= C_PROCESS_RETROET then
2902: FND_MESSAGE.Set_Name('XTR', C_COMPANY_SKIP_RETROET);
2903: FND_FILE.Put_Line(FND_FILE.LOG, FND_MESSAGE.Get);
2904: FND_FILE.Put_Line(FND_FILE.LOG, ' ');
2905: -- Do not set l_sub_retcode to 1 here.
2906: -- It is not necessary to display WARNING due to the possibilities of ALL companies
2899: -- and a child process should not be submitted.
2900: ------------------------------------------------------------------------------------------------
2901: if p_start_process = C_PROCESS_REVAL and p_end_process >= C_PROCESS_RETROET then
2902: FND_MESSAGE.Set_Name('XTR', C_COMPANY_SKIP_RETROET);
2903: FND_FILE.Put_Line(FND_FILE.LOG, FND_MESSAGE.Get);
2904: FND_FILE.Put_Line(FND_FILE.LOG, ' ');
2905: -- Do not set l_sub_retcode to 1 here.
2906: -- It is not necessary to display WARNING due to the possibilities of ALL companies
2907: -- submitted and if ALL/many do not require to run Retrospective Testing we do not
2946: '','','','','','','','','','','','','','','','','','','','');
2947:
2948: if l_request_id <> 0 then
2949: l_success := l_success + 1;
2950: FND_MESSAGE.Set_Name('XTR', C_SUBMIT_REQUEST);
2951: FND_MESSAGE.Set_Token('REQUEST', l_request_id);
2952: FND_MESSAGE.Set_Token('DATETIME', FND_DATE.date_to_canonical(sysdate));
2953: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2954: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2947:
2948: if l_request_id <> 0 then
2949: l_success := l_success + 1;
2950: FND_MESSAGE.Set_Name('XTR', C_SUBMIT_REQUEST);
2951: FND_MESSAGE.Set_Token('REQUEST', l_request_id);
2952: FND_MESSAGE.Set_Token('DATETIME', FND_DATE.date_to_canonical(sysdate));
2953: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2954: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2955: else
2948: if l_request_id <> 0 then
2949: l_success := l_success + 1;
2950: FND_MESSAGE.Set_Name('XTR', C_SUBMIT_REQUEST);
2951: FND_MESSAGE.Set_Token('REQUEST', l_request_id);
2952: FND_MESSAGE.Set_Token('DATETIME', FND_DATE.date_to_canonical(sysdate));
2953: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2954: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2955: else
2956: l_failure := l_failure + 1;
2949: l_success := l_success + 1;
2950: FND_MESSAGE.Set_Name('XTR', C_SUBMIT_REQUEST);
2951: FND_MESSAGE.Set_Token('REQUEST', l_request_id);
2952: FND_MESSAGE.Set_Token('DATETIME', FND_DATE.date_to_canonical(sysdate));
2953: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2954: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2955: else
2956: l_failure := l_failure + 1;
2957: l_sub_retcode := 2;
2954: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2955: else
2956: l_failure := l_failure + 1;
2957: l_sub_retcode := 2;
2958: FND_MESSAGE.Set_Name('XTR', C_SUBMIT_FAILURE);
2959: FND_MESSAGE.Set_Token('COMPANY', p_company);
2960: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2961: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2962: end If;
2955: else
2956: l_failure := l_failure + 1;
2957: l_sub_retcode := 2;
2958: FND_MESSAGE.Set_Name('XTR', C_SUBMIT_FAILURE);
2959: FND_MESSAGE.Set_Token('COMPANY', p_company);
2960: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2961: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2962: end If;
2963:
2956: l_failure := l_failure + 1;
2957: l_sub_retcode := 2;
2958: FND_MESSAGE.Set_Name('XTR', C_SUBMIT_FAILURE);
2959: FND_MESSAGE.Set_Token('COMPANY', p_company);
2960: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2961: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2962: end If;
2963:
2964: else -- error in eligible check
2979: -- Summary Log
2980: -----------------------------------------------------------
2981: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2982: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2983: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_SUBMIT);
2984: FND_MESSAGE.Set_Token('TOTAL_SUBMIT', l_success);
2985: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2986: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_FAIL);
2987: FND_MESSAGE.Set_Token('TOTAL_FAIL', l_failure);
2980: -----------------------------------------------------------
2981: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2982: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2983: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_SUBMIT);
2984: FND_MESSAGE.Set_Token('TOTAL_SUBMIT', l_success);
2985: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2986: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_FAIL);
2987: FND_MESSAGE.Set_Token('TOTAL_FAIL', l_failure);
2988: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2981: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2982: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2983: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_SUBMIT);
2984: FND_MESSAGE.Set_Token('TOTAL_SUBMIT', l_success);
2985: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2986: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_FAIL);
2987: FND_MESSAGE.Set_Token('TOTAL_FAIL', l_failure);
2988: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2989: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_COMPANY);
2982: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2983: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_SUBMIT);
2984: FND_MESSAGE.Set_Token('TOTAL_SUBMIT', l_success);
2985: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2986: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_FAIL);
2987: FND_MESSAGE.Set_Token('TOTAL_FAIL', l_failure);
2988: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2989: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_COMPANY);
2990: FND_MESSAGE.Set_Token('TOTAL', l_success + l_failure);
2983: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_SUBMIT);
2984: FND_MESSAGE.Set_Token('TOTAL_SUBMIT', l_success);
2985: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2986: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_FAIL);
2987: FND_MESSAGE.Set_Token('TOTAL_FAIL', l_failure);
2988: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2989: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_COMPANY);
2990: FND_MESSAGE.Set_Token('TOTAL', l_success + l_failure);
2991: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2984: FND_MESSAGE.Set_Token('TOTAL_SUBMIT', l_success);
2985: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2986: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_FAIL);
2987: FND_MESSAGE.Set_Token('TOTAL_FAIL', l_failure);
2988: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2989: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_COMPANY);
2990: FND_MESSAGE.Set_Token('TOTAL', l_success + l_failure);
2991: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2992: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2985: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2986: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_FAIL);
2987: FND_MESSAGE.Set_Token('TOTAL_FAIL', l_failure);
2988: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2989: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_COMPANY);
2990: FND_MESSAGE.Set_Token('TOTAL', l_success + l_failure);
2991: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2992: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2993: -----------------------------------------------------------
2986: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_FAIL);
2987: FND_MESSAGE.Set_Token('TOTAL_FAIL', l_failure);
2988: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2989: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_COMPANY);
2990: FND_MESSAGE.Set_Token('TOTAL', l_success + l_failure);
2991: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2992: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2993: -----------------------------------------------------------
2994:
2987: FND_MESSAGE.Set_Token('TOTAL_FAIL', l_failure);
2988: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2989: FND_MESSAGE.Set_Name ('XTR', C_TOTAL_COMPANY);
2990: FND_MESSAGE.Set_Token('TOTAL', l_success + l_failure);
2991: FND_FILE.Put_Line (FND_FILE.LOG, FND_MESSAGE.Get);
2992: FND_FILE.Put_Line (FND_FILE.LOG, ' ');
2993: -----------------------------------------------------------
2994:
2995: if l_retcode <> 0 then