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

Source


1 PACKAGE BODY JE_JEDEAPVR_XMLP_PKG AS
2 /* $Header: JEDEAPVRB.pls 120.1 2007/12/25 16:51:44 dwkrishn noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     DECLARE
6       T_SET_OF_BOOKS_ID NUMBER;
7       T_CHART_OF_ACCOUNTS_ID NUMBER;
8       T_SET_OF_BOOKS_NAME VARCHAR2(30);
9       T_FUNC_CURR VARCHAR2(15);
10       T_PERIOD_FROM VARCHAR2(15);
11       T_PERIOD_TO VARCHAR2(15);
12       T_DUMMY_DATE DATE;
13       T_START_DATE DATE;
14       T_END_DATE DATE;
15       T_DIST_OPT VARCHAR2(10);
16       T_APP_ID NUMBER;
17       T_ERRORBUFFER VARCHAR2(132);
18       L_BOOLEAN BOOLEAN;
19       ERRBUF VARCHAR2(1000);
20     BEGIN
21       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
22       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
23       T_SET_OF_BOOKS_ID := TO_NUMBER(P_SET_OF_BOOKS_ID);
24       GL_INFO.GL_GET_LEDGER_INFO(T_SET_OF_BOOKS_ID
25                                 ,T_CHART_OF_ACCOUNTS_ID
26                                 ,T_SET_OF_BOOKS_NAME
27                                 ,T_FUNC_CURR
28                                 ,T_ERRORBUFFER);
29       IF (T_ERRORBUFFER IS NOT NULL) THEN
30         /*SRW.MESSAGE(0
31                    ,T_ERRORBUFFER)*/NULL;
32         /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
33         /*SRW.MESSAGE(0
34                    ,T_ERRORBUFFER)*/NULL;
35       ELSE
36         STRUCT_NUM := TO_CHAR(T_CHART_OF_ACCOUNTS_ID);
37         SET_OF_BOOKS_NAME := T_SET_OF_BOOKS_NAME;
38         FUNC_CURR := T_FUNC_CURR;
39       END IF;
40       T_PERIOD_FROM := P_PERIOD_FROM;
41       T_APP_ID := P_APP_ID;
42       JG_GET_PERIOD_DATES(T_APP_ID
43                          ,T_SET_OF_BOOKS_ID
44                          ,T_PERIOD_FROM
45                          ,T_START_DATE
46                          ,T_DUMMY_DATE
47                          ,T_ERRORBUFFER);
48       IF (T_ERRORBUFFER IS NOT NULL) THEN
49         /*SRW.MESSAGE(0
50                    ,T_ERRORBUFFER)*/NULL;
51         /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
52       ELSE
53         FROM_DATE := T_START_DATE;
54       END IF;
55       /*SRW.MESSAGE('888'
56                  ,'Start Date: ' || TO_CHAR(T_START_DATE))*/NULL;
57       T_PERIOD_TO := P_PERIOD_TO;
58       JG_GET_PERIOD_DATES(T_APP_ID
59                          ,T_SET_OF_BOOKS_ID
60                          ,T_PERIOD_TO
61                          ,T_DUMMY_DATE
62                          ,T_END_DATE
63                          ,T_ERRORBUFFER);
64       IF (T_ERRORBUFFER IS NOT NULL) THEN
65         /*SRW.MESSAGE(0
66                    ,T_ERRORBUFFER)*/NULL;
67         /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
68       ELSE
69         THRU_DATE := T_END_DATE;
70       END IF;
71       /*SRW.MESSAGE('888'
72                  ,'End Date: ' || TO_CHAR(T_END_DATE))*/NULL;
73       SELECT
74         DISCOUNT_DISTRIBUTION_METHOD
75       INTO T_DIST_OPT
76       FROM
77         AP_SYSTEM_PARAMETERS
78       WHERE SET_OF_BOOKS_ID = T_SET_OF_BOOKS_ID;
79       DIST_OPT := T_DIST_OPT;
80       SELECT
81         PRECISION
82       INTO CURR_PERC
83       FROM
84         FND_CURRENCIES_VL
85       WHERE CURRENCY_CODE = FUNC_CURR;
86       /*SRW.MESSAGE('999'
87                  ,'Currency Precision:' || CURR_PERC)*/NULL;
88       SELECT
89         ( PERIOD_YEAR * 10000 ) + PERIOD_NUM
90       INTO P_PERIOD_NUM_FROM
91       FROM
92         GL_PERIOD_STATUSES
93       WHERE PERIOD_NAME = P_PERIOD_FROM
94         AND SET_OF_BOOKS_ID = T_SET_OF_BOOKS_ID
95         AND APPLICATION_ID = T_APP_ID;
96       /*SRW.MESSAGE('999'
97                  ,'77777777')*/NULL;
98       SELECT
99         ( PERIOD_YEAR * 10000 ) + PERIOD_NUM
100       INTO P_PERIOD_NUM_TO
101       FROM
102         GL_PERIOD_STATUSES
103       WHERE PERIOD_NAME = P_PERIOD_TO
104         AND SET_OF_BOOKS_ID = T_SET_OF_BOOKS_ID
105         AND APPLICATION_ID = T_APP_ID;
106       IF P_BALANCING_SEGMENT IS NOT NULL THEN
107         L_BOOLEAN := FND_FLEX_APIS.GET_SEGMENT_COLUMN(X_APPLICATION_ID => '101'
108                                                      ,X_ID_FLEX_CODE => 'GL#'
109                                                      ,X_ID_FLEX_NUM => P_CHART_OF_ACCT
110                                                      ,X_SEG_ATTR_TYPE => 'GL_BALANCING'
111                                                      ,X_APP_COLUMN_NAME => P_BAL_SEG_NAME);
112         P_BAL_SEG_NAME := P_BAL_SEG_NAME || '=' || P_BALANCING_SEGMENT;
113         IF NOT L_BOOLEAN THEN
114           ERRBUF := GET;
115           /*SRW.MESSAGE('00'
116                      ,ERRBUF)*/NULL;
117           /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
118         END IF;
119       END IF;
120     END;
121     RETURN (TRUE);
122   END BEFOREREPORT;
123 
124   FUNCTION AFTERREPORT RETURN BOOLEAN IS
125   BEGIN
126     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
127     RETURN (TRUE);
128   END AFTERREPORT;
129 
130   FUNCTION COMP_DIFFFORMULA(COMP_GL_BALANCE IN NUMBER
131                            ,COMP_DV IN NUMBER) RETURN NUMBER IS
132   BEGIN
133     RETURN (COMP_GL_BALANCE - COMP_DV);
134   END COMP_DIFFFORMULA;
135 
136   FUNCTION W_CALC_VATFORMULA(TAX_TYPE IN VARCHAR2
137                             ,W_ORIG_COSTS IN NUMBER
138                             ,TAX_RATE IN NUMBER) RETURN NUMBER IS
139   BEGIN
140     DECLARE
141       CALC_VAT NUMBER(10,2);
142     BEGIN
143       IF TAX_TYPE = 'OFFSET' THEN
144         CALC_VAT := -(W_ORIG_COSTS * (TAX_RATE / 100));
145       ELSE
146         CALC_VAT := W_ORIG_COSTS * (TAX_RATE / 100);
147       END IF;
148       RETURN (CALC_VAT);
149     END;
150     RETURN NULL;
151   END W_CALC_VATFORMULA;
152 
153   FUNCTION ROUND_ORIG_COSTSFORMULA(INV_ORIG_COST IN NUMBER) RETURN NUMBER IS
154   BEGIN
155     RETURN (ROUND(INV_ORIG_COST
156                 ,CURR_PERC));
157   END ROUND_ORIG_COSTSFORMULA;
158 
159   FUNCTION ROUND_ORIG_VATFORMULA(INV_VAT_COST IN NUMBER) RETURN NUMBER IS
160   BEGIN
161     RETURN (ROUND(INV_VAT_COST
162                 ,CURR_PERC));
163   END ROUND_ORIG_VATFORMULA;
164 
165   FUNCTION ROUND_DISC_COSTSFORMULA(INV_DISC_COST IN NUMBER) RETURN NUMBER IS
166   BEGIN
167     RETURN (ROUND(INV_DISC_COST
168                 ,CURR_PERC) * -1);
169   END ROUND_DISC_COSTSFORMULA;
170 
171   FUNCTION ROUND_DISC_VATFORMULA(INV_VAT_DISC IN NUMBER) RETURN NUMBER IS
172   BEGIN
173     RETURN (ROUND(INV_VAT_DISC
174                 ,CURR_PERC) * -1);
175   END ROUND_DISC_VATFORMULA;
176 
177   FUNCTION VAT_CALC_DIFFFORMULA(W_CALC_VAT IN NUMBER
178                                ,W_ORIG_VAT IN NUMBER) RETURN NUMBER IS
179   BEGIN
180     RETURN (W_CALC_VAT - W_ORIG_VAT);
181   END VAT_CALC_DIFFFORMULA;
182 
183   FUNCTION COMP_OTHER_DIFFFORMULA(COMP_GL_BALANCE IN NUMBER
184                                  ,COMP_OV IN NUMBER
185                                  ,COMP_DV IN NUMBER) RETURN NUMBER IS
186   BEGIN
187     RETURN (COMP_GL_BALANCE - (COMP_OV + COMP_DV));
188   END COMP_OTHER_DIFFFORMULA;
189 
190   PROCEDURE JG_GET_PERIOD_DATES(APP_ID IN NUMBER
191                                ,TSET_OF_BOOKS_ID IN NUMBER
192                                ,TPERIOD_NAME IN VARCHAR2
193                                ,TSTART_DATE OUT NOCOPY DATE
194                                ,TEND_DATE OUT NOCOPY DATE
195                                ,ERRBUF OUT NOCOPY VARCHAR) IS
196   BEGIN
197     SELECT
198       START_DATE,
199       END_DATE
200     INTO TSTART_DATE,TEND_DATE
201     FROM
202       GL_PERIOD_STATUSES
203     WHERE PERIOD_NAME = TPERIOD_NAME
204       AND SET_OF_BOOKS_ID = TSET_OF_BOOKS_ID
205       AND APPLICATION_ID = APP_ID;
206   EXCEPTION
207     WHEN NO_DATA_FOUND THEN
208       SET_NAME('GL'
209               ,'GL_PLL_INVALID_PERIOD');
210       ERRBUF := SUBSTR(GET
211                       ,1
212                       ,50);
213     WHEN OTHERS THEN
214       ERRBUF := SQLERRM;
215   END JG_GET_PERIOD_DATES;
216 
217   FUNCTION CF_REPORT_DATEFORMULA RETURN CHAR IS
218   BEGIN
219     RETURN FND_DATE.DATE_TO_CHARDT(SYSDATE);
220   END CF_REPORT_DATEFORMULA;
221 
222   FUNCTION CF_INVOICE_DATEFORMULA(INVOICE_DATE IN DATE) RETURN CHAR IS
223   BEGIN
224     RETURN FND_DATE.DATE_TO_CHARDATE(INVOICE_DATE);
225   END CF_INVOICE_DATEFORMULA;
226 
227   FUNCTION CF_INVOICE_DATE1FORMULA(INVOICE_DATE1 IN DATE) RETURN CHAR IS
228   BEGIN
229     RETURN FND_DATE.DATE_TO_CHARDATE(INVOICE_DATE1);
230   END CF_INVOICE_DATE1FORMULA;
231 
232   FUNCTION GET_DISCOUNT_VATFORMULA(TAX_DISCOUNT IN NUMBER
233                                   ,INVOICE_ID_v IN NUMBER) RETURN NUMBER IS
234   BEGIN
235     DECLARE
236       SUM_DISCOUNTS NUMBER(10,2);
237     BEGIN
238       IF TAX_DISCOUNT > 0 THEN
239         SELECT
240           SUM(NVL(APD.BASE_AMOUNT
241                  ,APD.AMOUNT))
242         INTO SUM_DISCOUNTS
243         FROM
244           AP_PAYMENT_DISTRIBUTIONS_ALL APD,
245           AP_INVOICE_PAYMENTS AIP,
246           AP_INVOICE_DISTRIBUTIONS_ALL D
247         WHERE APD.INVOICE_PAYMENT_ID = AIP.INVOICE_PAYMENT_ID
248           AND D.INVOICE_LINE_NUMBER = APD.INVOICE_DISTR_LINE_NUMBER
249           AND APD.LINE_TYPE_LOOKUP_CODE = 'DISCOUNT'
250           AND D.LINE_TYPE_LOOKUP_CODE = 'TAX'
251           AND AIP.INVOICE_ID = INVOICE_ID_v
252           AND D.INVOICE_ID = INVOICE_ID_v
253           AND APD.ORG_ID = AIP.ORG_ID
254           AND D.ORG_ID = AIP.ORG_ID;
255         RETURN SUM_DISCOUNTS;
256       END IF;
257       RETURN 0;
258     END;
259   END GET_DISCOUNT_VATFORMULA;
260 
261   FUNCTION FLEX_DATA_P RETURN VARCHAR2 IS
262   BEGIN
263     RETURN FLEX_DATA;
264   END FLEX_DATA_P;
265 
266   FUNCTION FLEX_PARM_P RETURN VARCHAR2 IS
267   BEGIN
268     RETURN FLEX_PARM;
269   END FLEX_PARM_P;
270 
271   FUNCTION STRUCT_NUM_P RETURN VARCHAR2 IS
272   BEGIN
273     RETURN STRUCT_NUM;
274   END STRUCT_NUM_P;
275 
276   FUNCTION SET_OF_BOOKS_NAME_P RETURN VARCHAR2 IS
277   BEGIN
278     RETURN SET_OF_BOOKS_NAME;
279   END SET_OF_BOOKS_NAME_P;
280 
281   FUNCTION FUNC_CURR_P RETURN VARCHAR2 IS
282   BEGIN
283     RETURN FUNC_CURR;
284   END FUNC_CURR_P;
285 
286   FUNCTION FROM_DATE_P RETURN DATE IS
287   BEGIN
288     RETURN FROM_DATE;
289   END FROM_DATE_P;
290 
291   FUNCTION THRU_DATE_P RETURN DATE IS
292   BEGIN
293     RETURN THRU_DATE;
294   END THRU_DATE_P;
295 
296   FUNCTION DIST_OPT_P RETURN VARCHAR2 IS
297   BEGIN
298     RETURN DIST_OPT;
299   END DIST_OPT_P;
300 
301   FUNCTION CURR_PERC_P RETURN NUMBER IS
302   BEGIN
303     RETURN CURR_PERC;
304   END CURR_PERC_P;
305 
306   FUNCTION P_SCALING_FACTOR_P RETURN NUMBER IS
307   BEGIN
308     RETURN P_SCALING_FACTOR;
309   END P_SCALING_FACTOR_P;
310 
311   PROCEDURE SET_NAME(APPLICATION IN VARCHAR2
312                     ,NAME IN VARCHAR2) IS
313   BEGIN
314   /*  STPROC.INIT('begin FND_MESSAGE.SET_NAME(:APPLICATION, :NAME); end;');
315     STPROC.BIND_I(APPLICATION);
316     STPROC.BIND_I(NAME);
317     STPROC.EXECUTE;*/null;
318   END SET_NAME;
319 
320   PROCEDURE SET_TOKEN(TOKEN IN VARCHAR2
321                      ,VALUE IN VARCHAR2
322                      ,TRANSLATE IN BOOLEAN) IS
323   BEGIN
324    /* STPROC.INIT('declare TRANSLATE BOOLEAN; begin TRANSLATE := sys.diutil.int_to_bool(:TRANSLATE); FND_MESSAGE.SET_TOKEN(:TOKEN, :VALUE, TRANSLATE); end;');
325     STPROC.BIND_I(TRANSLATE);
326     STPROC.BIND_I(TOKEN);
327     STPROC.BIND_I(VALUE);
328     STPROC.EXECUTE;*/null;
329   END SET_TOKEN;
330 
331   PROCEDURE RETRIEVE(MSGOUT OUT NOCOPY VARCHAR2) IS
332   BEGIN
333     /*STPROC.INIT('begin FND_MESSAGE.RETRIEVE(:MSGOUT); end;');
334     STPROC.BIND_O(MSGOUT);
335     STPROC.EXECUTE;
336     STPROC.RETRIEVE(1
337                    ,MSGOUT);*/null;
338   END RETRIEVE;
339 
340   PROCEDURE CLEAR IS
341   BEGIN
342     /*STPROC.INIT('begin FND_MESSAGE.CLEAR; end;');
343     STPROC.EXECUTE;*/null;
344   END CLEAR;
345 
346   FUNCTION GET_STRING(APPIN IN VARCHAR2
347                      ,NAMEIN IN VARCHAR2) RETURN VARCHAR2 IS
348     X0 VARCHAR2(2000);
349   BEGIN
350   /*  STPROC.INIT('begin :X0 := FND_MESSAGE.GET_STRING(:APPIN, :NAMEIN); end;');
351     STPROC.BIND_O(X0);
352     STPROC.BIND_I(APPIN);
353     STPROC.BIND_I(NAMEIN);
354     STPROC.EXECUTE;
355     STPROC.RETRIEVE(1
356                    ,X0);*/null;
357     RETURN X0;
358   END GET_STRING;
359 
360   FUNCTION GET RETURN VARCHAR2 IS
361     X0 VARCHAR2(2000);
362   BEGIN
363    /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET; end;');
364     STPROC.BIND_O(X0);
365     STPROC.EXECUTE;
366     STPROC.RETRIEVE(1
367                    ,X0);*/null;
368     RETURN X0;
369   END GET;
370 
371   FUNCTION GET_ENCODED RETURN VARCHAR2 IS
372     X0 VARCHAR2(2000);
373   BEGIN
374   /*  STPROC.INIT('begin :X0 := FND_MESSAGE.GET_ENCODED; end;');
375     STPROC.BIND_O(X0);
376     STPROC.EXECUTE;
377     STPROC.RETRIEVE(1
378                    ,X0);*/null;
379     RETURN X0;
380   END GET_ENCODED;
381 
382   PROCEDURE PARSE_ENCODED(ENCODED_MESSAGE IN VARCHAR2
383                          ,APP_SHORT_NAME OUT NOCOPY VARCHAR2
384                          ,MESSAGE_NAME OUT NOCOPY VARCHAR2) IS
385   BEGIN
386     /*STPROC.INIT('begin FND_MESSAGE.PARSE_ENCODED(:ENCODED_MESSAGE, :APP_SHORT_NAME, :MESSAGE_NAME); end;');
387     STPROC.BIND_I(ENCODED_MESSAGE);
388     STPROC.BIND_O(APP_SHORT_NAME);
389     STPROC.BIND_O(MESSAGE_NAME);
390     STPROC.EXECUTE;
391     STPROC.RETRIEVE(2
392                    ,APP_SHORT_NAME);
393     STPROC.RETRIEVE(3
394                    ,MESSAGE_NAME);*/null;
395   END PARSE_ENCODED;
396 
397   PROCEDURE SET_ENCODED(ENCODED_MESSAGE IN VARCHAR2) IS
398   BEGIN
399     /*STPROC.INIT('begin FND_MESSAGE.SET_ENCODED(:ENCODED_MESSAGE); end;');
400     STPROC.BIND_I(ENCODED_MESSAGE);
401     STPROC.EXECUTE;*/null;
402   END SET_ENCODED;
403 
404   PROCEDURE RAISE_ERROR IS
405   BEGIN
406 /*    STPROC.INIT('begin FND_MESSAGE.RAISE_ERROR; end;');
407     STPROC.EXECUTE;*/null;
408   END RAISE_ERROR;
409 
410   PROCEDURE JG_GET_SET_OF_BOOKS_INFO(SOBID IN NUMBER
411                                     ,COAID OUT NOCOPY NUMBER
412                                     ,SOBNAME OUT NOCOPY VARCHAR2
413                                     ,FUNC_CURR OUT NOCOPY VARCHAR2
414                                     ,ERRBUF OUT NOCOPY VARCHAR2) IS
415   BEGIN
416    /* STPROC.INIT('begin JG_INFO.JG_GET_SET_OF_BOOKS_INFO(:SOBID, :COAID, :SOBNAME, :FUNC_CURR, :ERRBUF); end;');
417     STPROC.BIND_I(SOBID);
418     STPROC.BIND_O(COAID);
419     STPROC.BIND_O(SOBNAME);
420     STPROC.BIND_O(FUNC_CURR);
421     STPROC.BIND_O(ERRBUF);
422     STPROC.EXECUTE;
423     STPROC.RETRIEVE(2
424                    ,COAID);
425     STPROC.RETRIEVE(3
426                    ,SOBNAME);
427     STPROC.RETRIEVE(4
428                    ,FUNC_CURR);
429     STPROC.RETRIEVE(5
430                    ,ERRBUF);*/null;
431   END JG_GET_SET_OF_BOOKS_INFO;
432 
433   PROCEDURE JG_GET_BUD_OR_ENC_NAME(ACTUAL_TYPE IN VARCHAR2
434                                   ,TYPE_ID IN NUMBER
435                                   ,NAME OUT NOCOPY VARCHAR2
436                                   ,ERRBUF OUT NOCOPY VARCHAR2) IS
437   BEGIN
438   /*  STPROC.INIT('begin JG_INFO.JG_GET_BUD_OR_ENC_NAME(:ACTUAL_TYPE, :TYPE_ID, :NAME, :ERRBUF); end;');
439     STPROC.BIND_I(ACTUAL_TYPE);
440     STPROC.BIND_I(TYPE_ID);
441     STPROC.BIND_O(NAME);
442     STPROC.BIND_O(ERRBUF);
443     STPROC.EXECUTE;
444     STPROC.RETRIEVE(3
445                    ,NAME);
446     STPROC.RETRIEVE(4
447                    ,ERRBUF);*/null;
448   END JG_GET_BUD_OR_ENC_NAME;
449 
450   PROCEDURE JG_GET_LOOKUP_VALUE(LMODE IN VARCHAR2
451                                ,CODE IN VARCHAR2
452                                ,TYPE IN VARCHAR2
453                                ,VALUE OUT NOCOPY VARCHAR2
454                                ,ERRBUF OUT NOCOPY VARCHAR2) IS
455   BEGIN
456    /* STPROC.INIT('begin JG_INFO.JG_GET_LOOKUP_VALUE(:LMODE, :CODE, :TYPE, :VALUE, :ERRBUF); end;');
457     STPROC.BIND_I(LMODE);
458     STPROC.BIND_I(CODE);
459     STPROC.BIND_I(TYPE);
460     STPROC.BIND_O(VALUE);
461     STPROC.BIND_O(ERRBUF);
462     STPROC.EXECUTE;
463     STPROC.RETRIEVE(4
464                    ,VALUE);
465     STPROC.RETRIEVE(5
466                    ,ERRBUF);*/null;
467   END JG_GET_LOOKUP_VALUE;
468 
469   PROCEDURE JG_GET_FIRST_PERIOD(APP_ID IN NUMBER
470                                ,TSET_OF_BOOKS_ID IN NUMBER
471                                ,TPERIOD_NAME IN VARCHAR2
472                                ,TFIRST_PERIOD OUT NOCOPY VARCHAR2
473                                ,ERRBUF OUT NOCOPY VARCHAR2) IS
474   BEGIN
475     /*STPROC.INIT('begin JG_INFO.JG_GET_FIRST_PERIOD(:APP_ID, :TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TFIRST_PERIOD, :ERRBUF); end;');
476     STPROC.BIND_I(APP_ID);
477     STPROC.BIND_I(TSET_OF_BOOKS_ID);
478     STPROC.BIND_I(TPERIOD_NAME);
479     STPROC.BIND_O(TFIRST_PERIOD);
480     STPROC.BIND_O(ERRBUF);
481     STPROC.EXECUTE;
482     STPROC.RETRIEVE(4
483                    ,TFIRST_PERIOD);
484     STPROC.RETRIEVE(5
485                    ,ERRBUF);*/null;
486   END JG_GET_FIRST_PERIOD;
487 
488   PROCEDURE JG_GET_FIRST_PERIOD_OF_QUARTER(APP_ID IN NUMBER
489                                           ,TSET_OF_BOOKS_ID IN NUMBER
490                                           ,TPERIOD_NAME IN VARCHAR2
491                                           ,TFIRST_PERIOD OUT NOCOPY VARCHAR2
492                                           ,ERRBUF OUT NOCOPY VARCHAR2) IS
493   BEGIN
494   /*  STPROC.INIT('begin JG_INFO.JG_GET_FIRST_PERIOD_OF_QUARTER(:APP_ID, :TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TFIRST_PERIOD, :ERRBUF); end;');
495     STPROC.BIND_I(APP_ID);
496     STPROC.BIND_I(TSET_OF_BOOKS_ID);
497     STPROC.BIND_I(TPERIOD_NAME);
498     STPROC.BIND_O(TFIRST_PERIOD);
499     STPROC.BIND_O(ERRBUF);
500     STPROC.EXECUTE;
501     STPROC.RETRIEVE(4
502                    ,TFIRST_PERIOD);
503     STPROC.RETRIEVE(5
504                    ,ERRBUF); */null;
505   END JG_GET_FIRST_PERIOD_OF_QUARTER;
506 
507   FUNCTION JG_FORMAT_CURR_AMT(IN_PRECISION IN NUMBER
508                              ,IN_AMOUNT_DISP IN VARCHAR2) RETURN VARCHAR2 IS
509     X0 VARCHAR2(2000);
510   BEGIN
511     /*STPROC.INIT('begin :X0 := JG_INFO.JG_FORMAT_CURR_AMT(:IN_PRECISION, :IN_AMOUNT_DISP); end;');
512     STPROC.BIND_O(X0);
513     STPROC.BIND_I(IN_PRECISION);
514     STPROC.BIND_I(IN_AMOUNT_DISP);
515     STPROC.EXECUTE;
516     STPROC.RETRIEVE(1
517                    ,X0);*/null;
518     RETURN X0;
519   END JG_FORMAT_CURR_AMT;
520 
521 END JE_JEDEAPVR_XMLP_PKG;
522 
523