[Home] [Help]
1: package body ahl_prd_df_pvt_w as
2: /* $Header: AHLWPDFB.pls 120.1 2005/12/20 06:24 sracha 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_p15(t out nocopy ahl_prd_df_pvt.df_schedules_tbl_type, a0 JTF_NUMBER_TABLE
14: , a1 JTF_NUMBER_TABLE
15: , a2 JTF_NUMBER_TABLE
16: , a3 JTF_DATE_TABLE
17: , a4 JTF_NUMBER_TABLE
86: end loop;
87: end if;
88: end if;
89: end rosetta_table_copy_in_p15;
90: procedure rosetta_table_copy_out_p15(t ahl_prd_df_pvt.df_schedules_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
91: , a1 out nocopy JTF_NUMBER_TABLE
92: , a2 out nocopy JTF_NUMBER_TABLE
93: , a3 out nocopy JTF_DATE_TABLE
94: , a4 out nocopy JTF_NUMBER_TABLE
335: , x_msg_data out nocopy VARCHAR2
336: )
337:
338: as
339: ddp_x_df_header_rec ahl_prd_df_pvt.df_header_rec_type;
340: ddp_x_df_schedules_tbl ahl_prd_df_pvt.df_schedules_tbl_type;
341: ddindx binary_integer; indx binary_integer;
342: begin
343:
336: )
337:
338: as
339: ddp_x_df_header_rec ahl_prd_df_pvt.df_header_rec_type;
340: ddp_x_df_schedules_tbl ahl_prd_df_pvt.df_schedules_tbl_type;
341: ddindx binary_integer; indx binary_integer;
342: begin
343:
344: -- copy data to the local IN or IN-OUT args, if any
386: ddp_x_df_header_rec.attribute14 := p5_a36;
387: ddp_x_df_header_rec.attribute15 := p5_a37;
388: ddp_x_df_header_rec.user_deferral_type_code := p5_a38;
389:
390: ahl_prd_df_pvt_w.rosetta_table_copy_in_p15(ddp_x_df_schedules_tbl, p6_a0
391: , p6_a1
392: , p6_a2
393: , p6_a3
394: , p6_a4
422:
423:
424:
425: -- here's the delegated call to the old PL/SQL routine
426: ahl_prd_df_pvt.process_deferral(p_api_version,
427: p_init_msg_list,
428: p_commit,
429: p_validation_level,
430: p_module_type,
479: p5_a36 := ddp_x_df_header_rec.attribute14;
480: p5_a37 := ddp_x_df_header_rec.attribute15;
481: p5_a38 := ddp_x_df_header_rec.user_deferral_type_code;
482:
483: ahl_prd_df_pvt_w.rosetta_table_copy_out_p15(ddp_x_df_schedules_tbl, p6_a0
484: , p6_a1
485: , p6_a2
486: , p6_a3
487: , p6_a4
582: , x_msg_data out nocopy VARCHAR2
583: )
584:
585: as
586: ddx_df_header_info_rec ahl_prd_df_pvt.df_header_info_rec_type;
587: ddx_df_schedules_tbl ahl_prd_df_pvt.df_schedules_tbl_type;
588: ddindx binary_integer; indx binary_integer;
589: begin
590:
583: )
584:
585: as
586: ddx_df_header_info_rec ahl_prd_df_pvt.df_header_info_rec_type;
587: ddx_df_schedules_tbl ahl_prd_df_pvt.df_schedules_tbl_type;
588: ddindx binary_integer; indx binary_integer;
589: begin
590:
591: -- copy data to the local IN or IN-OUT args, if any
596:
597:
598:
599: -- here's the delegated call to the old PL/SQL routine
600: ahl_prd_df_pvt.get_deferral_details(p_init_msg_list,
601: p_unit_effectivity_id,
602: ddx_df_header_info_rec,
603: ddx_df_schedules_tbl,
604: x_return_status,
637: p2_a26 := ddx_df_header_info_rec.manually_planned_flag;
638: p2_a27 := ddx_df_header_info_rec.user_deferral_type_code;
639: p2_a28 := ddx_df_header_info_rec.user_deferral_type_mean;
640:
641: ahl_prd_df_pvt_w.rosetta_table_copy_out_p15(ddx_df_schedules_tbl, p3_a0
642: , p3_a1
643: , p3_a2
644: , p3_a3
645: , p3_a4
685:
686: -- copy data to the local IN or IN-OUT args, if any
687:
688: -- here's the delegated call to the old PL/SQL routine
689: ddrosetta_retval := ahl_prd_df_pvt.process_deferred_exceptions(p_unit_effectivity_id);
690:
691: -- copy data back from the local variables to OUT or IN-OUT args, if any
692: if ddrosetta_retval is null
693: then ddrosetta_retval_bool := null;
696: else ddrosetta_retval_bool := 0;
697: end if;
698: end;
699:
700: end ahl_prd_df_pvt_w;