[Home] [Help]
PACKAGE BODY: APPS.AP_APXVDRAL_XMLP_PKG
Source
1 PACKAGE BODY AP_APXVDRAL_XMLP_PKG AS
2 /* $Header: APXVDRALB.pls 120.0 2007/12/27 08:48:19 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_ALL AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
54 NLS_YES FND_LOOKUPS.MEANING%TYPE;
55 NLS_NO FND_LOOKUPS.MEANING%TYPE;
56 BEGIN
57 NLS_ALL := '';
58 NLS_YES := '';
59 NLS_NO := '';
60 SELECT
61 LY.MEANING,
62 LN.MEANING,
63 LA.DISPLAYED_FIELD
64 INTO NLS_YES,NLS_NO,NLS_ALL
65 FROM
66 FND_LOOKUPS LY,
67 FND_LOOKUPS LN,
68 AP_LOOKUP_CODES LA
69 WHERE LY.LOOKUP_TYPE = 'YES_NO'
70 AND LY.LOOKUP_CODE = 'Y'
71 AND LN.LOOKUP_TYPE = 'YES_NO'
72 AND LN.LOOKUP_CODE = 'N'
73 AND LA.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
74 AND LA.LOOKUP_CODE = 'ALL';
75 C_NLS_YES := NLS_YES;
76 C_NLS_NO := NLS_NO;
77 C_NLS_ALL := NLS_ALL;
78 FND_MESSAGE.SET_NAME('SQLAP'
79 ,'AP_APPRVL_NO_DATA');
80 C_NLS_NO_DATA_EXISTS := FND_MESSAGE.GET;
81 C_NLS_NO_DATA_EXISTS := '*** ' || C_NLS_NO_DATA_EXISTS || ' ***';
82 RETURN (TRUE);
83 RETURN NULL;
84 EXCEPTION
85 WHEN OTHERS THEN
86 RETURN (FALSE);
87 END GET_NLS_STRINGS;
88
89 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
90 BEGIN
91 DECLARE
92 INIT_FAILURE EXCEPTION;
93 FROM_ADDRESS_LINE1 HR_LOCATIONS.ADDRESS_LINE_1%TYPE;
94 FROM_ADDRESS_LINE2 HR_LOCATIONS.ADDRESS_LINE_2%TYPE;
95 FROM_ADDRESS_LINE3 HR_LOCATIONS.ADDRESS_LINE_3%TYPE;
96 FROM_CITY HR_LOCATIONS.TOWN_OR_CITY%TYPE;
97 FROM_STATE HR_LOCATIONS.REGION_3%TYPE;
98 FROM_ZIP HR_LOCATIONS.POSTAL_CODE%TYPE;
99 LOCATION_ID HR_LOCATIONS.LOCATION_ID%TYPE;
100 DISP_RETURN_DATE VARCHAR2(30);
101 BEGIN
102 SELECT
103 SUBSTR(L.ADDRESS_LINE_1
104 ,1
105 ,35),
106 SUBSTR(L.ADDRESS_LINE_2
107 ,1
108 ,35),
109 SUBSTR(L.ADDRESS_LINE_3
110 ,1
111 ,35),
112 SUBSTR(L.TOWN_OR_CITY
113 ,1
114 ,30),
115 SUBSTR(NVL(L.REGION_3
116 ,L.REGION_2)
117 ,1
118 ,30),
119 SUBSTR(L.POSTAL_CODE
120 ,1
121 ,20)
122 INTO FROM_ADDRESS_LINE1,FROM_ADDRESS_LINE2,FROM_ADDRESS_LINE3,FROM_CITY,FROM_STATE,FROM_ZIP
123 FROM
124 HR_LOCATIONS L
125 WHERE L.LOCATION_CODE = P_LOCATION_CODE;
126 C_FROM_ADD_LINE_1 := FROM_ADDRESS_LINE1;
127 C_FROM_ADD_LINE_2 := FROM_ADDRESS_LINE2;
128 C_FROM_ADD_LINE_3 := FROM_ADDRESS_LINE3;
129 C_FROM_CITY := FROM_CITY;
130 C_FROM_STATE := FROM_STATE;
131 C_FROM_ZIP := FROM_ZIP;
132 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
133 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
134 IF (P_DEBUG_SWITCH = 'Y') THEN
135 /*SRW.MESSAGE('1'
136 ,'After SRWINIT')*/NULL;
137 END IF;
138 IF (GET_COMPANY_NAME <> TRUE) THEN
139 RAISE INIT_FAILURE;
140 END IF;
141 IF (P_DEBUG_SWITCH = 'Y') THEN
142 /*SRW.MESSAGE('2'
143 ,'After Get_Company_Name')*/NULL;
144 END IF;
145 IF (GET_NLS_STRINGS <> TRUE) THEN
146 RAISE INIT_FAILURE;
147 END IF;
148 IF (P_DEBUG_SWITCH = 'Y') THEN
149 /*SRW.MESSAGE('3'
150 ,'After Get_NLS_Strings')*/NULL;
151 END IF;
152 IF (GET_BASE_CURR_DATA <> TRUE) THEN
153 RAISE INIT_FAILURE;
154 END IF;
155 IF (P_DEBUG_SWITCH = 'Y') THEN
156 /*SRW.MESSAGE('4'
157 ,'After Get_Base_Curr_Data')*/NULL;
158 END IF;
159 IF (P_DEBUG_SWITCH = 'Y') THEN
160 /*SRW.BREAK*/NULL;
161 END IF;
162 RETURN (TRUE);
163 EXCEPTION
164 WHEN OTHERS THEN
165 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
166 END;
167 RETURN (TRUE);
168 END BEFOREREPORT;
169
170 FUNCTION AFTERREPORT RETURN BOOLEAN IS
171 BEGIN
172 BEGIN
173 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
174 IF (P_DEBUG_SWITCH = 'Y') THEN
175 /*SRW.MESSAGE('20'
176 ,'After SRWEXIT')*/NULL;
177 END IF;
178 EXCEPTION
179 WHEN OTHERS THEN
180 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
181 END;
182 RETURN (TRUE);
183 END AFTERREPORT;
184
185 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
186 L_CHART_OF_ACCOUNTS_ID GL_SETS_OF_BOOKS.CHART_OF_ACCOUNTS_ID%TYPE;
187 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
188 L_SOB_ID NUMBER;
189 L_REPORT_START_DATE DATE;
190 L_CURDATE VARCHAR2(20);
191 BEGIN
192 L_REPORT_START_DATE := SYSDATE;
193 L_SOB_ID := P_SET_OF_BOOKS_ID;
194 SELECT
195 NAME,
196 CHART_OF_ACCOUNTS_ID
197 INTO L_NAME,L_CHART_OF_ACCOUNTS_ID
198 FROM
199 GL_SETS_OF_BOOKS
200 WHERE SET_OF_BOOKS_ID = L_SOB_ID;
201 C_COMPANY_NAME_HEADER := L_NAME;
202 C_CHART_OF_ACCOUNTS_ID := L_CHART_OF_ACCOUNTS_ID;
203 C_REPORT_START_DATE := L_REPORT_START_DATE;
204 SELECT
205 TO_CHAR(SYSDATE
206 ,'fmMonth DD, YYYY')
207 INTO L_CURDATE
208 FROM
209 DUAL;
210 C_CURDATE := L_CURDATE;
211 RETURN (TRUE);
212 RETURN NULL;
213 EXCEPTION
214 WHEN OTHERS THEN
215 RETURN (FALSE);
216 END GET_COMPANY_NAME;
217
218 FUNCTION CALCULATE_RUN_TIME RETURN BOOLEAN IS
219 END_DATE DATE;
220 START_DATE DATE;
221 BEGIN
222 END_DATE := SYSDATE;
223 START_DATE := C_REPORT_START_DATE;
224 C_REPORT_RUN_TIME := TO_CHAR(TO_DATE('01/01/0001'
225 ,'DD/MM/YYYY') + ((END_DATE - START_DATE))
226 ,'HH24:MI:SS');
227 RETURN (TRUE);
228 RETURN NULL;
229 EXCEPTION
230 WHEN OTHERS THEN
231 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
232 END CALCULATE_RUN_TIME;
233
234 FUNCTION C_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
235 BEGIN
236 RETURN C_BASE_CURRENCY_CODE;
237 END C_BASE_CURRENCY_CODE_P;
238
239 FUNCTION C_BASE_PRECISION_P RETURN NUMBER IS
240 BEGIN
241 RETURN C_BASE_PRECISION;
242 END C_BASE_PRECISION_P;
243
244 FUNCTION C_BASE_MIN_ACCT_UNIT_P RETURN NUMBER IS
245 BEGIN
246 RETURN C_BASE_MIN_ACCT_UNIT;
247 END C_BASE_MIN_ACCT_UNIT_P;
248
249 FUNCTION C_BASE_DESCRIPTION_P RETURN VARCHAR2 IS
250 BEGIN
251 RETURN C_BASE_DESCRIPTION;
252 END C_BASE_DESCRIPTION_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_REPORT_START_DATE_P RETURN DATE IS
260 BEGIN
261 RETURN C_REPORT_START_DATE;
262 END C_REPORT_START_DATE_P;
263
264 FUNCTION C_NLS_YES_P RETURN VARCHAR2 IS
265 BEGIN
266 RETURN C_NLS_YES;
267 END C_NLS_YES_P;
268
269 FUNCTION C_NLS_NO_P RETURN VARCHAR2 IS
270 BEGIN
271 RETURN C_NLS_NO;
272 END C_NLS_NO_P;
273
274 FUNCTION C_NLS_ALL_P RETURN VARCHAR2 IS
275 BEGIN
276 RETURN C_NLS_ALL;
277 END C_NLS_ALL_P;
278
279 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
280 BEGIN
281 RETURN C_NLS_NO_DATA_EXISTS;
282 END C_NLS_NO_DATA_EXISTS_P;
283
284 FUNCTION C_REPORT_RUN_TIME_P RETURN VARCHAR2 IS
285 BEGIN
286 RETURN C_REPORT_RUN_TIME;
287 END C_REPORT_RUN_TIME_P;
288
289 FUNCTION C_CHART_OF_ACCOUNTS_ID_P RETURN NUMBER IS
290 BEGIN
291 RETURN C_CHART_OF_ACCOUNTS_ID;
292 END C_CHART_OF_ACCOUNTS_ID_P;
293
294 FUNCTION C_CURDATE_P RETURN VARCHAR2 IS
295 BEGIN
296 RETURN C_CURDATE;
297 END C_CURDATE_P;
298
299 FUNCTION C_FROM_ADD_LINE_1_P RETURN VARCHAR2 IS
300 BEGIN
301 RETURN C_FROM_ADD_LINE_1;
302 END C_FROM_ADD_LINE_1_P;
303
304 FUNCTION C_FROM_ADD_LINE_2_P RETURN VARCHAR2 IS
305 BEGIN
306 RETURN C_FROM_ADD_LINE_2;
307 END C_FROM_ADD_LINE_2_P;
308
309 FUNCTION C_FROM_ADD_LINE_3_P RETURN VARCHAR2 IS
310 BEGIN
311 RETURN C_FROM_ADD_LINE_3;
312 END C_FROM_ADD_LINE_3_P;
313
314 FUNCTION C_FROM_CITY_P RETURN VARCHAR2 IS
315 BEGIN
316 RETURN C_FROM_CITY;
317 END C_FROM_CITY_P;
318
319 FUNCTION C_FROM_STATE_P RETURN VARCHAR2 IS
320 BEGIN
321 RETURN C_FROM_STATE;
322 END C_FROM_STATE_P;
323
324 FUNCTION C_FROM_ZIP_P RETURN VARCHAR2 IS
325 BEGIN
326 RETURN C_FROM_ZIP;
327 END C_FROM_ZIP_P;
328
329 END AP_APXVDRAL_XMLP_PKG;
330
331