1: package body lns_fin_utils_w as
2: /* $Header: LNS_FIN_UTILSJ_B.pls 120.0 2005/05/31 18:31:01 appldev noship $ */
3: procedure rosetta_table_copy_in_p0(t out nocopy lns_fin_utils.date_tbl, a0 JTF_DATE_TABLE) as
4: ddindx binary_integer; indx binary_integer;
5: begin
6: if a0 is not null and a0.count > 0 then
7: if a0.count > 0 then
17: end loop;
18: end if;
19: end if;
20: end rosetta_table_copy_in_p0;
21: procedure rosetta_table_copy_out_p0(t lns_fin_utils.date_tbl, a0 out nocopy JTF_DATE_TABLE) as
22: ddindx binary_integer; indx binary_integer;
23: begin
24: if t is null or t.count = 0 then
25: a0 := JTF_DATE_TABLE();
21: procedure rosetta_table_copy_out_p0(t lns_fin_utils.date_tbl, a0 out nocopy JTF_DATE_TABLE) as
22: ddindx binary_integer; indx binary_integer;
23: begin
24: if t is null or t.count = 0 then
25: a0 := JTF_DATE_TABLE();
26: else
27: a0 := JTF_DATE_TABLE();
28: if t.count > 0 then
29: a0.extend(t.count);
23: begin
24: if t is null or t.count = 0 then
25: a0 := JTF_DATE_TABLE();
26: else
27: a0 := JTF_DATE_TABLE();
28: if t.count > 0 then
29: a0.extend(t.count);
30: ddindx := t.first;
31: indx := 1;
40: end if;
41: end if;
42: end rosetta_table_copy_out_p0;
43:
44: procedure rosetta_table_copy_in_p2(t out nocopy lns_fin_utils.payment_schedule_tbl, a0 JTF_DATE_TABLE
45: , a1 JTF_DATE_TABLE
46: , a2 JTF_DATE_TABLE
47: ) as
48: ddindx binary_integer; indx binary_integer;
41: end if;
42: end rosetta_table_copy_out_p0;
43:
44: procedure rosetta_table_copy_in_p2(t out nocopy lns_fin_utils.payment_schedule_tbl, a0 JTF_DATE_TABLE
45: , a1 JTF_DATE_TABLE
46: , a2 JTF_DATE_TABLE
47: ) as
48: ddindx binary_integer; indx binary_integer;
49: begin
42: end rosetta_table_copy_out_p0;
43:
44: procedure rosetta_table_copy_in_p2(t out nocopy lns_fin_utils.payment_schedule_tbl, a0 JTF_DATE_TABLE
45: , a1 JTF_DATE_TABLE
46: , a2 JTF_DATE_TABLE
47: ) as
48: ddindx binary_integer; indx binary_integer;
49: begin
50: if a0 is not null and a0.count > 0 then
63: end loop;
64: end if;
65: end if;
66: end rosetta_table_copy_in_p2;
67: procedure rosetta_table_copy_out_p2(t lns_fin_utils.payment_schedule_tbl, a0 out nocopy JTF_DATE_TABLE
68: , a1 out nocopy JTF_DATE_TABLE
69: , a2 out nocopy JTF_DATE_TABLE
70: ) as
71: ddindx binary_integer; indx binary_integer;
64: end if;
65: end if;
66: end rosetta_table_copy_in_p2;
67: procedure rosetta_table_copy_out_p2(t lns_fin_utils.payment_schedule_tbl, a0 out nocopy JTF_DATE_TABLE
68: , a1 out nocopy JTF_DATE_TABLE
69: , a2 out nocopy JTF_DATE_TABLE
70: ) as
71: ddindx binary_integer; indx binary_integer;
72: begin
65: end if;
66: end rosetta_table_copy_in_p2;
67: procedure rosetta_table_copy_out_p2(t lns_fin_utils.payment_schedule_tbl, a0 out nocopy JTF_DATE_TABLE
68: , a1 out nocopy JTF_DATE_TABLE
69: , a2 out nocopy JTF_DATE_TABLE
70: ) as
71: ddindx binary_integer; indx binary_integer;
72: begin
73: if t is null or t.count = 0 then
70: ) as
71: ddindx binary_integer; indx binary_integer;
72: begin
73: if t is null or t.count = 0 then
74: a0 := JTF_DATE_TABLE();
75: a1 := JTF_DATE_TABLE();
76: a2 := JTF_DATE_TABLE();
77: else
78: a0 := JTF_DATE_TABLE();
71: ddindx binary_integer; indx binary_integer;
72: begin
73: if t is null or t.count = 0 then
74: a0 := JTF_DATE_TABLE();
75: a1 := JTF_DATE_TABLE();
76: a2 := JTF_DATE_TABLE();
77: else
78: a0 := JTF_DATE_TABLE();
79: a1 := JTF_DATE_TABLE();
72: begin
73: if t is null or t.count = 0 then
74: a0 := JTF_DATE_TABLE();
75: a1 := JTF_DATE_TABLE();
76: a2 := JTF_DATE_TABLE();
77: else
78: a0 := JTF_DATE_TABLE();
79: a1 := JTF_DATE_TABLE();
80: a2 := JTF_DATE_TABLE();
74: a0 := JTF_DATE_TABLE();
75: a1 := JTF_DATE_TABLE();
76: a2 := JTF_DATE_TABLE();
77: else
78: a0 := JTF_DATE_TABLE();
79: a1 := JTF_DATE_TABLE();
80: a2 := JTF_DATE_TABLE();
81: if t.count > 0 then
82: a0.extend(t.count);
75: a1 := JTF_DATE_TABLE();
76: a2 := JTF_DATE_TABLE();
77: else
78: a0 := JTF_DATE_TABLE();
79: a1 := JTF_DATE_TABLE();
80: a2 := JTF_DATE_TABLE();
81: if t.count > 0 then
82: a0.extend(t.count);
83: a1.extend(t.count);
76: a2 := JTF_DATE_TABLE();
77: else
78: a0 := JTF_DATE_TABLE();
79: a1 := JTF_DATE_TABLE();
80: a2 := JTF_DATE_TABLE();
81: if t.count > 0 then
82: a0.extend(t.count);
83: a1.extend(t.count);
84: a2.extend(t.count);