[Home] [Help]
PACKAGE BODY: APPS.AP_APXVDLET_XMLP_PKG
Source
1 PACKAGE BODY AP_APXVDLET_XMLP_PKG AS
2 /* $Header: APXVDLETB.pls 120.0 2007/12/27 08:47:25 vjaganat noship $ */
3 DO_SQL_FAILURE EXCEPTION;
4 FUNCTION GET_BASE_CURR_DATA RETURN BOOLEAN IS
5 BASE_CURR AP_SYSTEM_PARAMETERS.BASE_CURRENCY_CODE%TYPE;
6 PREC FND_CURRENCIES_VL.PRECISION%TYPE;
7 MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
8 DESCR FND_CURRENCIES_VL.DESCRIPTION%TYPE;
9 BEGIN
10 BASE_CURR := '';
11 PREC := 0;
12 MIN_AU := 0;
13 DESCR := '';
14 SELECT
15 P.BASE_CURRENCY_CODE,
16 C.PRECISION,
17 C.MINIMUM_ACCOUNTABLE_UNIT,
18 C.DESCRIPTION
19 INTO
20 BASE_CURR
21 ,PREC
22 ,MIN_AU
23 ,DESCR
24 FROM
25 AP_SYSTEM_PARAMETERS P,
26 FND_CURRENCIES_VL C
27 WHERE P.BASE_CURRENCY_CODE = C.CURRENCY_CODE;
28 C_BASE_CURRENCY_CODE := BASE_CURR;
29 C_BASE_PRECISION := PREC;
30 C_BASE_MIN_ACCT_UNIT := MIN_AU;
31 C_BASE_DESCRIPTION := DESCR;
32 RETURN (TRUE);
33 RETURN NULL;
34 EXCEPTION
35 WHEN OTHERS THEN
36 RETURN (FALSE);
37 END GET_BASE_CURR_DATA;
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 FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
47 BEGIN
48 RETURN (TRUE);
49 RETURN NULL;
50 EXCEPTION
51 WHEN OTHERS THEN
52 RETURN (FALSE);
53 END GET_COVER_PAGE_VALUES;
54 FUNCTION GET_NLS_STRINGS RETURN BOOLEAN IS
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 NLS_ALL := '';
60 NLS_YES := '';
61 NLS_NO := '';
62 SELECT
63 LY.MEANING,
64 LN.MEANING,
65 LA.DISPLAYED_FIELD
66 INTO
67 NLS_YES
68 ,NLS_NO
69 ,NLS_ALL
70 FROM
71 FND_LOOKUPS LY,
72 FND_LOOKUPS LN,
73 AP_LOOKUP_CODES LA
74 WHERE LY.LOOKUP_TYPE = 'YES_NO'
75 AND LY.LOOKUP_CODE = 'Y'
76 AND LN.LOOKUP_TYPE = 'YES_NO'
77 AND LN.LOOKUP_CODE = 'N'
78 AND LA.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
79 AND LA.LOOKUP_CODE = 'ALL';
80 C_NLS_YES := NLS_YES;
81 C_NLS_NO := NLS_NO;
82 C_NLS_ALL := NLS_ALL;
83 FND_MESSAGE.SET_NAME('SQLAP'
84 ,'AP_APPRVL_NO_DATA');
85 C_NLS_NO_DATA_EXISTS := '*** ' || C_NLS_NO_DATA_EXISTS || ' ***';
86 RETURN (TRUE);
87 RETURN NULL;
88 EXCEPTION
89 WHEN OTHERS THEN
90 RETURN (FALSE);
91 END GET_NLS_STRINGS;
92 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
93 BEGIN
94 DECLARE
95 INIT_FAILURE EXCEPTION;
96 FROM_ADDRESS_LINE1 HR_LOCATIONS.ADDRESS_LINE_1%TYPE;
97 FROM_ADDRESS_LINE2 HR_LOCATIONS.ADDRESS_LINE_2%TYPE;
98 FROM_ADDRESS_LINE3 HR_LOCATIONS.ADDRESS_LINE_3%TYPE;
99 FROM_CITY HR_LOCATIONS.TOWN_OR_CITY%TYPE;
100 FROM_STATE HR_LOCATIONS.REGION_3%TYPE;
101 FROM_ZIP HR_LOCATIONS.POSTAL_CODE%TYPE;
102 LOCATION_ID HR_LOCATIONS.LOCATION_ID%TYPE;
103 DISP_RETURN_DATE VARCHAR2(30);
104 BEGIN
105 SELECT
106 SUBSTR(L.ADDRESS_LINE_1
107 ,1
108 ,35),
109 SUBSTR(L.ADDRESS_LINE_2
110 ,1
111 ,35),
112 SUBSTR(L.ADDRESS_LINE_3
113 ,1
114 ,35),
115 SUBSTR(L.TOWN_OR_CITY
116 ,1
117 ,30),
118 SUBSTR(NVL(L.REGION_3
119 ,L.REGION_2)
120 ,1
121 ,30),
122 SUBSTR(L.POSTAL_CODE
123 ,1
124 ,20)
125 INTO
126 FROM_ADDRESS_LINE1
127 ,FROM_ADDRESS_LINE2
128 ,FROM_ADDRESS_LINE3
129 ,FROM_CITY
130 ,FROM_STATE
131 ,FROM_ZIP
132 FROM
133 HR_LOCATIONS L
134 WHERE L.LOCATION_ID = P_LOCATION_ID;
138 C_FROM_CITY := FROM_CITY;
135 C_FROM_ADD_LINE_1 := FROM_ADDRESS_LINE1;
136 C_FROM_ADD_LINE_2 := FROM_ADDRESS_LINE2;
137 C_FROM_ADD_LINE_3 := FROM_ADDRESS_LINE3;
139 C_FROM_STATE := FROM_STATE;
140 C_FROM_ZIP := FROM_ZIP;
141 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
142 IF (P_DEBUG_SWITCH = 'Y') THEN
143 NULL;
144 END IF;
145 IF (GET_COMPANY_NAME <> TRUE) THEN
146 RAISE INIT_FAILURE;
147 END IF;
148 IF (P_DEBUG_SWITCH = 'Y') THEN
149 NULL;
150 END IF;
151 IF (GET_NLS_STRINGS <> TRUE) THEN
152 RAISE INIT_FAILURE;
153 END IF;
154 IF (P_DEBUG_SWITCH = 'Y') THEN
155 NULL;
156 END IF;
157 IF (GET_BASE_CURR_DATA <> TRUE) THEN
158 RAISE INIT_FAILURE;
159 END IF;
160 IF (P_DEBUG_SWITCH = 'Y') THEN
161 NULL;
162 END IF;
163 IF (POPULATE_MLS_LEXICALS = FALSE) THEN
164 RAISE INIT_FAILURE;
165 END IF;
166 IF (P_DEBUG_SWITCH = 'Y') THEN
167 NULL;
168 END IF;
169 IF (P_DEBUG_SWITCH = 'Y') THEN
170 NULL;
171 END IF;
172 RETURN (TRUE);
173 EXCEPTION
174 WHEN OTHERS THEN
175 RAISE_APPLICATION_ERROR(-20101
176 ,NULL);
177 END;
178 RETURN (TRUE);
179 END BEFOREREPORT;
180 FUNCTION AFTERREPORT RETURN BOOLEAN IS
181 BEGIN
182 BEGIN
183 IF (P_DEBUG_SWITCH = 'Y') THEN
184 NULL;
185 END IF;
186 EXCEPTION
187 WHEN OTHERS THEN
188 RAISE_APPLICATION_ERROR(-20101
189 ,NULL);
190 END;
191 RETURN (TRUE);
192 END AFTERREPORT;
193 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
194 L_CHART_OF_ACCOUNTS_ID GL_SETS_OF_BOOKS.CHART_OF_ACCOUNTS_ID%TYPE;
195 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
196 L_SOB_ID NUMBER;
197 L_REPORT_START_DATE DATE;
198 L_CURDATE VARCHAR2(25);
199 BEGIN
200 L_REPORT_START_DATE := SYSDATE;
201 L_SOB_ID := P_SET_OF_BOOKS_ID;
202 SELECT
203 NAME,
204 CHART_OF_ACCOUNTS_ID
205 INTO
206 L_NAME
207 ,L_CHART_OF_ACCOUNTS_ID
208 FROM
209 GL_SETS_OF_BOOKS
210 WHERE SET_OF_BOOKS_ID = L_SOB_ID;
211 SELECT
212 TO_CHAR(SYSDATE
213 ,'fmMonth DD, YYYY')
214 INTO
215 L_CURDATE
216 FROM
217 DUAL;
218 C_COMPANY_NAME_HEADER := L_NAME;
219 C_CHART_OF_ACCOUNTS_ID := L_CHART_OF_ACCOUNTS_ID;
220 C_REPORT_START_DATE := L_REPORT_START_DATE;
221 C_CURDATE := L_CURDATE;
222 RETURN (TRUE);
223 RETURN NULL;
224 EXCEPTION
225 WHEN OTHERS THEN
226 RETURN (FALSE);
227 END GET_COMPANY_NAME;
228 FUNCTION CALCULATE_RUN_TIME RETURN BOOLEAN IS
229 END_DATE DATE;
230 START_DATE DATE;
231 BEGIN
232 END_DATE := SYSDATE;
233 START_DATE := C_REPORT_START_DATE;
234 C_REPORT_RUN_TIME := TO_CHAR(TO_DATE('01/01/0001'
235 ,'DD/MM/YYYY') + ((END_DATE - START_DATE))
236 ,'HH24:MI:SS');
237 RETURN (TRUE);
238 RETURN NULL;
239 EXCEPTION
240 WHEN OTHERS THEN
241 RAISE_APPLICATION_ERROR(-20101
242 ,NULL);
243 END CALCULATE_RUN_TIME;
244 FUNCTION POPULATE_MLS_LEXICALS RETURN BOOLEAN IS
245 SESSION_LANGUAGE FND_LANGUAGES.NLS_LANGUAGE%TYPE;
246 BASE_LANGUAGE FND_LANGUAGES.NLS_LANGUAGE%TYPE;
247 BEGIN
248 SESSION_LANGUAGE := '';
249 BASE_LANGUAGE := '';
250 SELECT
251 SUBSTR(USERENV('LANGUAGE')
252 ,1
253 ,INSTR(USERENV('LANGUAGE')
254 ,'_') - 1)
255 INTO
256 SESSION_LANGUAGE
257 FROM
258 DUAL;
259 SELECT
260 NLS_LANGUAGE
261 INTO
262 BASE_LANGUAGE
263 FROM
264 FND_LANGUAGES
265 WHERE INSTALLED_FLAG = 'B';
266 LP_LANGUAGE_WHERE := ' and nvl(pvs.language,' || '''' || BASE_LANGUAGE || ''')=' || '''' || SESSION_LANGUAGE || '''';
267 RETURN (TRUE);
268 RETURN NULL;
269 EXCEPTION
270 WHEN DO_SQL_FAILURE THEN
271 RETURN (TRUE);
272 WHEN OTHERS THEN
273 RETURN (FALSE);
274 END POPULATE_MLS_LEXICALS;
275 FUNCTION C_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
276 BEGIN
277 RETURN C_BASE_CURRENCY_CODE;
278 END C_BASE_CURRENCY_CODE_P;
279 FUNCTION C_BASE_PRECISION_P RETURN NUMBER IS
280 BEGIN
281 RETURN C_BASE_PRECISION;
282 END C_BASE_PRECISION_P;
283 FUNCTION C_BASE_MIN_ACCT_UNIT_P RETURN NUMBER IS
284 BEGIN
285 RETURN C_BASE_MIN_ACCT_UNIT;
286 END C_BASE_MIN_ACCT_UNIT_P;
287 FUNCTION C_BASE_DESCRIPTION_P RETURN VARCHAR2 IS
288 BEGIN
289 RETURN C_BASE_DESCRIPTION;
290 END C_BASE_DESCRIPTION_P;
291 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
292 BEGIN
293 RETURN C_COMPANY_NAME_HEADER;
294 END C_COMPANY_NAME_HEADER_P;
295 FUNCTION C_REPORT_START_DATE_P RETURN DATE IS
296 BEGIN
297 RETURN C_REPORT_START_DATE;
298 END C_REPORT_START_DATE_P;
299 FUNCTION C_NLS_YES_P RETURN VARCHAR2 IS
300 BEGIN
301 RETURN C_NLS_YES;
302 END C_NLS_YES_P;
303 FUNCTION C_NLS_NO_P RETURN VARCHAR2 IS
304 BEGIN
305 RETURN C_NLS_NO;
306 END C_NLS_NO_P;
307 FUNCTION C_NLS_ALL_P RETURN VARCHAR2 IS
308 BEGIN
309 RETURN C_NLS_ALL;
310 END C_NLS_ALL_P;
311 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
312 BEGIN
313 RETURN C_NLS_NO_DATA_EXISTS;
314 END C_NLS_NO_DATA_EXISTS_P;
315 FUNCTION C_REPORT_RUN_TIME_P RETURN VARCHAR2 IS
316 BEGIN
317 RETURN C_REPORT_RUN_TIME;
318 END C_REPORT_RUN_TIME_P;
319 FUNCTION C_CHART_OF_ACCOUNTS_ID_P RETURN NUMBER IS
320 BEGIN
321 RETURN C_CHART_OF_ACCOUNTS_ID;
322 END C_CHART_OF_ACCOUNTS_ID_P;
323 FUNCTION C_CURDATE_P RETURN VARCHAR2 IS
324 BEGIN
325 RETURN C_CURDATE;
326 END C_CURDATE_P;
327 FUNCTION C_FROM_ADD_LINE_1_P RETURN VARCHAR2 IS
328 BEGIN
329 RETURN C_FROM_ADD_LINE_1;
330 END C_FROM_ADD_LINE_1_P;
331 FUNCTION C_FROM_ADD_LINE_2_P RETURN VARCHAR2 IS
332 BEGIN
333 RETURN C_FROM_ADD_LINE_2;
334 END C_FROM_ADD_LINE_2_P;
335 FUNCTION C_FROM_ADD_LINE_3_P RETURN VARCHAR2 IS
336 BEGIN
337 RETURN C_FROM_ADD_LINE_3;
338 END C_FROM_ADD_LINE_3_P;
339 FUNCTION C_FROM_CITY_P RETURN VARCHAR2 IS
340 BEGIN
341 RETURN C_FROM_CITY;
342 END C_FROM_CITY_P;
343 FUNCTION C_FROM_STATE_P RETURN VARCHAR2 IS
344 BEGIN
345 RETURN C_FROM_STATE;
346 END C_FROM_STATE_P;
347 FUNCTION C_FROM_ZIP_P RETURN VARCHAR2 IS
348 BEGIN
349 RETURN C_FROM_ZIP;
350 END C_FROM_ZIP_P;
351 END AP_APXVDLET_XMLP_PKG;
352