[Home] [Help]
133: BEGIN
134:
135: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start GetFlowVersion');
136:
137: l_version_num := WF_ENGINE.GetItemAttrNumber(p_item_type,
138: p_item_key,
139: 'VERSION');
140:
141: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetFlowVersion');
187: if l_role_valid <> 'N' then
188: ----------------------------------------------------------------
189: l_debug_info := 'Set #FROM_ROLE : called from : ' || p_called_from;
190: ----------------------------------------------------------------
191: WF_ENGINE.SetItemAttrText(p_item_type,
192: p_item_key,
193: '#FROM_ROLE',
194: tvalue);
195: end if;
253:
254: -- Grants Integration
255: l_grants_enabled VARCHAR2(1);
256:
257: l_textNameArr Wf_Engine.NameTabTyp;
258: l_textValArr Wf_Engine.TextTabTyp;
259: l_numNameArr Wf_Engine.NameTabTyp;
260: l_numValArr Wf_Engine.NumTabTyp;
261: iNum NUMBER :=0;
254: -- Grants Integration
255: l_grants_enabled VARCHAR2(1);
256:
257: l_textNameArr Wf_Engine.NameTabTyp;
258: l_textValArr Wf_Engine.TextTabTyp;
259: l_numNameArr Wf_Engine.NameTabTyp;
260: l_numValArr Wf_Engine.NumTabTyp;
261: iNum NUMBER :=0;
262: iText NUMBER :=0;
255: l_grants_enabled VARCHAR2(1);
256:
257: l_textNameArr Wf_Engine.NameTabTyp;
258: l_textValArr Wf_Engine.TextTabTyp;
259: l_numNameArr Wf_Engine.NameTabTyp;
260: l_numValArr Wf_Engine.NumTabTyp;
261: iNum NUMBER :=0;
262: iText NUMBER :=0;
263:
256:
257: l_textNameArr Wf_Engine.NameTabTyp;
258: l_textValArr Wf_Engine.TextTabTyp;
259: l_numNameArr Wf_Engine.NameTabTyp;
260: l_numValArr Wf_Engine.NumTabTyp;
261: iNum NUMBER :=0;
262: iText NUMBER :=0;
263:
264: --ER 1552747 - withdraw expense report
319:
320: --------------------------------------------------
321: l_debug_info := 'Calling WorkFlow Create Process';
322: --------------------------------------------------
323: WF_ENGINE.CreateProcess(l_item_type,
324: l_item_key,
325: 'AP_EXPENSE_REPORT_PROCESS');
326: EXCEPTION
327: when others then
356: -- ORG_ID was added later; therefore, it needs to be tested for upgrade purpose, and
357: -- is not included in the bulk update.
358: begin
359:
360: WF_ENGINE.SetItemAttrNumber(l_item_type,
361: l_item_key,
362: 'ORG_ID',
363: l_n_Org_ID);
364: exception
364: exception
365: when others then
366: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
367: -- ORG_ID item attribute doesn't exist, need to add it
368: WF_ENGINE.AddItemAttr(l_item_type, l_item_key, 'ORG_ID');
369: WF_ENGINE.SetItemAttrNumber(l_item_type,
370: l_item_key,
371: 'ORG_ID',
372: l_n_Org_ID);
365: when others then
366: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
367: -- ORG_ID item attribute doesn't exist, need to add it
368: WF_ENGINE.AddItemAttr(l_item_type, l_item_key, 'ORG_ID');
369: WF_ENGINE.SetItemAttrNumber(l_item_type,
370: l_item_key,
371: 'ORG_ID',
372: l_n_Org_ID);
373: else
379:
380: begin
381:
382: /* Bug 2351528. Need to set the user_key for easier query */
383: WF_ENGINE.SetItemUserKey(l_item_type,
384: l_item_key,
385: p_document_number);
386:
387: --------------------------------------------------------------
386:
387: --------------------------------------------------------------
388: l_debug_info := 'Set User_ID value ';
389: --------------------------------------------------------------
390: WF_ENGINE.SetItemAttrNumber(l_item_type,
391: l_item_key,
392: 'USER_ID',
393: FND_PROFILE.VALUE('USER_ID'));
394:
394:
395: --------------------------------------------------------------
396: l_debug_info := 'Set Resp_ID value ';
397: --------------------------------------------------------------
398: WF_ENGINE.SetItemAttrNumber(l_item_type,
399: l_item_key,
400: 'RESPONSIBILITY_ID',
401: FND_PROFILE.VALUE('RESP_ID'));
402:
402:
403: --------------------------------------------------------------
404: l_debug_info := 'Set Resp_Appl_ID value ';
405: --------------------------------------------------------------
406: WF_ENGINE.SetItemAttrNumber(l_item_type,
407: l_item_key,
408: 'APPLICATION_ID',
409: FND_PROFILE.VALUE('RESP_APPL_ID'));
410:
410:
411: ------------------------------------------------------------
412: l_debug_info := 'Get responsibility id';
413: ------------------------------------------------------------
414: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(l_item_type,
415: l_item_key,
416: 'RESPONSIBILITY_ID');
417:
418: exception
434: else
435: l_AMEEnabled := 'N';
436: end if;
437:
438: WF_ENGINE.SetItemAttrText(l_item_type,
439: l_item_key,
440: 'AME_ENABLED',
441: l_AMEEnabled);
442:
446: --ER 1552747 - withdraw expense report
447: if p_workflow_flag = AP_WEB_DB_EXPRPT_PKG.C_WORKFLOW_APPROVED_WITHDRAW then
448: FND_MESSAGE.SET_NAME('SQLAP','OIE_WITHDRAW_WARNING');
449: l_mess := FND_MESSAGE.GET;
450: WF_ENGINE.SetItemAttrText(l_item_type,
451: l_item_key,
452: 'WITHDRAW_WARNING',
453: l_mess);
454: end if;
455:
456: ----------------------------------------------------
457: l_debug_info := 'Set Grants Enabled Item Attribute';
458: ----------------------------------------------------
459: WF_ENGINE.SetItemAttrText(l_item_type,
460: l_item_key,
461: 'GRANTS_ENABLED',
462: l_grants_enabled);
463:
508:
509: ----------------------------------------------------------
510: l_debug_info := 'Set the Owner of Workflow Process.';
511: ----------------------------------------------------------
512: WF_ENGINE.SetItemOwner(l_item_type, l_item_key, l_preparer_name);
513:
514: ------------------------------------------------------------
515: l_debug_info := 'Get Name Info Associated With Employee_Id';
516: ------------------------------------------------------------
663:
664: -------------------------------------------------
665: l_debug_info := 'Set WF Week End Date Item Attribute';
666: -------------------------------------------------
667: WF_ENGINE.SetItemAttrDate(l_item_type,
668: l_item_key,
669: 'WEEK_END_DATE',
670: p_week_end_date);
671:
714:
715: ----------------------------------------------------
716: l_debug_info := 'Set SUBMIT_FROM_OIE Item Attribute';
717: ----------------------------------------------------
718: WF_ENGINE.SetItemAttrText(l_item_type,
719: l_item_key,
720: 'SUBMIT_FROM_OIE',
721: p_submit_from_oie);
722:
802:
803: -----------------------------------------------------
804: l_debug_info := 'Set all number Attributes';
805: -----------------------------------------------------
806: WF_ENGINE.SetItemAttrNumberArray(l_item_type, l_item_key, l_numNameArr, l_numValArr);
807:
808: -----------------------------------------------------
809: l_debug_info := 'Set all text Attributes';
810: -----------------------------------------------------
807:
808: -----------------------------------------------------
809: l_debug_info := 'Set all text Attributes';
810: -----------------------------------------------------
811: WF_ENGINE.SetItemAttrTextArray(l_item_type, l_item_key, l_textNameArr, l_textValArr);
812:
813: BEGIN
814: IF (NOT l_ResubmitReport and p_event_raised <> 'Y') THEN
815:
815:
816: ------------------------------------------------------------
817: l_debug_info := 'Start the Expense Report Workflow Process';
818: ------------------------------------------------------------
819: WF_ENGINE.StartProcess(l_item_type,
820: l_item_key);
821:
822: ELSIF (l_ResubmitReport) THEN
823:
829:
830: ----------------------------------------------------------
831: l_debug_info := 'clear Item Attribute AUDIT_RETURN_REASON';
832: ---------------------------------------------------------
833: WF_ENGINE.SetItemAttrText(l_item_type,
834: l_item_key,
835: 'AUDIT_RETURN_REASON',
836: '');
837:
837:
838: ----------------------------------------------------------
839: l_debug_info := 'Set Item Attribute AUDIT_INSTRUCTIONS';
840: ---------------------------------------------------------
841: WF_ENGINE.SetItemAttrText(l_item_type,
842: l_item_key,
843: 'AUDIT_INSTRUCTIONS',
844: '');
845:
845:
846: ------------------------------------------------------------
847: l_debug_info := 'Restart the Expense Report Workflow Process';
848: ------------------------------------------------------------
849: WF_ENGINE.CompleteActivity(l_item_type,
850: l_item_key,
851: 'RESUBMIT_BLOCK',
852: '');
853:
1151:
1152: ----------------------------------------------------
1153: l_debug_info := 'Retrieve Currency Item Attribute';
1154: ----------------------------------------------------
1155: l_currency := WF_ENGINE.GetItemAttrText(l_item_type,
1156: l_item_key,
1157: 'CURRENCY');
1158:
1159: ------------------------------------------------------------
1158:
1159: ------------------------------------------------------------
1160: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
1161: ------------------------------------------------------------
1162: l_report_header_id := WF_ENGINE.GetItemAttrNumber(l_item_type,
1163: l_item_key,
1164: 'EXPENSE_REPORT_ID');
1165:
1166: --------------------------------------------
1167: l_debug_info := 'Get Org Id';
1168: --------------------------------------------
1169: begin
1170:
1171: l_n_org_id := WF_ENGINE.GetItemAttrNumber(l_item_type,
1172: l_item_key,
1173: 'ORG_ID');
1174: exception
1175: when others then
1174: exception
1175: when others then
1176: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
1177: -- ORG_ID item attribute doesn't exist, need to add it
1178: WF_ENGINE.AddItemAttr(l_item_type, l_item_key, 'ORG_ID');
1179: IF (AP_WEB_DB_EXPRPT_PKG.GetOrgIdByReportHeaderId(
1180: to_number(l_item_key),
1181: l_n_org_id) <> TRUE ) THEN
1182: l_n_org_id := NULL;
1181: l_n_org_id) <> TRUE ) THEN
1182: l_n_org_id := NULL;
1183: END IF;
1184:
1185: WF_ENGINE.SetItemAttrNumber(l_item_type,
1186: l_item_key,
1187: 'ORG_ID',
1188: l_n_org_ID);
1189: else
1389: -- StartExpenseReportProcess before the returned report is resubmitted.
1390: -- We need to clear these because we will be revisiting nodes in the process.
1391: --
1392:
1393: l_textNameArr Wf_Engine.NameTabTyp;
1394: l_textValArr Wf_Engine.TextTabTyp;
1395: iText NUMBER :=0;
1396:
1397: l_report_header_id NUMBER;
1390: -- We need to clear these because we will be revisiting nodes in the process.
1391: --
1392:
1393: l_textNameArr Wf_Engine.NameTabTyp;
1394: l_textValArr Wf_Engine.TextTabTyp;
1395: iText NUMBER :=0;
1396:
1397: l_report_header_id NUMBER;
1398: C_WF_Version NUMBER := 0;
1412:
1413: ------------------------------------------------------------
1414: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
1415: ------------------------------------------------------------
1416: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
1417: p_item_key,
1418: 'EXPENSE_REPORT_ID');
1419:
1420: ------------------------------------------------------
1494:
1495: -----------------------------------------------------
1496: l_debug_info := 'Set all text Attributes';
1497: -----------------------------------------------------
1498: WF_ENGINE.SetItemAttrTextArray(p_item_type, p_item_key, l_textNameArr, l_textValArr);
1499:
1500:
1501: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end ResetAPValidationAttrValues');
1502:
1537:
1538: ------------------------------------------------------------
1539: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
1540: ------------------------------------------------------------
1541: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
1542: p_item_key,
1543: 'EXPENSE_REPORT_ID');
1544:
1545: ----------------------------------------------------------------
1558:
1559: ------------------------------------------------------------
1560: l_debug_info := 'Retrieve HEADER_ERRORS Item Attribute';
1561: ------------------------------------------------------------
1562: l_header_errors := WF_ENGINE.GetItemAttrText(p_item_type,
1563: p_item_key,
1564: 'HEADER_ERRORS');
1565: if (l_header_errors IS NOT NULL) then
1566: WF_ENGINE.SetItemAttrText(p_item_type,
1562: l_header_errors := WF_ENGINE.GetItemAttrText(p_item_type,
1563: p_item_key,
1564: 'HEADER_ERRORS');
1565: if (l_header_errors IS NOT NULL) then
1566: WF_ENGINE.SetItemAttrText(p_item_type,
1567: p_item_key,
1568: 'HEADER_ERRORS',
1569: l_header_errors || '
');
1570: end if;
1571:
1572: ------------------------------------------------------------
1573: l_debug_info := 'Retrieve OTHER_ERRORS Item Attribute';
1574: ------------------------------------------------------------
1575: l_other_errors := WF_ENGINE.GetItemAttrText(p_item_type,
1576: p_item_key,
1577: 'OTHER_ERRORS');
1578: if (l_other_errors IS NOT NULL) then
1579: WF_ENGINE.SetItemAttrText(p_item_type,
1575: l_other_errors := WF_ENGINE.GetItemAttrText(p_item_type,
1576: p_item_key,
1577: 'OTHER_ERRORS');
1578: if (l_other_errors IS NOT NULL) then
1579: WF_ENGINE.SetItemAttrText(p_item_type,
1580: p_item_key,
1581: 'OTHER_ERRORS',
1582: l_other_errors || '
');
1583: end if;
1590: ------------------------------------------------------------
1591: l_debug_info := 'Retrieve EXP_ALLOCATION_ERRORS Item Attribute';
1592: ------------------------------------------------------------
1593: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_OIEJ_Version) THEN
1594: l_exp_alloc_errors := WF_ENGINE.GetItemAttrText(p_item_type,
1595: p_item_key,
1596: 'EXP_ALLOCATION_ERRORS',
1597: true);
1598: if (l_exp_alloc_errors IS NOT NULL) then
1595: p_item_key,
1596: 'EXP_ALLOCATION_ERRORS',
1597: true);
1598: if (l_exp_alloc_errors IS NOT NULL) then
1599: WF_ENGINE.SetItemAttrText(p_item_type,
1600: p_item_key,
1601: 'EXP_ALLOCATION_ERRORS',
1602: l_exp_alloc_errors );
1603: end if;
1605:
1606: ----------------------------------------------------------------
1607: l_debug_info := 'Retrieve Employee Cost Center Item Attribute';
1608: ----------------------------------------------------------------
1609: l_emp_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
1610: p_item_key,
1611: 'EMP_COST_CENTER');
1612:
1613: ----------------------------------------------------------------
1612:
1613: ----------------------------------------------------------------
1614: l_debug_info := 'Retrieve Document Cost Center Item Attribute';
1615: ----------------------------------------------------------------
1616: l_doc_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
1617: p_item_key,
1618: 'DOC_COST_CENTER');
1619:
1620: ----------------------------------------------------------------
1627: FROM FND_LOOKUPS fndl
1628: WHERE fndl.LOOKUP_TYPE = C_YES_NO
1629: AND fndl.LOOKUP_CODE = C_Y;
1630:
1631: WF_ENGINE.SetItemAttrText(p_item_type,
1632: p_item_key,
1633: 'IS_DEFAULT_COST_CENTER_USED',
1634: l_yes);
1635: else
1639: FROM FND_LOOKUPS fndl
1640: WHERE fndl.LOOKUP_TYPE = C_YES_NO
1641: AND fndl.LOOKUP_CODE = C_N;
1642:
1643: WF_ENGINE.SetItemAttrText(p_item_type,
1644: p_item_key,
1645: 'IS_DEFAULT_COST_CENTER_USED',
1646: l_no);
1647: end if;
1737:
1738: ---------------------------------------------------------
1739: l_debug_info := 'Add to Header Errors';
1740: ---------------------------------------------------------
1741: l_header_errors := WF_ENGINE.GetItemAttrText(p_item_type,
1742: p_item_key,
1743: 'HEADER_ERRORS');
1744: ---------------------------------------------------------
1745: l_debug_info := 'Check to see if error title needed';
1756: AddToWFSSError(l_header_errors, p_header_error);
1757:
1758: l_header_errors := l_header_errors || endOraFieldTextFont;
1759:
1760: WF_ENGINE.SetItemAttrText(p_item_type,
1761: p_item_key,
1762: 'HEADER_ERRORS',
1763: l_header_errors);
1764:
2073: C_WF_Version := GetFlowVersion(p_item_type, p_item_key);
2074:
2075: -- Determine whether project enabled
2076: l_debug_info := 'Determine whether project enabled';
2077: V_UserID := WF_ENGINE.GetItemAttrNumber(p_item_type,
2078: p_item_key,
2079: 'EMPLOYEE_ID');
2080:
2081: ------------------------------------------------------------
2081: ------------------------------------------------------------
2082: l_debug_info := 'Determine whether session is project enabled';
2083: ------------------------------------------------------------
2084: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_11_0_3Version) THEN
2085: V_IsSessionProjectEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
2086: p_item_key,
2087: 'EMPLOYEE_PROJECT_ENABLED');
2088: ELSE
2089: -- In previous versions we called
2106:
2107: ---------------------------------------------------------
2108: l_debug_info := 'Retrieve Payment Due From System Option';
2109: ---------------------------------------------------------
2110: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
2111:
2112: IF (l_payment_due = C_CompanyPay) then
2113: ------------------------------------------------------------------------
2114: l_debug_info := 'calling AP_WEB_DB_EXPTEMPLATE_PKG.GetPersonalParamID';
2443: l_line_error_message := l_line_error_message;
2444: l_add_to_line_error := true;
2445:
2446: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_OIEJ_Version) THEN
2447: WF_ENGINE.SetItemAttrText(p_item_type,
2448: p_item_key,
2449: 'EXP_ALLOCATION_ERRORS',
2450: 'Y');
2451: END IF;
2505: FROM FND_LOOKUPS fndl
2506: WHERE fndl.LOOKUP_TYPE = C_YES_NO
2507: AND fndl.LOOKUP_CODE = C_Y;
2508:
2509: WF_ENGINE.SetItemAttrText(p_item_type,
2510: p_item_key,
2511: 'IS_PROJECTS_REPORT',
2512: l_yes);
2513: else
2516: FROM FND_LOOKUPS fndl
2517: WHERE fndl.LOOKUP_TYPE = C_YES_NO
2518: AND fndl.LOOKUP_CODE = C_N;
2519:
2520: WF_ENGINE.SetItemAttrText(p_item_type,
2521: p_item_key,
2522: 'IS_PROJECTS_REPORT',
2523: l_no);
2524: end if; /* l_is_projects_report */
2731:
2732: ------------------------------------------------------------
2733: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
2734: ------------------------------------------------------------
2735: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
2736: p_item_key,
2737: 'EXPENSE_REPORT_ID');
2738:
2739: --chiho:1352284:
2759: IF (l_shortpaid_flag = 'Y' ) THEN
2760: fnd_message.set_name('SQLAP', 'OIE_WF_APPROVAL_POLICY_NOTE');
2761: l_warning_msg := FND_MESSAGE.Get;
2762:
2763: WF_ENGINE.SetItemAttrText(
2764: p_item_type,
2765: p_item_key,
2766: 'VIOLATION_NOTE',
2767: WF_ENGINE.GetItemAttrText(p_item_type,
2763: WF_ENGINE.SetItemAttrText(
2764: p_item_type,
2765: p_item_key,
2766: 'VIOLATION_NOTE',
2767: WF_ENGINE.GetItemAttrText(p_item_type,
2768: p_item_key,
2769: 'VIOLATION_NOTE')||' '|| l_warning_msg );
2770: END IF;
2771: END IF;
2773:
2774: fnd_message.set_name('SQLAP', 'AP_WEB_EXP_APRVL_RECPTS_MISSIN');
2775: l_warning_msg := FND_MESSAGE.Get;
2776:
2777: WF_ENGINE.SetItemAttrText(
2778: p_item_type,
2779: p_item_key,
2780: 'VIOLATION_NOTE',
2781: WF_ENGINE.GetItemAttrText(p_item_type,
2777: WF_ENGINE.SetItemAttrText(
2778: p_item_type,
2779: p_item_key,
2780: 'VIOLATION_NOTE',
2781: WF_ENGINE.GetItemAttrText(p_item_type,
2782: p_item_key,
2783: 'VIOLATION_NOTE')||' '||l_warning_msg );
2784:
2785: END IF;
2788: IF (AP_WEB_DB_EXPLINE_PKG.AnyPolicyViolation(l_report_header_id)) THEN
2789: fnd_message.set_name('SQLAP', 'AP_WEB_EXP_APRVL_RULES_VIOLATE');
2790: l_warning_msg := FND_MESSAGE.Get;
2791:
2792: WF_ENGINE.SetItemAttrText(
2793: p_item_type,
2794: p_item_key,
2795: 'VIOLATION_NOTE',
2796: WF_ENGINE.GetItemAttrText(p_item_type,
2792: WF_ENGINE.SetItemAttrText(
2793: p_item_type,
2794: p_item_key,
2795: 'VIOLATION_NOTE',
2796: WF_ENGINE.GetItemAttrText(p_item_type,
2797: p_item_key,
2798: 'VIOLATION_NOTE')||' '||l_warning_msg );
2799:
2800: END IF;
2832:
2833: ------------------------------------------------------------
2834: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
2835: ------------------------------------------------------------
2836: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
2837: p_item_key,
2838: 'EXPENSE_REPORT_ID');
2839:
2840:
2889:
2890: ------------------------------------------------------------
2891: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
2892: ------------------------------------------------------------
2893: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
2894: p_item_key,
2895: 'EXPENSE_REPORT_ID');
2896:
2897: ----------------------------------------------------
2896:
2897: ----------------------------------------------------
2898: l_debug_info := 'Retrieve Currency Item Attribute';
2899: ----------------------------------------------------
2900: l_currency := WF_ENGINE.GetItemAttrText(p_item_type,
2901: p_item_key,
2902: 'CURRENCY');
2903:
2904: ---------------------------------------------------------------------------
2903:
2904: ---------------------------------------------------------------------------
2905: l_debug_info := 'Retrieve AP Receipt Minnsing Amount Limit Item Attribute';
2906: ---------------------------------------------------------------------------
2907: l_sum_limit := WF_ENGINE.GetActivityAttrNumber(p_item_type,
2908: p_item_key,
2909: p_actid,
2910: 'SUM_MISSING_RECEIPTS_LIMIT');
2911:
2925: l_sum_violations := 0;
2926: END IF;
2927:
2928: IF (nvl(l_sum_violations, 0) > 0) THEN
2929: WF_ENGINE.SetItemAttrText(p_item_type,
2930: p_item_key,
2931: 'VIOLATIONS_TOTAL',
2932: to_char(l_sum_violations + nvl(l_sum_missing_receipts,0), FND_CURRENCY.Get_Format_Mask(l_currency,22)) || ' ' || l_currency);
2933: END IF;
2942: p_result := 'COMPLETE:N';
2943: ELSE
2944: l_sum_missing_display_total := to_char(l_sum_missing_receipts, FND_CURRENCY.Get_Format_Mask(l_currency,22)) || ' ' || l_currency;
2945:
2946: WF_ENGINE.SetItemAttrText(p_item_type,
2947: p_item_key,
2948: 'MISSING_RECEIPT_TOTAL',
2949: l_sum_missing_display_total);
2950:
2950:
2951: FND_MESSAGE.SET_NAME('SQLAP','OIE_WF_VERIFY_MISSING_NOTE');
2952: FND_MESSAGE.SET_TOKEN('MISSING_TOTAL',l_sum_missing_display_total);
2953:
2954: WF_ENGINE.SetItemAttrText(p_item_type,
2955: p_item_key,
2956: 'VERIFY_NOTE',
2957: FND_MESSAGE.GET);
2958:
2994:
2995: ------------------------------------------------------------
2996: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
2997: ------------------------------------------------------------
2998: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
2999: p_item_key,
3000: 'EXPENSE_REPORT_ID');
3001:
3002:
3051:
3052: ------------------------------------------------------------
3053: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3054: ------------------------------------------------------------
3055: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3056: p_item_key,
3057: 'EXPENSE_REPORT_ID');
3058:
3059:
3081: END IF;
3082:
3083:
3084: l_mess := FND_MESSAGE.GET;
3085: WF_ENGINE.SetItemAttrText(p_item_type,
3086: p_item_key,
3087: 'REVIEW_NOTE',
3088: l_mess);
3089:
3094:
3095: FND_MESSAGE.SET_NAME('SQLAP','OIE_WF_REVIEW_INSTRUCTION');
3096: l_mess := FND_MESSAGE.GET;
3097:
3098: WF_ENGINE.SetItemAttrText(p_item_type,
3099: p_item_key,
3100: 'INSTRUCTION',
3101: l_mess);
3102:
3137: IF (p_funmode = 'RUN') THEN
3138: ----------------------------------------------------------------
3139: l_debug_info := 'Retrieve New Expense Total.';
3140: ----------------------------------------------------------------
3141: l_new_expense_total := WF_ENGINE.GetItemAttrNumber(p_item_type,
3142: p_item_key,
3143: 'POS_NEW_EXPENSE_TOTAL');
3144:
3145: IF (l_new_expense_total = 0) THEN
3217:
3218: ------------------------------------------------------------
3219: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3220: ------------------------------------------------------------
3221: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3222: p_item_key,
3223: 'EXPENSE_REPORT_ID');
3224:
3225: l_wakeup_time := (Wf_Engine.GetActivityAttrNumber(p_item_type, p_item_key,
3221: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3222: p_item_key,
3223: 'EXPENSE_REPORT_ID');
3224:
3225: l_wakeup_time := (Wf_Engine.GetActivityAttrNumber(p_item_type, p_item_key,
3226: p_actid, 'TIME_INTERVAL_BETWEEN_CHECKS')/24) + sysdate;
3227:
3228: ----------------------------------
3229: l_debug_info := 'Set Org Context';
3242: l_debug_info := 'Check flag to determine if AP Review Complete and
3243: return Y if so, otherwise N';
3244: ------------------------------------------------------------------
3245: IF (l_ap_review_status = 'Y') THEN
3246: p_result := wf_engine.eng_null;
3247: ELSE
3248: -- Set status of activity to deferred with begin_date set to wakeup_date.
3249: -- For Workflow 1.0 we would call:
3250: -- Wf_Item_Activity_Status.Update_Status(p_item_type, p_item_key,
3266: WHERE item_type = p_item_type
3267: AND item_key = p_item_key
3268: AND process_activity = p_actid;
3269:
3270: p_result := wf_engine.eng_deferred;
3271: END IF;
3272:
3273:
3274: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end OldAPReviewComplete');
3298:
3299: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start APReviewComplete');
3300:
3301: -- Do nothing in cancel mode
3302: IF (p_funmode = wf_engine.eng_cancel) THEN
3303: p_result := wf_engine.eng_null;
3304: return;
3305: end if;
3306:
3299: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start APReviewComplete');
3300:
3301: -- Do nothing in cancel mode
3302: IF (p_funmode = wf_engine.eng_cancel) THEN
3303: p_result := wf_engine.eng_null;
3304: return;
3305: end if;
3306:
3307:
3325:
3326: ------------------------------------------------------------
3327: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3328: ------------------------------------------------------------
3329: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3330: p_item_key,
3331: 'EXPENSE_REPORT_ID');
3332:
3333:
3345: ------------------------------------------------------------------
3346: IF (l_ap_review_status = 'Y' or
3347: l_ap_review_status = AP_WEB_DB_EXPRPT_PKG.C_WORKFLOW_APPROVED_REJECTED or -- already AP rejected
3348: l_ap_review_status = AP_WEB_DB_EXPRPT_PKG.C_WORKFLOW_APPROVED_REQUEST) THEN -- already AP requests more info
3349: -- p_result := wf_engine.eng_null;
3350: -- dtong changed p_result for bug # 839208
3351: p_result := 'COMPLETE:Y';
3352: ELSE
3353: --bug 7449880: check the version and update expense_status_code
3384: WHERE item_type = p_item_type
3385: AND item_key = p_item_key
3386: AND process_activity = p_actid;
3387:
3388: p_result := wf_engine.eng_deferred;
3389: */
3390: p_result :='COMPLETE:N';
3391: END IF;
3392:
3460:
3461: ------------------------------------------------------------
3462: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3463: ------------------------------------------------------------
3464: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3465: p_item_key,
3466: 'EXPENSE_REPORT_ID');
3467:
3468: ------------------------------------------------------------
3467:
3468: ------------------------------------------------------------
3469: l_debug_info := 'Retrieve Currency Item Attribute';
3470: ------------------------------------------------------------
3471: l_currency := WF_ENGINE.GetItemAttrText(p_item_type,
3472: p_item_key,
3473: 'CURRENCY');
3474:
3475: -------------------------------------------------------
3474:
3475: -------------------------------------------------------
3476: l_debug_info := 'Retrieve Orignal Expense Report Total';
3477: -------------------------------------------------------
3478: l_orig_exp_report_amt := WF_ENGINE.GetItemAttrNumber(p_item_type,
3479: p_item_key,
3480: 'TOTAL');
3481:
3482: ----------------------------------------------------
3481:
3482: ----------------------------------------------------
3483: l_debug_info := 'Retrieve Currency Item Attribute';
3484: ----------------------------------------------------
3485: l_reimb_currency := WF_ENGINE.GetItemAttrText(p_item_type,
3486: p_item_key,
3487: 'CURRENCY');
3488:
3489: /* jrautiai ADJ Fix Start */
3494:
3495: ---------------------------------------------------------
3496: l_debug_info := 'Retrieve Payment Due From';
3497: ---------------------------------------------------------
3498: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
3499:
3500: IF (NOT AP_WEB_DB_EXPLINE_PKG.GetNumCCLinesIncluded(l_report_header_id,
3501: l_crd_card_count)) THEN
3502: l_crd_card_count := 0;
3509: FND_MESSAGE.SET_NAME('SQLAP','OIE_WF_ADJ_REIMBURSEMENT_INST1');
3510: l_mess := FND_MESSAGE.GET;
3511: END IF;
3512:
3513: WF_ENGINE.SetItemAttrText(p_item_type,
3514: p_item_key,
3515: 'INSTRUCTION',
3516: l_mess);
3517:
3517:
3518: FND_MESSAGE.SET_NAME('SQLAP','OIE_WF_ADJUSTMENT_NOTE');
3519: l_mess := FND_MESSAGE.GET;
3520:
3521: WF_ENGINE.SetItemAttrText(p_item_type,
3522: p_item_key,
3523: 'WF_NOTE',
3524: l_mess);
3525: /* jrautiai ADJ Fix End */
3593: -----------------------------------------------------
3594: l_debug_info := 'Set Adjustment Line Item Attribute';
3595: -----------------------------------------------------
3596:
3597: WF_ENGINE.SetItemAttrText(p_item_type,
3598: p_item_key,
3599: 'ADJ_LINE' || to_char(i),
3600: l_adjustment_line);
3601:
3613:
3614: ----------------------------------------------------------
3615: l_debug_info := 'Set Item Attribute Line_Info_Body1';
3616: ---------------------------------------------------------
3617: WF_ENGINE.SetItemAttrText(p_item_type,
3618: p_item_key,
3619: 'LINE_INFO_BODY',
3620: 'plsql:AP_WEB_EXPENSE_WF.generateAdjustmentInfo/'|| p_item_type || ':' || p_item_key || ':ADJUSTMENT');
3621:
3633:
3634: ---------------------------------------------------------
3635: l_debug_info := 'Set Item Attribute Line_Info_Body1';
3636: ---------------------------------------------------------
3637: WF_ENGINE.SetItemAttrText(p_item_type,
3638: p_item_key,
3639: 'LINE_INFO_BODY',
3640: l_adj_info_body);
3641: IF (C_WF_Version >= C_CreditLineVersion) THEN
3641: IF (C_WF_Version >= C_CreditLineVersion) THEN
3642: ---------------------------------------------------------
3643: l_debug_info := 'Set Item Attribute Credit_Line_Info_Body1';
3644: ---------------------------------------------------------
3645: WF_ENGINE.SetItemAttrText(p_item_type,
3646: p_item_key,
3647: 'CREDIT_LINE_INFO_BODY',
3648: '');
3649: END IF;
3653: /* jrautiai ADJ Fix Start */
3654: -----------------------------------------------------
3655: l_debug_info := 'Set New Adjusted Total Item Attribute';
3656: -----------------------------------------------------
3657: WF_ENGINE.SetItemAttrNumber(p_item_type,
3658: p_item_key,
3659: 'TOTAL',
3660: l_total);
3661:
3661:
3662: -----------------------------------------------------------------
3663: l_debug_info := 'Set New Adjusted Display_Total Item Attribute';
3664: -----------------------------------------------------------------
3665: WF_ENGINE.SetItemAttrText(p_item_type,
3666: p_item_key,
3667: 'DISPLAY_TOTAL',
3668: to_char(l_total,FND_CURRENCY.Get_Format_Mask(l_currency,22)) || ' ' || l_currency);
3669:
3672: IF (C_WF_Version >= C_CreditLineVersion) THEN
3673: -----------------------------------------------------
3674: l_debug_info := 'Set New Credit Total Item Attribute';
3675: -----------------------------------------------------
3676: WF_ENGINE.SetItemAttrNumber(p_item_type,
3677: p_item_key,
3678: 'NEG_CREDIT_TOTAL',
3679: 0);
3680:
3680:
3681: -----------------------------------------------------------------
3682: l_debug_info := 'Set New Credit_Display_Total Item Attribute';
3683: -----------------------------------------------------------------
3684: WF_ENGINE.SetItemAttrText(p_item_type,
3685: p_item_key,
3686: 'NEG_CREDIT_DISPLAY_TOTAL',
3687: to_char(0,FND_CURRENCY.Get_Format_Mask(l_currency,22)));
3688:
3689:
3690: -----------------------------------------------------
3691: l_debug_info := 'Set New New_Expense_Total Item Attribute';
3692: -----------------------------------------------------
3693: WF_ENGINE.SetItemAttrNumber(p_item_type,
3694: p_item_key,
3695: 'POS_NEW_EXPENSE_TOTAL',
3696: 0);
3697:
3697:
3698: -----------------------------------------------------------------
3699: l_debug_info := 'Set New New_Expense_Display_Total Item Attribute';
3700: -----------------------------------------------------------------
3701: WF_ENGINE.SetItemAttrText(p_item_type,
3702: p_item_key,
3703: 'POS_NEW_EXPENSE_DISPLAY_TOTAL',
3704: to_char(0,FND_CURRENCY.Get_Format_Mask(l_currency,22)));
3705:
3748:
3749: ------------------------------------------------------------
3750: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3751: ------------------------------------------------------------
3752: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3753: p_item_key,
3754: 'EXPENSE_REPORT_ID');
3755:
3756: ----------------------------------------------------------------------
3805:
3806: ------------------------------------------------------------
3807: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3808: ------------------------------------------------------------
3809: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3810: p_item_key,
3811: 'EXPENSE_REPORT_ID');
3812:
3813:
3868:
3869: ------------------------------------------------------------
3870: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3871: ------------------------------------------------------------
3872: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3873: p_item_key,
3874: 'EXPENSE_REPORT_ID');
3875:
3876: ---------------------------------------------------------
3875:
3876: ---------------------------------------------------------
3877: l_debug_info := 'Retrieve Payment Due From System Option';
3878: ---------------------------------------------------------
3879: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
3880:
3881: ------------------------------------------
3882: l_debug_info := 'Call CustomDataTransfer';
3883: ------------------------------------------
3978:
3979: ------------------------------------------------------------
3980: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
3981: ------------------------------------------------------------
3982: l_exp_report_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
3983: p_item_key,
3984: 'EXPENSE_REPORT_ID');
3985:
3986: ------------------------------------------------------------
3985:
3986: ------------------------------------------------------------
3987: l_debug_info := 'Retrieve Currency Item Attribute';
3988: ------------------------------------------------------------
3989: l_currency := WF_ENGINE.GetItemAttrText(p_item_type,
3990: p_item_key,
3991: 'CURRENCY');
3992:
3993:
3999: -----------------------------------------------------
4000: l_debug_info := 'Clear Adjustment Line Item Attributes';
4001: -----------------------------------------------------
4002: FOR i IN 1..10 LOOP
4003: WF_ENGINE.SetItemAttrText(p_item_type,
4004: p_item_key,
4005: 'ADJ_LINE' || to_char(i),
4006: '');
4007:
4033: -----------------------------------------------------
4034: l_debug_info := 'Reuse Adjustment Line Item Attribute';
4035: -----------------------------------------------------
4036: IF (C_WF_VERSION < AP_WEB_EXPENSE_WF.C_NoMultiLineVersion) THEN
4037: WF_ENGINE.SetItemAttrText(p_item_type,
4038: p_item_key,
4039: 'ADJ_LINE' || to_char(i),
4040: l_shortpay_line);
4041: END IF;
4064: END LOOP;
4065: ---------------------------------------------------------
4066: l_debug_info := 'Set Item Attribute Line_Info_Body1';
4067: ---------------------------------------------------------
4068: WF_ENGINE.SetItemAttrText(p_item_type,
4069: p_item_key,
4070: 'LINE_INFO_BODY',
4071: l_shortpay_info_body);
4072: ELSE
4073: ---------------------------------------------------------
4074: l_debug_info := 'Set Item Attribute Line_Info_Body1';
4075: ---------------------------------------------------------
4076: -- jrautiai ADJ Fix, Need to be able to distinguish between policy violation and missing receipts notifications.
4077: WF_ENGINE.SetItemAttrText(p_item_type,
4078: p_item_key,
4079: 'LINE_INFO_BODY',
4080: 'plsql:AP_WEB_EXPENSE_WF.generateAdjustmentInfo/'||p_item_type||':'||p_item_key||':'||NVL(p_notification_type,'SHORTPAY'));
4081:
4085: C_WF_VERSION < AP_WEB_EXPENSE_WF.C_NoMultiLineVersion) THEN
4086: ---------------------------------------------------------
4087: l_debug_info := 'Set Item Attribute Credit_Line_Info_Body1';
4088: ---------------------------------------------------------
4089: WF_ENGINE.SetItemAttrText(p_item_type,
4090: p_item_key,
4091: 'CREDIT_LINE_INFO_BODY',
4092: '');
4093: END IF;
4120:
4121: ------------------------------------------------------------
4122: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
4123: ------------------------------------------------------------
4124: l_no_receipts_shortpay_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
4125: p_item_key,
4126: 'NO_RECEIPTS_SHORTPAY_ID');
4127: IF (l_no_receipts_shortpay_id IS NOT NULL) THEN
4128: p_result := 'COMPLETE:Y';
4169:
4170: ------------------------------------------------------------
4171: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
4172: ------------------------------------------------------------
4173: l_policy_shortpay_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
4174: p_item_key,
4175: 'POLICY_SHORTPAY_ID');
4176: IF (l_policy_shortpay_id IS NOT NULL) THEN
4177: p_result := 'COMPLETE:Y';
4418:
4419: ------------------------------------------------------------
4420: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
4421: ------------------------------------------------------------
4422: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
4423: p_item_key,
4424: 'EXPENSE_REPORT_ID');
4425:
4426: ------------------------------------------------------------
4425:
4426: ------------------------------------------------------------
4427: l_debug_info := 'Retrieve Document Number Item Attribute';
4428: ------------------------------------------------------------
4429: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
4430: p_item_key,
4431: 'DOCUMENT_NUMBER');
4432:
4433: -----------------------------------------------------
4432:
4433: -----------------------------------------------------
4434: l_debug_info := 'Retrieve Currency Item Attribute';
4435: -----------------------------------------------------
4436: l_currency := WF_ENGINE.GetItemAttrText(p_item_type,
4437: p_item_key,
4438: 'CURRENCY');
4439:
4440:
4437: p_item_key,
4438: 'CURRENCY');
4439:
4440:
4441: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
4442:
4443: /* jrautiai ADJ Fix Start */
4444: -----------------------------------------------------------------
4445: l_debug_info := 'Get number of lines not adhereing to policies.';
4513:
4514: ------------------------------------------------------------
4515: l_debug_info := 'Set the New_Expense_Report_ID Item Attribute';
4516: ------------------------------------------------------------
4517: WF_ENGINE.SetItemAttrNumber(p_item_type,
4518: p_item_key,
4519: 'POLICY_SHORTPAY_ID',
4520: l_policy_shortpay_id);
4521:
4518: p_item_key,
4519: 'POLICY_SHORTPAY_ID',
4520: l_policy_shortpay_id);
4521:
4522: WF_ENGINE.SetItemAttrText(p_item_type,
4523: p_item_key,
4524: 'POLICY_SHORTPAY_DOC_NUM',
4525: l_policy_shortpay_doc_num);
4526:
4523: p_item_key,
4524: 'POLICY_SHORTPAY_DOC_NUM',
4525: l_policy_shortpay_doc_num);
4526:
4527: WF_ENGINE.SetItemAttrNumber(p_item_type,
4528: p_item_key,
4529: 'POLICY_SHORTPAY_TOTAL',
4530: l_policy_shortpay_total);
4531:
4578: NULL;
4579: END IF;
4580: /* jrautiai ADJ Fix End */
4581:
4582: WF_ENGINE.SetItemAttrNumber(p_item_type,
4583: p_item_key,
4584: 'NO_RECEIPTS_SHORTPAY_ID',
4585: l_no_receipts_shortpay_id);
4586:
4583: p_item_key,
4584: 'NO_RECEIPTS_SHORTPAY_ID',
4585: l_no_receipts_shortpay_id);
4586:
4587: WF_ENGINE.SetItemAttrText(p_item_type,
4588: p_item_key,
4589: 'NO_RECEIPTS_SHORTPAY_DOC_NUM',
4590: l_no_receipts_shortpay_doc_num);
4591:
4588: p_item_key,
4589: 'NO_RECEIPTS_SHORTPAY_DOC_NUM',
4590: l_no_receipts_shortpay_doc_num);
4591:
4592: WF_ENGINE.SetItemAttrNumber(p_item_type,
4593: p_item_key,
4594: 'NO_RECEIPTS_SHORTPAY_TOTAL',
4595: l_no_receipts_shortpay_total);
4596:
4685:
4686: ----------------------------------------------------------------
4687: l_debug_info := 'Retrive the Payment Due From Profile Option';
4688: ----------------------------------------------------------------
4689: l_payment_due := WF_ENGINE.GetItemAttrText(l_item_type,
4690: l_item_key,'PAYMENT_DUE_FROM');
4691:
4692: ---------------------------------------------------------------------
4693: l_debug_info := 'Update manager rejected/returned credit card transactions that
4762: l_debug_info := 'Unset Adjustment Line Item Attribute';
4763: -----------------------------------------------------
4764: FOR I IN 1..C_NUM_ADJ_LINE_ATTRS LOOP
4765:
4766: WF_ENGINE.SetItemAttrText(p_item_type,
4767: p_item_key,
4768: 'ADJ_LINE' || to_char(I),
4769: '');
4770:
4769: '');
4770:
4771: END LOOP;
4772: ELSE
4773: WF_ENGINE.SetItemAttrText(p_item_type,
4774: p_item_key,
4775: 'LINE_INFO_BODY',
4776: 'plsql:AP_WEB_EXPENSE_WF.resetLineInfo/');
4777: END IF;
4778:
4779: ----------------------------------------------------------------
4780: l_debug_info := 'Unset error message';
4781: -----------------------------------------------------------------
4782: WF_ENGINE.SetItemAttrText(p_item_type,
4783: p_item_key,
4784: 'ERROR_MESSAGE',
4785: '');
4786:
4788:
4789: ----------------------------------------------------------------------
4790: l_debug_info := 'Unset Find Approver Count';
4791: ----------------------------------------------------------------------
4792: WF_ENGINE.SetItemAttrNumber(p_item_type,
4793: p_item_key,
4794: 'FIND_APPROVER_COUNT',
4795: 0);
4796:
4796:
4797: ----------------------------------------------------------------------
4798: l_debug_info := 'Unset Forward_From Item Attributes With Approver Info';
4799: ----------------------------------------------------------------------
4800: WF_ENGINE.SetItemAttrText(p_item_type,
4801: p_item_key,
4802: 'FORWARD_FROM_DISPLAY_NAME',
4803: '');
4804:
4801: p_item_key,
4802: 'FORWARD_FROM_DISPLAY_NAME',
4803: '');
4804:
4805: WF_ENGINE.SetItemAttrNUMBER(p_item_type,
4806: p_item_key,
4807: 'FORWARD_FROM_ID',
4808: '');
4809:
4806: p_item_key,
4807: 'FORWARD_FROM_ID',
4808: '');
4809:
4810: WF_ENGINE.SetItemAttrText(p_item_type,
4811: p_item_key,
4812: 'FORWARD_FROM_NAME',
4813: '');
4814:
4817: l_debug_info := 'Set Line_Info Item Attribute with formatted expense line';
4818: ---------------------------------------------------------------------------
4819: FOR I IN 1..200 LOOP
4820:
4821: WF_ENGINE.SetItemAttrText(p_item_type,
4822: p_item_key,
4823: 'LINE_INFO' || TO_CHAR(I),
4824: '');
4825:
4826: END LOOP;
4827: ---------------------------------------------------------
4828: l_debug_info := 'Unset Item Attribute Line_Info_Body1';
4829: ---------------------------------------------------------
4830: WF_ENGINE.SetItemAttrText(p_item_type,
4831: p_item_key,
4832: 'LINE_INFO_BODY',
4833: '');
4834:
4837: --------------------------------------------------------------------------
4838: l_debug_info := 'Reset
4839: Manager_Approval_Send_Count Item Attribute and return Y';
4840: --------------------------------------------------------------------------
4841: WF_ENGINE.SetItemAttrNumber(p_item_type,
4842: p_item_key,
4843: 'MANAGER_APPROVAL_SEND_COUNT',
4844: 0);
4845:
4845:
4846: ---------------------------------------------------------------
4847: l_debug_info := 'Unset Manager_Display_Name Info Item Attribute';
4848: ---------------------------------------------------------------
4849: WF_ENGINE.SetItemAttrText(p_item_type,
4850: p_item_key,
4851: 'MANAGER_DISPLAY_NAME',
4852: '');
4853:
4853:
4854: --------------------------------------------------------
4855: l_debug_info := 'Unset Manager_ID Info Item Attribute';
4856: --------------------------------------------------------
4857: WF_ENGINE.SetItemAttrText(p_item_type,
4858: p_item_key,
4859: 'MANAGER_ID',
4860: '');
4861:
4861:
4862: --------------------------------------------------------
4863: l_debug_info := 'Unset Manager_Name Info Item Attribute';
4864: --------------------------------------------------------
4865: WF_ENGINE.SetItemAttrText(p_item_type,
4866: p_item_key,
4867: 'MANAGER_NAME',
4868: '');
4869:
4870:
4871: -----------------------------------------------------------------
4872: l_debug_info := 'Unset Missing Receipt Total';
4873: -----------------------------------------------------------------
4874: WF_ENGINE.SetItemAttrText(p_item_type,
4875: p_item_key,
4876: 'MISSING_RECEIPT_TOTAL',
4877: '');
4878:
4878:
4879: ---------------------------------------------------------------
4880: l_debug_info := 'Reset rejection reason';
4881: ---------------------------------------------------------------
4882: WF_ENGINE.SetItemAttrText(p_item_type,
4883: p_item_key,
4884: 'WF_NOTE',
4885: '');
4886:
4886:
4887: ---------------------------------------------------------------
4888: l_debug_info := 'Reset violation note';
4889: ---------------------------------------------------------------
4890: WF_ENGINE.SetItemAttrText(p_item_type,
4891: p_item_key,
4892: 'VIOLATION_NOTE',
4893: '');
4894:
4894:
4895: ---------------------------------------------------------------
4896: l_debug_info := 'Reset Employee violation note';
4897: ---------------------------------------------------------------
4898: WF_ENGINE.SetItemAttrText(p_item_type,
4899: p_item_key,
4900: 'EMP_VIOLATION_NOTE',
4901: '');
4902:
4902:
4903: ---------------------------------------------------------------
4904: l_debug_info := 'Reset violation total';
4905: ---------------------------------------------------------------
4906: WF_ENGINE.SetItemAttrText(p_item_type,
4907: p_item_key,
4908: 'VIOLATIONS_TOTAL',
4909: '');
4910:
4912: ---------------------------------------------------------------
4913: l_debug_info := 'Reset AME Approver Response';
4914: ---------------------------------------------------------------
4915: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_R120_Version) THEN
4916: WF_ENGINE.SetItemAttrText(p_item_type,
4917: p_item_key,
4918: 'AME_APPROVER_RESPONSE',
4919: '');
4920: WF_ENGINE.SetItemAttrText(p_item_type,
4916: WF_ENGINE.SetItemAttrText(p_item_type,
4917: p_item_key,
4918: 'AME_APPROVER_RESPONSE',
4919: '');
4920: WF_ENGINE.SetItemAttrText(p_item_type,
4921: p_item_key,
4922: 'AME_REJECTED_CHILD_ITEM_KEY',
4923: '');
4924: END IF;
4939: ELSE
4940: --------------------------------------------------------
4941: l_debug_info := 'Set Approver_ID Info Item Attribute';
4942: --------------------------------------------------------
4943: WF_ENGINE.SetItemAttrText(p_item_type,
4944: p_item_key,
4945: 'APPROVER_ID',
4946: null);
4947:
4947:
4948: --------------------------------------------------------
4949: l_debug_info := 'Set Approver_Name Info Item Attribute';
4950: --------------------------------------------------------
4951: WF_ENGINE.SetItemAttrText(p_item_type,
4952: p_item_key,
4953: 'APPROVER_NAME',
4954: '');
4955:
4955:
4956: ----------------------------------------------------------------
4957: l_debug_info := 'Set Approver_Display_Name Info Item Attribute';
4958: ----------------------------------------------------------------
4959: WF_ENGINE.SetItemAttrText(p_item_type,
4960: p_item_key,
4961: 'APPROVER_DISPLAY_NAME',
4962: '');
4963: END IF;
5000:
5001: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF',
5002: 'start ResetCCardTxns');
5003:
5004: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type, p_item_key,
5005: 'PAYMENT_DUE_FROM');
5006:
5007: l_debug_info := 'Update for Credit Card Integration';
5008: IF (l_payment_due = C_CompanyPay) THEN
5056:
5057: ---------------------------------------------
5058: l_debug_info := 'Start AMEAbortRequestApprovals';
5059: ---------------------------------------------
5060: l_childItemKeySeq := WF_ENGINE.GetItemAttrNumber(l_itemtype,
5061: l_itemkey,
5062: 'AME_CHILD_ITEM_KEY_SEQ');
5063:
5064: l_AmeRejectedChildItemKey := WF_ENGINE.GetItemAttrText(l_itemtype,
5060: l_childItemKeySeq := WF_ENGINE.GetItemAttrNumber(l_itemtype,
5061: l_itemkey,
5062: 'AME_CHILD_ITEM_KEY_SEQ');
5063:
5064: l_AmeRejectedChildItemKey := WF_ENGINE.GetItemAttrText(l_itemtype,
5065: l_itemkey,
5066: 'AME_REJECTED_CHILD_ITEM_KEY');
5067:
5068: if (l_childItemKeySeq >= 1) then
5104: if l_wf_active then
5105: --------------------------------------------------------
5106: l_debug_info := 'Abort Child Process' || l_childItemKey;
5107: --------------------------------------------------------
5108: wf_engine.AbortProcess (itemtype => l_itemtype,
5109: itemkey => l_childItemKey,
5110: cascade => TRUE);
5111: end if;
5112:
5159:
5160: ------------------------------------------------------------
5161: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
5162: ------------------------------------------------------------
5163: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5164: p_item_key,
5165: 'EXPENSE_REPORT_ID');
5166:
5167: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
5163: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5164: p_item_key,
5165: 'EXPENSE_REPORT_ID');
5166:
5167: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
5168:
5169: ------------------------------------------------------------
5170: l_debug_info := 'Set reject status in report header';
5171: ------------------------------------------------------------
5182: p_item_type);*/
5183:
5184: -- Bug 3560082 - Comment the call to SetRejectStatusInAME and add the call
5185: -- AME_API.clearAllApprovals
5186: l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
5187: p_item_key,
5188: 'AME_ENABLED');
5189: IF (l_AMEEnabled = 'Y') THEN
5190: --Bug 4425821: Uptake AME parallel approvers
5224: --5060928: reset the Apply Advnaces only if OIE:Enable Advances = "Payables"
5225:
5226: begin
5227:
5228: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5229: p_item_key,
5230: 'RESPONSIBILITY_ID');
5231:
5232: exception
5251: l_debug_info := 'Set which process to start from';
5252: ------------------------------------------------------------
5253: -- Indicate which process to start from
5254: -- (skip ServerValidate, Manager Approval)
5255: WF_ENGINE.SetItemAttrText(p_item_type,
5256: p_item_key,
5257: 'START_FROM_PROCESS',
5258: C_START_FROM_SERVER_VALIDATION);
5259:
5317:
5318: ------------------------------------------------------------
5319: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
5320: ------------------------------------------------------------
5321: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5322: p_item_key,
5323: 'EXPENSE_REPORT_ID');
5324:
5325: DeleteExpReportFromAPTables(l_report_header_id);
5367:
5368: ------------------------------------------------------------
5369: l_debug_info := 'Retrieve New Expense_Report_ID Item Attribute';
5370: ------------------------------------------------------------
5371: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5372: p_item_key,
5373: 'NEW_EXPENSE_REPORT_ID');
5374:
5375: --------------------------------------------------------------
5374:
5375: --------------------------------------------------------------
5376: l_debug_info := 'Retrieve New Document Number Item Attribute';
5377: ---------------------------------------------------------------
5378: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
5379: p_item_key,
5380: 'NEW_DOCUMENT_NUMBER');
5381:
5382:
5382:
5383: ----------------------------------------------------------------
5384: l_debug_info := 'Retrieve Employee Cost Center Item Attribute';
5385: ----------------------------------------------------------------
5386: l_emp_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
5387: p_item_key,
5388: 'EMP_COST_CENTER');
5389:
5390: ----------------------------------------------------------------
5389:
5390: ----------------------------------------------------------------
5391: l_debug_info := 'Retrieve Document Cost Center Item Attribute';
5392: ----------------------------------------------------------------
5393: l_doc_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
5394: p_item_key,
5395: 'DOC_COST_CENTER');
5396:
5397: -----------------------------------------------------
5396:
5397: -----------------------------------------------------
5398: l_debug_info := 'Retrieve New Total Item Attribute';
5399: -----------------------------------------------------
5400: l_total := WF_ENGINE.GetItemAttrNumber(p_item_type,
5401: p_item_key,
5402: 'NEW_TOTAL');
5403:
5404: -----------------------------------------------------
5403:
5404: -----------------------------------------------------
5405: l_debug_info := 'Retrieve Currency Item Attribute';
5406: -----------------------------------------------------
5407: l_currency := WF_ENGINE.GetItemAttrText(p_item_type,
5408: p_item_key,
5409: 'CURRENCY');
5410:
5411: --------------------------------
5416:
5417: -------------------------------------------------------
5418: l_debug_info := 'Retrieve Preparer_ID Item Attribute';
5419: -------------------------------------------------------
5420: l_preparer_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5421: p_item_key,
5422: 'PREPARER_ID');
5423:
5424: -------------------------------------------------------
5423:
5424: -------------------------------------------------------
5425: l_debug_info := 'Retrieve Employee_ID Item Attribute';
5426: -------------------------------------------------------
5427: l_employee_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5428: p_item_key,
5429: 'EMPLOYEE_ID');
5430:
5431: -------------------------------------------------------
5430:
5431: -------------------------------------------------------
5432: l_debug_info := 'Retrieve CC Payment Due From Item Attribute';
5433: -------------------------------------------------------
5434: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,
5435: p_item_key,
5436: 'PAYMENT_DUE_FROM');
5437:
5438: -------------------------------------------------
5437:
5438: -------------------------------------------------
5439: l_debug_info := 'Create AP Approval Subprocess';
5440: -------------------------------------------------
5441: WF_ENGINE.CreateProcess(p_item_type,
5442: l_item_key,
5443: 'AP_EXPENSE_REPORT_PROCESS');
5444:
5445: --------------------------------------------------------
5444:
5445: --------------------------------------------------------
5446: l_debug_info := 'Set Expense_Report_ID Item Attribute';
5447: --------------------------------------------------------
5448: WF_ENGINE.SetItemAttrNumber(p_item_type,
5449: l_item_key,
5450: 'EXPENSE_REPORT_ID',
5451: l_report_header_id);
5452:
5452:
5453: ------------------------------------------------------
5454: l_debug_info := 'Set Document_Number Item Attribute';
5455: ------------------------------------------------------
5456: WF_ENGINE.SetItemAttrText(p_item_type,
5457: l_item_key,
5458: 'DOCUMENT_NUMBER',
5459: l_document_number);
5460:
5465: l_preparer_id,
5466: l_preparer_name,
5467: l_preparer_display_name);
5468:
5469: WF_ENGINE.SetItemAttrText(p_item_type,
5470: l_item_key,
5471: 'PREPARER_ID',
5472: l_preparer_id);
5473:
5473:
5474: ----------------------------------------------------------
5475: l_debug_info := 'Set Preparer Name Info Item Attributes';
5476: ----------------------------------------------------------
5477: WF_ENGINE.SetItemAttrText(p_item_type,
5478: l_item_key,
5479: 'PREPARER_NAME',
5480: l_preparer_name);
5481:
5478: l_item_key,
5479: 'PREPARER_NAME',
5480: l_preparer_name);
5481:
5482: WF_ENGINE.SetItemAttrText(p_item_type,
5483: l_item_key,
5484: 'PREPARER_DISPLAY_NAME',
5485: l_preparer_display_name);
5486:
5491: l_employee_id,
5492: l_employee_name,
5493: l_employee_display_name);
5494:
5495: WF_ENGINE.SetItemAttrText(p_item_type,
5496: l_item_key,
5497: 'EMPLOYEE_ID',
5498: l_employee_id);
5499:
5499:
5500: ----------------------------------------------------------
5501: l_debug_info := 'Set Employee Name Info Item Attributes';
5502: ----------------------------------------------------------
5503: WF_ENGINE.SetItemAttrText(p_item_type,
5504: l_item_key,
5505: 'EMPLOYEE_NAME',
5506: l_employee_name);
5507:
5504: l_item_key,
5505: 'EMPLOYEE_NAME',
5506: l_employee_name);
5507:
5508: WF_ENGINE.SetItemAttrText(p_item_type,
5509: l_item_key,
5510: 'EMPLOYEE_DISPLAY_NAME',
5511: l_employee_display_name);
5512:
5512:
5513: -------------------------------------------------
5514: l_debug_info := 'Set Total Item Attribute';
5515: -------------------------------------------------
5516: WF_ENGINE.SetItemAttrNumber(p_item_type,
5517: l_item_key,
5518: 'TOTAL',
5519: l_total);
5520:
5520:
5521: -----------------------------------------------------------------
5522: l_debug_info := 'Set New Adjusted Display_Total Item Attribute';
5523: -----------------------------------------------------------------
5524: WF_ENGINE.SetItemAttrText(p_item_type,
5525: l_item_key,
5526: 'DISPLAY_TOTAL',
5527: to_char(l_total,FND_CURRENCY.Get_Format_Mask(l_currency,22)) || ' ' || l_currency);
5528:
5528:
5529: ----------------------------------------------
5530: l_debug_info := 'Set Currency Item Attribute';
5531: -----------------------------------------------
5532: WF_ENGINE.SetItemAttrText(p_item_type,
5533: l_item_key,
5534: 'CURRENCY',
5535: l_currency);
5536:
5537:
5538: -----------------------------------------------------------
5539: l_debug_info := 'Set Document Cost Center Item Attribute';
5540: -----------------------------------------------------------
5541: WF_ENGINE.SetItemAttrText(p_item_type,
5542: l_item_key,
5543: 'DOC_COST_CENTER',
5544: l_doc_cost_center);
5545:
5545:
5546: -----------------------------------------------------------
5547: l_debug_info := 'Set Employee Cost Center Item Attribute';
5548: -----------------------------------------------------------
5549: WF_ENGINE.SetItemAttrText(p_item_type,
5550: l_item_key,
5551: 'EMP_COST_CENTER',
5552: l_emp_cost_center);
5553:
5553:
5554: --------------------------------------------------------------
5555: l_debug_info := 'Set CC Payment Due From Item Attribute';
5556: --------------------------------------------------------------
5557: WF_ENGINE.SetItemAttrText(p_item_type,
5558: l_item_key,
5559: 'PAYMENT_DUE_FROM',
5560: l_payment_due);
5561:
5561:
5562: -----------------------------------------------------------
5563: l_debug_info := 'Skip server validation and manager approval';
5564: -----------------------------------------------------------
5565: WF_ENGINE.SetItemAttrText(p_item_type,
5566: l_item_key,
5567: 'START_FROM_PROCESS',
5568: C_START_FROM_AP_APPROVAL);
5569:
5569:
5570: -------------------------------------------------
5571: l_debug_info := 'Start AP Approval Sub Process';
5572: -------------------------------------------------
5573: WF_ENGINE.StartProcess(p_item_type,
5574: l_item_key);
5575:
5576: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartAPApprvlSubProcess');
5577:
5600:
5601: ----------------------------------------------------------------
5602: l_debug_info := 'Retrieve New_Expense_Report_ID Item Attribute';
5603: ----------------------------------------------------------------
5604: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5605: p_item_key,
5606: 'EXPENSE_REPORT_ID');
5607:
5608:
5634: l_debug_info := 'Set which process to start from';
5635: ------------------------------------------------------------
5636: -- Indicate which process to start from
5637: -- (skip ServerValidate, Manager Approval)
5638: WF_ENGINE.SetItemAttrText(p_item_type,
5639: p_item_key,
5640: 'START_FROM_PROCESS',
5641: C_START_FROM_AP_APPROVAL);
5642:
5670:
5671: ----------------------------------------------------------------
5672: l_debug_info := 'Retrieve New_Expense_Report_ID Item Attribute';
5673: ----------------------------------------------------------------
5674: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5675: p_item_key,
5676: 'EXPENSE_REPORT_ID');
5677:
5678:
5688: l_debug_info := 'Set which process to start from';
5689: ------------------------------------------------------------
5690: -- Indicate which process to start from
5691: -- (skip ServerValidate, Manager Approval)
5692: WF_ENGINE.SetItemAttrText(p_item_type,
5693: p_item_key,
5694: 'START_FROM_PROCESS',
5695: C_START_FROM_MANAGER_APPROVAL);
5696:
5725:
5726: ----------------------------------------------------------------
5727: l_debug_info := 'Retrieve ShortPay_Flag Item Attribute';
5728: ----------------------------------------------------------------
5729: l_orig_expense_report_num := WF_ENGINE.GetItemAttrText(p_item_type,
5730: p_item_key,
5731: 'ORIG_EXPENSE_REPORT_NUM');
5732:
5733: IF (l_orig_expense_report_num IS NOT NULL) THEN
5781:
5782: ------------------------------------------------------------
5783: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
5784: ------------------------------------------------------------
5785: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5786: p_item_key,
5787: 'EXPENSE_REPORT_ID');
5788:
5789: -------------------------------------------------------------------------
5788:
5789: -------------------------------------------------------------------------
5790: l_debug_info := 'Retrieve and create new Document Number Item Attribute';
5791: -------------------------------------------------------------------------
5792: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
5793: p_item_key,
5794: 'DOCUMENT_NUMBER') || '.1';
5795:
5796:
5816:
5817: -------------------------------------------------------------------
5818: l_debug_info := 'Obtain the Vendor ID item attribute';
5819: --------------------------------------------------------------------
5820: l_vendor_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5821: p_item_key,
5822: 'VENDOR_ID');
5823:
5824:
5824:
5825: -------------------------------------------------------------------
5826: l_debug_info := 'Obtain the Vendor Site ID item attribute';
5827: --------------------------------------------------------------------
5828: l_vendor_site_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5829: p_item_key,
5830: 'VENDOR_SITE_ID');
5831:
5832: /* Bug2610233 : Replacing l_ccard_amt check with l_ccard_exists check.
5891:
5892: ------------------------------------------------------------
5893: l_debug_info := 'Retrieve ORG_ID Item Attribute';
5894: ------------------------------------------------------------
5895: l_org_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
5896: p_item_key,
5897: 'ORG_ID');
5898:
5899:
5925: -----------------------------------------------------------------------
5926: l_debug_info := 'Set the Bothpay Document Number Item Attribute with
5927: the new expense report document number';
5928: -----------------------------------------------------------------------
5929: WF_ENGINE.SetItemAttrText(p_item_type,
5930: p_item_key,
5931: 'BOTHPAY_DOC_NUM',
5932: l_document_number);
5933:
5970:
5971: ----------------------------------------------------------------
5972: l_debug_info := 'Retrieve Profile Option Payment Due From';
5973: ----------------------------------------------------------------
5974: l_payment := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
5975:
5976: IF (l_payment = C_BothPay) THEN
5977: p_result := 'COMPLETE:Y';
5978: ELSE
6013:
6014: ----------------------------------------------------------------
6015: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
6016: ------------------------------------------------------------
6017: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6018: p_item_key,
6019: 'EXPENSE_REPORT_ID');
6020:
6021: ----------------------------------------------------------------
6029:
6030: ----------------------------------------------------------------
6031: l_debug_info := 'Set the Vendor ID Attribute';
6032: ----------------------------------------------------------------
6033: WF_ENGINE.SetItemAttrNumber(p_item_type,
6034: p_item_key,
6035: 'VENDOR_ID',
6036: l_vendor_id);
6037:
6037:
6038: ----------------------------------------------------------------
6039: l_debug_info := 'Set the Vendor Site ID Attribute';
6040: ----------------------------------------------------------------
6041: WF_ENGINE.SetItemAttrNumber(p_item_type,
6042: p_item_key,
6043: 'VENDOR_SITE_ID',
6044: l_vendor_site_id);
6045: IF (NOT AP_WEB_DB_EXPLINE_PKG.GetNumCCLinesIncluded(l_report_header_id,
6056:
6057: ----------------------------------------------------------------
6058: l_debug_info := 'Set the Error Message Attribute';
6059: ----------------------------------------------------------------
6060: WF_ENGINE.SetItemAttrText(p_item_type,
6061: p_item_key,
6062: 'ERROR_MESSAGE',
6063: FND_MESSAGE.Get);
6064: p_result := 'COMPLETE:N';
6177: ----------------------------------
6178: -- for bug 1652106
6179: begin
6180:
6181: l_n_org_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6182: p_item_key,
6183: 'ORG_ID');
6184: exception
6185: when others then
6184: exception
6185: when others then
6186: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
6187: -- ORG_ID item attribute doesn't exist, need to add it
6188: wf_engine.AddItemAttr(p_item_type, p_item_key, 'ORG_ID');
6189: -- get the org_id from header for old reports
6190: IF (AP_WEB_DB_EXPRPT_PKG.GetOrgIdByReportHeaderId(
6191: to_number(p_item_key),
6192: l_n_org_id) <> TRUE ) THEN
6191: to_number(p_item_key),
6192: l_n_org_id) <> TRUE ) THEN
6193: l_n_org_id := NULL;
6194: END IF;
6195: WF_ENGINE.SetItemAttrNumber(p_item_type,
6196: p_item_key,
6197: 'ORG_ID',
6198: l_n_org_id);
6199: else
6206: ----------------------------------
6207: l_debug_info := 'Get User ID';
6208: ----------------------------------
6209: begin
6210: l_n_user_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6211: p_item_key,
6212: 'USER_ID');
6213: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6214: p_item_key,
6209: begin
6210: l_n_user_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6211: p_item_key,
6212: 'USER_ID');
6213: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6214: p_item_key,
6215: 'RESPONSIBILITY_ID');
6216: l_n_resp_appl_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6217: p_item_key,
6212: 'USER_ID');
6213: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6214: p_item_key,
6215: 'RESPONSIBILITY_ID');
6216: l_n_resp_appl_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6217: p_item_key,
6218: 'APPLICATION_ID');
6219: exception
6220: when others then
6227:
6228: ------------------------------------------------------------
6229: l_debug_info := 'Retrieve New Expense_Report_ID Item Attribute';
6230: ------------------------------------------------------------
6231: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6232: p_item_key,
6233: 'POLICY_SHORTPAY_ID');
6234:
6235: --------------------------------------------------------------
6234:
6235: --------------------------------------------------------------
6236: l_debug_info := 'Retrieve New Document Number Item Attribute';
6237: ---------------------------------------------------------------
6238: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
6239: p_item_key,
6240: 'POLICY_SHORTPAY_DOC_NUM');
6241:
6242: --------------------------------------------------------------
6241:
6242: --------------------------------------------------------------
6243: l_debug_info := 'Retrieve New Document Number Item Attribute';
6244: ---------------------------------------------------------------
6245: l_orig_expense_report_num := WF_ENGINE.GetItemAttrText(p_item_type,
6246: p_item_key,
6247: 'DOCUMENT_NUMBER');
6248:
6249:
6249:
6250: ----------------------------------------------------------------
6251: l_debug_info := 'Retrieve Employee Cost Center Item Attribute';
6252: ----------------------------------------------------------------
6253: l_emp_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
6254: p_item_key,
6255: 'EMP_COST_CENTER');
6256:
6257: ----------------------------------------------------------------
6256:
6257: ----------------------------------------------------------------
6258: l_debug_info := 'Retrieve Payment Due From Item Attribute';
6259: ----------------------------------------------------------------
6260: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
6261:
6262:
6263: ----------------------------------------------------------------
6264: l_debug_info := 'Retrieve Document Cost Center Item Attribute';
6262:
6263: ----------------------------------------------------------------
6264: l_debug_info := 'Retrieve Document Cost Center Item Attribute';
6265: ----------------------------------------------------------------
6266: l_doc_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
6267: p_item_key,
6268: 'DOC_COST_CENTER');
6269:
6270: -----------------------------------------------------
6269:
6270: -----------------------------------------------------
6271: l_debug_info := 'Retrieve New Total Item Attribute';
6272: -----------------------------------------------------
6273: l_total := WF_ENGINE.GetItemAttrNumber(p_item_type,
6274: p_item_key,
6275: 'POLICY_SHORTPAY_TOTAL');
6276:
6277: l_new_exp_total := l_total;
6279:
6280: -----------------------------------------------------
6281: l_debug_info := 'Retrieve Currency Item Attribute';
6282: -----------------------------------------------------
6283: l_currency := WF_ENGINE.GetItemAttrText(p_item_type,
6284: p_item_key,
6285: 'CURRENCY');
6286:
6287: --------------------------------
6292:
6293: -------------------------------------------------------
6294: l_debug_info := 'Retrieve Preparer_ID Item Attribute';
6295: -------------------------------------------------------
6296: l_preparer_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6297: p_item_key,
6298: 'PREPARER_ID');
6299:
6300: -------------------------------------------------------
6299:
6300: -------------------------------------------------------
6301: l_debug_info := 'Retrieve Employee_ID Item Attribute';
6302: -------------------------------------------------------
6303: l_employee_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6304: p_item_key,
6305: 'EMPLOYEE_ID');
6306:
6307: ----------------------------------
6306:
6307: ----------------------------------
6308: l_debug_info := 'Get AME_ENABLED';
6309: ----------------------------------
6310: l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
6311: p_item_key,
6312: 'AME_ENABLED');
6313:
6314: ----------------------------------
6313:
6314: ----------------------------------
6315: l_debug_info := 'Get PURPOSE';
6316: ----------------------------------
6317: l_purpose := WF_ENGINE.GetItemAttrText(p_item_type,
6318: p_item_key,
6319: 'PURPOSE');
6320:
6321: ------------------------------------------------------------
6320:
6321: ------------------------------------------------------------
6322: l_debug_info := 'Get Approver Info';
6323: ------------------------------------------------------------
6324: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6325: p_item_key,
6326: 'APPROVER_ID');
6327:
6328: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
6324: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6325: p_item_key,
6326: 'APPROVER_ID');
6327:
6328: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
6329: p_item_key,
6330: 'APPROVER_NAME');
6331:
6332: l_approver_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
6328: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
6329: p_item_key,
6330: 'APPROVER_NAME');
6331:
6332: l_approver_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
6333: p_item_key,
6334: 'APPROVER_DISPLAY_NAME');
6335:
6336: ----------------------------------
6335:
6336: ----------------------------------
6337: l_debug_info := 'Get SUBMIT_FROM_OIE';
6338: ----------------------------------
6339: l_submit_from_oie := WF_ENGINE.GetItemAttrText(p_item_type,
6340: p_item_key,
6341: 'SUBMIT_FROM_OIE');
6342:
6343: -------------------------------------------------
6342:
6343: -------------------------------------------------
6344: l_debug_info := 'Create Policy Violation Shortpay Subprocess';
6345: -------------------------------------------------
6346: WF_ENGINE.CreateProcess(p_item_type,
6347: l_item_key,
6348: 'POLICY_VIOLATION_PROCESS');
6349:
6350: /* Bug 2351528. Need to set the user_key for easier query */
6347: l_item_key,
6348: 'POLICY_VIOLATION_PROCESS');
6349:
6350: /* Bug 2351528. Need to set the user_key for easier query */
6351: WF_ENGINE.SetItemUserKey(l_item_type,
6352: l_item_key,
6353: l_document_number);
6354:
6355: ----------------------------------------------------
6354:
6355: ----------------------------------------------------
6356: l_debug_info := 'Set SUBMIT_FROM_OIE Item Attribute';
6357: ----------------------------------------------------
6358: WF_ENGINE.SetItemAttrText(l_item_type,
6359: l_item_key,
6360: 'SUBMIT_FROM_OIE',
6361: l_submit_from_oie);
6362:
6362:
6363: ------------------------------------------------------
6364: l_debug_info := 'Set PURPOSE Item Attribute';
6365: ------------------------------------------------------
6366: WF_ENGINE.SetItemAttrText(l_item_type,
6367: l_item_key,
6368: 'PURPOSE',
6369: l_purpose);
6370:
6370:
6371: ------------------------------------------------------
6372: l_debug_info := 'Set Approver Info';
6373: ------------------------------------------------------
6374: WF_ENGINE.SetItemAttrNumber(l_item_type,
6375: l_item_key,
6376: 'APPROVER_ID',
6377: l_approver_id);
6378:
6375: l_item_key,
6376: 'APPROVER_ID',
6377: l_approver_id);
6378:
6379: WF_ENGINE.SetItemAttrText(l_item_type,
6380: l_item_key,
6381: 'APPROVER_NAME',
6382: l_approver_name);
6383:
6380: l_item_key,
6381: 'APPROVER_NAME',
6382: l_approver_name);
6383:
6384: WF_ENGINE.SetItemAttrText(l_item_type,
6385: l_item_key,
6386: 'APPROVER_DISPLAY_NAME',
6387: l_approver_display_name);
6388:
6390: -- Bug 996020
6391: ------------------------------------------------------
6392: l_debug_info := 'Set LINE_TABLE Item Attribute';
6393: ------------------------------------------------------
6394: WF_ENGINE.SetItemAttrText(l_item_type,
6395: l_item_key,
6396: 'LINE_TABLE',
6397: 'plsqlclob:AP_WEB_EXPENSE_WF.generateExpClobLines/'||l_item_type||':'||l_item_key);
6398:
6398:
6399: ------------------------------------------------------
6400: l_debug_info := 'Set EMP_LINE_TABLE Item Attribute';
6401: ------------------------------------------------------
6402: WF_ENGINE.SetItemAttrText(l_item_type,
6403: l_item_key,
6404: 'EMP_LINE_TABLE',
6405: 'plsqlclob:AP_WEB_EXPENSE_WF.generateExpClobLines/'||l_item_type||':'||l_item_key || ':'|| C_EMP);
6406:
6406:
6407: --------------------------------------------------------
6408: l_debug_info := 'Set Expense_Report_ID Item Attribute';
6409: --------------------------------------------------------
6410: WF_ENGINE.SetItemAttrNumber(p_item_type,
6411: l_item_key,
6412: 'EXPENSE_REPORT_ID',
6413: l_report_header_id);
6414:
6414:
6415: ------------------------------------------------------
6416: l_debug_info := 'Set Document_Number Item Attribute';
6417: ------------------------------------------------------
6418: WF_ENGINE.SetItemAttrText(p_item_type,
6419: l_item_key,
6420: 'DOCUMENT_NUMBER',
6421: l_document_number);
6422:
6422:
6423: ------------------------------------------------------
6424: l_debug_info := 'Set Document_Number Item Attribute';
6425: ------------------------------------------------------
6426: WF_ENGINE.SetItemAttrText(p_item_type,
6427: l_item_key,
6428: 'ORIG_EXPENSE_REPORT_NUM',
6429: l_orig_expense_report_num);
6430:
6435: l_preparer_id,
6436: l_preparer_name,
6437: l_preparer_display_name);
6438:
6439: WF_ENGINE.SetItemAttrText(p_item_type,
6440: l_item_key,
6441: 'PREPARER_ID',
6442: l_preparer_id);
6443:
6443:
6444: ----------------------------------------------------------
6445: l_debug_info := 'Set Preparer Name Info Item Attributes';
6446: ----------------------------------------------------------
6447: WF_ENGINE.SetItemAttrText(p_item_type,
6448: l_item_key,
6449: 'PREPARER_NAME',
6450: l_preparer_name);
6451:
6448: l_item_key,
6449: 'PREPARER_NAME',
6450: l_preparer_name);
6451:
6452: WF_ENGINE.SetItemAttrText(p_item_type,
6453: l_item_key,
6454: 'PREPARER_DISPLAY_NAME',
6455: l_preparer_display_name);
6456:
6456:
6457: ----------------------------------------------------------
6458: l_debug_info := 'Set the Owner of Workflow Process.';
6459: ----------------------------------------------------------
6460: WF_ENGINE.SetItemOwner(p_item_type, l_item_key, l_preparer_name);
6461:
6462: ----------------------------------------------------------
6463: l_debug_info := 'Get Employee Name Info For Employee_Id';
6464: ----------------------------------------------------------
6466: l_employee_id,
6467: l_employee_name,
6468: l_employee_display_name);
6469:
6470: WF_ENGINE.SetItemAttrText(p_item_type,
6471: l_item_key,
6472: 'EMPLOYEE_ID',
6473: l_employee_id);
6474:
6474:
6475: ----------------------------------------------------------
6476: l_debug_info := 'Set Employee Name Info Item Attributes';
6477: ----------------------------------------------------------
6478: WF_ENGINE.SetItemAttrText(p_item_type,
6479: l_item_key,
6480: 'EMPLOYEE_NAME',
6481: l_employee_name);
6482:
6479: l_item_key,
6480: 'EMPLOYEE_NAME',
6481: l_employee_name);
6482:
6483: WF_ENGINE.SetItemAttrText(p_item_type,
6484: l_item_key,
6485: 'EMPLOYEE_DISPLAY_NAME',
6486: l_employee_display_name);
6487:
6487:
6488: -------------------------------------------------
6489: l_debug_info := 'Set Total Item Attribute';
6490: -------------------------------------------------
6491: WF_ENGINE.SetItemAttrNumber(p_item_type,
6492: l_item_key,
6493: 'TOTAL',
6494: l_total);
6495:
6495:
6496: -----------------------------------------------------------------
6497: l_debug_info := 'Set New Adjusted Display_Total Item Attribute';
6498: -----------------------------------------------------------------
6499: WF_ENGINE.SetItemAttrText(p_item_type,
6500: l_item_key,
6501: 'DISPLAY_TOTAL',
6502: to_char(l_total,FND_CURRENCY.Get_Format_Mask(l_currency,22)) || ' ' || l_currency);
6503:
6509: ---------------------------------------------------------------------------
6510:
6511: IF (C_WF_Version >= C_CreditLineVersion) THEN
6512:
6513: WF_ENGINE.SetItemAttrNumber(p_item_type,
6514: l_item_key,
6515: 'POS_NEW_EXPENSE_TOTAL',
6516: l_new_exp_total);
6517: WF_ENGINE.SetItemAttrText(p_item_type,
6513: WF_ENGINE.SetItemAttrNumber(p_item_type,
6514: l_item_key,
6515: 'POS_NEW_EXPENSE_TOTAL',
6516: l_new_exp_total);
6517: WF_ENGINE.SetItemAttrText(p_item_type,
6518: l_item_key,
6519: 'POS_NEW_EXPENSE_DISPLAY_TOTAL',
6520: to_char(l_new_exp_total, FND_CURRENCY.Get_Format_Mask(l_currency,22)));
6521:
6518: l_item_key,
6519: 'POS_NEW_EXPENSE_DISPLAY_TOTAL',
6520: to_char(l_new_exp_total, FND_CURRENCY.Get_Format_Mask(l_currency,22)));
6521:
6522: WF_ENGINE.SetItemAttrNumber(p_item_type,
6523: l_item_key,
6524: 'NEG_CREDIT_TOTAL',
6525: l_credit_total);
6526: WF_ENGINE.SetItemAttrText(p_item_type,
6522: WF_ENGINE.SetItemAttrNumber(p_item_type,
6523: l_item_key,
6524: 'NEG_CREDIT_TOTAL',
6525: l_credit_total);
6526: WF_ENGINE.SetItemAttrText(p_item_type,
6527: l_item_key,
6528: 'NEG_CREDIT_DISPLAY_TOTAL',
6529: to_char(l_credit_total, FND_CURRENCY.Get_Format_Mask(l_currency,22)));
6530:
6534:
6535: ----------------------------------------------
6536: l_debug_info := 'Set Currency Item Attribute';
6537: -----------------------------------------------
6538: WF_ENGINE.SetItemAttrText(p_item_type,
6539: l_item_key,
6540: 'CURRENCY',
6541: l_currency);
6542:
6543:
6544: -----------------------------------------------------------
6545: l_debug_info := 'Set Document Cost Center Item Attribute';
6546: -----------------------------------------------------------
6547: WF_ENGINE.SetItemAttrText(p_item_type,
6548: l_item_key,
6549: 'DOC_COST_CENTER',
6550: l_doc_cost_center);
6551:
6551:
6552: -----------------------------------------------------------
6553: l_debug_info := 'Set Employee Cost Center Item Attribute';
6554: -----------------------------------------------------------
6555: WF_ENGINE.SetItemAttrText(p_item_type,
6556: l_item_key,
6557: 'EMP_COST_CENTER',
6558: l_emp_cost_center);
6559:
6559:
6560: --------------------------------------------------------------
6561: l_debug_info := 'Set CC Payment Due From Item Attribute';
6562: --------------------------------------------------------------
6563: WF_ENGINE.SetItemAttrText(p_item_type,
6564: l_item_key,
6565: 'PAYMENT_DUE_FROM',
6566: l_payment_due);
6567:
6577: -----------------------------------------------------
6578:
6579: -- Be sure to clear these values. If we are resubmitting, we don't want
6580: -- the values from the previous process traversal to hang around.
6581: WF_ENGINE.SetItemAttrText(p_item_type,
6582: l_item_key,
6583: 'EXPENSE_DETAILS',
6584: l_url);
6585:
6586: -----------------------------------------------------
6587: l_debug_info := 'Set Org ID Item Attribute';
6588: -----------------------------------------------------
6589: begin
6590: WF_ENGINE.SetItemAttrNumber(p_item_type,
6591: l_item_key,
6592: 'ORG_ID',
6593: l_n_org_id);
6594: exception
6594: exception
6595: when others then
6596: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
6597: -- ORG_ID item attribute doesn't exist, need to add it
6598: wf_engine.AddItemAttr(p_item_type, l_item_key, 'ORG_ID');
6599: -- get the org_id from header for old reports
6600: WF_ENGINE.SetItemAttrNumber(p_item_type,
6601: l_item_key,
6602: 'ORG_ID',
6596: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
6597: -- ORG_ID item attribute doesn't exist, need to add it
6598: wf_engine.AddItemAttr(p_item_type, l_item_key, 'ORG_ID');
6599: -- get the org_id from header for old reports
6600: WF_ENGINE.SetItemAttrNumber(p_item_type,
6601: l_item_key,
6602: 'ORG_ID',
6603: l_n_org_id);
6604: else
6611:
6612: --------------------------------------------------------------
6613: l_debug_info := 'Set User_ID value ';
6614: --------------------------------------------------------------
6615: WF_ENGINE.SetItemAttrNumber(p_item_type,
6616: l_item_key,
6617: 'USER_ID',
6618: l_n_user_id);
6619:
6620:
6621: --------------------------------------------------------------
6622: l_debug_info := 'Set Resp_ID value ';
6623: --------------------------------------------------------------
6624: WF_ENGINE.SetItemAttrNumber(p_item_type,
6625: l_item_key,
6626: 'RESPONSIBILITY_ID',
6627: l_n_resp_id);
6628:
6628:
6629: --------------------------------------------------------------
6630: l_debug_info := 'Set Resp_Appl_ID value ';
6631: --------------------------------------------------------------
6632: WF_ENGINE.SetItemAttrNumber(p_item_type,
6633: l_item_key,
6634: 'APPLICATION_ID',
6635: l_n_resp_appl_id);
6636:
6645:
6646: --------------------------------------------------------------
6647: l_debug_info := 'Set AME_ENABLED value ';
6648: --------------------------------------------------------------
6649: WF_ENGINE.SetItemAttrText(p_item_type,
6650: l_item_key,
6651: 'AME_ENABLED',
6652: l_AMEEnabled);
6653:
6664:
6665: ----------------------------------------------------------------
6666: l_debug_info := 'Set Policy Non-Compliance note';
6667: ----------------------------------------------------------------
6668: WF_ENGINE.SetItemAttrText(p_item_type,
6669: l_item_key,
6670: 'WF_NOTE',
6671: l_mess);
6672:
6674:
6675: -------------------------------------------------
6676: l_debug_info := 'Start Policy Violation Shortpay Process';
6677: -------------------------------------------------
6678: WF_ENGINE.StartProcess(p_item_type,
6679: l_item_key);
6680: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartPolicyShortPayProcess');
6681:
6682: EXCEPTION
6748:
6749: ------------------------------------------------------------
6750: l_debug_info := 'Retrieve New Expense_Report_ID Item Attribute';
6751: ------------------------------------------------------------
6752: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6753: p_item_key,
6754: 'NO_RECEIPTS_SHORTPAY_ID');
6755:
6756: --------------------------------------------------------------
6755:
6756: --------------------------------------------------------------
6757: l_debug_info := 'Retrieve New Document Number Item Attribute';
6758: ---------------------------------------------------------------
6759: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
6760: p_item_key,
6761: 'NO_RECEIPTS_SHORTPAY_DOC_NUM');
6762:
6763: --------------------------------------------------------------
6762:
6763: --------------------------------------------------------------
6764: l_debug_info := 'Retrieve New Document Number Item Attribute';
6765: ---------------------------------------------------------------
6766: l_orig_expense_report_num := WF_ENGINE.GetItemAttrText(p_item_type,
6767: p_item_key,
6768: 'DOCUMENT_NUMBER');
6769:
6770: ----------------------------------------------------------------
6769:
6770: ----------------------------------------------------------------
6771: l_debug_info := 'Retrieve Employee Cost Center Item Attribute';
6772: ----------------------------------------------------------------
6773: l_emp_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
6774: p_item_key,
6775: 'EMP_COST_CENTER');
6776:
6777: ----------------------------------------------------------------
6776:
6777: ----------------------------------------------------------------
6778: l_debug_info := 'Retrieve Document Cost Center Item Attribute';
6779: ----------------------------------------------------------------
6780: l_doc_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
6781: p_item_key,
6782: 'DOC_COST_CENTER');
6783:
6784: -----------------------------------------------------
6783:
6784: -----------------------------------------------------
6785: l_debug_info := 'Retrieve New Total Item Attribute';
6786: -----------------------------------------------------
6787: l_total := WF_ENGINE.GetItemAttrNumber(p_item_type,
6788: p_item_key,
6789: 'NO_RECEIPTS_SHORTPAY_TOTAL');
6790:
6791: l_new_exp_total := l_total;
6793:
6794: -----------------------------------------------------
6795: l_debug_info := 'Retrieve Currency Item Attribute';
6796: -----------------------------------------------------
6797: l_currency := WF_ENGINE.GetItemAttrText(p_item_type,
6798: p_item_key,
6799: 'CURRENCY');
6800:
6801: --------------------------------
6806:
6807: -------------------------------------------------------
6808: l_debug_info := 'Retrieve Preparer_ID Item Attribute';
6809: -------------------------------------------------------
6810: l_preparer_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6811: p_item_key,
6812: 'PREPARER_ID');
6813:
6814: -------------------------------------------------------
6813:
6814: -------------------------------------------------------
6815: l_debug_info := 'Retrieve Employee_ID Item Attribute';
6816: -------------------------------------------------------
6817: l_employee_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6818: p_item_key,
6819: 'EMPLOYEE_ID');
6820:
6821: ---------------------------------------------------------
6820:
6821: ---------------------------------------------------------
6822: l_debug_info := 'Retrieve Payment Due From System Option';
6823: ---------------------------------------------------------
6824: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
6825:
6826: ------------------------------------------------------------
6827: l_debug_info := 'Determine whether session is project enabled';
6828: ------------------------------------------------------------
6826: ------------------------------------------------------------
6827: l_debug_info := 'Determine whether session is project enabled';
6828: ------------------------------------------------------------
6829: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_11_0_3Version) THEN
6830: V_IsSessionProjectEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
6831: p_item_key,
6832: 'EMPLOYEE_PROJECT_ENABLED');
6833:
6834: ELSE
6846: ----------------------------------
6847: -- for bug 1652106
6848: begin
6849:
6850: l_n_org_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6851: p_item_key,
6852: 'ORG_ID');
6853: exception
6854: when others then
6853: exception
6854: when others then
6855: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
6856: -- ORG_ID item attribute doesn't exist, need to add it
6857: wf_engine.AddItemAttr(p_item_type, p_item_key, 'ORG_ID');
6858: -- get the org_id from header for old reports
6859: IF (AP_WEB_DB_EXPRPT_PKG.GetOrgIdByReportHeaderId(
6860: to_number(p_item_key),
6861: l_n_org_id) <> TRUE ) THEN
6860: to_number(p_item_key),
6861: l_n_org_id) <> TRUE ) THEN
6862: l_n_org_id := NULL;
6863: END IF;
6864: WF_ENGINE.SetItemAttrText(p_item_type,
6865: p_item_key,
6866: 'ORG_ID',
6867: l_n_org_id);
6868: else
6874: ----------------------------------
6875: l_debug_info := 'Get User ID';
6876: ----------------------------------
6877: begin
6878: l_n_user_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6879: p_item_key,
6880: 'USER_ID');
6881: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6882: p_item_key,
6877: begin
6878: l_n_user_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6879: p_item_key,
6880: 'USER_ID');
6881: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6882: p_item_key,
6883: 'RESPONSIBILITY_ID');
6884: l_n_resp_appl_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6885: p_item_key,
6880: 'USER_ID');
6881: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6882: p_item_key,
6883: 'RESPONSIBILITY_ID');
6884: l_n_resp_appl_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6885: p_item_key,
6886: 'APPLICATION_ID');
6887: exception
6888: when others then
6895:
6896: ----------------------------------
6897: l_debug_info := 'Get AME_ENABLED';
6898: ----------------------------------
6899: l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
6900: p_item_key,
6901: 'AME_ENABLED');
6902:
6903: ----------------------------------
6902:
6903: ----------------------------------
6904: l_debug_info := 'Get PURPOSE';
6905: ----------------------------------
6906: l_purpose := WF_ENGINE.GetItemAttrText(p_item_type,
6907: p_item_key,
6908: 'PURPOSE');
6909:
6910: ------------------------------------------------------------
6909:
6910: ------------------------------------------------------------
6911: l_debug_info := 'Get Approver Info';
6912: ------------------------------------------------------------
6913: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6914: p_item_key,
6915: 'APPROVER_ID');
6916:
6917: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
6913: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
6914: p_item_key,
6915: 'APPROVER_ID');
6916:
6917: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
6918: p_item_key,
6919: 'APPROVER_NAME');
6920:
6921: l_approver_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
6917: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
6918: p_item_key,
6919: 'APPROVER_NAME');
6920:
6921: l_approver_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
6922: p_item_key,
6923: 'APPROVER_DISPLAY_NAME');
6924:
6925: ----------------------------------
6924:
6925: ----------------------------------
6926: l_debug_info := 'Get SUBMIT_FROM_OIE';
6927: ----------------------------------
6928: l_submit_from_oie := WF_ENGINE.GetItemAttrText(p_item_type,
6929: p_item_key,
6930: 'SUBMIT_FROM_OIE');
6931:
6932: -------------------------------------------------
6931:
6932: -------------------------------------------------
6933: l_debug_info := 'Create Missing Receipts Shortpay Subprocess';
6934: -------------------------------------------------
6935: WF_ENGINE.CreateProcess(p_item_type,
6936: l_item_key,
6937: 'NO_RECEIPTS_SHORTPAY_PROCESS');
6938:
6939: /* Bug 2351528. Need to set the user_key for easier query */
6936: l_item_key,
6937: 'NO_RECEIPTS_SHORTPAY_PROCESS');
6938:
6939: /* Bug 2351528. Need to set the user_key for easier query */
6940: WF_ENGINE.SetItemUserKey(l_item_type,
6941: l_item_key,
6942: l_document_number);
6943:
6944: ----------------------------------------------------
6943:
6944: ----------------------------------------------------
6945: l_debug_info := 'Set SUBMIT_FROM_OIE Item Attribute';
6946: ----------------------------------------------------
6947: WF_ENGINE.SetItemAttrText(l_item_type,
6948: l_item_key,
6949: 'SUBMIT_FROM_OIE',
6950: l_submit_from_oie);
6951:
6951:
6952: ------------------------------------------------------
6953: l_debug_info := 'Set PURPOSE Item Attribute';
6954: ------------------------------------------------------
6955: WF_ENGINE.SetItemAttrText(l_item_type,
6956: l_item_key,
6957: 'PURPOSE',
6958: l_purpose);
6959:
6959:
6960: ------------------------------------------------------
6961: l_debug_info := 'Set Approver Info';
6962: ------------------------------------------------------
6963: WF_ENGINE.SetItemAttrNumber(l_item_type,
6964: l_item_key,
6965: 'APPROVER_ID',
6966: l_approver_id);
6967:
6964: l_item_key,
6965: 'APPROVER_ID',
6966: l_approver_id);
6967:
6968: WF_ENGINE.SetItemAttrText(l_item_type,
6969: l_item_key,
6970: 'APPROVER_NAME',
6971: l_approver_name);
6972:
6969: l_item_key,
6970: 'APPROVER_NAME',
6971: l_approver_name);
6972:
6973: WF_ENGINE.SetItemAttrText(l_item_type,
6974: l_item_key,
6975: 'APPROVER_DISPLAY_NAME',
6976: l_approver_display_name);
6977:
6978: -- Bug 996020
6979: ------------------------------------------------------
6980: l_debug_info := 'Set LINE_TABLE Item Attribute';
6981: ------------------------------------------------------
6982: WF_ENGINE.SetItemAttrText(l_item_type,
6983: l_item_key,
6984: 'LINE_TABLE',
6985: 'plsqlclob:AP_WEB_EXPENSE_WF.generateExpClobLines/'||l_item_type||':'||l_item_key);
6986:
6986:
6987: ------------------------------------------------------
6988: l_debug_info := 'Set EMP_LINE_TABLE Item Attribute';
6989: ------------------------------------------------------
6990: WF_ENGINE.SetItemAttrText(l_item_type,
6991: l_item_key,
6992: 'EMP_LINE_TABLE',
6993: 'plsqlclob:AP_WEB_EXPENSE_WF.generateExpClobLines/'||l_item_type||':'||l_item_key || ':'||C_EMP);
6994:
6994:
6995: --------------------------------------------------------
6996: l_debug_info := 'Set Expense_Report_ID Item Attribute';
6997: --------------------------------------------------------
6998: WF_ENGINE.SetItemAttrNumber(p_item_type,
6999: l_item_key,
7000: 'EXPENSE_REPORT_ID',
7001: l_report_header_id);
7002:
7002:
7003: ------------------------------------------------------
7004: l_debug_info := 'Set Document_Number Item Attribute';
7005: ------------------------------------------------------
7006: WF_ENGINE.SetItemAttrText(p_item_type,
7007: l_item_key,
7008: 'DOCUMENT_NUMBER',
7009: l_document_number);
7010:
7010:
7011: ------------------------------------------------------
7012: l_debug_info := 'Set Document_Number Item Attribute';
7013: ------------------------------------------------------
7014: WF_ENGINE.SetItemAttrText(p_item_type,
7015: l_item_key,
7016: 'ORIG_EXPENSE_REPORT_NUM',
7017: l_orig_expense_report_num);
7018:
7023: l_preparer_id,
7024: l_preparer_name,
7025: l_preparer_display_name);
7026:
7027: WF_ENGINE.SetItemAttrText(p_item_type,
7028: l_item_key,
7029: 'PREPARER_ID',
7030: l_preparer_id);
7031:
7031:
7032: ----------------------------------------------------------
7033: l_debug_info := 'Set Preparer Name Info Item Attributes';
7034: ----------------------------------------------------------
7035: WF_ENGINE.SetItemAttrText(p_item_type,
7036: l_item_key,
7037: 'PREPARER_NAME',
7038: l_preparer_name);
7039:
7036: l_item_key,
7037: 'PREPARER_NAME',
7038: l_preparer_name);
7039:
7040: WF_ENGINE.SetItemAttrText(p_item_type,
7041: l_item_key,
7042: 'PREPARER_DISPLAY_NAME',
7043: l_preparer_display_name);
7044:
7044:
7045: ----------------------------------------------------------
7046: l_debug_info := 'Set the Owner of Workflow Process.';
7047: ----------------------------------------------------------
7048: WF_ENGINE.SetItemOwner(p_item_type, l_item_key, l_preparer_name);
7049:
7050: ----------------------------------------------------------
7051: l_debug_info := 'Get Employee Name Info For Employee_Id';
7052: ----------------------------------------------------------
7054: l_employee_id,
7055: l_employee_name,
7056: l_employee_display_name);
7057:
7058: WF_ENGINE.SetItemAttrText(p_item_type,
7059: l_item_key,
7060: 'EMPLOYEE_ID',
7061: l_employee_id);
7062:
7062:
7063: ----------------------------------------------------------
7064: l_debug_info := 'Set Employee Name Info Item Attributes';
7065: ----------------------------------------------------------
7066: WF_ENGINE.SetItemAttrText(p_item_type,
7067: l_item_key,
7068: 'EMPLOYEE_NAME',
7069: l_employee_name);
7070:
7067: l_item_key,
7068: 'EMPLOYEE_NAME',
7069: l_employee_name);
7070:
7071: WF_ENGINE.SetItemAttrText(p_item_type,
7072: l_item_key,
7073: 'EMPLOYEE_DISPLAY_NAME',
7074: l_employee_display_name);
7075:
7075:
7076: -------------------------------------------------
7077: l_debug_info := 'Set Total Item Attribute';
7078: -------------------------------------------------
7079: WF_ENGINE.SetItemAttrNumber(p_item_type,
7080: l_item_key,
7081: 'TOTAL',
7082: l_total);
7083:
7083:
7084: -----------------------------------------------------------------
7085: l_debug_info := 'Set New Adjusted Display_Total Item Attribute';
7086: -----------------------------------------------------------------
7087: WF_ENGINE.SetItemAttrText(p_item_type,
7088: l_item_key,
7089: 'DISPLAY_TOTAL',
7090: to_char(l_total,FND_CURRENCY.Get_Format_Mask(l_currency,22)) || ' ' || l_currency);
7091:
7091:
7092: --------------------------------------------------------------
7093: l_debug_info := 'Set CC Payment Due From Item Attribute';
7094: --------------------------------------------------------------
7095: WF_ENGINE.SetItemAttrText(p_item_type,
7096: l_item_key,
7097: 'PAYMENT_DUE_FROM',
7098: l_payment_due);
7099:
7102: ---------------------------------------------------------------------------
7103:
7104: IF (C_WF_Version >= C_CreditLineVersion) THEN
7105:
7106: WF_ENGINE.SetItemAttrNumber(p_item_type,
7107: l_item_key,
7108: 'POS_NEW_EXPENSE_TOTAL',
7109: l_new_exp_total);
7110: WF_ENGINE.SetItemAttrText(p_item_type,
7106: WF_ENGINE.SetItemAttrNumber(p_item_type,
7107: l_item_key,
7108: 'POS_NEW_EXPENSE_TOTAL',
7109: l_new_exp_total);
7110: WF_ENGINE.SetItemAttrText(p_item_type,
7111: l_item_key,
7112: 'POS_NEW_EXPENSE_DISPLAY_TOTAL',
7113: to_char(l_new_exp_total, FND_CURRENCY.Get_Format_Mask(l_currency,22)));
7114:
7111: l_item_key,
7112: 'POS_NEW_EXPENSE_DISPLAY_TOTAL',
7113: to_char(l_new_exp_total, FND_CURRENCY.Get_Format_Mask(l_currency,22)));
7114:
7115: WF_ENGINE.SetItemAttrNumber(p_item_type,
7116: l_item_key,
7117: 'NEG_CREDIT_TOTAL',
7118: l_credit_total);
7119: WF_ENGINE.SetItemAttrText(p_item_type,
7115: WF_ENGINE.SetItemAttrNumber(p_item_type,
7116: l_item_key,
7117: 'NEG_CREDIT_TOTAL',
7118: l_credit_total);
7119: WF_ENGINE.SetItemAttrText(p_item_type,
7120: l_item_key,
7121: 'NEG_CREDIT_DISPLAY_TOTAL',
7122: to_char(l_credit_total, FND_CURRENCY.Get_Format_Mask(l_currency,22)));
7123:
7127: l_debug_info := 'Set whether employee is project enabled';
7128: ---------------------------------------------------------------------------
7129: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_11_0_3Version) THEN
7130:
7131: WF_ENGINE.SetItemAttrText(p_item_type,
7132: l_item_key,
7133: 'EMPLOYEE_PROJECT_ENABLED',
7134: V_IsSessionProjectEnabled);
7135: END IF;
7137:
7138: ----------------------------------------------
7139: l_debug_info := 'Set Currency Item Attribute';
7140: -----------------------------------------------
7141: WF_ENGINE.SetItemAttrText(p_item_type,
7142: l_item_key,
7143: 'CURRENCY',
7144: l_currency);
7145:
7146:
7147: -----------------------------------------------------------
7148: l_debug_info := 'Set Document Cost Center Item Attribute';
7149: -----------------------------------------------------------
7150: WF_ENGINE.SetItemAttrText(p_item_type,
7151: l_item_key,
7152: 'DOC_COST_CENTER',
7153: l_doc_cost_center);
7154:
7154:
7155: -----------------------------------------------------------
7156: l_debug_info := 'Set Employee Cost Center Item Attribute';
7157: -----------------------------------------------------------
7158: WF_ENGINE.SetItemAttrText(p_item_type,
7159: l_item_key,
7160: 'EMP_COST_CENTER',
7161: l_emp_cost_center);
7162:
7172: -----------------------------------------------------
7173:
7174: -- Be sure to clear these values. If we are resubmitting, we don't want
7175: -- the values from the previous process traversal to hang around.
7176: WF_ENGINE.SetItemAttrText(p_item_type,
7177: l_item_key,
7178: 'EXPENSE_DETAILS',
7179: l_url);
7180:
7186: l_override_approver_id,
7187: l_approver_name,
7188: l_approver_display_name);
7189:
7190: WF_ENGINE.SetItemAttrNumber(p_item_type,
7191: l_item_key,
7192: 'APPROVER_ID',
7193: l_override_approver_id);
7194:
7191: l_item_key,
7192: 'APPROVER_ID',
7193: l_override_approver_id);
7194:
7195: WF_ENGINE.SetItemAttrText(p_item_type,
7196: l_item_key,
7197: 'APPROVER_NAME',
7198: l_approver_name);
7199:
7196: l_item_key,
7197: 'APPROVER_NAME',
7198: l_approver_name);
7199:
7200: WF_ENGINE.SetItemAttrText(p_item_type,
7201: l_item_key,
7202: 'APPROVER_DISPLAY_NAME',
7203: l_approver_display_name);
7204:
7207: -----------------------------------------------------
7208: l_debug_info := 'Set Org ID Item Attribute';
7209: -----------------------------------------------------
7210: begin
7211: WF_ENGINE.SetItemAttrNumber(p_item_type,
7212: l_item_key,
7213: 'ORG_ID',
7214: l_n_org_id);
7215: exception
7215: exception
7216: when others then
7217: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
7218: -- ORG_ID item attribute doesn't exist, need to add it
7219: wf_engine.AddItemAttr(p_item_type, l_item_key, 'ORG_ID');
7220: -- get the org_id from header for old reports
7221: WF_ENGINE.SetItemAttrNumber(p_item_type,
7222: l_item_key,
7223: 'ORG_ID',
7217: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
7218: -- ORG_ID item attribute doesn't exist, need to add it
7219: wf_engine.AddItemAttr(p_item_type, l_item_key, 'ORG_ID');
7220: -- get the org_id from header for old reports
7221: WF_ENGINE.SetItemAttrNumber(p_item_type,
7222: l_item_key,
7223: 'ORG_ID',
7224: l_n_org_id);
7225: else
7231:
7232: --------------------------------------------------------------
7233: l_debug_info := 'Set User_ID value ';
7234: --------------------------------------------------------------
7235: WF_ENGINE.SetItemAttrNumber(p_item_type,
7236: l_item_key,
7237: 'USER_ID',
7238: l_n_user_id);
7239:
7240:
7241: --------------------------------------------------------------
7242: l_debug_info := 'Set Resp_ID value ';
7243: --------------------------------------------------------------
7244: WF_ENGINE.SetItemAttrNumber(p_item_type,
7245: l_item_key,
7246: 'RESPONSIBILITY_ID',
7247: l_n_resp_id);
7248:
7248:
7249: --------------------------------------------------------------
7250: l_debug_info := 'Set Resp_Appl_ID value ';
7251: --------------------------------------------------------------
7252: WF_ENGINE.SetItemAttrNumber(p_item_type,
7253: l_item_key,
7254: 'APPLICATION_ID',
7255: l_n_resp_appl_id);
7256:
7265:
7266: --------------------------------------------------------------
7267: l_debug_info := 'Set AME_ENABLED value ';
7268: --------------------------------------------------------------
7269: WF_ENGINE.SetItemAttrText(p_item_type,
7270: l_item_key,
7271: 'AME_ENABLED',
7272: l_AMEEnabled);
7273:
7285:
7286: ----------------------------------------------------------------
7287: l_debug_info := 'Set Missing receipts note';
7288: ----------------------------------------------------------------
7289: WF_ENGINE.SetItemAttrText(p_item_type,
7290: l_item_key,
7291: 'WF_NOTE',
7292: l_mess);
7293:
7295:
7296: -------------------------------------------------------
7297: l_debug_info := 'Start No Receipts Short Pay Process';
7298: -------------------------------------------------------
7299: WF_ENGINE.StartProcess(p_item_type,
7300: l_item_key);
7301:
7302:
7303: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartNoReceiptsShortPayProcess');
7346:
7347: ----------------------------------------------------------------
7348: l_debug_info := 'Retrieve New_Expense_Report_ID Item Attribute';
7349: ----------------------------------------------------------------
7350: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7351: p_item_key,
7352: 'NEW_EXPENSE_REPORT_ID');
7353:
7354:
7362:
7363: --------------------------------------------------------------
7364: l_debug_info := 'Retrieve New_Document_Number Item Attribute';
7365: --------------------------------------------------------------
7366: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
7367: p_item_key,
7368: 'NEW_DOCUMENT_NUMBER');
7369:
7370: -----------------------------------------------------
7369:
7370: -----------------------------------------------------
7371: l_debug_info := 'Retrieve New_Total Item Attribute';
7372: -----------------------------------------------------
7373: l_total := WF_ENGINE.GetItemAttrNumber(p_item_type,
7374: p_item_key,
7375: 'NEW_TOTAL');
7376:
7377: -----------------------------------------------------
7376:
7377: -----------------------------------------------------
7378: l_debug_info := 'Retrieve Currency Item Attribute';
7379: -----------------------------------------------------
7380: l_currency := WF_ENGINE.GetItemAttrText(p_item_type,
7381: p_item_key,
7382: 'CURRENCY');
7383:
7384: --------------------------------
7388:
7389: -------------------------------------------------------
7390: l_debug_info := 'Retrieve Preparer_Id Item Attribute';
7391: -------------------------------------------------------
7392: l_preparer_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7393: p_item_key,
7394: 'PREPARER_ID');
7395:
7396: -------------------------------------------------------
7395:
7396: -------------------------------------------------------
7397: l_debug_info := 'Retrieve Employee_Id Item Attribute';
7398: -------------------------------------------------------
7399: l_employee_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7400: p_item_key,
7401: 'EMPLOYEE_ID');
7402:
7403: ----------------------------------------------------------------
7402:
7403: ----------------------------------------------------------------
7404: l_debug_info := 'Retrieve Employee Cost Center Item Attribute';
7405: ----------------------------------------------------------------
7406: l_emp_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
7407: p_item_key,
7408: 'EMP_COST_CENTER');
7409:
7410: ----------------------------------------------------------------
7409:
7410: ----------------------------------------------------------------
7411: l_debug_info := 'Retrieve Document Cost Center Item Attribute';
7412: ----------------------------------------------------------------
7413: l_doc_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
7414: p_item_key,
7415: 'DOC_COST_CENTER');
7416:
7417: ---------------------------------------------------------
7416:
7417: ---------------------------------------------------------
7418: l_debug_info := 'Retrieve Payment Due From System Option';
7419: ---------------------------------------------------------
7420: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
7421:
7422: -----------------------------------------
7423: l_debug_info := 'Retrieve Week End Date';
7424: -----------------------------------------
7423: l_debug_info := 'Retrieve Week End Date';
7424: -----------------------------------------
7425: IF (C_WF_Version >= C_ProjectIntegrationVersion) THEN
7426:
7427: l_week_end_date := WF_ENGINE.GetItemAttrDate(p_item_type,
7428: p_item_key,
7429: 'WEEK_END_DATE');
7430:
7431: END IF;
7432:
7433: ------------------------------------------------------------
7434: l_debug_info := 'Create Approval Subprocess';
7435: ------------------------------------------------------------
7436: WF_ENGINE.CreateProcess(p_item_type,
7437: l_item_key,
7438: 'AP_EXPENSE_REPORT_PROCESS');
7439:
7440: --------------------------------------------------------
7439:
7440: --------------------------------------------------------
7441: l_debug_info := 'Set Expense_Report_ID Item Attribute';
7442: --------------------------------------------------------
7443: WF_ENGINE.SetItemAttrNumber(p_item_type,
7444: l_item_key,
7445: 'EXPENSE_REPORT_ID',
7446: l_report_header_id);
7447:
7447:
7448: ----------------------------------------------------------
7449: l_debug_info := 'Set Document_Number Item Attribute';
7450: ----------------------------------------------------------
7451: WF_ENGINE.SetItemAttrText(p_item_type,
7452: l_item_key,
7453: 'DOCUMENT_NUMBER',
7454: l_document_number);
7455:
7463:
7464: --------------------------------------------------
7465: l_debug_info := 'Set Preparer_ID Item Attribute';
7466: --------------------------------------------------
7467: WF_ENGINE.SetItemAttrText(p_item_type,
7468: l_item_key,
7469: 'PREPARER_ID',
7470: l_preparer_id);
7471:
7471:
7472: ---------------------------------------------------------
7473: l_debug_info := 'Set Preparer_Name Info Item Attributes';
7474: ---------------------------------------------------------
7475: WF_ENGINE.SetItemAttrText(p_item_type,
7476: l_item_key,
7477: 'PREPARER_NAME',
7478: l_preparer_name);
7479:
7476: l_item_key,
7477: 'PREPARER_NAME',
7478: l_preparer_name);
7479:
7480: WF_ENGINE.SetItemAttrText(p_item_type,
7481: l_item_key,
7482: 'PREPARER_DISPLAY_NAME',
7483: l_preparer_display_name);
7484:
7492:
7493: --------------------------------------------------
7494: l_debug_info := 'Set Employee_ID Item Attribute';
7495: --------------------------------------------------
7496: WF_ENGINE.SetItemAttrText(p_item_type,
7497: l_item_key,
7498: 'EMPLOYEE_ID',
7499: l_employee_id);
7500:
7500:
7501: ---------------------------------------------------------
7502: l_debug_info := 'Set Employee_Name Info Item Attributes';
7503: ---------------------------------------------------------
7504: WF_ENGINE.SetItemAttrText(p_item_type,
7505: l_item_key,
7506: 'EMPLOYEE_NAME',
7507: l_employee_name);
7508:
7505: l_item_key,
7506: 'EMPLOYEE_NAME',
7507: l_employee_name);
7508:
7509: WF_ENGINE.SetItemAttrText(p_item_type,
7510: l_item_key,
7511: 'EMPLOYEE_DISPLAY_NAME',
7512: l_employee_display_name);
7513:
7513:
7514: ------------------------------------------------------------
7515: l_debug_info := 'Set Total Item Attribute';
7516: ------------------------------------------------------------
7517: WF_ENGINE.SetItemAttrNumber(p_item_type,
7518: l_item_key,
7519: 'TOTAL',
7520: l_total);
7521:
7522:
7523: -----------------------------------------------------------------
7524: l_debug_info := 'Set New Adjusted Display_Total Item Attribute';
7525: -----------------------------------------------------------------
7526: WF_ENGINE.SetItemAttrText(p_item_type,
7527: l_item_key,
7528: 'DISPLAY_TOTAL',
7529: to_char(l_total,FND_CURRENCY.Get_Format_Mask(l_currency,22)) || ' ' || l_currency);
7530:
7530:
7531: ----------------------------------------------
7532: l_debug_info := 'Set Currency Item Attribute';
7533: -----------------------------------------------
7534: WF_ENGINE.SetItemAttrText(p_item_type,
7535: l_item_key,
7536: 'CURRENCY',
7537: l_currency);
7538:
7539:
7540: -----------------------------------------------------------
7541: l_debug_info := 'Set Document Cost Center Item Attribute';
7542: -----------------------------------------------------------
7543: WF_ENGINE.SetItemAttrText(p_item_type,
7544: l_item_key,
7545: 'DOC_COST_CENTER',
7546: l_doc_cost_center);
7547:
7547:
7548: -----------------------------------------------------------
7549: l_debug_info := 'Set Employee Cost Center Item Attribute';
7550: -----------------------------------------------------------
7551: WF_ENGINE.SetItemAttrText(p_item_type,
7552: l_item_key,
7553: 'EMP_COST_CENTER',
7554: l_emp_cost_center);
7555:
7555:
7556: --------------------------------------------------------------
7557: l_debug_info := 'Set CC Payment Due From Item Attribute';
7558: --------------------------------------------------------------
7559: WF_ENGINE.SetItemAttrText(p_item_type,
7560: l_item_key,
7561: 'PAYMENT_DUE_FROM',
7562: l_payment_due);
7563:
7565:
7566: -------------------------------------------------
7567: l_debug_info := 'Set Week End Date used in determining PA auto approval';
7568: -------------------------------------------------
7569: WF_ENGINE.SetItemAttrDate(p_item_type,
7570: l_item_key,
7571: 'WEEK_END_DATE',
7572: l_week_end_date);
7573:
7575:
7576: -----------------------------------------------------------
7577: l_debug_info := 'Skip server validation';
7578: -----------------------------------------------------------
7579: WF_ENGINE.SetItemAttrText(p_item_type,
7580: l_item_key,
7581: 'START_FROM_PROCESS',
7582: C_START_FROM_MANAGER_APPROVAL);
7583:
7583:
7584: ------------------------------------------------------
7585: l_debug_info := 'Start Manager Approval Sub Process';
7586: ------------------------------------------------------
7587: WF_ENGINE.StartProcess(p_item_type,
7588: l_item_key);
7589:
7590: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end StartManagerApprvlSubProcess');
7591:
7644: l_manager_display_name);
7645:
7646: IF (p_manager_target = 'MANAGER') THEN
7647:
7648: WF_ENGINE.SetItemAttrText(p_item_type,
7649: p_item_key,
7650: 'MANAGER_ID',
7651: p_manager_id);
7652:
7652:
7653: --------------------------------------------------------
7654: l_debug_info := 'Set Manager_Name Info Item Attribute';
7655: --------------------------------------------------------
7656: WF_ENGINE.SetItemAttrText(p_item_type,
7657: p_item_key,
7658: 'MANAGER_NAME',
7659: l_manager_name);
7660:
7660:
7661: ---------------------------------------------------------------
7662: l_debug_info := 'Set Manager_Display_Name Info Item Attribute';
7663: ---------------------------------------------------------------
7664: WF_ENGINE.SetItemAttrText(p_item_type,
7665: p_item_key,
7666: 'MANAGER_DISPLAY_NAME',
7667: l_manager_display_name);
7668:
7670:
7671: --------------------------------------------------------
7672: l_debug_info := 'Set Approver_ID Info Item Attribute';
7673: --------------------------------------------------------
7674: WF_ENGINE.SetItemAttrText(p_item_type,
7675: p_item_key,
7676: 'APPROVER_ID',
7677: p_manager_id);
7678:
7678:
7679: --------------------------------------------------------
7680: l_debug_info := 'Set Approver_Name Info Item Attribute';
7681: --------------------------------------------------------
7682: WF_ENGINE.SetItemAttrText(p_item_type,
7683: p_item_key,
7684: 'APPROVER_NAME',
7685: l_manager_name);
7686:
7686:
7687: ----------------------------------------------------------------
7688: l_debug_info := 'Set Approver_Display_Name Info Item Attribute';
7689: ----------------------------------------------------------------
7690: WF_ENGINE.SetItemAttrText(p_item_type,
7691: p_item_key,
7692: 'APPROVER_DISPLAY_NAME',
7693: l_manager_display_name);
7694:
7694:
7695: ----------------------------------------------------------------
7696: l_debug_info := 'Retrieving EXPENSE_REPORT_ID Item Attribute';
7697: ----------------------------------------------------------------
7698: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7699: p_item_key,
7700: 'EXPENSE_REPORT_ID');
7701: /* Bug 3566496: Need to update expense_current_approver_id since that
7702: * is used to display the approver in the Track expenses page.
7883:
7884: ------------------------------------------------------
7885: l_debug_info := 'Retrieve Employee_ID Item Attribute';
7886: ------------------------------------------------------
7887: l_preparer_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7888: p_item_key,
7889: 'PREPARER_ID');
7890:
7891:
7937:
7938: ------------------------------------------------------
7939: l_debug_info := 'Retrieve Approve_ID Item Attribute';
7940: ------------------------------------------------------
7941: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7942: p_item_key,
7943: 'APPROVER_ID');
7944:
7945: ---------------------------------------------
7992:
7993: ------------------------------------------------------
7994: l_debug_info := 'Retrieve Approve_ID Item Attribute';
7995: ------------------------------------------------------
7996: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
7997: p_item_key,
7998: 'APPROVER_ID');
7999:
8000: ---------------------------------------------------------------------------
8039:
8040: ---------------------------------------------------------------
8041: l_debug_info := 'Retrieve Employee Cost Center Item Attribute';
8042: ---------------------------------------------------------------
8043: l_emp_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
8044: p_item_key,
8045: 'EMP_COST_CENTER');
8046:
8047: ---------------------------------------------------------------
8046:
8047: ---------------------------------------------------------------
8048: l_debug_info := 'Retrieve Document Cost Center Item Attribute';
8049: ---------------------------------------------------------------
8050: l_report_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
8051: p_item_key,
8052: 'DOC_COST_CENTER');
8053:
8054: --------------------------------------------------------------------
8095:
8096: ------------------------------------------------------
8097: l_debug_info := 'Retrieve Manager_ID Item Attribute';
8098: -------------------------------------------------------
8099: l_manager_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8100: p_item_key,
8101: 'MANAGER_ID');
8102:
8103: ------------------------------------------------------------
8102:
8103: ------------------------------------------------------------
8104: l_debug_info := 'Retrieve Manager_Name Info Item Attributes';
8105: ------------------------------------------------------------
8106: l_manager_name := WF_ENGINE.GetItemAttrText(p_item_type,
8107: p_item_key,
8108: 'MANAGER_NAME');
8109:
8110: l_manager_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
8106: l_manager_name := WF_ENGINE.GetItemAttrText(p_item_type,
8107: p_item_key,
8108: 'MANAGER_NAME');
8109:
8110: l_manager_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
8111: p_item_key,
8112: 'MANAGER_DISPLAY_NAME');
8113:
8114: ----------------------------------------------------------------------
8113:
8114: ----------------------------------------------------------------------
8115: l_debug_info := 'Set Approver Info Item Attributes with Manager Info';
8116: ----------------------------------------------------------------------
8117: WF_ENGINE.SetItemAttrNUMBER(p_item_type,
8118: p_item_key,
8119: 'APPROVER_ID',
8120: l_manager_id);
8121:
8118: p_item_key,
8119: 'APPROVER_ID',
8120: l_manager_id);
8121:
8122: WF_ENGINE.SetItemAttrText(p_item_type,
8123: p_item_key,
8124: 'APPROVER_NAME',
8125: l_manager_name);
8126:
8123: p_item_key,
8124: 'APPROVER_NAME',
8125: l_manager_name);
8126:
8127: WF_ENGINE.SetItemAttrText(p_item_type,
8128: p_item_key,
8129: 'APPROVER_DISPLAY_NAME',
8130: l_manager_display_name);
8131:
8163:
8164: ------------------------------------------------------------
8165: l_debug_info := 'Retrieve Approver_Info Item Attributes';
8166: ------------------------------------------------------------
8167: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8168: p_item_key,
8169: 'APPROVER_ID');
8170:
8171: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
8167: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8168: p_item_key,
8169: 'APPROVER_ID');
8170:
8171: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
8172: p_item_key,
8173: 'APPROVER_NAME');
8174:
8175: l_approver_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
8171: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
8172: p_item_key,
8173: 'APPROVER_NAME');
8174:
8175: l_approver_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
8176: p_item_key,
8177: 'APPROVER_DISPLAY_NAME');
8178:
8179: ----------------------------------------------------------------------
8178:
8179: ----------------------------------------------------------------------
8180: l_debug_info := 'Set Forward_From Item Attributes With Approver Info';
8181: ----------------------------------------------------------------------
8182: WF_ENGINE.SetItemAttrNUMBER(p_item_type,
8183: p_item_key,
8184: 'FORWARD_FROM_ID',
8185: l_approver_id);
8186:
8183: p_item_key,
8184: 'FORWARD_FROM_ID',
8185: l_approver_id);
8186:
8187: WF_ENGINE.SetItemAttrText(p_item_type,
8188: p_item_key,
8189: 'FORWARD_FROM_NAME',
8190: l_approver_name);
8191:
8188: p_item_key,
8189: 'FORWARD_FROM_NAME',
8190: l_approver_name);
8191:
8192: WF_ENGINE.SetItemAttrText(p_item_type,
8193: p_item_key,
8194: 'FORWARD_FROM_DISPLAY_NAME',
8195: l_approver_display_name);
8196:
8227:
8228: ------------------------------------------------------
8229: l_debug_info := 'Retrieve Approver_ID Item Attribute';
8230: ------------------------------------------------------
8231: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8232: p_item_key,
8233: 'APPROVER_ID');
8234:
8235: ------------------------------------------------------
8234:
8235: ------------------------------------------------------
8236: l_debug_info := 'Retrieve Approve_ID Item Attribute';
8237: ------------------------------------------------------
8238: l_manager_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8239: p_item_key,
8240: 'MANAGER_ID');
8241:
8242: IF (l_approver_id <> l_manager_id) THEN
8280:
8281: -----------------------------------------------------------------------
8282: l_debug_info := 'Retrieve Manager_Approval_Send_Count Item Attribute';
8283: -----------------------------------------------------------------------
8284: l_count := WF_ENGINE.GetItemAttrNumber(p_item_type,
8285: p_item_key,
8286: 'MANAGER_APPROVAL_SEND_COUNT');
8287:
8288: ---------------------------------------------------------------
8287:
8288: ---------------------------------------------------------------
8289: l_debug_info := 'Retrieve Manager_Send_Limit Item Attribute';
8290: ---------------------------------------------------------------
8291: l_limit := WF_ENGINE.GetActivityAttrNumber(p_item_type,
8292: p_item_key,
8293: p_actid,
8294: 'MANAGER_SEND_LIMIT');
8295:
8295:
8296: -----------------------------------------------------------------------
8297: l_debug_info := 'Increment Manager_Approval_Send_Count Item Attribute';
8298: -----------------------------------------------------------------------
8299: WF_ENGINE.SetItemAttrNumber(p_item_type,
8300: p_item_key,
8301: 'MANAGER_APPROVAL_SEND_COUNT',
8302: l_count+1);
8303:
8308: l_debug_info := 'Send_count at least equals limit, clear
8309: Manager_Approval_Send_Count Item Attribute
8310: and return Y';
8311: ---------------------------------------------------------------
8312: WF_ENGINE.SetItemAttrNumber(p_item_type,
8313: p_item_key,
8314: 'MANAGER_APPROVAL_SEND_COUNT',
8315: 0);
8316:
8372: BEGIN
8373: ------------------------------------------------------------
8374: l_debug_info := 'Get responsibility id';
8375: ------------------------------------------------------------
8376: l_nRespId := WF_ENGINE.GetItemAttrNumber(p_item_type,
8377: p_item_key,
8378: 'RESPONSIBILITY_ID');
8379:
8380: EXCEPTION
8439:
8440: ----------------------------------------------------------------
8441: l_debug_info := 'Retrieving Find_Approver_Count Item Attribute';
8442: ----------------------------------------------------------------
8443: l_find_approver_count := WF_ENGINE.GetItemAttrNumber(p_item_type,
8444: p_item_key,
8445: 'FIND_APPROVER_COUNT');
8446:
8447: IF (l_find_approver_count = 1) THEN
8488:
8489: ----------------------------------------------------------------
8490: l_debug_info := 'Retrieving FORWARD_FROM_ID Item Attribute';
8491: ----------------------------------------------------------------
8492: l_forward_from_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8493: p_item_key,
8494: 'FORWARD_FROM_ID');
8495:
8496: IF (l_forward_from_id IS NOT NULL) THEN
8538:
8539: -------------------------------------------------------------
8540: l_debug_info := 'Retrieving Emp_Cost_Center Item Attribute';
8541: -------------------------------------------------------------
8542: l_emp_cost_center := WF_ENGINE.GetItemAttrText(p_item_type,
8543: p_item_key,
8544: 'EMP_COST_CENTER');
8545:
8546: ---------------------------------------------------------
8545:
8546: ---------------------------------------------------------
8547: l_debug_info := 'Retrieving Preparer_Id Item Attribute';
8548: ---------------------------------------------------------
8549: l_preparer_id := WF_ENGINE.GetItemAttrText(p_item_type,
8550: p_item_key,
8551: 'PREPARER_ID');
8552:
8553:
8564:
8565: -------------------------------------------------------------
8566: l_debug_info := 'Set Emp_Cost_Center Item Attribute';
8567: -------------------------------------------------------------
8568: WF_ENGINE.SetItemAttrText(p_item_type,
8569: p_item_key,
8570: 'EMP_COST_CENTER',
8571: l_emp_cost_center);
8572:
8605:
8606: ----------------------------------------------------------------
8607: l_debug_info := 'Retrieving EXPENSE_REPORT_ID Item Attribute';
8608: ----------------------------------------------------------------
8609: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8610: p_item_key,
8611: 'EXPENSE_REPORT_ID');
8612:
8613: ----------------------------------------------------------------
8612:
8613: ----------------------------------------------------------------
8614: l_debug_info := 'Set Rejection Reason to No reason provided if it is null';
8615: ----------------------------------------------------------------
8616: l_rejection_reason := WF_ENGINE.GetItemAttrText(p_item_type,
8617: p_item_key,
8618: 'WF_NOTE');
8619:
8620: IF (l_rejection_reason IS NULL OR
8619:
8620: IF (l_rejection_reason IS NULL OR
8621: replace(l_rejection_reason, ' ', '') = '') THEN
8622: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_REASON_PROVIDED');
8623: WF_ENGINE.SetItemAttrText(p_item_type,
8624: p_item_key,
8625: 'WF_NOTE',
8626: FND_MESSAGE.Get);
8627:
8677:
8678: ---------------------------------------------------------------
8679: l_debug_info := 'Retrieve Employee Id Item Attribute';
8680: ---------------------------------------------------------------
8681: l_employee_id := WF_ENGINE.GetItemAttrText(p_item_type,
8682: p_item_key,
8683: 'EMPLOYEE_ID');
8684:
8685: ---------------------------------------------------------------
8684:
8685: ---------------------------------------------------------------
8686: l_debug_info := 'Retrieve Preparer Id Item Attribute';
8687: ---------------------------------------------------------------
8688: l_preparer_id := WF_ENGINE.GetItemAttrText(p_item_type,
8689: p_item_key,
8690: 'PREPARER_ID');
8691:
8692: --------------------------------------------------------------------
8729:
8730: -------------------------------------------------------------------
8731: l_debug_info := 'Retrieve Find_Approver_Method Activity Attribute';
8732: -------------------------------------------------------------------
8733: l_emp_method := WF_ENGINE.GetActivityAttrText(p_item_type,
8734: p_item_key,
8735: p_actid,
8736: 'EMPLOYEE_APPROVAL_REQUIRED_MET');
8737:
8778:
8779: ----------------------------------------------------------------
8780: l_debug_info := 'Retrieving Start From Process Item Attribute';
8781: ----------------------------------------------------------------
8782: l_start_from_process := WF_ENGINE.GetItemAttrText(p_item_type,
8783: p_item_key,
8784: 'START_FROM_PROCESS');
8785: p_result := 'COMPLETE:' || l_start_from_process;
8786: IF l_start_from_process IS NULL THEN
8831:
8832: ------------------------------------------------------
8833: l_debug_info := 'Get WF Employee_ID Item Attribute';
8834: ------------------------------------------------------
8835: V_employee_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8836: p_item_key,
8837: 'EMPLOYEE_ID');
8838:
8839: V_employee_name := WF_ENGINE.GetItemAttrText(p_item_type,
8835: V_employee_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8836: p_item_key,
8837: 'EMPLOYEE_ID');
8838:
8839: V_employee_name := WF_ENGINE.GetItemAttrText(p_item_type,
8840: p_item_key,
8841: 'EMPLOYEE_NAME');
8842:
8843:
8840: p_item_key,
8841: 'EMPLOYEE_NAME');
8842:
8843:
8844: V_employee_display_name := WF_ENGINE.GetItemAttrText(p_item_type,
8845: p_item_key,
8846: 'EMPLOYEE_DISPLAY_NAME');
8847:
8848:
8848:
8849: --------------------------------------------------------------
8850: l_debug_info := 'Set WF Preparer_Display_Name Item Attribute';
8851: --------------------------------------------------------------
8852: WF_ENGINE.SetItemAttrNumber(p_item_type,
8853: p_item_key,
8854: 'APPROVER_ID',
8855: V_employee_id);
8856:
8853: p_item_key,
8854: 'APPROVER_ID',
8855: V_employee_id);
8856:
8857: WF_ENGINE.SetItemAttrText(p_item_type,
8858: p_item_key,
8859: 'APPROVER_NAME',
8860: V_employee_name);
8861:
8858: p_item_key,
8859: 'APPROVER_NAME',
8860: V_employee_name);
8861:
8862: WF_ENGINE.SetItemAttrText(p_item_type,
8863: p_item_key,
8864: 'APPROVER_DISPLAY_NAME',
8865: V_employee_display_name);
8866:
8896:
8897: ----------------------------------------------------------------
8898: l_debug_info := 'Retrieve New_Expense_Report_ID Item Attribute';
8899: ----------------------------------------------------------------
8900: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8901: p_item_key,
8902: 'NEW_EXPENSE_REPORT_ID');
8903:
8904: DeleteExpReportFromAPTables(l_report_header_id);
8934:
8935: ---------------------------------------------------------------------------
8936: l_debug_info := 'Retrieve Include_Missing_Receipts Activity Attribute';
8937: ---------------------------------------------------------------------------
8938: l_require_proof_of_payment := WF_ENGINE.GetActivityAttrText(p_item_type,
8939: p_item_key,
8940: p_actid,
8941: 'ALWAYS_REQ_PROOF_OF_PAYMENT');
8942:
8944:
8945: ----------------------------------------------------------------
8946: l_debug_info := 'Retrieving EXPENSE_REPORT_ID Item Attribute';
8947: ----------------------------------------------------------------
8948: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
8949: p_item_key,
8950: 'EXPENSE_REPORT_ID');
8951:
8952:
9080: l_attribute := substrb(document_id, l_colon2 + 1);
9081:
9082: if (display_type = 'text/plain') then
9083: if (l_attribute = 'PURPOSE') then
9084: document := WF_ENGINE.GetItemAttrText(l_itemtype,
9085: l_itemkey,
9086: 'PURPOSE');
9087: end if;
9088: else -- html
9086: 'PURPOSE');
9087: end if;
9088: else -- html
9089: if (l_attribute = 'PURPOSE') then
9090: document := '' || WF_ENGINE.GetItemAttrText(l_itemtype, l_itemkey, 'PURPOSE') || '';
9091: end if;
9092: end if;
9093: document_type := display_type;
9094:
9361:
9362: ------------------------------------------------------------
9363: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
9364: ------------------------------------------------------------
9365: l_report_header_id := WF_ENGINE.GetItemAttrNumber(l_itemtype,
9366: l_itemkey,
9367: 'EXPENSE_REPORT_ID');
9368:
9369: ----------------------------------------------------
9368:
9369: ----------------------------------------------------
9370: l_debug_info := 'Retrieve Currency Item Attribute';
9371: ----------------------------------------------------
9372: l_currency := WF_ENGINE.GetItemAttrText(l_itemtype,
9373: l_itemkey,
9374: 'CURRENCY');
9375:
9376: --------------------------------------------
9377: l_debug_info := 'Get Org Id';
9378: --------------------------------------------
9379: begin
9380:
9381: l_n_org_id := WF_ENGINE.GetItemAttrNumber(l_itemtype,
9382: l_itemkey,
9383: 'ORG_ID');
9384: exception
9385: when others then
9384: exception
9385: when others then
9386: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
9387: -- ORG_ID item attribute doesn't exist, need to add it
9388: WF_ENGINE.AddItemAttr(l_itemtype, l_itemkey, 'ORG_ID');
9389: IF (AP_WEB_DB_EXPRPT_PKG.GetOrgIdByReportHeaderId(
9390: to_number(l_itemkey),
9391: l_n_org_id) <> TRUE ) THEN
9392: l_n_org_id := NULL;
9391: l_n_org_id) <> TRUE ) THEN
9392: l_n_org_id := NULL;
9393: END IF;
9394:
9395: WF_ENGINE.SetItemAttrNumber(l_itemtype,
9396: l_itemkey,
9397: 'ORG_ID',
9398: l_n_org_ID);
9399: else
9620: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start CallbackFunction');
9621:
9622: begin
9623:
9624: l_n_org_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
9625: p_s_item_key,
9626: 'ORG_ID');
9627: exception
9628: when others then
9627: exception
9628: when others then
9629: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
9630: -- ORG_ID item attribute doesn't exist, need to add it
9631: wf_engine.AddItemAttr(p_s_item_type, p_s_item_key, 'ORG_ID');
9632: -- get the org_id from header for old reports
9633: IF (AP_WEB_DB_EXPRPT_PKG.GetOrgIdByReportHeaderId(
9634: to_number(p_s_item_key),
9635: l_n_org_id) <> TRUE ) THEN
9634: to_number(p_s_item_key),
9635: l_n_org_id) <> TRUE ) THEN
9636: l_n_org_id := NULL;
9637: END IF;
9638: WF_ENGINE.SetItemAttrNumber(p_s_item_type,
9639: p_s_item_key,
9640: 'ORG_ID',
9641: l_n_org_id);
9642: else
9645:
9646: end;
9647:
9648: begin
9649: l_n_user_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
9650: p_s_item_key,
9651: 'USER_ID');
9652:
9653: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
9649: l_n_user_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
9650: p_s_item_key,
9651: 'USER_ID');
9652:
9653: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
9654: p_s_item_key,
9655: 'RESPONSIBILITY_ID');
9656:
9657: l_n_resp_appl_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
9653: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
9654: p_s_item_key,
9655: 'RESPONSIBILITY_ID');
9656:
9657: l_n_resp_appl_id := WF_ENGINE.GetItemAttrNumber(p_s_item_type,
9658: p_s_item_key,
9659: 'APPLICATION_ID');
9660: exception
9661: when others then
9811:
9812: ------------------------------------------------------------
9813: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
9814: ------------------------------------------------------------
9815: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
9816: p_item_key,
9817: 'EXPENSE_REPORT_ID');
9818:
9819: -----------------------------------------
9820: l_debug_info := 'Get the User Id';
9821: -----------------------------------------
9822: begin
9823:
9824: WF_DIRECTORY.GetRoleInfo2(wf_engine.context_user, l_role_info_tbl);
9825: AP_WEB_OA_MAINFLOW_PKG.GetUserId(l_role_info_tbl(1).orig_system_id, l_entered_by);
9826:
9827: exception
9828: when no_data_found then
9834: ------------------------------------------------------------
9835: AP_WEB_NOTES_PKG.CreateERPrepToAudNote (
9836: p_report_header_id => l_report_header_id,
9837: p_note => wf_core.translate(p_funmode)||'
9838: '||wf_engine.context_user_comment,
9839: p_lang => l_new_language_code,
9840: p_entered_by => l_entered_by
9841: );
9842:
9956:
9957: -----------------------------------------
9958: l_debug_info := 'Get the Notification ID';
9959: -----------------------------------------
9960: l_notificationID := wf_engine.context_nid;
9961:
9962: ------------------------------------------------------------
9963: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
9964: ------------------------------------------------------------
9961:
9962: ------------------------------------------------------------
9963: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
9964: ------------------------------------------------------------
9965: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
9966: p_item_key,
9967: 'EXPENSE_REPORT_ID');
9968:
9969: -----------------------------------------
9970: l_debug_info := 'Get the User Id';
9971: -----------------------------------------
9972: begin
9973:
9974: WF_DIRECTORY.GetRoleInfo2(wf_engine.context_user, l_role_info_tbl);
9975: AP_WEB_OA_MAINFLOW_PKG.GetUserId(l_role_info_tbl(1).orig_system_id, l_entered_by);
9976:
9977: exception
9978: when no_data_found then
9984: ------------------------------------------------------------
9985: AP_WEB_NOTES_PKG.CreateERPrepToAudNote (
9986: p_report_header_id => l_report_header_id,
9987: p_note => wf_core.translate(p_funmode)||'
9988: '||wf_engine.context_user_comment,
9989: p_lang => l_new_language_code,
9990: p_entered_by => l_entered_by
9991: );
9992:
9998: elsif (p_funmode in ('TRANSFER','FORWARD')) then
9999: -----------------------------------------
10000: l_debug_info := 'Get the Notification ID';
10001: -----------------------------------------
10002: l_notificationID := wf_engine.context_nid;
10003:
10004: -----------------------------------------
10005: l_debug_info := 'Get information on the transfer to';
10006: -----------------------------------------
10003:
10004: -----------------------------------------
10005: l_debug_info := 'Get information on the transfer to';
10006: -----------------------------------------
10007: -- wf_engine.context_text = new responder
10008: l_Transferee := wf_engine.context_text;
10009:
10010: -----------------------------------------
10011: l_debug_info := 'check for transferee received through email/web';
10004: -----------------------------------------
10005: l_debug_info := 'Get information on the transfer to';
10006: -----------------------------------------
10007: -- wf_engine.context_text = new responder
10008: l_Transferee := wf_engine.context_text;
10009:
10010: -----------------------------------------
10011: l_debug_info := 'check for transferee received through email/web';
10012: -----------------------------------------
10022: -----------------------------------------
10023: OPEN c_person_id;
10024: FETCH c_person_id into l_TransferToID;
10025: IF c_person_id%NOTFOUND THEN
10026: p_result := wf_engine.eng_completed||':'||wf_engine.eng_null;
10027: Wf_Core.Raise(wf_core.translate('NO_ROLE_FOUND'));
10028: RETURN;
10029: ELSE
10030: IF l_TransferToID IS NULL THEN
10027: Wf_Core.Raise(wf_core.translate('NO_ROLE_FOUND'));
10028: RETURN;
10029: ELSE
10030: IF l_TransferToID IS NULL THEN
10031: p_result := wf_engine.eng_completed||':'||wf_engine.eng_null;
10032: Wf_Core.Raise(wf_core.translate('PERSON_ID_NULL'));
10033: RETURN;
10034: END IF;
10035: END IF;
10038: IF (l_TransferToID IS NOT NULL) THEN
10039: ----------------------------------
10040: l_debug_info := 'Get AME_ENABLED';
10041: ----------------------------------
10042: l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
10043: p_item_key,
10044: 'AME_ENABLED');
10045:
10046: IF (l_AMEEnabled = 'Y') THEN
10046: IF (l_AMEEnabled = 'Y') THEN
10047:
10048: C_WF_VERSION := GetFlowVersion(p_item_type, p_item_key);
10049: IF (C_WF_Version >= AP_WEB_EXPENSE_WF.C_R120_Version) THEN
10050: l_itemkey := WF_ENGINE.GetItemAttrText(p_item_type,
10051: p_item_key,
10052: 'AME_MASTER_ITEM_KEY');
10053: ELSE
10054: l_itemkey := p_item_key;
10060:
10061: ----------------------------------------------------------------
10062: l_debug_info := 'Retrieving APPROVER_ID Item Attribute';
10063: ----------------------------------------------------------------
10064: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
10065: p_item_key,
10066: 'APPROVER_ID');
10067:
10068: ------------------------------------------------------
10067:
10068: ------------------------------------------------------
10069: l_debug_info := 'Retrieve Approver_ID Item Attribute';
10070: -------------------------------------------------------
10071: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
10072: p_item_key,
10073: 'APPROVER_NAME');
10074: ------------------------------------------------------
10075: -- Bug 7272553
10075: -- Bug 7272553
10076: l_debug_info := 'Retrieve ApproverAuthority Item Attribute';
10077: -------------------------------------------------------
10078: begin
10079: l_ApproverAuthority := WF_ENGINE.GetItemAttrText(p_item_type,
10080: p_item_key,
10081: 'AME_APPROVER_AUTHORITY');
10082: exception
10083: when others then
10161:
10162: -----------------------------------------
10163: l_debug_info := 'set the transferring Approver info to the Transferor';
10164: -----------------------------------------
10165: WF_ENGINE.SetItemAttrText(p_item_type,
10166: p_item_key,
10167: 'TRANSFER_APPROVER_DISPLAY_NAME',
10168: WF_ENGINE.GetItemAttrText(p_item_type,
10169: p_item_key,
10164: -----------------------------------------
10165: WF_ENGINE.SetItemAttrText(p_item_type,
10166: p_item_key,
10167: 'TRANSFER_APPROVER_DISPLAY_NAME',
10168: WF_ENGINE.GetItemAttrText(p_item_type,
10169: p_item_key,
10170: 'APPROVER_DISPLAY_NAME'));
10171:
10172: -----------------------------------------------------------
10188:
10189: -------------------------------------------------------
10190: l_debug_info := 'Retrieve Preparer_ID Item Attribute';
10191: -------------------------------------------------------
10192: l_preparer_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
10193: p_item_key,
10194: 'PREPARER_ID');
10195:
10196: --Bug 2742114:raise exception when preparer id and trasferee is same.
10234: l_debug_info := 'set the notification attributes';
10235: -----------------------------------------
10236: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10237: 'DOCUMENT_NUMBER',
10238: WF_ENGINE.GetItemAttrText(p_item_type,
10239: p_item_key,
10240: 'DOCUMENT_NUMBER'));
10241:
10242: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10240: 'DOCUMENT_NUMBER'));
10241:
10242: WF_NOTIFICATION.SetAttrText(l_TransferNotificationID,
10243: '#HDR_DISPLAY_TOTAL',
10244: WF_ENGINE.GetItemAttrText(p_item_type,
10245: p_item_key,
10246: 'DISPLAY_TOTAL'));
10247: wf_notification.denormalize_notification(l_TransferNotificationID);
10248: end if;
10283: if (p_funmode = 'RESPOND') then
10284: -----------------------------------------
10285: l_debug_info := 'Get the Notification ID';
10286: -----------------------------------------
10287: l_notificationID := wf_engine.context_nid;
10288:
10289: -----------------------------------------
10290: l_debug_info := 'Get WF Admin Note';
10291: -----------------------------------------
10339:
10340: ------------------------------------------------------------
10341: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
10342: ------------------------------------------------------------
10343: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
10344: p_item_key,
10345: 'EXPENSE_REPORT_ID');
10346:
10347: l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
10343: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
10344: p_item_key,
10345: 'EXPENSE_REPORT_ID');
10346:
10347: l_AMEEnabled := WF_ENGINE.GetItemAttrText(p_item_type,
10348: p_item_key,
10349: 'AME_ENABLED');
10350: IF (l_AMEEnabled = 'Y') THEN
10351:
10383: -- Bug 4394168
10384: AP_WEB_AUDIT_UTILS.clear_audit_reason_codes(l_report_header_id);
10385:
10386:
10387: l_payment_due := WF_ENGINE.GetItemAttrText(p_item_type,p_item_key,'PAYMENT_DUE_FROM');
10388:
10389: IF (l_payment_due = C_CompanyPay) THEN
10390: IF (NOT AP_WEB_DB_EXPLINE_PKG.DeletePersonalLines(l_report_header_id)) THEN
10391: NULL;
10406: --5060928: reset the Apply Advnaces only if OIE:Enable Advances = "Payables"
10407:
10408: begin
10409:
10410: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
10411: p_item_key,
10412: 'RESPONSIBILITY_ID');
10413: exception
10414: when others then
10430: l_debug_info := 'Set which process to start from';
10431: ------------------------------------------------------------
10432: -- Indicate which process to start from
10433: -- (skip ServerValidate, Manager Approval)
10434: WF_ENGINE.SetItemAttrText(p_item_type,
10435: p_item_key,
10436: 'START_FROM_PROCESS',
10437: C_START_FROM_SERVER_VALIDATION);
10438:
10492: IF (p_funmode = 'RUN') THEN
10493: ----------------------------------------------------------------
10494: l_debug_info := 'Retrieving Find_Approver_Count Item Attribute';
10495: ----------------------------------------------------------------
10496: l_find_approver_count := WF_ENGINE.GetItemAttrNumber(p_item_type,
10497: p_item_key,
10498: 'FIND_APPROVER_COUNT');
10499:
10500: IF (l_find_approver_count = 1) THEN
10543: ----------------------------------------------------------------
10544: SetFromRole(p_item_type,
10545: p_item_key,
10546: p_actid,
10547: WF_ENGINE.GetItemAttrText(p_item_type,
10548: p_item_key,
10549: 'PREPARER_NAME'),
10550: 'SetFromRolePreparer'
10551: );
10549: 'PREPARER_NAME'),
10550: 'SetFromRolePreparer'
10551: );
10552: /*
10553: WF_ENGINE.SetItemAttrText(p_item_type,
10554: p_item_key,
10555: '#FROM_ROLE',
10556: WF_ENGINE.GetItemAttrText(p_item_type,
10557: p_item_key,
10552: /*
10553: WF_ENGINE.SetItemAttrText(p_item_type,
10554: p_item_key,
10555: '#FROM_ROLE',
10556: WF_ENGINE.GetItemAttrText(p_item_type,
10557: p_item_key,
10558: 'PREPARER_NAME'));
10559: */
10560: p_result := 'COMPLETE:Y';
10591: ----------------------------------------------------------------
10592: SetFromRole(p_item_type,
10593: p_item_key,
10594: p_actid,
10595: WF_ENGINE.GetItemAttrText(p_item_type,
10596: p_item_key,
10597: 'EMPLOYEE_NAME'),
10598: 'SetFromRoleEmployee'
10599: );
10597: 'EMPLOYEE_NAME'),
10598: 'SetFromRoleEmployee'
10599: );
10600: /*
10601: WF_ENGINE.SetItemAttrText(p_item_type,
10602: p_item_key,
10603: '#FROM_ROLE',
10604: WF_ENGINE.GetItemAttrText(p_item_type,
10605: p_item_key,
10600: /*
10601: WF_ENGINE.SetItemAttrText(p_item_type,
10602: p_item_key,
10603: '#FROM_ROLE',
10604: WF_ENGINE.GetItemAttrText(p_item_type,
10605: p_item_key,
10606: 'EMPLOYEE_NAME'));
10607: */
10608: p_result := 'COMPLETE:Y';
10639: ----------------------------------------------------------------
10640: SetFromRole(p_item_type,
10641: p_item_key,
10642: p_actid,
10643: WF_ENGINE.GetItemAttrText(p_item_type,
10644: p_item_key,
10645: 'FORWARD_FROM_NAME'),
10646: 'SetFromRoleForwardFrom'
10647: );
10645: 'FORWARD_FROM_NAME'),
10646: 'SetFromRoleForwardFrom'
10647: );
10648: /*
10649: WF_ENGINE.SetItemAttrText(p_item_type,
10650: p_item_key,
10651: '#FROM_ROLE',
10652: WF_ENGINE.GetItemAttrText(p_item_type,
10653: p_item_key,
10648: /*
10649: WF_ENGINE.SetItemAttrText(p_item_type,
10650: p_item_key,
10651: '#FROM_ROLE',
10652: WF_ENGINE.GetItemAttrText(p_item_type,
10653: p_item_key,
10654: 'FORWARD_FROM_NAME'));
10655: */
10656: p_result := 'COMPLETE:Y';
10687: ----------------------------------------------------------------
10688: SetFromRole(p_item_type,
10689: p_item_key,
10690: p_actid,
10691: WF_ENGINE.GetItemAttrText(p_item_type,
10692: p_item_key,
10693: 'APPROVER_NAME'),
10694: 'SetFromRoleApprover'
10695: );
10693: 'APPROVER_NAME'),
10694: 'SetFromRoleApprover'
10695: );
10696: /*
10697: WF_ENGINE.SetItemAttrText(p_item_type,
10698: p_item_key,
10699: '#FROM_ROLE',
10700: WF_ENGINE.GetItemAttrText(p_item_type,
10701: p_item_key,
10696: /*
10697: WF_ENGINE.SetItemAttrText(p_item_type,
10698: p_item_key,
10699: '#FROM_ROLE',
10700: WF_ENGINE.GetItemAttrText(p_item_type,
10701: p_item_key,
10702: 'APPROVER_NAME'));
10703: */
10704: p_result := 'COMPLETE:Y';
10742:
10743: -------------------------------------------------------------------
10744: l_debug_info := 'Retrieve Expense Status Code Activity Attribute';
10745: -------------------------------------------------------------------
10746: l_expense_status_code := WF_ENGINE.GetActivityAttrText(p_item_type,
10747: p_item_key,
10748: p_actid,
10749: 'EXPENSE_STATUS_CODE');
10750:
10750:
10751: -------------------------------------------------------------------
10752: l_debug_info := 'Retrieve Current Approver ID Activity Attribute';
10753: -------------------------------------------------------------------
10754: l_current_approver_id := WF_ENGINE.GetActivityAttrNumber(p_item_type,
10755: p_item_key,
10756: p_actid,
10757: 'CURRENT_APPROVER_ID');
10758:
10758:
10759: ------------------------------------------------------------
10760: l_debug_info := 'Retrieve ORG_ID Item Attribute';
10761: ------------------------------------------------------------
10762: l_org_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
10763: p_item_key,
10764: 'ORG_ID');
10765:
10766: ------------------------------------------------------------
10765:
10766: ------------------------------------------------------------
10767: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
10768: ------------------------------------------------------------
10769: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
10770: p_item_key,
10771: 'EXPENSE_REPORT_ID');
10772:
10773: ----------------------------------------------------------
10810: END IF;
10811:
10812: EXCEPTION
10813: WHEN fixable_exception THEN
10814: WF_ENGINE.SetItemAttrText(p_item_type,
10815: p_item_key,
10816: 'ERROR_MESSAGE',
10817: l_error_message);
10818:
10838:
10839: ----------------------------------------------------------------
10840: l_debug_info := 'Retrieving Find_Approver_Count Item Attribute';
10841: ----------------------------------------------------------------
10842: l_find_approver_count := WF_ENGINE.GetItemAttrNumber(p_item_type,
10843: p_item_key,
10844: 'FIND_APPROVER_COUNT');
10845:
10846: IF (l_find_approver_count = 0) THEN
10946: C_WF_Version := AP_WEB_EXPENSE_WF.GetFlowVersion(l_itemtype, l_itemkey);
10947:
10948: if l_wf_exist then
10949: l_debug_info := 'Get Attribute values';
10950: l_preparer_name := WF_ENGINE.GetItemAttrText(
10951: itemtype => l_itemtype,
10952: itemkey => l_itemkey,
10953: aname => 'PREPARER_DISPLAY_NAME');
10954: l_employee_name := WF_ENGINE.GetItemAttrText(
10950: l_preparer_name := WF_ENGINE.GetItemAttrText(
10951: itemtype => l_itemtype,
10952: itemkey => l_itemkey,
10953: aname => 'PREPARER_DISPLAY_NAME');
10954: l_employee_name := WF_ENGINE.GetItemAttrText(
10955: itemtype => l_itemtype,
10956: itemkey => l_itemkey,
10957: aname => 'EMPLOYEE_DISPLAY_NAME');
10958: l_document_number := WF_ENGINE.GetItemAttrText(
10954: l_employee_name := WF_ENGINE.GetItemAttrText(
10955: itemtype => l_itemtype,
10956: itemkey => l_itemkey,
10957: aname => 'EMPLOYEE_DISPLAY_NAME');
10958: l_document_number := WF_ENGINE.GetItemAttrText(
10959: itemtype => l_itemtype,
10960: itemkey => l_itemkey,
10961: aname => 'DOCUMENT_NUMBER');
10962: l_payable_admin := WF_ENGINE.GetItemAttrText(
10958: l_document_number := WF_ENGINE.GetItemAttrText(
10959: itemtype => l_itemtype,
10960: itemkey => l_itemkey,
10961: aname => 'DOCUMENT_NUMBER');
10962: l_payable_admin := WF_ENGINE.GetItemAttrText(
10963: itemtype => l_itemtype,
10964: itemkey => l_itemkey,
10965: aname => 'PAYABLES');
10966: l_total := WF_ENGINE.GetItemAttrText(
10962: l_payable_admin := WF_ENGINE.GetItemAttrText(
10963: itemtype => l_itemtype,
10964: itemkey => l_itemkey,
10965: aname => 'PAYABLES');
10966: l_total := WF_ENGINE.GetItemAttrText(
10967: itemtype => l_itemtype,
10968: itemkey => l_itemkey,
10969: aname => 'DISPLAY_TOTAL');
10970: l_currency := WF_ENGINE.GetItemAttrText(
10966: l_total := WF_ENGINE.GetItemAttrText(
10967: itemtype => l_itemtype,
10968: itemkey => l_itemkey,
10969: aname => 'DISPLAY_TOTAL');
10970: l_currency := WF_ENGINE.GetItemAttrText(
10971: itemtype => l_itemtype,
10972: itemkey => l_itemkey,
10973: aname => 'CURRENCY');
10974: l_doc_cctr := WF_ENGINE.GetItemAttrText(
10970: l_currency := WF_ENGINE.GetItemAttrText(
10971: itemtype => l_itemtype,
10972: itemkey => l_itemkey,
10973: aname => 'CURRENCY');
10974: l_doc_cctr := WF_ENGINE.GetItemAttrText(
10975: itemtype => l_itemtype,
10976: itemkey => l_itemkey,
10977: aname => 'DOC_COST_CENTER');
10978: l_purpose := WF_ENGINE.GetItemAttrText(
10974: l_doc_cctr := WF_ENGINE.GetItemAttrText(
10975: itemtype => l_itemtype,
10976: itemkey => l_itemkey,
10977: aname => 'DOC_COST_CENTER');
10978: l_purpose := WF_ENGINE.GetItemAttrText(
10979: itemtype => l_itemtype,
10980: itemkey => l_itemkey,
10981: aname => 'PURPOSE');
10982:
10984:
10985: l_debug_info := 'Update AME as if rejected';
10986: -- Bug 3560082 - Comment the call to SetRejectStatusInAME and add the call
10987: -- AME_API.clearAllApprovals
10988: l_AMEEnabled := WF_ENGINE.GetItemAttrText(l_itemtype,
10989: l_itemkey,
10990: 'AME_ENABLED');
10991: if (l_AMEEnabled = 'Y') then
10992: --Bug 4425821: Uptake AME parallel approvers
11017: --5060928: reset the Apply Advnaces only if OIE:Enable Advances = "Payables"
11018:
11019: begin
11020:
11021: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(l_itemtype,
11022: l_itemkey,
11023: 'RESPONSIBILITY_ID');
11024:
11025: exception
11075: ResetCCardTxns(p_rep_header_id, l_itemtype, l_itemkey);
11076:
11077: if l_wf_active then
11078: l_debug_info := 'Workflow Abort Process';
11079: wf_engine.AbortProcess (itemtype => l_itemtype,
11080: itemkey => l_itemkey,
11081: cascade => TRUE);
11082: end if;
11083:
11306:
11307: ------------------------------------------------------------
11308: l_debug_info := 'Check Projects enabled';
11309: ------------------------------------------------------------
11310: l_employee_project_enabled := WF_ENGINE.GetItemAttrText(l_itemtype,
11311: l_itemkey,
11312: 'EMPLOYEE_PROJECT_ENABLED');
11313:
11314: ------------------------------------------------------------
11314: ------------------------------------------------------------
11315: l_debug_info := 'Check Grants enabled';
11316: ------------------------------------------------------------
11317: begin
11318: l_grants_enabled := WF_ENGINE.GetItemAttrText(l_itemtype,
11319: l_itemkey,
11320: 'GRANTS_ENABLED');
11321:
11322: ------------------------------------------------------------
11321:
11322: ------------------------------------------------------------
11323: l_debug_info := 'Get responsibility id';
11324: ------------------------------------------------------------
11325: l_n_resp_id := WF_ENGINE.GetItemAttrNumber(l_itemtype,
11326: l_itemkey,
11327: 'RESPONSIBILITY_ID');
11328:
11329: exception
11362:
11363: ------------------------------------------------------------
11364: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
11365: ------------------------------------------------------------
11366: l_report_header_id := WF_ENGINE.GetItemAttrNumber(l_itemtype,
11367: l_itemkey,
11368: 'EXPENSE_REPORT_ID');
11369:
11370: ------------------------------------------------------------
11369:
11370: ------------------------------------------------------------
11371: l_debug_info := 'Retrieve Currency Item Attribute';
11372: ------------------------------------------------------------
11373: l_currency := WF_ENGINE.GetItemAttrText(l_itemtype,
11374: l_itemkey,
11375: 'CURRENCY');
11376:
11377: ------------------------------------------------------------
11377: ------------------------------------------------------------
11378: l_debug_info := 'Retrieve MILEAGE NOTE Item Attribute';
11379: ------------------------------------------------------------
11380: begin
11381: l_mileage_note := WF_ENGINE.GetItemAttrText(l_itemtype,
11382: l_itemkey,
11383: 'MILEAGE_NOTE');
11384: exception
11385: when others then
11394: l_debug_info := 'Get Org Id';
11395: --------------------------------------------
11396: begin
11397:
11398: l_n_org_id := WF_ENGINE.GetItemAttrNumber(l_itemtype,
11399: l_itemkey,
11400: 'ORG_ID');
11401: exception
11402: when others then
11401: exception
11402: when others then
11403: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
11404: -- ORG_ID item attribute doesn't exist, need to add it
11405: WF_ENGINE.AddItemAttr(l_itemtype, l_itemkey, 'ORG_ID');
11406: IF (AP_WEB_DB_EXPRPT_PKG.GetOrgIdByReportHeaderId(
11407: to_number(l_itemkey),
11408: l_n_org_id) <> TRUE ) THEN
11409: l_n_org_id := NULL;
11408: l_n_org_id) <> TRUE ) THEN
11409: l_n_org_id := NULL;
11410: END IF;
11411:
11412: WF_ENGINE.SetItemAttrNumber(l_itemtype,
11413: l_itemkey,
11414: 'ORG_ID',
11415: l_n_org_ID);
11416: else
11949: --------------------------------------------
11950: l_debug_info := 'Check to see if Company Pay scenario';
11951: --------------------------------------------
11952: begin
11953: l_payment_due_from := WF_ENGINE.GetItemAttrText(l_itemtype,l_itemkey,'PAYMENT_DUE_FROM');
11954: exception
11955: when others then
11956: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
11957: null;
12221:
12222: ------------------------------------------------------------
12223: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
12224: ------------------------------------------------------------
12225: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
12226: p_item_key,
12227: 'EXPENSE_REPORT_ID');
12228:
12229:
12257: END IF;
12258:
12259: l_mess := FND_MESSAGE.GET;
12260:
12261: WF_ENGINE.SetItemAttrText(p_item_type,
12262: p_item_key,
12263: 'MILEAGE_NOTE',
12264: l_mess);
12265:
13039:
13040: ------------------------------------------------------------
13041: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
13042: ------------------------------------------------------------
13043: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
13044: p_item_key,
13045: 'EXPENSE_REPORT_ID');
13046: -------------------------------------------------------
13047: l_debug_info := 'Retrieve Employee_ID Item Attribute';
13045: 'EXPENSE_REPORT_ID');
13046: -------------------------------------------------------
13047: l_debug_info := 'Retrieve Employee_ID Item Attribute';
13048: -------------------------------------------------------
13049: l_employee_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
13050: p_item_key,
13051: 'EMPLOYEE_ID');
13052:
13053:
13427:
13428: l_total_dsp := to_char(l_total,
13429: FND_CURRENCY.Get_Format_Mask(l_reimb_curr,22));
13430:
13431: WF_ENGINE.SetItemAttrText('APEXP',
13432: to_char(l_report_header_id),
13433: 'DISPLAY_TOTAL',
13434: l_total_dsp || ' ' || l_reimb_curr);
13435:
13461: IF (p_funmode = 'RUN') THEN
13462: ------------------------------------------------------------
13463: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
13464: ------------------------------------------------------------
13465: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
13466: p_item_key,
13467: 'EXPENSE_REPORT_ID');
13468: ------------------------------------------------------
13469: l_debug_info := 'Select from ap_pol_violations table';
13476: and distribution_line_number > 0;
13477:
13478: IF (l_violations_count > 0) THEN
13479: p_result := 'COMPLETE:Y';
13480: WF_ENGINE.SetItemAttrText(p_item_type,
13481: p_item_key,
13482: 'RULES_VIOLATED',
13483: 'Y');
13484: ELSE
13482: 'RULES_VIOLATED',
13483: 'Y');
13484: ELSE
13485: p_result := 'COMPLETE:N';
13486: WF_ENGINE.SetItemAttrText(p_item_type,
13487: p_item_key,
13488: 'RULES_VIOLATED',
13489: 'Y');
13490: END IF;
13533:
13534: ------------------------------------------------------
13535: l_debug_info := 'Retrieve Approve_ID Item Attribute';
13536: ------------------------------------------------------
13537: l_approver_id := WF_ENGINE.GetItemAttrNumber(l_itemtype,
13538: l_itemkey,
13539: 'APPROVER_ID');
13540:
13541: ------------------------------------------------------
13540:
13541: ------------------------------------------------------
13542: l_debug_info := 'Retrieve TOTAL Item Attribute';
13543: ------------------------------------------------------
13544: l_total := WF_ENGINE.GetItemAttrNumber(l_itemtype,
13545: l_itemkey,
13546: 'TOTAL');
13547:
13548: ------------------------------------------------------
13547:
13548: ------------------------------------------------------
13549: l_debug_info := 'Retrieve CURRENCY Item Attribute';
13550: ------------------------------------------------------
13551: l_currency := WF_ENGINE.GetItemAttrText(l_itemtype,
13552: l_itemkey,
13553: 'CURRENCY');
13554:
13555: l_msg := ap_web_amount_util.get_meaningful_amount_msg_emp(
13583:
13584: ------------------------------------------------------
13585: l_debug_info := 'Retrieve RESPONSIBILITY_ID Item Attribute';
13586: ------------------------------------------------------
13587: p_resp_id := WF_ENGINE.GetItemAttrNumber('APEXP',
13588: p_item_key,
13589: 'RESPONSIBILITY_ID');
13590:
13591: ------------------------------------------------------
13590:
13591: ------------------------------------------------------
13592: l_debug_info := 'Retrieve APPLICATION_ID Item Attribute';
13593: ------------------------------------------------------
13594: p_appl_id := WF_ENGINE.GetItemAttrNumber('APEXP',
13595: p_item_key,
13596: 'APPLICATION_ID');
13597:
13598: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'end GetRespAppInfo');
13645: IF (p_funmode = 'RUN') THEN
13646: ------------------------------------------------------------
13647: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
13648: ------------------------------------------------------------
13649: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
13650: p_item_key,
13651: 'EXPENSE_REPORT_ID');
13652:
13653: IF l_report_header_id IS NULL THEN
13721:
13722: ---------------------------------------------------------------
13723: l_debug_info := 'Reset WF_NOTE';
13724: ---------------------------------------------------------------
13725: WF_ENGINE.SetItemAttrText(p_item_type,
13726: p_item_key,
13727: 'WF_NOTE',
13728: '');
13729:
13755:
13756: ---------------------------------------------------------
13757: l_debug_info := 'Add to Other Errors';
13758: ---------------------------------------------------------
13759: l_other_errors := WF_ENGINE.GetItemAttrText(p_item_type,
13760: p_item_key,
13761: 'OTHER_ERRORS');
13762: ---------------------------------------------------------
13763: l_debug_info := 'Check to see if error title needed';
13773:
13774: AddToWFSSError(l_other_errors, p_other_error);
13775: l_other_errors := l_other_errors || endOraFieldTextFont;
13776:
13777: WF_ENGINE.SetItemAttrText(p_item_type,
13778: p_item_key,
13779: 'OTHER_ERRORS',
13780: l_other_errors);
13781:
13824:
13825: ------------------------------------------------------------
13826: l_debug_info := 'Retrieve HEADER_ERRORS Item Attribute';
13827: ------------------------------------------------------------
13828: document := WF_ENGINE.GetItemAttrText(l_itemtype,
13829: l_itemkey,
13830: 'HEADER_ERRORS');
13831:
13832: document_type := display_type;
13863: ----------------------------------------------------------------
13864: SetFromRole(p_item_type,
13865: p_item_key,
13866: p_actid,
13867: WF_ENGINE.GetItemAttrText(p_item_type,
13868: p_item_key,
13869: 'PAYABLES'),
13870: 'SetFromRoleAP'
13871: );
13869: 'PAYABLES'),
13870: 'SetFromRoleAP'
13871: );
13872: /*
13873: WF_ENGINE.SetItemAttrText(p_item_type,
13874: p_item_key,
13875: '#FROM_ROLE',
13876: WF_ENGINE.GetItemAttrText(p_item_type,
13877: p_item_key,
13872: /*
13873: WF_ENGINE.SetItemAttrText(p_item_type,
13874: p_item_key,
13875: '#FROM_ROLE',
13876: WF_ENGINE.GetItemAttrText(p_item_type,
13877: p_item_key,
13878: 'PAYABLES'));
13879: */
13880: p_result := 'COMPLETE:Y';
13966: l_debug_info := 'Set #FROM_ROLE to Preparer';
13967: ----------------------------------------------------------------
13968: SetFromRolePreparer(p_item_type, p_item_key, p_actid, p_funmode, p_result);
13969:
13970: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
13971: p_item_key,
13972: 'DOCUMENT_NUMBER');
13973:
13974: l_preparer_name := WF_ENGINE.GetItemAttrText(p_item_type,
13970: l_document_number := WF_ENGINE.GetItemAttrText(p_item_type,
13971: p_item_key,
13972: 'DOCUMENT_NUMBER');
13973:
13974: l_preparer_name := WF_ENGINE.GetItemAttrText(p_item_type,
13975: p_item_key,
13976: 'PREPARER_DISPLAY_NAME');
13977:
13978: FND_MESSAGE.SET_NAME('SQLAP','OIE_WF_PROVIDE_MISSING_NOTE');
13979: FND_MESSAGE.Set_Token('EMPLOYEE_NAME', l_preparer_name);
13980: FND_MESSAGE.Set_Token('REPORT_NUMBER', l_document_number);
13981: l_mess := FND_MESSAGE.GET;
13982:
13983: WF_ENGINE.SetItemAttrText(p_item_type,
13984: p_item_key,
13985: 'OIENOTES',
13986: l_mess);
13987:
14006:
14007: ------------------------------------------------------------
14008: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
14009: ------------------------------------------------------------
14010: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
14011: p_item_key,
14012: 'EXPENSE_REPORT_ID');
14013:
14014: ----------------------------------------------------------------
14069:
14070: ------------------------------------------------------------
14071: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
14072: ------------------------------------------------------------
14073: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
14074: p_item_key,
14075: 'EXPENSE_REPORT_ID');
14076:
14077: ------------------------------------------------------------
14085:
14086: ----------------------------------------------------------
14087: l_debug_info := 'Set Item Attribute AUDIT_RETURN_REASON';
14088: ---------------------------------------------------------
14089: WF_ENGINE.SetItemAttrText(p_item_type,
14090: p_item_key,
14091: 'AUDIT_RETURN_REASON',
14092: l_return_reason);
14093:
14093:
14094: ----------------------------------------------------------
14095: l_debug_info := 'Set Item Attribute AUDIT_INSTRUCTIONS';
14096: ---------------------------------------------------------
14097: WF_ENGINE.SetItemAttrText(p_item_type,
14098: p_item_key,
14099: 'AUDIT_INSTRUCTIONS',
14100: l_return_instruction);
14101:
14101:
14102: ----------------------------------------------------------
14103: l_debug_info := 'Set Item Attribute Line_Info_Body';
14104: ---------------------------------------------------------
14105: WF_ENGINE.SetItemAttrText(p_item_type,
14106: p_item_key,
14107: 'LINE_INFO_BODY',
14108: 'plsql:AP_WEB_EXPENSE_WF.generateAdjustmentInfo/'|| p_item_type || ':' || p_item_key || ':AUDIT');
14109:
14173:
14174: ------------------------------------------------------------
14175: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
14176: ------------------------------------------------------------
14177: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
14178: p_item_key,
14179: 'EXPENSE_REPORT_ID');
14180:
14181: -------------------------------------------------------------------
14180:
14181: -------------------------------------------------------------------
14182: l_debug_info := 'Retrieve UPDATE_MANAGER_APPROVED Activity Attribute';
14183: -------------------------------------------------------------------
14184: l_manager_approved := WF_ENGINE.GetActivityAttrText(p_item_type,
14185: p_item_key,
14186: p_actid,
14187: 'UPDATE_MANAGER_APPROVED');
14188:
14268:
14269: ------------------------------------------------------------
14270: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
14271: ------------------------------------------------------------
14272: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
14273: p_item_key,
14274: 'EXPENSE_REPORT_ID');
14275:
14276: ------------------------------------------------------------
14398:
14399: -------------------------------------------------------------------
14400: l_debug_info := 'Retrieve Activity Result Type';
14401: -------------------------------------------------------------------
14402: l_result_type := WF_ENGINE.GetActivityAttrText(p_item_type,
14403: p_item_key,
14404: p_actid,
14405: 'RESULT_TYPE');
14406:
14409: l_debug_info := 'Retrieve Note prefix';
14410: -------------------------------------------------------------------
14411: if (l_result_type = 'WFSTD_APPROVAL') then
14412: l_message_name := 'OIE_NOTES_APPROVER_ACTION';
14413: l_ame_enabled := nvl(WF_ENGINE.GetItemAttrText(p_item_type,
14414: p_item_key,
14415: 'AME_ENABLED'),'N');
14416:
14417: IF ( l_ame_enabled <> 'Y' ) THEN
14433:
14434: END IF;
14435:
14436: IF ( l_ame_enabled = 'Y' OR l_entered_by = -1 ) THEN
14437: AP_WEB_OA_MAINFLOW_PKG.GetUserId(WF_ENGINE.GetItemAttrNumber(p_item_type,
14438: p_item_key,
14439: 'APPROVER_ID'),
14440: l_entered_by);
14441: END IF;
14440: l_entered_by);
14441: END IF;
14442: elsif (l_result_type = 'EMPLOYEE_APPROVAL') then
14443: l_message_name := 'OIE_NOTES_EMPLOYEE_ACTION';
14444: AP_WEB_OA_MAINFLOW_PKG.GetUserId(WF_ENGINE.GetItemAttrNumber(p_item_type,
14445: p_item_key,
14446: 'EMPLOYEE_ID'),
14447: l_entered_by);
14448: -- EMPLOYEE_APPROVAL is to be treated the same as WFSTD_APPROVAL
14448: -- EMPLOYEE_APPROVAL is to be treated the same as WFSTD_APPROVAL
14449: l_result_type := 'WFSTD_APPROVAL';
14450: else
14451: l_message_name := 'OIE_NOTES_PREPARER_RESPONSE';
14452: AP_WEB_OA_MAINFLOW_PKG.GetUserId(WF_ENGINE.GetItemAttrNumber(p_item_type,
14453: p_item_key,
14454: 'PREPARER_ID'),
14455: l_entered_by);
14456: end if;
14474:
14475: -------------------------------------------------------------------
14476: l_debug_info := 'Retrieve Activity Result Code';
14477: -------------------------------------------------------------------
14478: l_result_code := WF_ENGINE.GetActivityAttrText(p_item_type,
14479: p_item_key,
14480: p_actid,
14481: 'RESULT_CODE');
14482:
14482:
14483: -------------------------------------------------------------------
14484: l_debug_info := 'Retrieve Activity Response';
14485: -------------------------------------------------------------------
14486: l_response := WF_ENGINE.GetActivityAttrText(p_item_type,
14487: p_item_key,
14488: p_actid,
14489: 'RESPONSE');
14490:
14490:
14491: ------------------------------------------------------------
14492: l_debug_info := 'Retrieve Expense_Report_ID Item Attribute';
14493: ------------------------------------------------------------
14494: l_report_header_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
14495: p_item_key,
14496: 'EXPENSE_REPORT_ID');
14497:
14498: ------------------------------------------------------------
14508: ------------------------------------------------------------
14509: AP_WEB_NOTES_PKG.CreateERPrepToAudNote (
14510: p_report_header_id => l_report_header_id,
14511: p_note => l_note_prefix||' '||l_code_display_name||'
14512: '||WF_ENGINE.GetItemAttrText(p_item_type, p_item_key, l_response),
14513: p_lang => l_new_language_code,
14514: p_entered_by => l_entered_by
14515: );
14516:
14531:
14532: ----------------------------------------------------------
14533: l_debug_info := 'clear Item Attribute AUDIT_RETURN_REASON';
14534: ---------------------------------------------------------
14535: WF_ENGINE.SetItemAttrText(p_item_type,
14536: p_item_key,
14537: 'AUDIT_RETURN_REASON',
14538: '');
14539:
14539:
14540: ----------------------------------------------------------
14541: l_debug_info := 'Set Item Attribute AUDIT_INSTRUCTIONS';
14542: ---------------------------------------------------------
14543: WF_ENGINE.SetItemAttrText(p_item_type,
14544: p_item_key,
14545: 'AUDIT_INSTRUCTIONS',
14546: '');
14547: end if;
14618:
14619: ---------------------------------------------------------------
14620: l_debug_info := 'Retrieve Employee Id Item Attribute';
14621: ---------------------------------------------------------------
14622: l_person_id := WF_ENGINE.GetItemAttrText(p_item_type,
14623: p_item_key,
14624: 'EMPLOYEE_ID');
14625:
14626: -- Check whether person is terminated
14661:
14662: ---------------------------------------------------------------
14663: l_debug_info := 'Retrieve Employee Id Item Attribute';
14664: ---------------------------------------------------------------
14665: l_person_id := WF_ENGINE.GetItemAttrText(p_item_type,
14666: p_item_key,
14667: 'EMPLOYEE_ID');
14668:
14669: -- Check whether person is active
14703:
14704: ---------------------------------------------------------------
14705: l_debug_info := 'Retrieve Manager Id Item Attribute';
14706: ---------------------------------------------------------------
14707: l_person_id := WF_ENGINE.GetItemAttrText(p_item_type,
14708: p_item_key,
14709: 'MANAGER_ID');
14710:
14711: -- Check whether person is active
15119: select 'Y'
15120: into l_access_granted
15121: from dual
15122: where
15123: (p_item_key = WF_ENGINE.GetItemAttrNumber(l_item_type, l_item_key, 'EXPENSE_REPORT_ID')
15124: or
15125: p_item_key = WF_ENGINE.GetItemAttrNumber(l_item_type, l_item_key, 'HOLDING_EXPENSE_REPORT_ID'))
15126: and rownum = 1;
15127:
15121: from dual
15122: where
15123: (p_item_key = WF_ENGINE.GetItemAttrNumber(l_item_type, l_item_key, 'EXPENSE_REPORT_ID')
15124: or
15125: p_item_key = WF_ENGINE.GetItemAttrNumber(l_item_type, l_item_key, 'HOLDING_EXPENSE_REPORT_ID'))
15126: and rownum = 1;
15127:
15128: elsif (l_item_type = 'APWRECPT') then
15129:
15248: p_result := 'COMPLETE:NOAPPROVER';
15249: return;
15250: END IF;
15251:
15252: l_childItemKeySeq := WF_ENGINE.GetItemAttrNumber(p_item_type,
15253: p_item_key,
15254: 'AME_CHILD_ITEM_KEY_SEQ');
15255:
15256: FOR i IN 1 .. l_nextApproversOut.count LOOP
15261: END IF;
15262:
15263: l_childItemKey := p_item_key || '-' || to_char(l_childItemKeySeq);
15264:
15265: WF_ENGINE.CreateProcess(p_item_type,
15266: l_childItemKey,
15267: 'AME_REQUEST_APPROVAL_PROCESS');
15268:
15269: l_masterUserKey := WF_ENGINE.GetItemUserKey(p_item_type,
15265: WF_ENGINE.CreateProcess(p_item_type,
15266: l_childItemKey,
15267: 'AME_REQUEST_APPROVAL_PROCESS');
15268:
15269: l_masterUserKey := WF_ENGINE.GetItemUserKey(p_item_type,
15270: p_item_key);
15271:
15272: WF_ENGINE.SetItemUserKey(p_item_type,
15273: l_childItemKey,
15268:
15269: l_masterUserKey := WF_ENGINE.GetItemUserKey(p_item_type,
15270: p_item_key);
15271:
15272: WF_ENGINE.SetItemUserKey(p_item_type,
15273: l_childItemKey,
15274: l_masterUserKey);
15275:
15276:
15289:
15290: --------------------------------------------------------
15291: l_debug_info := 'Set Approver_ID Info Item Attribute';
15292: --------------------------------------------------------
15293: WF_ENGINE.SetItemAttrText(p_item_type,
15294: l_childItemKey,
15295: 'APPROVER_ID',
15296: l_nextApproversOut(i).orig_system_id);
15297:
15297:
15298: --------------------------------------------------------
15299: l_debug_info := 'Set Approver_Name Info Item Attribute';
15300: --------------------------------------------------------
15301: WF_ENGINE.SetItemAttrText(p_item_type,
15302: l_childItemKey,
15303: 'APPROVER_NAME',
15304: l_manager_name);
15305:
15305:
15306: ----------------------------------------------------------------
15307: l_debug_info := 'Set Approver_Display_Name Info Item Attribute';
15308: ----------------------------------------------------------------
15309: WF_ENGINE.SetItemAttrText(p_item_type,
15310: l_childItemKey,
15311: 'APPROVER_DISPLAY_NAME',
15312: l_manager_display_name);
15313: ----------------------------------------------------------------
15314: -- Bug 7272553: Store approver authority, used during reassign
15315: l_debug_info := 'Set Approver_Authority Info Item Attribute';
15316: ----------------------------------------------------------------
15317: begin
15318: WF_ENGINE.SetItemAttrText(p_item_type,
15319: l_childItemKey,
15320: 'AME_APPROVER_AUTHORITY',
15321: l_nextApproversOut(i).authority);
15322: exception
15322: exception
15323: when others then
15324: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
15325: -- AME_APPROVER_AUTHORITY item attribute doesn't exist, need to add it
15326: WF_ENGINE.AddItemAttr(p_item_type, l_childItemKey, 'AME_APPROVER_AUTHORITY');
15327: WF_ENGINE.SetItemAttrNumber(p_item_type,
15328: l_childItemKey,
15329: 'AME_APPROVER_AUTHORITY',
15330: l_nextApproversOut(i).authority);
15323: when others then
15324: if (wf_core.error_name = 'WFENG_ITEM_ATTR') then
15325: -- AME_APPROVER_AUTHORITY item attribute doesn't exist, need to add it
15326: WF_ENGINE.AddItemAttr(p_item_type, l_childItemKey, 'AME_APPROVER_AUTHORITY');
15327: WF_ENGINE.SetItemAttrNumber(p_item_type,
15328: l_childItemKey,
15329: 'AME_APPROVER_AUTHORITY',
15330: l_nextApproversOut(i).authority);
15331: else
15332: raise;
15333: end if;
15334: end;
15335:
15336: l_master_report_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
15337: p_item_key,
15338: 'EXPENSE_REPORT_ID');
15339:
15340:
15337: p_item_key,
15338: 'EXPENSE_REPORT_ID');
15339:
15340:
15341: WF_ENGINE.SetItemAttrText(p_item_type,
15342: l_childItemKey,
15343: 'AME_MASTER_ITEM_KEY',
15344: p_item_key);
15345:
15342: l_childItemKey,
15343: 'AME_MASTER_ITEM_KEY',
15344: p_item_key);
15345:
15346: WF_ENGINE.SetItemAttrText(p_item_type,
15347: l_childItemKey,
15348: 'AME_APPROVAL_TYPE',
15349: l_nextApproversOut(i).approver_category);
15350:
15351: ----------------------------------------------------------------
15352: l_debug_info := 'Set wf attributes from the master process';
15353: ----------------------------------------------------------------
15354: BEGIN
15355: WF_ENGINE.SetItemAttrNumber(p_item_type,
15356: l_childItemKey,
15357: 'ORG_ID',
15358: WF_ENGINE.GetItemAttrNumber(p_item_type,
15359: p_item_key,
15354: BEGIN
15355: WF_ENGINE.SetItemAttrNumber(p_item_type,
15356: l_childItemKey,
15357: 'ORG_ID',
15358: WF_ENGINE.GetItemAttrNumber(p_item_type,
15359: p_item_key,
15360: 'ORG_ID'));
15361:
15362: WF_ENGINE.SetItemAttrNumber(p_item_type,
15358: WF_ENGINE.GetItemAttrNumber(p_item_type,
15359: p_item_key,
15360: 'ORG_ID'));
15361:
15362: WF_ENGINE.SetItemAttrNumber(p_item_type,
15363: l_childItemKey,
15364: 'USER_ID',
15365: WF_ENGINE.GetItemAttrNumber(p_item_type,
15366: p_item_key,
15361:
15362: WF_ENGINE.SetItemAttrNumber(p_item_type,
15363: l_childItemKey,
15364: 'USER_ID',
15365: WF_ENGINE.GetItemAttrNumber(p_item_type,
15366: p_item_key,
15367: 'USER_ID'));
15368:
15369: WF_ENGINE.SetItemAttrNumber(p_item_type,
15365: WF_ENGINE.GetItemAttrNumber(p_item_type,
15366: p_item_key,
15367: 'USER_ID'));
15368:
15369: WF_ENGINE.SetItemAttrNumber(p_item_type,
15370: l_childItemKey,
15371: 'RESPONSIBILITY_ID',
15372: WF_ENGINE.GetItemAttrNumber(p_item_type,
15373: p_item_key,
15368:
15369: WF_ENGINE.SetItemAttrNumber(p_item_type,
15370: l_childItemKey,
15371: 'RESPONSIBILITY_ID',
15372: WF_ENGINE.GetItemAttrNumber(p_item_type,
15373: p_item_key,
15374: 'RESPONSIBILITY_ID'));
15375:
15376: WF_ENGINE.SetItemAttrNumber(p_item_type,
15372: WF_ENGINE.GetItemAttrNumber(p_item_type,
15373: p_item_key,
15374: 'RESPONSIBILITY_ID'));
15375:
15376: WF_ENGINE.SetItemAttrNumber(p_item_type,
15377: l_childItemKey,
15378: 'APPLICATION_ID',
15379: WF_ENGINE.GetItemAttrNumber(p_item_type,
15380: p_item_key,
15375:
15376: WF_ENGINE.SetItemAttrNumber(p_item_type,
15377: l_childItemKey,
15378: 'APPLICATION_ID',
15379: WF_ENGINE.GetItemAttrNumber(p_item_type,
15380: p_item_key,
15381: 'APPLICATION_ID'));
15382: EXCEPTION
15383: WHEN OTHERS THEN
15387: raise;
15388: end if;
15389: END;
15390:
15391: WF_ENGINE.SetItemAttrText(p_item_type,
15392: l_childItemKey,
15393: 'AME_ENABLED',
15394: WF_ENGINE.GetItemAttrText(p_item_type,
15395: p_item_key,
15390:
15391: WF_ENGINE.SetItemAttrText(p_item_type,
15392: l_childItemKey,
15393: 'AME_ENABLED',
15394: WF_ENGINE.GetItemAttrText(p_item_type,
15395: p_item_key,
15396: 'AME_ENABLED'));
15397:
15398: WF_ENGINE.SetItemAttrText(p_item_type,
15394: WF_ENGINE.GetItemAttrText(p_item_type,
15395: p_item_key,
15396: 'AME_ENABLED'));
15397:
15398: WF_ENGINE.SetItemAttrText(p_item_type,
15399: l_childItemKey,
15400: 'WITHDRAW_WARNING',
15401: WF_ENGINE.GetItemAttrText(p_item_type,
15402: p_item_key,
15397:
15398: WF_ENGINE.SetItemAttrText(p_item_type,
15399: l_childItemKey,
15400: 'WITHDRAW_WARNING',
15401: WF_ENGINE.GetItemAttrText(p_item_type,
15402: p_item_key,
15403: 'WITHDRAW_WARNING'));
15404:
15405: WF_ENGINE.SetItemAttrText(p_item_type,
15401: WF_ENGINE.GetItemAttrText(p_item_type,
15402: p_item_key,
15403: 'WITHDRAW_WARNING'));
15404:
15405: WF_ENGINE.SetItemAttrText(p_item_type,
15406: l_childItemKey,
15407: 'GRANTS_ENABLED',
15408: WF_ENGINE.GetItemAttrText(p_item_type,
15409: p_item_key,
15404:
15405: WF_ENGINE.SetItemAttrText(p_item_type,
15406: l_childItemKey,
15407: 'GRANTS_ENABLED',
15408: WF_ENGINE.GetItemAttrText(p_item_type,
15409: p_item_key,
15410: 'GRANTS_ENABLED'));
15411:
15412: WF_ENGINE.SetItemAttrText(p_item_type,
15408: WF_ENGINE.GetItemAttrText(p_item_type,
15409: p_item_key,
15410: 'GRANTS_ENABLED'));
15411:
15412: WF_ENGINE.SetItemAttrText(p_item_type,
15413: l_childItemKey,
15414: 'LINE_TABLE',
15415: WF_ENGINE.GetItemAttrText(p_item_type,
15416: p_item_key,
15411:
15412: WF_ENGINE.SetItemAttrText(p_item_type,
15413: l_childItemKey,
15414: 'LINE_TABLE',
15415: WF_ENGINE.GetItemAttrText(p_item_type,
15416: p_item_key,
15417: 'LINE_TABLE'));
15418:
15419: WF_ENGINE.SetItemAttrText(p_item_type,
15415: WF_ENGINE.GetItemAttrText(p_item_type,
15416: p_item_key,
15417: 'LINE_TABLE'));
15418:
15419: WF_ENGINE.SetItemAttrText(p_item_type,
15420: l_childItemKey,
15421: 'EMP_LINE_TABLE',
15422: WF_ENGINE.GetItemAttrText(p_item_type,
15423: p_item_key,
15418:
15419: WF_ENGINE.SetItemAttrText(p_item_type,
15420: l_childItemKey,
15421: 'EMP_LINE_TABLE',
15422: WF_ENGINE.GetItemAttrText(p_item_type,
15423: p_item_key,
15424: 'EMP_LINE_TABLE'));
15425:
15426: WF_ENGINE.SetItemAttrNumber(p_item_type,
15422: WF_ENGINE.GetItemAttrText(p_item_type,
15423: p_item_key,
15424: 'EMP_LINE_TABLE'));
15425:
15426: WF_ENGINE.SetItemAttrNumber(p_item_type,
15427: l_childItemKey,
15428: 'EXPENSE_REPORT_ID',
15429: WF_ENGINE.GetItemAttrNumber(p_item_type,
15430: p_item_key,
15425:
15426: WF_ENGINE.SetItemAttrNumber(p_item_type,
15427: l_childItemKey,
15428: 'EXPENSE_REPORT_ID',
15429: WF_ENGINE.GetItemAttrNumber(p_item_type,
15430: p_item_key,
15431: 'EXPENSE_REPORT_ID'));
15432:
15433: WF_ENGINE.SetItemAttrText(p_item_type,
15429: WF_ENGINE.GetItemAttrNumber(p_item_type,
15430: p_item_key,
15431: 'EXPENSE_REPORT_ID'));
15432:
15433: WF_ENGINE.SetItemAttrText(p_item_type,
15434: l_childItemKey,
15435: 'DOCUMENT_NUMBER',
15436: WF_ENGINE.GetItemAttrText(p_item_type,
15437: p_item_key,
15432:
15433: WF_ENGINE.SetItemAttrText(p_item_type,
15434: l_childItemKey,
15435: 'DOCUMENT_NUMBER',
15436: WF_ENGINE.GetItemAttrText(p_item_type,
15437: p_item_key,
15438: 'DOCUMENT_NUMBER'));
15439:
15440: WF_ENGINE.SetItemAttrNumber(p_item_type,
15436: WF_ENGINE.GetItemAttrText(p_item_type,
15437: p_item_key,
15438: 'DOCUMENT_NUMBER'));
15439:
15440: WF_ENGINE.SetItemAttrNumber(p_item_type,
15441: l_childItemKey,
15442: 'PREPARER_ID',
15443: WF_ENGINE.GetItemAttrNumber(p_item_type,
15444: p_item_key,
15439:
15440: WF_ENGINE.SetItemAttrNumber(p_item_type,
15441: l_childItemKey,
15442: 'PREPARER_ID',
15443: WF_ENGINE.GetItemAttrNumber(p_item_type,
15444: p_item_key,
15445: 'PREPARER_ID'));
15446:
15447: WF_ENGINE.SetItemAttrText(p_item_type,
15443: WF_ENGINE.GetItemAttrNumber(p_item_type,
15444: p_item_key,
15445: 'PREPARER_ID'));
15446:
15447: WF_ENGINE.SetItemAttrText(p_item_type,
15448: l_childItemKey,
15449: 'PREPARER_NAME',
15450: WF_ENGINE.GetItemAttrText(p_item_type,
15451: p_item_key,
15446:
15447: WF_ENGINE.SetItemAttrText(p_item_type,
15448: l_childItemKey,
15449: 'PREPARER_NAME',
15450: WF_ENGINE.GetItemAttrText(p_item_type,
15451: p_item_key,
15452: 'PREPARER_NAME'));
15453:
15454: WF_ENGINE.SetItemAttrText(p_item_type,
15450: WF_ENGINE.GetItemAttrText(p_item_type,
15451: p_item_key,
15452: 'PREPARER_NAME'));
15453:
15454: WF_ENGINE.SetItemAttrText(p_item_type,
15455: l_childItemKey,
15456: 'PREPARER_DISPLAY_NAME',
15457: WF_ENGINE.GetItemAttrText(p_item_type,
15458: p_item_key,
15453:
15454: WF_ENGINE.SetItemAttrText(p_item_type,
15455: l_childItemKey,
15456: 'PREPARER_DISPLAY_NAME',
15457: WF_ENGINE.GetItemAttrText(p_item_type,
15458: p_item_key,
15459: 'PREPARER_DISPLAY_NAME'));
15460:
15461: WF_ENGINE.SetItemAttrNumber(p_item_type,
15457: WF_ENGINE.GetItemAttrText(p_item_type,
15458: p_item_key,
15459: 'PREPARER_DISPLAY_NAME'));
15460:
15461: WF_ENGINE.SetItemAttrNumber(p_item_type,
15462: l_childItemKey,
15463: 'EMPLOYEE_ID',
15464: WF_ENGINE.GetItemAttrNumber(p_item_type,
15465: p_item_key,
15460:
15461: WF_ENGINE.SetItemAttrNumber(p_item_type,
15462: l_childItemKey,
15463: 'EMPLOYEE_ID',
15464: WF_ENGINE.GetItemAttrNumber(p_item_type,
15465: p_item_key,
15466: 'EMPLOYEE_ID'));
15467:
15468: WF_ENGINE.SetItemAttrText(p_item_type,
15464: WF_ENGINE.GetItemAttrNumber(p_item_type,
15465: p_item_key,
15466: 'EMPLOYEE_ID'));
15467:
15468: WF_ENGINE.SetItemAttrText(p_item_type,
15469: l_childItemKey,
15470: 'EMPLOYEE_NAME',
15471: WF_ENGINE.GetItemAttrText(p_item_type,
15472: p_item_key,
15467:
15468: WF_ENGINE.SetItemAttrText(p_item_type,
15469: l_childItemKey,
15470: 'EMPLOYEE_NAME',
15471: WF_ENGINE.GetItemAttrText(p_item_type,
15472: p_item_key,
15473: 'EMPLOYEE_NAME'));
15474:
15475: WF_ENGINE.SetItemAttrText(p_item_type,
15471: WF_ENGINE.GetItemAttrText(p_item_type,
15472: p_item_key,
15473: 'EMPLOYEE_NAME'));
15474:
15475: WF_ENGINE.SetItemAttrText(p_item_type,
15476: l_childItemKey,
15477: 'EMPLOYEE_DISPLAY_NAME',
15478: WF_ENGINE.GetItemAttrText(p_item_type,
15479: p_item_key,
15474:
15475: WF_ENGINE.SetItemAttrText(p_item_type,
15476: l_childItemKey,
15477: 'EMPLOYEE_DISPLAY_NAME',
15478: WF_ENGINE.GetItemAttrText(p_item_type,
15479: p_item_key,
15480: 'EMPLOYEE_DISPLAY_NAME'));
15481:
15482: WF_ENGINE.SetItemAttrText(p_item_type,
15478: WF_ENGINE.GetItemAttrText(p_item_type,
15479: p_item_key,
15480: 'EMPLOYEE_DISPLAY_NAME'));
15481:
15482: WF_ENGINE.SetItemAttrText(p_item_type,
15483: l_childItemKey,
15484: 'PAYMENT_DUE_FROM',
15485: WF_ENGINE.GetItemAttrText(p_item_type,
15486: p_item_key,
15481:
15482: WF_ENGINE.SetItemAttrText(p_item_type,
15483: l_childItemKey,
15484: 'PAYMENT_DUE_FROM',
15485: WF_ENGINE.GetItemAttrText(p_item_type,
15486: p_item_key,
15487: 'PAYMENT_DUE_FROM'));
15488:
15489: WF_ENGINE.SetItemAttrNumber(p_item_type,
15485: WF_ENGINE.GetItemAttrText(p_item_type,
15486: p_item_key,
15487: 'PAYMENT_DUE_FROM'));
15488:
15489: WF_ENGINE.SetItemAttrNumber(p_item_type,
15490: l_childItemKey,
15491: 'TOTAL',
15492: WF_ENGINE.GetItemAttrNumber(p_item_type,
15493: p_item_key,
15488:
15489: WF_ENGINE.SetItemAttrNumber(p_item_type,
15490: l_childItemKey,
15491: 'TOTAL',
15492: WF_ENGINE.GetItemAttrNumber(p_item_type,
15493: p_item_key,
15494: 'TOTAL'));
15495:
15496: WF_ENGINE.SetItemAttrText(p_item_type,
15492: WF_ENGINE.GetItemAttrNumber(p_item_type,
15493: p_item_key,
15494: 'TOTAL'));
15495:
15496: WF_ENGINE.SetItemAttrText(p_item_type,
15497: l_childItemKey,
15498: 'DISPLAY_TOTAL',
15499: WF_ENGINE.GetItemAttrText(p_item_type,
15500: p_item_key,
15495:
15496: WF_ENGINE.SetItemAttrText(p_item_type,
15497: l_childItemKey,
15498: 'DISPLAY_TOTAL',
15499: WF_ENGINE.GetItemAttrText(p_item_type,
15500: p_item_key,
15501: 'DISPLAY_TOTAL'));
15502:
15503: WF_ENGINE.SetItemAttrDate(p_item_type,
15499: WF_ENGINE.GetItemAttrText(p_item_type,
15500: p_item_key,
15501: 'DISPLAY_TOTAL'));
15502:
15503: WF_ENGINE.SetItemAttrDate(p_item_type,
15504: l_childItemKey,
15505: 'WEEK_END_DATE',
15506: WF_ENGINE.GetItemAttrDate(p_item_type,
15507: p_item_key,
15502:
15503: WF_ENGINE.SetItemAttrDate(p_item_type,
15504: l_childItemKey,
15505: 'WEEK_END_DATE',
15506: WF_ENGINE.GetItemAttrDate(p_item_type,
15507: p_item_key,
15508: 'WEEK_END_DATE'));
15509:
15510: WF_ENGINE.SetItemAttrText(p_item_type,
15506: WF_ENGINE.GetItemAttrDate(p_item_type,
15507: p_item_key,
15508: 'WEEK_END_DATE'));
15509:
15510: WF_ENGINE.SetItemAttrText(p_item_type,
15511: l_childItemKey,
15512: 'EMPLOYEE_PROJECT_ENABLED',
15513: WF_ENGINE.GetItemAttrText(p_item_type,
15514: p_item_key,
15509:
15510: WF_ENGINE.SetItemAttrText(p_item_type,
15511: l_childItemKey,
15512: 'EMPLOYEE_PROJECT_ENABLED',
15513: WF_ENGINE.GetItemAttrText(p_item_type,
15514: p_item_key,
15515: 'EMPLOYEE_PROJECT_ENABLED'));
15516:
15517: WF_ENGINE.SetItemAttrText(p_item_type,
15513: WF_ENGINE.GetItemAttrText(p_item_type,
15514: p_item_key,
15515: 'EMPLOYEE_PROJECT_ENABLED'));
15516:
15517: WF_ENGINE.SetItemAttrText(p_item_type,
15518: l_childItemKey,
15519: 'CURRENCY',
15520: WF_ENGINE.GetItemAttrText(p_item_type,
15521: p_item_key,
15516:
15517: WF_ENGINE.SetItemAttrText(p_item_type,
15518: l_childItemKey,
15519: 'CURRENCY',
15520: WF_ENGINE.GetItemAttrText(p_item_type,
15521: p_item_key,
15522: 'CURRENCY'));
15523:
15524: WF_ENGINE.SetItemAttrText(p_item_type,
15520: WF_ENGINE.GetItemAttrText(p_item_type,
15521: p_item_key,
15522: 'CURRENCY'));
15523:
15524: WF_ENGINE.SetItemAttrText(p_item_type,
15525: l_childItemKey,
15526: 'DOC_COST_CENTER',
15527: WF_ENGINE.GetItemAttrText(p_item_type,
15528: p_item_key,
15523:
15524: WF_ENGINE.SetItemAttrText(p_item_type,
15525: l_childItemKey,
15526: 'DOC_COST_CENTER',
15527: WF_ENGINE.GetItemAttrText(p_item_type,
15528: p_item_key,
15529: 'DOC_COST_CENTER'));
15530:
15531: WF_ENGINE.SetItemAttrText(p_item_type,
15527: WF_ENGINE.GetItemAttrText(p_item_type,
15528: p_item_key,
15529: 'DOC_COST_CENTER'));
15530:
15531: WF_ENGINE.SetItemAttrText(p_item_type,
15532: l_childItemKey,
15533: 'EMP_COST_CENTER',
15534: WF_ENGINE.GetItemAttrText(p_item_type,
15535: p_item_key,
15530:
15531: WF_ENGINE.SetItemAttrText(p_item_type,
15532: l_childItemKey,
15533: 'EMP_COST_CENTER',
15534: WF_ENGINE.GetItemAttrText(p_item_type,
15535: p_item_key,
15536: 'EMP_COST_CENTER'));
15537:
15538: WF_ENGINE.SetItemAttrText(p_item_type,
15534: WF_ENGINE.GetItemAttrText(p_item_type,
15535: p_item_key,
15536: 'EMP_COST_CENTER'));
15537:
15538: WF_ENGINE.SetItemAttrText(p_item_type,
15539: l_childItemKey,
15540: 'HEADER_ATTACHMENTS',
15541: WF_ENGINE.GetItemAttrText(p_item_type,
15542: p_item_key,
15537:
15538: WF_ENGINE.SetItemAttrText(p_item_type,
15539: l_childItemKey,
15540: 'HEADER_ATTACHMENTS',
15541: WF_ENGINE.GetItemAttrText(p_item_type,
15542: p_item_key,
15543: 'HEADER_ATTACHMENTS'));
15544:
15545: WF_ENGINE.SetItemAttrText(p_item_type,
15541: WF_ENGINE.GetItemAttrText(p_item_type,
15542: p_item_key,
15543: 'HEADER_ATTACHMENTS'));
15544:
15545: WF_ENGINE.SetItemAttrText(p_item_type,
15546: l_childItemKey,
15547: 'SUBMIT_FROM_OIE',
15548: WF_ENGINE.GetItemAttrText(p_item_type,
15549: p_item_key,
15544:
15545: WF_ENGINE.SetItemAttrText(p_item_type,
15546: l_childItemKey,
15547: 'SUBMIT_FROM_OIE',
15548: WF_ENGINE.GetItemAttrText(p_item_type,
15549: p_item_key,
15550: 'SUBMIT_FROM_OIE'));
15551:
15552: WF_ENGINE.SetItemAttrText(p_item_type,
15548: WF_ENGINE.GetItemAttrText(p_item_type,
15549: p_item_key,
15550: 'SUBMIT_FROM_OIE'));
15551:
15552: WF_ENGINE.SetItemAttrText(p_item_type,
15553: l_childItemKey,
15554: 'EXPENSE_DETAILS',
15555: WF_ENGINE.GetItemAttrText(p_item_type,
15556: p_item_key,
15551:
15552: WF_ENGINE.SetItemAttrText(p_item_type,
15553: l_childItemKey,
15554: 'EXPENSE_DETAILS',
15555: WF_ENGINE.GetItemAttrText(p_item_type,
15556: p_item_key,
15557: 'EXPENSE_DETAILS'));
15558:
15559: WF_ENGINE.SetItemAttrText(p_item_type,
15555: WF_ENGINE.GetItemAttrText(p_item_type,
15556: p_item_key,
15557: 'EXPENSE_DETAILS'));
15558:
15559: WF_ENGINE.SetItemAttrText(p_item_type,
15560: l_childItemKey,
15561: 'EMP_VIOLATION_NOTE',
15562: WF_ENGINE.GetItemAttrText(p_item_type,
15563: p_item_key,
15558:
15559: WF_ENGINE.SetItemAttrText(p_item_type,
15560: l_childItemKey,
15561: 'EMP_VIOLATION_NOTE',
15562: WF_ENGINE.GetItemAttrText(p_item_type,
15563: p_item_key,
15564: 'EMP_VIOLATION_NOTE'));
15565:
15566: WF_ENGINE.SetItemAttrText(p_item_type,
15562: WF_ENGINE.GetItemAttrText(p_item_type,
15563: p_item_key,
15564: 'EMP_VIOLATION_NOTE'));
15565:
15566: WF_ENGINE.SetItemAttrText(p_item_type,
15567: l_childItemKey,
15568: 'VIOLATION_NOTE',
15569: WF_ENGINE.GetItemAttrText(p_item_type,
15570: p_item_key,
15565:
15566: WF_ENGINE.SetItemAttrText(p_item_type,
15567: l_childItemKey,
15568: 'VIOLATION_NOTE',
15569: WF_ENGINE.GetItemAttrText(p_item_type,
15570: p_item_key,
15571: 'VIOLATION_NOTE'));
15572:
15573: WF_ENGINE.SetItemAttrText(p_item_type,
15569: WF_ENGINE.GetItemAttrText(p_item_type,
15570: p_item_key,
15571: 'VIOLATION_NOTE'));
15572:
15573: WF_ENGINE.SetItemAttrText(p_item_type,
15574: l_childItemKey,
15575: 'MILEAGE_NOTE',
15576: WF_ENGINE.GetItemAttrText(p_item_type,
15577: p_item_key,
15572:
15573: WF_ENGINE.SetItemAttrText(p_item_type,
15574: l_childItemKey,
15575: 'MILEAGE_NOTE',
15576: WF_ENGINE.GetItemAttrText(p_item_type,
15577: p_item_key,
15578: 'MILEAGE_NOTE'));
15579:
15580: WF_ENGINE.SetItemAttrText(p_item_type,
15576: WF_ENGINE.GetItemAttrText(p_item_type,
15577: p_item_key,
15578: 'MILEAGE_NOTE'));
15579:
15580: WF_ENGINE.SetItemAttrText(p_item_type,
15581: l_childItemKey,
15582: 'VERIFY_NOTE',
15583: WF_ENGINE.GetItemAttrText(p_item_type,
15584: p_item_key,
15579:
15580: WF_ENGINE.SetItemAttrText(p_item_type,
15581: l_childItemKey,
15582: 'VERIFY_NOTE',
15583: WF_ENGINE.GetItemAttrText(p_item_type,
15584: p_item_key,
15585: 'VERIFY_NOTE'));
15586:
15587: WF_ENGINE.SetItemAttrText(p_item_type,
15583: WF_ENGINE.GetItemAttrText(p_item_type,
15584: p_item_key,
15585: 'VERIFY_NOTE'));
15586:
15587: WF_ENGINE.SetItemAttrText(p_item_type,
15588: l_childItemKey,
15589: 'AUDIT_RETURN_REASON',
15590: WF_ENGINE.GetItemAttrText(p_item_type,
15591: p_item_key,
15586:
15587: WF_ENGINE.SetItemAttrText(p_item_type,
15588: l_childItemKey,
15589: 'AUDIT_RETURN_REASON',
15590: WF_ENGINE.GetItemAttrText(p_item_type,
15591: p_item_key,
15592: 'AUDIT_RETURN_REASON'));
15593:
15594: WF_ENGINE.SetItemAttrText(p_item_type,
15590: WF_ENGINE.GetItemAttrText(p_item_type,
15591: p_item_key,
15592: 'AUDIT_RETURN_REASON'));
15593:
15594: WF_ENGINE.SetItemAttrText(p_item_type,
15595: l_childItemKey,
15596: 'AUDIT_INSTRUCTIONS',
15597: WF_ENGINE.GetItemAttrText(p_item_type,
15598: p_item_key,
15593:
15594: WF_ENGINE.SetItemAttrText(p_item_type,
15595: l_childItemKey,
15596: 'AUDIT_INSTRUCTIONS',
15597: WF_ENGINE.GetItemAttrText(p_item_type,
15598: p_item_key,
15599: 'AUDIT_INSTRUCTIONS'));
15600:
15601: WF_ENGINE.SetItemAttrText(p_item_type,
15597: WF_ENGINE.GetItemAttrText(p_item_type,
15598: p_item_key,
15599: 'AUDIT_INSTRUCTIONS'));
15600:
15601: WF_ENGINE.SetItemAttrText(p_item_type,
15602: l_childItemKey,
15603: 'CASH_LINE_ERRORS_AP',
15604: WF_ENGINE.GetItemAttrText(p_item_type,
15605: p_item_key,
15600:
15601: WF_ENGINE.SetItemAttrText(p_item_type,
15602: l_childItemKey,
15603: 'CASH_LINE_ERRORS_AP',
15604: WF_ENGINE.GetItemAttrText(p_item_type,
15605: p_item_key,
15606: 'CASH_LINE_ERRORS_AP'));
15607:
15608: WF_ENGINE.SetItemAttrText(p_item_type,
15604: WF_ENGINE.GetItemAttrText(p_item_type,
15605: p_item_key,
15606: 'CASH_LINE_ERRORS_AP'));
15607:
15608: WF_ENGINE.SetItemAttrText(p_item_type,
15609: l_childItemKey,
15610: 'CASH_LINE_ERRORS_PREPARER',
15611: WF_ENGINE.GetItemAttrText(p_item_type,
15612: p_item_key,
15607:
15608: WF_ENGINE.SetItemAttrText(p_item_type,
15609: l_childItemKey,
15610: 'CASH_LINE_ERRORS_PREPARER',
15611: WF_ENGINE.GetItemAttrText(p_item_type,
15612: p_item_key,
15613: 'CASH_LINE_ERRORS_PREPARER'));
15614:
15615: WF_ENGINE.SetItemAttrText(p_item_type,
15611: WF_ENGINE.GetItemAttrText(p_item_type,
15612: p_item_key,
15613: 'CASH_LINE_ERRORS_PREPARER'));
15614:
15615: WF_ENGINE.SetItemAttrText(p_item_type,
15616: l_childItemKey,
15617: 'CCARD_LINE_ERRORS_AP',
15618: WF_ENGINE.GetItemAttrText(p_item_type,
15619: p_item_key,
15614:
15615: WF_ENGINE.SetItemAttrText(p_item_type,
15616: l_childItemKey,
15617: 'CCARD_LINE_ERRORS_AP',
15618: WF_ENGINE.GetItemAttrText(p_item_type,
15619: p_item_key,
15620: 'CCARD_LINE_ERRORS_AP'));
15621:
15622: WF_ENGINE.SetItemAttrText(p_item_type,
15618: WF_ENGINE.GetItemAttrText(p_item_type,
15619: p_item_key,
15620: 'CCARD_LINE_ERRORS_AP'));
15621:
15622: WF_ENGINE.SetItemAttrText(p_item_type,
15623: l_childItemKey,
15624: 'CCARD_LINE_ERRORS_PREPARER',
15625: WF_ENGINE.GetItemAttrText(p_item_type,
15626: p_item_key,
15621:
15622: WF_ENGINE.SetItemAttrText(p_item_type,
15623: l_childItemKey,
15624: 'CCARD_LINE_ERRORS_PREPARER',
15625: WF_ENGINE.GetItemAttrText(p_item_type,
15626: p_item_key,
15627: 'CCARD_LINE_ERRORS_PREPARER'));
15628:
15629: WF_ENGINE.SetItemAttrText(p_item_type,
15625: WF_ENGINE.GetItemAttrText(p_item_type,
15626: p_item_key,
15627: 'CCARD_LINE_ERRORS_PREPARER'));
15628:
15629: WF_ENGINE.SetItemAttrText(p_item_type,
15630: l_childItemKey,
15631: 'GEN_HEADER_ERRORS',
15632: WF_ENGINE.GetItemAttrText(p_item_type,
15633: p_item_key,
15628:
15629: WF_ENGINE.SetItemAttrText(p_item_type,
15630: l_childItemKey,
15631: 'GEN_HEADER_ERRORS',
15632: WF_ENGINE.GetItemAttrText(p_item_type,
15633: p_item_key,
15634: 'GEN_HEADER_ERRORS'));
15635:
15636: WF_ENGINE.SetItemAttrText(p_item_type,
15632: WF_ENGINE.GetItemAttrText(p_item_type,
15633: p_item_key,
15634: 'GEN_HEADER_ERRORS'));
15635:
15636: WF_ENGINE.SetItemAttrText(p_item_type,
15637: l_childItemKey,
15638: 'IS_DEFAULT_COST_CENTER_USED',
15639: WF_ENGINE.GetItemAttrText(p_item_type,
15640: p_item_key,
15635:
15636: WF_ENGINE.SetItemAttrText(p_item_type,
15637: l_childItemKey,
15638: 'IS_DEFAULT_COST_CENTER_USED',
15639: WF_ENGINE.GetItemAttrText(p_item_type,
15640: p_item_key,
15641: 'IS_DEFAULT_COST_CENTER_USED'));
15642:
15643: WF_ENGINE.SetItemAttrText(p_item_type,
15639: WF_ENGINE.GetItemAttrText(p_item_type,
15640: p_item_key,
15641: 'IS_DEFAULT_COST_CENTER_USED'));
15642:
15643: WF_ENGINE.SetItemAttrText(p_item_type,
15644: l_childItemKey,
15645: 'IS_PROJECTS_REPORT',
15646: WF_ENGINE.GetItemAttrText(p_item_type,
15647: p_item_key,
15642:
15643: WF_ENGINE.SetItemAttrText(p_item_type,
15644: l_childItemKey,
15645: 'IS_PROJECTS_REPORT',
15646: WF_ENGINE.GetItemAttrText(p_item_type,
15647: p_item_key,
15648: 'IS_PROJECTS_REPORT'));
15649:
15650:
15652:
15653: ----------------------------------------------------------------
15654: l_debug_info := 'StartProcess ChildItemKey: ' || l_childItemKey;
15655: ----------------------------------------------------------------
15656: WF_ENGINE.StartProcess(p_item_type,
15657: l_childItemKey);
15658:
15659: END LOOP;
15660:
15657: l_childItemKey);
15658:
15659: END LOOP;
15660:
15661: WF_ENGINE.SetItemAttrText(p_item_type,
15662: p_item_key,
15663: 'AME_CHILD_ITEM_KEY_SEQ',
15664: l_childItemKeySeq);
15665:
15673:
15674: EXCEPTION
15675: WHEN fixable_exception THEN
15676: -- bug 3257576
15677: WF_ENGINE.SetItemAttrText(p_item_type,
15678: p_item_key,
15679: 'NO_APPROVER_PROBLEM',
15680: l_error_message);
15681: WF_ENGINE.SetItemAttrText(p_item_type,
15677: WF_ENGINE.SetItemAttrText(p_item_type,
15678: p_item_key,
15679: 'NO_APPROVER_PROBLEM',
15680: l_error_message);
15681: WF_ENGINE.SetItemAttrText(p_item_type,
15682: p_item_key,
15683: 'NO_APPROVER_INSTRUCTIONS',
15684: l_instructions);
15685: WF_ENGINE.SetItemAttrText(p_item_type,
15681: WF_ENGINE.SetItemAttrText(p_item_type,
15682: p_item_key,
15683: 'NO_APPROVER_INSTRUCTIONS',
15684: l_instructions);
15685: WF_ENGINE.SetItemAttrText(p_item_type,
15686: p_item_key,
15687: 'NO_APPROVER_SPECIAL_INSTR',
15688: l_special_instr);
15689:
15717:
15718: --------------------------------------------------------------
15719: l_debug_info := 'Retrieve AME approval category - Action/FYI';
15720: --------------------------------------------------------------
15721: l_ActionOrFyi := WF_ENGINE.GetItemAttrText(p_item_type,
15722: p_item_key,
15723: 'AME_APPROVAL_TYPE');
15724:
15725: IF (nvl(l_ActionOrFyi,'A') = 'A') THEN
15772: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AMEPropagateApprovalResult');
15773:
15774: IF (p_funmode = 'RUN') THEN
15775:
15776: l_AmeMasterItemKey := WF_ENGINE.GetItemAttrText(p_item_type,
15777: p_item_key,
15778: 'AME_MASTER_ITEM_KEY');
15779:
15780: l_approverResponse := WF_ENGINE.GetItemAttrText(p_item_type,
15776: l_AmeMasterItemKey := WF_ENGINE.GetItemAttrText(p_item_type,
15777: p_item_key,
15778: 'AME_MASTER_ITEM_KEY');
15779:
15780: l_approverResponse := WF_ENGINE.GetItemAttrText(p_item_type,
15781: l_AmeMasterItemKey,
15782: 'AME_APPROVER_RESPONSE');
15783:
15784: l_response := WF_ENGINE.GetActivityAttrText(p_item_type,
15780: l_approverResponse := WF_ENGINE.GetItemAttrText(p_item_type,
15781: l_AmeMasterItemKey,
15782: 'AME_APPROVER_RESPONSE');
15783:
15784: l_response := WF_ENGINE.GetActivityAttrText(p_item_type,
15785: p_item_key,
15786: p_actid,
15787: 'RESPONSE');
15788: --------------------------------------------------------------
15792: ---------------------------------------------------------------
15793:
15794: IF ((l_approverResponse IS NULL) OR (l_approverResponse <> 'REJECTED'))
15795: AND (l_response IS NOT NULL) THEN
15796: WF_ENGINE.SetItemAttrText(p_item_type,
15797: l_AmeMasterItemKey,
15798: 'AME_APPROVER_RESPONSE',
15799: l_response);
15800: IF (l_response = 'REJECTED') THEN
15797: l_AmeMasterItemKey,
15798: 'AME_APPROVER_RESPONSE',
15799: l_response);
15800: IF (l_response = 'REJECTED') THEN
15801: WF_ENGINE.SetItemAttrText(p_item_type,
15802: l_AmeMasterItemKey,
15803: 'AME_REJECTED_CHILD_ITEM_KEY',
15804: p_item_key);
15805: END IF;
15805: END IF;
15806: --Bug 6411930: copy approver display name and note from rejected
15807: --child to parent, they are used to display the information in the
15808: --rejection notif to the preparer
15809: WF_ENGINE.SetItemAttrText(p_item_type,
15810: l_AmeMasterItemKey,
15811: 'APPROVER_ID',
15812: WF_ENGINE.GetItemAttrText(p_item_type,
15813: p_item_key,
15808: --rejection notif to the preparer
15809: WF_ENGINE.SetItemAttrText(p_item_type,
15810: l_AmeMasterItemKey,
15811: 'APPROVER_ID',
15812: WF_ENGINE.GetItemAttrText(p_item_type,
15813: p_item_key,
15814: 'APPROVER_ID'));
15815: WF_ENGINE.SetItemAttrText(p_item_type,
15816: l_AmeMasterItemKey,
15811: 'APPROVER_ID',
15812: WF_ENGINE.GetItemAttrText(p_item_type,
15813: p_item_key,
15814: 'APPROVER_ID'));
15815: WF_ENGINE.SetItemAttrText(p_item_type,
15816: l_AmeMasterItemKey,
15817: 'APPROVER_NAME',
15818: WF_ENGINE.GetItemAttrText(p_item_type,
15819: p_item_key,
15814: 'APPROVER_ID'));
15815: WF_ENGINE.SetItemAttrText(p_item_type,
15816: l_AmeMasterItemKey,
15817: 'APPROVER_NAME',
15818: WF_ENGINE.GetItemAttrText(p_item_type,
15819: p_item_key,
15820: 'APPROVER_NAME'));
15821: WF_ENGINE.SetItemAttrText(p_item_type,
15822: l_AmeMasterItemKey,
15817: 'APPROVER_NAME',
15818: WF_ENGINE.GetItemAttrText(p_item_type,
15819: p_item_key,
15820: 'APPROVER_NAME'));
15821: WF_ENGINE.SetItemAttrText(p_item_type,
15822: l_AmeMasterItemKey,
15823: 'APPROVER_DISPLAY_NAME',
15824: WF_ENGINE.GetItemAttrText(p_item_type,
15825: p_item_key,
15820: 'APPROVER_NAME'));
15821: WF_ENGINE.SetItemAttrText(p_item_type,
15822: l_AmeMasterItemKey,
15823: 'APPROVER_DISPLAY_NAME',
15824: WF_ENGINE.GetItemAttrText(p_item_type,
15825: p_item_key,
15826: 'APPROVER_DISPLAY_NAME'));
15827: WF_ENGINE.SetItemAttrText(p_item_type,
15828: l_AmeMasterItemKey,
15823: 'APPROVER_DISPLAY_NAME',
15824: WF_ENGINE.GetItemAttrText(p_item_type,
15825: p_item_key,
15826: 'APPROVER_DISPLAY_NAME'));
15827: WF_ENGINE.SetItemAttrText(p_item_type,
15828: l_AmeMasterItemKey,
15829: 'WF_NOTE',
15830: WF_ENGINE.GetItemAttrText(p_item_type,
15831: p_item_key,
15826: 'APPROVER_DISPLAY_NAME'));
15827: WF_ENGINE.SetItemAttrText(p_item_type,
15828: l_AmeMasterItemKey,
15829: 'WF_NOTE',
15830: WF_ENGINE.GetItemAttrText(p_item_type,
15831: p_item_key,
15832: 'WF_NOTE'));
15833:
15834: END IF;
15835:
15836: ------------------------------------------------------
15837: l_debug_info := 'Retrieve Approver_ID Item Attribute';
15838: -------------------------------------------------------
15839: l_approver_id := WF_ENGINE.GetItemAttrNumber(p_item_type,
15840: l_AmeMasterItemKey,
15841: 'APPROVER_ID');
15842:
15843: ------------------------------------------------------
15842:
15843: ------------------------------------------------------
15844: l_debug_info := 'Retrieve Approver_ID Item Attribute';
15845: -------------------------------------------------------
15846: l_approver_name := WF_ENGINE.GetItemAttrText(p_item_type,
15847: p_item_key,
15848: 'APPROVER_NAME');
15849:
15850: IF (l_response = 'APPROVED') THEN
15926:
15927: --------------------------------------------------------------
15928: l_debug_info := 'Check Approver Response - APPROVED/REJECTED';
15929: --------------------------------------------------------------
15930: l_approverResponse := WF_ENGINE.GetItemAttrText(p_item_type,
15931: p_item_key,
15932: 'AME_APPROVER_RESPONSE');
15933:
15934: IF (l_approverResponse = 'APPROVED') THEN
15983: AP_WEB_UTILITIES_PKG.logProcedure('AP_WEB_EXPENSE_WF', 'start AMECompleteApproval');
15984:
15985: IF (p_funmode = 'RUN') THEN
15986:
15987: l_AmeMasterItemKey := WF_ENGINE.GetItemAttrText(p_item_type,
15988: p_item_key,
15989: 'AME_MASTER_ITEM_KEY');
15990:
15991: ------------------------------------------------------
15991: ------------------------------------------------------
15992: l_debug_info := 'Call CompleteActivity ' || l_AmeMasterItemKey ;
15993: ------------------------------------------------------
15994: begin
15995: WF_ENGINE.CompleteActivity(itemtype => p_item_type,
15996: itemkey => l_AmeMasterItemKey,
15997: activity => 'AME_APPROVAL_BLOCK',
15998: result => null);
15999: l_result := 'Y';
15999: l_result := 'Y';
16000: exception
16001: WHEN others THEN
16002:
16003: l_check_error := WF_ENGINE.GetActivityAttrText(p_item_type,
16004: p_item_key,
16005: p_actid,
16006: 'CHECK_ERROR');
16007: if l_check_error = 'Y' then
16183:
16184: ---------------------------------------------------------------
16185: l_debug_info := 'Retrieve Employee Id Item Attribute';
16186: ---------------------------------------------------------------
16187: l_person_id := WF_ENGINE.GetItemAttrText(p_item_type,
16188: p_item_key,
16189: 'PREPARER_ID');
16190:
16191: -- Check whether person is active