1: package body okl_la_asset_pvt_w as
2: /* $Header: OKLELAAB.pls 120.5.12010000.2 2010/04/29 16:32:10 rpillay 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');
21: if n=b then return a; end if;
22: return n;
23: end;
24:
25: procedure rosetta_table_copy_in_p2(t out nocopy okl_la_asset_pvt.fin_adj_tbl_type, a0 JTF_NUMBER_TABLE
26: , a1 JTF_VARCHAR2_TABLE_100
27: , a2 JTF_VARCHAR2_TABLE_100
28: , a3 JTF_NUMBER_TABLE
29: , a4 JTF_NUMBER_TABLE
56: end loop;
57: end if;
58: end if;
59: end rosetta_table_copy_in_p2;
60: procedure rosetta_table_copy_out_p2(t okl_la_asset_pvt.fin_adj_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
61: , a1 out nocopy JTF_VARCHAR2_TABLE_100
62: , a2 out nocopy JTF_VARCHAR2_TABLE_100
63: , a3 out nocopy JTF_NUMBER_TABLE
64: , a4 out nocopy JTF_NUMBER_TABLE
120: end if;
121: end if;
122: end rosetta_table_copy_out_p2;
123:
124: procedure rosetta_table_copy_in_p3(t out nocopy okl_la_asset_pvt.las_tbl_type, a0 JTF_VARCHAR2_TABLE_100
125: , a1 JTF_NUMBER_TABLE
126: , a2 JTF_VARCHAR2_TABLE_400
127: , a3 JTF_VARCHAR2_TABLE_100
128: , a4 JTF_NUMBER_TABLE
183: end loop;
184: end if;
185: end if;
186: end rosetta_table_copy_in_p3;
187: procedure rosetta_table_copy_out_p3(t okl_la_asset_pvt.las_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
188: , a1 out nocopy JTF_NUMBER_TABLE
189: , a2 out nocopy JTF_VARCHAR2_TABLE_400
190: , a3 out nocopy JTF_VARCHAR2_TABLE_100
191: , a4 out nocopy JTF_NUMBER_TABLE
371: , p5_a22 VARCHAR2 := fnd_api.g_miss_char
372: )
373:
374: as
375: ddp_las_rec okl_la_asset_pvt.las_rec_type;
376: ddx_las_tbl okl_la_asset_pvt.las_tbl_type;
377: ddindx binary_integer; indx binary_integer;
378: begin
379:
372: )
373:
374: as
375: ddp_las_rec okl_la_asset_pvt.las_rec_type;
376: ddx_las_tbl okl_la_asset_pvt.las_tbl_type;
377: ddindx binary_integer; indx binary_integer;
378: begin
379:
380: -- copy data to the local IN or IN-OUT args, if any
408: ddp_las_rec.include_split_yn := p5_a22;
409:
410:
411: -- here's the delegated call to the old PL/SQL routine
412: okl_la_asset_pvt.generate_asset_summary(p_api_version,
413: p_init_msg_list,
414: x_return_status,
415: x_msg_count,
416: x_msg_data,
423:
424:
425:
426:
427: okl_la_asset_pvt_w.rosetta_table_copy_out_p3(ddx_las_tbl, p6_a0
428: , p6_a1
429: , p6_a2
430: , p6_a3
431: , p6_a4
481:
482:
483:
484: -- here's the delegated call to the old PL/SQL routine
485: okl_la_asset_pvt.update_contract_line(p_api_version,
486: p_init_msg_list,
487: x_return_status,
488: x_msg_count,
489: x_msg_data,
521: , p5_a8 JTF_VARCHAR2_TABLE_100
522: )
523:
524: as
525: ddp_fin_adj_tbl okl_la_asset_pvt.fin_adj_tbl_type;
526: ddindx binary_integer; indx binary_integer;
527: begin
528:
529: -- copy data to the local IN or IN-OUT args, if any
531:
532:
533:
534:
535: okl_la_asset_pvt_w.rosetta_table_copy_in_p2(ddp_fin_adj_tbl, p5_a0
536: , p5_a1
537: , p5_a2
538: , p5_a3
539: , p5_a4
543: , p5_a8
544: );
545:
546: -- here's the delegated call to the old PL/SQL routine
547: okl_la_asset_pvt.update_fin_cap_cost(p_api_version,
548: p_init_msg_list,
549: x_return_status,
550: x_msg_count,
551: x_msg_data,
574:
575:
576:
577: -- here's the delegated call to the old PL/SQL routine
578: ddrosetta_retval := okl_la_asset_pvt.iscontractactive(p_dnz_chr_id,
579: p_deal_type,
580: p_sts_code);
581:
582: -- copy data back from the local variables to OUT or IN-OUT args, if any
589:
590:
591: end;
592:
593: end okl_la_asset_pvt_w;