[Home] [Help]
1: PACKAGE BODY AP_WEB_EXPENSE_WF AS
2: /* $Header: apwxwkfb.pls 120.244.12010000.10 2008/11/26 11:38:03 sodash ship $ */
3:
4:
5: --
131: IS
132: l_version_num NUMBER := 0;
133: BEGIN
134:
135: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetFlowVersion');
136:
137: l_version_num := WF_ENGINE.GetItemAttrNumber(p_item_type,
138: p_item_key,
139: 'VERSION');
137: l_version_num := WF_ENGINE.GetItemAttrNumber(p_item_type,
138: p_item_key,
139: 'VERSION');
140:
141: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetFlowVersion');
142:
143: RETURN l_version_num;
144:
145: EXCEPTION
162: tvalue varchar2(4000);
163: role_info_tbl wf_directory.wf_local_roles_tbl_type;
164: BEGIN
165:
166: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetFromRole');
167:
168: l_role_valid := 'Y';
169: tvalue := p_from_role;
170: Wf_Directory.GetRoleInfo2(p_from_role,role_info_tbl);
193: '#FROM_ROLE',
194: tvalue);
195: end if;
196:
197: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRole');
198:
199: EXCEPTION
200: WHEN OTHERS THEN
201: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRole:Called From' ||
197: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRole');
198:
199: EXCEPTION
200: WHEN OTHERS THEN
201: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRole:Called From' ||
202: p_called_from,
203: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
204: raise;
205: END SetFromRole;
274: l_card_program_id NUMBER := 0;
275:
276: BEGIN
277:
278: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start StartExpenseReportProcess');
279:
280: -- org_context should be set while calling icx_sec.validatesession
281: --IF AP_WEB_INFRASTRUCTURE_PKG.ValidateSession(NULL, FALSE, FALSE) THEN
282:
474: ------------------------------------------------------
475:
476: iText := iText + 1;
477: l_textNameArr(iText) := 'LINE_TABLE';
478: l_textValArr(iText) := 'plsqlclob:AP_WEB_EXPENSE_WF.generateExpClobLines/'||l_item_type||':'||l_item_key;
479:
480: ------------------------------------------------------
481: l_debug_info := 'Set EMP_LINE_TABLE Item Attribute';
482: ------------------------------------------------------
482: ------------------------------------------------------
483:
484: iText := iText + 1;
485: l_textNameArr(iText) := 'EMP_LINE_TABLE';
486: l_textValArr(iText) := 'plsqlclob:AP_WEB_EXPENSE_WF.generateExpClobLines/'||l_item_type||':'||l_item_key||':'||C_EMP;
487: ----------------------------------------------------------
488: l_debug_info := 'Set WF Expense_Report_ID Item Attribute';
489: ----------------------------------------------------------
490: iNum := iNum + 1;
670: p_week_end_date);
671:
672: END IF;
673:
674: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_11_0_3Version) THEN
675: -------------------------------------------------
676: l_debug_info := 'Set whether employee is project enabled';
677: -------------------------------------------------
678: iText := iText + 1;
703:
704: -------------------------------------------------------------
705: l_debug_info := 'Set Header Attachments';
706: -------------------------------------------------------------
707: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_OIEJ_Version) THEN
708:
709: iText := iText + 1;
710: l_textNameArr(iText) := 'HEADER_ATTACHMENTS';
711: l_textValArr(iText) := 'FND:entity=OIE_HEADER_ATTACHMENTS'|| '&' || 'pk1name=REPORT_HEADER_ID'||'&' ||'pk1value=' || l_item_key;
855: END IF;
856:
857: EXCEPTION
858: WHEN OTHERS THEN
859: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartExpenseReportProcess',
860: l_item_type, l_item_key, to_char(0), l_debug_info);
861: raise;
862: END;
863: --END IF; --validatesession
864:
865: /*Bug 3389386:For Expense report with Both Pay only personal transactions,
866: set the expense_status_code as PAID .
867: */
868: AP_WEB_EXPENSE_WF.SetExpenseStatusCode(p_report_header_id);
869:
870: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartExpenseReportProcess');
871:
872: EXCEPTION
866: set the expense_status_code as PAID .
867: */
868: AP_WEB_EXPENSE_WF.SetExpenseStatusCode(p_report_header_id);
869:
870: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartExpenseReportProcess');
871:
872: EXCEPTION
873: WHEN OTHERS THEN
874:
1139: END GenTableRows;
1140:
1141: BEGIN
1142:
1143: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GenerateLineErrorsClob');
1144:
1145: ------------------------------------------------------------
1146: l_debug_info := 'Decode document_id';
1147: ------------------------------------------------------------
1248:
1249: GenTableHeader(document, p_is_ccard, p_is_ap);
1250: GenTableRows(document, p_is_ccard, p_is_ap);
1251:
1252: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateLineErrorsClob');
1253:
1254: EXCEPTION
1255: WHEN OTHERS THEN
1256: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateLineErrorsClob',
1252: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateLineErrorsClob');
1253:
1254: EXCEPTION
1255: WHEN OTHERS THEN
1256: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateLineErrorsClob',
1257: document_id, l_debug_info);
1258: raise;
1259: END GenerateLineErrorsClob;
1260:
1268: l_debug_info VARCHAR2(200);
1269:
1270: BEGIN
1271:
1272: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CashLineErrorsAP');
1273:
1274: GenerateLineErrorsClob(document_id,
1275: display_type,
1276: document,
1277: document_type,
1278: p_is_ccard => false,
1279: p_is_ap => true);
1280:
1281: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CashLineErrorsAP');
1282:
1283: EXCEPTION
1284: WHEN OTHERS THEN
1285: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CashLineErrorsAP',
1281: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CashLineErrorsAP');
1282:
1283: EXCEPTION
1284: WHEN OTHERS THEN
1285: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CashLineErrorsAP',
1286: document_id, l_debug_info);
1287: raise;
1288: END CashLineErrorsAP;
1289:
1297: l_debug_info VARCHAR2(200);
1298:
1299: BEGIN
1300:
1301: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CashLineErrorsPreparer');
1302:
1303: GenerateLineErrorsClob(document_id,
1304: display_type,
1305: document,
1306: document_type,
1307: p_is_ccard => false,
1308: p_is_ap => false);
1309:
1310: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CashLineErrorsPreparer');
1311:
1312: EXCEPTION
1313: WHEN OTHERS THEN
1314: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CashLineErrorsPreparer',
1310: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CashLineErrorsPreparer');
1311:
1312: EXCEPTION
1313: WHEN OTHERS THEN
1314: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CashLineErrorsPreparer',
1315: document_id, l_debug_info);
1316: raise;
1317: END CashLineErrorsPreparer;
1318:
1326: l_debug_info VARCHAR2(200);
1327:
1328: BEGIN
1329:
1330: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CCardLineErrorsAP');
1331:
1332: GenerateLineErrorsClob(document_id,
1333: display_type,
1334: document,
1335: document_type,
1336: p_is_ccard => true,
1337: p_is_ap => true);
1338:
1339: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CCardLineErrorsAP');
1340:
1341: EXCEPTION
1342: WHEN OTHERS THEN
1343: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CCardLineErrorsAP',
1339: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CCardLineErrorsAP');
1340:
1341: EXCEPTION
1342: WHEN OTHERS THEN
1343: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CCardLineErrorsAP',
1344: document_id, l_debug_info);
1345: raise;
1346: END CCardLineErrorsAP;
1347:
1355: l_debug_info VARCHAR2(200);
1356:
1357: BEGIN
1358:
1359: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CCardLineErrorsPreparer');
1360:
1361: GenerateLineErrorsClob(document_id,
1362: display_type,
1363: document,
1364: document_type,
1365: p_is_ccard => true,
1366: p_is_ap => false);
1367:
1368: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CCardLineErrorsPreparer');
1369:
1370: EXCEPTION
1371: WHEN OTHERS THEN
1372: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CCardLineErrorsPreparer',
1368: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CCardLineErrorsPreparer');
1369:
1370: EXCEPTION
1371: WHEN OTHERS THEN
1372: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CCardLineErrorsPreparer',
1373: document_id, l_debug_info);
1374: raise;
1375: END CCardLineErrorsPreparer;
1376:
1400: l_debug_info VARCHAR2(200);
1401:
1402: BEGIN
1403:
1404: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ResetAPValidationAttrValues');
1405:
1406: ----------------------------------------------------------------
1407: l_debug_info := 'Unset Header and Setup errors';
1408: -----------------------------------------------------------------
1426: l_debug_info := 'Set GEN_HEADER_ERRORS Item Attribute';
1427: ------------------------------------------------------
1428: iText := iText + 1;
1429: l_textNameArr(iText) := 'GEN_HEADER_ERRORS';
1430: l_textValArr(iText) := 'plsql:AP_WEB_EXPENSE_WF.GenerateHeaderErrors/'||p_item_type||':'||p_item_key;
1431:
1432: ------------------------------------------------------
1433: l_debug_info := 'Set CASH_LINE_ERRORS_AP Item Attribute';
1434: ------------------------------------------------------
1433: l_debug_info := 'Set CASH_LINE_ERRORS_AP Item Attribute';
1434: ------------------------------------------------------
1435: iText := iText + 1;
1436: l_textNameArr(iText) := 'CASH_LINE_ERRORS_AP';
1437: l_textValArr(iText) := 'plsqlclob:AP_WEB_EXPENSE_WF.CashLineErrorsAP/'||p_item_type||':'||p_item_key;
1438:
1439: ------------------------------------------------------
1440: l_debug_info := 'Set CASH_LINE_ERRORS_PREPARER Item Attribute';
1441: ------------------------------------------------------
1440: l_debug_info := 'Set CASH_LINE_ERRORS_PREPARER Item Attribute';
1441: ------------------------------------------------------
1442: iText := iText + 1;
1443: l_textNameArr(iText) := 'CASH_LINE_ERRORS_PREPARER';
1444: l_textValArr(iText) := 'plsqlclob:AP_WEB_EXPENSE_WF.CashLineErrorsPreparer/'||p_item_type||':'||p_item_key;
1445:
1446: ------------------------------------------------------
1447: l_debug_info := 'Set CCARD_LINE_ERRORS_AP Item Attribute';
1448: ------------------------------------------------------
1447: l_debug_info := 'Set CCARD_LINE_ERRORS_AP Item Attribute';
1448: ------------------------------------------------------
1449: iText := iText + 1;
1450: l_textNameArr(iText) := 'CCARD_LINE_ERRORS_AP';
1451: l_textValArr(iText) := 'plsqlclob:AP_WEB_EXPENSE_WF.CCardLineErrorsAP/'||p_item_type||':'||p_item_key;
1452:
1453: ------------------------------------------------------
1454: l_debug_info := 'Set CCARD_LINE_ERRORS_PREPARER Item Attribute';
1455: ------------------------------------------------------
1454: l_debug_info := 'Set CCARD_LINE_ERRORS_PREPARER Item Attribute';
1455: ------------------------------------------------------
1456: iText := iText + 1;
1457: l_textNameArr(iText) := 'CCARD_LINE_ERRORS_PREPARER';
1458: l_textValArr(iText) := 'plsqlclob:AP_WEB_EXPENSE_WF.CCardLineErrorsPreparer/'||p_item_type||':'||p_item_key;
1459:
1460: ----------------------------------------------------------------
1461: l_debug_info := 'Reset AP Validation errors';
1462: -----------------------------------------------------------------
1485:
1486: ----------------------------------------------------------------
1487: l_debug_info := 'Unset EXP_ALLOCATION_ERRORS';
1488: -----------------------------------------------------------------
1489: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_OIEJ_Version) THEN
1490: iText := iText + 1;
1491: l_textNameArr(iText) := 'EXP_ALLOCATION_ERRORS';
1492: l_textValArr(iText) := '';
1493: END IF;
1497: -----------------------------------------------------
1498: WF_ENGINE.SetItemAttrTextArray(p_item_type, p_item_key, l_textNameArr, l_textValArr);
1499:
1500:
1501: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ResetAPValidationAttrValues');
1502:
1503: EXCEPTION
1504: WHEN OTHERS THEN
1505: NULL;
1530:
1531:
1532: BEGIN
1533:
1534: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start APValidateExpenseReport');
1535:
1536: IF (p_funmode = 'RUN') THEN
1537:
1538: ------------------------------------------------------------
1589:
1590: ------------------------------------------------------------
1591: l_debug_info := 'Retrieve EXP_ALLOCATION_ERRORS Item Attribute';
1592: ------------------------------------------------------------
1593: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_OIEJ_Version) THEN
1594: l_exp_alloc_errors := WF_ENGINE.GetItemAttrText(p_item_type,
1595: p_item_key,
1596: 'EXP_ALLOCATION_ERRORS',
1597: true);
1682: p_result := 'COMPLETE';
1683:
1684: END IF;
1685:
1686: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end APValidateExpenseReport');
1687:
1688: EXCEPTION
1689: WHEN OTHERS THEN
1690: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'APValidateExpenseReport',
1686: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end APValidateExpenseReport');
1687:
1688: EXCEPTION
1689: WHEN OTHERS THEN
1690: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'APValidateExpenseReport',
1691: p_item_type, p_item_key, to_char(0), l_debug_info || FND_MESSAGE.GET);
1692: raise;
1693: END APValidateExpenseReport;
1694:
1732: l_debug_info VARCHAR2(2000);
1733:
1734: BEGIN
1735:
1736: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AddToHeaderErrors');
1737:
1738: ---------------------------------------------------------
1739: l_debug_info := 'Add to Header Errors';
1740: ---------------------------------------------------------
1761: p_item_key,
1762: 'HEADER_ERRORS',
1763: l_header_errors);
1764:
1765: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AddToHeaderErrors');
1766:
1767: EXCEPTION
1768: WHEN OTHERS THEN
1769: IF (SQLCODE <> -20001) THEN
1795: l_new_segments AP_OIE_KFF_SEGMENTS_T;
1796:
1797: BEGIN
1798:
1799: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start HandleInvalidDistCCID');
1800:
1801: if (p_report_distribution_id is null) then
1802: if ((p_payment_due = C_CompanyPay AND p_exp_type_parameter_id = p_personalParameterId) or
1803: (p_CategoryCode = C_ROUNDING))then
1830: p_chart_of_accounts_id => p_chart_of_accounts_id);
1831: end if;
1832: end if; -- (p_report_distribution_id is null)
1833:
1834: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end HandleInvalidDistCCID');
1835:
1836: EXCEPTION
1837: WHEN OTHERS THEN
1838: IF (SQLCODE <> -20001) THEN
1991: l_transaction_date ap_credit_card_trxns_all.transaction_date%type;
1992:
1993: BEGIN
1994:
1995: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start DoAPValidation');
1996:
1997: ---------------------------------------------------
1998: l_debug_info := 'Clear out potentially rejected/returned status';
1999: ---------------------------------------------------
2080:
2081: ------------------------------------------------------------
2082: l_debug_info := 'Determine whether session is project enabled';
2083: ------------------------------------------------------------
2084: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_11_0_3Version) THEN
2085: V_IsSessionProjectEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
2086: p_item_key,
2087: 'EMPLOYEE_PROJECT_ENABLED');
2088: ELSE
2442:
2443: l_line_error_message := l_line_error_message;
2444: l_add_to_line_error := true;
2445:
2446: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_OIEJ_Version) THEN
2447: WF_ENGINE.SetItemAttrText(p_item_type,
2448: p_item_key,
2449: 'EXP_ALLOCATION_ERRORS',
2450: 'Y');
2627: l_ven_awt_group_id)) THEN
2628: NULL;
2629: END IF; /* SetAWTGroupIDAndJustif */
2630:
2631: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end DoAPValidation');
2632:
2633: EXCEPTION
2634: WHEN OTHERS THEN
2635: IF (SQLCODE <> -20001) THEN
2653: l_url ICX_PARAMETERS.HOME_URL%TYPE := null;
2654:
2655: BEGIN
2656:
2657: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start OpenExp');
2658:
2659: IF AP_WEB_INFRASTRUCTURE_PKG.ValidateSession(NULL, false, false) THEN
2660:
2661: l_session_id := icx_sec.getID(icx_sec.PV_SESSION_ID);
2698: htp.p('
' || FND_MESSAGE.GET || '');
2724: /* jrautiai ADJ Fix End */
2725:
2726: BEGIN
2727:
2728: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start BuildManagerApprvlMessage');
2729:
2730: IF (p_funmode = 'RUN') THEN
2731:
2732: ------------------------------------------------------------
2805: p_result := 'COMPLETE';
2806:
2807: END IF;
2808:
2809: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end BuildManagerApprvlMessage');
2810:
2811: EXCEPTION
2812: WHEN OTHERS THEN
2813: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'BuildManagerApprvlMessage',
2809: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end BuildManagerApprvlMessage');
2810:
2811: EXCEPTION
2812: WHEN OTHERS THEN
2813: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'BuildManagerApprvlMessage',
2814: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
2815: raise;
2816: END BuildManagerApprvlMessage;
2817:
2825: l_report_header_id AP_WEB_DB_EXPRPT_PKG.expHdr_headerID;
2826: l_debug_info VARCHAR2(200);
2827: BEGIN
2828:
2829: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ManagerApproved');
2830:
2831: IF (p_funmode = 'RUN') THEN
2832:
2833: ------------------------------------------------------------
2856: ELSIF (p_funmode = 'CANCEL') THEN
2857: p_result := 'COMPLETE';
2858: END IF;
2859:
2860: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ManagerApproved');
2861:
2862: EXCEPTION
2863: WHEN OTHERS THEN
2864: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ManagerApproved',
2860: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ManagerApproved');
2861:
2862: EXCEPTION
2863: WHEN OTHERS THEN
2864: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ManagerApproved',
2865: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
2866: raise;
2867: END ManagerApproved;
2868:
2882: l_sum_missing_display_total VARCHAR2(50);
2883:
2884: BEGIN
2885:
2886: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CheckSumMissingReceipts');
2887:
2888: IF (p_funmode = 'RUN') THEN
2889:
2890: ------------------------------------------------------------
2965: p_result := 'COMPLETE';
2966: END IF;
2967:
2968:
2969: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckSumMissingReceipts');
2970:
2971: EXCEPTION
2972: WHEN OTHERS THEN
2973: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckSumMissingReceipts',
2969: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckSumMissingReceipts');
2970:
2971: EXCEPTION
2972: WHEN OTHERS THEN
2973: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckSumMissingReceipts',
2974: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
2975: raise;
2976: END CheckSumMissingReceipts;
2977:
2987: l_num_req_receipts NUMBER;
2988: l_debug_info VARCHAR2(200);
2989: BEGIN
2990:
2991: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AnyReceiptRequired');
2992:
2993: IF (p_funmode = 'RUN') THEN
2994:
2995: ------------------------------------------------------------
3021: ELSIF (p_funmode = 'CANCEL') THEN
3022: p_result := 'COMPLETE';
3023: END IF;
3024:
3025: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AnyReceiptRequired');
3026:
3027: EXCEPTION
3028: WHEN OTHERS THEN
3029: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AnyReceiptRequired',
3025: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AnyReceiptRequired');
3026:
3027: EXCEPTION
3028: WHEN OTHERS THEN
3029: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AnyReceiptRequired',
3030: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
3031: raise;
3032: END AnyReceiptRequired;
3033:
3044: l_debug_info VARCHAR2(200);
3045: l_mess Wf_Item_Attribute_Values.TEXT_VALUE%TYPE;
3046: BEGIN
3047:
3048: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AnyJustificationRequired');
3049:
3050: IF (p_funmode = 'RUN') THEN
3051:
3052: ------------------------------------------------------------
3109: ELSIF (p_funmode = 'CANCEL') THEN
3110: p_result := 'COMPLETE';
3111: END IF;
3112:
3113: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AnyJustificationRequired');
3114:
3115: EXCEPTION
3116: WHEN OTHERS THEN
3117: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AnyJustificationRequired',
3113: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AnyJustificationRequired');
3114:
3115: EXCEPTION
3116: WHEN OTHERS THEN
3117: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AnyJustificationRequired',
3118: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
3119: raise;
3120: END AnyJustificationRequired;
3121:
3131: l_debug_info VARCHAR2(200);
3132: l_new_expense_total NUMBER;
3133: BEGIN
3134:
3135: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CreditLinesOnly');
3136:
3137: IF (p_funmode = 'RUN') THEN
3138: ----------------------------------------------------------------
3139: l_debug_info := 'Retrieve New Expense Total.';
3152: ELSIF (p_funmode = 'CANCEL') THEN
3153: p_result := 'COMPLETE';
3154: END IF;
3155:
3156: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CreditLinesOnly');
3157:
3158: EXCEPTION
3159: WHEN OTHERS THEN
3160: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CreditLinesOnly',
3156: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CreditLinesOnly');
3157:
3158: EXCEPTION
3159: WHEN OTHERS THEN
3160: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CreditLinesOnly',
3161: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
3162: raise;
3163:
3164: END CreditLinesOnly;
3175: IS
3176: l_resultType WF_ACTIVITIES.result_type%TYPE;
3177: BEGIN
3178:
3179: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start isOldProcess');
3180:
3181: select wa.result_type
3182: into l_resultType
3183: from WF_PROCESS_ACTIVITIES WPA, WF_ACTIVITIES WA, wf_items wi
3188: and wi.begin_date < nvl(WA.END_DATE, wi.begin_date+1)
3189: and wi.item_type = wa.item_type
3190: and wi.item_key = p_item_key;
3191:
3192: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end isOldProcess');
3193:
3194: --In the 'old' expense report workflow, AP_REVIEW_COMPLETE activity doesn't have result.
3195: if (l_resultType = '*') then
3196: return TRUE;
3212: l_debug_info VARCHAR2(200);
3213: l_wakeup_time DATE;
3214: BEGIN
3215:
3216: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start OldAPReviewComplete');
3217:
3218: ------------------------------------------------------------
3219: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3220: ------------------------------------------------------------
3270: p_result := wf_engine.eng_deferred;
3271: END IF;
3272:
3273:
3274: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end OldAPReviewComplete');
3275:
3276: EXCEPTION
3277: WHEN OTHERS THEN
3278: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'OldAPReviewComplete',
3274: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end OldAPReviewComplete');
3275:
3276: EXCEPTION
3277: WHEN OTHERS THEN
3278: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'OldAPReviewComplete',
3279: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
3280: raise;
3281: END OldAPReviewComplete;
3282:
3295: l_WorkflowRec AP_WEB_DB_EXPRPT_PKG.ExpWorkflowRec;
3296: C_WF_Version NUMBER := 0;
3297: BEGIN
3298:
3299: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start APReviewComplete');
3300:
3301: -- Do nothing in cancel mode
3302: IF (p_funmode = wf_engine.eng_cancel) THEN
3303: p_result := wf_engine.eng_null;
3320:
3321: -----------------------------------------------------
3322: l_debug_info := 'Get Workflow Version Number';
3323: -----------------------------------------------------
3324: C_WF_Version := AP_WEB_EXPENSE_WF.GetFlowVersion(p_item_type, p_item_key);
3325:
3326: ------------------------------------------------------------
3327: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3328: ------------------------------------------------------------
3353: --bug 7449880: check the version and update expense_status_code
3354: --for reports submitted prior to oie.g, in later releases its updated in
3355: --SetStatusApproverAndDate which is just prior to AP_VERIFY_BLOCK,
3356:
3357: IF (C_WF_Version < AP_WEB_EXPENSE_WF.C_OIEH_Version) THEN
3358: -------------------------------------------------------------------
3359: l_debug_info := 'Set Expense Status Code';
3360: -------------------------------------------------------------------
3361: UPDATE ap_expense_report_headers_all
3390: p_result :='COMPLETE:N';
3391: END IF;
3392:
3393:
3394: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end APReviewComplete');
3395:
3396: EXCEPTION
3397: WHEN OTHERS THEN
3398: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'APReviewComplete',
3394: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end APReviewComplete');
3395:
3396: EXCEPTION
3397: WHEN OTHERS THEN
3398: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'APReviewComplete',
3399: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
3400: raise;
3401: END APReviewComplete;
3402:
3447: l_ExpRec AP_WEB_DB_EXPRPT_PKG.ExpInfoRec;
3448: l_reimb_currency ap_expense_report_headers_all.payment_currency_code%type;
3449: BEGIN
3450:
3451: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AnyAPAdjustments');
3452:
3453: IF (p_funmode = 'RUN') THEN
3454:
3455:
3568: l_total)) THEN
3569: NULL;
3570: END IF;
3571:
3572: IF (C_WF_VERSION < AP_WEB_EXPENSE_WF.C_NoMultiLineVersion) THEN
3573: ------------------------------------------
3574: l_debug_info := 'Open Adjustments Cursor';
3575: ------------------------------------------
3576: -- jrautiai ADJ Fix
3608: end if;
3609:
3610: END IF;
3611:
3612: IF (C_WF_VERSION >= AP_WEB_EXPENSE_WF.C_NoMultiLineVersion) THEN
3613:
3614: ----------------------------------------------------------
3615: l_debug_info := 'Set Item Attribute Line_Info_Body1';
3616: ---------------------------------------------------------
3616: ---------------------------------------------------------
3617: WF_ENGINE.SetItemAttrText(p_item_type,
3618: p_item_key,
3619: 'LINE_INFO_BODY',
3620: 'plsql:AP_WEB_EXPENSE_WF.generateAdjustmentInfo/'|| p_item_type || ':' || p_item_key || ':ADJUSTMENT');
3621:
3622: ELSE
3623: l_adj_info_body := '';
3624: ---------------------------------------------------------
3720: p_result := 'COMPLETE';
3721:
3722: END IF;
3723:
3724: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AnyAPAdjustments');
3725:
3726: EXCEPTION
3727: WHEN OTHERS THEN
3728: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AnyAPAdjustments',
3724: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AnyAPAdjustments');
3725:
3726: EXCEPTION
3727: WHEN OTHERS THEN
3728: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AnyAPAdjustments',
3729: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
3730: raise;
3731: END AnyAPAdjustments;
3732:
3741: l_num_req_receipt_not_verified NUMBER;
3742: l_debug_info VARCHAR2(200);
3743: BEGIN
3744:
3745: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AllReqReceiptsVerified');
3746:
3747: IF (p_funmode = 'RUN') THEN
3748:
3749: ------------------------------------------------------------
3777: ELSIF (p_funmode = 'CANCEL') THEN
3778: p_result := 'COMPLETE';
3779: END IF;
3780:
3781: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AllReqReceiptsVerified');
3782:
3783: EXCEPTION
3784: WHEN OTHERS THEN
3785: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AllReqReceiptsVerified',
3781: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AllReqReceiptsVerified');
3782:
3783: EXCEPTION
3784: WHEN OTHERS THEN
3785: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AllReqReceiptsVerified',
3786: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
3787: raise;
3788: END AllReqReceiptsVerified;
3789:
3798: l_num_req_receipt_not_verified NUMBER;
3799: l_debug_info VARCHAR2(200);
3800: BEGIN
3801:
3802: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AllPassAPApproval');
3803:
3804: IF (p_funmode = 'RUN') THEN
3805:
3806: ------------------------------------------------------------
3834: ELSIF (p_funmode = 'CANCEL') THEN
3835: p_result := 'COMPLETE';
3836: END IF;
3837:
3838: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AllPassAPApproval');
3839:
3840: EXCEPTION
3841: WHEN OTHERS THEN
3842: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AllPassAPApproval',
3838: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AllPassAPApproval');
3839:
3840: EXCEPTION
3841: WHEN OTHERS THEN
3842: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AllPassAPApproval',
3843: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
3844: raise;
3845: END AllPassAPApproval;
3846:
3856: l_debug_info VARCHAR2(200);
3857: C_WF_Version NUMBER := 0;
3858: BEGIN
3859:
3860: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start Approved');
3861:
3862: IF (p_funmode = 'RUN') THEN
3863:
3864: -----------------------------------------------------
3863:
3864: -----------------------------------------------------
3865: l_debug_info := 'Get Workflow Version Number';
3866: -----------------------------------------------------
3867: C_WF_Version := AP_WEB_EXPENSE_WF.GetFlowVersion(p_item_type, p_item_key);
3868:
3869: ------------------------------------------------------------
3870: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3871: ------------------------------------------------------------
3893: --prior to oie.j, from oiej the source is updated at the end in
3894: --SetStatusApproverAndDate, from oie.g expense_status_code is updated
3895: --at the end in SetStatusApproverAndDate
3896:
3897: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_OIEJ_Version) THEN
3898: IF (NOT AP_WEB_DB_EXPRPT_PKG.SetWkflApprvdFlagAndSource(
3899: l_report_header_id, NULL, NULL)) THEN
3900: NULL;
3901: END IF;
3905: NULL;
3906: END IF;
3907: END IF;
3908:
3909: IF (C_WF_Version < AP_WEB_EXPENSE_WF.C_OIEH_Version) THEN
3910: -------------------------------------------------------------------
3911: l_debug_info := 'Set Expense Status Code';
3912: -------------------------------------------------------------------
3913: UPDATE ap_expense_report_headers_all
3928: ELSIF (p_funmode = 'CANCEL') THEN
3929: p_result := 'COMPLETE';
3930: END IF;
3931:
3932: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end Approved');
3933:
3934: EXCEPTION
3935: WHEN NO_DATA_FOUND THEN
3936: null;
3934: EXCEPTION
3935: WHEN NO_DATA_FOUND THEN
3936: null;
3937: WHEN OTHERS THEN
3938: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'Approved',
3939: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
3940: raise;
3941: END Approved;
3942:
3968:
3969:
3970: BEGIN
3971:
3972: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetShortPaidLinesInfo');
3973:
3974: -----------------------------------------------------
3975: l_debug_info := 'Get Workflow Version Number 3';
3976: -----------------------------------------------------
3994:
3995: ----------------------------------
3996: l_debug_info := 'Check to see if the version is before 2.0.3';
3997: ----------------------------------
3998: IF (C_WF_VERSION < AP_WEB_EXPENSE_WF.C_NoMultiLineVersion) THEN
3999: -----------------------------------------------------
4000: l_debug_info := 'Clear Adjustment Line Item Attributes';
4001: -----------------------------------------------------
4002: FOR i IN 1..10 LOOP
4032:
4033: -----------------------------------------------------
4034: l_debug_info := 'Reuse Adjustment Line Item Attribute';
4035: -----------------------------------------------------
4036: IF (C_WF_VERSION < AP_WEB_EXPENSE_WF.C_NoMultiLineVersion) THEN
4037: WF_ENGINE.SetItemAttrText(p_item_type,
4038: p_item_key,
4039: 'ADJ_LINE' || to_char(i),
4040: l_shortpay_line);
4047: if ShortpaidLinesCursor%isopen then
4048: CLOSE ShortpaidLinesCursor;
4049: end if;
4050:
4051: IF (C_WF_VERSION < AP_WEB_EXPENSE_WF.C_NoMultiLineVersion) THEN
4052: l_shortpay_info_body := '';
4053: ---------------------------------------------------------
4054: l_debug_info := 'Populating line_info_body with tokens ' || to_char(l_num_lines) || '-' || to_char(l_exp_report_id);
4055: ---------------------------------------------------------
4076: -- jrautiai ADJ Fix, Need to be able to distinguish between policy violation and missing receipts notifications.
4077: WF_ENGINE.SetItemAttrText(p_item_type,
4078: p_item_key,
4079: 'LINE_INFO_BODY',
4080: 'plsql:AP_WEB_EXPENSE_WF.generateAdjustmentInfo/'||p_item_type||':'||p_item_key||':'||NVL(p_notification_type,'SHORTPAY'));
4081:
4082: END IF;
4083:
4084: IF (C_WF_Version >= C_CreditLineVersion AND
4081:
4082: END IF;
4083:
4084: IF (C_WF_Version >= C_CreditLineVersion AND
4085: C_WF_VERSION < AP_WEB_EXPENSE_WF.C_NoMultiLineVersion) THEN
4086: ---------------------------------------------------------
4087: l_debug_info := 'Set Item Attribute Credit_Line_Info_Body1';
4088: ---------------------------------------------------------
4089: WF_ENGINE.SetItemAttrText(p_item_type,
4092: '');
4093: END IF;
4094:
4095:
4096: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetShortPaidLinesInfo');
4097:
4098: EXCEPTION
4099: WHEN OTHERS THEN
4100: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetShortPaidLinesInfo',
4096: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetShortPaidLinesInfo');
4097:
4098: EXCEPTION
4099: WHEN OTHERS THEN
4100: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetShortPaidLinesInfo',
4101: p_item_type, p_item_key, null, l_debug_info);
4102: raise;
4103: END SetShortPaidLinesInfo;
4104:
4113: l_no_receipts_shortpay_id NUMBER;
4114: l_debug_info VARCHAR2(2000);
4115: BEGIN
4116:
4117: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start MissingReceiptShortPay');
4118:
4119: IF (p_funmode = 'RUN') THEN
4120:
4121: ------------------------------------------------------------
4137: NULL;
4138:
4139: END IF;
4140:
4141: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end MissingReceiptShortPay');
4142:
4143: EXCEPTION
4144: WHEN OTHERS THEN
4145: IF (SQLCODE <> -20001) THEN
4162: l_policy_shortpay_id NUMBER;
4163: l_debug_info VARCHAR2(2000);
4164: BEGIN
4165:
4166: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start PolicyViolationShortPay');
4167:
4168: IF (p_funmode = 'RUN') THEN
4169:
4170: ------------------------------------------------------------
4186: NULL;
4187:
4188: END IF;
4189:
4190: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end PolicyViolationShortPay');
4191:
4192: EXCEPTION
4193: WHEN OTHERS THEN
4194: IF (SQLCODE <> -20001) THEN
4208: l_debug_info VARCHAR2(2000);
4209: -----------------------------------------------------------------------------
4210: BEGIN
4211:
4212: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetNewShortPayDocumentNum');
4213:
4214: -------------------------------------------------------------------
4215: l_debug_info := 'Check for _ in the document_number to determine if
4216: the expense report has been short paid before';
4231: ELSE
4232: l_new_document_number := p_last_document_num || '-1';
4233: END IF;
4234:
4235: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetNewShortPayDocumentNum');
4236:
4237: return(l_new_document_number);
4238:
4239: END GetNewShortPayDocumentNum;
4252: l_ExpenseRec AP_WEB_DB_EXPRPT_PKG.XpenseInfoRec;
4253:
4254: BEGIN
4255:
4256: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CreateShortPayExpReport');
4257:
4258: -------------------------------------------------------------------
4259: l_debug_info := 'Create new expense report by creating new record in
4260: ap_expense_report_headers, with same info as old
4359: p_tgt_report_header_id => p_new_expense_report_id
4360: );
4361:
4362:
4363: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CreateShortPayExpReport');
4364:
4365: EXCEPTION
4366: WHEN OTHERS THEN
4367: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CreateShortPayExpReport',
4363: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CreateShortPayExpReport');
4364:
4365: EXCEPTION
4366: WHEN OTHERS THEN
4367: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CreateShortPayExpReport',
4368: null, to_char(p_orig_expense_report_id), null, l_debug_info);
4369: raise;
4370: END CreateShortPayExpReport;
4371:
4411: l_missing_receipt_count NUMBER := 0;
4412: /* jrautiai ADJ Fix - End */
4413: BEGIN
4414:
4415: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SplitExpenseReport');
4416:
4417: IF (p_funmode = 'RUN') THEN
4418:
4419: ------------------------------------------------------------
4661: p_result := 'COMPLETE';
4662:
4663: END IF;
4664:
4665: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SplitExpenseReport');
4666:
4667: EXCEPTION
4668: WHEN OTHERS THEN
4669: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SplitExpenseReport',
4665: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SplitExpenseReport');
4666:
4667: EXCEPTION
4668: WHEN OTHERS THEN
4669: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SplitExpenseReport',
4670: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
4671: raise;
4672: END SplitExpenseReport;
4673:
4680: l_item_key VARCHAR2(100) := to_char(p_report_header_id);
4681:
4682: BEGIN
4683:
4684: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start DeleteExpReportFromAPTables');
4685:
4686: ----------------------------------------------------------------
4687: l_debug_info := 'Retrive the Payment Due From Profile Option';
4688: ----------------------------------------------------------------
4721: IF (NOT AP_WEB_DB_EXPRPT_PKG.DeleteExpenseReport(p_report_header_id)) THEN
4722: NULL;
4723: END IF;
4724:
4725: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end DeleteExpReportFromAPTables');
4726:
4727: EXCEPTION
4728: WHEN OTHERS THEN
4729: IF (SQLCODE <> -20001) THEN
4753: l_override_approver_id AP_WEB_DB_EXPRPT_PKG.expHdr_overrideApprID;
4754:
4755: BEGIN
4756:
4757: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ResetAttrValues');
4758:
4759: C_WF_VERSION := GetFlowVersion(p_item_type, p_item_key);
4760: IF (C_WF_VERSION < AP_WEB_EXPENSE_WF.C_NoMultiLineVersion) THEN
4761: -----------------------------------------------------
4756:
4757: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ResetAttrValues');
4758:
4759: C_WF_VERSION := GetFlowVersion(p_item_type, p_item_key);
4760: IF (C_WF_VERSION < AP_WEB_EXPENSE_WF.C_NoMultiLineVersion) THEN
4761: -----------------------------------------------------
4762: l_debug_info := 'Unset Adjustment Line Item Attribute';
4763: -----------------------------------------------------
4764: FOR I IN 1..C_NUM_ADJ_LINE_ATTRS LOOP
4772: ELSE
4773: WF_ENGINE.SetItemAttrText(p_item_type,
4774: p_item_key,
4775: 'LINE_INFO_BODY',
4776: 'plsql:AP_WEB_EXPENSE_WF.resetLineInfo/');
4777: END IF;
4778:
4779: ----------------------------------------------------------------
4780: l_debug_info := 'Unset error message';
4811: p_item_key,
4812: 'FORWARD_FROM_NAME',
4813: '');
4814:
4815: IF (C_WF_VERSION < AP_WEB_EXPENSE_WF.C_NoMultiLineVersion) THEN
4816: ------------------------------------------------------------------------
4817: l_debug_info := 'Set Line_Info Item Attribute with formatted expense line';
4818: ---------------------------------------------------------------------------
4819: FOR I IN 1..200 LOOP
4911: --Bug 4425821: Uptake AME parallel approvers
4912: ---------------------------------------------------------------
4913: l_debug_info := 'Reset AME Approver Response';
4914: ---------------------------------------------------------------
4915: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_R120_Version) THEN
4916: WF_ENGINE.SetItemAttrText(p_item_type,
4917: p_item_key,
4918: 'AME_APPROVER_RESPONSE',
4919: '');
4931: l_override_approver_id := NULL;
4932: END IF;
4933:
4934: IF (l_override_approver_id IS NOT NULL) THEN
4935: AP_WEB_EXPENSE_WF.SetPersonAs(l_override_approver_id,
4936: p_item_type,
4937: p_item_key,
4938: 'APPROVER');
4939: ELSE
4968: ResetAPValidationAttrValues(p_item_type,
4969: p_item_key,
4970: p_actid);
4971:
4972: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ResetAttrValues');
4973:
4974: EXCEPTION
4975: WHEN OTHERS THEN
4976: NULL;
4997: l_payment_due VARCHAR2(50) := C_IndividualPay;
4998: l_debug_info VARCHAR2(200);
4999: BEGIN
5000:
5001: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF',
5002: 'start ResetCCardTxns');
5003:
5004: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type, p_item_key,
5005: 'PAYMENT_DUE_FROM');
5020: commenting the call because the expense report should maintian its original
5021: data on rejected reports.
5022: l_debug_info := 'Update for Credit Card Integration Bothpay';
5023: IF (l_payment_due = C_CompanyPay OR
5024: l_payment_due = AP_WEB_EXPENSE_WF.C_BothPay) THEN
5025: IF (NOT AP_WEB_DB_CCARD_PKG.ResetMgrRejectPersonalTrxns(
5026: p_report_header_id)) THEN
5027: NULL;
5028: END IF;
5028: END IF;
5029: END IF;
5030: */
5031:
5032: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF',
5033: 'end ResetCCardTxns');
5034:
5035: EXCEPTION
5036: WHEN OTHERS THEN
5147: C_WF_Version NUMBER := 0;
5148: l_n_resp_id NUMBER;
5149: BEGIN
5150:
5151: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetRejectStatusAndResetAttr');
5152:
5153: IF (p_funmode = 'RUN') THEN
5154:
5155: -----------------------------------------------------
5154:
5155: -----------------------------------------------------
5156: l_debug_info := 'Get Workflow Version Number';
5157: -----------------------------------------------------
5158: C_WF_Version := AP_WEB_EXPENSE_WF.GetFlowVersion(p_item_type, p_item_key);
5159:
5160: ------------------------------------------------------------
5161: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
5162: ------------------------------------------------------------
5187: p_item_key,
5188: 'AME_ENABLED');
5189: IF (l_AMEEnabled = 'Y') THEN
5190: --Bug 4425821: Uptake AME parallel approvers
5191: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_R120_Version) THEN
5192: ---------------------------------------------------------------------------
5193: l_debug_info := 'Call AMEAbortRequestApprovals' || to_char(l_report_header_id);
5194: ---------------------------------------------------------------------------
5195: AMEAbortRequestApprovals(l_report_header_id);
5288: ELSIF (p_funmode = 'CANCEL') THEN
5289: p_result := 'COMPLETE';
5290: END IF;
5291:
5292: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetRejectStatusAndResetAttr');
5293:
5294: EXCEPTION
5295: WHEN OTHERS THEN
5296: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetRejectStatusAndResetAttr',
5292: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetRejectStatusAndResetAttr');
5293:
5294: EXCEPTION
5295: WHEN OTHERS THEN
5296: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetRejectStatusAndResetAttr',
5297:
5298: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
5299: RAISE;
5300:
5310: l_report_header_id AP_WEB_DB_EXPRPT_PKG.expHdr_headerID;
5311: l_debug_info VARCHAR2(200);
5312: BEGIN
5313:
5314: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start DeleteExpenseReport');
5315:
5316: IF (p_funmode = 'RUN') THEN
5317:
5318: ------------------------------------------------------------
5329: ELSIF (p_funmode = 'CANCEL') THEN
5330: p_result := 'COMPLETE';
5331: END IF;
5332:
5333: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end DeleteExpenseReport');
5334:
5335: EXCEPTION
5336: WHEN OTHERS THEN
5337: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'DeleteExpenseReport',
5333: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end DeleteExpenseReport');
5334:
5335: EXCEPTION
5336: WHEN OTHERS THEN
5337: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'DeleteExpenseReport',
5338: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
5339: raise;
5340: END DeleteExpenseReport;
5341:
5362: l_currency VARCHAR2(25);
5363: l_debug_info VARCHAR2(200);
5364: BEGIN
5365:
5366: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start StartAPApprvlSubProcess');
5367:
5368: ------------------------------------------------------------
5369: l_debug_info := 'Retrieve New Expense_Report_ID Item Attribute';
5370: ------------------------------------------------------------
5572: -------------------------------------------------
5573: WF_ENGINE.StartProcess(p_item_type,
5574: l_item_key);
5575:
5576: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartAPApprvlSubProcess');
5577:
5578: EXCEPTION
5579: WHEN OTHERS THEN
5580: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartAPApprvlSubProcess',
5576: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartAPApprvlSubProcess');
5577:
5578: EXCEPTION
5579: WHEN OTHERS THEN
5580: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartAPApprvlSubProcess',
5581: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
5582: raise;
5583: END StartAPApprvlSubProcess;
5584:
5593: l_debug_info VARCHAR2(200);
5594: l_No VARCHAR2(1) := 'N';
5595: BEGIN
5596:
5597: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start StartFromAPApproval');
5598:
5599: IF (p_funmode = 'RUN') THEN
5600:
5601: ----------------------------------------------------------------
5643: ELSIF (p_funmode = 'CANCEL') THEN
5644: p_result := 'COMPLETE';
5645: END IF;
5646:
5647: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartFromAPApproval');
5648:
5649: EXCEPTION
5650: WHEN OTHERS THEN
5651: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartFromAPApproval',
5647: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartFromAPApproval');
5648:
5649: EXCEPTION
5650: WHEN OTHERS THEN
5651: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartFromAPApproval',
5652: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
5653: raise;
5654: END StartFromAPApproval;
5655:
5663: l_report_header_id AP_WEB_DB_EXPLINE_PKG.expLines_headerID;
5664: l_debug_info VARCHAR2(200);
5665: BEGIN
5666:
5667: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start StartFromManagerApproval');
5668:
5669: IF (p_funmode = 'RUN') THEN
5670:
5671: ----------------------------------------------------------------
5697: ELSIF (p_funmode = 'CANCEL') THEN
5698: p_result := 'COMPLETE';
5699: END IF;
5700:
5701: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartFromManagerApproval');
5702:
5703: EXCEPTION
5704: WHEN OTHERS THEN
5705: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartFromManagerApproval',
5701: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartFromManagerApproval');
5702:
5703: EXCEPTION
5704: WHEN OTHERS THEN
5705: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartFromManagerApproval',
5706: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
5707: raise;
5708: END StartFromManagerApproval;
5709:
5718: l_orig_expense_report_num VARCHAR2(50);
5719: l_debug_info VARCHAR2(200);
5720: BEGIN
5721:
5722: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CheckIfShortPaid');
5723:
5724: IF (p_funmode = 'RUN') THEN
5725:
5726: ----------------------------------------------------------------
5739: ELSIF (p_funmode = 'CANCEL') THEN
5740: p_result := 'COMPLETE';
5741: END IF;
5742:
5743: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckIfShortPaid');
5744:
5745: EXCEPTION
5746: WHEN OTHERS THEN
5747: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckIfShortPaid',
5743: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckIfShortPaid');
5744:
5745: EXCEPTION
5746: WHEN OTHERS THEN
5747: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckIfShortPaid',
5748: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
5749: raise;
5750: END CheckIfShortPaid;
5751:
5776: l_holds_setup VARCHAR2(2);
5777: l_expense_status_code VARCHAR2(30) := NULL;
5778: BEGIN
5779:
5780: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start BuildBothpayExpReport');
5781:
5782: ------------------------------------------------------------
5783: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
5784: ------------------------------------------------------------
5940: );
5941:
5942: END IF;
5943:
5944: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end BuildBothpayExpReport');
5945:
5946: EXCEPTION
5947: WHEN OTHERS THEN
5948: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'BuildBothpayReport',
5944: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end BuildBothpayExpReport');
5945:
5946: EXCEPTION
5947: WHEN OTHERS THEN
5948: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'BuildBothpayReport',
5949: null, to_char(l_report_header_id) || ' ' || to_char(l_new_report_id), to_char(p_actid), l_debug_info);
5950: raise;
5951: END BuildBothpayExpReport;
5952:
5962: l_debug_info VARCHAR2(200);
5963:
5964: BEGIN
5965:
5966: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CheckIfBothpay');
5967:
5968: IF (p_funmode = 'RUN') THEN
5969:
5970:
5982: ELSIF (p_funmode = 'CANCEL') THEN
5983: p_result := 'COMPLETE';
5984: END IF;
5985:
5986: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckIfBothpay');
5987:
5988: EXCEPTION
5989: WHEN OTHERS THEN
5990: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckIfBothpay',
5986: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckIfBothpay');
5987:
5988: EXCEPTION
5989: WHEN OTHERS THEN
5990: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckIfBothpay',
5991: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
5992: raise;
5993: END CheckIfBothpay;
5994:
6006: l_crd_card_count NUMBER := 0;
6007:
6008: BEGIN
6009:
6010: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start FindVendor');
6011:
6012: IF (p_funmode = 'RUN') THEN
6013:
6014: ----------------------------------------------------------------
6069: ELSIF (p_funmode = 'CANCEL') THEN
6070: p_result := 'COMPLETE';
6071: END IF;
6072:
6073: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end FindVendor');
6074:
6075: EXCEPTION
6076: WHEN OTHERS THEN
6077: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'FindVendor',
6073: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end FindVendor');
6074:
6075: EXCEPTION
6076: WHEN OTHERS THEN
6077: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'FindVendor',
6078: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
6079: raise;
6080: END FindVendor;
6081:
6090: l_doc_num VARCHAR2(50);
6091: l_debug_info VARCHAR2(200);
6092: BEGIN
6093:
6094: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CheckIfSplit');
6095:
6096: IF (p_funmode = 'RUN') THEN
6097:
6098: /* Bug 4096880 : The Bothpay split notification should not be
6105: ELSIF (p_funmode = 'CANCEL') THEN
6106: p_result := 'COMPLETE';
6107: END IF;
6108:
6109: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckIfSplit');
6110:
6111: EXCEPTION
6112: WHEN OTHERS THEN
6113: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckIfSplit',
6109: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckIfSplit');
6110:
6111: EXCEPTION
6112: WHEN OTHERS THEN
6113: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckIfSplit',
6114: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
6115: raise;
6116: END CheckIfSplit;
6117:
6164: -- jrautiai ADJ Fix
6165: l_mess Wf_Item_Attribute_Values.TEXT_VALUE%TYPE;
6166: BEGIN
6167:
6168: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start StartPolicyShortPayProcess');
6169:
6170: -----------------------------------------------------
6171: l_debug_info := 'Get Workflow Version Number 4';
6172: -----------------------------------------------------
6393: ------------------------------------------------------
6394: WF_ENGINE.SetItemAttrText(l_item_type,
6395: l_item_key,
6396: 'LINE_TABLE',
6397: 'plsqlclob:AP_WEB_EXPENSE_WF.generateExpClobLines/'||l_item_type||':'||l_item_key);
6398:
6399: ------------------------------------------------------
6400: l_debug_info := 'Set EMP_LINE_TABLE Item Attribute';
6401: ------------------------------------------------------
6401: ------------------------------------------------------
6402: WF_ENGINE.SetItemAttrText(l_item_type,
6403: l_item_key,
6404: 'EMP_LINE_TABLE',
6405: 'plsqlclob:AP_WEB_EXPENSE_WF.generateExpClobLines/'||l_item_type||':'||l_item_key || ':'|| C_EMP);
6406:
6407: --------------------------------------------------------
6408: l_debug_info := 'Set Expense_Report_ID Item Attribute';
6409: --------------------------------------------------------
6676: l_debug_info := 'Start Policy Violation Shortpay Process';
6677: -------------------------------------------------
6678: WF_ENGINE.StartProcess(p_item_type,
6679: l_item_key);
6680: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartPolicyShortPayProcess');
6681:
6682: EXCEPTION
6683: WHEN OTHERS THEN
6684: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartPolicyShortPayProcess',
6680: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartPolicyShortPayProcess');
6681:
6682: EXCEPTION
6683: WHEN OTHERS THEN
6684: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartPolicyShortPayProcess',
6685: p_item_type, l_item_key, to_char(p_actid), l_debug_info);
6686: raise;
6687: END StartPolicyShortPayProcess;
6688:
6738: -- jrautiai ADJ Fix
6739: l_mess Wf_Item_Attribute_Values.TEXT_VALUE%TYPE;
6740: BEGIN
6741:
6742: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start StartNoReceiptsShortPayProcess');
6743:
6744: -----------------------------------------------------
6745: l_debug_info := 'Get Workflow Version Number 5';
6746: -----------------------------------------------------
6825:
6826: ------------------------------------------------------------
6827: l_debug_info := 'Determine whether session is project enabled';
6828: ------------------------------------------------------------
6829: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_11_0_3Version) THEN
6830: V_IsSessionProjectEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
6831: p_item_key,
6832: 'EMPLOYEE_PROJECT_ENABLED');
6833:
6981: ------------------------------------------------------
6982: WF_ENGINE.SetItemAttrText(l_item_type,
6983: l_item_key,
6984: 'LINE_TABLE',
6985: 'plsqlclob:AP_WEB_EXPENSE_WF.generateExpClobLines/'||l_item_type||':'||l_item_key);
6986:
6987: ------------------------------------------------------
6988: l_debug_info := 'Set EMP_LINE_TABLE Item Attribute';
6989: ------------------------------------------------------
6989: ------------------------------------------------------
6990: WF_ENGINE.SetItemAttrText(l_item_type,
6991: l_item_key,
6992: 'EMP_LINE_TABLE',
6993: 'plsqlclob:AP_WEB_EXPENSE_WF.generateExpClobLines/'||l_item_type||':'||l_item_key || ':'||C_EMP);
6994:
6995: --------------------------------------------------------
6996: l_debug_info := 'Set Expense_Report_ID Item Attribute';
6997: --------------------------------------------------------
7125:
7126: ---------------------------------------------------------------------------
7127: l_debug_info := 'Set whether employee is project enabled';
7128: ---------------------------------------------------------------------------
7129: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_11_0_3Version) THEN
7130:
7131: WF_ENGINE.SetItemAttrText(p_item_type,
7132: l_item_key,
7133: 'EMPLOYEE_PROJECT_ENABLED',
7299: WF_ENGINE.StartProcess(p_item_type,
7300: l_item_key);
7301:
7302:
7303: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartNoReceiptsShortPayProcess');
7304:
7305: EXCEPTION
7306: WHEN OTHERS THEN
7307: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartNoReceiptsShortPayProcess',
7303: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartNoReceiptsShortPayProcess');
7304:
7305: EXCEPTION
7306: WHEN OTHERS THEN
7307: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartNoReceiptsShortPayProcess',
7308: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
7309: raise;
7310: END StartNoReceiptsShortPayProcess;
7311:
7336: C_WF_VERSION NUMBER;
7337:
7338: BEGIN
7339:
7340: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start StartManagerApprvlSubProcess');
7341:
7342: ----------------------------------------------------------------
7343: l_debug_info := 'Get the version of the workflow currently using';
7344: ----------------------------------------------------------------
7586: ------------------------------------------------------
7587: WF_ENGINE.StartProcess(p_item_type,
7588: l_item_key);
7589:
7590: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartManagerApprvlSubProcess');
7591:
7592: EXCEPTION
7593: WHEN OTHERS THEN
7594: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartManagerApprvlSubProcess',
7590: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartManagerApprvlSubProcess');
7591:
7592: EXCEPTION
7593: WHEN OTHERS THEN
7594: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartManagerApprvlSubProcess',
7595: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
7596: raise;
7597: END StartManagerApprvlSubProcess;
7598:
7602: -------------------------------------------------------
7603: l_debug_info VARCHAR2(200);
7604: BEGIN
7605:
7606: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetManager');
7607:
7608: -------------------------------------------------------
7609: l_debug_info := 'Trying to retrieve employee manager';
7610: -------------------------------------------------------
7611: IF (NOT AP_WEB_DB_HR_INT_PKG.GetSupervisorID(p_employee_id, p_manager_id)) THEN
7612: p_manager_id := NULL;
7613: END IF;
7614:
7615: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetManager');
7616:
7617: EXCEPTION
7618: WHEN OTHERS THEN
7619: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetManager',
7615: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetManager');
7616:
7617: EXCEPTION
7618: WHEN OTHERS THEN
7619: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetManager',
7620: null, null, null, l_debug_info);
7621: raise;
7622: END GetManager;
7623:
7632: l_report_header_id AP_WEB_DB_EXPRPT_PKG.expHdr_headerID;
7633: l_debug_info VARCHAR2(200);
7634: BEGIN
7635:
7636: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetPersonAs');
7637:
7638: ------------------------------------------------------------
7639: l_debug_info := 'Retrieve Manager_Name Info for Manager_Id';
7640: ------------------------------------------------------------
7707: WHERE report_header_id = l_report_header_id;
7708:
7709: END IF;
7710:
7711: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetPersonAs');
7712:
7713: EXCEPTION
7714: WHEN OTHERS THEN
7715: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetPersonAs',
7711: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetPersonAs');
7712:
7713: EXCEPTION
7714: WHEN OTHERS THEN
7715: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetPersonAs',
7716: p_item_type, p_item_key, null, l_debug_info);
7717: raise;
7718: END SetPersonAs;
7719:
7749: l_emp_info_rec AP_WEB_DB_HR_INT_PKG.EmployeeInfoRec;
7750:
7751: BEGIN
7752:
7753: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetFinalApprover');
7754:
7755: IF (p_override_approver_id IS NULL) THEN
7756:
7757: -- bug 3257576
7855: END LOOP;
7856:
7857: END IF; -- l_approver_id is not null and p_error_message is null
7858:
7859: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetFinalApprover');
7860:
7861: EXCEPTION
7862: WHEN OTHERS THEN
7863: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetFinalApprover',
7859: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetFinalApprover');
7860:
7861: EXCEPTION
7862: WHEN OTHERS THEN
7863: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetFinalApprover',
7864: p_item_type, null, null, l_debug_info);
7865: raise;
7866: END GetFinalApprover;
7867:
7876: l_manager_id NUMBER;
7877: l_debug_info VARCHAR2(200);
7878: BEGIN
7879:
7880: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetPreparerManager');
7881:
7882: IF (p_funmode = 'RUN') THEN
7883:
7884: ------------------------------------------------------
7909: p_result := 'COMPLETE';
7910:
7911: END IF;
7912:
7913: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetPreparerManager');
7914:
7915: EXCEPTION
7916: WHEN OTHERS THEN
7917: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetPreparerManager',
7913: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetPreparerManager');
7914:
7915: EXCEPTION
7916: WHEN OTHERS THEN
7917: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetPreparerManager',
7918: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
7919: raise;
7920: END GetPreparerManager;
7921:
7930: l_manager_id NUMBER;
7931: l_debug_info VARCHAR2(200);
7932: BEGIN
7933:
7934: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetApproverManager');
7935:
7936: IF (p_funmode = 'RUN') THEN
7937:
7938: ------------------------------------------------------
7965: p_result := 'COMPLETE';
7966:
7967: END IF;
7968:
7969: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetApproverManager');
7970:
7971: EXCEPTION
7972: WHEN OTHERS THEN
7973: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetApproverManager',
7969: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetApproverManager');
7970:
7971: EXCEPTION
7972: WHEN OTHERS THEN
7973: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetApproverManager',
7974: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
7975: raise;
7976: END GetApproverManager;
7977:
7985: l_approver_id NUMBER;
7986: l_debug_info VARCHAR2(200);
7987: BEGIN
7988:
7989: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ApproverProvided');
7990:
7991: IF (p_funmode = 'RUN') THEN
7992:
7993: ------------------------------------------------------
8011: p_result := 'COMPLETE';
8012:
8013: END IF;
8014:
8015: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ApproverProvided');
8016:
8017: EXCEPTION
8018: WHEN OTHERS THEN
8019: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ApproverProvided',
8015: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ApproverProvided');
8016:
8017: EXCEPTION
8018: WHEN OTHERS THEN
8019: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ApproverProvided',
8020: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
8021: raise;
8022: END ApproverProvided;
8023:
8032: l_report_cost_center VARCHAR2(240);
8033: l_debug_info VARCHAR2(200);
8034: BEGIN
8035:
8036: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SameCostCenters');
8037:
8038: IF (p_funmode = 'RUN') THEN
8039:
8040: ---------------------------------------------------------------
8066: p_result := 'COMPLETE';
8067:
8068: END IF;
8069:
8070: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SameCostCenters');
8071:
8072: EXCEPTION
8073: WHEN OTHERS THEN
8074: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SameCostCenters',
8070: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SameCostCenters');
8071:
8072: EXCEPTION
8073: WHEN OTHERS THEN
8074: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SameCostCenters',
8075: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
8076: raise;
8077: END SameCostCenters;
8078:
8088: l_manager_display_name wf_users.display_name%type;
8089: l_debug_info VARCHAR2(200);
8090: BEGIN
8091:
8092: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetApproverEqualManager');
8093:
8094: IF (p_funmode = 'RUN') THEN
8095:
8096: ------------------------------------------------------
8134: p_result := 'COMPLETE';
8135:
8136: END IF;
8137:
8138: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetApproverEqualManager');
8139:
8140: EXCEPTION
8141: WHEN OTHERS THEN
8142: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetApproverEqualManager',
8138: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetApproverEqualManager');
8139:
8140: EXCEPTION
8141: WHEN OTHERS THEN
8142: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetApproverEqualManager',
8143: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
8144: raise;
8145: END SetApproverEqualManager;
8146:
8156: l_approver_display_name wf_users.display_name%type;
8157: l_debug_info VARCHAR2(200);
8158: BEGIN
8159:
8160: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start RecordForwardFromInfo');
8161:
8162: IF (p_funmode in ('RUN', 'TRANSFER')) THEN
8163:
8164: ------------------------------------------------------------
8199: p_result := 'COMPLETE';
8200:
8201: END IF;
8202:
8203: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end RecordForwardFromInfo');
8204:
8205: EXCEPTION
8206: WHEN OTHERS THEN
8207: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'RecordForwardFromInfo',
8203: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end RecordForwardFromInfo');
8204:
8205: EXCEPTION
8206: WHEN OTHERS THEN
8207: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'RecordForwardFromInfo',
8208: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
8209: raise;
8210: END RecordForwardFromInfo;
8211:
8220: l_manager_id NUMBER;
8221: l_debug_info VARCHAR2(200);
8222: BEGIN
8223:
8224: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ManagerNotEqualToApprover');
8225:
8226: IF (p_funmode = 'RUN') THEN
8227:
8228: ------------------------------------------------------
8250: p_result := 'COMPLETE';
8251:
8252: END IF;
8253:
8254: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ManagerNotEqualToApprover');
8255:
8256: EXCEPTION
8257: WHEN OTHERS THEN
8258: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ManagerNotEqualToApprover',
8254: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ManagerNotEqualToApprover');
8255:
8256: EXCEPTION
8257: WHEN OTHERS THEN
8258: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ManagerNotEqualToApprover',
8259: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
8260: raise;
8261: END ManagerNotEqualToApprover;
8262:
8273: l_limit NUMBER;
8274: l_debug_info VARCHAR2(200);
8275: BEGIN
8276:
8277: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start NotifyPreparer');
8278:
8279: IF (p_funmode = 'RUN') THEN
8280:
8281: -----------------------------------------------------------------------
8327: p_result := 'COMPLETE';
8328:
8329: END IF;
8330:
8331: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end NotifyPreparer');
8332:
8333: EXCEPTION
8334: WHEN OTHERS THEN
8335: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'NotifyPreparer',
8331: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end NotifyPreparer');
8332:
8333: EXCEPTION
8334: WHEN OTHERS THEN
8335: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'NotifyPreparer',
8336: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
8337: raise;
8338: END NotifyPreparer;
8339:
8364: l_nRespId Number;
8365:
8366: BEGIN
8367:
8368: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AMEEnabled');
8369:
8370: IF (p_funmode = 'RUN') THEN
8371:
8372: BEGIN
8412: p_result := 'COMPLETE';
8413:
8414: END IF;
8415:
8416: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMEEnabled');
8417:
8418: EXCEPTION
8419: WHEN OTHERS THEN
8420: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMEEnabled',
8416: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMEEnabled');
8417:
8418: EXCEPTION
8419: WHEN OTHERS THEN
8420: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMEEnabled',
8421: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
8422: raise;
8423: END AMEEnabled;
8424:
8432: l_find_approver_count NUMBER;
8433: l_debug_info VARCHAR2(200);
8434: BEGIN
8435:
8436: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start FirstApprover');
8437:
8438: IF (p_funmode = 'RUN') THEN
8439:
8440: ----------------------------------------------------------------
8461: p_result := 'COMPLETE';
8462:
8463: END IF;
8464:
8465: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end FirstApprover');
8466:
8467: EXCEPTION
8468: WHEN OTHERS THEN
8469: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'FirstApprover',
8465: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end FirstApprover');
8466:
8467: EXCEPTION
8468: WHEN OTHERS THEN
8469: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'FirstApprover',
8470: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
8471: raise;
8472: END FirstApprover;
8473:
8481: l_forward_from_id NUMBER;
8482: l_debug_info VARCHAR2(200);
8483: BEGIN
8484:
8485: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ApprovalForwarded');
8486:
8487: IF (p_funmode = 'RUN') THEN
8488:
8489: ----------------------------------------------------------------
8508: ELSIF (p_funmode = 'CANCEL') THEN
8509: p_result := 'COMPLETE';
8510: END IF;
8511:
8512: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ApprovalForwarded');
8513:
8514: EXCEPTION
8515: WHEN OTHERS THEN
8516: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ApprovalForwarded',
8512: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ApprovalForwarded');
8513:
8514: EXCEPTION
8515: WHEN OTHERS THEN
8516: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ApprovalForwarded',
8517: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
8518: raise;
8519: END ApprovalForwarded;
8520:
8531: l_emp_cost_center VARCHAR2(240);
8532: l_debug_info VARCHAR2(200);
8533: BEGIN
8534:
8535: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ResetEmpCostCenter');
8536:
8537: IF (p_funmode = 'RUN') THEN
8538:
8539: -------------------------------------------------------------
8576: ELSIF (p_funmode = 'CANCEL') THEN
8577: p_result := 'COMPLETE';
8578: END IF;
8579:
8580: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ResetEmpCostCenter');
8581:
8582: EXCEPTION
8583: WHEN OTHERS THEN
8584: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ResetEmpCostCenter',
8580: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ResetEmpCostCenter');
8581:
8582: EXCEPTION
8583: WHEN OTHERS THEN
8584: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ResetEmpCostCenter',
8585: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
8586: raise;
8587: END ResetEmpCostCenter;
8588:
8598: l_debug_info VARCHAR2(200);
8599: l_rejection_reason Wf_Item_Attribute_Values.TEXT_VALUE%TYPE := NULL;
8600: BEGIN
8601:
8602: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start PayablesReviewed');
8603:
8604: IF (p_funmode = 'RUN') THEN
8605:
8606: ----------------------------------------------------------------
8649: ELSIF (p_funmode = 'CANCEL') THEN
8650: p_result := 'COMPLETE';
8651: END IF;
8652:
8653: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end PayablesReviewed');
8654:
8655: EXCEPTION
8656: WHEN OTHERS THEN
8657: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'PayablesReviewed',
8653: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end PayablesReviewed');
8654:
8655: EXCEPTION
8656: WHEN OTHERS THEN
8657: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'PayablesReviewed',
8658: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
8659: raise;
8660: END PayablesReviewed;
8661:
8670: l_preparer_id NUMBER(15);
8671: l_debug_info VARCHAR2(200);
8672: BEGIN
8673:
8674: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start EmployeeEqualsToPreparer');
8675:
8676: IF (p_funmode = 'RUN') THEN
8677:
8678: ---------------------------------------------------------------
8702: ELSIF (p_funmode = 'CANCEL') THEN
8703: p_result := 'COMPLETE';
8704: END IF;
8705:
8706: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end EmployeeEqualsToPreparer');
8707:
8708: EXCEPTION
8709: WHEN OTHERS THEN
8710: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'EmployeeEqualsToPreparer',
8706: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end EmployeeEqualsToPreparer');
8707:
8708: EXCEPTION
8709: WHEN OTHERS THEN
8710: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'EmployeeEqualsToPreparer',
8711: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
8712: raise;
8713: END EmployeeEqualsToPreparer;
8714:
8722: l_emp_method VARCHAR2(20);
8723: l_debug_info VARCHAR2(200);
8724: BEGIN
8725:
8726: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start EmployeeApprovalRequired');
8727:
8728: IF (p_funmode = 'RUN') THEN
8729:
8730: -------------------------------------------------------------------
8744: ELSIF (p_funmode = 'CANCEL') THEN
8745: p_result := 'COMPLETE';
8746: END IF;
8747:
8748: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end EmployeeApprovalRequired');
8749:
8750: EXCEPTION
8751: WHEN OTHERS THEN
8752: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'EmployeeApprovalRequired',
8748: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end EmployeeApprovalRequired');
8749:
8750: EXCEPTION
8751: WHEN OTHERS THEN
8752: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'EmployeeApprovalRequired',
8753: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
8754: raise;
8755: END EmployeeApprovalRequired;
8756:
8771: l_workflow_approved_flag VARCHAR2(1);
8772: l_debug_info VARCHAR2(200);
8773: BEGIN
8774:
8775: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start DetermineStartFromProcess');
8776:
8777: IF (p_funmode = 'RUN') THEN
8778:
8779: ----------------------------------------------------------------
8790: ELSIF (p_funmode = 'CANCEL') THEN
8791: p_result := 'COMPLETE';
8792: END IF;
8793:
8794: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end DetermineStartFromProcess');
8795:
8796: EXCEPTION
8797: WHEN OTHERS THEN
8798: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'DetermineStartFromProcess',
8794: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end DetermineStartFromProcess');
8795:
8796: EXCEPTION
8797: WHEN OTHERS THEN
8798: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'DetermineStartFromProcess',
8799: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
8800: RAISE;
8801:
8802: END DetermineStartFromProcess;
8824: l_debug_info VARCHAR2(200);
8825:
8826: BEGIN
8827:
8828: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetEmployeeAsApprover');
8829:
8830: IF (p_funmode = 'RUN') THEN
8831:
8832: ------------------------------------------------------
8868: ELSIF (p_funmode = 'CANCEL') THEN
8869: p_result := 'COMPLETE';
8870: END IF;
8871:
8872: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetEmployeeAsApprover');
8873:
8874: EXCEPTION
8875: WHEN OTHERS THEN
8876: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetEmployeeAsApprover',
8872: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetEmployeeAsApprover');
8873:
8874: EXCEPTION
8875: WHEN OTHERS THEN
8876: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetEmployeeAsApprover',
8877: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
8878: RAISE;
8879:
8880: END SetEmployeeAsApprover;
8889: l_report_header_id AP_WEB_DB_EXPRPT_PKG.expHdr_headerID;
8890: l_debug_info VARCHAR2(200);
8891: BEGIN
8892:
8893: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start DeleteShortPayExpReport');
8894:
8895: IF (p_funmode = 'RUN') THEN
8896:
8897: ----------------------------------------------------------------
8906: ELSIF (p_funmode = 'CANCEL') THEN
8907: p_result := 'COMPLETE';
8908: END IF;
8909:
8910: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end DeleteShortPayExpReport');
8911:
8912: EXCEPTION
8913: WHEN OTHERS THEN
8914: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'DeleteShortPayExpReport',
8910: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end DeleteShortPayExpReport');
8911:
8912: EXCEPTION
8913: WHEN OTHERS THEN
8914: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'DeleteShortPayExpReport',
8915: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
8916: raise;
8917: END DeleteShortPayExpReport;
8918:
8927: l_report_header_id AP_WEB_DB_EXPLINE_PKG.expLines_headerID;
8928: l_debug_info VARCHAR2(200);
8929: BEGIN
8930:
8931: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start RequireProofOfPayment');
8932:
8933: IF (p_funmode = 'RUN') THEN
8934:
8935: ---------------------------------------------------------------------------
8959: ELSIF (p_funmode = 'CANCEL') THEN
8960: p_result := 'COMPLETE';
8961: END IF;
8962:
8963: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end RequireProofOfPayment');
8964:
8965: EXCEPTION
8966: WHEN OTHERS THEN
8967: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'RequireProofOfPayment',
8963: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end RequireProofOfPayment');
8964:
8965: EXCEPTION
8966: WHEN OTHERS THEN
8967: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'RequireProofOfPayment',
8968: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
8969: RAISE;
8970:
8971: END RequireProofOfPayment;
9000: l_temp_clob CLOB;
9001: l_colon NUMBER;
9002: BEGIN
9003:
9004: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GenerateExpLines');
9005:
9006: WF_NOTIFICATION.NewClob(l_temp_clob,document);
9007: GenerateExpClobLines(document_id,
9008: display_type,
9025: document := document || table_end || indent_end;
9026:
9027: end if;
9028:
9029: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateExpLines');
9030:
9031: EXCEPTION
9032: WHEN OTHERS THEN
9033: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateExpLines',
9029: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateExpLines');
9030:
9031: EXCEPTION
9032: WHEN OTHERS THEN
9033: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateExpLines',
9034: document_id, l_debug_info);
9035: raise;
9036: END GenerateExpLines;
9037:
9066: l_attribute VARCHAR2(30);
9067: l_debug_info VARCHAR2(1000);
9068: BEGIN
9069:
9070: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GenerateDocumentAttributeValue');
9071:
9072: document := '';
9073:
9074: l_debug_info := 'Decode document_id';
9091: end if;
9092: end if;
9093: document_type := display_type;
9094:
9095: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateDocumentAttributeValue');
9096:
9097: EXCEPTION
9098: WHEN OTHERS THEN
9099: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateDocumentAttributeValue',
9095: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateDocumentAttributeValue');
9096:
9097: EXCEPTION
9098: WHEN OTHERS THEN
9099: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateDocumentAttributeValue',
9100: document_id, l_debug_info);
9101: raise;
9102: END GenerateDocumentAttributeValue;
9103:
9119: l_adjustment_line VARCHAR2(2000);
9120:
9121: BEGIN
9122:
9123: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start BuildAdjustmentInfoLine');
9124:
9125: IF p_adjustment_type = 'ADJUSTMENT' THEN
9126: ------------------------------------------------------------------
9127: l_debug_info := 'Format Adjustment Line with amount' || adjustment_rec.amount;
9243: p_adjustment_line := p_adjustment_line || tr_end;
9244: END IF;
9245: END IF; -- p_adjustment_type = 'ADJUSTMENT'
9246:
9247: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end BuildAdjustmentInfoLine');
9248:
9249: EXCEPTION
9250: WHEN OTHERS THEN
9251: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'BuildAdjustmentInfoLine',
9247: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end BuildAdjustmentInfoLine');
9248:
9249: EXCEPTION
9250: WHEN OTHERS THEN
9251: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'BuildAdjustmentInfoLine',
9252: '', l_debug_info);
9253: raise;
9254: END BuildAdjustmentInfoLine;
9255:
9288: document := document || '';
9289:
9290:
9291: end if;
9292: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateAdjustmentInfo');
9293:
9294: EXCEPTION
9295: WHEN OTHERS THEN
9296: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateAdjustmentInfo',
9292: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateAdjustmentInfo');
9293:
9294: EXCEPTION
9295: WHEN OTHERS THEN
9296: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateAdjustmentInfo',
9297: document_id, l_debug_info);
9298: raise;
9299: END GenerateAdjustmentInfo;
9300:
9335:
9336: l_n_org_id Number;
9337: BEGIN
9338:
9339: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GenerateAdjustmentInfo');
9340:
9341: ------------------------------------------------------------
9342: l_debug_info := 'Decode document_id';
9343: ------------------------------------------------------------
9563: END IF;
9564:
9565: document_type := display_type;
9566:
9567: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateAdjustmentInfoClob');
9568:
9569: EXCEPTION
9570: WHEN OTHERS THEN
9571: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateAdjustmentInfoClob',
9567: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateAdjustmentInfoClob');
9568:
9569: EXCEPTION
9570: WHEN OTHERS THEN
9571: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateAdjustmentInfoClob',
9572: document_id, l_debug_info);
9573: raise;
9574: END GenerateAdjustmentInfoClob;
9575:
9579: document_type IN OUT NOCOPY VARCHAR2) IS
9580: l_debug_info VARCHAR2(1000);
9581: BEGIN
9582:
9583: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ResetLineInfo');
9584:
9585: ------------------------------------------------------------------
9586: l_debug_info := 'Reset Line Info Body';
9587: ------------------------------------------------------------------
9588:
9589: document := '';
9590: document_type := display_type;
9591:
9592: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ResetLineInfo');
9593:
9594: EXCEPTION
9595: WHEN OTHERS THEN
9596: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ResetLineInfo',
9592: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ResetLineInfo');
9593:
9594: EXCEPTION
9595: WHEN OTHERS THEN
9596: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ResetLineInfo',
9597: document_id, l_debug_info);
9598: raise;
9599: END ResetLineInfo;
9600:
9616:
9617:
9618: BEGIN
9619:
9620: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CallbackFunction');
9621:
9622: begin
9623:
9624: l_n_org_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
9732: END IF;
9733:
9734: END IF;
9735:
9736: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CallbackFunction');
9737:
9738: END CallbackFunction;
9739:
9740: ----------------------------------------------------------------------
9758: l_new_language fnd_languages.nls_language%type := null;
9759:
9760: BEGIN
9761:
9762: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start IsPreparerToAuditorTransferred');
9763:
9764: if (p_funmode in ('QUESTION', 'ANSWER')) then
9765:
9766: -------------------------------------------------------------------
9847: END IF;
9848:
9849: EXCEPTION
9850: WHEN OTHERS THEN
9851: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'IsPreparerToAuditorTransferred',
9852: p_item_type, p_item_key, to_char(0), l_debug_info);
9853: RAISE;
9854:
9855: END IsPreparerToAuditorTransferred;
9903: AND name = l_TransferToName;
9904:
9905: BEGIN
9906:
9907: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start IsApprovalRequestTransferred');
9908:
9909: if (p_funmode in ('QUESTION', 'ANSWER')) then
9910:
9911: -------------------------------------------------------------------
10045:
10046: IF (l_AMEEnabled = 'Y') THEN
10047:
10048: C_WF_VERSION := GetFlowVersion(p_item_type, p_item_key);
10049: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_R120_Version) THEN
10050: l_itemkey := WF_ENGINE.GetItemAttrText(p_item_type,
10051: p_item_key,
10052: 'AME_MASTER_ITEM_KEY');
10053: ELSE
10251:
10252: end if;
10253:
10254:
10255: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end IsApprovalRequestTransferred');
10256:
10257: EXCEPTION
10258: WHEN OTHERS THEN
10259: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'IsApprovalRequestTransferred',
10255: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end IsApprovalRequestTransferred');
10256:
10257: EXCEPTION
10258: WHEN OTHERS THEN
10259: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'IsApprovalRequestTransferred',
10260: p_item_type, p_item_key, to_char(0), l_debug_info);
10261: RAISE;
10262:
10263: END IsApprovalRequestTransferred;
10277: l_WFAdminNote VARCHAR2(240) := NULL;
10278:
10279: BEGIN
10280:
10281: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CheckWFAdminNote');
10282:
10283: if (p_funmode = 'RESPOND') then
10284: -----------------------------------------
10285: l_debug_info := 'Get the Notification ID';
10301: */
10302: end if;
10303:
10304:
10305: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckWFAdminNote');
10306:
10307: EXCEPTION
10308: WHEN OTHERS THEN
10309: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckWFAdminNote',
10305: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckWFAdminNote');
10306:
10307: EXCEPTION
10308: WHEN OTHERS THEN
10309: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckWFAdminNote',
10310: p_item_type, p_item_key, to_char(0), l_debug_info);
10311: RAISE;
10312:
10313: END CheckWFAdminNote;
10327: C_WF_Version NUMBER := 0;
10328: l_n_resp_id NUMBER;
10329: BEGIN
10330:
10331: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetReturnStatusAndResetAttr');
10332:
10333: IF (p_funmode = 'RUN') THEN
10334:
10335: -----------------------------------------------------
10334:
10335: -----------------------------------------------------
10336: l_debug_info := 'Get Workflow Version Number';
10337: -----------------------------------------------------
10338: C_WF_Version := AP_WEB_EXPENSE_WF.GetFlowVersion(p_item_type, p_item_key);
10339:
10340: ------------------------------------------------------------
10341: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
10342: ------------------------------------------------------------
10349: 'AME_ENABLED');
10350: IF (l_AMEEnabled = 'Y') THEN
10351:
10352: --Bug 4425821: Uptake AME parallel approvers
10353: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_R120_Version) THEN
10354: --------------------------------------------
10355: l_debug_info := 'Call AMEAbortRequestApprovals';
10356: --------------------------------------------
10357: AMEAbortRequestApprovals(l_report_header_id);
10464: ELSIF (p_funmode = 'CANCEL') THEN
10465: p_result := 'COMPLETE';
10466: END IF;
10467:
10468: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetReturnStatusAndResetAttr');
10469:
10470: EXCEPTION
10471: WHEN OTHERS THEN
10472: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetReturnStatusAndResetAttr',
10468: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetReturnStatusAndResetAttr');
10469:
10470: EXCEPTION
10471: WHEN OTHERS THEN
10472: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetReturnStatusAndResetAttr',
10473: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
10474: RAISE;
10475:
10476: END SetReturnStatusAndResetAttr;
10486: l_debug_info VARCHAR2(200);
10487: l_find_approver_count NUMBER;
10488: BEGIN
10489:
10490: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetFromRoleBeforeApproval');
10491:
10492: IF (p_funmode = 'RUN') THEN
10493: ----------------------------------------------------------------
10494: l_debug_info := 'Retrieving Find_Approver_Count Item Attribute';
10514: ELSIF (p_funmode = 'CANCEL') THEN
10515: p_result := 'COMPLETE';
10516: END IF;
10517:
10518: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRoleBeforeApproval');
10519:
10520: EXCEPTION
10521: WHEN OTHERS THEN
10522: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRoleBeforeApproval',
10518: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRoleBeforeApproval');
10519:
10520: EXCEPTION
10521: WHEN OTHERS THEN
10522: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRoleBeforeApproval',
10523: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
10524: raise;
10525: END SetFromRoleBeforeApproval;
10526:
10534: ----------------------------------------------------------------------
10535: l_debug_info VARCHAR2(200);
10536: BEGIN
10537:
10538: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetFromRolePreparer');
10539:
10540: IF (p_funmode = 'RUN') THEN
10541: ----------------------------------------------------------------
10542: l_debug_info := 'Set #FROM_ROLE to Preparer';
10562: ELSIF (p_funmode = 'CANCEL') THEN
10563: p_result := 'COMPLETE';
10564: END IF;
10565:
10566: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRolePreparer');
10567:
10568: EXCEPTION
10569: WHEN OTHERS THEN
10570: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRolePreparer',
10566: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRolePreparer');
10567:
10568: EXCEPTION
10569: WHEN OTHERS THEN
10570: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRolePreparer',
10571: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
10572: raise;
10573: END SetFromRolePreparer;
10574:
10582: ----------------------------------------------------------------------
10583: l_debug_info VARCHAR2(200);
10584: BEGIN
10585:
10586: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetFromRoleEmployee');
10587:
10588: IF (p_funmode = 'RUN') THEN
10589: ----------------------------------------------------------------
10590: l_debug_info := 'Set #FROM_ROLE to Employee';
10610: ELSIF (p_funmode = 'CANCEL') THEN
10611: p_result := 'COMPLETE';
10612: END IF;
10613:
10614: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRoleEmployee');
10615:
10616: EXCEPTION
10617: WHEN OTHERS THEN
10618: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRoleEmployee',
10614: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRoleEmployee');
10615:
10616: EXCEPTION
10617: WHEN OTHERS THEN
10618: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRoleEmployee',
10619: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
10620: raise;
10621: END SetFromRoleEmployee;
10622:
10630: ----------------------------------------------------------------------
10631: l_debug_info VARCHAR2(200);
10632: BEGIN
10633:
10634: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetFromRoleForwardFrom');
10635:
10636: IF (p_funmode in ('RUN', 'TRANSFER')) THEN
10637: ----------------------------------------------------------------
10638: l_debug_info := 'Set #FROM_ROLE to Forward From';
10658: ELSIF (p_funmode = 'CANCEL') THEN
10659: p_result := 'COMPLETE';
10660: END IF;
10661:
10662: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRoleForwardFrom');
10663:
10664: EXCEPTION
10665: WHEN OTHERS THEN
10666: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRoleForwardFrom',
10662: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRoleForwardFrom');
10663:
10664: EXCEPTION
10665: WHEN OTHERS THEN
10666: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRoleForwardFrom',
10667: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
10668: raise;
10669: END SetFromRoleForwardFrom;
10670:
10678: ----------------------------------------------------------------------
10679: l_debug_info VARCHAR2(200);
10680: BEGIN
10681:
10682: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetFromRoleApprover');
10683:
10684: IF (p_funmode = 'RUN') THEN
10685: ----------------------------------------------------------------
10686: l_debug_info := 'Set #FROM_ROLE to Approver';
10706: ELSIF (p_funmode = 'CANCEL') THEN
10707: p_result := 'COMPLETE';
10708: END IF;
10709:
10710: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRoleApprover');
10711:
10712: EXCEPTION
10713: WHEN OTHERS THEN
10714: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRoleApprover',
10710: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRoleApprover');
10711:
10712: EXCEPTION
10713: WHEN OTHERS THEN
10714: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRoleApprover',
10715: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
10716: raise;
10717: END SetFromRoleApprover;
10718:
10817: l_error_message);
10818:
10819: p_result := 'COMPLETE:N';
10820: WHEN OTHERS THEN
10821: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetStatusApproverAndDate',
10822: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
10823: raise;
10824: END SetStatusApproverAndDate;
10825:
10862: END IF;
10863:
10864: EXCEPTION
10865: WHEN OTHERS THEN
10866: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ZeroFindApproverCount',
10867: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
10868: raise;
10869: END ZeroFindApproverCount;
10870:
10916: C_WF_Version NUMBER := 0;
10917: l_n_resp_id NUMBER;
10918: BEGIN
10919:
10920: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF',
10921: 'start WF WithdrawExpenseRep');
10922:
10923: l_itemkey := to_char(p_rep_header_id);
10924: begin
10942:
10943: -----------------------------------------------------
10944: l_debug_info := 'Get Workflow Version Number';
10945: -----------------------------------------------------
10946: C_WF_Version := AP_WEB_EXPENSE_WF.GetFlowVersion(l_itemtype, l_itemkey);
10947:
10948: if l_wf_exist then
10949: l_debug_info := 'Get Attribute values';
10950: l_preparer_name := WF_ENGINE.GetItemAttrText(
10989: l_itemkey,
10990: 'AME_ENABLED');
10991: if (l_AMEEnabled = 'Y') then
10992: --Bug 4425821: Uptake AME parallel approvers
10993: if (C_WF_Version >= AP_WEB_EXPENSE_WF.C_R120_Version) then
10994: --------------------------------------------
10995: l_debug_info := 'Call AMEAbortRequestApprovals';
10996: --------------------------------------------
10997: AMEAbortRequestApprovals(p_rep_header_id);
11167: l_debug_info := 'Restore nls context to original language';
11168: -------------------------------------------------------------------
11169: fnd_global.set_nls_context(p_nls_language => l_orig_language);
11170:
11171: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF',
11172: 'end WF WithdrawExpenseRep');
11173: COMMIT;
11174:
11175: ------------------------------------------------------------
11277: l_payment_due_from VARCHAR2(10) := 'INDIVIDUAL';
11278:
11279: BEGIN
11280:
11281: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GenerateExpClobLines');
11282:
11283: ------------------------------------------------------------
11284: l_debug_info := 'Decode document_id';
11285: ------------------------------------------------------------
12190: END IF;
12191:
12192: document_type := display_type;
12193:
12194: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateExpClobLines');
12195:
12196: EXCEPTION
12197: WHEN OTHERS THEN
12198: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateExpClobLines',
12194: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateExpClobLines');
12195:
12196: EXCEPTION
12197: WHEN OTHERS THEN
12198: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateExpClobLines',
12199: document_id, l_debug_info);
12200: raise;
12201: END GenerateExpClobLines;
12202:
12214: l_mess Wf_Item_Attribute_Values.TEXT_VALUE%TYPE;
12215:
12216: BEGIN
12217:
12218: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start determineMileageAdjusted');
12219:
12220: IF (p_funmode = 'RUN') THEN
12221:
12222: ------------------------------------------------------------
12273: ELSIF (p_funmode = 'CANCEL') THEN
12274: p_result := 'COMPLETE';
12275: END IF;
12276:
12277: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end determineMileageAdjusted');
12278:
12279: EXCEPTION
12280: WHEN OTHERS THEN
12281: AP_WEB_DB_UTIL_PKG.RaiseException('determineMileageAdjusted');
13029: l_client_extension_enabled VARCHAR2(1);
13030: l_temp_array OIE_PDM_NUMBER_T; -- bug 5358186
13031: BEGIN
13032:
13033: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ProcessMileageLines');
13034:
13035: -----------------------------------------------------
13036: l_debug_info := 'Get Workflow Version Number 5';
13037: -----------------------------------------------------
13034:
13035: -----------------------------------------------------
13036: l_debug_info := 'Get Workflow Version Number 5';
13037: -----------------------------------------------------
13038: C_WF_Version := AP_WEB_EXPENSE_WF.GetFlowVersion(p_item_type, p_item_key);
13039:
13040: ------------------------------------------------------------
13041: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
13042: ------------------------------------------------------------
13455: l_report_header_id AP_WEB_DB_EXPRPT_PKG.expHdr_headerID;
13456: BEGIN
13457:
13458:
13459: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start hasCompanyViolations');
13460:
13461: IF (p_funmode = 'RUN') THEN
13462: ------------------------------------------------------------
13463: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
13492: ELSIF (p_funmode = 'CANCEL') THEN
13493: p_result := 'COMPLETE';
13494: END IF;
13495:
13496: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end hasCompanyViolations');
13497:
13498: EXCEPTION
13499: WHEN OTHERS THEN
13500: AP_WEB_DB_UTIL_PKG.RaiseException('hasCompanyViolations');
13520: l_currency VARCHAR2(25);
13521:
13522: BEGIN
13523:
13524: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GenerateAmountMsg');
13525:
13526: ------------------------------------------------------------
13527: l_debug_info := 'Decode document_id';
13528: ------------------------------------------------------------
13560:
13561: document := l_msg;
13562: document_type := display_type;
13563:
13564: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateExpLines');
13565:
13566: EXCEPTION
13567: WHEN OTHERS THEN
13568: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateAmountMsg',
13564: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateExpLines');
13565:
13566: EXCEPTION
13567: WHEN OTHERS THEN
13568: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateAmountMsg',
13569: document_id, l_debug_info);
13570: raise;
13571: END GenerateAmountMsg;
13572:
13578: l_debug_info VARCHAR2(2000);
13579:
13580: BEGIN
13581:
13582: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetRespAppInfo');
13583:
13584: ------------------------------------------------------
13585: l_debug_info := 'Retrieve RESPONSIBILITY_ID Item Attribute';
13586: ------------------------------------------------------
13594: p_appl_id := WF_ENGINE.GetItemAttrNumber('APEXP',
13595: p_item_key,
13596: 'APPLICATION_ID');
13597:
13598: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetRespAppInfo');
13599:
13600: EXCEPTION
13601: WHEN OTHERS THEN
13602: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
13601: WHEN OTHERS THEN
13602: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
13603: null;
13604: else
13605: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetRespAppInfo',
13606: p_item_key, l_debug_info);
13607: raise;
13608: end if;
13609: END GetRespAppInfo;
13639: audit_rec audit_cur%ROWTYPE;
13640: rule_rec rule_cur%ROWTYPE;
13641: BEGIN
13642:
13643: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetAuditType');
13644:
13645: IF (p_funmode = 'RUN') THEN
13646: ------------------------------------------------------------
13647: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
13693: ELSIF (p_funmode = 'CANCEL') THEN
13694: p_result := 'COMPLETE';
13695: END IF;
13696:
13697: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetAuditType');
13698:
13699: EXCEPTION
13700: WHEN OTHERS THEN
13701: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetAuditType',
13697: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetAuditType');
13698:
13699: EXCEPTION
13700: WHEN OTHERS THEN
13701: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetAuditType',
13702: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
13703: raise;
13704: END GetAuditType;
13705:
13716:
13717: BEGIN
13718:
13719:
13720: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ResetWFNote');
13721:
13722: ---------------------------------------------------------------
13723: l_debug_info := 'Reset WF_NOTE';
13724: ---------------------------------------------------------------
13726: p_item_key,
13727: 'WF_NOTE',
13728: '');
13729:
13730: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ResetWFNote');
13731:
13732: EXCEPTION
13733: WHEN OTHERS THEN
13734: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ResetWFNote',
13730: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ResetWFNote');
13731:
13732: EXCEPTION
13733: WHEN OTHERS THEN
13734: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ResetWFNote',
13735: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
13736: raise;
13737: END ResetWFNote;
13738:
13750: l_debug_info VARCHAR2(2000);
13751:
13752: BEGIN
13753:
13754: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AddToOtherErrors');
13755:
13756: ---------------------------------------------------------
13757: l_debug_info := 'Add to Other Errors';
13758: ---------------------------------------------------------
13778: p_item_key,
13779: 'OTHER_ERRORS',
13780: l_other_errors);
13781:
13782: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AddToOtherErrors');
13783:
13784: EXCEPTION
13785: WHEN OTHERS THEN
13786: IF (SQLCODE <> -20001) THEN
13812:
13813: l_debug_info VARCHAR2(200);
13814:
13815: BEGIN
13816: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GenerateHeaderErrors');
13817:
13818: ------------------------------------------------------------
13819: l_debug_info := 'Decode document_id';
13820: ------------------------------------------------------------
13830: 'HEADER_ERRORS');
13831:
13832: document_type := display_type;
13833:
13834: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateHeaderErrors');
13835:
13836: EXCEPTION
13837: WHEN OTHERS THEN
13838: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateHeaderErrors', document_id, l_debug_info);
13834: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateHeaderErrors');
13835:
13836: EXCEPTION
13837: WHEN OTHERS THEN
13838: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateHeaderErrors', document_id, l_debug_info);
13839: raise;
13840:
13841: END GenerateHeaderErrors;
13842:
13854: ----------------------------------------------------------------------
13855: l_debug_info VARCHAR2(200);
13856: BEGIN
13857:
13858: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetFromRoleAP');
13859:
13860: IF (p_funmode = 'RUN') THEN
13861: ----------------------------------------------------------------
13862: l_debug_info := 'Set #FROM_ROLE to AP';
13882: ELSIF (p_funmode = 'CANCEL') THEN
13883: p_result := 'COMPLETE';
13884: END IF;
13885:
13886: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRoleAP');
13887:
13888: EXCEPTION
13889: WHEN OTHERS THEN
13890: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRoleAP',
13886: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRoleAP');
13887:
13888: EXCEPTION
13889: WHEN OTHERS THEN
13890: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRoleAP',
13891: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
13892: raise;
13893: END SetFromRoleAP;
13894:
13902: -------------------------------------------------------------------------
13903: l_debug_info VARCHAR2(2000);
13904: BEGIN
13905:
13906: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetPolicyInfo');
13907: SetShortPaidLinesInfo(p_item_type,
13908: p_item_key,
13909: p_actid,
13910: p_funmode,
13909: p_actid,
13910: p_funmode,
13911: 'POLICY',
13912: p_result);
13913: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetPolicyInfo');
13914:
13915: EXCEPTION
13916: WHEN OTHERS THEN
13917: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetPolicyInfo',
13913: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetPolicyInfo');
13914:
13915: EXCEPTION
13916: WHEN OTHERS THEN
13917: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetPolicyInfo',
13918: p_item_type, p_item_key, null, l_debug_info);
13919: raise;
13920: END SetPolicyInfo;
13921:
13928: -------------------------------------------------------------------------
13929: l_debug_info VARCHAR2(2000);
13930: BEGIN
13931:
13932: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetMissingReceiptInfo');
13933:
13934: SetShortPaidLinesInfo(p_item_type,
13935: p_item_key,
13936: p_actid,
13936: p_actid,
13937: p_funmode,
13938: 'MISSING_RECEIPT',
13939: p_result);
13940: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetMissingReceiptInfo');
13941:
13942: EXCEPTION
13943: WHEN OTHERS THEN
13944: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetMissingReceiptInfo',
13940: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetMissingReceiptInfo');
13941:
13942: EXCEPTION
13943: WHEN OTHERS THEN
13944: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetMissingReceiptInfo',
13945: p_item_type, p_item_key, null, l_debug_info);
13946: raise;
13947: END SetMissingReceiptInfo;
13948:
13958: l_document_number AP_WEB_DB_EXPRPT_PKG.expHdr_invNum;
13959: l_preparer_name VARCHAR2(2000);
13960: BEGIN
13961:
13962: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetProvideMissingInfo');
13963:
13964:
13965: ----------------------------------------------------------------
13966: l_debug_info := 'Set #FROM_ROLE to Preparer';
13984: p_item_key,
13985: 'OIENOTES',
13986: l_mess);
13987:
13988: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetProvideMissingInfo');
13989:
13990: EXCEPTION
13991: WHEN OTHERS THEN
13992: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetProvideMissingInfo',
13988: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetProvideMissingInfo');
13989:
13990: EXCEPTION
13991: WHEN OTHERS THEN
13992: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetProvideMissingInfo',
13993: p_item_type, p_item_key, null, l_debug_info);
13994: raise;
13995: END SetProvideMissingInfo;
13996:
14001: p_result OUT NOCOPY VARCHAR2) IS
14002: l_debug_info VARCHAR2(2000);
14003: l_report_header_id NUMBER;
14004: BEGIN
14005: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ResetShortpayAdjustmentInfo');
14006:
14007: ------------------------------------------------------------
14008: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
14009: ------------------------------------------------------------
14015: l_debug_info := 'Reset adjustment information';
14016: ----------------------------------------------------------------
14017: AP_WEB_DB_EXPLINE_PKG.ResetShortpayAdjustmentInfo(l_report_header_id);
14018:
14019: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ResetShortpayAdjustmentInfo');
14020: EXCEPTION
14021: WHEN OTHERS THEN
14022: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ResetShortpayAdjustmentInfo',
14023: p_item_type, p_item_key, null, l_debug_info);
14018:
14019: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ResetShortpayAdjustmentInfo');
14020: EXCEPTION
14021: WHEN OTHERS THEN
14022: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ResetShortpayAdjustmentInfo',
14023: p_item_type, p_item_key, null, l_debug_info);
14024: raise;
14025: END ResetShortpayAdjustmentInfo;
14026:
14056:
14057: l_debug_info VARCHAR2(200);
14058: BEGIN
14059:
14060: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CheckAPReviewResult');
14061:
14062:
14063: IF (p_funmode = 'RUN') THEN
14064:
14104: ---------------------------------------------------------
14105: WF_ENGINE.SetItemAttrText(p_item_type,
14106: p_item_key,
14107: 'LINE_INFO_BODY',
14108: 'plsql:AP_WEB_EXPENSE_WF.generateAdjustmentInfo/'|| p_item_type || ':' || p_item_key || ':AUDIT');
14109:
14110: ------------------------------------------------------------
14111: l_debug_info := 'Retrieve Workflow_Approved_Flag';
14112: ------------------------------------------------------------
14127: NULL;
14128:
14129: END IF;
14130:
14131: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckAPReviewResult');
14132:
14133: EXCEPTION
14134: WHEN OTHERS THEN
14135: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckAPReviewResult',
14131: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckAPReviewResult');
14132:
14133: EXCEPTION
14134: WHEN OTHERS THEN
14135: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckAPReviewResult',
14136: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
14137: raise;
14138: END CheckAPReviewResult;
14139:
14165: audit_rec audit_cur%ROWTYPE;
14166:
14167: BEGIN
14168:
14169: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AddToAuditQueue');
14170:
14171:
14172: IF (p_funmode = 'RUN') THEN
14173:
14232: NULL;
14233:
14234: END IF;
14235:
14236: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AddToAuditQueue');
14237:
14238: EXCEPTION
14239: WHEN OTHERS THEN
14240: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AddToAuditQueue',
14236: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AddToAuditQueue');
14237:
14238: EXCEPTION
14239: WHEN OTHERS THEN
14240: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AddToAuditQueue',
14241: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
14242: raise;
14243: END AddToAuditQueue;
14244:
14260: l_report_header_id AP_WEB_DB_EXPRPT_PKG.expHdr_headerID;
14261: l_debug_info VARCHAR2(200);
14262: BEGIN
14263:
14264: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start RemoveFromAuditQueue');
14265:
14266:
14267: IF (p_funmode = 'RUN') THEN
14268:
14284: NULL;
14285:
14286: END IF;
14287:
14288: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end RemoveFromAuditQueue');
14289:
14290: EXCEPTION
14291: WHEN OTHERS THEN
14292: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'RemoveFromAuditQueue',
14288: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end RemoveFromAuditQueue');
14289:
14290: EXCEPTION
14291: WHEN OTHERS THEN
14292: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'RemoveFromAuditQueue',
14293: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
14294: raise;
14295: END RemoveFromAuditQueue;
14296:
14345: l_ame_enabled varchar2(1) := 'N';
14346:
14347: BEGIN
14348:
14349: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start StoreNote');
14350:
14351: IF (p_funmode = 'RUN') THEN
14352:
14353: -------------------------------------------------------------------
14549: p_result := 'COMPLETE:Y';
14550:
14551: END IF;
14552:
14553: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StoreNote');
14554:
14555: EXCEPTION
14556: WHEN OTHERS THEN
14557: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StoreNote',
14553: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StoreNote');
14554:
14555: EXCEPTION
14556: WHEN OTHERS THEN
14557: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StoreNote',
14558: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
14559: raise;
14560: END StoreNote;
14561:
14635: END IF;
14636:
14637: EXCEPTION
14638: WHEN OTHERS THEN
14639: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'IsPersonTerminated',
14640: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
14641: raise;
14642: END IsEmployeeTerminated;
14643:
14678: END IF;
14679:
14680: EXCEPTION
14681: WHEN OTHERS THEN
14682: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'IsEmployeeActive',
14683: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
14684: raise;
14685: END IsEmployeeActive;
14686:
14720: END IF;
14721:
14722: EXCEPTION
14723: WHEN OTHERS THEN
14724: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'IsManagerActive',
14725: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
14726: raise;
14727: END IsManagerActive;
14728:
14744: l_emp_info_rec AP_WEB_DB_HR_INT_PKG.EmployeeInfoRec;
14745: l_employee_name per_workforce_x.full_name%TYPE;
14746: BEGIN
14747:
14748: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetManagerInfoAndCheckStatus');
14749:
14750: -----------------------------------------------------------
14751: l_debug_info := 'Trying to retrieve employee manager info';
14752: -----------------------------------------------------------
14807: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_SPL_INSTR');
14808: p_special_instr := FND_MESSAGE.Get;
14809: END IF;
14810:
14811: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetManagerInfoAndCheckStatus');
14812:
14813: EXCEPTION
14814: WHEN OTHERS THEN
14815: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetManagerInfoAndCheckStatus',
14811: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetManagerInfoAndCheckStatus');
14812:
14813: EXCEPTION
14814: WHEN OTHERS THEN
14815: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetManagerInfoAndCheckStatus',
14816: null, null, null, l_debug_info);
14817: raise;
14818: END GetManagerInfoAndCheckStatus;
14819:
14896: l_para_list WF_PARAMETER_LIST_T;
14897:
14898: BEGIN
14899:
14900: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start RaiseSubmitEvent');
14901:
14902: ----------------------------------------------------------
14903: l_debug_info := 'Get USER_ID/RESP_ID/RESP_APPL_ID';
14904: ----------------------------------------------------------
14927: wf_event.raise(p_event_name => C_SUBMIT_EVENT_NAME,
14928: p_event_key => p_report_header_id,
14929: p_parameters => l_para_list);
14930:
14931: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end RaiseSubmitEvent');
14932:
14933: EXCEPTION
14934: WHEN OTHERS THEN
14935:
14987: l_submit_from_oie varchar2(1);
14988:
14989: BEGIN
14990:
14991: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start InitSubmit');
14992:
14993: l_report_header_id := to_number(p_item_key);
14994:
14995: select aerh.report_header_id,
15042: p_event_raised => 'Y');
15043:
15044: p_result := 'COMPLETE';
15045:
15046: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end InitSubmit');
15047:
15048: EXCEPTION
15049: WHEN OTHERS THEN
15050: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'InitSubmit',
15046: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end InitSubmit');
15047:
15048: EXCEPTION
15049: WHEN OTHERS THEN
15050: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'InitSubmit',
15051: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
15052: raise;
15053: END InitSubmit;
15054:
15066: l_user_name wf_notifications.recipient_role%type;
15067:
15068: BEGIN
15069:
15070: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CheckAccess');
15071:
15072: -- get the item type for the notif
15073: select message_type
15074: into l_item_type
15170: ( wfn.from_role is not null and wfn.from_role = wur.role_name ) )
15171: and rownum = 1;
15172: */
15173:
15174: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckAccess');
15175:
15176: RETURN l_access_granted;
15177:
15178: EXCEPTION
15217: l_instructions fnd_new_messages.message_text%type;
15218: l_special_instr fnd_new_messages.message_text%type;
15219: BEGIN
15220:
15221: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AMERequestApproval');
15222:
15223: IF (p_funmode = 'RUN') THEN
15224:
15225: -------------------------------------------------
15668: ELSIF (p_funmode = 'CANCEL') THEN
15669: NULL;
15670: END IF;
15671:
15672: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMERequestApproval');
15673:
15674: EXCEPTION
15675: WHEN fixable_exception THEN
15676: -- bug 3257576
15688: l_special_instr);
15689:
15690: p_result := 'COMPLETE:NOAPPROVER';
15691: WHEN OTHERS THEN
15692: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMERequestApproval',
15693: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
15694: raise;
15695: END AMERequestApproval;
15696:
15710: l_debug_info varchar2(200);
15711: l_ActionOrFyi varchar2(1);
15712: BEGIN
15713:
15714: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AMEGetApprovalType');
15715:
15716: IF (p_funmode = 'RUN') THEN
15717:
15718: --------------------------------------------------------------
15731: ELSIF (p_funmode = 'CANCEL') THEN
15732: NULL;
15733: END IF;
15734:
15735: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMEGetApprovalType');
15736:
15737: EXCEPTION
15738: WHEN OTHERS THEN
15739: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMEGetApprovalType',
15735: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMEGetApprovalType');
15736:
15737: EXCEPTION
15738: WHEN OTHERS THEN
15739: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMEGetApprovalType',
15740: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
15741: raise;
15742: END AMEGetApprovalType;
15743:
15768:
15769: l_debug varchar2(3000);
15770: BEGIN
15771:
15772: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AMEPropagateApprovalResult');
15773:
15774: IF (p_funmode = 'RUN') THEN
15775:
15776: l_AmeMasterItemKey := WF_ENGINE.GetItemAttrText(p_item_type,
15892: ELSIF (p_funmode = 'CANCEL') THEN
15893: NULL;
15894: END IF;
15895:
15896: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMEPropagateApprovalResult');
15897:
15898: EXCEPTION
15899: WHEN OTHERS THEN
15900: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMEPropagateApprovalResult',
15896: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMEPropagateApprovalResult');
15897:
15898: EXCEPTION
15899: WHEN OTHERS THEN
15900: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMEPropagateApprovalResult',
15901: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
15902: raise;
15903: END AMEPropagateApprovalResult;
15904:
15919: l_debug_info varchar2(200);
15920: l_approverResponse varchar2(30);
15921: BEGIN
15922:
15923: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AMEGetApprovalResult');
15924:
15925: IF (p_funmode = 'RUN') THEN
15926:
15927: --------------------------------------------------------------
15944: ELSIF (p_funmode = 'CANCEL') THEN
15945: NULL;
15946: END IF;
15947:
15948: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMEGetApprovalResult');
15949:
15950: EXCEPTION
15951: WHEN OTHERS THEN
15952: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMEGetApprovalResult',
15948: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMEGetApprovalResult');
15949:
15950: EXCEPTION
15951: WHEN OTHERS THEN
15952: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMEGetApprovalResult',
15953: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
15954: raise;
15955: END AMEGetApprovalResult;
15956:
15979: l_nextApproversOut ame_util.approversTable2;
15980:
15981: BEGIN
15982:
15983: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AMECompleteApproval');
15984:
15985: IF (p_funmode = 'RUN') THEN
15986:
15987: l_AmeMasterItemKey := WF_ENGINE.GetItemAttrText(p_item_type,
16042: ELSIF (p_funmode = 'CANCEL') THEN
16043: NULL;
16044: END IF;
16045:
16046: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMECompleteApproval');
16047:
16048: EXCEPTION
16049: WHEN OTHERS THEN
16050: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMECompleteApproval',
16046: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMECompleteApproval');
16047:
16048: EXCEPTION
16049: WHEN OTHERS THEN
16050: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMECompleteApproval',
16051: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
16052: raise;
16053: END AMECompleteApproval;
16054:
16074: l_approversOut ame_util.approversTable2;
16075: l_report_header_id number;
16076: BEGIN
16077:
16078: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AMESetCurrentApprover');
16079:
16080: IF (p_funmode = 'RUN') THEN
16081:
16082: l_report_header_id := to_char(p_item_key);
16104: ELSIF (p_funmode = 'CANCEL') THEN
16105: NULL;
16106: END IF;
16107:
16108: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMESetCurrentApprover');
16109:
16110: EXCEPTION
16111: WHEN OTHERS THEN
16112: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMESetCurrentApprover',
16108: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMESetCurrentApprover');
16109:
16110: EXCEPTION
16111: WHEN OTHERS THEN
16112: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMESetCurrentApprover',
16113: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
16114: raise;
16115: END AMESetCurrentApprover;
16116:
16120: -----------------------------------------------------------------------
16121: l_ExpAccountsUpdated VARCHAR2(10);
16122: BEGIN
16123:
16124: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start IsExpAccountsUpdated');
16125:
16126: select decode(nvl(preparer_modified_flag, 'N'), 'Y', AP_WEB_FND_LOOKUPS_PKG.getYesNoMeaning('Y'), null)
16127: into l_ExpAccountsUpdated
16128: from ap_exp_report_dists
16129: where report_line_id = p_report_line_id
16130: and rownum = 1;
16131:
16132:
16133: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end IsExpAccountsUpdated');
16134:
16135: RETURN l_ExpAccountsUpdated;
16136:
16137: EXCEPTION
16144: l_temp_context wf_notifications.context%type;
16145: l_item_key wf_notifications.context%type;
16146: l_debug_info varchar2(200);
16147: BEGIN
16148: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start getItemKey');
16149:
16150: select context into l_context
16151: from wf_notifications
16152: where notification_id = p_notification_id;
16157: l_item_key := substr(l_temp_context,1,instrb(l_temp_context, ':')-1); --'22591-2'
16158:
16159: return l_item_key;
16160:
16161: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end getItemKey');
16162: EXCEPTION
16163: WHEN OTHERS THEN
16164: AP_WEB_DB_UTIL_PKG.RaiseException('AP_WEB_EXPENSE_WF.getItemKey',
16165: l_debug_info);
16160:
16161: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end getItemKey');
16162: EXCEPTION
16163: WHEN OTHERS THEN
16164: AP_WEB_DB_UTIL_PKG.RaiseException('AP_WEB_EXPENSE_WF.getItemKey',
16165: l_debug_info);
16166: APP_EXCEPTION.RAISE_EXCEPTION;
16167: END getItemKey;
16168:
16200: END IF;
16201:
16202: EXCEPTION
16203: WHEN OTHERS THEN
16204: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'IsPreparerActive',
16205: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
16206: raise;
16207: END IsPreparerActive;
16208:
16205: p_item_type, p_item_key, to_char(p_actid), l_debug_info);
16206: raise;
16207: END IsPreparerActive;
16208:
16209: END AP_WEB_EXPENSE_WF;