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

Source


1 PACKAGE BODY JL_JLCOARCR_XMLP_PKG AS
2 /* $Header: JLCOARCRB.pls 120.1 2007/12/25 16:43:30 dwkrishn noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4     VLOCATION_ID NUMBER;
5   BEGIN
6     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
8     DECLARE
9       COAID NUMBER;
10       SOBNAME VARCHAR2(30);
11       FUNCTCURR VARCHAR2(15);
12       ERRBUF VARCHAR2(132);
13       P_PRECISION NUMBER;
14       P_EXT_PRECISION NUMBER;
15       P_MIN_ACCT_UNIT NUMBER;
16     BEGIN
17       GL_GET_SET_OF_BOOKS_INFO(P_SET_OF_BOOKS_ID
18                               ,COAID
19                               ,SOBNAME
20                               ,FUNCTCURR
21                               ,ERRBUF);
22       IF (ERRBUF IS NOT NULL) THEN
23         /*SRW.MESSAGE('00'
24                    ,ERRBUF)*/NULL;
25         /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
26       END IF;
27       C_FUNC_CURRENCY := FUNCTCURR;
28       C_STRUCT_NUM := COAID;
29       C_SOB_NAME := SOBNAME;
30       GET_INFO(C_FUNC_CURRENCY
31               ,P_PRECISION
32               ,P_EXT_PRECISION
33               ,P_MIN_ACCT_UNIT);
34       C_PRECISION := P_PRECISION;
35     END;
36     BEGIN
37       SELECT
38         LE.NAME,
39         LE.REGISTRATION_NUMBER,
40         LE.ADDRESS_LINE_1,
41         LE.ADDRESS_LINE_2,
42         LE.ADDRESS_LINE_3
43       INTO COMPANY_NAME,NIT_NUMBER,VADDRESS1,VADDRESS2,VADDRESS3
44       FROM
45         HR_LOCATIONS HR,
46         XLE_FIRSTPARTY_INFORMATION_V LE
47       WHERE HR.LOCATION_ID = LE.LOCATION_ID
48         AND LE.LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID;
49     EXCEPTION
50       WHEN OTHERS THEN
51         COMPANY_NAME := 'Company Name...';
52         NIT_NUMBER := 'Nit_Number';
53         DIGIT_VERIF := 1;
54         VADDRESS1 := 'address1...';
55         VADDRESS2 := 'address2...';
56     END;
57     BEGIN
58       SELECT
59         GEO.GEOGRAPHY_NAME
60       INTO VTOWN_CITY
61       FROM
62         HZ_GEOGRAPHIES GEO,
63         HR_LOCATIONS HL,
64         XLE_FIRSTPARTY_INFORMATION_V LE
65       WHERE GEO.GEOGRAPHY_NAME = HL.TOWN_OR_CITY
66         AND GEO.GEOGRAPHY_TYPE = 'CITY'
67         AND GEO.COUNTRY_CODE = HL.COUNTRY
68         AND GEO.GEOGRAPHY_ELEMENT2_CODE = HL.REGION_2
69         AND LE.LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID
70         AND HL.LOCATION_ID = LE.LOCATION_ID;
71     EXCEPTION
72       WHEN OTHERS THEN
73         VTOWN_CITY := 'town_or_city';
74     END;
75     BEGIN
76       SELECT
77         GEO.GEOGRAPHY_NAME
78       INTO VREGION
79       FROM
80         HZ_GEOGRAPHIES GEO,
81         HR_LOCATIONS HRL,
82         XLE_FIRSTPARTY_INFORMATION_V LE
83       WHERE LE.LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID
84         AND LE.LOCATION_ID = HRL.LOCATION_ID
85         AND GEO.GEOGRAPHY_CODE = HRL.REGION_2
86         AND GEO.GEOGRAPHY_TYPE = 'PROVINCE'
87         AND GEO.COUNTRY_CODE = HRL.COUNTRY;
88     EXCEPTION
89       WHEN OTHERS THEN
90         VREGION := 'region';
91     END;
92     BEGIN
93       SELECT
94         FT.TERRITORY_SHORT_NAME
95       INTO VCOUNTRY
96       FROM
97         FND_TERRITORIES_VL FT,
98         HR_LOCATIONS HL
99       WHERE FT.TERRITORY_CODE = HL.COUNTRY
100         AND HL.LOCATION_ID = VLOCATION_ID;
101     EXCEPTION
102       WHEN OTHERS THEN
103         VCOUNTRY := NULL;
104     END;
105     RETURN (TRUE);
106   END BEFOREREPORT;
107   FUNCTION AFTERREPORT RETURN BOOLEAN IS
108   BEGIN
109     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
110     RETURN (TRUE);
111   END AFTERREPORT;
112   FUNCTION CONVERT_NUMBER2(SEGMENT IN NUMBER) RETURN VARCHAR2 IS
113     VALUE_TEXT VARCHAR2(80) := '';
114     V_CENTENAS VARCHAR2(12);
115     CENTENAS NUMBER := POWER(10
116          ,2);
117     V_DEZENAS VARCHAR2(10);
118     DEZENAS NUMBER := 10;
119     V_UNIDADES VARCHAR2(10);
120     CURRENT_SEG VARCHAR2(80);
121     RESTO VARCHAR2(3);
122     NUM INTEGER := SEGMENT;
123   BEGIN
124     CURRENT_SEG := TRUNC(NUM / CENTENAS);
125     RESTO := MOD(NUM
126                 ,CENTENAS);
127     NUM := NUM - (CURRENT_SEG * CENTENAS);
128     IF CURRENT_SEG <> 0 THEN
129       IF CURRENT_SEG = 1 THEN
130         IF RESTO = 0 THEN
131           VALUE_TEXT := VALUE_TEXT || 'cem ';
132         ELSE
133           VALUE_TEXT := VALUE_TEXT || 'cento ';
134         END IF;
135       ELSIF CURRENT_SEG = 2 THEN
136         VALUE_TEXT := VALUE_TEXT || 'duzentos ';
137       ELSIF CURRENT_SEG = 3 THEN
138         VALUE_TEXT := VALUE_TEXT || 'trezentos ';
139       ELSIF CURRENT_SEG = 4 THEN
140         VALUE_TEXT := VALUE_TEXT || 'quatrocentos ';
141       ELSIF CURRENT_SEG = 5 THEN
142         VALUE_TEXT := VALUE_TEXT || 'quinhentos ';
143       ELSIF CURRENT_SEG = 6 THEN
144         VALUE_TEXT := VALUE_TEXT || 'seiscentos ';
145       ELSIF CURRENT_SEG = 7 THEN
146         VALUE_TEXT := VALUE_TEXT || 'setecentos ';
147       ELSIF CURRENT_SEG = 8 THEN
148         VALUE_TEXT := VALUE_TEXT || 'oitocentos ';
149       ELSIF CURRENT_SEG = 9 THEN
150         VALUE_TEXT := VALUE_TEXT || 'novecentos ';
151       END IF;
152     END IF;
153     CURRENT_SEG := TRUNC(NUM / DEZENAS);
154     RESTO := MOD(NUM
155                 ,DEZENAS);
156     NUM := NUM - (CURRENT_SEG * DEZENAS);
157     IF CURRENT_SEG <> 0 THEN
158       IF CURRENT_SEG = 1 THEN
159         IF RESTO = 0 THEN
160           VALUE_TEXT := VALUE_TEXT || 'dez ';
161         ELSIF RESTO = 1 THEN
162           VALUE_TEXT := VALUE_TEXT || 'onze ';
163         ELSIF RESTO = 2 THEN
164           VALUE_TEXT := VALUE_TEXT || 'doze ';
165         ELSIF RESTO = 3 THEN
166           VALUE_TEXT := VALUE_TEXT || 'treze ';
167         ELSIF RESTO = 4 THEN
168           VALUE_TEXT := VALUE_TEXT || 'catorze ';
169         ELSIF RESTO = 5 THEN
170           VALUE_TEXT := VALUE_TEXT || 'quinze ';
171         ELSIF RESTO = 6 THEN
172           VALUE_TEXT := VALUE_TEXT || 'dezasseis ';
173         ELSIF RESTO = 7 THEN
174           VALUE_TEXT := VALUE_TEXT || 'dezassete ';
175         ELSIF RESTO = 8 THEN
176           VALUE_TEXT := VALUE_TEXT || 'dezoito ';
177         ELSIF RESTO = 9 THEN
178           VALUE_TEXT := VALUE_TEXT || 'dezanove ';
179         END IF;
180       ELSIF CURRENT_SEG = 2 THEN
181         VALUE_TEXT := VALUE_TEXT || 'vinte ';
182       ELSIF CURRENT_SEG = 3 THEN
183         VALUE_TEXT := VALUE_TEXT || 'trinta ';
184       ELSIF CURRENT_SEG = 4 THEN
185         VALUE_TEXT := VALUE_TEXT || 'quarenta ';
186       ELSIF CURRENT_SEG = 5 THEN
187         VALUE_TEXT := VALUE_TEXT || 'cinquenta ';
188       ELSIF CURRENT_SEG = 6 THEN
189         VALUE_TEXT := VALUE_TEXT || 'sessenta ';
190       ELSIF CURRENT_SEG = 7 THEN
191         VALUE_TEXT := VALUE_TEXT || 'setenta ';
192       ELSIF CURRENT_SEG = 8 THEN
193         VALUE_TEXT := VALUE_TEXT || 'oitenta ';
194       ELSIF CURRENT_SEG = 9 THEN
195         VALUE_TEXT := VALUE_TEXT || 'noventa ';
196       END IF;
197     END IF;
198     IF NUM <> 0 AND CURRENT_SEG <> 1 THEN
199       IF NUM = 1 THEN
200         VALUE_TEXT := VALUE_TEXT || 'um ';
201       ELSIF NUM = 2 THEN
202         VALUE_TEXT := VALUE_TEXT || 'dois ';
203       ELSIF NUM = 3 THEN
204         VALUE_TEXT := VALUE_TEXT || 'tres ';
205       ELSIF NUM = 4 THEN
206         VALUE_TEXT := VALUE_TEXT || 'quatro ';
207       ELSIF NUM = 5 THEN
208         VALUE_TEXT := VALUE_TEXT || 'cinco ';
209       ELSIF NUM = 6 THEN
210         VALUE_TEXT := VALUE_TEXT || 'seis ';
211       ELSIF NUM = 7 THEN
212         VALUE_TEXT := VALUE_TEXT || 'sete ';
213       ELSIF NUM = 8 THEN
214         VALUE_TEXT := VALUE_TEXT || 'oito ';
215       ELSIF NUM = 9 THEN
216         VALUE_TEXT := VALUE_TEXT || 'nove ';
217       END IF;
218     END IF;
219     RETURN VALUE_TEXT;
220   END CONVERT_NUMBER2;
221   FUNCTION CONVERT_NUMBER(IN_NUMERAL IN INTEGER := 0) RETURN VARCHAR2 IS
222     NUMBER_TOO_LARGE EXCEPTION;
223     NUMERAL INTEGER := ABS(IN_NUMERAL);
224     MAX_DIGIT INTEGER := 12;
225     NUMBER_TEXT VARCHAR2(240) := '';
226     CURRENT_SEGMENT VARCHAR2(80);
227     B_ZERO VARCHAR2(25) := 'Zero';
228     B_THOUSAND VARCHAR2(25) := 'Mil ';
229     THOUSAND NUMBER := POWER(10
230          ,3);
231     B_MILLION VARCHAR2(25) := 'Milh?o ';
232     B_MILLIONS VARCHAR2(25) := 'Milh?es ';
233     MILLION NUMBER := POWER(10
234          ,6);
235     B_BILLION VARCHAR2(25) := 'Bili?  ';
236     B_BILLIONS VARCHAR2(25) := 'Bili?es ';
237     BILLION NUMBER := POWER(10
238          ,9);
239   BEGIN
240     IF NUMERAL >= POWER(10
241          ,MAX_DIGIT) THEN
242       RAISE NUMBER_TOO_LARGE;
243     END IF;
244     IF NUMERAL = 0 THEN
245       RETURN (B_ZERO);
246     END IF;
247     CURRENT_SEGMENT := TRUNC(NUMERAL / BILLION);
248     NUMERAL := NUMERAL - (CURRENT_SEGMENT * BILLION);
249     IF CURRENT_SEGMENT <> 0 THEN
250       IF CURRENT_SEGMENT = 1 THEN
251         NUMBER_TEXT := NUMBER_TEXT || CONVERT_NUMBER2(CURRENT_SEGMENT) || B_BILLION;
252       ELSE
253         NUMBER_TEXT := NUMBER_TEXT || CONVERT_NUMBER2(CURRENT_SEGMENT) || B_BILLIONS;
254       END IF;
255     END IF;
256     CURRENT_SEGMENT := TRUNC(NUMERAL / MILLION);
257     NUMERAL := NUMERAL - (CURRENT_SEGMENT * MILLION);
258     IF CURRENT_SEGMENT <> 0 THEN
259       IF CURRENT_SEGMENT = 1 THEN
260         NUMBER_TEXT := NUMBER_TEXT || CONVERT_NUMBER2(CURRENT_SEGMENT) || B_MILLION;
261       ELSE
262         NUMBER_TEXT := NUMBER_TEXT || CONVERT_NUMBER2(CURRENT_SEGMENT) || B_MILLIONS;
263       END IF;
264     END IF;
265     CURRENT_SEGMENT := TRUNC(NUMERAL / THOUSAND);
266     NUMERAL := NUMERAL - (CURRENT_SEGMENT * THOUSAND);
267     IF CURRENT_SEGMENT <> 0 THEN
268       IF CURRENT_SEGMENT = 1 THEN
269         NUMBER_TEXT := NUMBER_TEXT || B_THOUSAND;
270       ELSE
271         NUMBER_TEXT := NUMBER_TEXT || CONVERT_NUMBER2(CURRENT_SEGMENT) || B_THOUSAND;
272       END IF;
273     END IF;
274     IF NUMERAL <> 0 THEN
275       NUMBER_TEXT := NUMBER_TEXT || CONVERT_NUMBER2(NUMERAL);
276     END IF;
277     NUMBER_TEXT := SUBSTR(NUMBER_TEXT
278                          ,1
279                          ,1) || RTRIM(LOWER(SUBSTR(NUMBER_TEXT
280                                      ,2
281                                      ,NVL(LENGTH(NUMBER_TEXT)
282                                         ,0))));
283     RETURN (NUMBER_TEXT);
284     RETURN NULL;
285   EXCEPTION
286     WHEN NUMBER_TOO_LARGE THEN
287       RETURN (NULL);
288     WHEN OTHERS THEN
289       RETURN (NULL);
290   END CONVERT_NUMBER;
291   FUNCTION GET_WORD_VALUE(P_AMOUNT IN NUMBER
292                          ,P_UNIT_SINGULAR IN VARCHAR2
293                          ,P_UNIT_PLURAL IN VARCHAR2
294                          ,P_SUB_UNIT_SINGULAR IN VARCHAR2
295                          ,P_SUB_UNIT_PLURAL IN VARCHAR2
296                          ,P_UNIT_RATIO IN NUMBER) RETURN VARCHAR2 IS
297     L_WORD_AMOUNT VARCHAR2(240) := CONVERT_NUMBER(TRUNC(P_AMOUNT));
298     L_DECIMAL_PART NUMBER := TRUNC((P_AMOUNT - TRUNC(P_AMOUNT)) * P_UNIT_RATIO);
299     L_WORD_AMOUNT2 VARCHAR2(240);
300     L_CURRENCY_WORD VARCHAR2(240);
301     L_LOG INTEGER;
302     FUNCTION MY_LOG(A IN INTEGER
303                    ,B IN INTEGER) RETURN NUMBER IS
304     BEGIN
305       IF A <> 10 THEN
306         RETURN (NULL);
307       ELSIF B > 0 AND B <= 10 THEN
308         RETURN (1);
309       ELSIF B > 10 AND B <= 100 THEN
310         RETURN (2);
311       ELSIF B > 100 AND B <= 1000 THEN
312         RETURN (3);
313       ELSE
314         RETURN (NULL);
315       END IF;
316       RETURN NULL;
317     END MY_LOG;
318   BEGIN
319     L_LOG := MY_LOG(10
320                    ,P_UNIT_RATIO);
321     IF (L_DECIMAL_PART > 0) THEN
322       L_WORD_AMOUNT2 := CONVERT_NUMBER(L_DECIMAL_PART);
323       SELECT
324         INITCAP(LOWER('e' || ' ' || L_WORD_AMOUNT2 || ' ' || DECODE(L_DECIMAL_PART
325                             ,1
326                             ,P_SUB_UNIT_SINGULAR
327                             ,P_SUB_UNIT_PLURAL)))
328       INTO L_WORD_AMOUNT2
329       FROM
330         DUAL;
331     END IF;
332     IF P_UNIT_RATIO in (0,1) OR P_UNIT_RATIO IS NULL THEN
333       SELECT
334         INITCAP(LOWER(L_WORD_AMOUNT || ' ' || DECODE(TRUNC(P_AMOUNT)
335                             ,1
336                             ,P_UNIT_SINGULAR
337                             ,P_UNIT_PLURAL)))
338       INTO L_CURRENCY_WORD
339       FROM
340         DUAL;
341     ELSE
342       SELECT
343         INITCAP(LOWER(L_WORD_AMOUNT || ' ' || DECODE(TRUNC(P_AMOUNT)
344                             ,1
345                             ,P_UNIT_SINGULAR
346                             ,P_UNIT_PLURAL) || ' ' || L_WORD_AMOUNT2))
347       INTO L_CURRENCY_WORD
348       FROM
349         DUAL;
350     END IF;
351     RETURN (L_CURRENCY_WORD);
352   END GET_WORD_VALUE;
353   FUNCTION PRECISION(CUR_CODE IN VARCHAR2) RETURN NUMBER IS
354     L_PRECISION NUMBER;
355   BEGIN
356     SELECT
357       PRECISION
358     INTO L_PRECISION
359     FROM
360       FND_CURRENCIES_VL
361     WHERE CURRENCY_CODE = CUR_CODE;
362     RETURN (L_PRECISION);
363     RETURN NULL;
364   EXCEPTION
365     WHEN OTHERS THEN
366       /*SRW.MESSAGE(999
367                  ,'Error in procedure - precision')*/NULL;
368       /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
369   END PRECISION;
370   FUNCTION CF_INVOICE_NUMFORMULA(INVOICE_NUMBER IN VARCHAR2) RETURN CHAR IS
371   BEGIN
372     DECLARE
373       INV_NUM VARCHAR2(20);
374     BEGIN
375       IF INVOICE_NUMBER = 'ACC' THEN
376         SELECT
377           MEANING
378         INTO INV_NUM
379         FROM
380           AR_LOOKUPS
381         WHERE LOOKUP_TYPE = 'PAYMENT_TYPE'
382           AND LOOKUP_CODE = 'ACC';
383       ELSIF INVOICE_NUMBER = 'UNAPP' THEN
384         SELECT
385           MEANING
386         INTO INV_NUM
387         FROM
388           AR_LOOKUPS
389         WHERE LOOKUP_TYPE = 'PAYMENT_TYPE'
390           AND LOOKUP_CODE = 'UNAPP';
391       ELSE
392         INV_NUM := INVOICE_NUMBER;
393       END IF;
394       RETURN (INV_NUM);
395     END;
396   END CF_INVOICE_NUMFORMULA;
397   FUNCTION C_FUNC_CURRENCY_P RETURN VARCHAR2 IS
398   BEGIN
399     RETURN C_FUNC_CURRENCY;
400   END C_FUNC_CURRENCY_P;
401   FUNCTION C_PRECISION_P RETURN NUMBER IS
402   BEGIN
403     RETURN C_PRECISION;
404   END C_PRECISION_P;
405   FUNCTION C_STRUCT_NUM_P RETURN NUMBER IS
406   BEGIN
407     RETURN C_STRUCT_NUM;
408   END C_STRUCT_NUM_P;
409   FUNCTION C_SOB_NAME_P RETURN VARCHAR2 IS
410   BEGIN
411     RETURN C_SOB_NAME;
412   END C_SOB_NAME_P;
413   FUNCTION C_REPORT_START_DATE_P RETURN DATE IS
414   BEGIN
415     RETURN C_REPORT_START_DATE;
416   END C_REPORT_START_DATE_P;
417   FUNCTION C_REPORT_RUN_TIME_P RETURN VARCHAR2 IS
418   BEGIN
419     RETURN C_REPORT_RUN_TIME;
420   END C_REPORT_RUN_TIME_P;
421   FUNCTION VLOCATION_ID_P RETURN NUMBER IS
422   BEGIN
423     RETURN VLOCATION_ID;
424   END VLOCATION_ID_P;
425   FUNCTION COMPANY_NAME_P RETURN VARCHAR2 IS
426   BEGIN
427     RETURN COMPANY_NAME;
428   END COMPANY_NAME_P;
429   FUNCTION NIT_NUMBER_P RETURN VARCHAR2 IS
430   BEGIN
431     RETURN NIT_NUMBER;
432   END NIT_NUMBER_P;
433   FUNCTION DIGIT_VERIF_P RETURN VARCHAR2 IS
434   BEGIN
435     RETURN DIGIT_VERIF;
436   END DIGIT_VERIF_P;
437   FUNCTION VADDRESS1_P RETURN VARCHAR2 IS
438   BEGIN
439     RETURN VADDRESS1;
440   END VADDRESS1_P;
441   FUNCTION VADDRESS2_P RETURN VARCHAR2 IS
442   BEGIN
443     RETURN VADDRESS2;
444   END VADDRESS2_P;
445   FUNCTION VREGION_P RETURN VARCHAR2 IS
446   BEGIN
447     RETURN VREGION;
448   END VREGION_P;
449   FUNCTION VTOWN_CITY_P RETURN VARCHAR2 IS
450   BEGIN
451     RETURN VTOWN_CITY;
452   END VTOWN_CITY_P;
453   FUNCTION VADDRESS3_P RETURN VARCHAR2 IS
454   BEGIN
455     RETURN VADDRESS3;
456   END VADDRESS3_P;
457   FUNCTION VCOUNTRY_P RETURN VARCHAR2 IS
458   BEGIN
459     RETURN VCOUNTRY;
460   END VCOUNTRY_P;
461 /*   PROCEDURE JG_GET_SET_OF_BOOKS_INFO(SOBID IN NUMBER
462                                     ,COAID OUT NOCOPY NUMBER
463                                     ,SOBNAME OUT NOCOPY VARCHAR2
464                                     ,FUNC_CURR OUT NOCOPY VARCHAR2
465                                     ,ERRBUF OUT NOCOPY VARCHAR2) IS
466   BEGIN
467     STPROC.INIT('begin JG_INFO.JG_GET_SET_OF_BOOKS_INFO(:SOBID, :COAID, :SOBNAME, :FUNC_CURR, :ERRBUF); end;');
468     STPROC.BIND_I(SOBID);
469     STPROC.BIND_O(COAID);
470     STPROC.BIND_O(SOBNAME);
471     STPROC.BIND_O(FUNC_CURR);
472     STPROC.BIND_O(ERRBUF);
473     STPROC.EXECUTE;
474     STPROC.RETRIEVE(2
475                    ,COAID);
476     STPROC.RETRIEVE(3
477                    ,SOBNAME);
478     STPROC.RETRIEVE(4
479                    ,FUNC_CURR);
480     STPROC.RETRIEVE(5
481                    ,ERRBUF);
482   END JG_GET_SET_OF_BOOKS_INFO;
483  PROCEDURE JG_GET_BUD_OR_ENC_NAME(ACTUAL_TYPE IN VARCHAR2
484                                   ,TYPE_ID IN NUMBER
485                                   ,NAME OUT NOCOPY VARCHAR2
486                                   ,ERRBUF OUT NOCOPY VARCHAR2) IS
487   BEGIN
488     STPROC.INIT('begin JG_INFO.JG_GET_BUD_OR_ENC_NAME(:ACTUAL_TYPE, :TYPE_ID, :NAME, :ERRBUF); end;');
489     STPROC.BIND_I(ACTUAL_TYPE);
490     STPROC.BIND_I(TYPE_ID);
491     STPROC.BIND_O(NAME);
492     STPROC.BIND_O(ERRBUF);
493     STPROC.EXECUTE;
494     STPROC.RETRIEVE(3
495                    ,NAME);
496     STPROC.RETRIEVE(4
497                    ,ERRBUF);
498   END JG_GET_BUD_OR_ENC_NAME;
499   PROCEDURE JG_GET_LOOKUP_VALUE(LMODE IN VARCHAR2
500                                ,CODE IN VARCHAR2
501                                ,TYPE IN VARCHAR2
502                                ,VALUE OUT NOCOPY VARCHAR2
503                                ,ERRBUF OUT NOCOPY VARCHAR2) IS
504   BEGIN
505     STPROC.INIT('begin JG_INFO.JG_GET_LOOKUP_VALUE(:LMODE, :CODE, :TYPE, :VALUE, :ERRBUF); end;');
506     STPROC.BIND_I(LMODE);
507     STPROC.BIND_I(CODE);
508     STPROC.BIND_I(TYPE);
509     STPROC.BIND_O(VALUE);
510     STPROC.BIND_O(ERRBUF);
511     STPROC.EXECUTE;
512     STPROC.RETRIEVE(4
513                    ,VALUE);
514     STPROC.RETRIEVE(5
515                    ,ERRBUF);
516   END JG_GET_LOOKUP_VALUE;
517   PROCEDURE JG_GET_FIRST_PERIOD(APP_ID IN NUMBER
518                                ,TSET_OF_BOOKS_ID IN NUMBER
519                                ,TPERIOD_NAME IN VARCHAR2
520                                ,TFIRST_PERIOD OUT NOCOPY VARCHAR2
521                                ,ERRBUF OUT NOCOPY VARCHAR2) IS
522   BEGIN
523     STPROC.INIT('begin JG_INFO.JG_GET_FIRST_PERIOD(:APP_ID, :TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TFIRST_PERIOD, :ERRBUF); end;');
524     STPROC.BIND_I(APP_ID);
525     STPROC.BIND_I(TSET_OF_BOOKS_ID);
526     STPROC.BIND_I(TPERIOD_NAME);
527     STPROC.BIND_O(TFIRST_PERIOD);
528     STPROC.BIND_O(ERRBUF);
529     STPROC.EXECUTE;
530     STPROC.RETRIEVE(4
531                    ,TFIRST_PERIOD);
532     STPROC.RETRIEVE(5
533                    ,ERRBUF);
534   END JG_GET_FIRST_PERIOD;
535    PROCEDURE JG_GET_FIRST_PERIOD_OF_QUARTER(APP_ID IN NUMBER
536                                           ,TSET_OF_BOOKS_ID IN NUMBER
537                                           ,TPERIOD_NAME IN VARCHAR2
538                                           ,TFIRST_PERIOD OUT NOCOPY VARCHAR2
539                                           ,ERRBUF OUT NOCOPY VARCHAR2) IS
540   BEGIN
541     STPROC.INIT('begin JG_INFO.JG_GET_FIRST_PERIOD_OF_QUARTER(:APP_ID, :TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TFIRST_PERIOD, :ERRBUF); end;');
542     STPROC.BIND_I(APP_ID);
543     STPROC.BIND_I(TSET_OF_BOOKS_ID);
544     STPROC.BIND_I(TPERIOD_NAME);
545     STPROC.BIND_O(TFIRST_PERIOD);
546     STPROC.BIND_O(ERRBUF);
547     STPROC.EXECUTE;
548     STPROC.RETRIEVE(4
549                    ,TFIRST_PERIOD);
550     STPROC.RETRIEVE(5
551                    ,ERRBUF);
552   END JG_GET_FIRST_PERIOD_OF_QUARTER;
553  FUNCTION JG_FORMAT_CURR_AMT(IN_PRECISION IN NUMBER
554                              ,IN_AMOUNT_DISP IN VARCHAR2) RETURN VARCHAR2 IS
555     X0 VARCHAR2(2000);
556   BEGIN
557     STPROC.INIT('begin :X0 := JG_INFO.JG_FORMAT_CURR_AMT(:IN_PRECISION, :IN_AMOUNT_DISP); end;');
558     STPROC.BIND_O(X0);
559     STPROC.BIND_I(IN_PRECISION);
560     STPROC.BIND_I(IN_AMOUNT_DISP);
561     STPROC.EXECUTE;
562     STPROC.RETRIEVE(1
563                    ,X0);
564     RETURN X0;
565   END JG_FORMAT_CURR_AMT;*/
566  /* PROCEDURE GL_GET_PERIOD_DATES(TSET_OF_BOOKS_ID IN NUMBER
567                                ,TPERIOD_NAME IN VARCHAR2
568                                ,TSTART_DATE OUT NOCOPY DATE
569                                ,TEND_DATE OUT NOCOPY DATE
570                                ,ERRBUF OUT NOCOPY VARCHAR2) IS
571   BEGIN
572     STPROC.INIT('begin GL_INFO.GL_GET_PERIOD_DATES(:TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TSTART_DATE, :TEND_DATE, :ERRBUF); end;');
573     STPROC.BIND_I(TSET_OF_BOOKS_ID);
574     STPROC.BIND_I(TPERIOD_NAME);
575     STPROC.BIND_O(TSTART_DATE);
576     STPROC.BIND_O(TEND_DATE);
577     STPROC.BIND_O(ERRBUF);
578     STPROC.EXECUTE;
579     STPROC.RETRIEVE(3
580                    ,TSTART_DATE);
581     STPROC.RETRIEVE(4
582                    ,TEND_DATE);
583     STPROC.RETRIEVE(5
584                    ,ERRBUF);
585   END GL_GET_PERIOD_DATES;*/
586   PROCEDURE GL_GET_SET_OF_BOOKS_INFO(SOBID IN NUMBER
587                                     ,COAID OUT NOCOPY NUMBER
588                                     ,SOBNAME OUT NOCOPY VARCHAR2
589                                     ,FUNC_CURR OUT NOCOPY VARCHAR2
590                                     ,ERRBUF OUT NOCOPY VARCHAR2) IS
591   BEGIN
592    GL_INFO.GL_GET_LEDGER_INFO(SOBID, COAID, SOBNAME, FUNC_CURR, ERRBUF);
593   END GL_GET_SET_OF_BOOKS_INFO;
594  /* PROCEDURE GL_GET_BUD_OR_ENC_NAME(ACTUAL_TYPE IN VARCHAR2
595                                   ,TYPE_ID IN NUMBER
596                                   ,NAME OUT NOCOPY VARCHAR2
597                                   ,ERRBUF OUT NOCOPY VARCHAR2) IS
598   BEGIN
599     STPROC.INIT('begin GL_INFO.GL_GET_BUD_OR_ENC_NAME(:ACTUAL_TYPE, :TYPE_ID, :NAME, :ERRBUF); end;');
600     STPROC.BIND_I(ACTUAL_TYPE);
601     STPROC.BIND_I(TYPE_ID);
602     STPROC.BIND_O(NAME);
603     STPROC.BIND_O(ERRBUF);
604     STPROC.EXECUTE;
605     STPROC.RETRIEVE(3
606                    ,NAME);
607     STPROC.RETRIEVE(4
608                    ,ERRBUF);
609   END GL_GET_BUD_OR_ENC_NAME;
610  PROCEDURE GL_GET_LOOKUP_VALUE(LMODE IN VARCHAR2
611                                ,CODE IN VARCHAR2
612                                ,TYPE IN VARCHAR2
613                                ,VALUE OUT NOCOPY VARCHAR2
614                                ,ERRBUF OUT NOCOPY VARCHAR2) IS
615   BEGIN
616     STPROC.INIT('begin GL_INFO.GL_GET_LOOKUP_VALUE(:LMODE, :CODE, :TYPE, :VALUE, :ERRBUF); end;');
617     STPROC.BIND_I(LMODE);
618     STPROC.BIND_I(CODE);
619     STPROC.BIND_I(TYPE);
620     STPROC.BIND_O(VALUE);
621     STPROC.BIND_O(ERRBUF);
622     STPROC.EXECUTE;
623     STPROC.RETRIEVE(4
624                    ,VALUE);
625     STPROC.RETRIEVE(5
626                    ,ERRBUF);
627   END GL_GET_LOOKUP_VALUE;
628    PROCEDURE GL_GET_FIRST_PERIOD(TSET_OF_BOOKS_ID IN NUMBER
629                                ,TPERIOD_NAME IN VARCHAR2
630                                ,TFIRST_PERIOD OUT NOCOPY VARCHAR2
631                                ,ERRBUF OUT NOCOPY VARCHAR2) IS
632   BEGIN
633     STPROC.INIT('begin GL_INFO.GL_GET_FIRST_PERIOD(:TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TFIRST_PERIOD, :ERRBUF); end;');
634     STPROC.BIND_I(TSET_OF_BOOKS_ID);
635     STPROC.BIND_I(TPERIOD_NAME);
636     STPROC.BIND_O(TFIRST_PERIOD);
637     STPROC.BIND_O(ERRBUF);
638     STPROC.EXECUTE;
639     STPROC.RETRIEVE(3
640                    ,TFIRST_PERIOD);
641     STPROC.RETRIEVE(4
642                    ,ERRBUF);
643   END GL_GET_FIRST_PERIOD;
644  PROCEDURE GL_GET_FIRST_PERIOD_OF_QUARTER(TSET_OF_BOOKS_ID IN NUMBER
645                                           ,TPERIOD_NAME IN VARCHAR2
646                                           ,TFIRST_PERIOD OUT NOCOPY VARCHAR2
647                                           ,ERRBUF OUT NOCOPY VARCHAR2) IS
648   BEGIN
649     STPROC.INIT('begin GL_INFO.GL_GET_FIRST_PERIOD_OF_QUARTER(:TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TFIRST_PERIOD, :ERRBUF); end;');
650     STPROC.BIND_I(TSET_OF_BOOKS_ID);
651     STPROC.BIND_I(TPERIOD_NAME);
652     STPROC.BIND_O(TFIRST_PERIOD);
653     STPROC.BIND_O(ERRBUF);
654     STPROC.EXECUTE;
655     STPROC.RETRIEVE(3
656                    ,TFIRST_PERIOD);
657     STPROC.RETRIEVE(4
658                    ,ERRBUF);
659   END GL_GET_FIRST_PERIOD_OF_QUARTER;
660    PROCEDURE GL_GET_CONSOLIDATION_INFO(CONS_ID IN NUMBER
661                                      ,CONS_NAME OUT NOCOPY VARCHAR2
662                                      ,METHOD OUT NOCOPY VARCHAR2
663                                      ,CURR_CODE OUT NOCOPY VARCHAR2
664                                      ,FROM_SOBID OUT NOCOPY NUMBER
665                                      ,TO_SOBID OUT NOCOPY NUMBER
666                                      ,DESCRIPTION OUT NOCOPY VARCHAR2
667                                      ,START_DATE OUT NOCOPY DATE
668                                      ,END_DATE OUT NOCOPY DATE
669                                      ,ERRBUF OUT NOCOPY VARCHAR2) IS
670   BEGIN
671     STPROC.INIT('begin GL_INFO.GL_GET_CONSOLIDATION_INFO(:CONS_ID, :CONS_NAME, :METHOD, :CURR_CODE, :FROM_SOBID, :TO_SOBID, :DESCRIPTION, :START_DATE, :END_DATE, :ERRBUF); end;');
672     STPROC.BIND_I(CONS_ID);
673     STPROC.BIND_O(CONS_NAME);
674     STPROC.BIND_O(METHOD);
675     STPROC.BIND_O(CURR_CODE);
676     STPROC.BIND_O(FROM_SOBID);
677     STPROC.BIND_O(TO_SOBID);
678     STPROC.BIND_O(DESCRIPTION);
679     STPROC.BIND_O(START_DATE);
680     STPROC.BIND_O(END_DATE);
681     STPROC.BIND_O(ERRBUF);
682     STPROC.EXECUTE;
683     STPROC.RETRIEVE(2
684                    ,CONS_NAME);
685     STPROC.RETRIEVE(3
686                    ,METHOD);
687     STPROC.RETRIEVE(4
688                    ,CURR_CODE);
689     STPROC.RETRIEVE(5
690                    ,FROM_SOBID);
691     STPROC.RETRIEVE(6
692                    ,TO_SOBID);
693     STPROC.RETRIEVE(7
694                    ,DESCRIPTION);
695     STPROC.RETRIEVE(8
696                    ,START_DATE);
697     STPROC.RETRIEVE(9
698                    ,END_DATE);
699     STPROC.RETRIEVE(10
700                    ,ERRBUF);
701   END GL_GET_CONSOLIDATION_INFO;
702   FUNCTION GET_FORMAT_MASK(CURRENCY_CODE IN VARCHAR2
703                           ,FIELD_LENGTH IN NUMBER) RETURN VARCHAR2 IS
704     X0 VARCHAR2(2000);
705   BEGIN
706     STPROC.INIT('begin :X0 := FND_CURRENCY.GET_FORMAT_MASK(:CURRENCY_CODE, :FIELD_LENGTH); end;');
707     STPROC.BIND_O(X0);
708     STPROC.BIND_I(CURRENCY_CODE);
709     STPROC.BIND_I(FIELD_LENGTH);
710     STPROC.EXECUTE;
711     STPROC.RETRIEVE(1
712                    ,X0);
713     RETURN X0;
714   END GET_FORMAT_MASK;
715  FUNCTION SAFE_GET_FORMAT_MASK(CURRENCY_CODE IN VARCHAR2
716                                ,FIELD_LENGTH IN NUMBER) RETURN VARCHAR2 IS
717     X0 VARCHAR2(2000);
718   BEGIN
719     STPROC.INIT('begin :X0 := FND_CURRENCY.SAFE_GET_FORMAT_MASK(:CURRENCY_CODE, :FIELD_LENGTH); end;');
720     STPROC.BIND_O(X0);
721     STPROC.BIND_I(CURRENCY_CODE);
722     STPROC.BIND_I(FIELD_LENGTH);
723     STPROC.EXECUTE;
724     STPROC.RETRIEVE(1
725                    ,X0);
726     RETURN X0;
727   END SAFE_GET_FORMAT_MASK;*/
728   PROCEDURE GET_INFO(CURRENCY_CODE IN VARCHAR2
729                     ,PRECISION OUT NOCOPY NUMBER
730                     ,EXT_PRECISION OUT NOCOPY NUMBER
731                     ,MIN_ACCT_UNIT OUT NOCOPY NUMBER) IS
732   BEGIN
733   FND_CURRENCY.GET_INFO(CURRENCY_CODE, PRECISION, EXT_PRECISION, MIN_ACCT_UNIT);
734   END GET_INFO;
735  /* PROCEDURE BUILD_FORMAT_MASK(FORMAT_MASK OUT NOCOPY VARCHAR2
736                              ,FIELD_LENGTH IN NUMBER
737                              ,PRECISION IN NUMBER
738                              ,MIN_ACCT_UNIT IN NUMBER
739                              ,DISP_GRP_SEP IN BOOLEAN
740                              ,NEG_FORMAT IN VARCHAR2
741                              ,POS_FORMAT IN VARCHAR2) IS
742   BEGIN
743     STPROC.INIT('declare DISP_GRP_SEP BOOLEAN; begin DISP_GRP_SEP := sys.diutil.int_to_bool(:DISP_GRP_SEP); FND_CURRENCY.BUILD_FORMAT_MASK(:FORMAT_MASK, :FIELD_LENGTH, :PRECISION, :MIN_ACCT_UNIT, DISP_GRP_SEP, :NEG_FORMAT, :POS_FORMAT); end;');
744     STPROC.BIND_I(DISP_GRP_SEP);
745     STPROC.BIND_O(FORMAT_MASK);
746     STPROC.BIND_I(FIELD_LENGTH);
747     STPROC.BIND_I(PRECISION);
748     STPROC.BIND_I(MIN_ACCT_UNIT);
749     STPROC.BIND_I(NEG_FORMAT);
750     STPROC.BIND_I(POS_FORMAT);
751     STPROC.EXECUTE;
752     STPROC.RETRIEVE(2
753                    ,FORMAT_MASK);
754   END BUILD_FORMAT_MASK;
755   PROCEDURE SAFE_BUILD_FORMAT_MASK(FORMAT_MASK OUT NOCOPY VARCHAR2
756                                   ,FIELD_LENGTH IN NUMBER
757                                   ,PRECISION IN NUMBER
758                                   ,MIN_ACCT_UNIT IN NUMBER
759                                   ,DISP_GRP_SEP IN BOOLEAN
760                                   ,NEG_FORMAT IN VARCHAR2
761                                   ,POS_FORMAT IN VARCHAR2) IS
762   BEGIN
763     STPROC.INIT('declare DISP_GRP_SEP BOOLEAN; begin DISP_GRP_SEP := sys.diutil.int_to_bool(:DISP_GRP_SEP); FND_CURRENCY.SAFE_BUILD_FORMAT_MASK(:FORMAT_MASK, :FIELD_LENGTH, :PRECISION, :MIN_ACCT_UNIT, DISP_GRP_SEP, :NEG_FORMAT, :POS_FORMAT); end;');
764     STPROC.BIND_I(DISP_GRP_SEP);
765     STPROC.BIND_O(FORMAT_MASK);
766     STPROC.BIND_I(FIELD_LENGTH);
767     STPROC.BIND_I(PRECISION);
768     STPROC.BIND_I(MIN_ACCT_UNIT);
769     STPROC.BIND_I(NEG_FORMAT);
770     STPROC.BIND_I(POS_FORMAT);
771     STPROC.EXECUTE;
772     STPROC.RETRIEVE(2
773                    ,FORMAT_MASK);
774   END SAFE_BUILD_FORMAT_MASK;
775   PROCEDURE SET_NAME(APPLICATION IN VARCHAR2
776                     ,NAME IN VARCHAR2) IS
777   BEGIN
778     STPROC.INIT('begin FND_MESSAGE.SET_NAME(:APPLICATION, :NAME); end;');
779     STPROC.BIND_I(APPLICATION);
780     STPROC.BIND_I(NAME);
781     STPROC.EXECUTE;
782   END SET_NAME;
783   PROCEDURE SET_TOKEN(TOKEN IN VARCHAR2
784                      ,VALUE IN VARCHAR2
785                      ,TRANSLATE IN BOOLEAN) IS
786   BEGIN
787     STPROC.INIT('declare TRANSLATE BOOLEAN; begin TRANSLATE := sys.diutil.int_to_bool(:TRANSLATE); FND_MESSAGE.SET_TOKEN(:TOKEN, :VALUE, TRANSLATE); end;');
788     STPROC.BIND_I(TRANSLATE);
789     STPROC.BIND_I(TOKEN);
790     STPROC.BIND_I(VALUE);
791     STPROC.EXECUTE;
792   END SET_TOKEN; */
793  /* PROCEDURE RETRIEVE(MSGOUT OUT NOCOPY VARCHAR2) IS
794   BEGIN
795     STPROC.INIT('begin FND_MESSAGE.RETRIEVE(:MSGOUT); end;');
796     STPROC.BIND_O(MSGOUT);
797     STPROC.EXECUTE;
798     STPROC.RETRIEVE(1
799                    ,MSGOUT);
800   END RETRIEVE;*/
801 /*  PROCEDURE CLEAR IS
802   BEGIN
803     STPROC.INIT('begin FND_MESSAGE.CLEAR; end;');
804     STPROC.EXECUTE;
805   END CLEAR;*/
806   /*FUNCTION GET_STRING(APPIN IN VARCHAR2
807                      ,NAMEIN IN VARCHAR2) RETURN VARCHAR2 IS
808     X0 VARCHAR2(2000);
809   BEGIN
810     STPROC.INIT('begin :X0 := FND_MESSAGE.GET_STRING(:APPIN, :NAMEIN); end;');
811     STPROC.BIND_O(X0);
812     STPROC.BIND_I(APPIN);
813     STPROC.BIND_I(NAMEIN);
814     STPROC.EXECUTE;
815     STPROC.RETRIEVE(1
816                    ,X0);
817     RETURN X0;
818   END GET_STRING;*/
819    /*FUNCTION GET_NUMBER(APPIN IN VARCHAR2
820                      ,NAMEIN IN VARCHAR2) RETURN NUMBER IS
821     X0 NUMBER;
822   BEGIN
823     STPROC.INIT('begin :X0 := FND_MESSAGE.GET_NUMBER(:APPIN, :NAMEIN); end;');
824     STPROC.BIND_O(X0);
825     STPROC.BIND_I(APPIN);
826     STPROC.BIND_I(NAMEIN);
827     STPROC.EXECUTE;
828     STPROC.RETRIEVE(1
829                    ,X0);
830     RETURN X0;
831   END GET_NUMBER;*/
832  /* FUNCTION GET RETURN VARCHAR2 IS
833     X0 VARCHAR2(2000);
834   BEGIN
835     STPROC.INIT('begin :X0 := FND_MESSAGE.GET; end;');
836     STPROC.BIND_O(X0);
837     STPROC.EXECUTE;
838     STPROC.RETRIEVE(1
839                    ,X0);
840     RETURN X0;
841   END GET;*/
842  /* FUNCTION GET_ENCODED RETURN VARCHAR2 IS
843     X0 VARCHAR2(2000);
844   BEGIN
845     STPROC.INIT('begin :X0 := FND_MESSAGE.GET_ENCODED; end;');
846     STPROC.BIND_O(X0);
847     STPROC.EXECUTE;
848     STPROC.RETRIEVE(1
849                    ,X0);
850     RETURN X0;
851   END GET_ENCODED;*/
852   /*PROCEDURE PARSE_ENCODED(ENCODED_MESSAGE IN VARCHAR2
853                          ,APP_SHORT_NAME OUT NOCOPY VARCHAR2
854                          ,MESSAGE_NAME OUT NOCOPY VARCHAR2) IS
855   BEGIN
856     STPROC.INIT('begin FND_MESSAGE.PARSE_ENCODED(:ENCODED_MESSAGE, :APP_SHORT_NAME, :MESSAGE_NAME); end;');
857     STPROC.BIND_I(ENCODED_MESSAGE);
858     STPROC.BIND_O(APP_SHORT_NAME);
859     STPROC.BIND_O(MESSAGE_NAME);
860     STPROC.EXECUTE;
861     STPROC.RETRIEVE(2
862                    ,APP_SHORT_NAME);
863     STPROC.RETRIEVE(3
864                    ,MESSAGE_NAME);
865   END PARSE_ENCODED;*/
866   /* PROCEDURE SET_ENCODED(ENCODED_MESSAGE IN VARCHAR2) IS
867   BEGIN
868     STPROC.INIT('begin FND_MESSAGE.SET_ENCODED(:ENCODED_MESSAGE); end;');
869     STPROC.BIND_I(ENCODED_MESSAGE);
870     STPROC.EXECUTE;
871   END SET_ENCODED;*/
872   /*PROCEDURE RAISE_ERROR IS
873   BEGIN
874     STPROC.INIT('begin FND_MESSAGE.RAISE_ERROR; end;');
875     STPROC.EXECUTE;
876   END RAISE_ERROR;*/
877  /* FUNCTION GET_NEXT_SEQUENCE(APPID IN NUMBER
878                             ,CAT_CODE IN VARCHAR2
879                             ,SOBID IN NUMBER
880                             ,MET_CODE IN VARCHAR2
881                             ,TRX_DATE IN DATE
882                             ,DBSEQNM IN OUT NOCOPY VARCHAR2
883                             ,DBSEQID IN OUT NOCOPY INTEGER) RETURN NUMBER IS
884     X0 NUMBER;
885   BEGIN
886     STPROC.INIT('begin :X0 := FND_SEQNUM.GET_NEXT_SEQUENCE(:APPID, :CAT_CODE, :SOBID, :MET_CODE, :TRX_DATE, :DBSEQNM, :DBSEQID); end;');
887     STPROC.BIND_O(X0);
888     STPROC.BIND_I(APPID);
889     STPROC.BIND_I(CAT_CODE);
890     STPROC.BIND_I(SOBID);
891     STPROC.BIND_I(MET_CODE);
892     STPROC.BIND_I(TRX_DATE);
893     STPROC.BIND_IO(DBSEQNM);
894     STPROC.BIND_IO(DBSEQID);
895     STPROC.EXECUTE;
896     STPROC.RETRIEVE(1
897                    ,X0);
898     STPROC.RETRIEVE(7
899                    ,DBSEQNM);
900     STPROC.RETRIEVE(8
901                    ,DBSEQID);
902     RETURN X0;
903   END GET_NEXT_SEQUENCE; */
904  /* PROCEDURE GET_SEQ_NAME(APPID IN NUMBER
905                         ,CAT_CODE IN VARCHAR2
906                         ,SOBID IN NUMBER
907                         ,MET_CODE IN VARCHAR2
908                         ,TRX_DATE IN DATE
909                         ,DBSEQNM OUT NOCOPY VARCHAR2
910                         ,DBSEQID OUT NOCOPY INTEGER
911                         ,SEQASSID OUT NOCOPY INTEGER) IS
912   BEGIN
913     STPROC.INIT('begin FND_SEQNUM.GET_SEQ_NAME(:APPID, :CAT_CODE, :SOBID, :MET_CODE, :TRX_DATE, :DBSEQNM, :DBSEQID, :SEQASSID); end;');
914     STPROC.BIND_I(APPID);
915     STPROC.BIND_I(CAT_CODE);
916     STPROC.BIND_I(SOBID);
917     STPROC.BIND_I(MET_CODE);
918     STPROC.BIND_I(TRX_DATE);
919     STPROC.BIND_O(DBSEQNM);
920     STPROC.BIND_O(DBSEQID);
921     STPROC.BIND_O(SEQASSID);
922     STPROC.EXECUTE;
923     STPROC.RETRIEVE(6
924                    ,DBSEQNM);
925     STPROC.RETRIEVE(7
926                    ,DBSEQID);
927     STPROC.RETRIEVE(8
928                    ,SEQASSID);
929   END GET_SEQ_NAME;*/
930    /*FUNCTION GET_NEXT_AUTO_SEQ(DBSEQNM IN VARCHAR2) RETURN NUMBER IS
931     X0 NUMBER;
932   BEGIN
933     STPROC.INIT('begin :X0 := FND_SEQNUM.GET_NEXT_AUTO_SEQ(:DBSEQNM); end;');
934     STPROC.BIND_O(X0);
935     STPROC.BIND_I(DBSEQNM);
936     STPROC.EXECUTE;
937     STPROC.RETRIEVE(1
938                    ,X0);
939     RETURN X0;
940   END GET_NEXT_AUTO_SEQ; */
941    /*FUNCTION GET_NEXT_AUTO_SEQUENCE(APPID IN NUMBER
942                                  ,CAT_CODE IN VARCHAR2
943                                  ,SOBID IN NUMBER
944                                  ,MET_CODE IN VARCHAR2
945                                  ,TRX_DATE IN VARCHAR2) RETURN NUMBER IS
946     X0 NUMBER;
947   BEGIN
948     STPROC.INIT('begin :X0 := FND_SEQNUM.GET_NEXT_AUTO_SEQUENCE(:APPID, :CAT_CODE, :SOBID, :MET_CODE, :TRX_DATE); end;');
949     STPROC.BIND_O(X0);
950     STPROC.BIND_I(APPID);
951     STPROC.BIND_I(CAT_CODE);
952     STPROC.BIND_I(SOBID);
953     STPROC.BIND_I(MET_CODE);
954     STPROC.BIND_I(TRX_DATE);
955     STPROC.EXECUTE;
956     STPROC.RETRIEVE(1
957                    ,X0);
958     RETURN X0;
959   END GET_NEXT_AUTO_SEQUENCE;*/
960  /* PROCEDURE CREATE_GAPLESS_SEQUENCES IS
961   BEGIN
962     STPROC.INIT('begin FND_SEQNUM.CREATE_GAPLESS_SEQUENCES; end;');
963     STPROC.EXECUTE;
964   END CREATE_GAPLESS_SEQUENCES;*/
965   /*FUNCTION CREATE_GAPLESS_SEQUENCE(SEQID IN NUMBER
966                                   ,SEQASSID IN NUMBER) RETURN NUMBER IS
967     X0 NUMBER;
968   BEGIN
969     STPROC.INIT('begin :X0 := FND_SEQNUM.CREATE_GAPLESS_SEQUENCE(:SEQID, :SEQASSID); end;');
970     STPROC.BIND_O(X0);
971     STPROC.BIND_I(SEQID);
972     STPROC.BIND_I(SEQASSID);
973     STPROC.EXECUTE;
974     STPROC.RETRIEVE(1
975                    ,X0);
976     RETURN X0;
977   END CREATE_GAPLESS_SEQUENCE;*/
978  /* FUNCTION GET_NEXT_USER_SEQUENCE(FDS_USER_ID IN NUMBER
979                                  ,SEQASSID IN NUMBER
980                                  ,SEQID IN NUMBER) RETURN NUMBER IS
981     X0 NUMBER;
982   BEGIN
983     STPROC.INIT('begin :X0 := FND_SEQNUM.GET_NEXT_USER_SEQUENCE(:FDS_USER_ID, :SEQASSID, :SEQID); end;');
984     STPROC.BIND_O(X0);
985     STPROC.BIND_I(FDS_USER_ID);
986     STPROC.BIND_I(SEQASSID);
987     STPROC.BIND_I(SEQID);
988     STPROC.EXECUTE;
989     STPROC.RETRIEVE(1
990                    ,X0);
991     RETURN X0;
992   END GET_NEXT_USER_SEQUENCE;*/
993 END JL_JLCOARCR_XMLP_PKG;
994 
995