[Home] [Help]
PACKAGE BODY: APPS.OKL_QUOTE_TO_CONTRACT_PVT_W
Source
1 package body okl_quote_to_contract_pvt_w as
2 /* $Header: OKLELQCB.pls 120.0 2005/10/06 07:23:17 skgautam noship $ */
3 procedure rosetta_table_copy_in_p3(t out nocopy okl_quote_to_contract_pvt.link_asset_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_100
6 ) as
7 ddindx binary_integer; indx binary_integer;
8 begin
9 if a0 is not null and a0.count > 0 then
10 if a0.count > 0 then
11 indx := a0.first;
12 ddindx := 1;
13 while true loop
14 t(ddindx).fin_asset_id := a0(indx);
15 t(ddindx).amount := a1(indx);
16 t(ddindx).asset_number := a2(indx);
17 ddindx := ddindx+1;
18 if a0.last =indx
19 then exit;
20 end if;
21 indx := a0.next(indx);
22 end loop;
23 end if;
24 end if;
25 end rosetta_table_copy_in_p3;
26 procedure rosetta_table_copy_out_p3(t okl_quote_to_contract_pvt.link_asset_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
27 , a1 out nocopy JTF_NUMBER_TABLE
28 , a2 out nocopy JTF_VARCHAR2_TABLE_100
29 ) as
30 ddindx binary_integer; indx binary_integer;
31 begin
32 if t is null or t.count = 0 then
33 a0 := JTF_NUMBER_TABLE();
34 a1 := JTF_NUMBER_TABLE();
35 a2 := JTF_VARCHAR2_TABLE_100();
36 else
37 a0 := JTF_NUMBER_TABLE();
38 a1 := JTF_NUMBER_TABLE();
39 a2 := JTF_VARCHAR2_TABLE_100();
40 if t.count > 0 then
41 a0.extend(t.count);
42 a1.extend(t.count);
43 a2.extend(t.count);
44 ddindx := t.first;
45 indx := 1;
46 while true loop
47 a0(indx) := t(ddindx).fin_asset_id;
48 a1(indx) := t(ddindx).amount;
49 a2(indx) := t(ddindx).asset_number;
50 indx := indx+1;
51 if t.last =ddindx
52 then exit;
53 end if;
54 ddindx := t.next(ddindx);
55 end loop;
56 end if;
57 end if;
58 end rosetta_table_copy_out_p3;
59
60 procedure rosetta_table_copy_in_p6(t out nocopy okl_quote_to_contract_pvt.payment_levels_tbl_type, a0 JTF_NUMBER_TABLE
61 , a1 JTF_DATE_TABLE
62 , a2 JTF_NUMBER_TABLE
63 , a3 JTF_NUMBER_TABLE
64 , a4 JTF_NUMBER_TABLE
65 , a5 JTF_NUMBER_TABLE
66 , a6 JTF_NUMBER_TABLE
67 , a7 JTF_VARCHAR2_TABLE_100
68 , a8 JTF_VARCHAR2_TABLE_100
69 , a9 JTF_NUMBER_TABLE
70 , a10 JTF_VARCHAR2_TABLE_100
71 , a11 JTF_VARCHAR2_TABLE_100
72 ) as
73 ddindx binary_integer; indx binary_integer;
74 begin
75 if a0 is not null and a0.count > 0 then
76 if a0.count > 0 then
77 indx := a0.first;
78 ddindx := 1;
79 while true loop
80 t(ddindx).payment_level_id := a0(indx);
81 t(ddindx).start_date := a1(indx);
82 t(ddindx).periods := a2(indx);
83 t(ddindx).amount := a3(indx);
84 t(ddindx).stub_days := a4(indx);
85 t(ddindx).stub_amount := a5(indx);
86 t(ddindx).rate := a6(indx);
87 t(ddindx).rate_type := a7(indx);
88 t(ddindx).payment_structure := a8(indx);
89 t(ddindx).payment_type_id := a9(indx);
90 t(ddindx).frequency_code := a10(indx);
91 t(ddindx).arrears_yn := a11(indx);
92 ddindx := ddindx+1;
93 if a0.last =indx
94 then exit;
95 end if;
96 indx := a0.next(indx);
97 end loop;
98 end if;
99 end if;
100 end rosetta_table_copy_in_p6;
101 procedure rosetta_table_copy_out_p6(t okl_quote_to_contract_pvt.payment_levels_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
102 , a1 out nocopy JTF_DATE_TABLE
103 , a2 out nocopy JTF_NUMBER_TABLE
104 , a3 out nocopy JTF_NUMBER_TABLE
105 , a4 out nocopy JTF_NUMBER_TABLE
106 , a5 out nocopy JTF_NUMBER_TABLE
107 , a6 out nocopy JTF_NUMBER_TABLE
108 , a7 out nocopy JTF_VARCHAR2_TABLE_100
109 , a8 out nocopy JTF_VARCHAR2_TABLE_100
110 , a9 out nocopy JTF_NUMBER_TABLE
111 , a10 out nocopy JTF_VARCHAR2_TABLE_100
112 , a11 out nocopy JTF_VARCHAR2_TABLE_100
113 ) as
114 ddindx binary_integer; indx binary_integer;
115 begin
116 if t is null or t.count = 0 then
117 a0 := JTF_NUMBER_TABLE();
118 a1 := JTF_DATE_TABLE();
119 a2 := JTF_NUMBER_TABLE();
120 a3 := JTF_NUMBER_TABLE();
121 a4 := JTF_NUMBER_TABLE();
122 a5 := JTF_NUMBER_TABLE();
123 a6 := JTF_NUMBER_TABLE();
124 a7 := JTF_VARCHAR2_TABLE_100();
125 a8 := JTF_VARCHAR2_TABLE_100();
126 a9 := JTF_NUMBER_TABLE();
127 a10 := JTF_VARCHAR2_TABLE_100();
128 a11 := JTF_VARCHAR2_TABLE_100();
129 else
130 a0 := JTF_NUMBER_TABLE();
131 a1 := JTF_DATE_TABLE();
132 a2 := JTF_NUMBER_TABLE();
133 a3 := JTF_NUMBER_TABLE();
134 a4 := JTF_NUMBER_TABLE();
135 a5 := JTF_NUMBER_TABLE();
136 a6 := JTF_NUMBER_TABLE();
137 a7 := JTF_VARCHAR2_TABLE_100();
138 a8 := JTF_VARCHAR2_TABLE_100();
139 a9 := JTF_NUMBER_TABLE();
140 a10 := JTF_VARCHAR2_TABLE_100();
141 a11 := JTF_VARCHAR2_TABLE_100();
142 if t.count > 0 then
143 a0.extend(t.count);
144 a1.extend(t.count);
145 a2.extend(t.count);
146 a3.extend(t.count);
147 a4.extend(t.count);
148 a5.extend(t.count);
149 a6.extend(t.count);
150 a7.extend(t.count);
151 a8.extend(t.count);
152 a9.extend(t.count);
153 a10.extend(t.count);
154 a11.extend(t.count);
155 ddindx := t.first;
156 indx := 1;
157 while true loop
158 a0(indx) := t(ddindx).payment_level_id;
159 a1(indx) := t(ddindx).start_date;
160 a2(indx) := t(ddindx).periods;
161 a3(indx) := t(ddindx).amount;
162 a4(indx) := t(ddindx).stub_days;
163 a5(indx) := t(ddindx).stub_amount;
164 a6(indx) := t(ddindx).rate;
165 a7(indx) := t(ddindx).rate_type;
166 a8(indx) := t(ddindx).payment_structure;
167 a9(indx) := t(ddindx).payment_type_id;
168 a10(indx) := t(ddindx).frequency_code;
169 a11(indx) := t(ddindx).arrears_yn;
170 indx := indx+1;
171 if t.last =ddindx
172 then exit;
173 end if;
174 ddindx := t.next(ddindx);
175 end loop;
176 end if;
177 end if;
178 end rosetta_table_copy_out_p6;
179
180 procedure rosetta_table_copy_in_p8(t out nocopy okl_quote_to_contract_pvt.qte_cntrct_ast_tbl_type, a0 JTF_NUMBER_TABLE
181 , a1 JTF_NUMBER_TABLE
182 ) as
183 ddindx binary_integer; indx binary_integer;
184 begin
185 if a0 is not null and a0.count > 0 then
186 if a0.count > 0 then
187 indx := a0.first;
188 ddindx := 1;
189 while true loop
190 t(ddindx).qte_asset_id := a0(indx);
191 t(ddindx).cntrct_asset_id := a1(indx);
192 ddindx := ddindx+1;
193 if a0.last =indx
194 then exit;
195 end if;
196 indx := a0.next(indx);
197 end loop;
198 end if;
199 end if;
200 end rosetta_table_copy_in_p8;
201 procedure rosetta_table_copy_out_p8(t okl_quote_to_contract_pvt.qte_cntrct_ast_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
202 , a1 out nocopy JTF_NUMBER_TABLE
203 ) as
204 ddindx binary_integer; indx binary_integer;
205 begin
206 if t is null or t.count = 0 then
207 a0 := JTF_NUMBER_TABLE();
208 a1 := JTF_NUMBER_TABLE();
209 else
210 a0 := JTF_NUMBER_TABLE();
211 a1 := JTF_NUMBER_TABLE();
212 if t.count > 0 then
213 a0.extend(t.count);
214 a1.extend(t.count);
215 ddindx := t.first;
216 indx := 1;
217 while true loop
218 a0(indx) := t(ddindx).qte_asset_id;
219 a1(indx) := t(ddindx).cntrct_asset_id;
220 indx := indx+1;
221 if t.last =ddindx
222 then exit;
223 end if;
224 ddindx := t.next(ddindx);
225 end loop;
226 end if;
227 end if;
228 end rosetta_table_copy_out_p8;
229
230 end okl_quote_to_contract_pvt_w;