[Home] [Help]
PACKAGE BODY: APPS.AP_APXIAWRE_XMLP_PKG
Source
1 PACKAGE BODY AP_APXIAWRE_XMLP_PKG AS
2 /* $Header: APXIAWREB.pls 120.0 2007/12/27 07:43:33 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 /*SRW.MESSAGE('4'
14 ,'1After Get_Base_Curr_Data')*/NULL;
15 SELECT
16 P.BASE_CURRENCY_CODE,
17 C.PRECISION,
18 C.MINIMUM_ACCOUNTABLE_UNIT,
19 C.DESCRIPTION
20 INTO BASE_CURR,PREC,MIN_AU,DESCR
21 FROM
22 AP_SYSTEM_PARAMETERS P,
23 FND_CURRENCIES C
24 WHERE P.BASE_CURRENCY_CODE = C.CURRENCY_CODE;
25 /*SRW.MESSAGE('4'
26 ,'2After Get_Base_Curr_Data')*/NULL;
27 C_BASE_CURRENCY_CODE := BASE_CURR;
28 C_BASE_PRECISION := PREC;
29 C_BASE_MIN_ACCT_UNIT := MIN_AU;
30 C_BASE_DESCRIPTION := DESCR;
31 RETURN (TRUE);
32 RETURN NULL;
33 EXCEPTION
34 WHEN OTHERS THEN
35 RETURN (FALSE);
36 END GET_BASE_CURR_DATA;
37
38 FUNCTION CUSTOM_INIT RETURN BOOLEAN IS
39 BEGIN
40 RETURN (TRUE);
41 RETURN NULL;
42 EXCEPTION
43 WHEN OTHERS THEN
44 RETURN (FALSE);
45 END CUSTOM_INIT;
46
47 FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
48 BEGIN
49 RETURN (TRUE);
50 RETURN NULL;
51 EXCEPTION
52 WHEN OTHERS THEN
53 RETURN (FALSE);
54 END GET_COVER_PAGE_VALUES;
55
56 FUNCTION GET_NLS_STRINGS RETURN BOOLEAN IS
57 NLS_VOID AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
58 NLS_NA AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
59 NLS_ALL AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
60 NLS_YES FND_LOOKUPS.MEANING%TYPE;
61 NLS_NO FND_LOOKUPS.MEANING%TYPE;
62 BEGIN
63 SELECT
64 LY.MEANING,
65 LN.MEANING,
66 L1.DISPLAYED_FIELD,
67 L2.DISPLAYED_FIELD,
68 L3.DISPLAYED_FIELD
69 INTO NLS_YES,NLS_NO,NLS_ALL,NLS_VOID,NLS_NA
70 FROM
71 FND_LOOKUPS LY,
72 FND_LOOKUPS LN,
73 AP_LOOKUP_CODES L1,
74 AP_LOOKUP_CODES L2,
75 AP_LOOKUP_CODES L3
76 WHERE LY.LOOKUP_TYPE = 'YES_NO'
77 AND LY.LOOKUP_CODE = 'Y'
78 AND LN.LOOKUP_TYPE = 'YES_NO'
79 AND LN.LOOKUP_CODE = 'N'
80 AND L1.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
81 AND L1.LOOKUP_CODE = 'ALL'
82 AND L2.LOOKUP_TYPE = 'NLS TRANSLATION'
83 AND L2.LOOKUP_CODE = 'VOID'
84 AND L3.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
85 AND L3.LOOKUP_CODE = 'NA';
86 C_NLS_YES := NLS_YES;
87 C_NLS_NO := NLS_NO;
88 C_NLS_ALL := NLS_ALL;
89 C_NLS_VOID := NLS_VOID;
90 C_NLS_NA := NLS_NA;
91 FND_MESSAGE.SET_NAME('SQLAP'
92 ,'AP_APPRVL_NO_DATA');
93 C_NLS_NO_DATA_EXISTS := FND_MESSAGE.GET;
94 FND_MESSAGE.SET_NAME('SQLAP'
95 ,'AP_ALL_END_OF_REPORT');
96 C_NLS_END_OF_REPORT := FND_MESSAGE.GET;
97 --C_NLS_NO_DATA_EXISTS := '*** ' || C_NLS_NO_DATA_EXISTS || ' ***';
98 --C_NLS_END_OF_REPORT := '*** ' || C_NLS_END_OF_REPORT || ' ***';
99 RETURN (TRUE);
100 RETURN NULL;
101 EXCEPTION
102 WHEN OTHERS THEN
103 RETURN (FALSE);
104 END GET_NLS_STRINGS;
105
106 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
107 BEGIN
108 DECLARE
109 INIT_FAILURE EXCEPTION;
110 A NUMBER;
111 BEGIN
112 P_FROM_INVOICE_DATE_V:=to_char(P_FROM_INVOICE_DATE,'DD-MON-YY');
113 P_TO_INVOICE_DATE_V:= to_char(P_TO_INVOICE_DATE,'DD-MON-YY');
114 SELECT
115 count(*)
116 INTO A
117 FROM
118 AP_INVOICES;
119 /*SRW.MESSAGE('1'
120 ,'After SRWINIT' || A)*/NULL;
121 C_REPORT_START_DATE := SYSDATE;
122 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
123 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
124 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
125 /*SRW.MESSAGE('1'
126 ,'After SRWINIT')*/NULL;
127 END IF;
128 IF (GET_COMPANY_NAME <> TRUE) THEN
129 RAISE INIT_FAILURE;
130 END IF;
131 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
132 /*SRW.MESSAGE('2'
133 ,'After Get_Company_Name')*/NULL;
134 END IF;
135 IF (GET_NLS_STRINGS <> TRUE) THEN
136 RAISE INIT_FAILURE;
137 END IF;
138 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
139 /*SRW.MESSAGE('3'
140 ,'After Get_NLS_Strings')*/NULL;
141 END IF;
142 IF (GET_BASE_CURR_DATA <> TRUE) THEN
143 RAISE INIT_FAILURE;
144 END IF;
145 /*SRW.MESSAGE('4'
146 ,'After Get_Base_Curr_Data')*/NULL;
147 LP_VENDOR_ID := ' ';
148 LP_INVOICES_NUMBER := ' ';
149 LP_INVOICE_DATE_FROM := ' ';
150 LP_INVOICE_DATE_TO := ' ';
151 LP_APPROVAL_TIMING := ' ';
152 /*SRW.MESSAGE('5'
153 ,'After set to null')*/NULL;
154 IF (P_VENDOR_ID IS NOT NULL) THEN
155 LP_VENDOR_ID := 'and ai.vendor_id = ' || TO_CHAR(P_VENDOR_ID);
156 END IF;
157 IF (P_INVOICE_NUM IS NOT NULL) THEN
158 LP_INVOICES_NUMBER := ' and ai.invoice_num = ''' || P_INVOICE_NUM || '''';
159 END IF;
160 IF (P_FROM_INVOICE_DATE IS NOT NULL) THEN
161 LP_INVOICE_DATE_FROM := ' and ai.invoice_date >= ''' || P_FROM_INVOICE_DATE || ''' ';
162 END IF;
163 IF (P_TO_INVOICE_DATE IS NOT NULL) THEN
164 LP_INVOICE_DATE_TO := ' and ai.invoice_date <= ''' || P_TO_INVOICE_DATE || ''' ';
165 END IF;
166 /*SRW.MESSAGE('6'
167 ,'After set parameters' || LP_INVOICE_DATE_FROM)*/NULL;
168 SELECT
169 APPROVAL_TIMING
170 INTO P_APPROVAL_TIMING
171 FROM
172 AP_SYSTEM_PARAMETERS;
173 /*SRW.MESSAGE('7'
174 ,'After check flag')*/NULL;
175 IF (P_APPROVAL_TIMING in ('VALIDATED','ACCOUNTED')) THEN
176 LP_APPROVAL_TIMING := ' AND AP_INVOICES_PKG.GET_APPROVAL_STATUS(AI.INVOICE_ID,
177 AI.INVOICE_AMOUNT,
178 AI.PAYMENT_STATUS_FLAG,
179 AI.INVOICE_TYPE_LOOKUP_CODE)
180 in ( ''APPROVED'',''UNPAID'')';
181 END IF;
182 IF (P_APPROVAL_TIMING = 'ACCOUNTED') THEN
183 LP_APPROVAL_TIMING := LP_APPROVAL_TIMING || ' AND AP_INVOICES_PKG.GET_Accounting_status(AI.INVOICE_ID) = ''ACCOUNTED''';
184 END IF;
185 IF P_VENDOR_ID IS NOT NULL THEN
186 SELECT
187 VENDOR_NAME
188 INTO P_VENDOR_NAME
189 FROM
190 PO_VENDORS
191 WHERE VENDOR_ID = P_VENDOR_ID;
192 END IF;
193 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
194 /*SRW.BREAK*/NULL;
195 END IF;
196 RETURN (TRUE);
197 EXCEPTION
198 WHEN OTHERS THEN
199 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
200 END;
201 RETURN (TRUE);
202 END BEFOREREPORT;
203
204 FUNCTION AFTERREPORT RETURN BOOLEAN IS
205 BEGIN
206 BEGIN
207 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
208 IF (P_DEBUG_SWITCH = 'Y') THEN
209 /*SRW.MESSAGE('20'
210 ,'After SRWEXIT')*/NULL;
211 END IF;
212 EXCEPTION
213 WHEN OTHERS THEN
214 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
215 END;
216 RETURN (TRUE);
217 END AFTERREPORT;
218
219 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
220 L_CHART_OF_ACCOUNTS_ID GL_SETS_OF_BOOKS.CHART_OF_ACCOUNTS_ID%TYPE;
221 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
222 L_SOB_ID NUMBER;
223 BEGIN
224 IF P_SET_OF_BOOKS_ID IS NOT NULL THEN
225 L_SOB_ID := P_SET_OF_BOOKS_ID;
226 SELECT
227 NAME,
228 CHART_OF_ACCOUNTS_ID
229 INTO L_NAME,L_CHART_OF_ACCOUNTS_ID
230 FROM
231 GL_SETS_OF_BOOKS
232 WHERE SET_OF_BOOKS_ID = L_SOB_ID;
233 C_COMPANY_NAME_HEADER := L_NAME;
234 C_CHART_OF_ACCOUNTS_ID := L_CHART_OF_ACCOUNTS_ID;
235 END IF;
236 RETURN (TRUE);
237 RETURN NULL;
238 EXCEPTION
239 WHEN OTHERS THEN
240 RETURN (FALSE);
241 END GET_COMPANY_NAME;
242
243 FUNCTION CF_RAISE_EVENTFORMULA(C_ITERATION IN NUMBER
244 ,C_INVOICE_ID IN NUMBER) RETURN NUMBER IS
245 L_DUMMY VARCHAR2(100);
246 pragma autonomous_transaction;
247 BEGIN
248
249 UPDATE
250 AP_INVOICES
251 SET
252 APPROVAL_ITERATION = NVL(C_ITERATION
253 ,0) + 1
254 ,WFAPPROVAL_STATUS = 'INITIATED'
255 WHERE INVOICE_ID = C_INVOICE_ID;
256 /*SRW.MESSAGE('33'
257 ,'Before start approval process')*/NULL;
258 AP_WORKFLOW_PKG.CREATE_INVAPP_PROCESS(C_INVOICE_ID
259 ,NVL(C_ITERATION
260 ,0) + 1
261 ,L_DUMMY);
262 /*SRW.MESSAGE('34'
263 ,'After start approval process')*/NULL;
264 COMMIT;
265 RETURN (0);
266 END CF_RAISE_EVENTFORMULA;
267
268 FUNCTION C_NLS_YES_P RETURN VARCHAR2 IS
269 BEGIN
270 RETURN C_NLS_YES;
271 END C_NLS_YES_P;
272
273 FUNCTION C_NLS_NO_P RETURN VARCHAR2 IS
274 BEGIN
275 RETURN C_NLS_NO;
276 END C_NLS_NO_P;
277
278 FUNCTION C_NLS_ALL_P RETURN VARCHAR2 IS
279 BEGIN
280 RETURN C_NLS_ALL;
281 END C_NLS_ALL_P;
282
283 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
284 BEGIN
285 RETURN C_NLS_NO_DATA_EXISTS;
286 END C_NLS_NO_DATA_EXISTS_P;
287
288 FUNCTION C_NLS_VOID_P RETURN VARCHAR2 IS
289 BEGIN
290 RETURN C_NLS_VOID;
291 END C_NLS_VOID_P;
292
293 FUNCTION C_NLS_NA_P RETURN VARCHAR2 IS
294 BEGIN
295 RETURN C_NLS_NA;
296 END C_NLS_NA_P;
297
298 FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
299 BEGIN
300 RETURN C_NLS_END_OF_REPORT;
301 END C_NLS_END_OF_REPORT_P;
302
303 FUNCTION C_REPORT_START_DATE_P RETURN DATE IS
304 BEGIN
305 RETURN C_REPORT_START_DATE;
306 END C_REPORT_START_DATE_P;
307
308 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
309 BEGIN
310 RETURN C_COMPANY_NAME_HEADER;
311 END C_COMPANY_NAME_HEADER_P;
312
313 FUNCTION C_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
314 BEGIN
315 RETURN C_BASE_CURRENCY_CODE;
316 END C_BASE_CURRENCY_CODE_P;
317
318 FUNCTION C_BASE_PRECISION_P RETURN NUMBER IS
319 BEGIN
320 RETURN C_BASE_PRECISION;
321 END C_BASE_PRECISION_P;
322
323 FUNCTION C_BASE_MIN_ACCT_UNIT_P RETURN NUMBER IS
324 BEGIN
325 RETURN C_BASE_MIN_ACCT_UNIT;
326 END C_BASE_MIN_ACCT_UNIT_P;
327
328 FUNCTION C_BASE_DESCRIPTION_P RETURN VARCHAR2 IS
329 BEGIN
330 RETURN C_BASE_DESCRIPTION;
331 END C_BASE_DESCRIPTION_P;
332
333 FUNCTION C_CHART_OF_ACCOUNTS_ID_P RETURN NUMBER IS
334 BEGIN
335 RETURN C_CHART_OF_ACCOUNTS_ID;
336 END C_CHART_OF_ACCOUNTS_ID_P;
337
338 FUNCTION APPLICATIONS_TEMPLATE_REPORT_P RETURN VARCHAR2 IS
339 BEGIN
340 RETURN APPLICATIONS_TEMPLATE_REPORT;
341 END APPLICATIONS_TEMPLATE_REPORT_P;
342
343 END AP_APXIAWRE_XMLP_PKG;
344