1: package body ahl_prd_parts_change_pvt_w as
2: /* $Header: AHLWPPCB.pls 120.4 2008/02/01 03:22:50 sikumar ship $ */
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: rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
12: if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13: return d;
14: end;
15:
16: procedure rosetta_table_copy_in_p1(t out nocopy ahl_prd_parts_change_pvt.ahl_parts_tbl_type, a0 JTF_NUMBER_TABLE
17: , a1 JTF_NUMBER_TABLE
18: , a2 JTF_NUMBER_TABLE
19: , a3 JTF_NUMBER_TABLE
20: , a4 JTF_VARCHAR2_TABLE_100
95: end loop;
96: end if;
97: end if;
98: end rosetta_table_copy_in_p1;
99: procedure rosetta_table_copy_out_p1(t ahl_prd_parts_change_pvt.ahl_parts_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
100: , a1 out nocopy JTF_NUMBER_TABLE
101: , a2 out nocopy JTF_NUMBER_TABLE
102: , a3 out nocopy JTF_NUMBER_TABLE
103: , a4 out nocopy JTF_VARCHAR2_TABLE_100
279: end if;
280: end if;
281: end rosetta_table_copy_out_p1;
282:
283: procedure rosetta_table_copy_in_p7(t out nocopy ahl_prd_parts_change_pvt.move_item_instance_tbl_type, a0 JTF_NUMBER_TABLE
284: , a1 JTF_VARCHAR2_TABLE_100
285: , a2 JTF_NUMBER_TABLE
286: , a3 JTF_NUMBER_TABLE
287: , a4 JTF_VARCHAR2_TABLE_100
310: end loop;
311: end if;
312: end if;
313: end rosetta_table_copy_in_p7;
314: procedure rosetta_table_copy_out_p7(t ahl_prd_parts_change_pvt.move_item_instance_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
315: , a1 out nocopy JTF_VARCHAR2_TABLE_100
316: , a2 out nocopy JTF_NUMBER_TABLE
317: , a3 out nocopy JTF_NUMBER_TABLE
318: , a4 out nocopy JTF_VARCHAR2_TABLE_100
411: , x_warning_msg_tbl out nocopy JTF_VARCHAR2_TABLE_2000
412: )
413:
414: as
415: ddp_x_parts_rec_tbl ahl_prd_parts_change_pvt.ahl_parts_tbl_type;
416: ddx_warning_msg_tbl ahl_uc_validation_pub.error_tbl_type;
417: ddindx binary_integer; indx binary_integer;
418: begin
419:
423:
424:
425:
426:
427: ahl_prd_parts_change_pvt_w.rosetta_table_copy_in_p1(ddp_x_parts_rec_tbl, p6_a0
428: , p6_a1
429: , p6_a2
430: , p6_a3
431: , p6_a4
464:
465:
466:
467: -- here's the delegated call to the old PL/SQL routine
468: ahl_prd_parts_change_pvt.process_part(p_api_version,
469: p_init_msg_list,
470: p_commit,
471: p_validation_level,
472: p_module_type,
484:
485:
486:
487:
488: ahl_prd_parts_change_pvt_w.rosetta_table_copy_out_p1(ddp_x_parts_rec_tbl, p6_a0
489: , p6_a1
490: , p6_a2
491: , p6_a3
492: , p6_a4
608:
609:
610:
611: -- here's the delegated call to the old PL/SQL routine
612: ahl_prd_parts_change_pvt.returnto_workorder_locator(p_init_msg_list,
613: p_commit,
614: p_part_change_id,
615: p_disposition_id,
616: x_return_status,
704: , x_msg_data out nocopy VARCHAR2
705: )
706:
707: as
708: ddp_move_item_instance_tbl ahl_prd_parts_change_pvt.move_item_instance_tbl_type;
709: ddindx binary_integer; indx binary_integer;
710: begin
711:
712: -- copy data to the local IN or IN-OUT args, if any
715:
716:
717:
718:
719: ahl_prd_parts_change_pvt_w.rosetta_table_copy_in_p7(ddp_move_item_instance_tbl, p6_a0
720: , p6_a1
721: , p6_a2
722: , p6_a3
723: , p6_a4
728:
729:
730:
731: -- here's the delegated call to the old PL/SQL routine
732: ahl_prd_parts_change_pvt.move_instance_location(p_api_version,
733: p_init_msg_list,
734: p_commit,
735: p_validation_level,
736: p_module_type,
751:
752:
753: end;
754:
755: end ahl_prd_parts_change_pvt_w;