1 PACKAGE BODY AP_APXMTMRR_XMLP_PKG AS
2 /* $Header: APXMTMRRB.pls 120.0 2007/12/27 08:17:22 vjaganat noship $ */
3 FUNCTION GET_BASE_CURR_DATA RETURN BOOLEAN IS
4 BASE_CURR AP_SYSTEM_PARAMETERS.BASE_CURRENCY_CODE%TYPE;
5 PREC FND_CURRENCIES.PRECISION%TYPE;
6 MIN_AU FND_CURRENCIES.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
7 DESCR FND_CURRENCIES.DESCRIPTION%TYPE;
8 BEGIN
9 BASE_CURR := '';
10 PREC := 0;
11 MIN_AU := 0;
12 DESCR := '';
13 SELECT
14 P.BASE_CURRENCY_CODE,
15 C.PRECISION,
16 C.MINIMUM_ACCOUNTABLE_UNIT,
17 C.DESCRIPTION
18 INTO BASE_CURR,PREC,MIN_AU,DESCR
19 FROM
20 AP_SYSTEM_PARAMETERS P,
21 FND_CURRENCIES C
22 WHERE P.BASE_CURRENCY_CODE = C.CURRENCY_CODE;
23 C_BASE_CURRENCY_CODE := BASE_CURR;
24 C_BASE_PRECISION := PREC;
25 C_BASE_MIN_ACCT_UNIT := MIN_AU;
26 C_BASE_DESCRIPTION := DESCR;
27 RETURN (TRUE);
28 RETURN NULL;
29 EXCEPTION
30 WHEN OTHERS THEN
31 RETURN (FALSE);
32 END GET_BASE_CURR_DATA;
33
34 FUNCTION CUSTOM_INIT RETURN BOOLEAN IS
35 BEGIN
36 RETURN (TRUE);
37 RETURN NULL;
38 EXCEPTION
39 WHEN OTHERS THEN
40 RETURN (FALSE);
41 END CUSTOM_INIT;
42
43 FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
44 BEGIN
45 RETURN (TRUE);
46 RETURN NULL;
47 EXCEPTION
48 WHEN OTHERS THEN
49 RETURN (FALSE);
50 END GET_COVER_PAGE_VALUES;
51
52 FUNCTION GET_NLS_STRINGS RETURN BOOLEAN IS
53 NLS_VOID AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
54 NLS_NA AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
55 NLS_ALL AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
56 NLS_YES FND_LOOKUPS.MEANING%TYPE;
57 NLS_NO FND_LOOKUPS.MEANING%TYPE;
58 BEGIN
59 SELECT
60 LY.MEANING,
61 LN.MEANING,
62 L1.DISPLAYED_FIELD,
63 L2.DISPLAYED_FIELD,
64 L3.DISPLAYED_FIELD
65 INTO NLS_YES,NLS_NO,NLS_ALL,NLS_VOID,NLS_NA
66 FROM
67 FND_LOOKUPS LY,
68 FND_LOOKUPS LN,
69 AP_LOOKUP_CODES L1,
70 AP_LOOKUP_CODES L2,
71 AP_LOOKUP_CODES L3
72 WHERE LY.LOOKUP_TYPE = 'YES_NO'
73 AND LY.LOOKUP_CODE = 'Y'
74 AND LN.LOOKUP_TYPE = 'YES_NO'
75 AND LN.LOOKUP_CODE = 'N'
76 AND L1.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
77 AND L1.LOOKUP_CODE = 'ALL'
78 AND L2.LOOKUP_TYPE = 'NLS TRANSLATION'
79 AND L2.LOOKUP_CODE = 'VOID'
80 AND L3.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
81 AND L3.LOOKUP_CODE = 'NA';
82 C_NLS_YES := NLS_YES;
83 C_NLS_NO := NLS_NO;
84 C_NLS_ALL := NLS_ALL;
85 C_NLS_VOID := NLS_VOID;
86 C_NLS_NA := NLS_NA;
87 FND_MESSAGE.SET_NAME('SQLAP'
88 ,'AP_APPRVL_NO_DATA');
89 FND_MESSAGE.SET_NAME('SQLAP'
90 ,'AP_ALL_END_OF_REPORT');
91 C_NLS_NO_DATA_EXISTS := 'No Data Found';
92 C_NLS_END_OF_REPORT := 'End of Report';
93 RETURN (TRUE);
94 RETURN NULL;
95 EXCEPTION
96 WHEN OTHERS THEN
97 RETURN (FALSE);
98 END GET_NLS_STRINGS;
99
100 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
101 BEGIN
102 DECLARE
103 INIT_FAILURE EXCEPTION;
104 BEGIN
105 ZP_MODIFY_FROM_DATE := to_char(P_MODIFY_FROM_DATE,'DD-MON-YY');
106 ZP_MODIFY_TO_DATE := to_char(P_MODIFY_TO_DATE,'DD-MON-YY');
107
108 C_REPORT_START_DATE := SYSDATE;
109 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
110 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
111 NULL;
112 END IF;
113 IF (GET_COMPANY_NAME <> TRUE) THEN
114 RAISE INIT_FAILURE;
115 END IF;
116 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
117 NULL;
118 END IF;
119 IF (GET_NLS_STRINGS <> TRUE) THEN
120 RAISE INIT_FAILURE;
121 END IF;
122 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
123 NULL;
124 END IF;
125 IF (GET_BASE_CURR_DATA <> TRUE) THEN
126 RAISE INIT_FAILURE;
127 END IF;
128 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
129 NULL;
130 END IF;
131 LP_VENDOR_ID := ' ';
132 LP_VENDOR_SITE := ' ';
133 LP_MODIFY_FROM_DATE := ' ';
134 LP_MODIFY_TO_DATE := ' ';
135 LP_APPROVAL_STATUS := ' ';
136 IF (P_VENDOR_ID IS NOT NULL) THEN
137 LP_VENDOR_ID := 'and pv1.vendor_id =' || TO_CHAR(P_VENDOR_ID);
138 SELECT
139 VENDOR_NAME
140 INTO P_VENDOR_NAME
141 FROM
142 PO_VENDORS
143 WHERE VENDOR_ID = P_VENDOR_ID;
144 END IF;
145 IF (P_VENDOR_SITE IS NOT NULL) THEN
146 LP_VENDOR_SITE := 'and pvs.vendor_site_code = ''' || P_VENDOR_SITE || '''';
147 END IF;
148 IF (P_MODIFY_FROM_DATE IS NOT NULL) THEN
149 LP_MODIFY_FROM_DATE := ' and trunc(rct1.creation_date) >= ''' || TO_CHAR(P_MODIFY_FROM_DATE
150 ,'DD-MON-RR') || ''' ';
151 END IF;
152 IF (P_MODIFY_TO_DATE IS NOT NULL) THEN
153 LP_MODIFY_TO_DATE := ' and trunc(rct1.creation_date) <= ''' || TO_CHAR(P_MODIFY_TO_DATE
154 ,'DD-MON-RR') || ''' ';
155 END IF;
156 IF (P_APPROVAL_STATUS IS NOT NULL) THEN
157 IF UPPER(P_APPROVAL_STATUS) = 'PAID' THEN
158 LP_APPROVAL_STATUS := ' and ai.payment_status_flag in (''Y'',''P'') ';
159 ELSE
160 LP_APPROVAL_STATUS := ' and ap_invoices_pkg.get_approval_status(AI.INVOICE_ID,AI.INVOICE_AMOUNT,
161 AI.PAYMENT_STATUS_FLAG,AI.INVOICE_TYPE_LOOKUP_CODE) = ''' || P_APPROVAL_STATUS || ''' ';
162 END IF;
163 END IF;
164 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
165 NULL;
166 END IF;
167 RETURN (TRUE);
168 EXCEPTION
169 WHEN OTHERS THEN
170 RAISE_APPLICATION_ERROR(-20101
171 ,NULL);
172 END;
173 RETURN (TRUE);
174 END BEFOREREPORT;
175
176 FUNCTION AFTERREPORT RETURN BOOLEAN IS
177 BEGIN
178 BEGIN
179 IF (P_DEBUG_SWITCH = 'Y') THEN
180 NULL;
181 END IF;
182 EXCEPTION
183 WHEN OTHERS THEN
184 RAISE_APPLICATION_ERROR(-20101
185 ,NULL);
186 END;
187 RETURN (TRUE);
188 END AFTERREPORT;
189
190 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
191 L_CHART_OF_ACCOUNTS_ID GL_SETS_OF_BOOKS.CHART_OF_ACCOUNTS_ID%TYPE;
192 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
193 L_SOB_ID NUMBER;
194 BEGIN
195 IF P_SET_OF_BOOKS_ID IS NOT NULL THEN
196 L_SOB_ID := P_SET_OF_BOOKS_ID;
197 SELECT
198 NAME,
199 CHART_OF_ACCOUNTS_ID
200 INTO L_NAME,L_CHART_OF_ACCOUNTS_ID
201 FROM
202 GL_SETS_OF_BOOKS
203 WHERE SET_OF_BOOKS_ID = L_SOB_ID;
204 C_COMPANY_NAME_HEADER := L_NAME;
205 C_CHART_OF_ACCOUNTS_ID := L_CHART_OF_ACCOUNTS_ID;
206 END IF;
207 RETURN (TRUE);
208 RETURN NULL;
209 EXCEPTION
210 WHEN OTHERS THEN
211 RETURN (FALSE);
212 END GET_COMPANY_NAME;
213
214 FUNCTION C_NLS_YES_P RETURN VARCHAR2 IS
215 BEGIN
216 RETURN C_NLS_YES;
217 END C_NLS_YES_P;
218
219 FUNCTION C_NLS_NO_P RETURN VARCHAR2 IS
220 BEGIN
221 RETURN C_NLS_NO;
222 END C_NLS_NO_P;
223
224 FUNCTION C_NLS_ALL_P RETURN VARCHAR2 IS
225 BEGIN
226 RETURN C_NLS_ALL;
227 END C_NLS_ALL_P;
228
229 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
230 BEGIN
231 RETURN C_NLS_NO_DATA_EXISTS;
232 END C_NLS_NO_DATA_EXISTS_P;
233
234 FUNCTION C_NLS_VOID_P RETURN VARCHAR2 IS
235 BEGIN
236 RETURN C_NLS_VOID;
237 END C_NLS_VOID_P;
238
239 FUNCTION C_NLS_NA_P RETURN VARCHAR2 IS
240 BEGIN
241 RETURN C_NLS_NA;
242 END C_NLS_NA_P;
243
244 FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
245 BEGIN
246 RETURN C_NLS_END_OF_REPORT;
247 END C_NLS_END_OF_REPORT_P;
248
249 FUNCTION C_REPORT_START_DATE_P RETURN DATE IS
250 BEGIN
251 RETURN C_REPORT_START_DATE;
252 END C_REPORT_START_DATE_P;
253
254 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
255 BEGIN
256 RETURN C_COMPANY_NAME_HEADER;
257 END C_COMPANY_NAME_HEADER_P;
258
259 FUNCTION C_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
260 BEGIN
261 RETURN C_BASE_CURRENCY_CODE;
262 END C_BASE_CURRENCY_CODE_P;
263
264 FUNCTION C_BASE_PRECISION_P RETURN NUMBER IS
265 BEGIN
266 RETURN C_BASE_PRECISION;
267 END C_BASE_PRECISION_P;
268
269 FUNCTION C_BASE_MIN_ACCT_UNIT_P RETURN NUMBER IS
270 BEGIN
271 RETURN C_BASE_MIN_ACCT_UNIT;
272 END C_BASE_MIN_ACCT_UNIT_P;
273
274 FUNCTION C_BASE_DESCRIPTION_P RETURN VARCHAR2 IS
275 BEGIN
276 RETURN C_BASE_DESCRIPTION;
277 END C_BASE_DESCRIPTION_P;
278
279 FUNCTION C_CHART_OF_ACCOUNTS_ID_P RETURN NUMBER IS
280 BEGIN
281 RETURN C_CHART_OF_ACCOUNTS_ID;
282 END C_CHART_OF_ACCOUNTS_ID_P;
283
284 FUNCTION APPLICATIONS_TEMPLATE_REPORT_P RETURN VARCHAR2 IS
285 BEGIN
286 RETURN APPLICATIONS_TEMPLATE_REPORT;
287 END APPLICATIONS_TEMPLATE_REPORT_P;
288
289 END AP_APXMTMRR_XMLP_PKG;
290
291
[Home] [Help]