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.JA_JAINARE1_XMLP_PKG

Source


1 PACKAGE BODY JA_JAINARE1_XMLP_PKG AS
2 /* $Header: JAINARE1B.pls 120.1 2007/12/25 16:12:44 dwkrishn noship $ */
3   FUNCTION CF_CITYFORMULA RETURN CHAR IS
4     CURSOR C_CITY(P_LOCATION_ID IN NUMBER) IS
5       SELECT
6         TOWN_OR_CITY
7       FROM
8         HR_LOCATIONS
9       WHERE LOCATION_ID = P_LOCATION_ID;
10     CURSOR C_LOCATION(P_ORGANIZATION_ID IN NUMBER) IS
11       SELECT
12         LOCATION_ID
13       FROM
14         HR_ORGANIZATION_UNITS
15       WHERE ORGANIZATION_ID = P_ORGANIZATION_ID;
16     CURSOR C_ORGANIZATION(P_ORGANIZATION_ID IN NUMBER) IS
17       SELECT
18         LEGAL_ENTITY
19       FROM
20         ORG_ORGANIZATION_DEFINITIONS
21       WHERE ORGANIZATION_ID = P_ORGANIZATION_ID;
22     V_ORGANIZATION_ID ORG_ORGANIZATION_DEFINITIONS.LEGAL_ENTITY%TYPE;
23     V_LOCATION_ID HR_ORGANIZATION_UNITS.LOCATION_ID%TYPE;
24     V_CITY HR_LOCATIONS.TOWN_OR_CITY%TYPE;
25   BEGIN
26     OPEN C_ORGANIZATION(P_ORGANIZATION_ID);
27     FETCH C_ORGANIZATION
28      INTO V_ORGANIZATION_ID;
29     CLOSE C_ORGANIZATION;
30     OPEN C_LOCATION(V_ORGANIZATION_ID);
31     FETCH C_LOCATION
32      INTO V_LOCATION_ID;
33     CLOSE C_LOCATION;
34     OPEN C_CITY(V_LOCATION_ID);
35     FETCH C_CITY
36      INTO V_CITY;
37     CLOSE C_CITY;
38     RETURN V_CITY;
39   END CF_CITYFORMULA;
40 
41   FUNCTION CF_LEGAL_ENTITYFORMULA RETURN CHAR IS
42     CURSOR C_LEGAL_ENTITY_NAME(P_LEGAL_ENTITY_ID IN NUMBER) IS
43       SELECT
44         NAME
45       FROM
46         HR_ORGANIZATION_UNITS
47       WHERE ORGANIZATION_ID = P_LEGAL_ENTITY_ID;
48     CURSOR C_LEGAL_ENTITY_ID(P_ORGANIZATION_ID IN NUMBER) IS
49       SELECT
50         LEGAL_ENTITY
51       FROM
52         ORG_ORGANIZATION_DEFINITIONS
53       WHERE ORGANIZATION_ID = P_ORGANIZATION_ID;
54     V_NAME ORG_ORGANIZATION_DEFINITIONS.ORGANIZATION_NAME%TYPE;
55     V_LEGAL_ENTITY_ID ORG_ORGANIZATION_DEFINITIONS.LEGAL_ENTITY%TYPE;
56   BEGIN
57     OPEN C_LEGAL_ENTITY_ID(P_ORGANIZATION_ID);
58     FETCH C_LEGAL_ENTITY_ID
59      INTO V_LEGAL_ENTITY_ID;
60     CLOSE C_LEGAL_ENTITY_ID;
61     OPEN C_LEGAL_ENTITY_NAME(V_LEGAL_ENTITY_ID);
62     FETCH C_LEGAL_ENTITY_NAME
63      INTO V_NAME;
64     CLOSE C_LEGAL_ENTITY_NAME;
65     RETURN V_NAME;
66   END CF_LEGAL_ENTITYFORMULA;
67 
68   FUNCTION CF_DESTINATION_COUNTRYFORMULA(SHIP_TO_SITE_USE_ID IN NUMBER) RETURN CHAR IS
69     CURSOR C_ADDRESS(P_SITE_USE_ID IN NUMBER) IS
70       SELECT
71         CUST_ACCT_SITE_ID ADDRESS_ID
72       FROM
73         HZ_CUST_SITE_USES_ALL
74       WHERE SITE_USE_ID = P_SITE_USE_ID;
75     CURSOR C_COUNTRY(P_ADDRESS_ID IN NUMBER) IS
76       SELECT
77         HZL.COUNTRY COUNTRY
78       FROM
79         HZ_LOCATIONS HZL,
80         HZ_PARTY_SITES HZPS,
81         HZ_CUST_ACCT_SITES_ALL HZCAS
82       WHERE HZL.LOCATION_ID = HZPS.LOCATION_ID
83         AND HZPS.PARTY_SITE_ID = HZCAS.PARTY_SITE_ID
84         AND HZCAS.CUST_ACCT_SITE_ID = P_ADDRESS_ID;
85     V_ADDRESS_ID HZ_CUST_ACCT_SITES_ALL.CUST_ACCT_SITE_ID%TYPE;
86     V_COUNTRY HZ_LOCATIONS.COUNTRY%TYPE;
87   BEGIN
88     OPEN C_ADDRESS(SHIP_TO_SITE_USE_ID);
89     FETCH C_ADDRESS
90      INTO V_ADDRESS_ID;
91     CLOSE C_ADDRESS;
92     OPEN C_COUNTRY(V_ADDRESS_ID);
93     FETCH C_COUNTRY
94      INTO V_COUNTRY;
95     CLOSE C_COUNTRY;
96     RETURN V_COUNTRY;
97   END CF_DESTINATION_COUNTRYFORMULA;
98 
99   FUNCTION CP_NULLFORMULA RETURN CHAR IS
100   BEGIN
101     RETURN NULL;
102   END CP_NULLFORMULA;
103 
104   FUNCTION CF_QTY_OF_GOODSFORMULA(QUANTITY IN NUMBER
105                                  ,REQUESTED_QUANTITY_UOM IN VARCHAR2) RETURN CHAR IS
106   BEGIN
107     RETURN NVL(QUANTITY
108               ,'') || ' ' || NVL(REQUESTED_QUANTITY_UOM
109               ,'');
110   END CF_QTY_OF_GOODSFORMULA;
111 
112   FUNCTION CF_TAX_RATEFORMULA(DELIVERY_ID IN NUMBER
113                              ,INVENTORY_ITEM_ID IN NUMBER) RETURN NUMBER IS
114     CURSOR C_EXCISE_RATE(P_DELIVERY_ID IN NUMBER,P_INVENTORY_ITEM_ID IN NUMBER) IS
115       SELECT
116         JISPTL.TAX_RATE
117       FROM
118         JAI_CMN_TAXES_ALL JTC,
119         JAI_OM_WSH_LINE_TAXES JISPTL
120       WHERE JISPTL.DELIVERY_DETAIL_ID in (
121         SELECT
122           DELIVERY_DETAIL_ID
123         FROM
124           JAI_OM_WSH_LINES_ALL
125         WHERE DELIVERY_ID = P_DELIVERY_ID
126           AND INVENTORY_ITEM_ID = P_INVENTORY_ITEM_ID )
127         AND JTC.TAX_ID = JISPTL.TAX_ID
128         AND JTC.TAX_TYPE like '%Excise%';
129     V_RATE NUMBER;
130   BEGIN
131     OPEN C_EXCISE_RATE(DELIVERY_ID,INVENTORY_ITEM_ID);
132     FETCH C_EXCISE_RATE
133      INTO V_RATE;
134     CLOSE C_EXCISE_RATE;
135     RETURN V_RATE;
136   END CF_TAX_RATEFORMULA;
137 
138   FUNCTION CF_VALUEFORMULA(DELIVERY_ID IN NUMBER
139                           ,ORDER_HEADER_ID IN NUMBER
140                           ,ORDER_LINE_ID IN NUMBER
141                           ,QUANTITY IN NUMBER
142                           ,CF_SET_OF_BOOKS_ID IN NUMBER
143                           ,CF_FUN_CURR IN VARCHAR2) RETURN CHAR IS
144     CURSOR C_DELIVERY_DATE(P_DELIVERY_ID IN NUMBER) IS
145       SELECT
146         CONFIRM_DATE
147       FROM
148         WSH_NEW_DELIVERIES
149       WHERE DELIVERY_ID = P_DELIVERY_ID;
150     CURSOR C_CONVERSION(P_HEADER_ID IN NUMBER) IS
151       SELECT
152         CONVERSION_TYPE_CODE,
153         CONVERSION_RATE,
154         TRANSACTIONAL_CURR_CODE
155       FROM
156         OE_ORDER_HEADERS_ALL
157       WHERE HEADER_ID = P_HEADER_ID;
158     CURSOR C_ORDER_LINE_SELLING_PRICE(P_LINE_ID IN NUMBER,P_HEADER_ID IN NUMBER) IS
159       SELECT
160         UNIT_SELLING_PRICE
161       FROM
162         OE_ORDER_LINES_ALL
163       WHERE LINE_ID = P_LINE_ID
164         AND HEADER_ID = P_HEADER_ID;
165     V_CONFIRM_DATE DATE;
166     V_CONVERSION_TYPE OE_ORDER_HEADERS_ALL.CONVERSION_TYPE_CODE%TYPE;
167     V_TRANS_CURR OE_ORDER_HEADERS_ALL.TRANSACTIONAL_CURR_CODE%TYPE;
168     V_CONVERSION C_CONVERSION%ROWTYPE;
169     V_CONVERSION_RATE NUMBER;
170     V_SELLING_PRICE NUMBER;
171     V_SELLING_VALUE NUMBER(20,3);
172     V_STRING VARCHAR2(100) := '';
173     V_TOTAL_LENGTH NUMBER := 11;
174     V_FIELD_LENGTH NUMBER := 11;
175   BEGIN
176     OPEN C_DELIVERY_DATE(DELIVERY_ID);
177     FETCH C_DELIVERY_DATE
178      INTO V_CONFIRM_DATE;
179     CLOSE C_DELIVERY_DATE;
180     OPEN C_CONVERSION(ORDER_HEADER_ID);
181     FETCH C_CONVERSION
182      INTO V_CONVERSION;
183     CLOSE C_CONVERSION;
184     OPEN C_ORDER_LINE_SELLING_PRICE(ORDER_LINE_ID,ORDER_HEADER_ID);
185     FETCH C_ORDER_LINE_SELLING_PRICE
186      INTO V_SELLING_PRICE;
187     CLOSE C_ORDER_LINE_SELLING_PRICE;
188     V_SELLING_VALUE := V_SELLING_PRICE * QUANTITY;
189     IF V_CONVERSION.TRANSACTIONAL_CURR_CODE IS NOT NULL THEN
190       V_CONVERSION_RATE := JAI_CMN_UTILS_PKG.CURRENCY_CONVERSION(CF_SET_OF_BOOKS_ID
191                                                                 ,V_CONVERSION.TRANSACTIONAL_CURR_CODE
192                                                                 ,V_CONFIRM_DATE
193                                                                 ,V_CONVERSION.CONVERSION_TYPE_CODE
194                                                                 ,V_CONVERSION.CONVERSION_RATE);
195       IF V_SELLING_VALUE IS NULL THEN
196         V_STRING := V_CONVERSION.TRANSACTIONAL_CURR_CODE || ' ';
197       ELSE
198         V_STRING := NVL(V_CONVERSION.TRANSACTIONAL_CURR_CODE
199                        ,'') || ' ' || ROUND(V_SELLING_VALUE
200                          ,2);
201       END IF;
202       V_STRING := V_STRING || ' ';
203       V_STRING := V_STRING || '@' || NVL(CF_FUN_CURR
204                      ,'') || ' ' || ROUND(NVL(V_CONVERSION_RATE
205                            ,1)
206                        ,2);
207       V_STRING := V_STRING || ' ';
208     END IF;
209     V_STRING := V_STRING || NVL(CF_FUN_CURR
210                    ,'') || ' ' || ROUND(NVL(V_SELLING_VALUE
211                          ,0) * NVL(V_CONVERSION_RATE
212                          ,1)
213                      ,2);
214     RETURN V_STRING;
215   END CF_VALUEFORMULA;
216 
217   FUNCTION CF_SET_OF_BOOKS_IDFORMULA RETURN NUMBER IS
218     CURSOR C_SET_OF_BOOKS(P_OPERATING_UNIT_ID IN NUMBER) IS
219       SELECT
220         SET_OF_BOOKS_ID
221       FROM
222         ORG_ORGANIZATION_DEFINITIONS
223       WHERE ORGANIZATION_ID = P_OPERATING_UNIT_ID;
224     V_SOB NUMBER;
225   BEGIN
226     OPEN C_SET_OF_BOOKS(P_ORGANIZATION_ID);
227     FETCH C_SET_OF_BOOKS
228      INTO V_SOB;
229     CLOSE C_SET_OF_BOOKS;
230     RETURN V_SOB;
231   END CF_SET_OF_BOOKS_IDFORMULA;
232 
233   FUNCTION CF_FUN_CURRFORMULA(CF_SET_OF_BOOKS_ID IN NUMBER) RETURN CHAR IS
234     CURSOR C_FUN_CURR(P_SOB IN NUMBER) IS
235       SELECT
236         CURRENCY_CODE
237       FROM
238         GL_SETS_OF_BOOKS
239       WHERE SET_OF_BOOKS_ID = P_SOB;
240     V_CURR VARCHAR2(4);
241   BEGIN
242     OPEN C_FUN_CURR(CF_SET_OF_BOOKS_ID);
243     FETCH C_FUN_CURR
244      INTO V_CURR;
245     CLOSE C_FUN_CURR;
246     RETURN V_CURR;
247   END CF_FUN_CURRFORMULA;
248 
249   FUNCTION CF_PACKINGFORMULA RETURN CHAR IS
250   BEGIN
251     RETURN 'As Per Packing List';
252   END CF_PACKINGFORMULA;
253 
254   FUNCTION CF_FUNC_TAX_AMOUNTFORMULA(DELIVERY_ID IN NUMBER
255                                     ,INVENTORY_ITEM_ID IN NUMBER) RETURN NUMBER IS
256     CURSOR C_EXCISE_AMOUNT(P_DELIVERY_ID IN NUMBER,P_INVENTORY_ITEM_ID IN NUMBER) IS
257       SELECT
258         SUM(DECODE(UPPER(TAX_TYPE)
259                   ,'EXCISE'
260                   ,JISPTL.FUNC_TAX_AMOUNT
261                   ,'OTHER EXCISE'
262                   ,JISPTL.FUNC_TAX_AMOUNT
263                   ,'ADDL. EXCISE'
264                   ,JISPTL.FUNC_TAX_AMOUNT
265                   ,0)) EXCISE,
266         SUM(DECODE(UPPER(TAX_TYPE)
267                   ,'EXCISE_EDUCATION_CESS'
268                   ,JISPTL.FUNC_TAX_AMOUNT
269                   ,0)) EXCISE_CESS,
270         SUM(DECODE(UPPER(TAX_TYPE)
271                   ,'EXCISE_SH_EDU_CESS'
272                   ,JISPTL.FUNC_TAX_AMOUNT
273                   ,0)) EXCISE_SH_CESS
274       FROM
275         JAI_CMN_TAXES_ALL JTC,
276         JAI_OM_WSH_LINE_TAXES JISPTL
277       WHERE JISPTL.DELIVERY_DETAIL_ID in (
278         SELECT
279           DELIVERY_DETAIL_ID
280         FROM
281           JAI_OM_WSH_LINES_ALL
282         WHERE DELIVERY_ID = P_DELIVERY_ID
283           AND INVENTORY_ITEM_ID = P_INVENTORY_ITEM_ID )
284         AND JTC.TAX_ID = JISPTL.TAX_ID
285         AND JTC.TAX_TYPE like '%Excise%';
286     V_FUNC_TAX_AMOUNT NUMBER;
287     V_EXCISE_AMOUNT NUMBER;
288     V_EXCISE_CESS_AMOUNT NUMBER;
289     V_EXCISE_SH_CESS_AMOUNT NUMBER;
290   BEGIN
291     OPEN C_EXCISE_AMOUNT(DELIVERY_ID,INVENTORY_ITEM_ID);
292     FETCH C_EXCISE_AMOUNT
293      INTO V_EXCISE_AMOUNT,V_EXCISE_CESS_AMOUNT,V_EXCISE_SH_CESS_AMOUNT;
294     CLOSE C_EXCISE_AMOUNT;
295     CP_EXCISE_CESS_AMOUNT := NVL(V_EXCISE_CESS_AMOUNT
296                                 ,0);
297     CP_EXCISE_SH_CESS_AMOUNT := NVL(V_EXCISE_SH_CESS_AMOUNT
298                                    ,0);
299     RETURN NVL(V_EXCISE_AMOUNT
300               ,0);
301   END CF_FUNC_TAX_AMOUNTFORMULA;
302 
303   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
304     CURSOR C_ENABLE_TRACE(CP_APP_SHORT_NAME IN FND_APPLICATION.APPLICATION_SHORT_NAME%TYPE,CP_CON_PROGRAM_NAME IN FND_CONCURRENT_PROGRAMS.CONCURRENT_PROGRAM_NAME%TYPE) IS
305       SELECT
306         NVL(ENABLE_TRACE
307            ,'N'),
308         A.CONCURRENT_PROGRAM_ID
309       FROM
310         FND_CONCURRENT_PROGRAMS A,
311         FND_APPLICATION B
312       WHERE B.APPLICATION_SHORT_NAME = CP_APP_SHORT_NAME
313         AND B.APPLICATION_ID = A.APPLICATION_ID
314         AND A.CONCURRENT_PROGRAM_NAME = CP_CON_PROGRAM_NAME;
315     CURSOR GET_AUDSID IS
316       SELECT
317         A.SID,
318         A.SERIAL#,
319         B.SPID
320       FROM
321         V$SESSION A,
322         V$PROCESS B
323       WHERE AUDSID = USERENV('SESSIONID')
324         AND A.PADDR = B.ADDR;
325     CURSOR CUR_GET_DBNAME IS
326       SELECT
327         NAME
328       FROM
329         V$DATABASE;
330     V_ENABLE_TRACE FND_CONCURRENT_PROGRAMS.ENABLE_TRACE%TYPE;
331     AUDSID NUMBER := USERENV('SESSIONID');
332     SID NUMBER;
333     SERIAL NUMBER;
334     SPID VARCHAR2(9);
335     NAME1 VARCHAR2(25);
336     LN_PROGRAM_ID FND_CONCURRENT_PROGRAMS.CONCURRENT_PROGRAM_ID%TYPE;
337   BEGIN
338     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
339     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
340     /*SRW.MESSAGE(1275
341                ,'Report Version is 120.4 Last modified date is 14/04/2007')*/NULL;
342     OPEN C_ENABLE_TRACE('AR','JA_JAINARE1_XMLP_PKG');
343     FETCH C_ENABLE_TRACE
344      INTO V_ENABLE_TRACE,LN_PROGRAM_ID;
345     CLOSE C_ENABLE_TRACE;
346     IF V_ENABLE_TRACE = 'Y' THEN
347       OPEN GET_AUDSID;
348       FETCH GET_AUDSID
349        INTO SID,SERIAL,SPID;
350       CLOSE GET_AUDSID;
351       OPEN CUR_GET_DBNAME;
352       FETCH CUR_GET_DBNAME
353        INTO NAME1;
354       CLOSE CUR_GET_DBNAME;
355       /*SRW.MESSAGE(1275
356                  ,'TraceFile Name = ' || LOWER(NAME1) || '_ora_' || SPID || '.trc')*/NULL;
357       EXECUTE IMMEDIATE
358         'ALTER SESSION SET EVENTS ''10046 trace name context forever, level 4''';
359     END IF;
360     RETURN (TRUE);
361   END BEFOREREPORT;
362 
363   FUNCTION AFTERREPORT RETURN BOOLEAN IS
364   BEGIN
365     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
366     RETURN (TRUE);
367   END AFTERREPORT;
368 
369   FUNCTION CF_BALANCESFORMULA(ORDER_HEADER_ID IN NUMBER
370                              ,REGISTER_ID IN NUMBER
371                              ,ORDER_LINE_ID IN NUMBER
372                              ,CUSTOMER_TRX_ID IN NUMBER
373                              ,DELIVERY_ID IN NUMBER
374                              ,TRX_NUMBER IN VARCHAR2) RETURN NUMBER IS
375     CURSOR C_GET_BALANCES(CP_TRANSACTION_NAME IN JAI_OM_OE_BOND_TRXS.TRANSACTION_NAME%TYPE) IS
376       SELECT
377         ( NVL(TRANSACTION_AMOUNT
378            ,0) + NVL(EDU_CESS_AMOUNT
379            ,0) + NVL(RG23D_REGISTER_BALANCE
380            ,0) + NVL(SH_CESS_AMOUNT
381            ,0) ) DEBIT,
382         REGISTER_BALANCE CLOSING_BAL,
383         ( NVL(TRANSACTION_AMOUNT
384            ,0) + NVL(EDU_CESS_AMOUNT
385            ,0) + NVL(RG23D_REGISTER_BALANCE
386            ,0) + NVL(REGISTER_BALANCE
387            ,0) + NVL(SH_CESS_AMOUNT
388            ,0) ) OPENING_BAL
389       FROM
390         JAI_OM_OE_BOND_TRXS
391       WHERE TRANSACTION_NAME = CP_TRANSACTION_NAME
392         AND ORDER_HEADER_ID = CF_BALANCESFORMULA.ORDER_HEADER_ID
393         AND ORDER_FLAG = 'Y'
394         AND TRANSACTION_ID = (
395         SELECT
396           MAX(TRANSACTION_ID)
397         FROM
398           JAI_OM_OE_BOND_TRXS
399         WHERE TRANSACTION_NAME = CP_TRANSACTION_NAME
400           AND ORDER_HEADER_ID = CF_BALANCESFORMULA.ORDER_HEADER_ID
401           AND ORDER_FLAG = 'Y' );
402   BEGIN
403     /*SRW.MESSAGE(1275
404                ,' ')*/NULL;
405     /*SRW.MESSAGE(1275
406                ,'### Invoice ###')*/NULL;
407     /*SRW.MESSAGE(1275
408                ,'1. Register_id        :' || REGISTER_ID)*/NULL;
409     /*SRW.MESSAGE(1275
410                ,'2. Order_header_id    :' || ORDER_HEADER_ID)*/NULL;
411     /*SRW.MESSAGE(1275
412                ,'3. Order_line_id      :' || ORDER_LINE_ID)*/NULL;
413     /*SRW.MESSAGE(1275
414                ,'4. Customer_Trx_id    :' || CUSTOMER_TRX_ID)*/NULL;
415     /*SRW.MESSAGE(1275
416                ,'6. delivery_id        :' || DELIVERY_ID)*/NULL;
417     /*SRW.MESSAGE(1275
418                ,'7. trx_number         :' || TRX_NUMBER)*/NULL;
419     OPEN C_GET_BALANCES('BOND SALES');
420     FETCH C_GET_BALANCES
421      INTO CP_DEBIT_AMOUNT,CP_CLOSING_BAL,CP_OPENING_BAL;
422     IF C_GET_BALANCES%FOUND THEN
423       /*SRW.MESSAGE(1275
424                  ,' ## Cursor fetched the record ##')*/NULL;
425     END IF;
426     CLOSE C_GET_BALANCES;
427     /*SRW.MESSAGE(1275
428                ,'8. Opening Balance    :' || CP_OPENING_BAL)*/NULL;
429     /*SRW.MESSAGE(1275
430                ,'9. Debit              :' || CP_DEBIT_AMOUNT)*/NULL;
431     /*SRW.MESSAGE(1275
432                ,'10.Closing Balance    :' || CP_CLOSING_BAL)*/NULL;
433     RETURN NULL;
434   END CF_BALANCESFORMULA;
435 
436   FUNCTION CP_CLOSING_BAL_P RETURN NUMBER IS
437   BEGIN
438     RETURN CP_CLOSING_BAL;
439   END CP_CLOSING_BAL_P;
440 
441   FUNCTION CP_DEBIT_AMOUNT_P RETURN NUMBER IS
442   BEGIN
443     RETURN CP_DEBIT_AMOUNT;
444   END CP_DEBIT_AMOUNT_P;
445 
446   FUNCTION CP_OPENING_BAL_P RETURN NUMBER IS
447   BEGIN
448     RETURN CP_OPENING_BAL;
449   END CP_OPENING_BAL_P;
450 
451   FUNCTION CP_NULL_P RETURN VARCHAR2 IS
452   BEGIN
453     RETURN CP_NULL;
454   END CP_NULL_P;
455 
456   FUNCTION CP_EXCISE_CESS_AMOUNT_P RETURN NUMBER IS
457   BEGIN
458     RETURN CP_EXCISE_CESS_AMOUNT;
459   END CP_EXCISE_CESS_AMOUNT_P;
460 
461   FUNCTION CP_EXCISE_SH_CESS_AMOUNT_P RETURN NUMBER IS
462   BEGIN
463     RETURN CP_EXCISE_SH_CESS_AMOUNT;
464   END CP_EXCISE_SH_CESS_AMOUNT_P;
465 
466 END JA_JAINARE1_XMLP_PKG;
467 
468 
469