1: package body ahl_prd_df_pvt_w as
2: /* $Header: AHLWPDFB.pls 120.4.12020000.2 2012/12/13 06:48:38 shnatu 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_p15(t out nocopy ahl_prd_df_pvt.df_schedules_tbl_type, a0 JTF_NUMBER_TABLE
17: , a1 JTF_NUMBER_TABLE
18: , a2 JTF_NUMBER_TABLE
19: , a3 JTF_DATE_TABLE
20: , a4 JTF_NUMBER_TABLE
89: end loop;
90: end if;
91: end if;
92: end rosetta_table_copy_in_p15;
93: procedure rosetta_table_copy_out_p15(t ahl_prd_df_pvt.df_schedules_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
94: , a1 out nocopy JTF_NUMBER_TABLE
95: , a2 out nocopy JTF_NUMBER_TABLE
96: , a3 out nocopy JTF_DATE_TABLE
97: , a4 out nocopy JTF_NUMBER_TABLE
339: , x_msg_data out nocopy VARCHAR2
340: )
341:
342: as
343: ddp_x_df_header_rec ahl_prd_df_pvt.df_header_rec_type;
344: ddp_x_df_schedules_tbl ahl_prd_df_pvt.df_schedules_tbl_type;
345: ddindx binary_integer; indx binary_integer;
346: begin
347:
340: )
341:
342: as
343: ddp_x_df_header_rec ahl_prd_df_pvt.df_header_rec_type;
344: ddp_x_df_schedules_tbl ahl_prd_df_pvt.df_schedules_tbl_type;
345: ddindx binary_integer; indx binary_integer;
346: begin
347:
348: -- copy data to the local IN or IN-OUT args, if any
391: ddp_x_df_header_rec.attribute14 := p5_a37;
392: ddp_x_df_header_rec.attribute15 := p5_a38;
393: ddp_x_df_header_rec.user_deferral_type_code := p5_a39;
394:
395: ahl_prd_df_pvt_w.rosetta_table_copy_in_p15(ddp_x_df_schedules_tbl, p6_a0
396: , p6_a1
397: , p6_a2
398: , p6_a3
399: , p6_a4
427:
428:
429:
430: -- here's the delegated call to the old PL/SQL routine
431: ahl_prd_df_pvt.process_deferral(p_api_version,
432: p_init_msg_list,
433: p_commit,
434: p_validation_level,
435: p_module_type,
485: p5_a37 := ddp_x_df_header_rec.attribute14;
486: p5_a38 := ddp_x_df_header_rec.attribute15;
487: p5_a39 := ddp_x_df_header_rec.user_deferral_type_code;
488:
489: ahl_prd_df_pvt_w.rosetta_table_copy_out_p15(ddp_x_df_schedules_tbl, p6_a0
490: , p6_a1
491: , p6_a2
492: , p6_a3
493: , p6_a4
608: , x_msg_data out nocopy VARCHAR2
609: )
610:
611: as
612: ddx_df_header_info_rec ahl_prd_df_pvt.df_header_info_rec_type;
613: ddx_df_schedules_tbl ahl_prd_df_pvt.df_schedules_tbl_type;
614: ddindx binary_integer; indx binary_integer;
615: begin
616:
609: )
610:
611: as
612: ddx_df_header_info_rec ahl_prd_df_pvt.df_header_info_rec_type;
613: ddx_df_schedules_tbl ahl_prd_df_pvt.df_schedules_tbl_type;
614: ddindx binary_integer; indx binary_integer;
615: begin
616:
617: -- copy data to the local IN or IN-OUT args, if any
622:
623:
624:
625: -- here's the delegated call to the old PL/SQL routine
626: ahl_prd_df_pvt.get_deferral_details(p_init_msg_list,
627: p_unit_effectivity_id,
628: ddx_df_header_info_rec,
629: ddx_df_schedules_tbl,
630: x_return_status,
683: p2_a46 := ddx_df_header_info_rec.attribute13;
684: p2_a47 := ddx_df_header_info_rec.attribute14;
685: p2_a48 := ddx_df_header_info_rec.attribute15;
686:
687: ahl_prd_df_pvt_w.rosetta_table_copy_out_p15(ddx_df_schedules_tbl, p3_a0
688: , p3_a1
689: , p3_a2
690: , p3_a3
691: , p3_a4
731:
732: -- copy data to the local IN or IN-OUT args, if any
733:
734: -- here's the delegated call to the old PL/SQL routine
735: ddrosetta_retval := ahl_prd_df_pvt.process_deferred_exceptions(p_unit_effectivity_id);
736:
737: -- copy data back from the local variables to OUT or IN-OUT args, if any
738: if ddrosetta_retval is null
739: then ddrosetta_retval_bool := null;
742: else ddrosetta_retval_bool := 0;
743: end if;
744: end;
745:
746: end ahl_prd_df_pvt_w;