1: package body iem_emailproc_pvt_w as
2: /* $Header: iemvepcb.pls 115.5 2003/08/19 20:45:01 liangxia noship $ */
3: rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4: rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5:
9: if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10: return d;
11: end;
12:
13: procedure rosetta_table_copy_in_p5(t out nocopy iem_emailproc_pvt.emailproc_tbl, a0 JTF_NUMBER_TABLE
14: , a1 JTF_VARCHAR2_TABLE_300
15: , a2 JTF_VARCHAR2_TABLE_300
16: , a3 JTF_VARCHAR2_TABLE_100
17: , a4 JTF_VARCHAR2_TABLE_100
42: end loop;
43: end if;
44: end if;
45: end rosetta_table_copy_in_p5;
46: procedure rosetta_table_copy_out_p5(t iem_emailproc_pvt.emailproc_tbl, a0 out nocopy JTF_NUMBER_TABLE
47: , a1 out nocopy JTF_VARCHAR2_TABLE_300
48: , a2 out nocopy JTF_VARCHAR2_TABLE_300
49: , a3 out nocopy JTF_VARCHAR2_TABLE_100
50: , a4 out nocopy JTF_VARCHAR2_TABLE_100
101: end if;
102: end if;
103: end rosetta_table_copy_out_p5;
104:
105: procedure rosetta_table_copy_in_p7(t out nocopy iem_emailproc_pvt.acctemailproc_tbl, a0 JTF_NUMBER_TABLE
106: , a1 JTF_NUMBER_TABLE
107: , a2 JTF_VARCHAR2_TABLE_300
108: , a3 JTF_VARCHAR2_TABLE_300
109: , a4 JTF_VARCHAR2_TABLE_100
136: end loop;
137: end if;
138: end if;
139: end rosetta_table_copy_in_p7;
140: procedure rosetta_table_copy_out_p7(t iem_emailproc_pvt.acctemailproc_tbl, a0 out nocopy JTF_NUMBER_TABLE
141: , a1 out nocopy JTF_NUMBER_TABLE
142: , a2 out nocopy JTF_VARCHAR2_TABLE_300
143: , a3 out nocopy JTF_VARCHAR2_TABLE_300
144: , a4 out nocopy JTF_VARCHAR2_TABLE_100
273: , x_msg_data out nocopy VARCHAR2
274: )
275:
276: as
277: ddx_classification iem_emailproc_pvt.emailproc_tbl;
278: ddx_autodelete iem_emailproc_pvt.emailproc_tbl;
279: ddx_autoack iem_emailproc_pvt.emailproc_tbl;
280: ddx_autoproc iem_emailproc_pvt.emailproc_tbl;
281: ddx_redirect iem_emailproc_pvt.emailproc_tbl;
274: )
275:
276: as
277: ddx_classification iem_emailproc_pvt.emailproc_tbl;
278: ddx_autodelete iem_emailproc_pvt.emailproc_tbl;
279: ddx_autoack iem_emailproc_pvt.emailproc_tbl;
280: ddx_autoproc iem_emailproc_pvt.emailproc_tbl;
281: ddx_redirect iem_emailproc_pvt.emailproc_tbl;
282: ddx_3rs iem_emailproc_pvt.emailproc_tbl;
275:
276: as
277: ddx_classification iem_emailproc_pvt.emailproc_tbl;
278: ddx_autodelete iem_emailproc_pvt.emailproc_tbl;
279: ddx_autoack iem_emailproc_pvt.emailproc_tbl;
280: ddx_autoproc iem_emailproc_pvt.emailproc_tbl;
281: ddx_redirect iem_emailproc_pvt.emailproc_tbl;
282: ddx_3rs iem_emailproc_pvt.emailproc_tbl;
283: ddx_document iem_emailproc_pvt.emailproc_tbl;
276: as
277: ddx_classification iem_emailproc_pvt.emailproc_tbl;
278: ddx_autodelete iem_emailproc_pvt.emailproc_tbl;
279: ddx_autoack iem_emailproc_pvt.emailproc_tbl;
280: ddx_autoproc iem_emailproc_pvt.emailproc_tbl;
281: ddx_redirect iem_emailproc_pvt.emailproc_tbl;
282: ddx_3rs iem_emailproc_pvt.emailproc_tbl;
283: ddx_document iem_emailproc_pvt.emailproc_tbl;
284: ddx_route iem_emailproc_pvt.emailproc_tbl;
277: ddx_classification iem_emailproc_pvt.emailproc_tbl;
278: ddx_autodelete iem_emailproc_pvt.emailproc_tbl;
279: ddx_autoack iem_emailproc_pvt.emailproc_tbl;
280: ddx_autoproc iem_emailproc_pvt.emailproc_tbl;
281: ddx_redirect iem_emailproc_pvt.emailproc_tbl;
282: ddx_3rs iem_emailproc_pvt.emailproc_tbl;
283: ddx_document iem_emailproc_pvt.emailproc_tbl;
284: ddx_route iem_emailproc_pvt.emailproc_tbl;
285: ddindx binary_integer; indx binary_integer;
278: ddx_autodelete iem_emailproc_pvt.emailproc_tbl;
279: ddx_autoack iem_emailproc_pvt.emailproc_tbl;
280: ddx_autoproc iem_emailproc_pvt.emailproc_tbl;
281: ddx_redirect iem_emailproc_pvt.emailproc_tbl;
282: ddx_3rs iem_emailproc_pvt.emailproc_tbl;
283: ddx_document iem_emailproc_pvt.emailproc_tbl;
284: ddx_route iem_emailproc_pvt.emailproc_tbl;
285: ddindx binary_integer; indx binary_integer;
286: begin
279: ddx_autoack iem_emailproc_pvt.emailproc_tbl;
280: ddx_autoproc iem_emailproc_pvt.emailproc_tbl;
281: ddx_redirect iem_emailproc_pvt.emailproc_tbl;
282: ddx_3rs iem_emailproc_pvt.emailproc_tbl;
283: ddx_document iem_emailproc_pvt.emailproc_tbl;
284: ddx_route iem_emailproc_pvt.emailproc_tbl;
285: ddindx binary_integer; indx binary_integer;
286: begin
287:
280: ddx_autoproc iem_emailproc_pvt.emailproc_tbl;
281: ddx_redirect iem_emailproc_pvt.emailproc_tbl;
282: ddx_3rs iem_emailproc_pvt.emailproc_tbl;
283: ddx_document iem_emailproc_pvt.emailproc_tbl;
284: ddx_route iem_emailproc_pvt.emailproc_tbl;
285: ddindx binary_integer; indx binary_integer;
286: begin
287:
288: -- copy data to the local IN or IN-OUT args, if any
300:
301:
302:
303: -- here's the delegated call to the old PL/SQL routine
304: iem_emailproc_pvt.loademailproc(p_api_version_number,
305: p_init_msg_list,
306: p_commit,
307: ddx_classification,
308: ddx_autodelete,
319: -- copy data back from the local variables to OUT or IN-OUT args, if any
320:
321:
322:
323: iem_emailproc_pvt_w.rosetta_table_copy_out_p5(ddx_classification, p3_a0
324: , p3_a1
325: , p3_a2
326: , p3_a3
327: , p3_a4
329: , p3_a6
330: , p3_a7
331: );
332:
333: iem_emailproc_pvt_w.rosetta_table_copy_out_p5(ddx_autodelete, p4_a0
334: , p4_a1
335: , p4_a2
336: , p4_a3
337: , p4_a4
339: , p4_a6
340: , p4_a7
341: );
342:
343: iem_emailproc_pvt_w.rosetta_table_copy_out_p5(ddx_autoack, p5_a0
344: , p5_a1
345: , p5_a2
346: , p5_a3
347: , p5_a4
349: , p5_a6
350: , p5_a7
351: );
352:
353: iem_emailproc_pvt_w.rosetta_table_copy_out_p5(ddx_autoproc, p6_a0
354: , p6_a1
355: , p6_a2
356: , p6_a3
357: , p6_a4
359: , p6_a6
360: , p6_a7
361: );
362:
363: iem_emailproc_pvt_w.rosetta_table_copy_out_p5(ddx_redirect, p7_a0
364: , p7_a1
365: , p7_a2
366: , p7_a3
367: , p7_a4
369: , p7_a6
370: , p7_a7
371: );
372:
373: iem_emailproc_pvt_w.rosetta_table_copy_out_p5(ddx_3rs, p8_a0
374: , p8_a1
375: , p8_a2
376: , p8_a3
377: , p8_a4
379: , p8_a6
380: , p8_a7
381: );
382:
383: iem_emailproc_pvt_w.rosetta_table_copy_out_p5(ddx_document, p9_a0
384: , p9_a1
385: , p9_a2
386: , p9_a3
387: , p9_a4
389: , p9_a6
390: , p9_a7
391: );
392:
393: iem_emailproc_pvt_w.rosetta_table_copy_out_p5(ddx_route, p10_a0
394: , p10_a1
395: , p10_a2
396: , p10_a3
397: , p10_a4
485: , x_msg_data out nocopy VARCHAR2
486: )
487:
488: as
489: ddx_classification iem_emailproc_pvt.acctemailproc_tbl;
490: ddx_autodelete iem_emailproc_pvt.acctemailproc_tbl;
491: ddx_autoack iem_emailproc_pvt.acctemailproc_tbl;
492: ddx_autoproc iem_emailproc_pvt.acctemailproc_tbl;
493: ddx_redirect iem_emailproc_pvt.acctemailproc_tbl;
486: )
487:
488: as
489: ddx_classification iem_emailproc_pvt.acctemailproc_tbl;
490: ddx_autodelete iem_emailproc_pvt.acctemailproc_tbl;
491: ddx_autoack iem_emailproc_pvt.acctemailproc_tbl;
492: ddx_autoproc iem_emailproc_pvt.acctemailproc_tbl;
493: ddx_redirect iem_emailproc_pvt.acctemailproc_tbl;
494: ddx_3rs iem_emailproc_pvt.acctemailproc_tbl;
487:
488: as
489: ddx_classification iem_emailproc_pvt.acctemailproc_tbl;
490: ddx_autodelete iem_emailproc_pvt.acctemailproc_tbl;
491: ddx_autoack iem_emailproc_pvt.acctemailproc_tbl;
492: ddx_autoproc iem_emailproc_pvt.acctemailproc_tbl;
493: ddx_redirect iem_emailproc_pvt.acctemailproc_tbl;
494: ddx_3rs iem_emailproc_pvt.acctemailproc_tbl;
495: ddx_document iem_emailproc_pvt.acctemailproc_tbl;
488: as
489: ddx_classification iem_emailproc_pvt.acctemailproc_tbl;
490: ddx_autodelete iem_emailproc_pvt.acctemailproc_tbl;
491: ddx_autoack iem_emailproc_pvt.acctemailproc_tbl;
492: ddx_autoproc iem_emailproc_pvt.acctemailproc_tbl;
493: ddx_redirect iem_emailproc_pvt.acctemailproc_tbl;
494: ddx_3rs iem_emailproc_pvt.acctemailproc_tbl;
495: ddx_document iem_emailproc_pvt.acctemailproc_tbl;
496: ddx_route iem_emailproc_pvt.acctemailproc_tbl;
489: ddx_classification iem_emailproc_pvt.acctemailproc_tbl;
490: ddx_autodelete iem_emailproc_pvt.acctemailproc_tbl;
491: ddx_autoack iem_emailproc_pvt.acctemailproc_tbl;
492: ddx_autoproc iem_emailproc_pvt.acctemailproc_tbl;
493: ddx_redirect iem_emailproc_pvt.acctemailproc_tbl;
494: ddx_3rs iem_emailproc_pvt.acctemailproc_tbl;
495: ddx_document iem_emailproc_pvt.acctemailproc_tbl;
496: ddx_route iem_emailproc_pvt.acctemailproc_tbl;
497: ddindx binary_integer; indx binary_integer;
490: ddx_autodelete iem_emailproc_pvt.acctemailproc_tbl;
491: ddx_autoack iem_emailproc_pvt.acctemailproc_tbl;
492: ddx_autoproc iem_emailproc_pvt.acctemailproc_tbl;
493: ddx_redirect iem_emailproc_pvt.acctemailproc_tbl;
494: ddx_3rs iem_emailproc_pvt.acctemailproc_tbl;
495: ddx_document iem_emailproc_pvt.acctemailproc_tbl;
496: ddx_route iem_emailproc_pvt.acctemailproc_tbl;
497: ddindx binary_integer; indx binary_integer;
498: begin
491: ddx_autoack iem_emailproc_pvt.acctemailproc_tbl;
492: ddx_autoproc iem_emailproc_pvt.acctemailproc_tbl;
493: ddx_redirect iem_emailproc_pvt.acctemailproc_tbl;
494: ddx_3rs iem_emailproc_pvt.acctemailproc_tbl;
495: ddx_document iem_emailproc_pvt.acctemailproc_tbl;
496: ddx_route iem_emailproc_pvt.acctemailproc_tbl;
497: ddindx binary_integer; indx binary_integer;
498: begin
499:
492: ddx_autoproc iem_emailproc_pvt.acctemailproc_tbl;
493: ddx_redirect iem_emailproc_pvt.acctemailproc_tbl;
494: ddx_3rs iem_emailproc_pvt.acctemailproc_tbl;
495: ddx_document iem_emailproc_pvt.acctemailproc_tbl;
496: ddx_route iem_emailproc_pvt.acctemailproc_tbl;
497: ddindx binary_integer; indx binary_integer;
498: begin
499:
500: -- copy data to the local IN or IN-OUT args, if any
513:
514:
515:
516: -- here's the delegated call to the old PL/SQL routine
517: iem_emailproc_pvt.loadacctemailproc(p_api_version_number,
518: p_init_msg_list,
519: p_commit,
520: p_acct_id,
521: ddx_classification,
534:
535:
536:
537:
538: iem_emailproc_pvt_w.rosetta_table_copy_out_p7(ddx_classification, p4_a0
539: , p4_a1
540: , p4_a2
541: , p4_a3
542: , p4_a4
545: , p4_a7
546: , p4_a8
547: );
548:
549: iem_emailproc_pvt_w.rosetta_table_copy_out_p7(ddx_autodelete, p5_a0
550: , p5_a1
551: , p5_a2
552: , p5_a3
553: , p5_a4
556: , p5_a7
557: , p5_a8
558: );
559:
560: iem_emailproc_pvt_w.rosetta_table_copy_out_p7(ddx_autoack, p6_a0
561: , p6_a1
562: , p6_a2
563: , p6_a3
564: , p6_a4
567: , p6_a7
568: , p6_a8
569: );
570:
571: iem_emailproc_pvt_w.rosetta_table_copy_out_p7(ddx_autoproc, p7_a0
572: , p7_a1
573: , p7_a2
574: , p7_a3
575: , p7_a4
578: , p7_a7
579: , p7_a8
580: );
581:
582: iem_emailproc_pvt_w.rosetta_table_copy_out_p7(ddx_redirect, p8_a0
583: , p8_a1
584: , p8_a2
585: , p8_a3
586: , p8_a4
589: , p8_a7
590: , p8_a8
591: );
592:
593: iem_emailproc_pvt_w.rosetta_table_copy_out_p7(ddx_3rs, p9_a0
594: , p9_a1
595: , p9_a2
596: , p9_a3
597: , p9_a4
600: , p9_a7
601: , p9_a8
602: );
603:
604: iem_emailproc_pvt_w.rosetta_table_copy_out_p7(ddx_document, p10_a0
605: , p10_a1
606: , p10_a2
607: , p10_a3
608: , p10_a4
611: , p10_a7
612: , p10_a8
613: );
614:
615: iem_emailproc_pvt_w.rosetta_table_copy_out_p7(ddx_route, p11_a0
616: , p11_a1
617: , p11_a2
618: , p11_a3
619: , p11_a4
626:
627:
628: end;
629:
630: end iem_emailproc_pvt_w;