1: package body okl_supp_invoice_dtls_pvt_w as
2: /* $Header: OKLOSIDB.pls 120.1 2005/07/18 13:22:22 viselvar 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:
88: , p5_a30 NUMBER := 0-1962.0724
89: )
90:
91: as
92: ddp_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
93: ddx_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
94: ddindx binary_integer; indx binary_integer;
95: begin
96:
89: )
90:
91: as
92: ddp_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
93: ddx_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
94: ddindx binary_integer; indx binary_integer;
95: begin
96:
97: -- copy data to the local IN or IN-OUT args, if any
133: ddp_sidv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
134:
135:
136: -- here's the delegated call to the old PL/SQL routine
137: okl_supp_invoice_dtls_pvt.create_sup_inv_dtls(p_api_version,
138: p_init_msg_list,
139: x_return_status,
140: x_msg_count,
141: x_msg_data,
251: , p6_a30 out nocopy JTF_NUMBER_TABLE
252: )
253:
254: as
255: ddp_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
256: ddx_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
257: ddindx binary_integer; indx binary_integer;
258: begin
259:
252: )
253:
254: as
255: ddp_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
256: ddx_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
257: ddindx binary_integer; indx binary_integer;
258: begin
259:
260: -- copy data to the local IN or IN-OUT args, if any
297: );
298:
299:
300: -- here's the delegated call to the old PL/SQL routine
301: okl_supp_invoice_dtls_pvt.create_sup_inv_dtls(p_api_version,
302: p_init_msg_list,
303: x_return_status,
304: x_msg_count,
305: x_msg_data,
385: , p5_a30 NUMBER := 0-1962.0724
386: )
387:
388: as
389: ddp_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
390: ddindx binary_integer; indx binary_integer;
391: begin
392:
393: -- copy data to the local IN or IN-OUT args, if any
428: ddp_sidv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
429: ddp_sidv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
430:
431: -- here's the delegated call to the old PL/SQL routine
432: okl_supp_invoice_dtls_pvt.lock_sup_inv_dtls(p_api_version,
433: p_init_msg_list,
434: x_return_status,
435: x_msg_count,
436: x_msg_data,
482: , p5_a30 JTF_NUMBER_TABLE
483: )
484:
485: as
486: ddp_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
487: ddindx binary_integer; indx binary_integer;
488: begin
489:
490: -- copy data to the local IN or IN-OUT args, if any
526: , p5_a30
527: );
528:
529: -- here's the delegated call to the old PL/SQL routine
530: okl_supp_invoice_dtls_pvt.lock_sup_inv_dtls(p_api_version,
531: p_init_msg_list,
532: x_return_status,
533: x_msg_count,
534: x_msg_data,
611: , p5_a30 NUMBER := 0-1962.0724
612: )
613:
614: as
615: ddp_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
616: ddx_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
617: ddindx binary_integer; indx binary_integer;
618: begin
619:
612: )
613:
614: as
615: ddp_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
616: ddx_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
617: ddindx binary_integer; indx binary_integer;
618: begin
619:
620: -- copy data to the local IN or IN-OUT args, if any
656: ddp_sidv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
657:
658:
659: -- here's the delegated call to the old PL/SQL routine
660: okl_supp_invoice_dtls_pvt.update_sup_inv_dtls(p_api_version,
661: p_init_msg_list,
662: x_return_status,
663: x_msg_count,
664: x_msg_data,
774: , p6_a30 out nocopy JTF_NUMBER_TABLE
775: )
776:
777: as
778: ddp_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
779: ddx_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
780: ddindx binary_integer; indx binary_integer;
781: begin
782:
775: )
776:
777: as
778: ddp_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
779: ddx_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
780: ddindx binary_integer; indx binary_integer;
781: begin
782:
783: -- copy data to the local IN or IN-OUT args, if any
820: );
821:
822:
823: -- here's the delegated call to the old PL/SQL routine
824: okl_supp_invoice_dtls_pvt.update_sup_inv_dtls(p_api_version,
825: p_init_msg_list,
826: x_return_status,
827: x_msg_count,
828: x_msg_data,
908: , p5_a30 NUMBER := 0-1962.0724
909: )
910:
911: as
912: ddp_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
913: ddindx binary_integer; indx binary_integer;
914: begin
915:
916: -- copy data to the local IN or IN-OUT args, if any
951: ddp_sidv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
952: ddp_sidv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
953:
954: -- here's the delegated call to the old PL/SQL routine
955: okl_supp_invoice_dtls_pvt.delete_sup_inv_dtls(p_api_version,
956: p_init_msg_list,
957: x_return_status,
958: x_msg_count,
959: x_msg_data,
1005: , p5_a30 JTF_NUMBER_TABLE
1006: )
1007:
1008: as
1009: ddp_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
1010: ddindx binary_integer; indx binary_integer;
1011: begin
1012:
1013: -- copy data to the local IN or IN-OUT args, if any
1049: , p5_a30
1050: );
1051:
1052: -- here's the delegated call to the old PL/SQL routine
1053: okl_supp_invoice_dtls_pvt.delete_sup_inv_dtls(p_api_version,
1054: p_init_msg_list,
1055: x_return_status,
1056: x_msg_count,
1057: x_msg_data,
1103: , p5_a30 NUMBER := 0-1962.0724
1104: )
1105:
1106: as
1107: ddp_sidv_rec okl_supp_invoice_dtls_pvt.sidv_rec_type;
1108: ddindx binary_integer; indx binary_integer;
1109: begin
1110:
1111: -- copy data to the local IN or IN-OUT args, if any
1146: ddp_sidv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
1147: ddp_sidv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
1148:
1149: -- here's the delegated call to the old PL/SQL routine
1150: okl_supp_invoice_dtls_pvt.validate_sup_inv_dtls(p_api_version,
1151: p_init_msg_list,
1152: x_return_status,
1153: x_msg_count,
1154: x_msg_data,
1200: , p5_a30 JTF_NUMBER_TABLE
1201: )
1202:
1203: as
1204: ddp_sidv_tbl okl_supp_invoice_dtls_pvt.sidv_tbl_type;
1205: ddindx binary_integer; indx binary_integer;
1206: begin
1207:
1208: -- copy data to the local IN or IN-OUT args, if any
1244: , p5_a30
1245: );
1246:
1247: -- here's the delegated call to the old PL/SQL routine
1248: okl_supp_invoice_dtls_pvt.validate_sup_inv_dtls(p_api_version,
1249: p_init_msg_list,
1250: x_return_status,
1251: x_msg_count,
1252: x_msg_data,
1259:
1260:
1261: end;
1262:
1263: end okl_supp_invoice_dtls_pvt_w;