1 PACKAGE BODY JG_JGZZRDLR_XMLP_PKG AS
2 /* $Header: JGZZRDLRB.pls 120.0 2008/01/08 09:29:41 vjaganat noship $ */
3 PROCEDURE FORMAT_CURRENCY(CURR_CODE IN NUMBER
4 ,FLD_NAME IN VARCHAR2
5 ,RAW_NUM IN VARCHAR2
6 ,CURRENCY_CODE IN VARCHAR2) IS
7 MIN_PRECISION NUMBER;
8 ROUND_AMOUNT NUMBER;
9
10 BEGIN
11 /*SRW.REFERENCE(:CURRENCY_CODE);*/
12
13 SELECT NVL(PRECISION,2)
14 INTO MIN_PRECISION
15 FROM FND_CURRENCIES
16 WHERE CURRENCY_CODE = CURR_CODE;
17
18 ROUND_AMOUNT := ROUND(RAW_NUM,MIN_PRECISION);
19
20
21
22 /*SRW.USER_EXIT('FND FORMAT_CURRENCY
23 CODE ="'||CURR_CODE||'"
24 DISPLAY_WIDTH="18"
25 AMOUNT="'||TO_CHAR(ROUND_AMOUNT)||'"
26 DISPLAY=":'||FLD_NAME||'"
27 ');*/
28
29 END FORMAT_CURRENCY;
30
31 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
32 BEGIN
33 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
34 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
35 DECLARE
36 COAID NUMBER;
37 SOBNAME VARCHAR2(30);
38 FUNCTCURR VARCHAR2(15);
39 ERRBUF VARCHAR2(132);
40 ERRBUF2 VARCHAR2(132);
41 DATE_FORMAT VARCHAR2(30);
42 BEGIN
43 P_SET_OF_BOOKS_ID := FND_PROFILE.VALUE('GL_SET_OF_BKS_ID');
44 JG_GET_SET_OF_BOOKS_INFO(P_SET_OF_BOOKS_ID
45 ,COAID
46 ,SOBNAME
47 ,FUNCTCURR
48 ,ERRBUF);
49 IF (ERRBUF IS NOT NULL) THEN
50 SET_NAME('JE'
51 ,'GL_PLL_ROUTINE_ERROR');
52 ERRBUF2 := GET;
53 /*SRW.MESSAGE('00'
54 ,ERRBUF2)*/NULL;
55 /*SRW.MESSAGE('00'
56 ,ERRBUF)*/NULL;
57 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
58 END IF;
59 C_CURRENCY_CODE := SUBSTR(FUNCTCURR
60 ,1
61 ,3);
62 C_STRUCT_NUM := COAID;
63 C_SET_OF_BOOKS_NAME := SUBSTR(SOBNAME
64 ,1
65 ,30);
66 IF UPPER(P_INCL_RAR) = 'Y' THEN
67 P_RISKVAR1 := 'rps.amount_due_original';
68 P_RISKVAR2 := 'nvl(ara.amount_applied,0)';
69 P_RISKVAR3 := 'nvl(rps.amount_due_remaining, 0) * -1';
70 ELSE
71 P_RISKVAR1 := '0';
72 P_RISKVAR2 := '0';
73 P_RISKVAR3 := '0';
74 END IF;
75 SELECT
76 MEANING
77 INTO C_RAR_YES_NO
78 FROM
79 FND_LOOKUPS
80 WHERE LOOKUP_TYPE = 'YES_NO'
81 AND LOOKUP_CODE = P_INCL_RAR;
82 P_DATE_TO := FND_DATE.CANONICAL_TO_DATE(P_AS_OF_DATE);
83 IF P_DEBUG_SWITCH = 'Y' THEN
84 /*SRW.MESSAGE('110'
85 ,'As of date ' || P_AS_OF_DATE)*/NULL;
86 /*SRW.MESSAGE('111'
87 ,'Date converted ' || P_AS_OF_DATE1)*/NULL;
88 END IF;
89 DATE_FORMAT := 'DD-MON-YY';
90 P_AS_OF_DATE1 := TO_DATE(P_DATE_TO,DATE_FORMAT) ;
91 IF TRUNC(P_DATE_TO) > SYSDATE THEN
92 P_DATE_TO := SYSDATE;
93 END IF;
94 END;
95 RETURN (TRUE);
96 END BEFOREREPORT;
97
98 FUNCTION C_PRT_TOT_NET_FOREIGNFORMULA(C_TOT_NET_FOREIGN IN NUMBER
99 ,CURRENCY_CODE IN VARCHAR2
100 ,C_PRT_TOT_NET_FOREIGN IN VARCHAR2) RETURN VARCHAR2 IS
101 BEGIN
102 /*SRW.REFERENCE(C_TOT_NET_FOREIGN)*/NULL;
103 /* FORMAT_CURRENCY(FLD_NAME
104 ,RAW_NUM
105 ,CURRENCY_CODE);*/
106 RETURN (C_PRT_TOT_NET_FOREIGN);
107 END C_PRT_TOT_NET_FOREIGNFORMULA;
108
109 FUNCTION C_PRT_TOT_NET_FOR_REMFORMULA(C_TOT_NET_FOR_REM IN NUMBER
110 ,CURRENCY_CODE IN VARCHAR2
111 ,C_PRT_TOT_NET_FOR_REM IN VARCHAR2) RETURN VARCHAR2 IS
112 BEGIN
113 /*SRW.REFERENCE(C_TOT_NET_FOR_REM)*/NULL;
114 /*FORMAT_CURRENCY(FLD_NAME
115 ,RAW_NUM
116 ,CURRENCY_CODE);*/
117 RETURN (C_PRT_TOT_NET_FOR_REM);
118 END C_PRT_TOT_NET_FOR_REMFORMULA;
119
120 FUNCTION C_PRT_TOT_O_FOREIGNFORMULA(C_TOT_O_FOREIGN IN NUMBER
121 ,CURRENCY_CODE IN VARCHAR2
122 ,C_PRT_TOT_O_FOREIGN IN VARCHAR2) RETURN VARCHAR2 IS
123 BEGIN
124 /*SRW.REFERENCE(C_TOT_O_FOREIGN)*/NULL;
125 /*FORMAT_CURRENCY(FLD_NAME
126 ,RAW_NUM
127 ,CURRENCY_CODE);*/
128 RETURN (C_PRT_TOT_O_FOREIGN);
129 END C_PRT_TOT_O_FOREIGNFORMULA;
130
131 FUNCTION C_PRT_TOT_R_FOREIGNFORMULA(C_TOT_R_FOREIGN IN NUMBER
132 ,CURRENCY_CODE IN VARCHAR2
133 ,C_PRT_TOT_R_FOREIGN IN VARCHAR2) RETURN VARCHAR2 IS
134 BEGIN
135 /*SRW.REFERENCE(C_TOT_R_FOREIGN)*/NULL;
136 /* FORMAT_CURRENCY(FLD_NAME
137 ,RAW_NUM
138 ,CURRENCY_CODE);*/
139 RETURN (C_PRT_TOT_R_FOREIGN);
140 END C_PRT_TOT_R_FOREIGNFORMULA;
141
142 FUNCTION C_PRT_ORIG_FRGN_AMOUNTFORMULA(ORIGINAL_FRGN_AMOUNT IN NUMBER
143 ,CURRENCY_CODE IN VARCHAR2
144 ,C_PRT_ORIG_FRGN_AMOUNT IN VARCHAR2) RETURN VARCHAR2 IS
145 BEGIN
146 /*SRW.REFERENCE(ORIGINAL_FRGN_AMOUNT)*/NULL;
147 /*FORMAT_CURRENCY(FLD_NAME
148 ,RAW_NUM
149 ,CURRENCY_CODE);*/
150 RETURN (C_PRT_ORIG_FRGN_AMOUNT);
151 END C_PRT_ORIG_FRGN_AMOUNTFORMULA;
152
153 FUNCTION C_PRT_ORIG_FUNC_AMOUNTFORMULA(ORIGINAL_FUNC_AMOUNT IN NUMBER
154 ,C_PRT_ORIG_FUNC_AMOUNT IN VARCHAR2
155 ,CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
156 BEGIN
157 /*SRW.REFERENCE(ORIGINAL_FUNC_AMOUNT)*/NULL;
158 /*FORMAT_CURRENCY(FLD_NAME
159 ,RAW_NUM
160 ,CURRENCY_CODE);*/
161 RETURN (C_PRT_ORIG_FUNC_AMOUNT);
162 END C_PRT_ORIG_FUNC_AMOUNTFORMULA;
163
164 FUNCTION C_PRT_FRGN_AMT_DUE_REMFORMULA(ORG_CUR_AMT_REM IN NUMBER
165 ,CURRENCY_CODE IN VARCHAR2
166 ,C_PRT_FRGN_AMT_DUE_REM IN VARCHAR2) RETURN VARCHAR2 IS
167 BEGIN
168 /*SRW.REFERENCE(ORG_CUR_AMT_REM)*/NULL;
169 /*FORMAT_CURRENCY(FLD_NAME
170 ,RAW_NUM
171 ,CURRENCY_CODE);*/
172 RETURN (C_PRT_FRGN_AMT_DUE_REM);
173 END C_PRT_FRGN_AMT_DUE_REMFORMULA;
174
175 FUNCTION C_PRT_FUNC_AMT_DUE_REMFORMULA(FUN_CUR_AMT_REM IN NUMBER
176 ,C_PRT_FUNC_AMT_DUE_REM IN VARCHAR2
177 ,CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
178 BEGIN
179 /*SRW.REFERENCE(FUN_CUR_AMT_REM)*/NULL;
180 /*FORMAT_CURRENCY(FLD_NAME
181 ,RAW_NUM
182 ,CURRENCY_CODE);*/
183 RETURN (C_PRT_FUNC_AMT_DUE_REM);
184 END C_PRT_FUNC_AMT_DUE_REMFORMULA;
185
186 FUNCTION C_PRT_TOT_TAX_FUNCFORMULA(C_TOT_TAX_FUNC IN NUMBER
187 ,C_PRT_TOT_TAX_FUNC IN VARCHAR2
188 ,CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
189 BEGIN
190 /*SRW.REFERENCE(C_TOT_TAX_FUNC)*/NULL;
191 /*FORMAT_CURRENCY(FLD_NAME
192 ,RAW_NUM
193 ,CURRENCY_CODE);*/
194 RETURN (C_PRT_TOT_TAX_FUNC);
195 END C_PRT_TOT_TAX_FUNCFORMULA;
196
197 FUNCTION C_PRT_TOT_TAX_FUNC_REMFORMULA(C_TOT_TAX_FUNC_REM IN NUMBER
198 ,C_PRT_TOT_TAX_FUNC_REM IN VARCHAR2
199 ,CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
200 BEGIN
201 /*SRW.REFERENCE(C_TOT_TAX_FUNC_REM)*/NULL;
202 /* FORMAT_CURRENCY(FLD_NAME
203 ,RAW_NUM
204 ,CURRENCY_CODE);*/
205 RETURN (C_PRT_TOT_TAX_FUNC_REM);
206 END C_PRT_TOT_TAX_FUNC_REMFORMULA;
207
208 FUNCTION C_PRT_TOT_SITE_FUNCFORMULA(C_TOT_SITE_FUNC IN NUMBER
209 ,C_PRT_TOT_SITE_FUNC IN VARCHAR2
210 ,CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
211 BEGIN
212 /*SRW.REFERENCE(C_TOT_SITE_FUNC)*/NULL;
213 /*FORMAT_CURRENCY(FLD_NAME
214 ,RAW_NUM
215 ,CURRENCY_CODE);*/
216 RETURN (C_PRT_TOT_SITE_FUNC);
217 END C_PRT_TOT_SITE_FUNCFORMULA;
218
219 FUNCTION C_PRT_TOT_SITE_FUNC_REMFORMULA(C_TOT_SITE_FUNC_REM IN NUMBER
220 ,C_PRT_TOT_SITE_FUNC_REM IN VARCHAR2
221 ,CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
222 BEGIN
223 /*SRW.REFERENCE(C_TOT_SITE_FUNC_REM)*/NULL;
224 /*FORMAT_CURRENCY(FLD_NAME
225 ,RAW_NUM
226 ,CURRENCY_CODE);*/
227 RETURN (C_PRT_TOT_SITE_FUNC_REM);
228 END C_PRT_TOT_SITE_FUNC_REMFORMULA;
229
230 FUNCTION AFTERREPORT RETURN BOOLEAN IS
231 BEGIN
232 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
233 RETURN (TRUE);
234 END AFTERREPORT;
235
236 FUNCTION C_PRT_TOT_CUR_FUNCFORMULA(C_TOT_CUR_FUNC IN NUMBER
237 ,C_PRT_TOT_CUR_FUNC IN VARCHAR2
238 ,CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
239 BEGIN
240 /*SRW.REFERENCE(C_TOT_CUR_FUNC)*/NULL;
241 /*FORMAT_CURRENCY(FLD_NAME
242 ,RAW_NUM
243 ,CURRENCY_CODE);*/
244 RETURN (C_PRT_TOT_CUR_FUNC);
245 END C_PRT_TOT_CUR_FUNCFORMULA;
246
247 FUNCTION C_PRT_TOT_CUR_FUNC_REMFORMULA(C_TOT_CUR_FUNC_REM IN NUMBER
248 ,C_PRT_TOT_CUR_FUNC_REM IN VARCHAR2
249 ,CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
250 BEGIN
251 /*SRW.REFERENCE(C_TOT_CUR_FUNC_REM)*/NULL;
252 /*FORMAT_CURRENCY(FLD_NAME
253 ,RAW_NUM
254 ,CURRENCY_CODE);*/
255 RETURN (C_PRT_TOT_CUR_FUNC_REM);
256 END C_PRT_TOT_CUR_FUNC_REMFORMULA;
257
258 FUNCTION C_OA_PRT_ORIG_FRGN_AMOUNTFORMU(ORIGINAL_FRGN_AMOUNT_OA IN NUMBER
259 ,CURRENCY_CODE_OA IN VARCHAR2
260 ,C_OA_PRT_ORIG_FRGN_AMOUNT IN VARCHAR2
261 ,CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
262 BEGIN
263 /*SRW.REFERENCE(ORIGINAL_FRGN_AMOUNT_OA)*/NULL;
264 /*FORMAT_CURRENCY(FLD_NAME
265 ,RAW_NUM
266 ,CURRENCY_CODE);*/
267 RETURN (C_OA_PRT_ORIG_FRGN_AMOUNT);
268 END C_OA_PRT_ORIG_FRGN_AMOUNTFORMU;
269
270 FUNCTION C_OA_PRT_FRGN_AMT_DUE_REMFORMU(AMOUNT_FRGN_DUE_REM_OA IN NUMBER
271 ,CURRENCY_CODE_OA IN VARCHAR2
272 ,C_OA_PRT_FRGN_AMT_DUE_REM IN VARCHAR2
273 ,CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
274 BEGIN
275 /*SRW.REFERENCE(AMOUNT_FRGN_DUE_REM_OA)*/NULL;
276 /*FORMAT_CURRENCY(FLD_NAME
277 ,RAW_NUM
278 ,CURRENCY_CODE);*/
279 RETURN (C_OA_PRT_FRGN_AMT_DUE_REM);
280 END C_OA_PRT_FRGN_AMT_DUE_REMFORMU;
281
282 FUNCTION C_OA_PRT_ORIG_FUNC_AMOUNTFORMU(ORIGINAL_FUNC_AMOUNT_OA IN NUMBER
283 ,C_OA_PRT_ORIG_FUNC_AMOUNT IN VARCHAR2
284 ,CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
285 BEGIN
286 /*SRW.REFERENCE(ORIGINAL_FUNC_AMOUNT_OA)*/NULL;
287 /*SRW.REFERENCE(C_CURRENCY_CODE)*/NULL;
288 /*FORMAT_CURRENCY(FLD_NAME
289 ,RAW_NUM
290 ,CURRENCY_CODE);*/
291 RETURN (C_OA_PRT_ORIG_FUNC_AMOUNT);
292 END C_OA_PRT_ORIG_FUNC_AMOUNTFORMU;
293
294 FUNCTION C_OA_PRT_FUNC_AMT_DUE_REMFORMU(AMOUNT_FUNC_DUE_REM_OA IN NUMBER
295 ,C_OA_PRT_FUNC_AMT_DUE_REM IN VARCHAR2
296 ,CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
297 BEGIN
298 /*SRW.REFERENCE(AMOUNT_FUNC_DUE_REM_OA)*/NULL;
299 /*SRW.REFERENCE(C_CURRENCY_CODE)*/NULL;
300 /*FORMAT_CURRENCY(FLD_NAME
301 ,RAW_NUM
302 ,CURRENCY_CODE);*/
303 RETURN (C_OA_PRT_FUNC_AMT_DUE_REM);
304 END C_OA_PRT_FUNC_AMT_DUE_REMFORMU;
305
306 FUNCTION C_DISPLAY_TOTAL_ORIGINALFORMUL(C_OA_TOTAL_ORIGINAL IN NUMBER
307 ,C_DISPLAY_TOTAL_ORIGINAL IN VARCHAR2
308 ,CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
309 BEGIN
310 BEGIN
311 /*SRW.REFERENCE(C_OA_TOTAL_ORIGINAL)*/NULL;
312 /*FORMAT_CURRENCY(FLD_NAME
313 ,RAW_NUM
314 ,CURRENCY_CODE);*/
315 RETURN (C_DISPLAY_TOTAL_ORIGINAL);
316 END;
317 END C_DISPLAY_TOTAL_ORIGINALFORMUL;
318
319 FUNCTION C_DISPLAY_TOTAL_REMAINFORMULA(C_OA_TOTAL_REMAIN IN NUMBER
320 ,C_DISPLAY_TOTAL_REMAIN IN VARCHAR2
321 ,CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
322 BEGIN
323 /*SRW.REFERENCE(C_OA_TOTAL_REMAIN)*/NULL;
324 /*FORMAT_CURRENCY(FLD_NAME
325 ,RAW_NUM
326 ,CURRENCY_CODE);*/
327 RETURN (C_DISPLAY_TOTAL_REMAIN);
328 END C_DISPLAY_TOTAL_REMAINFORMULA;
329
330 FUNCTION CF_INVOICE_DATEFORMULA(INVOICE_DATE IN DATE) RETURN CHAR IS
331 BEGIN
332 RETURN FND_DATE.DATE_TO_CHARDATE(INVOICE_DATE);
333 END CF_INVOICE_DATEFORMULA;
334
335 FUNCTION CF_DATE_TIMEFORMULA RETURN CHAR IS
336 BEGIN
337 RETURN FND_DATE.DATE_TO_CHARDT(SYSDATE);
338 END CF_DATE_TIMEFORMULA;
339
340 FUNCTION C_DUE_DATEFORMULA(DUE_DATE IN DATE) RETURN CHAR IS
341 BEGIN
342 RETURN FND_DATE.DATE_TO_CHARDATE(DUE_DATE);
343 END C_DUE_DATEFORMULA;
344
345 FUNCTION C_PRT_TOT_NET_FUNCOFORMULA(C_TOT_NET_FUNCO IN NUMBER
346 ,C_PRT_TOT_NET_FUNCO IN VARCHAR2
347 ,CURRENCY_CODE IN VARCHAR2) RETURN CHAR IS
348 BEGIN
349 /*SRW.REFERENCE(C_TOT_NET_FUNCO)*/NULL;
350 /*FORMAT_CURRENCY(FLD_NAME
351 ,RAW_NUM
352 ,CURRENCY_CODE);*/
353 RETURN (C_PRT_TOT_NET_FUNCO);
354 END C_PRT_TOT_NET_FUNCOFORMULA;
355
356 FUNCTION C_PRT_TOT_NET_FUNCRFORMULA(C_TOT_NET_FUNCR IN NUMBER
357 ,C_PRT_TOT_NET_FUNCR IN VARCHAR2
358 ,CURRENCY_CODE IN VARCHAR2) RETURN CHAR IS
359 BEGIN
360 /*FORMAT_CURRENCY(FLD_NAME
361 ,RAW_NUM
362 ,CURRENCY_CODE);*/
363 RETURN (C_PRT_TOT_NET_FUNCR);
364 END C_PRT_TOT_NET_FUNCRFORMULA;
365
366 FUNCTION C_GRAND_TOTAL_ORIGFORMULA(C_TOT_NET_FUNCR IN NUMBER
367 ,C_GRAND_ORIG1 IN NUMBER) RETURN NUMBER IS
368 BEGIN
369 RETURN (NVL(C_TOT_NET_FUNCR
370 ,0) - (-1 * NVL(C_GRAND_ORIG1
371 ,0)));
372 END C_GRAND_TOTAL_ORIGFORMULA;
373
374 FUNCTION C_PRT_GRAND_TOT_ORIGFORMULA(C_GRAND_TOTAL_ORIG IN NUMBER
375 ,C_PRT_GRAND_TOT_ORIG IN VARCHAR2
376 ,CURRENCY_CODE IN VARCHAR2) RETURN CHAR IS
377 BEGIN
378 /*SRW.REFERENCE(C_GRAND_TOTAL_ORIG)*/NULL;
379 /*FORMAT_CURRENCY(FLD_NAME
380 ,RAW_NUM
381 ,CURRENCY_CODE);*/
382 RETURN (C_PRT_GRAND_TOT_ORIG);
383 END C_PRT_GRAND_TOT_ORIGFORMULA;
384
385 FUNCTION C_PRT_GRAND_TOT_REMAINFORMULA(C_GRAND_TOT_REMAIN IN NUMBER
386 ,C_PRT_GRAND_TOT_REMAIN IN VARCHAR2
387 ,CURRENCY_CODE IN VARCHAR2) RETURN CHAR IS
388 BEGIN
389 /*SRW.REFERENCE(C_GRAND_TOT_REMAIN)*/NULL;
390 /*FORMAT_CURRENCY(FLD_NAME
391 ,RAW_NUM
392 ,CURRENCY_CODE);*/
393 RETURN (C_PRT_GRAND_TOT_REMAIN);
394 END C_PRT_GRAND_TOT_REMAINFORMULA;
395
396 FUNCTION C_GRAND_TOT_REMAINFORMULA(C_TOT_NET_FUNCO IN NUMBER
397 ,C_GRAND_REMAIN1 IN NUMBER) RETURN NUMBER IS
398 BEGIN
399 RETURN (NVL(C_TOT_NET_FUNCO
400 ,0) - (-1 * NVL(C_GRAND_REMAIN1
401 ,0)));
402 END C_GRAND_TOT_REMAINFORMULA;
403
404 FUNCTION CF_TEXTFORMULA(PARAGRAPH_TEXT IN VARCHAR2
405 ,CF_AMOUNT IN VARCHAR2) RETURN VARCHAR IS
406 L_BUFFER VARCHAR2(2000);
407 BEGIN
408 L_BUFFER := PARAGRAPH_TEXT;
409 L_BUFFER := REPLACE(L_BUFFER
410 ,' F_TOTAL_BALANCE'
411 ,'(' || C_CURRENCY_CODE || ') ' || LTRIM(RTRIM(CF_AMOUNT)));
412 L_BUFFER := REPLACE(L_BUFFER
413 ,' F_AS_OF_DATE'
414 ,TO_CHAR(P_DATE_TO
415 ,'DD-MON-YYYY'));
416 RETURN (L_BUFFER);
417 END CF_TEXTFORMULA;
418
419 FUNCTION CF_DUNNING_NAMEFORMULA RETURN CHAR IS
420 L_DUNNING_NAME VARCHAR2(100);
421 BEGIN
422 SELECT
423 LETTER_NAME
424 INTO L_DUNNING_NAME
425 FROM
426 AR_DUNNING_LETTERS
427 WHERE DUNNING_LETTER_ID = P_DUNNING_LETTER_ID;
428 RETURN (L_DUNNING_NAME);
429 END CF_DUNNING_NAMEFORMULA;
430
431 FUNCTION CF_AS_OF_DATEFORMULA RETURN CHAR IS
432 BEGIN
433 RETURN FND_DATE.DATE_TO_CHARDATE(P_AS_OF_DATE1);
434 END CF_AS_OF_DATEFORMULA;
435
436 FUNCTION CF_AMOUNTFORMULA(C_TOT_SITE_FUNC_REM IN NUMBER
437 ,CF_AMOUNT IN VARCHAR2
438 ,CURRENCY_CODE IN VARCHAR2) RETURN CHAR IS
439 BEGIN
440 /*SRW.REFERENCE(C_TOT_SITE_FUNC_REM)*/NULL;
441 /*FORMAT_CURRENCY(FLD_NAME
442 ,RAW_NUM
443 ,CURRENCY_CODE);*/
444 RETURN (CF_AMOUNT);
445 END CF_AMOUNTFORMULA;
446
447 FUNCTION APPLIED_AMOUNTFORMULA(TRX_ID IN NUMBER) RETURN NUMBER IS
448 L_AMOUNT NUMBER := 0;
449 BEGIN
450 BEGIN
451 IF TRX_ID <> -1 THEN
452 SELECT
453 NVL(SUM(ARA.AMOUNT_APPLIED)
454 ,0)
455 INTO L_AMOUNT
456 FROM
457 AR_RECEIVABLE_APPLICATIONS ARA,
458 AR_CASH_RECEIPTS RPT,
459 AR_CASH_RECEIPT_HISTORY RTPH
460 WHERE ARA.APPLIED_CUSTOMER_TRX_ID = TRX_ID
461 AND ARA.CASH_RECEIPT_ID = RPT.CASH_RECEIPT_ID
462 AND RPT.CASH_RECEIPT_ID = RTPH.CASH_RECEIPT_ID
463 AND RTPH.CURRENT_RECORD_FLAG = 'Y'
464 AND ( ( RTPH.TRX_DATE > '''' || P_AS_OF_DATE1 || ''''
465 AND RTPH.STATUS = 'CLEARED' )
466 OR RTPH.STATUS <> 'CLEARED'
467 OR ( ARA.APPLY_DATE > '''' || P_AS_OF_DATE1 || ''''
468 AND RTPH.STATUS = 'CLEARED' ) );
469 END IF;
470 IF P_DEBUG_SWITCH = 'Y' THEN
471 /*SRW.MESSAGE('333'
472 ,'Applied Amount ' || L_AMOUNT)*/NULL;
473 END IF;
474 EXCEPTION
475 WHEN OTHERS THEN
476 NULL;
477 END;
478 RETURN L_AMOUNT;
479 END APPLIED_AMOUNTFORMULA;
480
481 FUNCTION ORG_CUR_AMT_REMFORMULA(AMOUNT_FRGN_DUE_REM IN NUMBER
482 ,APPLIED_AMOUNT IN NUMBER) RETURN NUMBER IS
483 BEGIN
484 RETURN (AMOUNT_FRGN_DUE_REM + APPLIED_AMOUNT);
485 END ORG_CUR_AMT_REMFORMULA;
486
487 FUNCTION FUN_CUR_AMT_REMFORMULA(EXCHANGE_RATE IN NUMBER
488 ,ORG_CUR_AMT_REM IN NUMBER
489 ,AMOUNT_FUNC_DUE_REM IN NUMBER) RETURN NUMBER IS
490 BEGIN
491 IF EXCHANGE_RATE <> -1 THEN
492 RETURN ORG_CUR_AMT_REM * EXCHANGE_RATE;
493 ELSE
494 RETURN AMOUNT_FUNC_DUE_REM;
495 END IF;
496 END FUN_CUR_AMT_REMFORMULA;
497
498 FUNCTION ORG_CUR_AMOUNTFORMULA(ORG_CUR_AMT_REM IN NUMBER
499 ,ORIGINAL_FRGN_AMOUNT IN NUMBER) RETURN NUMBER IS
500 BEGIN
501 IF ORG_CUR_AMT_REM = 0 THEN
502 RETURN 0;
503 ELSE
504 RETURN ORIGINAL_FRGN_AMOUNT;
505 END IF;
506 END ORG_CUR_AMOUNTFORMULA;
507
508 FUNCTION FUN_CUR_AMOUNTFORMULA(ORG_CUR_AMT_REM IN NUMBER
509 ,ORIGINAL_FUNC_AMOUNT IN NUMBER) RETURN NUMBER IS
510 BEGIN
511 IF ORG_CUR_AMT_REM = 0 THEN
512 RETURN 0;
513 ELSE
514 RETURN ORIGINAL_FUNC_AMOUNT;
515 END IF;
516 END FUN_CUR_AMOUNTFORMULA;
517
518 FUNCTION C_STRUCT_NUM_P RETURN VARCHAR2 IS
519 BEGIN
520 RETURN C_STRUCT_NUM;
521 END C_STRUCT_NUM_P;
522
523 FUNCTION C_SET_OF_BOOKS_NAME_P RETURN VARCHAR2 IS
524 BEGIN
525 RETURN C_SET_OF_BOOKS_NAME;
526 END C_SET_OF_BOOKS_NAME_P;
527
528 FUNCTION C_CURRENCY_CODE_P RETURN VARCHAR2 IS
529 BEGIN
530 RETURN C_CURRENCY_CODE;
531 END C_CURRENCY_CODE_P;
532
533 FUNCTION C_RAR_YES_NO_P RETURN VARCHAR2 IS
534 BEGIN
535 RETURN C_RAR_YES_NO;
536 END C_RAR_YES_NO_P;
537
538 PROCEDURE JG_GET_SET_OF_BOOKS_INFO(SOBID IN NUMBER
539 ,COAID OUT NOCOPY NUMBER
540 ,SOBNAME OUT NOCOPY VARCHAR2
541 ,FUNC_CURR OUT NOCOPY VARCHAR2
542 ,ERRBUF OUT NOCOPY VARCHAR2) IS
543 BEGIN
544 /*STPROC.INIT('begin JG_INFO.JG_GET_SET_OF_BOOKS_INFO(:SOBID, :COAID, :SOBNAME, :FUNC_CURR, :ERRBUF); end;');
545 STPROC.BIND_I(SOBID);
546 STPROC.BIND_O(COAID);
547 STPROC.BIND_O(SOBNAME);
548 STPROC.BIND_O(FUNC_CURR);
549 STPROC.BIND_O(ERRBUF);
550 STPROC.EXECUTE;
551 STPROC.RETRIEVE(2
552 ,COAID);
553 STPROC.RETRIEVE(3
554 ,SOBNAME);
555 STPROC.RETRIEVE(4
556 ,FUNC_CURR);
557 STPROC.RETRIEVE(5
558 ,ERRBUF);*/
559 JG_INFO.JG_GET_SET_OF_BOOKS_INFO(SOBID,COAID,SOBNAME,FUNC_CURR,ERRBUF);
560 END JG_GET_SET_OF_BOOKS_INFO;
561
562 PROCEDURE JG_GET_BUD_OR_ENC_NAME(ACTUAL_TYPE IN VARCHAR2
563 ,TYPE_ID IN NUMBER
564 ,NAME OUT NOCOPY VARCHAR2
565 ,ERRBUF OUT NOCOPY VARCHAR2) IS
566 BEGIN
567 /*STPROC.INIT('begin JG_INFO.JG_GET_BUD_OR_ENC_NAME(:ACTUAL_TYPE, :TYPE_ID, :NAME, :ERRBUF); end;');
568 STPROC.BIND_I(ACTUAL_TYPE);
569 STPROC.BIND_I(TYPE_ID);
570 STPROC.BIND_O(NAME);
571 STPROC.BIND_O(ERRBUF);
572 STPROC.EXECUTE;
573 STPROC.RETRIEVE(3
574 ,NAME);
575 STPROC.RETRIEVE(4
576 ,ERRBUF);*/NULL;
577 END JG_GET_BUD_OR_ENC_NAME;
578
579 PROCEDURE JG_GET_LOOKUP_VALUE(LMODE IN VARCHAR2
580 ,CODE IN VARCHAR2
581 ,TYPE IN VARCHAR2
582 ,VALUE OUT NOCOPY VARCHAR2
583 ,ERRBUF OUT NOCOPY VARCHAR2) IS
584 BEGIN
585 /*STPROC.INIT('begin JG_INFO.JG_GET_LOOKUP_VALUE(:LMODE, :CODE, :TYPE, :VALUE, :ERRBUF); end;');
586 STPROC.BIND_I(LMODE);
587 STPROC.BIND_I(CODE);
588 STPROC.BIND_I(TYPE);
589 STPROC.BIND_O(VALUE);
590 STPROC.BIND_O(ERRBUF);
591 STPROC.EXECUTE;
592 STPROC.RETRIEVE(4
593 ,VALUE);
594 STPROC.RETRIEVE(5
595 ,ERRBUF);*/NULL;
596 END JG_GET_LOOKUP_VALUE;
597
598 PROCEDURE JG_GET_FIRST_PERIOD(APP_ID IN NUMBER
599 ,TSET_OF_BOOKS_ID IN NUMBER
600 ,TPERIOD_NAME IN VARCHAR2
601 ,TFIRST_PERIOD OUT NOCOPY VARCHAR2
602 ,ERRBUF OUT NOCOPY VARCHAR2) IS
603 BEGIN
604 /*STPROC.INIT('begin JG_INFO.JG_GET_FIRST_PERIOD(:APP_ID, :TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TFIRST_PERIOD, :ERRBUF); end;');
605 STPROC.BIND_I(APP_ID);
606 STPROC.BIND_I(TSET_OF_BOOKS_ID);
607 STPROC.BIND_I(TPERIOD_NAME);
608 STPROC.BIND_O(TFIRST_PERIOD);
609 STPROC.BIND_O(ERRBUF);
610 STPROC.EXECUTE;
611 STPROC.RETRIEVE(4
612 ,TFIRST_PERIOD);
613 STPROC.RETRIEVE(5
614 ,ERRBUF);*/NULL;
615 END JG_GET_FIRST_PERIOD;
616
617 PROCEDURE JG_GET_FIRST_PERIOD_OF_QUARTER(APP_ID IN NUMBER
618 ,TSET_OF_BOOKS_ID IN NUMBER
619 ,TPERIOD_NAME IN VARCHAR2
620 ,TFIRST_PERIOD OUT NOCOPY VARCHAR2
621 ,ERRBUF OUT NOCOPY VARCHAR2) IS
622 BEGIN
623 /*STPROC.INIT('begin JG_INFO.JG_GET_FIRST_PERIOD_OF_QUARTER(:APP_ID, :TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TFIRST_PERIOD, :ERRBUF); end;');
624 STPROC.BIND_I(APP_ID);
625 STPROC.BIND_I(TSET_OF_BOOKS_ID);
626 STPROC.BIND_I(TPERIOD_NAME);
627 STPROC.BIND_O(TFIRST_PERIOD);
628 STPROC.BIND_O(ERRBUF);
629 STPROC.EXECUTE;
630 STPROC.RETRIEVE(4
631 ,TFIRST_PERIOD);
632 STPROC.RETRIEVE(5
633 ,ERRBUF);*/NULL;
634 END JG_GET_FIRST_PERIOD_OF_QUARTER;
635
636 FUNCTION JG_FORMAT_CURR_AMT(IN_PRECISION IN NUMBER
637 ,IN_AMOUNT_DISP IN VARCHAR2) RETURN VARCHAR2 IS
638 X0 VARCHAR2(2000);
639 BEGIN
640 /*STPROC.INIT('begin :X0 := JG_INFO.JG_FORMAT_CURR_AMT(:IN_PRECISION, :IN_AMOUNT_DISP); end;');
641 STPROC.BIND_O(X0);
642 STPROC.BIND_I(IN_PRECISION);
643 STPROC.BIND_I(IN_AMOUNT_DISP);
644 STPROC.EXECUTE;
645 STPROC.RETRIEVE(1
646 ,X0);
647 RETURN X0;*/
648 RETURN(NULL);
649 END JG_FORMAT_CURR_AMT;
650
651 PROCEDURE SET_NAME(APPLICATION IN VARCHAR2
652 ,NAME IN VARCHAR2) IS
653 BEGIN
654 /*STPROC.INIT('begin FND_MESSAGE.SET_NAME(:APPLICATION, :NAME); end;');
655 STPROC.BIND_I(APPLICATION);
656 STPROC.BIND_I(NAME);
657 STPROC.EXECUTE;*/NULL;
658 END SET_NAME;
659
660 PROCEDURE SET_TOKEN(TOKEN IN VARCHAR2
661 ,VALUE IN VARCHAR2
662 ,TRANSLATE IN BOOLEAN) IS
663 BEGIN
664 /*STPROC.INIT('declare TRANSLATE BOOLEAN; begin TRANSLATE := sys.diutil.int_to_bool(:TRANSLATE); FND_MESSAGE.SET_TOKEN(:TOKEN, :VALUE, TRANSLATE); end;');
665 STPROC.BIND_I(TRANSLATE);
666 STPROC.BIND_I(TOKEN);
667 STPROC.BIND_I(VALUE);
668 STPROC.EXECUTE;*/NULL;
669 END SET_TOKEN;
670
671 PROCEDURE RETRIEVE(MSGOUT OUT NOCOPY VARCHAR2) IS
672 BEGIN
673 /*STPROC.INIT('begin FND_MESSAGE.RETRIEVE(:MSGOUT); end;');
674 STPROC.BIND_O(MSGOUT);
675 STPROC.EXECUTE;
676 STPROC.RETRIEVE(1
677 ,MSGOUT);*/NULL;
678 END RETRIEVE;
679
680 PROCEDURE CLEAR IS
681 BEGIN
682 /*STPROC.INIT('begin FND_MESSAGE.CLEAR; end;');
683 STPROC.EXECUTE;*/NULL;
684 END CLEAR;
685
686 FUNCTION GET_STRING(APPIN IN VARCHAR2
687 ,NAMEIN IN VARCHAR2) RETURN VARCHAR2 IS
688 X0 VARCHAR2(2000);
689 BEGIN
690 /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET_STRING(:APPIN, :NAMEIN); end;');
691 STPROC.BIND_O(X0);
692 STPROC.BIND_I(APPIN);
693 STPROC.BIND_I(NAMEIN);
694 STPROC.EXECUTE;
695 STPROC.RETRIEVE(1
696 ,X0);
697 RETURN X0;*/
698 RETURN (NULL);
699 END GET_STRING;
700
701 FUNCTION GET_NUMBER(APPIN IN VARCHAR2
702 ,NAMEIN IN VARCHAR2) RETURN NUMBER IS
703 X0 NUMBER;
704 BEGIN
705 /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET_NUMBER(:APPIN, :NAMEIN); end;');
706 STPROC.BIND_O(X0);
707 STPROC.BIND_I(APPIN);
708 STPROC.BIND_I(NAMEIN);
709 STPROC.EXECUTE;
710 STPROC.RETRIEVE(1
711 ,X0);
712 RETURN X0;*/
713 RETURN(NULL);
714 END GET_NUMBER;
715
716 FUNCTION GET RETURN VARCHAR2 IS
717 X0 VARCHAR2(2000);
718 BEGIN
719 /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET; end;');
720 STPROC.BIND_O(X0);
721 STPROC.EXECUTE;
722 STPROC.RETRIEVE(1
723 ,X0);
724 RETURN X0;*/
725 RETURN(NULL);
726 END GET;
727
728 FUNCTION GET_ENCODED RETURN VARCHAR2 IS
729 X0 VARCHAR2(2000);
730 BEGIN
731 /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET_ENCODED; end;');
732 STPROC.BIND_O(X0);
733 STPROC.EXECUTE;
734 STPROC.RETRIEVE(1
735 ,X0);
736 RETURN X0;*/
737 RETURN(NULL);
738 END GET_ENCODED;
739
740 PROCEDURE PARSE_ENCODED(ENCODED_MESSAGE IN VARCHAR2
741 ,APP_SHORT_NAME OUT NOCOPY VARCHAR2
742 ,MESSAGE_NAME OUT NOCOPY VARCHAR2) IS
743 BEGIN
744 /*STPROC.INIT('begin FND_MESSAGE.PARSE_ENCODED(:ENCODED_MESSAGE, :APP_SHORT_NAME, :MESSAGE_NAME); end;');
745 STPROC.BIND_I(ENCODED_MESSAGE);
746 STPROC.BIND_O(APP_SHORT_NAME);
747 STPROC.BIND_O(MESSAGE_NAME);
748 STPROC.EXECUTE;
749 STPROC.RETRIEVE(2
750 ,APP_SHORT_NAME);
751 STPROC.RETRIEVE(3
752 ,MESSAGE_NAME);*/NULL;
753 END PARSE_ENCODED;
754
755 PROCEDURE SET_ENCODED(ENCODED_MESSAGE IN VARCHAR2) IS
756 BEGIN
757 /*STPROC.INIT('begin FND_MESSAGE.SET_ENCODED(:ENCODED_MESSAGE); end;');
758 STPROC.BIND_I(ENCODED_MESSAGE);
759 STPROC.EXECUTE;*/NULL;
760 END SET_ENCODED;
761
762 PROCEDURE RAISE_ERROR IS
763 BEGIN
764 /*STPROC.INIT('begin FND_MESSAGE.RAISE_ERROR; end;');
765 STPROC.EXECUTE;*/NULL;
766 END RAISE_ERROR;
767
768
769 END JG_JGZZRDLR_XMLP_PKG;
770
771
772