[Home] [Help]
1: package body ozf_trade_profile_pvt_w as
2: /* $Header: ozfwctpb.pls 120.1 2008/03/04 06:22:05 nirprasa 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:
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_p3(t out nocopy ozf_trade_profile_pvt.trade_profile_tbl_type, a0 JTF_NUMBER_TABLE
14: , a1 JTF_NUMBER_TABLE
15: , a2 JTF_DATE_TABLE
16: , a3 JTF_NUMBER_TABLE
17: , a4 JTF_DATE_TABLE
142: end loop;
143: end if;
144: end if;
145: end rosetta_table_copy_in_p3;
146: procedure rosetta_table_copy_out_p3(t ozf_trade_profile_pvt.trade_profile_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
147: , a1 out nocopy JTF_NUMBER_TABLE
148: , a2 out nocopy JTF_DATE_TABLE
149: , a3 out nocopy JTF_NUMBER_TABLE
150: , a4 out nocopy JTF_DATE_TABLE
520: , x_trade_profile_id out nocopy NUMBER
521: )
522:
523: as
524: ddp_trade_profile_rec ozf_trade_profile_pvt.trade_profile_rec_type;
525: ddindx binary_integer; indx binary_integer;
526: begin
527:
528: -- copy data to the local IN or IN-OUT args, if any
593: ddp_trade_profile_rec.line_tolerance_operand := p7_a57;
594:
595:
596: -- here's the delegated call to the old PL/SQL routine
597: ozf_trade_profile_pvt.create_trade_profile(p_api_version_number,
598: p_init_msg_list,
599: p_commit,
600: p_validation_level,
601: x_return_status,
683: , x_object_version_number out nocopy NUMBER
684: )
685:
686: as
687: ddp_trade_profile_rec ozf_trade_profile_pvt.trade_profile_rec_type;
688: ddindx binary_integer; indx binary_integer;
689: begin
690:
691: -- copy data to the local IN or IN-OUT args, if any
756: ddp_trade_profile_rec.line_tolerance_operand := p7_a57;
757:
758:
759: -- here's the delegated call to the old PL/SQL routine
760: ozf_trade_profile_pvt.update_trade_profile(p_api_version_number,
761: p_init_msg_list,
762: p_commit,
763: p_validation_level,
764: x_return_status,
844: , x_msg_data out nocopy VARCHAR2
845: )
846:
847: as
848: ddp_trade_profile_rec ozf_trade_profile_pvt.trade_profile_rec_type;
849: ddindx binary_integer; indx binary_integer;
850: begin
851:
852: -- copy data to the local IN or IN-OUT args, if any
915:
916:
917:
918: -- here's the delegated call to the old PL/SQL routine
919: ozf_trade_profile_pvt.validate_trade_profile(p_api_version_number,
920: p_init_msg_list,
921: p_validation_level,
922: ddp_trade_profile_rec,
923: x_return_status,
995: , x_return_status out nocopy VARCHAR2
996: )
997:
998: as
999: ddp_trade_profile_rec ozf_trade_profile_pvt.trade_profile_rec_type;
1000: ddindx binary_integer; indx binary_integer;
1001: begin
1002:
1003: -- copy data to the local IN or IN-OUT args, if any
1062:
1063:
1064:
1065: -- here's the delegated call to the old PL/SQL routine
1066: ozf_trade_profile_pvt.check_trade_profile_items(ddp_trade_profile_rec,
1067: p_validation_mode,
1068: x_return_status);
1069:
1070: -- copy data back from the local variables to OUT or IN-OUT args, if any
1137: , p5_a57 NUMBER
1138: )
1139:
1140: as
1141: ddp_trade_profile_rec ozf_trade_profile_pvt.trade_profile_rec_type;
1142: ddindx binary_integer; indx binary_integer;
1143: begin
1144:
1145: -- copy data to the local IN or IN-OUT args, if any
1207: ddp_trade_profile_rec.line_tolerance_calc_code := p5_a56;
1208: ddp_trade_profile_rec.line_tolerance_operand := p5_a57;
1209:
1210: -- here's the delegated call to the old PL/SQL routine
1211: ozf_trade_profile_pvt.validate_trade_profile_rec(p_api_version_number,
1212: p_init_msg_list,
1213: x_return_status,
1214: x_msg_count,
1215: x_msg_data,
1222:
1223:
1224: end;
1225:
1226: end ozf_trade_profile_pvt_w;