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