DBA Data[Home] [Help]

PACKAGE BODY: APPS.JL_JLARPPTF_XMLP_PKG

Source


1 PACKAGE BODY JL_JLARPPTF_XMLP_PKG AS
2 /* $Header: JLARPPTFB.pls 120.2 2008/01/11 07:52:18 abraghun 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_VOID AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
54     NLS_NA AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
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     SELECT
60       LY.MEANING,
61       LN.MEANING,
62       L1.DISPLAYED_FIELD,
63       L2.DISPLAYED_FIELD,
64       L3.DISPLAYED_FIELD
65     INTO NLS_YES,NLS_NO,NLS_ALL,NLS_VOID,NLS_NA
66     FROM
67       FND_LOOKUPS LY,
68       FND_LOOKUPS LN,
69       AP_LOOKUP_CODES L1,
70       AP_LOOKUP_CODES L2,
71       AP_LOOKUP_CODES L3
72     WHERE LY.LOOKUP_TYPE = 'YES_NO'
73       AND LY.LOOKUP_CODE = 'Y'
74       AND LN.LOOKUP_TYPE = 'YES_NO'
75       AND LN.LOOKUP_CODE = 'N'
76       AND L1.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
77       AND L1.LOOKUP_CODE = 'ALL'
78       AND L2.LOOKUP_TYPE = 'NLS TRANSLATION'
79       AND L2.LOOKUP_CODE = 'VOID'
80       AND L3.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
81       AND L3.LOOKUP_CODE = 'NA';
82     C_NLS_YES := NLS_YES;
83     C_NLS_NO := NLS_NO;
84     C_NLS_ALL := NLS_ALL;
85     C_NLS_VOID := NLS_VOID;
86     C_NLS_NA := NLS_NA;
87     FND_MESSAGE.SET_NAME('SQLAP'
88                         ,'AP_APPRVL_NO_DATA');
89     C_NLS_NO_DATA_EXISTS := FND_MESSAGE.GET;
90     FND_MESSAGE.SET_NAME('SQLAP'
91                         ,'AP_ALL_END_OF_REPORT');
92     C_NLS_END_OF_REPORT := FND_MESSAGE.GET;
93     C_NLS_NO_DATA_EXISTS := '*** ' || C_NLS_NO_DATA_EXISTS || ' ***';
94     C_NLS_END_OF_REPORT := '*** ' || C_NLS_END_OF_REPORT || ' ***';
95     RETURN (TRUE);
96     RETURN NULL;
97   EXCEPTION
98     WHEN OTHERS THEN
99       RETURN (FALSE);
100   END GET_NLS_STRINGS;
101 
102   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
103   BEGIN
104     DECLARE
105       INIT_FAILURE EXCEPTION;
106     BEGIN
107       C_REPORT_START_DATE := SYSDATE;
108       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
109       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
110       IF (P_DEBUG_SWITCH in ('y','Y')) THEN
111         /*SRW.MESSAGE('1'
112                    ,'After SRWINIT')*/NULL;
113       END IF;
114       IF POPULATE_TRL <> TRUE THEN
115         NULL;
116       END IF;
117       RETURN (TRUE);
118     EXCEPTION
119       WHEN OTHERS THEN
120         /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
121     END;
122     RETURN (TRUE);
123   END BEFOREREPORT;
124 
125   FUNCTION AFTERREPORT RETURN BOOLEAN IS
126   BEGIN
127     BEGIN
128       ZX_EXTRACT_PKG.PURGE(P_CONC_REQUEST_ID);
129     EXCEPTION
130       WHEN OTHERS THEN
131         NULL;
132     END;
133     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
134     RETURN (TRUE);
135   EXCEPTION
136     WHEN OTHERS THEN
137       /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
138   END AFTERREPORT;
139 
140   FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
141     L_CHART_OF_ACCOUNTS_ID GL_SETS_OF_BOOKS.CHART_OF_ACCOUNTS_ID%TYPE;
142     L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
143     L_SOB_ID NUMBER;
144   BEGIN
145     IF P_SET_OF_BOOKS_ID IS NOT NULL THEN
146       L_SOB_ID := P_SET_OF_BOOKS_ID;
147       SELECT
148         NAME,
149         CHART_OF_ACCOUNTS_ID
150       INTO L_NAME,L_CHART_OF_ACCOUNTS_ID
151       FROM
152         GL_SETS_OF_BOOKS
153       WHERE SET_OF_BOOKS_ID = L_SOB_ID;
154       C_COMPANY_NAME_HEADER := L_NAME;
155       C_CHART_OF_ACCOUNTS_ID := L_CHART_OF_ACCOUNTS_ID;
156     END IF;
157     RETURN (TRUE);
158     RETURN NULL;
159   EXCEPTION
160     WHEN OTHERS THEN
161       RETURN (FALSE);
162   END GET_COMPANY_NAME;
163 
164   FUNCTION C_PERCEPTION_AMT_CHARFORMULA(PERCEPTION_AMOUNT IN NUMBER) RETURN VARCHAR2 IS
165   BEGIN
166     RETURN (LPAD(LTRIM(TO_CHAR(ROUND(PERCEPTION_AMOUNT
167                                    ,2)
168                              ,'9999999999999.99'))
169                ,16
170                ,' '));
171   END C_PERCEPTION_AMT_CHARFORMULA;
172 
173   FUNCTION POPULATE_TRL RETURN BOOLEAN IS
174   BEGIN
175     /*SRW.MESSAGE('01'
176                ,'Call to TRL API : zx_extract_pkg.populate_tax_data')*/NULL;
177     ZX_EXTRACT_PKG.POPULATE_TAX_DATA(P_REPORTING_LEVEL => P_REPORTING_LEVEL
178                                     ,P_REPORTING_CONTEXT => P_REPORTING_ENTITY_ID
179                                     ,P_LEGAL_ENTITY_ID => P_LEGAL_ENTITY_ID
180                                     ,P_SUMMARY_LEVEL => 'TRANSACTION_DISTRIBUTION'
181                                     ,P_LEDGER_ID => P_SET_OF_BOOKS_ID
182                                     ,P_REGISTER_TYPE => 'ALL'
183                                     ,P_PRODUCT => 'AP'
184                                     ,P_MATRIX_REPORT => 'N'
185                                     ,P_CURRENCY_CODE_LOW => NULL
186                                     ,P_CURRENCY_CODE_HIGH => NULL
187                                     ,P_INCLUDE_AP_STD_TRX_CLASS => 'Y'
188                                     ,P_INCLUDE_AP_DM_TRX_CLASS => 'Y'
189                                     ,P_INCLUDE_AP_CM_TRX_CLASS => 'N'
190                                     ,P_INCLUDE_AP_PREP_TRX_CLASS => 'Y'
191                                     ,P_INCLUDE_AP_MIX_TRX_CLASS => 'N'
192                                     ,P_INCLUDE_AP_EXP_TRX_CLASS => 'N'
193                                     ,P_INCLUDE_AP_INT_TRX_CLASS => 'N'
194                                     ,P_INCLUDE_AR_INV_TRX_CLASS => 'N'
195                                     ,P_INCLUDE_AR_APPL_TRX_CLASS => 'N'
196                                     ,P_INCLUDE_AR_ADJ_TRX_CLASS => 'N'
197                                     ,P_INCLUDE_AR_MISC_TRX_CLASS => 'N'
198                                     ,P_INCLUDE_AR_BR_TRX_CLASS => 'N'
199                                     ,P_INCLUDE_GL_MANUAL_LINES => 'N'
203                                     ,P_AR_TRX_PRINTING_STATUS => NULL
200                                     ,P_TRX_NUMBER_LOW => NULL
201                                     ,P_TRX_NUMBER_HIGH => NULL
202                                     ,P_EXTRACT_REPORT_LINE_NUMBER => NULL
204                                     ,P_AR_EXEMPTION_STATUS => NULL
205                                     ,P_GL_DATE_LOW => P_GL_DATE_FROM
206                                     ,P_GL_DATE_HIGH => P_GL_DATE_TO
207                                     ,P_TRX_DATE_LOW => NULL
208                                     ,P_TRX_DATE_HIGH => NULL
209                                     ,P_ACCOUNTING_STATUS => 'ACCOUNTED'
210                                     ,P_GL_PERIOD_NAME_LOW => NULL
211                                     ,P_GL_PERIOD_NAME_HIGH => NULL
212                                     ,P_TRX_DATE_PERIOD_NAME_LOW => NULL
213                                     ,P_TRX_DATE_PERIOD_NAME_HIGH => NULL
214                                     ,P_TAX_REGIME_CODE => NULL
215                                     ,P_TAX => NULL
216                                     ,P_TAX_STATUS_CODE => NULL
217                                     ,P_TAX_RATE_CODE_LOW => NULL
218                                     ,P_TAX_RATE_CODE_HIGH => NULL
219                                     ,P_TAX_TYPE_CODE_LOW => NULL
220                                     ,P_TAX_TYPE_CODE_HIGH => NULL
221                                     ,P_DOCUMENT_SUB_TYPE => NULL
222                                     ,P_TRX_BUSINESS_CATEGORY => NULL
223                                     ,P_TAX_INVOICE_DATE_LOW => NULL
224                                     ,P_TAX_INVOICE_DATE_HIGH => NULL
225                                     ,P_POSTING_STATUS => 'ACCOUNTED'
226                                     ,P_EXTRACT_ACCTED_TAX_LINES => NULL
227                                     ,P_INCLUDE_ACCOUNTING_SEGMENTS => NULL
228                                     ,P_BALANCING_SEGMENT_LOW => NULL
229                                     ,P_BALANCING_SEGMENT_HIGH => NULL
230                                     ,P_INCLUDE_DISCOUNTS => NULL
231                                     ,P_EXTRACT_STARTING_LINE_NUM => NULL
232                                     ,P_REQUEST_ID => P_CONC_REQUEST_ID
233                                     ,P_REPORT_NAME => 'JLARPPTF'
234                                     ,P_VAT_TRANSACTION_TYPE_CODE => NULL
235                                     ,P_INCLUDE_FULLY_NR_TAX_FLAG => NULL
236                                     ,P_MUNICIPAL_TAX_TYPE_CODE_LOW => NULL
237                                     ,P_MUNICIPAL_TAX_TYPE_CODE_HIGH => NULL
238                                     ,P_PROV_TAX_TYPE_CODE_LOW => NULL
239                                     ,P_PROV_TAX_TYPE_CODE_HIGH => NULL
240                                     ,P_EXCISE_TAX_TYPE_CODE_LOW => NULL
241                                     ,P_EXCISE_TAX_TYPE_CODE_HIGH => NULL
242                                     ,P_NON_TAXABLE_TAX_TYPE_CODE => NULL
243                                     ,P_PER_TAX_TYPE_CODE_LOW => P_VAT_PERCEP_TAX_TYPE
244                                     ,P_PER_TAX_TYPE_CODE_HIGH => P_VAT_PERCEP_TAX_TYPE
245                                     ,P_VAT_TAX_TYPE_CODE => NULL
246                                     ,P_EXCISE_TAX => NULL
247                                     ,P_VAT_ADDITIONAL_TAX => NULL
248                                     ,P_VAT_NON_TAXABLE_TAX => NULL
249                                     ,P_VAT_NOT_TAX => NULL
250                                     ,P_VAT_PERCEPTION_TAX => NULL
251                                     ,P_VAT_TAX => NULL
252                                     ,P_INC_SELF_WD_TAX => NULL
253                                     ,P_EXCLUDING_TRX_LETTER => NULL
254                                     ,P_TRX_LETTER_LOW => NULL
255                                     ,P_TRX_LETTER_HIGH => NULL
256                                     ,P_INCLUDE_REFERENCED_SOURCE => NULL
257                                     ,P_PARTY_NAME => NULL
258                                     ,P_BATCH_NAME => NULL
259                                     ,P_BATCH_DATE_LOW => NULL
260                                     ,P_BATCH_DATE_HIGH => NULL
261                                     ,P_BATCH_SOURCE_ID => NULL
262                                     ,P_ADJUSTED_DOC_FROM => NULL
263                                     ,P_ADJUSTED_DOC_TO => NULL
264                                     ,P_STANDARD_VAT_TAX_RATE => NULL
265                                     ,P_MUNICIPAL_TAX => NULL
266                                     ,P_PROVINCIAL_TAX => NULL
267                                     ,P_TAX_ACCOUNT_LOW => NULL
268                                     ,P_TAX_ACCOUNT_HIGH => NULL
269                                     ,P_EXP_CERT_DATE_FROM => NULL
270                                     ,P_EXP_CERT_DATE_TO => NULL
271                                     ,P_EXP_METHOD => NULL
272                                     ,P_PRINT_COMPANY_INFO => 'Y'
273                                     ,P_REPRINT => 'N'
274                                     ,P_ERRBUF => P_ERRBUF
275                                     ,P_RETCODE => P_RETCODE);
276     IF P_RETCODE <> 0 THEN
277       /*SRW.MESSAGE('100'
278                  ,'TRL: Return Code : ' || P_RETCODE)*/NULL;
279       /*SRW.MESSAGE('101'
280                  ,'TRL: Error Buffer : ' || P_ERRBUF)*/NULL;
281       RETURN (FALSE);
282     ELSE
283       RETURN (TRUE);
284     END IF;
285   EXCEPTION
286     WHEN OTHERS THEN
287       /*SRW.MESSAGE('102'
288                  ,SQLERRM)*/NULL;
289       RETURN (FALSE);
290   END POPULATE_TRL;
291 
292   FUNCTION GET_FORMATTED_DOCNUM(P_DOC_NUM IN VARCHAR2) RETURN VARCHAR2 IS
293     L_DOC_NUM VARCHAR2(50);
294     L_DOCUMENT_NUM VARCHAR2(20);
295     BRANCH_NUM VARCHAR2(4);
296     DOC_NUM VARCHAR2(20);
297     L_DASH NUMBER(2);
301     L_DOC_NUM := TRANSLATE(P_DOC_NUM
298     L_SPACE NUMBER(2);
299     BRANCH_DOC_NUM VARCHAR2(24);
300   BEGIN
302                           ,'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
303                           ,'0123456789');
304     L_DASH := INSTR(L_DOC_NUM
305                    ,'-'
306                    ,1
307                    ,1);
308     L_SPACE := INSTR(L_DOC_NUM
309                     ,' '
310                     ,1
311                     ,1);
312     IF L_DASH < L_SPACE AND L_SPACE <> 0 THEN
313       BRANCH_NUM := LPAD(NVL(SUBSTR(L_DOC_NUM
314                                    ,1
315                                    ,L_DASH - 1)
316                             ,'0')
317                         ,4
318                         ,'0');
319       L_DOCUMENT_NUM := TRANSLATE(SUBSTR(L_DOC_NUM
320                                         ,L_DASH + 1
321                                         ,20)
322                                  ,'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz- '
323                                  ,'0123456789');
324     END IF;
325     IF L_SPACE < L_DASH AND L_DASH <> 0 THEN
326       BRANCH_NUM := LPAD(NVL(SUBSTR(L_DOC_NUM
327                                    ,1
328                                    ,L_SPACE - 1)
329                             ,'0')
330                         ,4
331                         ,'0');
332       L_DOCUMENT_NUM := TRANSLATE(SUBSTR(L_DOC_NUM
333                                         ,L_SPACE + 1
334                                         ,20)
335                                  ,'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz- '
336                                  ,'0123456789');
337     END IF;
338     IF L_DASH <= 4 AND L_DASH > 0 AND L_SPACE = 0 THEN
339       BRANCH_NUM := LPAD(NVL(SUBSTR(L_DOC_NUM
340                                    ,1
341                                    ,L_DASH - 1)
342                             ,'0')
343                         ,4
344                         ,'0');
345       L_DOCUMENT_NUM := TRANSLATE(SUBSTR(L_DOC_NUM
346                                         ,L_DASH + 1
347                                         ,20)
348                                  ,'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz- '
349                                  ,'0123456789');
350     ELSIF L_DASH <> 0 AND L_SPACE = 0 THEN
351       BRANCH_NUM := LPAD(NVL(SUBSTR(L_DOC_NUM
352                                    ,1
353                                    ,4)
354                             ,'0')
355                         ,4
356                         ,'0');
357       L_DOCUMENT_NUM := TRANSLATE(SUBSTR(L_DOC_NUM
358                                         ,L_DASH + 1
359                                         ,20)
360                                  ,'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz- '
361                                  ,'0123456789');
362     END IF;
363     IF L_SPACE <= 4 AND L_SPACE > 0 AND L_DASH = 0 THEN
364       BRANCH_NUM := LPAD(NVL(SUBSTR(L_DOC_NUM
365                                    ,1
366                                    ,L_SPACE - 1)
367                             ,'0')
368                         ,4
369                         ,'0');
370       L_DOCUMENT_NUM := TRANSLATE(SUBSTR(L_DOC_NUM
371                                         ,L_SPACE + 1
372                                         ,20)
373                                  ,'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz- '
374                                  ,'0123456789');
375     ELSIF L_SPACE <> 0 AND L_DASH = 0 THEN
376       BRANCH_NUM := LPAD(NVL(SUBSTR(L_DOC_NUM
377                                    ,1
378                                    ,4)
379                             ,'0')
380                         ,4
381                         ,'0');
382       L_DOCUMENT_NUM := TRANSLATE(SUBSTR(L_DOC_NUM
383                                         ,L_SPACE + 1
384                                         ,20)
385                                  ,'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz- '
386                                  ,'0123456789');
387     END IF;
388     IF L_SPACE = 0 AND L_DASH = 0 THEN
389       BRANCH_NUM := LPAD(NVL(SUBSTR(L_DOC_NUM
390                                    ,1
391                                    ,4)
392                             ,'0')
393                         ,4
394                         ,'0');
395       L_DOCUMENT_NUM := TRANSLATE(SUBSTR(L_DOC_NUM
396                                         ,5
397                                         ,20)
398                                  ,'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz- '
399                                  ,'0123456789');
400     END IF;
401     DOC_NUM := LPAD(L_DOCUMENT_NUM
402                    ,20
403                    ,'0');
404     BRANCH_DOC_NUM := BRANCH_NUM || DOC_NUM;
405     RETURN (BRANCH_DOC_NUM);
406   END GET_FORMATTED_DOCNUM;
407 
408   FUNCTION DOC_NUMBERFORMULA(DOC_NUM IN VARCHAR2) RETURN VARCHAR2 IS
409     L_BRANCH VARCHAR2(4);
410     L_DOC_NUM VARCHAR2(8);
411     L_BRANCH_DOC VARCHAR2(24);
412   BEGIN
413     L_BRANCH_DOC := GET_FORMATTED_DOCNUM(DOC_NUM);
414     L_BRANCH := SUBSTR(L_BRANCH_DOC
415                       ,1
416                       ,4);
417     L_DOC_NUM := SUBSTR(L_BRANCH_DOC
418                        ,17
419                        ,8);
420     RETURN (L_BRANCH || L_DOC_NUM);
421   END DOC_NUMBERFORMULA;
422 
423   FUNCTION C_NLS_YES_P RETURN VARCHAR2 IS
424   BEGIN
425     RETURN C_NLS_YES;
426   END C_NLS_YES_P;
427 
428   FUNCTION C_NLS_NO_P RETURN VARCHAR2 IS
429   BEGIN
430     RETURN C_NLS_NO;
431   END C_NLS_NO_P;
432 
433   FUNCTION C_NLS_ALL_P RETURN VARCHAR2 IS
434   BEGIN
435     RETURN C_NLS_ALL;
436   END C_NLS_ALL_P;
437 
438   FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
439   BEGIN
440     RETURN C_NLS_NO_DATA_EXISTS;
441   END C_NLS_NO_DATA_EXISTS_P;
442 
443   FUNCTION C_NLS_VOID_P RETURN VARCHAR2 IS
444   BEGIN
445     RETURN C_NLS_VOID;
446   END C_NLS_VOID_P;
447 
448   FUNCTION C_NLS_NA_P RETURN VARCHAR2 IS
449   BEGIN
450     RETURN C_NLS_NA;
451   END C_NLS_NA_P;
452 
453   FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
454   BEGIN
455     RETURN C_NLS_END_OF_REPORT;
456   END C_NLS_END_OF_REPORT_P;
457 
458   FUNCTION C_REPORT_START_DATE_P RETURN DATE IS
459   BEGIN
460     RETURN C_REPORT_START_DATE;
461   END C_REPORT_START_DATE_P;
462 
463   FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
464   BEGIN
465     RETURN C_COMPANY_NAME_HEADER;
466   END C_COMPANY_NAME_HEADER_P;
467 
468   FUNCTION C_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
469   BEGIN
470     RETURN C_BASE_CURRENCY_CODE;
471   END C_BASE_CURRENCY_CODE_P;
472 
473   FUNCTION C_BASE_PRECISION_P RETURN NUMBER IS
474   BEGIN
475     RETURN C_BASE_PRECISION;
476   END C_BASE_PRECISION_P;
477 
478   FUNCTION C_BASE_MIN_ACCT_UNIT_P RETURN NUMBER IS
479   BEGIN
480     RETURN C_BASE_MIN_ACCT_UNIT;
481   END C_BASE_MIN_ACCT_UNIT_P;
482 
483   FUNCTION C_BASE_DESCRIPTION_P RETURN VARCHAR2 IS
484   BEGIN
485     RETURN C_BASE_DESCRIPTION;
486   END C_BASE_DESCRIPTION_P;
487 
488   FUNCTION C_CHART_OF_ACCOUNTS_ID_P RETURN NUMBER IS
489   BEGIN
490     RETURN C_CHART_OF_ACCOUNTS_ID;
491   END C_CHART_OF_ACCOUNTS_ID_P;
492 
493   FUNCTION APPLICATIONS_TEMPLATE_REPORT_P RETURN VARCHAR2 IS
494   BEGIN
495     RETURN APPLICATIONS_TEMPLATE_REPORT;
496   END APPLICATIONS_TEMPLATE_REPORT_P;
497 
498 END JL_JLARPPTF_XMLP_PKG;
499 
500