1: package body ozf_code_conversion_pvt_w as
2: /* $Header: ozfwsccb.pls 120.2 2007/12/24 10:22:05 gdeepika 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_p3(t out nocopy ozf_code_conversion_pvt.code_conversion_tbl_type, a0 JTF_NUMBER_TABLE
17: , a1 JTF_NUMBER_TABLE
18: , a2 JTF_DATE_TABLE
19: , a3 JTF_NUMBER_TABLE
20: , a4 JTF_DATE_TABLE
49: ) as
50: ddindx binary_integer; indx binary_integer;
51: begin
52: if a0 is not null and a0.count=0 then
53: t := ozf_code_conversion_pvt.code_conversion_tbl_type();
54: elsif a0 is not null and a0.count > 0 then
55: if a0.count > 0 then
56: t := ozf_code_conversion_pvt.code_conversion_tbl_type();
57: t.extend(a0.count);
52: if a0 is not null and a0.count=0 then
53: t := ozf_code_conversion_pvt.code_conversion_tbl_type();
54: elsif a0 is not null and a0.count > 0 then
55: if a0.count > 0 then
56: t := ozf_code_conversion_pvt.code_conversion_tbl_type();
57: t.extend(a0.count);
58: indx := a0.first;
59: ddindx := 1;
60: while true loop
99: end loop;
100: end if;
101: end if;
102: end rosetta_table_copy_in_p3;
103: procedure rosetta_table_copy_out_p3(t ozf_code_conversion_pvt.code_conversion_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
104: , a1 out nocopy JTF_NUMBER_TABLE
105: , a2 out nocopy JTF_DATE_TABLE
106: , a3 out nocopy JTF_NUMBER_TABLE
107: , a4 out nocopy JTF_DATE_TABLE
317: end if;
318: end if;
319: end rosetta_table_copy_out_p3;
320:
321: procedure rosetta_table_copy_in_p15(t out nocopy ozf_code_conversion_pvt.supp_code_conversion_tbl_type, a0 JTF_NUMBER_TABLE
322: , a1 JTF_NUMBER_TABLE
323: , a2 JTF_DATE_TABLE
324: , a3 JTF_NUMBER_TABLE
325: , a4 JTF_DATE_TABLE
353: ) as
354: ddindx binary_integer; indx binary_integer;
355: begin
356: if a0 is not null and a0.count=0 then
357: t := ozf_code_conversion_pvt.supp_code_conversion_tbl_type();
358: elsif a0 is not null and a0.count > 0 then
359: if a0.count > 0 then
360: t := ozf_code_conversion_pvt.supp_code_conversion_tbl_type();
361: t.extend(a0.count);
356: if a0 is not null and a0.count=0 then
357: t := ozf_code_conversion_pvt.supp_code_conversion_tbl_type();
358: elsif a0 is not null and a0.count > 0 then
359: if a0.count > 0 then
360: t := ozf_code_conversion_pvt.supp_code_conversion_tbl_type();
361: t.extend(a0.count);
362: indx := a0.first;
363: ddindx := 1;
364: while true loop
402: end loop;
403: end if;
404: end if;
405: end rosetta_table_copy_in_p15;
406: procedure rosetta_table_copy_out_p15(t ozf_code_conversion_pvt.supp_code_conversion_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
407: , a1 out nocopy JTF_NUMBER_TABLE
408: , a2 out nocopy JTF_DATE_TABLE
409: , a3 out nocopy JTF_NUMBER_TABLE
410: , a4 out nocopy JTF_DATE_TABLE
657: , p7_a32 JTF_NUMBER_TABLE
658: )
659:
660: as
661: ddp_code_conversion_tbl ozf_code_conversion_pvt.code_conversion_tbl_type;
662: ddindx binary_integer; indx binary_integer;
663: begin
664:
665: -- copy data to the local IN or IN-OUT args, if any
669:
670:
671:
672:
673: ozf_code_conversion_pvt_w.rosetta_table_copy_in_p3(ddp_code_conversion_tbl, p7_a0
674: , p7_a1
675: , p7_a2
676: , p7_a3
677: , p7_a4
705: , p7_a32
706: );
707:
708: -- here's the delegated call to the old PL/SQL routine
709: ozf_code_conversion_pvt.update_code_conversion_tbl(p_api_version_number,
710: p_init_msg_list,
711: p_commit,
712: p_validation_level,
713: x_return_status,
767: , p7_a32 JTF_NUMBER_TABLE
768: )
769:
770: as
771: ddp_code_conversion_tbl ozf_code_conversion_pvt.code_conversion_tbl_type;
772: ddindx binary_integer; indx binary_integer;
773: begin
774:
775: -- copy data to the local IN or IN-OUT args, if any
779:
780:
781:
782:
783: ozf_code_conversion_pvt_w.rosetta_table_copy_in_p3(ddp_code_conversion_tbl, p7_a0
784: , p7_a1
785: , p7_a2
786: , p7_a3
787: , p7_a4
815: , p7_a32
816: );
817:
818: -- here's the delegated call to the old PL/SQL routine
819: ozf_code_conversion_pvt.delete_code_conversion_tbl(p_api_version_number,
820: p_init_msg_list,
821: p_commit,
822: p_validation_level,
823: x_return_status,
872: , x_return_status out nocopy VARCHAR2
873: )
874:
875: as
876: ddp_code_conversion_rec ozf_code_conversion_pvt.code_conversion_rec_type;
877: ddindx binary_integer; indx binary_integer;
878: begin
879:
880: -- copy data to the local IN or IN-OUT args, if any
914:
915:
916:
917: -- here's the delegated call to the old PL/SQL routine
918: ozf_code_conversion_pvt.check_uniq_code_conversion(ddp_code_conversion_rec,
919: p_validation_mode,
920: x_return_status);
921:
922: -- copy data back from the local variables to OUT or IN-OUT args, if any
966: , x_msg_data out nocopy VARCHAR2
967: )
968:
969: as
970: ddp_code_conversion_tbl ozf_code_conversion_pvt.code_conversion_tbl_type;
971: ddindx binary_integer; indx binary_integer;
972: begin
973:
974: -- copy data to the local IN or IN-OUT args, if any
975:
976:
977:
978:
979: ozf_code_conversion_pvt_w.rosetta_table_copy_in_p3(ddp_code_conversion_tbl, p4_a0
980: , p4_a1
981: , p4_a2
982: , p4_a3
983: , p4_a4
1014:
1015:
1016:
1017: -- here's the delegated call to the old PL/SQL routine
1018: ozf_code_conversion_pvt.validate_code_conversion(p_api_version_number,
1019: p_init_msg_list,
1020: p_validation_level,
1021: p_validation_mode,
1022: ddp_code_conversion_tbl,
1075: , p7_a31 JTF_NUMBER_TABLE
1076: )
1077:
1078: as
1079: ddp_supp_code_conversion_tbl ozf_code_conversion_pvt.supp_code_conversion_tbl_type;
1080: ddindx binary_integer; indx binary_integer;
1081: begin
1082:
1083: -- copy data to the local IN or IN-OUT args, if any
1087:
1088:
1089:
1090:
1091: ozf_code_conversion_pvt_w.rosetta_table_copy_in_p15(ddp_supp_code_conversion_tbl, p7_a0
1092: , p7_a1
1093: , p7_a2
1094: , p7_a3
1095: , p7_a4
1122: , p7_a31
1123: );
1124:
1125: -- here's the delegated call to the old PL/SQL routine
1126: ozf_code_conversion_pvt.update_supp_code_conv_tbl(p_api_version_number,
1127: p_init_msg_list,
1128: p_commit,
1129: p_validation_level,
1130: x_return_status,
1183: , p7_a31 JTF_NUMBER_TABLE
1184: )
1185:
1186: as
1187: ddp_supp_code_conversion_tbl ozf_code_conversion_pvt.supp_code_conversion_tbl_type;
1188: ddindx binary_integer; indx binary_integer;
1189: begin
1190:
1191: -- copy data to the local IN or IN-OUT args, if any
1195:
1196:
1197:
1198:
1199: ozf_code_conversion_pvt_w.rosetta_table_copy_in_p15(ddp_supp_code_conversion_tbl, p7_a0
1200: , p7_a1
1201: , p7_a2
1202: , p7_a3
1203: , p7_a4
1230: , p7_a31
1231: );
1232:
1233: -- here's the delegated call to the old PL/SQL routine
1234: ozf_code_conversion_pvt.delete_supp_code_conv_tbl(p_api_version_number,
1235: p_init_msg_list,
1236: p_commit,
1237: p_validation_level,
1238: x_return_status,
1249:
1250:
1251: end;
1252:
1253: end ozf_code_conversion_pvt_w;