[Home] [Help]
PACKAGE BODY: APPS.AP_APXFPMDR_XMLP_PKG
Source
1 PACKAGE BODY AP_APXFPMDR_XMLP_PKG AS
2 /* $Header: APXFPMDRB.pls 120.0 2007/12/27 07:39: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_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 EXCEPTION
29 WHEN OTHERS THEN
30 RETURN (FALSE);
31 END GET_BASE_CURR_DATA;
32
33 FUNCTION CUSTOM_INIT RETURN BOOLEAN IS
34 BEGIN
35 RETURN (TRUE);
36 EXCEPTION
37 WHEN OTHERS THEN
38 RETURN (FALSE);
39 END CUSTOM_INIT;
40
41 FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
42 BEGIN
43 RETURN (TRUE);
44 EXCEPTION
45 WHEN OTHERS THEN
46 RETURN (FALSE);
47 END GET_COVER_PAGE_VALUES;
48
49 FUNCTION GET_NLS_STRINGS RETURN BOOLEAN IS
50 NLS_ALL AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
51 NLS_YES FND_LOOKUPS.MEANING%TYPE;
52 NLS_NO FND_LOOKUPS.MEANING%TYPE;
53 BEGIN
54 NLS_ALL := '';
55 NLS_YES := '';
56 NLS_NO := '';
57 SELECT
58 LY.MEANING,
59 LN.MEANING,
60 LA.DISPLAYED_FIELD
61 INTO NLS_YES,NLS_NO,NLS_ALL
62 FROM
63 FND_LOOKUPS LY,
64 FND_LOOKUPS LN,
65 AP_LOOKUP_CODES LA
66 WHERE LY.LOOKUP_TYPE = 'YES_NO'
67 AND LY.LOOKUP_CODE = 'Y'
68 AND LN.LOOKUP_TYPE = 'YES_NO'
69 AND LN.LOOKUP_CODE = 'N'
70 AND LA.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
71 AND LA.LOOKUP_CODE = 'ALL';
72 C_NLS_YES := NLS_YES;
73 C_NLS_NO := NLS_NO;
74 C_NLS_ALL := NLS_ALL;
75 FND_MESSAGE.SET_NAME('SQLAP'
76 ,'AP_APPRVL_NO_DATA');
77 C_NLS_NO_DATA_EXISTS := FND_MESSAGE.GET;
78 C_NLS_NO_DATA_EXISTS := '*** ' || C_NLS_NO_DATA_EXISTS || ' ***';
79 FND_MESSAGE.SET_NAME('SQLAP'
80 ,'AP_ALL_END_OF_REPORT');
81 C_NLS_END_OF_REPORT := FND_MESSAGE.GET;
82 C_NLS_END_OF_REPORT := '*** ' || C_NLS_END_OF_REPORT || ' ***';
83 RETURN (TRUE);
84 EXCEPTION
85 WHEN OTHERS THEN
86 RETURN (FALSE);
87 END GET_NLS_STRINGS;
88
89 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
90 BEGIN
91
92 P_MATURITY_DATE_LP := TO_CHAR(P_MATURITY_DATE, 'DD-MON-YY');
93 DECLARE
94 INIT_FAILURE EXCEPTION;
95 BEGIN
96 CURRENCY_CHECK := 0;
97 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
98 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
99 IF (P_DEBUG_SWITCH = 'Y') THEN
100 /*SRW.MESSAGE('1'
101 ,'After SRWINIT')*/NULL;
102 END IF;
103 IF (GET_COMPANY_NAME <> TRUE) THEN
104 RAISE INIT_FAILURE;
105 END IF;
106 IF (P_DEBUG_SWITCH = 'Y') THEN
107 /*SRW.MESSAGE('2'
108 ,'After Get_Company_Name')*/NULL;
109 END IF;
110 IF (GET_NLS_STRINGS <> TRUE) THEN
111 RAISE INIT_FAILURE;
112 END IF;
113 IF (P_DEBUG_SWITCH = 'Y') THEN
114 /*SRW.MESSAGE('3'
115 ,'After Get_NLS_Strings')*/NULL;
116 END IF;
117 IF (GET_BASE_CURR_DATA <> TRUE) THEN
118 RAISE INIT_FAILURE;
119 END IF;
120 IF (P_DEBUG_SWITCH = 'Y') THEN
121 /*SRW.MESSAGE('4'
122 ,'After Get_Base_Curr_Data')*/NULL;
123 END IF;
124 IF (GET_PARAMETER_VALUES <> TRUE) THEN
125 RAISE INIT_FAILURE;
126 END IF;
127 IF (P_DEBUG_SWITCH = 'Y') THEN
128 /*SRW.MESSAGE('8'
129 ,'After Get_Parameter_Values')*/NULL;
130 END IF;
131 IF (P_DEBUG_SWITCH = 'Y') THEN
132 /*SRW.BREAK*/NULL;
133 END IF;
134 RETURN (TRUE);
135 EXCEPTION
136 WHEN OTHERS THEN
137 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
138 END;
139
140
141 RETURN (TRUE);
142 END BEFOREREPORT;
143
144 FUNCTION AFTERREPORT RETURN BOOLEAN IS
145 BEGIN
146 DECLARE
147 AFTER_REPORT_FAILURE EXCEPTION;
148 BEGIN
149 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
150 IF (P_DEBUG_SWITCH = 'Y') THEN
151 /*SRW.MESSAGE('20'
152 ,'After SRWEXIT')*/NULL;
153 END IF;
154 EXCEPTION
155 WHEN OTHERS THEN
156 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
157 END;
158 RETURN (TRUE);
159 END AFTERREPORT;
160
161 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
162 L_CHART_OF_ACCOUNTS_ID GL_SETS_OF_BOOKS.CHART_OF_ACCOUNTS_ID%TYPE;
163 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
164 L_REPORT_START_DATE DATE;
165 L_SUPPLIER_NAME PO_VENDORS.VENDOR_NAME%TYPE;
166 L_SUPPLIER_SITE PO_VENDOR_SITES.VENDOR_SITE_CODE%TYPE;
167 BEGIN
168 L_REPORT_START_DATE := SYSDATE;
169 SELECT
170 NAME,
171 CHART_OF_ACCOUNTS_ID
172 INTO L_NAME,L_CHART_OF_ACCOUNTS_ID
173 FROM
174 GL_SETS_OF_BOOKS GSB,
175 AP_SYSTEM_PARAMETERS ASP
176 WHERE GSB.SET_OF_BOOKS_ID = ASP.SET_OF_BOOKS_ID;
177 C_COMPANY_NAME_HEADER := L_NAME;
178 C_CHART_OF_ACCOUNTS_ID := L_CHART_OF_ACCOUNTS_ID;
179 C_REPORT_START_DATE := L_REPORT_START_DATE;
180 RETURN (TRUE);
181 EXCEPTION
182 WHEN OTHERS THEN
183 RETURN (FALSE);
184 END GET_COMPANY_NAME;
185
186 FUNCTION GET_PARAMETER_VALUES RETURN BOOLEAN IS
187 L_BANK_ACCOUNT_NAME CE_BANK_ACCOUNTS.BANK_ACCOUNT_NAME%TYPE;
188 L_PARTY_NAME HZ_PARTIES.PARTY_NAME%TYPE;
189 L_SUPPLIER_SITE AP_SUPPLIER_SITES_ALL.VENDOR_SITE_CODE%TYPE;
190 BEGIN
191 IF (P_CE_BANK_ACCT_USE_ID IS NOT NULL) THEN
192 SELECT
193 CBA.BANK_ACCOUNT_NAME
194 INTO L_BANK_ACCOUNT_NAME
195 FROM
196 CE_BANK_ACCOUNTS CBA,
197 CE_BANK_ACCT_USES_ALL CBAU
198 WHERE CBA.BANK_ACCOUNT_ID = CBAU.BANK_ACCOUNT_ID
199 AND CBAU.BANK_ACCT_USE_ID = P_CE_BANK_ACCT_USE_ID;
200 C_BANK_ACCOUNT_NAME := L_BANK_ACCOUNT_NAME;
201 ELSE
202 C_BANK_ACCOUNT_NAME := C_NLS_ALL;
203 END IF;
204 IF (P_PARTY_ID IS NOT NULL) THEN
205 SELECT
206 PARTY_NAME
207 INTO L_PARTY_NAME
208 FROM
209 HZ_PARTIES
210 WHERE PARTY_ID = P_PARTY_ID;
211 C_SUPPLIER_NAME := L_PARTY_NAME;
212 ELSE
213 C_SUPPLIER_NAME := C_NLS_ALL;
214 END IF;
215 IF (P_VENDOR_SITE_ID IS NOT NULL) THEN
216 SELECT
217 VENDOR_SITE_CODE
218 INTO L_SUPPLIER_SITE
219 FROM
220 AP_SUPPLIER_SITES_ALL
221 WHERE VENDOR_SITE_ID = P_VENDOR_SITE_ID;
222 C_SUPPLIER_SITE := L_SUPPLIER_SITE;
223 ELSE
224 C_SUPPLIER_SITE := C_NLS_ALL;
225 END IF;
226 RETURN (TRUE);
227 EXCEPTION
228 WHEN OTHERS THEN
229 RETURN (FALSE);
230 END GET_PARAMETER_VALUES;
231
232 FUNCTION C_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
233 BEGIN
234 RETURN C_BASE_CURRENCY_CODE;
235 END C_BASE_CURRENCY_CODE_P;
236
237 FUNCTION C_BASE_PRECISION_P RETURN NUMBER IS
238 BEGIN
239 RETURN C_BASE_PRECISION;
240 END C_BASE_PRECISION_P;
241
242 FUNCTION C_BASE_MIN_ACCT_UNIT_P RETURN NUMBER IS
243 BEGIN
244 RETURN C_BASE_MIN_ACCT_UNIT;
245 END C_BASE_MIN_ACCT_UNIT_P;
246
247 FUNCTION C_BASE_DESCRIPTION_P RETURN VARCHAR2 IS
248 BEGIN
249 RETURN C_BASE_DESCRIPTION;
250 END C_BASE_DESCRIPTION_P;
251
252 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
253 BEGIN
254 RETURN C_COMPANY_NAME_HEADER;
255 END C_COMPANY_NAME_HEADER_P;
256
257 FUNCTION C_REPORT_START_DATE_P RETURN DATE IS
258 BEGIN
259 RETURN C_REPORT_START_DATE;
260 END C_REPORT_START_DATE_P;
261
262 FUNCTION C_NLS_YES_P RETURN VARCHAR2 IS
263 BEGIN
264 RETURN C_NLS_YES;
265 END C_NLS_YES_P;
266
267 FUNCTION C_NLS_NO_P RETURN VARCHAR2 IS
268 BEGIN
269 RETURN C_NLS_NO;
270 END C_NLS_NO_P;
271
272 FUNCTION C_NLS_ALL_P RETURN VARCHAR2 IS
273 BEGIN
274 RETURN C_NLS_ALL;
275 END C_NLS_ALL_P;
276
277 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
278 BEGIN
279 RETURN C_NLS_NO_DATA_EXISTS;
280 END C_NLS_NO_DATA_EXISTS_P;
281
282 FUNCTION C_CHART_OF_ACCOUNTS_ID_P RETURN NUMBER IS
283 BEGIN
284 RETURN C_CHART_OF_ACCOUNTS_ID;
285 END C_CHART_OF_ACCOUNTS_ID_P;
286
287 FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
288 BEGIN
289 RETURN C_NLS_END_OF_REPORT;
290 END C_NLS_END_OF_REPORT_P;
291
292 FUNCTION C_BANK_ACCOUNT_NAME_P RETURN VARCHAR2 IS
293 BEGIN
294 RETURN C_BANK_ACCOUNT_NAME;
295 END C_BANK_ACCOUNT_NAME_P;
296
297 FUNCTION C_SUPPLIER_NAME_P RETURN VARCHAR2 IS
298 BEGIN
299 RETURN C_SUPPLIER_NAME;
300 END C_SUPPLIER_NAME_P;
301
302 FUNCTION C_SUPPLIER_SITE_P RETURN VARCHAR2 IS
303 BEGIN
304 RETURN C_SUPPLIER_SITE;
305 END C_SUPPLIER_SITE_P;
306
307 END AP_APXFPMDR_XMLP_PKG;
308