[Home] [Help]
PACKAGE BODY: APPS.JL_JLBRRCAD_XMLP_PKG
Source
1 PACKAGE BODY JL_JLBRRCAD_XMLP_PKG AS
2 /* $Header: JLBRRCADB.pls 120.1 2007/12/25 16:41:28 dwkrishn noship $ */
3 FUNCTION AFTERREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
7 EXCEPTION
8 WHEN OTHERS THEN
9 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
10 END;
11 RETURN (TRUE);
12 END AFTERREPORT;
13
14 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
15 INIT_FAILURE EXCEPTION;
16 BEGIN
17 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
18 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
19 BEGIN
20 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
21 EXCEPTION
22 /* WHEN SRW.UNKNOWN_USER_EXIT OTHERS THEN
23 SRW.MESSAGE(01
24 ,'FND SRWINIT user exit is unknown.') NULL;
25 RAISE;*/
26 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
27 /*SRW.MESSAGE(02
28 ,'FND SRWINIT user exit failed.')*/NULL;
29 RAISE;
30 END;
31 BEGIN
32 BEGIN
33 H_CALENDAR := JL_ZZ_SYS_OPTIONS_PKG.GET_CALENDAR(MO_GLOBAL.GET_CURRENT_ORG_ID);
34 EXCEPTION
35 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
36 /*SRW.MESSAGE(20
37 ,'Failed in Profile Options Init.')*/NULL;
38 RAISE;
39 END;
40 BEGIN
41 H_NONWORKDAY := JL_ZZ_SYS_OPTIONS_PKG.GET_PAYMENT_ACTION_AR(MO_GLOBAL.GET_CURRENT_ORG_ID);
42 EXCEPTION
43 WHEN OTHERS THEN
44 /*SRW.MESSAGE(20
45 ,'Failed in Profile Options Init.')*/NULL;
46 RAISE;
47 END;
48 GET_BASE_CURR_DATA;
49 GET_COMPANY_NAME;
50 IF (SET_P_WHERE <> TRUE) THEN
51 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
52 END IF;
53 RETURN (TRUE);
54 RETURN NULL;
55 EXCEPTION
56 WHEN OTHERS THEN
57 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
58 RETURN (FALSE);
59 END;
60 END BEFOREREPORT;
61
62 PROCEDURE GET_BASE_CURR_DATA IS
63 BASE_CURR FND_CURRENCIES_VL.CURRENCY_CODE%TYPE;
64 PREC FND_CURRENCIES_VL.PRECISION%TYPE;
65 MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
66 DESCR FND_CURRENCIES_VL.DESCRIPTION%TYPE;
67 ORG_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
68 BEGIN
69 BASE_CURR := '';
70 PREC := 0;
71 MIN_AU := 0;
72 DESCR := '';
73 ORG_NAME := '';
74 BEGIN
75 SELECT
76 FCURR.CURRENCY_CODE,
77 FCURR.PRECISION,
78 FCURR.MINIMUM_ACCOUNTABLE_UNIT,
79 FCURR.DESCRIPTION,
80 GSBKS.NAME
81 INTO BASE_CURR,PREC,MIN_AU,DESCR,ORG_NAME
82 FROM
83 AR_SYSTEM_PARAMETERS ASP,
84 FND_CURRENCIES_VL FCURR,
85 GL_SETS_OF_BOOKS GSBKS
86 WHERE ASP.SET_OF_BOOKS_ID = GSBKS.SET_OF_BOOKS_ID
87 AND GSBKS.CURRENCY_CODE = FCURR.CURRENCY_CODE;
88 EXCEPTION
89 WHEN NO_DATA_FOUND THEN
90 RAISE_ERR('200XX'
91 ,'JL_AR_FA_CURR_DET_NOT_DEFINED');
92 WHEN OTHERS THEN
93 RAISE_ORA_ERR('200XX');
94 END;
95 C_BASE_CURRENCY_CODE := BASE_CURR;
96 C_BASE_PRECISION := PREC;
97 C_BASE_MIN_ACCT_UNIT := MIN_AU;
98 C_BASE_DESCRIPTION := DESCR;
99 C_ORGANISATION_NAME := ORG_NAME;
100 END GET_BASE_CURR_DATA;
101
102 PROCEDURE RAISE_ERR(ERRNO IN VARCHAR2
103 ,MSGNAME IN VARCHAR2) IS
104 ERRMSG VARCHAR2(1000);
105 BEGIN
106 SET_NAME('JL'
107 ,MSGNAME);
108 ERRMSG := GET;
109 /*SRW.MESSAGE(ERRNO
110 ,ERRMSG)*/NULL;
111 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
112 END RAISE_ERR;
113
114 PROCEDURE RAISE_ORA_ERR(ERRNO IN VARCHAR2) IS
115 ERRMSG VARCHAR2(1000);
116 BEGIN
117 ERRMSG := SQLERRM;
118 /*SRW.MESSAGE(ERRNO
119 ,ERRMSG)*/NULL;
120 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
121 END RAISE_ORA_ERR;
122
123 PROCEDURE GET_COMPANY_NAME IS
124 L_NAME VARCHAR2(80);
125 L_RETURN_STATUS VARCHAR2(2000);
126 L_MSG_DATA VARCHAR2(2000);
127 L_LEDGER_ID AR_SYSTEM_PARAMETERS.SET_OF_BOOKS_ID%TYPE;
128 L_ACCT_BALANCING_SEGMENT AR_SYSTEM_PARAMETERS.GLOBAL_ATTRIBUTE1%TYPE;
129 L_LEDGER_INFO XLE_BUSINESSINFO_GRP.LE_LEDGER_REC_TYPE;
130 L_LEGAL_ENTITY_ID XLE_ENTITY_PROFILES.LEGAL_ENTITY_ID%TYPE;
131 L_LEGAL_ENTITY_NAME XLE_ENTITY_PROFILES.NAME%TYPE;
132 BEGIN
133 SELECT
134 SET_OF_BOOKS_ID,
135 GLOBAL_ATTRIBUTE1
136 INTO L_LEDGER_ID,L_ACCT_BALANCING_SEGMENT
137 FROM
138 AR_SYSTEM_PARAMETERS;
139 SELECT
140 ETB.ESTABLISHMENT_NAME
141 INTO L_LEGAL_ENTITY_NAME
142 FROM
143 XLE_ESTABLISHMENT_V ETB,
144 XLE_BSV_ASSOCIATIONS BSV,
145 GL_LEDGER_LE_V GL
146 WHERE ETB.LEGAL_ENTITY_ID = GL.LEGAL_ENTITY_ID
147 AND BSV.LEGAL_PARENT_ID = ETB.LEGAL_ENTITY_ID
148 AND ETB.ESTABLISHMENT_ID = BSV.LEGAL_CONSTRUCT_ID
149 AND BSV.ENTITY_NAME = L_ACCT_BALANCING_SEGMENT
150 AND GL.LEDGER_ID = L_LEDGER_ID;
151 C_NAME := L_LEGAL_ENTITY_NAME;
152 EXCEPTION
153 WHEN OTHERS THEN
154 NULL;
155 END GET_COMPANY_NAME;
156
157 FUNCTION SET_P_WHERE RETURN BOOLEAN IS
158 L_NLS_YES VARCHAR2(4);
159 L_TYPE_OF_REPORT VARCHAR2(40);
160 BEGIN
161 IF (P_CUSTOMER_NUMBER_LOW IS NOT NULL) THEN
162 C_START_CUST_NUMBER_PREDICATE := 'and cust.account_number >=''' || P_CUSTOMER_NUMBER_LOW || '''';
163 else
164 C_START_CUST_NUMBER_PREDICATE :=' ';
165 END IF;
166 IF (P_CUSTOMER_NUMBER_HIGH IS NOT NULL) THEN
167 C_END_CUST_NUMBER_PREDICATE := 'and cust.account_number <=''' || P_CUSTOMER_NUMBER_HIGH || '''';
168 else
169 C_END_CUST_NUMBER_PREDICATE := ' ';
170 END IF;
171 IF (P_CUSTOMER_NAME_LOW IS NOT NULL) THEN
172 C_START_CUST_NAME_PREDICATE := 'and pty.party_name >=''' || P_CUSTOMER_NAME_LOW || '''';
173 else
174 C_START_CUST_NAME_PREDICATE := ' ';
175 END IF;
176 IF (P_CUSTOMER_NAME_HIGH IS NOT NULL) THEN
177 C_END_CUST_NAME_PREDICATE := 'and pty.party_name <=''' || P_CUSTOMER_NAME_HIGH || '''';
178 else
179 C_END_CUST_NAME_PREDICATE := ' ';
180 END IF;
181 IF (P_INVOICE_NUMBER_LOW IS NOT NULL) THEN
182 C_START_INV_NUMBER_PREDICATE := 'and ps.trx_number >=''' || P_INVOICE_NUMBER_LOW || '''';
183 else
184 C_START_INV_NUMBER_PREDICATE := ' ';
185 END IF;
186 IF (P_INVOICE_NUMBER_HIGH IS NOT NULL) THEN
187 C_END_INV_NUMBER_PREDICATE := 'and ps.trx_number <=''' || P_INVOICE_NUMBER_HIGH || '''';
188 else
189 C_END_INV_NUMBER_PREDICATE := ' ';
190 END IF;
191 RETURN (TRUE);
192 END SET_P_WHERE;
193
194 FUNCTION CF_INT_CALFORMULA(C_CUSTOMER_TRX_ID IN NUMBER
195 ,C_DUE_DATE IN DATE
196 ,C_BALANCE_DUE IN NUMBER
197 ,C_PAYMENT_SCHEDULE_ID IN NUMBER) RETURN NUMBER IS
198 X_INTEREST_TYPE VARCHAR2(150);
199 X_INTEREST_RATE_AMOUNT NUMBER;
200 X_PERIOD_DAYS NUMBER;
201 X_INTEREST_FORMULA VARCHAR2(150);
202 X_GRACE_DAYS NUMBER;
203 X_PENALTY_TYPE VARCHAR2(150);
204 X_PENALTY_RATE_AMOUNT NUMBER;
205 X_DUE_DATE DATE;
206 X_PAYMENT_DATE DATE;
207 X_INVOICE_AMOUNT NUMBER;
208 X_JLBR_CALENDAR VARCHAR2(150);
209 X_JLBR_ACTION_NON_WORKDAY VARCHAR2(150);
210 X_JLBR_LOCAL_HOLIDAY VARCHAR2(60);
211 X_INTEREST_CALCULATED NUMBER;
212 X_DAYS_LATE NUMBER;
213 X_EXIT_CODE NUMBER;
214 X_DUE_DATE_NEW DATE;
215 X_PAYMENT_DATE_NEW DATE;
216 X_CITY VARCHAR2(60);
217 BEGIN
218 X_INTEREST_CALCULATED := 0;
219 X_DAYS_LATE := 0;
220 X_CITY := NULL;
221 X_INTEREST_TYPE := NULL;
222 X_INTEREST_RATE_AMOUNT := 0;
223 X_PERIOD_DAYS := 0;
224 X_INTEREST_FORMULA := NULL;
225 X_GRACE_DAYS := 0;
226 X_PENALTY_TYPE := NULL;
227 X_PENALTY_RATE_AMOUNT := 0;
228 X_DUE_DATE_NEW := NULL;
229 X_DUE_DATE := NULL;
230 X_PAYMENT_DATE_NEW := NULL;
231 X_PAYMENT_DATE := NULL;
232 X_INVOICE_AMOUNT := 0;
233 BEGIN
234 SELECT
235 RTRIM(GLOBAL_ATTRIBUTE1),
236 FND_NUMBER.CANONICAL_TO_NUMBER(NVL(GLOBAL_ATTRIBUTE2
237 ,'0')),
238 TO_NUMBER(NVL(GLOBAL_ATTRIBUTE3
239 ,'0')),
240 RTRIM(GLOBAL_ATTRIBUTE4),
241 TO_NUMBER(NVL(GLOBAL_ATTRIBUTE5
242 ,'0')),
243 RTRIM(GLOBAL_ATTRIBUTE6),
244 FND_NUMBER.CANONICAL_TO_NUMBER(NVL(GLOBAL_ATTRIBUTE7
245 ,'0'))
246 INTO X_INTEREST_TYPE,X_INTEREST_RATE_AMOUNT,X_PERIOD_DAYS,X_INTEREST_FORMULA,X_GRACE_DAYS,X_PENALTY_TYPE,X_PENALTY_RATE_AMOUNT
247 FROM
248 RA_CUSTOMER_TRX CUST
249 WHERE CUST.CUSTOMER_TRX_ID = C_CUSTOMER_TRX_ID;
250 EXCEPTION
251 WHEN NO_DATA_FOUND THEN
252 NULL;
253 WHEN OTHERS THEN
254 NULL;
255 END;
256 X_DUE_DATE := C_DUE_DATE;
257 X_PAYMENT_DATE := SYSDATE;
258 X_INVOICE_AMOUNT := C_BALANCE_DUE;
259 X_JLBR_CALENDAR := H_CALENDAR;
260 X_JLBR_ACTION_NON_WORKDAY := H_NONWORKDAY;
261 BEGIN
262 SELECT
263 RTRIM(LOC.CITY)
264 INTO X_CITY
265 FROM
266 HZ_CUST_ACCT_SITES AD,
267 HZ_LOCATIONS LOC,
268 HZ_PARTY_SITES PST,
269 RA_CUSTOMER_TRX CUST,
270 HZ_CUST_SITE_USES SUS,
271 AR_PAYMENT_SCHEDULES SCH
272 WHERE SCH.PAYMENT_SCHEDULE_ID = C_PAYMENT_SCHEDULE_ID
273 AND CUST.CUSTOMER_TRX_ID = SCH.CUSTOMER_TRX_ID
274 AND SUS.SITE_USE_ID = CUST.BILL_TO_SITE_USE_ID
275 AND AD.CUST_ACCT_SITE_ID = SUS.CUST_ACCT_SITE_ID
276 AND AD.PARTY_SITE_ID = PST.PARTY_SITE_ID
277 AND LOC.LOCATION_ID = PST.LOCATION_ID;
278 EXCEPTION
279 WHEN NO_DATA_FOUND THEN
280 NULL;
281 WHEN OTHERS THEN
282 NULL;
283 END;
284 IF X_INTEREST_TYPE IS NOT NULL THEN
285 JL_BR_INTEREST(X_INTEREST_TYPE
286 ,X_INTEREST_RATE_AMOUNT
287 ,X_PERIOD_DAYS
288 ,X_INTEREST_FORMULA
289 ,X_GRACE_DAYS
290 ,X_PENALTY_TYPE
291 ,X_PENALTY_RATE_AMOUNT
292 ,X_DUE_DATE
293 ,X_PAYMENT_DATE
294 ,X_INVOICE_AMOUNT
295 ,X_JLBR_CALENDAR
296 ,X_CITY
297 ,X_JLBR_ACTION_NON_WORKDAY
298 ,X_INTEREST_CALCULATED
299 ,X_DAYS_LATE
300 ,X_EXIT_CODE);
301 END IF;
302 H_DAYS_LATE := X_DAYS_LATE;
303 RETURN (X_INTEREST_CALCULATED);
304 END CF_INT_CALFORMULA;
305
306 FUNCTION C_BEARER_OF_TRADE_NOTEFORMULA(C_GLOBAL_ATTRIBUTE9 IN VARCHAR2) RETURN VARCHAR2 IS
307 X_BEARER_OF_TRADE_NOTE VARCHAR2(80);
308 BEGIN
309 X_BEARER_OF_TRADE_NOTE := NULL;
310 IF C_GLOBAL_ATTRIBUTE9 IS NOT NULL THEN
311 BEGIN
312 SELECT
313 MEANING
314 INTO X_BEARER_OF_TRADE_NOTE
315 FROM
316 FND_LOOKUPS
317 WHERE LOOKUP_TYPE = 'JLBR_AR_BEARER_OF_TRADE_NOTE'
318 AND LOOKUP_CODE = C_GLOBAL_ATTRIBUTE9;
319 EXCEPTION
320 WHEN OTHERS THEN
321 NULL;
322 END;
323 END IF;
324 RETURN (X_BEARER_OF_TRADE_NOTE);
325 END C_BEARER_OF_TRADE_NOTEFORMULA;
326
327 FUNCTION C_DOCUMENT_STATUSFORMULA(SELECTED_FOR_RECEIPT_BATCH_ID IN NUMBER
328 ,C_PAYMENT_SCHEDULE_ID IN NUMBER) RETURN VARCHAR2 IS
329 X_DOCUMENT_STATUS VARCHAR2(80);
330 BEGIN
331 X_DOCUMENT_STATUS := NULL;
332 IF SELECTED_FOR_RECEIPT_BATCH_ID IS NOT NULL THEN
333 BEGIN
334 SELECT
335 FLV.MEANING
336 INTO X_DOCUMENT_STATUS
337 FROM
338 FND_LOOKUPS FLV,
339 JL_BR_AR_COLLECTION_DOCS DOCS
340 WHERE DOCS.PAYMENT_SCHEDULE_ID = C_PAYMENT_SCHEDULE_ID
341 AND FLV.LOOKUP_CODE = DOCS.DOCUMENT_STATUS
342 AND FLV.LOOKUP_TYPE = 'JLBR_AR_COLLECTION_DOCS_STATUS'
343 AND NVL(DOCS.DOCUMENT_STATUS
344 ,'-') not in ( 'CANCELED' , 'REFUSED' , 'PARTIALLY_RECEIVED' , 'WRITTEN_OFF' );
345 EXCEPTION
346 WHEN OTHERS THEN
347 NULL;
348 END;
349 END IF;
350 RETURN (X_DOCUMENT_STATUS);
351 END C_DOCUMENT_STATUSFORMULA;
352
353 FUNCTION C_BORDERO_NUMBERFORMULA(SELECTED_FOR_RECEIPT_BATCH_ID IN NUMBER
354 ,C_PAYMENT_SCHEDULE_ID IN NUMBER) RETURN NUMBER IS
355 X_BORDERO_NUMBER NUMBER;
356 BEGIN
357 X_BORDERO_NUMBER := NULL;
358 IF SELECTED_FOR_RECEIPT_BATCH_ID IS NOT NULL THEN
359 BEGIN
360 SELECT
361 DOCS.BORDERO_ID
362 INTO X_BORDERO_NUMBER
363 FROM
364 JL_BR_AR_COLLECTION_DOCS DOCS
365 WHERE DOCS.PAYMENT_SCHEDULE_ID = C_PAYMENT_SCHEDULE_ID
366 AND NVL(DOCS.DOCUMENT_STATUS
367 ,'-') not in ( 'CANCELED' , 'REFUSED' , 'PARTIALLY_RECEIVED' , 'WRITTEN_OFF' );
368 EXCEPTION
369 WHEN OTHERS THEN
370 NULL;
371 END;
372 END IF;
373 RETURN (X_BORDERO_NUMBER);
374 END C_BORDERO_NUMBERFORMULA;
375
376 FUNCTION C_SELECTION_NUMBERFORMULA(SELECTED_FOR_RECEIPT_BATCH_ID IN NUMBER
377 ,C_PAYMENT_SCHEDULE_ID IN NUMBER) RETURN NUMBER IS
378 X_SELECTION_NUMBER NUMBER;
379 BEGIN
380 X_SELECTION_NUMBER := NULL;
381 IF SELECTED_FOR_RECEIPT_BATCH_ID IS NOT NULL THEN
382 BEGIN
383 SELECT
384 BOR.SELECTION_CONTROL_ID
385 INTO X_SELECTION_NUMBER
386 FROM
387 JL_BR_AR_COLLECTION_DOCS DOCS,
388 JL_BR_AR_BORDEROS BOR
389 WHERE DOCS.PAYMENT_SCHEDULE_ID = C_PAYMENT_SCHEDULE_ID
390 AND BOR.BORDERO_ID = DOCS.BORDERO_ID
391 AND NVL(DOCS.DOCUMENT_STATUS
392 ,'-') not in ( 'CANCELED' , 'REFUSED' , 'PARTIALLY_RECEIVED' , 'WRITTEN_OFF' )
393 AND BOR.BORDERO_STATUS not in ( 'CANCELED' , 'WRITE_OFF' , 'REFUSED' );
394 EXCEPTION
395 WHEN OTHERS THEN
396 NULL;
397 END;
398 END IF;
399 RETURN (X_SELECTION_NUMBER);
400 END C_SELECTION_NUMBERFORMULA;
401
402 FUNCTION CF_STATUS_MEANINGFORMULA(C_STATUS IN VARCHAR2) RETURN VARCHAR2 IS
403 L_MEANING VARCHAR2(80);
404 BEGIN
405 L_MEANING := NULL;
406 BEGIN
407 SELECT
408 MEANING
409 INTO L_MEANING
410 FROM
411 AR_LOOKUPS
412 WHERE LOOKUP_CODE = C_STATUS
413 AND LOOKUP_TYPE = 'INVOICE_TRX_STATUS';
414 EXCEPTION
415 WHEN OTHERS THEN
416 NULL;
417 END;
418 RETURN (L_MEANING);
419 END CF_STATUS_MEANINGFORMULA;
420
421 FUNCTION CF_CLASS_MEANINGFORMULA(C_CLASS IN VARCHAR2) RETURN VARCHAR2 IS
422 L_MEANING VARCHAR2(80);
423 BEGIN
424 L_MEANING := NULL;
425 BEGIN
426 SELECT
427 MEANING
428 INTO L_MEANING
429 FROM
430 AR_LOOKUPS
431 WHERE LOOKUP_CODE = C_CLASS
432 AND LOOKUP_TYPE = 'INV/CM/ADJ';
433 EXCEPTION
434 WHEN OTHERS THEN
435 NULL;
436 END;
437 RETURN (L_MEANING);
438 END CF_CLASS_MEANINGFORMULA;
439
440 FUNCTION H_DAYS_LATE_P RETURN NUMBER IS
441 BEGIN
442 RETURN H_DAYS_LATE;
443 END H_DAYS_LATE_P;
444
445 FUNCTION C_CHART_OF_ACCOUNTS_ID_P RETURN VARCHAR2 IS
446 BEGIN
447 RETURN C_CHART_OF_ACCOUNTS_ID;
448 END C_CHART_OF_ACCOUNTS_ID_P;
449
450 FUNCTION C_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
451 BEGIN
452 RETURN C_BASE_CURRENCY_CODE;
453 END C_BASE_CURRENCY_CODE_P;
454
455 FUNCTION C_BASE_PRECISION_P RETURN NUMBER IS
456 BEGIN
457 RETURN C_BASE_PRECISION;
458 END C_BASE_PRECISION_P;
459
460 FUNCTION C_BASE_MIN_ACCT_UNIT_P RETURN NUMBER IS
461 BEGIN
462 RETURN C_BASE_MIN_ACCT_UNIT;
463 END C_BASE_MIN_ACCT_UNIT_P;
464
465 FUNCTION C_BASE_DESCRIPTION_P RETURN VARCHAR2 IS
466 BEGIN
467 RETURN C_BASE_DESCRIPTION;
468 END C_BASE_DESCRIPTION_P;
469
470 FUNCTION C_ORGANISATION_NAME_P RETURN VARCHAR2 IS
471 BEGIN
472 RETURN C_ORGANISATION_NAME;
473 END C_ORGANISATION_NAME_P;
474
475 FUNCTION C_NAME_P RETURN VARCHAR2 IS
476 BEGIN
477 RETURN C_NAME;
478 END C_NAME_P;
479
480 FUNCTION H_CALENDAR_P RETURN VARCHAR2 IS
481 BEGIN
482 RETURN H_CALENDAR;
483 END H_CALENDAR_P;
484
485 FUNCTION H_NONWORKDAY_P RETURN VARCHAR2 IS
486 BEGIN
487 RETURN H_NONWORKDAY;
488 END H_NONWORKDAY_P;
489
490 FUNCTION C_START_INV_NUMBER_PREDICATE_P RETURN VARCHAR2 IS
491 BEGIN
492 RETURN C_START_INV_NUMBER_PREDICATE;
493 END C_START_INV_NUMBER_PREDICATE_P;
494
495 FUNCTION C_END_INV_NUMBER_PREDICATE_P RETURN VARCHAR2 IS
496 BEGIN
497 RETURN C_END_INV_NUMBER_PREDICATE;
498 END C_END_INV_NUMBER_PREDICATE_P;
499
500 FUNCTION C_START_CUST_NUMBER_PREDIC_p RETURN VARCHAR2 IS
501 BEGIN
502 RETURN C_START_CUST_NUMBER_PREDICATE;
503 END C_START_CUST_NUMBER_PREDIC_p;
504
505 FUNCTION C_END_CUST_NUMBER_PREDICATE_P RETURN VARCHAR2 IS
506 BEGIN
507 RETURN C_END_CUST_NUMBER_PREDICATE;
508 END C_END_CUST_NUMBER_PREDICATE_P;
509
510 FUNCTION C_START_CUST_NAME_PREDICATE_P RETURN VARCHAR2 IS
511 BEGIN
512 RETURN C_START_CUST_NAME_PREDICATE;
513 END C_START_CUST_NAME_PREDICATE_P;
514
515 FUNCTION C_END_CUST_NAME_PREDICATE_P RETURN VARCHAR2 IS
516 BEGIN
517 RETURN C_END_CUST_NAME_PREDICATE;
518 END C_END_CUST_NAME_PREDICATE_P;
519
520 PROCEDURE SET_NAME(APPLICATION IN VARCHAR2
521 ,NAME IN VARCHAR2) IS
522 BEGIN
523 /* STPROC.INIT('begin FND_MESSAGE.SET_NAME(:APPLICATION, :NAME); end;');
524 STPROC.BIND_I(APPLICATION);
525 STPROC.BIND_I(NAME);
526 STPROC.EXECUTE;*/
527 FND_MESSAGE.SET_NAME(APPLICATION,NAME);
528 END SET_NAME;
529
530 PROCEDURE SET_TOKEN(TOKEN IN VARCHAR2
531 ,VALUE IN VARCHAR2
532 ,TRANSLATE IN BOOLEAN) IS
533 BEGIN
534 /* STPROC.INIT('declare TRANSLATE BOOLEAN; begin TRANSLATE := sys.diutil.int_to_bool(:TRANSLATE); FND_MESSAGE.SET_TOKEN(:TOKEN, :VALUE, TRANSLATE); end;');
535 STPROC.BIND_I(TRANSLATE);
536 STPROC.BIND_I(TOKEN);
537 STPROC.BIND_I(VALUE);
538 STPROC.EXECUTE;*/null;
539 END SET_TOKEN;
540
541 PROCEDURE RETRIEVE(MSGOUT OUT NOCOPY VARCHAR2) IS
542 BEGIN
543 /* STPROC.INIT('begin FND_MESSAGE.RETRIEVE(:MSGOUT); end;');
544 STPROC.BIND_O(MSGOUT);
545 STPROC.EXECUTE;
546 STPROC.RETRIEVE(1
547 ,MSGOUT);*/null;
548 END RETRIEVE;
549
550 PROCEDURE CLEAR IS
551 BEGIN
552 /* STPROC.INIT('begin FND_MESSAGE.CLEAR; end;');
553 STPROC.EXECUTE;*/null;
554 END CLEAR;
555
556 FUNCTION GET_STRING(APPIN IN VARCHAR2
557 ,NAMEIN IN VARCHAR2) RETURN VARCHAR2 IS
558 X0 VARCHAR2(2000);
559 BEGIN
560 /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET_STRING(:APPIN, :NAMEIN); end;');
561 STPROC.BIND_O(X0);
562 STPROC.BIND_I(APPIN);
563 STPROC.BIND_I(NAMEIN);
564 STPROC.EXECUTE;
565 STPROC.RETRIEVE(1
566 ,X0);*/null;
567 RETURN X0;
568 END GET_STRING;
569
570 FUNCTION GET RETURN VARCHAR2 IS
571 X0 VARCHAR2(2000);
572 BEGIN
573 /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET; end;');
574 STPROC.BIND_O(X0);
575 STPROC.EXECUTE;
576 STPROC.RETRIEVE(1
577 ,X0);*/
578 X0 := FND_MESSAGE.GET;
579 RETURN X0;
580 END GET;
581
582 FUNCTION GET_ENCODED RETURN VARCHAR2 IS
583 X0 VARCHAR2(2000);
584 BEGIN
585 /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET_ENCODED; end;');
586 STPROC.BIND_O(X0);
587 STPROC.EXECUTE;
588 STPROC.RETRIEVE(1
589 ,X0);*/
590 RETURN X0;
591 END GET_ENCODED;
592
593 PROCEDURE PARSE_ENCODED(ENCODED_MESSAGE IN VARCHAR2
594 ,APP_SHORT_NAME OUT NOCOPY VARCHAR2
595 ,MESSAGE_NAME OUT NOCOPY VARCHAR2) IS
596 BEGIN
597 /* STPROC.INIT('begin FND_MESSAGE.PARSE_ENCODED(:ENCODED_MESSAGE, :APP_SHORT_NAME, :MESSAGE_NAME); end;');
598 STPROC.BIND_I(ENCODED_MESSAGE);
599 STPROC.BIND_O(APP_SHORT_NAME);
600 STPROC.BIND_O(MESSAGE_NAME);
601 STPROC.EXECUTE;
602 STPROC.RETRIEVE(2
603 ,APP_SHORT_NAME);
604 STPROC.RETRIEVE(3
605 ,MESSAGE_NAME);*/null;
606 END PARSE_ENCODED;
607
608 PROCEDURE SET_ENCODED(ENCODED_MESSAGE IN VARCHAR2) IS
609 BEGIN
610 /* STPROC.INIT('begin FND_MESSAGE.SET_ENCODED(:ENCODED_MESSAGE); end;');
611 STPROC.BIND_I(ENCODED_MESSAGE);
612 STPROC.EXECUTE;*/null;
613 END SET_ENCODED;
614
615 PROCEDURE RAISE_ERROR IS
616 BEGIN
617 /* STPROC.INIT('begin FND_MESSAGE.RAISE_ERROR; end;');
618 STPROC.EXECUTE;*/null;
619 END RAISE_ERROR;
620
621 PROCEDURE JL_BR_INTEREST(X_INTEREST_TYPE IN VARCHAR2
622 ,X_INTEREST_RATE_AMOUNT IN NUMBER
623 ,X_PERIOD_DAYS IN NUMBER
624 ,X_INTEREST_FORMULA IN VARCHAR2
625 ,X_GRACE_DAYS IN NUMBER
626 ,X_PENALTY_TYPE IN VARCHAR2
627 ,X_PENALTY_RATE_AMOUNT IN NUMBER
628 ,X_DUE_DATE IN DATE
629 ,X_PAYMENT_DATE IN DATE
630 ,X_INVOICE_AMOUNT IN NUMBER
631 ,X_JLBR_CALENDAR IN VARCHAR2
632 ,X_JLBR_LOCAL_HOLIDAY IN VARCHAR2
633 ,X_JLBR_ACTION_NON_WORKDAY IN VARCHAR2
634 ,X_INTEREST_CALCULATED IN OUT NOCOPY NUMBER
635 ,X_DAYS_LATE IN OUT NOCOPY NUMBER
636 ,X_EXIT_CODE OUT NOCOPY NUMBER) IS
637 BEGIN
638 /*STPROC.INIT('begin JL_BR_INTEREST_HANDLING.JL_BR_INTEREST(:X_INTEREST_TYPE, :X_INTEREST_RATE_AMOUNT,
639 :X_PERIOD_DAYS, :X_INTEREST_FORMULA, :X_GRACE_DAYS, :X_PENALTY_TYPE, :X_PENALTY_RATE_AMOUNT, :X_DUE_DATE,
640 :X_PAYMENT_DATE, :X_INVOICE_AMOUNT, :X_JLBR_CALENDAR, :X_JLBR_LOCAL_HOLIDAY, :X_JLBR_ACTION_NON_WORKDAY,
641 :X_INTEREST_CALCULATED, :X_DAYS_LATE, :X_EXIT_CODE); end;');
642 STPROC.BIND_I(X_INTEREST_TYPE);
643 STPROC.BIND_I(X_INTEREST_RATE_AMOUNT);
644 STPROC.BIND_I(X_PERIOD_DAYS);
645 STPROC.BIND_I(X_INTEREST_FORMULA);
646 STPROC.BIND_I(X_GRACE_DAYS);
647 STPROC.BIND_I(X_PENALTY_TYPE);
648 STPROC.BIND_I(X_PENALTY_RATE_AMOUNT);
649 STPROC.BIND_I(X_DUE_DATE);
650 STPROC.BIND_I(X_PAYMENT_DATE);
651 STPROC.BIND_I(X_INVOICE_AMOUNT);
652 STPROC.BIND_I(X_JLBR_CALENDAR);
653 STPROC.BIND_I(X_JLBR_LOCAL_HOLIDAY);
654 STPROC.BIND_I(X_JLBR_ACTION_NON_WORKDAY);
655 STPROC.BIND_IO(X_INTEREST_CALCULATED);
656 STPROC.BIND_IO(X_DAYS_LATE);
657 STPROC.BIND_O(X_EXIT_CODE);
658 STPROC.EXECUTE;
659 STPROC.RETRIEVE(14
660 ,X_INTEREST_CALCULATED);
661 STPROC.RETRIEVE(15
662 ,X_DAYS_LATE);
663 STPROC.RETRIEVE(16
664 ,X_EXIT_CODE);*/
665 JL_BR_INTEREST_HANDLING.JL_BR_INTEREST(X_INTEREST_TYPE,X_INTEREST_RATE_AMOUNT,X_PERIOD_DAYS
666 ,X_INTEREST_FORMULA,X_GRACE_DAYS,X_PENALTY_TYPE,X_PENALTY_RATE_AMOUNT,X_DUE_DATE,X_PAYMENT_DATE
667 ,X_INVOICE_AMOUNT,X_JLBR_CALENDAR,X_JLBR_LOCAL_HOLIDAY,X_JLBR_ACTION_NON_WORKDAY,X_INTEREST_CALCULATED
668 ,X_DAYS_LATE,X_EXIT_CODE);
669 END JL_BR_INTEREST;
670
671 END JL_JLBRRCAD_XMLP_PKG;
672
673
674