1: package body okl_am_termnt_quote_pvt_w as
2: /* $Header: OKLETNQB.pls 120.5 2007/11/02 21:06:36 rmunjulu 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:
18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p11(t out nocopy okl_am_termnt_quote_pvt.qte_ln_dtl_tbl, a0 JTF_VARCHAR2_TABLE_100
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_NUMBER_TABLE
53: end loop;
54: end if;
55: end if;
56: end rosetta_table_copy_in_p11;
57: procedure rosetta_table_copy_out_p11(t okl_am_termnt_quote_pvt.qte_ln_dtl_tbl, a0 out nocopy JTF_VARCHAR2_TABLE_100
58: , a1 out nocopy JTF_NUMBER_TABLE
59: , a2 out nocopy JTF_NUMBER_TABLE
60: , a3 out nocopy JTF_NUMBER_TABLE
61: , a4 out nocopy JTF_NUMBER_TABLE
117: end if;
118: end if;
119: end rosetta_table_copy_out_p11;
120:
121: procedure rosetta_table_copy_in_p25(t out nocopy okl_am_termnt_quote_pvt.unit_tbl_type, a0 JTF_NUMBER_TABLE
122: , a1 JTF_VARCHAR2_TABLE_100
123: , a2 JTF_VARCHAR2_TABLE_100
124: , a3 JTF_NUMBER_TABLE
125: , a4 JTF_NUMBER_TABLE
168: end loop;
169: end if;
170: end if;
171: end rosetta_table_copy_in_p25;
172: procedure rosetta_table_copy_out_p25(t okl_am_termnt_quote_pvt.unit_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
173: , a1 out nocopy JTF_VARCHAR2_TABLE_100
174: , a2 out nocopy JTF_VARCHAR2_TABLE_100
175: , a3 out nocopy JTF_NUMBER_TABLE
176: , a4 out nocopy JTF_NUMBER_TABLE
448: , p5_a82 VARCHAR2 := fnd_api.g_miss_char
449: )
450:
451: as
452: ddp_term_rec okl_am_termnt_quote_pvt.term_rec_type;
453: ddx_term_rec okl_am_termnt_quote_pvt.term_rec_type;
454: ddindx binary_integer; indx binary_integer;
455: begin
456:
449: )
450:
451: as
452: ddp_term_rec okl_am_termnt_quote_pvt.term_rec_type;
453: ddx_term_rec okl_am_termnt_quote_pvt.term_rec_type;
454: ddindx binary_integer; indx binary_integer;
455: begin
456:
457: -- copy data to the local IN or IN-OUT args, if any
547:
548:
549:
550: -- here's the delegated call to the old PL/SQL routine
551: okl_am_termnt_quote_pvt.terminate_quote(p_api_version,
552: p_init_msg_list,
553: x_return_status,
554: x_msg_count,
555: x_msg_data,
827: , p_acceptance_source VARCHAR2
828: )
829:
830: as
831: ddp_term_tbl okl_am_termnt_quote_pvt.term_tbl_type;
832: ddx_term_tbl okl_am_termnt_quote_pvt.term_tbl_type;
833: ddindx binary_integer; indx binary_integer;
834: begin
835:
828: )
829:
830: as
831: ddp_term_tbl okl_am_termnt_quote_pvt.term_tbl_type;
832: ddx_term_tbl okl_am_termnt_quote_pvt.term_tbl_type;
833: ddindx binary_integer; indx binary_integer;
834: begin
835:
836: -- copy data to the local IN or IN-OUT args, if any
927:
928:
929:
930: -- here's the delegated call to the old PL/SQL routine
931: okl_am_termnt_quote_pvt.terminate_quote(p_api_version,
932: p_init_msg_list,
933: x_return_status,
934: x_msg_count,
935: x_msg_data,
1206: , p5_a82 VARCHAR2 := fnd_api.g_miss_char
1207: )
1208:
1209: as
1210: ddp_term_rec okl_am_termnt_quote_pvt.term_rec_type;
1211: ddx_term_rec okl_am_termnt_quote_pvt.term_rec_type;
1212: ddindx binary_integer; indx binary_integer;
1213: begin
1214:
1207: )
1208:
1209: as
1210: ddp_term_rec okl_am_termnt_quote_pvt.term_rec_type;
1211: ddx_term_rec okl_am_termnt_quote_pvt.term_rec_type;
1212: ddindx binary_integer; indx binary_integer;
1213: begin
1214:
1215: -- copy data to the local IN or IN-OUT args, if any
1303: ddp_term_rec.repo_quote_indicator_yn := p5_a82;
1304:
1305:
1306: -- here's the delegated call to the old PL/SQL routine
1307: okl_am_termnt_quote_pvt.submit_for_approval(p_api_version,
1308: p_init_msg_list,
1309: x_return_status,
1310: x_msg_count,
1311: x_msg_data,
1420: , p5_a8 in out nocopy JTF_NUMBER_TABLE
1421: )
1422:
1423: as
1424: ddp_qld_tbl okl_am_termnt_quote_pvt.qte_ln_dtl_tbl;
1425: ddindx binary_integer; indx binary_integer;
1426: begin
1427:
1428: -- copy data to the local IN or IN-OUT args, if any
1430:
1431:
1432:
1433:
1434: okl_am_termnt_quote_pvt_w.rosetta_table_copy_in_p11(ddp_qld_tbl, p5_a0
1435: , p5_a1
1436: , p5_a2
1437: , p5_a3
1438: , p5_a4
1442: , p5_a8
1443: );
1444:
1445: -- here's the delegated call to the old PL/SQL routine
1446: okl_am_termnt_quote_pvt.quote_line_dtls(p_api_version,
1447: p_init_msg_list,
1448: x_return_status,
1449: x_msg_count,
1450: x_msg_data,
1455:
1456:
1457:
1458:
1459: okl_am_termnt_quote_pvt_w.rosetta_table_copy_out_p11(ddp_qld_tbl, p5_a0
1460: , p5_a1
1461: , p5_a2
1462: , p5_a3
1463: , p5_a4
1597: , p5_a60 NUMBER := 0-1962.0724
1598: )
1599:
1600: as
1601: ddp_tqlv_rec okl_am_termnt_quote_pvt.tqlv_rec_type;
1602: ddx_tqlv_rec okl_am_termnt_quote_pvt.tqlv_rec_type;
1603: ddindx binary_integer; indx binary_integer;
1604: begin
1605:
1598: )
1599:
1600: as
1601: ddp_tqlv_rec okl_am_termnt_quote_pvt.tqlv_rec_type;
1602: ddx_tqlv_rec okl_am_termnt_quote_pvt.tqlv_rec_type;
1603: ddindx binary_integer; indx binary_integer;
1604: begin
1605:
1606: -- copy data to the local IN or IN-OUT args, if any
1672: ddp_tqlv_rec.try_id := rosetta_g_miss_num_map(p5_a60);
1673:
1674:
1675: -- here's the delegated call to the old PL/SQL routine
1676: okl_am_termnt_quote_pvt.create_quote_line(p_api_version,
1677: p_init_msg_list,
1678: x_return_status,
1679: x_msg_count,
1680: x_msg_data,
1880: , p6_a60 out nocopy JTF_NUMBER_TABLE
1881: )
1882:
1883: as
1884: ddp_tqlv_tbl okl_am_termnt_quote_pvt.tqlv_tbl_type;
1885: ddx_tqlv_tbl okl_am_termnt_quote_pvt.tqlv_tbl_type;
1886: ddindx binary_integer; indx binary_integer;
1887: begin
1888:
1881: )
1882:
1883: as
1884: ddp_tqlv_tbl okl_am_termnt_quote_pvt.tqlv_tbl_type;
1885: ddx_tqlv_tbl okl_am_termnt_quote_pvt.tqlv_tbl_type;
1886: ddindx binary_integer; indx binary_integer;
1887: begin
1888:
1889: -- copy data to the local IN or IN-OUT args, if any
1956: );
1957:
1958:
1959: -- here's the delegated call to the old PL/SQL routine
1960: okl_am_termnt_quote_pvt.create_quote_line(p_api_version,
1961: p_init_msg_list,
1962: x_return_status,
1963: x_msg_count,
1964: x_msg_data,
2165: , p5_a60 NUMBER := 0-1962.0724
2166: )
2167:
2168: as
2169: ddp_tqlv_rec okl_am_termnt_quote_pvt.tqlv_rec_type;
2170: ddx_tqlv_rec okl_am_termnt_quote_pvt.tqlv_rec_type;
2171: ddindx binary_integer; indx binary_integer;
2172: begin
2173:
2166: )
2167:
2168: as
2169: ddp_tqlv_rec okl_am_termnt_quote_pvt.tqlv_rec_type;
2170: ddx_tqlv_rec okl_am_termnt_quote_pvt.tqlv_rec_type;
2171: ddindx binary_integer; indx binary_integer;
2172: begin
2173:
2174: -- copy data to the local IN or IN-OUT args, if any
2240: ddp_tqlv_rec.try_id := rosetta_g_miss_num_map(p5_a60);
2241:
2242:
2243: -- here's the delegated call to the old PL/SQL routine
2244: okl_am_termnt_quote_pvt.update_quote_line(p_api_version,
2245: p_init_msg_list,
2246: x_return_status,
2247: x_msg_count,
2248: x_msg_data,
2448: , p6_a60 out nocopy JTF_NUMBER_TABLE
2449: )
2450:
2451: as
2452: ddp_tqlv_tbl okl_am_termnt_quote_pvt.tqlv_tbl_type;
2453: ddx_tqlv_tbl okl_am_termnt_quote_pvt.tqlv_tbl_type;
2454: ddindx binary_integer; indx binary_integer;
2455: begin
2456:
2449: )
2450:
2451: as
2452: ddp_tqlv_tbl okl_am_termnt_quote_pvt.tqlv_tbl_type;
2453: ddx_tqlv_tbl okl_am_termnt_quote_pvt.tqlv_tbl_type;
2454: ddindx binary_integer; indx binary_integer;
2455: begin
2456:
2457: -- copy data to the local IN or IN-OUT args, if any
2524: );
2525:
2526:
2527: -- here's the delegated call to the old PL/SQL routine
2528: okl_am_termnt_quote_pvt.update_quote_line(p_api_version,
2529: p_init_msg_list,
2530: x_return_status,
2531: x_msg_count,
2532: x_msg_data,
2629: , p6_a16 out nocopy JTF_NUMBER_TABLE
2630: )
2631:
2632: as
2633: ddx_unit_tbl okl_am_termnt_quote_pvt.unit_tbl_type;
2634: ddindx binary_integer; indx binary_integer;
2635: begin
2636:
2637: -- copy data to the local IN or IN-OUT args, if any
2642:
2643:
2644:
2645: -- here's the delegated call to the old PL/SQL routine
2646: okl_am_termnt_quote_pvt.get_quote_units(p_api_version,
2647: p_init_msg_list,
2648: x_return_status,
2649: x_msg_count,
2650: x_msg_data,
2657:
2658:
2659:
2660:
2661: okl_am_termnt_quote_pvt_w.rosetta_table_copy_out_p25(ddx_unit_tbl, p6_a0
2662: , p6_a1
2663: , p6_a2
2664: , p6_a3
2665: , p6_a4
2746: , p5_a60 NUMBER := 0-1962.0724
2747: )
2748:
2749: as
2750: ddp_tqlv_rec okl_am_termnt_quote_pvt.tqlv_rec_type;
2751: ddindx binary_integer; indx binary_integer;
2752: begin
2753:
2754: -- copy data to the local IN or IN-OUT args, if any
2819: ddp_tqlv_rec.due_date := rosetta_g_miss_date_in_map(p5_a59);
2820: ddp_tqlv_rec.try_id := rosetta_g_miss_num_map(p5_a60);
2821:
2822: -- here's the delegated call to the old PL/SQL routine
2823: okl_am_termnt_quote_pvt.delete_quote_line(p_api_version,
2824: p_init_msg_list,
2825: x_return_status,
2826: x_msg_count,
2827: x_msg_data,
2903: , p5_a60 JTF_NUMBER_TABLE
2904: )
2905:
2906: as
2907: ddp_tqlv_tbl okl_am_termnt_quote_pvt.tqlv_tbl_type;
2908: ddindx binary_integer; indx binary_integer;
2909: begin
2910:
2911: -- copy data to the local IN or IN-OUT args, if any
2977: , p5_a60
2978: );
2979:
2980: -- here's the delegated call to the old PL/SQL routine
2981: okl_am_termnt_quote_pvt.delete_quote_line(p_api_version,
2982: p_init_msg_list,
2983: x_return_status,
2984: x_msg_count,
2985: x_msg_data,
3014:
3015:
3016:
3017: -- here's the delegated call to the old PL/SQL routine
3018: okl_am_termnt_quote_pvt.check_asset_validity_in_fa(p_kle_id,
3019: ddp_trn_date,
3020: p_check_fa_year,
3021: p_check_fa_trn,
3022: p_contract_number,
3029:
3030:
3031: end;
3032:
3033: end okl_am_termnt_quote_pvt_w;