[Home] [Help]
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' ||
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:
521:
522: ---------------------------------------------------------------------------
523: l_debug_info := 'Get the Employee Cost Center Associated With Preparer_Id';
524: ---------------------------------------------------------------------------
525: AP_WEB_UTILITIES_PKG.GetEmployeeInfo(l_dummy_emp_name,
526: l_emp_num,
527: l_emp_cost_center,
528: p_employee_id);
529:
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:
927: PROCEDURE GenTableHeader(document in out nocopy clob,
928: p_is_ccard in boolean,
929: p_is_ap in boolean) IS
930:
931: l_prompts AP_WEB_UTILITIES_PKG.prompts_table;
932: l_title AK_REGIONS_VL.name%TYPE;
933: l_table_header VARCHAR2(2000);
934:
935: l_debug_info VARCHAR2(200);
989: PROCEDURE GenTableRows(document in out nocopy clob,
990: p_is_ccard in boolean,
991: p_is_ap in boolean) IS
992:
993: l_prompts AP_WEB_UTILITIES_PKG.prompts_table;
994: l_title AK_REGIONS_VL.name%TYPE;
995:
996: l_table_row VARCHAR2(2000);
997: l_line_num NUMBER := 0;
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',
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',
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',
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',
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',
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: -----------------------------------------------------------------
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: ------------------------------------------------------------
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',
1725: ----------------------------------------------------------------------
1726:
1727: l_header_errors VARCHAR2(2000) := NULL;
1728:
1729: l_prompts AP_WEB_UTILITIES_PKG.prompts_table;
1730: l_title AK_REGIONS_VL.name%TYPE;
1731:
1732: l_debug_info VARCHAR2(2000);
1733:
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: ---------------------------------------------------
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',
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',
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',
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',
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',
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',
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: ------------------------------------------------------------
3227:
3228: ----------------------------------
3229: l_debug_info := 'Set Org Context';
3230: ----------------------------------
3231: AP_WEB_UTILITIES_PKG.ExpenseSetOrgContext(l_report_header_id);
3232:
3233: -------------------------------------------------
3234: l_debug_info := 'Retrieve The AP Reviewed Flag';
3235: -------------------------------------------------
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',
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;
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',
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:
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',
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',
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',
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: -----------------------------------------------------
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;
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: -----------------------------------------------------
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',
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',
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',
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: -----------------------------------------------------
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');
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: -----------------------------------------------------
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',
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',
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',
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',
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',
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',
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',
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',
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',
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',
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: -----------------------------------------------------
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',
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: -----------------------------------------------------
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',
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',
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',
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',
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',
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',
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',
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',
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',
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',
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',
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',
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',
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',
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',
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',
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: -------------------------------------------------------------
8556: ---------------------------------------------------------------
8557: l_debug_info := 'Get the Employee Cost Center Associated With
8558: Preparer_Id';
8559: ---------------------------------------------------------------
8560: AP_WEB_UTILITIES_PKG.GetEmployeeInfo(l_emp_name,
8561: l_emp_num,
8562: l_emp_cost_center,
8563: l_preparer_id);
8564:
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',
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',
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',
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',
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',
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',
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',
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',
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',
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',
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',
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',
9318: l_colon NUMBER;
9319:
9320: -- Bug 3336259: CC SP and ADJ Fix
9321: l_adj_code VARCHAR2(100) := 'ADJUSTMENT'; --default is Adjustments
9322: l_prompts AP_WEB_UTILITIES_PKG.prompts_table;
9323: l_title AK_REGIONS_VL.name%TYPE;
9324:
9325: -- Bug 3336259: CC SP and ADJ Fix, changed to refer the new cursor type.
9326: AdjustmentsCursor AP_WEB_DB_EXPLINE_PKG.AdjustmentCursorType;
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',
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',
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: -------------------------------------------------------------------
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: -------------------------------------------------------------------
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',
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',
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: -----------------------------------------------------
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',
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',
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',
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',
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',
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',
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
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: ------------------------------------------------------------
11233: l_is_cc_table BOOLEAN;
11234: l_currency VARCHAR2(50);
11235: l_colspan NUMBER := 0;
11236:
11237: l_prompts AP_WEB_UTILITIES_PKG.prompts_table;
11238: l_title AK_REGIONS_VL.name%TYPE;
11239: l_debug_info VARCHAR2(1000);
11240:
11241: XpenseLinesCursor AP_WEB_DB_EXPLINE_PKG.DisplayXpenseLinesCursor;
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',
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: -----------------------------------------------------
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',
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
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',
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',
13743: ----------------------------------------------------------------------
13744:
13745: l_other_errors VARCHAR2(2000) := NULL;
13746:
13747: l_prompts AP_WEB_UTILITIES_PKG.prompts_table;
13748: l_title AK_REGIONS_VL.name%TYPE;
13749:
13750: l_debug_info VARCHAR2(2000);
13751:
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);
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',
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',
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',
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',
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);
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:
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',
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',
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',
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',
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',
14869:
14870: BEGIN
14871:
14872: UPDATE AP_EXPENSE_REPORT_HEADERS
14873: SET DESCRIPTION= AP_WEB_UTILITIES_PKG.RtrimMultiByteSpaces(description)
14874: WHERE REPORT_HEADER_ID = p_report_header_id;
14875:
14876: UPDATE AP_EXPENSE_REPORT_LINES
14877: SET JUSTIFICATION = AP_WEB_UTILITIES_PKG.RtrimMultiByteSpaces(justification),
14873: SET DESCRIPTION= AP_WEB_UTILITIES_PKG.RtrimMultiByteSpaces(description)
14874: WHERE REPORT_HEADER_ID = p_report_header_id;
14875:
14876: UPDATE AP_EXPENSE_REPORT_LINES
14877: SET JUSTIFICATION = AP_WEB_UTILITIES_PKG.RtrimMultiByteSpaces(justification),
14878: SUBMITTED_AMOUNT = AMOUNT
14879: WHERE REPORT_HEADER_ID = p_report_header_id;
14880:
14881: END UpdateHeaderLines;
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',
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
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',
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',
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',
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',
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',
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);