[Home] [Help]
PACKAGE BODY: APPS.AP_APXT7F96_XMLP_PKG
Source
1 PACKAGE BODY AP_APXT7F96_XMLP_PKG AS
2 /* $Header: APXT7F96B.pls 120.0 2007/12/27 08:35:42 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_VL.PRECISION%TYPE;
6 MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
7 DESCR FND_CURRENCIES_VL.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_VL 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 C_NLS_NO_DATA_EXISTS := FND_MESSAGE.GET;
90 FND_MESSAGE.SET_NAME('SQLAP'
91 ,'AP_ALL_END_OF_REPORT');
92 C_NLS_END_OF_REPORT := FND_MESSAGE.GET;
93 C_NLS_NO_DATA_EXISTS := '*** ' || C_NLS_NO_DATA_EXISTS || ' ***';
94 C_NLS_END_OF_REPORT := '*** ' || C_NLS_END_OF_REPORT || ' ***';
95 RETURN (TRUE);
96 RETURN NULL;
97 EXCEPTION
98 WHEN OTHERS THEN
99 RETURN (FALSE);
100 END GET_NLS_STRINGS;
101
102 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
103 BEGIN
104 DECLARE
105 INIT_FAILURE EXCEPTION;
106 BEGIN
107 C_REPORT_START_DATE := SYSDATE;
108 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
109 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
110 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
111 /*SRW.MESSAGE('1'
112 ,'After SRWINIT')*/NULL;
113 END IF;
114 IF (GET_COMPANY_NAME <> TRUE) THEN
115 RAISE INIT_FAILURE;
116 END IF;
117 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
118 /*SRW.MESSAGE('2'
119 ,'After Get_Company_Name')*/NULL;
120 END IF;
121 IF (GET_NLS_STRINGS <> TRUE) THEN
122 RAISE INIT_FAILURE;
123 END IF;
124 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
125 /*SRW.MESSAGE('3'
126 ,'After Get_NLS_Strings')*/NULL;
127 END IF;
128 IF (GET_BASE_CURR_DATA <> TRUE) THEN
129 RAISE INIT_FAILURE;
130 END IF;
131 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
132 /*SRW.MESSAGE('4'
133 ,'After Get_Base_Curr_Data')*/NULL;
134 END IF;
135 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
136 /*SRW.BREAK*/NULL;
137 END IF;
138 IF (MAIL_SEL <> TRUE) THEN
139 RAISE INIT_FAILURE;
140 END IF;
141 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
142 /*SRW.MESSAGE('5'
143 ,'After Mail_Sel')*/NULL;
144 END IF;
145 IF (SEL_COMPANY_NAME <> TRUE) THEN
146 RAISE INIT_FAILURE;
147 END IF;
148 IF (P_DEBUG_SWITCH in ('y','Y')) THEN
149 /*SRW.MESSAGE('6'
150 ,'After Sel_Company_Name')*/NULL;
151 END IF;
152 RETURN (TRUE);
153 EXCEPTION
154 WHEN OTHERS THEN
155 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
156 END;
157 RETURN (TRUE);
158 END BEFOREREPORT;
159
160 FUNCTION AFTERREPORT RETURN BOOLEAN IS
161 BEGIN
162 BEGIN
163 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
164 IF (P_DEBUG_SWITCH = 'Y') THEN
165 /*SRW.MESSAGE('20'
166 ,'After SRWEXIT')*/NULL;
167 END IF;
168 EXCEPTION
169 WHEN OTHERS THEN
170 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
171 END;
172 RETURN (TRUE);
173 END AFTERREPORT;
174
175 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
176 L_CHART_OF_ACCOUNTS_ID GL_SETS_OF_BOOKS.CHART_OF_ACCOUNTS_ID%TYPE;
177 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
178 L_SOB_ID NUMBER;
179 BEGIN
180 IF P_SET_OF_BOOKS_ID IS NOT NULL THEN
181 L_SOB_ID := P_SET_OF_BOOKS_ID;
182 SELECT
183 NAME,
184 CHART_OF_ACCOUNTS_ID
185 INTO L_NAME,L_CHART_OF_ACCOUNTS_ID
186 FROM
187 GL_SETS_OF_BOOKS
188 WHERE SET_OF_BOOKS_ID = L_SOB_ID;
189 C_COMPANY_NAME_HEADER := L_NAME;
190 C_CHART_OF_ACCOUNTS_ID := L_CHART_OF_ACCOUNTS_ID;
191 END IF;
192 RETURN (TRUE);
193 RETURN NULL;
194 EXCEPTION
195 WHEN OTHERS THEN
196 RETURN (FALSE);
197 END GET_COMPANY_NAME;
198
199 FUNCTION MAIL_SEL RETURN BOOLEAN IS
200 BEGIN
201 SELECT
202 NUMBER_OF_DOCUMENTS,
203 TOTAL_REPORTED,
204 TOTAL_WITHHELD
205 INTO C_NUMBER_OF_DOCS,C_TOTAL_REPORTED,C_TOTAL_WITHHELD
206 FROM
207 AP_1096_DATA
208 WHERE TAX_ENTITY_ID = P_TAX_ENTITY_ID;
209 RETURN (TRUE);
210 RETURN NULL;
211 EXCEPTION
212 WHEN NO_DATA_FOUND THEN
213 C_NUMBER_OF_DOCS := 0;
214 C_TOTAL_REPORTED := 0;
215 C_TOTAL_WITHHELD := 0;
216 RETURN TRUE;
217 WHEN OTHERS THEN
218 RETURN (FALSE);
219 END MAIL_SEL;
220
221 FUNCTION SEL_COMPANY_NAME RETURN BOOLEAN IS
222 BEGIN
223 SELECT
224 DECODE(P_ADDRESS_CHOICE
225 ,'ADDRESS1'
226 ,HR.ADDRESS_LINE_1
227 ,'LOCATION'
228 ,HR.LOCATION_CODE
229 ,'REP_ENTITY'
230 ,RE.ENTITY_NAME
231 ,HR.ADDRESS_LINE_1),
232 DECODE(P_ADDRESS_CHOICE
233 ,'ADDRESS1'
234 ,HR.ADDRESS_LINE_2
235 ,'LOCATION'
236 ,HR.ADDRESS_LINE_1
237 ,'REP_ENTITY'
238 ,HR.ADDRESS_LINE_1
239 ,HR.ADDRESS_LINE_2),
240 DECODE(P_ADDRESS_CHOICE
241 ,'ADDRESS1'
242 ,HR.ADDRESS_LINE_3
243 ,'LOCATION'
244 ,HR.ADDRESS_LINE_2
245 ,'REP_ENTITY'
246 ,HR.ADDRESS_LINE_2
247 ,HR.ADDRESS_LINE_3),
248 HR.TOWN_OR_CITY,
249 NVL(HR.REGION_3
250 ,HR.REGION_2),
251 REPLACE(REPLACE(HR.POSTAL_CODE
252 ,' '
253 ,'')
254 ,'-'
255 ,''),
256 RE.TAX_IDENTIFICATION_NUM
257 INTO C_COMPANY_NAME,C_US_LINE2,C_US_LINE3,C_US_CITY,C_US_STATE,C_US_ZIP,C_TIN
258 FROM
259 HR_LOCATIONS HR,
260 AP_REPORTING_ENTITIES RE
261 WHERE RE.TAX_ENTITY_ID = P_TAX_ENTITY_ID
262 AND RE.LOCATION_ID = HR.LOCATION_ID;
263 RETURN (TRUE);
264 RETURN NULL;
265 EXCEPTION
266 WHEN OTHERS THEN
267 RETURN (FALSE);
268 END SEL_COMPANY_NAME;
269
270 FUNCTION C_NLS_YES_P RETURN VARCHAR2 IS
271 BEGIN
272 RETURN C_NLS_YES;
273 END C_NLS_YES_P;
274
275 FUNCTION C_NLS_NO_P RETURN VARCHAR2 IS
276 BEGIN
277 RETURN C_NLS_NO;
278 END C_NLS_NO_P;
279
280 FUNCTION C_NLS_ALL_P RETURN VARCHAR2 IS
281 BEGIN
282 RETURN C_NLS_ALL;
283 END C_NLS_ALL_P;
284
285 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
286 BEGIN
287 RETURN C_NLS_NO_DATA_EXISTS;
288 END C_NLS_NO_DATA_EXISTS_P;
289
290 FUNCTION C_NLS_VOID_P RETURN VARCHAR2 IS
291 BEGIN
292 RETURN C_NLS_VOID;
293 END C_NLS_VOID_P;
294
295 FUNCTION C_NLS_NA_P RETURN VARCHAR2 IS
296 BEGIN
297 RETURN C_NLS_NA;
298 END C_NLS_NA_P;
299
300 FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
301 BEGIN
302 RETURN C_NLS_END_OF_REPORT;
303 END C_NLS_END_OF_REPORT_P;
304
305 FUNCTION C_REPORT_START_DATE_P RETURN DATE IS
306 BEGIN
307 RETURN C_REPORT_START_DATE;
308 END C_REPORT_START_DATE_P;
309
310 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
311 BEGIN
312 RETURN C_COMPANY_NAME_HEADER;
313 END C_COMPANY_NAME_HEADER_P;
314
315 FUNCTION C_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
316 BEGIN
317 RETURN C_BASE_CURRENCY_CODE;
318 END C_BASE_CURRENCY_CODE_P;
319
320 FUNCTION C_BASE_PRECISION_P RETURN NUMBER IS
321 BEGIN
322 RETURN C_BASE_PRECISION;
323 END C_BASE_PRECISION_P;
324
325 FUNCTION C_BASE_MIN_ACCT_UNIT_P RETURN NUMBER IS
326 BEGIN
327 RETURN C_BASE_MIN_ACCT_UNIT;
328 END C_BASE_MIN_ACCT_UNIT_P;
329
330 FUNCTION C_BASE_DESCRIPTION_P RETURN VARCHAR2 IS
331 BEGIN
332 RETURN C_BASE_DESCRIPTION;
333 END C_BASE_DESCRIPTION_P;
334
335 FUNCTION C_CHART_OF_ACCOUNTS_ID_P RETURN NUMBER IS
336 BEGIN
337 RETURN C_CHART_OF_ACCOUNTS_ID;
338 END C_CHART_OF_ACCOUNTS_ID_P;
339
340 FUNCTION APPLICATIONS_TEMPLATE_REPORT_P RETURN VARCHAR2 IS
341 BEGIN
342 RETURN APPLICATIONS_TEMPLATE_REPORT;
343 END APPLICATIONS_TEMPLATE_REPORT_P;
344
345 FUNCTION C_NUMBER_OF_DOCS_P RETURN NUMBER IS
346 BEGIN
347 RETURN C_NUMBER_OF_DOCS;
348 END C_NUMBER_OF_DOCS_P;
349
350 FUNCTION C_TOTAL_REPORTED_P RETURN NUMBER IS
351 BEGIN
352 RETURN C_TOTAL_REPORTED;
353 END C_TOTAL_REPORTED_P;
354
355 FUNCTION C_TOTAL_WITHHELD_P RETURN NUMBER IS
356 BEGIN
357 RETURN C_TOTAL_WITHHELD;
358 END C_TOTAL_WITHHELD_P;
359
360 FUNCTION C_COMPANY_NAME_P RETURN VARCHAR2 IS
361 BEGIN
362 RETURN C_COMPANY_NAME;
363 END C_COMPANY_NAME_P;
364
365 FUNCTION C_US_LINE2_P RETURN VARCHAR2 IS
366 BEGIN
367 RETURN C_US_LINE2;
368 END C_US_LINE2_P;
369
370 FUNCTION C_US_LINE3_P RETURN VARCHAR2 IS
371 BEGIN
372 RETURN C_US_LINE3;
373 END C_US_LINE3_P;
374
375 FUNCTION C_US_CITY_P RETURN VARCHAR2 IS
376 BEGIN
377 RETURN C_US_CITY;
378 END C_US_CITY_P;
379
380 FUNCTION C_US_STATE_P RETURN VARCHAR2 IS
381 BEGIN
382 RETURN C_US_STATE;
383 END C_US_STATE_P;
384
385 FUNCTION C_US_ZIP_P RETURN VARCHAR2 IS
386 BEGIN
387 RETURN C_US_ZIP;
388 END C_US_ZIP_P;
389
390 FUNCTION C_TIN_P RETURN VARCHAR2 IS
391 BEGIN
392 RETURN C_TIN;
393 END C_TIN_P;
394
395 END AP_APXT7F96_XMLP_PKG;
396