54: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end ParseItemKey');
55:
56: EXCEPTION
57: WHEN OTHERS THEN
58: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'ParseItemKey',
59: p_item_type, p_item_key, l_debug_info);
60: raise;
61: END ParseItemKey;
62:
92: EXCEPTION
93: WHEN NO_DATA_FOUND THEN
94: return 'N';
95: WHEN OTHERS THEN
96: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'IsNotifRuleSetup',
97: to_char(p_org_id), to_char(p_report_submitted_date), l_debug_info);
98: raise;
99: END IsNotifRuleSetup;
100:
126: ----------------------------------------------------------
127: l_expense_report_id := ParseItemKey(p_item_type, p_item_key);
128:
129: if (l_expense_report_id is null) then
130: Wf_Core.Raise('InvalidExpenseReportId');
131: end if;
132:
133: ----------------------------------------------------------
134: l_debug_info := 'Get the Expense Report Org Id';
161: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end IsNotifRuleSetup');
162:
163: EXCEPTION
164: WHEN OTHERS THEN
165: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'IsNotifRuleSetup',
166: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
167: raise;
168: END IsNotifRuleSetup;
169:
246: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end RaiseOverdueEvent');
247:
248: EXCEPTION
249: WHEN OTHERS THEN
250: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'RaiseOverdueEvent',
251: p_expense_report_id, l_debug_info);
252: raise;
253: END RaiseOverdueEvent;
254:
287: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end RaiseMissingEvent');
288:
289: EXCEPTION
290: WHEN OTHERS THEN
291: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'RaiseMissingEvent',
292: p_expense_report_id, l_debug_info);
293: raise;
294: END RaiseMissingEvent;
295:
328: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end RaiseReceivedEvent');
329:
330: EXCEPTION
331: WHEN OTHERS THEN
332: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'RaiseReceivedEvent',
333: p_expense_report_id, l_debug_info);
334: raise;
335: END RaiseReceivedEvent;
336:
403: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end RaiseAbortedEvent');
404:
405: EXCEPTION
406: WHEN OTHERS THEN
407: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'RaiseAbortedEvent',
408: p_expense_report_id, l_debug_info);
409: raise;
410: END RaiseAbortedEvent;
411:
484: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end RaiseAbortedEvent');
485:
486: EXCEPTION
487: WHEN OTHERS THEN
488: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'RaiseAbortedEvent',
489: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
490: raise;
491: END RaiseAbortedEvent;
492:
533: ----------------------------------------------------------
534: l_expense_report_id := ParseItemKey(p_item_type, p_item_key);
535:
536: if (l_expense_report_id is null) then
537: Wf_Core.Raise('InvalidExpenseReportId');
538: end if;
539:
540: ----------------------------------------------------------
541: l_debug_info := 'Get the Expense Report Org Id';
585: l_preparer_name,
586: l_preparer_display_name);
587:
588: if (l_preparer_name is null) then
589: Wf_Core.Raise('InvalidOwner');
590: end if;
591:
592: ----------------------------------------------------------
593: l_debug_info := 'Set the Preparer as the Owner of Receipts Mgmt Workflow Process.';
797: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end Init');
798:
799: EXCEPTION
800: WHEN OTHERS THEN
801: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'Init',
802: p_item_type, p_item_key, l_expense_report_id, l_preparer_name, l_debug_info);
803: raise;
804: END Init;
805:
856: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end InitOverdue');
857:
858: EXCEPTION
859: WHEN OTHERS THEN
860: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'InitOverdue',
861: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
862: raise;
863: END InitOverdue;
864:
914: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end InitMissing');
915:
916: EXCEPTION
917: WHEN OTHERS THEN
918: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'InitMissing',
919: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
920: raise;
921: END InitMissing;
922:
983: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end CheckOverdueExists');
984:
985: EXCEPTION
986: WHEN OTHERS THEN
987: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'CheckOverdueExists',
988: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
989: raise;
990: END CheckOverdueExists;
991:
1052: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end CheckMissingExists');
1053:
1054: EXCEPTION
1055: WHEN OTHERS THEN
1056: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'CheckMissingExists',
1057: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
1058: raise;
1059: END CheckMissingExists;
1060:
1109: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end AbortOverdue');
1110:
1111: EXCEPTION
1112: WHEN OTHERS THEN
1113: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'AbortOverdue',
1114: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
1115: raise;
1116: END AbortOverdue;
1117:
1143: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end AbortMissing');
1144:
1145: EXCEPTION
1146: WHEN OTHERS THEN
1147: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'AbortMissing',
1148: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
1149: raise;
1150: END AbortMissing;
1151:
1212: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end AbortProcess');
1213:
1214: EXCEPTION
1215: WHEN OTHERS THEN
1216: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'AbortProcess',
1217: p_item_type, p_item_key, p_event_key, l_debug_info);
1218: raise;
1219: END AbortProcess;
1220:
1266: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end InitReceived');
1267:
1268: EXCEPTION
1269: WHEN OTHERS THEN
1270: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'InitReceived',
1271: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
1272: raise;
1273: END InitReceived;
1274:
1301: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end InitAborted');
1302:
1303: EXCEPTION
1304: WHEN OTHERS THEN
1305: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'InitAborted',
1306: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
1307: raise;
1308: END InitAborted;
1309:
1330: EXCEPTION
1331: WHEN NO_DATA_FOUND THEN
1332: return null;
1333: WHEN OTHERS THEN
1334: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'GetReceiptsStatus',
1335: to_char(p_report_header_id), l_debug_info);
1336: raise;
1337: END GetReceiptsStatus;
1338:
1375: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end GetReceiptsStatus');
1376:
1377: EXCEPTION
1378: WHEN OTHERS THEN
1379: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'GetReceiptsStatus',
1380: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
1381: raise;
1382: END GetReceiptsStatus;
1383:
1414: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end SetReceiptsStatus');
1415:
1416: EXCEPTION
1417: WHEN OTHERS THEN
1418: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'SetReceiptsStatus',
1419: to_char(p_report_header_id), p_receipts_status, l_debug_info);
1420: raise;
1421: END SetReceiptsStatus;
1422:
1468: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end SetReceiptsStatus');
1469:
1470: EXCEPTION
1471: WHEN OTHERS THEN
1472: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'SetReceiptsStatus',
1473: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
1474: raise;
1475: END SetReceiptsStatus;
1476:
1534: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end SetDaysOverdue');
1535:
1536: EXCEPTION
1537: WHEN OTHERS THEN
1538: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'SetDaysOverdue',
1539: p_item_type, p_item_key, l_debug_info);
1540: raise;
1541: END SetDaysOverdue;
1542:
1571: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end SetDaysOverdue');
1572:
1573: EXCEPTION
1574: WHEN OTHERS THEN
1575: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'SetDaysOverdue',
1576: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
1577: raise;
1578: END SetDaysOverdue;
1579:
1614: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end CheckMissingDeclRequired');
1615:
1616: EXCEPTION
1617: WHEN OTHERS THEN
1618: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'CheckMissingDeclRequired',
1619: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
1620: raise;
1621: END CheckMissingDeclRequired;
1622:
1679: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end CheckNotifyReceived');
1680:
1681: EXCEPTION
1682: WHEN OTHERS THEN
1683: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'CheckNotifyReceived',
1684: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
1685: raise;
1686: END CheckNotifyReceived;
1687:
1731: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end IsReceivedWaived');
1732:
1733: EXCEPTION
1734: WHEN OTHERS THEN
1735: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'IsReceivedWaived',
1736: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
1737: raise;
1738: END IsReceivedWaived;
1739:
1782: EXCEPTION
1783: WHEN NO_DATA_FOUND THEN
1784: return 'N';
1785: WHEN OTHERS THEN
1786: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'IsShortpay',
1787: p_item_type, p_item_key, l_debug_info);
1788: raise;
1789: END IsShortpay;
1790:
1823: EXCEPTION
1824: WHEN NO_DATA_FOUND THEN
1825: p_result := 'COMPLETE:N';
1826: WHEN OTHERS THEN
1827: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'IsMissingShortpay',
1828: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
1829: raise;
1830: END IsMissingShortpay;
1831:
1864: EXCEPTION
1865: WHEN NO_DATA_FOUND THEN
1866: p_result := 'COMPLETE:N';
1867: WHEN OTHERS THEN
1868: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'IsPolicyShortpay',
1869: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
1870: raise;
1871: END IsPolicyShortpay;
1872:
1909: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end CompleteShortpay');
1910:
1911: EXCEPTION
1912: WHEN OTHERS THEN
1913: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'CompleteShortpay',
1914: p_item_type, p_item_key, p_activity, p_result, l_debug_info);
1915: raise;
1916: END CompleteShortpay;
1917:
1959: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end CompleteMissingShortpay');
1960:
1961: EXCEPTION
1962: WHEN OTHERS THEN
1963: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'CompleteMissingShortpay',
1964: p_item_type, p_item_key, to_char(p_actid), p_result, l_debug_info);
1965: raise;
1966: END CompleteMissingShortpay;
1967:
2001: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end CompletePolicyShortpay');
2002:
2003: EXCEPTION
2004: WHEN OTHERS THEN
2005: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'CompletePolicyShortpay',
2006: p_item_type, p_item_key, to_char(p_actid), p_result, l_debug_info);
2007: raise;
2008: END CompletePolicyShortpay;
2009:
2318: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end StoreNote');
2319:
2320: EXCEPTION
2321: WHEN OTHERS THEN
2322: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'StoreNote',
2323: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
2324: raise;
2325: END StoreNote;
2326:
2408: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end CallbackFunction');
2409:
2410: EXCEPTION
2411: WHEN OTHERS THEN
2412: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'CallbackFunction',
2413: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
2414: raise;
2415: END CallbackFunction;
2416:
2455: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end RaiseOverdueEvent');
2456:
2457: EXCEPTION
2458: WHEN OTHERS THEN
2459: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'RaiseOverdueEvent',
2460: p_expense_report_id, l_debug_info);
2461: raise;
2462: END RaiseOverdueEvent;
2463:
2496: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end RaiseMissingEvent');
2497:
2498: EXCEPTION
2499: WHEN OTHERS THEN
2500: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'RaiseMissingEvent',
2501: p_expense_report_id, l_debug_info);
2502: raise;
2503: END RaiseMissingEvent;
2504:
3022: p_result := 'COMPLETE:'||l_result_type;
3023: /* l_expense_report_id := ParseItemKey(p_item_type, p_item_key);
3024:
3025: if (l_expense_report_id is null) then
3026: Wf_Core.Raise('InvalidExpenseReportId');
3027: end if;
3028:
3029: select nvl(receipts_status,'N'), nvl(image_receipts_status,'N') into l_receipts_status, l_image_receipts_status
3030: from ap_expense_report_headers_all where report_header_id = l_expense_report_id;
3111: EXCEPTION
3112: WHEN NO_DATA_FOUND THEN
3113: return null;
3114: WHEN OTHERS THEN
3115: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'GetImageReceiptsStatus',
3116: to_char(p_report_header_id), l_debug_info);
3117: raise;
3118: END GetImageReceiptsStatus;
3119:
3150: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end SetImageReceiptsStatus');
3151:
3152: EXCEPTION
3153: WHEN OTHERS THEN
3154: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'SetImageReceiptsStatus',
3155: to_char(p_report_header_id), p_receipts_status, l_debug_info);
3156: raise;
3157: END SetImageReceiptsStatus;
3158:
3215: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end CheckNotifyImageReceived');
3216:
3217: EXCEPTION
3218: WHEN OTHERS THEN
3219: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'CheckNotifyImageReceived',
3220: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
3221: raise;
3222: END CheckNotifyImageReceived;
3223:
3268: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end SetImageReceiptsStatus');
3269:
3270: EXCEPTION
3271: WHEN OTHERS THEN
3272: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'SetImageReceiptsStatus',
3273: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
3274: raise;
3275: END SetImageReceiptsStatus;
3276:
3303: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end SetDaysOverdue');
3304:
3305: EXCEPTION
3306: WHEN OTHERS THEN
3307: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'SetDaysOverdue',
3308: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
3309: raise;
3310: END SetImageOverdueDays;
3311:
3368: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end SetDaysOverdue');
3369:
3370: EXCEPTION
3371: WHEN OTHERS THEN
3372: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'SetDaysOverdue',
3373: p_item_type, p_item_key, l_debug_info);
3374: raise;
3375: END SetImageOverdueDays;
3376:
3412: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end GetImageReceiptsStatus');
3413:
3414: EXCEPTION
3415: WHEN OTHERS THEN
3416: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'GetReceiptsStatus',
3417: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
3418: raise;
3419: END GetImageReceiptsStatus;
3420:
3436: IF (p_funmode = 'RUN') THEN
3437: l_expense_report_id := ParseItemKey(p_item_type, p_item_key);
3438:
3439: if (l_expense_report_id is null) then
3440: Wf_Core.Raise('InvalidExpenseReportId');
3441: end if;
3442:
3443: l_receipts_status := GetReceiptsStatus(l_expense_report_id);
3444:
3464: IF (p_funmode = 'RUN') THEN
3465: l_expense_report_id := ParseItemKey(p_item_type, p_item_key);
3466:
3467: if (l_expense_report_id is null) then
3468: Wf_Core.Raise('InvalidExpenseReportId');
3469: end if;
3470: RaiseMissingEvent(l_expense_report_id);
3471: p_result := 'COMPLETE';
3472: END IF;
3496:
3497: l_expense_report_id := ParseItemKey(p_item_type, p_item_key);
3498:
3499: if (l_expense_report_id is null) then
3500: Wf_Core.Raise('InvalidExpenseReportId');
3501: end if;
3502: l_item_key := to_char(l_expense_report_id);
3503:
3504: IF (AP_WEB_DB_EXPRPT_PKG.GetOrgIdByReportHeaderId(l_expense_report_id, l_org_id) <> TRUE) THEN
3603: IF (p_funmode = 'RUN') THEN
3604: l_expense_report_id := ParseItemKey(p_item_type, p_item_key);
3605:
3606: if (l_expense_report_id is null) then
3607: Wf_Core.Raise('InvalidExpenseReportId');
3608: end if;
3609:
3610: SELECT nvl(receipts_status, 'NOT_REQUIRED'), nvl(image_receipts_status, 'NOT_REQUIRED')
3611: INTO l_receipts_status, l_image_receipts_status
3769: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_RECEIPTS_WF', 'end RaiseReceivedEvent');
3770:
3771: EXCEPTION
3772: WHEN OTHERS THEN
3773: Wf_Core.Context('AP_WEB_RECEIPTS_WF', 'RaiseReceivedEvent',
3774: p_expense_report_id, l_debug_info);
3775: raise;
3776: END RaiseReceivedEvent;
3777: PROCEDURE AbortOriginalOverdue(