1: package body okl_contract_line_item_pvt_w as
2: /* $Header: OKLECLIB.pls 115.2 2003/10/16 01:14:18 smereddy 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:
18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p7(t out nocopy okl_contract_line_item_pvt.link_ast_tbl_type, a0 JTF_VARCHAR2_TABLE_100
23: , a1 JTF_VARCHAR2_TABLE_200
24: , a2 JTF_VARCHAR2_TABLE_300
25: , a3 JTF_VARCHAR2_TABLE_100
26: ) as
43: end loop;
44: end if;
45: end if;
46: end rosetta_table_copy_in_p7;
47: procedure rosetta_table_copy_out_p7(t okl_contract_line_item_pvt.link_ast_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
48: , a1 out nocopy JTF_VARCHAR2_TABLE_200
49: , a2 out nocopy JTF_VARCHAR2_TABLE_300
50: , a3 out nocopy JTF_VARCHAR2_TABLE_100
51: ) as
82: end if;
83: end if;
84: end rosetta_table_copy_out_p7;
85:
86: procedure rosetta_table_copy_in_p11(t out nocopy okl_contract_line_item_pvt.line_item_tbl_type, a0 JTF_NUMBER_TABLE
87: , a1 JTF_NUMBER_TABLE
88: , a2 JTF_NUMBER_TABLE
89: , a3 JTF_NUMBER_TABLE
90: , a4 JTF_VARCHAR2_TABLE_100
121: end loop;
122: end if;
123: end if;
124: end rosetta_table_copy_in_p11;
125: procedure rosetta_table_copy_out_p11(t okl_contract_line_item_pvt.line_item_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
126: , a1 out nocopy JTF_NUMBER_TABLE
127: , a2 out nocopy JTF_NUMBER_TABLE
128: , a3 out nocopy JTF_NUMBER_TABLE
129: , a4 out nocopy JTF_VARCHAR2_TABLE_100
225: , p6_a10 out nocopy JTF_NUMBER_TABLE
226: )
227:
228: as
229: ddp_line_item_tbl okl_contract_line_item_pvt.line_item_tbl_type;
230: ddx_line_item_tbl okl_contract_line_item_pvt.line_item_tbl_type;
231: ddindx binary_integer; indx binary_integer;
232: begin
233:
226: )
227:
228: as
229: ddp_line_item_tbl okl_contract_line_item_pvt.line_item_tbl_type;
230: ddx_line_item_tbl okl_contract_line_item_pvt.line_item_tbl_type;
231: ddindx binary_integer; indx binary_integer;
232: begin
233:
234: -- copy data to the local IN or IN-OUT args, if any
236:
237:
238:
239:
240: okl_contract_line_item_pvt_w.rosetta_table_copy_in_p11(ddp_line_item_tbl, p5_a0
241: , p5_a1
242: , p5_a2
243: , p5_a3
244: , p5_a4
251: );
252:
253:
254: -- here's the delegated call to the old PL/SQL routine
255: okl_contract_line_item_pvt.create_contract_line_item(p_api_version,
256: p_init_msg_list,
257: x_return_status,
258: x_msg_count,
259: x_msg_data,
266:
267:
268:
269:
270: okl_contract_line_item_pvt_w.rosetta_table_copy_out_p11(ddx_line_item_tbl, p6_a0
271: , p6_a1
272: , p6_a2
273: , p6_a3
274: , p6_a4
310: , p6_a10 out nocopy JTF_NUMBER_TABLE
311: )
312:
313: as
314: ddp_line_item_tbl okl_contract_line_item_pvt.line_item_tbl_type;
315: ddx_line_item_tbl okl_contract_line_item_pvt.line_item_tbl_type;
316: ddindx binary_integer; indx binary_integer;
317: begin
318:
311: )
312:
313: as
314: ddp_line_item_tbl okl_contract_line_item_pvt.line_item_tbl_type;
315: ddx_line_item_tbl okl_contract_line_item_pvt.line_item_tbl_type;
316: ddindx binary_integer; indx binary_integer;
317: begin
318:
319: -- copy data to the local IN or IN-OUT args, if any
321:
322:
323:
324:
325: okl_contract_line_item_pvt_w.rosetta_table_copy_in_p11(ddp_line_item_tbl, p5_a0
326: , p5_a1
327: , p5_a2
328: , p5_a3
329: , p5_a4
336: );
337:
338:
339: -- here's the delegated call to the old PL/SQL routine
340: okl_contract_line_item_pvt.update_contract_line_item(p_api_version,
341: p_init_msg_list,
342: x_return_status,
343: x_msg_count,
344: x_msg_data,
351:
352:
353:
354:
355: okl_contract_line_item_pvt_w.rosetta_table_copy_out_p11(ddx_line_item_tbl, p6_a0
356: , p6_a1
357: , p6_a2
358: , p6_a3
359: , p6_a4
384: , p5_a10 JTF_NUMBER_TABLE
385: )
386:
387: as
388: ddp_line_item_tbl okl_contract_line_item_pvt.line_item_tbl_type;
389: ddindx binary_integer; indx binary_integer;
390: begin
391:
392: -- copy data to the local IN or IN-OUT args, if any
394:
395:
396:
397:
398: okl_contract_line_item_pvt_w.rosetta_table_copy_in_p11(ddp_line_item_tbl, p5_a0
399: , p5_a1
400: , p5_a2
401: , p5_a3
402: , p5_a4
408: , p5_a10
409: );
410:
411: -- here's the delegated call to the old PL/SQL routine
412: okl_contract_line_item_pvt.delete_contract_line_item(p_api_version,
413: p_init_msg_list,
414: x_return_status,
415: x_msg_count,
416: x_msg_data,
849: , p7_a19 NUMBER := 0-1962.0724
850: )
851:
852: as
853: ddp_clev_rec okl_contract_line_item_pvt.clev_rec_type;
854: ddp_klev_rec okl_contract_line_item_pvt.klev_rec_type;
855: ddp_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
856: ddx_clev_rec okl_contract_line_item_pvt.clev_rec_type;
857: ddx_klev_rec okl_contract_line_item_pvt.klev_rec_type;
850: )
851:
852: as
853: ddp_clev_rec okl_contract_line_item_pvt.clev_rec_type;
854: ddp_klev_rec okl_contract_line_item_pvt.klev_rec_type;
855: ddp_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
856: ddx_clev_rec okl_contract_line_item_pvt.clev_rec_type;
857: ddx_klev_rec okl_contract_line_item_pvt.klev_rec_type;
858: ddx_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
851:
852: as
853: ddp_clev_rec okl_contract_line_item_pvt.clev_rec_type;
854: ddp_klev_rec okl_contract_line_item_pvt.klev_rec_type;
855: ddp_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
856: ddx_clev_rec okl_contract_line_item_pvt.clev_rec_type;
857: ddx_klev_rec okl_contract_line_item_pvt.klev_rec_type;
858: ddx_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
859: ddindx binary_integer; indx binary_integer;
852: as
853: ddp_clev_rec okl_contract_line_item_pvt.clev_rec_type;
854: ddp_klev_rec okl_contract_line_item_pvt.klev_rec_type;
855: ddp_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
856: ddx_clev_rec okl_contract_line_item_pvt.clev_rec_type;
857: ddx_klev_rec okl_contract_line_item_pvt.klev_rec_type;
858: ddx_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
859: ddindx binary_integer; indx binary_integer;
860: begin
853: ddp_clev_rec okl_contract_line_item_pvt.clev_rec_type;
854: ddp_klev_rec okl_contract_line_item_pvt.klev_rec_type;
855: ddp_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
856: ddx_clev_rec okl_contract_line_item_pvt.clev_rec_type;
857: ddx_klev_rec okl_contract_line_item_pvt.klev_rec_type;
858: ddx_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
859: ddindx binary_integer; indx binary_integer;
860: begin
861:
854: ddp_klev_rec okl_contract_line_item_pvt.klev_rec_type;
855: ddp_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
856: ddx_clev_rec okl_contract_line_item_pvt.clev_rec_type;
857: ddx_klev_rec okl_contract_line_item_pvt.klev_rec_type;
858: ddx_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
859: ddindx binary_integer; indx binary_integer;
860: begin
861:
862: -- copy data to the local IN or IN-OUT args, if any
1080:
1081:
1082:
1083: -- here's the delegated call to the old PL/SQL routine
1084: okl_contract_line_item_pvt.create_contract_line_item(p_api_version,
1085: p_init_msg_list,
1086: x_return_status,
1087: x_msg_count,
1088: x_msg_data,
1740: , p7_a19 NUMBER := 0-1962.0724
1741: )
1742:
1743: as
1744: ddp_clev_rec okl_contract_line_item_pvt.clev_rec_type;
1745: ddp_klev_rec okl_contract_line_item_pvt.klev_rec_type;
1746: ddp_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
1747: ddx_clev_rec okl_contract_line_item_pvt.clev_rec_type;
1748: ddx_klev_rec okl_contract_line_item_pvt.klev_rec_type;
1741: )
1742:
1743: as
1744: ddp_clev_rec okl_contract_line_item_pvt.clev_rec_type;
1745: ddp_klev_rec okl_contract_line_item_pvt.klev_rec_type;
1746: ddp_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
1747: ddx_clev_rec okl_contract_line_item_pvt.clev_rec_type;
1748: ddx_klev_rec okl_contract_line_item_pvt.klev_rec_type;
1749: ddx_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
1742:
1743: as
1744: ddp_clev_rec okl_contract_line_item_pvt.clev_rec_type;
1745: ddp_klev_rec okl_contract_line_item_pvt.klev_rec_type;
1746: ddp_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
1747: ddx_clev_rec okl_contract_line_item_pvt.clev_rec_type;
1748: ddx_klev_rec okl_contract_line_item_pvt.klev_rec_type;
1749: ddx_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
1750: ddindx binary_integer; indx binary_integer;
1743: as
1744: ddp_clev_rec okl_contract_line_item_pvt.clev_rec_type;
1745: ddp_klev_rec okl_contract_line_item_pvt.klev_rec_type;
1746: ddp_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
1747: ddx_clev_rec okl_contract_line_item_pvt.clev_rec_type;
1748: ddx_klev_rec okl_contract_line_item_pvt.klev_rec_type;
1749: ddx_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
1750: ddindx binary_integer; indx binary_integer;
1751: begin
1744: ddp_clev_rec okl_contract_line_item_pvt.clev_rec_type;
1745: ddp_klev_rec okl_contract_line_item_pvt.klev_rec_type;
1746: ddp_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
1747: ddx_clev_rec okl_contract_line_item_pvt.clev_rec_type;
1748: ddx_klev_rec okl_contract_line_item_pvt.klev_rec_type;
1749: ddx_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
1750: ddindx binary_integer; indx binary_integer;
1751: begin
1752:
1745: ddp_klev_rec okl_contract_line_item_pvt.klev_rec_type;
1746: ddp_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
1747: ddx_clev_rec okl_contract_line_item_pvt.clev_rec_type;
1748: ddx_klev_rec okl_contract_line_item_pvt.klev_rec_type;
1749: ddx_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
1750: ddindx binary_integer; indx binary_integer;
1751: begin
1752:
1753: -- copy data to the local IN or IN-OUT args, if any
1971:
1972:
1973:
1974: -- here's the delegated call to the old PL/SQL routine
1975: okl_contract_line_item_pvt.update_contract_line_item(p_api_version,
1976: p_init_msg_list,
1977: x_return_status,
1978: x_msg_count,
1979: x_msg_data,
2422: , p7_a19 NUMBER := 0-1962.0724
2423: )
2424:
2425: as
2426: ddp_clev_rec okl_contract_line_item_pvt.clev_rec_type;
2427: ddp_klev_rec okl_contract_line_item_pvt.klev_rec_type;
2428: ddp_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
2429: ddindx binary_integer; indx binary_integer;
2430: begin
2423: )
2424:
2425: as
2426: ddp_clev_rec okl_contract_line_item_pvt.clev_rec_type;
2427: ddp_klev_rec okl_contract_line_item_pvt.klev_rec_type;
2428: ddp_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
2429: ddindx binary_integer; indx binary_integer;
2430: begin
2431:
2424:
2425: as
2426: ddp_clev_rec okl_contract_line_item_pvt.clev_rec_type;
2427: ddp_klev_rec okl_contract_line_item_pvt.klev_rec_type;
2428: ddp_cimv_rec okl_contract_line_item_pvt.cimv_rec_type;
2429: ddindx binary_integer; indx binary_integer;
2430: begin
2431:
2432: -- copy data to the local IN or IN-OUT args, if any
2647: ddp_cimv_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a18);
2648: ddp_cimv_rec.last_update_login := rosetta_g_miss_num_map(p7_a19);
2649:
2650: -- here's the delegated call to the old PL/SQL routine
2651: okl_contract_line_item_pvt.delete_contract_line_item(p_api_version,
2652: p_init_msg_list,
2653: x_return_status,
2654: x_msg_count,
2655: x_msg_data,
3092: , p10_a19 out nocopy JTF_NUMBER_TABLE
3093: )
3094:
3095: as
3096: ddp_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3097: ddp_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3098: ddp_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3099: ddx_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3100: ddx_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3093: )
3094:
3095: as
3096: ddp_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3097: ddp_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3098: ddp_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3099: ddx_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3100: ddx_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3101: ddx_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3094:
3095: as
3096: ddp_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3097: ddp_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3098: ddp_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3099: ddx_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3100: ddx_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3101: ddx_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3102: ddindx binary_integer; indx binary_integer;
3095: as
3096: ddp_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3097: ddp_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3098: ddp_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3099: ddx_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3100: ddx_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3101: ddx_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3102: ddindx binary_integer; indx binary_integer;
3103: begin
3096: ddp_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3097: ddp_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3098: ddp_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3099: ddx_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3100: ddx_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3101: ddx_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3102: ddindx binary_integer; indx binary_integer;
3103: begin
3104:
3097: ddp_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3098: ddp_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3099: ddx_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3100: ddx_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3101: ddx_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3102: ddindx binary_integer; indx binary_integer;
3103: begin
3104:
3105: -- copy data to the local IN or IN-OUT args, if any
3326:
3327:
3328:
3329: -- here's the delegated call to the old PL/SQL routine
3330: okl_contract_line_item_pvt.create_contract_line_item(p_api_version,
3331: p_init_msg_list,
3332: x_return_status,
3333: x_msg_count,
3334: x_msg_data,
3989: , p10_a19 out nocopy JTF_NUMBER_TABLE
3990: )
3991:
3992: as
3993: ddp_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3994: ddp_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3995: ddp_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3996: ddx_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3997: ddx_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3990: )
3991:
3992: as
3993: ddp_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3994: ddp_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3995: ddp_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3996: ddx_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3997: ddx_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3998: ddx_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3991:
3992: as
3993: ddp_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3994: ddp_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3995: ddp_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3996: ddx_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3997: ddx_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3998: ddx_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3999: ddindx binary_integer; indx binary_integer;
3992: as
3993: ddp_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3994: ddp_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3995: ddp_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3996: ddx_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3997: ddx_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3998: ddx_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3999: ddindx binary_integer; indx binary_integer;
4000: begin
3993: ddp_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3994: ddp_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3995: ddp_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3996: ddx_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3997: ddx_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3998: ddx_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3999: ddindx binary_integer; indx binary_integer;
4000: begin
4001:
3994: ddp_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3995: ddp_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3996: ddx_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
3997: ddx_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
3998: ddx_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
3999: ddindx binary_integer; indx binary_integer;
4000: begin
4001:
4002: -- copy data to the local IN or IN-OUT args, if any
4223:
4224:
4225:
4226: -- here's the delegated call to the old PL/SQL routine
4227: okl_contract_line_item_pvt.update_contract_line_item(p_api_version,
4228: p_init_msg_list,
4229: x_return_status,
4230: x_msg_count,
4231: x_msg_data,
4677: , p7_a19 JTF_NUMBER_TABLE
4678: )
4679:
4680: as
4681: ddp_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
4682: ddp_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
4683: ddp_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
4684: ddindx binary_integer; indx binary_integer;
4685: begin
4678: )
4679:
4680: as
4681: ddp_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
4682: ddp_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
4683: ddp_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
4684: ddindx binary_integer; indx binary_integer;
4685: begin
4686:
4679:
4680: as
4681: ddp_clev_tbl okl_contract_line_item_pvt.clev_tbl_type;
4682: ddp_klev_tbl okl_contract_line_item_pvt.klev_tbl_type;
4683: ddp_cimv_tbl okl_contract_line_item_pvt.cimv_tbl_type;
4684: ddindx binary_integer; indx binary_integer;
4685: begin
4686:
4687: -- copy data to the local IN or IN-OUT args, if any
4905: , p7_a19
4906: );
4907:
4908: -- here's the delegated call to the old PL/SQL routine
4909: okl_contract_line_item_pvt.delete_contract_line_item(p_api_version,
4910: p_init_msg_list,
4911: x_return_status,
4912: x_msg_count,
4913: x_msg_data,
4924:
4925:
4926: end;
4927:
4928: end okl_contract_line_item_pvt_w;