[Home] [Help]
PACKAGE BODY: APPS.IGI_IGIRRTRH_XMLP_PKG
Source
1 PACKAGE BODY IGI_IGIRRTRH_XMLP_PKG AS
2 /* $Header: IGIRRTRHB.pls 120.1.12010000.1 2008/07/29 08:59:26 appldev ship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 /*SRW.REFERENCE(P_COA)*/NULL;
6 RP_SUM_FOR := FND_MESSAGE('AR_REPORTS_SUM_FOR');
7 if P_ORDER_BY is null then
8 P_ORDER_BY_1 := 'CUSTOMER';
9 else
10 P_ORDER_BY_1 := P_ORDER_BY;
11 end if;
12 IF P_START_COMPANY_SEGMENT IS NOT NULL THEN
13 LP_START_COMPANY_SEGMENT := 'and ' || REPLACE(LP_START_COMPANY_SEGMENT
14 ,'>='
15 ,'||'''' >=');
16 END IF;
17 IF P_END_COMPANY_SEGMENT IS NOT NULL THEN
18 LP_END_COMPANY_SEGMENT := 'and ' || REPLACE(LP_END_COMPANY_SEGMENT
19 ,'<='
20 ,'||'''' <=');
21 GET_BOILER_PLATES;
22 END IF;
23 BEGIN
24 P_CONS_PROFILE_VALUE := nvl(FND_PROFILE.VALUE('AR_SHOW_BILLING_NUMBER'),'N');
25 EXCEPTION
26 WHEN OTHERS THEN
27 NULL;
28 END;
29 IF (P_CONS_PROFILE_VALUE = 'N') THEN
30 LP_QUERY_SHOW_BILL := 'to_char(NULL)';
31 LP_TABLE_SHOW_BILL := ' ';
32 LP_WHERE_SHOW_BILL := ' ';
33 ELSE
34 LP_QUERY_SHOW_BILL := 'ci.cons_billing_number';
35 LP_TABLE_SHOW_BILL := 'ar_payment_schedules ps,ar_cons_inv ci,';
36 LP_WHERE_SHOW_BILL := 'and trx.customer_trx_id = ps.customer_trx_id(+)
37 and nvl(ps.due_date,TO_DATE(''01/01/0001'',''MM/DD/YYYY'')) = (
38 select nvl(min(x.due_date), TO_DATE(''01/01/0001'',''MM/DD/YYYY''))
39 from ar_payment_schedules x
40 where x.customer_trx_id = ps.customer_trx_id)
41 and ps.cons_inv_id = ci.cons_inv_id(+)';
42 END IF;
43 RETURN (TRUE);
44 END BEFOREREPORT;
45
46 FUNCTION AFTERREPORT RETURN BOOLEAN IS
47 BEGIN
48 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
49 RETURN (TRUE);
50 END AFTERREPORT;
51
52 FUNCTION REPORT_NAMEFORMULA(FUNCTIONAL_CURRENCY IN VARCHAR2
53 ,COMPANY_NAME IN VARCHAR2) RETURN VARCHAR2 IS
54 BEGIN
55 DECLARE
56 L_REPORT_NAME VARCHAR2(80);
57 L_YES VARCHAR2(80);
58 L_NO VARCHAR2(80);
59 L_START_GL_DATE VARCHAR2(11);
60 L_END_GL_DATE VARCHAR2(11);
61 L_START_TRX_DATE VARCHAR2(11);
62 L_END_TRX_DATE VARCHAR2(11);
63 BEGIN
64 RP_CURR_CODE := FUNCTIONAL_CURRENCY;
65 IF P_START_TRX_DATE IS NULL THEN
66 L_START_TRX_DATE := ' ';
67 ELSE
68 L_START_TRX_DATE := P_START_TRX_DATE;
69 END IF;
70 IF P_END_TRX_DATE IS NULL THEN
71 L_END_TRX_DATE := ' ';
72 ELSE
73 L_END_TRX_DATE := P_END_TRX_DATE;
74 END IF;
75 IF P_START_GL_DATE IS NULL THEN
76 L_START_GL_DATE := ' ';
77 ELSE
78 L_START_GL_DATE := P_START_GL_DATE;
79 END IF;
80 IF P_END_GL_DATE IS NULL THEN
81 L_END_GL_DATE := ' ';
82 ELSE
83 L_END_GL_DATE := P_END_GL_DATE;
84 END IF;
85 RP_INVOICE_DATE := FND_MESSAGE('AR_REPORTS_INV_DATE_FROM_TO'
86 ,'FROM_DATE'
87 ,L_START_TRX_DATE
88 ,'TO_DATE'
89 ,L_END_TRX_DATE);
90 RP_GL_DATE := FND_MESSAGE('AR_REPORTS_GL_DATE_FROM_TO'
91 ,'FROM_DATE'
92 ,L_START_GL_DATE
93 ,'TO_DATE'
94 ,L_END_GL_DATE);
95 SELECT
96 INITCAP(LOOK1.MEANING) C_YES,
97 INITCAP(LOOK2.MEANING) C_NO
98 INTO L_YES,L_NO
99 FROM
100 AR_LOOKUPS LOOK1,
101 AR_LOOKUPS LOOK2
102 WHERE LOOK1.LOOKUP_TYPE = 'YES/NO'
103 AND LOOK1.LOOKUP_CODE = 'Y'
104 AND LOOK2.LOOKUP_TYPE = 'YES/NO'
105 AND LOOK2.LOOKUP_CODE = 'N';
106 RP_YES := L_YES;
107 RP_NO := L_NO;
108 RP_COMPANY_NAME := COMPANY_NAME;
109 SELECT
110 CP.USER_CONCURRENT_PROGRAM_NAME
111 INTO L_REPORT_NAME
112 FROM
113 FND_CONCURRENT_PROGRAMS_TL CP,
114 FND_CONCURRENT_REQUESTS CR
115 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
116 AND CP.LANGUAGE = USERENV('LANG')
120 RETURN (L_REPORT_NAME);
117 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
118 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
119 RP_REPORT_NAME := L_REPORT_NAME;
121 EXCEPTION
122 WHEN NO_DATA_FOUND THEN
123 RP_REPORT_NAME := NULL;
124 RETURN (NULL);
125 END;
126 RETURN NULL;
127 END REPORT_NAMEFORMULA;
128
129 FUNCTION C_COMPANY_SUMMARY_LABELFORMULA(COMPANY IN VARCHAR2) RETURN VARCHAR2 IS
130 BEGIN
131 DECLARE
132 L_TEMP VARCHAR2(50);
133 BEGIN
134 L_TEMP := RP_SUM_FOR || ' ' || COMPANY;
135 RETURN (L_TEMP);
136 END;
137 RETURN NULL;
138 END C_COMPANY_SUMMARY_LABELFORMULA;
139
140 FUNCTION C_POSTABLE_SUMMARY_LABELFORMUL(POSTABLE IN VARCHAR2) RETURN VARCHAR2 IS
141 BEGIN
142 DECLARE
143 L_TEMP VARCHAR2(50);
144 BEGIN
145 L_TEMP := RP_SUM_FOR || ' ' || POSTABLE;
146 RETURN (L_TEMP);
147 END;
148 RETURN NULL;
149 END C_POSTABLE_SUMMARY_LABELFORMUL;
150
151 FUNCTION C_CURRENCY_SUMMARY_LABELFORMUL(CURRENCY_A IN VARCHAR2) RETURN VARCHAR2 IS
152 BEGIN
153 DECLARE
154 L_TEMP VARCHAR2(50);
155 BEGIN
156 L_TEMP := RP_SUM_FOR || ' ' || CURRENCY_A;
157 RETURN (L_TEMP);
158 END;
159 RETURN NULL;
160 END C_CURRENCY_SUMMARY_LABELFORMUL;
161
162 FUNCTION C_CLASS_SUMMARY_LABELFORMULA(CLASS IN VARCHAR2) RETURN VARCHAR2 IS
163 BEGIN
164 DECLARE
165 L_TEMP VARCHAR2(50);
166 BEGIN
167 L_TEMP := RP_SUM_FOR || ' ' || CLASS;
168 RETURN (L_TEMP);
169 END;
170 RETURN NULL;
171 END C_CLASS_SUMMARY_LABELFORMULA;
172
173 FUNCTION C_DATA_NOT_FOUNDFORMULA(CURRENCY_A IN VARCHAR2) RETURN NUMBER IS
174 BEGIN
175 RP_DATA_FOUND := CURRENCY_A;
176 RETURN (0);
177 END C_DATA_NOT_FOUNDFORMULA;
178
179 FUNCTION AFTERPFORM RETURN BOOLEAN IS
180 BEGIN
181 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
182 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
183 DECLARE
184 L_START_CURRENCY_CODE VARCHAR2(15);
185 L_END_CURRENCY_CODE VARCHAR2(15);
186 BEGIN
187 P_DUMMY_CURR_CODE_LOW := P_START_CURRENCY_CODE;
188 P_DUMMY_CURR_CODE_HIGH := P_END_CURRENCY_CODE;
189 IF P_START_GL_DATE IS NOT NULL THEN
190 LP_START_GL_DATE := 'AND ((gl_dist.gl_date >= :p_start_gl_date) OR (trx.trx_date >= :p_start_gl_date AND gl_dist.gl_date IS NULL))';
191 END IF;
192 IF P_END_GL_DATE IS NOT NULL THEN
193 LP_END_GL_DATE := 'and ((gl_dist.gl_date <= :p_end_gl_date) OR (trx.trx_date <= :p_end_gl_date AND gl_dist.gl_date IS NULL))';
194 END IF;
195 IF P_START_TRX_DATE IS NOT NULL THEN
196 LP_START_TRX_DATE := 'and trx.trx_date >=:p_start_trx_date';
197 END IF;
198 IF P_END_TRX_DATE IS NOT NULL THEN
199 LP_END_TRX_DATE := 'and trx.trx_date <=:p_end_trx_date';
200 END IF;
201 SELECT
202 DECODE(UPPER(P_START_CURRENCY_CODE)
203 ,NULL
204 ,MIN(CUST.INVOICE_CURRENCY_CODE)
205 ,UPPER(P_START_CURRENCY_CODE)),
206 DECODE(UPPER(P_END_CURRENCY_CODE)
207 ,NULL
208 ,MAX(CUST.INVOICE_CURRENCY_CODE)
209 ,UPPER(P_END_CURRENCY_CODE))
210 INTO L_START_CURRENCY_CODE,L_END_CURRENCY_CODE
211 FROM
212 RA_CUSTOMER_TRX CUST
213 WHERE CUST.COMPLETE_FLAG = 'Y';
214 P_START_CURRENCY_CODE := L_START_CURRENCY_CODE;
215 P_END_CURRENCY_CODE := L_END_CURRENCY_CODE;
216 IF P_TRX_TYPE_TYPE IS NOT NULL THEN
217 LP_TRX_TYPE_TYPE_LOW := 'and type.type = :p_trx_type_type';
218 END IF;
219 IF P_INVOICE_TYPE_LOW IS NOT NULL THEN
220 LP_INVOICE_TYPE_LOW := 'and type.name >= :p_invoice_type_low ';
221 END IF;
222 IF P_INVOICE_TYPE_HIGH IS NOT NULL THEN
223 LP_INVOICE_TYPE_HIGH := 'and type.name <= :p_invoice_type_high ';
224 END IF;
225 LP_MEANING_INV := AR_LOOKUP('INV/CM'
226 ,'INV');
227 LP_MEANING_DEP := AR_LOOKUP('INV/CM'
228 ,'DEP');
229 LP_MEANING_GUAR := AR_LOOKUP('INV/CM'
230 ,'GUAR');
231 LP_MEANING_CM := AR_LOOKUP('INV/CM'
232 ,'CM');
233 LP_MEANING_DM := AR_LOOKUP('INV/CM'
234 ,'DM');
235 LP_MEANING_CB := AR_LOOKUP('INV/CM'
236 ,'CB');
237 END;
238 RETURN (TRUE);
239 END AFTERPFORM;
240
241 FUNCTION D_COMPANYFORMULA(COMPANY IN VARCHAR2) RETURN VARCHAR2 IS
242 BEGIN
243 /*SRW.REFERENCE(COMPANY)*/NULL;
244 RETURN (COMPANY);
245 END D_COMPANYFORMULA;
246
247 FUNCTION AR_LOOKUP(L_TYPE IN VARCHAR2
248 ,L_CODE IN VARCHAR2) RETURN VARCHAR2 IS
249 L_MEANING VARCHAR2(11);
250 BEGIN
251 SELECT
252 RTRIM(RPAD(MEANING
253 ,11))
254 INTO L_MEANING
255 FROM
256 AR_LOOKUPS
257 WHERE LOOKUP_TYPE = L_TYPE
258 AND LOOKUP_CODE = L_CODE;
259 RETURN (L_MEANING);
260 END AR_LOOKUP;
261
262 PROCEDURE GET_LOOKUP_MEANING(P_LOOKUP_TYPE IN VARCHAR2
263 ,P_LOOKUP_CODE IN VARCHAR2
264 ,P_LOOKUP_MEANING IN OUT NOCOPY VARCHAR2) IS
265 W_MEANING VARCHAR2(80);
266 BEGIN
267 SELECT
268 MEANING
269 INTO W_MEANING
270 FROM
271 FND_LOOKUPS
272 WHERE LOOKUP_TYPE = P_LOOKUP_TYPE
276 WHEN NO_DATA_FOUND THEN
273 AND LOOKUP_CODE = P_LOOKUP_CODE;
274 P_LOOKUP_MEANING := W_MEANING;
275 EXCEPTION
277 P_LOOKUP_MEANING := NULL;
278 END GET_LOOKUP_MEANING;
279
280 PROCEDURE GET_BOILER_PLATES IS
281 W_INDUSTRY_CODE VARCHAR2(20);
282 W_INDUSTRY_STAT VARCHAR2(20);
283 BEGIN
284 IF GET(0
285 ,0
286 ,W_INDUSTRY_STAT
287 ,W_INDUSTRY_CODE) THEN
288 C_INDUSTRY_CODE := W_INDUSTRY_CODE;
289 END IF;
290 END GET_BOILER_PLATES;
291
292 FUNCTION SET_DISPLAY_FOR_CORE RETURN BOOLEAN IS
293 BEGIN
294 IF C_INDUSTRY_CODE = 'C' THEN
295 RETURN (TRUE);
296 ELSE
297 RETURN (FALSE);
298 END IF;
299 RETURN NULL;
300 END SET_DISPLAY_FOR_CORE;
301
302 FUNCTION SET_DISPLAY_FOR_GOV RETURN BOOLEAN IS
303 BEGIN
304 IF C_INDUSTRY_CODE = 'C' THEN
305 RETURN (FALSE);
306 ELSE
307 RETURN (TRUE);
308 END IF;
309 RETURN NULL;
310 END SET_DISPLAY_FOR_GOV;
311
312 FUNCTION INVOICE_CONSFORMULA(INVOICE_NUMBER IN VARCHAR2
313 ,CONS_BILLING_NUMBER IN VARCHAR2) RETURN VARCHAR2 IS
314 BEGIN
315 /*SRW.REFERENCE(INVOICE_NUMBER)*/NULL;
316 /*SRW.REFERENCE(CONS_BILLING_NUMBER)*/NULL;
317 IF (P_CONS_PROFILE_VALUE = 'N') THEN
318 RETURN (SUBSTR(INVOICE_NUMBER
319 ,1
320 ,40));
321 ELSIF (P_CONS_PROFILE_VALUE = 'Y') AND (CONS_BILLING_NUMBER IS NULL) THEN
322 RETURN (SUBSTR(INVOICE_NUMBER
323 ,1
324 ,40));
325 ELSE
326 RETURN (SUBSTR(SUBSTR(INVOICE_NUMBER
327 ,1
328 ,NVL(LENGTH(INVOICE_NUMBER)
329 ,0)) || '/' || CONS_BILLING_NUMBER
330 ,1
331 ,40));
332 END IF;
333 RETURN NULL;
334 END INVOICE_CONSFORMULA;
335
336 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
337 BEGIN
338 RETURN RP_COMPANY_NAME;
339 END RP_COMPANY_NAME_P;
340
341 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
342 BEGIN
343 RETURN RP_REPORT_NAME;
344 END RP_REPORT_NAME_P;
345
346 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
347 BEGIN
348 RETURN RP_DATA_FOUND;
349 END RP_DATA_FOUND_P;
350
351 FUNCTION RP_YES_P RETURN VARCHAR2 IS
352 BEGIN
353 RETURN RP_YES;
354 END RP_YES_P;
355
356 FUNCTION RP_NO_P RETURN VARCHAR2 IS
357 BEGIN
358 RETURN RP_NO;
359 END RP_NO_P;
360
361 FUNCTION RP_GL_DATE_P RETURN VARCHAR2 IS
362 BEGIN
363 RETURN RP_GL_DATE;
364 END RP_GL_DATE_P;
365
366 FUNCTION RP_INVOICE_DATE_P RETURN VARCHAR2 IS
367 BEGIN
368 RETURN RP_INVOICE_DATE;
369 END RP_INVOICE_DATE_P;
370
371 FUNCTION RP_CURR_CODE_P RETURN VARCHAR2 IS
372 BEGIN
373 RETURN RP_CURR_CODE;
374 END RP_CURR_CODE_P;
375
376 FUNCTION C_INDUSTRY_CODE_P RETURN VARCHAR2 IS
377 BEGIN
378 RETURN C_INDUSTRY_CODE;
379 END C_INDUSTRY_CODE_P;
380
381 FUNCTION C_COMPANY_TITLE_P RETURN VARCHAR2 IS
382 BEGIN
383 RETURN C_COMPANY_TITLE;
384 END C_COMPANY_TITLE_P;
385
386 FUNCTION RP_SUM_FOR_P RETURN VARCHAR2 IS
387 BEGIN
388 RETURN RP_SUM_FOR;
389 END RP_SUM_FOR_P;
390
391 /* FUNCTION GET_NEXT_WORD(LIST IN OUT NOCOPY VARCHAR2
392 ,VALUE IN OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
393 X0 BOOLEAN;
394 BEGIN
395 STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := ARP_STANDARD.GET_NEXT_WORD(:LIST, :VALUE); :X0 := sys.diutil.bool_to_int(X0rv); end;');
396 STPROC.BIND_IO(LIST);
397 STPROC.BIND_IO(VALUE);
398 STPROC.BIND_O(X0);
399 STPROC.EXECUTE;
400 STPROC.RETRIEVE(1
401 ,LIST);
402 STPROC.RETRIEVE(2
403 ,VALUE);
404 STPROC.RETRIEVE(3
405 ,X0);
406 RETURN X0;
407 END GET_NEXT_WORD;
408
409 FUNCTION CEIL(D IN DATE) RETURN DATE IS
410 X0 DATE;
411 BEGIN
412 X0 := ARP_STANDARD.CEIL(D);
413 STPROC.INIT('begin :X0 := ARP_STANDARD.CEIL(:D); end;');
414 STPROC.BIND_O(X0);
415 STPROC.BIND_I(D);
416 STPROC.EXECUTE;
417 STPROC.RETRIEVE(1
418 ,X0);
419 RETURN X0;
420 END CEIL;
421
422 FUNCTION EVEN(N IN NUMBER) RETURN BOOLEAN IS
423 X0 BOOLEAN;
424 BEGIN
425 STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := ARP_STANDARD.EVEN(:N); :X0 := sys.diutil.bool_to_int(X0rv); end;');
426 STPROC.BIND_I(N);
427 STPROC.BIND_O(X0);
428 STPROC.EXECUTE;
429 STPROC.RETRIEVE(2
430 ,X0);
431 RETURN X0;
432 END EVEN;
433
434 FUNCTION ODD(N IN NUMBER) RETURN BOOLEAN IS
435 X0 BOOLEAN;
436 BEGIN
437 STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := ARP_STANDARD.ODD(:N); :X0 := sys.diutil.bool_to_int(X0rv); end;');
438 STPROC.BIND_I(N);
439 STPROC.BIND_O(X0);
440 STPROC.EXECUTE;
441 STPROC.RETRIEVE(2
442 ,X0);
443 RETURN X0;
444 END ODD;
445
446 FUNCTION CHECK_FLAG(OPTIONS IN NUMBER
447 ,FLAG IN NUMBER) RETURN BOOLEAN IS
448 X0 BOOLEAN;
449 BEGIN
450 STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := ARP_STANDARD.CHECK_FLAG(:OPTIONS, :FLAG); :X0 := sys.diutil.bool_to_int(X0rv); end;');
454 STPROC.EXECUTE;
451 STPROC.BIND_I(OPTIONS);
452 STPROC.BIND_I(FLAG);
453 STPROC.BIND_O(X0);
455 STPROC.RETRIEVE(3
456 ,X0);
457 RETURN X0;
458 END CHECK_FLAG;
459
460 PROCEDURE CLEAR_FLAG(OPTIONS IN OUT NOCOPY NUMBER
461 ,FLAG IN NUMBER) IS
462 BEGIN
463 STPROC.INIT('begin ARP_STANDARD.CLEAR_FLAG(:OPTIONS, :FLAG); end;');
464 STPROC.BIND_IO(OPTIONS);
465 STPROC.BIND_I(FLAG);
466 STPROC.EXECUTE;
467 STPROC.RETRIEVE(1
468 ,OPTIONS);
469 END CLEAR_FLAG;
470
471 PROCEDURE SET_FLAG(OPTIONS IN OUT NOCOPY NUMBER
472 ,FLAG IN NUMBER) IS
473 BEGIN
474 STPROC.INIT('begin ARP_STANDARD.SET_FLAG(:OPTIONS, :FLAG); end;');
475 STPROC.BIND_IO(OPTIONS);
476 STPROC.BIND_I(FLAG);
477 STPROC.EXECUTE;
478 STPROC.RETRIEVE(1
479 ,OPTIONS);
480 END SET_FLAG;
481 */
482 FUNCTION FND_MESSAGE(MD_OPTIONS IN NUMBER) RETURN VARCHAR2 IS
483 X0 VARCHAR2(2000);
484 BEGIN
485
486 X0 := ARP_STANDARD.FND_MESSAGE(MD_OPTIONS);
487 /*
488 STPROC.INIT('begin :X0 := ARP_STANDARD.FND_MESSAGE(:MD_OPTIONS); end;');
489 STPROC.BIND_O(X0);
490 STPROC.BIND_I(MD_OPTIONS);
491 STPROC.EXECUTE;
492 STPROC.RETRIEVE(1
493 ,X0);
494 */
495 RETURN X0;
496 END FND_MESSAGE;
497
498 FUNCTION FND_MESSAGE RETURN VARCHAR2 IS
499 X0 VARCHAR2(2000);
500 BEGIN
501 X0 := ARP_STANDARD.FND_MESSAGE;
502 /* STPROC.INIT('begin :X0 := ARP_STANDARD.FND_MESSAGE; end;');
503 STPROC.BIND_O(X0);
504 STPROC.EXECUTE;
505 STPROC.RETRIEVE(1
506 ,X0);*/
507 RETURN X0;
508 END FND_MESSAGE;
509
510 FUNCTION PREVIOUS_MESSAGE(MD_OPTIONS IN NUMBER) RETURN VARCHAR2 IS
511 X0 VARCHAR2(2000);
512 BEGIN
513 X0 := ARP_STANDARD.PREVIOUS_MESSAGE(MD_OPTIONS);
514 /* STPROC.INIT('begin :X0 := ARP_STANDARD.PREVIOUS_MESSAGE(:MD_OPTIONS); end;');
515 STPROC.BIND_O(X0);
516 STPROC.BIND_I(MD_OPTIONS);
517 STPROC.EXECUTE;
518 STPROC.RETRIEVE(1
519 ,X0);*/
520 RETURN X0;
521 END PREVIOUS_MESSAGE;
522
523 FUNCTION PREVIOUS_MESSAGE RETURN VARCHAR2 IS
524 X0 VARCHAR2(2000);
525 BEGIN
526 X0 := ARP_STANDARD.PREVIOUS_MESSAGE;
527 /*
528 STPROC.INIT('begin :X0 := ARP_STANDARD.PREVIOUS_MESSAGE; end;');
529 STPROC.BIND_O(X0);
530 STPROC.EXECUTE;
531 STPROC.RETRIEVE(1
532 ,X0); */
533 RETURN X0;
534 END PREVIOUS_MESSAGE;
535
536 FUNCTION FND_MESSAGE(MSG_NAME IN VARCHAR2) RETURN VARCHAR2 IS
537 X0 VARCHAR2(2000);
538 BEGIN
539 /*STPROC.INIT('begin :X0 := ARP_STANDARD.FND_MESSAGE(:MSG_NAME); end;');
540 STPROC.BIND_O(X0);
541 STPROC.BIND_I(MSG_NAME);
542 STPROC.EXECUTE;
543 STPROC.RETRIEVE(1
544 ,X0);*/
545 X0 := ARP_STANDARD.FND_MESSAGE(MSG_NAME);
546 RETURN X0;
547 END FND_MESSAGE;
548
549 FUNCTION FND_MESSAGE(MSG_NAME IN VARCHAR2
550 ,T1 IN VARCHAR2
551 ,V1 IN VARCHAR2) RETURN VARCHAR2 IS
552 X0 VARCHAR2(2000);
553 BEGIN
554 X0 := ARP_STANDARD.FND_MESSAGE(MSG_NAME, T1, V1);
555 /*
556 STPROC.INIT('begin :X0 := ARP_STANDARD.FND_MESSAGE(:MSG_NAME, :T1, :V1); end;');
557 STPROC.BIND_O(X0);
558 STPROC.BIND_I(MSG_NAME);
559 STPROC.BIND_I(T1);
560 STPROC.BIND_I(V1);
561 STPROC.EXECUTE;
562 STPROC.RETRIEVE(1
563 ,X0);
564 */
565 RETURN X0;
566 END FND_MESSAGE;
567
568 FUNCTION FND_MESSAGE(MSG_NAME IN VARCHAR2
569 ,T1 IN VARCHAR2
570 ,V1 IN VARCHAR2
571 ,T2 IN VARCHAR2
572 ,V2 IN VARCHAR2) RETURN VARCHAR2 IS
573 X0 VARCHAR2(2000);
574 BEGIN
575 /* STPROC.INIT('begin :X0 := ARP_STANDARD.FND_MESSAGE(:MSG_NAME, :T1, :V1, :T2, :V2); end;');
576 STPROC.BIND_O(X0);
577 STPROC.BIND_I(MSG_NAME);
578 STPROC.BIND_I(T1);
579 STPROC.BIND_I(V1);
580 STPROC.BIND_I(T2);
581 STPROC.BIND_I(V2);
582 STPROC.EXECUTE;
583 STPROC.RETRIEVE(1
584 ,X0);*/
585 X0 := ARP_STANDARD.FND_MESSAGE(MSG_NAME, T1, V1, T2, V2);
586 RETURN X0;
587 END FND_MESSAGE;
588
589 FUNCTION FND_MESSAGE(MSG_NAME IN VARCHAR2
590 ,T1 IN VARCHAR2
591 ,V1 IN VARCHAR2
592 ,T2 IN VARCHAR2
593 ,V2 IN VARCHAR2
594 ,T3 IN VARCHAR2
595 ,V3 IN VARCHAR2) RETURN VARCHAR2 IS
596 X0 VARCHAR2(2000);
597 BEGIN
598 /*STPROC.INIT('begin :X0 := ARP_STANDARD.FND_MESSAGE(:MSG_NAME, :T1, :V1, :T2, :V2, :T3, :V3); end;');
599 STPROC.BIND_O(X0);
600 STPROC.BIND_I(MSG_NAME);
601 STPROC.BIND_I(T1);
602 STPROC.BIND_I(V1);
603 STPROC.BIND_I(T2);
604 STPROC.BIND_I(V2);
605 STPROC.BIND_I(T3);
606 STPROC.BIND_I(V3);
607 STPROC.EXECUTE;
608 STPROC.RETRIEVE(1
609 ,X0);*/
610 X0 := ARP_STANDARD.FND_MESSAGE(MSG_NAME, T1, V1, T2, V2, T3, V3);
611 RETURN X0;
612 END FND_MESSAGE;
613
614 FUNCTION FND_MESSAGE(MSG_NAME IN VARCHAR2
615 ,T1 IN VARCHAR2
616 ,V1 IN VARCHAR2
617 ,T2 IN VARCHAR2
618 ,V2 IN VARCHAR2
622 ,V4 IN VARCHAR2) RETURN VARCHAR2 IS
619 ,T3 IN VARCHAR2
620 ,V3 IN VARCHAR2
621 ,T4 IN VARCHAR2
623 X0 VARCHAR2(2000);
624 BEGIN
625 /* STPROC.INIT('begin :X0 := ARP_STANDARD.FND_MESSAGE(:MSG_NAME, :T1, :V1, :T2, :V2, :T3, :V3, :T4, :V4); end;');
626 STPROC.BIND_O(X0);
627 STPROC.BIND_I(MSG_NAME);
628 STPROC.BIND_I(T1);
629 STPROC.BIND_I(V1);
630 STPROC.BIND_I(T2);
631 STPROC.BIND_I(V2);
632 STPROC.BIND_I(T3);
633 STPROC.BIND_I(V3);
634 STPROC.BIND_I(T4);
635 STPROC.BIND_I(V4);
636 STPROC.EXECUTE;
637 STPROC.RETRIEVE(1
638 ,X0);*/
639 X0 := ARP_STANDARD.FND_MESSAGE(MSG_NAME, T1, V1, T2, V2, T3, V3, T4, V4);
640 RETURN X0;
641 END FND_MESSAGE;
642
643 FUNCTION FND_MESSAGE(MD_OPTIONS IN NUMBER
644 ,MSG_NAME IN VARCHAR2) RETURN VARCHAR2 IS
645 X0 VARCHAR2(2000);
646 BEGIN
647 /* STPROC.INIT('begin :X0 := ARP_STANDARD.FND_MESSAGE(:MD_OPTIONS, :MSG_NAME); end;');
648 STPROC.BIND_O(X0);
649 STPROC.BIND_I(MD_OPTIONS);
650 STPROC.BIND_I(MSG_NAME);
651 STPROC.EXECUTE;
652 STPROC.RETRIEVE(1
653 ,X0);*/
654 X0 := ARP_STANDARD.FND_MESSAGE(MD_OPTIONS, MSG_NAME);
655 RETURN X0;
656 END FND_MESSAGE;
657
658 FUNCTION FND_MESSAGE(MD_OPTIONS IN NUMBER
659 ,MSG_NAME IN VARCHAR2
660 ,T1 IN VARCHAR2
661 ,V1 IN VARCHAR2) RETURN VARCHAR2 IS
662 X0 VARCHAR2(2000);
663 BEGIN
664 /* STPROC.INIT('begin :X0 := ARP_STANDARD.FND_MESSAGE(:MD_OPTIONS, :MSG_NAME, :T1, :V1); end;');
665 STPROC.BIND_O(X0);
666 STPROC.BIND_I(MD_OPTIONS);
667 STPROC.BIND_I(MSG_NAME);
668 STPROC.BIND_I(T1);
669 STPROC.BIND_I(V1);
670 STPROC.EXECUTE;
671 STPROC.RETRIEVE(1
672 ,X0);*/
673 X0 := ARP_STANDARD.FND_MESSAGE(MD_OPTIONS, MSG_NAME, T1, V1);
674 RETURN X0;
675 END FND_MESSAGE;
676
677 FUNCTION FND_MESSAGE(MD_OPTIONS IN NUMBER
678 ,MSG_NAME IN VARCHAR2
679 ,T1 IN VARCHAR2
680 ,V1 IN VARCHAR2
681 ,T2 IN VARCHAR2
682 ,V2 IN VARCHAR2) RETURN VARCHAR2 IS
683 X0 VARCHAR2(2000);
684 BEGIN
685 /*STPROC.INIT('begin :X0 := ARP_STANDARD.FND_MESSAGE(:MD_OPTIONS, :MSG_NAME, :T1, :V1, :T2, :V2); end;');
686 STPROC.BIND_O(X0);
687 STPROC.BIND_I(MD_OPTIONS);
688 STPROC.BIND_I(MSG_NAME);
689 STPROC.BIND_I(T1);
690 STPROC.BIND_I(V1);
691 STPROC.BIND_I(T2);
692 STPROC.BIND_I(V2);
693 STPROC.EXECUTE;
694 STPROC.RETRIEVE(1
695 ,X0);*/
696 X0 := ARP_STANDARD.FND_MESSAGE(MD_OPTIONS, MSG_NAME, T1, V1, T2, V2);
697 RETURN X0;
698 END FND_MESSAGE;
699
700 FUNCTION FND_MESSAGE(MD_OPTIONS IN NUMBER
701 ,MSG_NAME IN VARCHAR2
702 ,T1 IN VARCHAR2
703 ,V1 IN VARCHAR2
704 ,T2 IN VARCHAR2
705 ,V2 IN VARCHAR2
706 ,T3 IN VARCHAR2
707 ,V3 IN VARCHAR2) RETURN VARCHAR2 IS
708 X0 VARCHAR2(2000);
709 BEGIN
710 /* STPROC.INIT('begin :X0 := ARP_STANDARD.FND_MESSAGE(:MD_OPTIONS, :MSG_NAME, :T1, :V1, :T2, :V2, :T3, :V3); end;');
711 STPROC.BIND_O(X0);
712 STPROC.BIND_I(MD_OPTIONS);
713 STPROC.BIND_I(MSG_NAME);
714 STPROC.BIND_I(T1);
715 STPROC.BIND_I(V1);
716 STPROC.BIND_I(T2);
717 STPROC.BIND_I(V2);
718 STPROC.BIND_I(T3);
719 STPROC.BIND_I(V3);
720 STPROC.EXECUTE;
721 STPROC.RETRIEVE(1
722 ,X0);*/
723 X0 := ARP_STANDARD.FND_MESSAGE(MD_OPTIONS, MSG_NAME, T1, V1,T2, V2, T3, V3);
724 RETURN X0;
725 END FND_MESSAGE;
726
727 FUNCTION FND_MESSAGE(MD_OPTIONS IN NUMBER
728 ,MSG_NAME IN VARCHAR2
729 ,T1 IN VARCHAR2
730 ,V1 IN VARCHAR2
731 ,T2 IN VARCHAR2
732 ,V2 IN VARCHAR2
733 ,T3 IN VARCHAR2
734 ,V3 IN VARCHAR2
735 ,T4 IN VARCHAR2
736 ,V4 IN VARCHAR2) RETURN VARCHAR2 IS
737 X0 VARCHAR2(2000);
738 BEGIN
739 /* STPROC.INIT('begin :X0 := ARP_STANDARD.FND_MESSAGE(:MD_OPTIONS, :MSG_NAME, :T1, :V1, :T2, :V2, :T3, :V3, :T4, :V4); end;');
740 STPROC.BIND_O(X0);
741 STPROC.BIND_I(MD_OPTIONS);
742 STPROC.BIND_I(MSG_NAME);
743 STPROC.BIND_I(T1);
744 STPROC.BIND_I(V1);
745 STPROC.BIND_I(T2);
746 STPROC.BIND_I(V2);
747 STPROC.BIND_I(T3);
748 STPROC.BIND_I(V3);
749 STPROC.BIND_I(T4);
750 STPROC.BIND_I(V4);
751 STPROC.EXECUTE;
752 STPROC.RETRIEVE(1
753 ,X0);*/
754 X0 := ARP_STANDARD.FND_MESSAGE(MD_OPTIONS, MSG_NAME, T1, V1, T2, V2, T3, V3, T4, V4);
755 RETURN X0;
756 END FND_MESSAGE;
757
758 FUNCTION FUNCTIONAL_AMOUNT(AMOUNT IN NUMBER
759 ,CURRENCY_CODE IN VARCHAR2
760 ,EXCHANGE_RATE IN NUMBER
761 ,PRECISION IN NUMBER
762 ,MIN_ACC_UNIT IN NUMBER) RETURN NUMBER IS
763 X0 NUMBER;
764 BEGIN
765 /* STPROC.INIT('begin :X0 := ARP_STANDARD.FUNCTIONAL_AMOUNT(:AMOUNT, :CURRENCY_CODE, :EXCHANGE_RATE, :PRECISION, :MIN_ACC_UNIT); end;');
766 STPROC.BIND_O(X0);
767 STPROC.BIND_I(AMOUNT);
768 STPROC.BIND_I(CURRENCY_CODE);
772 STPROC.EXECUTE;
769 STPROC.BIND_I(EXCHANGE_RATE);
770 STPROC.BIND_I(PRECISION);
771 STPROC.BIND_I(MIN_ACC_UNIT);
773 STPROC.RETRIEVE(1
774 ,X0);*/
775 X0 := ARP_STANDARD.FUNCTIONAL_AMOUNT(AMOUNT, CURRENCY_CODE, EXCHANGE_RATE, PRECISION, MIN_ACC_UNIT);
776 RETURN X0;
777 END FUNCTIONAL_AMOUNT;
778
779 /* FUNCTION GL_DATE_RANGE_OPEN(PSTART_DATE IN VARCHAR2
780 ,PEND_DATE IN VARCHAR2) RETURN BOOLEAN IS
781 X0 BOOLEAN;
782 BEGIN
783 STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := ARP_STANDARD.GL_DATE_RANGE_OPEN(:PSTART_DATE, :PEND_DATE); :X0 := sys.diutil.bool_to_int(X0rv); end;');
784 STPROC.BIND_I(PSTART_DATE);
785 STPROC.BIND_I(PEND_DATE);
786 STPROC.BIND_O(X0);
787 STPROC.EXECUTE;
788 STPROC.RETRIEVE(3
789 ,X0);
790 RETURN X0;
791 END GL_DATE_RANGE_OPEN;
792
793 FUNCTION AR_LOOKUP(LOOKUP_TYPE IN VARCHAR2
794 ,LOOKUP_CODE IN VARCHAR2) RETURN VARCHAR2 IS
795 X0 VARCHAR2(2000);
796 BEGIN
797 STPROC.INIT('begin :X0 := ARP_STANDARD.AR_LOOKUP(:LOOKUP_TYPE, :LOOKUP_CODE); end;');
798 STPROC.BIND_O(X0);
799 STPROC.BIND_I(LOOKUP_TYPE);
800 STPROC.BIND_I(LOOKUP_CODE);
801 STPROC.EXECUTE;
802 STPROC.RETRIEVE(1
803 ,X0);
804 RETURN X0;
805 END AR_LOOKUP;
806
807 FUNCTION MD_MSG_NUMBER RETURN NUMBER IS
808 X0 NUMBER;
809 BEGIN
810 STPROC.INIT('begin :X0 := ARP_STANDARD.MD_MSG_NUMBER; end;');
811 STPROC.BIND_O(X0);
812 STPROC.EXECUTE;
813 STPROC.RETRIEVE(1
814 ,X0);
815 RETURN X0;
816 END MD_MSG_NUMBER;
817
818 FUNCTION MD_MSG_TEXT RETURN NUMBER IS
819 X0 NUMBER;
820 BEGIN
821 STPROC.INIT('begin :X0 := ARP_STANDARD.MD_MSG_TEXT; end;');
822 STPROC.BIND_O(X0);
823 STPROC.EXECUTE;
824 STPROC.RETRIEVE(1
825 ,X0);
826 RETURN X0;
827 END MD_MSG_TEXT;
828
829 FUNCTION MD_MSG_NAME RETURN NUMBER IS
830 X0 NUMBER;
831 BEGIN
832 STPROC.INIT('begin :X0 := ARP_STANDARD.MD_MSG_NAME; end;');
833 STPROC.BIND_O(X0);
834 STPROC.EXECUTE;
835 STPROC.RETRIEVE(1
836 ,X0);
837 RETURN X0;
838 END MD_MSG_NAME;
839
840 FUNCTION MD_MSG_TOKENS RETURN NUMBER IS
841 X0 NUMBER;
842 BEGIN
843 STPROC.INIT('begin :X0 := ARP_STANDARD.MD_MSG_TOKENS; end;');
844 STPROC.BIND_O(X0);
845 STPROC.EXECUTE;
846 STPROC.RETRIEVE(1
847 ,X0);
848 RETURN X0;
849 END MD_MSG_TOKENS;
850
851 FUNCTION MD_MSG_EXPLANATION RETURN NUMBER IS
852 X0 NUMBER;
853 BEGIN
854 STPROC.INIT('begin :X0 := ARP_STANDARD.MD_MSG_EXPLANATION; end;');
855 STPROC.BIND_O(X0);
856 STPROC.EXECUTE;
857 STPROC.RETRIEVE(1
858 ,X0);
859 RETURN X0;
860 END MD_MSG_EXPLANATION;
861
862 FUNCTION MD_MSG_FIND_NUMBER RETURN NUMBER IS
863 X0 NUMBER;
864 BEGIN
865 STPROC.INIT('begin :X0 := ARP_STANDARD.MD_MSG_FIND_NUMBER; end;');
866 STPROC.BIND_O(X0);
867 STPROC.EXECUTE;
868 STPROC.RETRIEVE(1
869 ,X0);
870 RETURN X0;
871 END MD_MSG_FIND_NUMBER;
872
873 PROCEDURE GL_PERIOD_INFO(GL_DATE IN DATE
874 ,PERIOD_NAME OUT NOCOPY VARCHAR2
875 ,START_DATE OUT NOCOPY DATE
876 ,END_DATE OUT NOCOPY DATE
877 ,CLOSING_STATUS OUT NOCOPY VARCHAR2
878 ,PERIOD_TYPE OUT NOCOPY VARCHAR2
879 ,PERIOD_YEAR OUT NOCOPY NUMBER
880 ,PERIOD_NUM OUT NOCOPY NUMBER
881 ,QUARTER_NUM OUT NOCOPY NUMBER) IS
882 BEGIN
883 STPROC.INIT('begin ARP_STANDARD.GL_PERIOD_INFO(:GL_DATE, :PERIOD_NAME, :START_DATE, :END_DATE, :CLOSING_STATUS, :PERIOD_TYPE, :PERIOD_YEAR, :PERIOD_NUM, :QUARTER_NUM); end;');
884 STPROC.BIND_I(GL_DATE);
885 STPROC.BIND_O(PERIOD_NAME);
886 STPROC.BIND_O(START_DATE);
887 STPROC.BIND_O(END_DATE);
888 STPROC.BIND_O(CLOSING_STATUS);
889 STPROC.BIND_O(PERIOD_TYPE);
890 STPROC.BIND_O(PERIOD_YEAR);
891 STPROC.BIND_O(PERIOD_NUM);
892 STPROC.BIND_O(QUARTER_NUM);
893 STPROC.EXECUTE;
894 STPROC.RETRIEVE(2
895 ,PERIOD_NAME);
896 STPROC.RETRIEVE(3
897 ,START_DATE);
898 STPROC.RETRIEVE(4
899 ,END_DATE);
900 STPROC.RETRIEVE(5
901 ,CLOSING_STATUS);
902 STPROC.RETRIEVE(6
903 ,PERIOD_TYPE);
904 STPROC.RETRIEVE(7
905 ,PERIOD_YEAR);
906 STPROC.RETRIEVE(8
907 ,PERIOD_NUM);
908 STPROC.RETRIEVE(9
909 ,QUARTER_NUM);
910 END GL_PERIOD_INFO;
911
912 FUNCTION GL_PERIOD_NAME(GL_DATE IN DATE) RETURN VARCHAR2 IS
913 X0 VARCHAR2(2000);
914 BEGIN
915 STPROC.INIT('begin :X0 := ARP_STANDARD.GL_PERIOD_NAME(:GL_DATE); end;');
916 STPROC.BIND_O(X0);
917 STPROC.BIND_I(GL_DATE);
918 STPROC.EXECUTE;
919 STPROC.RETRIEVE(1
920 ,X0);
921 RETURN X0;
922 END GL_PERIOD_NAME;
923
924 FUNCTION IS_GL_DATE_VALID(P_GL_DATE IN DATE
925 ,P_TRX_DATE IN DATE
926 ,P_VALIDATION_DATE1 IN DATE
927 ,P_VALIDATION_DATE2 IN DATE
928 ,P_VALIDATION_DATE3 IN DATE
932 ,P_CHECK_PERIOD_STATUS IN BOOLEAN) RETURN BOOLEAN IS
929 ,P_ALLOW_NOT_OPEN_FLAG IN VARCHAR2
930 ,P_SET_OF_BOOKS_ID IN NUMBER
931 ,P_APPLICATION_ID IN NUMBER
933 X0 BOOLEAN;
934 BEGIN
935 STPROC.INIT('declare X0rv BOOLEAN; X0P_CHECK_PERIOD_STATUS BOOLEAN;
936 begin X0P_CHECK_PERIOD_STATUS := sys.diutil.int_to_bool(:P_CHECK_PERIOD_STATUS);
937 X0rv := ARP_STANDARD.IS_GL_DATE_VALID(:P_GL_DATE, :P_TRX_DATE, :P_VALIDATION_DATE1,
938 :P_VALIDATION_DATE2, :P_VALIDATION_DATE3, :P_ALLOW_NOT_OPEN_FLAG, :P_SET_OF_BOOKS_ID, :P_APPLICATION_ID, X0P_CHECK_PERIOD_STATUS);
939 :X0 := sys.diutil.bool_to_int(X0rv); end;');
940 STPROC.BIND_I(P_CHECK_PERIOD_STATUS);
941 STPROC.BIND_I(P_GL_DATE);
942 STPROC.BIND_I(P_TRX_DATE);
943 STPROC.BIND_I(P_VALIDATION_DATE1);
944 STPROC.BIND_I(P_VALIDATION_DATE2);
945 STPROC.BIND_I(P_VALIDATION_DATE3);
946 STPROC.BIND_I(P_ALLOW_NOT_OPEN_FLAG);
947 STPROC.BIND_I(P_SET_OF_BOOKS_ID);
948 STPROC.BIND_I(P_APPLICATION_ID);
949 STPROC.BIND_O(X0);
950 STPROC.EXECUTE;
951 STPROC.RETRIEVE(10
952 ,X0);
953 RETURN X0;
954 END IS_GL_DATE_VALID;
955
956 FUNCTION VALIDATE_AND_DEFAULT_GL_DATE(GL_DATE IN DATE
957 ,TRX_DATE IN DATE
958 ,VALIDATION_DATE1 IN DATE
959 ,VALIDATION_DATE2 IN DATE
960 ,VALIDATION_DATE3 IN DATE
961 ,DEFAULT_DATE1 IN DATE
962 ,DEFAULT_DATE2 IN DATE
963 ,DEFAULT_DATE3 IN DATE
964 ,P_ALLOW_NOT_OPEN_FLAG IN VARCHAR2
965 ,P_INVOICING_RULE_ID IN VARCHAR2
966 ,P_SET_OF_BOOKS_ID IN NUMBER
967 ,P_APPLICATION_ID IN NUMBER
968 ,DEFAULT_GL_DATE OUT NOCOPY DATE
969 ,DEFAULTING_RULE_USED OUT NOCOPY VARCHAR2
970 ,ERROR_MESSAGE OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
971 X0 BOOLEAN;
972 BEGIN
973 STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := ARP_STANDARD.VALIDATE_AND_DEFAULT_GL_DATE(:GL_DATE, :TRX_DATE, :VALIDATION_DATE1, :VALIDATION_DATE2,
974 :VALIDATION_DATE3, :DEFAULT_DATE1, :DEFAULT_DATE2, :DEFAULT_DATE3, :P_ALLOW_NOT_OPEN_FLAG, :P_INVOICING_RULE_ID, :P_SET_OF_BOOKS_ID, :P_APPLICATION_ID, :DEFAULT_GL_DATE, :DEFAULTING_RULE_USED, :ERROR_MESSAGE);
975 :X0 := sys.diutil.bool_to_int(X0rv); end;');
976 STPROC.BIND_I(GL_DATE);
977 STPROC.BIND_I(TRX_DATE);
978 STPROC.BIND_I(VALIDATION_DATE1);
979 STPROC.BIND_I(VALIDATION_DATE2);
980 STPROC.BIND_I(VALIDATION_DATE3);
981 STPROC.BIND_I(DEFAULT_DATE1);
982 STPROC.BIND_I(DEFAULT_DATE2);
983 STPROC.BIND_I(DEFAULT_DATE3);
984 STPROC.BIND_I(P_ALLOW_NOT_OPEN_FLAG);
985 STPROC.BIND_I(P_INVOICING_RULE_ID);
986 STPROC.BIND_I(P_SET_OF_BOOKS_ID);
987 STPROC.BIND_I(P_APPLICATION_ID);
988 STPROC.BIND_O(DEFAULT_GL_DATE);
989 STPROC.BIND_O(DEFAULTING_RULE_USED);
990 STPROC.BIND_O(ERROR_MESSAGE);
991 STPROC.BIND_O(X0);
992 STPROC.EXECUTE;
993 STPROC.RETRIEVE(13
994 ,DEFAULT_GL_DATE);
995 STPROC.RETRIEVE(14
996 ,DEFAULTING_RULE_USED);
997 STPROC.RETRIEVE(15
998 ,ERROR_MESSAGE);
999 STPROC.RETRIEVE(16
1000 ,X0);
1001 RETURN X0;
1002 END VALIDATE_AND_DEFAULT_GL_DATE;
1003
1004 PROCEDURE DEBUG(LINE IN VARCHAR2) IS
1005 BEGIN
1006 STPROC.INIT('begin ARP_STANDARD.DEBUG(:LINE); end;');
1007 STPROC.BIND_I(LINE);
1008 STPROC.EXECUTE;
1009 END DEBUG;
1010
1011 PROCEDURE ENABLE_DEBUG IS
1012 BEGIN
1013 STPROC.INIT('begin ARP_STANDARD.ENABLE_DEBUG; end;');
1014 STPROC.EXECUTE;
1015 END ENABLE_DEBUG;
1016
1017 PROCEDURE ENABLE_DEBUG(BUFFER_SIZE IN NUMBER) IS
1018 BEGIN
1019 STPROC.INIT('begin ARP_STANDARD.ENABLE_DEBUG(:BUFFER_SIZE); end;');
1020 STPROC.BIND_I(BUFFER_SIZE);
1021 STPROC.EXECUTE;
1022 END ENABLE_DEBUG;
1023
1024 PROCEDURE DISABLE_DEBUG IS
1025 BEGIN
1026 STPROC.INIT('begin ARP_STANDARD.DISABLE_DEBUG; end;');
1027 STPROC.EXECUTE;
1028 END DISABLE_DEBUG;
1029
1030 PROCEDURE SET_WHO_INFORMATION(USER_ID IN NUMBER
1031 ,REQUEST_ID IN NUMBER
1032 ,PROGRAM_APPLICATION_ID IN NUMBER
1033 ,PROGRAM_ID IN NUMBER
1034 ,LAST_UPDATE_LOGIN IN NUMBER) IS
1035 BEGIN
1036 STPROC.INIT('begin ARP_STANDARD.SET_WHO_INFORMATION(:USER_ID, :REQUEST_ID, :PROGRAM_APPLICATION_ID, :PROGRAM_ID, :LAST_UPDATE_LOGIN); end;');
1037 STPROC.BIND_I(USER_ID);
1038 STPROC.BIND_I(REQUEST_ID);
1039 STPROC.BIND_I(PROGRAM_APPLICATION_ID);
1040 STPROC.BIND_I(PROGRAM_ID);
1041 STPROC.BIND_I(LAST_UPDATE_LOGIN);
1042 STPROC.EXECUTE;
1043 END SET_WHO_INFORMATION;
1044
1045 PROCEDURE SET_APPLICATION_INFORMATION(APPL_ID IN NUMBER
1046 ,LANGUAGE_ID IN NUMBER) IS
1047 BEGIN
1048 STPROC.INIT('begin ARP_STANDARD.SET_APPLICATION_INFORMATION(:APPL_ID, :LANGUAGE_ID); end;');
1049 STPROC.BIND_I(APPL_ID);
1050 STPROC.BIND_I(LANGUAGE_ID);
1051 STPROC.EXECUTE;
1052 END SET_APPLICATION_INFORMATION;*/
1053
1054 PROCEDURE FND_MESSAGE IS
1055 BEGIN
1056 ARP_STANDARD.FND_MESSAGE;
1057 /*
1058 STPROC.INIT('begin ARP_STANDARD.FND_MESSAGE; end;');
1059 STPROC.EXECUTE;*/
1063 BEGIN
1060 END FND_MESSAGE;
1061
1062 /* PROCEDURE FND_MESSAGE(MSG_NAME IN VARCHAR2) IS
1064 STPROC.INIT('begin ARP_STANDARD.FND_MESSAGE(:MSG_NAME); end;');
1065 STPROC.BIND_I(MSG_NAME);
1066 STPROC.EXECUTE;
1067 END FND_MESSAGE;
1068
1069 PROCEDURE FND_MESSAGE(MSG_NAME IN VARCHAR2
1070 ,T1 IN VARCHAR2
1071 ,V1 IN VARCHAR2) IS
1072 BEGIN
1073 STPROC.INIT('begin ARP_STANDARD.FND_MESSAGE(:MSG_NAME, :T1, :V1); end;');
1074 STPROC.BIND_I(MSG_NAME);
1075 STPROC.BIND_I(T1);
1076 STPROC.BIND_I(V1);
1077 STPROC.EXECUTE;
1078 END FND_MESSAGE;
1079
1080 PROCEDURE FND_MESSAGE(MSG_NAME IN VARCHAR2
1081 ,T1 IN VARCHAR2
1082 ,V1 IN VARCHAR2
1083 ,T2 IN VARCHAR2
1084 ,V2 IN VARCHAR2) IS
1085 BEGIN
1086 STPROC.INIT('begin ARP_STANDARD.FND_MESSAGE(:MSG_NAME, :T1, :V1, :T2, :V2); end;');
1087 STPROC.BIND_I(MSG_NAME);
1088 STPROC.BIND_I(T1);
1089 STPROC.BIND_I(V1);
1090 STPROC.BIND_I(T2);
1091 STPROC.BIND_I(V2);
1092 STPROC.EXECUTE;
1093 END FND_MESSAGE;
1094
1095 PROCEDURE FND_MESSAGE(MSG_NAME IN VARCHAR2
1096 ,T1 IN VARCHAR2
1097 ,V1 IN VARCHAR2
1098 ,T2 IN VARCHAR2
1099 ,V2 IN VARCHAR2
1100 ,T3 IN VARCHAR2
1101 ,V3 IN VARCHAR2) IS
1102 BEGIN
1103 STPROC.INIT('begin ARP_STANDARD.FND_MESSAGE(:MSG_NAME, :T1, :V1, :T2, :V2, :T3, :V3); end;');
1104 STPROC.BIND_I(MSG_NAME);
1105 STPROC.BIND_I(T1);
1106 STPROC.BIND_I(V1);
1107 STPROC.BIND_I(T2);
1108 STPROC.BIND_I(V2);
1109 STPROC.BIND_I(T3);
1110 STPROC.BIND_I(V3);
1111 STPROC.EXECUTE;
1112 END FND_MESSAGE;
1113
1114 PROCEDURE FND_MESSAGE(MSG_NAME IN VARCHAR2
1115 ,T1 IN VARCHAR2
1116 ,V1 IN VARCHAR2
1117 ,T2 IN VARCHAR2
1118 ,V2 IN VARCHAR2
1119 ,T3 IN VARCHAR2
1120 ,V3 IN VARCHAR2
1121 ,T4 IN VARCHAR2
1122 ,V4 IN VARCHAR2) IS
1123 BEGIN
1124 STPROC.INIT('begin ARP_STANDARD.FND_MESSAGE(:MSG_NAME, :T1, :V1, :T2, :V2, :T3, :V3, :T4, :V4); end;');
1125 STPROC.BIND_I(MSG_NAME);
1126 STPROC.BIND_I(T1);
1127 STPROC.BIND_I(V1);
1128 STPROC.BIND_I(T2);
1129 STPROC.BIND_I(V2);
1130 STPROC.BIND_I(T3);
1131 STPROC.BIND_I(V3);
1132 STPROC.BIND_I(T4);
1133 STPROC.BIND_I(V4);
1134 STPROC.EXECUTE;
1135 END FND_MESSAGE;
1136
1137 PROCEDURE FND_MESSAGE(MD_OPTIONS IN NUMBER) IS
1138 BEGIN
1139 STPROC.INIT('begin ARP_STANDARD.FND_MESSAGE(:MD_OPTIONS); end;');
1140 STPROC.BIND_I(MD_OPTIONS);
1141 STPROC.EXECUTE;
1142 END FND_MESSAGE;
1143
1144 PROCEDURE FND_MESSAGE(MD_OPTIONS IN NUMBER
1145 ,MSG_NAME IN VARCHAR2) IS
1146 BEGIN
1147 STPROC.INIT('begin ARP_STANDARD.FND_MESSAGE(:MD_OPTIONS, :MSG_NAME); end;');
1148 STPROC.BIND_I(MD_OPTIONS);
1149 STPROC.BIND_I(MSG_NAME);
1150 STPROC.EXECUTE;
1151 END FND_MESSAGE;
1152
1153 PROCEDURE FND_MESSAGE(MD_OPTIONS IN NUMBER
1154 ,MSG_NAME IN VARCHAR2
1155 ,T1 IN VARCHAR2
1156 ,V1 IN VARCHAR2) IS
1157 BEGIN
1158 STPROC.INIT('begin ARP_STANDARD.FND_MESSAGE(:MD_OPTIONS, :MSG_NAME, :T1, :V1); end;');
1159 STPROC.BIND_I(MD_OPTIONS);
1160 STPROC.BIND_I(MSG_NAME);
1161 STPROC.BIND_I(T1);
1162 STPROC.BIND_I(V1);
1163 STPROC.EXECUTE;
1164 END FND_MESSAGE;
1165
1166 PROCEDURE FND_MESSAGE(MD_OPTIONS IN NUMBER
1167 ,MSG_NAME IN VARCHAR2
1168 ,T1 IN VARCHAR2
1169 ,V1 IN VARCHAR2
1170 ,T2 IN VARCHAR2
1171 ,V2 IN VARCHAR2) IS
1172 BEGIN
1173 STPROC.INIT('begin ARP_STANDARD.FND_MESSAGE(:MD_OPTIONS, :MSG_NAME, :T1, :V1, :T2, :V2); end;');
1174 STPROC.BIND_I(MD_OPTIONS);
1175 STPROC.BIND_I(MSG_NAME);
1176 STPROC.BIND_I(T1);
1177 STPROC.BIND_I(V1);
1178 STPROC.BIND_I(T2);
1179 STPROC.BIND_I(V2);
1180 STPROC.EXECUTE;
1181 END FND_MESSAGE;
1182
1183 PROCEDURE FND_MESSAGE(MD_OPTIONS IN NUMBER
1184 ,MSG_NAME IN VARCHAR2
1185 ,T1 IN VARCHAR2
1186 ,V1 IN VARCHAR2
1187 ,T2 IN VARCHAR2
1188 ,V2 IN VARCHAR2
1189 ,T3 IN VARCHAR2
1190 ,V3 IN VARCHAR2) IS
1191 BEGIN
1192 STPROC.INIT('begin ARP_STANDARD.FND_MESSAGE(:MD_OPTIONS, :MSG_NAME, :T1, :V1, :T2, :V2, :T3, :V3); end;');
1193 STPROC.BIND_I(MD_OPTIONS);
1194 STPROC.BIND_I(MSG_NAME);
1195 STPROC.BIND_I(T1);
1196 STPROC.BIND_I(V1);
1197 STPROC.BIND_I(T2);
1198 STPROC.BIND_I(V2);
1199 STPROC.BIND_I(T3);
1200 STPROC.BIND_I(V3);
1201 STPROC.EXECUTE;
1202 END FND_MESSAGE;
1203
1204 PROCEDURE FND_MESSAGE(MD_OPTIONS IN NUMBER
1205 ,MSG_NAME IN VARCHAR2
1206 ,T1 IN VARCHAR2
1207 ,V1 IN VARCHAR2
1208 ,T2 IN VARCHAR2
1209 ,V2 IN VARCHAR2
1210 ,T3 IN VARCHAR2
1211 ,V3 IN VARCHAR2
1212 ,T4 IN VARCHAR2
1213 ,V4 IN VARCHAR2) IS
1214 BEGIN
1218 STPROC.BIND_I(T1);
1215 STPROC.INIT('begin ARP_STANDARD.FND_MESSAGE(:MD_OPTIONS, :MSG_NAME, :T1, :V1, :T2, :V2, :T3, :V3, :T4, :V4); end;');
1216 STPROC.BIND_I(MD_OPTIONS);
1217 STPROC.BIND_I(MSG_NAME);
1219 STPROC.BIND_I(V1);
1220 STPROC.BIND_I(T2);
1221 STPROC.BIND_I(V2);
1222 STPROC.BIND_I(T3);
1223 STPROC.BIND_I(V3);
1224 STPROC.BIND_I(T4);
1225 STPROC.BIND_I(V4);
1226 STPROC.EXECUTE;
1227 END FND_MESSAGE;
1228
1229 PROCEDURE GL_ACTIVITY(P_PERIOD_FROM IN VARCHAR2
1230 ,P_PERIOD_TO IN VARCHAR2
1231 ,P_CODE_COMBINATION_ID IN NUMBER
1232 ,P_SET_OF_BOOKS_ID IN NUMBER
1233 ,P_PERIOD_NET_DR OUT NOCOPY NUMBER
1234 ,P_PERIOD_NET_CR OUT NOCOPY NUMBER) IS
1235 BEGIN
1236 STPROC.INIT('begin ARP_STANDARD.GL_ACTIVITY(:P_PERIOD_FROM, :P_PERIOD_TO, :P_CODE_COMBINATION_ID, :P_SET_OF_BOOKS_ID, :P_PERIOD_NET_DR, :P_PERIOD_NET_CR); end;');
1237 STPROC.BIND_I(P_PERIOD_FROM);
1238 STPROC.BIND_I(P_PERIOD_TO);
1239 STPROC.BIND_I(P_CODE_COMBINATION_ID);
1240 STPROC.BIND_I(P_SET_OF_BOOKS_ID);
1241 STPROC.BIND_O(P_PERIOD_NET_DR);
1242 STPROC.BIND_O(P_PERIOD_NET_CR);
1243 STPROC.EXECUTE;
1244 STPROC.RETRIEVE(5
1245 ,P_PERIOD_NET_DR);
1246 STPROC.RETRIEVE(6
1247 ,P_PERIOD_NET_CR);
1248 END GL_ACTIVITY;
1249
1250 PROCEDURE FIND_PREVIOUS_TRX_LINE_ID(P_CUSTOMER_TRX_LINE_ID IN NUMBER
1251 ,P_TAX_LINE_NUMBER IN NUMBER
1252 ,P_VAT_TAX_ID IN NUMBER
1253 ,P_TAX_CUSTOMER_TRX_ID OUT NOCOPY NUMBER
1254 ,P_TAX_CUSTOMER_TRX_LINE_ID OUT NOCOPY NUMBER
1255 ,P_CHK_APPLIED_CM IN BOOLEAN) IS
1256 BEGIN
1257 STPROC.INIT('declare P_CHK_APPLIED_CM BOOLEAN;
1258 begin P_CHK_APPLIED_CM := sys.diutil.int_to_bool(:P_CHK_APPLIED_CM); ARP_STANDARD.FIND_PREVIOUS_TRX_LINE_ID(:P_CUSTOMER_TRX_LINE_ID, :P_TAX_LINE_NUMBER,
1259 :P_VAT_TAX_ID, :P_TAX_CUSTOMER_TRX_ID, :P_TAX_CUSTOMER_TRX_LINE_ID, P_CHK_APPLIED_CM);
1260 end;');
1261 STPROC.BIND_I(P_CHK_APPLIED_CM);
1262 STPROC.BIND_I(P_CUSTOMER_TRX_LINE_ID);
1263 STPROC.BIND_I(P_TAX_LINE_NUMBER);
1264 STPROC.BIND_I(P_VAT_TAX_ID);
1265 STPROC.BIND_O(P_TAX_CUSTOMER_TRX_ID);
1266 STPROC.BIND_O(P_TAX_CUSTOMER_TRX_LINE_ID);
1267 STPROC.EXECUTE;
1268 STPROC.RETRIEVE(5
1269 ,P_TAX_CUSTOMER_TRX_ID);
1270 STPROC.RETRIEVE(6
1271 ,P_TAX_CUSTOMER_TRX_LINE_ID);
1272 END FIND_PREVIOUS_TRX_LINE_ID;
1273 */
1274
1275 /* FUNCTION GET_APP_INFO(APPLICATION_SHORT_NAME IN VARCHAR2
1276 ,STATUS OUT NOCOPY VARCHAR2
1277 ,INDUSTRY OUT NOCOPY VARCHAR2
1278 ,ORACLE_SCHEMA OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
1279 X0 BOOLEAN;
1280 BEGIN
1281 STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_INSTALLATION.GET_APP_INFO(:APPLICATION_SHORT_NAME, :STATUS, :INDUSTRY, :ORACLE_SCHEMA);
1282 :X0 := sys.diutil.bool_to_int(X0rv); end;');
1283 STPROC.BIND_I(APPLICATION_SHORT_NAME);
1284 STPROC.BIND_O(STATUS);
1285 STPROC.BIND_O(INDUSTRY);
1286 STPROC.BIND_O(ORACLE_SCHEMA);
1287 STPROC.BIND_O(X0);
1288 STPROC.EXECUTE;
1289 STPROC.RETRIEVE(2
1290 ,STATUS);
1291 STPROC.RETRIEVE(3
1292 ,INDUSTRY);
1293 STPROC.RETRIEVE(4
1294 ,ORACLE_SCHEMA);
1295 STPROC.RETRIEVE(5
1296 ,X0);
1297 RETURN X0;
1298 END GET_APP_INFO;
1299
1300 FUNCTION GET_APP_INFO_OTHER(APPLICATION_SHORT_NAME IN VARCHAR2
1301 ,TARGET_SCHEMA IN VARCHAR2
1302 ,STATUS OUT NOCOPY VARCHAR2
1303 ,INDUSTRY OUT NOCOPY VARCHAR2
1304 ,ORACLE_SCHEMA OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
1305 X0 BOOLEAN;
1306 BEGIN
1307 STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := FND_INSTALLATION.GET_APP_INFO_OTHER(:APPLICATION_SHORT_NAME, :TARGET_SCHEMA, :STATUS, :INDUSTRY, :ORACLE_SCHEMA);
1308 :X0 := sys.diutil.bool_to_int(X0rv); end;');
1309 STPROC.BIND_I(APPLICATION_SHORT_NAME);
1310 STPROC.BIND_I(TARGET_SCHEMA);
1311 STPROC.BIND_O(STATUS);
1312 STPROC.BIND_O(INDUSTRY);
1313 STPROC.BIND_O(ORACLE_SCHEMA);
1314 STPROC.BIND_O(X0);
1315 STPROC.EXECUTE;
1316 STPROC.RETRIEVE(3
1317 ,STATUS);
1318 STPROC.RETRIEVE(4
1319 ,INDUSTRY);
1320 STPROC.RETRIEVE(5
1321 ,ORACLE_SCHEMA);
1322 STPROC.RETRIEVE(6
1323 ,X0);
1324 RETURN X0;
1325 END GET_APP_INFO_OTHER;*/
1326
1327
1328
1329 FUNCTION GET(APPL_ID IN INTEGER
1330 ,DEP_APPL_ID IN INTEGER
1331 ,STATUS OUT NOCOPY VARCHAR2
1332 ,INDUSTRY OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
1333 X0 BOOLEAN;
1334 X0rv BOOLEAN;
1335 BEGIN
1336 /* STPROC.INIT('declare X0rv BOOLEAN;
1337 begin X0rv := FND_INSTALLATION.GET(:APPL_ID, :DEP_APPL_ID, :STATUS, :INDUSTRY);
1338 :X0 := sys.diutil.bool_to_int(X0rv); end;');
1339 STPROC.BIND_I(APPL_ID);
1340 STPROC.BIND_I(DEP_APPL_ID);
1341 STPROC.BIND_O(STATUS);
1342 STPROC.BIND_O(INDUSTRY);
1343 STPROC.BIND_O(X0);
1344 STPROC.EXECUTE;
1345 STPROC.RETRIEVE(3
1346 ,STATUS);
1347 STPROC.RETRIEVE(4
1348 ,INDUSTRY);
1349 STPROC.RETRIEVE(5
1350 ,X0);*/
1351 X0rv := FND_INSTALLATION.GET(APPL_ID, DEP_APPL_ID, STATUS, INDUSTRY);
1352 --X0 := sys.diutil.bool_to_int(X0rv);
1353
1354
1355 RETURN X0rv;
1356 END GET;
1357
1358
1359 END IGI_IGIRRTRH_XMLP_PKG;
1360