[Home] [Help]
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');
143:
144: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetFlowVersion');
190: if l_role_valid <> 'N' then
191: ----------------------------------------------------------------
192: l_debug_info := 'Set #FROM_ROLE : called from : ' || p_called_from;
193: ----------------------------------------------------------------
194: WF_ENGINE.SetItemAttrText(p_item_type,
195: p_item_key,
196: '#FROM_ROLE',
197: tvalue);
198: end if;
256:
257: -- Grants Integration
258: l_grants_enabled VARCHAR2(1);
259:
260: l_textNameArr Wf_Engine.NameTabTyp;
261: l_textValArr Wf_Engine.TextTabTyp;
262: l_numNameArr Wf_Engine.NameTabTyp;
263: l_numValArr Wf_Engine.NumTabTyp;
264: iNum NUMBER :=0;
257: -- Grants Integration
258: l_grants_enabled VARCHAR2(1);
259:
260: l_textNameArr Wf_Engine.NameTabTyp;
261: l_textValArr Wf_Engine.TextTabTyp;
262: l_numNameArr Wf_Engine.NameTabTyp;
263: l_numValArr Wf_Engine.NumTabTyp;
264: iNum NUMBER :=0;
265: iText NUMBER :=0;
258: l_grants_enabled VARCHAR2(1);
259:
260: l_textNameArr Wf_Engine.NameTabTyp;
261: l_textValArr Wf_Engine.TextTabTyp;
262: l_numNameArr Wf_Engine.NameTabTyp;
263: l_numValArr Wf_Engine.NumTabTyp;
264: iNum NUMBER :=0;
265: iText NUMBER :=0;
266:
259:
260: l_textNameArr Wf_Engine.NameTabTyp;
261: l_textValArr Wf_Engine.TextTabTyp;
262: l_numNameArr Wf_Engine.NameTabTyp;
263: l_numValArr Wf_Engine.NumTabTyp;
264: iNum NUMBER :=0;
265: iText NUMBER :=0;
266:
267: --ER 1552747 - withdraw expense report
336:
337: --------------------------------------------------
338: l_debug_info := 'Calling WorkFlow Create Process';
339: --------------------------------------------------
340: WF_ENGINE.CreateProcess(l_item_type,
341: l_item_key,
342: 'AP_EXPENSE_REPORT_PROCESS');
343: EXCEPTION
344: when others then
373: -- ORG_ID was added later; therefore, it needs to be tested for upgrade purpose, and
374: -- is not included in the bulk update.
375: begin
376:
377: WF_ENGINE.SetItemAttrNumber(l_item_type,
378: l_item_key,
379: 'ORG_ID',
380: l_n_Org_ID);
381: exception
381: exception
382: when others then
383: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
384: -- ORG_ID item attribute doesn't exist, need to add it
385: WF_ENGINE.AddItemAttr(l_item_type, l_item_key, 'ORG_ID');
386: WF_ENGINE.SetItemAttrNumber(l_item_type,
387: l_item_key,
388: 'ORG_ID',
389: l_n_Org_ID);
382: when others then
383: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
384: -- ORG_ID item attribute doesn't exist, need to add it
385: WF_ENGINE.AddItemAttr(l_item_type, l_item_key, 'ORG_ID');
386: WF_ENGINE.SetItemAttrNumber(l_item_type,
387: l_item_key,
388: 'ORG_ID',
389: l_n_Org_ID);
390: else
396:
397: begin
398:
399: /* Bug 2351528. Need to set the user_key for easier query */
400: WF_ENGINE.SetItemUserKey(l_item_type,
401: l_item_key,
402: p_document_number);
403:
404: --------------------------------------------------------------
403:
404: --------------------------------------------------------------
405: l_debug_info := 'Set User_ID value ';
406: --------------------------------------------------------------
407: WF_ENGINE.SetItemAttrNumber(l_item_type,
408: l_item_key,
409: 'USER_ID',
410: FND_PROFILE.VALUE('USER_ID'));
411:
411:
412: --------------------------------------------------------------
413: l_debug_info := 'Set Resp_ID value ';
414: --------------------------------------------------------------
415: WF_ENGINE.SetItemAttrNumber(l_item_type,
416: l_item_key,
417: 'RESPONSIBILITY_ID',
418: FND_PROFILE.VALUE('RESP_ID'));
419:
419:
420: --------------------------------------------------------------
421: l_debug_info := 'Set Resp_Appl_ID value ';
422: --------------------------------------------------------------
423: WF_ENGINE.SetItemAttrNumber(l_item_type,
424: l_item_key,
425: 'APPLICATION_ID',
426: FND_PROFILE.VALUE('RESP_APPL_ID'));
427:
427:
428: ------------------------------------------------------------
429: l_debug_info := 'Get responsibility id';
430: ------------------------------------------------------------
431: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(l_item_type,
432: l_item_key,
433: 'RESPONSIBILITY_ID');
434:
435: exception
451: else
452: l_AMEEnabled := 'N';
453: end if;
454:
455: WF_ENGINE.SetItemAttrText(l_item_type,
456: l_item_key,
457: 'AME_ENABLED',
458: l_AMEEnabled);
459:
463: --ER 1552747 - withdraw expense report
464: if p_workflow_flag = AP_WEB_DB_EXPRPT_PKG.C_WORKFLOW_APPROVED_WITHDRAW then
465: FND_MESSAGE.SET_NAME('SQLAP','OIE_WITHDRAW_WARNING');
466: l_mess := FND_MESSAGE.GET;
467: WF_ENGINE.SetItemAttrText(l_item_type,
468: l_item_key,
469: 'WITHDRAW_WARNING',
470: l_mess);
471: end if;
472:
473: ----------------------------------------------------
474: l_debug_info := 'Set Grants Enabled Item Attribute';
475: ----------------------------------------------------
476: WF_ENGINE.SetItemAttrText(l_item_type,
477: l_item_key,
478: 'GRANTS_ENABLED',
479: l_grants_enabled);
480:
525:
526: ----------------------------------------------------------
527: l_debug_info := 'Set the Owner of Workflow Process.';
528: ----------------------------------------------------------
529: WF_ENGINE.SetItemOwner(l_item_type, l_item_key, l_preparer_name);
530:
531: ------------------------------------------------------------
532: l_debug_info := 'Get Name Info Associated With Employee_Id';
533: ------------------------------------------------------------
680:
681: -------------------------------------------------
682: l_debug_info := 'Set WF Week End Date Item Attribute';
683: -------------------------------------------------
684: WF_ENGINE.SetItemAttrDate(l_item_type,
685: l_item_key,
686: 'WEEK_END_DATE',
687: p_week_end_date);
688:
731:
732: ----------------------------------------------------
733: l_debug_info := 'Set SUBMIT_FROM_OIE Item Attribute';
734: ----------------------------------------------------
735: WF_ENGINE.SetItemAttrText(l_item_type,
736: l_item_key,
737: 'SUBMIT_FROM_OIE',
738: p_submit_from_oie);
739:
819:
820: -----------------------------------------------------
821: l_debug_info := 'Set all number Attributes';
822: -----------------------------------------------------
823: WF_ENGINE.SetItemAttrNumberArray(l_item_type, l_item_key, l_numNameArr, l_numValArr);
824:
825: -----------------------------------------------------
826: l_debug_info := 'Set all text Attributes';
827: -----------------------------------------------------
824:
825: -----------------------------------------------------
826: l_debug_info := 'Set all text Attributes';
827: -----------------------------------------------------
828: WF_ENGINE.SetItemAttrTextArray(l_item_type, l_item_key, l_textNameArr, l_textValArr);
829:
830: BEGIN
831: IF (NOT l_ResubmitReport and p_event_raised <> 'Y') THEN
832:
832:
833: ------------------------------------------------------------
834: l_debug_info := 'Start the Expense Report Workflow Process';
835: ------------------------------------------------------------
836: WF_ENGINE.StartProcess(l_item_type,
837: l_item_key);
838:
839: ELSIF (l_ResubmitReport) THEN
840:
846:
847: ----------------------------------------------------------
848: l_debug_info := 'clear Item Attribute AUDIT_RETURN_REASON';
849: ---------------------------------------------------------
850: WF_ENGINE.SetItemAttrText(l_item_type,
851: l_item_key,
852: 'AUDIT_RETURN_REASON',
853: '');
854:
854:
855: ----------------------------------------------------------
856: l_debug_info := 'Set Item Attribute AUDIT_INSTRUCTIONS';
857: ---------------------------------------------------------
858: WF_ENGINE.SetItemAttrText(l_item_type,
859: l_item_key,
860: 'AUDIT_INSTRUCTIONS',
861: '');
862:
862:
863: ------------------------------------------------------------
864: l_debug_info := 'Restart the Expense Report Workflow Process';
865: ------------------------------------------------------------
866: WF_ENGINE.CompleteActivity(l_item_type,
867: l_item_key,
868: 'RESUBMIT_BLOCK',
869: '');
870:
1168:
1169: ----------------------------------------------------
1170: l_debug_info := 'Retrieve Currency Item Attribute';
1171: ----------------------------------------------------
1172: l_currency := WF_ENGINE.GetItemAttrText(l_item_type,
1173: l_item_key,
1174: 'CURRENCY');
1175:
1176: ------------------------------------------------------------
1175:
1176: ------------------------------------------------------------
1177: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
1178: ------------------------------------------------------------
1179: l_report_header_id := WF_ENGINE.GetItemAttrNumber(l_item_type,
1180: l_item_key,
1181: 'EXPENSE_REPORT_ID');
1182:
1183: --------------------------------------------
1184: l_debug_info := 'Get Org Id';
1185: --------------------------------------------
1186: begin
1187:
1188: l_n_org_id := WF_ENGINE.GetItemAttrNumber(l_item_type,
1189: l_item_key,
1190: 'ORG_ID');
1191: exception
1192: when others then
1191: exception
1192: when others then
1193: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
1194: -- ORG_ID item attribute doesn't exist, need to add it
1195: WF_ENGINE.AddItemAttr(l_item_type, l_item_key, 'ORG_ID');
1196: IF (AP_WEB_DB_EXPRPT_PKG.GetOrgIdByReportHeaderId(
1197: to_number(l_item_key),
1198: l_n_org_id) <> TRUE ) THEN
1199: l_n_org_id := NULL;
1198: l_n_org_id) <> TRUE ) THEN
1199: l_n_org_id := NULL;
1200: END IF;
1201:
1202: WF_ENGINE.SetItemAttrNumber(l_item_type,
1203: l_item_key,
1204: 'ORG_ID',
1205: l_n_org_ID);
1206: else
1406: -- StartExpenseReportProcess before the returned report is resubmitted.
1407: -- We need to clear these because we will be revisiting nodes in the process.
1408: --
1409:
1410: l_textNameArr Wf_Engine.NameTabTyp;
1411: l_textValArr Wf_Engine.TextTabTyp;
1412: iText NUMBER :=0;
1413:
1414: l_report_header_id NUMBER;
1407: -- We need to clear these because we will be revisiting nodes in the process.
1408: --
1409:
1410: l_textNameArr Wf_Engine.NameTabTyp;
1411: l_textValArr Wf_Engine.TextTabTyp;
1412: iText NUMBER :=0;
1413:
1414: l_report_header_id NUMBER;
1415: C_WF_Version NUMBER := 0;
1429:
1430: ------------------------------------------------------------
1431: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
1432: ------------------------------------------------------------
1433: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
1434: p_item_key,
1435: 'EXPENSE_REPORT_ID');
1436:
1437: ------------------------------------------------------
1511:
1512: -----------------------------------------------------
1513: l_debug_info := 'Set all text Attributes';
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:
1554:
1555: ------------------------------------------------------------
1556: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
1557: ------------------------------------------------------------
1558: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
1559: p_item_key,
1560: 'EXPENSE_REPORT_ID');
1561:
1562: ----------------------------------------------------------------
1575:
1576: ------------------------------------------------------------
1577: l_debug_info := 'Retrieve HEADER_ERRORS Item Attribute';
1578: ------------------------------------------------------------
1579: l_header_errors := WF_ENGINE.GetItemAttrText(p_item_type,
1580: p_item_key,
1581: 'HEADER_ERRORS');
1582: if (l_header_errors IS NOT NULL) then
1583: WF_ENGINE.SetItemAttrText(p_item_type,
1579: l_header_errors := WF_ENGINE.GetItemAttrText(p_item_type,
1580: p_item_key,
1581: 'HEADER_ERRORS');
1582: if (l_header_errors IS NOT NULL) then
1583: WF_ENGINE.SetItemAttrText(p_item_type,
1584: p_item_key,
1585: 'HEADER_ERRORS',
1586: l_header_errors || '
');
1587: end if;
1588:
1589: ------------------------------------------------------------
1590: l_debug_info := 'Retrieve OTHER_ERRORS Item Attribute';
1591: ------------------------------------------------------------
1592: l_other_errors := WF_ENGINE.GetItemAttrText(p_item_type,
1593: p_item_key,
1594: 'OTHER_ERRORS');
1595: if (l_other_errors IS NOT NULL) then
1596: WF_ENGINE.SetItemAttrText(p_item_type,
1592: l_other_errors := WF_ENGINE.GetItemAttrText(p_item_type,
1593: p_item_key,
1594: 'OTHER_ERRORS');
1595: if (l_other_errors IS NOT NULL) then
1596: WF_ENGINE.SetItemAttrText(p_item_type,
1597: p_item_key,
1598: 'OTHER_ERRORS',
1599: l_other_errors || '
');
1600: end if;
1607: ------------------------------------------------------------
1608: l_debug_info := 'Retrieve EXP_ALLOCATION_ERRORS Item Attribute';
1609: ------------------------------------------------------------
1610: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_OIEJ_Version) THEN
1611: l_exp_alloc_errors := WF_ENGINE.GetItemAttrText(p_item_type,
1612: p_item_key,
1613: 'EXP_ALLOCATION_ERRORS',
1614: true);
1615: if (l_exp_alloc_errors IS NOT NULL) then
1612: p_item_key,
1613: 'EXP_ALLOCATION_ERRORS',
1614: true);
1615: if (l_exp_alloc_errors IS NOT NULL) then
1616: WF_ENGINE.SetItemAttrText(p_item_type,
1617: p_item_key,
1618: 'EXP_ALLOCATION_ERRORS',
1619: l_exp_alloc_errors );
1620: end if;
1622:
1623: ----------------------------------------------------------------
1624: l_debug_info := 'Retrieve Employee Cost Center Item Attribute';
1625: ----------------------------------------------------------------
1626: l_emp_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
1627: p_item_key,
1628: 'EMP_COST_CENTER');
1629:
1630: ----------------------------------------------------------------
1629:
1630: ----------------------------------------------------------------
1631: l_debug_info := 'Retrieve Document Cost Center Item Attribute';
1632: ----------------------------------------------------------------
1633: l_doc_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
1634: p_item_key,
1635: 'DOC_COST_CENTER');
1636:
1637: ----------------------------------------------------------------
1644: FROM FND_LOOKUPS fndl
1645: WHERE fndl.LOOKUP_TYPE = C_YES_NO
1646: AND fndl.LOOKUP_CODE = C_Y;
1647:
1648: WF_ENGINE.SetItemAttrText(p_item_type,
1649: p_item_key,
1650: 'IS_DEFAULT_COST_CENTER_USED',
1651: l_yes);
1652: else
1656: FROM FND_LOOKUPS fndl
1657: WHERE fndl.LOOKUP_TYPE = C_YES_NO
1658: AND fndl.LOOKUP_CODE = C_N;
1659:
1660: WF_ENGINE.SetItemAttrText(p_item_type,
1661: p_item_key,
1662: 'IS_DEFAULT_COST_CENTER_USED',
1663: l_no);
1664: end if;
1754:
1755: ---------------------------------------------------------
1756: l_debug_info := 'Add to Header Errors';
1757: ---------------------------------------------------------
1758: l_header_errors := WF_ENGINE.GetItemAttrText(p_item_type,
1759: p_item_key,
1760: 'HEADER_ERRORS');
1761: ---------------------------------------------------------
1762: l_debug_info := 'Check to see if error title needed';
1773: AddToWFSSError(l_header_errors, p_header_error);
1774:
1775: l_header_errors := l_header_errors || endOraFieldTextFont;
1776:
1777: WF_ENGINE.SetItemAttrText(p_item_type,
1778: p_item_key,
1779: 'HEADER_ERRORS',
1780: l_header_errors);
1781:
2090: C_WF_Version := GetFlowVersion(p_item_type, p_item_key);
2091:
2092: -- Determine whether project enabled
2093: l_debug_info := 'Determine whether project enabled';
2094: V_UserID := WF_ENGINE.GetItemAttrNumber(p_item_type,
2095: p_item_key,
2096: 'EMPLOYEE_ID');
2097:
2098: ------------------------------------------------------------
2098: ------------------------------------------------------------
2099: l_debug_info := 'Determine whether session is project enabled';
2100: ------------------------------------------------------------
2101: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_11_0_3Version) THEN
2102: V_IsSessionProjectEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
2103: p_item_key,
2104: 'EMPLOYEE_PROJECT_ENABLED');
2105: ELSE
2106: -- In previous versions we called
2123:
2124: ---------------------------------------------------------
2125: l_debug_info := 'Retrieve Payment Due From System Option';
2126: ---------------------------------------------------------
2127: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
2128:
2129: IF (l_payment_due = C_CompanyPay) then
2130: ------------------------------------------------------------------------
2131: l_debug_info := 'calling AP_WEB_DB_EXPTEMPLATE_PKG.GetPersonalParamID';
2460: l_line_error_message := l_line_error_message;
2461: l_add_to_line_error := true;
2462:
2463: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_OIEJ_Version) THEN
2464: WF_ENGINE.SetItemAttrText(p_item_type,
2465: p_item_key,
2466: 'EXP_ALLOCATION_ERRORS',
2467: 'Y');
2468: END IF;
2522: FROM FND_LOOKUPS fndl
2523: WHERE fndl.LOOKUP_TYPE = C_YES_NO
2524: AND fndl.LOOKUP_CODE = C_Y;
2525:
2526: WF_ENGINE.SetItemAttrText(p_item_type,
2527: p_item_key,
2528: 'IS_PROJECTS_REPORT',
2529: l_yes);
2530: else
2533: FROM FND_LOOKUPS fndl
2534: WHERE fndl.LOOKUP_TYPE = C_YES_NO
2535: AND fndl.LOOKUP_CODE = C_N;
2536:
2537: WF_ENGINE.SetItemAttrText(p_item_type,
2538: p_item_key,
2539: 'IS_PROJECTS_REPORT',
2540: l_no);
2541: end if; /* l_is_projects_report */
2748:
2749: ------------------------------------------------------------
2750: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
2751: ------------------------------------------------------------
2752: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
2753: p_item_key,
2754: 'EXPENSE_REPORT_ID');
2755:
2756: --chiho:1352284:
2776: IF (l_shortpaid_flag = 'Y' ) THEN
2777: fnd_message.set_name('SQLAP', 'OIE_WF_APPROVAL_POLICY_NOTE');
2778: l_warning_msg := FND_MESSAGE.Get;
2779:
2780: WF_ENGINE.SetItemAttrText(
2781: p_item_type,
2782: p_item_key,
2783: 'VIOLATION_NOTE',
2784: WF_ENGINE.GetItemAttrText(p_item_type,
2780: WF_ENGINE.SetItemAttrText(
2781: p_item_type,
2782: p_item_key,
2783: 'VIOLATION_NOTE',
2784: WF_ENGINE.GetItemAttrText(p_item_type,
2785: p_item_key,
2786: 'VIOLATION_NOTE')||' '|| l_warning_msg );
2787: END IF;
2788: END IF;
2790:
2791: fnd_message.set_name('SQLAP', 'AP_WEB_EXP_APRVL_RECPTS_MISSIN');
2792: l_warning_msg := FND_MESSAGE.Get;
2793:
2794: WF_ENGINE.SetItemAttrText(
2795: p_item_type,
2796: p_item_key,
2797: 'VIOLATION_NOTE',
2798: WF_ENGINE.GetItemAttrText(p_item_type,
2794: WF_ENGINE.SetItemAttrText(
2795: p_item_type,
2796: p_item_key,
2797: 'VIOLATION_NOTE',
2798: WF_ENGINE.GetItemAttrText(p_item_type,
2799: p_item_key,
2800: 'VIOLATION_NOTE')||' '||l_warning_msg );
2801:
2802: END IF;
2805: IF (AP_WEB_DB_EXPLINE_PKG.AnyPolicyViolation(l_report_header_id)) THEN
2806: fnd_message.set_name('SQLAP', 'AP_WEB_EXP_APRVL_RULES_VIOLATE');
2807: l_warning_msg := FND_MESSAGE.Get;
2808:
2809: WF_ENGINE.SetItemAttrText(
2810: p_item_type,
2811: p_item_key,
2812: 'VIOLATION_NOTE',
2813: WF_ENGINE.GetItemAttrText(p_item_type,
2809: WF_ENGINE.SetItemAttrText(
2810: p_item_type,
2811: p_item_key,
2812: 'VIOLATION_NOTE',
2813: WF_ENGINE.GetItemAttrText(p_item_type,
2814: p_item_key,
2815: 'VIOLATION_NOTE')||' '||l_warning_msg );
2816:
2817: END IF;
2849:
2850: ------------------------------------------------------------
2851: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
2852: ------------------------------------------------------------
2853: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
2854: p_item_key,
2855: 'EXPENSE_REPORT_ID');
2856:
2857:
2911:
2912: ------------------------------------------------------------
2913: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
2914: ------------------------------------------------------------
2915: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
2916: p_item_key,
2917: 'EXPENSE_REPORT_ID');
2918:
2919: ----------------------------------------------------
2918:
2919: ----------------------------------------------------
2920: l_debug_info := 'Retrieve Currency Item Attribute';
2921: ----------------------------------------------------
2922: l_currency := WF_ENGINE.GetItemAttrText(p_item_type,
2923: p_item_key,
2924: 'CURRENCY');
2925:
2926: ---------------------------------------------------------------------------
2925:
2926: ---------------------------------------------------------------------------
2927: l_debug_info := 'Retrieve AP Receipt Minnsing Amount Limit Item Attribute';
2928: ---------------------------------------------------------------------------
2929: l_sum_limit := WF_ENGINE.GetActivityAttrNumber(p_item_type,
2930: p_item_key,
2931: p_actid,
2932: 'SUM_MISSING_RECEIPTS_LIMIT');
2933:
2947: l_sum_violations := 0;
2948: END IF;
2949:
2950: IF (nvl(l_sum_violations, 0) > 0) THEN
2951: WF_ENGINE.SetItemAttrText(p_item_type,
2952: p_item_key,
2953: 'VIOLATIONS_TOTAL',
2954: to_char(l_sum_violations + nvl(l_sum_missing_receipts,0), FND_CURRENCY.Get_Format_Mask(l_currency,22)) || ' ' || l_currency);
2955: END IF;
2989: p_result := 'COMPLETE:N';
2990: ELSE
2991: l_sum_missing_display_total := to_char(l_sum_missing_receipts, FND_CURRENCY.Get_Format_Mask(l_currency,22)) || ' ' || l_currency;
2992:
2993: WF_ENGINE.SetItemAttrText(p_item_type,
2994: p_item_key,
2995: 'MISSING_RECEIPT_TOTAL',
2996: l_sum_missing_display_total);
2997:
2997:
2998: FND_MESSAGE.SET_NAME('SQLAP','OIE_WF_VERIFY_MISSING_NOTE');
2999: FND_MESSAGE.SET_TOKEN('MISSING_TOTAL',l_sum_missing_display_total);
3000:
3001: WF_ENGINE.SetItemAttrText(p_item_type,
3002: p_item_key,
3003: 'VERIFY_NOTE',
3004: FND_MESSAGE.GET);
3005:
3041:
3042: ------------------------------------------------------------
3043: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3044: ------------------------------------------------------------
3045: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3046: p_item_key,
3047: 'EXPENSE_REPORT_ID');
3048:
3049:
3098:
3099: ------------------------------------------------------------
3100: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3101: ------------------------------------------------------------
3102: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3103: p_item_key,
3104: 'EXPENSE_REPORT_ID');
3105:
3106:
3130: END IF;
3131:
3132:
3133: l_mess := FND_MESSAGE.GET;
3134: WF_ENGINE.SetItemAttrText(p_item_type,
3135: p_item_key,
3136: 'REVIEW_NOTE',
3137: l_mess);
3138:
3143:
3144: FND_MESSAGE.SET_NAME('SQLAP','OIE_WF_REVIEW_INSTRUCTION');
3145: l_mess := FND_MESSAGE.GET;
3146:
3147: WF_ENGINE.SetItemAttrText(p_item_type,
3148: p_item_key,
3149: 'INSTRUCTION',
3150: l_mess);
3151:
3186: IF (p_funmode = 'RUN') THEN
3187: ----------------------------------------------------------------
3188: l_debug_info := 'Retrieve New Expense Total.';
3189: ----------------------------------------------------------------
3190: l_new_expense_total := WF_ENGINE.GetItemAttrNumber(p_item_type,
3191: p_item_key,
3192: 'POS_NEW_EXPENSE_TOTAL');
3193:
3194: IF (l_new_expense_total = 0) THEN
3266:
3267: ------------------------------------------------------------
3268: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3269: ------------------------------------------------------------
3270: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3271: p_item_key,
3272: 'EXPENSE_REPORT_ID');
3273:
3274: l_wakeup_time := (Wf_Engine.GetActivityAttrNumber(p_item_type, p_item_key,
3270: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3271: p_item_key,
3272: 'EXPENSE_REPORT_ID');
3273:
3274: l_wakeup_time := (Wf_Engine.GetActivityAttrNumber(p_item_type, p_item_key,
3275: p_actid, 'TIME_INTERVAL_BETWEEN_CHECKS')/24) + sysdate;
3276:
3277: ----------------------------------
3278: l_debug_info := 'Set Org Context';
3291: l_debug_info := 'Check flag to determine if AP Review Complete and
3292: return Y if so, otherwise N';
3293: ------------------------------------------------------------------
3294: IF (l_ap_review_status = 'Y') THEN
3295: p_result := wf_engine.eng_null;
3296: ELSE
3297: -- Set status of activity to deferred with begin_date set to wakeup_date.
3298: -- For Workflow 1.0 we would call:
3299: -- Wf_Item_Activity_Status.Update_Status(p_item_type, p_item_key,
3315: WHERE item_type = p_item_type
3316: AND item_key = p_item_key
3317: AND process_activity = p_actid;
3318:
3319: p_result := wf_engine.eng_deferred;
3320: END IF;
3321:
3322:
3323: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end OldAPReviewComplete');
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;
3353: return;
3354: end if;
3355:
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;
3353: return;
3354: end if;
3355:
3356:
3374:
3375: ------------------------------------------------------------
3376: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3377: ------------------------------------------------------------
3378: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3379: p_item_key,
3380: 'EXPENSE_REPORT_ID');
3381:
3382:
3394: ------------------------------------------------------------------
3395: IF (l_ap_review_status = 'Y' or
3396: l_ap_review_status = AP_WEB_DB_EXPRPT_PKG.C_WORKFLOW_APPROVED_REJECTED or -- already AP rejected
3397: l_ap_review_status = AP_WEB_DB_EXPRPT_PKG.C_WORKFLOW_APPROVED_REQUEST) THEN -- already AP requests more info
3398: -- p_result := wf_engine.eng_null;
3399: -- dtong changed p_result for bug # 839208
3400: p_result := 'COMPLETE:Y';
3401: ELSE
3402: --bug 7449880: check the version and update expense_status_code
3433: WHERE item_type = p_item_type
3434: AND item_key = p_item_key
3435: AND process_activity = p_actid;
3436:
3437: p_result := wf_engine.eng_deferred;
3438: */
3439: p_result :='COMPLETE:N';
3440: END IF;
3441:
3509:
3510: ------------------------------------------------------------
3511: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3512: ------------------------------------------------------------
3513: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3514: p_item_key,
3515: 'EXPENSE_REPORT_ID');
3516:
3517: ------------------------------------------------------------
3516:
3517: ------------------------------------------------------------
3518: l_debug_info := 'Retrieve Currency Item Attribute';
3519: ------------------------------------------------------------
3520: l_currency := WF_ENGINE.GetItemAttrText(p_item_type,
3521: p_item_key,
3522: 'CURRENCY');
3523:
3524: -------------------------------------------------------
3523:
3524: -------------------------------------------------------
3525: l_debug_info := 'Retrieve Orignal Expense Report Total';
3526: -------------------------------------------------------
3527: l_orig_exp_report_amt := WF_ENGINE.GetItemAttrNumber(p_item_type,
3528: p_item_key,
3529: 'TOTAL');
3530:
3531: ----------------------------------------------------
3530:
3531: ----------------------------------------------------
3532: l_debug_info := 'Retrieve Currency Item Attribute';
3533: ----------------------------------------------------
3534: l_reimb_currency := WF_ENGINE.GetItemAttrText(p_item_type,
3535: p_item_key,
3536: 'CURRENCY');
3537:
3538: /* jrautiai ADJ Fix Start */
3543:
3544: ---------------------------------------------------------
3545: l_debug_info := 'Retrieve Payment Due From';
3546: ---------------------------------------------------------
3547: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
3548:
3549: IF (NOT AP_WEB_DB_EXPLINE_PKG.GetNumCCLinesIncluded(l_report_header_id,
3550: l_crd_card_count)) THEN
3551: l_crd_card_count := 0;
3558: FND_MESSAGE.SET_NAME('SQLAP','OIE_WF_ADJ_REIMBURSEMENT_INST1');
3559: l_mess := FND_MESSAGE.GET;
3560: END IF;
3561:
3562: WF_ENGINE.SetItemAttrText(p_item_type,
3563: p_item_key,
3564: 'INSTRUCTION',
3565: l_mess);
3566:
3566:
3567: FND_MESSAGE.SET_NAME('SQLAP','OIE_WF_ADJUSTMENT_NOTE');
3568: l_mess := FND_MESSAGE.GET;
3569:
3570: WF_ENGINE.SetItemAttrText(p_item_type,
3571: p_item_key,
3572: 'WF_NOTE',
3573: l_mess);
3574: /* jrautiai ADJ Fix End */
3642: -----------------------------------------------------
3643: l_debug_info := 'Set Adjustment Line Item Attribute';
3644: -----------------------------------------------------
3645:
3646: WF_ENGINE.SetItemAttrText(p_item_type,
3647: p_item_key,
3648: 'ADJ_LINE' || to_char(i),
3649: l_adjustment_line);
3650:
3662:
3663: ----------------------------------------------------------
3664: l_debug_info := 'Set Item Attribute Line_Info_Body1';
3665: ---------------------------------------------------------
3666: WF_ENGINE.SetItemAttrText(p_item_type,
3667: p_item_key,
3668: 'LINE_INFO_BODY',
3669: 'plsql:AP_WEB_EXPENSE_WF.generateAdjustmentInfo/'|| p_item_type || ':' || p_item_key || ':ADJUSTMENT');
3670:
3682:
3683: ---------------------------------------------------------
3684: l_debug_info := 'Set Item Attribute Line_Info_Body1';
3685: ---------------------------------------------------------
3686: WF_ENGINE.SetItemAttrText(p_item_type,
3687: p_item_key,
3688: 'LINE_INFO_BODY',
3689: l_adj_info_body);
3690: IF (C_WF_Version >= C_CreditLineVersion) THEN
3690: IF (C_WF_Version >= C_CreditLineVersion) THEN
3691: ---------------------------------------------------------
3692: l_debug_info := 'Set Item Attribute Credit_Line_Info_Body1';
3693: ---------------------------------------------------------
3694: WF_ENGINE.SetItemAttrText(p_item_type,
3695: p_item_key,
3696: 'CREDIT_LINE_INFO_BODY',
3697: '');
3698: END IF;
3702: /* jrautiai ADJ Fix Start */
3703: -----------------------------------------------------
3704: l_debug_info := 'Set New Adjusted Total Item Attribute';
3705: -----------------------------------------------------
3706: WF_ENGINE.SetItemAttrNumber(p_item_type,
3707: p_item_key,
3708: 'TOTAL',
3709: l_total);
3710:
3710:
3711: -----------------------------------------------------------------
3712: l_debug_info := 'Set New Adjusted Display_Total Item Attribute';
3713: -----------------------------------------------------------------
3714: WF_ENGINE.SetItemAttrText(p_item_type,
3715: p_item_key,
3716: 'DISPLAY_TOTAL',
3717: to_char(l_total,FND_CURRENCY.Get_Format_Mask(l_currency,22)) || ' ' || l_currency);
3718:
3721: IF (C_WF_Version >= C_CreditLineVersion) THEN
3722: -----------------------------------------------------
3723: l_debug_info := 'Set New Credit Total Item Attribute';
3724: -----------------------------------------------------
3725: WF_ENGINE.SetItemAttrNumber(p_item_type,
3726: p_item_key,
3727: 'NEG_CREDIT_TOTAL',
3728: 0);
3729:
3729:
3730: -----------------------------------------------------------------
3731: l_debug_info := 'Set New Credit_Display_Total Item Attribute';
3732: -----------------------------------------------------------------
3733: WF_ENGINE.SetItemAttrText(p_item_type,
3734: p_item_key,
3735: 'NEG_CREDIT_DISPLAY_TOTAL',
3736: to_char(0,FND_CURRENCY.Get_Format_Mask(l_currency,22)));
3737:
3738:
3739: -----------------------------------------------------
3740: l_debug_info := 'Set New New_Expense_Total Item Attribute';
3741: -----------------------------------------------------
3742: WF_ENGINE.SetItemAttrNumber(p_item_type,
3743: p_item_key,
3744: 'POS_NEW_EXPENSE_TOTAL',
3745: 0);
3746:
3746:
3747: -----------------------------------------------------------------
3748: l_debug_info := 'Set New New_Expense_Display_Total Item Attribute';
3749: -----------------------------------------------------------------
3750: WF_ENGINE.SetItemAttrText(p_item_type,
3751: p_item_key,
3752: 'POS_NEW_EXPENSE_DISPLAY_TOTAL',
3753: to_char(0,FND_CURRENCY.Get_Format_Mask(l_currency,22)));
3754:
3797:
3798: ------------------------------------------------------------
3799: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3800: ------------------------------------------------------------
3801: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3802: p_item_key,
3803: 'EXPENSE_REPORT_ID');
3804:
3805: ----------------------------------------------------------------------
3854:
3855: ------------------------------------------------------------
3856: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3857: ------------------------------------------------------------
3858: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3859: p_item_key,
3860: 'EXPENSE_REPORT_ID');
3861:
3862:
3917:
3918: ------------------------------------------------------------
3919: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3920: ------------------------------------------------------------
3921: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3922: p_item_key,
3923: 'EXPENSE_REPORT_ID');
3924:
3925: ---------------------------------------------------------
3924:
3925: ---------------------------------------------------------
3926: l_debug_info := 'Retrieve Payment Due From System Option';
3927: ---------------------------------------------------------
3928: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
3929:
3930: ------------------------------------------
3931: l_debug_info := 'Call CustomDataTransfer';
3932: ------------------------------------------
4029:
4030: ------------------------------------------------------------
4031: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
4032: ------------------------------------------------------------
4033: l_exp_report_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
4034: p_item_key,
4035: 'EXPENSE_REPORT_ID');
4036:
4037: ------------------------------------------------------------
4036:
4037: ------------------------------------------------------------
4038: l_debug_info := 'Retrieve Currency Item Attribute';
4039: ------------------------------------------------------------
4040: l_currency := WF_ENGINE.GetItemAttrText(p_item_type,
4041: p_item_key,
4042: 'CURRENCY');
4043:
4044:
4050: -----------------------------------------------------
4051: l_debug_info := 'Clear Adjustment Line Item Attributes';
4052: -----------------------------------------------------
4053: FOR i IN 1..10 LOOP
4054: WF_ENGINE.SetItemAttrText(p_item_type,
4055: p_item_key,
4056: 'ADJ_LINE' || to_char(i),
4057: '');
4058:
4084: -----------------------------------------------------
4085: l_debug_info := 'Reuse Adjustment Line Item Attribute';
4086: -----------------------------------------------------
4087: IF (C_WF_VERSION < AP_WEB_EXPENSE_WF.C_NoMultiLineVersion) THEN
4088: WF_ENGINE.SetItemAttrText(p_item_type,
4089: p_item_key,
4090: 'ADJ_LINE' || to_char(i),
4091: l_shortpay_line);
4092: END IF;
4115: END LOOP;
4116: ---------------------------------------------------------
4117: l_debug_info := 'Set Item Attribute Line_Info_Body1';
4118: ---------------------------------------------------------
4119: WF_ENGINE.SetItemAttrText(p_item_type,
4120: p_item_key,
4121: 'LINE_INFO_BODY',
4122: l_shortpay_info_body);
4123: ELSE
4124: ---------------------------------------------------------
4125: l_debug_info := 'Set Item Attribute Line_Info_Body1';
4126: ---------------------------------------------------------
4127: -- jrautiai ADJ Fix, Need to be able to distinguish between policy violation and missing receipts notifications.
4128: WF_ENGINE.SetItemAttrText(p_item_type,
4129: p_item_key,
4130: 'LINE_INFO_BODY',
4131: 'plsql:AP_WEB_EXPENSE_WF.generateAdjustmentInfo/'||p_item_type||':'||p_item_key||':'||NVL(p_notification_type,'SHORTPAY'));
4132:
4136: C_WF_VERSION < AP_WEB_EXPENSE_WF.C_NoMultiLineVersion) THEN
4137: ---------------------------------------------------------
4138: l_debug_info := 'Set Item Attribute Credit_Line_Info_Body1';
4139: ---------------------------------------------------------
4140: WF_ENGINE.SetItemAttrText(p_item_type,
4141: p_item_key,
4142: 'CREDIT_LINE_INFO_BODY',
4143: '');
4144: END IF;
4171: IF (p_funmode = 'RUN') THEN
4172:
4173: -- Bug 14134416: To handle 'MISSING_RECEIPT_TYPE' error for the upgraded expense reports
4174: BEGIN
4175: l_receipt_type := WF_ENGINE.GetActivityAttrText(p_item_type,
4176: p_item_key,
4177: p_actid,
4178: 'MISSING_RECEIPT_TYPE');
4179: EXCEPTION
4187: IF (l_receipt_type = 'ORIGINAL') THEN
4188: ------------------------------------------------------------
4189: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
4190: ------------------------------------------------------------
4191: l_no_receipts_shortpay_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
4192: p_item_key,
4193: 'NO_RECEIPTS_SHORTPAY_ID');
4194: IF (l_no_receipts_shortpay_id IS NOT NULL) THEN
4195: p_result := 'COMPLETE:Y';
4196: ELSE
4197: p_result := 'COMPLETE:N';
4198: END IF;
4199: ELSIF (l_receipt_type = 'IMAGE') THEN
4200: l_no_receipts_shortpay_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
4201: p_item_key,
4202: 'NO_IMG_RECEIPTS_SHORTPAY_ID');
4203: IF (l_no_receipts_shortpay_id IS NOT NULL) THEN
4204: p_result := 'COMPLETE:Y';
4205: ELSE
4206: p_result := 'COMPLETE:N';
4207: END IF;
4208: ELSIF (l_receipt_type = 'BOTH') THEN
4209: l_no_receipts_shortpay_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
4210: p_item_key,
4211: 'NO_BOTH_RECEIPTS_SHORTPAY_ID');
4212: IF (l_no_receipts_shortpay_id IS NOT NULL) THEN
4213: p_result := 'COMPLETE:Y';
4257:
4258: ------------------------------------------------------------
4259: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
4260: ------------------------------------------------------------
4261: l_policy_shortpay_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
4262: p_item_key,
4263: 'POLICY_SHORTPAY_ID');
4264: IF (l_policy_shortpay_id IS NOT NULL) THEN
4265: p_result := 'COMPLETE:Y';
4564:
4565: ------------------------------------------------------------
4566: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
4567: ------------------------------------------------------------
4568: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
4569: p_item_key,
4570: 'EXPENSE_REPORT_ID');
4571:
4572: ------------------------------------------------------------
4571:
4572: ------------------------------------------------------------
4573: l_debug_info := 'Retrieve Document Number Item Attribute';
4574: ------------------------------------------------------------
4575: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
4576: p_item_key,
4577: 'DOCUMENT_NUMBER');
4578:
4579: -----------------------------------------------------
4578:
4579: -----------------------------------------------------
4580: l_debug_info := 'Retrieve Currency Item Attribute';
4581: -----------------------------------------------------
4582: l_currency := WF_ENGINE.GetItemAttrText(p_item_type,
4583: p_item_key,
4584: 'CURRENCY');
4585:
4586:
4583: p_item_key,
4584: 'CURRENCY');
4585:
4586:
4587: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
4588:
4589: /* jrautiai ADJ Fix Start */
4590: -----------------------------------------------------------------
4591: l_debug_info := 'Get number of lines not adhereing to policies.';
4671:
4672: ------------------------------------------------------------
4673: l_debug_info := 'Set the New_Expense_Report_ID Item Attribute';
4674: ------------------------------------------------------------
4675: WF_ENGINE.SetItemAttrNumber(p_item_type,
4676: p_item_key,
4677: 'POLICY_SHORTPAY_ID',
4678: l_policy_shortpay_id);
4679:
4676: p_item_key,
4677: 'POLICY_SHORTPAY_ID',
4678: l_policy_shortpay_id);
4679:
4680: WF_ENGINE.SetItemAttrText(p_item_type,
4681: p_item_key,
4682: 'POLICY_SHORTPAY_DOC_NUM',
4683: l_policy_shortpay_doc_num);
4684:
4681: p_item_key,
4682: 'POLICY_SHORTPAY_DOC_NUM',
4683: l_policy_shortpay_doc_num);
4684:
4685: WF_ENGINE.SetItemAttrNumber(p_item_type,
4686: p_item_key,
4687: 'POLICY_SHORTPAY_TOTAL',
4688: l_policy_shortpay_total);
4689:
4738: NULL;
4739: END IF;
4740: /* jrautiai ADJ Fix End */
4741:
4742: WF_ENGINE.SetItemAttrNumber(p_item_type,
4743: p_item_key,
4744: 'NO_RECEIPTS_SHORTPAY_ID',
4745: l_no_receipts_shortpay_id);
4746:
4743: p_item_key,
4744: 'NO_RECEIPTS_SHORTPAY_ID',
4745: l_no_receipts_shortpay_id);
4746:
4747: WF_ENGINE.SetItemAttrText(p_item_type,
4748: p_item_key,
4749: 'NO_RECEIPTS_SHORTPAY_DOC_NUM',
4750: l_no_receipts_shortpay_doc_num);
4751:
4748: p_item_key,
4749: 'NO_RECEIPTS_SHORTPAY_DOC_NUM',
4750: l_no_receipts_shortpay_doc_num);
4751:
4752: WF_ENGINE.SetItemAttrNumber(p_item_type,
4753: p_item_key,
4754: 'NO_RECEIPTS_SHORTPAY_TOTAL',
4755: l_no_receipts_shortpay_total);
4756:
4809: NULL;
4810: END IF;
4811: /* jrautiai ADJ Fix End */
4812:
4813: WF_ENGINE.SetItemAttrNumber(p_item_type,
4814: p_item_key,
4815: 'NO_IMG_RECEIPTS_SHORTPAY_ID',
4816: l_no_img_receipts_shortpay_id);
4817:
4814: p_item_key,
4815: 'NO_IMG_RECEIPTS_SHORTPAY_ID',
4816: l_no_img_receipts_shortpay_id);
4817:
4818: WF_ENGINE.SetItemAttrText(p_item_type,
4819: p_item_key,
4820: 'NO_IMG_RECPT_SHORTPAY_DOC_NUM',
4821: l_no_receipts_shortpay_doc_num);
4822:
4819: p_item_key,
4820: 'NO_IMG_RECPT_SHORTPAY_DOC_NUM',
4821: l_no_receipts_shortpay_doc_num);
4822:
4823: WF_ENGINE.SetItemAttrNumber(p_item_type,
4824: p_item_key,
4825: 'NO_IMG_RECPT_SHORTPAY_TOTAL',
4826: l_no_receipts_shortpay_total);
4827:
4871: NULL;
4872: END IF;
4873: /* jrautiai ADJ Fix End */
4874:
4875: WF_ENGINE.SetItemAttrNumber(p_item_type,
4876: p_item_key,
4877: 'NO_BOTH_RECEIPTS_SHORTPAY_ID',
4878: l_no_both_receipts_shortpay_id);
4879:
4876: p_item_key,
4877: 'NO_BOTH_RECEIPTS_SHORTPAY_ID',
4878: l_no_both_receipts_shortpay_id);
4879:
4880: WF_ENGINE.SetItemAttrText(p_item_type,
4881: p_item_key,
4882: 'NO_BOTH_RECPT_SHORTPAY_DOC_NUM',
4883: l_no_receipts_shortpay_doc_num);
4884:
4881: p_item_key,
4882: 'NO_BOTH_RECPT_SHORTPAY_DOC_NUM',
4883: l_no_receipts_shortpay_doc_num);
4884:
4885: WF_ENGINE.SetItemAttrNumber(p_item_type,
4886: p_item_key,
4887: 'NO_BOTH_RECPT_SHORTPAY_TOTAL',
4888: l_no_receipts_shortpay_total);
4889:
4991:
4992: ----------------------------------------------------------------
4993: l_debug_info := 'Retrive the Payment Due From Profile Option';
4994: ----------------------------------------------------------------
4995: l_payment_due := WF_ENGINE.GetItemAttrText(l_item_type,
4996: l_item_key,'PAYMENT_DUE_FROM');
4997:
4998: ---------------------------------------------------------------------
4999: l_debug_info := 'Update manager rejected/returned credit card transactions that
5068: l_debug_info := 'Unset Adjustment Line Item Attribute';
5069: -----------------------------------------------------
5070: FOR I IN 1..C_NUM_ADJ_LINE_ATTRS LOOP
5071:
5072: WF_ENGINE.SetItemAttrText(p_item_type,
5073: p_item_key,
5074: 'ADJ_LINE' || to_char(I),
5075: '');
5076:
5075: '');
5076:
5077: END LOOP;
5078: ELSE
5079: WF_ENGINE.SetItemAttrText(p_item_type,
5080: p_item_key,
5081: 'LINE_INFO_BODY',
5082: 'plsql:AP_WEB_EXPENSE_WF.resetLineInfo/');
5083: END IF;
5084:
5085: ----------------------------------------------------------------
5086: l_debug_info := 'Unset error message';
5087: -----------------------------------------------------------------
5088: WF_ENGINE.SetItemAttrText(p_item_type,
5089: p_item_key,
5090: 'ERROR_MESSAGE',
5091: '');
5092:
5094:
5095: ----------------------------------------------------------------------
5096: l_debug_info := 'Unset Find Approver Count';
5097: ----------------------------------------------------------------------
5098: WF_ENGINE.SetItemAttrNumber(p_item_type,
5099: p_item_key,
5100: 'FIND_APPROVER_COUNT',
5101: 0);
5102:
5102:
5103: ----------------------------------------------------------------------
5104: l_debug_info := 'Unset Forward_From Item Attributes With Approver Info';
5105: ----------------------------------------------------------------------
5106: WF_ENGINE.SetItemAttrText(p_item_type,
5107: p_item_key,
5108: 'FORWARD_FROM_DISPLAY_NAME',
5109: '');
5110:
5107: p_item_key,
5108: 'FORWARD_FROM_DISPLAY_NAME',
5109: '');
5110:
5111: WF_ENGINE.SetItemAttrNUMBER(p_item_type,
5112: p_item_key,
5113: 'FORWARD_FROM_ID',
5114: '');
5115:
5112: p_item_key,
5113: 'FORWARD_FROM_ID',
5114: '');
5115:
5116: WF_ENGINE.SetItemAttrText(p_item_type,
5117: p_item_key,
5118: 'FORWARD_FROM_NAME',
5119: '');
5120:
5123: l_debug_info := 'Set Line_Info Item Attribute with formatted expense line';
5124: ---------------------------------------------------------------------------
5125: FOR I IN 1..200 LOOP
5126:
5127: WF_ENGINE.SetItemAttrText(p_item_type,
5128: p_item_key,
5129: 'LINE_INFO' || TO_CHAR(I),
5130: '');
5131:
5132: END LOOP;
5133: ---------------------------------------------------------
5134: l_debug_info := 'Unset Item Attribute Line_Info_Body1';
5135: ---------------------------------------------------------
5136: WF_ENGINE.SetItemAttrText(p_item_type,
5137: p_item_key,
5138: 'LINE_INFO_BODY',
5139: '');
5140:
5143: --------------------------------------------------------------------------
5144: l_debug_info := 'Reset
5145: Manager_Approval_Send_Count Item Attribute and return Y';
5146: --------------------------------------------------------------------------
5147: WF_ENGINE.SetItemAttrNumber(p_item_type,
5148: p_item_key,
5149: 'MANAGER_APPROVAL_SEND_COUNT',
5150: 0);
5151:
5151:
5152: ---------------------------------------------------------------
5153: l_debug_info := 'Unset Manager_Display_Name Info Item Attribute';
5154: ---------------------------------------------------------------
5155: WF_ENGINE.SetItemAttrText(p_item_type,
5156: p_item_key,
5157: 'MANAGER_DISPLAY_NAME',
5158: '');
5159:
5159:
5160: --------------------------------------------------------
5161: l_debug_info := 'Unset Manager_ID Info Item Attribute';
5162: --------------------------------------------------------
5163: WF_ENGINE.SetItemAttrText(p_item_type,
5164: p_item_key,
5165: 'MANAGER_ID',
5166: '');
5167:
5167:
5168: --------------------------------------------------------
5169: l_debug_info := 'Unset Manager_Name Info Item Attribute';
5170: --------------------------------------------------------
5171: WF_ENGINE.SetItemAttrText(p_item_type,
5172: p_item_key,
5173: 'MANAGER_NAME',
5174: '');
5175:
5176:
5177: -----------------------------------------------------------------
5178: l_debug_info := 'Unset Missing Receipt Total';
5179: -----------------------------------------------------------------
5180: WF_ENGINE.SetItemAttrText(p_item_type,
5181: p_item_key,
5182: 'MISSING_RECEIPT_TOTAL',
5183: '');
5184:
5184:
5185: ---------------------------------------------------------------
5186: l_debug_info := 'Reset rejection reason';
5187: ---------------------------------------------------------------
5188: WF_ENGINE.SetItemAttrText(p_item_type,
5189: p_item_key,
5190: 'WF_NOTE',
5191: '');
5192:
5192:
5193: ---------------------------------------------------------------
5194: l_debug_info := 'Reset violation note';
5195: ---------------------------------------------------------------
5196: WF_ENGINE.SetItemAttrText(p_item_type,
5197: p_item_key,
5198: 'VIOLATION_NOTE',
5199: '');
5200:
5200:
5201: ---------------------------------------------------------------
5202: l_debug_info := 'Reset Employee violation note';
5203: ---------------------------------------------------------------
5204: WF_ENGINE.SetItemAttrText(p_item_type,
5205: p_item_key,
5206: 'EMP_VIOLATION_NOTE',
5207: '');
5208:
5208:
5209: ---------------------------------------------------------------
5210: l_debug_info := 'Reset violation total';
5211: ---------------------------------------------------------------
5212: WF_ENGINE.SetItemAttrText(p_item_type,
5213: p_item_key,
5214: 'VIOLATIONS_TOTAL',
5215: '');
5216:
5218: ---------------------------------------------------------------
5219: l_debug_info := 'Reset AME Approver Response';
5220: ---------------------------------------------------------------
5221: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_R120_Version) THEN
5222: WF_ENGINE.SetItemAttrText(p_item_type,
5223: p_item_key,
5224: 'AME_APPROVER_RESPONSE',
5225: '');
5226: WF_ENGINE.SetItemAttrText(p_item_type,
5222: WF_ENGINE.SetItemAttrText(p_item_type,
5223: p_item_key,
5224: 'AME_APPROVER_RESPONSE',
5225: '');
5226: WF_ENGINE.SetItemAttrText(p_item_type,
5227: p_item_key,
5228: 'AME_REJECTED_CHILD_ITEM_KEY',
5229: '');
5230: begin
5227: p_item_key,
5228: 'AME_REJECTED_CHILD_ITEM_KEY',
5229: '');
5230: begin
5231: WF_ENGINE.SetItemAttrText(p_item_type,
5232: p_item_key,
5233: 'AME_APPROVED_CHILD_ITEM_KEY',
5234: '');
5235: exception
5258: ELSE
5259: --------------------------------------------------------
5260: l_debug_info := 'Set Approver_ID Info Item Attribute';
5261: --------------------------------------------------------
5262: WF_ENGINE.SetItemAttrText(p_item_type,
5263: p_item_key,
5264: 'APPROVER_ID',
5265: null);
5266:
5266:
5267: --------------------------------------------------------
5268: l_debug_info := 'Set Approver_Name Info Item Attribute';
5269: --------------------------------------------------------
5270: WF_ENGINE.SetItemAttrText(p_item_type,
5271: p_item_key,
5272: 'APPROVER_NAME',
5273: '');
5274:
5274:
5275: ----------------------------------------------------------------
5276: l_debug_info := 'Set Approver_Display_Name Info Item Attribute';
5277: ----------------------------------------------------------------
5278: WF_ENGINE.SetItemAttrText(p_item_type,
5279: p_item_key,
5280: 'APPROVER_DISPLAY_NAME',
5281: '');
5282: END IF;
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');
5325:
5326: l_debug_info := 'Update for Credit Card Integration';
5327: IF (l_payment_due = C_CompanyPay) THEN
5381:
5382: ---------------------------------------------
5383: l_debug_info := 'Start AMEAbortRequestApprovals';
5384: ---------------------------------------------
5385: l_childItemKeySeq := WF_ENGINE.GetItemAttrNumber(l_itemtype,
5386: l_itemkey,
5387: 'AME_CHILD_ITEM_KEY_SEQ');
5388:
5389: l_AmeRejectedChildItemKey := WF_ENGINE.GetItemAttrText(l_itemtype,
5385: l_childItemKeySeq := WF_ENGINE.GetItemAttrNumber(l_itemtype,
5386: l_itemkey,
5387: 'AME_CHILD_ITEM_KEY_SEQ');
5388:
5389: l_AmeRejectedChildItemKey := WF_ENGINE.GetItemAttrText(l_itemtype,
5390: l_itemkey,
5391: 'AME_REJECTED_CHILD_ITEM_KEY');
5392:
5393: -- bug 6686996
5391: 'AME_REJECTED_CHILD_ITEM_KEY');
5392:
5393: -- bug 6686996
5394: begin
5395: l_AmeApprovedChildItemKey := WF_ENGINE.GetItemAttrText(l_itemtype,
5396: l_itemkey,
5397: 'AME_APPROVED_CHILD_ITEM_KEY');
5398: exception
5399: when others then
5462: if l_wf_active then
5463: --------------------------------------------------------
5464: l_debug_info := 'Abort Child Process' || l_childItemKey;
5465: --------------------------------------------------------
5466: wf_engine.AbortProcess (itemtype => l_itemtype,
5467: itemkey => l_childItemKey,
5468: cascade => TRUE);
5469: end if;
5470:
5517:
5518: ------------------------------------------------------------
5519: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
5520: ------------------------------------------------------------
5521: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5522: p_item_key,
5523: 'EXPENSE_REPORT_ID');
5524:
5525: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
5521: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5522: p_item_key,
5523: 'EXPENSE_REPORT_ID');
5524:
5525: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
5526:
5527: ------------------------------------------------------------
5528: l_debug_info := 'Set reject status in report header';
5529: ------------------------------------------------------------
5540: p_item_type);*/
5541:
5542: -- Bug 3560082 - Comment the call to SetRejectStatusInAME and add the call
5543: -- AME_API.clearAllApprovals
5544: l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
5545: p_item_key,
5546: 'AME_ENABLED');
5547: IF (l_AMEEnabled = 'Y') THEN
5548: --Bug 4425821: Uptake AME parallel approvers
5582: --5060928: reset the Apply Advnaces only if OIE:Enable Advances = "Payables"
5583:
5584: begin
5585:
5586: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5587: p_item_key,
5588: 'RESPONSIBILITY_ID');
5589:
5590: exception
5609: l_debug_info := 'Set which process to start from';
5610: ------------------------------------------------------------
5611: -- Indicate which process to start from
5612: -- (skip ServerValidate, Manager Approval)
5613: WF_ENGINE.SetItemAttrText(p_item_type,
5614: p_item_key,
5615: 'START_FROM_PROCESS',
5616: C_START_FROM_SERVER_VALIDATION);
5617:
5675:
5676: ------------------------------------------------------------
5677: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
5678: ------------------------------------------------------------
5679: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5680: p_item_key,
5681: 'EXPENSE_REPORT_ID');
5682:
5683: DeleteExpReportFromAPTables(l_report_header_id);
5725:
5726: ------------------------------------------------------------
5727: l_debug_info := 'Retrieve New Expense_Report_ID Item Attribute';
5728: ------------------------------------------------------------
5729: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5730: p_item_key,
5731: 'NEW_EXPENSE_REPORT_ID');
5732:
5733: --------------------------------------------------------------
5732:
5733: --------------------------------------------------------------
5734: l_debug_info := 'Retrieve New Document Number Item Attribute';
5735: ---------------------------------------------------------------
5736: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
5737: p_item_key,
5738: 'NEW_DOCUMENT_NUMBER');
5739:
5740:
5740:
5741: ----------------------------------------------------------------
5742: l_debug_info := 'Retrieve Employee Cost Center Item Attribute';
5743: ----------------------------------------------------------------
5744: l_emp_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
5745: p_item_key,
5746: 'EMP_COST_CENTER');
5747:
5748: ----------------------------------------------------------------
5747:
5748: ----------------------------------------------------------------
5749: l_debug_info := 'Retrieve Document Cost Center Item Attribute';
5750: ----------------------------------------------------------------
5751: l_doc_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
5752: p_item_key,
5753: 'DOC_COST_CENTER');
5754:
5755: -----------------------------------------------------
5754:
5755: -----------------------------------------------------
5756: l_debug_info := 'Retrieve New Total Item Attribute';
5757: -----------------------------------------------------
5758: l_total := WF_ENGINE.GetItemAttrNumber(p_item_type,
5759: p_item_key,
5760: 'NEW_TOTAL');
5761:
5762: -----------------------------------------------------
5761:
5762: -----------------------------------------------------
5763: l_debug_info := 'Retrieve Currency Item Attribute';
5764: -----------------------------------------------------
5765: l_currency := WF_ENGINE.GetItemAttrText(p_item_type,
5766: p_item_key,
5767: 'CURRENCY');
5768:
5769: --------------------------------
5774:
5775: -------------------------------------------------------
5776: l_debug_info := 'Retrieve Preparer_ID Item Attribute';
5777: -------------------------------------------------------
5778: l_preparer_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5779: p_item_key,
5780: 'PREPARER_ID');
5781:
5782: -------------------------------------------------------
5781:
5782: -------------------------------------------------------
5783: l_debug_info := 'Retrieve Employee_ID Item Attribute';
5784: -------------------------------------------------------
5785: l_employee_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5786: p_item_key,
5787: 'EMPLOYEE_ID');
5788:
5789: -------------------------------------------------------
5788:
5789: -------------------------------------------------------
5790: l_debug_info := 'Retrieve CC Payment Due From Item Attribute';
5791: -------------------------------------------------------
5792: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,
5793: p_item_key,
5794: 'PAYMENT_DUE_FROM');
5795:
5796: -------------------------------------------------
5795:
5796: -------------------------------------------------
5797: l_debug_info := 'Create AP Approval Subprocess';
5798: -------------------------------------------------
5799: WF_ENGINE.CreateProcess(p_item_type,
5800: l_item_key,
5801: 'AP_EXPENSE_REPORT_PROCESS');
5802:
5803: --------------------------------------------------------
5802:
5803: --------------------------------------------------------
5804: l_debug_info := 'Set Expense_Report_ID Item Attribute';
5805: --------------------------------------------------------
5806: WF_ENGINE.SetItemAttrNumber(p_item_type,
5807: l_item_key,
5808: 'EXPENSE_REPORT_ID',
5809: l_report_header_id);
5810:
5810:
5811: ------------------------------------------------------
5812: l_debug_info := 'Set Document_Number Item Attribute';
5813: ------------------------------------------------------
5814: WF_ENGINE.SetItemAttrText(p_item_type,
5815: l_item_key,
5816: 'DOCUMENT_NUMBER',
5817: l_document_number);
5818:
5823: l_preparer_id,
5824: l_preparer_name,
5825: l_preparer_display_name);
5826:
5827: WF_ENGINE.SetItemAttrText(p_item_type,
5828: l_item_key,
5829: 'PREPARER_ID',
5830: l_preparer_id);
5831:
5831:
5832: ----------------------------------------------------------
5833: l_debug_info := 'Set Preparer Name Info Item Attributes';
5834: ----------------------------------------------------------
5835: WF_ENGINE.SetItemAttrText(p_item_type,
5836: l_item_key,
5837: 'PREPARER_NAME',
5838: l_preparer_name);
5839:
5836: l_item_key,
5837: 'PREPARER_NAME',
5838: l_preparer_name);
5839:
5840: WF_ENGINE.SetItemAttrText(p_item_type,
5841: l_item_key,
5842: 'PREPARER_DISPLAY_NAME',
5843: l_preparer_display_name);
5844:
5849: l_employee_id,
5850: l_employee_name,
5851: l_employee_display_name);
5852:
5853: WF_ENGINE.SetItemAttrText(p_item_type,
5854: l_item_key,
5855: 'EMPLOYEE_ID',
5856: l_employee_id);
5857:
5857:
5858: ----------------------------------------------------------
5859: l_debug_info := 'Set Employee Name Info Item Attributes';
5860: ----------------------------------------------------------
5861: WF_ENGINE.SetItemAttrText(p_item_type,
5862: l_item_key,
5863: 'EMPLOYEE_NAME',
5864: l_employee_name);
5865:
5862: l_item_key,
5863: 'EMPLOYEE_NAME',
5864: l_employee_name);
5865:
5866: WF_ENGINE.SetItemAttrText(p_item_type,
5867: l_item_key,
5868: 'EMPLOYEE_DISPLAY_NAME',
5869: l_employee_display_name);
5870:
5870:
5871: -------------------------------------------------
5872: l_debug_info := 'Set Total Item Attribute';
5873: -------------------------------------------------
5874: WF_ENGINE.SetItemAttrNumber(p_item_type,
5875: l_item_key,
5876: 'TOTAL',
5877: l_total);
5878:
5878:
5879: -----------------------------------------------------------------
5880: l_debug_info := 'Set New Adjusted Display_Total Item Attribute';
5881: -----------------------------------------------------------------
5882: WF_ENGINE.SetItemAttrText(p_item_type,
5883: l_item_key,
5884: 'DISPLAY_TOTAL',
5885: to_char(l_total,FND_CURRENCY.Get_Format_Mask(l_currency,22)) || ' ' || l_currency);
5886:
5886:
5887: ----------------------------------------------
5888: l_debug_info := 'Set Currency Item Attribute';
5889: -----------------------------------------------
5890: WF_ENGINE.SetItemAttrText(p_item_type,
5891: l_item_key,
5892: 'CURRENCY',
5893: l_currency);
5894:
5895:
5896: -----------------------------------------------------------
5897: l_debug_info := 'Set Document Cost Center Item Attribute';
5898: -----------------------------------------------------------
5899: WF_ENGINE.SetItemAttrText(p_item_type,
5900: l_item_key,
5901: 'DOC_COST_CENTER',
5902: l_doc_cost_center);
5903:
5903:
5904: -----------------------------------------------------------
5905: l_debug_info := 'Set Employee Cost Center Item Attribute';
5906: -----------------------------------------------------------
5907: WF_ENGINE.SetItemAttrText(p_item_type,
5908: l_item_key,
5909: 'EMP_COST_CENTER',
5910: l_emp_cost_center);
5911:
5911:
5912: --------------------------------------------------------------
5913: l_debug_info := 'Set CC Payment Due From Item Attribute';
5914: --------------------------------------------------------------
5915: WF_ENGINE.SetItemAttrText(p_item_type,
5916: l_item_key,
5917: 'PAYMENT_DUE_FROM',
5918: l_payment_due);
5919:
5919:
5920: -----------------------------------------------------------
5921: l_debug_info := 'Skip server validation and manager approval';
5922: -----------------------------------------------------------
5923: WF_ENGINE.SetItemAttrText(p_item_type,
5924: l_item_key,
5925: 'START_FROM_PROCESS',
5926: C_START_FROM_AP_APPROVAL);
5927:
5927:
5928: -------------------------------------------------
5929: l_debug_info := 'Start AP Approval Sub Process';
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:
5958:
5959: ----------------------------------------------------------------
5960: l_debug_info := 'Retrieve New_Expense_Report_ID Item Attribute';
5961: ----------------------------------------------------------------
5962: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5963: p_item_key,
5964: 'EXPENSE_REPORT_ID');
5965:
5966:
5997: l_debug_info := 'Set which process to start from';
5998: ------------------------------------------------------------
5999: -- Indicate which process to start from
6000: -- (skip ServerValidate, Manager Approval)
6001: WF_ENGINE.SetItemAttrText(p_item_type,
6002: p_item_key,
6003: 'START_FROM_PROCESS',
6004: C_START_FROM_AP_APPROVAL);
6005:
6033:
6034: ----------------------------------------------------------------
6035: l_debug_info := 'Retrieve New_Expense_Report_ID Item Attribute';
6036: ----------------------------------------------------------------
6037: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6038: p_item_key,
6039: 'EXPENSE_REPORT_ID');
6040:
6041:
6051: l_debug_info := 'Set which process to start from';
6052: ------------------------------------------------------------
6053: -- Indicate which process to start from
6054: -- (skip ServerValidate, Manager Approval)
6055: WF_ENGINE.SetItemAttrText(p_item_type,
6056: p_item_key,
6057: 'START_FROM_PROCESS',
6058: C_START_FROM_MANAGER_APPROVAL);
6059:
6088:
6089: ----------------------------------------------------------------
6090: l_debug_info := 'Retrieve ShortPay_Flag Item Attribute';
6091: ----------------------------------------------------------------
6092: l_orig_expense_report_num := WF_ENGINE.GetItemAttrText(p_item_type,
6093: p_item_key,
6094: 'ORIG_EXPENSE_REPORT_NUM');
6095:
6096: IF (l_orig_expense_report_num IS NOT NULL) THEN
6144:
6145: ------------------------------------------------------------
6146: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
6147: ------------------------------------------------------------
6148: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6149: p_item_key,
6150: 'EXPENSE_REPORT_ID');
6151:
6152: -------------------------------------------------------------------------
6151:
6152: -------------------------------------------------------------------------
6153: l_debug_info := 'Retrieve and create new Document Number Item Attribute';
6154: -------------------------------------------------------------------------
6155: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
6156: p_item_key,
6157: 'DOCUMENT_NUMBER') || '.1';
6158:
6159:
6187:
6188: -------------------------------------------------------------------
6189: l_debug_info := 'Obtain the Vendor ID item attribute';
6190: --------------------------------------------------------------------
6191: l_vendor_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6192: p_item_key,
6193: 'VENDOR_ID');
6194:
6195:
6195:
6196: -------------------------------------------------------------------
6197: l_debug_info := 'Obtain the Vendor Site ID item attribute';
6198: --------------------------------------------------------------------
6199: l_vendor_site_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6200: p_item_key,
6201: 'VENDOR_SITE_ID');
6202:
6203: /* Bug2610233 : Replacing l_ccard_amt check with l_ccard_exists check.
6262:
6263: ------------------------------------------------------------
6264: l_debug_info := 'Retrieve ORG_ID Item Attribute';
6265: ------------------------------------------------------------
6266: l_org_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6267: p_item_key,
6268: 'ORG_ID');
6269:
6270:
6306: -----------------------------------------------------------------------
6307: l_debug_info := 'Set the Bothpay Document Number Item Attribute with
6308: the new expense report document number';
6309: -----------------------------------------------------------------------
6310: WF_ENGINE.SetItemAttrText(p_item_type,
6311: p_item_key,
6312: 'BOTHPAY_DOC_NUM',
6313: l_document_number);
6314:
6351:
6352: ----------------------------------------------------------------
6353: l_debug_info := 'Retrieve Profile Option Payment Due From';
6354: ----------------------------------------------------------------
6355: l_payment := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
6356:
6357: IF (l_payment = C_BothPay) THEN
6358: p_result := 'COMPLETE:Y';
6359: ELSE
6394:
6395: ----------------------------------------------------------------
6396: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
6397: ------------------------------------------------------------
6398: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6399: p_item_key,
6400: 'EXPENSE_REPORT_ID');
6401:
6402: ----------------------------------------------------------------
6410:
6411: ----------------------------------------------------------------
6412: l_debug_info := 'Set the Vendor ID Attribute';
6413: ----------------------------------------------------------------
6414: WF_ENGINE.SetItemAttrNumber(p_item_type,
6415: p_item_key,
6416: 'VENDOR_ID',
6417: l_vendor_id);
6418:
6418:
6419: ----------------------------------------------------------------
6420: l_debug_info := 'Set the Vendor Site ID Attribute';
6421: ----------------------------------------------------------------
6422: WF_ENGINE.SetItemAttrNumber(p_item_type,
6423: p_item_key,
6424: 'VENDOR_SITE_ID',
6425: l_vendor_site_id);
6426: IF (NOT AP_WEB_DB_EXPLINE_PKG.GetNumCCLinesIncluded(l_report_header_id,
6437:
6438: ----------------------------------------------------------------
6439: l_debug_info := 'Set the Error Message Attribute';
6440: ----------------------------------------------------------------
6441: WF_ENGINE.SetItemAttrText(p_item_type,
6442: p_item_key,
6443: 'ERROR_MESSAGE',
6444: FND_MESSAGE.Get);
6445: p_result := 'COMPLETE:N';
6558: ----------------------------------
6559: -- for bug 1652106
6560: begin
6561:
6562: l_n_org_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6563: p_item_key,
6564: 'ORG_ID');
6565: exception
6566: when others then
6565: exception
6566: when others then
6567: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
6568: -- ORG_ID item attribute doesn't exist, need to add it
6569: wf_engine.AddItemAttr(p_item_type, p_item_key, 'ORG_ID');
6570: -- get the org_id from header for old reports
6571: IF (AP_WEB_DB_EXPRPT_PKG.GetOrgIdByReportHeaderId(
6572: to_number(p_item_key),
6573: l_n_org_id) <> TRUE ) THEN
6572: to_number(p_item_key),
6573: l_n_org_id) <> TRUE ) THEN
6574: l_n_org_id := NULL;
6575: END IF;
6576: WF_ENGINE.SetItemAttrNumber(p_item_type,
6577: p_item_key,
6578: 'ORG_ID',
6579: l_n_org_id);
6580: else
6587: ----------------------------------
6588: l_debug_info := 'Get User ID';
6589: ----------------------------------
6590: begin
6591: l_n_user_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6592: p_item_key,
6593: 'USER_ID');
6594: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6595: p_item_key,
6590: begin
6591: l_n_user_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6592: p_item_key,
6593: 'USER_ID');
6594: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6595: p_item_key,
6596: 'RESPONSIBILITY_ID');
6597: l_n_resp_appl_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6598: p_item_key,
6593: 'USER_ID');
6594: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6595: p_item_key,
6596: 'RESPONSIBILITY_ID');
6597: l_n_resp_appl_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6598: p_item_key,
6599: 'APPLICATION_ID');
6600: exception
6601: when others then
6608:
6609: ------------------------------------------------------------
6610: l_debug_info := 'Retrieve New Expense_Report_ID Item Attribute';
6611: ------------------------------------------------------------
6612: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6613: p_item_key,
6614: 'POLICY_SHORTPAY_ID');
6615:
6616: --------------------------------------------------------------
6615:
6616: --------------------------------------------------------------
6617: l_debug_info := 'Retrieve New Document Number Item Attribute';
6618: ---------------------------------------------------------------
6619: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
6620: p_item_key,
6621: 'POLICY_SHORTPAY_DOC_NUM');
6622:
6623: --------------------------------------------------------------
6622:
6623: --------------------------------------------------------------
6624: l_debug_info := 'Retrieve New Document Number Item Attribute';
6625: ---------------------------------------------------------------
6626: l_orig_expense_report_num := WF_ENGINE.GetItemAttrText(p_item_type,
6627: p_item_key,
6628: 'DOCUMENT_NUMBER');
6629:
6630:
6630:
6631: ----------------------------------------------------------------
6632: l_debug_info := 'Retrieve Employee Cost Center Item Attribute';
6633: ----------------------------------------------------------------
6634: l_emp_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
6635: p_item_key,
6636: 'EMP_COST_CENTER');
6637:
6638: ----------------------------------------------------------------
6637:
6638: ----------------------------------------------------------------
6639: l_debug_info := 'Retrieve Payment Due From Item Attribute';
6640: ----------------------------------------------------------------
6641: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
6642:
6643:
6644: ----------------------------------------------------------------
6645: l_debug_info := 'Retrieve Document Cost Center Item Attribute';
6643:
6644: ----------------------------------------------------------------
6645: l_debug_info := 'Retrieve Document Cost Center Item Attribute';
6646: ----------------------------------------------------------------
6647: l_doc_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
6648: p_item_key,
6649: 'DOC_COST_CENTER');
6650:
6651: -----------------------------------------------------
6650:
6651: -----------------------------------------------------
6652: l_debug_info := 'Retrieve New Total Item Attribute';
6653: -----------------------------------------------------
6654: l_total := WF_ENGINE.GetItemAttrNumber(p_item_type,
6655: p_item_key,
6656: 'POLICY_SHORTPAY_TOTAL');
6657:
6658: l_new_exp_total := l_total;
6660:
6661: -----------------------------------------------------
6662: l_debug_info := 'Retrieve Currency Item Attribute';
6663: -----------------------------------------------------
6664: l_currency := WF_ENGINE.GetItemAttrText(p_item_type,
6665: p_item_key,
6666: 'CURRENCY');
6667:
6668: --------------------------------
6673:
6674: -------------------------------------------------------
6675: l_debug_info := 'Retrieve Preparer_ID Item Attribute';
6676: -------------------------------------------------------
6677: l_preparer_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6678: p_item_key,
6679: 'PREPARER_ID');
6680:
6681: -------------------------------------------------------
6680:
6681: -------------------------------------------------------
6682: l_debug_info := 'Retrieve Employee_ID Item Attribute';
6683: -------------------------------------------------------
6684: l_employee_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6685: p_item_key,
6686: 'EMPLOYEE_ID');
6687:
6688: ----------------------------------
6687:
6688: ----------------------------------
6689: l_debug_info := 'Get AME_ENABLED';
6690: ----------------------------------
6691: l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
6692: p_item_key,
6693: 'AME_ENABLED');
6694:
6695: ----------------------------------
6694:
6695: ----------------------------------
6696: l_debug_info := 'Get PURPOSE';
6697: ----------------------------------
6698: l_purpose := WF_ENGINE.GetItemAttrText(p_item_type,
6699: p_item_key,
6700: 'PURPOSE');
6701:
6702: ------------------------------------------------------------
6701:
6702: ------------------------------------------------------------
6703: l_debug_info := 'Get Approver Info';
6704: ------------------------------------------------------------
6705: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6706: p_item_key,
6707: 'APPROVER_ID');
6708:
6709: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
6705: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6706: p_item_key,
6707: 'APPROVER_ID');
6708:
6709: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
6710: p_item_key,
6711: 'APPROVER_NAME');
6712:
6713: l_approver_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
6709: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
6710: p_item_key,
6711: 'APPROVER_NAME');
6712:
6713: l_approver_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
6714: p_item_key,
6715: 'APPROVER_DISPLAY_NAME');
6716:
6717: ----------------------------------
6716:
6717: ----------------------------------
6718: l_debug_info := 'Get SUBMIT_FROM_OIE';
6719: ----------------------------------
6720: l_submit_from_oie := WF_ENGINE.GetItemAttrText(p_item_type,
6721: p_item_key,
6722: 'SUBMIT_FROM_OIE');
6723:
6724: -------------------------------------------------
6723:
6724: -------------------------------------------------
6725: l_debug_info := 'Create Policy Violation Shortpay Subprocess';
6726: -------------------------------------------------
6727: WF_ENGINE.CreateProcess(p_item_type,
6728: l_item_key,
6729: 'POLICY_VIOLATION_PROCESS');
6730:
6731: /* Bug 2351528. Need to set the user_key for easier query */
6728: l_item_key,
6729: 'POLICY_VIOLATION_PROCESS');
6730:
6731: /* Bug 2351528. Need to set the user_key for easier query */
6732: WF_ENGINE.SetItemUserKey(l_item_type,
6733: l_item_key,
6734: l_document_number);
6735:
6736: ----------------------------------------------------
6735:
6736: ----------------------------------------------------
6737: l_debug_info := 'Set SUBMIT_FROM_OIE Item Attribute';
6738: ----------------------------------------------------
6739: WF_ENGINE.SetItemAttrText(l_item_type,
6740: l_item_key,
6741: 'SUBMIT_FROM_OIE',
6742: l_submit_from_oie);
6743:
6743:
6744: ------------------------------------------------------
6745: l_debug_info := 'Set PURPOSE Item Attribute';
6746: ------------------------------------------------------
6747: WF_ENGINE.SetItemAttrText(l_item_type,
6748: l_item_key,
6749: 'PURPOSE',
6750: l_purpose);
6751:
6751:
6752: ------------------------------------------------------
6753: l_debug_info := 'Set Approver Info';
6754: ------------------------------------------------------
6755: WF_ENGINE.SetItemAttrNumber(l_item_type,
6756: l_item_key,
6757: 'APPROVER_ID',
6758: l_approver_id);
6759:
6756: l_item_key,
6757: 'APPROVER_ID',
6758: l_approver_id);
6759:
6760: WF_ENGINE.SetItemAttrText(l_item_type,
6761: l_item_key,
6762: 'APPROVER_NAME',
6763: l_approver_name);
6764:
6761: l_item_key,
6762: 'APPROVER_NAME',
6763: l_approver_name);
6764:
6765: WF_ENGINE.SetItemAttrText(l_item_type,
6766: l_item_key,
6767: 'APPROVER_DISPLAY_NAME',
6768: l_approver_display_name);
6769:
6771: -- Bug 996020
6772: ------------------------------------------------------
6773: l_debug_info := 'Set LINE_TABLE Item Attribute';
6774: ------------------------------------------------------
6775: WF_ENGINE.SetItemAttrText(l_item_type,
6776: l_item_key,
6777: 'LINE_TABLE',
6778: 'plsqlclob:AP_WEB_EXPENSE_WF.generateExpClobLines/'||l_item_type||':'||l_item_key);
6779:
6779:
6780: ------------------------------------------------------
6781: l_debug_info := 'Set EMP_LINE_TABLE Item Attribute';
6782: ------------------------------------------------------
6783: WF_ENGINE.SetItemAttrText(l_item_type,
6784: l_item_key,
6785: 'EMP_LINE_TABLE',
6786: 'plsqlclob:AP_WEB_EXPENSE_WF.generateExpClobLines/'||l_item_type||':'||l_item_key || ':'|| C_EMP);
6787:
6787:
6788: --------------------------------------------------------
6789: l_debug_info := 'Set Expense_Report_ID Item Attribute';
6790: --------------------------------------------------------
6791: WF_ENGINE.SetItemAttrNumber(p_item_type,
6792: l_item_key,
6793: 'EXPENSE_REPORT_ID',
6794: l_report_header_id);
6795:
6795:
6796: ------------------------------------------------------
6797: l_debug_info := 'Set Document_Number Item Attribute';
6798: ------------------------------------------------------
6799: WF_ENGINE.SetItemAttrText(p_item_type,
6800: l_item_key,
6801: 'DOCUMENT_NUMBER',
6802: l_document_number);
6803:
6803:
6804: ------------------------------------------------------
6805: l_debug_info := 'Set Document_Number Item Attribute';
6806: ------------------------------------------------------
6807: WF_ENGINE.SetItemAttrText(p_item_type,
6808: l_item_key,
6809: 'ORIG_EXPENSE_REPORT_NUM',
6810: l_orig_expense_report_num);
6811:
6816: l_preparer_id,
6817: l_preparer_name,
6818: l_preparer_display_name);
6819:
6820: WF_ENGINE.SetItemAttrText(p_item_type,
6821: l_item_key,
6822: 'PREPARER_ID',
6823: l_preparer_id);
6824:
6824:
6825: ----------------------------------------------------------
6826: l_debug_info := 'Set Preparer Name Info Item Attributes';
6827: ----------------------------------------------------------
6828: WF_ENGINE.SetItemAttrText(p_item_type,
6829: l_item_key,
6830: 'PREPARER_NAME',
6831: l_preparer_name);
6832:
6829: l_item_key,
6830: 'PREPARER_NAME',
6831: l_preparer_name);
6832:
6833: WF_ENGINE.SetItemAttrText(p_item_type,
6834: l_item_key,
6835: 'PREPARER_DISPLAY_NAME',
6836: l_preparer_display_name);
6837:
6837:
6838: ----------------------------------------------------------
6839: l_debug_info := 'Set the Owner of Workflow Process.';
6840: ----------------------------------------------------------
6841: WF_ENGINE.SetItemOwner(p_item_type, l_item_key, l_preparer_name);
6842:
6843: ----------------------------------------------------------
6844: l_debug_info := 'Get Employee Name Info For Employee_Id';
6845: ----------------------------------------------------------
6847: l_employee_id,
6848: l_employee_name,
6849: l_employee_display_name);
6850:
6851: WF_ENGINE.SetItemAttrText(p_item_type,
6852: l_item_key,
6853: 'EMPLOYEE_ID',
6854: l_employee_id);
6855:
6855:
6856: ----------------------------------------------------------
6857: l_debug_info := 'Set Employee Name Info Item Attributes';
6858: ----------------------------------------------------------
6859: WF_ENGINE.SetItemAttrText(p_item_type,
6860: l_item_key,
6861: 'EMPLOYEE_NAME',
6862: l_employee_name);
6863:
6860: l_item_key,
6861: 'EMPLOYEE_NAME',
6862: l_employee_name);
6863:
6864: WF_ENGINE.SetItemAttrText(p_item_type,
6865: l_item_key,
6866: 'EMPLOYEE_DISPLAY_NAME',
6867: l_employee_display_name);
6868:
6868:
6869: -------------------------------------------------
6870: l_debug_info := 'Set Total Item Attribute';
6871: -------------------------------------------------
6872: WF_ENGINE.SetItemAttrNumber(p_item_type,
6873: l_item_key,
6874: 'TOTAL',
6875: l_total);
6876:
6876:
6877: -----------------------------------------------------------------
6878: l_debug_info := 'Set New Adjusted Display_Total Item Attribute';
6879: -----------------------------------------------------------------
6880: WF_ENGINE.SetItemAttrText(p_item_type,
6881: l_item_key,
6882: 'DISPLAY_TOTAL',
6883: to_char(l_total,FND_CURRENCY.Get_Format_Mask(l_currency,22)) || ' ' || l_currency);
6884:
6890: ---------------------------------------------------------------------------
6891:
6892: IF (C_WF_Version >= C_CreditLineVersion) THEN
6893:
6894: WF_ENGINE.SetItemAttrNumber(p_item_type,
6895: l_item_key,
6896: 'POS_NEW_EXPENSE_TOTAL',
6897: l_new_exp_total);
6898: WF_ENGINE.SetItemAttrText(p_item_type,
6894: WF_ENGINE.SetItemAttrNumber(p_item_type,
6895: l_item_key,
6896: 'POS_NEW_EXPENSE_TOTAL',
6897: l_new_exp_total);
6898: WF_ENGINE.SetItemAttrText(p_item_type,
6899: l_item_key,
6900: 'POS_NEW_EXPENSE_DISPLAY_TOTAL',
6901: to_char(l_new_exp_total, FND_CURRENCY.Get_Format_Mask(l_currency,22)));
6902:
6899: l_item_key,
6900: 'POS_NEW_EXPENSE_DISPLAY_TOTAL',
6901: to_char(l_new_exp_total, FND_CURRENCY.Get_Format_Mask(l_currency,22)));
6902:
6903: WF_ENGINE.SetItemAttrNumber(p_item_type,
6904: l_item_key,
6905: 'NEG_CREDIT_TOTAL',
6906: l_credit_total);
6907: WF_ENGINE.SetItemAttrText(p_item_type,
6903: WF_ENGINE.SetItemAttrNumber(p_item_type,
6904: l_item_key,
6905: 'NEG_CREDIT_TOTAL',
6906: l_credit_total);
6907: WF_ENGINE.SetItemAttrText(p_item_type,
6908: l_item_key,
6909: 'NEG_CREDIT_DISPLAY_TOTAL',
6910: to_char(l_credit_total, FND_CURRENCY.Get_Format_Mask(l_currency,22)));
6911:
6915:
6916: ----------------------------------------------
6917: l_debug_info := 'Set Currency Item Attribute';
6918: -----------------------------------------------
6919: WF_ENGINE.SetItemAttrText(p_item_type,
6920: l_item_key,
6921: 'CURRENCY',
6922: l_currency);
6923:
6924:
6925: -----------------------------------------------------------
6926: l_debug_info := 'Set Document Cost Center Item Attribute';
6927: -----------------------------------------------------------
6928: WF_ENGINE.SetItemAttrText(p_item_type,
6929: l_item_key,
6930: 'DOC_COST_CENTER',
6931: l_doc_cost_center);
6932:
6932:
6933: -----------------------------------------------------------
6934: l_debug_info := 'Set Employee Cost Center Item Attribute';
6935: -----------------------------------------------------------
6936: WF_ENGINE.SetItemAttrText(p_item_type,
6937: l_item_key,
6938: 'EMP_COST_CENTER',
6939: l_emp_cost_center);
6940:
6940:
6941: --------------------------------------------------------------
6942: l_debug_info := 'Set CC Payment Due From Item Attribute';
6943: --------------------------------------------------------------
6944: WF_ENGINE.SetItemAttrText(p_item_type,
6945: l_item_key,
6946: 'PAYMENT_DUE_FROM',
6947: l_payment_due);
6948:
6958: -----------------------------------------------------
6959:
6960: -- Be sure to clear these values. If we are resubmitting, we don't want
6961: -- the values from the previous process traversal to hang around.
6962: WF_ENGINE.SetItemAttrText(p_item_type,
6963: l_item_key,
6964: 'EXPENSE_DETAILS',
6965: l_url);
6966:
6967: -----------------------------------------------------
6968: l_debug_info := 'Set Org ID Item Attribute';
6969: -----------------------------------------------------
6970: begin
6971: WF_ENGINE.SetItemAttrNumber(p_item_type,
6972: l_item_key,
6973: 'ORG_ID',
6974: l_n_org_id);
6975: exception
6975: exception
6976: when others then
6977: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
6978: -- ORG_ID item attribute doesn't exist, need to add it
6979: wf_engine.AddItemAttr(p_item_type, l_item_key, 'ORG_ID');
6980: -- get the org_id from header for old reports
6981: WF_ENGINE.SetItemAttrNumber(p_item_type,
6982: l_item_key,
6983: 'ORG_ID',
6977: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
6978: -- ORG_ID item attribute doesn't exist, need to add it
6979: wf_engine.AddItemAttr(p_item_type, l_item_key, 'ORG_ID');
6980: -- get the org_id from header for old reports
6981: WF_ENGINE.SetItemAttrNumber(p_item_type,
6982: l_item_key,
6983: 'ORG_ID',
6984: l_n_org_id);
6985: else
6992:
6993: --------------------------------------------------------------
6994: l_debug_info := 'Set User_ID value ';
6995: --------------------------------------------------------------
6996: WF_ENGINE.SetItemAttrNumber(p_item_type,
6997: l_item_key,
6998: 'USER_ID',
6999: l_n_user_id);
7000:
7001:
7002: --------------------------------------------------------------
7003: l_debug_info := 'Set Resp_ID value ';
7004: --------------------------------------------------------------
7005: WF_ENGINE.SetItemAttrNumber(p_item_type,
7006: l_item_key,
7007: 'RESPONSIBILITY_ID',
7008: l_n_resp_id);
7009:
7009:
7010: --------------------------------------------------------------
7011: l_debug_info := 'Set Resp_Appl_ID value ';
7012: --------------------------------------------------------------
7013: WF_ENGINE.SetItemAttrNumber(p_item_type,
7014: l_item_key,
7015: 'APPLICATION_ID',
7016: l_n_resp_appl_id);
7017:
7026:
7027: --------------------------------------------------------------
7028: l_debug_info := 'Set AME_ENABLED value ';
7029: --------------------------------------------------------------
7030: WF_ENGINE.SetItemAttrText(p_item_type,
7031: l_item_key,
7032: 'AME_ENABLED',
7033: l_AMEEnabled);
7034:
7045:
7046: ----------------------------------------------------------------
7047: l_debug_info := 'Set Policy Non-Compliance note';
7048: ----------------------------------------------------------------
7049: WF_ENGINE.SetItemAttrText(p_item_type,
7050: l_item_key,
7051: 'WF_NOTE',
7052: l_mess);
7053:
7055:
7056: -------------------------------------------------
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
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,
7129: p_item_key,
7130: p_actid,
7131: 'MISSING_RECEIPT_TYPE');
7132:
7145:
7146: --------------------------------------------------------------
7147: l_debug_info := 'Retrieve New Document Number Item Attribute';
7148: ---------------------------------------------------------------
7149: l_orig_expense_report_num := WF_ENGINE.GetItemAttrText(p_item_type,
7150: p_item_key,
7151: 'DOCUMENT_NUMBER');
7152: ------------------------------------------------------------
7153: l_debug_info := 'Retrieve New Expense_Report_ID Item Attribute';
7152: ------------------------------------------------------------
7153: l_debug_info := 'Retrieve New Expense_Report_ID Item Attribute';
7154: ------------------------------------------------------------
7155: IF (l_missing_receipt_type = 'ORIGINAL') THEN
7156: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7157: p_item_key,
7158: 'NO_RECEIPTS_SHORTPAY_ID');
7159:
7160: --------------------------------------------------------------
7159:
7160: --------------------------------------------------------------
7161: l_debug_info := 'Retrieve New Document Number Item Attribute';
7162: ---------------------------------------------------------------
7163: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
7164: p_item_key,
7165: 'NO_RECEIPTS_SHORTPAY_DOC_NUM');
7166:
7167: -----------------------------------------------------
7166:
7167: -----------------------------------------------------
7168: l_debug_info := 'Retrieve New Total Item Attribute';
7169: -----------------------------------------------------
7170: l_total := WF_ENGINE.GetItemAttrNumber(p_item_type,
7171: p_item_key,
7172: 'NO_RECEIPTS_SHORTPAY_TOTAL');
7173:
7174: FND_MESSAGE.SET_NAME('SQLAP','OIE_WF_POLICY_MR_NOTE');
7177: l_mess := FND_MESSAGE.GET;
7178:
7179: ELSIF (l_missing_receipt_type = 'IMAGE') THEN
7180:
7181: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7182: p_item_key,
7183: 'NO_IMG_RECEIPTS_SHORTPAY_ID');
7184:
7185: --------------------------------------------------------------
7184:
7185: --------------------------------------------------------------
7186: l_debug_info := 'Retrieve New Document Number Item Attribute';
7187: ---------------------------------------------------------------
7188: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
7189: p_item_key,
7190: 'NO_IMG_RECPT_SHORTPAY_DOC_NUM');
7191:
7192: l_total := WF_ENGINE.GetItemAttrNumber(p_item_type,
7188: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
7189: p_item_key,
7190: 'NO_IMG_RECPT_SHORTPAY_DOC_NUM');
7191:
7192: l_total := WF_ENGINE.GetItemAttrNumber(p_item_type,
7193: p_item_key,
7194: 'NO_IMG_RECPT_SHORTPAY_TOTAL');
7195:
7196: FND_MESSAGE.SET_NAME('SQLAP','OIE_MISSING_RECPT_NOTIF_INSTR');
7198: FND_MESSAGE.Set_Token('RPT_ID', l_orig_expense_report_num);
7199: l_mess := FND_MESSAGE.GET;
7200:
7201: ELSE
7202: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7203: p_item_key,
7204: 'NO_BOTH_RECEIPTS_SHORTPAY_ID');
7205:
7206: --------------------------------------------------------------
7205:
7206: --------------------------------------------------------------
7207: l_debug_info := 'Retrieve New Document Number Item Attribute';
7208: ---------------------------------------------------------------
7209: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
7210: p_item_key,
7211: 'NO_BOTH_RECPT_SHORTPAY_DOC_NUM');
7212:
7213: l_total := WF_ENGINE.GetItemAttrNumber(p_item_type,
7209: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
7210: p_item_key,
7211: 'NO_BOTH_RECPT_SHORTPAY_DOC_NUM');
7212:
7213: l_total := WF_ENGINE.GetItemAttrNumber(p_item_type,
7214: p_item_key,
7215: 'NO_BOTH_RECPT_SHORTPAY_TOTAL');
7216:
7217: FND_MESSAGE.SET_NAME('SQLAP','OIE_MISSING_RECPT_NOTIF_INSTR');
7224:
7225: ----------------------------------------------------------------
7226: l_debug_info := 'Retrieve Employee Cost Center Item Attribute';
7227: ----------------------------------------------------------------
7228: l_emp_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
7229: p_item_key,
7230: 'EMP_COST_CENTER');
7231:
7232: ----------------------------------------------------------------
7231:
7232: ----------------------------------------------------------------
7233: l_debug_info := 'Retrieve Document Cost Center Item Attribute';
7234: ----------------------------------------------------------------
7235: l_doc_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
7236: p_item_key,
7237: 'DOC_COST_CENTER');
7238:
7239:
7243:
7244: -----------------------------------------------------
7245: l_debug_info := 'Retrieve Currency Item Attribute';
7246: -----------------------------------------------------
7247: l_currency := WF_ENGINE.GetItemAttrText(p_item_type,
7248: p_item_key,
7249: 'CURRENCY');
7250:
7251: --------------------------------
7256:
7257: -------------------------------------------------------
7258: l_debug_info := 'Retrieve Preparer_ID Item Attribute';
7259: -------------------------------------------------------
7260: l_preparer_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7261: p_item_key,
7262: 'PREPARER_ID');
7263:
7264: -------------------------------------------------------
7263:
7264: -------------------------------------------------------
7265: l_debug_info := 'Retrieve Employee_ID Item Attribute';
7266: -------------------------------------------------------
7267: l_employee_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7268: p_item_key,
7269: 'EMPLOYEE_ID');
7270:
7271: ---------------------------------------------------------
7270:
7271: ---------------------------------------------------------
7272: l_debug_info := 'Retrieve Payment Due From System Option';
7273: ---------------------------------------------------------
7274: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
7275:
7276: ------------------------------------------------------------
7277: l_debug_info := 'Determine whether session is project enabled';
7278: ------------------------------------------------------------
7276: ------------------------------------------------------------
7277: l_debug_info := 'Determine whether session is project enabled';
7278: ------------------------------------------------------------
7279: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_11_0_3Version) THEN
7280: V_IsSessionProjectEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
7281: p_item_key,
7282: 'EMPLOYEE_PROJECT_ENABLED');
7283:
7284: ELSE
7296: ----------------------------------
7297: -- for bug 1652106
7298: begin
7299:
7300: l_n_org_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7301: p_item_key,
7302: 'ORG_ID');
7303: exception
7304: when others then
7303: exception
7304: when others then
7305: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
7306: -- ORG_ID item attribute doesn't exist, need to add it
7307: wf_engine.AddItemAttr(p_item_type, p_item_key, 'ORG_ID');
7308: -- get the org_id from header for old reports
7309: IF (AP_WEB_DB_EXPRPT_PKG.GetOrgIdByReportHeaderId(
7310: to_number(p_item_key),
7311: l_n_org_id) <> TRUE ) THEN
7310: to_number(p_item_key),
7311: l_n_org_id) <> TRUE ) THEN
7312: l_n_org_id := NULL;
7313: END IF;
7314: WF_ENGINE.SetItemAttrText(p_item_type,
7315: p_item_key,
7316: 'ORG_ID',
7317: l_n_org_id);
7318: else
7324: ----------------------------------
7325: l_debug_info := 'Get User ID';
7326: ----------------------------------
7327: begin
7328: l_n_user_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7329: p_item_key,
7330: 'USER_ID');
7331: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7332: p_item_key,
7327: begin
7328: l_n_user_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7329: p_item_key,
7330: 'USER_ID');
7331: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7332: p_item_key,
7333: 'RESPONSIBILITY_ID');
7334: l_n_resp_appl_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7335: p_item_key,
7330: 'USER_ID');
7331: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7332: p_item_key,
7333: 'RESPONSIBILITY_ID');
7334: l_n_resp_appl_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7335: p_item_key,
7336: 'APPLICATION_ID');
7337: exception
7338: when others then
7345:
7346: ----------------------------------
7347: l_debug_info := 'Get AME_ENABLED';
7348: ----------------------------------
7349: l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
7350: p_item_key,
7351: 'AME_ENABLED');
7352:
7353: ----------------------------------
7352:
7353: ----------------------------------
7354: l_debug_info := 'Get PURPOSE';
7355: ----------------------------------
7356: l_purpose := WF_ENGINE.GetItemAttrText(p_item_type,
7357: p_item_key,
7358: 'PURPOSE');
7359:
7360: ------------------------------------------------------------
7359:
7360: ------------------------------------------------------------
7361: l_debug_info := 'Get Approver Info';
7362: ------------------------------------------------------------
7363: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7364: p_item_key,
7365: 'APPROVER_ID');
7366:
7367: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
7363: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7364: p_item_key,
7365: 'APPROVER_ID');
7366:
7367: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
7368: p_item_key,
7369: 'APPROVER_NAME');
7370:
7371: l_approver_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
7367: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
7368: p_item_key,
7369: 'APPROVER_NAME');
7370:
7371: l_approver_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
7372: p_item_key,
7373: 'APPROVER_DISPLAY_NAME');
7374:
7375: ----------------------------------
7374:
7375: ----------------------------------
7376: l_debug_info := 'Get SUBMIT_FROM_OIE';
7377: ----------------------------------
7378: l_submit_from_oie := WF_ENGINE.GetItemAttrText(p_item_type,
7379: p_item_key,
7380: 'SUBMIT_FROM_OIE');
7381:
7382: -------------------------------------------------
7381:
7382: -------------------------------------------------
7383: l_debug_info := 'Create Missing Receipts Shortpay Subprocess';
7384: -------------------------------------------------
7385: WF_ENGINE.CreateProcess(p_item_type,
7386: l_item_key,
7387: 'NO_RECEIPTS_SHORTPAY_PROCESS');
7388:
7389: /* Bug 2351528. Need to set the user_key for easier query */
7386: l_item_key,
7387: 'NO_RECEIPTS_SHORTPAY_PROCESS');
7388:
7389: /* Bug 2351528. Need to set the user_key for easier query */
7390: WF_ENGINE.SetItemUserKey(l_item_type,
7391: l_item_key,
7392: l_document_number);
7393:
7394: ----------------------------------------------------
7393:
7394: ----------------------------------------------------
7395: l_debug_info := 'Set SUBMIT_FROM_OIE Item Attribute';
7396: ----------------------------------------------------
7397: WF_ENGINE.SetItemAttrText(l_item_type,
7398: l_item_key,
7399: 'SUBMIT_FROM_OIE',
7400: l_submit_from_oie);
7401:
7401:
7402: ------------------------------------------------------
7403: l_debug_info := 'Set PURPOSE Item Attribute';
7404: ------------------------------------------------------
7405: WF_ENGINE.SetItemAttrText(l_item_type,
7406: l_item_key,
7407: 'PURPOSE',
7408: l_purpose);
7409:
7409:
7410: ------------------------------------------------------
7411: l_debug_info := 'Set Approver Info';
7412: ------------------------------------------------------
7413: WF_ENGINE.SetItemAttrNumber(l_item_type,
7414: l_item_key,
7415: 'APPROVER_ID',
7416: l_approver_id);
7417:
7414: l_item_key,
7415: 'APPROVER_ID',
7416: l_approver_id);
7417:
7418: WF_ENGINE.SetItemAttrText(l_item_type,
7419: l_item_key,
7420: 'APPROVER_NAME',
7421: l_approver_name);
7422:
7419: l_item_key,
7420: 'APPROVER_NAME',
7421: l_approver_name);
7422:
7423: WF_ENGINE.SetItemAttrText(l_item_type,
7424: l_item_key,
7425: 'APPROVER_DISPLAY_NAME',
7426: l_approver_display_name);
7427:
7428: -- Bug 996020
7429: ------------------------------------------------------
7430: l_debug_info := 'Set LINE_TABLE Item Attribute';
7431: ------------------------------------------------------
7432: WF_ENGINE.SetItemAttrText(l_item_type,
7433: l_item_key,
7434: 'LINE_TABLE',
7435: 'plsqlclob:AP_WEB_EXPENSE_WF.generateExpClobLines/'||l_item_type||':'||l_item_key);
7436:
7436:
7437: ------------------------------------------------------
7438: l_debug_info := 'Set EMP_LINE_TABLE Item Attribute';
7439: ------------------------------------------------------
7440: WF_ENGINE.SetItemAttrText(l_item_type,
7441: l_item_key,
7442: 'EMP_LINE_TABLE',
7443: 'plsqlclob:AP_WEB_EXPENSE_WF.generateExpClobLines/'||l_item_type||':'||l_item_key || ':'||C_EMP);
7444:
7444:
7445: --------------------------------------------------------
7446: l_debug_info := 'Set Expense_Report_ID Item Attribute';
7447: --------------------------------------------------------
7448: WF_ENGINE.SetItemAttrNumber(p_item_type,
7449: l_item_key,
7450: 'EXPENSE_REPORT_ID',
7451: l_report_header_id);
7452:
7452:
7453: ------------------------------------------------------
7454: l_debug_info := 'Set Document_Number Item Attribute';
7455: ------------------------------------------------------
7456: WF_ENGINE.SetItemAttrText(p_item_type,
7457: l_item_key,
7458: 'DOCUMENT_NUMBER',
7459: l_document_number);
7460:
7460:
7461: ------------------------------------------------------
7462: l_debug_info := 'Set Document_Number Item Attribute';
7463: ------------------------------------------------------
7464: WF_ENGINE.SetItemAttrText(p_item_type,
7465: l_item_key,
7466: 'ORIG_EXPENSE_REPORT_NUM',
7467: l_orig_expense_report_num);
7468:
7473: l_preparer_id,
7474: l_preparer_name,
7475: l_preparer_display_name);
7476:
7477: WF_ENGINE.SetItemAttrText(p_item_type,
7478: l_item_key,
7479: 'PREPARER_ID',
7480: l_preparer_id);
7481:
7481:
7482: ----------------------------------------------------------
7483: l_debug_info := 'Set Preparer Name Info Item Attributes';
7484: ----------------------------------------------------------
7485: WF_ENGINE.SetItemAttrText(p_item_type,
7486: l_item_key,
7487: 'PREPARER_NAME',
7488: l_preparer_name);
7489:
7486: l_item_key,
7487: 'PREPARER_NAME',
7488: l_preparer_name);
7489:
7490: WF_ENGINE.SetItemAttrText(p_item_type,
7491: l_item_key,
7492: 'PREPARER_DISPLAY_NAME',
7493: l_preparer_display_name);
7494:
7494:
7495: ----------------------------------------------------------
7496: l_debug_info := 'Set the Owner of Workflow Process.';
7497: ----------------------------------------------------------
7498: WF_ENGINE.SetItemOwner(p_item_type, l_item_key, l_preparer_name);
7499:
7500: ----------------------------------------------------------
7501: l_debug_info := 'Get Employee Name Info For Employee_Id';
7502: ----------------------------------------------------------
7504: l_employee_id,
7505: l_employee_name,
7506: l_employee_display_name);
7507:
7508: WF_ENGINE.SetItemAttrText(p_item_type,
7509: l_item_key,
7510: 'EMPLOYEE_ID',
7511: l_employee_id);
7512:
7512:
7513: ----------------------------------------------------------
7514: l_debug_info := 'Set Employee Name Info Item Attributes';
7515: ----------------------------------------------------------
7516: WF_ENGINE.SetItemAttrText(p_item_type,
7517: l_item_key,
7518: 'EMPLOYEE_NAME',
7519: l_employee_name);
7520:
7517: l_item_key,
7518: 'EMPLOYEE_NAME',
7519: l_employee_name);
7520:
7521: WF_ENGINE.SetItemAttrText(p_item_type,
7522: l_item_key,
7523: 'EMPLOYEE_DISPLAY_NAME',
7524: l_employee_display_name);
7525:
7525:
7526: -------------------------------------------------
7527: l_debug_info := 'Set Total Item Attribute';
7528: -------------------------------------------------
7529: WF_ENGINE.SetItemAttrNumber(p_item_type,
7530: l_item_key,
7531: 'TOTAL',
7532: l_total);
7533:
7533:
7534: -----------------------------------------------------------------
7535: l_debug_info := 'Set New Adjusted Display_Total Item Attribute';
7536: -----------------------------------------------------------------
7537: WF_ENGINE.SetItemAttrText(p_item_type,
7538: l_item_key,
7539: 'DISPLAY_TOTAL',
7540: to_char(l_total,FND_CURRENCY.Get_Format_Mask(l_currency,22)) || ' ' || l_currency);
7541:
7541:
7542: --------------------------------------------------------------
7543: l_debug_info := 'Set CC Payment Due From Item Attribute';
7544: --------------------------------------------------------------
7545: WF_ENGINE.SetItemAttrText(p_item_type,
7546: l_item_key,
7547: 'PAYMENT_DUE_FROM',
7548: l_payment_due);
7549:
7552: ---------------------------------------------------------------------------
7553:
7554: IF (C_WF_Version >= C_CreditLineVersion) THEN
7555:
7556: WF_ENGINE.SetItemAttrNumber(p_item_type,
7557: l_item_key,
7558: 'POS_NEW_EXPENSE_TOTAL',
7559: l_new_exp_total);
7560: WF_ENGINE.SetItemAttrText(p_item_type,
7556: WF_ENGINE.SetItemAttrNumber(p_item_type,
7557: l_item_key,
7558: 'POS_NEW_EXPENSE_TOTAL',
7559: l_new_exp_total);
7560: WF_ENGINE.SetItemAttrText(p_item_type,
7561: l_item_key,
7562: 'POS_NEW_EXPENSE_DISPLAY_TOTAL',
7563: to_char(l_new_exp_total, FND_CURRENCY.Get_Format_Mask(l_currency,22)));
7564:
7561: l_item_key,
7562: 'POS_NEW_EXPENSE_DISPLAY_TOTAL',
7563: to_char(l_new_exp_total, FND_CURRENCY.Get_Format_Mask(l_currency,22)));
7564:
7565: WF_ENGINE.SetItemAttrNumber(p_item_type,
7566: l_item_key,
7567: 'NEG_CREDIT_TOTAL',
7568: l_credit_total);
7569: WF_ENGINE.SetItemAttrText(p_item_type,
7565: WF_ENGINE.SetItemAttrNumber(p_item_type,
7566: l_item_key,
7567: 'NEG_CREDIT_TOTAL',
7568: l_credit_total);
7569: WF_ENGINE.SetItemAttrText(p_item_type,
7570: l_item_key,
7571: 'NEG_CREDIT_DISPLAY_TOTAL',
7572: to_char(l_credit_total, FND_CURRENCY.Get_Format_Mask(l_currency,22)));
7573:
7577: l_debug_info := 'Set whether employee is project enabled';
7578: ---------------------------------------------------------------------------
7579: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_11_0_3Version) THEN
7580:
7581: WF_ENGINE.SetItemAttrText(p_item_type,
7582: l_item_key,
7583: 'EMPLOYEE_PROJECT_ENABLED',
7584: V_IsSessionProjectEnabled);
7585: END IF;
7587:
7588: ----------------------------------------------
7589: l_debug_info := 'Set Currency Item Attribute';
7590: -----------------------------------------------
7591: WF_ENGINE.SetItemAttrText(p_item_type,
7592: l_item_key,
7593: 'CURRENCY',
7594: l_currency);
7595:
7596:
7597: -----------------------------------------------------------
7598: l_debug_info := 'Set Document Cost Center Item Attribute';
7599: -----------------------------------------------------------
7600: WF_ENGINE.SetItemAttrText(p_item_type,
7601: l_item_key,
7602: 'DOC_COST_CENTER',
7603: l_doc_cost_center);
7604:
7604:
7605: -----------------------------------------------------------
7606: l_debug_info := 'Set Employee Cost Center Item Attribute';
7607: -----------------------------------------------------------
7608: WF_ENGINE.SetItemAttrText(p_item_type,
7609: l_item_key,
7610: 'EMP_COST_CENTER',
7611: l_emp_cost_center);
7612:
7622: -----------------------------------------------------
7623:
7624: -- Be sure to clear these values. If we are resubmitting, we don't want
7625: -- the values from the previous process traversal to hang around.
7626: WF_ENGINE.SetItemAttrText(p_item_type,
7627: l_item_key,
7628: 'EXPENSE_DETAILS',
7629: l_url);
7630:
7636: l_override_approver_id,
7637: l_approver_name,
7638: l_approver_display_name);
7639:
7640: WF_ENGINE.SetItemAttrNumber(p_item_type,
7641: l_item_key,
7642: 'APPROVER_ID',
7643: l_override_approver_id);
7644:
7641: l_item_key,
7642: 'APPROVER_ID',
7643: l_override_approver_id);
7644:
7645: WF_ENGINE.SetItemAttrText(p_item_type,
7646: l_item_key,
7647: 'APPROVER_NAME',
7648: l_approver_name);
7649:
7646: l_item_key,
7647: 'APPROVER_NAME',
7648: l_approver_name);
7649:
7650: WF_ENGINE.SetItemAttrText(p_item_type,
7651: l_item_key,
7652: 'APPROVER_DISPLAY_NAME',
7653: l_approver_display_name);
7654:
7657: -----------------------------------------------------
7658: l_debug_info := 'Set Org ID Item Attribute';
7659: -----------------------------------------------------
7660: begin
7661: WF_ENGINE.SetItemAttrNumber(p_item_type,
7662: l_item_key,
7663: 'ORG_ID',
7664: l_n_org_id);
7665: exception
7665: exception
7666: when others then
7667: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
7668: -- ORG_ID item attribute doesn't exist, need to add it
7669: wf_engine.AddItemAttr(p_item_type, l_item_key, 'ORG_ID');
7670: -- get the org_id from header for old reports
7671: WF_ENGINE.SetItemAttrNumber(p_item_type,
7672: l_item_key,
7673: 'ORG_ID',
7667: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
7668: -- ORG_ID item attribute doesn't exist, need to add it
7669: wf_engine.AddItemAttr(p_item_type, l_item_key, 'ORG_ID');
7670: -- get the org_id from header for old reports
7671: WF_ENGINE.SetItemAttrNumber(p_item_type,
7672: l_item_key,
7673: 'ORG_ID',
7674: l_n_org_id);
7675: else
7681:
7682: --------------------------------------------------------------
7683: l_debug_info := 'Set User_ID value ';
7684: --------------------------------------------------------------
7685: WF_ENGINE.SetItemAttrNumber(p_item_type,
7686: l_item_key,
7687: 'USER_ID',
7688: l_n_user_id);
7689:
7690:
7691: --------------------------------------------------------------
7692: l_debug_info := 'Set Resp_ID value ';
7693: --------------------------------------------------------------
7694: WF_ENGINE.SetItemAttrNumber(p_item_type,
7695: l_item_key,
7696: 'RESPONSIBILITY_ID',
7697: l_n_resp_id);
7698:
7698:
7699: --------------------------------------------------------------
7700: l_debug_info := 'Set Resp_Appl_ID value ';
7701: --------------------------------------------------------------
7702: WF_ENGINE.SetItemAttrNumber(p_item_type,
7703: l_item_key,
7704: 'APPLICATION_ID',
7705: l_n_resp_appl_id);
7706:
7715:
7716: --------------------------------------------------------------
7717: l_debug_info := 'Set AME_ENABLED value ';
7718: --------------------------------------------------------------
7719: WF_ENGINE.SetItemAttrText(p_item_type,
7720: l_item_key,
7721: 'AME_ENABLED',
7722: l_AMEEnabled);
7723:
7730:
7731: ----------------------------------------------------------------
7732: l_debug_info := 'Set Missing receipts note';
7733: ----------------------------------------------------------------
7734: WF_ENGINE.SetItemAttrText(p_item_type,
7735: l_item_key,
7736: 'WF_NOTE',
7737: l_mess);
7738:
7740:
7741: -------------------------------------------------------
7742: l_debug_info := 'Start No Receipts Short Pay Process';
7743: -------------------------------------------------------
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');
7791:
7792: ----------------------------------------------------------------
7793: l_debug_info := 'Retrieve New_Expense_Report_ID Item Attribute';
7794: ----------------------------------------------------------------
7795: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7796: p_item_key,
7797: 'NEW_EXPENSE_REPORT_ID');
7798:
7799:
7807:
7808: --------------------------------------------------------------
7809: l_debug_info := 'Retrieve New_Document_Number Item Attribute';
7810: --------------------------------------------------------------
7811: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
7812: p_item_key,
7813: 'NEW_DOCUMENT_NUMBER');
7814:
7815: -----------------------------------------------------
7814:
7815: -----------------------------------------------------
7816: l_debug_info := 'Retrieve New_Total Item Attribute';
7817: -----------------------------------------------------
7818: l_total := WF_ENGINE.GetItemAttrNumber(p_item_type,
7819: p_item_key,
7820: 'NEW_TOTAL');
7821:
7822: -----------------------------------------------------
7821:
7822: -----------------------------------------------------
7823: l_debug_info := 'Retrieve Currency Item Attribute';
7824: -----------------------------------------------------
7825: l_currency := WF_ENGINE.GetItemAttrText(p_item_type,
7826: p_item_key,
7827: 'CURRENCY');
7828:
7829: --------------------------------
7833:
7834: -------------------------------------------------------
7835: l_debug_info := 'Retrieve Preparer_Id Item Attribute';
7836: -------------------------------------------------------
7837: l_preparer_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7838: p_item_key,
7839: 'PREPARER_ID');
7840:
7841: -------------------------------------------------------
7840:
7841: -------------------------------------------------------
7842: l_debug_info := 'Retrieve Employee_Id Item Attribute';
7843: -------------------------------------------------------
7844: l_employee_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7845: p_item_key,
7846: 'EMPLOYEE_ID');
7847:
7848: ----------------------------------------------------------------
7847:
7848: ----------------------------------------------------------------
7849: l_debug_info := 'Retrieve Employee Cost Center Item Attribute';
7850: ----------------------------------------------------------------
7851: l_emp_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
7852: p_item_key,
7853: 'EMP_COST_CENTER');
7854:
7855: ----------------------------------------------------------------
7854:
7855: ----------------------------------------------------------------
7856: l_debug_info := 'Retrieve Document Cost Center Item Attribute';
7857: ----------------------------------------------------------------
7858: l_doc_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
7859: p_item_key,
7860: 'DOC_COST_CENTER');
7861:
7862: ---------------------------------------------------------
7861:
7862: ---------------------------------------------------------
7863: l_debug_info := 'Retrieve Payment Due From System Option';
7864: ---------------------------------------------------------
7865: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
7866:
7867: -----------------------------------------
7868: l_debug_info := 'Retrieve Week End Date';
7869: -----------------------------------------
7868: l_debug_info := 'Retrieve Week End Date';
7869: -----------------------------------------
7870: IF (C_WF_Version >= C_ProjectIntegrationVersion) THEN
7871:
7872: l_week_end_date := WF_ENGINE.GetItemAttrDate(p_item_type,
7873: p_item_key,
7874: 'WEEK_END_DATE');
7875:
7876: END IF;
7877:
7878: ------------------------------------------------------------
7879: l_debug_info := 'Create Approval Subprocess';
7880: ------------------------------------------------------------
7881: WF_ENGINE.CreateProcess(p_item_type,
7882: l_item_key,
7883: 'AP_EXPENSE_REPORT_PROCESS');
7884:
7885: --------------------------------------------------------
7884:
7885: --------------------------------------------------------
7886: l_debug_info := 'Set Expense_Report_ID Item Attribute';
7887: --------------------------------------------------------
7888: WF_ENGINE.SetItemAttrNumber(p_item_type,
7889: l_item_key,
7890: 'EXPENSE_REPORT_ID',
7891: l_report_header_id);
7892:
7892:
7893: ----------------------------------------------------------
7894: l_debug_info := 'Set Document_Number Item Attribute';
7895: ----------------------------------------------------------
7896: WF_ENGINE.SetItemAttrText(p_item_type,
7897: l_item_key,
7898: 'DOCUMENT_NUMBER',
7899: l_document_number);
7900:
7908:
7909: --------------------------------------------------
7910: l_debug_info := 'Set Preparer_ID Item Attribute';
7911: --------------------------------------------------
7912: WF_ENGINE.SetItemAttrText(p_item_type,
7913: l_item_key,
7914: 'PREPARER_ID',
7915: l_preparer_id);
7916:
7916:
7917: ---------------------------------------------------------
7918: l_debug_info := 'Set Preparer_Name Info Item Attributes';
7919: ---------------------------------------------------------
7920: WF_ENGINE.SetItemAttrText(p_item_type,
7921: l_item_key,
7922: 'PREPARER_NAME',
7923: l_preparer_name);
7924:
7921: l_item_key,
7922: 'PREPARER_NAME',
7923: l_preparer_name);
7924:
7925: WF_ENGINE.SetItemAttrText(p_item_type,
7926: l_item_key,
7927: 'PREPARER_DISPLAY_NAME',
7928: l_preparer_display_name);
7929:
7937:
7938: --------------------------------------------------
7939: l_debug_info := 'Set Employee_ID Item Attribute';
7940: --------------------------------------------------
7941: WF_ENGINE.SetItemAttrText(p_item_type,
7942: l_item_key,
7943: 'EMPLOYEE_ID',
7944: l_employee_id);
7945:
7945:
7946: ---------------------------------------------------------
7947: l_debug_info := 'Set Employee_Name Info Item Attributes';
7948: ---------------------------------------------------------
7949: WF_ENGINE.SetItemAttrText(p_item_type,
7950: l_item_key,
7951: 'EMPLOYEE_NAME',
7952: l_employee_name);
7953:
7950: l_item_key,
7951: 'EMPLOYEE_NAME',
7952: l_employee_name);
7953:
7954: WF_ENGINE.SetItemAttrText(p_item_type,
7955: l_item_key,
7956: 'EMPLOYEE_DISPLAY_NAME',
7957: l_employee_display_name);
7958:
7958:
7959: ------------------------------------------------------------
7960: l_debug_info := 'Set Total Item Attribute';
7961: ------------------------------------------------------------
7962: WF_ENGINE.SetItemAttrNumber(p_item_type,
7963: l_item_key,
7964: 'TOTAL',
7965: l_total);
7966:
7967:
7968: -----------------------------------------------------------------
7969: l_debug_info := 'Set New Adjusted Display_Total Item Attribute';
7970: -----------------------------------------------------------------
7971: WF_ENGINE.SetItemAttrText(p_item_type,
7972: l_item_key,
7973: 'DISPLAY_TOTAL',
7974: to_char(l_total,FND_CURRENCY.Get_Format_Mask(l_currency,22)) || ' ' || l_currency);
7975:
7975:
7976: ----------------------------------------------
7977: l_debug_info := 'Set Currency Item Attribute';
7978: -----------------------------------------------
7979: WF_ENGINE.SetItemAttrText(p_item_type,
7980: l_item_key,
7981: 'CURRENCY',
7982: l_currency);
7983:
7984:
7985: -----------------------------------------------------------
7986: l_debug_info := 'Set Document Cost Center Item Attribute';
7987: -----------------------------------------------------------
7988: WF_ENGINE.SetItemAttrText(p_item_type,
7989: l_item_key,
7990: 'DOC_COST_CENTER',
7991: l_doc_cost_center);
7992:
7992:
7993: -----------------------------------------------------------
7994: l_debug_info := 'Set Employee Cost Center Item Attribute';
7995: -----------------------------------------------------------
7996: WF_ENGINE.SetItemAttrText(p_item_type,
7997: l_item_key,
7998: 'EMP_COST_CENTER',
7999: l_emp_cost_center);
8000:
8000:
8001: --------------------------------------------------------------
8002: l_debug_info := 'Set CC Payment Due From Item Attribute';
8003: --------------------------------------------------------------
8004: WF_ENGINE.SetItemAttrText(p_item_type,
8005: l_item_key,
8006: 'PAYMENT_DUE_FROM',
8007: l_payment_due);
8008:
8010:
8011: -------------------------------------------------
8012: l_debug_info := 'Set Week End Date used in determining PA auto approval';
8013: -------------------------------------------------
8014: WF_ENGINE.SetItemAttrDate(p_item_type,
8015: l_item_key,
8016: 'WEEK_END_DATE',
8017: l_week_end_date);
8018:
8020:
8021: -----------------------------------------------------------
8022: l_debug_info := 'Skip server validation';
8023: -----------------------------------------------------------
8024: WF_ENGINE.SetItemAttrText(p_item_type,
8025: l_item_key,
8026: 'START_FROM_PROCESS',
8027: C_START_FROM_MANAGER_APPROVAL);
8028:
8028:
8029: ------------------------------------------------------
8030: l_debug_info := 'Start Manager Approval Sub Process';
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:
8089: l_manager_display_name);
8090:
8091: IF (p_manager_target = 'MANAGER') THEN
8092:
8093: WF_ENGINE.SetItemAttrText(p_item_type,
8094: p_item_key,
8095: 'MANAGER_ID',
8096: p_manager_id);
8097:
8097:
8098: --------------------------------------------------------
8099: l_debug_info := 'Set Manager_Name Info Item Attribute';
8100: --------------------------------------------------------
8101: WF_ENGINE.SetItemAttrText(p_item_type,
8102: p_item_key,
8103: 'MANAGER_NAME',
8104: l_manager_name);
8105:
8105:
8106: ---------------------------------------------------------------
8107: l_debug_info := 'Set Manager_Display_Name Info Item Attribute';
8108: ---------------------------------------------------------------
8109: WF_ENGINE.SetItemAttrText(p_item_type,
8110: p_item_key,
8111: 'MANAGER_DISPLAY_NAME',
8112: l_manager_display_name);
8113:
8115:
8116: --------------------------------------------------------
8117: l_debug_info := 'Set Approver_ID Info Item Attribute';
8118: --------------------------------------------------------
8119: WF_ENGINE.SetItemAttrText(p_item_type,
8120: p_item_key,
8121: 'APPROVER_ID',
8122: p_manager_id);
8123:
8123:
8124: --------------------------------------------------------
8125: l_debug_info := 'Set Approver_Name Info Item Attribute';
8126: --------------------------------------------------------
8127: WF_ENGINE.SetItemAttrText(p_item_type,
8128: p_item_key,
8129: 'APPROVER_NAME',
8130: l_manager_name);
8131:
8131:
8132: ----------------------------------------------------------------
8133: l_debug_info := 'Set Approver_Display_Name Info Item Attribute';
8134: ----------------------------------------------------------------
8135: WF_ENGINE.SetItemAttrText(p_item_type,
8136: p_item_key,
8137: 'APPROVER_DISPLAY_NAME',
8138: l_manager_display_name);
8139:
8139:
8140: ----------------------------------------------------------------
8141: l_debug_info := 'Retrieving EXPENSE_REPORT_ID Item Attribute';
8142: ----------------------------------------------------------------
8143: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8144: p_item_key,
8145: 'EXPENSE_REPORT_ID');
8146: /* Bug 3566496: Need to update expense_current_approver_id since that
8147: * is used to display the approver in the Track expenses page.
8329:
8330: ------------------------------------------------------
8331: l_debug_info := 'Retrieve Employee_ID Item Attribute';
8332: ------------------------------------------------------
8333: l_preparer_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8334: p_item_key,
8335: 'PREPARER_ID');
8336:
8337:
8383:
8384: ------------------------------------------------------
8385: l_debug_info := 'Retrieve Approve_ID Item Attribute';
8386: ------------------------------------------------------
8387: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8388: p_item_key,
8389: 'APPROVER_ID');
8390:
8391: ---------------------------------------------
8438:
8439: ------------------------------------------------------
8440: l_debug_info := 'Retrieve Approve_ID Item Attribute';
8441: ------------------------------------------------------
8442: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8443: p_item_key,
8444: 'APPROVER_ID');
8445:
8446: ---------------------------------------------------------------------------
8485:
8486: ---------------------------------------------------------------
8487: l_debug_info := 'Retrieve Employee Cost Center Item Attribute';
8488: ---------------------------------------------------------------
8489: l_emp_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
8490: p_item_key,
8491: 'EMP_COST_CENTER');
8492:
8493: ---------------------------------------------------------------
8492:
8493: ---------------------------------------------------------------
8494: l_debug_info := 'Retrieve Document Cost Center Item Attribute';
8495: ---------------------------------------------------------------
8496: l_report_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
8497: p_item_key,
8498: 'DOC_COST_CENTER');
8499:
8500: --------------------------------------------------------------------
8541:
8542: ------------------------------------------------------
8543: l_debug_info := 'Retrieve Manager_ID Item Attribute';
8544: -------------------------------------------------------
8545: l_manager_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8546: p_item_key,
8547: 'MANAGER_ID');
8548:
8549: ------------------------------------------------------------
8548:
8549: ------------------------------------------------------------
8550: l_debug_info := 'Retrieve Manager_Name Info Item Attributes';
8551: ------------------------------------------------------------
8552: l_manager_name := WF_ENGINE.GetItemAttrText(p_item_type,
8553: p_item_key,
8554: 'MANAGER_NAME');
8555:
8556: l_manager_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
8552: l_manager_name := WF_ENGINE.GetItemAttrText(p_item_type,
8553: p_item_key,
8554: 'MANAGER_NAME');
8555:
8556: l_manager_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
8557: p_item_key,
8558: 'MANAGER_DISPLAY_NAME');
8559:
8560: ----------------------------------------------------------------------
8559:
8560: ----------------------------------------------------------------------
8561: l_debug_info := 'Set Approver Info Item Attributes with Manager Info';
8562: ----------------------------------------------------------------------
8563: WF_ENGINE.SetItemAttrNUMBER(p_item_type,
8564: p_item_key,
8565: 'APPROVER_ID',
8566: l_manager_id);
8567:
8564: p_item_key,
8565: 'APPROVER_ID',
8566: l_manager_id);
8567:
8568: WF_ENGINE.SetItemAttrText(p_item_type,
8569: p_item_key,
8570: 'APPROVER_NAME',
8571: l_manager_name);
8572:
8569: p_item_key,
8570: 'APPROVER_NAME',
8571: l_manager_name);
8572:
8573: WF_ENGINE.SetItemAttrText(p_item_type,
8574: p_item_key,
8575: 'APPROVER_DISPLAY_NAME',
8576: l_manager_display_name);
8577:
8609:
8610: ------------------------------------------------------------
8611: l_debug_info := 'Retrieve Approver_Info Item Attributes';
8612: ------------------------------------------------------------
8613: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8614: p_item_key,
8615: 'APPROVER_ID');
8616:
8617: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
8613: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8614: p_item_key,
8615: 'APPROVER_ID');
8616:
8617: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
8618: p_item_key,
8619: 'APPROVER_NAME');
8620:
8621: l_approver_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
8617: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
8618: p_item_key,
8619: 'APPROVER_NAME');
8620:
8621: l_approver_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
8622: p_item_key,
8623: 'APPROVER_DISPLAY_NAME');
8624:
8625: ----------------------------------------------------------------------
8624:
8625: ----------------------------------------------------------------------
8626: l_debug_info := 'Set Forward_From Item Attributes With Approver Info';
8627: ----------------------------------------------------------------------
8628: WF_ENGINE.SetItemAttrNUMBER(p_item_type,
8629: p_item_key,
8630: 'FORWARD_FROM_ID',
8631: l_approver_id);
8632:
8629: p_item_key,
8630: 'FORWARD_FROM_ID',
8631: l_approver_id);
8632:
8633: WF_ENGINE.SetItemAttrText(p_item_type,
8634: p_item_key,
8635: 'FORWARD_FROM_NAME',
8636: l_approver_name);
8637:
8634: p_item_key,
8635: 'FORWARD_FROM_NAME',
8636: l_approver_name);
8637:
8638: WF_ENGINE.SetItemAttrText(p_item_type,
8639: p_item_key,
8640: 'FORWARD_FROM_DISPLAY_NAME',
8641: l_approver_display_name);
8642:
8673:
8674: ------------------------------------------------------
8675: l_debug_info := 'Retrieve Approver_ID Item Attribute';
8676: ------------------------------------------------------
8677: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8678: p_item_key,
8679: 'APPROVER_ID');
8680:
8681: ------------------------------------------------------
8680:
8681: ------------------------------------------------------
8682: l_debug_info := 'Retrieve Approve_ID Item Attribute';
8683: ------------------------------------------------------
8684: l_manager_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8685: p_item_key,
8686: 'MANAGER_ID');
8687:
8688: IF (l_approver_id <> l_manager_id) THEN
8726:
8727: -----------------------------------------------------------------------
8728: l_debug_info := 'Retrieve Manager_Approval_Send_Count Item Attribute';
8729: -----------------------------------------------------------------------
8730: l_count := WF_ENGINE.GetItemAttrNumber(p_item_type,
8731: p_item_key,
8732: 'MANAGER_APPROVAL_SEND_COUNT');
8733:
8734: ---------------------------------------------------------------
8733:
8734: ---------------------------------------------------------------
8735: l_debug_info := 'Retrieve Manager_Send_Limit Item Attribute';
8736: ---------------------------------------------------------------
8737: l_limit := WF_ENGINE.GetActivityAttrNumber(p_item_type,
8738: p_item_key,
8739: p_actid,
8740: 'MANAGER_SEND_LIMIT');
8741:
8741:
8742: -----------------------------------------------------------------------
8743: l_debug_info := 'Increment Manager_Approval_Send_Count Item Attribute';
8744: -----------------------------------------------------------------------
8745: WF_ENGINE.SetItemAttrNumber(p_item_type,
8746: p_item_key,
8747: 'MANAGER_APPROVAL_SEND_COUNT',
8748: l_count+1);
8749:
8754: l_debug_info := 'Send_count at least equals limit, clear
8755: Manager_Approval_Send_Count Item Attribute
8756: and return Y';
8757: ---------------------------------------------------------------
8758: WF_ENGINE.SetItemAttrNumber(p_item_type,
8759: p_item_key,
8760: 'MANAGER_APPROVAL_SEND_COUNT',
8761: 0);
8762:
8818: BEGIN
8819: ------------------------------------------------------------
8820: l_debug_info := 'Get responsibility id';
8821: ------------------------------------------------------------
8822: l_nRespId := WF_ENGINE.GetItemAttrNumber(p_item_type,
8823: p_item_key,
8824: 'RESPONSIBILITY_ID');
8825:
8826: EXCEPTION
8885:
8886: ----------------------------------------------------------------
8887: l_debug_info := 'Retrieving Find_Approver_Count Item Attribute';
8888: ----------------------------------------------------------------
8889: l_find_approver_count := WF_ENGINE.GetItemAttrNumber(p_item_type,
8890: p_item_key,
8891: 'FIND_APPROVER_COUNT');
8892:
8893: IF (l_find_approver_count = 1) THEN
8934:
8935: ----------------------------------------------------------------
8936: l_debug_info := 'Retrieving FORWARD_FROM_ID Item Attribute';
8937: ----------------------------------------------------------------
8938: l_forward_from_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8939: p_item_key,
8940: 'FORWARD_FROM_ID');
8941:
8942: IF (l_forward_from_id IS NOT NULL) THEN
8984:
8985: -------------------------------------------------------------
8986: l_debug_info := 'Retrieving Emp_Cost_Center Item Attribute';
8987: -------------------------------------------------------------
8988: l_emp_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
8989: p_item_key,
8990: 'EMP_COST_CENTER');
8991:
8992: ---------------------------------------------------------
8991:
8992: ---------------------------------------------------------
8993: l_debug_info := 'Retrieving Preparer_Id Item Attribute';
8994: ---------------------------------------------------------
8995: l_preparer_id := WF_ENGINE.GetItemAttrText(p_item_type,
8996: p_item_key,
8997: 'PREPARER_ID');
8998:
8999:
9010:
9011: -------------------------------------------------------------
9012: l_debug_info := 'Set Emp_Cost_Center Item Attribute';
9013: -------------------------------------------------------------
9014: WF_ENGINE.SetItemAttrText(p_item_type,
9015: p_item_key,
9016: 'EMP_COST_CENTER',
9017: l_emp_cost_center);
9018:
9051:
9052: ----------------------------------------------------------------
9053: l_debug_info := 'Retrieving EXPENSE_REPORT_ID Item Attribute';
9054: ----------------------------------------------------------------
9055: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
9056: p_item_key,
9057: 'EXPENSE_REPORT_ID');
9058:
9059: ----------------------------------------------------------------
9058:
9059: ----------------------------------------------------------------
9060: l_debug_info := 'Set Rejection Reason to No reason provided if it is null';
9061: ----------------------------------------------------------------
9062: l_rejection_reason := WF_ENGINE.GetItemAttrText(p_item_type,
9063: p_item_key,
9064: 'WF_NOTE');
9065:
9066: IF (l_rejection_reason IS NULL OR
9065:
9066: IF (l_rejection_reason IS NULL OR
9067: replace(l_rejection_reason, ' ', '') = '') THEN
9068: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_REASON_PROVIDED');
9069: WF_ENGINE.SetItemAttrText(p_item_type,
9070: p_item_key,
9071: 'WF_NOTE',
9072: FND_MESSAGE.Get);
9073:
9123:
9124: ---------------------------------------------------------------
9125: l_debug_info := 'Retrieve Employee Id Item Attribute';
9126: ---------------------------------------------------------------
9127: l_employee_id := WF_ENGINE.GetItemAttrText(p_item_type,
9128: p_item_key,
9129: 'EMPLOYEE_ID');
9130:
9131: ---------------------------------------------------------------
9130:
9131: ---------------------------------------------------------------
9132: l_debug_info := 'Retrieve Preparer Id Item Attribute';
9133: ---------------------------------------------------------------
9134: l_preparer_id := WF_ENGINE.GetItemAttrText(p_item_type,
9135: p_item_key,
9136: 'PREPARER_ID');
9137:
9138: --------------------------------------------------------------------
9175:
9176: -------------------------------------------------------------------
9177: l_debug_info := 'Retrieve Find_Approver_Method Activity Attribute';
9178: -------------------------------------------------------------------
9179: l_emp_method := WF_ENGINE.GetActivityAttrText(p_item_type,
9180: p_item_key,
9181: p_actid,
9182: 'EMPLOYEE_APPROVAL_REQUIRED_MET');
9183:
9224:
9225: ----------------------------------------------------------------
9226: l_debug_info := 'Retrieving Start From Process Item Attribute';
9227: ----------------------------------------------------------------
9228: l_start_from_process := WF_ENGINE.GetItemAttrText(p_item_type,
9229: p_item_key,
9230: 'START_FROM_PROCESS');
9231: p_result := 'COMPLETE:' || l_start_from_process;
9232: IF l_start_from_process IS NULL THEN
9277:
9278: ------------------------------------------------------
9279: l_debug_info := 'Get WF Employee_ID Item Attribute';
9280: ------------------------------------------------------
9281: V_employee_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
9282: p_item_key,
9283: 'EMPLOYEE_ID');
9284:
9285: V_employee_name := WF_ENGINE.GetItemAttrText(p_item_type,
9281: V_employee_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
9282: p_item_key,
9283: 'EMPLOYEE_ID');
9284:
9285: V_employee_name := WF_ENGINE.GetItemAttrText(p_item_type,
9286: p_item_key,
9287: 'EMPLOYEE_NAME');
9288:
9289:
9286: p_item_key,
9287: 'EMPLOYEE_NAME');
9288:
9289:
9290: V_employee_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
9291: p_item_key,
9292: 'EMPLOYEE_DISPLAY_NAME');
9293:
9294:
9294:
9295: --------------------------------------------------------------
9296: l_debug_info := 'Set WF Preparer_Display_Name Item Attribute';
9297: --------------------------------------------------------------
9298: WF_ENGINE.SetItemAttrNumber(p_item_type,
9299: p_item_key,
9300: 'APPROVER_ID',
9301: V_employee_id);
9302:
9299: p_item_key,
9300: 'APPROVER_ID',
9301: V_employee_id);
9302:
9303: WF_ENGINE.SetItemAttrText(p_item_type,
9304: p_item_key,
9305: 'APPROVER_NAME',
9306: V_employee_name);
9307:
9304: p_item_key,
9305: 'APPROVER_NAME',
9306: V_employee_name);
9307:
9308: WF_ENGINE.SetItemAttrText(p_item_type,
9309: p_item_key,
9310: 'APPROVER_DISPLAY_NAME',
9311: V_employee_display_name);
9312:
9342:
9343: ----------------------------------------------------------------
9344: l_debug_info := 'Retrieve New_Expense_Report_ID Item Attribute';
9345: ----------------------------------------------------------------
9346: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
9347: p_item_key,
9348: 'NEW_EXPENSE_REPORT_ID');
9349:
9350: DeleteExpReportFromAPTables(l_report_header_id);
9380:
9381: ---------------------------------------------------------------------------
9382: l_debug_info := 'Retrieve Include_Missing_Receipts Activity Attribute';
9383: ---------------------------------------------------------------------------
9384: l_require_proof_of_payment := WF_ENGINE.GetActivityAttrText(p_item_type,
9385: p_item_key,
9386: p_actid,
9387: 'ALWAYS_REQ_PROOF_OF_PAYMENT');
9388:
9390:
9391: ----------------------------------------------------------------
9392: l_debug_info := 'Retrieving EXPENSE_REPORT_ID Item Attribute';
9393: ----------------------------------------------------------------
9394: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
9395: p_item_key,
9396: 'EXPENSE_REPORT_ID');
9397:
9398:
9526: l_attribute := substrb(document_id, l_colon2 + 1);
9527:
9528: if (display_type = 'text/plain') then
9529: if (l_attribute = 'PURPOSE') then
9530: document := WF_ENGINE.GetItemAttrText(l_itemtype,
9531: l_itemkey,
9532: 'PURPOSE');
9533: end if;
9534: else -- html
9532: 'PURPOSE');
9533: end if;
9534: else -- html
9535: if (l_attribute = 'PURPOSE') then
9536: document := '' || WF_ENGINE.GetItemAttrText(l_itemtype, l_itemkey, 'PURPOSE') || '';
9537: end if;
9538: end if;
9539: document_type := display_type;
9540:
9807:
9808: ------------------------------------------------------------
9809: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
9810: ------------------------------------------------------------
9811: l_report_header_id := WF_ENGINE.GetItemAttrNumber(l_itemtype,
9812: l_itemkey,
9813: 'EXPENSE_REPORT_ID');
9814:
9815: ----------------------------------------------------
9814:
9815: ----------------------------------------------------
9816: l_debug_info := 'Retrieve Currency Item Attribute';
9817: ----------------------------------------------------
9818: l_currency := WF_ENGINE.GetItemAttrText(l_itemtype,
9819: l_itemkey,
9820: 'CURRENCY');
9821:
9822: --------------------------------------------
9823: l_debug_info := 'Get Org Id';
9824: --------------------------------------------
9825: begin
9826:
9827: l_n_org_id := WF_ENGINE.GetItemAttrNumber(l_itemtype,
9828: l_itemkey,
9829: 'ORG_ID');
9830: exception
9831: when others then
9830: exception
9831: when others then
9832: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
9833: -- ORG_ID item attribute doesn't exist, need to add it
9834: WF_ENGINE.AddItemAttr(l_itemtype, l_itemkey, 'ORG_ID');
9835: IF (AP_WEB_DB_EXPRPT_PKG.GetOrgIdByReportHeaderId(
9836: to_number(l_itemkey),
9837: l_n_org_id) <> TRUE ) THEN
9838: l_n_org_id := NULL;
9837: l_n_org_id) <> TRUE ) THEN
9838: l_n_org_id := NULL;
9839: END IF;
9840:
9841: WF_ENGINE.SetItemAttrNumber(l_itemtype,
9842: l_itemkey,
9843: 'ORG_ID',
9844: l_n_org_ID);
9845: else
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,
10071: p_s_item_key,
10072: 'ORG_ID');
10073: exception
10074: when others then
10073: exception
10074: when others then
10075: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
10076: -- ORG_ID item attribute doesn't exist, need to add it
10077: wf_engine.AddItemAttr(p_s_item_type, p_s_item_key, 'ORG_ID');
10078: -- get the org_id from header for old reports
10079: IF (AP_WEB_DB_EXPRPT_PKG.GetOrgIdByReportHeaderId(
10080: to_number(p_s_item_key),
10081: l_n_org_id) <> TRUE ) THEN
10080: to_number(p_s_item_key),
10081: l_n_org_id) <> TRUE ) THEN
10082: l_n_org_id := NULL;
10083: END IF;
10084: WF_ENGINE.SetItemAttrNumber(p_s_item_type,
10085: p_s_item_key,
10086: 'ORG_ID',
10087: l_n_org_id);
10088: else
10091:
10092: end;
10093:
10094: begin
10095: l_n_user_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
10096: p_s_item_key,
10097: 'USER_ID');
10098:
10099: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
10095: l_n_user_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
10096: p_s_item_key,
10097: 'USER_ID');
10098:
10099: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
10100: p_s_item_key,
10101: 'RESPONSIBILITY_ID');
10102:
10103: l_n_resp_appl_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
10099: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
10100: p_s_item_key,
10101: 'RESPONSIBILITY_ID');
10102:
10103: l_n_resp_appl_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
10104: p_s_item_key,
10105: 'APPLICATION_ID');
10106: exception
10107: when others then
10257:
10258: ------------------------------------------------------------
10259: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
10260: ------------------------------------------------------------
10261: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
10262: p_item_key,
10263: 'EXPENSE_REPORT_ID');
10264:
10265: -----------------------------------------
10266: l_debug_info := 'Get the User Id';
10267: -----------------------------------------
10268: begin
10269:
10270: WF_DIRECTORY.GetRoleInfo2(wf_engine.context_user, l_role_info_tbl);
10271: AP_WEB_OA_MAINFLOW_PKG.GetUserId(l_role_info_tbl(1).orig_system_id, l_entered_by);
10272:
10273: exception
10274: when no_data_found then
10280: ------------------------------------------------------------
10281: AP_WEB_NOTES_PKG.CreateERPrepToAudNote (
10282: p_report_header_id => l_report_header_id,
10283: p_note => wf_core.translate(p_funmode)||'
10284: '||wf_engine.context_user_comment,
10285: p_lang => l_new_language_code,
10286: p_entered_by => l_entered_by
10287: );
10288:
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;
10372: begin
10373: l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
10374: p_item_key,
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;
10372: begin
10373: l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
10374: p_item_key,
10375: 'AME_ENABLED');
10376: IF(nvl(l_AMEEnabled,'N')='Y') THEN
10377: l_temp_item_key := WF_ENGINE.GetItemAttrText(p_item_type,
10373: l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
10374: p_item_key,
10375: 'AME_ENABLED');
10376: IF(nvl(l_AMEEnabled,'N')='Y') THEN
10377: l_temp_item_key := WF_ENGINE.GetItemAttrText(p_item_type,
10378: p_item_key,
10379: 'AME_MASTER_ITEM_KEY');
10380: END IF;
10381:
10378: p_item_key,
10379: 'AME_MASTER_ITEM_KEY');
10380: END IF;
10381:
10382: l_n_org_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
10383: l_temp_item_key,
10384: 'ORG_ID');
10385: exception
10386: when others then
10404:
10405: -- Bug 7155445(sodash) Used the AME API AME_API6.updateApprovalStatus so that the comments of one approver is visible to other approvers
10406: -- Bug: 10112521, Time out and Approval Hist issues
10407: IF(p_funmode = 'RESPOND') THEN
10408: l_notificationID := wf_engine.context_nid;
10409:
10410: select message_name
10411: into l_message_name
10412: from wf_notifications
10414:
10415: if (l_message_name = 'OIE_AME_EXPENSE_REPORT_APPRVL' OR
10416: l_message_name = 'OIE_REQ_EXPENSE_REPORT_APPRVL') then
10417:
10418: l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
10419: p_item_key,
10420: 'AME_ENABLED');
10421:
10422: IF(nvl(l_AMEEnabled,'N')='Y') THEN
10419: p_item_key,
10420: 'AME_ENABLED');
10421:
10422: IF(nvl(l_AMEEnabled,'N')='Y') THEN
10423: l_AmeMasterItemKey := WF_ENGINE.GetItemAttrText(p_item_type,
10424: p_item_key,
10425: 'AME_MASTER_ITEM_KEY');
10426: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
10427: p_item_key,
10422: IF(nvl(l_AMEEnabled,'N')='Y') THEN
10423: l_AmeMasterItemKey := WF_ENGINE.GetItemAttrText(p_item_type,
10424: p_item_key,
10425: 'AME_MASTER_ITEM_KEY');
10426: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
10427: p_item_key,
10428: 'APPROVER_NAME');
10429: l_forwarder.name := l_approver_name;
10430: l_approverResponse := WF_NOTIFICATION.GetAttrText(l_notificationID,'RESULT');
10440: END IF;
10441:
10442: l_forwarder.approval_status := l_approvalStatusIn;
10443: l_notificationIn.notification_id := l_notificationID;
10444: l_notificationIn.user_comments := wf_engine.context_user_comment;
10445:
10446: AME_API6.updateApprovalStatus(applicationIdIn => AP_WEB_DB_UTIL_PKG.GetApplicationID,
10447: transactionTypeIn => p_item_type,
10448: transactionIdIn => l_AmeMasterItemKey,
10503:
10504: -----------------------------------------
10505: l_debug_info := 'Get the Notification ID';
10506: -----------------------------------------
10507: l_notificationID := wf_engine.context_nid;
10508:
10509: ------------------------------------------------------------
10510: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
10511: ------------------------------------------------------------
10508:
10509: ------------------------------------------------------------
10510: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
10511: ------------------------------------------------------------
10512: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
10513: p_item_key,
10514: 'EXPENSE_REPORT_ID');
10515:
10516: -- Bug: 10274331, Request more information is not displayed correct.
10532: l_debug_info := 'Get the User Id';
10533: -----------------------------------------
10534: begin
10535: IF(l_entered_by IS NULL) THEN
10536: WF_DIRECTORY.GetRoleInfo2(wf_engine.context_user, l_role_info_tbl);
10537: AP_WEB_OA_MAINFLOW_PKG.GetUserId(l_role_info_tbl(1).orig_system_id, l_entered_by);
10538: END IF;
10539: exception
10540: when no_data_found then
10546: ------------------------------------------------------------
10547: AP_WEB_NOTES_PKG.CreateERPrepToAudNote (
10548: p_report_header_id => l_report_header_id,
10549: p_note => wf_core.translate(p_funmode)||'
10550: '||wf_engine.context_user_comment,
10551: p_lang => l_new_language_code,
10552: p_entered_by => l_entered_by
10553: );
10554:
10560: elsif (p_funmode in ('TRANSFER','FORWARD')) then
10561: -----------------------------------------
10562: l_debug_info := 'Get the Notification ID';
10563: -----------------------------------------
10564: l_notificationID := wf_engine.context_nid;
10565:
10566: -----------------------------------------
10567: l_debug_info := 'Get information on the transfer to';
10568: -----------------------------------------
10565:
10566: -----------------------------------------
10567: l_debug_info := 'Get information on the transfer to';
10568: -----------------------------------------
10569: -- wf_engine.context_text = new responder
10570: l_Transferee := wf_engine.context_text;
10571:
10572: -----------------------------------------
10573: l_debug_info := 'check for transferee received through email/web';
10566: -----------------------------------------
10567: l_debug_info := 'Get information on the transfer to';
10568: -----------------------------------------
10569: -- wf_engine.context_text = new responder
10570: l_Transferee := wf_engine.context_text;
10571:
10572: -----------------------------------------
10573: l_debug_info := 'check for transferee received through email/web';
10574: -----------------------------------------
10584: -----------------------------------------
10585: OPEN c_person_id;
10586: FETCH c_person_id into l_TransferToID;
10587: IF c_person_id%NOTFOUND THEN
10588: p_result := wf_engine.eng_completed||':'||wf_engine.eng_null;
10589: Wf_Core.Raise(wf_core.translate('NO_ROLE_FOUND'));
10590: RETURN;
10591: ELSE
10592: IF l_TransferToID IS NULL THEN
10589: Wf_Core.Raise(wf_core.translate('NO_ROLE_FOUND'));
10590: RETURN;
10591: ELSE
10592: IF l_TransferToID IS NULL THEN
10593: p_result := wf_engine.eng_completed||':'||wf_engine.eng_null;
10594: Wf_Core.Raise(wf_core.translate('PERSON_ID_NULL'));
10595: RETURN;
10596: END IF;
10597: END IF;
10600: IF (l_TransferToID IS NOT NULL) THEN
10601: ----------------------------------
10602: l_debug_info := 'Get AME_ENABLED';
10603: ----------------------------------
10604: l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
10605: p_item_key,
10606: 'AME_ENABLED');
10607:
10608: IF (l_AMEEnabled = 'Y') THEN
10608: IF (l_AMEEnabled = 'Y') THEN
10609:
10610: C_WF_VERSION := GetFlowVersion(p_item_type, p_item_key);
10611: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_R120_Version) THEN
10612: l_itemkey := WF_ENGINE.GetItemAttrText(p_item_type,
10613: p_item_key,
10614: 'AME_MASTER_ITEM_KEY');
10615: -- Bug 13579133: to reassign the re-approval notification without any errors
10616: IF l_itemkey IS NULL THEN
10626:
10627: ----------------------------------------------------------------
10628: l_debug_info := 'Retrieving APPROVER_ID Item Attribute';
10629: ----------------------------------------------------------------
10630: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
10631: p_item_key,
10632: 'APPROVER_ID');
10633:
10634: ------------------------------------------------------
10633:
10634: ------------------------------------------------------
10635: l_debug_info := 'Retrieve Approver_ID Item Attribute';
10636: -------------------------------------------------------
10637: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
10638: p_item_key,
10639: 'APPROVER_NAME');
10640: ------------------------------------------------------
10641: -- Bug 7272553
10641: -- Bug 7272553
10642: l_debug_info := 'Retrieve ApproverAuthority Item Attribute';
10643: -------------------------------------------------------
10644: begin
10645: l_ApproverAuthority := WF_ENGINE.GetItemAttrText(p_item_type,
10646: p_item_key,
10647: 'AME_APPROVER_AUTHORITY');
10648: exception
10649: when others then
10720: end if;
10721: l_forwardee.approval_status := null;
10722:
10723: l_notificationIn.notification_id := l_notificationID;
10724: l_notificationIn.user_comments := wf_engine.context_user_comment;
10725:
10726: -- Bug 12836231: Do not call AME_API6.updateApprovalStatus() in the delegate mode
10727: IF (p_funmode in ('TRANSFER')) THEN
10728: -- Bug 7155445(sodash) Used the AME API AME_API6.updateApprovalStatus so that the comments of one approver is visible to other approvers when the notification is transferred or forwarded
10761:
10762: -----------------------------------------
10763: l_debug_info := 'set the transferring Approver info to the Transferor';
10764: -----------------------------------------
10765: WF_ENGINE.SetItemAttrText(p_item_type,
10766: p_item_key,
10767: 'TRANSFER_APPROVER_DISPLAY_NAME',
10768: WF_ENGINE.GetItemAttrText(p_item_type,
10769: p_item_key,
10764: -----------------------------------------
10765: WF_ENGINE.SetItemAttrText(p_item_type,
10766: p_item_key,
10767: 'TRANSFER_APPROVER_DISPLAY_NAME',
10768: WF_ENGINE.GetItemAttrText(p_item_type,
10769: p_item_key,
10770: 'APPROVER_DISPLAY_NAME'));
10771:
10772: -----------------------------------------------------------
10788:
10789: -------------------------------------------------------
10790: l_debug_info := 'Retrieve Preparer_ID Item Attribute';
10791: -------------------------------------------------------
10792: l_preparer_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
10793: p_item_key,
10794: 'PREPARER_ID');
10795:
10796: -------------------------------------------------------
10795:
10796: -------------------------------------------------------
10797: l_debug_info := 'Retrieve Employee_ID Item Attribute';
10798: -------------------------------------------------------
10799: l_employee_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
10800: p_item_key,
10801: 'EMPLOYEE_ID');
10802:
10803: --Bug 2742114:raise exception when preparer id and trasferee is same.
10845: l_debug_info := 'set the notification attributes';
10846: -----------------------------------------
10847: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10848: 'DOCUMENT_NUMBER',
10849: WF_ENGINE.GetItemAttrText(p_item_type,
10850: p_item_key,
10851: 'DOCUMENT_NUMBER'));
10852:
10853: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10851: 'DOCUMENT_NUMBER'));
10852:
10853: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10854: '#HDR_DISPLAY_TOTAL',
10855: WF_ENGINE.GetItemAttrText(p_item_type,
10856: p_item_key,
10857: 'DISPLAY_TOTAL'));
10858: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10859: '#FROM_ROLE',
10856: p_item_key,
10857: 'DISPLAY_TOTAL'));
10858: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10859: '#FROM_ROLE',
10860: WF_ENGINE.GetItemAttrText(p_item_type,
10861: p_item_key,
10862: 'APPROVER_DISPLAY_NAME'));
10863: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10864: '#HDR_DOC_COST_CENTER',
10861: p_item_key,
10862: 'APPROVER_DISPLAY_NAME'));
10863: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10864: '#HDR_DOC_COST_CENTER',
10865: WF_ENGINE.GetItemAttrText(p_item_type,
10866: p_item_key,
10867: 'DOC_COST_CENTER'));
10868: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10869: '#HDR_EMPLOYEE_DISPLAY_NAME',
10866: p_item_key,
10867: 'DOC_COST_CENTER'));
10868: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10869: '#HDR_EMPLOYEE_DISPLAY_NAME',
10870: WF_ENGINE.GetItemAttrText(p_item_type,
10871: p_item_key,
10872: 'EMPLOYEE_DISPLAY_NAME'));
10873: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10874: '#HDR_PURPOSE',
10871: p_item_key,
10872: 'EMPLOYEE_DISPLAY_NAME'));
10873: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10874: '#HDR_PURPOSE',
10875: WF_ENGINE.GetItemAttrText(p_item_type,
10876: p_item_key,
10877: 'PURPOSE'));
10878: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10879: 'APPROVER_DISPLAY_NAME',
10876: p_item_key,
10877: 'PURPOSE'));
10878: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10879: 'APPROVER_DISPLAY_NAME',
10880: WF_ENGINE.GetItemAttrText(p_item_type,
10881: p_item_key,
10882: 'APPROVER_DISPLAY_NAME'));
10883: WF_NOTIFICATION.SetAttrNumber(l_TransferNotificationID,
10884: 'EXPENSE_REPORT_ID',
10881: p_item_key,
10882: 'APPROVER_DISPLAY_NAME'));
10883: WF_NOTIFICATION.SetAttrNumber(l_TransferNotificationID,
10884: 'EXPENSE_REPORT_ID',
10885: WF_ENGINE.GetItemAttrNumber(p_item_type,
10886: p_item_key,
10887: 'EXPENSE_REPORT_ID'));
10888: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10889: 'OIE_APEXP_BODY',
10886: p_item_key,
10887: 'EXPENSE_REPORT_ID'));
10888: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10889: 'OIE_APEXP_BODY',
10890: WF_ENGINE.GetItemAttrText(p_item_type,
10891: p_item_key,
10892: 'OIE_APEXP_BODY'));
10893: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10894: 'TRANSFER_APPROVER_DISPLAY_NAME',
10891: p_item_key,
10892: 'OIE_APEXP_BODY'));
10893: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10894: 'TRANSFER_APPROVER_DISPLAY_NAME',
10895: WF_ENGINE.GetItemAttrText(p_item_type,
10896: p_item_key,
10897: 'TRANSFER_APPROVER_DISPLAY_NAME'));
10898:
10899: wf_notification.denormalize_notification(l_TransferNotificationID);
10940: -----------------------------------------
10941: l_debug_info := 'Get the Notification ID';
10942: -----------------------------------------
10943:
10944: l_notificationID := wf_engine.context_nid;
10945:
10946: -----------------------------------------
10947: l_debug_info := 'Get information on the transfer to';
10948: -----------------------------------------
10945:
10946: -----------------------------------------
10947: l_debug_info := 'Get information on the transfer to';
10948: -----------------------------------------
10949: -- wf_engine.context_text = new responder
10950: l_Transferee := wf_engine.context_text;
10951:
10952: -----------------------------------------
10953: l_debug_info := 'check for transferee received through email/web';
10946: -----------------------------------------
10947: l_debug_info := 'Get information on the transfer to';
10948: -----------------------------------------
10949: -- wf_engine.context_text = new responder
10950: l_Transferee := wf_engine.context_text;
10951:
10952: -----------------------------------------
10953: l_debug_info := 'check for transferee received through email/web';
10954: -----------------------------------------
11010: if (p_funmode = 'RESPOND') then
11011: -----------------------------------------
11012: l_debug_info := 'Get the Notification ID';
11013: -----------------------------------------
11014: l_notificationID := wf_engine.context_nid;
11015:
11016: -----------------------------------------
11017: l_debug_info := 'Get WF Admin Note';
11018: -----------------------------------------
11066:
11067: ------------------------------------------------------------
11068: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
11069: ------------------------------------------------------------
11070: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
11071: p_item_key,
11072: 'EXPENSE_REPORT_ID');
11073:
11074: l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
11070: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
11071: p_item_key,
11072: 'EXPENSE_REPORT_ID');
11073:
11074: l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
11075: p_item_key,
11076: 'AME_ENABLED');
11077: IF (l_AMEEnabled = 'Y') THEN
11078:
11110: -- Bug 4394168
11111: AP_WEB_AUDIT_UTILS.clear_audit_reason_codes(l_report_header_id);
11112:
11113:
11114: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
11115:
11116: IF (l_payment_due = C_CompanyPay) THEN
11117: IF (NOT AP_WEB_DB_EXPLINE_PKG.DeletePersonalLines(l_report_header_id)) THEN
11118: NULL;
11133: --5060928: reset the Apply Advnaces only if OIE:Enable Advances = "Payables"
11134:
11135: begin
11136:
11137: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
11138: p_item_key,
11139: 'RESPONSIBILITY_ID');
11140: exception
11141: when others then
11157: l_debug_info := 'Set which process to start from';
11158: ------------------------------------------------------------
11159: -- Indicate which process to start from
11160: -- (skip ServerValidate, Manager Approval)
11161: WF_ENGINE.SetItemAttrText(p_item_type,
11162: p_item_key,
11163: 'START_FROM_PROCESS',
11164: C_START_FROM_SERVER_VALIDATION);
11165:
11226: IF (p_funmode = 'RUN') THEN
11227: ----------------------------------------------------------------
11228: l_debug_info := 'Retrieving Find_Approver_Count Item Attribute';
11229: ----------------------------------------------------------------
11230: l_find_approver_count := WF_ENGINE.GetItemAttrNumber(p_item_type,
11231: p_item_key,
11232: 'FIND_APPROVER_COUNT');
11233:
11234: IF (l_find_approver_count = 1) THEN
11277: ----------------------------------------------------------------
11278: SetFromRole(p_item_type,
11279: p_item_key,
11280: p_actid,
11281: WF_ENGINE.GetItemAttrText(p_item_type,
11282: p_item_key,
11283: 'PREPARER_NAME'),
11284: 'SetFromRolePreparer'
11285: );
11283: 'PREPARER_NAME'),
11284: 'SetFromRolePreparer'
11285: );
11286: /*
11287: WF_ENGINE.SetItemAttrText(p_item_type,
11288: p_item_key,
11289: '#FROM_ROLE',
11290: WF_ENGINE.GetItemAttrText(p_item_type,
11291: p_item_key,
11286: /*
11287: WF_ENGINE.SetItemAttrText(p_item_type,
11288: p_item_key,
11289: '#FROM_ROLE',
11290: WF_ENGINE.GetItemAttrText(p_item_type,
11291: p_item_key,
11292: 'PREPARER_NAME'));
11293: */
11294: p_result := 'COMPLETE:Y';
11325: ----------------------------------------------------------------
11326: SetFromRole(p_item_type,
11327: p_item_key,
11328: p_actid,
11329: WF_ENGINE.GetItemAttrText(p_item_type,
11330: p_item_key,
11331: 'EMPLOYEE_NAME'),
11332: 'SetFromRoleEmployee'
11333: );
11331: 'EMPLOYEE_NAME'),
11332: 'SetFromRoleEmployee'
11333: );
11334: /*
11335: WF_ENGINE.SetItemAttrText(p_item_type,
11336: p_item_key,
11337: '#FROM_ROLE',
11338: WF_ENGINE.GetItemAttrText(p_item_type,
11339: p_item_key,
11334: /*
11335: WF_ENGINE.SetItemAttrText(p_item_type,
11336: p_item_key,
11337: '#FROM_ROLE',
11338: WF_ENGINE.GetItemAttrText(p_item_type,
11339: p_item_key,
11340: 'EMPLOYEE_NAME'));
11341: */
11342: p_result := 'COMPLETE:Y';
11373: ----------------------------------------------------------------
11374: SetFromRole(p_item_type,
11375: p_item_key,
11376: p_actid,
11377: WF_ENGINE.GetItemAttrText(p_item_type,
11378: p_item_key,
11379: 'FORWARD_FROM_NAME'),
11380: 'SetFromRoleForwardFrom'
11381: );
11379: 'FORWARD_FROM_NAME'),
11380: 'SetFromRoleForwardFrom'
11381: );
11382: /*
11383: WF_ENGINE.SetItemAttrText(p_item_type,
11384: p_item_key,
11385: '#FROM_ROLE',
11386: WF_ENGINE.GetItemAttrText(p_item_type,
11387: p_item_key,
11382: /*
11383: WF_ENGINE.SetItemAttrText(p_item_type,
11384: p_item_key,
11385: '#FROM_ROLE',
11386: WF_ENGINE.GetItemAttrText(p_item_type,
11387: p_item_key,
11388: 'FORWARD_FROM_NAME'));
11389: */
11390: p_result := 'COMPLETE:Y';
11421: ----------------------------------------------------------------
11422: SetFromRole(p_item_type,
11423: p_item_key,
11424: p_actid,
11425: WF_ENGINE.GetItemAttrText(p_item_type,
11426: p_item_key,
11427: 'APPROVER_NAME'),
11428: 'SetFromRoleApprover'
11429: );
11427: 'APPROVER_NAME'),
11428: 'SetFromRoleApprover'
11429: );
11430: /*
11431: WF_ENGINE.SetItemAttrText(p_item_type,
11432: p_item_key,
11433: '#FROM_ROLE',
11434: WF_ENGINE.GetItemAttrText(p_item_type,
11435: p_item_key,
11430: /*
11431: WF_ENGINE.SetItemAttrText(p_item_type,
11432: p_item_key,
11433: '#FROM_ROLE',
11434: WF_ENGINE.GetItemAttrText(p_item_type,
11435: p_item_key,
11436: 'APPROVER_NAME'));
11437: */
11438: p_result := 'COMPLETE:Y';
11477:
11478: -------------------------------------------------------------------
11479: l_debug_info := 'Retrieve Expense Status Code Activity Attribute';
11480: -------------------------------------------------------------------
11481: l_expense_status_code := WF_ENGINE.GetActivityAttrText(p_item_type,
11482: p_item_key,
11483: p_actid,
11484: 'EXPENSE_STATUS_CODE');
11485:
11486:
11487: -------------------------------------------------------------------
11488: l_debug_info := 'Retrieve Current Approver ID Activity Attribute';
11489: -------------------------------------------------------------------
11490: l_current_approver_id := WF_ENGINE.GetActivityAttrNumber(p_item_type,
11491: p_item_key,
11492: p_actid,
11493: 'CURRENT_APPROVER_ID');
11494:
11494:
11495: ------------------------------------------------------------
11496: l_debug_info := 'Retrieve ORG_ID Item Attribute';
11497: ------------------------------------------------------------
11498: l_org_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
11499: p_item_key,
11500: 'ORG_ID');
11501:
11502: ------------------------------------------------------------
11501:
11502: ------------------------------------------------------------
11503: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
11504: ------------------------------------------------------------
11505: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
11506: p_item_key,
11507: 'EXPENSE_REPORT_ID');
11508:
11509: ----------------------------------------------------------
11564: END IF;
11565:
11566: EXCEPTION
11567: WHEN fixable_exception THEN
11568: WF_ENGINE.SetItemAttrText(p_item_type,
11569: p_item_key,
11570: 'ERROR_MESSAGE',
11571: l_error_message);
11572:
11592:
11593: ----------------------------------------------------------------
11594: l_debug_info := 'Retrieving Find_Approver_Count Item Attribute';
11595: ----------------------------------------------------------------
11596: l_find_approver_count := WF_ENGINE.GetItemAttrNumber(p_item_type,
11597: p_item_key,
11598: 'FIND_APPROVER_COUNT');
11599:
11600: IF (l_find_approver_count = 0) THEN
11700: C_WF_Version := AP_WEB_EXPENSE_WF.GetFlowVersion(l_itemtype, l_itemkey);
11701:
11702: if l_wf_exist then
11703: l_debug_info := 'Get Attribute values';
11704: l_preparer_name := WF_ENGINE.GetItemAttrText(
11705: itemtype => l_itemtype,
11706: itemkey => l_itemkey,
11707: aname => 'PREPARER_DISPLAY_NAME');
11708: l_employee_name := WF_ENGINE.GetItemAttrText(
11704: l_preparer_name := WF_ENGINE.GetItemAttrText(
11705: itemtype => l_itemtype,
11706: itemkey => l_itemkey,
11707: aname => 'PREPARER_DISPLAY_NAME');
11708: l_employee_name := WF_ENGINE.GetItemAttrText(
11709: itemtype => l_itemtype,
11710: itemkey => l_itemkey,
11711: aname => 'EMPLOYEE_DISPLAY_NAME');
11712: l_document_number := WF_ENGINE.GetItemAttrText(
11708: l_employee_name := WF_ENGINE.GetItemAttrText(
11709: itemtype => l_itemtype,
11710: itemkey => l_itemkey,
11711: aname => 'EMPLOYEE_DISPLAY_NAME');
11712: l_document_number := WF_ENGINE.GetItemAttrText(
11713: itemtype => l_itemtype,
11714: itemkey => l_itemkey,
11715: aname => 'DOCUMENT_NUMBER');
11716: l_payable_admin := WF_ENGINE.GetItemAttrText(
11712: l_document_number := WF_ENGINE.GetItemAttrText(
11713: itemtype => l_itemtype,
11714: itemkey => l_itemkey,
11715: aname => 'DOCUMENT_NUMBER');
11716: l_payable_admin := WF_ENGINE.GetItemAttrText(
11717: itemtype => l_itemtype,
11718: itemkey => l_itemkey,
11719: aname => 'PAYABLES');
11720: l_total := WF_ENGINE.GetItemAttrText(
11716: l_payable_admin := WF_ENGINE.GetItemAttrText(
11717: itemtype => l_itemtype,
11718: itemkey => l_itemkey,
11719: aname => 'PAYABLES');
11720: l_total := WF_ENGINE.GetItemAttrText(
11721: itemtype => l_itemtype,
11722: itemkey => l_itemkey,
11723: aname => 'DISPLAY_TOTAL');
11724: l_currency := WF_ENGINE.GetItemAttrText(
11720: l_total := WF_ENGINE.GetItemAttrText(
11721: itemtype => l_itemtype,
11722: itemkey => l_itemkey,
11723: aname => 'DISPLAY_TOTAL');
11724: l_currency := WF_ENGINE.GetItemAttrText(
11725: itemtype => l_itemtype,
11726: itemkey => l_itemkey,
11727: aname => 'CURRENCY');
11728: l_doc_cctr := WF_ENGINE.GetItemAttrText(
11724: l_currency := WF_ENGINE.GetItemAttrText(
11725: itemtype => l_itemtype,
11726: itemkey => l_itemkey,
11727: aname => 'CURRENCY');
11728: l_doc_cctr := WF_ENGINE.GetItemAttrText(
11729: itemtype => l_itemtype,
11730: itemkey => l_itemkey,
11731: aname => 'DOC_COST_CENTER');
11732: l_purpose := WF_ENGINE.GetItemAttrText(
11728: l_doc_cctr := WF_ENGINE.GetItemAttrText(
11729: itemtype => l_itemtype,
11730: itemkey => l_itemkey,
11731: aname => 'DOC_COST_CENTER');
11732: l_purpose := WF_ENGINE.GetItemAttrText(
11733: itemtype => l_itemtype,
11734: itemkey => l_itemkey,
11735: aname => 'PURPOSE');
11736:
11737: -- Bug: 8537082, No workflow exists for reports in error, moved the code here
11738: l_debug_info := 'Update AME as if rejected';
11739: -- Bug 3560082 - Comment the call to SetRejectStatusInAME and add the call
11740: -- AME_API.clearAllApprovals
11741: l_AMEEnabled := WF_ENGINE.GetItemAttrText(l_itemtype,
11742: l_itemkey,
11743: 'AME_ENABLED');
11744: if (l_AMEEnabled = 'Y') then
11745: --Bug 4425821: Uptake AME parallel approvers
11773:
11774: IF (l_wf_exist) THEN
11775: begin
11776:
11777: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(l_itemtype,
11778: l_itemkey,
11779: 'RESPONSIBILITY_ID');
11780:
11781: exception
11838: ResetCCardTxns(p_rep_header_id, l_itemtype, l_itemkey);
11839:
11840: if l_wf_active then
11841: l_debug_info := 'Workflow Abort Process';
11842: wf_engine.AbortProcess (itemtype => l_itemtype,
11843: itemkey => l_itemkey,
11844: cascade => TRUE);
11845: end if;
11846:
12069:
12070: ------------------------------------------------------------
12071: l_debug_info := 'Check Projects enabled';
12072: ------------------------------------------------------------
12073: l_employee_project_enabled := WF_ENGINE.GetItemAttrText(l_itemtype,
12074: l_itemkey,
12075: 'EMPLOYEE_PROJECT_ENABLED');
12076:
12077: ------------------------------------------------------------
12077: ------------------------------------------------------------
12078: l_debug_info := 'Check Grants enabled';
12079: ------------------------------------------------------------
12080: begin
12081: l_grants_enabled := WF_ENGINE.GetItemAttrText(l_itemtype,
12082: l_itemkey,
12083: 'GRANTS_ENABLED');
12084:
12085: ------------------------------------------------------------
12084:
12085: ------------------------------------------------------------
12086: l_debug_info := 'Get responsibility id';
12087: ------------------------------------------------------------
12088: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(l_itemtype,
12089: l_itemkey,
12090: 'RESPONSIBILITY_ID');
12091:
12092: exception
12125:
12126: ------------------------------------------------------------
12127: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
12128: ------------------------------------------------------------
12129: l_report_header_id := WF_ENGINE.GetItemAttrNumber(l_itemtype,
12130: l_itemkey,
12131: 'EXPENSE_REPORT_ID');
12132:
12133: ------------------------------------------------------------
12132:
12133: ------------------------------------------------------------
12134: l_debug_info := 'Retrieve Currency Item Attribute';
12135: ------------------------------------------------------------
12136: l_currency := WF_ENGINE.GetItemAttrText(l_itemtype,
12137: l_itemkey,
12138: 'CURRENCY');
12139:
12140: ------------------------------------------------------------
12140: ------------------------------------------------------------
12141: l_debug_info := 'Retrieve MILEAGE NOTE Item Attribute';
12142: ------------------------------------------------------------
12143: begin
12144: l_mileage_note := WF_ENGINE.GetItemAttrText(l_itemtype,
12145: l_itemkey,
12146: 'MILEAGE_NOTE');
12147: exception
12148: when others then
12157: l_debug_info := 'Get Org Id';
12158: --------------------------------------------
12159: begin
12160:
12161: l_n_org_id := WF_ENGINE.GetItemAttrNumber(l_itemtype,
12162: l_itemkey,
12163: 'ORG_ID');
12164: exception
12165: when others then
12164: exception
12165: when others then
12166: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
12167: -- ORG_ID item attribute doesn't exist, need to add it
12168: WF_ENGINE.AddItemAttr(l_itemtype, l_itemkey, 'ORG_ID');
12169: IF (AP_WEB_DB_EXPRPT_PKG.GetOrgIdByReportHeaderId(
12170: to_number(l_itemkey),
12171: l_n_org_id) <> TRUE ) THEN
12172: l_n_org_id := NULL;
12171: l_n_org_id) <> TRUE ) THEN
12172: l_n_org_id := NULL;
12173: END IF;
12174:
12175: WF_ENGINE.SetItemAttrNumber(l_itemtype,
12176: l_itemkey,
12177: 'ORG_ID',
12178: l_n_org_ID);
12179: else
12712: --------------------------------------------
12713: l_debug_info := 'Check to see if Company Pay scenario';
12714: --------------------------------------------
12715: begin
12716: l_payment_due_from := WF_ENGINE.GetItemAttrText(l_itemtype,l_itemkey,'PAYMENT_DUE_FROM');
12717: exception
12718: when others then
12719: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
12720: null;
12984:
12985: ------------------------------------------------------------
12986: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
12987: ------------------------------------------------------------
12988: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
12989: p_item_key,
12990: 'EXPENSE_REPORT_ID');
12991:
12992:
13020: END IF;
13021:
13022: l_mess := FND_MESSAGE.GET;
13023:
13024: WF_ENGINE.SetItemAttrText(p_item_type,
13025: p_item_key,
13026: 'MILEAGE_NOTE',
13027: l_mess);
13028:
13827:
13828: ------------------------------------------------------------
13829: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
13830: ------------------------------------------------------------
13831: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
13832: p_item_key,
13833: 'EXPENSE_REPORT_ID');
13834: -------------------------------------------------------
13835: l_debug_info := 'Retrieve Employee_ID Item Attribute';
13833: 'EXPENSE_REPORT_ID');
13834: -------------------------------------------------------
13835: l_debug_info := 'Retrieve Employee_ID Item Attribute';
13836: -------------------------------------------------------
13837: l_employee_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
13838: p_item_key,
13839: 'EMPLOYEE_ID');
13840:
13841:
14197:
14198: l_total_dsp := to_char(l_total,
14199: FND_CURRENCY.Get_Format_Mask(l_reimb_curr,22));
14200:
14201: WF_ENGINE.SetItemAttrText('APEXP',
14202: to_char(l_report_header_id),
14203: 'DISPLAY_TOTAL',
14204: l_total_dsp || ' ' || l_reimb_curr);
14205:
14231: IF (p_funmode = 'RUN') THEN
14232: ------------------------------------------------------------
14233: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
14234: ------------------------------------------------------------
14235: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
14236: p_item_key,
14237: 'EXPENSE_REPORT_ID');
14238: ------------------------------------------------------
14239: l_debug_info := 'Select from ap_pol_violations table';
14246: and distribution_line_number > 0;
14247:
14248: IF (l_violations_count > 0) THEN
14249: p_result := 'COMPLETE:Y';
14250: WF_ENGINE.SetItemAttrText(p_item_type,
14251: p_item_key,
14252: 'RULES_VIOLATED',
14253: 'Y');
14254: ELSE
14252: 'RULES_VIOLATED',
14253: 'Y');
14254: ELSE
14255: p_result := 'COMPLETE:N';
14256: WF_ENGINE.SetItemAttrText(p_item_type,
14257: p_item_key,
14258: 'RULES_VIOLATED',
14259: 'Y');
14260: END IF;
14303:
14304: ------------------------------------------------------
14305: l_debug_info := 'Retrieve Approve_ID Item Attribute';
14306: ------------------------------------------------------
14307: l_approver_id := WF_ENGINE.GetItemAttrNumber(l_itemtype,
14308: l_itemkey,
14309: 'APPROVER_ID');
14310:
14311: ------------------------------------------------------
14310:
14311: ------------------------------------------------------
14312: l_debug_info := 'Retrieve TOTAL Item Attribute';
14313: ------------------------------------------------------
14314: l_total := WF_ENGINE.GetItemAttrNumber(l_itemtype,
14315: l_itemkey,
14316: 'TOTAL');
14317:
14318: ------------------------------------------------------
14317:
14318: ------------------------------------------------------
14319: l_debug_info := 'Retrieve CURRENCY Item Attribute';
14320: ------------------------------------------------------
14321: l_currency := WF_ENGINE.GetItemAttrText(l_itemtype,
14322: l_itemkey,
14323: 'CURRENCY');
14324:
14325: l_msg := ap_web_amount_util.get_meaningful_amount_msg_emp(
14353:
14354: ------------------------------------------------------
14355: l_debug_info := 'Retrieve RESPONSIBILITY_ID Item Attribute';
14356: ------------------------------------------------------
14357: p_resp_id := WF_ENGINE.GetItemAttrNumber('APEXP',
14358: p_item_key,
14359: 'RESPONSIBILITY_ID');
14360:
14361: ------------------------------------------------------
14360:
14361: ------------------------------------------------------
14362: l_debug_info := 'Retrieve APPLICATION_ID Item Attribute';
14363: ------------------------------------------------------
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');
14438: IF (p_funmode = 'RUN') THEN
14439: ------------------------------------------------------------
14440: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
14441: ------------------------------------------------------------
14442: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
14443: p_item_key,
14444: 'EXPENSE_REPORT_ID');
14445:
14446: IF l_report_header_id IS NULL THEN
14596:
14597: ---------------------------------------------------------------
14598: l_debug_info := 'Reset WF_NOTE';
14599: ---------------------------------------------------------------
14600: WF_ENGINE.SetItemAttrText(p_item_type,
14601: p_item_key,
14602: 'WF_NOTE',
14603: '');
14604:
14630:
14631: ---------------------------------------------------------
14632: l_debug_info := 'Add to Other Errors';
14633: ---------------------------------------------------------
14634: l_other_errors := WF_ENGINE.GetItemAttrText(p_item_type,
14635: p_item_key,
14636: 'OTHER_ERRORS');
14637: ---------------------------------------------------------
14638: l_debug_info := 'Check to see if error title needed';
14648:
14649: AddToWFSSError(l_other_errors, p_other_error);
14650: l_other_errors := l_other_errors || endOraFieldTextFont;
14651:
14652: WF_ENGINE.SetItemAttrText(p_item_type,
14653: p_item_key,
14654: 'OTHER_ERRORS',
14655: l_other_errors);
14656:
14699:
14700: ------------------------------------------------------------
14701: l_debug_info := 'Retrieve HEADER_ERRORS Item Attribute';
14702: ------------------------------------------------------------
14703: document := WF_ENGINE.GetItemAttrText(l_itemtype,
14704: l_itemkey,
14705: 'HEADER_ERRORS');
14706:
14707: document_type := display_type;
14745: FROM ap_expense_report_headers_all
14746: WHERE report_header_id=p_item_key);
14747: exception
14748: when no_data_found then
14749: l_auditor_name := WF_ENGINE.GetItemAttrText(p_item_type,
14750: p_item_key,
14751: 'PAYABLES');
14752: end;
14753:
14757: l_auditor_name,
14758: 'SetFromRoleAP'
14759: );
14760: /*
14761: WF_ENGINE.SetItemAttrText(p_item_type,
14762: p_item_key,
14763: '#FROM_ROLE',
14764: WF_ENGINE.GetItemAttrText(p_item_type,
14765: p_item_key,
14760: /*
14761: WF_ENGINE.SetItemAttrText(p_item_type,
14762: p_item_key,
14763: '#FROM_ROLE',
14764: WF_ENGINE.GetItemAttrText(p_item_type,
14765: p_item_key,
14766: 'PAYABLES'));
14767: */
14768: p_result := 'COMPLETE:Y';
14854: l_debug_info := 'Set #FROM_ROLE to Preparer';
14855: ----------------------------------------------------------------
14856: SetFromRolePreparer(p_item_type, p_item_key, p_actid, p_funmode, p_result);
14857:
14858: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
14859: p_item_key,
14860: 'DOCUMENT_NUMBER');
14861:
14862: l_preparer_name := WF_ENGINE.GetItemAttrText(p_item_type,
14858: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
14859: p_item_key,
14860: 'DOCUMENT_NUMBER');
14861:
14862: l_preparer_name := WF_ENGINE.GetItemAttrText(p_item_type,
14863: p_item_key,
14864: 'PREPARER_DISPLAY_NAME');
14865:
14866: FND_MESSAGE.SET_NAME('SQLAP','OIE_WF_PROVIDE_MISSING_NOTE');
14867: FND_MESSAGE.Set_Token('EMPLOYEE_NAME', l_preparer_name);
14868: FND_MESSAGE.Set_Token('REPORT_NUMBER', l_document_number);
14869: l_mess := FND_MESSAGE.GET;
14870:
14871: WF_ENGINE.SetItemAttrText(p_item_type,
14872: p_item_key,
14873: 'OIENOTES',
14874: l_mess);
14875:
14894:
14895: ------------------------------------------------------------
14896: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
14897: ------------------------------------------------------------
14898: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
14899: p_item_key,
14900: 'EXPENSE_REPORT_ID');
14901:
14902: ----------------------------------------------------------------
14957:
14958: ------------------------------------------------------------
14959: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
14960: ------------------------------------------------------------
14961: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
14962: p_item_key,
14963: 'EXPENSE_REPORT_ID');
14964:
14965: ------------------------------------------------------------
14973:
14974: ----------------------------------------------------------
14975: l_debug_info := 'Set Item Attribute AUDIT_RETURN_REASON';
14976: ---------------------------------------------------------
14977: WF_ENGINE.SetItemAttrText(p_item_type,
14978: p_item_key,
14979: 'AUDIT_RETURN_REASON',
14980: l_return_reason);
14981:
14981:
14982: ----------------------------------------------------------
14983: l_debug_info := 'Set Item Attribute AUDIT_INSTRUCTIONS';
14984: ---------------------------------------------------------
14985: WF_ENGINE.SetItemAttrText(p_item_type,
14986: p_item_key,
14987: 'AUDIT_INSTRUCTIONS',
14988: l_return_instruction);
14989:
14989:
14990: ----------------------------------------------------------
14991: l_debug_info := 'Set Item Attribute Line_Info_Body';
14992: ---------------------------------------------------------
14993: WF_ENGINE.SetItemAttrText(p_item_type,
14994: p_item_key,
14995: 'LINE_INFO_BODY',
14996: 'plsql:AP_WEB_EXPENSE_WF.generateAdjustmentInfo/'|| p_item_type || ':' || p_item_key || ':AUDIT');
14997:
15061:
15062: ------------------------------------------------------------
15063: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
15064: ------------------------------------------------------------
15065: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
15066: p_item_key,
15067: 'EXPENSE_REPORT_ID');
15068:
15069: -------------------------------------------------------------------
15068:
15069: -------------------------------------------------------------------
15070: l_debug_info := 'Retrieve UPDATE_MANAGER_APPROVED Activity Attribute';
15071: -------------------------------------------------------------------
15072: l_manager_approved := WF_ENGINE.GetActivityAttrText(p_item_type,
15073: p_item_key,
15074: p_actid,
15075: 'UPDATE_MANAGER_APPROVED');
15076:
15156:
15157: ------------------------------------------------------------
15158: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
15159: ------------------------------------------------------------
15160: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
15161: p_item_key,
15162: 'EXPENSE_REPORT_ID');
15163:
15164: ------------------------------------------------------------
15289:
15290: -------------------------------------------------------------------
15291: l_debug_info := 'Retrieve Activity Result Type';
15292: -------------------------------------------------------------------
15293: l_result_type := WF_ENGINE.GetActivityAttrText(p_item_type,
15294: p_item_key,
15295: p_actid,
15296: 'RESULT_TYPE');
15297:
15296: 'RESULT_TYPE');
15297:
15298:
15299: BEGIN
15300: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
15301: p_item_key,
15302: 'EXPENSE_REPORT_ID');
15303:
15304: SELECT approval_type, workflow_approved_flag INTO l_approval_type, l_workflow_flag
15314: l_debug_info := 'Retrieve Note prefix';
15315: -------------------------------------------------------------------
15316: if (l_result_type = 'WFSTD_APPROVAL') then
15317: l_message_name := 'OIE_NOTES_APPROVER_ACTION';
15318: l_ame_enabled := nvl(WF_ENGINE.GetItemAttrText(p_item_type,
15319: p_item_key,
15320: 'AME_ENABLED'),'N');
15321:
15322: IF ( l_ame_enabled <> 'Y' ) THEN
15340:
15341: IF ( l_ame_enabled = 'Y' OR l_entered_by = -1 ) THEN
15342: -- Bug: 12882504, Approval notes not displayed for non supervisory AME rules.
15343: IF(NVL(l_approval_type, 'X') <> 'PER') THEN
15344: l_entered_by := WF_ENGINE.GetItemAttrNumber(p_item_type,
15345: p_item_key,
15346: 'APPROVER_ID');
15347: ELSE
15348: AP_WEB_OA_MAINFLOW_PKG.GetUserId(WF_ENGINE.GetItemAttrNumber(p_item_type,
15344: l_entered_by := WF_ENGINE.GetItemAttrNumber(p_item_type,
15345: p_item_key,
15346: 'APPROVER_ID');
15347: ELSE
15348: AP_WEB_OA_MAINFLOW_PKG.GetUserId(WF_ENGINE.GetItemAttrNumber(p_item_type,
15349: p_item_key,
15350: 'APPROVER_ID'),
15351: l_entered_by);
15352: END IF;
15355: elsif (l_result_type = 'EMPLOYEE_APPROVAL') then
15356: l_message_name := 'OIE_NOTES_EMPLOYEE_ACTION';
15357:
15358: -- Bug# 15985613 - AUTHOR OF APPROVAL NOTIFICATION IS INCORRECT IN INTERNET EXPENSES HELP DESK
15359: -- AP_WEB_OA_MAINFLOW_PKG.GetUserId(WF_ENGINE.GetItemAttrNumber(p_item_type,
15360: -- p_item_key,
15361: -- 'EMPLOYEE_ID'),
15362: -- l_entered_by);
15363:
15380: -- EMPLOYEE_APPROVAL is to be treated the same as WFSTD_APPROVAL
15381: l_result_type := 'WFSTD_APPROVAL';
15382: else
15383: l_message_name := 'OIE_NOTES_PREPARER_RESPONSE';
15384: AP_WEB_OA_MAINFLOW_PKG.GetUserId(WF_ENGINE.GetItemAttrNumber(p_item_type,
15385: p_item_key,
15386: 'PREPARER_ID'),
15387: l_entered_by);
15388: end if;
15406:
15407: -------------------------------------------------------------------
15408: l_debug_info := 'Retrieve Activity Result Code';
15409: -------------------------------------------------------------------
15410: l_result_code := WF_ENGINE.GetActivityAttrText(p_item_type,
15411: p_item_key,
15412: p_actid,
15413: 'RESULT_CODE');
15414:
15414:
15415: -------------------------------------------------------------------
15416: l_debug_info := 'Retrieve Activity Response';
15417: -------------------------------------------------------------------
15418: l_response := WF_ENGINE.GetActivityAttrText(p_item_type,
15419: p_item_key,
15420: p_actid,
15421: 'RESPONSE');
15422:
15422:
15423: ------------------------------------------------------------
15424: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
15425: ------------------------------------------------------------
15426: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
15427: p_item_key,
15428: 'EXPENSE_REPORT_ID');
15429:
15430: -- Bug 12991336: Notes should not be created for shortpaid reports, when the auditor performs action before preparer
15446: ------------------------------------------------------------
15447: AP_WEB_NOTES_PKG.CreateERPrepToAudNote (
15448: p_report_header_id => l_report_header_id,
15449: p_note => l_note_prefix||' '||l_code_display_name||'
15450: '||WF_ENGINE.GetItemAttrText(p_item_type, p_item_key, l_response),
15451: p_lang => l_new_language_code,
15452: p_entered_by => l_entered_by
15453: );
15454:
15471:
15472: ----------------------------------------------------------
15473: l_debug_info := 'clear Item Attribute AUDIT_RETURN_REASON';
15474: ---------------------------------------------------------
15475: WF_ENGINE.SetItemAttrText(p_item_type,
15476: p_item_key,
15477: 'AUDIT_RETURN_REASON',
15478: '');
15479:
15479:
15480: ----------------------------------------------------------
15481: l_debug_info := 'Set Item Attribute AUDIT_INSTRUCTIONS';
15482: ---------------------------------------------------------
15483: WF_ENGINE.SetItemAttrText(p_item_type,
15484: p_item_key,
15485: 'AUDIT_INSTRUCTIONS',
15486: '');
15487: end if;
15558:
15559: ---------------------------------------------------------------
15560: l_debug_info := 'Retrieve Employee Id Item Attribute';
15561: ---------------------------------------------------------------
15562: l_person_id := WF_ENGINE.GetItemAttrText(p_item_type,
15563: p_item_key,
15564: 'EMPLOYEE_ID');
15565:
15566: -- Check whether person is terminated
15601:
15602: ---------------------------------------------------------------
15603: l_debug_info := 'Retrieve Employee Id Item Attribute';
15604: ---------------------------------------------------------------
15605: l_person_id := WF_ENGINE.GetItemAttrText(p_item_type,
15606: p_item_key,
15607: 'EMPLOYEE_ID');
15608:
15609: -- Check whether person is active
15643:
15644: ---------------------------------------------------------------
15645: l_debug_info := 'Retrieve Manager Id Item Attribute';
15646: ---------------------------------------------------------------
15647: l_person_id := WF_ENGINE.GetItemAttrText(p_item_type,
15648: p_item_key,
15649: 'MANAGER_ID');
15650:
15651: -- Check whether person is active
16085: select 'Y'
16086: into l_access_granted
16087: from dual
16088: where
16089: (p_item_key = WF_ENGINE.GetItemAttrNumber(l_item_type, l_item_key, 'EXPENSE_REPORT_ID')
16090: or
16091: p_item_key = WF_ENGINE.GetItemAttrNumber(l_item_type, l_item_key, 'HOLDING_EXPENSE_REPORT_ID'))
16092: and rownum = 1;
16093:
16087: from dual
16088: where
16089: (p_item_key = WF_ENGINE.GetItemAttrNumber(l_item_type, l_item_key, 'EXPENSE_REPORT_ID')
16090: or
16091: p_item_key = WF_ENGINE.GetItemAttrNumber(l_item_type, l_item_key, 'HOLDING_EXPENSE_REPORT_ID'))
16092: and rownum = 1;
16093:
16094: elsif (l_item_type = 'APWRECPT') then
16095: -- Modified for CISCO ER 8704387
16234: l_instructions := FND_MESSAGE.Get;
16235: raise fixable_exception ;
16236: END;
16237:
16238: l_childItemKeySeq := WF_ENGINE.GetItemAttrNumber(p_item_type,
16239: p_item_key,
16240: 'AME_CHILD_ITEM_KEY_SEQ');
16241:
16242: IF (l_approvalProcessCompleteYNOut = ame_util.booleanTrue) THEN
16264: l_wf_exist := FALSE;
16265: end;
16266: IF l_wf_exist THEN
16267: IF l_wf_active THEN
16268: wf_engine.AbortProcess (itemtype => 'APEXP',
16269: itemkey => l_child_item_key,
16270: cascade => TRUE);
16271: END IF;
16272: END IF;
16282: p_result := 'COMPLETE:NOAPPROVER';
16283: return;
16284: END IF;
16285:
16286: /*l_childItemKeySeq := WF_ENGINE.GetItemAttrNumber(p_item_type,
16287: p_item_key,
16288: 'AME_CHILD_ITEM_KEY_SEQ');*/
16289:
16290: FOR i IN 1 .. l_nextApproversOut.count LOOP
16289:
16290: FOR i IN 1 .. l_nextApproversOut.count LOOP
16291: l_approver_exist := 'Y';
16292: -- Bug: 11848839
16293: l_employee_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
16294: p_item_key,
16295: 'EMPLOYEE_ID');
16296: -- Bug:14106331, Do not raise an error for FYI notifications.
16297: IF (l_nextApproversOut(i).orig_system = 'PER' AND (l_employee_id = l_nextApproversOut(i).orig_system_id)
16321: END IF;
16322:
16323: l_childItemKey := p_item_key || '-' || to_char(l_childItemKeySeq);
16324:
16325: WF_ENGINE.CreateProcess(p_item_type,
16326: l_childItemKey,
16327: 'AME_REQUEST_APPROVAL_PROCESS');
16328:
16329: l_masterUserKey := WF_ENGINE.GetItemUserKey(p_item_type,
16325: WF_ENGINE.CreateProcess(p_item_type,
16326: l_childItemKey,
16327: 'AME_REQUEST_APPROVAL_PROCESS');
16328:
16329: l_masterUserKey := WF_ENGINE.GetItemUserKey(p_item_type,
16330: p_item_key);
16331:
16332: WF_ENGINE.SetItemUserKey(p_item_type,
16333: l_childItemKey,
16328:
16329: l_masterUserKey := WF_ENGINE.GetItemUserKey(p_item_type,
16330: p_item_key);
16331:
16332: WF_ENGINE.SetItemUserKey(p_item_type,
16333: l_childItemKey,
16334: l_masterUserKey);
16335:
16336:
16349:
16350: --------------------------------------------------------
16351: l_debug_info := 'Set Approver_ID Info Item Attribute';
16352: --------------------------------------------------------
16353: WF_ENGINE.SetItemAttrText(p_item_type,
16354: l_childItemKey,
16355: 'APPROVER_ID',
16356: l_nextApproversOut(i).orig_system_id);
16357:
16357:
16358: --------------------------------------------------------
16359: l_debug_info := 'Set Approver_Name Info Item Attribute';
16360: --------------------------------------------------------
16361: WF_ENGINE.SetItemAttrText(p_item_type,
16362: l_childItemKey,
16363: 'APPROVER_NAME',
16364: l_manager_name);
16365:
16365:
16366: ----------------------------------------------------------------
16367: l_debug_info := 'Set Approver_Display_Name Info Item Attribute';
16368: ----------------------------------------------------------------
16369: WF_ENGINE.SetItemAttrText(p_item_type,
16370: l_childItemKey,
16371: 'APPROVER_DISPLAY_NAME',
16372: l_manager_display_name);
16373: ----------------------------------------------------------------
16374: -- Bug 7272553: Store approver authority, used during reassign
16375: l_debug_info := 'Set Approver_Authority Info Item Attribute';
16376: ----------------------------------------------------------------
16377: begin
16378: WF_ENGINE.SetItemAttrText(p_item_type,
16379: l_childItemKey,
16380: 'AME_APPROVER_AUTHORITY',
16381: l_nextApproversOut(i).authority);
16382: exception
16382: exception
16383: when others then
16384: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
16385: -- AME_APPROVER_AUTHORITY item attribute doesn't exist, need to add it
16386: WF_ENGINE.AddItemAttr(p_item_type, l_childItemKey, 'AME_APPROVER_AUTHORITY');
16387: WF_ENGINE.SetItemAttrNumber(p_item_type,
16388: l_childItemKey,
16389: 'AME_APPROVER_AUTHORITY',
16390: l_nextApproversOut(i).authority);
16383: when others then
16384: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
16385: -- AME_APPROVER_AUTHORITY item attribute doesn't exist, need to add it
16386: WF_ENGINE.AddItemAttr(p_item_type, l_childItemKey, 'AME_APPROVER_AUTHORITY');
16387: WF_ENGINE.SetItemAttrNumber(p_item_type,
16388: l_childItemKey,
16389: 'AME_APPROVER_AUTHORITY',
16390: l_nextApproversOut(i).authority);
16391: else
16392: raise;
16393: end if;
16394: end;
16395:
16396: l_master_report_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
16397: p_item_key,
16398: 'EXPENSE_REPORT_ID');
16399:
16400:
16397: p_item_key,
16398: 'EXPENSE_REPORT_ID');
16399:
16400:
16401: WF_ENGINE.SetItemAttrText(p_item_type,
16402: l_childItemKey,
16403: 'AME_MASTER_ITEM_KEY',
16404: p_item_key);
16405:
16402: l_childItemKey,
16403: 'AME_MASTER_ITEM_KEY',
16404: p_item_key);
16405:
16406: WF_ENGINE.SetItemAttrText(p_item_type,
16407: l_childItemKey,
16408: 'AME_APPROVAL_TYPE',
16409: l_nextApproversOut(i).approver_category);
16410:
16411: ----------------------------------------------------------------
16412: l_debug_info := 'Set wf attributes from the master process';
16413: ----------------------------------------------------------------
16414: BEGIN
16415: WF_ENGINE.SetItemAttrNumber(p_item_type,
16416: l_childItemKey,
16417: 'ORG_ID',
16418: WF_ENGINE.GetItemAttrNumber(p_item_type,
16419: p_item_key,
16414: BEGIN
16415: WF_ENGINE.SetItemAttrNumber(p_item_type,
16416: l_childItemKey,
16417: 'ORG_ID',
16418: WF_ENGINE.GetItemAttrNumber(p_item_type,
16419: p_item_key,
16420: 'ORG_ID'));
16421:
16422: WF_ENGINE.SetItemAttrNumber(p_item_type,
16418: WF_ENGINE.GetItemAttrNumber(p_item_type,
16419: p_item_key,
16420: 'ORG_ID'));
16421:
16422: WF_ENGINE.SetItemAttrNumber(p_item_type,
16423: l_childItemKey,
16424: 'USER_ID',
16425: WF_ENGINE.GetItemAttrNumber(p_item_type,
16426: p_item_key,
16421:
16422: WF_ENGINE.SetItemAttrNumber(p_item_type,
16423: l_childItemKey,
16424: 'USER_ID',
16425: WF_ENGINE.GetItemAttrNumber(p_item_type,
16426: p_item_key,
16427: 'USER_ID'));
16428:
16429: WF_ENGINE.SetItemAttrNumber(p_item_type,
16425: WF_ENGINE.GetItemAttrNumber(p_item_type,
16426: p_item_key,
16427: 'USER_ID'));
16428:
16429: WF_ENGINE.SetItemAttrNumber(p_item_type,
16430: l_childItemKey,
16431: 'RESPONSIBILITY_ID',
16432: WF_ENGINE.GetItemAttrNumber(p_item_type,
16433: p_item_key,
16428:
16429: WF_ENGINE.SetItemAttrNumber(p_item_type,
16430: l_childItemKey,
16431: 'RESPONSIBILITY_ID',
16432: WF_ENGINE.GetItemAttrNumber(p_item_type,
16433: p_item_key,
16434: 'RESPONSIBILITY_ID'));
16435:
16436: WF_ENGINE.SetItemAttrNumber(p_item_type,
16432: WF_ENGINE.GetItemAttrNumber(p_item_type,
16433: p_item_key,
16434: 'RESPONSIBILITY_ID'));
16435:
16436: WF_ENGINE.SetItemAttrNumber(p_item_type,
16437: l_childItemKey,
16438: 'APPLICATION_ID',
16439: WF_ENGINE.GetItemAttrNumber(p_item_type,
16440: p_item_key,
16435:
16436: WF_ENGINE.SetItemAttrNumber(p_item_type,
16437: l_childItemKey,
16438: 'APPLICATION_ID',
16439: WF_ENGINE.GetItemAttrNumber(p_item_type,
16440: p_item_key,
16441: 'APPLICATION_ID'));
16442: EXCEPTION
16443: WHEN OTHERS THEN
16448: end if;
16449: END;
16450:
16451: -- Bug: 7649190, Purpose not shown in the manager approval notification when AME is enabled
16452: WF_ENGINE.SetItemAttrText(p_item_type,
16453: l_childItemKey,
16454: 'PURPOSE',
16455: WF_ENGINE.GetItemAttrText(p_item_type,
16456: p_item_key,
16451: -- Bug: 7649190, Purpose not shown in the manager approval notification when AME is enabled
16452: WF_ENGINE.SetItemAttrText(p_item_type,
16453: l_childItemKey,
16454: 'PURPOSE',
16455: WF_ENGINE.GetItemAttrText(p_item_type,
16456: p_item_key,
16457: 'PURPOSE'));
16458: WF_ENGINE.SetItemAttrText(p_item_type,
16459: l_childItemKey,
16454: 'PURPOSE',
16455: WF_ENGINE.GetItemAttrText(p_item_type,
16456: p_item_key,
16457: 'PURPOSE'));
16458: WF_ENGINE.SetItemAttrText(p_item_type,
16459: l_childItemKey,
16460: 'AME_ENABLED',
16461: WF_ENGINE.GetItemAttrText(p_item_type,
16462: p_item_key,
16457: 'PURPOSE'));
16458: WF_ENGINE.SetItemAttrText(p_item_type,
16459: l_childItemKey,
16460: 'AME_ENABLED',
16461: WF_ENGINE.GetItemAttrText(p_item_type,
16462: p_item_key,
16463: 'AME_ENABLED'));
16464:
16465: WF_ENGINE.SetItemAttrText(p_item_type,
16461: WF_ENGINE.GetItemAttrText(p_item_type,
16462: p_item_key,
16463: 'AME_ENABLED'));
16464:
16465: WF_ENGINE.SetItemAttrText(p_item_type,
16466: l_childItemKey,
16467: 'WITHDRAW_WARNING',
16468: WF_ENGINE.GetItemAttrText(p_item_type,
16469: p_item_key,
16464:
16465: WF_ENGINE.SetItemAttrText(p_item_type,
16466: l_childItemKey,
16467: 'WITHDRAW_WARNING',
16468: WF_ENGINE.GetItemAttrText(p_item_type,
16469: p_item_key,
16470: 'WITHDRAW_WARNING'));
16471:
16472: WF_ENGINE.SetItemAttrText(p_item_type,
16468: WF_ENGINE.GetItemAttrText(p_item_type,
16469: p_item_key,
16470: 'WITHDRAW_WARNING'));
16471:
16472: WF_ENGINE.SetItemAttrText(p_item_type,
16473: l_childItemKey,
16474: 'GRANTS_ENABLED',
16475: WF_ENGINE.GetItemAttrText(p_item_type,
16476: p_item_key,
16471:
16472: WF_ENGINE.SetItemAttrText(p_item_type,
16473: l_childItemKey,
16474: 'GRANTS_ENABLED',
16475: WF_ENGINE.GetItemAttrText(p_item_type,
16476: p_item_key,
16477: 'GRANTS_ENABLED'));
16478:
16479: WF_ENGINE.SetItemAttrText(p_item_type,
16475: WF_ENGINE.GetItemAttrText(p_item_type,
16476: p_item_key,
16477: 'GRANTS_ENABLED'));
16478:
16479: WF_ENGINE.SetItemAttrText(p_item_type,
16480: l_childItemKey,
16481: 'LINE_TABLE',
16482: WF_ENGINE.GetItemAttrText(p_item_type,
16483: p_item_key,
16478:
16479: WF_ENGINE.SetItemAttrText(p_item_type,
16480: l_childItemKey,
16481: 'LINE_TABLE',
16482: WF_ENGINE.GetItemAttrText(p_item_type,
16483: p_item_key,
16484: 'LINE_TABLE'));
16485:
16486: WF_ENGINE.SetItemAttrText(p_item_type,
16482: WF_ENGINE.GetItemAttrText(p_item_type,
16483: p_item_key,
16484: 'LINE_TABLE'));
16485:
16486: WF_ENGINE.SetItemAttrText(p_item_type,
16487: l_childItemKey,
16488: 'EMP_LINE_TABLE',
16489: WF_ENGINE.GetItemAttrText(p_item_type,
16490: p_item_key,
16485:
16486: WF_ENGINE.SetItemAttrText(p_item_type,
16487: l_childItemKey,
16488: 'EMP_LINE_TABLE',
16489: WF_ENGINE.GetItemAttrText(p_item_type,
16490: p_item_key,
16491: 'EMP_LINE_TABLE'));
16492:
16493: WF_ENGINE.SetItemAttrNumber(p_item_type,
16489: WF_ENGINE.GetItemAttrText(p_item_type,
16490: p_item_key,
16491: 'EMP_LINE_TABLE'));
16492:
16493: WF_ENGINE.SetItemAttrNumber(p_item_type,
16494: l_childItemKey,
16495: 'EXPENSE_REPORT_ID',
16496: WF_ENGINE.GetItemAttrNumber(p_item_type,
16497: p_item_key,
16492:
16493: WF_ENGINE.SetItemAttrNumber(p_item_type,
16494: l_childItemKey,
16495: 'EXPENSE_REPORT_ID',
16496: WF_ENGINE.GetItemAttrNumber(p_item_type,
16497: p_item_key,
16498: 'EXPENSE_REPORT_ID'));
16499:
16500: WF_ENGINE.SetItemAttrText(p_item_type,
16496: WF_ENGINE.GetItemAttrNumber(p_item_type,
16497: p_item_key,
16498: 'EXPENSE_REPORT_ID'));
16499:
16500: WF_ENGINE.SetItemAttrText(p_item_type,
16501: l_childItemKey,
16502: 'DOCUMENT_NUMBER',
16503: WF_ENGINE.GetItemAttrText(p_item_type,
16504: p_item_key,
16499:
16500: WF_ENGINE.SetItemAttrText(p_item_type,
16501: l_childItemKey,
16502: 'DOCUMENT_NUMBER',
16503: WF_ENGINE.GetItemAttrText(p_item_type,
16504: p_item_key,
16505: 'DOCUMENT_NUMBER'));
16506:
16507: WF_ENGINE.SetItemAttrNumber(p_item_type,
16503: WF_ENGINE.GetItemAttrText(p_item_type,
16504: p_item_key,
16505: 'DOCUMENT_NUMBER'));
16506:
16507: WF_ENGINE.SetItemAttrNumber(p_item_type,
16508: l_childItemKey,
16509: 'PREPARER_ID',
16510: WF_ENGINE.GetItemAttrNumber(p_item_type,
16511: p_item_key,
16506:
16507: WF_ENGINE.SetItemAttrNumber(p_item_type,
16508: l_childItemKey,
16509: 'PREPARER_ID',
16510: WF_ENGINE.GetItemAttrNumber(p_item_type,
16511: p_item_key,
16512: 'PREPARER_ID'));
16513:
16514: WF_ENGINE.SetItemAttrText(p_item_type,
16510: WF_ENGINE.GetItemAttrNumber(p_item_type,
16511: p_item_key,
16512: 'PREPARER_ID'));
16513:
16514: WF_ENGINE.SetItemAttrText(p_item_type,
16515: l_childItemKey,
16516: 'PREPARER_NAME',
16517: WF_ENGINE.GetItemAttrText(p_item_type,
16518: p_item_key,
16513:
16514: WF_ENGINE.SetItemAttrText(p_item_type,
16515: l_childItemKey,
16516: 'PREPARER_NAME',
16517: WF_ENGINE.GetItemAttrText(p_item_type,
16518: p_item_key,
16519: 'PREPARER_NAME'));
16520:
16521: WF_ENGINE.SetItemAttrText(p_item_type,
16517: WF_ENGINE.GetItemAttrText(p_item_type,
16518: p_item_key,
16519: 'PREPARER_NAME'));
16520:
16521: WF_ENGINE.SetItemAttrText(p_item_type,
16522: l_childItemKey,
16523: 'PREPARER_DISPLAY_NAME',
16524: WF_ENGINE.GetItemAttrText(p_item_type,
16525: p_item_key,
16520:
16521: WF_ENGINE.SetItemAttrText(p_item_type,
16522: l_childItemKey,
16523: 'PREPARER_DISPLAY_NAME',
16524: WF_ENGINE.GetItemAttrText(p_item_type,
16525: p_item_key,
16526: 'PREPARER_DISPLAY_NAME'));
16527:
16528: WF_ENGINE.SetItemAttrNumber(p_item_type,
16524: WF_ENGINE.GetItemAttrText(p_item_type,
16525: p_item_key,
16526: 'PREPARER_DISPLAY_NAME'));
16527:
16528: WF_ENGINE.SetItemAttrNumber(p_item_type,
16529: l_childItemKey,
16530: 'EMPLOYEE_ID',
16531: WF_ENGINE.GetItemAttrNumber(p_item_type,
16532: p_item_key,
16527:
16528: WF_ENGINE.SetItemAttrNumber(p_item_type,
16529: l_childItemKey,
16530: 'EMPLOYEE_ID',
16531: WF_ENGINE.GetItemAttrNumber(p_item_type,
16532: p_item_key,
16533: 'EMPLOYEE_ID'));
16534:
16535: WF_ENGINE.SetItemAttrText(p_item_type,
16531: WF_ENGINE.GetItemAttrNumber(p_item_type,
16532: p_item_key,
16533: 'EMPLOYEE_ID'));
16534:
16535: WF_ENGINE.SetItemAttrText(p_item_type,
16536: l_childItemKey,
16537: 'EMPLOYEE_NAME',
16538: WF_ENGINE.GetItemAttrText(p_item_type,
16539: p_item_key,
16534:
16535: WF_ENGINE.SetItemAttrText(p_item_type,
16536: l_childItemKey,
16537: 'EMPLOYEE_NAME',
16538: WF_ENGINE.GetItemAttrText(p_item_type,
16539: p_item_key,
16540: 'EMPLOYEE_NAME'));
16541:
16542: WF_ENGINE.SetItemAttrText(p_item_type,
16538: WF_ENGINE.GetItemAttrText(p_item_type,
16539: p_item_key,
16540: 'EMPLOYEE_NAME'));
16541:
16542: WF_ENGINE.SetItemAttrText(p_item_type,
16543: l_childItemKey,
16544: 'EMPLOYEE_DISPLAY_NAME',
16545: WF_ENGINE.GetItemAttrText(p_item_type,
16546: p_item_key,
16541:
16542: WF_ENGINE.SetItemAttrText(p_item_type,
16543: l_childItemKey,
16544: 'EMPLOYEE_DISPLAY_NAME',
16545: WF_ENGINE.GetItemAttrText(p_item_type,
16546: p_item_key,
16547: 'EMPLOYEE_DISPLAY_NAME'));
16548:
16549: WF_ENGINE.SetItemAttrText(p_item_type,
16545: WF_ENGINE.GetItemAttrText(p_item_type,
16546: p_item_key,
16547: 'EMPLOYEE_DISPLAY_NAME'));
16548:
16549: WF_ENGINE.SetItemAttrText(p_item_type,
16550: l_childItemKey,
16551: 'PAYMENT_DUE_FROM',
16552: WF_ENGINE.GetItemAttrText(p_item_type,
16553: p_item_key,
16548:
16549: WF_ENGINE.SetItemAttrText(p_item_type,
16550: l_childItemKey,
16551: 'PAYMENT_DUE_FROM',
16552: WF_ENGINE.GetItemAttrText(p_item_type,
16553: p_item_key,
16554: 'PAYMENT_DUE_FROM'));
16555:
16556: WF_ENGINE.SetItemAttrNumber(p_item_type,
16552: WF_ENGINE.GetItemAttrText(p_item_type,
16553: p_item_key,
16554: 'PAYMENT_DUE_FROM'));
16555:
16556: WF_ENGINE.SetItemAttrNumber(p_item_type,
16557: l_childItemKey,
16558: 'TOTAL',
16559: WF_ENGINE.GetItemAttrNumber(p_item_type,
16560: p_item_key,
16555:
16556: WF_ENGINE.SetItemAttrNumber(p_item_type,
16557: l_childItemKey,
16558: 'TOTAL',
16559: WF_ENGINE.GetItemAttrNumber(p_item_type,
16560: p_item_key,
16561: 'TOTAL'));
16562:
16563: WF_ENGINE.SetItemAttrText(p_item_type,
16559: WF_ENGINE.GetItemAttrNumber(p_item_type,
16560: p_item_key,
16561: 'TOTAL'));
16562:
16563: WF_ENGINE.SetItemAttrText(p_item_type,
16564: l_childItemKey,
16565: 'DISPLAY_TOTAL',
16566: WF_ENGINE.GetItemAttrText(p_item_type,
16567: p_item_key,
16562:
16563: WF_ENGINE.SetItemAttrText(p_item_type,
16564: l_childItemKey,
16565: 'DISPLAY_TOTAL',
16566: WF_ENGINE.GetItemAttrText(p_item_type,
16567: p_item_key,
16568: 'DISPLAY_TOTAL'));
16569:
16570: WF_ENGINE.SetItemAttrDate(p_item_type,
16566: WF_ENGINE.GetItemAttrText(p_item_type,
16567: p_item_key,
16568: 'DISPLAY_TOTAL'));
16569:
16570: WF_ENGINE.SetItemAttrDate(p_item_type,
16571: l_childItemKey,
16572: 'WEEK_END_DATE',
16573: WF_ENGINE.GetItemAttrDate(p_item_type,
16574: p_item_key,
16569:
16570: WF_ENGINE.SetItemAttrDate(p_item_type,
16571: l_childItemKey,
16572: 'WEEK_END_DATE',
16573: WF_ENGINE.GetItemAttrDate(p_item_type,
16574: p_item_key,
16575: 'WEEK_END_DATE'));
16576:
16577: WF_ENGINE.SetItemAttrText(p_item_type,
16573: WF_ENGINE.GetItemAttrDate(p_item_type,
16574: p_item_key,
16575: 'WEEK_END_DATE'));
16576:
16577: WF_ENGINE.SetItemAttrText(p_item_type,
16578: l_childItemKey,
16579: 'EMPLOYEE_PROJECT_ENABLED',
16580: WF_ENGINE.GetItemAttrText(p_item_type,
16581: p_item_key,
16576:
16577: WF_ENGINE.SetItemAttrText(p_item_type,
16578: l_childItemKey,
16579: 'EMPLOYEE_PROJECT_ENABLED',
16580: WF_ENGINE.GetItemAttrText(p_item_type,
16581: p_item_key,
16582: 'EMPLOYEE_PROJECT_ENABLED'));
16583:
16584: WF_ENGINE.SetItemAttrText(p_item_type,
16580: WF_ENGINE.GetItemAttrText(p_item_type,
16581: p_item_key,
16582: 'EMPLOYEE_PROJECT_ENABLED'));
16583:
16584: WF_ENGINE.SetItemAttrText(p_item_type,
16585: l_childItemKey,
16586: 'CURRENCY',
16587: WF_ENGINE.GetItemAttrText(p_item_type,
16588: p_item_key,
16583:
16584: WF_ENGINE.SetItemAttrText(p_item_type,
16585: l_childItemKey,
16586: 'CURRENCY',
16587: WF_ENGINE.GetItemAttrText(p_item_type,
16588: p_item_key,
16589: 'CURRENCY'));
16590:
16591: WF_ENGINE.SetItemAttrText(p_item_type,
16587: WF_ENGINE.GetItemAttrText(p_item_type,
16588: p_item_key,
16589: 'CURRENCY'));
16590:
16591: WF_ENGINE.SetItemAttrText(p_item_type,
16592: l_childItemKey,
16593: 'DOC_COST_CENTER',
16594: WF_ENGINE.GetItemAttrText(p_item_type,
16595: p_item_key,
16590:
16591: WF_ENGINE.SetItemAttrText(p_item_type,
16592: l_childItemKey,
16593: 'DOC_COST_CENTER',
16594: WF_ENGINE.GetItemAttrText(p_item_type,
16595: p_item_key,
16596: 'DOC_COST_CENTER'));
16597:
16598: WF_ENGINE.SetItemAttrText(p_item_type,
16594: WF_ENGINE.GetItemAttrText(p_item_type,
16595: p_item_key,
16596: 'DOC_COST_CENTER'));
16597:
16598: WF_ENGINE.SetItemAttrText(p_item_type,
16599: l_childItemKey,
16600: 'EMP_COST_CENTER',
16601: WF_ENGINE.GetItemAttrText(p_item_type,
16602: p_item_key,
16597:
16598: WF_ENGINE.SetItemAttrText(p_item_type,
16599: l_childItemKey,
16600: 'EMP_COST_CENTER',
16601: WF_ENGINE.GetItemAttrText(p_item_type,
16602: p_item_key,
16603: 'EMP_COST_CENTER'));
16604:
16605: WF_ENGINE.SetItemAttrText(p_item_type,
16601: WF_ENGINE.GetItemAttrText(p_item_type,
16602: p_item_key,
16603: 'EMP_COST_CENTER'));
16604:
16605: WF_ENGINE.SetItemAttrText(p_item_type,
16606: l_childItemKey,
16607: 'HEADER_ATTACHMENTS',
16608: WF_ENGINE.GetItemAttrText(p_item_type,
16609: p_item_key,
16604:
16605: WF_ENGINE.SetItemAttrText(p_item_type,
16606: l_childItemKey,
16607: 'HEADER_ATTACHMENTS',
16608: WF_ENGINE.GetItemAttrText(p_item_type,
16609: p_item_key,
16610: 'HEADER_ATTACHMENTS'));
16611:
16612: WF_ENGINE.SetItemAttrText(p_item_type,
16608: WF_ENGINE.GetItemAttrText(p_item_type,
16609: p_item_key,
16610: 'HEADER_ATTACHMENTS'));
16611:
16612: WF_ENGINE.SetItemAttrText(p_item_type,
16613: l_childItemKey,
16614: 'SUBMIT_FROM_OIE',
16615: WF_ENGINE.GetItemAttrText(p_item_type,
16616: p_item_key,
16611:
16612: WF_ENGINE.SetItemAttrText(p_item_type,
16613: l_childItemKey,
16614: 'SUBMIT_FROM_OIE',
16615: WF_ENGINE.GetItemAttrText(p_item_type,
16616: p_item_key,
16617: 'SUBMIT_FROM_OIE'));
16618:
16619: WF_ENGINE.SetItemAttrText(p_item_type,
16615: WF_ENGINE.GetItemAttrText(p_item_type,
16616: p_item_key,
16617: 'SUBMIT_FROM_OIE'));
16618:
16619: WF_ENGINE.SetItemAttrText(p_item_type,
16620: l_childItemKey,
16621: 'EXPENSE_DETAILS',
16622: WF_ENGINE.GetItemAttrText(p_item_type,
16623: p_item_key,
16618:
16619: WF_ENGINE.SetItemAttrText(p_item_type,
16620: l_childItemKey,
16621: 'EXPENSE_DETAILS',
16622: WF_ENGINE.GetItemAttrText(p_item_type,
16623: p_item_key,
16624: 'EXPENSE_DETAILS'));
16625:
16626: WF_ENGINE.SetItemAttrText(p_item_type,
16622: WF_ENGINE.GetItemAttrText(p_item_type,
16623: p_item_key,
16624: 'EXPENSE_DETAILS'));
16625:
16626: WF_ENGINE.SetItemAttrText(p_item_type,
16627: l_childItemKey,
16628: 'EMP_VIOLATION_NOTE',
16629: WF_ENGINE.GetItemAttrText(p_item_type,
16630: p_item_key,
16625:
16626: WF_ENGINE.SetItemAttrText(p_item_type,
16627: l_childItemKey,
16628: 'EMP_VIOLATION_NOTE',
16629: WF_ENGINE.GetItemAttrText(p_item_type,
16630: p_item_key,
16631: 'EMP_VIOLATION_NOTE'));
16632:
16633: WF_ENGINE.SetItemAttrText(p_item_type,
16629: WF_ENGINE.GetItemAttrText(p_item_type,
16630: p_item_key,
16631: 'EMP_VIOLATION_NOTE'));
16632:
16633: WF_ENGINE.SetItemAttrText(p_item_type,
16634: l_childItemKey,
16635: 'VIOLATION_NOTE',
16636: WF_ENGINE.GetItemAttrText(p_item_type,
16637: p_item_key,
16632:
16633: WF_ENGINE.SetItemAttrText(p_item_type,
16634: l_childItemKey,
16635: 'VIOLATION_NOTE',
16636: WF_ENGINE.GetItemAttrText(p_item_type,
16637: p_item_key,
16638: 'VIOLATION_NOTE'));
16639:
16640: WF_ENGINE.SetItemAttrText(p_item_type,
16636: WF_ENGINE.GetItemAttrText(p_item_type,
16637: p_item_key,
16638: 'VIOLATION_NOTE'));
16639:
16640: WF_ENGINE.SetItemAttrText(p_item_type,
16641: l_childItemKey,
16642: 'MILEAGE_NOTE',
16643: WF_ENGINE.GetItemAttrText(p_item_type,
16644: p_item_key,
16639:
16640: WF_ENGINE.SetItemAttrText(p_item_type,
16641: l_childItemKey,
16642: 'MILEAGE_NOTE',
16643: WF_ENGINE.GetItemAttrText(p_item_type,
16644: p_item_key,
16645: 'MILEAGE_NOTE'));
16646:
16647: WF_ENGINE.SetItemAttrText(p_item_type,
16643: WF_ENGINE.GetItemAttrText(p_item_type,
16644: p_item_key,
16645: 'MILEAGE_NOTE'));
16646:
16647: WF_ENGINE.SetItemAttrText(p_item_type,
16648: l_childItemKey,
16649: 'VERIFY_NOTE',
16650: WF_ENGINE.GetItemAttrText(p_item_type,
16651: p_item_key,
16646:
16647: WF_ENGINE.SetItemAttrText(p_item_type,
16648: l_childItemKey,
16649: 'VERIFY_NOTE',
16650: WF_ENGINE.GetItemAttrText(p_item_type,
16651: p_item_key,
16652: 'VERIFY_NOTE'));
16653:
16654: WF_ENGINE.SetItemAttrText(p_item_type,
16650: WF_ENGINE.GetItemAttrText(p_item_type,
16651: p_item_key,
16652: 'VERIFY_NOTE'));
16653:
16654: WF_ENGINE.SetItemAttrText(p_item_type,
16655: l_childItemKey,
16656: 'AUDIT_RETURN_REASON',
16657: WF_ENGINE.GetItemAttrText(p_item_type,
16658: p_item_key,
16653:
16654: WF_ENGINE.SetItemAttrText(p_item_type,
16655: l_childItemKey,
16656: 'AUDIT_RETURN_REASON',
16657: WF_ENGINE.GetItemAttrText(p_item_type,
16658: p_item_key,
16659: 'AUDIT_RETURN_REASON'));
16660:
16661: WF_ENGINE.SetItemAttrText(p_item_type,
16657: WF_ENGINE.GetItemAttrText(p_item_type,
16658: p_item_key,
16659: 'AUDIT_RETURN_REASON'));
16660:
16661: WF_ENGINE.SetItemAttrText(p_item_type,
16662: l_childItemKey,
16663: 'AUDIT_INSTRUCTIONS',
16664: WF_ENGINE.GetItemAttrText(p_item_type,
16665: p_item_key,
16660:
16661: WF_ENGINE.SetItemAttrText(p_item_type,
16662: l_childItemKey,
16663: 'AUDIT_INSTRUCTIONS',
16664: WF_ENGINE.GetItemAttrText(p_item_type,
16665: p_item_key,
16666: 'AUDIT_INSTRUCTIONS'));
16667:
16668: WF_ENGINE.SetItemAttrText(p_item_type,
16664: WF_ENGINE.GetItemAttrText(p_item_type,
16665: p_item_key,
16666: 'AUDIT_INSTRUCTIONS'));
16667:
16668: WF_ENGINE.SetItemAttrText(p_item_type,
16669: l_childItemKey,
16670: 'CASH_LINE_ERRORS_AP',
16671: WF_ENGINE.GetItemAttrText(p_item_type,
16672: p_item_key,
16667:
16668: WF_ENGINE.SetItemAttrText(p_item_type,
16669: l_childItemKey,
16670: 'CASH_LINE_ERRORS_AP',
16671: WF_ENGINE.GetItemAttrText(p_item_type,
16672: p_item_key,
16673: 'CASH_LINE_ERRORS_AP'));
16674:
16675: WF_ENGINE.SetItemAttrText(p_item_type,
16671: WF_ENGINE.GetItemAttrText(p_item_type,
16672: p_item_key,
16673: 'CASH_LINE_ERRORS_AP'));
16674:
16675: WF_ENGINE.SetItemAttrText(p_item_type,
16676: l_childItemKey,
16677: 'CASH_LINE_ERRORS_PREPARER',
16678: WF_ENGINE.GetItemAttrText(p_item_type,
16679: p_item_key,
16674:
16675: WF_ENGINE.SetItemAttrText(p_item_type,
16676: l_childItemKey,
16677: 'CASH_LINE_ERRORS_PREPARER',
16678: WF_ENGINE.GetItemAttrText(p_item_type,
16679: p_item_key,
16680: 'CASH_LINE_ERRORS_PREPARER'));
16681:
16682: WF_ENGINE.SetItemAttrText(p_item_type,
16678: WF_ENGINE.GetItemAttrText(p_item_type,
16679: p_item_key,
16680: 'CASH_LINE_ERRORS_PREPARER'));
16681:
16682: WF_ENGINE.SetItemAttrText(p_item_type,
16683: l_childItemKey,
16684: 'CCARD_LINE_ERRORS_AP',
16685: WF_ENGINE.GetItemAttrText(p_item_type,
16686: p_item_key,
16681:
16682: WF_ENGINE.SetItemAttrText(p_item_type,
16683: l_childItemKey,
16684: 'CCARD_LINE_ERRORS_AP',
16685: WF_ENGINE.GetItemAttrText(p_item_type,
16686: p_item_key,
16687: 'CCARD_LINE_ERRORS_AP'));
16688:
16689: WF_ENGINE.SetItemAttrText(p_item_type,
16685: WF_ENGINE.GetItemAttrText(p_item_type,
16686: p_item_key,
16687: 'CCARD_LINE_ERRORS_AP'));
16688:
16689: WF_ENGINE.SetItemAttrText(p_item_type,
16690: l_childItemKey,
16691: 'CCARD_LINE_ERRORS_PREPARER',
16692: WF_ENGINE.GetItemAttrText(p_item_type,
16693: p_item_key,
16688:
16689: WF_ENGINE.SetItemAttrText(p_item_type,
16690: l_childItemKey,
16691: 'CCARD_LINE_ERRORS_PREPARER',
16692: WF_ENGINE.GetItemAttrText(p_item_type,
16693: p_item_key,
16694: 'CCARD_LINE_ERRORS_PREPARER'));
16695:
16696: WF_ENGINE.SetItemAttrText(p_item_type,
16692: WF_ENGINE.GetItemAttrText(p_item_type,
16693: p_item_key,
16694: 'CCARD_LINE_ERRORS_PREPARER'));
16695:
16696: WF_ENGINE.SetItemAttrText(p_item_type,
16697: l_childItemKey,
16698: 'GEN_HEADER_ERRORS',
16699: WF_ENGINE.GetItemAttrText(p_item_type,
16700: p_item_key,
16695:
16696: WF_ENGINE.SetItemAttrText(p_item_type,
16697: l_childItemKey,
16698: 'GEN_HEADER_ERRORS',
16699: WF_ENGINE.GetItemAttrText(p_item_type,
16700: p_item_key,
16701: 'GEN_HEADER_ERRORS'));
16702:
16703: WF_ENGINE.SetItemAttrText(p_item_type,
16699: WF_ENGINE.GetItemAttrText(p_item_type,
16700: p_item_key,
16701: 'GEN_HEADER_ERRORS'));
16702:
16703: WF_ENGINE.SetItemAttrText(p_item_type,
16704: l_childItemKey,
16705: 'IS_DEFAULT_COST_CENTER_USED',
16706: WF_ENGINE.GetItemAttrText(p_item_type,
16707: p_item_key,
16702:
16703: WF_ENGINE.SetItemAttrText(p_item_type,
16704: l_childItemKey,
16705: 'IS_DEFAULT_COST_CENTER_USED',
16706: WF_ENGINE.GetItemAttrText(p_item_type,
16707: p_item_key,
16708: 'IS_DEFAULT_COST_CENTER_USED'));
16709:
16710: WF_ENGINE.SetItemAttrText(p_item_type,
16706: WF_ENGINE.GetItemAttrText(p_item_type,
16707: p_item_key,
16708: 'IS_DEFAULT_COST_CENTER_USED'));
16709:
16710: WF_ENGINE.SetItemAttrText(p_item_type,
16711: l_childItemKey,
16712: 'IS_PROJECTS_REPORT',
16713: WF_ENGINE.GetItemAttrText(p_item_type,
16714: p_item_key,
16709:
16710: WF_ENGINE.SetItemAttrText(p_item_type,
16711: l_childItemKey,
16712: 'IS_PROJECTS_REPORT',
16713: WF_ENGINE.GetItemAttrText(p_item_type,
16714: p_item_key,
16715: 'IS_PROJECTS_REPORT'));
16716:
16717:
16719:
16720: ----------------------------------------------------------------
16721: l_debug_info := 'StartProcess ChildItemKey: ' || l_childItemKey;
16722: ----------------------------------------------------------------
16723: WF_ENGINE.StartProcess(p_item_type,
16724: l_childItemKey);
16725:
16726: END LOOP;
16727:
16724: l_childItemKey);
16725:
16726: END LOOP;
16727:
16728: WF_ENGINE.SetItemAttrText(p_item_type,
16729: p_item_key,
16730: 'AME_CHILD_ITEM_KEY_SEQ',
16731: l_childItemKeySeq);
16732:
16746: WHEN continue_exception THEN
16747: NULL;
16748: WHEN fixable_exception THEN
16749: -- bug 3257576
16750: WF_ENGINE.SetItemAttrText(p_item_type,
16751: p_item_key,
16752: 'NO_APPROVER_PROBLEM',
16753: l_error_message);
16754: WF_ENGINE.SetItemAttrText(p_item_type,
16750: WF_ENGINE.SetItemAttrText(p_item_type,
16751: p_item_key,
16752: 'NO_APPROVER_PROBLEM',
16753: l_error_message);
16754: WF_ENGINE.SetItemAttrText(p_item_type,
16755: p_item_key,
16756: 'NO_APPROVER_INSTRUCTIONS',
16757: l_instructions);
16758: WF_ENGINE.SetItemAttrText(p_item_type,
16754: WF_ENGINE.SetItemAttrText(p_item_type,
16755: p_item_key,
16756: 'NO_APPROVER_INSTRUCTIONS',
16757: l_instructions);
16758: WF_ENGINE.SetItemAttrText(p_item_type,
16759: p_item_key,
16760: 'NO_APPROVER_SPECIAL_INSTR',
16761: l_special_instr);
16762:
16790:
16791: --------------------------------------------------------------
16792: l_debug_info := 'Retrieve AME approval category - Action/FYI';
16793: --------------------------------------------------------------
16794: l_ActionOrFyi := WF_ENGINE.GetItemAttrText(p_item_type,
16795: p_item_key,
16796: 'AME_APPROVAL_TYPE');
16797:
16798: IF (nvl(l_ActionOrFyi,'A') = 'A') THEN
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,
16850: p_item_key,
16851: 'AME_MASTER_ITEM_KEY');
16852:
16853: l_approverResponse := WF_ENGINE.GetItemAttrText(p_item_type,
16849: l_AmeMasterItemKey := WF_ENGINE.GetItemAttrText(p_item_type,
16850: p_item_key,
16851: 'AME_MASTER_ITEM_KEY');
16852:
16853: l_approverResponse := WF_ENGINE.GetItemAttrText(p_item_type,
16854: l_AmeMasterItemKey,
16855: 'AME_APPROVER_RESPONSE');
16856:
16857: l_response := WF_ENGINE.GetActivityAttrText(p_item_type,
16853: l_approverResponse := WF_ENGINE.GetItemAttrText(p_item_type,
16854: l_AmeMasterItemKey,
16855: 'AME_APPROVER_RESPONSE');
16856:
16857: l_response := WF_ENGINE.GetActivityAttrText(p_item_type,
16858: p_item_key,
16859: p_actid,
16860: 'RESPONSE');
16861: --------------------------------------------------------------
16865: ---------------------------------------------------------------
16866:
16867: IF ((l_approverResponse IS NULL) OR (l_approverResponse <> 'REJECTED'))
16868: AND (l_response IS NOT NULL) THEN
16869: WF_ENGINE.SetItemAttrText(p_item_type,
16870: l_AmeMasterItemKey,
16871: 'AME_APPROVER_RESPONSE',
16872: l_response);
16873: IF (l_response = 'REJECTED') THEN
16870: l_AmeMasterItemKey,
16871: 'AME_APPROVER_RESPONSE',
16872: l_response);
16873: IF (l_response = 'REJECTED') THEN
16874: WF_ENGINE.SetItemAttrText(p_item_type,
16875: l_AmeMasterItemKey,
16876: 'AME_REJECTED_CHILD_ITEM_KEY',
16877: p_item_key);
16878: END IF;
16878: END IF;
16879: --bug 6686996
16880: IF (l_response = 'APPROVED') THEN
16881: begin
16882: WF_ENGINE.SetItemAttrText(p_item_type,
16883: l_AmeMasterItemKey,
16884: 'AME_APPROVED_CHILD_ITEM_KEY',
16885: p_item_key);
16886: exception
16886: exception
16887: when others then
16888: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
16889: -- AME_APPROVED_CHILD_ITEM_KEY item attribute doesn't exist, need to add it
16890: WF_ENGINE.AddItemAttr(p_item_type, l_AmeMasterItemKey, 'AME_APPROVED_CHILD_ITEM_KEY');
16891:
16892: WF_ENGINE.SetItemAttrText(p_item_type,
16893: l_AmeMasterItemKey,
16894: 'AME_APPROVED_CHILD_ITEM_KEY',
16888: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
16889: -- AME_APPROVED_CHILD_ITEM_KEY item attribute doesn't exist, need to add it
16890: WF_ENGINE.AddItemAttr(p_item_type, l_AmeMasterItemKey, 'AME_APPROVED_CHILD_ITEM_KEY');
16891:
16892: WF_ENGINE.SetItemAttrText(p_item_type,
16893: l_AmeMasterItemKey,
16894: 'AME_APPROVED_CHILD_ITEM_KEY',
16895: p_item_key);
16896: else
16900: END IF;
16901: --Bug 6411930: copy approver display name and note from rejected
16902: --child to parent, they are used to display the information in the
16903: --rejection notif to the preparer
16904: WF_ENGINE.SetItemAttrText(p_item_type,
16905: l_AmeMasterItemKey,
16906: 'APPROVER_ID',
16907: WF_ENGINE.GetItemAttrText(p_item_type,
16908: p_item_key,
16903: --rejection notif to the preparer
16904: WF_ENGINE.SetItemAttrText(p_item_type,
16905: l_AmeMasterItemKey,
16906: 'APPROVER_ID',
16907: WF_ENGINE.GetItemAttrText(p_item_type,
16908: p_item_key,
16909: 'APPROVER_ID'));
16910: WF_ENGINE.SetItemAttrText(p_item_type,
16911: l_AmeMasterItemKey,
16906: 'APPROVER_ID',
16907: WF_ENGINE.GetItemAttrText(p_item_type,
16908: p_item_key,
16909: 'APPROVER_ID'));
16910: WF_ENGINE.SetItemAttrText(p_item_type,
16911: l_AmeMasterItemKey,
16912: 'APPROVER_NAME',
16913: WF_ENGINE.GetItemAttrText(p_item_type,
16914: p_item_key,
16909: 'APPROVER_ID'));
16910: WF_ENGINE.SetItemAttrText(p_item_type,
16911: l_AmeMasterItemKey,
16912: 'APPROVER_NAME',
16913: WF_ENGINE.GetItemAttrText(p_item_type,
16914: p_item_key,
16915: 'APPROVER_NAME'));
16916: WF_ENGINE.SetItemAttrText(p_item_type,
16917: l_AmeMasterItemKey,
16912: 'APPROVER_NAME',
16913: WF_ENGINE.GetItemAttrText(p_item_type,
16914: p_item_key,
16915: 'APPROVER_NAME'));
16916: WF_ENGINE.SetItemAttrText(p_item_type,
16917: l_AmeMasterItemKey,
16918: 'APPROVER_DISPLAY_NAME',
16919: WF_ENGINE.GetItemAttrText(p_item_type,
16920: p_item_key,
16915: 'APPROVER_NAME'));
16916: WF_ENGINE.SetItemAttrText(p_item_type,
16917: l_AmeMasterItemKey,
16918: 'APPROVER_DISPLAY_NAME',
16919: WF_ENGINE.GetItemAttrText(p_item_type,
16920: p_item_key,
16921: 'APPROVER_DISPLAY_NAME'));
16922: WF_ENGINE.SetItemAttrText(p_item_type,
16923: l_AmeMasterItemKey,
16918: 'APPROVER_DISPLAY_NAME',
16919: WF_ENGINE.GetItemAttrText(p_item_type,
16920: p_item_key,
16921: 'APPROVER_DISPLAY_NAME'));
16922: WF_ENGINE.SetItemAttrText(p_item_type,
16923: l_AmeMasterItemKey,
16924: 'WF_NOTE',
16925: WF_ENGINE.GetItemAttrText(p_item_type,
16926: p_item_key,
16921: 'APPROVER_DISPLAY_NAME'));
16922: WF_ENGINE.SetItemAttrText(p_item_type,
16923: l_AmeMasterItemKey,
16924: 'WF_NOTE',
16925: WF_ENGINE.GetItemAttrText(p_item_type,
16926: p_item_key,
16927: 'WF_NOTE'));
16928:
16929: END IF;
16930:
16931: ------------------------------------------------------
16932: l_debug_info := 'Retrieve Approver_ID Item Attribute';
16933: -------------------------------------------------------
16934: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
16935: l_AmeMasterItemKey,
16936: 'APPROVER_ID');
16937:
16938: ------------------------------------------------------
16937:
16938: ------------------------------------------------------
16939: l_debug_info := 'Retrieve Approver_ID Item Attribute';
16940: -------------------------------------------------------
16941: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
16942: p_item_key,
16943: 'APPROVER_NAME');
16944:
16945: IF (l_response = 'APPROVED') THEN
17024:
17025: --------------------------------------------------------------
17026: l_debug_info := 'Check Approver Response - APPROVED/REJECTED';
17027: --------------------------------------------------------------
17028: l_approverResponse := WF_ENGINE.GetItemAttrText(p_item_type,
17029: p_item_key,
17030: 'AME_APPROVER_RESPONSE');
17031:
17032: IF (l_approverResponse = 'APPROVED') THEN
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,
17086: p_item_key,
17087: 'AME_MASTER_ITEM_KEY');
17088:
17089: ------------------------------------------------------
17089: ------------------------------------------------------
17090: l_debug_info := 'Call CompleteActivity ' || l_AmeMasterItemKey ;
17091: ------------------------------------------------------
17092: begin
17093: WF_ENGINE.CompleteActivity(itemtype => p_item_type,
17094: itemkey => l_AmeMasterItemKey,
17095: activity => 'AME_APPROVAL_BLOCK',
17096: result => null);
17097: l_result := 'Y';
17097: l_result := 'Y';
17098: exception
17099: WHEN others THEN
17100:
17101: l_check_error := WF_ENGINE.GetActivityAttrText(p_item_type,
17102: p_item_key,
17103: p_actid,
17104: 'CHECK_ERROR');
17105: if l_check_error = 'Y' then
17282:
17283: ---------------------------------------------------------------
17284: l_debug_info := 'Retrieve Employee Id Item Attribute';
17285: ---------------------------------------------------------------
17286: l_person_id := WF_ENGINE.GetItemAttrText(p_item_type,
17287: p_item_key,
17288: 'PREPARER_ID');
17289:
17290: -- Check whether person is active
17316: l_req_mgr_appr VARCHAR2(1);
17317: l_img_recpt_status VARCHAR2(30);
17318: BEGIN
17319: IF (p_funmode = 'RUN') THEN
17320: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
17321: p_item_key,
17322: 'EXPENSE_REPORT_ID');
17323: IF (l_report_header_id IS NULL) THEN
17324: p_result := 'COMPLETE:N';
17355:
17356: PROCEDURE CompleteReceiptsBlock(p_report_header_id IN VARCHAR2) IS
17357: BEGIN
17358:
17359: WF_ENGINE.CompleteActivity('APEXP',
17360: p_report_header_id,
17361: 'HOLD_FOR_IMAGE_RECEIPTS',
17362: '');
17363:
17377: l_report_header_id AP_WEB_DB_EXPRPT_PKG.expHdr_headerID;
17378: BEGIN
17379:
17380: IF (p_funmode = 'RUN') THEN
17381: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
17382: p_item_key,
17383: 'EXPENSE_REPORT_ID');
17384: IF (l_report_header_id IS NULL) THEN
17385: p_result := 'COMPLETE:N';
17425: BEGIN
17426:
17427: IF (p_funmode = 'RUN') THEN
17428:
17429: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
17430: p_item_key,
17431: 'EXPENSE_REPORT_ID');
17432: l_image_receipts_status := WF_ENGINE.GetActivityAttrText(p_item_type,
17433: p_item_key,
17428:
17429: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
17430: p_item_key,
17431: 'EXPENSE_REPORT_ID');
17432: l_image_receipts_status := WF_ENGINE.GetActivityAttrText(p_item_type,
17433: p_item_key,
17434: p_actid,
17435: 'IMAGE_RECEIPTS_STATUS');
17436:
17459: BEGIN
17460:
17461: IF (p_funmode = 'RUN') THEN
17462:
17463: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
17464: p_item_key,
17465: 'EXPENSE_REPORT_ID');
17466:
17467: l_orig_receipts_status := WF_ENGINE.GetActivityAttrText(p_item_type,
17463: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
17464: p_item_key,
17465: 'EXPENSE_REPORT_ID');
17466:
17467: l_orig_receipts_status := WF_ENGINE.GetActivityAttrText(p_item_type,
17468: p_item_key,
17469: p_actid,
17470: 'ORIGINAL_RECEIPTS_STATUS');
17471:
17495: BEGIN
17496:
17497: IF (p_funmode = 'RUN') THEN
17498:
17499: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
17500: p_item_key,
17501: 'EXPENSE_REPORT_ID');
17502:
17503: l_expense_status_code := WF_ENGINE.GetActivityAttrText(p_item_type,
17499: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
17500: p_item_key,
17501: 'EXPENSE_REPORT_ID');
17502:
17503: l_expense_status_code := WF_ENGINE.GetActivityAttrText(p_item_type,
17504: p_item_key,
17505: p_actid,
17506: 'EXPENSE_STATUS_CODE');
17507:
17533: l_both_count number;
17534: l_report_header_id AP_WEB_DB_EXPRPT_PKG.expHdr_headerID;
17535: BEGIN
17536: IF (p_funmode = 'RUN') THEN
17537: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
17538: p_item_key,
17539: 'EXPENSE_REPORT_ID');
17540: SELECT count(*) into l_line_count FROM ap_expense_report_lines
17541: WHERE report_header_id = l_report_header_id;