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

Source


1 PACKAGE BODY CE_CEXAVBCH_XMLP_PKG AS
2 /* $Header: CEXAVBCHB.pls 120.2 2008/06/26 08:58:38 abraghun noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     DECLARE
6       L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
7       L_PRECISION NUMBER;
8       L_EXT_PRECISION NUMBER;
9       L_MIN_ACCT_UNIT NUMBER;
10     BEGIN
11       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
12       INIT_SECURITY;
13       BEGIN
14         SELECT
15           A.BANK_ACCOUNT_NAME,
16           A.BANK_ACCOUNT_NUM,
17           B.BANK_NAME,
18           B.BANK_BRANCH_NAME,
19           A.CURRENCY_CODE,
20           L.MEANING,
21           L2.MEANING,
22           A.BANK_ACCOUNT_TYPE
23         INTO
24           C_BANK_ACCOUNT_NAME
25           ,C_BANK_ACCOUNT_NUM
26           ,C_BANK_NAME
27           ,C_BANK_BRANCH_NAME
28           ,C_BANK_CURRENCY_CODE
29           ,C_TRANSACTION_TYPE
30           ,C_RECEIPT_TRANSLATION
31           ,C_BANK_ACCOUNT_TYPE
32         FROM
33           CE_LOOKUPS L,
34           CE_LOOKUPS L2,
35           CE_BANK_BRANCHES_V B,
36           CE_BANK_ACCTS_GT_V A
37         WHERE L.LOOKUP_TYPE = 'BATCH_TYPE'
38           AND L.LOOKUP_CODE = P_TYPE
39           AND L2.LOOKUP_TYPE = 'TRX_TYPE'
40           AND L2.LOOKUP_CODE = 'CASH'
41           AND B.BRANCH_PARTY_ID = A.BANK_BRANCH_ID
42           AND A.BANK_ACCOUNT_ID = P_BANK_ACCOUNT;
43       EXCEPTION
44         WHEN OTHERS THEN
45           SET_NAME('CE'
46                   ,'CE_INVALID_BANK_ACC');
47           L_MESSAGE := GET;
48           RAISE_APPLICATION_ERROR(-20101
49                                  ,NULL);
50       END;
51       IF (P_TYPE in ('ALL','RECEIPT')) THEN
52         P_QUERY_RECEIPTS := 'Y';
53       END IF;
54       IF (P_TYPE in ('ALL','PAYMENT')) THEN
55         P_QUERY_PAYMENTS := 'Y';
56       END IF;
57       C_AMOUNT_WIDTH := 27;
58       FND_CURRENCY.GET_INFO(C_BANK_CURRENCY_CODE
59                            ,L_PRECISION
60                            ,L_EXT_PRECISION
61                            ,L_MIN_ACCT_UNIT);
62       C_PRECISION := L_PRECISION;
63       IF (P_DEBUG_MODE = 'Y') THEN
64         NULL;
65       END IF;
66     END;
67     RETURN (TRUE);
68   END BEFOREREPORT;
69 
70   FUNCTION AFTERREPORT RETURN BOOLEAN IS
71   BEGIN
72     BEGIN
73       NULL;
74     END;
75     RETURN (TRUE);
76   END AFTERREPORT;
77 
78   FUNCTION G_TRANSACTION_TYPEGROUPFILTER(TYPE IN VARCHAR2) RETURN BOOLEAN IS
79   BEGIN
80     IF TYPE = '' THEN
81       C_THE_END := 'N';
82     ELSE
83       C_THE_END := 'Y';
84     END IF;
85     RETURN (TRUE);
86     RETURN (TRUE);
87   END G_TRANSACTION_TYPEGROUPFILTER;
88 
89   FUNCTION C_AMOUNTFORMULA(TYPE IN VARCHAR2
90                           ,BATCH_ID_1 IN NUMBER) RETURN NUMBER IS
91   BEGIN
92     IF (TYPE = 'PAYMENT') THEN
93       BEGIN
94         SELECT
95           SUM(NVL(AMOUNT
96                  ,0)),
97           SUM(NVL(BANK_ACCOUNT_AMOUNT
98                  ,0))
99         INTO
100           C_BATCH_AMOUNT
101           ,C_BATCH_BANK_ACCOUNT_AMOUNT
102         FROM
103           CE_200_TRANSACTIONS_V A
104         WHERE TRX_TYPE in ( 'PAYMENT' , 'REFUND' )
105           AND BATCH_ID = BATCH_ID_1
106           AND NVL(STATUS
107            ,'NEGOTIABLE') <> 'VOIDED';
108       EXCEPTION
109         WHEN NO_DATA_FOUND THEN
110           NULL;
111       END;
112     ELSE
113       BEGIN
114         SELECT
115           SUM(NVL(A.AMOUNT
116                  ,0)),
117           SUM(NVL(A.BANK_ACCOUNT_AMOUNT
118                  ,0))
119         INTO
120           C_BATCH_AMOUNT
121           ,C_BATCH_BANK_ACCOUNT_AMOUNT
122         FROM
123           CE_222_TRANSACTIONS_V A
124         WHERE A.TRX_TYPE IN ( 'MISC' , 'CASH' )
125           AND A.BATCH_ID = BATCH_ID_1;
126       EXCEPTION
127         WHEN NO_DATA_FOUND THEN
128           NULL;
129       END;
130     END IF;
131     RETURN (C_BATCH_AMOUNT);
132     RETURN NULL;
133   END C_AMOUNTFORMULA;
134 
135   FUNCTION C_BANK_ACCOUNT_AMOUNTFORMULA(TYPE IN VARCHAR2
136                                        ,BATCH_ID_1 IN NUMBER) RETURN NUMBER IS
137   BEGIN
138     IF (TYPE in ('PAYMENT','REFUND')) THEN
139       BEGIN
140         SELECT
141           SUM(NVL(AMOUNT
142                  ,0)),
143           ROUND(SUM(NVL(BANK_ACCOUNT_AMOUNT
144                        ,0))
145                ,C_PRECISION)
146         INTO
147           C_BATCH_AMOUNT
148           ,C_BATCH_BANK_ACCOUNT_AMOUNT
149         FROM
150           CE_200_TRANSACTIONS_V
151         WHERE TRX_TYPE in ( 'PAYMENT' , 'REFUND' )
152           AND BATCH_ID = BATCH_ID_1
153           AND NVL(STATUS
154            ,'NEGOTIABLE') <> 'VOIDED';
155       EXCEPTION
156         WHEN NO_DATA_FOUND THEN
157           NULL;
158       END;
159     ELSE
160       BEGIN
161         SELECT
162           SUM(NVL(A.AMOUNT
163                  ,0)),
164           ROUND(SUM(NVL(A.BANK_ACCOUNT_AMOUNT
165                        ,0))
166                ,C_PRECISION)
167         INTO
168           C_BATCH_AMOUNT
169           ,C_BATCH_BANK_ACCOUNT_AMOUNT
170         FROM
171           CE_222_TRANSACTIONS_V A
172         WHERE A.TRX_TYPE IN ( 'MISC' , 'CASH' )
173           AND A.BATCH_ID = BATCH_ID_1;
174       EXCEPTION
175         WHEN NO_DATA_FOUND THEN
176           NULL;
177       END;
178     END IF;
179     RETURN (C_BATCH_BANK_ACCOUNT_AMOUNT);
180     RETURN NULL;
181   END C_BANK_ACCOUNT_AMOUNTFORMULA;
182 
183   FUNCTION C_ACCOUNT_AMOUNTFORMULA(TYPE IN VARCHAR2
184                                   ,BATCH_ID_1 IN NUMBER) RETURN NUMBER IS
185   BEGIN
186     IF (TYPE in ('PAYMENT','REFUND')) THEN
187       BEGIN
188         SELECT
189           SUM(NVL(AMOUNT
190                  ,0)),
191           SUM(NVL(BANK_ACCOUNT_AMOUNT
192                  ,0))
193         INTO
194           C_BATCH_AMOUNT
195           ,C_BATCH_BANK_ACCOUNT_AMOUNT
196         FROM
197           CE_200_TRANSACTIONS_V
198         WHERE TRX_TYPE in ( 'PAYMENT' , 'REFUND' )
199           AND BATCH_ID = BATCH_ID_1
200           AND NVL(STATUS
201            ,'NEGOTIABLE') <> 'VOIDED';
202       EXCEPTION
203         WHEN NO_DATA_FOUND THEN
204           NULL;
205       END;
206     ELSE
207       BEGIN
208         SELECT
209           SUM(NVL(A.AMOUNT
210                  ,0)),
211           SUM(NVL(A.BANK_ACCOUNT_AMOUNT
212                  ,0))
213         INTO
214           C_BATCH_AMOUNT
215           ,C_BATCH_BANK_ACCOUNT_AMOUNT
216         FROM
217           CE_222_TRANSACTIONS_V A
218         WHERE A.TRX_TYPE IN ( 'MISC' , 'CASH' )
219           AND A.BATCH_ID = BATCH_ID_1;
220       EXCEPTION
221         WHEN NO_DATA_FOUND THEN
222           NULL;
223       END;
224     END IF;
225     IF (TYPE in ('PAYMENT','REFUND')) THEN
226       RETURN (-1 * (ROUND(C_BATCH_BANK_ACCOUNT_AMOUNT
227                   ,2)));
228     ELSE
229       RETURN (ROUND(C_BATCH_BANK_ACCOUNT_AMOUNT
230                   ,2));
231     END IF;
232     RETURN NULL;
233   END C_ACCOUNT_AMOUNTFORMULA;
234 
235   FUNCTION C_DATEFORMATFORMULA(C_DATEFORMAT IN VARCHAR2) RETURN VARCHAR2 IS
236   BEGIN
237     RETURN (C_DATEFORMAT);
238   END C_DATEFORMATFORMULA;
239 
240   FUNCTION C_ORDER_BYFORMULA RETURN VARCHAR2 IS
241   BEGIN
242     IF P_ORDER_BY = 'AMOUNT' THEN
243       RETURN ('ORDER BY 12 ASC,1 ASC,17 ASC ');
244     ELSE
245       --RETURN ('ORDER BY 12,1,17,13,14,2');
246       RETURN ('ORDER BY 12 ASC,1 ASC,17 ASC , 9');
247     END IF;
248     RETURN NULL;
249   END C_ORDER_BYFORMULA;
250 
251   FUNCTION P_SHOW_VOID_PAYMENT_FLAGVALIDT RETURN BOOLEAN IS
252   BEGIN
253     RETURN (TRUE);
254   END P_SHOW_VOID_PAYMENT_FLAGVALIDT;
255 
256   FUNCTION P_ORDER_BYVALIDTRIGGER RETURN BOOLEAN IS
257   BEGIN
258     RETURN (TRUE);
259   END P_ORDER_BYVALIDTRIGGER;
260 
261   FUNCTION C_BATCH_AMOUNT_P RETURN NUMBER IS
262   BEGIN
263     RETURN C_BATCH_AMOUNT;
264   END C_BATCH_AMOUNT_P;
265 
266   FUNCTION C_BATCH_BANK_ACCOUNT_AMOUNT_P RETURN NUMBER IS
267   BEGIN
268     RETURN C_BATCH_BANK_ACCOUNT_AMOUNT;
269   END C_BATCH_BANK_ACCOUNT_AMOUNT_P;
270 
271   FUNCTION C_THE_END_P RETURN VARCHAR2 IS
272   BEGIN
273     RETURN C_THE_END;
274   END C_THE_END_P;
275 
276   FUNCTION C_BANK_ACCOUNT_NAME_P RETURN VARCHAR2 IS
277   BEGIN
278     RETURN C_BANK_ACCOUNT_NAME;
279   END C_BANK_ACCOUNT_NAME_P;
280 
281   FUNCTION C_BANK_ACCOUNT_NUM_P RETURN VARCHAR2 IS
282   BEGIN
283     RETURN C_BANK_ACCOUNT_NUM;
284   END C_BANK_ACCOUNT_NUM_P;
285 
286   FUNCTION C_BANK_NAME_P RETURN VARCHAR2 IS
287   BEGIN
288     RETURN C_BANK_NAME;
289   END C_BANK_NAME_P;
290 
291   FUNCTION C_BANK_BRANCH_NAME_P RETURN VARCHAR2 IS
292   BEGIN
293     RETURN C_BANK_BRANCH_NAME;
294   END C_BANK_BRANCH_NAME_P;
295 
296   FUNCTION C_BANK_CURRENCY_CODE_P RETURN VARCHAR2 IS
297   BEGIN
298     RETURN C_BANK_CURRENCY_CODE;
299   END C_BANK_CURRENCY_CODE_P;
300 
301   FUNCTION C_TRANSACTION_TYPE_P RETURN VARCHAR2 IS
302   BEGIN
303     RETURN C_TRANSACTION_TYPE;
304   END C_TRANSACTION_TYPE_P;
305 
306   FUNCTION C_RECEIPT_TRANSLATION_P RETURN VARCHAR2 IS
307   BEGIN
308     RETURN C_RECEIPT_TRANSLATION;
309   END C_RECEIPT_TRANSLATION_P;
310 
311   FUNCTION C_AMOUNT_WIDTH_P RETURN NUMBER IS
312   BEGIN
313     RETURN C_AMOUNT_WIDTH;
314   END C_AMOUNT_WIDTH_P;
315 
316   FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
317   BEGIN
318     RETURN C_COMPANY_NAME_HEADER;
319   END C_COMPANY_NAME_HEADER_P;
320 
321   FUNCTION C_BANK_ACCOUNT_TYPE_P RETURN VARCHAR2 IS
322   BEGIN
323     RETURN C_BANK_ACCOUNT_TYPE;
324   END C_BANK_ACCOUNT_TYPE_P;
325 
326   FUNCTION C_PRECISION_P RETURN NUMBER IS
327   BEGIN
328     RETURN C_PRECISION;
329   END C_PRECISION_P;
330 
331   FUNCTION C_BATCH_PAY_SQL_LEX_P RETURN VARCHAR2 IS
332   BEGIN
333     RETURN C_BATCH_PAY_SQL_LEX;
334   END C_BATCH_PAY_SQL_LEX_P;
335 
336   FUNCTION C_BATCH_REC_SQL_LEX_P RETURN VARCHAR2 IS
337   BEGIN
338     RETURN C_BATCH_REC_SQL_LEX;
339   END C_BATCH_REC_SQL_LEX_P;
340 
341   PROCEDURE SET_NAME(APPLICATION IN VARCHAR2
342                     ,NAME IN VARCHAR2) IS
343   BEGIN
344   /*  STPROC.INIT('begin FND_MESSAGE.SET_NAME(:APPLICATION, :NAME); end;');
345     STPROC.BIND_I(APPLICATION);
346     STPROC.BIND_I(NAME);
347     STPROC.EXECUTE;*/
348     FND_MESSAGE.SET_NAME(APPLICATION, NAME);
349   END SET_NAME;
350 
351   /*PROCEDURE SET_TOKEN(TOKEN IN VARCHAR2
352                      ,VALUE IN VARCHAR2
353                      ,TRANSLATE IN BOOLEAN) IS
354   BEGIN
355     STPROC.INIT('declare TRANSLATE BOOLEAN; begin TRANSLATE := sys.diutil.int_to_bool(:TRANSLATE); FND_MESSAGE.SET_TOKEN(:TOKEN, :VALUE, TRANSLATE); end;');
356     STPROC.BIND_I(TRANSLATE);
357     STPROC.BIND_I(TOKEN);
358     STPROC.BIND_I(VALUE);
359     STPROC.EXECUTE;
360   END SET_TOKEN;
361 */
362   PROCEDURE RETRIEVE(MSGOUT OUT NOCOPY VARCHAR2) IS
363   BEGIN
364     /*STPROC.INIT('begin FND_MESSAGE.RETRIEVE(:MSGOUT); end;');
365     STPROC.BIND_O(MSGOUT);
366     STPROC.EXECUTE;
367     STPROC.RETRIEVE(1
368                    ,MSGOUT);*/
369 
370     FND_MESSAGE.RETRIEVE(MSGOUT);
371 
372   END RETRIEVE;
373 
374  /*PROCEDURE CLEAR IS
375   BEGIN
376     STPROC.INIT('begin FND_MESSAGE.CLEAR; end;');
377     STPROC.EXECUTE;
378   END CLEAR;*/
379 
380   /*FUNCTION GET_STRING(APPIN IN VARCHAR2
381                      ,NAMEIN IN VARCHAR2) RETURN VARCHAR2 IS
382     X0 VARCHAR2(2000);
383   BEGIN
384     STPROC.INIT('begin :X0 := FND_MESSAGE.GET_STRING(:APPIN, :NAMEIN); end;');
385     STPROC.BIND_O(X0);
386     STPROC.BIND_I(APPIN);
387     STPROC.BIND_I(NAMEIN);
388     STPROC.EXECUTE;
389     STPROC.RETRIEVE(1
390                    ,X0);
391     RETURN X0;
392   END GET_STRING;
393 */
394   FUNCTION GET RETURN VARCHAR2 IS
395     X0 VARCHAR2(2000);
396   BEGIN
397 /*    STPROC.INIT('begin :X0 := FND_MESSAGE.GET; end;');
398     STPROC.BIND_O(X0);
399     STPROC.EXECUTE;
400     STPROC.RETRIEVE(1
401                    ,X0);*/
402 		   X0 := FND_MESSAGE.GET;
403     RETURN X0;
404   END GET;
405 
406  /* FUNCTION GET_ENCODED RETURN VARCHAR2 IS
407     X0 VARCHAR2(2000);
408   BEGIN
409     STPROC.INIT('begin :X0 := FND_MESSAGE.GET_ENCODED; end;');
410     STPROC.BIND_O(X0);
411     STPROC.EXECUTE;
412     STPROC.RETRIEVE(1
413                    ,X0);
414     RETURN X0;
415   END GET_ENCODED;*/
416 
417   /*PROCEDURE PARSE_ENCODED(ENCODED_MESSAGE IN VARCHAR2
418                          ,APP_SHORT_NAME OUT NOCOPY VARCHAR2
419                          ,MESSAGE_NAME OUT NOCOPY VARCHAR2) IS
420   BEGIN
421     STPROC.INIT('begin FND_MESSAGE.PARSE_ENCODED(:ENCODED_MESSAGE, :APP_SHORT_NAME, :MESSAGE_NAME); end;');
422     STPROC.BIND_I(ENCODED_MESSAGE);
423     STPROC.BIND_O(APP_SHORT_NAME);
424     STPROC.BIND_O(MESSAGE_NAME);
425     STPROC.EXECUTE;
426     STPROC.RETRIEVE(2
427                    ,APP_SHORT_NAME);
428     STPROC.RETRIEVE(3
429                    ,MESSAGE_NAME);
430   END PARSE_ENCODED;*/
431 
432 /*  PROCEDURE SET_ENCODED(ENCODED_MESSAGE IN VARCHAR2) IS
433   BEGIN
434     STPROC.INIT('begin FND_MESSAGE.SET_ENCODED(:ENCODED_MESSAGE); end;');
435     STPROC.BIND_I(ENCODED_MESSAGE);
436     STPROC.EXECUTE;
437   END SET_ENCODED;
438 */
439 /*  PROCEDURE RAISE_ERROR IS
440   BEGIN
441     STPROC.INIT('begin FND_MESSAGE.RAISE_ERROR; end;');
442     STPROC.EXECUTE;
443   END RAISE_ERROR;*/
444 
445 /*  PROCEDURE SET_101 IS
446   BEGIN
447     STPROC.INIT('begin CE_AUTO_BANK_MATCH.SET_101; end;');
448     STPROC.EXECUTE;
449   END SET_101;
450 */
451  /* PROCEDURE SET_200 IS
452   BEGIN
453     STPROC.INIT('begin CE_AUTO_BANK_MATCH.SET_200; end;');
454     STPROC.EXECUTE;
455   END SET_200;*/
456 
457 /*  PROCEDURE SET_222 IS
458   BEGIN
459     STPROC.INIT('begin CE_AUTO_BANK_MATCH.SET_222; end;');
460     STPROC.EXECUTE;
461   END SET_222;*/
462 
463   /*PROCEDURE SET_260 IS
464   BEGIN
465     STPROC.INIT('begin CE_AUTO_BANK_MATCH.SET_260; end;');
466     STPROC.EXECUTE;
467   END SET_260;*/
468 
469  /* PROCEDURE SET_801 IS
470   BEGIN
471     STPROC.INIT('begin CE_AUTO_BANK_MATCH.SET_801; end;');
472     STPROC.EXECUTE;
473   END SET_801;*/
474 
475 /*  PROCEDURE SET_999 IS
476   BEGIN
477     STPROC.INIT('begin CE_AUTO_BANK_MATCH.SET_999; end;');
478     STPROC.EXECUTE;
479   END SET_999;*/
480 
481  /* PROCEDURE SET_ALL IS
482   BEGIN
483     STPROC.INIT('begin CE_AUTO_BANK_MATCH.SET_ALL; end;');
484     STPROC.EXECUTE;
485   END SET_ALL;*/
486 
487  /* PROCEDURE UNSET_101 IS
488   BEGIN
489     STPROC.INIT('begin CE_AUTO_BANK_MATCH.UNSET_101; end;');
490     STPROC.EXECUTE;
491   END UNSET_101;*/
492 
493   /*PROCEDURE UNSET_200 IS
494   BEGIN
495     STPROC.INIT('begin CE_AUTO_BANK_MATCH.UNSET_200; end;');
496     STPROC.EXECUTE;
497   END UNSET_200;*/
498 
499   /*PROCEDURE UNSET_222 IS
500   BEGIN
501     STPROC.INIT('begin CE_AUTO_BANK_MATCH.UNSET_222; end;');
502     STPROC.EXECUTE;
503   END UNSET_222;
504 */
505  /* PROCEDURE UNSET_260 IS
506   BEGIN
507     STPROC.INIT('begin CE_AUTO_BANK_MATCH.UNSET_260; end;');
508     STPROC.EXECUTE;
509   END UNSET_260;*/
510 
511  /* PROCEDURE UNSET_801 IS
512   BEGIN
513     STPROC.INIT('begin CE_AUTO_BANK_MATCH.UNSET_801; end;');
514     STPROC.EXECUTE;
515   END UNSET_801;*/
516 
517   /*PROCEDURE UNSET_999 IS
518   BEGIN
519     STPROC.INIT('begin CE_AUTO_BANK_MATCH.UNSET_999; end;');
520     STPROC.EXECUTE;
521   END UNSET_999;*/
522 
523   /*PROCEDURE UNSET_ALL IS
524   BEGIN
525     STPROC.INIT('begin CE_AUTO_BANK_MATCH.UNSET_ALL; end;');
526     STPROC.EXECUTE;
527   END UNSET_ALL;*/
528 
529 /*  FUNCTION GET_101 RETURN NUMBER IS
530     X0 NUMBER;
531   BEGIN
532     STPROC.INIT('begin :X0 := CE_AUTO_BANK_MATCH.GET_101; end;');
533     STPROC.BIND_O(X0);
534     STPROC.EXECUTE;
535     STPROC.RETRIEVE(1
536                    ,X0);
537     RETURN X0;
538   END GET_101;*/
539 
540  /* FUNCTION GET_200 RETURN NUMBER IS
541     X0 NUMBER;
542   BEGIN
543     STPROC.INIT('begin :X0 := CE_AUTO_BANK_MATCH.GET_200; end;');
544     STPROC.BIND_O(X0);
545     STPROC.EXECUTE;
546     STPROC.RETRIEVE(1
547                    ,X0);
548     RETURN X0;
549   END GET_200;*/
550 
551 /*  FUNCTION GET_222 RETURN NUMBER IS
552     X0 NUMBER;
553   BEGIN
554     STPROC.INIT('begin :X0 := CE_AUTO_BANK_MATCH.GET_222; end;');
555     STPROC.BIND_O(X0);
556     STPROC.EXECUTE;
557     STPROC.RETRIEVE(1
558                    ,X0);
559     RETURN X0;
560   END GET_222;*/
561 
562  /* FUNCTION GET_260 RETURN NUMBER IS
563     X0 NUMBER;
564   BEGIN
565     STPROC.INIT('begin :X0 := CE_AUTO_BANK_MATCH.GET_260; end;');
566     STPROC.BIND_O(X0);
567     STPROC.EXECUTE;
568     STPROC.RETRIEVE(1
569                    ,X0);
570     RETURN X0;
571   END GET_260;*/
572 
573 /*  FUNCTION GET_801 RETURN NUMBER IS
574     X0 NUMBER;
575   BEGIN
576     STPROC.INIT('begin :X0 := CE_AUTO_BANK_MATCH.GET_801; end;');
577     STPROC.BIND_O(X0);
578     STPROC.EXECUTE;
579     STPROC.RETRIEVE(1
580                    ,X0);
581     RETURN X0;
582   END GET_801;*/
583 
584   /*FUNCTION GET_999 RETURN NUMBER IS
585     X0 NUMBER;
586   BEGIN
587     STPROC.INIT('begin :X0 := CE_AUTO_BANK_MATCH.GET_999; end;');
588     STPROC.BIND_O(X0);
589     STPROC.EXECUTE;
590     STPROC.RETRIEVE(1
591                    ,X0);
592     RETURN X0;
593   END GET_999;*/
594 
595   /*PROCEDURE SET_INVERSE_RATE(INVERSE_RATE IN VARCHAR2) IS
596   BEGIN
597     STPROC.INIT('begin CE_AUTO_BANK_MATCH.SET_INVERSE_RATE(:INVERSE_RATE); end;');
598     STPROC.BIND_I(INVERSE_RATE);
599     STPROC.EXECUTE;
600   END SET_INVERSE_RATE;*/
601 
602  /* FUNCTION GET_INVERSE_RATE RETURN VARCHAR2 IS
603     X0 VARCHAR2(2000);
604   BEGIN
605     STPROC.INIT('begin :X0 := CE_AUTO_BANK_MATCH.GET_INVERSE_RATE; end;');
606     STPROC.BIND_O(X0);
607     STPROC.EXECUTE;
608     STPROC.RETRIEVE(1
609                    ,X0);
610     RETURN X0;
611   END GET_INVERSE_RATE;*/
612 
613  /* FUNCTION GET_VAT_TAX_ID RETURN NUMBER IS
614     X0 NUMBER;
615   BEGIN
616     STPROC.INIT('begin :X0 := CE_AUTO_BANK_MATCH.GET_VAT_TAX_ID; end;');
617     STPROC.BIND_O(X0);
618     STPROC.EXECUTE;
619     STPROC.RETRIEVE(1
620                    ,X0);
621     RETURN X0;
622   END GET_VAT_TAX_ID;*/
623 
624   /*FUNCTION CONVERT_AMOUNT_TOLERANCE(AMOUNT_TO_CONVERT IN NUMBER) RETURN NUMBER IS
625     X0 NUMBER;
626   BEGIN
627     STPROC.INIT('begin :X0 := CE_AUTO_BANK_MATCH.CONVERT_AMOUNT_TOLERANCE(:AMOUNT_TO_CONVERT); end;');
628     STPROC.BIND_O(X0);
629     STPROC.BIND_I(AMOUNT_TO_CONVERT);
630     STPROC.EXECUTE;
631     STPROC.RETRIEVE(1
632                    ,X0);
633     RETURN X0;
634   END CONVERT_AMOUNT_TOLERANCE;*/
635 
636  /* FUNCTION VALIDATE_PAYMENT_METHOD RETURN BOOLEAN IS
637     X0 BOOLEAN;
638   BEGIN
639     STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := CE_AUTO_BANK_MATCH.VALIDATE_PAYMENT_METHOD; :X0 := sys.diutil.bool_to_int(X0rv); end;');
640     STPROC.BIND_O(X0);
641     STPROC.EXECUTE;
642     STPROC.RETRIEVE(1
643                    ,X0);
644     RETURN X0;
645   END VALIDATE_PAYMENT_METHOD;
646 */
647  /* FUNCTION TRX_VALIDATION(NO_OF_CURRENCIES IN NUMBER) RETURN BOOLEAN IS
648     X0 BOOLEAN;
649   BEGIN
650     STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := CE_AUTO_BANK_MATCH.TRX_VALIDATION(:NO_OF_CURRENCIES); :X0 := sys.diutil.bool_to_int(X0rv); end;');
651     STPROC.BIND_I(NO_OF_CURRENCIES);
652     STPROC.BIND_O(X0);
653     STPROC.EXECUTE;
654     STPROC.RETRIEVE(2
655                    ,X0);
656     RETURN X0;
657   END TRX_VALIDATION;*/
658 
659   /*PROCEDURE CALC_ACTUAL_TOLERANCE IS
660   BEGIN
661     STPROC.INIT('begin CE_AUTO_BANK_MATCH.CALC_ACTUAL_TOLERANCE; end;');
662     STPROC.EXECUTE;
663   END CALC_ACTUAL_TOLERANCE;*/
664 
665  /* PROCEDURE MATCH_PROCESS IS
666   BEGIN
667     STPROC.INIT('begin CE_AUTO_BANK_MATCH.MATCH_PROCESS; end;');
668     STPROC.EXECUTE;
669   END MATCH_PROCESS;*/
670 
671   /*PROCEDURE LOCK_TRANSACTION(X_RECONCILE_FLAG IN VARCHAR2
672                             ,X_CALL_MODE IN VARCHAR2
673                             ,X_TRX_TYPE IN VARCHAR2
674                             ,X_CLEARING_TRX_TYPE IN VARCHAR2
675                             ,X_TRX_ROWID IN VARCHAR2
676                             ,X_BATCH_BA_AMOUNT IN NUMBER) IS
677   BEGIN
678     STPROC.INIT('begin CE_AUTO_BANK_MATCH.LOCK_TRANSACTION(:X_RECONCILE_FLAG, :X_CALL_MODE, :X_TRX_TYPE, :X_CLEARING_TRX_TYPE, :X_TRX_ROWID, :X_BATCH_BA_AMOUNT); end;');
679     STPROC.BIND_I(X_RECONCILE_FLAG);
680     STPROC.BIND_I(X_CALL_MODE);
681     STPROC.BIND_I(X_TRX_TYPE);
682     STPROC.BIND_I(X_CLEARING_TRX_TYPE);
683     STPROC.BIND_I(X_TRX_ROWID);
684     STPROC.BIND_I(X_BATCH_BA_AMOUNT);
685     STPROC.EXECUTE;
686   END LOCK_TRANSACTION;*/
687 
688  /* PROCEDURE DEBUG(LINE IN VARCHAR2) IS
689   BEGIN
690     STPROC.INIT('begin CEP_STANDARD.DEBUG(:LINE); end;');
691     STPROC.BIND_I(LINE);
692     STPROC.EXECUTE;
693   END DEBUG;*/
694 
695  /* PROCEDURE ENABLE_DEBUG IS
696   BEGIN
697     STPROC.INIT('begin CEP_STANDARD.ENABLE_DEBUG; end;');
698     STPROC.EXECUTE;
699   END ENABLE_DEBUG;*/
700 
701  /* PROCEDURE DISABLE_DEBUG IS
702   BEGIN
703     STPROC.INIT('begin CEP_STANDARD.DISABLE_DEBUG; end;');
704     STPROC.EXECUTE;
705   END DISABLE_DEBUG;
706 */
707  /* FUNCTION GET_WINDOW_SESSION_TITLE RETURN VARCHAR2 IS
708     X0 VARCHAR2(2000);
709   BEGIN
710     STPROC.INIT('begin :X0 := CEP_STANDARD.GET_WINDOW_SESSION_TITLE; end;');
711     STPROC.BIND_O(X0);
712     STPROC.EXECUTE;
713     STPROC.RETRIEVE(1
714                    ,X0);
715     RETURN X0;
716   END GET_WINDOW_SESSION_TITLE;*/
717 
718 /*  FUNCTION GET_EFFECTIVE_DATE(P_BANK_ACCOUNT_ID IN NUMBER
719                              ,P_TRX_CODE IN VARCHAR2
720                              ,P_RECEIPT_DATE IN DATE) RETURN DATE IS
721     X0 DATE;
722   BEGIN
723     STPROC.INIT('begin :X0 := CEP_STANDARD.GET_EFFECTIVE_DATE(:P_BANK_ACCOUNT_ID, :P_TRX_CODE, :P_RECEIPT_DATE); end;');
724     STPROC.BIND_O(X0);
725     STPROC.BIND_I(P_BANK_ACCOUNT_ID);
726     STPROC.BIND_I(P_TRX_CODE);
727     STPROC.BIND_I(P_RECEIPT_DATE);
728     STPROC.EXECUTE;
729     STPROC.RETRIEVE(1
730                    ,X0);
731     RETURN X0;
732   END GET_EFFECTIVE_DATE;
733 */
734   PROCEDURE INIT_SECURITY IS
735   BEGIN
736    /* STPROC.INIT('begin cep_standard.init_security;  end;');
737     STPROC.EXECUTE;*/
738 cep_standard.init_security;
739   END INIT_SECURITY;
740 
741 END CE_CEXAVBCH_XMLP_PKG;
742