[Home] [Help]
1: PACKAGE BODY AP_WEB_OA_ACTIVE_PKG AS
2: /* $Header: apwoaacb.pls 120.17 2007/12/06 08:31:01 sodash ship $ */
3:
4: -- Cache for AP Approver and Expenses Administrator
5: g_ApApprover ap_lookup_codes.displayed_field%TYPE := NULL;
6: g_ExpensesAdmin ap_lookup_codes.displayed_field%TYPE := NULL;
7:
8: -- Cache for GetReportStatusCode
9: grsc_old_report_header_id NUMBER := NULL;
2: /* $Header: apwoaacb.pls 120.17 2007/12/06 08:31:01 sodash ship $ */
3:
4: -- Cache for AP Approver and Expenses Administrator
5: g_ApApprover ap_lookup_codes.displayed_field%TYPE := NULL;
6: g_ExpensesAdmin ap_lookup_codes.displayed_field%TYPE := NULL;
7:
8: -- Cache for GetReportStatusCode
9: grsc_old_report_header_id NUMBER := NULL;
10: grsc_old_status_code ap_lookup_codes.lookup_code%TYPE := NULL;
6: g_ExpensesAdmin ap_lookup_codes.displayed_field%TYPE := NULL;
7:
8: -- Cache for GetReportStatusCode
9: grsc_old_report_header_id NUMBER := NULL;
10: grsc_old_status_code ap_lookup_codes.lookup_code%TYPE := NULL;
11:
12: -- Cache for GetApproverName
13: gan_old_report_header_id NUMBER := NULL;
14: gan_old_approver_name WF_ITEM_ATTRIBUTE_VALUES.TEXT_VALUE%TYPE := NULL;
68: --
69:
70: FUNCTION GetApApprover RETURN VARCHAR2
71: IS
72: v_ApApprover ap_lookup_codes.displayed_field%TYPE := NULL;
73: v_langCode language_code;
74: BEGIN
75: v_langCode := userenv('LANG');
76:
81: g_langCode := v_langCode;
82:
83: SELECT DISPLAYED_FIELD
84: INTO v_ApApprover
85: FROM ap_lookup_codes
86: WHERE LOOKUP_TYPE = C_EXPENSE_REPORT_APPROVER
87: AND LOOKUP_CODE = C_AP;
88:
89: -- Update cache
113: --
114:
115: FUNCTION GetExpensesAdmin RETURN VARCHAR2
116: IS
117: v_ExpensesAdmin ap_lookup_codes.displayed_field%TYPE := NULL;
118: v_langCode language_code;
119: BEGIN
120: v_langCode := userenv('LANG');
121:
126: g_langCode := v_langCode;
127:
128: SELECT DISPLAYED_FIELD
129: INTO v_ExpensesAdmin
130: FROM ap_lookup_codes
131: WHERE LOOKUP_TYPE = C_EXPENSE_REPORT_APPROVER
132: AND LOOKUP_CODE = C_EXPADMIN;
133:
134: -- Update cache
211: p_report_header_id IN NUMBER,
212: p_cache IN VARCHAR2,
213: p_query_wf_activities IN VARCHAR2) RETURN VARCHAR2
214: IS
215: v_status_code ap_lookup_codes.lookup_code%TYPE := NULL;
216:
217: --Bug 3612002:Changed datatype of the variable so that length
218: -- will become 4000.
219:
350: p_workflow_approved_flag IN VARCHAR2,
351: p_report_header_id IN NUMBER
352: ) RETURN VARCHAR2
353: IS
354: v_status_code ap_lookup_codes.lookup_code%TYPE := NULL;
355: v_status ap_lookup_codes.displayed_field%TYPE := NULL;
356:
357: BEGIN
358: -- Determine the status code
351: p_report_header_id IN NUMBER
352: ) RETURN VARCHAR2
353: IS
354: v_status_code ap_lookup_codes.lookup_code%TYPE := NULL;
355: v_status ap_lookup_codes.displayed_field%TYPE := NULL;
356:
357: BEGIN
358: -- Determine the status code
359: v_status_code := GetReportStatusCode(p_source,
362:
363: -- Using status code, retrieve displayed value.
364: SELECT DISPLAYED_FIELD
365: INTO v_status
366: FROM ap_lookup_codes
367: WHERE LOOKUP_TYPE = C_EXPENSE_REPORT_STATUS
368: AND LOOKUP_CODE = v_status_code;
369:
370: RETURN v_status;
391: p_status_code IN VARCHAR2)
392: RETURN VARCHAR2
393: IS
394: v_current_approver WF_ITEM_ATTRIBUTE_VALUES.TEXT_VALUE%TYPE := NULL;
395: v_status_code ap_lookup_codes.lookup_code%TYPE := NULL;
396:
397: BEGIN
398:
399: -- Use p_status_code if given.
439:
440: FUNCTION GetIncludeNotification(p_category IN VARCHAR2,
441: p_trx_id IN NUMBER)
442: RETURN VARCHAR2 IS
443: l_status ap_lookup_codes.lookup_code%TYPE ;
444: l_source ap_expense_report_headers.source%TYPE;
445: l_workflow_approved_flag ap_expense_report_headers.workflow_approved_flag%TYPE;
446: l_report_header_id ap_expense_report_headers.report_header_id%TYPE;
447: