eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.AP_APXCHECC_XMLP_PKG

Source


1 PACKAGE BODY AP_APXCHECC_XMLP_PKG AS
2 /* $Header: APXCHECCB.pls 120.0 2007/12/27 07:34:20 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     NLS_AMOUNT_DIFFERENCE AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
57     NLS_CLEARED_BEFORE_ISSUED AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
58     NLS_VOIDED_AND_CLEARED AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
59     NLS_PAYMENT_NOT_CLEARED AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
60     NLS_CLEAR_DATE_NULL AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
61     NLS_CLEAR_AMOUNT_NULL AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
62     NLS_NONE_EP AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
63   BEGIN
64     NLS_ALL := '';
65     NLS_YES := '';
66     NLS_NO := '';
67     NLS_NONE_EP := '';
68     SELECT
69       LY.MEANING,
70       LN.MEANING,
71       LA.DISPLAYED_FIELD,
72       LNEP.DISPLAYED_FIELD
73     INTO NLS_YES,NLS_NO,NLS_ALL,NLS_NONE_EP
74     FROM
75       FND_LOOKUPS LY,
76       FND_LOOKUPS LN,
77       AP_LOOKUP_CODES LA,
78       AP_LOOKUP_CODES LNEP
79     WHERE LY.LOOKUP_TYPE = 'YES_NO'
80       AND LY.LOOKUP_CODE = 'Y'
81       AND LN.LOOKUP_TYPE = 'YES_NO'
82       AND LN.LOOKUP_CODE = 'N'
83       AND LA.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
84       AND LA.LOOKUP_CODE = 'ALL'
85       AND LNEP.LOOKUP_TYPE = 'NLS TRANSLATION'
86       AND LNEP.LOOKUP_CODE = 'NONE ELECTRONIC PAYMENT';
87     C_NLS_NONE_EP := NLS_NONE_EP;
88     C_NLS_YES := NLS_YES;
89     C_NLS_NO := NLS_NO;
90     C_NLS_ALL := NLS_ALL;
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     BEGIN
98       SELECT
99         ALC1.DISPLAYED_FIELD,
100         ALC2.DISPLAYED_FIELD,
101         ALC3.DISPLAYED_FIELD,
102         ALC4.DISPLAYED_FIELD,
103         ALC5.DISPLAYED_FIELD,
104         ALC6.DISPLAYED_FIELD
105       INTO NLS_AMOUNT_DIFFERENCE,NLS_CLEARED_BEFORE_ISSUED,NLS_VOIDED_AND_CLEARED,NLS_PAYMENT_NOT_CLEARED,NLS_CLEAR_DATE_NULL,NLS_CLEAR_AMOUNT_NULL
106       FROM
107         AP_LOOKUP_CODES ALC1,
108         AP_LOOKUP_CODES ALC2,
109         AP_LOOKUP_CODES ALC3,
110         AP_LOOKUP_CODES ALC4,
111         AP_LOOKUP_CODES ALC5,
112         AP_LOOKUP_CODES ALC6
113       WHERE ALC1.LOOKUP_TYPE = 'PAYMENT EXCEPTIONS'
114         AND ALC2.LOOKUP_TYPE = 'PAYMENT EXCEPTIONS'
115         AND ALC3.LOOKUP_TYPE = 'PAYMENT EXCEPTIONS'
116         AND ALC4.LOOKUP_TYPE = 'PAYMENT EXCEPTIONS'
117         AND ALC5.LOOKUP_TYPE = 'PAYMENT EXCEPTIONS'
118         AND ALC6.LOOKUP_TYPE = 'PAYMENT EXCEPTIONS'
119         AND ALC1.LOOKUP_CODE = 'AMOUNT DIFFERENCE'
120         AND ALC2.LOOKUP_CODE = 'CLEARED BEFORE ISSUED'
121         AND ALC3.LOOKUP_CODE = 'VOIDED AND CLEARED'
122         AND ALC4.LOOKUP_CODE = 'PAYMENT NOT CLEARED'
123         AND ALC5.LOOKUP_CODE = 'CLEAR DATE NULL'
124         AND ALC6.LOOKUP_CODE = 'CLEAR AMOUNT NULL';
125       C_NLS_AMOUNT_DIFFERENCE := NLS_AMOUNT_DIFFERENCE;
126       C_NLS_CLEARED_BEFORE_ISSUED := NLS_CLEARED_BEFORE_ISSUED;
127       C_NLS_VOIDED_AND_CLEARED := NLS_VOIDED_AND_CLEARED;
128       C_NLS_PAYMENT_NOT_CLEARED := NLS_PAYMENT_NOT_CLEARED;
129       C_NLS_CLEAR_DATE_NULL := NLS_CLEAR_DATE_NULL;
130       C_NLS_CLEAR_AMOUNT_NULL := NLS_CLEAR_AMOUNT_NULL;
131     END;
132     RETURN (TRUE);
133     RETURN NULL;
134   EXCEPTION
135     WHEN OTHERS THEN
136       RETURN (FALSE);
137   END GET_NLS_STRINGS;
138 
139   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
140   BEGIN
141     DECLARE
142       INIT_FAILURE EXCEPTION;
143     BEGIN
144     LP_BEGIN_DATE:=to_char(P_BEGIN_DATE,'DD-MON-YY');
145      LP_END_DATE:=to_char(P_END_DATE,'DD-MON-YY');
146 
147     LP_BRANCH_ID:=nvl(P_BRANCH_ID,'All');
148     LP_BANK_ACCOUNT_NAME:=nvl(P_BANK_ACCOUNT_NAME,'All');
149     LP_CHECK_STOCK:=nvl(P_CHECK_STOCK,'All');
150     LP_CHECK_EXC:=nvl(P_CHECK_EXC,'All');
151       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
152       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
153       IF (P_DEBUG_SWITCH = 'Y') THEN
154         /*SRW.MESSAGE('1'
155                    ,'After SRWINIT')*/NULL;
156       END IF;
157       IF (GET_COMPANY_NAME <> TRUE) THEN
158         RAISE INIT_FAILURE;
159       END IF;
160       IF (P_DEBUG_SWITCH = 'Y') THEN
161         /*SRW.MESSAGE('2'
162                    ,'After Get_Company_Name')*/NULL;
163       END IF;
164       IF (GET_NLS_STRINGS <> TRUE) THEN
165         RAISE INIT_FAILURE;
166       END IF;
167       IF (P_DEBUG_SWITCH = 'Y') THEN
168         /*SRW.MESSAGE('3'
169                    ,'After Get_NLS_Strings')*/NULL;
170       END IF;
171       IF (GET_BASE_CURR_DATA <> TRUE) THEN
172         RAISE INIT_FAILURE;
173       END IF;
174       IF (P_DEBUG_SWITCH = 'Y') THEN
175         /*SRW.MESSAGE('4'
176                    ,'After Get_Base_Curr_Data')*/NULL;
177       END IF;
178       IF (P_DEBUG_SWITCH = 'Y') THEN
179         /*SRW.BREAK*/NULL;
180       END IF;
181       RETURN (TRUE);
182     EXCEPTION
183       WHEN OTHERS THEN
184         /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
185     END;
186     RETURN (TRUE);
187   END BEFOREREPORT;
188 
189   FUNCTION AFTERREPORT RETURN BOOLEAN IS
190   BEGIN
191     BEGIN
192       /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
193     EXCEPTION
194       WHEN OTHERS THEN
195         /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
196     END;
197     RETURN (TRUE);
198   END AFTERREPORT;
199 
200   FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
201     L_CHART_OF_ACCOUNTS_ID GL_SETS_OF_BOOKS.CHART_OF_ACCOUNTS_ID%TYPE;
202     L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
203     L_SOB_ID NUMBER;
204     L_REPORT_START_DATE DATE;
205   BEGIN
206     L_REPORT_START_DATE := SYSDATE;
207     L_SOB_ID := P_SET_OF_BOOKS_ID;
208     SELECT
209       NAME,
210       CHART_OF_ACCOUNTS_ID
211     INTO L_NAME,L_CHART_OF_ACCOUNTS_ID
212     FROM
213       GL_SETS_OF_BOOKS
214     WHERE SET_OF_BOOKS_ID = L_SOB_ID;
215     C_COMPANY_NAME_HEADER := L_NAME;
216     C_CHART_OF_ACCOUNTS_ID := L_CHART_OF_ACCOUNTS_ID;
217     C_REPORT_START_DATE := L_REPORT_START_DATE;
218     RETURN (TRUE);
219     RETURN NULL;
220   EXCEPTION
221     WHEN OTHERS THEN
222       RETURN (FALSE);
223   END GET_COMPANY_NAME;
224 
225   FUNCTION C_EXCEPTION_STRINGFORMULA(C_AMOUNT_EXCP IN VARCHAR2
226                                     ,C_DATE_EXCP IN VARCHAR2
227                                     ,C_VOID_EXCP IN VARCHAR2
228                                     ,C_OUST_EXCP IN VARCHAR2) RETURN VARCHAR2 IS
229   BEGIN
230     DECLARE
231       L_EXCEPTION_STR VARCHAR2(100);
232       L_EXCP_STR_NULL VARCHAR2(1) := 'Y';
233     BEGIN
234       IF (C_AMOUNT_EXCP IS NOT NULL) THEN
235         L_EXCEPTION_STR := C_AMOUNT_EXCP;
236         L_EXCP_STR_NULL := 'N';
237       END IF;
238       IF (C_DATE_EXCP IS NOT NULL) THEN
239         IF (L_EXCP_STR_NULL = 'N') THEN
240           L_EXCEPTION_STR := L_EXCEPTION_STR || ', ' || C_DATE_EXCP;
241         ELSE
242           L_EXCEPTION_STR := C_DATE_EXCP;
243           L_EXCP_STR_NULL := 'N';
244         END IF;
245       END IF;
246       IF (C_VOID_EXCP IS NOT NULL) THEN
247         IF (L_EXCP_STR_NULL = 'N') THEN
248           L_EXCEPTION_STR := L_EXCEPTION_STR || ', ' || C_VOID_EXCP;
249         ELSE
250           L_EXCEPTION_STR := C_VOID_EXCP;
251           L_EXCP_STR_NULL := 'N';
252         END IF;
253       END IF;
254       IF (C_OUST_EXCP IS NOT NULL) THEN
255         IF (L_EXCP_STR_NULL = 'N') THEN
256           L_EXCEPTION_STR := L_EXCEPTION_STR || ', ' || C_OUST_EXCP;
257         ELSE
258           L_EXCEPTION_STR := C_OUST_EXCP;
259         END IF;
260       END IF;
261       RETURN (L_EXCEPTION_STR);
262     END;
263     RETURN NULL;
264   END C_EXCEPTION_STRINGFORMULA;
265 
266   FUNCTION C_CURRENCY_DESCRIPTIONFORMULA(C_CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
267   BEGIN
268     DECLARE
269       L_CURRENCY_DESC FND_CURRENCIES_VL.NAME%TYPE;
270     BEGIN
271       SELECT
272         SUBSTR(NAME
273               ,1
274               ,25)
275       INTO L_CURRENCY_DESC
276       FROM
277         FND_CURRENCIES_VL
278       WHERE CURRENCY_CODE = C_CURRENCY_CODE;
279       RETURN (L_CURRENCY_DESC);
280     EXCEPTION
281       WHEN NO_DATA_FOUND THEN
282         NULL;
283     END;
284     RETURN NULL;
285   END C_CURRENCY_DESCRIPTIONFORMULA;
286 
287   FUNCTION C_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
288   BEGIN
289     RETURN C_BASE_CURRENCY_CODE;
290   END C_BASE_CURRENCY_CODE_P;
291 
292   FUNCTION C_BASE_PRECISION_P RETURN NUMBER IS
293   BEGIN
294     RETURN C_BASE_PRECISION;
295   END C_BASE_PRECISION_P;
296 
297   FUNCTION C_BASE_MIN_ACCT_UNIT_P RETURN NUMBER IS
298   BEGIN
299     RETURN C_BASE_MIN_ACCT_UNIT;
300   END C_BASE_MIN_ACCT_UNIT_P;
301 
302   FUNCTION C_BASE_DESCRIPTION_P RETURN VARCHAR2 IS
303   BEGIN
304     RETURN C_BASE_DESCRIPTION;
305   END C_BASE_DESCRIPTION_P;
306 
307   FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
308   BEGIN
309     RETURN C_COMPANY_NAME_HEADER;
310   END C_COMPANY_NAME_HEADER_P;
311 
312   FUNCTION C_REPORT_START_DATE_P RETURN DATE IS
313   BEGIN
314     RETURN C_REPORT_START_DATE;
315   END C_REPORT_START_DATE_P;
316 
317   FUNCTION C_NLS_YES_P RETURN VARCHAR2 IS
318   BEGIN
319     RETURN C_NLS_YES;
320   END C_NLS_YES_P;
321 
322   FUNCTION C_NLS_NO_P RETURN VARCHAR2 IS
323   BEGIN
324     RETURN C_NLS_NO;
325   END C_NLS_NO_P;
326 
327   FUNCTION C_NLS_ALL_P RETURN VARCHAR2 IS
328   BEGIN
329     RETURN C_NLS_ALL;
330   END C_NLS_ALL_P;
331 
332   FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
333   BEGIN
334     RETURN C_NLS_NO_DATA_EXISTS;
335   END C_NLS_NO_DATA_EXISTS_P;
336 
337   FUNCTION C_REPORT_RUN_TIME_P RETURN VARCHAR2 IS
338   BEGIN
339     RETURN C_REPORT_RUN_TIME;
340   END C_REPORT_RUN_TIME_P;
341 
342   FUNCTION C_CHART_OF_ACCOUNTS_ID_P RETURN NUMBER IS
343   BEGIN
344     RETURN C_CHART_OF_ACCOUNTS_ID;
345   END C_CHART_OF_ACCOUNTS_ID_P;
346 
347   FUNCTION C_NLS_AMOUNT_DIFFERENCE_P RETURN VARCHAR2 IS
348   BEGIN
349     RETURN C_NLS_AMOUNT_DIFFERENCE;
350   END C_NLS_AMOUNT_DIFFERENCE_P;
351 
352   FUNCTION C_NLS_CLEARED_BEFORE_ISSUED_P RETURN VARCHAR2 IS
353   BEGIN
354     RETURN C_NLS_CLEARED_BEFORE_ISSUED;
355   END C_NLS_CLEARED_BEFORE_ISSUED_P;
356 
357   FUNCTION C_NLS_VOIDED_AND_CLEARED_P RETURN VARCHAR2 IS
358   BEGIN
359     RETURN C_NLS_VOIDED_AND_CLEARED;
360   END C_NLS_VOIDED_AND_CLEARED_P;
361 
362   FUNCTION C_NLS_PAYMENT_NOT_CLEARED_P RETURN VARCHAR2 IS
363   BEGIN
364     RETURN C_NLS_PAYMENT_NOT_CLEARED;
365   END C_NLS_PAYMENT_NOT_CLEARED_P;
366 
367   FUNCTION C_NLS_CLEAR_DATE_NULL_P RETURN VARCHAR2 IS
368   BEGIN
369     RETURN C_NLS_CLEAR_DATE_NULL;
370   END C_NLS_CLEAR_DATE_NULL_P;
371 
372   FUNCTION C_NLS_CLEAR_AMOUNT_NULL_P RETURN VARCHAR2 IS
373   BEGIN
374     RETURN C_NLS_CLEAR_AMOUNT_NULL;
375   END C_NLS_CLEAR_AMOUNT_NULL_P;
376 
377   FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
378   BEGIN
379     RETURN C_NLS_END_OF_REPORT;
380   END C_NLS_END_OF_REPORT_P;
381 
382   FUNCTION C_NLS_NONE_EP_P RETURN VARCHAR2 IS
383   BEGIN
384     RETURN C_NLS_NONE_EP;
385   END C_NLS_NONE_EP_P;
386 
387 END AP_APXCHECC_XMLP_PKG;
388