1: package body ahl_ltp_simul_plan_pub_w as
2: /* $Header: AHLWSPNB.pls 115.4 2002/12/04 19:22:54 ssurapan 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_p1(t out nocopy ahl_ltp_simul_plan_pub.simulation_plan_tbl, a0 JTF_NUMBER_TABLE
14: , a1 JTF_DATE_TABLE
15: , a2 JTF_NUMBER_TABLE
16: , a3 JTF_DATE_TABLE
17: , a4 JTF_NUMBER_TABLE
80: end loop;
81: end if;
82: end if;
83: end rosetta_table_copy_in_p1;
84: procedure rosetta_table_copy_out_p1(t ahl_ltp_simul_plan_pub.simulation_plan_tbl, a0 out nocopy JTF_NUMBER_TABLE
85: , a1 out nocopy JTF_DATE_TABLE
86: , a2 out nocopy JTF_NUMBER_TABLE
87: , a3 out nocopy JTF_DATE_TABLE
88: , a4 out nocopy JTF_NUMBER_TABLE
234: end if;
235: end if;
236: end rosetta_table_copy_out_p1;
237:
238: procedure rosetta_table_copy_in_p3(t out nocopy ahl_ltp_simul_plan_pub.simulation_visit_tbl, a0 JTF_NUMBER_TABLE
239: , a1 JTF_NUMBER_TABLE
240: , a2 JTF_NUMBER_TABLE
241: , a3 JTF_VARCHAR2_TABLE_100
242: , a4 JTF_NUMBER_TABLE
269: end loop;
270: end if;
271: end if;
272: end rosetta_table_copy_in_p3;
273: procedure rosetta_table_copy_out_p3(t ahl_ltp_simul_plan_pub.simulation_visit_tbl, a0 out nocopy JTF_NUMBER_TABLE
274: , a1 out nocopy JTF_NUMBER_TABLE
275: , a2 out nocopy JTF_NUMBER_TABLE
276: , a3 out nocopy JTF_VARCHAR2_TABLE_100
277: , a4 out nocopy JTF_NUMBER_TABLE
371: , x_msg_data out nocopy VARCHAR2
372: )
373:
374: as
375: ddp_x_simulation_plan_tbl ahl_ltp_simul_plan_pub.simulation_plan_tbl;
376: ddindx binary_integer; indx binary_integer;
377: begin
378:
379: -- copy data to the local IN or IN-OUT args, if any
381:
382:
383:
384:
385: ahl_ltp_simul_plan_pub_w.rosetta_table_copy_in_p1(ddp_x_simulation_plan_tbl, p5_a0
386: , p5_a1
387: , p5_a2
388: , p5_a3
389: , p5_a4
414:
415:
416:
417: -- here's the delegated call to the old PL/SQL routine
418: ahl_ltp_simul_plan_pub.process_simulation_plan(p_api_version,
419: p_init_msg_list,
420: p_commit,
421: p_validation_level,
422: p_module_type,
430:
431:
432:
433:
434: ahl_ltp_simul_plan_pub_w.rosetta_table_copy_out_p1(ddp_x_simulation_plan_tbl, p5_a0
435: , p5_a1
436: , p5_a2
437: , p5_a3
438: , p5_a4
483: , x_msg_data out nocopy VARCHAR2
484: )
485:
486: as
487: ddp_simulation_visit_tbl ahl_ltp_simul_plan_pub.simulation_visit_tbl;
488: ddindx binary_integer; indx binary_integer;
489: begin
490:
491: -- copy data to the local IN or IN-OUT args, if any
493:
494:
495:
496:
497: ahl_ltp_simul_plan_pub_w.rosetta_table_copy_in_p3(ddp_simulation_visit_tbl, p5_a0
498: , p5_a1
499: , p5_a2
500: , p5_a3
501: , p5_a4
508:
509:
510:
511: -- here's the delegated call to the old PL/SQL routine
512: ahl_ltp_simul_plan_pub.process_simulation_visit(p_api_version,
513: p_init_msg_list,
514: p_commit,
515: p_validation_level,
516: p_module_type,
524:
525:
526:
527:
528: ahl_ltp_simul_plan_pub_w.rosetta_table_copy_out_p3(ddp_simulation_visit_tbl, p5_a0
529: , p5_a1
530: , p5_a2
531: , p5_a3
532: , p5_a4
539:
540:
541: end;
542:
543: end ahl_ltp_simul_plan_pub_w;