[Home] [Help]
134: IS
135: l_version_num NUMBER := 0;
136: BEGIN
137:
138: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetFlowVersion');
139:
140: l_version_num := WF_ENGINE.GetItemAttrNumber(p_item_type,
141: p_item_key,
142: 'VERSION');
140: l_version_num := WF_ENGINE.GetItemAttrNumber(p_item_type,
141: p_item_key,
142: 'VERSION');
143:
144: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetFlowVersion');
145:
146: RETURN l_version_num;
147:
148: EXCEPTION
165: tvalue varchar2(4000);
166: role_info_tbl wf_directory.wf_local_roles_tbl_type;
167: BEGIN
168:
169: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetFromRole');
170:
171: l_role_valid := 'Y';
172: tvalue := p_from_role;
173: Wf_Directory.GetRoleInfo2(p_from_role,role_info_tbl);
196: '#FROM_ROLE',
197: tvalue);
198: end if;
199:
200: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRole');
201:
202: EXCEPTION
203: WHEN OTHERS THEN
204: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRole:Called From' ||
278: l_wf_exists VARCHAR2(1) := 'Y';
279:
280: BEGIN
281:
282: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start StartExpenseReportProcess');
283:
284: -- org_context should be set while calling icx_sec.validatesession
285: --IF AP_WEB_INFRASTRUCTURE_PKG.ValidateSession(NULL, FALSE, FALSE) THEN
286:
538:
539: ---------------------------------------------------------------------------
540: l_debug_info := 'Get the Employee Cost Center Associated With Preparer_Id';
541: ---------------------------------------------------------------------------
542: AP_WEB_UTILITIES_PKG.GetEmployeeInfo(l_dummy_emp_name,
543: l_emp_num,
544: l_emp_cost_center,
545: p_employee_id);
546:
883: set the expense_status_code as PAID .
884: */
885: AP_WEB_EXPENSE_WF.SetExpenseStatusCode(p_report_header_id);
886:
887: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartExpenseReportProcess');
888:
889: EXCEPTION
890: WHEN OTHERS THEN
891:
944: PROCEDURE GenTableHeader(document in out nocopy clob,
945: p_is_ccard in boolean,
946: p_is_ap in boolean) IS
947:
948: l_prompts AP_WEB_UTILITIES_PKG.prompts_table;
949: l_title AK_REGIONS_VL.name%TYPE;
950: l_table_header VARCHAR2(2000);
951:
952: l_debug_info VARCHAR2(200);
1006: PROCEDURE GenTableRows(document in out nocopy clob,
1007: p_is_ccard in boolean,
1008: p_is_ap in boolean) IS
1009:
1010: l_prompts AP_WEB_UTILITIES_PKG.prompts_table;
1011: l_title AK_REGIONS_VL.name%TYPE;
1012:
1013: l_table_row VARCHAR2(2000);
1014: l_line_num NUMBER := 0;
1156: END GenTableRows;
1157:
1158: BEGIN
1159:
1160: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GenerateLineErrorsClob');
1161:
1162: ------------------------------------------------------------
1163: l_debug_info := 'Decode document_id';
1164: ------------------------------------------------------------
1265:
1266: GenTableHeader(document, p_is_ccard, p_is_ap);
1267: GenTableRows(document, p_is_ccard, p_is_ap);
1268:
1269: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateLineErrorsClob');
1270:
1271: EXCEPTION
1272: WHEN OTHERS THEN
1273: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateLineErrorsClob',
1285: l_debug_info VARCHAR2(200);
1286:
1287: BEGIN
1288:
1289: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CashLineErrorsAP');
1290:
1291: GenerateLineErrorsClob(document_id,
1292: display_type,
1293: document,
1294: document_type,
1295: p_is_ccard => false,
1296: p_is_ap => true);
1297:
1298: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CashLineErrorsAP');
1299:
1300: EXCEPTION
1301: WHEN OTHERS THEN
1302: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CashLineErrorsAP',
1314: l_debug_info VARCHAR2(200);
1315:
1316: BEGIN
1317:
1318: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CashLineErrorsPreparer');
1319:
1320: GenerateLineErrorsClob(document_id,
1321: display_type,
1322: document,
1323: document_type,
1324: p_is_ccard => false,
1325: p_is_ap => false);
1326:
1327: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CashLineErrorsPreparer');
1328:
1329: EXCEPTION
1330: WHEN OTHERS THEN
1331: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CashLineErrorsPreparer',
1343: l_debug_info VARCHAR2(200);
1344:
1345: BEGIN
1346:
1347: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CCardLineErrorsAP');
1348:
1349: GenerateLineErrorsClob(document_id,
1350: display_type,
1351: document,
1352: document_type,
1353: p_is_ccard => true,
1354: p_is_ap => true);
1355:
1356: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CCardLineErrorsAP');
1357:
1358: EXCEPTION
1359: WHEN OTHERS THEN
1360: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CCardLineErrorsAP',
1372: l_debug_info VARCHAR2(200);
1373:
1374: BEGIN
1375:
1376: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CCardLineErrorsPreparer');
1377:
1378: GenerateLineErrorsClob(document_id,
1379: display_type,
1380: document,
1381: document_type,
1382: p_is_ccard => true,
1383: p_is_ap => false);
1384:
1385: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CCardLineErrorsPreparer');
1386:
1387: EXCEPTION
1388: WHEN OTHERS THEN
1389: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CCardLineErrorsPreparer',
1417: l_debug_info VARCHAR2(200);
1418:
1419: BEGIN
1420:
1421: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ResetAPValidationAttrValues');
1422:
1423: ----------------------------------------------------------------
1424: l_debug_info := 'Unset Header and Setup errors';
1425: -----------------------------------------------------------------
1514: -----------------------------------------------------
1515: WF_ENGINE.SetItemAttrTextArray(p_item_type, p_item_key, l_textNameArr, l_textValArr);
1516:
1517:
1518: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ResetAPValidationAttrValues');
1519:
1520: EXCEPTION
1521: WHEN OTHERS THEN
1522: NULL;
1547:
1548:
1549: BEGIN
1550:
1551: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start APValidateExpenseReport');
1552:
1553: IF (p_funmode = 'RUN') THEN
1554:
1555: ------------------------------------------------------------
1699: p_result := 'COMPLETE';
1700:
1701: END IF;
1702:
1703: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end APValidateExpenseReport');
1704:
1705: EXCEPTION
1706: WHEN OTHERS THEN
1707: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'APValidateExpenseReport',
1742: ----------------------------------------------------------------------
1743:
1744: l_header_errors VARCHAR2(2000) := NULL;
1745:
1746: l_prompts AP_WEB_UTILITIES_PKG.prompts_table;
1747: l_title AK_REGIONS_VL.name%TYPE;
1748:
1749: l_debug_info VARCHAR2(2000);
1750:
1749: l_debug_info VARCHAR2(2000);
1750:
1751: BEGIN
1752:
1753: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AddToHeaderErrors');
1754:
1755: ---------------------------------------------------------
1756: l_debug_info := 'Add to Header Errors';
1757: ---------------------------------------------------------
1778: p_item_key,
1779: 'HEADER_ERRORS',
1780: l_header_errors);
1781:
1782: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AddToHeaderErrors');
1783:
1784: EXCEPTION
1785: WHEN OTHERS THEN
1786: IF (SQLCODE <> -20001) THEN
1812: l_new_segments AP_OIE_KFF_SEGMENTS_T;
1813:
1814: BEGIN
1815:
1816: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start HandleInvalidDistCCID');
1817:
1818: if (p_report_distribution_id is null) then
1819: if ((p_payment_due = C_CompanyPay AND p_exp_type_parameter_id = p_personalParameterId) or
1820: (p_CategoryCode = C_ROUNDING))then
1847: p_chart_of_accounts_id => p_chart_of_accounts_id);
1848: end if;
1849: end if; -- (p_report_distribution_id is null)
1850:
1851: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end HandleInvalidDistCCID');
1852:
1853: EXCEPTION
1854: WHEN OTHERS THEN
1855: IF (SQLCODE <> -20001) THEN
2008: l_transaction_date ap_credit_card_trxns_all.transaction_date%type;
2009:
2010: BEGIN
2011:
2012: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start DoAPValidation');
2013:
2014: ---------------------------------------------------
2015: l_debug_info := 'Clear out potentially rejected/returned status';
2016: ---------------------------------------------------
2644: l_ven_awt_group_id)) THEN
2645: NULL;
2646: END IF; /* SetAWTGroupIDAndJustif */
2647:
2648: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end DoAPValidation');
2649:
2650: EXCEPTION
2651: WHEN OTHERS THEN
2652: IF (SQLCODE <> -20001) THEN
2670: l_url ICX_PARAMETERS.HOME_URL%TYPE := null;
2671:
2672: BEGIN
2673:
2674: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start OpenExp');
2675:
2676: IF AP_WEB_INFRASTRUCTURE_PKG.ValidateSession(NULL, false, false) THEN
2677:
2678: l_session_id := icx_sec.getID(icx_sec.PV_SESSION_ID);
2715: htp.p('
' || FND_MESSAGE.GET || '');
2741: /* jrautiai ADJ Fix End */
2742:
2743: BEGIN
2744:
2745: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start BuildManagerApprvlMessage');
2746:
2747: IF (p_funmode = 'RUN') THEN
2748:
2749: ------------------------------------------------------------
2822: p_result := 'COMPLETE';
2823:
2824: END IF;
2825:
2826: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end BuildManagerApprvlMessage');
2827:
2828: EXCEPTION
2829: WHEN OTHERS THEN
2830: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'BuildManagerApprvlMessage',
2842: l_report_header_id AP_WEB_DB_EXPRPT_PKG.expHdr_headerID;
2843: l_debug_info VARCHAR2(200);
2844: BEGIN
2845:
2846: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ManagerApproved');
2847:
2848: IF (p_funmode = 'RUN') THEN
2849:
2850: ------------------------------------------------------------
2873: ELSIF (p_funmode = 'CANCEL') THEN
2874: p_result := 'COMPLETE';
2875: END IF;
2876:
2877: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ManagerApproved');
2878:
2879: EXCEPTION
2880: WHEN OTHERS THEN
2881: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ManagerApproved',
2904: l_default_exch_rate_type AP_SYSTEM_PARAMETERS_ALL.default_exchange_rate_type%TYPE;
2905:
2906: BEGIN
2907:
2908: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CheckSumMissingReceipts');
2909:
2910: IF (p_funmode = 'RUN') THEN
2911:
2912: ------------------------------------------------------------
3012: p_result := 'COMPLETE';
3013: END IF;
3014:
3015:
3016: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckSumMissingReceipts');
3017:
3018: EXCEPTION
3019: WHEN OTHERS THEN
3020: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckSumMissingReceipts',
3034: l_num_req_receipts NUMBER;
3035: l_debug_info VARCHAR2(200);
3036: BEGIN
3037:
3038: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AnyReceiptRequired');
3039:
3040: IF (p_funmode = 'RUN') THEN
3041:
3042: ------------------------------------------------------------
3068: ELSIF (p_funmode = 'CANCEL') THEN
3069: p_result := 'COMPLETE';
3070: END IF;
3071:
3072: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AnyReceiptRequired');
3073:
3074: EXCEPTION
3075: WHEN OTHERS THEN
3076: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AnyReceiptRequired',
3091: l_debug_info VARCHAR2(200);
3092: l_mess Wf_Item_Attribute_Values.TEXT_VALUE%TYPE;
3093: BEGIN
3094:
3095: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AnyJustificationRequired');
3096:
3097: IF (p_funmode = 'RUN') THEN
3098:
3099: ------------------------------------------------------------
3158: ELSIF (p_funmode = 'CANCEL') THEN
3159: p_result := 'COMPLETE';
3160: END IF;
3161:
3162: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AnyJustificationRequired');
3163:
3164: EXCEPTION
3165: WHEN OTHERS THEN
3166: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AnyJustificationRequired',
3180: l_debug_info VARCHAR2(200);
3181: l_new_expense_total NUMBER;
3182: BEGIN
3183:
3184: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CreditLinesOnly');
3185:
3186: IF (p_funmode = 'RUN') THEN
3187: ----------------------------------------------------------------
3188: l_debug_info := 'Retrieve New Expense Total.';
3201: ELSIF (p_funmode = 'CANCEL') THEN
3202: p_result := 'COMPLETE';
3203: END IF;
3204:
3205: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CreditLinesOnly');
3206:
3207: EXCEPTION
3208: WHEN OTHERS THEN
3209: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CreditLinesOnly',
3224: IS
3225: l_resultType WF_ACTIVITIES.result_type%TYPE;
3226: BEGIN
3227:
3228: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start isOldProcess');
3229:
3230: select wa.result_type
3231: into l_resultType
3232: from WF_PROCESS_ACTIVITIES WPA, WF_ACTIVITIES WA, wf_items wi
3237: and wi.begin_date < nvl(WA.END_DATE, wi.begin_date+1)
3238: and wi.item_type = wa.item_type
3239: and wi.item_key = p_item_key;
3240:
3241: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end isOldProcess');
3242:
3243: --In the 'old' expense report workflow, AP_REVIEW_COMPLETE activity doesn't have result.
3244: if (l_resultType = '*') then
3245: return TRUE;
3261: l_debug_info VARCHAR2(200);
3262: l_wakeup_time DATE;
3263: BEGIN
3264:
3265: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start OldAPReviewComplete');
3266:
3267: ------------------------------------------------------------
3268: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3269: ------------------------------------------------------------
3276:
3277: ----------------------------------
3278: l_debug_info := 'Set Org Context';
3279: ----------------------------------
3280: AP_WEB_UTILITIES_PKG.ExpenseSetOrgContext(l_report_header_id);
3281:
3282: -------------------------------------------------
3283: l_debug_info := 'Retrieve The AP Reviewed Flag';
3284: -------------------------------------------------
3319: p_result := wf_engine.eng_deferred;
3320: END IF;
3321:
3322:
3323: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end OldAPReviewComplete');
3324:
3325: EXCEPTION
3326: WHEN OTHERS THEN
3327: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'OldAPReviewComplete',
3344: l_WorkflowRec AP_WEB_DB_EXPRPT_PKG.ExpWorkflowRec;
3345: C_WF_Version NUMBER := 0;
3346: BEGIN
3347:
3348: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start APReviewComplete');
3349:
3350: -- Do nothing in cancel mode
3351: IF (p_funmode = wf_engine.eng_cancel) THEN
3352: p_result := wf_engine.eng_null;
3439: p_result :='COMPLETE:N';
3440: END IF;
3441:
3442:
3443: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end APReviewComplete');
3444:
3445: EXCEPTION
3446: WHEN OTHERS THEN
3447: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'APReviewComplete',
3496: l_ExpRec AP_WEB_DB_EXPRPT_PKG.ExpInfoRec;
3497: l_reimb_currency ap_expense_report_headers_all.payment_currency_code%type;
3498: BEGIN
3499:
3500: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AnyAPAdjustments');
3501:
3502: IF (p_funmode = 'RUN') THEN
3503:
3504:
3586: l_debug_info := 'If Original Total and Current Total Different Then
3587: Adjustment was made, return Y and retrieve adjusted lines';
3588: --------------------------------------------------------------------------
3589: -- bug 3404699:round to reimbursment currency precision
3590: IF (AP_WEB_UTILITIES_PKG.Oie_Round_Currency(l_orig_exp_report_amt,l_reimb_currency) <>
3591: l_exp_report_amount OR AP_WEB_DB_EXPLINE_PKG.GetAdjustedLineExists(l_report_header_id)) THEN
3592: p_result := 'COMPLETE:Y';
3593:
3594: --------------------------------------------
3769: p_result := 'COMPLETE';
3770:
3771: END IF;
3772:
3773: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AnyAPAdjustments');
3774:
3775: EXCEPTION
3776: WHEN OTHERS THEN
3777: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AnyAPAdjustments',
3790: l_num_req_receipt_not_verified NUMBER;
3791: l_debug_info VARCHAR2(200);
3792: BEGIN
3793:
3794: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AllReqReceiptsVerified');
3795:
3796: IF (p_funmode = 'RUN') THEN
3797:
3798: ------------------------------------------------------------
3826: ELSIF (p_funmode = 'CANCEL') THEN
3827: p_result := 'COMPLETE';
3828: END IF;
3829:
3830: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AllReqReceiptsVerified');
3831:
3832: EXCEPTION
3833: WHEN OTHERS THEN
3834: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AllReqReceiptsVerified',
3847: l_num_req_receipt_not_verified NUMBER;
3848: l_debug_info VARCHAR2(200);
3849: BEGIN
3850:
3851: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AllPassAPApproval');
3852:
3853: IF (p_funmode = 'RUN') THEN
3854:
3855: ------------------------------------------------------------
3883: ELSIF (p_funmode = 'CANCEL') THEN
3884: p_result := 'COMPLETE';
3885: END IF;
3886:
3887: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AllPassAPApproval');
3888:
3889: EXCEPTION
3890: WHEN OTHERS THEN
3891: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AllPassAPApproval',
3905: l_debug_info VARCHAR2(200);
3906: C_WF_Version NUMBER := 0;
3907: BEGIN
3908:
3909: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start Approved');
3910:
3911: IF (p_funmode = 'RUN') THEN
3912:
3913: -----------------------------------------------------
3979: ELSIF (p_funmode = 'CANCEL') THEN
3980: p_result := 'COMPLETE';
3981: END IF;
3982:
3983: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end Approved');
3984:
3985: EXCEPTION
3986: WHEN NO_DATA_FOUND THEN
3987: null;
4019:
4020:
4021: BEGIN
4022:
4023: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetShortPaidLinesInfo');
4024:
4025: -----------------------------------------------------
4026: l_debug_info := 'Get Workflow Version Number 3';
4027: -----------------------------------------------------
4143: '');
4144: END IF;
4145:
4146:
4147: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetShortPaidLinesInfo');
4148:
4149: EXCEPTION
4150: WHEN OTHERS THEN
4151: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetShortPaidLinesInfo',
4165: l_debug_info VARCHAR2(2000);
4166: l_receipt_type VARCHAR2(50);
4167: BEGIN
4168:
4169: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start MissingReceiptShortPay');
4170:
4171: IF (p_funmode = 'RUN') THEN
4172:
4173: -- Bug 14134416: To handle 'MISSING_RECEIPT_TYPE' error for the upgraded expense reports
4225: NULL;
4226:
4227: END IF;
4228:
4229: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end MissingReceiptShortPay');
4230:
4231: EXCEPTION
4232: WHEN OTHERS THEN
4233: IF (SQLCODE <> -20001) THEN
4250: l_policy_shortpay_id NUMBER;
4251: l_debug_info VARCHAR2(2000);
4252: BEGIN
4253:
4254: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start PolicyViolationShortPay');
4255:
4256: IF (p_funmode = 'RUN') THEN
4257:
4258: ------------------------------------------------------------
4274: NULL;
4275:
4276: END IF;
4277:
4278: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end PolicyViolationShortPay');
4279:
4280: EXCEPTION
4281: WHEN OTHERS THEN
4282: IF (SQLCODE <> -20001) THEN
4296: l_debug_info VARCHAR2(2000);
4297: -----------------------------------------------------------------------------
4298: BEGIN
4299:
4300: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetNewShortPayDocumentNum');
4301:
4302: -------------------------------------------------------------------
4303: l_debug_info := 'Check for _ in the document_number to determine if
4304: the expense report has been short paid before';
4319: ELSE
4320: l_new_document_number := p_last_document_num || '-1';
4321: END IF;
4322:
4323: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetNewShortPayDocumentNum');
4324:
4325: return(l_new_document_number);
4326:
4327: END GetNewShortPayDocumentNum;
4344: l_img_received_date AP_EXPENSE_REPORT_HEADERS.image_receipts_received_date%TYPE;
4345:
4346: BEGIN
4347:
4348: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CreateShortPayExpReport');
4349:
4350: -------------------------------------------------------------------
4351: l_debug_info := 'Create new expense report by creating new record in
4352: ap_expense_report_headers, with same info as old
4499: p_tgt_report_header_id => p_new_expense_report_id
4500: );
4501:
4502:
4503: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CreateShortPayExpReport');
4504:
4505: EXCEPTION
4506: WHEN OTHERS THEN
4507: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CreateShortPayExpReport',
4557: /* jrautiai ADJ Fix - End */
4558: l_shortpay_suffix VARCHAR2(3) := '-1';
4559: BEGIN
4560:
4561: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SplitExpenseReport');
4562:
4563: IF (p_funmode = 'RUN') THEN
4564:
4565: ------------------------------------------------------------
4967: p_result := 'COMPLETE';
4968:
4969: END IF;
4970:
4971: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SplitExpenseReport');
4972:
4973: EXCEPTION
4974: WHEN OTHERS THEN
4975: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SplitExpenseReport',
4986: l_item_key VARCHAR2(100) := to_char(p_report_header_id);
4987:
4988: BEGIN
4989:
4990: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start DeleteExpReportFromAPTables');
4991:
4992: ----------------------------------------------------------------
4993: l_debug_info := 'Retrive the Payment Due From Profile Option';
4994: ----------------------------------------------------------------
5027: IF (NOT AP_WEB_DB_EXPRPT_PKG.DeleteExpenseReport(p_report_header_id)) THEN
5028: NULL;
5029: END IF;
5030:
5031: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end DeleteExpReportFromAPTables');
5032:
5033: EXCEPTION
5034: WHEN OTHERS THEN
5035: IF (SQLCODE <> -20001) THEN
5059: l_override_approver_id AP_WEB_DB_EXPRPT_PKG.expHdr_overrideApprID;
5060:
5061: BEGIN
5062:
5063: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ResetAttrValues');
5064:
5065: C_WF_VERSION := GetFlowVersion(p_item_type, p_item_key);
5066: IF (C_WF_VERSION < AP_WEB_EXPENSE_WF.C_NoMultiLineVersion) THEN
5067: -----------------------------------------------------
5287: ResetAPValidationAttrValues(p_item_type,
5288: p_item_key,
5289: p_actid);
5290:
5291: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ResetAttrValues');
5292:
5293: EXCEPTION
5294: WHEN OTHERS THEN
5295: NULL;
5316: l_payment_due VARCHAR2(50) := C_IndividualPay;
5317: l_debug_info VARCHAR2(200);
5318: BEGIN
5319:
5320: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF',
5321: 'start ResetCCardTxns');
5322:
5323: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type, p_item_key,
5324: 'PAYMENT_DUE_FROM');
5347: END IF;
5348: END IF;
5349: */
5350:
5351: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF',
5352: 'end ResetCCardTxns');
5353:
5354: EXCEPTION
5355: WHEN OTHERS THEN
5505: C_WF_Version NUMBER := 0;
5506: l_n_resp_id NUMBER;
5507: BEGIN
5508:
5509: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetRejectStatusAndResetAttr');
5510:
5511: IF (p_funmode = 'RUN') THEN
5512:
5513: -----------------------------------------------------
5646: ELSIF (p_funmode = 'CANCEL') THEN
5647: p_result := 'COMPLETE';
5648: END IF;
5649:
5650: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetRejectStatusAndResetAttr');
5651:
5652: EXCEPTION
5653: WHEN OTHERS THEN
5654: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetRejectStatusAndResetAttr',
5668: l_report_header_id AP_WEB_DB_EXPRPT_PKG.expHdr_headerID;
5669: l_debug_info VARCHAR2(200);
5670: BEGIN
5671:
5672: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start DeleteExpenseReport');
5673:
5674: IF (p_funmode = 'RUN') THEN
5675:
5676: ------------------------------------------------------------
5687: ELSIF (p_funmode = 'CANCEL') THEN
5688: p_result := 'COMPLETE';
5689: END IF;
5690:
5691: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end DeleteExpenseReport');
5692:
5693: EXCEPTION
5694: WHEN OTHERS THEN
5695: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'DeleteExpenseReport',
5720: l_currency VARCHAR2(25);
5721: l_debug_info VARCHAR2(200);
5722: BEGIN
5723:
5724: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start StartAPApprvlSubProcess');
5725:
5726: ------------------------------------------------------------
5727: l_debug_info := 'Retrieve New Expense_Report_ID Item Attribute';
5728: ------------------------------------------------------------
5930: -------------------------------------------------
5931: WF_ENGINE.StartProcess(p_item_type,
5932: l_item_key);
5933:
5934: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartAPApprvlSubProcess');
5935:
5936: EXCEPTION
5937: WHEN OTHERS THEN
5938: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartAPApprvlSubProcess',
5951: l_debug_info VARCHAR2(200);
5952: l_No VARCHAR2(1) := 'N';
5953: BEGIN
5954:
5955: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start StartFromAPApproval');
5956:
5957: IF (p_funmode = 'RUN') THEN
5958:
5959: ----------------------------------------------------------------
6006: ELSIF (p_funmode = 'CANCEL') THEN
6007: p_result := 'COMPLETE';
6008: END IF;
6009:
6010: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartFromAPApproval');
6011:
6012: EXCEPTION
6013: WHEN OTHERS THEN
6014: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartFromAPApproval',
6026: l_report_header_id AP_WEB_DB_EXPLINE_PKG.expLines_headerID;
6027: l_debug_info VARCHAR2(200);
6028: BEGIN
6029:
6030: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start StartFromManagerApproval');
6031:
6032: IF (p_funmode = 'RUN') THEN
6033:
6034: ----------------------------------------------------------------
6060: ELSIF (p_funmode = 'CANCEL') THEN
6061: p_result := 'COMPLETE';
6062: END IF;
6063:
6064: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartFromManagerApproval');
6065:
6066: EXCEPTION
6067: WHEN OTHERS THEN
6068: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartFromManagerApproval',
6081: l_orig_expense_report_num VARCHAR2(50);
6082: l_debug_info VARCHAR2(200);
6083: BEGIN
6084:
6085: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CheckIfShortPaid');
6086:
6087: IF (p_funmode = 'RUN') THEN
6088:
6089: ----------------------------------------------------------------
6102: ELSIF (p_funmode = 'CANCEL') THEN
6103: p_result := 'COMPLETE';
6104: END IF;
6105:
6106: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckIfShortPaid');
6107:
6108: EXCEPTION
6109: WHEN OTHERS THEN
6110: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckIfShortPaid',
6139: l_holds_setup VARCHAR2(2);
6140: l_expense_status_code VARCHAR2(30) := NULL;
6141: BEGIN
6142:
6143: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start BuildBothpayExpReport');
6144:
6145: ------------------------------------------------------------
6146: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
6147: ------------------------------------------------------------
6321: );
6322:
6323: END IF;
6324:
6325: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end BuildBothpayExpReport');
6326:
6327: EXCEPTION
6328: WHEN OTHERS THEN
6329: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'BuildBothpayReport',
6343: l_debug_info VARCHAR2(200);
6344:
6345: BEGIN
6346:
6347: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CheckIfBothpay');
6348:
6349: IF (p_funmode = 'RUN') THEN
6350:
6351:
6363: ELSIF (p_funmode = 'CANCEL') THEN
6364: p_result := 'COMPLETE';
6365: END IF;
6366:
6367: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckIfBothpay');
6368:
6369: EXCEPTION
6370: WHEN OTHERS THEN
6371: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckIfBothpay',
6387: l_crd_card_count NUMBER := 0;
6388:
6389: BEGIN
6390:
6391: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start FindVendor');
6392:
6393: IF (p_funmode = 'RUN') THEN
6394:
6395: ----------------------------------------------------------------
6450: ELSIF (p_funmode = 'CANCEL') THEN
6451: p_result := 'COMPLETE';
6452: END IF;
6453:
6454: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end FindVendor');
6455:
6456: EXCEPTION
6457: WHEN OTHERS THEN
6458: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'FindVendor',
6471: l_doc_num VARCHAR2(50);
6472: l_debug_info VARCHAR2(200);
6473: BEGIN
6474:
6475: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CheckIfSplit');
6476:
6477: IF (p_funmode = 'RUN') THEN
6478:
6479: /* Bug 4096880 : The Bothpay split notification should not be
6486: ELSIF (p_funmode = 'CANCEL') THEN
6487: p_result := 'COMPLETE';
6488: END IF;
6489:
6490: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckIfSplit');
6491:
6492: EXCEPTION
6493: WHEN OTHERS THEN
6494: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckIfSplit',
6545: -- jrautiai ADJ Fix
6546: l_mess Wf_Item_Attribute_Values.TEXT_VALUE%TYPE;
6547: BEGIN
6548:
6549: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start StartPolicyShortPayProcess');
6550:
6551: -----------------------------------------------------
6552: l_debug_info := 'Get Workflow Version Number 4';
6553: -----------------------------------------------------
7057: l_debug_info := 'Start Policy Violation Shortpay Process';
7058: -------------------------------------------------
7059: WF_ENGINE.StartProcess(p_item_type,
7060: l_item_key);
7061: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartPolicyShortPayProcess');
7062:
7063: EXCEPTION
7064: WHEN OTHERS THEN
7065: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartPolicyShortPayProcess',
7120: l_mess Wf_Item_Attribute_Values.TEXT_VALUE%TYPE;
7121: l_missing_receipt_type VARCHAR2(50);
7122: BEGIN
7123:
7124: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start StartNoReceiptsShortPayProcess');
7125:
7126: -- Bug 14134416: To handle 'MISSING_RECEIPT_TYPE' error for the upgraded expense reports
7127: BEGIN
7128: l_missing_receipt_type := WF_ENGINE.GetActivityAttrText(p_item_type,
7744: WF_ENGINE.StartProcess(p_item_type,
7745: l_item_key);
7746:
7747:
7748: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartNoReceiptsShortPayProcess');
7749:
7750: EXCEPTION
7751: WHEN OTHERS THEN
7752: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartNoReceiptsShortPayProcess',
7781: C_WF_VERSION NUMBER;
7782:
7783: BEGIN
7784:
7785: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start StartManagerApprvlSubProcess');
7786:
7787: ----------------------------------------------------------------
7788: l_debug_info := 'Get the version of the workflow currently using';
7789: ----------------------------------------------------------------
8031: ------------------------------------------------------
8032: WF_ENGINE.StartProcess(p_item_type,
8033: l_item_key);
8034:
8035: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartManagerApprvlSubProcess');
8036:
8037: EXCEPTION
8038: WHEN OTHERS THEN
8039: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StartManagerApprvlSubProcess',
8047: -------------------------------------------------------
8048: l_debug_info VARCHAR2(200);
8049: BEGIN
8050:
8051: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetManager');
8052:
8053: -------------------------------------------------------
8054: l_debug_info := 'Trying to retrieve employee manager';
8055: -------------------------------------------------------
8056: IF (NOT AP_WEB_DB_HR_INT_PKG.GetSupervisorID(p_employee_id, p_manager_id)) THEN
8057: p_manager_id := NULL;
8058: END IF;
8059:
8060: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetManager');
8061:
8062: EXCEPTION
8063: WHEN OTHERS THEN
8064: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetManager',
8077: l_report_header_id AP_WEB_DB_EXPRPT_PKG.expHdr_headerID;
8078: l_debug_info VARCHAR2(200);
8079: BEGIN
8080:
8081: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetPersonAs');
8082:
8083: ------------------------------------------------------------
8084: l_debug_info := 'Retrieve Manager_Name Info for Manager_Id';
8085: ------------------------------------------------------------
8153: WHERE report_header_id = l_report_header_id;
8154:
8155: END IF;
8156:
8157: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetPersonAs');
8158:
8159: EXCEPTION
8160: WHEN OTHERS THEN
8161: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetPersonAs',
8195: l_emp_info_rec AP_WEB_DB_HR_INT_PKG.EmployeeInfoRec;
8196:
8197: BEGIN
8198:
8199: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetFinalApprover');
8200:
8201: IF (p_override_approver_id IS NULL) THEN
8202:
8203: -- bug 3257576
8301: END LOOP;
8302:
8303: END IF; -- l_approver_id is not null and p_error_message is null
8304:
8305: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetFinalApprover');
8306:
8307: EXCEPTION
8308: WHEN OTHERS THEN
8309: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetFinalApprover',
8322: l_manager_id NUMBER;
8323: l_debug_info VARCHAR2(200);
8324: BEGIN
8325:
8326: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetPreparerManager');
8327:
8328: IF (p_funmode = 'RUN') THEN
8329:
8330: ------------------------------------------------------
8355: p_result := 'COMPLETE';
8356:
8357: END IF;
8358:
8359: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetPreparerManager');
8360:
8361: EXCEPTION
8362: WHEN OTHERS THEN
8363: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetPreparerManager',
8376: l_manager_id NUMBER;
8377: l_debug_info VARCHAR2(200);
8378: BEGIN
8379:
8380: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetApproverManager');
8381:
8382: IF (p_funmode = 'RUN') THEN
8383:
8384: ------------------------------------------------------
8411: p_result := 'COMPLETE';
8412:
8413: END IF;
8414:
8415: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetApproverManager');
8416:
8417: EXCEPTION
8418: WHEN OTHERS THEN
8419: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetApproverManager',
8431: l_approver_id NUMBER;
8432: l_debug_info VARCHAR2(200);
8433: BEGIN
8434:
8435: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ApproverProvided');
8436:
8437: IF (p_funmode = 'RUN') THEN
8438:
8439: ------------------------------------------------------
8457: p_result := 'COMPLETE';
8458:
8459: END IF;
8460:
8461: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ApproverProvided');
8462:
8463: EXCEPTION
8464: WHEN OTHERS THEN
8465: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ApproverProvided',
8478: l_report_cost_center VARCHAR2(240);
8479: l_debug_info VARCHAR2(200);
8480: BEGIN
8481:
8482: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SameCostCenters');
8483:
8484: IF (p_funmode = 'RUN') THEN
8485:
8486: ---------------------------------------------------------------
8512: p_result := 'COMPLETE';
8513:
8514: END IF;
8515:
8516: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SameCostCenters');
8517:
8518: EXCEPTION
8519: WHEN OTHERS THEN
8520: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SameCostCenters',
8534: l_manager_display_name wf_users.display_name%type;
8535: l_debug_info VARCHAR2(200);
8536: BEGIN
8537:
8538: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetApproverEqualManager');
8539:
8540: IF (p_funmode = 'RUN') THEN
8541:
8542: ------------------------------------------------------
8580: p_result := 'COMPLETE';
8581:
8582: END IF;
8583:
8584: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetApproverEqualManager');
8585:
8586: EXCEPTION
8587: WHEN OTHERS THEN
8588: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetApproverEqualManager',
8602: l_approver_display_name wf_users.display_name%type;
8603: l_debug_info VARCHAR2(200);
8604: BEGIN
8605:
8606: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start RecordForwardFromInfo');
8607:
8608: IF (p_funmode in ('RUN', 'TRANSFER')) THEN
8609:
8610: ------------------------------------------------------------
8645: p_result := 'COMPLETE';
8646:
8647: END IF;
8648:
8649: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end RecordForwardFromInfo');
8650:
8651: EXCEPTION
8652: WHEN OTHERS THEN
8653: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'RecordForwardFromInfo',
8666: l_manager_id NUMBER;
8667: l_debug_info VARCHAR2(200);
8668: BEGIN
8669:
8670: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ManagerNotEqualToApprover');
8671:
8672: IF (p_funmode = 'RUN') THEN
8673:
8674: ------------------------------------------------------
8696: p_result := 'COMPLETE';
8697:
8698: END IF;
8699:
8700: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ManagerNotEqualToApprover');
8701:
8702: EXCEPTION
8703: WHEN OTHERS THEN
8704: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ManagerNotEqualToApprover',
8719: l_limit NUMBER;
8720: l_debug_info VARCHAR2(200);
8721: BEGIN
8722:
8723: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start NotifyPreparer');
8724:
8725: IF (p_funmode = 'RUN') THEN
8726:
8727: -----------------------------------------------------------------------
8773: p_result := 'COMPLETE';
8774:
8775: END IF;
8776:
8777: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end NotifyPreparer');
8778:
8779: EXCEPTION
8780: WHEN OTHERS THEN
8781: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'NotifyPreparer',
8810: l_nRespId Number;
8811:
8812: BEGIN
8813:
8814: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AMEEnabled');
8815:
8816: IF (p_funmode = 'RUN') THEN
8817:
8818: BEGIN
8858: p_result := 'COMPLETE';
8859:
8860: END IF;
8861:
8862: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMEEnabled');
8863:
8864: EXCEPTION
8865: WHEN OTHERS THEN
8866: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMEEnabled',
8878: l_find_approver_count NUMBER;
8879: l_debug_info VARCHAR2(200);
8880: BEGIN
8881:
8882: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start FirstApprover');
8883:
8884: IF (p_funmode = 'RUN') THEN
8885:
8886: ----------------------------------------------------------------
8907: p_result := 'COMPLETE';
8908:
8909: END IF;
8910:
8911: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end FirstApprover');
8912:
8913: EXCEPTION
8914: WHEN OTHERS THEN
8915: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'FirstApprover',
8927: l_forward_from_id NUMBER;
8928: l_debug_info VARCHAR2(200);
8929: BEGIN
8930:
8931: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ApprovalForwarded');
8932:
8933: IF (p_funmode = 'RUN') THEN
8934:
8935: ----------------------------------------------------------------
8954: ELSIF (p_funmode = 'CANCEL') THEN
8955: p_result := 'COMPLETE';
8956: END IF;
8957:
8958: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ApprovalForwarded');
8959:
8960: EXCEPTION
8961: WHEN OTHERS THEN
8962: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ApprovalForwarded',
8977: l_emp_cost_center VARCHAR2(240);
8978: l_debug_info VARCHAR2(200);
8979: BEGIN
8980:
8981: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ResetEmpCostCenter');
8982:
8983: IF (p_funmode = 'RUN') THEN
8984:
8985: -------------------------------------------------------------
9002: ---------------------------------------------------------------
9003: l_debug_info := 'Get the Employee Cost Center Associated With
9004: Preparer_Id';
9005: ---------------------------------------------------------------
9006: AP_WEB_UTILITIES_PKG.GetEmployeeInfo(l_emp_name,
9007: l_emp_num,
9008: l_emp_cost_center,
9009: l_preparer_id);
9010:
9022: ELSIF (p_funmode = 'CANCEL') THEN
9023: p_result := 'COMPLETE';
9024: END IF;
9025:
9026: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ResetEmpCostCenter');
9027:
9028: EXCEPTION
9029: WHEN OTHERS THEN
9030: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ResetEmpCostCenter',
9044: l_debug_info VARCHAR2(200);
9045: l_rejection_reason Wf_Item_Attribute_Values.TEXT_VALUE%TYPE := NULL;
9046: BEGIN
9047:
9048: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start PayablesReviewed');
9049:
9050: IF (p_funmode = 'RUN') THEN
9051:
9052: ----------------------------------------------------------------
9095: ELSIF (p_funmode = 'CANCEL') THEN
9096: p_result := 'COMPLETE';
9097: END IF;
9098:
9099: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end PayablesReviewed');
9100:
9101: EXCEPTION
9102: WHEN OTHERS THEN
9103: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'PayablesReviewed',
9116: l_preparer_id NUMBER(15);
9117: l_debug_info VARCHAR2(200);
9118: BEGIN
9119:
9120: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start EmployeeEqualsToPreparer');
9121:
9122: IF (p_funmode = 'RUN') THEN
9123:
9124: ---------------------------------------------------------------
9148: ELSIF (p_funmode = 'CANCEL') THEN
9149: p_result := 'COMPLETE';
9150: END IF;
9151:
9152: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end EmployeeEqualsToPreparer');
9153:
9154: EXCEPTION
9155: WHEN OTHERS THEN
9156: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'EmployeeEqualsToPreparer',
9168: l_emp_method VARCHAR2(20);
9169: l_debug_info VARCHAR2(200);
9170: BEGIN
9171:
9172: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start EmployeeApprovalRequired');
9173:
9174: IF (p_funmode = 'RUN') THEN
9175:
9176: -------------------------------------------------------------------
9190: ELSIF (p_funmode = 'CANCEL') THEN
9191: p_result := 'COMPLETE';
9192: END IF;
9193:
9194: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end EmployeeApprovalRequired');
9195:
9196: EXCEPTION
9197: WHEN OTHERS THEN
9198: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'EmployeeApprovalRequired',
9217: l_workflow_approved_flag VARCHAR2(1);
9218: l_debug_info VARCHAR2(200);
9219: BEGIN
9220:
9221: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start DetermineStartFromProcess');
9222:
9223: IF (p_funmode = 'RUN') THEN
9224:
9225: ----------------------------------------------------------------
9236: ELSIF (p_funmode = 'CANCEL') THEN
9237: p_result := 'COMPLETE';
9238: END IF;
9239:
9240: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end DetermineStartFromProcess');
9241:
9242: EXCEPTION
9243: WHEN OTHERS THEN
9244: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'DetermineStartFromProcess',
9270: l_debug_info VARCHAR2(200);
9271:
9272: BEGIN
9273:
9274: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetEmployeeAsApprover');
9275:
9276: IF (p_funmode = 'RUN') THEN
9277:
9278: ------------------------------------------------------
9314: ELSIF (p_funmode = 'CANCEL') THEN
9315: p_result := 'COMPLETE';
9316: END IF;
9317:
9318: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetEmployeeAsApprover');
9319:
9320: EXCEPTION
9321: WHEN OTHERS THEN
9322: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetEmployeeAsApprover',
9335: l_report_header_id AP_WEB_DB_EXPRPT_PKG.expHdr_headerID;
9336: l_debug_info VARCHAR2(200);
9337: BEGIN
9338:
9339: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start DeleteShortPayExpReport');
9340:
9341: IF (p_funmode = 'RUN') THEN
9342:
9343: ----------------------------------------------------------------
9352: ELSIF (p_funmode = 'CANCEL') THEN
9353: p_result := 'COMPLETE';
9354: END IF;
9355:
9356: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end DeleteShortPayExpReport');
9357:
9358: EXCEPTION
9359: WHEN OTHERS THEN
9360: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'DeleteShortPayExpReport',
9373: l_report_header_id AP_WEB_DB_EXPLINE_PKG.expLines_headerID;
9374: l_debug_info VARCHAR2(200);
9375: BEGIN
9376:
9377: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start RequireProofOfPayment');
9378:
9379: IF (p_funmode = 'RUN') THEN
9380:
9381: ---------------------------------------------------------------------------
9405: ELSIF (p_funmode = 'CANCEL') THEN
9406: p_result := 'COMPLETE';
9407: END IF;
9408:
9409: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end RequireProofOfPayment');
9410:
9411: EXCEPTION
9412: WHEN OTHERS THEN
9413: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'RequireProofOfPayment',
9446: l_temp_clob CLOB;
9447: l_colon NUMBER;
9448: BEGIN
9449:
9450: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GenerateExpLines');
9451:
9452: WF_NOTIFICATION.NewClob(l_temp_clob,document);
9453: GenerateExpClobLines(document_id,
9454: display_type,
9471: document := document || table_end || indent_end;
9472:
9473: end if;
9474:
9475: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateExpLines');
9476:
9477: EXCEPTION
9478: WHEN OTHERS THEN
9479: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateExpLines',
9512: l_attribute VARCHAR2(30);
9513: l_debug_info VARCHAR2(1000);
9514: BEGIN
9515:
9516: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GenerateDocumentAttributeValue');
9517:
9518: document := '';
9519:
9520: l_debug_info := 'Decode document_id';
9537: end if;
9538: end if;
9539: document_type := display_type;
9540:
9541: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateDocumentAttributeValue');
9542:
9543: EXCEPTION
9544: WHEN OTHERS THEN
9545: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateDocumentAttributeValue',
9565: l_adjustment_line VARCHAR2(2000);
9566:
9567: BEGIN
9568:
9569: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start BuildAdjustmentInfoLine');
9570:
9571: IF p_adjustment_type = 'ADJUSTMENT' THEN
9572: ------------------------------------------------------------------
9573: l_debug_info := 'Format Adjustment Line with amount' || adjustment_rec.amount;
9689: p_adjustment_line := p_adjustment_line || tr_end;
9690: END IF;
9691: END IF; -- p_adjustment_type = 'ADJUSTMENT'
9692:
9693: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end BuildAdjustmentInfoLine');
9694:
9695: EXCEPTION
9696: WHEN OTHERS THEN
9697: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'BuildAdjustmentInfoLine',
9734: document := document || '';
9735:
9736:
9737: end if;
9738: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateAdjustmentInfo');
9739:
9740: EXCEPTION
9741: WHEN OTHERS THEN
9742: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateAdjustmentInfo',
9764: l_colon NUMBER;
9765:
9766: -- Bug 3336259: CC SP and ADJ Fix
9767: l_adj_code VARCHAR2(100) := 'ADJUSTMENT'; --default is Adjustments
9768: l_prompts AP_WEB_UTILITIES_PKG.prompts_table;
9769: l_title AK_REGIONS_VL.name%TYPE;
9770:
9771: -- Bug 3336259: CC SP and ADJ Fix, changed to refer the new cursor type.
9772: AdjustmentsCursor AP_WEB_DB_EXPLINE_PKG.AdjustmentCursorType;
9781:
9782: l_n_org_id Number;
9783: BEGIN
9784:
9785: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GenerateAdjustmentInfo');
9786:
9787: ------------------------------------------------------------
9788: l_debug_info := 'Decode document_id';
9789: ------------------------------------------------------------
10009: END IF;
10010:
10011: document_type := display_type;
10012:
10013: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateAdjustmentInfoClob');
10014:
10015: EXCEPTION
10016: WHEN OTHERS THEN
10017: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateAdjustmentInfoClob',
10025: document_type IN OUT NOCOPY VARCHAR2) IS
10026: l_debug_info VARCHAR2(1000);
10027: BEGIN
10028:
10029: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ResetLineInfo');
10030:
10031: ------------------------------------------------------------------
10032: l_debug_info := 'Reset Line Info Body';
10033: ------------------------------------------------------------------
10034:
10035: document := '';
10036: document_type := display_type;
10037:
10038: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ResetLineInfo');
10039:
10040: EXCEPTION
10041: WHEN OTHERS THEN
10042: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ResetLineInfo',
10062:
10063:
10064: BEGIN
10065:
10066: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CallbackFunction');
10067:
10068: begin
10069:
10070: l_n_org_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
10178: END IF;
10179:
10180: END IF;
10181:
10182: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CallbackFunction');
10183:
10184: END CallbackFunction;
10185:
10186: ----------------------------------------------------------------------
10204: l_new_language fnd_languages.nls_language%type := null;
10205:
10206: BEGIN
10207:
10208: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start IsPreparerToAuditorTransferred');
10209:
10210: if (p_funmode in ('QUESTION', 'ANSWER')) then
10211:
10212: -------------------------------------------------------------------
10363: AND name = l_TransferToName;
10364:
10365: BEGIN
10366:
10367: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start IsApprovalRequestTransferred');
10368:
10369: BEGIN
10370: IF (p_funmode IN ('RESPOND','VALIDATE') AND substrb(wf_engine.context_text,1,6) = 'email:') THEN
10371: l_temp_item_key := p_item_key;
10903:
10904: end if;
10905:
10906:
10907: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end IsApprovalRequestTransferred');
10908:
10909: EXCEPTION
10910: WHEN OTHERS THEN
10911: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'IsApprovalRequestTransferred',
10932: l_approver_person_id wf_roles.orig_system_id%TYPE;
10933:
10934: BEGIN
10935:
10936: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start UpdateApproverIdInHeaders');
10937:
10938: IF (p_funmode in ('TRANSFER','FORWARD')) THEN
10939:
10940: -----------------------------------------
10978: WHERE report_header_id = p_item_key;
10979:
10980: END IF;
10981:
10982: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end UpdateApproverIdInHeaders');
10983:
10984: EXCEPTION
10985: WHEN OTHERS THEN
10986: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'UpdateApproverIdInHeaders',
11004: l_WFAdminNote VARCHAR2(240) := NULL;
11005:
11006: BEGIN
11007:
11008: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CheckWFAdminNote');
11009:
11010: if (p_funmode = 'RESPOND') then
11011: -----------------------------------------
11012: l_debug_info := 'Get the Notification ID';
11028: */
11029: end if;
11030:
11031:
11032: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckWFAdminNote');
11033:
11034: EXCEPTION
11035: WHEN OTHERS THEN
11036: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckWFAdminNote',
11054: C_WF_Version NUMBER := 0;
11055: l_n_resp_id NUMBER;
11056: BEGIN
11057:
11058: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetReturnStatusAndResetAttr');
11059:
11060: IF (p_funmode = 'RUN') THEN
11061:
11062: -----------------------------------------------------
11198: ELSIF (p_funmode = 'CANCEL') THEN
11199: p_result := 'COMPLETE';
11200: END IF;
11201:
11202: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetReturnStatusAndResetAttr');
11203:
11204: EXCEPTION
11205: WHEN OTHERS THEN
11206: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetReturnStatusAndResetAttr',
11220: l_debug_info VARCHAR2(200);
11221: l_find_approver_count NUMBER;
11222: BEGIN
11223:
11224: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetFromRoleBeforeApproval');
11225:
11226: IF (p_funmode = 'RUN') THEN
11227: ----------------------------------------------------------------
11228: l_debug_info := 'Retrieving Find_Approver_Count Item Attribute';
11248: ELSIF (p_funmode = 'CANCEL') THEN
11249: p_result := 'COMPLETE';
11250: END IF;
11251:
11252: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRoleBeforeApproval');
11253:
11254: EXCEPTION
11255: WHEN OTHERS THEN
11256: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRoleBeforeApproval',
11268: ----------------------------------------------------------------------
11269: l_debug_info VARCHAR2(200);
11270: BEGIN
11271:
11272: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetFromRolePreparer');
11273:
11274: IF (p_funmode = 'RUN') THEN
11275: ----------------------------------------------------------------
11276: l_debug_info := 'Set #FROM_ROLE to Preparer';
11296: ELSIF (p_funmode = 'CANCEL') THEN
11297: p_result := 'COMPLETE';
11298: END IF;
11299:
11300: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRolePreparer');
11301:
11302: EXCEPTION
11303: WHEN OTHERS THEN
11304: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRolePreparer',
11316: ----------------------------------------------------------------------
11317: l_debug_info VARCHAR2(200);
11318: BEGIN
11319:
11320: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetFromRoleEmployee');
11321:
11322: IF (p_funmode = 'RUN') THEN
11323: ----------------------------------------------------------------
11324: l_debug_info := 'Set #FROM_ROLE to Employee';
11344: ELSIF (p_funmode = 'CANCEL') THEN
11345: p_result := 'COMPLETE';
11346: END IF;
11347:
11348: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRoleEmployee');
11349:
11350: EXCEPTION
11351: WHEN OTHERS THEN
11352: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRoleEmployee',
11364: ----------------------------------------------------------------------
11365: l_debug_info VARCHAR2(200);
11366: BEGIN
11367:
11368: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetFromRoleForwardFrom');
11369:
11370: IF (p_funmode in ('RUN', 'TRANSFER')) THEN
11371: ----------------------------------------------------------------
11372: l_debug_info := 'Set #FROM_ROLE to Forward From';
11392: ELSIF (p_funmode = 'CANCEL') THEN
11393: p_result := 'COMPLETE';
11394: END IF;
11395:
11396: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRoleForwardFrom');
11397:
11398: EXCEPTION
11399: WHEN OTHERS THEN
11400: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRoleForwardFrom',
11412: ----------------------------------------------------------------------
11413: l_debug_info VARCHAR2(200);
11414: BEGIN
11415:
11416: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetFromRoleApprover');
11417:
11418: IF (p_funmode = 'RUN') THEN
11419: ----------------------------------------------------------------
11420: l_debug_info := 'Set #FROM_ROLE to Approver';
11440: ELSIF (p_funmode = 'CANCEL') THEN
11441: p_result := 'COMPLETE';
11442: END IF;
11443:
11444: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRoleApprover');
11445:
11446: EXCEPTION
11447: WHEN OTHERS THEN
11448: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRoleApprover',
11670: C_WF_Version NUMBER := 0;
11671: l_n_resp_id NUMBER := 0;
11672: BEGIN
11673:
11674: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF',
11675: 'start WF WithdrawExpenseRep');
11676:
11677: l_itemkey := to_char(p_rep_header_id);
11678: begin
11930: l_debug_info := 'Restore nls context to original language';
11931: -------------------------------------------------------------------
11932: fnd_global.set_nls_context(p_nls_language => l_orig_language);
11933:
11934: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF',
11935: 'end WF WithdrawExpenseRep');
11936: COMMIT;
11937:
11938: ------------------------------------------------------------
11996: l_is_cc_table BOOLEAN;
11997: l_currency VARCHAR2(50);
11998: l_colspan NUMBER := 0;
11999:
12000: l_prompts AP_WEB_UTILITIES_PKG.prompts_table;
12001: l_title AK_REGIONS_VL.name%TYPE;
12002: l_debug_info VARCHAR2(1000);
12003:
12004: XpenseLinesCursor AP_WEB_DB_EXPLINE_PKG.DisplayXpenseLinesCursor;
12040: l_payment_due_from VARCHAR2(10) := 'INDIVIDUAL';
12041:
12042: BEGIN
12043:
12044: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GenerateExpClobLines');
12045:
12046: ------------------------------------------------------------
12047: l_debug_info := 'Decode document_id';
12048: ------------------------------------------------------------
12953: END IF;
12954:
12955: document_type := display_type;
12956:
12957: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateExpClobLines');
12958:
12959: EXCEPTION
12960: WHEN OTHERS THEN
12961: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateExpClobLines',
12977: l_mess Wf_Item_Attribute_Values.TEXT_VALUE%TYPE;
12978:
12979: BEGIN
12980:
12981: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start determineMileageAdjusted');
12982:
12983: IF (p_funmode = 'RUN') THEN
12984:
12985: ------------------------------------------------------------
13036: ELSIF (p_funmode = 'CANCEL') THEN
13037: p_result := 'COMPLETE';
13038: END IF;
13039:
13040: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end determineMileageAdjusted');
13041:
13042: EXCEPTION
13043: WHEN OTHERS THEN
13044: AP_WEB_DB_UTIL_PKG.RaiseException('determineMileageAdjusted');
13817: l_client_extension_enabled VARCHAR2(1);
13818: l_temp_array OIE_PDM_NUMBER_T; -- bug 5358186
13819: BEGIN
13820:
13821: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ProcessMileageLines');
13822:
13823: -----------------------------------------------------
13824: l_debug_info := 'Get Workflow Version Number 5';
13825: -----------------------------------------------------
14042: updateExpenseMileageLines.
14043: */
14044:
14045: l_mileage_line_array(i).amount :=
14046: AP_WEB_UTILITIES_PKG.OIE_ROUND_CURRENCY(
14047: l_new_rate * l_mileage_line_array(i).trip_distance,
14048: l_mileage_line_array(i).reimbursement_currency_code);
14049:
14050: l_mileage_line_array(i).receipt_currency_amount :=
14050: l_mileage_line_array(i).receipt_currency_amount :=
14051: l_mileage_line_array(i).amount;
14052:
14053: l_mileage_line_array(i).daily_amount :=
14054: AP_WEB_UTILITIES_PKG.OIE_ROUND_CURRENCY(
14055: l_new_rate * l_mileage_line_array(i).trip_distance /
14056: l_mileage_line_array(i).number_of_days,
14057: l_mileage_line_array(i).reimbursement_currency_code);
14058:
14225: l_report_header_id AP_WEB_DB_EXPRPT_PKG.expHdr_headerID;
14226: BEGIN
14227:
14228:
14229: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start hasCompanyViolations');
14230:
14231: IF (p_funmode = 'RUN') THEN
14232: ------------------------------------------------------------
14233: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
14262: ELSIF (p_funmode = 'CANCEL') THEN
14263: p_result := 'COMPLETE';
14264: END IF;
14265:
14266: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end hasCompanyViolations');
14267:
14268: EXCEPTION
14269: WHEN OTHERS THEN
14270: AP_WEB_DB_UTIL_PKG.RaiseException('hasCompanyViolations');
14290: l_currency VARCHAR2(25);
14291:
14292: BEGIN
14293:
14294: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GenerateAmountMsg');
14295:
14296: ------------------------------------------------------------
14297: l_debug_info := 'Decode document_id';
14298: ------------------------------------------------------------
14330:
14331: document := l_msg;
14332: document_type := display_type;
14333:
14334: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateExpLines');
14335:
14336: EXCEPTION
14337: WHEN OTHERS THEN
14338: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateAmountMsg',
14348: l_debug_info VARCHAR2(2000);
14349:
14350: BEGIN
14351:
14352: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetRespAppInfo');
14353:
14354: ------------------------------------------------------
14355: l_debug_info := 'Retrieve RESPONSIBILITY_ID Item Attribute';
14356: ------------------------------------------------------
14364: p_appl_id := WF_ENGINE.GetItemAttrNumber('APEXP',
14365: p_item_key,
14366: 'APPLICATION_ID');
14367:
14368: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetRespAppInfo');
14369:
14370: EXCEPTION
14371: WHEN OTHERS THEN
14372: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
14432: l_receipts_status VARCHAR2(30);
14433: l_auditor_id AP_AUD_AUDITORS.AUDITOR_ID%TYPE;
14434: BEGIN
14435:
14436: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetAuditType');
14437:
14438: IF (p_funmode = 'RUN') THEN
14439: ------------------------------------------------------------
14440: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
14472: FETCH rule_cur INTO rule_rec;
14473: -- Bug: 10373316, do not assign audited reports back to the auditor.
14474: IF (rule_cur%FOUND AND
14475: (NVL(rule_rec.audit_ALL, 'N') = 'Y'
14476: OR (NVL(rule_rec.paperless_audit_cc_only_flag, 'N') = 'Y' AND AP_WEB_UTILITIES_PKG.ReportHasOnlyCCLines(l_report_header_id) = TRUE)
14477: OR (NVL(rule_rec.paperless_audit_violation_flag, 'N') = 'Y' AND AP_WEB_UTILITIES_PKG.ReportHasViolations(l_report_header_id) = TRUE)
14478: OR (NVL(rule_rec.paperless_audit_pdm_only_flag, 'N') = 'Y' AND AP_WEB_UTILITIES_PKG.ReportHasNonRecLines(l_report_header_id) = TRUE)
14479: )
14480: AND
14473: -- Bug: 10373316, do not assign audited reports back to the auditor.
14474: IF (rule_cur%FOUND AND
14475: (NVL(rule_rec.audit_ALL, 'N') = 'Y'
14476: OR (NVL(rule_rec.paperless_audit_cc_only_flag, 'N') = 'Y' AND AP_WEB_UTILITIES_PKG.ReportHasOnlyCCLines(l_report_header_id) = TRUE)
14477: OR (NVL(rule_rec.paperless_audit_violation_flag, 'N') = 'Y' AND AP_WEB_UTILITIES_PKG.ReportHasViolations(l_report_header_id) = TRUE)
14478: OR (NVL(rule_rec.paperless_audit_pdm_only_flag, 'N') = 'Y' AND AP_WEB_UTILITIES_PKG.ReportHasNonRecLines(l_report_header_id) = TRUE)
14479: )
14480: AND
14481: rule_rec.assign_auditor_stage_code = 'MANAGER_APPROVAL'
14474: IF (rule_cur%FOUND AND
14475: (NVL(rule_rec.audit_ALL, 'N') = 'Y'
14476: OR (NVL(rule_rec.paperless_audit_cc_only_flag, 'N') = 'Y' AND AP_WEB_UTILITIES_PKG.ReportHasOnlyCCLines(l_report_header_id) = TRUE)
14477: OR (NVL(rule_rec.paperless_audit_violation_flag, 'N') = 'Y' AND AP_WEB_UTILITIES_PKG.ReportHasViolations(l_report_header_id) = TRUE)
14478: OR (NVL(rule_rec.paperless_audit_pdm_only_flag, 'N') = 'Y' AND AP_WEB_UTILITIES_PKG.ReportHasNonRecLines(l_report_header_id) = TRUE)
14479: )
14480: AND
14481: rule_rec.assign_auditor_stage_code = 'MANAGER_APPROVAL'
14482: AND nvl(rule_rec.workflow_approved_flag,'N') = 'M') THEN
14568: ELSIF (p_funmode = 'CANCEL') THEN
14569: p_result := 'COMPLETE';
14570: END IF;
14571:
14572: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetAuditType');
14573:
14574: EXCEPTION
14575: WHEN OTHERS THEN
14576: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetAuditType',
14591:
14592: BEGIN
14593:
14594:
14595: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ResetWFNote');
14596:
14597: ---------------------------------------------------------------
14598: l_debug_info := 'Reset WF_NOTE';
14599: ---------------------------------------------------------------
14601: p_item_key,
14602: 'WF_NOTE',
14603: '');
14604:
14605: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ResetWFNote');
14606:
14607: EXCEPTION
14608: WHEN OTHERS THEN
14609: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ResetWFNote',
14618: ----------------------------------------------------------------------
14619:
14620: l_other_errors VARCHAR2(2000) := NULL;
14621:
14622: l_prompts AP_WEB_UTILITIES_PKG.prompts_table;
14623: l_title AK_REGIONS_VL.name%TYPE;
14624:
14625: l_debug_info VARCHAR2(2000);
14626:
14625: l_debug_info VARCHAR2(2000);
14626:
14627: BEGIN
14628:
14629: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AddToOtherErrors');
14630:
14631: ---------------------------------------------------------
14632: l_debug_info := 'Add to Other Errors';
14633: ---------------------------------------------------------
14653: p_item_key,
14654: 'OTHER_ERRORS',
14655: l_other_errors);
14656:
14657: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AddToOtherErrors');
14658:
14659: EXCEPTION
14660: WHEN OTHERS THEN
14661: IF (SQLCODE <> -20001) THEN
14687:
14688: l_debug_info VARCHAR2(200);
14689:
14690: BEGIN
14691: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GenerateHeaderErrors');
14692:
14693: ------------------------------------------------------------
14694: l_debug_info := 'Decode document_id';
14695: ------------------------------------------------------------
14705: 'HEADER_ERRORS');
14706:
14707: document_type := display_type;
14708:
14709: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GenerateHeaderErrors');
14710:
14711: EXCEPTION
14712: WHEN OTHERS THEN
14713: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GenerateHeaderErrors', document_id, l_debug_info);
14730: l_debug_info VARCHAR2(200);
14731: l_auditor_name fnd_user.user_name%type;
14732: BEGIN
14733:
14734: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetFromRoleAP');
14735:
14736: IF (p_funmode = 'RUN') THEN
14737: ----------------------------------------------------------------
14738: l_debug_info := 'Set #FROM_ROLE to AP';
14770: ELSIF (p_funmode = 'CANCEL') THEN
14771: p_result := 'COMPLETE';
14772: END IF;
14773:
14774: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetFromRoleAP');
14775:
14776: EXCEPTION
14777: WHEN OTHERS THEN
14778: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetFromRoleAP',
14790: -------------------------------------------------------------------------
14791: l_debug_info VARCHAR2(2000);
14792: BEGIN
14793:
14794: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetPolicyInfo');
14795: SetShortPaidLinesInfo(p_item_type,
14796: p_item_key,
14797: p_actid,
14798: p_funmode,
14797: p_actid,
14798: p_funmode,
14799: 'POLICY',
14800: p_result);
14801: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetPolicyInfo');
14802:
14803: EXCEPTION
14804: WHEN OTHERS THEN
14805: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetPolicyInfo',
14816: -------------------------------------------------------------------------
14817: l_debug_info VARCHAR2(2000);
14818: BEGIN
14819:
14820: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetMissingReceiptInfo');
14821:
14822: SetShortPaidLinesInfo(p_item_type,
14823: p_item_key,
14824: p_actid,
14824: p_actid,
14825: p_funmode,
14826: 'MISSING_RECEIPT',
14827: p_result);
14828: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetMissingReceiptInfo');
14829:
14830: EXCEPTION
14831: WHEN OTHERS THEN
14832: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetMissingReceiptInfo',
14846: l_document_number AP_WEB_DB_EXPRPT_PKG.expHdr_invNum;
14847: l_preparer_name VARCHAR2(2000);
14848: BEGIN
14849:
14850: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start SetProvideMissingInfo');
14851:
14852:
14853: ----------------------------------------------------------------
14854: l_debug_info := 'Set #FROM_ROLE to Preparer';
14872: p_item_key,
14873: 'OIENOTES',
14874: l_mess);
14875:
14876: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end SetProvideMissingInfo');
14877:
14878: EXCEPTION
14879: WHEN OTHERS THEN
14880: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'SetProvideMissingInfo',
14889: p_result OUT NOCOPY VARCHAR2) IS
14890: l_debug_info VARCHAR2(2000);
14891: l_report_header_id NUMBER;
14892: BEGIN
14893: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start ResetShortpayAdjustmentInfo');
14894:
14895: ------------------------------------------------------------
14896: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
14897: ------------------------------------------------------------
14903: l_debug_info := 'Reset adjustment information';
14904: ----------------------------------------------------------------
14905: AP_WEB_DB_EXPLINE_PKG.ResetShortpayAdjustmentInfo(l_report_header_id);
14906:
14907: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ResetShortpayAdjustmentInfo');
14908: EXCEPTION
14909: WHEN OTHERS THEN
14910: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'ResetShortpayAdjustmentInfo',
14911: p_item_type, p_item_key, null, l_debug_info);
14944:
14945: l_debug_info VARCHAR2(200);
14946: BEGIN
14947:
14948: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CheckAPReviewResult');
14949:
14950:
14951: IF (p_funmode = 'RUN') THEN
14952:
15015: NULL;
15016:
15017: END IF;
15018:
15019: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckAPReviewResult');
15020:
15021: EXCEPTION
15022: WHEN OTHERS THEN
15023: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'CheckAPReviewResult',
15053: audit_rec audit_cur%ROWTYPE;
15054:
15055: BEGIN
15056:
15057: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AddToAuditQueue');
15058:
15059:
15060: IF (p_funmode = 'RUN') THEN
15061:
15120: NULL;
15121:
15122: END IF;
15123:
15124: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AddToAuditQueue');
15125:
15126: EXCEPTION
15127: WHEN OTHERS THEN
15128: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AddToAuditQueue',
15148: l_report_header_id AP_WEB_DB_EXPRPT_PKG.expHdr_headerID;
15149: l_debug_info VARCHAR2(200);
15150: BEGIN
15151:
15152: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start RemoveFromAuditQueue');
15153:
15154:
15155: IF (p_funmode = 'RUN') THEN
15156:
15172: NULL;
15173:
15174: END IF;
15175:
15176: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end RemoveFromAuditQueue');
15177:
15178: EXCEPTION
15179: WHEN OTHERS THEN
15180: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'RemoveFromAuditQueue',
15236: l_workflow_flag AP_EXPENSE_REPORT_HEADERS_ALL.WORKFLOW_APPROVED_FLAG%TYPE;
15237:
15238: BEGIN
15239:
15240: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start StoreNote');
15241:
15242: IF (p_funmode = 'RUN') THEN
15243:
15244: -------------------------------------------------------------------
15489: p_result := 'COMPLETE:Y';
15490:
15491: END IF;
15492:
15493: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StoreNote');
15494:
15495: EXCEPTION
15496: WHEN OTHERS THEN
15497: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'StoreNote',
15684: l_emp_info_rec AP_WEB_DB_HR_INT_PKG.EmployeeInfoRec;
15685: l_employee_name per_workforce_x.full_name%TYPE;
15686: BEGIN
15687:
15688: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetManagerInfoAndCheckStatus');
15689:
15690: -----------------------------------------------------------
15691: l_debug_info := 'Trying to retrieve employee manager info';
15692: -----------------------------------------------------------
15747: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_SPL_INSTR');
15748: p_special_instr := FND_MESSAGE.Get;
15749: END IF;
15750:
15751: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetManagerInfoAndCheckStatus');
15752:
15753: EXCEPTION
15754: WHEN OTHERS THEN
15755: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'GetManagerInfoAndCheckStatus',
15809:
15810: BEGIN
15811:
15812: UPDATE AP_EXPENSE_REPORT_HEADERS
15813: SET DESCRIPTION= AP_WEB_UTILITIES_PKG.RtrimMultiByteSpaces(description)
15814: WHERE REPORT_HEADER_ID = p_report_header_id;
15815:
15816: UPDATE AP_EXPENSE_REPORT_LINES
15817: SET JUSTIFICATION = AP_WEB_UTILITIES_PKG.RtrimMultiByteSpaces(justification),
15813: SET DESCRIPTION= AP_WEB_UTILITIES_PKG.RtrimMultiByteSpaces(description)
15814: WHERE REPORT_HEADER_ID = p_report_header_id;
15815:
15816: UPDATE AP_EXPENSE_REPORT_LINES
15817: SET JUSTIFICATION = AP_WEB_UTILITIES_PKG.RtrimMultiByteSpaces(justification),
15818: SUBMITTED_AMOUNT = AMOUNT
15819: WHERE REPORT_HEADER_ID = p_report_header_id;
15820:
15821:
15861: l_para_list WF_PARAMETER_LIST_T;
15862:
15863: BEGIN
15864:
15865: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start RaiseSubmitEvent');
15866:
15867: ----------------------------------------------------------
15868: l_debug_info := 'Get USER_ID/RESP_ID/RESP_APPL_ID';
15869: ----------------------------------------------------------
15892: wf_event.raise(p_event_name => C_SUBMIT_EVENT_NAME,
15893: p_event_key => p_report_header_id,
15894: p_parameters => l_para_list);
15895:
15896: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end RaiseSubmitEvent');
15897:
15898: EXCEPTION
15899: WHEN OTHERS THEN
15900:
15952: l_submit_from_oie varchar2(1);
15953:
15954: BEGIN
15955:
15956: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start InitSubmit');
15957:
15958: l_report_header_id := to_number(p_item_key);
15959:
15960: select aerh.report_header_id,
16007: p_event_raised => 'Y');
16008:
16009: p_result := 'COMPLETE';
16010:
16011: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end InitSubmit');
16012:
16013: EXCEPTION
16014: WHEN OTHERS THEN
16015: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'InitSubmit',
16032: l_user_name wf_notifications.recipient_role%type;
16033:
16034: BEGIN
16035:
16036: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CheckAccess');
16037:
16038: -- get the item type for the notif
16039: select message_type, item_key
16040: into l_item_type, l_temp_item_key
16136: ( wfn.from_role is not null and wfn.from_role = wur.role_name ) )
16137: and rownum = 1;
16138: */
16139:
16140: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end CheckAccess');
16141:
16142: RETURN l_access_granted;
16143:
16144: EXCEPTION
16195: l_approver_exist varchar2(1) := 'N'; -- Bug 15928430
16196:
16197: BEGIN
16198:
16199: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AMERequestApproval');
16200:
16201: IF (p_funmode = 'RUN') THEN
16202:
16203: if (AP_WEB_DB_EXPLINE_PKG.GetNoOfBothPayPersonalLines(p_item_key,l_num_personal_lines)) then
16739: ELSIF (p_funmode = 'CANCEL') THEN
16740: NULL;
16741: END IF;
16742:
16743: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMERequestApproval');
16744:
16745: EXCEPTION
16746: WHEN continue_exception THEN
16747: NULL;
16783: l_debug_info varchar2(200);
16784: l_ActionOrFyi varchar2(1);
16785: BEGIN
16786:
16787: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AMEGetApprovalType');
16788:
16789: IF (p_funmode = 'RUN') THEN
16790:
16791: --------------------------------------------------------------
16804: ELSIF (p_funmode = 'CANCEL') THEN
16805: NULL;
16806: END IF;
16807:
16808: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMEGetApprovalType');
16809:
16810: EXCEPTION
16811: WHEN OTHERS THEN
16812: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMEGetApprovalType',
16841:
16842: l_debug varchar2(3000);
16843: BEGIN
16844:
16845: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AMEPropagateApprovalResult');
16846:
16847: IF (p_funmode = 'RUN') THEN
16848:
16849: l_AmeMasterItemKey := WF_ENGINE.GetItemAttrText(p_item_type,
16990: ELSIF (p_funmode = 'CANCEL') THEN
16991: NULL;
16992: END IF;
16993:
16994: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMEPropagateApprovalResult');
16995:
16996: EXCEPTION
16997: WHEN OTHERS THEN
16998: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMEPropagateApprovalResult',
17017: l_debug_info varchar2(200);
17018: l_approverResponse varchar2(30);
17019: BEGIN
17020:
17021: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AMEGetApprovalResult');
17022:
17023: IF (p_funmode = 'RUN') THEN
17024:
17025: --------------------------------------------------------------
17042: ELSIF (p_funmode = 'CANCEL') THEN
17043: NULL;
17044: END IF;
17045:
17046: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMEGetApprovalResult');
17047:
17048: EXCEPTION
17049: WHEN OTHERS THEN
17050: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMEGetApprovalResult',
17077: l_nextApproversOut ame_util.approversTable2;
17078:
17079: BEGIN
17080:
17081: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AMECompleteApproval');
17082:
17083: IF (p_funmode = 'RUN') THEN
17084:
17085: l_AmeMasterItemKey := WF_ENGINE.GetItemAttrText(p_item_type,
17140: ELSIF (p_funmode = 'CANCEL') THEN
17141: NULL;
17142: END IF;
17143:
17144: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMECompleteApproval');
17145:
17146: EXCEPTION
17147: WHEN OTHERS THEN
17148: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMECompleteApproval',
17172: l_approversOut ame_util.approversTable2;
17173: l_report_header_id number;
17174: BEGIN
17175:
17176: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AMESetCurrentApprover');
17177:
17178: IF (p_funmode = 'RUN') THEN
17179:
17180: l_report_header_id := to_char(p_item_key);
17203: ELSIF (p_funmode = 'CANCEL') THEN
17204: NULL;
17205: END IF;
17206:
17207: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end AMESetCurrentApprover');
17208:
17209: EXCEPTION
17210: WHEN OTHERS THEN
17211: Wf_Core.Context('AP_WEB_EXPENSE_WF', 'AMESetCurrentApprover',
17219: -----------------------------------------------------------------------
17220: l_ExpAccountsUpdated VARCHAR2(10);
17221: BEGIN
17222:
17223: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start IsExpAccountsUpdated');
17224:
17225: select decode(nvl(preparer_modified_flag, 'N'), 'Y', AP_WEB_FND_LOOKUPS_PKG.getYesNoMeaning('Y'), null)
17226: into l_ExpAccountsUpdated
17227: from ap_exp_report_dists
17228: where report_line_id = p_report_line_id
17229: and rownum = 1;
17230:
17231:
17232: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end IsExpAccountsUpdated');
17233:
17234: RETURN l_ExpAccountsUpdated;
17235:
17236: EXCEPTION
17243: l_temp_context wf_notifications.context%type;
17244: l_item_key wf_notifications.context%type;
17245: l_debug_info varchar2(200);
17246: BEGIN
17247: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start getItemKey');
17248:
17249: select context into l_context
17250: from wf_notifications
17251: where notification_id = p_notification_id;
17256: l_item_key := substr(l_temp_context,1,instrb(l_temp_context, ':')-1); --'22591-2'
17257:
17258: return l_item_key;
17259:
17260: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end getItemKey');
17261: EXCEPTION
17262: WHEN OTHERS THEN
17263: AP_WEB_DB_UTIL_PKG.RaiseException('AP_WEB_EXPENSE_WF.getItemKey',
17264: l_debug_info);