1: package body okl_trans_contracts_pvt_w as
2: /* $Header: OKLETCTB.pls 120.8.12010000.3 2008/11/12 23:51:44 apaul 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');
333: , p5_a93 DATE := fnd_api.g_miss_date
334: )
335:
336: as
337: ddp_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
338: ddp_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
339: ddx_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
340: ddx_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
341: ddindx binary_integer; indx binary_integer;
334: )
335:
336: as
337: ddp_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
338: ddp_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
339: ddx_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
340: ddx_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
341: ddindx binary_integer; indx binary_integer;
342: begin
335:
336: as
337: ddp_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
338: ddp_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
339: ddx_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
340: ddx_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
341: ddindx binary_integer; indx binary_integer;
342: begin
343:
336: as
337: ddp_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
338: ddp_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
339: ddx_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
340: ddx_tclv_tbl okl_trans_contracts_pvt.tclv_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
504:
505:
506:
507: -- here's the delegated call to the old PL/SQL routine
508: okl_trans_contracts_pvt.create_trx_contracts(p_api_version,
509: p_init_msg_list,
510: x_return_status,
511: x_msg_count,
512: x_msg_data,
874: , p5_a93 DATE := fnd_api.g_miss_date
875: )
876:
877: as
878: ddp_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
879: ddx_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
880: ddindx binary_integer; indx binary_integer;
881: begin
882:
875: )
876:
877: as
878: ddp_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
879: ddx_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
880: ddindx binary_integer; indx binary_integer;
881: begin
882:
883: -- copy data to the local IN or IN-OUT args, if any
982: ddp_tcnv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a93);
983:
984:
985: -- here's the delegated call to the old PL/SQL routine
986: okl_trans_contracts_pvt.create_trx_contracts(p_api_version,
987: p_init_msg_list,
988: x_return_status,
989: x_msg_count,
990: x_msg_data,
1289: , p6_a93 out nocopy JTF_DATE_TABLE
1290: )
1291:
1292: as
1293: ddp_tcnv_tbl okl_trans_contracts_pvt.tcnv_tbl_type;
1294: ddx_tcnv_tbl okl_trans_contracts_pvt.tcnv_tbl_type;
1295: ddindx binary_integer; indx binary_integer;
1296: begin
1297:
1290: )
1291:
1292: as
1293: ddp_tcnv_tbl okl_trans_contracts_pvt.tcnv_tbl_type;
1294: ddx_tcnv_tbl okl_trans_contracts_pvt.tcnv_tbl_type;
1295: ddindx binary_integer; indx binary_integer;
1296: begin
1297:
1298: -- copy data to the local IN or IN-OUT args, if any
1398: );
1399:
1400:
1401: -- here's the delegated call to the old PL/SQL routine
1402: okl_trans_contracts_pvt.create_trx_contracts(p_api_version,
1403: p_init_msg_list,
1404: x_return_status,
1405: x_msg_count,
1406: x_msg_data,
1634: , p5_a57 VARCHAR2 := fnd_api.g_miss_char
1635: )
1636:
1637: as
1638: ddp_tclv_rec okl_trans_contracts_pvt.tclv_rec_type;
1639: ddx_tclv_rec okl_trans_contracts_pvt.tclv_rec_type;
1640: ddindx binary_integer; indx binary_integer;
1641: begin
1642:
1635: )
1636:
1637: as
1638: ddp_tclv_rec okl_trans_contracts_pvt.tclv_rec_type;
1639: ddx_tclv_rec okl_trans_contracts_pvt.tclv_rec_type;
1640: ddindx binary_integer; indx binary_integer;
1641: begin
1642:
1643: -- copy data to the local IN or IN-OUT args, if any
1706: ddp_tclv_rec.upgrade_status_flag := p5_a57;
1707:
1708:
1709: -- here's the delegated call to the old PL/SQL routine
1710: okl_trans_contracts_pvt.create_trx_cntrct_lines(p_api_version,
1711: p_init_msg_list,
1712: x_return_status,
1713: x_msg_count,
1714: x_msg_data,
1905: , p6_a57 out nocopy JTF_VARCHAR2_TABLE_100
1906: )
1907:
1908: as
1909: ddp_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
1910: ddx_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
1911: ddindx binary_integer; indx binary_integer;
1912: begin
1913:
1906: )
1907:
1908: as
1909: ddp_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
1910: ddx_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
1911: ddindx binary_integer; indx binary_integer;
1912: begin
1913:
1914: -- copy data to the local IN or IN-OUT args, if any
1978: );
1979:
1980:
1981: -- here's the delegated call to the old PL/SQL routine
1982: okl_trans_contracts_pvt.create_trx_cntrct_lines(p_api_version,
1983: p_init_msg_list,
1984: x_return_status,
1985: x_msg_count,
1986: x_msg_data,
2366: , p5_a93 DATE := fnd_api.g_miss_date
2367: )
2368:
2369: as
2370: ddp_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
2371: ddp_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
2372: ddx_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
2373: ddx_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
2374: ddindx binary_integer; indx binary_integer;
2367: )
2368:
2369: as
2370: ddp_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
2371: ddp_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
2372: ddx_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
2373: ddx_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
2374: ddindx binary_integer; indx binary_integer;
2375: begin
2368:
2369: as
2370: ddp_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
2371: ddp_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
2372: ddx_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
2373: ddx_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
2374: ddindx binary_integer; indx binary_integer;
2375: begin
2376:
2369: as
2370: ddp_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
2371: ddp_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
2372: ddx_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
2373: ddx_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
2374: ddindx binary_integer; indx binary_integer;
2375: begin
2376:
2377: -- copy data to the local IN or IN-OUT args, if any
2537:
2538:
2539:
2540: -- here's the delegated call to the old PL/SQL routine
2541: okl_trans_contracts_pvt.update_trx_contracts(p_api_version,
2542: p_init_msg_list,
2543: x_return_status,
2544: x_msg_count,
2545: x_msg_data,
2907: , p5_a93 DATE := fnd_api.g_miss_date
2908: )
2909:
2910: as
2911: ddp_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
2912: ddx_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
2913: ddindx binary_integer; indx binary_integer;
2914: begin
2915:
2908: )
2909:
2910: as
2911: ddp_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
2912: ddx_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
2913: ddindx binary_integer; indx binary_integer;
2914: begin
2915:
2916: -- copy data to the local IN or IN-OUT args, if any
3015: ddp_tcnv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a93);
3016:
3017:
3018: -- here's the delegated call to the old PL/SQL routine
3019: okl_trans_contracts_pvt.update_trx_contracts(p_api_version,
3020: p_init_msg_list,
3021: x_return_status,
3022: x_msg_count,
3023: x_msg_data,
3322: , p6_a93 out nocopy JTF_DATE_TABLE
3323: )
3324:
3325: as
3326: ddp_tcnv_tbl okl_trans_contracts_pvt.tcnv_tbl_type;
3327: ddx_tcnv_tbl okl_trans_contracts_pvt.tcnv_tbl_type;
3328: ddindx binary_integer; indx binary_integer;
3329: begin
3330:
3323: )
3324:
3325: as
3326: ddp_tcnv_tbl okl_trans_contracts_pvt.tcnv_tbl_type;
3327: ddx_tcnv_tbl okl_trans_contracts_pvt.tcnv_tbl_type;
3328: ddindx binary_integer; indx binary_integer;
3329: begin
3330:
3331: -- copy data to the local IN or IN-OUT args, if any
3431: );
3432:
3433:
3434: -- here's the delegated call to the old PL/SQL routine
3435: okl_trans_contracts_pvt.update_trx_contracts(p_api_version,
3436: p_init_msg_list,
3437: x_return_status,
3438: x_msg_count,
3439: x_msg_data,
3667: , p5_a57 VARCHAR2 := fnd_api.g_miss_char
3668: )
3669:
3670: as
3671: ddp_tclv_rec okl_trans_contracts_pvt.tclv_rec_type;
3672: ddx_tclv_rec okl_trans_contracts_pvt.tclv_rec_type;
3673: ddindx binary_integer; indx binary_integer;
3674: begin
3675:
3668: )
3669:
3670: as
3671: ddp_tclv_rec okl_trans_contracts_pvt.tclv_rec_type;
3672: ddx_tclv_rec okl_trans_contracts_pvt.tclv_rec_type;
3673: ddindx binary_integer; indx binary_integer;
3674: begin
3675:
3676: -- copy data to the local IN or IN-OUT args, if any
3739: ddp_tclv_rec.upgrade_status_flag := p5_a57;
3740:
3741:
3742: -- here's the delegated call to the old PL/SQL routine
3743: okl_trans_contracts_pvt.update_trx_cntrct_lines(p_api_version,
3744: p_init_msg_list,
3745: x_return_status,
3746: x_msg_count,
3747: x_msg_data,
3938: , p6_a57 out nocopy JTF_VARCHAR2_TABLE_100
3939: )
3940:
3941: as
3942: ddp_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
3943: ddx_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
3944: ddindx binary_integer; indx binary_integer;
3945: begin
3946:
3939: )
3940:
3941: as
3942: ddp_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
3943: ddx_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
3944: ddindx binary_integer; indx binary_integer;
3945: begin
3946:
3947: -- copy data to the local IN or IN-OUT args, if any
4011: );
4012:
4013:
4014: -- here's the delegated call to the old PL/SQL routine
4015: okl_trans_contracts_pvt.update_trx_cntrct_lines(p_api_version,
4016: p_init_msg_list,
4017: x_return_status,
4018: x_msg_count,
4019: x_msg_data,
4189: , p5_a93 DATE := fnd_api.g_miss_date
4190: )
4191:
4192: as
4193: ddp_tcnv_rec okl_trans_contracts_pvt.tcnv_rec_type;
4194: ddindx binary_integer; indx binary_integer;
4195: begin
4196:
4197: -- copy data to the local IN or IN-OUT args, if any
4295: ddp_tcnv_rec.upgrade_status_flag := p5_a92;
4296: ddp_tcnv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a93);
4297:
4298: -- here's the delegated call to the old PL/SQL routine
4299: okl_trans_contracts_pvt.delete_trx_contracts(p_api_version,
4300: p_init_msg_list,
4301: x_return_status,
4302: x_msg_count,
4303: x_msg_data,
4412: , p5_a93 JTF_DATE_TABLE
4413: )
4414:
4415: as
4416: ddp_tcnv_tbl okl_trans_contracts_pvt.tcnv_tbl_type;
4417: ddindx binary_integer; indx binary_integer;
4418: begin
4419:
4420: -- copy data to the local IN or IN-OUT args, if any
4519: , p5_a93
4520: );
4521:
4522: -- here's the delegated call to the old PL/SQL routine
4523: okl_trans_contracts_pvt.delete_trx_contracts(p_api_version,
4524: p_init_msg_list,
4525: x_return_status,
4526: x_msg_count,
4527: x_msg_data,
4600: , p5_a57 VARCHAR2 := fnd_api.g_miss_char
4601: )
4602:
4603: as
4604: ddp_tclv_rec okl_trans_contracts_pvt.tclv_rec_type;
4605: ddindx binary_integer; indx binary_integer;
4606: begin
4607:
4608: -- copy data to the local IN or IN-OUT args, if any
4670: ddp_tclv_rec.asset_book_type_name := p5_a56;
4671: ddp_tclv_rec.upgrade_status_flag := p5_a57;
4672:
4673: -- here's the delegated call to the old PL/SQL routine
4674: okl_trans_contracts_pvt.delete_trx_cntrct_lines(p_api_version,
4675: p_init_msg_list,
4676: x_return_status,
4677: x_msg_count,
4678: x_msg_data,
4751: , p5_a57 JTF_VARCHAR2_TABLE_100
4752: )
4753:
4754: as
4755: ddp_tclv_tbl okl_trans_contracts_pvt.tclv_tbl_type;
4756: ddindx binary_integer; indx binary_integer;
4757: begin
4758:
4759: -- copy data to the local IN or IN-OUT args, if any
4822: , p5_a57
4823: );
4824:
4825: -- here's the delegated call to the old PL/SQL routine
4826: okl_trans_contracts_pvt.delete_trx_cntrct_lines(p_api_version,
4827: p_init_msg_list,
4828: x_return_status,
4829: x_msg_count,
4830: x_msg_data,
4837:
4838:
4839: end;
4840:
4841: end okl_trans_contracts_pvt_w;