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

Source


1 PACKAGE BODY JG_JGZZARIN_XMLP_PKG AS
2 /* $Header: JGZZARINB.pls 120.2 2007/12/25 16:09:34 npannamp noship $ */
3   FUNCTION S_SFORMULA(INVOICE_TOTAL IN NUMBER
4                      ,CURRENCY IN VARCHAR2) RETURN VARCHAR2 IS
5     VALUE NUMBER;
6     VALUE1 NUMBER;
7     VALUE2 NUMBER;
8     DECIMAL NUMBER;
9     WHOLE_DECIMAL NUMBER;
10     WHOLE_VALUE NUMBER;
11     I NUMBER;
12     C_PL_CENT FND_LOOKUP_VALUES.MEANING%TYPE;
13     C_PL_CENT_E FND_LOOKUP_VALUES.MEANING%TYPE;
14     C_PL_CENT_Y FND_LOOKUP_VALUES.MEANING%TYPE;
15   BEGIN
16     S_SAY := '';
17     I := 10;
18     DECIMAL := ABS(INVOICE_TOTAL - TRUNC(INVOICE_TOTAL));
19     VALUE := ABS(INVOICE_TOTAL);
20     SELECT
21       ' ' || LC1.MEANING || ' ',
22       ' ' || LC2.MEANING || ' ',
23       ' ' || LC3.MEANING || ' '
24     INTO C_PL_CENT_E,C_PL_CENT_Y,C_PL_CENT
25     FROM
26       FND_LOOKUPS LC1,
27       FND_LOOKUPS LC2,
28       FND_LOOKUPS LC3
29     WHERE LC1.LOOKUP_TYPE = 'JE_NLS_TRANSLATION'
30       AND LC1.LOOKUP_CODE = 'PL_CENT_E'
31       AND LC2.LOOKUP_TYPE = 'JE_NLS_TRANSLATION'
32       AND LC2.LOOKUP_CODE = 'PL_CENT_Y'
33       AND LC3.LOOKUP_TYPE = 'JE_NLS_TRANSLATION'
34       AND LC3.LOOKUP_CODE = 'PL_CENT';
35     IF P_SESSION_LANGUAGE = 'POLISH' THEN
36       WHOLE_VALUE := TRUNC(VALUE);
37       S_SAY := JE_AMOUNT_UTILITIES(NVL(WHOLE_VALUE
38                                       ,0)) || ' ';
39       WHOLE_DECIMAL := TRUNC(DECIMAL * 100);
40       IF P_DEBUG_SWITCH = 'Y' THEN
41         /*SRW.MESSAGE('999'
42                    ,'VALUE : ' || VALUE)*/NULL;
43         /*SRW.MESSAGE('999'
44                    ,S_SAY)*/NULL;
45       END IF;
46       IF WHOLE_DECIMAL = 0 THEN
47         S_SAY := S_SAY || '0/100 ' || C_PL_CENT_Y;
48       ELSIF WHOLE_DECIMAL = 1 THEN
49         S_SAY := S_SAY || TO_CHAR(ROUND(DECIMAL
50                               ,2) * 100) || '/100 ' || C_PL_CENT;
51       ELSIF SUBSTR(WHOLE_DECIMAL
52             ,LENGTH(WHOLE_DECIMAL) - 1
53             ,2) in ('12','13','14') THEN
54         S_SAY := S_SAY || TO_CHAR(ROUND(DECIMAL
55                               ,2) * 100) || '/100 ' || C_PL_CENT_Y;
56       ELSIF SUBSTR(WHOLE_DECIMAL
57             ,LENGTH(WHOLE_DECIMAL)
58             ,1) in ('2','3','4') THEN
59         S_SAY := S_SAY || TO_CHAR(ROUND(DECIMAL
60                               ,2) * 100) || '/100 ' || C_PL_CENT_E;
61       ELSE
62         S_SAY := S_SAY || TO_CHAR(ROUND(DECIMAL
63                               ,2) * 100) || '/100 ' || C_PL_CENT_Y;
64       END IF;
65     ELSE
66       LOOP
67         VALUE1 := TRUNC(VALUE / I
68                        ,1);
69         VALUE2 := (VALUE1 - TRUNC(VALUE1)) * 10;
70         IF VALUE1 = 0 AND VALUE2 * 10 = 0 THEN
71           S_SAY := S_SAY || TO_CHAR(ROUND(DECIMAL
72                                 ,2) * 100) || '/100* ' || CURRENCY;
73           EXIT;
74         END IF;
75         IF VALUE2 = 1 THEN
76           S_SAY := 'one*' || S_SAY;
77         END IF;
78         IF VALUE2 = 2 THEN
79           S_SAY := 'two*' || S_SAY;
80         END IF;
81         IF VALUE2 = 3 THEN
82           S_SAY := 'three*' || S_SAY;
83         END IF;
84         IF VALUE2 = 4 THEN
85           S_SAY := 'four*' || S_SAY;
86         END IF;
87         IF VALUE2 = 5 THEN
88           S_SAY := 'five*' || S_SAY;
89         END IF;
90         IF VALUE2 = 6 THEN
91           S_SAY := 'six*' || S_SAY;
92         END IF;
93         IF VALUE2 = 7 THEN
94           S_SAY := 'seven*' || S_SAY;
95         END IF;
96         IF VALUE2 = 8 THEN
97           S_SAY := 'eight*' || S_SAY;
98         END IF;
99         IF VALUE2 = 9 THEN
100           S_SAY := 'nine*' || S_SAY;
101         END IF;
102         IF VALUE2 = 0 THEN
103           S_SAY := 'zero*' || S_SAY;
104         END IF;
105         I := I * 10;
106       END LOOP;
107     END IF;
108     RETURN NULL;
109   END S_SFORMULA;
110 
111   FUNCTION AFTERREPORT RETURN BOOLEAN IS
112   BEGIN
113     /*SRW.BREAK*/NULL;
114     PRINT_STATUS_UPDATE;
115     EXECUTE IMMEDIATE
116       'commit';
117     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
118     RETURN (TRUE);
119   END AFTERREPORT;
120 
121   PROCEDURE PRINT_STATUS_UPDATE IS
122     PC RA_CUSTOMER_TRX.PRINTING_COUNT%TYPE;
123     PLP RA_CUSTOMER_TRX.PRINTING_LAST_PRINTED%TYPE;
124     POD RA_CUSTOMER_TRX.PRINTING_ORIGINAL_DATE%TYPE;
125     CTI RA_CUSTOMER_TRX.CUSTOMER_TRX_ID%TYPE;
126     CURSOR C1 IS
127       SELECT
128         PRINTING_COUNT,
129         PRINTING_LAST_PRINTED,
130         PRINTING_ORIGINAL_DATE,
131         CUSTOMER_TRX_ID
132       FROM
133         RA_CUSTOMER_TRX
134       WHERE SET_OF_BOOKS_ID = P_SET_OF_BOOKS_ID
135         AND COMPLETE_FLAG = 'Y'
136         AND CUST_TRX_TYPE_ID = DECODE(P_DOCUMENT_TYPE
137             ,NULL
138             ,CUST_TRX_TYPE_ID
139             ,P_DOCUMENT_TYPE)
140         AND TRX_NUMBER between DECODE(P_INVOICE_NUMBER_LOW
141             ,NULL
142             ,TRX_NUMBER_LOW
143             ,P_INVOICE_NUMBER_LOW)
144         AND DECODE(P_INVOICE_NUMBER_HIGH
145             ,NULL
146             ,TRX_NUMBER_HIGH
147             ,P_INVOICE_NUMBER_HIGH)
148         AND TRX_DATE between NVL(P_INVOICE_DATE_LOW
149          ,TRX_DATE)
150         AND NVL(P_INVOICE_DATE_HIGH
151          ,TRX_DATE)
152         AND DECODE(P_BATCH_ID
153             ,NULL
154             ,1
155             ,P_BATCH_ID) = DECODE(P_BATCH_ID
156             ,NULL
157             ,1
158             ,BATCH_ID)
159         AND BILL_TO_CUSTOMER_ID = DECODE(P_CUST_ID
160             ,NULL
161             ,BILL_TO_CUSTOMER_ID
162             ,P_CUST_ID);
163   BEGIN
164     OPEN C1;
165     LOOP
166       FETCH C1
167        INTO PC,PLP,POD,CTI;
168       EXIT WHEN C1%NOTFOUND;
169       IF P_PRINT_CODE = 'N' THEN
170         UPDATE
171           RA_CUSTOMER_TRX
172         SET
173           PRINTING_COUNT = DECODE(PC
174                 ,NULL
175                 ,0
176                 ,PC) + 1
177           ,PRINTING_LAST_PRINTED = SYSDATE
178           ,PRINTING_ORIGINAL_DATE = DECODE(PC
179                 ,NULL
180                 ,SYSDATE)
181         WHERE CUSTOMER_TRX_ID = CTI
182           AND NVL(PRINTING_COUNT
183            ,0) = 0;
184       ELSE
185         UPDATE
186           RA_CUSTOMER_TRX
187         SET
188           PRINTING_COUNT = DECODE(PC
189                 ,NULL
190                 ,0
191                 ,PC) + 1
192           ,PRINTING_LAST_PRINTED = SYSDATE
193           ,PRINTING_ORIGINAL_DATE = DECODE(PC
194                 ,NULL
195                 ,SYSDATE)
196         WHERE CUSTOMER_TRX_ID = CTI
197           AND NVL(PRINTING_COUNT
198            ,0) <> 0;
199       END IF;
200     END LOOP;
201     CLOSE C1;
202   END PRINT_STATUS_UPDATE;
203 
204   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
205   BEGIN
206     BEGIN
207       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
208       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
209       P_ORG_ID := MO_GLOBAL.GET_CURRENT_ORG_ID;
210       P_COUNTRY_CODE := JG_ZZ_SHARED_PKG.GET_COUNTRY(P_ORG_ID);
211     EXCEPTION
212       WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
213         BEGIN
214           /*SRW.MESSAGE(100
215                      ,'Foundation is not initialised')*/NULL;
216           /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
217         END;
218     END;
219     DECLARE
220       COAID NUMBER;
221       SOBNAME VARCHAR2(30);
222       FUNCTCURR VARCHAR2(15);
223       ERRBUF VARCHAR2(132);
224       TRX_LOW VARCHAR2(20);
225       TRX_HIGH VARCHAR2(20);
226       COMP_NO VARCHAR2(20);
227       VAT_REG VARCHAR2(20);
228     BEGIN
229       SELECT
230         SUBSTR(USERENV('LANGUAGE')
231               ,1
232               ,INSTR(USERENV('LANGUAGE')
233                    ,'_') - 1)
234       INTO P_SESSION_LANGUAGE
235       FROM
236         DUAL;
237       IF P_DEBUG_SWITCH = 'Y' THEN
238         /*SRW.MESSAGE(999
239                    ,'Session Language : ' || P_SESSION_LANGUAGE)*/NULL;
240       END IF;
241       JG_GET_SET_OF_BOOKS_INFO(P_SET_OF_BOOKS_ID
242                               ,COAID
243                               ,SOBNAME
244                               ,FUNCTCURR
245                               ,ERRBUF);
246       IF (ERRBUF IS NOT NULL) THEN
247         /*SRW.MESSAGE('00'
248                    ,ERRBUF)*/NULL;
249         /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
250       END IF;
251       SELECT
252         PRECISION
253       INTO PRECISION
254       FROM
255         FND_CURRENCIES
256       WHERE CURRENCY_CODE = FUNCTCURR;
257       SELECT
258         REP_REGISTRATION_NUMBER
259       INTO VAT_REG
260       FROM
261         ZX_PARTY_TAX_PROFILE PTP
262       WHERE PARTY_TYPE_CODE = 'LEGAL_ESTABLISHMENT'
263         AND PARTY_ID = (
264         SELECT
265           PARTY_ID
266         FROM
267           XLE_ETB_PROFILES XEP
268         WHERE XEP.LEGAL_ENTITY_ID = P_ORG_ID
269           AND MAIN_ESTABLISHMENT_FLAG = 'Y' );
270       STRUCT_NUM := COAID;
271       SET_OF_BOOKS_NAME := SOBNAME;
272       FUNC_CURRENCY := FUNCTCURR;
273       VAT_REGISTRATION_NUM := VAT_REG;
274       IF P_PRINT_CODE = 'Y' THEN
275         PRINT_TYPE := 'and (t.printing_count is not null or t.printing_count>0)';
276       END IF;
277       IF P_PRINT_CODE = 'N' THEN
278         PRINT_TYPE := 'and (t.printing_count is null or t.printing_count=0)';
279       END IF;
280       SELECT
281         MIN(TRX_NUMBER)
282       INTO TRX_LOW
283       FROM
284         RA_CUSTOMER_TRX;
285       SELECT
286         MAX(TRX_NUMBER)
287       INTO TRX_HIGH
288       FROM
289         RA_CUSTOMER_TRX;
290       SELECT
291         MAX(REGISTRATION_NUMBER)
292       INTO COMP_NO
293       FROM
294         XLE_FIRSTPARTY_INFORMATION_V
295       WHERE LEGAL_ENTITY_ID = P_ORG_ID;
296       TRX_NUMBER_LOW := TRX_LOW;
297       TRX_NUMBER_HIGH := TRX_HIGH;
298       COMP_NUMBER := COMP_NO;
299     END;
300     RETURN (TRUE);
301   END BEFOREREPORT;
302 
303   FUNCTION CF_SHIP_ADDRESSFORMULA(CUST_NAME IN VARCHAR2
304                                  ,SHIP_ADD_1 IN VARCHAR2
305                                  ,SHIP_ADD_2 IN VARCHAR2
306                                  ,SHIP_ADD_3 IN VARCHAR2
307                                  ,SHIP_ADD_4 IN VARCHAR2
308                                  ,SHIP_CITY IN VARCHAR2
309                                  ,SHIP_POSTAL_CODE IN VARCHAR2
310                                  ,SHIP_COUNTRY IN VARCHAR2) RETURN VARCHAR2 IS
311   BEGIN
312     CP_SHIP_CUST_NAME := CUST_NAME;
313     CP_SHIP_ADD_1 := SHIP_ADD_1;
314     CP_SHIP_ADD_2 := SHIP_ADD_2;
315     CP_SHIP_ADD_3 := SHIP_ADD_3;
316     CP_SHIP_ADD_4 := SHIP_ADD_4;
317     CP_SHIP_CITY := SHIP_CITY;
318     CP_SHIP_POSTAL_CODE := SHIP_POSTAL_CODE;
319     CP_SHIP_COUNTRY := SHIP_COUNTRY;
320     RETURN NULL;
321   END CF_SHIP_ADDRESSFORMULA;
322 
323   FUNCTION CF_BILL_ADDRESSFORMULA(BILL_CUST_NAME IN VARCHAR2
324                                  ,BILL_ADD_1 IN VARCHAR2
325                                  ,BILL_ADD_2 IN VARCHAR2
326                                  ,BILL_ADD_3 IN VARCHAR2
327                                  ,BILL_ADD_4 IN VARCHAR2
328                                  ,BILL_CITY IN VARCHAR2
329                                  ,BILL_POSTAL_CODE IN VARCHAR2
330                                  ,BILL_TAX_REFERENCE IN VARCHAR2
331                                  ,BILL_COUNTRY IN VARCHAR2) RETURN VARCHAR2 IS
332   BEGIN
333     CP_BILL_CUST_NAME := BILL_CUST_NAME;
334     CP_BILL_ADD_1 := BILL_ADD_1;
335     CP_BILL_ADD_2 := BILL_ADD_2;
336     CP_BILL_ADD_3 := BILL_ADD_3;
337     CP_BILL_ADD_4 := BILL_ADD_4;
338     CP_BILL_CITY := BILL_CITY;
339     CP_BILL_POSTAL_CODE := BILL_POSTAL_CODE;
340     CP_BILL_TAX_REFERENCE := BILL_TAX_REFERENCE;
341     CP_BILL_COUNTRY := BILL_COUNTRY;
342     RETURN NULL;
343   END CF_BILL_ADDRESSFORMULA;
344 
345   FUNCTION CF_REMIT_ADDRESSFORMULA(REMIT_ADD_1 IN VARCHAR2
346                                   ,REMIT_ADD_2 IN VARCHAR2
347                                   ,REMIT_ADD_3 IN VARCHAR2
348                                   ,REMIT_ADD_4 IN VARCHAR2
349                                   ,REMIT_CITY IN VARCHAR2
350                                   ,REMIT_POSTAL_CODE IN VARCHAR2
351                                   ,REMIT_COUNTRY IN VARCHAR2) RETURN VARCHAR2 IS
352   BEGIN
353     CP_REMIT_ADD_1 := REMIT_ADD_1;
354     CP_REMIT_ADD_2 := REMIT_ADD_2;
355     CP_REMIT_ADD_3 := REMIT_ADD_3;
356     CP_REMIT_ADD_4 := REMIT_ADD_4;
357     CP_REMIT_CITY := REMIT_CITY;
358     CP_REMIT_POSTAL_CODE := REMIT_POSTAL_CODE;
359     CP_REMIT_COUNTRY := REMIT_COUNTRY;
360     RETURN NULL;
361   END CF_REMIT_ADDRESSFORMULA;
362 
363   FUNCTION CF_1FORMULA RETURN VARCHAR2 IS
364   BEGIN
365     RETURN ('X');
366   END CF_1FORMULA;
367 
368   FUNCTION CP_SHIP_COUNTRYFORMULA RETURN VARCHAR2 IS
369   BEGIN
370     RETURN NULL;
371   END CP_SHIP_COUNTRYFORMULA;
372 
373   FUNCTION CF_DUE_DATEFORMULA(DUE_DATE IN DATE) RETURN CHAR IS
374   BEGIN
375     RETURN FND_DATE.DATE_TO_CHARDATE(DUE_DATE);
376   END CF_DUE_DATEFORMULA;
377 
378   FUNCTION CF_TRX_DATEFORMULA(TRX_DATE IN DATE) RETURN CHAR IS
379   BEGIN
380     RETURN FND_DATE.DATE_TO_CHARDATE(TRX_DATE);
381   END CF_TRX_DATEFORMULA;
382 
383   FUNCTION CF_TAX_DATEFORMULA(TAX_DATE IN DATE) RETURN CHAR IS
384   BEGIN
385     RETURN FND_DATE.DATE_TO_CHARDATE(TAX_DATE);
386   END CF_TAX_DATEFORMULA;
387 
388   FUNCTION JE_AMOUNT_UTILITIES(IN_NUMERAL IN NUMBER) RETURN VARCHAR2 IS
389     C_ZERO AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
390     C_THOUSAND AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
391     C_MILLION AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
392     C_BILLION AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
393     C_PL_THOUSAND FND_LOOKUPS.MEANING%TYPE;
394     C_PL_THOUSAND_Y FND_LOOKUPS.MEANING%TYPE;
395     C_PL_THOUSAND_E FND_LOOKUPS.MEANING%TYPE;
396     C_PL_MILLION FND_LOOKUPS.MEANING%TYPE;
397     C_PL_MILLION_Y FND_LOOKUPS.MEANING%TYPE;
398     C_PL_MILLION_OW FND_LOOKUPS.MEANING%TYPE;
399     C_PL_BILLION FND_LOOKUPS.MEANING%TYPE;
400     C_PL_BILLION_Y FND_LOOKUPS.MEANING%TYPE;
401     C_PL_BILLION_OW FND_LOOKUPS.MEANING%TYPE;
402     C_PL_CURRENCY FND_LOOKUPS.MEANING%TYPE;
403     C_PL_CURRENCY_E FND_LOOKUPS.MEANING%TYPE;
404     C_PL_CURRENCY_YCH FND_LOOKUPS.MEANING%TYPE;
405     NUMBER_TOO_LARGE EXCEPTION;
406     NUMERAL INTEGER := ABS(IN_NUMERAL);
407     MAX_DIGIT INTEGER := 12;
408     NUMBER_TEXT VARCHAR2(240) := '';
409     BILLION_SEG VARCHAR2(25);
410     MILLION_SEG VARCHAR2(25);
411     THOUSAND_SEG VARCHAR2(25);
412     UNITS_SEG VARCHAR2(25);
413     BILLION_LOOKUP VARCHAR2(80);
414     MILLION_LOOKUP VARCHAR2(80);
415     THOUSAND_LOOKUP VARCHAR2(80);
416     UNITS_LOOKUP VARCHAR2(80);
417     THOUSAND NUMBER := POWER(10
418          ,3);
419     MILLION NUMBER := POWER(10
420          ,6);
421     BILLION NUMBER := POWER(10
422          ,9);
423   BEGIN
424     IF NUMERAL >= POWER(10
425          ,MAX_DIGIT) THEN
426       RAISE NUMBER_TOO_LARGE;
427     END IF;
428     IF NUMERAL = 0 AND P_SESSION_LANGUAGE <> 'POLISH' THEN
429       SELECT
430         ' ' || DISPLAYED_FIELD || ' '
431       INTO C_ZERO
432       FROM
433         AP_LOOKUP_CODES
434       WHERE LOOKUP_CODE = 'ZERO';
435       RETURN (C_ZERO);
436     END IF;
437     BILLION_SEG := TO_CHAR(TRUNC(NUMERAL / BILLION));
438     NUMERAL := NUMERAL - (TRUNC(NUMERAL / BILLION) * BILLION);
439     MILLION_SEG := TO_CHAR(TRUNC(NUMERAL / MILLION));
440     NUMERAL := NUMERAL - (TRUNC(NUMERAL / MILLION) * MILLION);
441     THOUSAND_SEG := TO_CHAR(TRUNC(NUMERAL / THOUSAND));
442     UNITS_SEG := TO_CHAR(MOD(NUMERAL
443                             ,THOUSAND));
444     SELECT
445       ' ' || LC1.DISPLAYED_FIELD || ' ',
446       ' ' || LC2.DISPLAYED_FIELD || ' ',
447       ' ' || LC3.DISPLAYED_FIELD || ' ',
448       ' ' || LC4.DISPLAYED_FIELD,
449       LC5.DESCRIPTION,
450       LC6.DESCRIPTION,
451       LC7.DESCRIPTION,
452       LC8.DESCRIPTION
453     INTO C_BILLION,C_MILLION,C_THOUSAND,C_ZERO,BILLION_LOOKUP,MILLION_LOOKUP,THOUSAND_LOOKUP,UNITS_LOOKUP
454     FROM
455       AP_LOOKUP_CODES LC1,
456       AP_LOOKUP_CODES LC2,
457       AP_LOOKUP_CODES LC3,
458       AP_LOOKUP_CODES LC4,
459       AP_LOOKUP_CODES LC5,
460       AP_LOOKUP_CODES LC6,
461       AP_LOOKUP_CODES LC7,
462       AP_LOOKUP_CODES LC8
463     WHERE LC1.LOOKUP_CODE = 'BILLION'
464       AND LC1.LOOKUP_TYPE = 'NLS TRANSLATION'
465       AND LC2.LOOKUP_CODE = 'MILLION'
466       AND LC2.LOOKUP_TYPE = 'NLS TRANSLATION'
467       AND LC3.LOOKUP_CODE = 'THOUSAND'
468       AND LC3.LOOKUP_TYPE = 'NLS TRANSLATION'
469       AND LC4.LOOKUP_CODE = 'ZERO'
470       AND LC4.LOOKUP_TYPE = 'NLS TRANSLATION'
471       AND LC5.LOOKUP_CODE = BILLION_SEG
472       AND LC5.LOOKUP_TYPE = 'NUMBERS'
473       AND LC6.LOOKUP_CODE = MILLION_SEG
474       AND LC6.LOOKUP_TYPE = 'NUMBERS'
475       AND LC7.LOOKUP_CODE = THOUSAND_SEG
476       AND LC7.LOOKUP_TYPE = 'NUMBERS'
477       AND LC8.LOOKUP_CODE = UNITS_SEG
478       AND LC8.LOOKUP_TYPE = 'NUMBERS';
479     SELECT
480       ' ' || LC10.MEANING || ' ',
481       ' ' || LC11.MEANING || ' ',
482       ' ' || LC12.MEANING || ' ',
483       ' ' || LC20.MEANING || ' ',
484       ' ' || LC21.MEANING || ' ',
485       ' ' || LC22.MEANING || ' ',
486       ' ' || LC30.MEANING || ' ',
487       ' ' || LC31.MEANING || ' ',
488       ' ' || LC32.MEANING || ' ',
489       ' ' || LC40.MEANING || ' ',
490       ' ' || LC41.MEANING || ' ',
491       ' ' || LC42.MEANING || ' '
492     INTO C_PL_BILLION,C_PL_BILLION_Y,C_PL_BILLION_OW,C_PL_MILLION,C_PL_MILLION_Y,C_PL_MILLION_OW,C_PL_THOUSAND,C_PL_THOUSAND_Y,C_PL_THOUSAND_E,C_PL_CURRENCY,C_PL_CURRENCY_E,C_PL_CURRENCY_YCH
493     FROM
494       FND_LOOKUPS LC10,
495       FND_LOOKUPS LC11,
496       FND_LOOKUPS LC12,
497       FND_LOOKUPS LC20,
498       FND_LOOKUPS LC21,
499       FND_LOOKUPS LC22,
500       FND_LOOKUPS LC30,
501       FND_LOOKUPS LC31,
502       FND_LOOKUPS LC32,
503       FND_LOOKUPS LC40,
504       FND_LOOKUPS LC41,
505       FND_LOOKUPS LC42
506     WHERE LC10.LOOKUP_CODE = 'PL_BILLION'
507       AND LC10.LOOKUP_TYPE = 'JE_NLS_TRANSLATION'
508       AND LC11.LOOKUP_CODE = 'PL_BILLION_Y'
509       AND LC11.LOOKUP_TYPE = 'JE_NLS_TRANSLATION'
510       AND LC12.LOOKUP_CODE = 'PL_BILLION_OW'
511       AND LC12.LOOKUP_TYPE = 'JE_NLS_TRANSLATION'
512       AND LC20.LOOKUP_CODE = 'PL_MILLION'
513       AND LC20.LOOKUP_TYPE = 'JE_NLS_TRANSLATION'
514       AND LC21.LOOKUP_CODE = 'PL_MILLION_Y'
515       AND LC21.LOOKUP_TYPE = 'JE_NLS_TRANSLATION'
516       AND LC22.LOOKUP_CODE = 'PL_MILLION_OW'
517       AND LC22.LOOKUP_TYPE = 'JE_NLS_TRANSLATION'
518       AND LC30.LOOKUP_CODE = 'PL_THOUSAND'
519       AND LC30.LOOKUP_TYPE = 'JE_NLS_TRANSLATION'
520       AND LC31.LOOKUP_CODE = 'PL_THOUSAND_Y'
521       AND LC31.LOOKUP_TYPE = 'JE_NLS_TRANSLATION'
522       AND LC32.LOOKUP_CODE = 'PL_THOUSAND_E'
523       AND LC32.LOOKUP_TYPE = 'JE_NLS_TRANSLATION'
524       AND LC40.LOOKUP_CODE = 'PL_CURRENCY'
525       AND LC40.LOOKUP_TYPE = 'JE_NLS_TRANSLATION'
526       AND LC41.LOOKUP_CODE = 'PL_CURRENCY_E'
527       AND LC41.LOOKUP_TYPE = 'JE_NLS_TRANSLATION'
528       AND LC42.LOOKUP_CODE = 'PL_CURRENCY_YCH'
529       AND LC42.LOOKUP_TYPE = 'JE_NLS_TRANSLATION';
530     IF (P_SESSION_LANGUAGE = 'FRENCH' OR P_SESSION_LANGUAGE = 'CANADIAN FRENCH') AND THOUSAND_SEG = '1' THEN
531       THOUSAND_LOOKUP := NULL;
532     END IF;
533     IF BILLION_SEG <> '0' AND (P_SESSION_LANGUAGE = 'POLISH') THEN
534       IF SUBSTR(BILLION_SEG
535             ,LENGTH(BILLION_SEG) - 1
536             ,2) in ('12','13','14') THEN
537         NUMBER_TEXT := NUMBER_TEXT || BILLION_LOOKUP || C_PL_BILLION_OW;
538       ELSIF SUBSTR(BILLION_SEG
539             ,LENGTH(BILLION_SEG)
540             ,1) in ('2','3','4') THEN
541         NUMBER_TEXT := NUMBER_TEXT || BILLION_LOOKUP || C_PL_BILLION_Y;
542       ELSIF BILLION_SEG = 1 THEN
543         NUMBER_TEXT := NUMBER_TEXT || BILLION_LOOKUP || C_PL_BILLION;
544       ELSIF SUBSTR(BILLION_SEG
545             ,LENGTH(BILLION_SEG)
546             ,1) in ('0','1','5','6','7','8','9') THEN
547         NUMBER_TEXT := NUMBER_TEXT || BILLION_LOOKUP || C_PL_BILLION_OW;
548       ELSE
549         /*SRW.MESSAGE('999'
550                    ,' JE_AMOUNT_UNTILITIES : Billion Exception Raised')*/NULL;
551         RAISE PROGRAM_ERROR;
552       END IF;
553     END IF;
554     IF MILLION_SEG <> '0' AND (P_SESSION_LANGUAGE = 'POLISH') THEN
555       IF SUBSTR(MILLION_SEG
556             ,LENGTH(MILLION_SEG) - 1
557             ,2) in ('12','13','14') THEN
558         NUMBER_TEXT := NUMBER_TEXT || MILLION_LOOKUP || C_PL_MILLION_OW;
559       ELSIF SUBSTR(MILLION_SEG
560             ,LENGTH(MILLION_SEG)
561             ,1) in ('2','3','4') THEN
562         NUMBER_TEXT := NUMBER_TEXT || MILLION_LOOKUP || C_PL_MILLION_Y;
563       ELSIF MILLION_SEG = 1 THEN
564         NUMBER_TEXT := NUMBER_TEXT || MILLION_LOOKUP || C_PL_MILLION;
565       ELSIF SUBSTR(MILLION_SEG
566             ,LENGTH(MILLION_SEG)
567             ,1) in ('0','1','5','6','7','8','9') THEN
568         NUMBER_TEXT := NUMBER_TEXT || MILLION_LOOKUP || C_PL_MILLION_OW;
569       ELSE
570         /*SRW.MESSAGE('999'
571                    ,' JE_AMOUNT_UNTILITIES : Million Exception Raised')*/NULL;
572         RAISE PROGRAM_ERROR;
573       END IF;
574     END IF;
575     IF THOUSAND_SEG <> '0' AND (P_SESSION_LANGUAGE = 'POLISH') THEN
576       IF SUBSTR(THOUSAND_SEG
577             ,LENGTH(THOUSAND_SEG) - 1
578             ,2) in ('12','13','14') THEN
579         NUMBER_TEXT := NUMBER_TEXT || THOUSAND_LOOKUP || C_PL_THOUSAND_Y;
580       ELSIF SUBSTR(THOUSAND_SEG
581             ,LENGTH(THOUSAND_SEG)
582             ,1) in ('2','3','4') THEN
583         NUMBER_TEXT := NUMBER_TEXT || THOUSAND_LOOKUP || C_PL_THOUSAND_E;
584       ELSIF THOUSAND_SEG = 1 THEN
585         NUMBER_TEXT := NUMBER_TEXT || THOUSAND_LOOKUP || C_PL_THOUSAND;
586       ELSIF SUBSTR(THOUSAND_SEG
587             ,LENGTH(THOUSAND_SEG)
588             ,1) in ('0','1','5','6','7','8','9') THEN
589         NUMBER_TEXT := NUMBER_TEXT || THOUSAND_LOOKUP || C_PL_THOUSAND_Y;
590       ELSE
591         /*SRW.MESSAGE('999'
592                    ,' JE_AMOUNT_UNTILITIES : Thousand Exception Raised')*/NULL;
593         RAISE PROGRAM_ERROR;
594       END IF;
595     END IF;
596     IF (UNITS_SEG <> '0' AND P_SESSION_LANGUAGE = 'POLISH') THEN
597       IF SUBSTR(UNITS_SEG
598             ,LENGTH(UNITS_SEG) - 1
599             ,2) in ('12','13','14') THEN
600         NUMBER_TEXT := NUMBER_TEXT || UNITS_LOOKUP || C_PL_CURRENCY_YCH;
601       ELSIF SUBSTR(UNITS_SEG
602             ,LENGTH(UNITS_SEG)
603             ,1) in ('2','3','4') THEN
604         NUMBER_TEXT := NUMBER_TEXT || UNITS_LOOKUP || C_PL_CURRENCY_E;
605       ELSIF UNITS_SEG = 1 THEN
606         NUMBER_TEXT := NUMBER_TEXT || UNITS_LOOKUP || C_PL_CURRENCY;
607       ELSIF SUBSTR(UNITS_SEG
608             ,LENGTH(UNITS_SEG)
609             ,1) in ('0','1','5','6','7','8','9') THEN
610         NUMBER_TEXT := NUMBER_TEXT || UNITS_LOOKUP || C_PL_CURRENCY_YCH;
611       ELSE
612         /*SRW.MESSAGE('999'
613                    ,' JE_AMOUNT_UNTILITIES : Units Exception Raised')*/NULL;
614         RAISE PROGRAM_ERROR;
615       END IF;
616     ELSIF (UNITS_SEG = '0' AND P_SESSION_LANGUAGE = 'POLISH' AND IN_NUMERAL > 0) THEN
617       NUMBER_TEXT := NUMBER_TEXT || C_PL_CURRENCY_YCH;
618     ELSIF (UNITS_SEG = '0' AND P_SESSION_LANGUAGE = 'POLISH') THEN
619       NUMBER_TEXT := NUMBER_TEXT || ' ' || UNITS_LOOKUP || C_PL_CURRENCY_YCH;
620     END IF;
621     NUMBER_TEXT := LTRIM(NUMBER_TEXT);
622     NUMBER_TEXT := UPPER(SUBSTR(NUMBER_TEXT
623                                ,1
624                                ,1)) || RTRIM(LOWER(SUBSTR(NUMBER_TEXT
625                                      ,2
626                                      ,LENGTH(NUMBER_TEXT))));
627     IF P_DEBUG_SWITCH = 'Y' THEN
628       /*SRW.MESSAGE('999'
629                  ,NUMBER_TEXT)*/NULL;
630     END IF;
631     RETURN (NUMBER_TEXT);
632   EXCEPTION
633     WHEN NUMBER_TOO_LARGE THEN
634       RETURN (NULL);
635     WHEN OTHERS THEN
636       RETURN (NULL);
637   END JE_AMOUNT_UTILITIES;
638 
639   FUNCTION CF_APPLY_DATEFORMULA(APPLY_DATE1 IN DATE) RETURN CHAR IS
640   BEGIN
641     RETURN FND_DATE.DATE_TO_CHARDATE(APPLY_DATE1);
642   END CF_APPLY_DATEFORMULA;
643 
644   FUNCTION G_INVOICE_HEADERGROUPFILTER RETURN BOOLEAN IS
645   BEGIN
646     RETURN (TRUE);
647   END G_INVOICE_HEADERGROUPFILTER;
648 
649   FUNCTION G_CUSTOMER_TRX_ID2GROUPFILTER RETURN BOOLEAN IS
650   BEGIN
651     RETURN (TRUE);
652   END G_CUSTOMER_TRX_ID2GROUPFILTER;
653 
654   FUNCTION S_SAY_P RETURN VARCHAR2 IS
655   BEGIN
656     RETURN S_SAY;
657   END S_SAY_P;
658 
659   FUNCTION CP_SHIP_CUST_NAME_P RETURN VARCHAR2 IS
660   BEGIN
661     RETURN CP_SHIP_CUST_NAME;
662   END CP_SHIP_CUST_NAME_P;
663 
664   FUNCTION CP_SHIP_ADD_1_P RETURN VARCHAR2 IS
665   BEGIN
666     RETURN CP_SHIP_ADD_1;
667   END CP_SHIP_ADD_1_P;
668 
669   FUNCTION CP_SHIP_ADD_2_P RETURN VARCHAR2 IS
670   BEGIN
671     RETURN CP_SHIP_ADD_2;
672   END CP_SHIP_ADD_2_P;
673 
674   FUNCTION CP_SHIP_ADD_3_P RETURN VARCHAR2 IS
675   BEGIN
676     RETURN CP_SHIP_ADD_3;
677   END CP_SHIP_ADD_3_P;
678 
679   FUNCTION CP_SHIP_ADD_4_P RETURN VARCHAR2 IS
680   BEGIN
681     RETURN CP_SHIP_ADD_4;
682   END CP_SHIP_ADD_4_P;
683 
684   FUNCTION CP_SHIP_CITY_P RETURN VARCHAR2 IS
685   BEGIN
686     RETURN CP_SHIP_CITY;
687   END CP_SHIP_CITY_P;
688 
689   FUNCTION CP_SHIP_POSTAL_CODE_P RETURN VARCHAR2 IS
690   BEGIN
691     RETURN CP_SHIP_POSTAL_CODE;
692   END CP_SHIP_POSTAL_CODE_P;
693 
694   FUNCTION CP_SHIP_COUNTRY_P RETURN VARCHAR2 IS
695   BEGIN
696     RETURN CP_SHIP_COUNTRY;
697   END CP_SHIP_COUNTRY_P;
698 
699   FUNCTION CP_BILL_CUST_NAME_P RETURN VARCHAR2 IS
700   BEGIN
701     RETURN CP_BILL_CUST_NAME;
702   END CP_BILL_CUST_NAME_P;
703 
704   FUNCTION CP_BILL_ADD_1_P RETURN VARCHAR2 IS
705   BEGIN
706     RETURN CP_BILL_ADD_1;
707   END CP_BILL_ADD_1_P;
708 
709   FUNCTION CP_BILL_ADD_2_P RETURN VARCHAR2 IS
710   BEGIN
711     RETURN CP_BILL_ADD_2;
712   END CP_BILL_ADD_2_P;
713 
714   FUNCTION CP_BILL_ADD_3_P RETURN VARCHAR2 IS
715   BEGIN
716     RETURN CP_BILL_ADD_3;
717   END CP_BILL_ADD_3_P;
718 
719   FUNCTION CP_BILL_ADD_4_P RETURN VARCHAR2 IS
720   BEGIN
721     RETURN CP_BILL_ADD_4;
722   END CP_BILL_ADD_4_P;
723 
724   FUNCTION CP_BILL_CITY_P RETURN VARCHAR2 IS
725   BEGIN
726     RETURN CP_BILL_CITY;
727   END CP_BILL_CITY_P;
728 
729   FUNCTION CP_BILL_POSTAL_CODE_P RETURN VARCHAR2 IS
730   BEGIN
731     RETURN CP_BILL_POSTAL_CODE;
732   END CP_BILL_POSTAL_CODE_P;
733 
734   FUNCTION CP_BILL_COUNTRY_P RETURN VARCHAR2 IS
735   BEGIN
736     RETURN CP_BILL_COUNTRY;
737   END CP_BILL_COUNTRY_P;
738 
739   FUNCTION CP_BILL_TAX_REFERENCE_P RETURN VARCHAR2 IS
740   BEGIN
741     RETURN CP_BILL_TAX_REFERENCE;
742   END CP_BILL_TAX_REFERENCE_P;
743 
744   FUNCTION CP_REMIT_CUST_P RETURN VARCHAR2 IS
745   BEGIN
746     RETURN CP_REMIT_CUST;
747   END CP_REMIT_CUST_P;
748 
749   FUNCTION CP_REMIT_ADD_1_P RETURN VARCHAR2 IS
750   BEGIN
751     RETURN CP_REMIT_ADD_1;
752   END CP_REMIT_ADD_1_P;
753 
754   FUNCTION CP_REMIT_ADD_2_P RETURN VARCHAR2 IS
755   BEGIN
756     RETURN CP_REMIT_ADD_2;
757   END CP_REMIT_ADD_2_P;
758 
759   FUNCTION CP_REMIT_ADD_3_P RETURN VARCHAR2 IS
760   BEGIN
761     RETURN CP_REMIT_ADD_3;
762   END CP_REMIT_ADD_3_P;
763 
764   FUNCTION CP_REMIT_ADD_4_P RETURN VARCHAR2 IS
765   BEGIN
766     RETURN CP_REMIT_ADD_4;
767   END CP_REMIT_ADD_4_P;
768 
769   FUNCTION CP_REMIT_CITY_P RETURN VARCHAR2 IS
770   BEGIN
771     RETURN CP_REMIT_CITY;
772   END CP_REMIT_CITY_P;
773 
774   FUNCTION CP_REMIT_COUNTRY_P RETURN VARCHAR2 IS
775   BEGIN
776     RETURN CP_REMIT_COUNTRY;
777   END CP_REMIT_COUNTRY_P;
778 
779   FUNCTION CP_1_P RETURN NUMBER IS
780   BEGIN
781     RETURN CP_1;
782   END CP_1_P;
783 
784   FUNCTION CP_REMIT_POSTAL_CODE_P RETURN VARCHAR2 IS
785   BEGIN
786     RETURN CP_REMIT_POSTAL_CODE;
787   END CP_REMIT_POSTAL_CODE_P;
788 
789   FUNCTION FUNC_CURRENCY_P RETURN VARCHAR2 IS
790   BEGIN
791     RETURN FUNC_CURRENCY;
792   END FUNC_CURRENCY_P;
793 
794   FUNCTION ORDERBY_ACCT_P RETURN VARCHAR2 IS
795   BEGIN
796     RETURN ORDERBY_ACCT;
797   END ORDERBY_ACCT_P;
798 
799   FUNCTION PRECISION_P RETURN NUMBER IS
800   BEGIN
801     RETURN PRECISION;
802   END PRECISION_P;
803 
804   FUNCTION SELECT_ALL_P RETURN VARCHAR2 IS
805   BEGIN
806     RETURN SELECT_ALL;
807   END SELECT_ALL_P;
808 
809   FUNCTION SET_OF_BOOKS_NAME_P RETURN VARCHAR2 IS
810   BEGIN
811     RETURN SET_OF_BOOKS_NAME;
812   END SET_OF_BOOKS_NAME_P;
813 
814   FUNCTION STRUCT_NUM_P RETURN VARCHAR2 IS
815   BEGIN
816     RETURN STRUCT_NUM;
817   END STRUCT_NUM_P;
818 
819   FUNCTION WHERE_FLEX_P RETURN VARCHAR2 IS
820   BEGIN
821     RETURN WHERE_FLEX;
822   END WHERE_FLEX_P;
823 
824   FUNCTION PRINT_TYPE_P RETURN VARCHAR2 IS
825   BEGIN
826     RETURN PRINT_TYPE;
827   END PRINT_TYPE_P;
828 
829   FUNCTION TRX_NUMBER_LOW_P RETURN VARCHAR2 IS
830   BEGIN
831     RETURN TRX_NUMBER_LOW;
832   END TRX_NUMBER_LOW_P;
833 
834   FUNCTION TRX_NUMBER_HIGH_P RETURN VARCHAR2 IS
835   BEGIN
836     RETURN TRX_NUMBER_HIGH;
837   END TRX_NUMBER_HIGH_P;
838 
839   FUNCTION COMP_NUMBER_P RETURN VARCHAR2 IS
840   BEGIN
841     RETURN COMP_NUMBER;
842   END COMP_NUMBER_P;
843 
844   FUNCTION VAT_REGISTRATION_NUM_P RETURN VARCHAR2 IS
845   BEGIN
846     RETURN VAT_REGISTRATION_NUM;
847   END VAT_REGISTRATION_NUM_P;
848 
849   PROCEDURE JG_GET_PERIOD_DATES(APP_ID IN NUMBER
850                                ,TSET_OF_BOOKS_ID IN NUMBER
851                                ,TPERIOD_NAME IN VARCHAR2
852                                ,TSTART_DATE OUT NOCOPY DATE
853                                ,TEND_DATE OUT NOCOPY DATE
854                                ,ERRBUF OUT NOCOPY VARCHAR2) IS
855   BEGIN
856     /*STPROC.INIT('begin JG_INFO.JG_GET_PERIOD_DATES(:APP_ID, :TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TSTART_DATE, :TEND_DATE, :ERRBUF); end;');
857     STPROC.BIND_I(APP_ID);
858     STPROC.BIND_I(TSET_OF_BOOKS_ID);
859     STPROC.BIND_I(TPERIOD_NAME);
860     STPROC.BIND_O(TSTART_DATE);
861     STPROC.BIND_O(TEND_DATE);
862     STPROC.BIND_O(ERRBUF);
863     STPROC.EXECUTE;
864     STPROC.RETRIEVE(4
865                    ,TSTART_DATE);
866     STPROC.RETRIEVE(5
867                    ,TEND_DATE);
868     STPROC.RETRIEVE(6
869                    ,ERRBUF);*/null;
870 
871   END JG_GET_PERIOD_DATES;
872 
873   PROCEDURE JG_GET_SET_OF_BOOKS_INFO(SOBID IN NUMBER
874                                     ,COAID OUT NOCOPY NUMBER
875                                     ,SOBNAME OUT NOCOPY VARCHAR2
876                                     ,FUNC_CURR OUT NOCOPY VARCHAR2
877                                     ,ERRBUF OUT NOCOPY VARCHAR2) IS
878   BEGIN
879     /*STPROC.INIT('begin JG_INFO.JG_GET_SET_OF_BOOKS_INFO(:SOBID, :COAID, :SOBNAME, :FUNC_CURR, :ERRBUF); end;');
880     STPROC.BIND_I(SOBID);
881     STPROC.BIND_O(COAID);
882     STPROC.BIND_O(SOBNAME);
883     STPROC.BIND_O(FUNC_CURR);
884     STPROC.BIND_O(ERRBUF);
885     STPROC.EXECUTE;
886     STPROC.RETRIEVE(2
887                    ,COAID);
888     STPROC.RETRIEVE(3
889                    ,SOBNAME);
890     STPROC.RETRIEVE(4
891                    ,FUNC_CURR);
892     STPROC.RETRIEVE(5
893                    ,ERRBUF);*/
894     JG_INFO.JG_GET_SET_OF_BOOKS_INFO(SOBID, COAID, SOBNAME, FUNC_CURR, ERRBUF);
895   END JG_GET_SET_OF_BOOKS_INFO;
896 
897   PROCEDURE JG_GET_BUD_OR_ENC_NAME(ACTUAL_TYPE IN VARCHAR2
898                                   ,TYPE_ID IN NUMBER
899                                   ,NAME OUT NOCOPY VARCHAR2
900                                   ,ERRBUF OUT NOCOPY VARCHAR2) IS
901   BEGIN
902     /*STPROC.INIT('begin JG_INFO.JG_GET_BUD_OR_ENC_NAME(:ACTUAL_TYPE, :TYPE_ID, :NAME, :ERRBUF); end;');
903     STPROC.BIND_I(ACTUAL_TYPE);
904     STPROC.BIND_I(TYPE_ID);
905     STPROC.BIND_O(NAME);
906     STPROC.BIND_O(ERRBUF);
907     STPROC.EXECUTE;
908     STPROC.RETRIEVE(3
909                    ,NAME);
910     STPROC.RETRIEVE(4
911                    ,ERRBUF);*/
912     JG_INFO.JG_GET_BUD_OR_ENC_NAME(ACTUAL_TYPE, TYPE_ID, NAME, ERRBUF);
913   END JG_GET_BUD_OR_ENC_NAME;
914 
915   PROCEDURE JG_GET_LOOKUP_VALUE(LMODE IN VARCHAR2
916                                ,CODE IN VARCHAR2
917                                ,TYPE IN VARCHAR2
918                                ,VALUE OUT NOCOPY VARCHAR2
919                                ,ERRBUF OUT NOCOPY VARCHAR2) IS
920   BEGIN
921     /*STPROC.INIT('begin JG_INFO.JG_GET_LOOKUP_VALUE(:LMODE, :CODE, :TYPE, :VALUE, :ERRBUF); end;');
922     STPROC.BIND_I(LMODE);
923     STPROC.BIND_I(CODE);
924     STPROC.BIND_I(TYPE);
925     STPROC.BIND_O(VALUE);
926     STPROC.BIND_O(ERRBUF);
927     STPROC.EXECUTE;
928     STPROC.RETRIEVE(4
929                    ,VALUE);
930     STPROC.RETRIEVE(5
931                    ,ERRBUF);*/
932     JG_INFO.JG_GET_LOOKUP_VALUE(LMODE, CODE, TYPE, VALUE, ERRBUF);
933   END JG_GET_LOOKUP_VALUE;
934 
935   PROCEDURE JG_GET_FIRST_PERIOD(APP_ID IN NUMBER
936                                ,TSET_OF_BOOKS_ID IN NUMBER
937                                ,TPERIOD_NAME IN VARCHAR2
938                                ,TFIRST_PERIOD OUT NOCOPY VARCHAR2
939                                ,ERRBUF OUT NOCOPY VARCHAR2) IS
940   BEGIN
941     /*STPROC.INIT('begin JG_INFO.JG_GET_FIRST_PERIOD(:APP_ID, :TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TFIRST_PERIOD, :ERRBUF); end;');
942     STPROC.BIND_I(APP_ID);
943     STPROC.BIND_I(TSET_OF_BOOKS_ID);
944     STPROC.BIND_I(TPERIOD_NAME);
945     STPROC.BIND_O(TFIRST_PERIOD);
946     STPROC.BIND_O(ERRBUF);
947     STPROC.EXECUTE;
948     STPROC.RETRIEVE(4
949                    ,TFIRST_PERIOD);
950     STPROC.RETRIEVE(5
951                    ,ERRBUF);*/
952     JG_INFO.JG_GET_FIRST_PERIOD(APP_ID, TSET_OF_BOOKS_ID, TPERIOD_NAME, TFIRST_PERIOD, ERRBUF);
953   END JG_GET_FIRST_PERIOD;
954 
955   PROCEDURE JG_GET_FIRST_PERIOD_OF_QUARTER(APP_ID IN NUMBER
956                                           ,TSET_OF_BOOKS_ID IN NUMBER
957                                           ,TPERIOD_NAME IN VARCHAR2
958                                           ,TFIRST_PERIOD OUT NOCOPY VARCHAR2
959                                           ,ERRBUF OUT NOCOPY VARCHAR2) IS
960   BEGIN
961     /*STPROC.INIT('begin JG_INFO.JG_GET_FIRST_PERIOD_OF_QUARTER(:APP_ID, :TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TFIRST_PERIOD, :ERRBUF); end;');
962     STPROC.BIND_I(APP_ID);
963     STPROC.BIND_I(TSET_OF_BOOKS_ID);
964     STPROC.BIND_I(TPERIOD_NAME);
965     STPROC.BIND_O(TFIRST_PERIOD);
966     STPROC.BIND_O(ERRBUF);
967     STPROC.EXECUTE;
968     STPROC.RETRIEVE(4
969                    ,TFIRST_PERIOD);
970     STPROC.RETRIEVE(5
971                    ,ERRBUF);*/
972     JG_INFO.JG_GET_FIRST_PERIOD_OF_QUARTER(APP_ID, TSET_OF_BOOKS_ID, TPERIOD_NAME, TFIRST_PERIOD, ERRBUF);
973   END JG_GET_FIRST_PERIOD_OF_QUARTER;
974 
975   PROCEDURE JG_GET_CONSOLIDATION_INFO(CONS_ID IN NUMBER
976                                      ,CONS_NAME OUT NOCOPY VARCHAR2
977                                      ,METHOD OUT NOCOPY VARCHAR2
978                                      ,CURR_CODE OUT NOCOPY VARCHAR2
979                                      ,FROM_SOBID OUT NOCOPY NUMBER
980                                      ,TO_SOBID OUT NOCOPY NUMBER
981                                      ,DESCRIPTION OUT NOCOPY VARCHAR2
982                                      ,START_DATE OUT NOCOPY DATE
983                                      ,END_DATE OUT NOCOPY DATE
984                                      ,ERRBUF OUT NOCOPY VARCHAR2) IS
985   BEGIN
986    /* STPROC.INIT('begin JG_INFO.JG_GET_CONSOLIDATION_INFO(:CONS_ID, :CONS_NAME, :METHOD, :CURR_CODE, :FROM_SOBID, :TO_SOBID, :DESCRIPTION, :START_DATE, :END_DATE, :ERRBUF); end;');
987     STPROC.BIND_I(CONS_ID);
988     STPROC.BIND_O(CONS_NAME);
989     STPROC.BIND_O(METHOD);
990     STPROC.BIND_O(CURR_CODE);
991     STPROC.BIND_O(FROM_SOBID);
992     STPROC.BIND_O(TO_SOBID);
993     STPROC.BIND_O(DESCRIPTION);
994     STPROC.BIND_O(START_DATE);
995     STPROC.BIND_O(END_DATE);
996     STPROC.BIND_O(ERRBUF);
997     STPROC.EXECUTE;
998     STPROC.RETRIEVE(2
999                    ,CONS_NAME);
1000     STPROC.RETRIEVE(3
1001                    ,METHOD);
1002     STPROC.RETRIEVE(4
1003                    ,CURR_CODE);
1004     STPROC.RETRIEVE(5
1005                    ,FROM_SOBID);
1006     STPROC.RETRIEVE(6
1007                    ,TO_SOBID);
1008     STPROC.RETRIEVE(7
1009                    ,DESCRIPTION);
1010     STPROC.RETRIEVE(8
1011                    ,START_DATE);
1012     STPROC.RETRIEVE(9
1013                    ,END_DATE);
1014     STPROC.RETRIEVE(10
1015                    ,ERRBUF);*/null;
1016 
1017   END JG_GET_CONSOLIDATION_INFO;
1018 
1019 END JG_JGZZARIN_XMLP_PKG;
1020 
1021