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