DBA Data[Home] [Help]

PACKAGE BODY: APPS.AP_APXINPSR_XMLP_PKG

Source


1 PACKAGE BODY AP_APXINPSR_XMLP_PKG AS
2 /* $Header: APXINPSRB.pls 120.0 2007/12/27 07:58: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.PRECISION%TYPE;
6     MIN_AU FND_CURRENCIES.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
7     DESCR FND_CURRENCIES.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 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     --C_VENDOR_DYNAMIC_SQL := '';
37     C_VENDOR_DYNAMIC_SQL := ' ';
38     --C_INVOICE_DYNAMIC_SQL := '';
39     C_INVOICE_DYNAMIC_SQL := ' ';
40     IF P_VENDOR_ID IS NOT NULL THEN
41       C_VENDOR_DYNAMIC_SQL := C_VENDOR_DYNAMIC_SQL || ' AND  v.vendor_id = ' || P_VENDOR_ID || ' ';
42     END IF;
43     IF P_VENDOR_TYPE_LOOKUP_CODE IS NOT NULL THEN
44       C_VENDOR_DYNAMIC_SQL := C_VENDOR_DYNAMIC_SQL || ' AND  v.vendor_type_lookup_code = ''' ||
45       P_VENDOR_TYPE_LOOKUP_CODE || '''';
46     END IF;
47     IF P_PREPAYMENT_TYPE = 'TEMPORARY' THEN
48       C_VENDOR_DYNAMIC_SQL := C_VENDOR_DYNAMIC_SQL || ' AND  i.earliest_settlement_date is not null ';
49     ELSE
50       C_VENDOR_DYNAMIC_SQL := C_VENDOR_DYNAMIC_SQL || ' AND  i.earliest_settlement_date is null ';
51     END IF;
52     IF P_FROM_DATE IS NOT NULL THEN
53       C_INVOICE_DYNAMIC_SQL := C_INVOICE_DYNAMIC_SQL || ' AND i.invoice_date >= ''' || TO_CHAR(P_FROM_DATE) || '''';
54       C_VENDOR_DYNAMIC_SQL := C_VENDOR_DYNAMIC_SQL || ' AND i.invoice_date >= ''' || TO_CHAR(P_FROM_DATE) || '''';
55     END IF;
56     IF P_TO_DATE IS NOT NULL THEN
57       C_INVOICE_DYNAMIC_SQL := C_INVOICE_DYNAMIC_SQL || ' AND i.invoice_date <= ''' || TO_CHAR(P_TO_DATE) || '''';
58       C_VENDOR_DYNAMIC_SQL := C_VENDOR_DYNAMIC_SQL || ' AND i.invoice_date <= ''' || TO_CHAR(P_TO_DATE) || '''';
59     END IF;
60     IF P_PREPAYMENT_TYPE = 'TEMPORARY' THEN
61       C_INVOICE_DYNAMIC_SQL := C_INVOICE_DYNAMIC_SQL || ' AND ( ( i.invoice_type_lookup_code =  ''PREPAYMENT'' '
62       || '         AND  i.earliest_settlement_date is not null ' || '         AND
63       AP_PREPAY_UTILS_PKG.get_prepay_amount_remaining( i.invoice_id) > 0 ) ';
64     ELSE
65       C_INVOICE_DYNAMIC_SQL := C_INVOICE_DYNAMIC_SQL || ' AND ( ( i.invoice_type_lookup_code =  ''PREPAYMENT'' '
66       || '         AND  i.earliest_settlement_date is null ' || '         AND
67       AP_PREPAY_UTILS_PKG.get_prepay_amount_remaining( i.invoice_id) > 0 ) ';
68     END IF;
69     IF P_INCLUDE_CREDIT = 'Y' THEN
70       IF P_INCLUDE_INVOICE = 'Y' THEN
71         C_INVOICE_DYNAMIC_SQL := C_INVOICE_DYNAMIC_SQL || ' OR ( i.payment_status_flag IN (''P'', ''N'') AND '
72         || ' i.invoice_type_lookup_code <> ''PREPAYMENT'' ) ) ';
73       ELSE
74         C_INVOICE_DYNAMIC_SQL := C_INVOICE_DYNAMIC_SQL || ' OR ( i.payment_status_flag IN (''P'', ''N'') AND '
75         || ' i.invoice_type_lookup_code IN (''CREDIT'',''DEBIT'')) )';
76       END IF;
77     ELSE
78       IF P_INCLUDE_INVOICE = 'Y' THEN
79         C_INVOICE_DYNAMIC_SQL := C_INVOICE_DYNAMIC_SQL || ' OR ( i.payment_status_flag IN (''P'', ''N'') AND '
80         || ' i.invoice_type_lookup_code not IN (''CREDIT'',''DEBIT'', ''PREPAYMENT'')) ) ';
81       ELSE
82         C_INVOICE_DYNAMIC_SQL := C_INVOICE_DYNAMIC_SQL || ' ) ';
83       END IF;
84     END IF;
85     RETURN (TRUE);
86     RETURN NULL;
87   EXCEPTION
88     WHEN OTHERS THEN
89       RETURN (FALSE);
90   END CUSTOM_INIT;
91 
92   FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
93   BEGIN
94     RETURN (TRUE);
95     RETURN NULL;
96   EXCEPTION
97     WHEN OTHERS THEN
98       RETURN (FALSE);
99   END GET_COVER_PAGE_VALUES;
100 
101   FUNCTION GET_NLS_STRINGS RETURN BOOLEAN IS
102     NLS_ALL AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
103     NLS_YES FND_LOOKUPS.MEANING%TYPE;
104     NLS_NO FND_LOOKUPS.MEANING%TYPE;
105     NLS_UNPAID AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
106     HEADER_VENDOR_TYPE AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
107     HEADER_VENDOR_NAME AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
108     HEADER_SHOW_PREPAY_DIST FND_LOOKUPS.MEANING%TYPE;
109     HEADER_INCLUDE_INVOICE FND_LOOKUPS.MEANING%TYPE;
110     HEADER_INCLUDE_CREDIT FND_LOOKUPS.MEANING%TYPE;
111     HEADER_PREPAYMENT_TYPE FND_LOOKUPS.MEANING%TYPE;
112   BEGIN
113     NLS_ALL := '';
114     NLS_YES := '';
115     NLS_NO := '';
116     SELECT
117       LY.MEANING,
118       LN.MEANING,
119       LA.DISPLAYED_FIELD,
120       L4.DISPLAYED_FIELD,
121       L6.MEANING,
122       L7.MEANING,
123       L8.MEANING
124     INTO NLS_YES,NLS_NO,NLS_ALL,NLS_UNPAID,HEADER_SHOW_PREPAY_DIST,HEADER_INCLUDE_INVOICE,HEADER_INCLUDE_CREDIT
125     FROM
126       FND_LOOKUPS LY,
127       FND_LOOKUPS LN,
128       AP_LOOKUP_CODES LA,
129       AP_LOOKUP_CODES L4,
130       FND_LOOKUPS L6,
131       FND_LOOKUPS L7,
132       FND_LOOKUPS L8
133     WHERE LY.LOOKUP_TYPE = 'YES_NO'
134       AND LY.LOOKUP_CODE = 'Y'
135       AND LN.LOOKUP_TYPE = 'YES_NO'
136       AND LN.LOOKUP_CODE = 'N'
137       AND LA.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
138       AND LA.LOOKUP_CODE = 'ALL'
139       AND L4.LOOKUP_TYPE = 'PREPAY STATUS'
140       AND L4.LOOKUP_CODE = 'UNPAID'
141       AND L6.LOOKUP_TYPE = 'YES_NO'
142       AND L6.LOOKUP_CODE = NVL(P_PREPAYMENT_LINE_FLAG
143        ,'Y')
144       AND L7.LOOKUP_TYPE = 'YES_NO'
145       AND L7.LOOKUP_CODE = NVL(P_INCLUDE_INVOICE
146        ,'Y')
147       AND L8.LOOKUP_TYPE = 'YES_NO'
148       AND L8.LOOKUP_CODE = NVL(P_INCLUDE_CREDIT
149        ,'Y');
150     IF P_VENDOR_TYPE_LOOKUP_CODE IS NULL THEN
151       HEADER_VENDOR_TYPE := NLS_ALL;
152     ELSE
153       SELECT
154         DISPLAYED_FIELD
155       INTO HEADER_VENDOR_TYPE
156       FROM
157         PO_LOOKUP_CODES
158       WHERE LOOKUP_TYPE = 'VENDOR TYPE'
159         AND LOOKUP_CODE = P_VENDOR_TYPE_LOOKUP_CODE;
160     END IF;
161     IF P_VENDOR_ID IS NULL THEN
162       HEADER_VENDOR_NAME := NLS_ALL;
163     ELSE
164       SELECT
165         VENDOR_NAME
166       INTO HEADER_VENDOR_NAME
167       FROM
168         PO_VENDORS
169       WHERE VENDOR_ID = P_VENDOR_ID;
170     END IF;
171     SELECT
172       DISPLAYED_FIELD
173     INTO HEADER_PREPAYMENT_TYPE
174     FROM
175       AP_LOOKUP_CODES
176     WHERE LOOKUP_CODE = NVL(P_PREPAYMENT_TYPE
177        ,'TEMPORARY')
178       AND LOOKUP_TYPE = 'PREPAY TYPES';
179     C_NLS_YES := NLS_YES;
180     C_NLS_NO := NLS_NO;
181     C_NLS_ALL := NLS_ALL;
182     C_NLS_UNPAID := NLS_UNPAID;
183     C_HEADER_VENDOR_TYPE := HEADER_VENDOR_TYPE;
184     C_HEADER_VENDOR_NAME := HEADER_VENDOR_NAME;
185     C_HEADER_SHOW_PREPAY_DIST := HEADER_SHOW_PREPAY_DIST;
186     C_HEADER_INCLUDE_INVOICE := HEADER_INCLUDE_INVOICE;
187     C_HEADER_INCLUDE_CREDIT := HEADER_INCLUDE_CREDIT;
188     C_HEADER_PREPAYMENT_TYPE := HEADER_PREPAYMENT_TYPE;
189     FND_MESSAGE.SET_NAME('SQLAP'
190                         ,'AP_APPRVL_NO_DATA');
191     C_NLS_NO_DATA_EXISTS := FND_MESSAGE.GET;
192     FND_MESSAGE.SET_NAME('SQLAP'
193                         ,'AP_ALL_END_OF_REPORT');
194     C_NLS_END_OF_REPORT := FND_MESSAGE.GET;
195     --C_NLS_NO_DATA_EXISTS := '*** ' || C_NLS_NO_DATA_EXISTS || ' ***';
196     --C_NLS_END_OF_REPORT := '*** ' || C_NLS_END_OF_REPORT || ' ***';
197     RETURN (TRUE);
198     RETURN NULL;
199   EXCEPTION
200     WHEN OTHERS THEN
201       RETURN (FALSE);
202   END GET_NLS_STRINGS;
203 
204   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
205   BEGIN
206     DECLARE
207       INIT_FAILURE EXCEPTION;
208     BEGIN
209       C_REPORT_START_DATE := SYSDATE;
210       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
211       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
212       IF (P_DEBUG_SWITCH in ('y','Y')) THEN
213         /*SRW.MESSAGE('1'
214                    ,'After SRWINIT')*/NULL;
215       END IF;
216       SELECT
217         AP.SET_OF_BOOKS_ID,
218         GL.CHART_OF_ACCOUNTS_ID
219       INTO P_SET_OF_BOOKS_ID,P_CHART_OF_ACCOUNTS_ID
220       FROM
221         AP_SYSTEM_PARAMETERS AP,
222         GL_SETS_OF_BOOKS GL
223       WHERE AP.SET_OF_BOOKS_ID = GL.SET_OF_BOOKS_ID;
224       IF (P_DEBUG_SWITCH in ('y','Y')) THEN
225         /*SRW.MESSAGE('2'
226                    ,'After initialize parameter p_set_of_books_id and p_charge_of_accounts_id')*/NULL;
227       END IF;
228       IF (GET_COMPANY_NAME <> TRUE) THEN
229         RAISE INIT_FAILURE;
230       END IF;
231       IF (P_DEBUG_SWITCH in ('y','Y')) THEN
232         /*SRW.MESSAGE('3'
233                    ,'After Get_Company_Name')*/NULL;
234       END IF;
235       IF (GET_NLS_STRINGS <> TRUE) THEN
236         RAISE INIT_FAILURE;
237       END IF;
238       IF (P_DEBUG_SWITCH in ('y','Y')) THEN
239         /*SRW.MESSAGE('4'
240                    ,'After Get_NLS_Strings')*/NULL;
241       END IF;
242       IF (GET_BASE_CURR_DATA <> TRUE) THEN
243         RAISE INIT_FAILURE;
244       END IF;
245       IF (P_DEBUG_SWITCH in ('y','Y')) THEN
246         /*SRW.MESSAGE('5'
247                    ,'After Get_Base_Curr_Data')*/NULL;
248       END IF;
249       IF (CUSTOM_INIT <> TRUE) THEN
250         RAISE INIT_FAILURE;
251       END IF;
252       IF (P_DEBUG_SWITCH in ('y','Y')) THEN
253         /*SRW.MESSAGE('7'
254                    ,'After Custom_Init')*/NULL;
255       END IF;
256       IF (P_DEBUG_SWITCH in ('y','Y')) THEN
257         /*SRW.BREAK*/NULL;
258       END IF;
259       RETURN (TRUE);
260     EXCEPTION
261       WHEN OTHERS THEN
262         /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
263     END;
264     RETURN (TRUE);
265   END BEFOREREPORT;
266 
267   FUNCTION AFTERREPORT RETURN BOOLEAN IS
268   BEGIN
269     BEGIN
270       /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
271       IF (P_DEBUG_SWITCH = 'Y') THEN
272         /*SRW.MESSAGE('20'
273                    ,'After SRWEXIT')*/NULL;
274       END IF;
275     EXCEPTION
276       WHEN OTHERS THEN
277         /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
278     END;
279     RETURN (TRUE);
280   END AFTERREPORT;
281 
282   FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
283     L_CHART_OF_ACCOUNTS_ID GL_SETS_OF_BOOKS.CHART_OF_ACCOUNTS_ID%TYPE;
284     L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
285     L_SOB_ID NUMBER;
286   BEGIN
287     IF P_SET_OF_BOOKS_ID IS NOT NULL THEN
288       L_SOB_ID := P_SET_OF_BOOKS_ID;
289       SELECT
290         NAME,
291         CHART_OF_ACCOUNTS_ID
292       INTO L_NAME,L_CHART_OF_ACCOUNTS_ID
293       FROM
294         GL_SETS_OF_BOOKS
295       WHERE SET_OF_BOOKS_ID = L_SOB_ID;
296       C_COMPANY_NAME_HEADER := L_NAME;
297       C_CHART_OF_ACCOUNTS_ID := L_CHART_OF_ACCOUNTS_ID;
298     END IF;
299     RETURN (TRUE);
300     RETURN NULL;
301   EXCEPTION
302     WHEN OTHERS THEN
303       RETURN (FALSE);
304   END GET_COMPANY_NAME;
305 
306   FUNCTION C_AMOUNT_FOR_SUMFORMULA(C_INVOICE_TYPE_LOOKUP_CODE IN VARCHAR2
307                                   ,C_AMOUNT_REMAINING IN NUMBER
308                                   ,C_PAYMENT_STATUS_FLAG IN VARCHAR2
309                                   ,C_EARLIEST_SETTLEMENT_DATE IN VARCHAR2
310                                   ,C_PAYMENT_CROSS_RATE IN NUMBER
311                                   ,C_INVOICE_CURRENCY_CODE IN VARCHAR2) RETURN NUMBER IS
312   BEGIN
313     BEGIN
314       /*SRW.REFERENCE(C_INVOICE_TYPE_LOOKUP_CODE)*/NULL;
315       /*SRW.REFERENCE(C_AMOUNT_REMAINING)*/NULL;
316       /*SRW.REFERENCE(C_PAYMENT_STATUS_FLAG)*/NULL;
317       /*SRW.REFERENCE(C_EARLIEST_SETTLEMENT_DATE)*/NULL;
318       /*SRW.REFERENCE(C_PAYMENT_CROSS_RATE)*/NULL;
319       /*SRW.REFERENCE(C_INVOICE_CURRENCY_CODE)*/NULL;
320       IF C_INVOICE_TYPE_LOOKUP_CODE = 'PREPAYMENT' THEN
321         IF C_EARLIEST_SETTLEMENT_DATE = 'PERMANENT' THEN
322           IF C_PAYMENT_STATUS_FLAG = 'Y' THEN
323             RETURN (C_AMOUNT_REMAINING);
324           ELSE
325             RETURN (0);
326           END IF;
327         ELSE
328           IF C_PAYMENT_STATUS_FLAG = 'Y' THEN
329             RETURN (C_AMOUNT_REMAINING * -1);
330           ELSE
331             RETURN (0);
332           END IF;
333         END IF;
334       ELSE
335         RETURN (AP_UTILITIES_PKG.AP_ROUND_CURRENCY(C_AMOUNT_REMAINING / C_PAYMENT_CROSS_RATE
336                                                  ,C_INVOICE_CURRENCY_CODE));
337       END IF;
338     END;
339     RETURN NULL;
340   END C_AMOUNT_FOR_SUMFORMULA;
341 
342   FUNCTION C_AMOUNT_REMAINING_CONVERTFORM(C_PAYMENT_CROSS_RATE IN NUMBER
343                                          ,C_AMOUNT_REMAINING IN NUMBER
344                                          ,C_INVOICE_CURRENCY_CODE IN VARCHAR2
345                                          ,C_INVOICE_TYPE_LOOKUP_CODE IN VARCHAR2) RETURN NUMBER IS
346   BEGIN
347     /*SRW.REFERENCE(C_PAYMENT_CROSS_RATE)*/NULL;
348     /*SRW.REFERENCE(C_AMOUNT_REMAINING)*/NULL;
349     /*SRW.REFERENCE(C_INVOICE_CURRENCY_CODE)*/NULL;
350     /*SRW.REFERENCE(C_INVOICE_TYPE_LOOKUP_CODE)*/NULL;
351     IF C_INVOICE_TYPE_LOOKUP_CODE = 'PREPAYMENT' THEN
352       RETURN (C_AMOUNT_REMAINING);
353     ELSE
354       RETURN (AP_UTILITIES_PKG.AP_ROUND_CURRENCY(C_AMOUNT_REMAINING / C_PAYMENT_CROSS_RATE
355                                                ,C_INVOICE_CURRENCY_CODE));
356     END IF;
357   END C_AMOUNT_REMAINING_CONVERTFORM;
358 
359   FUNCTION C_AMOUNT_REMAINING_DSPFORMULA(C_INVOICE_TYPE_LOOKUP_CODE IN VARCHAR2
360                                         ,C_PAYMENT_STATUS_FLAG IN VARCHAR2
361                                         ,C_AMOUNT_REMAINING_TRANS IN VARCHAR2) RETURN CHAR IS
362   BEGIN
363     /*SRW.REFERENCE(C_INVOICE_TYPE_LOOKUP_CODE)*/NULL;
364     /*SRW.REFERENCE(C_PAYMENT_STATUS_FLAG)*/NULL;
365     /*SRW.REFERENCE(C_AMOUNT_REMAINING_TRANS)*/NULL;
366     /*SRW.REFERENCE(C_NLS_UNPAID)*/NULL;
367     IF C_INVOICE_TYPE_LOOKUP_CODE = 'PREPAYMENT' THEN
368       IF C_PAYMENT_STATUS_FLAG = 'Y' THEN
369         RETURN (C_AMOUNT_REMAINING_TRANS);
370       ELSE
371         RETURN (SUBSTR(C_NLS_UNPAID
372                      ,1
373                      ,17));
374       END IF;
375     ELSE
376       RETURN (C_AMOUNT_REMAINING_TRANS);
377     END IF;
378   END C_AMOUNT_REMAINING_DSPFORMULA;
379 
380   FUNCTION C_NLS_YES_P RETURN VARCHAR2 IS
381   BEGIN
382     RETURN C_NLS_YES;
383   END C_NLS_YES_P;
384 
385   FUNCTION C_NLS_NO_P RETURN VARCHAR2 IS
386   BEGIN
387     RETURN C_NLS_NO;
388   END C_NLS_NO_P;
389 
390   FUNCTION C_NLS_ALL_P RETURN VARCHAR2 IS
391   BEGIN
392     RETURN C_NLS_ALL;
393   END C_NLS_ALL_P;
394 
395   FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
396   BEGIN
397     RETURN C_NLS_NO_DATA_EXISTS;
398   END C_NLS_NO_DATA_EXISTS_P;
399 
400   FUNCTION C_NLS_VOID_P RETURN VARCHAR2 IS
401   BEGIN
402     RETURN C_NLS_VOID;
403   END C_NLS_VOID_P;
404 
405   FUNCTION C_NLS_NA_P RETURN VARCHAR2 IS
406   BEGIN
407     RETURN C_NLS_NA;
408   END C_NLS_NA_P;
409 
410   FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
411   BEGIN
412     RETURN C_NLS_END_OF_REPORT;
413   END C_NLS_END_OF_REPORT_P;
414 
415   FUNCTION C_REPORT_START_DATE_P RETURN DATE IS
416   BEGIN
417     RETURN C_REPORT_START_DATE;
418   END C_REPORT_START_DATE_P;
419 
420   FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
421   BEGIN
422     RETURN C_COMPANY_NAME_HEADER;
423   END C_COMPANY_NAME_HEADER_P;
424 
425   FUNCTION C_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
426   BEGIN
427     RETURN C_BASE_CURRENCY_CODE;
428   END C_BASE_CURRENCY_CODE_P;
429 
430   FUNCTION C_BASE_PRECISION_P RETURN NUMBER IS
431   BEGIN
432     RETURN C_BASE_PRECISION;
433   END C_BASE_PRECISION_P;
434 
435   FUNCTION C_BASE_MIN_ACCT_UNIT_P RETURN NUMBER IS
436   BEGIN
437     RETURN C_BASE_MIN_ACCT_UNIT;
438   END C_BASE_MIN_ACCT_UNIT_P;
439 
440   FUNCTION C_BASE_DESCRIPTION_P RETURN VARCHAR2 IS
441   BEGIN
442     RETURN C_BASE_DESCRIPTION;
443   END C_BASE_DESCRIPTION_P;
444 
445   FUNCTION C_CHART_OF_ACCOUNTS_ID_P RETURN NUMBER IS
446   BEGIN
447     RETURN C_CHART_OF_ACCOUNTS_ID;
448   END C_CHART_OF_ACCOUNTS_ID_P;
449 
450   FUNCTION APPLICATIONS_TEMPLATE_REPORT_P RETURN VARCHAR2 IS
451   BEGIN
452     RETURN APPLICATIONS_TEMPLATE_REPORT;
453   END APPLICATIONS_TEMPLATE_REPORT_P;
454 
455   FUNCTION C_VENDOR_DYNAMIC_SQL_P RETURN VARCHAR2 IS
456   BEGIN
457     RETURN C_VENDOR_DYNAMIC_SQL;
458   END C_VENDOR_DYNAMIC_SQL_P;
459 
460   FUNCTION C_INVOICE_DYNAMIC_SQL_P RETURN VARCHAR2 IS
461   BEGIN
462     RETURN C_INVOICE_DYNAMIC_SQL;
463   END C_INVOICE_DYNAMIC_SQL_P;
464 
465   FUNCTION C_HEADER_VENDOR_TYPE_P RETURN VARCHAR2 IS
466   BEGIN
467     RETURN C_HEADER_VENDOR_TYPE;
468   END C_HEADER_VENDOR_TYPE_P;
469 
470   FUNCTION C_HEADER_VENDOR_NAME_P RETURN VARCHAR2 IS
471   BEGIN
472     RETURN C_HEADER_VENDOR_NAME;
473   END C_HEADER_VENDOR_NAME_P;
474 
475   FUNCTION C_HEADER_INCLUDE_INVOICE_P RETURN VARCHAR2 IS
476   BEGIN
477     RETURN C_HEADER_INCLUDE_INVOICE;
478   END C_HEADER_INCLUDE_INVOICE_P;
479 
480   FUNCTION C_HEADER_INCLUDE_CREDIT_P RETURN VARCHAR2 IS
481   BEGIN
482     RETURN C_HEADER_INCLUDE_CREDIT;
483   END C_HEADER_INCLUDE_CREDIT_P;
484 
485   FUNCTION C_NLS_UNPAID_P RETURN VARCHAR2 IS
486   BEGIN
487     RETURN C_NLS_UNPAID;
488   END C_NLS_UNPAID_P;
489 
490   FUNCTION C_HEADER_SHOW_PREPAY_DIST_P RETURN VARCHAR2 IS
491   BEGIN
492     RETURN C_HEADER_SHOW_PREPAY_DIST;
493   END C_HEADER_SHOW_PREPAY_DIST_P;
494 
495   FUNCTION C_HEADER_PREPAYMENT_TYPE_P RETURN VARCHAR2 IS
496   BEGIN
497     RETURN C_HEADER_PREPAYMENT_TYPE;
498   END C_HEADER_PREPAYMENT_TYPE_P;
499 
500 END AP_APXINPSR_XMLP_PKG;
501 
502