[Home] [Help]
PACKAGE BODY: APPS.OKL_DEAL_CREAT_PVT_W
Source
1 package body okl_deal_creat_pvt_w as
2 /* $Header: OKLEDCRB.pls 120.11 2007/05/17 16:53:41 hariven noship $ */
3 procedure rosetta_table_copy_in_p7(t out nocopy okl_deal_creat_pvt.deal_tab_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_200
5 , a2 JTF_VARCHAR2_TABLE_2000
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_VARCHAR2_TABLE_100
8 , a5 JTF_DATE_TABLE
9 , a6 JTF_DATE_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_VARCHAR2_TABLE_200
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_VARCHAR2_TABLE_100
15 , a12 JTF_VARCHAR2_TABLE_100
16 , a13 JTF_VARCHAR2_TABLE_100
17 , a14 JTF_VARCHAR2_TABLE_100
18 , a15 JTF_VARCHAR2_TABLE_100
19 , a16 JTF_VARCHAR2_TABLE_100
20 , a17 JTF_VARCHAR2_TABLE_100
21 , a18 JTF_DATE_TABLE
22 , a19 JTF_DATE_TABLE
23 , a20 JTF_DATE_TABLE
24 , a21 JTF_DATE_TABLE
25 , a22 JTF_VARCHAR2_TABLE_100
26 , a23 JTF_VARCHAR2_TABLE_100
27 , a24 JTF_VARCHAR2_TABLE_200
28 , a25 JTF_NUMBER_TABLE
29 , a26 JTF_NUMBER_TABLE
30 , a27 JTF_NUMBER_TABLE
31 , a28 JTF_VARCHAR2_TABLE_100
32 , a29 JTF_VARCHAR2_TABLE_200
33 , a30 JTF_VARCHAR2_TABLE_100
34 , a31 JTF_VARCHAR2_TABLE_300
35 , a32 JTF_NUMBER_TABLE
36 , a33 JTF_VARCHAR2_TABLE_100
37 , a34 JTF_VARCHAR2_TABLE_200
38 , a35 JTF_VARCHAR2_TABLE_100
39 , a36 JTF_VARCHAR2_TABLE_300
40 , a37 JTF_VARCHAR2_TABLE_100
41 , a38 JTF_VARCHAR2_TABLE_300
42 , a39 JTF_NUMBER_TABLE
43 , a40 JTF_VARCHAR2_TABLE_200
44 , a41 JTF_VARCHAR2_TABLE_2000
45 , a42 JTF_NUMBER_TABLE
46 , a43 JTF_VARCHAR2_TABLE_200
47 , a44 JTF_VARCHAR2_TABLE_200
48 , a45 JTF_NUMBER_TABLE
49 , a46 JTF_NUMBER_TABLE
50 , a47 JTF_NUMBER_TABLE
51 , a48 JTF_NUMBER_TABLE
52 , a49 JTF_VARCHAR2_TABLE_500
53 , a50 JTF_VARCHAR2_TABLE_300
54 , a51 JTF_NUMBER_TABLE
55 , a52 JTF_NUMBER_TABLE
56 , a53 JTF_VARCHAR2_TABLE_500
57 , a54 JTF_VARCHAR2_TABLE_300
58 , a55 JTF_NUMBER_TABLE
59 , a56 JTF_VARCHAR2_TABLE_300
60 , a57 JTF_VARCHAR2_TABLE_300
61 , a58 JTF_NUMBER_TABLE
62 , a59 JTF_VARCHAR2_TABLE_100
63 , a60 JTF_VARCHAR2_TABLE_200
64 , a61 JTF_VARCHAR2_TABLE_100
65 , a62 JTF_VARCHAR2_TABLE_300
66 , a63 JTF_NUMBER_TABLE
67 , a64 JTF_NUMBER_TABLE
68 , a65 JTF_VARCHAR2_TABLE_500
69 , a66 JTF_VARCHAR2_TABLE_300
70 , a67 JTF_NUMBER_TABLE
71 , a68 JTF_NUMBER_TABLE
72 , a69 JTF_VARCHAR2_TABLE_500
73 , a70 JTF_VARCHAR2_TABLE_300
74 , a71 JTF_NUMBER_TABLE
75 , a72 JTF_NUMBER_TABLE
76 , a73 JTF_VARCHAR2_TABLE_500
77 , a74 JTF_VARCHAR2_TABLE_300
78 , a75 JTF_NUMBER_TABLE
79 , a76 JTF_NUMBER_TABLE
80 , a77 JTF_VARCHAR2_TABLE_500
81 , a78 JTF_VARCHAR2_TABLE_300
82 , a79 JTF_VARCHAR2_TABLE_100
83 , a80 JTF_NUMBER_TABLE
84 , a81 JTF_DATE_TABLE
85 , a82 JTF_VARCHAR2_TABLE_100
86 , a83 JTF_NUMBER_TABLE
87 , a84 JTF_VARCHAR2_TABLE_100
88 , a85 JTF_VARCHAR2_TABLE_500
89 , a86 JTF_VARCHAR2_TABLE_500
90 , a87 JTF_VARCHAR2_TABLE_500
91 , a88 JTF_VARCHAR2_TABLE_500
92 , a89 JTF_VARCHAR2_TABLE_500
93 , a90 JTF_VARCHAR2_TABLE_500
94 , a91 JTF_VARCHAR2_TABLE_500
95 , a92 JTF_VARCHAR2_TABLE_500
96 , a93 JTF_VARCHAR2_TABLE_500
97 , a94 JTF_VARCHAR2_TABLE_500
98 , a95 JTF_VARCHAR2_TABLE_500
99 , a96 JTF_VARCHAR2_TABLE_500
100 , a97 JTF_VARCHAR2_TABLE_500
101 , a98 JTF_VARCHAR2_TABLE_500
102 , a99 JTF_VARCHAR2_TABLE_500
103 , a100 JTF_NUMBER_TABLE
104 , a101 JTF_NUMBER_TABLE
105 , a102 JTF_VARCHAR2_TABLE_100
106 , a103 JTF_NUMBER_TABLE
107 , a104 JTF_VARCHAR2_TABLE_100
108 ) as
109 ddindx binary_integer; indx binary_integer;
110 begin
111 if a0 is not null and a0.count > 0 then
112 if a0.count > 0 then
113 indx := a0.first;
114 ddindx := 1;
115 while true loop
116 t(ddindx).chr_id := a0(indx);
117 t(ddindx).chr_contract_number := a1(indx);
118 t(ddindx).chr_description := a2(indx);
119 t(ddindx).vers_version := a3(indx);
120 t(ddindx).chr_sts_code := a4(indx);
121 t(ddindx).chr_start_date := a5(indx);
122 t(ddindx).chr_end_date := a6(indx);
123 t(ddindx).khr_term_duration := a7(indx);
124 t(ddindx).chr_cust_po_number := a8(indx);
125 t(ddindx).chr_inv_organization_id := a9(indx);
126 t(ddindx).chr_authoring_org_id := a10(indx);
127 t(ddindx).khr_generate_accrual_yn := a11(indx);
128 t(ddindx).khr_syndicatable_yn := a12(indx);
129 t(ddindx).khr_prefunding_eligible_yn := a13(indx);
130 t(ddindx).khr_revolving_credit_yn := a14(indx);
131 t(ddindx).khr_converted_account_yn := a15(indx);
132 t(ddindx).khr_credit_act_yn := a16(indx);
133 t(ddindx).chr_template_yn := a17(indx);
134 t(ddindx).chr_date_signed := a18(indx);
135 t(ddindx).khr_date_deal_transferred := a19(indx);
136 t(ddindx).khr_accepted_date := a20(indx);
137 t(ddindx).khr_expected_delivery_date := a21(indx);
138 t(ddindx).khr_amd_code := a22(indx);
139 t(ddindx).khr_deal_type := a23(indx);
140 t(ddindx).mla_contract_number := a24(indx);
141 t(ddindx).mla_gvr_chr_id_referred := a25(indx);
142 t(ddindx).mla_gvr_id := a26(indx);
143 t(ddindx).cust_id := a27(indx);
144 t(ddindx).cust_object1_id1 := a28(indx);
145 t(ddindx).cust_object1_id2 := a29(indx);
146 t(ddindx).cust_jtot_object1_code := a30(indx);
147 t(ddindx).cust_name := a31(indx);
148 t(ddindx).lessor_id := a32(indx);
149 t(ddindx).lessor_object1_id1 := a33(indx);
150 t(ddindx).lessor_object1_id2 := a34(indx);
151 t(ddindx).lessor_jtot_object1_code := a35(indx);
152 t(ddindx).lessor_name := a36(indx);
153 t(ddindx).chr_currency_code := a37(indx);
154 t(ddindx).currency_name := a38(indx);
155 t(ddindx).khr_pdt_id := a39(indx);
156 t(ddindx).product_name := a40(indx);
157 t(ddindx).product_description := a41(indx);
158 t(ddindx).khr_khr_id := a42(indx);
159 t(ddindx).program_contract_number := a43(indx);
160 t(ddindx).cl_contract_number := a44(indx);
161 t(ddindx).cl_gvr_chr_id_referred := a45(indx);
162 t(ddindx).cl_gvr_id := a46(indx);
163 t(ddindx).rg_larles_id := a47(indx);
164 t(ddindx).r_larles_id := a48(indx);
165 t(ddindx).r_larles_rule_information1 := a49(indx);
166 t(ddindx).col_larles_form_left_prompt := a50(indx);
167 t(ddindx).rg_larebl_id := a51(indx);
168 t(ddindx).r_larebl_id := a52(indx);
169 t(ddindx).r_larebl_rule_information1 := a53(indx);
170 t(ddindx).col_larebl_form_left_prompt := a54(indx);
171 t(ddindx).chr_cust_acct_id := a55(indx);
172 t(ddindx).customer_account := a56(indx);
173 t(ddindx).cust_site_description := a57(indx);
174 t(ddindx).contact_id := a58(indx);
175 t(ddindx).contact_object1_id1 := a59(indx);
176 t(ddindx).contact_object1_id2 := a60(indx);
177 t(ddindx).contact_jtot_object1_code := a61(indx);
178 t(ddindx).contact_name := a62(indx);
179 t(ddindx).rg_latown_id := a63(indx);
180 t(ddindx).r_latown_id := a64(indx);
181 t(ddindx).r_latown_rule_information1 := a65(indx);
182 t(ddindx).col_latown_form_left_prompt := a66(indx);
183 t(ddindx).rg_lanntf_id := a67(indx);
184 t(ddindx).r_lanntf_id := a68(indx);
185 t(ddindx).r_lanntf_rule_information1 := a69(indx);
186 t(ddindx).col_lanntf_form_left_prompt := a70(indx);
187 t(ddindx).rg_lacpln_id := a71(indx);
188 t(ddindx).r_lacpln_id := a72(indx);
189 t(ddindx).r_lacpln_rule_information1 := a73(indx);
190 t(ddindx).col_lacpln_form_left_prompt := a74(indx);
191 t(ddindx).rg_lapact_id := a75(indx);
192 t(ddindx).r_lapact_id := a76(indx);
193 t(ddindx).r_lapact_rule_information1 := a77(indx);
194 t(ddindx).col_lapact_form_left_prompt := a78(indx);
195 t(ddindx).khr_currency_conv_type := a79(indx);
196 t(ddindx).khr_currency_conv_rate := a80(indx);
197 t(ddindx).khr_currency_conv_date := a81(indx);
198 t(ddindx).khr_assignable_yn := a82(indx);
199 t(ddindx).legal_entity_id := a83(indx);
200 t(ddindx).attribute_category := a84(indx);
201 t(ddindx).attribute1 := a85(indx);
202 t(ddindx).attribute2 := a86(indx);
203 t(ddindx).attribute3 := a87(indx);
204 t(ddindx).attribute4 := a88(indx);
205 t(ddindx).attribute5 := a89(indx);
206 t(ddindx).attribute6 := a90(indx);
207 t(ddindx).attribute7 := a91(indx);
208 t(ddindx).attribute8 := a92(indx);
209 t(ddindx).attribute9 := a93(indx);
210 t(ddindx).attribute10 := a94(indx);
211 t(ddindx).attribute11 := a95(indx);
212 t(ddindx).attribute12 := a96(indx);
213 t(ddindx).attribute13 := a97(indx);
214 t(ddindx).attribute14 := a98(indx);
215 t(ddindx).attribute15 := a99(indx);
216 t(ddindx).labill_labacc_billto := a100(indx);
217 t(ddindx).labill_labacc_rgp_id := a101(indx);
218 t(ddindx).labill_labacc_rgd_code := a102(indx);
219 t(ddindx).labill_labacc_rul_id := a103(indx);
220 t(ddindx).labill_labacc_rul_info_cat := a104(indx);
221 ddindx := ddindx+1;
222 if a0.last =indx
223 then exit;
224 end if;
225 indx := a0.next(indx);
226 end loop;
227 end if;
228 end if;
229 end rosetta_table_copy_in_p7;
230 procedure rosetta_table_copy_out_p7(t okl_deal_creat_pvt.deal_tab_type, a0 out nocopy JTF_NUMBER_TABLE
231 , a1 out nocopy JTF_VARCHAR2_TABLE_200
232 , a2 out nocopy JTF_VARCHAR2_TABLE_2000
233 , a3 out nocopy JTF_VARCHAR2_TABLE_100
234 , a4 out nocopy JTF_VARCHAR2_TABLE_100
235 , a5 out nocopy JTF_DATE_TABLE
236 , a6 out nocopy JTF_DATE_TABLE
237 , a7 out nocopy JTF_NUMBER_TABLE
238 , a8 out nocopy JTF_VARCHAR2_TABLE_200
239 , a9 out nocopy JTF_NUMBER_TABLE
240 , a10 out nocopy JTF_NUMBER_TABLE
241 , a11 out nocopy JTF_VARCHAR2_TABLE_100
242 , a12 out nocopy JTF_VARCHAR2_TABLE_100
243 , a13 out nocopy JTF_VARCHAR2_TABLE_100
244 , a14 out nocopy JTF_VARCHAR2_TABLE_100
245 , a15 out nocopy JTF_VARCHAR2_TABLE_100
246 , a16 out nocopy JTF_VARCHAR2_TABLE_100
247 , a17 out nocopy JTF_VARCHAR2_TABLE_100
248 , a18 out nocopy JTF_DATE_TABLE
249 , a19 out nocopy JTF_DATE_TABLE
250 , a20 out nocopy JTF_DATE_TABLE
251 , a21 out nocopy JTF_DATE_TABLE
252 , a22 out nocopy JTF_VARCHAR2_TABLE_100
253 , a23 out nocopy JTF_VARCHAR2_TABLE_100
254 , a24 out nocopy JTF_VARCHAR2_TABLE_200
255 , a25 out nocopy JTF_NUMBER_TABLE
256 , a26 out nocopy JTF_NUMBER_TABLE
257 , a27 out nocopy JTF_NUMBER_TABLE
258 , a28 out nocopy JTF_VARCHAR2_TABLE_100
259 , a29 out nocopy JTF_VARCHAR2_TABLE_200
260 , a30 out nocopy JTF_VARCHAR2_TABLE_100
261 , a31 out nocopy JTF_VARCHAR2_TABLE_300
262 , a32 out nocopy JTF_NUMBER_TABLE
263 , a33 out nocopy JTF_VARCHAR2_TABLE_100
264 , a34 out nocopy JTF_VARCHAR2_TABLE_200
265 , a35 out nocopy JTF_VARCHAR2_TABLE_100
266 , a36 out nocopy JTF_VARCHAR2_TABLE_300
267 , a37 out nocopy JTF_VARCHAR2_TABLE_100
268 , a38 out nocopy JTF_VARCHAR2_TABLE_300
269 , a39 out nocopy JTF_NUMBER_TABLE
270 , a40 out nocopy JTF_VARCHAR2_TABLE_200
271 , a41 out nocopy JTF_VARCHAR2_TABLE_2000
272 , a42 out nocopy JTF_NUMBER_TABLE
273 , a43 out nocopy JTF_VARCHAR2_TABLE_200
274 , a44 out nocopy JTF_VARCHAR2_TABLE_200
275 , a45 out nocopy JTF_NUMBER_TABLE
276 , a46 out nocopy JTF_NUMBER_TABLE
277 , a47 out nocopy JTF_NUMBER_TABLE
278 , a48 out nocopy JTF_NUMBER_TABLE
279 , a49 out nocopy JTF_VARCHAR2_TABLE_500
280 , a50 out nocopy JTF_VARCHAR2_TABLE_300
281 , a51 out nocopy JTF_NUMBER_TABLE
282 , a52 out nocopy JTF_NUMBER_TABLE
283 , a53 out nocopy JTF_VARCHAR2_TABLE_500
284 , a54 out nocopy JTF_VARCHAR2_TABLE_300
285 , a55 out nocopy JTF_NUMBER_TABLE
286 , a56 out nocopy JTF_VARCHAR2_TABLE_300
287 , a57 out nocopy JTF_VARCHAR2_TABLE_300
288 , a58 out nocopy JTF_NUMBER_TABLE
289 , a59 out nocopy JTF_VARCHAR2_TABLE_100
290 , a60 out nocopy JTF_VARCHAR2_TABLE_200
291 , a61 out nocopy JTF_VARCHAR2_TABLE_100
292 , a62 out nocopy JTF_VARCHAR2_TABLE_300
293 , a63 out nocopy JTF_NUMBER_TABLE
294 , a64 out nocopy JTF_NUMBER_TABLE
295 , a65 out nocopy JTF_VARCHAR2_TABLE_500
296 , a66 out nocopy JTF_VARCHAR2_TABLE_300
297 , a67 out nocopy JTF_NUMBER_TABLE
298 , a68 out nocopy JTF_NUMBER_TABLE
299 , a69 out nocopy JTF_VARCHAR2_TABLE_500
300 , a70 out nocopy JTF_VARCHAR2_TABLE_300
301 , a71 out nocopy JTF_NUMBER_TABLE
302 , a72 out nocopy JTF_NUMBER_TABLE
303 , a73 out nocopy JTF_VARCHAR2_TABLE_500
304 , a74 out nocopy JTF_VARCHAR2_TABLE_300
305 , a75 out nocopy JTF_NUMBER_TABLE
306 , a76 out nocopy JTF_NUMBER_TABLE
307 , a77 out nocopy JTF_VARCHAR2_TABLE_500
308 , a78 out nocopy JTF_VARCHAR2_TABLE_300
309 , a79 out nocopy JTF_VARCHAR2_TABLE_100
310 , a80 out nocopy JTF_NUMBER_TABLE
311 , a81 out nocopy JTF_DATE_TABLE
312 , a82 out nocopy JTF_VARCHAR2_TABLE_100
313 , a83 out nocopy JTF_NUMBER_TABLE
314 , a84 out nocopy JTF_VARCHAR2_TABLE_100
315 , a85 out nocopy JTF_VARCHAR2_TABLE_500
316 , a86 out nocopy JTF_VARCHAR2_TABLE_500
317 , a87 out nocopy JTF_VARCHAR2_TABLE_500
318 , a88 out nocopy JTF_VARCHAR2_TABLE_500
319 , a89 out nocopy JTF_VARCHAR2_TABLE_500
320 , a90 out nocopy JTF_VARCHAR2_TABLE_500
321 , a91 out nocopy JTF_VARCHAR2_TABLE_500
322 , a92 out nocopy JTF_VARCHAR2_TABLE_500
323 , a93 out nocopy JTF_VARCHAR2_TABLE_500
324 , a94 out nocopy JTF_VARCHAR2_TABLE_500
325 , a95 out nocopy JTF_VARCHAR2_TABLE_500
326 , a96 out nocopy JTF_VARCHAR2_TABLE_500
327 , a97 out nocopy JTF_VARCHAR2_TABLE_500
328 , a98 out nocopy JTF_VARCHAR2_TABLE_500
329 , a99 out nocopy JTF_VARCHAR2_TABLE_500
330 , a100 out nocopy JTF_NUMBER_TABLE
331 , a101 out nocopy JTF_NUMBER_TABLE
332 , a102 out nocopy JTF_VARCHAR2_TABLE_100
333 , a103 out nocopy JTF_NUMBER_TABLE
334 , a104 out nocopy JTF_VARCHAR2_TABLE_100
335 ) as
336 ddindx binary_integer; indx binary_integer;
337 begin
338 if t is null or t.count = 0 then
339 a0 := JTF_NUMBER_TABLE();
340 a1 := JTF_VARCHAR2_TABLE_200();
341 a2 := JTF_VARCHAR2_TABLE_2000();
342 a3 := JTF_VARCHAR2_TABLE_100();
343 a4 := JTF_VARCHAR2_TABLE_100();
344 a5 := JTF_DATE_TABLE();
345 a6 := JTF_DATE_TABLE();
346 a7 := JTF_NUMBER_TABLE();
347 a8 := JTF_VARCHAR2_TABLE_200();
348 a9 := JTF_NUMBER_TABLE();
349 a10 := JTF_NUMBER_TABLE();
350 a11 := JTF_VARCHAR2_TABLE_100();
351 a12 := JTF_VARCHAR2_TABLE_100();
352 a13 := JTF_VARCHAR2_TABLE_100();
353 a14 := JTF_VARCHAR2_TABLE_100();
354 a15 := JTF_VARCHAR2_TABLE_100();
355 a16 := JTF_VARCHAR2_TABLE_100();
356 a17 := JTF_VARCHAR2_TABLE_100();
357 a18 := JTF_DATE_TABLE();
358 a19 := JTF_DATE_TABLE();
359 a20 := JTF_DATE_TABLE();
360 a21 := JTF_DATE_TABLE();
361 a22 := JTF_VARCHAR2_TABLE_100();
362 a23 := JTF_VARCHAR2_TABLE_100();
363 a24 := JTF_VARCHAR2_TABLE_200();
364 a25 := JTF_NUMBER_TABLE();
365 a26 := JTF_NUMBER_TABLE();
366 a27 := JTF_NUMBER_TABLE();
367 a28 := JTF_VARCHAR2_TABLE_100();
368 a29 := JTF_VARCHAR2_TABLE_200();
369 a30 := JTF_VARCHAR2_TABLE_100();
370 a31 := JTF_VARCHAR2_TABLE_300();
371 a32 := JTF_NUMBER_TABLE();
372 a33 := JTF_VARCHAR2_TABLE_100();
373 a34 := JTF_VARCHAR2_TABLE_200();
374 a35 := JTF_VARCHAR2_TABLE_100();
375 a36 := JTF_VARCHAR2_TABLE_300();
376 a37 := JTF_VARCHAR2_TABLE_100();
377 a38 := JTF_VARCHAR2_TABLE_300();
378 a39 := JTF_NUMBER_TABLE();
379 a40 := JTF_VARCHAR2_TABLE_200();
380 a41 := JTF_VARCHAR2_TABLE_2000();
381 a42 := JTF_NUMBER_TABLE();
382 a43 := JTF_VARCHAR2_TABLE_200();
383 a44 := JTF_VARCHAR2_TABLE_200();
384 a45 := JTF_NUMBER_TABLE();
385 a46 := JTF_NUMBER_TABLE();
386 a47 := JTF_NUMBER_TABLE();
387 a48 := JTF_NUMBER_TABLE();
388 a49 := JTF_VARCHAR2_TABLE_500();
389 a50 := JTF_VARCHAR2_TABLE_300();
390 a51 := JTF_NUMBER_TABLE();
391 a52 := JTF_NUMBER_TABLE();
392 a53 := JTF_VARCHAR2_TABLE_500();
393 a54 := JTF_VARCHAR2_TABLE_300();
394 a55 := JTF_NUMBER_TABLE();
395 a56 := JTF_VARCHAR2_TABLE_300();
396 a57 := JTF_VARCHAR2_TABLE_300();
397 a58 := JTF_NUMBER_TABLE();
398 a59 := JTF_VARCHAR2_TABLE_100();
399 a60 := JTF_VARCHAR2_TABLE_200();
400 a61 := JTF_VARCHAR2_TABLE_100();
401 a62 := JTF_VARCHAR2_TABLE_300();
402 a63 := JTF_NUMBER_TABLE();
403 a64 := JTF_NUMBER_TABLE();
404 a65 := JTF_VARCHAR2_TABLE_500();
405 a66 := JTF_VARCHAR2_TABLE_300();
406 a67 := JTF_NUMBER_TABLE();
407 a68 := JTF_NUMBER_TABLE();
408 a69 := JTF_VARCHAR2_TABLE_500();
409 a70 := JTF_VARCHAR2_TABLE_300();
410 a71 := JTF_NUMBER_TABLE();
411 a72 := JTF_NUMBER_TABLE();
412 a73 := JTF_VARCHAR2_TABLE_500();
413 a74 := JTF_VARCHAR2_TABLE_300();
414 a75 := JTF_NUMBER_TABLE();
415 a76 := JTF_NUMBER_TABLE();
416 a77 := JTF_VARCHAR2_TABLE_500();
417 a78 := JTF_VARCHAR2_TABLE_300();
418 a79 := JTF_VARCHAR2_TABLE_100();
419 a80 := JTF_NUMBER_TABLE();
420 a81 := JTF_DATE_TABLE();
421 a82 := JTF_VARCHAR2_TABLE_100();
422 a83 := JTF_NUMBER_TABLE();
423 a84 := JTF_VARCHAR2_TABLE_100();
424 a85 := JTF_VARCHAR2_TABLE_500();
425 a86 := JTF_VARCHAR2_TABLE_500();
426 a87 := JTF_VARCHAR2_TABLE_500();
427 a88 := JTF_VARCHAR2_TABLE_500();
428 a89 := JTF_VARCHAR2_TABLE_500();
429 a90 := JTF_VARCHAR2_TABLE_500();
430 a91 := JTF_VARCHAR2_TABLE_500();
431 a92 := JTF_VARCHAR2_TABLE_500();
432 a93 := JTF_VARCHAR2_TABLE_500();
433 a94 := JTF_VARCHAR2_TABLE_500();
434 a95 := JTF_VARCHAR2_TABLE_500();
435 a96 := JTF_VARCHAR2_TABLE_500();
436 a97 := JTF_VARCHAR2_TABLE_500();
437 a98 := JTF_VARCHAR2_TABLE_500();
438 a99 := JTF_VARCHAR2_TABLE_500();
439 a100 := JTF_NUMBER_TABLE();
440 a101 := JTF_NUMBER_TABLE();
441 a102 := JTF_VARCHAR2_TABLE_100();
442 a103 := JTF_NUMBER_TABLE();
443 a104 := JTF_VARCHAR2_TABLE_100();
444 else
445 a0 := JTF_NUMBER_TABLE();
446 a1 := JTF_VARCHAR2_TABLE_200();
447 a2 := JTF_VARCHAR2_TABLE_2000();
448 a3 := JTF_VARCHAR2_TABLE_100();
449 a4 := JTF_VARCHAR2_TABLE_100();
450 a5 := JTF_DATE_TABLE();
451 a6 := JTF_DATE_TABLE();
452 a7 := JTF_NUMBER_TABLE();
453 a8 := JTF_VARCHAR2_TABLE_200();
454 a9 := JTF_NUMBER_TABLE();
455 a10 := JTF_NUMBER_TABLE();
456 a11 := JTF_VARCHAR2_TABLE_100();
457 a12 := JTF_VARCHAR2_TABLE_100();
458 a13 := JTF_VARCHAR2_TABLE_100();
459 a14 := JTF_VARCHAR2_TABLE_100();
460 a15 := JTF_VARCHAR2_TABLE_100();
461 a16 := JTF_VARCHAR2_TABLE_100();
462 a17 := JTF_VARCHAR2_TABLE_100();
463 a18 := JTF_DATE_TABLE();
464 a19 := JTF_DATE_TABLE();
465 a20 := JTF_DATE_TABLE();
466 a21 := JTF_DATE_TABLE();
467 a22 := JTF_VARCHAR2_TABLE_100();
468 a23 := JTF_VARCHAR2_TABLE_100();
469 a24 := JTF_VARCHAR2_TABLE_200();
470 a25 := JTF_NUMBER_TABLE();
471 a26 := JTF_NUMBER_TABLE();
472 a27 := JTF_NUMBER_TABLE();
473 a28 := JTF_VARCHAR2_TABLE_100();
474 a29 := JTF_VARCHAR2_TABLE_200();
475 a30 := JTF_VARCHAR2_TABLE_100();
476 a31 := JTF_VARCHAR2_TABLE_300();
477 a32 := JTF_NUMBER_TABLE();
478 a33 := JTF_VARCHAR2_TABLE_100();
479 a34 := JTF_VARCHAR2_TABLE_200();
480 a35 := JTF_VARCHAR2_TABLE_100();
481 a36 := JTF_VARCHAR2_TABLE_300();
482 a37 := JTF_VARCHAR2_TABLE_100();
483 a38 := JTF_VARCHAR2_TABLE_300();
484 a39 := JTF_NUMBER_TABLE();
485 a40 := JTF_VARCHAR2_TABLE_200();
486 a41 := JTF_VARCHAR2_TABLE_2000();
487 a42 := JTF_NUMBER_TABLE();
488 a43 := JTF_VARCHAR2_TABLE_200();
489 a44 := JTF_VARCHAR2_TABLE_200();
490 a45 := JTF_NUMBER_TABLE();
491 a46 := JTF_NUMBER_TABLE();
492 a47 := JTF_NUMBER_TABLE();
493 a48 := JTF_NUMBER_TABLE();
494 a49 := JTF_VARCHAR2_TABLE_500();
495 a50 := JTF_VARCHAR2_TABLE_300();
496 a51 := JTF_NUMBER_TABLE();
497 a52 := JTF_NUMBER_TABLE();
498 a53 := JTF_VARCHAR2_TABLE_500();
499 a54 := JTF_VARCHAR2_TABLE_300();
500 a55 := JTF_NUMBER_TABLE();
501 a56 := JTF_VARCHAR2_TABLE_300();
502 a57 := JTF_VARCHAR2_TABLE_300();
503 a58 := JTF_NUMBER_TABLE();
504 a59 := JTF_VARCHAR2_TABLE_100();
505 a60 := JTF_VARCHAR2_TABLE_200();
506 a61 := JTF_VARCHAR2_TABLE_100();
507 a62 := JTF_VARCHAR2_TABLE_300();
508 a63 := JTF_NUMBER_TABLE();
509 a64 := JTF_NUMBER_TABLE();
510 a65 := JTF_VARCHAR2_TABLE_500();
511 a66 := JTF_VARCHAR2_TABLE_300();
512 a67 := JTF_NUMBER_TABLE();
513 a68 := JTF_NUMBER_TABLE();
514 a69 := JTF_VARCHAR2_TABLE_500();
515 a70 := JTF_VARCHAR2_TABLE_300();
516 a71 := JTF_NUMBER_TABLE();
517 a72 := JTF_NUMBER_TABLE();
518 a73 := JTF_VARCHAR2_TABLE_500();
519 a74 := JTF_VARCHAR2_TABLE_300();
520 a75 := JTF_NUMBER_TABLE();
521 a76 := JTF_NUMBER_TABLE();
522 a77 := JTF_VARCHAR2_TABLE_500();
523 a78 := JTF_VARCHAR2_TABLE_300();
524 a79 := JTF_VARCHAR2_TABLE_100();
525 a80 := JTF_NUMBER_TABLE();
526 a81 := JTF_DATE_TABLE();
527 a82 := JTF_VARCHAR2_TABLE_100();
528 a83 := JTF_NUMBER_TABLE();
529 a84 := JTF_VARCHAR2_TABLE_100();
530 a85 := JTF_VARCHAR2_TABLE_500();
531 a86 := JTF_VARCHAR2_TABLE_500();
532 a87 := JTF_VARCHAR2_TABLE_500();
533 a88 := JTF_VARCHAR2_TABLE_500();
534 a89 := JTF_VARCHAR2_TABLE_500();
535 a90 := JTF_VARCHAR2_TABLE_500();
536 a91 := JTF_VARCHAR2_TABLE_500();
537 a92 := JTF_VARCHAR2_TABLE_500();
538 a93 := JTF_VARCHAR2_TABLE_500();
539 a94 := JTF_VARCHAR2_TABLE_500();
540 a95 := JTF_VARCHAR2_TABLE_500();
541 a96 := JTF_VARCHAR2_TABLE_500();
542 a97 := JTF_VARCHAR2_TABLE_500();
543 a98 := JTF_VARCHAR2_TABLE_500();
544 a99 := JTF_VARCHAR2_TABLE_500();
545 a100 := JTF_NUMBER_TABLE();
546 a101 := JTF_NUMBER_TABLE();
547 a102 := JTF_VARCHAR2_TABLE_100();
548 a103 := JTF_NUMBER_TABLE();
549 a104 := JTF_VARCHAR2_TABLE_100();
550 if t.count > 0 then
551 a0.extend(t.count);
552 a1.extend(t.count);
553 a2.extend(t.count);
554 a3.extend(t.count);
555 a4.extend(t.count);
556 a5.extend(t.count);
557 a6.extend(t.count);
558 a7.extend(t.count);
559 a8.extend(t.count);
560 a9.extend(t.count);
561 a10.extend(t.count);
562 a11.extend(t.count);
563 a12.extend(t.count);
564 a13.extend(t.count);
565 a14.extend(t.count);
566 a15.extend(t.count);
567 a16.extend(t.count);
568 a17.extend(t.count);
569 a18.extend(t.count);
570 a19.extend(t.count);
571 a20.extend(t.count);
572 a21.extend(t.count);
573 a22.extend(t.count);
574 a23.extend(t.count);
575 a24.extend(t.count);
576 a25.extend(t.count);
577 a26.extend(t.count);
578 a27.extend(t.count);
579 a28.extend(t.count);
580 a29.extend(t.count);
581 a30.extend(t.count);
582 a31.extend(t.count);
583 a32.extend(t.count);
584 a33.extend(t.count);
585 a34.extend(t.count);
586 a35.extend(t.count);
587 a36.extend(t.count);
588 a37.extend(t.count);
589 a38.extend(t.count);
590 a39.extend(t.count);
591 a40.extend(t.count);
592 a41.extend(t.count);
593 a42.extend(t.count);
594 a43.extend(t.count);
595 a44.extend(t.count);
596 a45.extend(t.count);
597 a46.extend(t.count);
598 a47.extend(t.count);
599 a48.extend(t.count);
600 a49.extend(t.count);
601 a50.extend(t.count);
602 a51.extend(t.count);
603 a52.extend(t.count);
604 a53.extend(t.count);
605 a54.extend(t.count);
606 a55.extend(t.count);
607 a56.extend(t.count);
608 a57.extend(t.count);
609 a58.extend(t.count);
610 a59.extend(t.count);
611 a60.extend(t.count);
612 a61.extend(t.count);
613 a62.extend(t.count);
614 a63.extend(t.count);
615 a64.extend(t.count);
616 a65.extend(t.count);
617 a66.extend(t.count);
618 a67.extend(t.count);
619 a68.extend(t.count);
620 a69.extend(t.count);
621 a70.extend(t.count);
622 a71.extend(t.count);
623 a72.extend(t.count);
624 a73.extend(t.count);
625 a74.extend(t.count);
626 a75.extend(t.count);
627 a76.extend(t.count);
628 a77.extend(t.count);
629 a78.extend(t.count);
630 a79.extend(t.count);
631 a80.extend(t.count);
632 a81.extend(t.count);
633 a82.extend(t.count);
634 a83.extend(t.count);
635 a84.extend(t.count);
636 a85.extend(t.count);
637 a86.extend(t.count);
638 a87.extend(t.count);
639 a88.extend(t.count);
640 a89.extend(t.count);
641 a90.extend(t.count);
642 a91.extend(t.count);
643 a92.extend(t.count);
644 a93.extend(t.count);
645 a94.extend(t.count);
646 a95.extend(t.count);
647 a96.extend(t.count);
648 a97.extend(t.count);
649 a98.extend(t.count);
650 a99.extend(t.count);
651 a100.extend(t.count);
652 a101.extend(t.count);
653 a102.extend(t.count);
654 a103.extend(t.count);
655 a104.extend(t.count);
656 ddindx := t.first;
657 indx := 1;
658 while true loop
659 a0(indx) := t(ddindx).chr_id;
660 a1(indx) := t(ddindx).chr_contract_number;
661 a2(indx) := t(ddindx).chr_description;
662 a3(indx) := t(ddindx).vers_version;
663 a4(indx) := t(ddindx).chr_sts_code;
664 a5(indx) := t(ddindx).chr_start_date;
665 a6(indx) := t(ddindx).chr_end_date;
666 a7(indx) := t(ddindx).khr_term_duration;
667 a8(indx) := t(ddindx).chr_cust_po_number;
668 a9(indx) := t(ddindx).chr_inv_organization_id;
669 a10(indx) := t(ddindx).chr_authoring_org_id;
670 a11(indx) := t(ddindx).khr_generate_accrual_yn;
671 a12(indx) := t(ddindx).khr_syndicatable_yn;
672 a13(indx) := t(ddindx).khr_prefunding_eligible_yn;
673 a14(indx) := t(ddindx).khr_revolving_credit_yn;
674 a15(indx) := t(ddindx).khr_converted_account_yn;
675 a16(indx) := t(ddindx).khr_credit_act_yn;
676 a17(indx) := t(ddindx).chr_template_yn;
677 a18(indx) := t(ddindx).chr_date_signed;
678 a19(indx) := t(ddindx).khr_date_deal_transferred;
679 a20(indx) := t(ddindx).khr_accepted_date;
680 a21(indx) := t(ddindx).khr_expected_delivery_date;
681 a22(indx) := t(ddindx).khr_amd_code;
682 a23(indx) := t(ddindx).khr_deal_type;
683 a24(indx) := t(ddindx).mla_contract_number;
684 a25(indx) := t(ddindx).mla_gvr_chr_id_referred;
685 a26(indx) := t(ddindx).mla_gvr_id;
686 a27(indx) := t(ddindx).cust_id;
687 a28(indx) := t(ddindx).cust_object1_id1;
688 a29(indx) := t(ddindx).cust_object1_id2;
689 a30(indx) := t(ddindx).cust_jtot_object1_code;
690 a31(indx) := t(ddindx).cust_name;
691 a32(indx) := t(ddindx).lessor_id;
692 a33(indx) := t(ddindx).lessor_object1_id1;
693 a34(indx) := t(ddindx).lessor_object1_id2;
694 a35(indx) := t(ddindx).lessor_jtot_object1_code;
695 a36(indx) := t(ddindx).lessor_name;
696 a37(indx) := t(ddindx).chr_currency_code;
697 a38(indx) := t(ddindx).currency_name;
698 a39(indx) := t(ddindx).khr_pdt_id;
699 a40(indx) := t(ddindx).product_name;
700 a41(indx) := t(ddindx).product_description;
701 a42(indx) := t(ddindx).khr_khr_id;
702 a43(indx) := t(ddindx).program_contract_number;
703 a44(indx) := t(ddindx).cl_contract_number;
704 a45(indx) := t(ddindx).cl_gvr_chr_id_referred;
705 a46(indx) := t(ddindx).cl_gvr_id;
706 a47(indx) := t(ddindx).rg_larles_id;
707 a48(indx) := t(ddindx).r_larles_id;
708 a49(indx) := t(ddindx).r_larles_rule_information1;
709 a50(indx) := t(ddindx).col_larles_form_left_prompt;
710 a51(indx) := t(ddindx).rg_larebl_id;
711 a52(indx) := t(ddindx).r_larebl_id;
712 a53(indx) := t(ddindx).r_larebl_rule_information1;
713 a54(indx) := t(ddindx).col_larebl_form_left_prompt;
714 a55(indx) := t(ddindx).chr_cust_acct_id;
715 a56(indx) := t(ddindx).customer_account;
716 a57(indx) := t(ddindx).cust_site_description;
717 a58(indx) := t(ddindx).contact_id;
718 a59(indx) := t(ddindx).contact_object1_id1;
719 a60(indx) := t(ddindx).contact_object1_id2;
720 a61(indx) := t(ddindx).contact_jtot_object1_code;
721 a62(indx) := t(ddindx).contact_name;
722 a63(indx) := t(ddindx).rg_latown_id;
723 a64(indx) := t(ddindx).r_latown_id;
724 a65(indx) := t(ddindx).r_latown_rule_information1;
725 a66(indx) := t(ddindx).col_latown_form_left_prompt;
726 a67(indx) := t(ddindx).rg_lanntf_id;
727 a68(indx) := t(ddindx).r_lanntf_id;
728 a69(indx) := t(ddindx).r_lanntf_rule_information1;
729 a70(indx) := t(ddindx).col_lanntf_form_left_prompt;
730 a71(indx) := t(ddindx).rg_lacpln_id;
731 a72(indx) := t(ddindx).r_lacpln_id;
732 a73(indx) := t(ddindx).r_lacpln_rule_information1;
733 a74(indx) := t(ddindx).col_lacpln_form_left_prompt;
734 a75(indx) := t(ddindx).rg_lapact_id;
735 a76(indx) := t(ddindx).r_lapact_id;
736 a77(indx) := t(ddindx).r_lapact_rule_information1;
737 a78(indx) := t(ddindx).col_lapact_form_left_prompt;
738 a79(indx) := t(ddindx).khr_currency_conv_type;
739 a80(indx) := t(ddindx).khr_currency_conv_rate;
740 a81(indx) := t(ddindx).khr_currency_conv_date;
741 a82(indx) := t(ddindx).khr_assignable_yn;
742 a83(indx) := t(ddindx).legal_entity_id;
743 a84(indx) := t(ddindx).attribute_category;
744 a85(indx) := t(ddindx).attribute1;
745 a86(indx) := t(ddindx).attribute2;
746 a87(indx) := t(ddindx).attribute3;
747 a88(indx) := t(ddindx).attribute4;
748 a89(indx) := t(ddindx).attribute5;
749 a90(indx) := t(ddindx).attribute6;
750 a91(indx) := t(ddindx).attribute7;
751 a92(indx) := t(ddindx).attribute8;
752 a93(indx) := t(ddindx).attribute9;
753 a94(indx) := t(ddindx).attribute10;
754 a95(indx) := t(ddindx).attribute11;
755 a96(indx) := t(ddindx).attribute12;
756 a97(indx) := t(ddindx).attribute13;
757 a98(indx) := t(ddindx).attribute14;
758 a99(indx) := t(ddindx).attribute15;
759 a100(indx) := t(ddindx).labill_labacc_billto;
760 a101(indx) := t(ddindx).labill_labacc_rgp_id;
761 a102(indx) := t(ddindx).labill_labacc_rgd_code;
762 a103(indx) := t(ddindx).labill_labacc_rul_id;
763 a104(indx) := t(ddindx).labill_labacc_rul_info_cat;
764 indx := indx+1;
765 if t.last =ddindx
766 then exit;
767 end if;
768 ddindx := t.next(ddindx);
769 end loop;
770 end if;
771 end if;
772 end rosetta_table_copy_out_p7;
773
774 procedure rosetta_table_copy_in_p9(t out nocopy okl_deal_creat_pvt.party_tab_type, a0 JTF_NUMBER_TABLE
775 , a1 JTF_VARCHAR2_TABLE_100
776 , a2 JTF_VARCHAR2_TABLE_500
777 , a3 JTF_VARCHAR2_TABLE_500
778 , a4 JTF_VARCHAR2_TABLE_500
779 , a5 JTF_VARCHAR2_TABLE_500
780 , a6 JTF_VARCHAR2_TABLE_500
781 , a7 JTF_VARCHAR2_TABLE_500
782 , a8 JTF_VARCHAR2_TABLE_500
783 , a9 JTF_VARCHAR2_TABLE_500
784 , a10 JTF_VARCHAR2_TABLE_500
785 , a11 JTF_VARCHAR2_TABLE_500
786 , a12 JTF_VARCHAR2_TABLE_500
787 , a13 JTF_VARCHAR2_TABLE_500
788 , a14 JTF_VARCHAR2_TABLE_500
789 , a15 JTF_VARCHAR2_TABLE_500
790 , a16 JTF_VARCHAR2_TABLE_500
791 , a17 JTF_VARCHAR2_TABLE_100
792 , a18 JTF_VARCHAR2_TABLE_200
793 , a19 JTF_VARCHAR2_TABLE_100
794 , a20 JTF_VARCHAR2_TABLE_100
795 , a21 JTF_NUMBER_TABLE
796 , a22 JTF_NUMBER_TABLE
797 , a23 JTF_NUMBER_TABLE
798 , a24 JTF_VARCHAR2_TABLE_300
799 , a25 JTF_VARCHAR2_TABLE_200
800 ) as
801 ddindx binary_integer; indx binary_integer;
802 begin
803 if a0 is not null and a0.count > 0 then
804 if a0.count > 0 then
805 indx := a0.first;
806 ddindx := 1;
807 while true loop
808 t(ddindx).id := a0(indx);
809 t(ddindx).attribute_category := a1(indx);
810 t(ddindx).attribute1 := a2(indx);
811 t(ddindx).attribute2 := a3(indx);
812 t(ddindx).attribute3 := a4(indx);
813 t(ddindx).attribute4 := a5(indx);
814 t(ddindx).attribute5 := a6(indx);
815 t(ddindx).attribute6 := a7(indx);
816 t(ddindx).attribute7 := a8(indx);
817 t(ddindx).attribute8 := a9(indx);
818 t(ddindx).attribute9 := a10(indx);
819 t(ddindx).attribute10 := a11(indx);
820 t(ddindx).attribute11 := a12(indx);
821 t(ddindx).attribute12 := a13(indx);
822 t(ddindx).attribute13 := a14(indx);
823 t(ddindx).attribute14 := a15(indx);
824 t(ddindx).attribute15 := a16(indx);
825 t(ddindx).object1_id1 := a17(indx);
826 t(ddindx).object1_id2 := a18(indx);
827 t(ddindx).jtot_object1_code := a19(indx);
828 t(ddindx).rle_code := a20(indx);
829 t(ddindx).chr_id := a21(indx);
830 t(ddindx).dnz_chr_id := a22(indx);
831 t(ddindx).cle_id := a23(indx);
832 t(ddindx).cognomen := a24(indx);
833 t(ddindx).alias := a25(indx);
834 ddindx := ddindx+1;
835 if a0.last =indx
836 then exit;
837 end if;
838 indx := a0.next(indx);
839 end loop;
840 end if;
841 end if;
842 end rosetta_table_copy_in_p9;
843 procedure rosetta_table_copy_out_p9(t okl_deal_creat_pvt.party_tab_type, a0 out nocopy JTF_NUMBER_TABLE
844 , a1 out nocopy JTF_VARCHAR2_TABLE_100
845 , a2 out nocopy JTF_VARCHAR2_TABLE_500
846 , a3 out nocopy JTF_VARCHAR2_TABLE_500
847 , a4 out nocopy JTF_VARCHAR2_TABLE_500
848 , a5 out nocopy JTF_VARCHAR2_TABLE_500
849 , a6 out nocopy JTF_VARCHAR2_TABLE_500
850 , a7 out nocopy JTF_VARCHAR2_TABLE_500
851 , a8 out nocopy JTF_VARCHAR2_TABLE_500
852 , a9 out nocopy JTF_VARCHAR2_TABLE_500
853 , a10 out nocopy JTF_VARCHAR2_TABLE_500
854 , a11 out nocopy JTF_VARCHAR2_TABLE_500
855 , a12 out nocopy JTF_VARCHAR2_TABLE_500
856 , a13 out nocopy JTF_VARCHAR2_TABLE_500
857 , a14 out nocopy JTF_VARCHAR2_TABLE_500
858 , a15 out nocopy JTF_VARCHAR2_TABLE_500
859 , a16 out nocopy JTF_VARCHAR2_TABLE_500
860 , a17 out nocopy JTF_VARCHAR2_TABLE_100
861 , a18 out nocopy JTF_VARCHAR2_TABLE_200
862 , a19 out nocopy JTF_VARCHAR2_TABLE_100
863 , a20 out nocopy JTF_VARCHAR2_TABLE_100
864 , a21 out nocopy JTF_NUMBER_TABLE
865 , a22 out nocopy JTF_NUMBER_TABLE
866 , a23 out nocopy JTF_NUMBER_TABLE
867 , a24 out nocopy JTF_VARCHAR2_TABLE_300
868 , a25 out nocopy JTF_VARCHAR2_TABLE_200
869 ) as
870 ddindx binary_integer; indx binary_integer;
871 begin
872 if t is null or t.count = 0 then
873 a0 := JTF_NUMBER_TABLE();
874 a1 := JTF_VARCHAR2_TABLE_100();
875 a2 := JTF_VARCHAR2_TABLE_500();
876 a3 := JTF_VARCHAR2_TABLE_500();
877 a4 := JTF_VARCHAR2_TABLE_500();
878 a5 := JTF_VARCHAR2_TABLE_500();
879 a6 := JTF_VARCHAR2_TABLE_500();
880 a7 := JTF_VARCHAR2_TABLE_500();
881 a8 := JTF_VARCHAR2_TABLE_500();
882 a9 := JTF_VARCHAR2_TABLE_500();
883 a10 := JTF_VARCHAR2_TABLE_500();
884 a11 := JTF_VARCHAR2_TABLE_500();
885 a12 := JTF_VARCHAR2_TABLE_500();
886 a13 := JTF_VARCHAR2_TABLE_500();
887 a14 := JTF_VARCHAR2_TABLE_500();
888 a15 := JTF_VARCHAR2_TABLE_500();
889 a16 := JTF_VARCHAR2_TABLE_500();
890 a17 := JTF_VARCHAR2_TABLE_100();
891 a18 := JTF_VARCHAR2_TABLE_200();
892 a19 := JTF_VARCHAR2_TABLE_100();
893 a20 := JTF_VARCHAR2_TABLE_100();
894 a21 := JTF_NUMBER_TABLE();
895 a22 := JTF_NUMBER_TABLE();
896 a23 := JTF_NUMBER_TABLE();
897 a24 := JTF_VARCHAR2_TABLE_300();
898 a25 := JTF_VARCHAR2_TABLE_200();
899 else
900 a0 := JTF_NUMBER_TABLE();
901 a1 := JTF_VARCHAR2_TABLE_100();
902 a2 := JTF_VARCHAR2_TABLE_500();
903 a3 := JTF_VARCHAR2_TABLE_500();
904 a4 := JTF_VARCHAR2_TABLE_500();
905 a5 := JTF_VARCHAR2_TABLE_500();
906 a6 := JTF_VARCHAR2_TABLE_500();
907 a7 := JTF_VARCHAR2_TABLE_500();
908 a8 := JTF_VARCHAR2_TABLE_500();
909 a9 := JTF_VARCHAR2_TABLE_500();
910 a10 := JTF_VARCHAR2_TABLE_500();
911 a11 := JTF_VARCHAR2_TABLE_500();
912 a12 := JTF_VARCHAR2_TABLE_500();
913 a13 := JTF_VARCHAR2_TABLE_500();
914 a14 := JTF_VARCHAR2_TABLE_500();
915 a15 := JTF_VARCHAR2_TABLE_500();
916 a16 := JTF_VARCHAR2_TABLE_500();
917 a17 := JTF_VARCHAR2_TABLE_100();
918 a18 := JTF_VARCHAR2_TABLE_200();
919 a19 := JTF_VARCHAR2_TABLE_100();
920 a20 := JTF_VARCHAR2_TABLE_100();
921 a21 := JTF_NUMBER_TABLE();
922 a22 := JTF_NUMBER_TABLE();
923 a23 := JTF_NUMBER_TABLE();
924 a24 := JTF_VARCHAR2_TABLE_300();
925 a25 := JTF_VARCHAR2_TABLE_200();
926 if t.count > 0 then
927 a0.extend(t.count);
928 a1.extend(t.count);
929 a2.extend(t.count);
930 a3.extend(t.count);
931 a4.extend(t.count);
932 a5.extend(t.count);
933 a6.extend(t.count);
934 a7.extend(t.count);
935 a8.extend(t.count);
936 a9.extend(t.count);
937 a10.extend(t.count);
938 a11.extend(t.count);
939 a12.extend(t.count);
940 a13.extend(t.count);
941 a14.extend(t.count);
942 a15.extend(t.count);
943 a16.extend(t.count);
944 a17.extend(t.count);
945 a18.extend(t.count);
946 a19.extend(t.count);
947 a20.extend(t.count);
948 a21.extend(t.count);
949 a22.extend(t.count);
950 a23.extend(t.count);
951 a24.extend(t.count);
952 a25.extend(t.count);
953 ddindx := t.first;
954 indx := 1;
955 while true loop
956 a0(indx) := t(ddindx).id;
957 a1(indx) := t(ddindx).attribute_category;
958 a2(indx) := t(ddindx).attribute1;
959 a3(indx) := t(ddindx).attribute2;
960 a4(indx) := t(ddindx).attribute3;
961 a5(indx) := t(ddindx).attribute4;
962 a6(indx) := t(ddindx).attribute5;
963 a7(indx) := t(ddindx).attribute6;
964 a8(indx) := t(ddindx).attribute7;
965 a9(indx) := t(ddindx).attribute8;
966 a10(indx) := t(ddindx).attribute9;
967 a11(indx) := t(ddindx).attribute10;
968 a12(indx) := t(ddindx).attribute11;
969 a13(indx) := t(ddindx).attribute12;
970 a14(indx) := t(ddindx).attribute13;
971 a15(indx) := t(ddindx).attribute14;
972 a16(indx) := t(ddindx).attribute15;
973 a17(indx) := t(ddindx).object1_id1;
974 a18(indx) := t(ddindx).object1_id2;
975 a19(indx) := t(ddindx).jtot_object1_code;
976 a20(indx) := t(ddindx).rle_code;
977 a21(indx) := t(ddindx).chr_id;
978 a22(indx) := t(ddindx).dnz_chr_id;
979 a23(indx) := t(ddindx).cle_id;
980 a24(indx) := t(ddindx).cognomen;
981 a25(indx) := t(ddindx).alias;
982 indx := indx+1;
983 if t.last =ddindx
984 then exit;
985 end if;
986 ddindx := t.next(ddindx);
987 end loop;
988 end if;
989 end if;
990 end rosetta_table_copy_out_p9;
991
992 procedure rosetta_table_copy_in_p11(t out nocopy okl_deal_creat_pvt.deal_values_tbl, a0 JTF_NUMBER_TABLE
993 , a1 JTF_VARCHAR2_TABLE_200
994 , a2 JTF_VARCHAR2_TABLE_2000
995 , a3 JTF_VARCHAR2_TABLE_100
996 , a4 JTF_VARCHAR2_TABLE_100
997 , a5 JTF_DATE_TABLE
998 , a6 JTF_DATE_TABLE
999 , a7 JTF_NUMBER_TABLE
1000 , a8 JTF_VARCHAR2_TABLE_200
1001 , a9 JTF_NUMBER_TABLE
1002 , a10 JTF_NUMBER_TABLE
1003 , a11 JTF_VARCHAR2_TABLE_100
1004 , a12 JTF_VARCHAR2_TABLE_100
1005 , a13 JTF_VARCHAR2_TABLE_100
1006 , a14 JTF_VARCHAR2_TABLE_100
1007 , a15 JTF_VARCHAR2_TABLE_100
1008 , a16 JTF_VARCHAR2_TABLE_100
1009 , a17 JTF_VARCHAR2_TABLE_100
1010 , a18 JTF_DATE_TABLE
1011 , a19 JTF_DATE_TABLE
1012 , a20 JTF_DATE_TABLE
1013 , a21 JTF_DATE_TABLE
1014 , a22 JTF_VARCHAR2_TABLE_100
1015 , a23 JTF_VARCHAR2_TABLE_100
1016 , a24 JTF_VARCHAR2_TABLE_200
1017 , a25 JTF_NUMBER_TABLE
1018 , a26 JTF_NUMBER_TABLE
1019 , a27 JTF_NUMBER_TABLE
1020 , a28 JTF_VARCHAR2_TABLE_100
1021 , a29 JTF_VARCHAR2_TABLE_200
1022 , a30 JTF_VARCHAR2_TABLE_100
1023 , a31 JTF_VARCHAR2_TABLE_300
1024 , a32 JTF_NUMBER_TABLE
1025 , a33 JTF_VARCHAR2_TABLE_100
1026 , a34 JTF_VARCHAR2_TABLE_200
1027 , a35 JTF_VARCHAR2_TABLE_100
1028 , a36 JTF_VARCHAR2_TABLE_300
1029 , a37 JTF_VARCHAR2_TABLE_100
1030 , a38 JTF_VARCHAR2_TABLE_300
1031 , a39 JTF_NUMBER_TABLE
1032 , a40 JTF_VARCHAR2_TABLE_200
1033 , a41 JTF_VARCHAR2_TABLE_2000
1034 , a42 JTF_NUMBER_TABLE
1035 , a43 JTF_VARCHAR2_TABLE_200
1036 , a44 JTF_VARCHAR2_TABLE_200
1037 , a45 JTF_NUMBER_TABLE
1038 , a46 JTF_NUMBER_TABLE
1039 , a47 JTF_NUMBER_TABLE
1040 , a48 JTF_NUMBER_TABLE
1041 , a49 JTF_VARCHAR2_TABLE_500
1042 , a50 JTF_VARCHAR2_TABLE_300
1043 , a51 JTF_NUMBER_TABLE
1044 , a52 JTF_NUMBER_TABLE
1045 , a53 JTF_VARCHAR2_TABLE_500
1046 , a54 JTF_VARCHAR2_TABLE_300
1047 , a55 JTF_NUMBER_TABLE
1048 , a56 JTF_VARCHAR2_TABLE_300
1049 , a57 JTF_VARCHAR2_TABLE_300
1050 , a58 JTF_NUMBER_TABLE
1051 , a59 JTF_VARCHAR2_TABLE_100
1052 , a60 JTF_VARCHAR2_TABLE_200
1053 , a61 JTF_VARCHAR2_TABLE_100
1054 , a62 JTF_VARCHAR2_TABLE_300
1055 , a63 JTF_NUMBER_TABLE
1056 , a64 JTF_NUMBER_TABLE
1057 , a65 JTF_VARCHAR2_TABLE_500
1058 , a66 JTF_VARCHAR2_TABLE_300
1059 , a67 JTF_NUMBER_TABLE
1060 , a68 JTF_NUMBER_TABLE
1061 , a69 JTF_VARCHAR2_TABLE_500
1062 , a70 JTF_VARCHAR2_TABLE_300
1063 , a71 JTF_NUMBER_TABLE
1064 , a72 JTF_NUMBER_TABLE
1065 , a73 JTF_VARCHAR2_TABLE_500
1066 , a74 JTF_VARCHAR2_TABLE_300
1067 , a75 JTF_NUMBER_TABLE
1068 , a76 JTF_NUMBER_TABLE
1069 , a77 JTF_VARCHAR2_TABLE_500
1070 , a78 JTF_VARCHAR2_TABLE_300
1071 , a79 JTF_VARCHAR2_TABLE_100
1072 , a80 JTF_NUMBER_TABLE
1073 , a81 JTF_DATE_TABLE
1074 , a82 JTF_VARCHAR2_TABLE_100
1075 , a83 JTF_NUMBER_TABLE
1076 , a84 JTF_VARCHAR2_TABLE_100
1077 , a85 JTF_VARCHAR2_TABLE_500
1078 , a86 JTF_VARCHAR2_TABLE_500
1079 , a87 JTF_VARCHAR2_TABLE_500
1080 , a88 JTF_VARCHAR2_TABLE_500
1081 , a89 JTF_VARCHAR2_TABLE_500
1082 , a90 JTF_VARCHAR2_TABLE_500
1083 , a91 JTF_VARCHAR2_TABLE_500
1084 , a92 JTF_VARCHAR2_TABLE_500
1085 , a93 JTF_VARCHAR2_TABLE_500
1086 , a94 JTF_VARCHAR2_TABLE_500
1087 , a95 JTF_VARCHAR2_TABLE_500
1088 , a96 JTF_VARCHAR2_TABLE_500
1089 , a97 JTF_VARCHAR2_TABLE_500
1090 , a98 JTF_VARCHAR2_TABLE_500
1091 , a99 JTF_VARCHAR2_TABLE_500
1092 , a100 JTF_NUMBER_TABLE
1093 , a101 JTF_NUMBER_TABLE
1094 , a102 JTF_VARCHAR2_TABLE_100
1095 , a103 JTF_NUMBER_TABLE
1096 , a104 JTF_VARCHAR2_TABLE_100
1097 ) as
1098 ddindx binary_integer; indx binary_integer;
1099 begin
1100 if a0 is not null and a0.count > 0 then
1101 if a0.count > 0 then
1102 indx := a0.first;
1103 ddindx := 1;
1104 while true loop
1105 t(ddindx).chr_id := a0(indx);
1106 t(ddindx).chr_contract_number := a1(indx);
1107 t(ddindx).chr_description := a2(indx);
1108 t(ddindx).vers_version := a3(indx);
1109 t(ddindx).chr_sts_code := a4(indx);
1110 t(ddindx).chr_start_date := a5(indx);
1111 t(ddindx).chr_end_date := a6(indx);
1112 t(ddindx).khr_term_duration := a7(indx);
1113 t(ddindx).chr_cust_po_number := a8(indx);
1114 t(ddindx).chr_inv_organization_id := a9(indx);
1115 t(ddindx).chr_authoring_org_id := a10(indx);
1116 t(ddindx).khr_generate_accrual_yn := a11(indx);
1117 t(ddindx).khr_syndicatable_yn := a12(indx);
1118 t(ddindx).khr_prefunding_eligible_yn := a13(indx);
1119 t(ddindx).khr_revolving_credit_yn := a14(indx);
1120 t(ddindx).khr_converted_account_yn := a15(indx);
1121 t(ddindx).khr_credit_act_yn := a16(indx);
1122 t(ddindx).chr_template_yn := a17(indx);
1123 t(ddindx).chr_date_signed := a18(indx);
1124 t(ddindx).khr_date_deal_transferred := a19(indx);
1125 t(ddindx).khr_accepted_date := a20(indx);
1126 t(ddindx).khr_expected_delivery_date := a21(indx);
1127 t(ddindx).khr_amd_code := a22(indx);
1128 t(ddindx).khr_deal_type := a23(indx);
1129 t(ddindx).mla_contract_number := a24(indx);
1130 t(ddindx).mla_gvr_chr_id_referred := a25(indx);
1131 t(ddindx).mla_gvr_id := a26(indx);
1132 t(ddindx).cust_id := a27(indx);
1133 t(ddindx).cust_object1_id1 := a28(indx);
1134 t(ddindx).cust_object1_id2 := a29(indx);
1135 t(ddindx).cust_jtot_object1_code := a30(indx);
1136 t(ddindx).cust_name := a31(indx);
1137 t(ddindx).lessor_id := a32(indx);
1138 t(ddindx).lessor_object1_id1 := a33(indx);
1139 t(ddindx).lessor_object1_id2 := a34(indx);
1140 t(ddindx).lessor_jtot_object1_code := a35(indx);
1141 t(ddindx).lessor_name := a36(indx);
1142 t(ddindx).chr_currency_code := a37(indx);
1143 t(ddindx).currency_name := a38(indx);
1144 t(ddindx).khr_pdt_id := a39(indx);
1145 t(ddindx).product_name := a40(indx);
1146 t(ddindx).product_description := a41(indx);
1147 t(ddindx).khr_khr_id := a42(indx);
1148 t(ddindx).program_contract_number := a43(indx);
1149 t(ddindx).cl_contract_number := a44(indx);
1150 t(ddindx).cl_gvr_chr_id_referred := a45(indx);
1151 t(ddindx).cl_gvr_id := a46(indx);
1152 t(ddindx).rg_larles_id := a47(indx);
1153 t(ddindx).r_larles_id := a48(indx);
1154 t(ddindx).r_larles_rule_information1 := a49(indx);
1155 t(ddindx).col_larles_form_left_prompt := a50(indx);
1156 t(ddindx).rg_larebl_id := a51(indx);
1157 t(ddindx).r_larebl_id := a52(indx);
1158 t(ddindx).r_larebl_rule_information1 := a53(indx);
1159 t(ddindx).col_larebl_form_left_prompt := a54(indx);
1160 t(ddindx).chr_cust_acct_id := a55(indx);
1161 t(ddindx).customer_account := a56(indx);
1162 t(ddindx).cust_site_description := a57(indx);
1163 t(ddindx).contact_id := a58(indx);
1164 t(ddindx).contact_object1_id1 := a59(indx);
1165 t(ddindx).contact_object1_id2 := a60(indx);
1166 t(ddindx).contact_jtot_object1_code := a61(indx);
1167 t(ddindx).contact_name := a62(indx);
1168 t(ddindx).rg_latown_id := a63(indx);
1169 t(ddindx).r_latown_id := a64(indx);
1170 t(ddindx).r_latown_rule_information1 := a65(indx);
1171 t(ddindx).col_latown_form_left_prompt := a66(indx);
1172 t(ddindx).rg_lanntf_id := a67(indx);
1173 t(ddindx).r_lanntf_id := a68(indx);
1174 t(ddindx).r_lanntf_rule_information1 := a69(indx);
1175 t(ddindx).col_lanntf_form_left_prompt := a70(indx);
1176 t(ddindx).rg_lacpln_id := a71(indx);
1177 t(ddindx).r_lacpln_id := a72(indx);
1178 t(ddindx).r_lacpln_rule_information1 := a73(indx);
1179 t(ddindx).col_lacpln_form_left_prompt := a74(indx);
1180 t(ddindx).rg_lapact_id := a75(indx);
1181 t(ddindx).r_lapact_id := a76(indx);
1182 t(ddindx).r_lapact_rule_information1 := a77(indx);
1183 t(ddindx).col_lapact_form_left_prompt := a78(indx);
1184 t(ddindx).khr_currency_conv_type := a79(indx);
1185 t(ddindx).khr_currency_conv_rate := a80(indx);
1186 t(ddindx).khr_currency_conv_date := a81(indx);
1187 t(ddindx).khr_assignable_yn := a82(indx);
1188 t(ddindx).legal_entity_id := a83(indx);
1189 t(ddindx).attribute_category := a84(indx);
1190 t(ddindx).attribute1 := a85(indx);
1191 t(ddindx).attribute2 := a86(indx);
1192 t(ddindx).attribute3 := a87(indx);
1193 t(ddindx).attribute4 := a88(indx);
1194 t(ddindx).attribute5 := a89(indx);
1195 t(ddindx).attribute6 := a90(indx);
1196 t(ddindx).attribute7 := a91(indx);
1197 t(ddindx).attribute8 := a92(indx);
1198 t(ddindx).attribute9 := a93(indx);
1199 t(ddindx).attribute10 := a94(indx);
1200 t(ddindx).attribute11 := a95(indx);
1201 t(ddindx).attribute12 := a96(indx);
1202 t(ddindx).attribute13 := a97(indx);
1203 t(ddindx).attribute14 := a98(indx);
1204 t(ddindx).attribute15 := a99(indx);
1205 t(ddindx).labill_labacc_billto := a100(indx);
1206 t(ddindx).labill_labacc_rgp_id := a101(indx);
1207 t(ddindx).labill_labacc_rgd_code := a102(indx);
1208 t(ddindx).labill_labacc_rul_id := a103(indx);
1209 t(ddindx).labill_labacc_rul_info_cat := a104(indx);
1210 ddindx := ddindx+1;
1211 if a0.last =indx
1212 then exit;
1213 end if;
1214 indx := a0.next(indx);
1215 end loop;
1216 end if;
1217 end if;
1218 end rosetta_table_copy_in_p11;
1219 procedure rosetta_table_copy_out_p11(t okl_deal_creat_pvt.deal_values_tbl, a0 out nocopy JTF_NUMBER_TABLE
1220 , a1 out nocopy JTF_VARCHAR2_TABLE_200
1221 , a2 out nocopy JTF_VARCHAR2_TABLE_2000
1222 , a3 out nocopy JTF_VARCHAR2_TABLE_100
1223 , a4 out nocopy JTF_VARCHAR2_TABLE_100
1224 , a5 out nocopy JTF_DATE_TABLE
1225 , a6 out nocopy JTF_DATE_TABLE
1226 , a7 out nocopy JTF_NUMBER_TABLE
1227 , a8 out nocopy JTF_VARCHAR2_TABLE_200
1228 , a9 out nocopy JTF_NUMBER_TABLE
1229 , a10 out nocopy JTF_NUMBER_TABLE
1230 , a11 out nocopy JTF_VARCHAR2_TABLE_100
1231 , a12 out nocopy JTF_VARCHAR2_TABLE_100
1232 , a13 out nocopy JTF_VARCHAR2_TABLE_100
1233 , a14 out nocopy JTF_VARCHAR2_TABLE_100
1234 , a15 out nocopy JTF_VARCHAR2_TABLE_100
1235 , a16 out nocopy JTF_VARCHAR2_TABLE_100
1236 , a17 out nocopy JTF_VARCHAR2_TABLE_100
1237 , a18 out nocopy JTF_DATE_TABLE
1238 , a19 out nocopy JTF_DATE_TABLE
1239 , a20 out nocopy JTF_DATE_TABLE
1240 , a21 out nocopy JTF_DATE_TABLE
1241 , a22 out nocopy JTF_VARCHAR2_TABLE_100
1242 , a23 out nocopy JTF_VARCHAR2_TABLE_100
1243 , a24 out nocopy JTF_VARCHAR2_TABLE_200
1244 , a25 out nocopy JTF_NUMBER_TABLE
1245 , a26 out nocopy JTF_NUMBER_TABLE
1246 , a27 out nocopy JTF_NUMBER_TABLE
1247 , a28 out nocopy JTF_VARCHAR2_TABLE_100
1248 , a29 out nocopy JTF_VARCHAR2_TABLE_200
1249 , a30 out nocopy JTF_VARCHAR2_TABLE_100
1250 , a31 out nocopy JTF_VARCHAR2_TABLE_300
1251 , a32 out nocopy JTF_NUMBER_TABLE
1252 , a33 out nocopy JTF_VARCHAR2_TABLE_100
1253 , a34 out nocopy JTF_VARCHAR2_TABLE_200
1254 , a35 out nocopy JTF_VARCHAR2_TABLE_100
1255 , a36 out nocopy JTF_VARCHAR2_TABLE_300
1256 , a37 out nocopy JTF_VARCHAR2_TABLE_100
1257 , a38 out nocopy JTF_VARCHAR2_TABLE_300
1258 , a39 out nocopy JTF_NUMBER_TABLE
1259 , a40 out nocopy JTF_VARCHAR2_TABLE_200
1260 , a41 out nocopy JTF_VARCHAR2_TABLE_2000
1261 , a42 out nocopy JTF_NUMBER_TABLE
1262 , a43 out nocopy JTF_VARCHAR2_TABLE_200
1263 , a44 out nocopy JTF_VARCHAR2_TABLE_200
1264 , a45 out nocopy JTF_NUMBER_TABLE
1265 , a46 out nocopy JTF_NUMBER_TABLE
1266 , a47 out nocopy JTF_NUMBER_TABLE
1267 , a48 out nocopy JTF_NUMBER_TABLE
1268 , a49 out nocopy JTF_VARCHAR2_TABLE_500
1269 , a50 out nocopy JTF_VARCHAR2_TABLE_300
1270 , a51 out nocopy JTF_NUMBER_TABLE
1271 , a52 out nocopy JTF_NUMBER_TABLE
1272 , a53 out nocopy JTF_VARCHAR2_TABLE_500
1273 , a54 out nocopy JTF_VARCHAR2_TABLE_300
1274 , a55 out nocopy JTF_NUMBER_TABLE
1275 , a56 out nocopy JTF_VARCHAR2_TABLE_300
1276 , a57 out nocopy JTF_VARCHAR2_TABLE_300
1277 , a58 out nocopy JTF_NUMBER_TABLE
1278 , a59 out nocopy JTF_VARCHAR2_TABLE_100
1279 , a60 out nocopy JTF_VARCHAR2_TABLE_200
1280 , a61 out nocopy JTF_VARCHAR2_TABLE_100
1281 , a62 out nocopy JTF_VARCHAR2_TABLE_300
1282 , a63 out nocopy JTF_NUMBER_TABLE
1283 , a64 out nocopy JTF_NUMBER_TABLE
1284 , a65 out nocopy JTF_VARCHAR2_TABLE_500
1285 , a66 out nocopy JTF_VARCHAR2_TABLE_300
1286 , a67 out nocopy JTF_NUMBER_TABLE
1287 , a68 out nocopy JTF_NUMBER_TABLE
1288 , a69 out nocopy JTF_VARCHAR2_TABLE_500
1289 , a70 out nocopy JTF_VARCHAR2_TABLE_300
1290 , a71 out nocopy JTF_NUMBER_TABLE
1291 , a72 out nocopy JTF_NUMBER_TABLE
1292 , a73 out nocopy JTF_VARCHAR2_TABLE_500
1293 , a74 out nocopy JTF_VARCHAR2_TABLE_300
1294 , a75 out nocopy JTF_NUMBER_TABLE
1295 , a76 out nocopy JTF_NUMBER_TABLE
1296 , a77 out nocopy JTF_VARCHAR2_TABLE_500
1297 , a78 out nocopy JTF_VARCHAR2_TABLE_300
1298 , a79 out nocopy JTF_VARCHAR2_TABLE_100
1299 , a80 out nocopy JTF_NUMBER_TABLE
1300 , a81 out nocopy JTF_DATE_TABLE
1301 , a82 out nocopy JTF_VARCHAR2_TABLE_100
1302 , a83 out nocopy JTF_NUMBER_TABLE
1303 , a84 out nocopy JTF_VARCHAR2_TABLE_100
1304 , a85 out nocopy JTF_VARCHAR2_TABLE_500
1305 , a86 out nocopy JTF_VARCHAR2_TABLE_500
1306 , a87 out nocopy JTF_VARCHAR2_TABLE_500
1307 , a88 out nocopy JTF_VARCHAR2_TABLE_500
1308 , a89 out nocopy JTF_VARCHAR2_TABLE_500
1309 , a90 out nocopy JTF_VARCHAR2_TABLE_500
1310 , a91 out nocopy JTF_VARCHAR2_TABLE_500
1311 , a92 out nocopy JTF_VARCHAR2_TABLE_500
1312 , a93 out nocopy JTF_VARCHAR2_TABLE_500
1313 , a94 out nocopy JTF_VARCHAR2_TABLE_500
1314 , a95 out nocopy JTF_VARCHAR2_TABLE_500
1315 , a96 out nocopy JTF_VARCHAR2_TABLE_500
1316 , a97 out nocopy JTF_VARCHAR2_TABLE_500
1317 , a98 out nocopy JTF_VARCHAR2_TABLE_500
1318 , a99 out nocopy JTF_VARCHAR2_TABLE_500
1319 , a100 out nocopy JTF_NUMBER_TABLE
1320 , a101 out nocopy JTF_NUMBER_TABLE
1321 , a102 out nocopy JTF_VARCHAR2_TABLE_100
1322 , a103 out nocopy JTF_NUMBER_TABLE
1323 , a104 out nocopy JTF_VARCHAR2_TABLE_100
1324 ) as
1325 ddindx binary_integer; indx binary_integer;
1326 begin
1327 if t is null or t.count = 0 then
1328 a0 := JTF_NUMBER_TABLE();
1329 a1 := JTF_VARCHAR2_TABLE_200();
1330 a2 := JTF_VARCHAR2_TABLE_2000();
1331 a3 := JTF_VARCHAR2_TABLE_100();
1332 a4 := JTF_VARCHAR2_TABLE_100();
1333 a5 := JTF_DATE_TABLE();
1334 a6 := JTF_DATE_TABLE();
1335 a7 := JTF_NUMBER_TABLE();
1336 a8 := JTF_VARCHAR2_TABLE_200();
1337 a9 := JTF_NUMBER_TABLE();
1338 a10 := JTF_NUMBER_TABLE();
1339 a11 := JTF_VARCHAR2_TABLE_100();
1340 a12 := JTF_VARCHAR2_TABLE_100();
1341 a13 := JTF_VARCHAR2_TABLE_100();
1342 a14 := JTF_VARCHAR2_TABLE_100();
1343 a15 := JTF_VARCHAR2_TABLE_100();
1344 a16 := JTF_VARCHAR2_TABLE_100();
1345 a17 := JTF_VARCHAR2_TABLE_100();
1346 a18 := JTF_DATE_TABLE();
1347 a19 := JTF_DATE_TABLE();
1348 a20 := JTF_DATE_TABLE();
1349 a21 := JTF_DATE_TABLE();
1350 a22 := JTF_VARCHAR2_TABLE_100();
1351 a23 := JTF_VARCHAR2_TABLE_100();
1352 a24 := JTF_VARCHAR2_TABLE_200();
1353 a25 := JTF_NUMBER_TABLE();
1354 a26 := JTF_NUMBER_TABLE();
1355 a27 := JTF_NUMBER_TABLE();
1356 a28 := JTF_VARCHAR2_TABLE_100();
1357 a29 := JTF_VARCHAR2_TABLE_200();
1358 a30 := JTF_VARCHAR2_TABLE_100();
1359 a31 := JTF_VARCHAR2_TABLE_300();
1360 a32 := JTF_NUMBER_TABLE();
1361 a33 := JTF_VARCHAR2_TABLE_100();
1362 a34 := JTF_VARCHAR2_TABLE_200();
1363 a35 := JTF_VARCHAR2_TABLE_100();
1364 a36 := JTF_VARCHAR2_TABLE_300();
1365 a37 := JTF_VARCHAR2_TABLE_100();
1366 a38 := JTF_VARCHAR2_TABLE_300();
1367 a39 := JTF_NUMBER_TABLE();
1368 a40 := JTF_VARCHAR2_TABLE_200();
1369 a41 := JTF_VARCHAR2_TABLE_2000();
1370 a42 := JTF_NUMBER_TABLE();
1371 a43 := JTF_VARCHAR2_TABLE_200();
1372 a44 := JTF_VARCHAR2_TABLE_200();
1373 a45 := JTF_NUMBER_TABLE();
1374 a46 := JTF_NUMBER_TABLE();
1375 a47 := JTF_NUMBER_TABLE();
1376 a48 := JTF_NUMBER_TABLE();
1377 a49 := JTF_VARCHAR2_TABLE_500();
1378 a50 := JTF_VARCHAR2_TABLE_300();
1379 a51 := JTF_NUMBER_TABLE();
1380 a52 := JTF_NUMBER_TABLE();
1381 a53 := JTF_VARCHAR2_TABLE_500();
1382 a54 := JTF_VARCHAR2_TABLE_300();
1383 a55 := JTF_NUMBER_TABLE();
1384 a56 := JTF_VARCHAR2_TABLE_300();
1385 a57 := JTF_VARCHAR2_TABLE_300();
1386 a58 := JTF_NUMBER_TABLE();
1387 a59 := JTF_VARCHAR2_TABLE_100();
1388 a60 := JTF_VARCHAR2_TABLE_200();
1389 a61 := JTF_VARCHAR2_TABLE_100();
1390 a62 := JTF_VARCHAR2_TABLE_300();
1391 a63 := JTF_NUMBER_TABLE();
1392 a64 := JTF_NUMBER_TABLE();
1393 a65 := JTF_VARCHAR2_TABLE_500();
1394 a66 := JTF_VARCHAR2_TABLE_300();
1395 a67 := JTF_NUMBER_TABLE();
1396 a68 := JTF_NUMBER_TABLE();
1397 a69 := JTF_VARCHAR2_TABLE_500();
1398 a70 := JTF_VARCHAR2_TABLE_300();
1399 a71 := JTF_NUMBER_TABLE();
1400 a72 := JTF_NUMBER_TABLE();
1401 a73 := JTF_VARCHAR2_TABLE_500();
1402 a74 := JTF_VARCHAR2_TABLE_300();
1403 a75 := JTF_NUMBER_TABLE();
1404 a76 := JTF_NUMBER_TABLE();
1405 a77 := JTF_VARCHAR2_TABLE_500();
1406 a78 := JTF_VARCHAR2_TABLE_300();
1407 a79 := JTF_VARCHAR2_TABLE_100();
1408 a80 := JTF_NUMBER_TABLE();
1409 a81 := JTF_DATE_TABLE();
1410 a82 := JTF_VARCHAR2_TABLE_100();
1411 a83 := JTF_NUMBER_TABLE();
1412 a84 := JTF_VARCHAR2_TABLE_100();
1413 a85 := JTF_VARCHAR2_TABLE_500();
1414 a86 := JTF_VARCHAR2_TABLE_500();
1415 a87 := JTF_VARCHAR2_TABLE_500();
1416 a88 := JTF_VARCHAR2_TABLE_500();
1417 a89 := JTF_VARCHAR2_TABLE_500();
1418 a90 := JTF_VARCHAR2_TABLE_500();
1419 a91 := JTF_VARCHAR2_TABLE_500();
1420 a92 := JTF_VARCHAR2_TABLE_500();
1421 a93 := JTF_VARCHAR2_TABLE_500();
1422 a94 := JTF_VARCHAR2_TABLE_500();
1423 a95 := JTF_VARCHAR2_TABLE_500();
1424 a96 := JTF_VARCHAR2_TABLE_500();
1425 a97 := JTF_VARCHAR2_TABLE_500();
1426 a98 := JTF_VARCHAR2_TABLE_500();
1427 a99 := JTF_VARCHAR2_TABLE_500();
1428 a100 := JTF_NUMBER_TABLE();
1429 a101 := JTF_NUMBER_TABLE();
1430 a102 := JTF_VARCHAR2_TABLE_100();
1431 a103 := JTF_NUMBER_TABLE();
1432 a104 := JTF_VARCHAR2_TABLE_100();
1433 else
1434 a0 := JTF_NUMBER_TABLE();
1435 a1 := JTF_VARCHAR2_TABLE_200();
1436 a2 := JTF_VARCHAR2_TABLE_2000();
1437 a3 := JTF_VARCHAR2_TABLE_100();
1438 a4 := JTF_VARCHAR2_TABLE_100();
1439 a5 := JTF_DATE_TABLE();
1440 a6 := JTF_DATE_TABLE();
1441 a7 := JTF_NUMBER_TABLE();
1442 a8 := JTF_VARCHAR2_TABLE_200();
1443 a9 := JTF_NUMBER_TABLE();
1444 a10 := JTF_NUMBER_TABLE();
1445 a11 := JTF_VARCHAR2_TABLE_100();
1446 a12 := JTF_VARCHAR2_TABLE_100();
1447 a13 := JTF_VARCHAR2_TABLE_100();
1448 a14 := JTF_VARCHAR2_TABLE_100();
1449 a15 := JTF_VARCHAR2_TABLE_100();
1450 a16 := JTF_VARCHAR2_TABLE_100();
1451 a17 := JTF_VARCHAR2_TABLE_100();
1452 a18 := JTF_DATE_TABLE();
1453 a19 := JTF_DATE_TABLE();
1454 a20 := JTF_DATE_TABLE();
1455 a21 := JTF_DATE_TABLE();
1456 a22 := JTF_VARCHAR2_TABLE_100();
1457 a23 := JTF_VARCHAR2_TABLE_100();
1458 a24 := JTF_VARCHAR2_TABLE_200();
1459 a25 := JTF_NUMBER_TABLE();
1460 a26 := JTF_NUMBER_TABLE();
1461 a27 := JTF_NUMBER_TABLE();
1462 a28 := JTF_VARCHAR2_TABLE_100();
1463 a29 := JTF_VARCHAR2_TABLE_200();
1464 a30 := JTF_VARCHAR2_TABLE_100();
1465 a31 := JTF_VARCHAR2_TABLE_300();
1466 a32 := JTF_NUMBER_TABLE();
1467 a33 := JTF_VARCHAR2_TABLE_100();
1468 a34 := JTF_VARCHAR2_TABLE_200();
1469 a35 := JTF_VARCHAR2_TABLE_100();
1470 a36 := JTF_VARCHAR2_TABLE_300();
1471 a37 := JTF_VARCHAR2_TABLE_100();
1472 a38 := JTF_VARCHAR2_TABLE_300();
1473 a39 := JTF_NUMBER_TABLE();
1474 a40 := JTF_VARCHAR2_TABLE_200();
1475 a41 := JTF_VARCHAR2_TABLE_2000();
1476 a42 := JTF_NUMBER_TABLE();
1477 a43 := JTF_VARCHAR2_TABLE_200();
1478 a44 := JTF_VARCHAR2_TABLE_200();
1479 a45 := JTF_NUMBER_TABLE();
1480 a46 := JTF_NUMBER_TABLE();
1481 a47 := JTF_NUMBER_TABLE();
1482 a48 := JTF_NUMBER_TABLE();
1483 a49 := JTF_VARCHAR2_TABLE_500();
1484 a50 := JTF_VARCHAR2_TABLE_300();
1485 a51 := JTF_NUMBER_TABLE();
1486 a52 := JTF_NUMBER_TABLE();
1487 a53 := JTF_VARCHAR2_TABLE_500();
1488 a54 := JTF_VARCHAR2_TABLE_300();
1489 a55 := JTF_NUMBER_TABLE();
1490 a56 := JTF_VARCHAR2_TABLE_300();
1491 a57 := JTF_VARCHAR2_TABLE_300();
1492 a58 := JTF_NUMBER_TABLE();
1493 a59 := JTF_VARCHAR2_TABLE_100();
1494 a60 := JTF_VARCHAR2_TABLE_200();
1495 a61 := JTF_VARCHAR2_TABLE_100();
1496 a62 := JTF_VARCHAR2_TABLE_300();
1497 a63 := JTF_NUMBER_TABLE();
1498 a64 := JTF_NUMBER_TABLE();
1499 a65 := JTF_VARCHAR2_TABLE_500();
1500 a66 := JTF_VARCHAR2_TABLE_300();
1501 a67 := JTF_NUMBER_TABLE();
1502 a68 := JTF_NUMBER_TABLE();
1503 a69 := JTF_VARCHAR2_TABLE_500();
1504 a70 := JTF_VARCHAR2_TABLE_300();
1505 a71 := JTF_NUMBER_TABLE();
1506 a72 := JTF_NUMBER_TABLE();
1507 a73 := JTF_VARCHAR2_TABLE_500();
1508 a74 := JTF_VARCHAR2_TABLE_300();
1509 a75 := JTF_NUMBER_TABLE();
1510 a76 := JTF_NUMBER_TABLE();
1511 a77 := JTF_VARCHAR2_TABLE_500();
1512 a78 := JTF_VARCHAR2_TABLE_300();
1513 a79 := JTF_VARCHAR2_TABLE_100();
1514 a80 := JTF_NUMBER_TABLE();
1515 a81 := JTF_DATE_TABLE();
1516 a82 := JTF_VARCHAR2_TABLE_100();
1517 a83 := JTF_NUMBER_TABLE();
1518 a84 := JTF_VARCHAR2_TABLE_100();
1519 a85 := JTF_VARCHAR2_TABLE_500();
1520 a86 := JTF_VARCHAR2_TABLE_500();
1521 a87 := JTF_VARCHAR2_TABLE_500();
1522 a88 := JTF_VARCHAR2_TABLE_500();
1523 a89 := JTF_VARCHAR2_TABLE_500();
1524 a90 := JTF_VARCHAR2_TABLE_500();
1525 a91 := JTF_VARCHAR2_TABLE_500();
1526 a92 := JTF_VARCHAR2_TABLE_500();
1527 a93 := JTF_VARCHAR2_TABLE_500();
1528 a94 := JTF_VARCHAR2_TABLE_500();
1529 a95 := JTF_VARCHAR2_TABLE_500();
1530 a96 := JTF_VARCHAR2_TABLE_500();
1531 a97 := JTF_VARCHAR2_TABLE_500();
1532 a98 := JTF_VARCHAR2_TABLE_500();
1533 a99 := JTF_VARCHAR2_TABLE_500();
1534 a100 := JTF_NUMBER_TABLE();
1535 a101 := JTF_NUMBER_TABLE();
1536 a102 := JTF_VARCHAR2_TABLE_100();
1537 a103 := JTF_NUMBER_TABLE();
1538 a104 := JTF_VARCHAR2_TABLE_100();
1539 if t.count > 0 then
1540 a0.extend(t.count);
1541 a1.extend(t.count);
1542 a2.extend(t.count);
1543 a3.extend(t.count);
1544 a4.extend(t.count);
1545 a5.extend(t.count);
1546 a6.extend(t.count);
1547 a7.extend(t.count);
1548 a8.extend(t.count);
1549 a9.extend(t.count);
1550 a10.extend(t.count);
1551 a11.extend(t.count);
1552 a12.extend(t.count);
1553 a13.extend(t.count);
1554 a14.extend(t.count);
1555 a15.extend(t.count);
1556 a16.extend(t.count);
1557 a17.extend(t.count);
1558 a18.extend(t.count);
1559 a19.extend(t.count);
1560 a20.extend(t.count);
1561 a21.extend(t.count);
1562 a22.extend(t.count);
1563 a23.extend(t.count);
1564 a24.extend(t.count);
1565 a25.extend(t.count);
1566 a26.extend(t.count);
1567 a27.extend(t.count);
1568 a28.extend(t.count);
1569 a29.extend(t.count);
1570 a30.extend(t.count);
1571 a31.extend(t.count);
1572 a32.extend(t.count);
1573 a33.extend(t.count);
1574 a34.extend(t.count);
1575 a35.extend(t.count);
1576 a36.extend(t.count);
1577 a37.extend(t.count);
1578 a38.extend(t.count);
1579 a39.extend(t.count);
1580 a40.extend(t.count);
1581 a41.extend(t.count);
1582 a42.extend(t.count);
1583 a43.extend(t.count);
1584 a44.extend(t.count);
1585 a45.extend(t.count);
1586 a46.extend(t.count);
1587 a47.extend(t.count);
1588 a48.extend(t.count);
1589 a49.extend(t.count);
1590 a50.extend(t.count);
1591 a51.extend(t.count);
1592 a52.extend(t.count);
1593 a53.extend(t.count);
1594 a54.extend(t.count);
1595 a55.extend(t.count);
1596 a56.extend(t.count);
1597 a57.extend(t.count);
1598 a58.extend(t.count);
1599 a59.extend(t.count);
1600 a60.extend(t.count);
1601 a61.extend(t.count);
1602 a62.extend(t.count);
1603 a63.extend(t.count);
1604 a64.extend(t.count);
1605 a65.extend(t.count);
1606 a66.extend(t.count);
1607 a67.extend(t.count);
1608 a68.extend(t.count);
1609 a69.extend(t.count);
1610 a70.extend(t.count);
1611 a71.extend(t.count);
1612 a72.extend(t.count);
1613 a73.extend(t.count);
1614 a74.extend(t.count);
1615 a75.extend(t.count);
1616 a76.extend(t.count);
1617 a77.extend(t.count);
1618 a78.extend(t.count);
1619 a79.extend(t.count);
1620 a80.extend(t.count);
1621 a81.extend(t.count);
1622 a82.extend(t.count);
1623 a83.extend(t.count);
1624 a84.extend(t.count);
1625 a85.extend(t.count);
1626 a86.extend(t.count);
1627 a87.extend(t.count);
1628 a88.extend(t.count);
1629 a89.extend(t.count);
1630 a90.extend(t.count);
1631 a91.extend(t.count);
1632 a92.extend(t.count);
1633 a93.extend(t.count);
1634 a94.extend(t.count);
1635 a95.extend(t.count);
1636 a96.extend(t.count);
1637 a97.extend(t.count);
1638 a98.extend(t.count);
1639 a99.extend(t.count);
1640 a100.extend(t.count);
1641 a101.extend(t.count);
1642 a102.extend(t.count);
1643 a103.extend(t.count);
1644 a104.extend(t.count);
1645 ddindx := t.first;
1646 indx := 1;
1647 while true loop
1648 a0(indx) := t(ddindx).chr_id;
1649 a1(indx) := t(ddindx).chr_contract_number;
1650 a2(indx) := t(ddindx).chr_description;
1651 a3(indx) := t(ddindx).vers_version;
1652 a4(indx) := t(ddindx).chr_sts_code;
1653 a5(indx) := t(ddindx).chr_start_date;
1654 a6(indx) := t(ddindx).chr_end_date;
1655 a7(indx) := t(ddindx).khr_term_duration;
1656 a8(indx) := t(ddindx).chr_cust_po_number;
1657 a9(indx) := t(ddindx).chr_inv_organization_id;
1658 a10(indx) := t(ddindx).chr_authoring_org_id;
1659 a11(indx) := t(ddindx).khr_generate_accrual_yn;
1660 a12(indx) := t(ddindx).khr_syndicatable_yn;
1661 a13(indx) := t(ddindx).khr_prefunding_eligible_yn;
1662 a14(indx) := t(ddindx).khr_revolving_credit_yn;
1663 a15(indx) := t(ddindx).khr_converted_account_yn;
1664 a16(indx) := t(ddindx).khr_credit_act_yn;
1665 a17(indx) := t(ddindx).chr_template_yn;
1666 a18(indx) := t(ddindx).chr_date_signed;
1667 a19(indx) := t(ddindx).khr_date_deal_transferred;
1668 a20(indx) := t(ddindx).khr_accepted_date;
1669 a21(indx) := t(ddindx).khr_expected_delivery_date;
1670 a22(indx) := t(ddindx).khr_amd_code;
1671 a23(indx) := t(ddindx).khr_deal_type;
1672 a24(indx) := t(ddindx).mla_contract_number;
1673 a25(indx) := t(ddindx).mla_gvr_chr_id_referred;
1674 a26(indx) := t(ddindx).mla_gvr_id;
1675 a27(indx) := t(ddindx).cust_id;
1676 a28(indx) := t(ddindx).cust_object1_id1;
1677 a29(indx) := t(ddindx).cust_object1_id2;
1678 a30(indx) := t(ddindx).cust_jtot_object1_code;
1679 a31(indx) := t(ddindx).cust_name;
1680 a32(indx) := t(ddindx).lessor_id;
1681 a33(indx) := t(ddindx).lessor_object1_id1;
1682 a34(indx) := t(ddindx).lessor_object1_id2;
1683 a35(indx) := t(ddindx).lessor_jtot_object1_code;
1684 a36(indx) := t(ddindx).lessor_name;
1685 a37(indx) := t(ddindx).chr_currency_code;
1686 a38(indx) := t(ddindx).currency_name;
1687 a39(indx) := t(ddindx).khr_pdt_id;
1688 a40(indx) := t(ddindx).product_name;
1689 a41(indx) := t(ddindx).product_description;
1690 a42(indx) := t(ddindx).khr_khr_id;
1691 a43(indx) := t(ddindx).program_contract_number;
1692 a44(indx) := t(ddindx).cl_contract_number;
1693 a45(indx) := t(ddindx).cl_gvr_chr_id_referred;
1694 a46(indx) := t(ddindx).cl_gvr_id;
1695 a47(indx) := t(ddindx).rg_larles_id;
1696 a48(indx) := t(ddindx).r_larles_id;
1697 a49(indx) := t(ddindx).r_larles_rule_information1;
1698 a50(indx) := t(ddindx).col_larles_form_left_prompt;
1699 a51(indx) := t(ddindx).rg_larebl_id;
1700 a52(indx) := t(ddindx).r_larebl_id;
1701 a53(indx) := t(ddindx).r_larebl_rule_information1;
1702 a54(indx) := t(ddindx).col_larebl_form_left_prompt;
1703 a55(indx) := t(ddindx).chr_cust_acct_id;
1704 a56(indx) := t(ddindx).customer_account;
1705 a57(indx) := t(ddindx).cust_site_description;
1706 a58(indx) := t(ddindx).contact_id;
1707 a59(indx) := t(ddindx).contact_object1_id1;
1708 a60(indx) := t(ddindx).contact_object1_id2;
1709 a61(indx) := t(ddindx).contact_jtot_object1_code;
1710 a62(indx) := t(ddindx).contact_name;
1711 a63(indx) := t(ddindx).rg_latown_id;
1712 a64(indx) := t(ddindx).r_latown_id;
1713 a65(indx) := t(ddindx).r_latown_rule_information1;
1714 a66(indx) := t(ddindx).col_latown_form_left_prompt;
1715 a67(indx) := t(ddindx).rg_lanntf_id;
1716 a68(indx) := t(ddindx).r_lanntf_id;
1717 a69(indx) := t(ddindx).r_lanntf_rule_information1;
1718 a70(indx) := t(ddindx).col_lanntf_form_left_prompt;
1719 a71(indx) := t(ddindx).rg_lacpln_id;
1720 a72(indx) := t(ddindx).r_lacpln_id;
1721 a73(indx) := t(ddindx).r_lacpln_rule_information1;
1722 a74(indx) := t(ddindx).col_lacpln_form_left_prompt;
1723 a75(indx) := t(ddindx).rg_lapact_id;
1724 a76(indx) := t(ddindx).r_lapact_id;
1725 a77(indx) := t(ddindx).r_lapact_rule_information1;
1726 a78(indx) := t(ddindx).col_lapact_form_left_prompt;
1727 a79(indx) := t(ddindx).khr_currency_conv_type;
1728 a80(indx) := t(ddindx).khr_currency_conv_rate;
1729 a81(indx) := t(ddindx).khr_currency_conv_date;
1730 a82(indx) := t(ddindx).khr_assignable_yn;
1731 a83(indx) := t(ddindx).legal_entity_id;
1732 a84(indx) := t(ddindx).attribute_category;
1733 a85(indx) := t(ddindx).attribute1;
1734 a86(indx) := t(ddindx).attribute2;
1735 a87(indx) := t(ddindx).attribute3;
1736 a88(indx) := t(ddindx).attribute4;
1737 a89(indx) := t(ddindx).attribute5;
1738 a90(indx) := t(ddindx).attribute6;
1739 a91(indx) := t(ddindx).attribute7;
1740 a92(indx) := t(ddindx).attribute8;
1741 a93(indx) := t(ddindx).attribute9;
1742 a94(indx) := t(ddindx).attribute10;
1743 a95(indx) := t(ddindx).attribute11;
1744 a96(indx) := t(ddindx).attribute12;
1745 a97(indx) := t(ddindx).attribute13;
1746 a98(indx) := t(ddindx).attribute14;
1747 a99(indx) := t(ddindx).attribute15;
1748 a100(indx) := t(ddindx).labill_labacc_billto;
1749 a101(indx) := t(ddindx).labill_labacc_rgp_id;
1750 a102(indx) := t(ddindx).labill_labacc_rgd_code;
1751 a103(indx) := t(ddindx).labill_labacc_rul_id;
1752 a104(indx) := t(ddindx).labill_labacc_rul_info_cat;
1753 indx := indx+1;
1754 if t.last =ddindx
1755 then exit;
1756 end if;
1757 ddindx := t.next(ddindx);
1758 end loop;
1759 end if;
1760 end if;
1761 end rosetta_table_copy_out_p11;
1762
1763 procedure update_deal(p_api_version NUMBER
1764 , p_init_msg_list VARCHAR2
1765 , x_return_status out nocopy VARCHAR2
1766 , x_msg_count out nocopy NUMBER
1767 , x_msg_data out nocopy VARCHAR2
1768 , p5_a0 NUMBER
1769 , p5_a1 VARCHAR2
1770 , p5_a2 VARCHAR2
1771 , p5_a3 VARCHAR2
1772 , p5_a4 VARCHAR2
1773 , p5_a5 DATE
1774 , p5_a6 DATE
1775 , p5_a7 NUMBER
1776 , p5_a8 VARCHAR2
1777 , p5_a9 NUMBER
1778 , p5_a10 NUMBER
1779 , p5_a11 VARCHAR2
1780 , p5_a12 VARCHAR2
1781 , p5_a13 VARCHAR2
1782 , p5_a14 VARCHAR2
1783 , p5_a15 VARCHAR2
1784 , p5_a16 VARCHAR2
1785 , p5_a17 VARCHAR2
1786 , p5_a18 DATE
1787 , p5_a19 DATE
1788 , p5_a20 DATE
1789 , p5_a21 DATE
1790 , p5_a22 VARCHAR2
1791 , p5_a23 VARCHAR2
1792 , p5_a24 VARCHAR2
1793 , p5_a25 NUMBER
1794 , p5_a26 NUMBER
1795 , p5_a27 NUMBER
1796 , p5_a28 VARCHAR2
1797 , p5_a29 VARCHAR2
1798 , p5_a30 VARCHAR2
1799 , p5_a31 VARCHAR2
1800 , p5_a32 NUMBER
1801 , p5_a33 VARCHAR2
1802 , p5_a34 VARCHAR2
1803 , p5_a35 VARCHAR2
1804 , p5_a36 VARCHAR2
1805 , p5_a37 VARCHAR2
1806 , p5_a38 VARCHAR2
1807 , p5_a39 NUMBER
1808 , p5_a40 VARCHAR2
1809 , p5_a41 VARCHAR2
1810 , p5_a42 NUMBER
1811 , p5_a43 VARCHAR2
1812 , p5_a44 VARCHAR2
1813 , p5_a45 NUMBER
1814 , p5_a46 NUMBER
1815 , p5_a47 NUMBER
1816 , p5_a48 NUMBER
1817 , p5_a49 VARCHAR2
1818 , p5_a50 VARCHAR2
1819 , p5_a51 NUMBER
1820 , p5_a52 NUMBER
1821 , p5_a53 VARCHAR2
1822 , p5_a54 VARCHAR2
1823 , p5_a55 NUMBER
1824 , p5_a56 VARCHAR2
1825 , p5_a57 VARCHAR2
1826 , p5_a58 NUMBER
1827 , p5_a59 VARCHAR2
1828 , p5_a60 VARCHAR2
1829 , p5_a61 VARCHAR2
1830 , p5_a62 VARCHAR2
1831 , p5_a63 NUMBER
1832 , p5_a64 NUMBER
1833 , p5_a65 VARCHAR2
1834 , p5_a66 VARCHAR2
1835 , p5_a67 NUMBER
1836 , p5_a68 NUMBER
1837 , p5_a69 VARCHAR2
1838 , p5_a70 VARCHAR2
1839 , p5_a71 NUMBER
1840 , p5_a72 NUMBER
1841 , p5_a73 VARCHAR2
1842 , p5_a74 VARCHAR2
1843 , p5_a75 NUMBER
1844 , p5_a76 NUMBER
1845 , p5_a77 VARCHAR2
1846 , p5_a78 VARCHAR2
1847 , p5_a79 VARCHAR2
1848 , p5_a80 NUMBER
1849 , p5_a81 DATE
1850 , p5_a82 VARCHAR2
1851 , p5_a83 NUMBER
1852 , p5_a84 VARCHAR2
1853 , p5_a85 VARCHAR2
1854 , p5_a86 VARCHAR2
1855 , p5_a87 VARCHAR2
1856 , p5_a88 VARCHAR2
1857 , p5_a89 VARCHAR2
1858 , p5_a90 VARCHAR2
1859 , p5_a91 VARCHAR2
1860 , p5_a92 VARCHAR2
1861 , p5_a93 VARCHAR2
1862 , p5_a94 VARCHAR2
1863 , p5_a95 VARCHAR2
1864 , p5_a96 VARCHAR2
1865 , p5_a97 VARCHAR2
1866 , p5_a98 VARCHAR2
1867 , p5_a99 VARCHAR2
1868 , p5_a100 NUMBER
1869 , p5_a101 NUMBER
1870 , p5_a102 VARCHAR2
1871 , p5_a103 NUMBER
1872 , p5_a104 VARCHAR2
1873 , p6_a0 out nocopy NUMBER
1874 , p6_a1 out nocopy VARCHAR2
1875 , p6_a2 out nocopy VARCHAR2
1876 , p6_a3 out nocopy VARCHAR2
1877 , p6_a4 out nocopy VARCHAR2
1878 , p6_a5 out nocopy DATE
1879 , p6_a6 out nocopy DATE
1880 , p6_a7 out nocopy NUMBER
1881 , p6_a8 out nocopy VARCHAR2
1882 , p6_a9 out nocopy NUMBER
1883 , p6_a10 out nocopy NUMBER
1884 , p6_a11 out nocopy VARCHAR2
1885 , p6_a12 out nocopy VARCHAR2
1886 , p6_a13 out nocopy VARCHAR2
1887 , p6_a14 out nocopy VARCHAR2
1888 , p6_a15 out nocopy VARCHAR2
1889 , p6_a16 out nocopy VARCHAR2
1890 , p6_a17 out nocopy VARCHAR2
1891 , p6_a18 out nocopy DATE
1892 , p6_a19 out nocopy DATE
1893 , p6_a20 out nocopy DATE
1894 , p6_a21 out nocopy DATE
1895 , p6_a22 out nocopy VARCHAR2
1896 , p6_a23 out nocopy VARCHAR2
1897 , p6_a24 out nocopy VARCHAR2
1898 , p6_a25 out nocopy NUMBER
1899 , p6_a26 out nocopy NUMBER
1900 , p6_a27 out nocopy NUMBER
1901 , p6_a28 out nocopy VARCHAR2
1902 , p6_a29 out nocopy VARCHAR2
1903 , p6_a30 out nocopy VARCHAR2
1904 , p6_a31 out nocopy VARCHAR2
1905 , p6_a32 out nocopy NUMBER
1906 , p6_a33 out nocopy VARCHAR2
1907 , p6_a34 out nocopy VARCHAR2
1908 , p6_a35 out nocopy VARCHAR2
1909 , p6_a36 out nocopy VARCHAR2
1910 , p6_a37 out nocopy VARCHAR2
1911 , p6_a38 out nocopy VARCHAR2
1912 , p6_a39 out nocopy NUMBER
1913 , p6_a40 out nocopy VARCHAR2
1914 , p6_a41 out nocopy VARCHAR2
1915 , p6_a42 out nocopy NUMBER
1916 , p6_a43 out nocopy VARCHAR2
1917 , p6_a44 out nocopy VARCHAR2
1918 , p6_a45 out nocopy NUMBER
1919 , p6_a46 out nocopy NUMBER
1920 , p6_a47 out nocopy NUMBER
1921 , p6_a48 out nocopy NUMBER
1922 , p6_a49 out nocopy VARCHAR2
1923 , p6_a50 out nocopy VARCHAR2
1924 , p6_a51 out nocopy NUMBER
1925 , p6_a52 out nocopy NUMBER
1926 , p6_a53 out nocopy VARCHAR2
1927 , p6_a54 out nocopy VARCHAR2
1928 , p6_a55 out nocopy NUMBER
1929 , p6_a56 out nocopy VARCHAR2
1930 , p6_a57 out nocopy VARCHAR2
1931 , p6_a58 out nocopy NUMBER
1932 , p6_a59 out nocopy VARCHAR2
1933 , p6_a60 out nocopy VARCHAR2
1934 , p6_a61 out nocopy VARCHAR2
1935 , p6_a62 out nocopy VARCHAR2
1936 , p6_a63 out nocopy NUMBER
1937 , p6_a64 out nocopy NUMBER
1938 , p6_a65 out nocopy VARCHAR2
1939 , p6_a66 out nocopy VARCHAR2
1940 , p6_a67 out nocopy NUMBER
1941 , p6_a68 out nocopy NUMBER
1942 , p6_a69 out nocopy VARCHAR2
1943 , p6_a70 out nocopy VARCHAR2
1944 , p6_a71 out nocopy NUMBER
1945 , p6_a72 out nocopy NUMBER
1946 , p6_a73 out nocopy VARCHAR2
1947 , p6_a74 out nocopy VARCHAR2
1948 , p6_a75 out nocopy NUMBER
1949 , p6_a76 out nocopy NUMBER
1950 , p6_a77 out nocopy VARCHAR2
1951 , p6_a78 out nocopy VARCHAR2
1952 , p6_a79 out nocopy VARCHAR2
1953 , p6_a80 out nocopy NUMBER
1954 , p6_a81 out nocopy DATE
1955 , p6_a82 out nocopy VARCHAR2
1956 , p6_a83 out nocopy NUMBER
1957 , p6_a84 out nocopy VARCHAR2
1958 , p6_a85 out nocopy VARCHAR2
1959 , p6_a86 out nocopy VARCHAR2
1960 , p6_a87 out nocopy VARCHAR2
1961 , p6_a88 out nocopy VARCHAR2
1962 , p6_a89 out nocopy VARCHAR2
1963 , p6_a90 out nocopy VARCHAR2
1964 , p6_a91 out nocopy VARCHAR2
1965 , p6_a92 out nocopy VARCHAR2
1966 , p6_a93 out nocopy VARCHAR2
1967 , p6_a94 out nocopy VARCHAR2
1968 , p6_a95 out nocopy VARCHAR2
1969 , p6_a96 out nocopy VARCHAR2
1970 , p6_a97 out nocopy VARCHAR2
1971 , p6_a98 out nocopy VARCHAR2
1972 , p6_a99 out nocopy VARCHAR2
1973 , p6_a100 out nocopy NUMBER
1974 , p6_a101 out nocopy NUMBER
1975 , p6_a102 out nocopy VARCHAR2
1976 , p6_a103 out nocopy NUMBER
1977 , p6_a104 out nocopy VARCHAR2
1978 )
1979
1980 as
1981 ddp_durv_rec okl_deal_creat_pvt.deal_rec_type;
1982 ddx_durv_rec okl_deal_creat_pvt.deal_rec_type;
1983 ddindx binary_integer; indx binary_integer;
1984 begin
1985
1986 -- copy data to the local IN or IN-OUT args, if any
1987
1988
1989
1990
1991
1992 ddp_durv_rec.chr_id := p5_a0;
1993 ddp_durv_rec.chr_contract_number := p5_a1;
1994 ddp_durv_rec.chr_description := p5_a2;
1995 ddp_durv_rec.vers_version := p5_a3;
1996 ddp_durv_rec.chr_sts_code := p5_a4;
1997 ddp_durv_rec.chr_start_date := p5_a5;
1998 ddp_durv_rec.chr_end_date := p5_a6;
1999 ddp_durv_rec.khr_term_duration := p5_a7;
2000 ddp_durv_rec.chr_cust_po_number := p5_a8;
2001 ddp_durv_rec.chr_inv_organization_id := p5_a9;
2002 ddp_durv_rec.chr_authoring_org_id := p5_a10;
2003 ddp_durv_rec.khr_generate_accrual_yn := p5_a11;
2004 ddp_durv_rec.khr_syndicatable_yn := p5_a12;
2005 ddp_durv_rec.khr_prefunding_eligible_yn := p5_a13;
2006 ddp_durv_rec.khr_revolving_credit_yn := p5_a14;
2007 ddp_durv_rec.khr_converted_account_yn := p5_a15;
2008 ddp_durv_rec.khr_credit_act_yn := p5_a16;
2009 ddp_durv_rec.chr_template_yn := p5_a17;
2010 ddp_durv_rec.chr_date_signed := p5_a18;
2011 ddp_durv_rec.khr_date_deal_transferred := p5_a19;
2012 ddp_durv_rec.khr_accepted_date := p5_a20;
2013 ddp_durv_rec.khr_expected_delivery_date := p5_a21;
2014 ddp_durv_rec.khr_amd_code := p5_a22;
2015 ddp_durv_rec.khr_deal_type := p5_a23;
2016 ddp_durv_rec.mla_contract_number := p5_a24;
2017 ddp_durv_rec.mla_gvr_chr_id_referred := p5_a25;
2018 ddp_durv_rec.mla_gvr_id := p5_a26;
2019 ddp_durv_rec.cust_id := p5_a27;
2020 ddp_durv_rec.cust_object1_id1 := p5_a28;
2021 ddp_durv_rec.cust_object1_id2 := p5_a29;
2022 ddp_durv_rec.cust_jtot_object1_code := p5_a30;
2023 ddp_durv_rec.cust_name := p5_a31;
2024 ddp_durv_rec.lessor_id := p5_a32;
2025 ddp_durv_rec.lessor_object1_id1 := p5_a33;
2026 ddp_durv_rec.lessor_object1_id2 := p5_a34;
2027 ddp_durv_rec.lessor_jtot_object1_code := p5_a35;
2028 ddp_durv_rec.lessor_name := p5_a36;
2029 ddp_durv_rec.chr_currency_code := p5_a37;
2030 ddp_durv_rec.currency_name := p5_a38;
2031 ddp_durv_rec.khr_pdt_id := p5_a39;
2032 ddp_durv_rec.product_name := p5_a40;
2033 ddp_durv_rec.product_description := p5_a41;
2034 ddp_durv_rec.khr_khr_id := p5_a42;
2035 ddp_durv_rec.program_contract_number := p5_a43;
2036 ddp_durv_rec.cl_contract_number := p5_a44;
2037 ddp_durv_rec.cl_gvr_chr_id_referred := p5_a45;
2038 ddp_durv_rec.cl_gvr_id := p5_a46;
2039 ddp_durv_rec.rg_larles_id := p5_a47;
2040 ddp_durv_rec.r_larles_id := p5_a48;
2041 ddp_durv_rec.r_larles_rule_information1 := p5_a49;
2042 ddp_durv_rec.col_larles_form_left_prompt := p5_a50;
2043 ddp_durv_rec.rg_larebl_id := p5_a51;
2044 ddp_durv_rec.r_larebl_id := p5_a52;
2045 ddp_durv_rec.r_larebl_rule_information1 := p5_a53;
2046 ddp_durv_rec.col_larebl_form_left_prompt := p5_a54;
2047 ddp_durv_rec.chr_cust_acct_id := p5_a55;
2048 ddp_durv_rec.customer_account := p5_a56;
2049 ddp_durv_rec.cust_site_description := p5_a57;
2050 ddp_durv_rec.contact_id := p5_a58;
2051 ddp_durv_rec.contact_object1_id1 := p5_a59;
2052 ddp_durv_rec.contact_object1_id2 := p5_a60;
2053 ddp_durv_rec.contact_jtot_object1_code := p5_a61;
2054 ddp_durv_rec.contact_name := p5_a62;
2055 ddp_durv_rec.rg_latown_id := p5_a63;
2056 ddp_durv_rec.r_latown_id := p5_a64;
2057 ddp_durv_rec.r_latown_rule_information1 := p5_a65;
2058 ddp_durv_rec.col_latown_form_left_prompt := p5_a66;
2059 ddp_durv_rec.rg_lanntf_id := p5_a67;
2060 ddp_durv_rec.r_lanntf_id := p5_a68;
2061 ddp_durv_rec.r_lanntf_rule_information1 := p5_a69;
2062 ddp_durv_rec.col_lanntf_form_left_prompt := p5_a70;
2063 ddp_durv_rec.rg_lacpln_id := p5_a71;
2064 ddp_durv_rec.r_lacpln_id := p5_a72;
2065 ddp_durv_rec.r_lacpln_rule_information1 := p5_a73;
2066 ddp_durv_rec.col_lacpln_form_left_prompt := p5_a74;
2067 ddp_durv_rec.rg_lapact_id := p5_a75;
2068 ddp_durv_rec.r_lapact_id := p5_a76;
2069 ddp_durv_rec.r_lapact_rule_information1 := p5_a77;
2070 ddp_durv_rec.col_lapact_form_left_prompt := p5_a78;
2071 ddp_durv_rec.khr_currency_conv_type := p5_a79;
2072 ddp_durv_rec.khr_currency_conv_rate := p5_a80;
2073 ddp_durv_rec.khr_currency_conv_date := p5_a81;
2074 ddp_durv_rec.khr_assignable_yn := p5_a82;
2075 ddp_durv_rec.legal_entity_id := p5_a83;
2076 ddp_durv_rec.attribute_category := p5_a84;
2077 ddp_durv_rec.attribute1 := p5_a85;
2078 ddp_durv_rec.attribute2 := p5_a86;
2079 ddp_durv_rec.attribute3 := p5_a87;
2080 ddp_durv_rec.attribute4 := p5_a88;
2081 ddp_durv_rec.attribute5 := p5_a89;
2082 ddp_durv_rec.attribute6 := p5_a90;
2083 ddp_durv_rec.attribute7 := p5_a91;
2084 ddp_durv_rec.attribute8 := p5_a92;
2085 ddp_durv_rec.attribute9 := p5_a93;
2086 ddp_durv_rec.attribute10 := p5_a94;
2087 ddp_durv_rec.attribute11 := p5_a95;
2088 ddp_durv_rec.attribute12 := p5_a96;
2089 ddp_durv_rec.attribute13 := p5_a97;
2090 ddp_durv_rec.attribute14 := p5_a98;
2091 ddp_durv_rec.attribute15 := p5_a99;
2092 ddp_durv_rec.labill_labacc_billto := p5_a100;
2093 ddp_durv_rec.labill_labacc_rgp_id := p5_a101;
2094 ddp_durv_rec.labill_labacc_rgd_code := p5_a102;
2095 ddp_durv_rec.labill_labacc_rul_id := p5_a103;
2096 ddp_durv_rec.labill_labacc_rul_info_cat := p5_a104;
2097
2098
2099 -- here's the delegated call to the old PL/SQL routine
2100 okl_deal_creat_pvt.update_deal(p_api_version,
2101 p_init_msg_list,
2102 x_return_status,
2103 x_msg_count,
2104 x_msg_data,
2105 ddp_durv_rec,
2106 ddx_durv_rec);
2107
2108 -- copy data back from the local variables to OUT or IN-OUT args, if any
2109
2110
2111
2112
2113
2114
2115 p6_a0 := ddx_durv_rec.chr_id;
2116 p6_a1 := ddx_durv_rec.chr_contract_number;
2117 p6_a2 := ddx_durv_rec.chr_description;
2118 p6_a3 := ddx_durv_rec.vers_version;
2119 p6_a4 := ddx_durv_rec.chr_sts_code;
2120 p6_a5 := ddx_durv_rec.chr_start_date;
2121 p6_a6 := ddx_durv_rec.chr_end_date;
2122 p6_a7 := ddx_durv_rec.khr_term_duration;
2123 p6_a8 := ddx_durv_rec.chr_cust_po_number;
2124 p6_a9 := ddx_durv_rec.chr_inv_organization_id;
2125 p6_a10 := ddx_durv_rec.chr_authoring_org_id;
2126 p6_a11 := ddx_durv_rec.khr_generate_accrual_yn;
2127 p6_a12 := ddx_durv_rec.khr_syndicatable_yn;
2128 p6_a13 := ddx_durv_rec.khr_prefunding_eligible_yn;
2129 p6_a14 := ddx_durv_rec.khr_revolving_credit_yn;
2130 p6_a15 := ddx_durv_rec.khr_converted_account_yn;
2131 p6_a16 := ddx_durv_rec.khr_credit_act_yn;
2132 p6_a17 := ddx_durv_rec.chr_template_yn;
2133 p6_a18 := ddx_durv_rec.chr_date_signed;
2134 p6_a19 := ddx_durv_rec.khr_date_deal_transferred;
2135 p6_a20 := ddx_durv_rec.khr_accepted_date;
2136 p6_a21 := ddx_durv_rec.khr_expected_delivery_date;
2137 p6_a22 := ddx_durv_rec.khr_amd_code;
2138 p6_a23 := ddx_durv_rec.khr_deal_type;
2139 p6_a24 := ddx_durv_rec.mla_contract_number;
2140 p6_a25 := ddx_durv_rec.mla_gvr_chr_id_referred;
2141 p6_a26 := ddx_durv_rec.mla_gvr_id;
2142 p6_a27 := ddx_durv_rec.cust_id;
2143 p6_a28 := ddx_durv_rec.cust_object1_id1;
2144 p6_a29 := ddx_durv_rec.cust_object1_id2;
2145 p6_a30 := ddx_durv_rec.cust_jtot_object1_code;
2146 p6_a31 := ddx_durv_rec.cust_name;
2147 p6_a32 := ddx_durv_rec.lessor_id;
2148 p6_a33 := ddx_durv_rec.lessor_object1_id1;
2149 p6_a34 := ddx_durv_rec.lessor_object1_id2;
2150 p6_a35 := ddx_durv_rec.lessor_jtot_object1_code;
2151 p6_a36 := ddx_durv_rec.lessor_name;
2152 p6_a37 := ddx_durv_rec.chr_currency_code;
2153 p6_a38 := ddx_durv_rec.currency_name;
2154 p6_a39 := ddx_durv_rec.khr_pdt_id;
2155 p6_a40 := ddx_durv_rec.product_name;
2156 p6_a41 := ddx_durv_rec.product_description;
2157 p6_a42 := ddx_durv_rec.khr_khr_id;
2158 p6_a43 := ddx_durv_rec.program_contract_number;
2159 p6_a44 := ddx_durv_rec.cl_contract_number;
2160 p6_a45 := ddx_durv_rec.cl_gvr_chr_id_referred;
2161 p6_a46 := ddx_durv_rec.cl_gvr_id;
2162 p6_a47 := ddx_durv_rec.rg_larles_id;
2163 p6_a48 := ddx_durv_rec.r_larles_id;
2164 p6_a49 := ddx_durv_rec.r_larles_rule_information1;
2165 p6_a50 := ddx_durv_rec.col_larles_form_left_prompt;
2166 p6_a51 := ddx_durv_rec.rg_larebl_id;
2167 p6_a52 := ddx_durv_rec.r_larebl_id;
2168 p6_a53 := ddx_durv_rec.r_larebl_rule_information1;
2169 p6_a54 := ddx_durv_rec.col_larebl_form_left_prompt;
2170 p6_a55 := ddx_durv_rec.chr_cust_acct_id;
2171 p6_a56 := ddx_durv_rec.customer_account;
2172 p6_a57 := ddx_durv_rec.cust_site_description;
2173 p6_a58 := ddx_durv_rec.contact_id;
2174 p6_a59 := ddx_durv_rec.contact_object1_id1;
2175 p6_a60 := ddx_durv_rec.contact_object1_id2;
2176 p6_a61 := ddx_durv_rec.contact_jtot_object1_code;
2177 p6_a62 := ddx_durv_rec.contact_name;
2178 p6_a63 := ddx_durv_rec.rg_latown_id;
2179 p6_a64 := ddx_durv_rec.r_latown_id;
2180 p6_a65 := ddx_durv_rec.r_latown_rule_information1;
2181 p6_a66 := ddx_durv_rec.col_latown_form_left_prompt;
2182 p6_a67 := ddx_durv_rec.rg_lanntf_id;
2183 p6_a68 := ddx_durv_rec.r_lanntf_id;
2184 p6_a69 := ddx_durv_rec.r_lanntf_rule_information1;
2185 p6_a70 := ddx_durv_rec.col_lanntf_form_left_prompt;
2186 p6_a71 := ddx_durv_rec.rg_lacpln_id;
2187 p6_a72 := ddx_durv_rec.r_lacpln_id;
2188 p6_a73 := ddx_durv_rec.r_lacpln_rule_information1;
2189 p6_a74 := ddx_durv_rec.col_lacpln_form_left_prompt;
2190 p6_a75 := ddx_durv_rec.rg_lapact_id;
2191 p6_a76 := ddx_durv_rec.r_lapact_id;
2192 p6_a77 := ddx_durv_rec.r_lapact_rule_information1;
2193 p6_a78 := ddx_durv_rec.col_lapact_form_left_prompt;
2194 p6_a79 := ddx_durv_rec.khr_currency_conv_type;
2195 p6_a80 := ddx_durv_rec.khr_currency_conv_rate;
2196 p6_a81 := ddx_durv_rec.khr_currency_conv_date;
2197 p6_a82 := ddx_durv_rec.khr_assignable_yn;
2198 p6_a83 := ddx_durv_rec.legal_entity_id;
2199 p6_a84 := ddx_durv_rec.attribute_category;
2200 p6_a85 := ddx_durv_rec.attribute1;
2201 p6_a86 := ddx_durv_rec.attribute2;
2202 p6_a87 := ddx_durv_rec.attribute3;
2203 p6_a88 := ddx_durv_rec.attribute4;
2204 p6_a89 := ddx_durv_rec.attribute5;
2205 p6_a90 := ddx_durv_rec.attribute6;
2206 p6_a91 := ddx_durv_rec.attribute7;
2207 p6_a92 := ddx_durv_rec.attribute8;
2208 p6_a93 := ddx_durv_rec.attribute9;
2209 p6_a94 := ddx_durv_rec.attribute10;
2210 p6_a95 := ddx_durv_rec.attribute11;
2211 p6_a96 := ddx_durv_rec.attribute12;
2212 p6_a97 := ddx_durv_rec.attribute13;
2213 p6_a98 := ddx_durv_rec.attribute14;
2214 p6_a99 := ddx_durv_rec.attribute15;
2215 p6_a100 := ddx_durv_rec.labill_labacc_billto;
2216 p6_a101 := ddx_durv_rec.labill_labacc_rgp_id;
2217 p6_a102 := ddx_durv_rec.labill_labacc_rgd_code;
2218 p6_a103 := ddx_durv_rec.labill_labacc_rul_id;
2219 p6_a104 := ddx_durv_rec.labill_labacc_rul_info_cat;
2220 end;
2221
2222 procedure load_deal(p_api_version NUMBER
2223 , p_init_msg_list VARCHAR2
2224 , x_return_status out nocopy VARCHAR2
2225 , x_msg_count out nocopy NUMBER
2226 , x_msg_data out nocopy VARCHAR2
2227 , p5_a0 NUMBER
2228 , p5_a1 VARCHAR2
2229 , p5_a2 VARCHAR2
2230 , p5_a3 VARCHAR2
2231 , p5_a4 VARCHAR2
2232 , p5_a5 DATE
2233 , p5_a6 DATE
2234 , p5_a7 NUMBER
2235 , p5_a8 VARCHAR2
2236 , p5_a9 NUMBER
2237 , p5_a10 NUMBER
2238 , p5_a11 VARCHAR2
2239 , p5_a12 VARCHAR2
2240 , p5_a13 VARCHAR2
2241 , p5_a14 VARCHAR2
2242 , p5_a15 VARCHAR2
2243 , p5_a16 VARCHAR2
2244 , p5_a17 VARCHAR2
2245 , p5_a18 DATE
2246 , p5_a19 DATE
2247 , p5_a20 DATE
2248 , p5_a21 DATE
2249 , p5_a22 VARCHAR2
2250 , p5_a23 VARCHAR2
2251 , p5_a24 VARCHAR2
2252 , p5_a25 NUMBER
2253 , p5_a26 NUMBER
2254 , p5_a27 NUMBER
2255 , p5_a28 VARCHAR2
2256 , p5_a29 VARCHAR2
2257 , p5_a30 VARCHAR2
2258 , p5_a31 VARCHAR2
2259 , p5_a32 NUMBER
2260 , p5_a33 VARCHAR2
2261 , p5_a34 VARCHAR2
2262 , p5_a35 VARCHAR2
2263 , p5_a36 VARCHAR2
2264 , p5_a37 VARCHAR2
2265 , p5_a38 VARCHAR2
2266 , p5_a39 NUMBER
2267 , p5_a40 VARCHAR2
2268 , p5_a41 VARCHAR2
2269 , p5_a42 NUMBER
2270 , p5_a43 VARCHAR2
2271 , p5_a44 VARCHAR2
2272 , p5_a45 NUMBER
2273 , p5_a46 NUMBER
2274 , p5_a47 NUMBER
2275 , p5_a48 NUMBER
2276 , p5_a49 VARCHAR2
2277 , p5_a50 VARCHAR2
2278 , p5_a51 NUMBER
2279 , p5_a52 NUMBER
2280 , p5_a53 VARCHAR2
2281 , p5_a54 VARCHAR2
2282 , p5_a55 NUMBER
2283 , p5_a56 VARCHAR2
2284 , p5_a57 VARCHAR2
2285 , p5_a58 NUMBER
2286 , p5_a59 VARCHAR2
2287 , p5_a60 VARCHAR2
2288 , p5_a61 VARCHAR2
2289 , p5_a62 VARCHAR2
2290 , p5_a63 NUMBER
2291 , p5_a64 NUMBER
2292 , p5_a65 VARCHAR2
2293 , p5_a66 VARCHAR2
2294 , p5_a67 NUMBER
2295 , p5_a68 NUMBER
2296 , p5_a69 VARCHAR2
2297 , p5_a70 VARCHAR2
2298 , p5_a71 NUMBER
2299 , p5_a72 NUMBER
2300 , p5_a73 VARCHAR2
2301 , p5_a74 VARCHAR2
2302 , p5_a75 NUMBER
2303 , p5_a76 NUMBER
2304 , p5_a77 VARCHAR2
2305 , p5_a78 VARCHAR2
2306 , p5_a79 VARCHAR2
2307 , p5_a80 NUMBER
2308 , p5_a81 DATE
2309 , p5_a82 VARCHAR2
2310 , p5_a83 NUMBER
2311 , p5_a84 VARCHAR2
2312 , p5_a85 VARCHAR2
2313 , p5_a86 VARCHAR2
2314 , p5_a87 VARCHAR2
2315 , p5_a88 VARCHAR2
2316 , p5_a89 VARCHAR2
2317 , p5_a90 VARCHAR2
2318 , p5_a91 VARCHAR2
2319 , p5_a92 VARCHAR2
2320 , p5_a93 VARCHAR2
2321 , p5_a94 VARCHAR2
2322 , p5_a95 VARCHAR2
2323 , p5_a96 VARCHAR2
2324 , p5_a97 VARCHAR2
2325 , p5_a98 VARCHAR2
2326 , p5_a99 VARCHAR2
2327 , p5_a100 NUMBER
2328 , p5_a101 NUMBER
2329 , p5_a102 VARCHAR2
2330 , p5_a103 NUMBER
2331 , p5_a104 VARCHAR2
2332 , p6_a0 out nocopy NUMBER
2333 , p6_a1 out nocopy VARCHAR2
2334 , p6_a2 out nocopy VARCHAR2
2335 , p6_a3 out nocopy VARCHAR2
2336 , p6_a4 out nocopy VARCHAR2
2337 , p6_a5 out nocopy DATE
2338 , p6_a6 out nocopy DATE
2339 , p6_a7 out nocopy NUMBER
2340 , p6_a8 out nocopy VARCHAR2
2341 , p6_a9 out nocopy NUMBER
2342 , p6_a10 out nocopy NUMBER
2343 , p6_a11 out nocopy VARCHAR2
2344 , p6_a12 out nocopy VARCHAR2
2345 , p6_a13 out nocopy VARCHAR2
2346 , p6_a14 out nocopy VARCHAR2
2347 , p6_a15 out nocopy VARCHAR2
2348 , p6_a16 out nocopy VARCHAR2
2349 , p6_a17 out nocopy VARCHAR2
2350 , p6_a18 out nocopy DATE
2351 , p6_a19 out nocopy DATE
2352 , p6_a20 out nocopy DATE
2353 , p6_a21 out nocopy DATE
2354 , p6_a22 out nocopy VARCHAR2
2355 , p6_a23 out nocopy VARCHAR2
2356 , p6_a24 out nocopy VARCHAR2
2357 , p6_a25 out nocopy NUMBER
2358 , p6_a26 out nocopy NUMBER
2359 , p6_a27 out nocopy NUMBER
2360 , p6_a28 out nocopy VARCHAR2
2361 , p6_a29 out nocopy VARCHAR2
2362 , p6_a30 out nocopy VARCHAR2
2363 , p6_a31 out nocopy VARCHAR2
2364 , p6_a32 out nocopy NUMBER
2365 , p6_a33 out nocopy VARCHAR2
2366 , p6_a34 out nocopy VARCHAR2
2367 , p6_a35 out nocopy VARCHAR2
2368 , p6_a36 out nocopy VARCHAR2
2369 , p6_a37 out nocopy VARCHAR2
2370 , p6_a38 out nocopy VARCHAR2
2371 , p6_a39 out nocopy NUMBER
2372 , p6_a40 out nocopy VARCHAR2
2373 , p6_a41 out nocopy VARCHAR2
2374 , p6_a42 out nocopy NUMBER
2375 , p6_a43 out nocopy VARCHAR2
2376 , p6_a44 out nocopy VARCHAR2
2377 , p6_a45 out nocopy NUMBER
2378 , p6_a46 out nocopy NUMBER
2379 , p6_a47 out nocopy NUMBER
2380 , p6_a48 out nocopy NUMBER
2381 , p6_a49 out nocopy VARCHAR2
2382 , p6_a50 out nocopy VARCHAR2
2383 , p6_a51 out nocopy NUMBER
2384 , p6_a52 out nocopy NUMBER
2385 , p6_a53 out nocopy VARCHAR2
2386 , p6_a54 out nocopy VARCHAR2
2387 , p6_a55 out nocopy NUMBER
2388 , p6_a56 out nocopy VARCHAR2
2389 , p6_a57 out nocopy VARCHAR2
2390 , p6_a58 out nocopy NUMBER
2391 , p6_a59 out nocopy VARCHAR2
2392 , p6_a60 out nocopy VARCHAR2
2393 , p6_a61 out nocopy VARCHAR2
2394 , p6_a62 out nocopy VARCHAR2
2395 , p6_a63 out nocopy NUMBER
2396 , p6_a64 out nocopy NUMBER
2397 , p6_a65 out nocopy VARCHAR2
2398 , p6_a66 out nocopy VARCHAR2
2399 , p6_a67 out nocopy NUMBER
2400 , p6_a68 out nocopy NUMBER
2401 , p6_a69 out nocopy VARCHAR2
2402 , p6_a70 out nocopy VARCHAR2
2403 , p6_a71 out nocopy NUMBER
2404 , p6_a72 out nocopy NUMBER
2405 , p6_a73 out nocopy VARCHAR2
2406 , p6_a74 out nocopy VARCHAR2
2407 , p6_a75 out nocopy NUMBER
2408 , p6_a76 out nocopy NUMBER
2409 , p6_a77 out nocopy VARCHAR2
2410 , p6_a78 out nocopy VARCHAR2
2411 , p6_a79 out nocopy VARCHAR2
2412 , p6_a80 out nocopy NUMBER
2413 , p6_a81 out nocopy DATE
2414 , p6_a82 out nocopy VARCHAR2
2415 , p6_a83 out nocopy NUMBER
2416 , p6_a84 out nocopy VARCHAR2
2417 , p6_a85 out nocopy VARCHAR2
2418 , p6_a86 out nocopy VARCHAR2
2419 , p6_a87 out nocopy VARCHAR2
2420 , p6_a88 out nocopy VARCHAR2
2421 , p6_a89 out nocopy VARCHAR2
2422 , p6_a90 out nocopy VARCHAR2
2423 , p6_a91 out nocopy VARCHAR2
2424 , p6_a92 out nocopy VARCHAR2
2425 , p6_a93 out nocopy VARCHAR2
2426 , p6_a94 out nocopy VARCHAR2
2427 , p6_a95 out nocopy VARCHAR2
2428 , p6_a96 out nocopy VARCHAR2
2429 , p6_a97 out nocopy VARCHAR2
2430 , p6_a98 out nocopy VARCHAR2
2431 , p6_a99 out nocopy VARCHAR2
2432 , p6_a100 out nocopy NUMBER
2433 , p6_a101 out nocopy NUMBER
2434 , p6_a102 out nocopy VARCHAR2
2435 , p6_a103 out nocopy NUMBER
2436 , p6_a104 out nocopy VARCHAR2
2437 )
2438
2439 as
2440 ddp_durv_rec okl_deal_creat_pvt.deal_rec_type;
2441 ddx_durv_rec okl_deal_creat_pvt.deal_rec_type;
2442 ddindx binary_integer; indx binary_integer;
2443 begin
2444
2445 -- copy data to the local IN or IN-OUT args, if any
2446
2447
2448
2449
2450
2451 ddp_durv_rec.chr_id := p5_a0;
2452 ddp_durv_rec.chr_contract_number := p5_a1;
2453 ddp_durv_rec.chr_description := p5_a2;
2454 ddp_durv_rec.vers_version := p5_a3;
2455 ddp_durv_rec.chr_sts_code := p5_a4;
2456 ddp_durv_rec.chr_start_date := p5_a5;
2457 ddp_durv_rec.chr_end_date := p5_a6;
2458 ddp_durv_rec.khr_term_duration := p5_a7;
2459 ddp_durv_rec.chr_cust_po_number := p5_a8;
2460 ddp_durv_rec.chr_inv_organization_id := p5_a9;
2461 ddp_durv_rec.chr_authoring_org_id := p5_a10;
2462 ddp_durv_rec.khr_generate_accrual_yn := p5_a11;
2463 ddp_durv_rec.khr_syndicatable_yn := p5_a12;
2464 ddp_durv_rec.khr_prefunding_eligible_yn := p5_a13;
2465 ddp_durv_rec.khr_revolving_credit_yn := p5_a14;
2466 ddp_durv_rec.khr_converted_account_yn := p5_a15;
2467 ddp_durv_rec.khr_credit_act_yn := p5_a16;
2468 ddp_durv_rec.chr_template_yn := p5_a17;
2469 ddp_durv_rec.chr_date_signed := p5_a18;
2470 ddp_durv_rec.khr_date_deal_transferred := p5_a19;
2471 ddp_durv_rec.khr_accepted_date := p5_a20;
2472 ddp_durv_rec.khr_expected_delivery_date := p5_a21;
2473 ddp_durv_rec.khr_amd_code := p5_a22;
2474 ddp_durv_rec.khr_deal_type := p5_a23;
2475 ddp_durv_rec.mla_contract_number := p5_a24;
2476 ddp_durv_rec.mla_gvr_chr_id_referred := p5_a25;
2477 ddp_durv_rec.mla_gvr_id := p5_a26;
2478 ddp_durv_rec.cust_id := p5_a27;
2479 ddp_durv_rec.cust_object1_id1 := p5_a28;
2480 ddp_durv_rec.cust_object1_id2 := p5_a29;
2481 ddp_durv_rec.cust_jtot_object1_code := p5_a30;
2482 ddp_durv_rec.cust_name := p5_a31;
2483 ddp_durv_rec.lessor_id := p5_a32;
2484 ddp_durv_rec.lessor_object1_id1 := p5_a33;
2485 ddp_durv_rec.lessor_object1_id2 := p5_a34;
2486 ddp_durv_rec.lessor_jtot_object1_code := p5_a35;
2487 ddp_durv_rec.lessor_name := p5_a36;
2488 ddp_durv_rec.chr_currency_code := p5_a37;
2489 ddp_durv_rec.currency_name := p5_a38;
2490 ddp_durv_rec.khr_pdt_id := p5_a39;
2491 ddp_durv_rec.product_name := p5_a40;
2492 ddp_durv_rec.product_description := p5_a41;
2493 ddp_durv_rec.khr_khr_id := p5_a42;
2494 ddp_durv_rec.program_contract_number := p5_a43;
2495 ddp_durv_rec.cl_contract_number := p5_a44;
2496 ddp_durv_rec.cl_gvr_chr_id_referred := p5_a45;
2497 ddp_durv_rec.cl_gvr_id := p5_a46;
2498 ddp_durv_rec.rg_larles_id := p5_a47;
2499 ddp_durv_rec.r_larles_id := p5_a48;
2500 ddp_durv_rec.r_larles_rule_information1 := p5_a49;
2501 ddp_durv_rec.col_larles_form_left_prompt := p5_a50;
2502 ddp_durv_rec.rg_larebl_id := p5_a51;
2503 ddp_durv_rec.r_larebl_id := p5_a52;
2504 ddp_durv_rec.r_larebl_rule_information1 := p5_a53;
2505 ddp_durv_rec.col_larebl_form_left_prompt := p5_a54;
2506 ddp_durv_rec.chr_cust_acct_id := p5_a55;
2507 ddp_durv_rec.customer_account := p5_a56;
2508 ddp_durv_rec.cust_site_description := p5_a57;
2509 ddp_durv_rec.contact_id := p5_a58;
2510 ddp_durv_rec.contact_object1_id1 := p5_a59;
2511 ddp_durv_rec.contact_object1_id2 := p5_a60;
2512 ddp_durv_rec.contact_jtot_object1_code := p5_a61;
2513 ddp_durv_rec.contact_name := p5_a62;
2514 ddp_durv_rec.rg_latown_id := p5_a63;
2515 ddp_durv_rec.r_latown_id := p5_a64;
2516 ddp_durv_rec.r_latown_rule_information1 := p5_a65;
2517 ddp_durv_rec.col_latown_form_left_prompt := p5_a66;
2518 ddp_durv_rec.rg_lanntf_id := p5_a67;
2519 ddp_durv_rec.r_lanntf_id := p5_a68;
2520 ddp_durv_rec.r_lanntf_rule_information1 := p5_a69;
2521 ddp_durv_rec.col_lanntf_form_left_prompt := p5_a70;
2522 ddp_durv_rec.rg_lacpln_id := p5_a71;
2523 ddp_durv_rec.r_lacpln_id := p5_a72;
2524 ddp_durv_rec.r_lacpln_rule_information1 := p5_a73;
2525 ddp_durv_rec.col_lacpln_form_left_prompt := p5_a74;
2526 ddp_durv_rec.rg_lapact_id := p5_a75;
2527 ddp_durv_rec.r_lapact_id := p5_a76;
2528 ddp_durv_rec.r_lapact_rule_information1 := p5_a77;
2529 ddp_durv_rec.col_lapact_form_left_prompt := p5_a78;
2530 ddp_durv_rec.khr_currency_conv_type := p5_a79;
2531 ddp_durv_rec.khr_currency_conv_rate := p5_a80;
2532 ddp_durv_rec.khr_currency_conv_date := p5_a81;
2533 ddp_durv_rec.khr_assignable_yn := p5_a82;
2534 ddp_durv_rec.legal_entity_id := p5_a83;
2535 ddp_durv_rec.attribute_category := p5_a84;
2536 ddp_durv_rec.attribute1 := p5_a85;
2537 ddp_durv_rec.attribute2 := p5_a86;
2538 ddp_durv_rec.attribute3 := p5_a87;
2539 ddp_durv_rec.attribute4 := p5_a88;
2540 ddp_durv_rec.attribute5 := p5_a89;
2541 ddp_durv_rec.attribute6 := p5_a90;
2542 ddp_durv_rec.attribute7 := p5_a91;
2543 ddp_durv_rec.attribute8 := p5_a92;
2544 ddp_durv_rec.attribute9 := p5_a93;
2545 ddp_durv_rec.attribute10 := p5_a94;
2546 ddp_durv_rec.attribute11 := p5_a95;
2547 ddp_durv_rec.attribute12 := p5_a96;
2548 ddp_durv_rec.attribute13 := p5_a97;
2549 ddp_durv_rec.attribute14 := p5_a98;
2550 ddp_durv_rec.attribute15 := p5_a99;
2551 ddp_durv_rec.labill_labacc_billto := p5_a100;
2552 ddp_durv_rec.labill_labacc_rgp_id := p5_a101;
2553 ddp_durv_rec.labill_labacc_rgd_code := p5_a102;
2554 ddp_durv_rec.labill_labacc_rul_id := p5_a103;
2555 ddp_durv_rec.labill_labacc_rul_info_cat := p5_a104;
2556
2557
2558 -- here's the delegated call to the old PL/SQL routine
2559 okl_deal_creat_pvt.load_deal(p_api_version,
2560 p_init_msg_list,
2561 x_return_status,
2562 x_msg_count,
2563 x_msg_data,
2564 ddp_durv_rec,
2565 ddx_durv_rec);
2566
2567 -- copy data back from the local variables to OUT or IN-OUT args, if any
2568
2569
2570
2571
2572
2573
2574 p6_a0 := ddx_durv_rec.chr_id;
2575 p6_a1 := ddx_durv_rec.chr_contract_number;
2576 p6_a2 := ddx_durv_rec.chr_description;
2577 p6_a3 := ddx_durv_rec.vers_version;
2578 p6_a4 := ddx_durv_rec.chr_sts_code;
2579 p6_a5 := ddx_durv_rec.chr_start_date;
2580 p6_a6 := ddx_durv_rec.chr_end_date;
2581 p6_a7 := ddx_durv_rec.khr_term_duration;
2582 p6_a8 := ddx_durv_rec.chr_cust_po_number;
2583 p6_a9 := ddx_durv_rec.chr_inv_organization_id;
2584 p6_a10 := ddx_durv_rec.chr_authoring_org_id;
2585 p6_a11 := ddx_durv_rec.khr_generate_accrual_yn;
2586 p6_a12 := ddx_durv_rec.khr_syndicatable_yn;
2587 p6_a13 := ddx_durv_rec.khr_prefunding_eligible_yn;
2588 p6_a14 := ddx_durv_rec.khr_revolving_credit_yn;
2589 p6_a15 := ddx_durv_rec.khr_converted_account_yn;
2590 p6_a16 := ddx_durv_rec.khr_credit_act_yn;
2591 p6_a17 := ddx_durv_rec.chr_template_yn;
2592 p6_a18 := ddx_durv_rec.chr_date_signed;
2593 p6_a19 := ddx_durv_rec.khr_date_deal_transferred;
2594 p6_a20 := ddx_durv_rec.khr_accepted_date;
2595 p6_a21 := ddx_durv_rec.khr_expected_delivery_date;
2596 p6_a22 := ddx_durv_rec.khr_amd_code;
2597 p6_a23 := ddx_durv_rec.khr_deal_type;
2598 p6_a24 := ddx_durv_rec.mla_contract_number;
2599 p6_a25 := ddx_durv_rec.mla_gvr_chr_id_referred;
2600 p6_a26 := ddx_durv_rec.mla_gvr_id;
2601 p6_a27 := ddx_durv_rec.cust_id;
2602 p6_a28 := ddx_durv_rec.cust_object1_id1;
2603 p6_a29 := ddx_durv_rec.cust_object1_id2;
2604 p6_a30 := ddx_durv_rec.cust_jtot_object1_code;
2605 p6_a31 := ddx_durv_rec.cust_name;
2606 p6_a32 := ddx_durv_rec.lessor_id;
2607 p6_a33 := ddx_durv_rec.lessor_object1_id1;
2608 p6_a34 := ddx_durv_rec.lessor_object1_id2;
2609 p6_a35 := ddx_durv_rec.lessor_jtot_object1_code;
2610 p6_a36 := ddx_durv_rec.lessor_name;
2611 p6_a37 := ddx_durv_rec.chr_currency_code;
2612 p6_a38 := ddx_durv_rec.currency_name;
2613 p6_a39 := ddx_durv_rec.khr_pdt_id;
2614 p6_a40 := ddx_durv_rec.product_name;
2615 p6_a41 := ddx_durv_rec.product_description;
2616 p6_a42 := ddx_durv_rec.khr_khr_id;
2617 p6_a43 := ddx_durv_rec.program_contract_number;
2618 p6_a44 := ddx_durv_rec.cl_contract_number;
2619 p6_a45 := ddx_durv_rec.cl_gvr_chr_id_referred;
2620 p6_a46 := ddx_durv_rec.cl_gvr_id;
2621 p6_a47 := ddx_durv_rec.rg_larles_id;
2622 p6_a48 := ddx_durv_rec.r_larles_id;
2623 p6_a49 := ddx_durv_rec.r_larles_rule_information1;
2624 p6_a50 := ddx_durv_rec.col_larles_form_left_prompt;
2625 p6_a51 := ddx_durv_rec.rg_larebl_id;
2626 p6_a52 := ddx_durv_rec.r_larebl_id;
2627 p6_a53 := ddx_durv_rec.r_larebl_rule_information1;
2628 p6_a54 := ddx_durv_rec.col_larebl_form_left_prompt;
2629 p6_a55 := ddx_durv_rec.chr_cust_acct_id;
2630 p6_a56 := ddx_durv_rec.customer_account;
2631 p6_a57 := ddx_durv_rec.cust_site_description;
2632 p6_a58 := ddx_durv_rec.contact_id;
2633 p6_a59 := ddx_durv_rec.contact_object1_id1;
2634 p6_a60 := ddx_durv_rec.contact_object1_id2;
2635 p6_a61 := ddx_durv_rec.contact_jtot_object1_code;
2636 p6_a62 := ddx_durv_rec.contact_name;
2637 p6_a63 := ddx_durv_rec.rg_latown_id;
2638 p6_a64 := ddx_durv_rec.r_latown_id;
2639 p6_a65 := ddx_durv_rec.r_latown_rule_information1;
2640 p6_a66 := ddx_durv_rec.col_latown_form_left_prompt;
2641 p6_a67 := ddx_durv_rec.rg_lanntf_id;
2642 p6_a68 := ddx_durv_rec.r_lanntf_id;
2643 p6_a69 := ddx_durv_rec.r_lanntf_rule_information1;
2644 p6_a70 := ddx_durv_rec.col_lanntf_form_left_prompt;
2645 p6_a71 := ddx_durv_rec.rg_lacpln_id;
2646 p6_a72 := ddx_durv_rec.r_lacpln_id;
2647 p6_a73 := ddx_durv_rec.r_lacpln_rule_information1;
2648 p6_a74 := ddx_durv_rec.col_lacpln_form_left_prompt;
2649 p6_a75 := ddx_durv_rec.rg_lapact_id;
2650 p6_a76 := ddx_durv_rec.r_lapact_id;
2651 p6_a77 := ddx_durv_rec.r_lapact_rule_information1;
2652 p6_a78 := ddx_durv_rec.col_lapact_form_left_prompt;
2653 p6_a79 := ddx_durv_rec.khr_currency_conv_type;
2654 p6_a80 := ddx_durv_rec.khr_currency_conv_rate;
2655 p6_a81 := ddx_durv_rec.khr_currency_conv_date;
2656 p6_a82 := ddx_durv_rec.khr_assignable_yn;
2657 p6_a83 := ddx_durv_rec.legal_entity_id;
2658 p6_a84 := ddx_durv_rec.attribute_category;
2659 p6_a85 := ddx_durv_rec.attribute1;
2660 p6_a86 := ddx_durv_rec.attribute2;
2661 p6_a87 := ddx_durv_rec.attribute3;
2662 p6_a88 := ddx_durv_rec.attribute4;
2663 p6_a89 := ddx_durv_rec.attribute5;
2664 p6_a90 := ddx_durv_rec.attribute6;
2665 p6_a91 := ddx_durv_rec.attribute7;
2666 p6_a92 := ddx_durv_rec.attribute8;
2667 p6_a93 := ddx_durv_rec.attribute9;
2668 p6_a94 := ddx_durv_rec.attribute10;
2669 p6_a95 := ddx_durv_rec.attribute11;
2670 p6_a96 := ddx_durv_rec.attribute12;
2671 p6_a97 := ddx_durv_rec.attribute13;
2672 p6_a98 := ddx_durv_rec.attribute14;
2673 p6_a99 := ddx_durv_rec.attribute15;
2674 p6_a100 := ddx_durv_rec.labill_labacc_billto;
2675 p6_a101 := ddx_durv_rec.labill_labacc_rgp_id;
2676 p6_a102 := ddx_durv_rec.labill_labacc_rgd_code;
2677 p6_a103 := ddx_durv_rec.labill_labacc_rul_id;
2678 p6_a104 := ddx_durv_rec.labill_labacc_rul_info_cat;
2679 end;
2680
2681 procedure create_party(p_api_version NUMBER
2682 , p_init_msg_list VARCHAR2
2683 , x_return_status out nocopy VARCHAR2
2684 , x_msg_count out nocopy NUMBER
2685 , x_msg_data out nocopy VARCHAR2
2686 , p5_a0 NUMBER
2687 , p5_a1 VARCHAR2
2688 , p5_a2 VARCHAR2
2689 , p5_a3 VARCHAR2
2690 , p5_a4 VARCHAR2
2691 , p5_a5 VARCHAR2
2692 , p5_a6 VARCHAR2
2693 , p5_a7 VARCHAR2
2694 , p5_a8 VARCHAR2
2695 , p5_a9 VARCHAR2
2696 , p5_a10 VARCHAR2
2697 , p5_a11 VARCHAR2
2698 , p5_a12 VARCHAR2
2699 , p5_a13 VARCHAR2
2700 , p5_a14 VARCHAR2
2701 , p5_a15 VARCHAR2
2702 , p5_a16 VARCHAR2
2703 , p5_a17 VARCHAR2
2704 , p5_a18 VARCHAR2
2705 , p5_a19 VARCHAR2
2706 , p5_a20 VARCHAR2
2707 , p5_a21 NUMBER
2708 , p5_a22 NUMBER
2709 , p5_a23 NUMBER
2710 , p5_a24 VARCHAR2
2711 , p5_a25 VARCHAR2
2712 , p6_a0 out nocopy NUMBER
2713 , p6_a1 out nocopy VARCHAR2
2714 , p6_a2 out nocopy VARCHAR2
2715 , p6_a3 out nocopy VARCHAR2
2716 , p6_a4 out nocopy VARCHAR2
2717 , p6_a5 out nocopy VARCHAR2
2718 , p6_a6 out nocopy VARCHAR2
2719 , p6_a7 out nocopy VARCHAR2
2720 , p6_a8 out nocopy VARCHAR2
2721 , p6_a9 out nocopy VARCHAR2
2722 , p6_a10 out nocopy VARCHAR2
2723 , p6_a11 out nocopy VARCHAR2
2724 , p6_a12 out nocopy VARCHAR2
2725 , p6_a13 out nocopy VARCHAR2
2726 , p6_a14 out nocopy VARCHAR2
2727 , p6_a15 out nocopy VARCHAR2
2728 , p6_a16 out nocopy VARCHAR2
2729 , p6_a17 out nocopy VARCHAR2
2730 , p6_a18 out nocopy VARCHAR2
2731 , p6_a19 out nocopy VARCHAR2
2732 , p6_a20 out nocopy VARCHAR2
2733 , p6_a21 out nocopy NUMBER
2734 , p6_a22 out nocopy NUMBER
2735 , p6_a23 out nocopy NUMBER
2736 , p6_a24 out nocopy VARCHAR2
2737 , p6_a25 out nocopy VARCHAR2
2738 )
2739
2740 as
2741 ddp_kpl_rec okl_deal_creat_pvt.party_rec_type;
2742 ddx_kpl_rec okl_deal_creat_pvt.party_rec_type;
2743 ddindx binary_integer; indx binary_integer;
2744 begin
2745
2746 -- copy data to the local IN or IN-OUT args, if any
2747
2748
2749
2750
2751
2752 ddp_kpl_rec.id := p5_a0;
2753 ddp_kpl_rec.attribute_category := p5_a1;
2754 ddp_kpl_rec.attribute1 := p5_a2;
2755 ddp_kpl_rec.attribute2 := p5_a3;
2756 ddp_kpl_rec.attribute3 := p5_a4;
2757 ddp_kpl_rec.attribute4 := p5_a5;
2758 ddp_kpl_rec.attribute5 := p5_a6;
2759 ddp_kpl_rec.attribute6 := p5_a7;
2760 ddp_kpl_rec.attribute7 := p5_a8;
2761 ddp_kpl_rec.attribute8 := p5_a9;
2762 ddp_kpl_rec.attribute9 := p5_a10;
2763 ddp_kpl_rec.attribute10 := p5_a11;
2764 ddp_kpl_rec.attribute11 := p5_a12;
2765 ddp_kpl_rec.attribute12 := p5_a13;
2766 ddp_kpl_rec.attribute13 := p5_a14;
2767 ddp_kpl_rec.attribute14 := p5_a15;
2768 ddp_kpl_rec.attribute15 := p5_a16;
2769 ddp_kpl_rec.object1_id1 := p5_a17;
2770 ddp_kpl_rec.object1_id2 := p5_a18;
2771 ddp_kpl_rec.jtot_object1_code := p5_a19;
2772 ddp_kpl_rec.rle_code := p5_a20;
2773 ddp_kpl_rec.chr_id := p5_a21;
2774 ddp_kpl_rec.dnz_chr_id := p5_a22;
2775 ddp_kpl_rec.cle_id := p5_a23;
2776 ddp_kpl_rec.cognomen := p5_a24;
2777 ddp_kpl_rec.alias := p5_a25;
2778
2779
2780 -- here's the delegated call to the old PL/SQL routine
2781 okl_deal_creat_pvt.create_party(p_api_version,
2782 p_init_msg_list,
2783 x_return_status,
2784 x_msg_count,
2785 x_msg_data,
2786 ddp_kpl_rec,
2787 ddx_kpl_rec);
2788
2789 -- copy data back from the local variables to OUT or IN-OUT args, if any
2790
2791
2792
2793
2794
2795
2796 p6_a0 := ddx_kpl_rec.id;
2797 p6_a1 := ddx_kpl_rec.attribute_category;
2798 p6_a2 := ddx_kpl_rec.attribute1;
2799 p6_a3 := ddx_kpl_rec.attribute2;
2800 p6_a4 := ddx_kpl_rec.attribute3;
2801 p6_a5 := ddx_kpl_rec.attribute4;
2802 p6_a6 := ddx_kpl_rec.attribute5;
2803 p6_a7 := ddx_kpl_rec.attribute6;
2804 p6_a8 := ddx_kpl_rec.attribute7;
2805 p6_a9 := ddx_kpl_rec.attribute8;
2806 p6_a10 := ddx_kpl_rec.attribute9;
2807 p6_a11 := ddx_kpl_rec.attribute10;
2808 p6_a12 := ddx_kpl_rec.attribute11;
2809 p6_a13 := ddx_kpl_rec.attribute12;
2810 p6_a14 := ddx_kpl_rec.attribute13;
2811 p6_a15 := ddx_kpl_rec.attribute14;
2812 p6_a16 := ddx_kpl_rec.attribute15;
2813 p6_a17 := ddx_kpl_rec.object1_id1;
2814 p6_a18 := ddx_kpl_rec.object1_id2;
2815 p6_a19 := ddx_kpl_rec.jtot_object1_code;
2816 p6_a20 := ddx_kpl_rec.rle_code;
2817 p6_a21 := ddx_kpl_rec.chr_id;
2818 p6_a22 := ddx_kpl_rec.dnz_chr_id;
2819 p6_a23 := ddx_kpl_rec.cle_id;
2820 p6_a24 := ddx_kpl_rec.cognomen;
2821 p6_a25 := ddx_kpl_rec.alias;
2822 end;
2823
2824 procedure update_party(p_api_version NUMBER
2825 , p_init_msg_list VARCHAR2
2826 , x_return_status out nocopy VARCHAR2
2827 , x_msg_count out nocopy NUMBER
2828 , x_msg_data out nocopy VARCHAR2
2829 , p5_a0 NUMBER
2830 , p5_a1 VARCHAR2
2831 , p5_a2 VARCHAR2
2832 , p5_a3 VARCHAR2
2833 , p5_a4 VARCHAR2
2834 , p5_a5 VARCHAR2
2835 , p5_a6 VARCHAR2
2836 , p5_a7 VARCHAR2
2837 , p5_a8 VARCHAR2
2838 , p5_a9 VARCHAR2
2839 , p5_a10 VARCHAR2
2840 , p5_a11 VARCHAR2
2841 , p5_a12 VARCHAR2
2842 , p5_a13 VARCHAR2
2843 , p5_a14 VARCHAR2
2844 , p5_a15 VARCHAR2
2845 , p5_a16 VARCHAR2
2846 , p5_a17 VARCHAR2
2847 , p5_a18 VARCHAR2
2848 , p5_a19 VARCHAR2
2849 , p5_a20 VARCHAR2
2850 , p5_a21 NUMBER
2851 , p5_a22 NUMBER
2852 , p5_a23 NUMBER
2853 , p5_a24 VARCHAR2
2854 , p5_a25 VARCHAR2
2855 , p6_a0 out nocopy NUMBER
2856 , p6_a1 out nocopy VARCHAR2
2857 , p6_a2 out nocopy VARCHAR2
2858 , p6_a3 out nocopy VARCHAR2
2859 , p6_a4 out nocopy VARCHAR2
2860 , p6_a5 out nocopy VARCHAR2
2861 , p6_a6 out nocopy VARCHAR2
2862 , p6_a7 out nocopy VARCHAR2
2863 , p6_a8 out nocopy VARCHAR2
2864 , p6_a9 out nocopy VARCHAR2
2865 , p6_a10 out nocopy VARCHAR2
2866 , p6_a11 out nocopy VARCHAR2
2867 , p6_a12 out nocopy VARCHAR2
2868 , p6_a13 out nocopy VARCHAR2
2869 , p6_a14 out nocopy VARCHAR2
2870 , p6_a15 out nocopy VARCHAR2
2871 , p6_a16 out nocopy VARCHAR2
2872 , p6_a17 out nocopy VARCHAR2
2873 , p6_a18 out nocopy VARCHAR2
2874 , p6_a19 out nocopy VARCHAR2
2875 , p6_a20 out nocopy VARCHAR2
2876 , p6_a21 out nocopy NUMBER
2877 , p6_a22 out nocopy NUMBER
2878 , p6_a23 out nocopy NUMBER
2879 , p6_a24 out nocopy VARCHAR2
2880 , p6_a25 out nocopy VARCHAR2
2881 )
2882
2883 as
2884 ddp_kpl_rec okl_deal_creat_pvt.party_rec_type;
2885 ddx_kpl_rec okl_deal_creat_pvt.party_rec_type;
2886 ddindx binary_integer; indx binary_integer;
2887 begin
2888
2889 -- copy data to the local IN or IN-OUT args, if any
2890
2891
2892
2893
2894
2895 ddp_kpl_rec.id := p5_a0;
2896 ddp_kpl_rec.attribute_category := p5_a1;
2897 ddp_kpl_rec.attribute1 := p5_a2;
2898 ddp_kpl_rec.attribute2 := p5_a3;
2899 ddp_kpl_rec.attribute3 := p5_a4;
2900 ddp_kpl_rec.attribute4 := p5_a5;
2901 ddp_kpl_rec.attribute5 := p5_a6;
2902 ddp_kpl_rec.attribute6 := p5_a7;
2903 ddp_kpl_rec.attribute7 := p5_a8;
2904 ddp_kpl_rec.attribute8 := p5_a9;
2905 ddp_kpl_rec.attribute9 := p5_a10;
2906 ddp_kpl_rec.attribute10 := p5_a11;
2907 ddp_kpl_rec.attribute11 := p5_a12;
2908 ddp_kpl_rec.attribute12 := p5_a13;
2909 ddp_kpl_rec.attribute13 := p5_a14;
2910 ddp_kpl_rec.attribute14 := p5_a15;
2911 ddp_kpl_rec.attribute15 := p5_a16;
2912 ddp_kpl_rec.object1_id1 := p5_a17;
2913 ddp_kpl_rec.object1_id2 := p5_a18;
2914 ddp_kpl_rec.jtot_object1_code := p5_a19;
2915 ddp_kpl_rec.rle_code := p5_a20;
2916 ddp_kpl_rec.chr_id := p5_a21;
2917 ddp_kpl_rec.dnz_chr_id := p5_a22;
2918 ddp_kpl_rec.cle_id := p5_a23;
2919 ddp_kpl_rec.cognomen := p5_a24;
2920 ddp_kpl_rec.alias := p5_a25;
2921
2922
2923 -- here's the delegated call to the old PL/SQL routine
2924 okl_deal_creat_pvt.update_party(p_api_version,
2925 p_init_msg_list,
2926 x_return_status,
2927 x_msg_count,
2928 x_msg_data,
2929 ddp_kpl_rec,
2930 ddx_kpl_rec);
2931
2932 -- copy data back from the local variables to OUT or IN-OUT args, if any
2933
2934
2935
2936
2937
2938
2939 p6_a0 := ddx_kpl_rec.id;
2940 p6_a1 := ddx_kpl_rec.attribute_category;
2941 p6_a2 := ddx_kpl_rec.attribute1;
2942 p6_a3 := ddx_kpl_rec.attribute2;
2943 p6_a4 := ddx_kpl_rec.attribute3;
2944 p6_a5 := ddx_kpl_rec.attribute4;
2945 p6_a6 := ddx_kpl_rec.attribute5;
2946 p6_a7 := ddx_kpl_rec.attribute6;
2947 p6_a8 := ddx_kpl_rec.attribute7;
2948 p6_a9 := ddx_kpl_rec.attribute8;
2949 p6_a10 := ddx_kpl_rec.attribute9;
2950 p6_a11 := ddx_kpl_rec.attribute10;
2951 p6_a12 := ddx_kpl_rec.attribute11;
2952 p6_a13 := ddx_kpl_rec.attribute12;
2953 p6_a14 := ddx_kpl_rec.attribute13;
2954 p6_a15 := ddx_kpl_rec.attribute14;
2955 p6_a16 := ddx_kpl_rec.attribute15;
2956 p6_a17 := ddx_kpl_rec.object1_id1;
2957 p6_a18 := ddx_kpl_rec.object1_id2;
2958 p6_a19 := ddx_kpl_rec.jtot_object1_code;
2959 p6_a20 := ddx_kpl_rec.rle_code;
2960 p6_a21 := ddx_kpl_rec.chr_id;
2961 p6_a22 := ddx_kpl_rec.dnz_chr_id;
2962 p6_a23 := ddx_kpl_rec.cle_id;
2963 p6_a24 := ddx_kpl_rec.cognomen;
2964 p6_a25 := ddx_kpl_rec.alias;
2965 end;
2966
2967 procedure load_deal(p_api_version NUMBER
2968 , p_init_msg_list VARCHAR2
2969 , x_return_status out nocopy VARCHAR2
2970 , x_msg_count out nocopy NUMBER
2971 , x_msg_data out nocopy VARCHAR2
2972 , p_chr_id NUMBER
2973 , p6_a0 out nocopy VARCHAR2
2974 , p6_a1 out nocopy VARCHAR2
2975 , p6_a2 out nocopy VARCHAR2
2976 , p6_a3 out nocopy NUMBER
2977 , p6_a4 out nocopy VARCHAR2
2978 , p6_a5 out nocopy VARCHAR2
2979 , p6_a6 out nocopy VARCHAR2
2980 , p6_a7 out nocopy VARCHAR2
2981 , p6_a8 out nocopy VARCHAR2
2982 , p6_a9 out nocopy VARCHAR2
2983 , p6_a10 out nocopy VARCHAR2
2984 , p6_a11 out nocopy VARCHAR2
2985 , p6_a12 out nocopy VARCHAR2
2986 , p6_a13 out nocopy VARCHAR2
2987 , p6_a14 out nocopy VARCHAR2
2988 , p6_a15 out nocopy VARCHAR2
2989 , p6_a16 out nocopy VARCHAR2
2990 , p6_a17 out nocopy VARCHAR2
2991 , p6_a18 out nocopy VARCHAR2
2992 , p6_a19 out nocopy VARCHAR2
2993 , p6_a20 out nocopy VARCHAR2
2994 , p6_a21 out nocopy VARCHAR2
2995 , p6_a22 out nocopy VARCHAR2
2996 , p6_a23 out nocopy VARCHAR2
2997 , p6_a24 out nocopy VARCHAR2
2998 , p6_a25 out nocopy VARCHAR2
2999 , p6_a26 out nocopy VARCHAR2
3000 , p6_a27 out nocopy VARCHAR2
3001 , p6_a28 out nocopy VARCHAR2
3002 , p6_a29 out nocopy NUMBER
3003 , p6_a30 out nocopy VARCHAR2
3004 , p6_a31 out nocopy VARCHAR2
3005 , p6_a32 out nocopy VARCHAR2
3006 , p6_a33 out nocopy VARCHAR2
3007 , p6_a34 out nocopy VARCHAR2
3008 , p6_a35 out nocopy VARCHAR2
3009 , p6_a36 out nocopy VARCHAR2
3010 , p6_a37 out nocopy VARCHAR2
3011 , p6_a38 out nocopy NUMBER
3012 , p6_a39 out nocopy VARCHAR2
3013 , p6_a40 out nocopy VARCHAR2
3014 , p6_a41 out nocopy VARCHAR2
3015 , p6_a42 out nocopy VARCHAR2
3016 , p6_a43 out nocopy VARCHAR2
3017 , p6_a44 out nocopy VARCHAR2
3018 , p6_a45 out nocopy VARCHAR2
3019 , p6_a46 out nocopy VARCHAR2
3020 , p6_a47 out nocopy VARCHAR2
3021 , p6_a48 out nocopy VARCHAR2
3022 , p6_a49 out nocopy VARCHAR2
3023 , p6_a50 out nocopy VARCHAR2
3024 , p6_a51 out nocopy VARCHAR2
3025 , p6_a52 out nocopy VARCHAR2
3026 , p6_a53 out nocopy VARCHAR2
3027 , p6_a54 out nocopy VARCHAR2
3028 , p6_a55 out nocopy VARCHAR2
3029 , p6_a56 out nocopy VARCHAR2
3030 , p6_a57 out nocopy VARCHAR2
3031 , p6_a58 out nocopy VARCHAR2
3032 , p6_a59 out nocopy VARCHAR2
3033 , p6_a60 out nocopy NUMBER
3034 , p6_a61 out nocopy VARCHAR2
3035 , p6_a62 out nocopy VARCHAR2
3036 , p6_a63 out nocopy VARCHAR2
3037 , p6_a64 out nocopy VARCHAR2
3038 , p6_a65 out nocopy VARCHAR2
3039 , p6_a66 out nocopy VARCHAR2
3040 , p6_a67 out nocopy VARCHAR2
3041 , p6_a68 out nocopy VARCHAR2
3042 , p6_a69 out nocopy VARCHAR2
3043 , p6_a70 out nocopy VARCHAR2
3044 , p6_a71 out nocopy VARCHAR2
3045 , p6_a72 out nocopy VARCHAR2
3046 , p6_a73 out nocopy DATE
3047 , p6_a74 out nocopy VARCHAR2
3048 , p6_a75 out nocopy VARCHAR2
3049 , p6_a76 out nocopy VARCHAR2
3050 , p6_a77 out nocopy VARCHAR2
3051 , p6_a78 out nocopy VARCHAR2
3052 , p6_a79 out nocopy VARCHAR2
3053 , p6_a80 out nocopy VARCHAR2
3054 , p6_a81 out nocopy NUMBER
3055 , p6_a82 out nocopy VARCHAR2
3056 , p6_a83 out nocopy NUMBER
3057 , p6_a84 out nocopy NUMBER
3058 , p6_a85 out nocopy VARCHAR2
3059 , p6_a86 out nocopy VARCHAR2
3060 , p6_a87 out nocopy VARCHAR2
3061 , p6_a88 out nocopy VARCHAR2
3062 , p6_a89 out nocopy VARCHAR2
3063 , p6_a90 out nocopy VARCHAR2
3064 , p6_a91 out nocopy VARCHAR2
3065 , p6_a92 out nocopy VARCHAR2
3066 , p6_a93 out nocopy VARCHAR2
3067 , p6_a94 out nocopy VARCHAR2
3068 , p6_a95 out nocopy VARCHAR2
3069 , p6_a96 out nocopy VARCHAR2
3070 , p6_a97 out nocopy VARCHAR2
3071 , p6_a98 out nocopy VARCHAR2
3072 , p6_a99 out nocopy VARCHAR2
3073 , p6_a100 out nocopy VARCHAR2
3074 , p6_a101 out nocopy VARCHAR2
3075 , p6_a102 out nocopy VARCHAR2
3076 , p6_a103 out nocopy VARCHAR2
3077 , p6_a104 out nocopy VARCHAR2
3078 , p6_a105 out nocopy VARCHAR2
3079 , p6_a106 out nocopy NUMBER
3080 , p6_a107 out nocopy VARCHAR2
3081 , p6_a108 out nocopy VARCHAR2
3082 , p6_a109 out nocopy VARCHAR2
3083 , p6_a110 out nocopy VARCHAR2
3084 , p6_a111 out nocopy VARCHAR2
3085 , p6_a112 out nocopy VARCHAR2
3086 , p6_a113 out nocopy VARCHAR2
3087 , p6_a114 out nocopy VARCHAR2
3088 , p6_a115 out nocopy NUMBER
3089 )
3090
3091 as
3092 ddx_deal_values_rec okl_deal_creat_pvt.deal_values_rec;
3093 ddindx binary_integer; indx binary_integer;
3094 begin
3095
3096 -- copy data to the local IN or IN-OUT args, if any
3097
3098
3099
3100
3101
3102
3103
3104 -- here's the delegated call to the old PL/SQL routine
3105 okl_deal_creat_pvt.load_deal(p_api_version,
3106 p_init_msg_list,
3107 x_return_status,
3108 x_msg_count,
3109 x_msg_data,
3110 p_chr_id,
3111 ddx_deal_values_rec);
3112
3113 -- copy data back from the local variables to OUT or IN-OUT args, if any
3114
3115
3116
3117
3118
3119
3120 p6_a0 := ddx_deal_values_rec.acceptance_method_meaning;
3121 p6_a1 := ddx_deal_values_rec.assignable_meaning;
3122 p6_a2 := ddx_deal_values_rec.bill_to_address_desc;
3123 p6_a3 := ddx_deal_values_rec.bill_to_site_use_id;
3124 p6_a4 := ddx_deal_values_rec.book_class_meaning;
3125 p6_a5 := ddx_deal_values_rec.cap_interim_interst_meaning;
3126 p6_a6 := ddx_deal_values_rec.cap_interim_int_rgd_code;
3127 p6_a7 := ddx_deal_values_rec.cap_interim_int_rgp_id;
3128 p6_a8 := ddx_deal_values_rec.cap_interim_int_rul_id;
3129 p6_a9 := ddx_deal_values_rec.cap_interim_int_rul_inf1;
3130 p6_a10 := ddx_deal_values_rec.cap_interim_int_rul_inf_cat;
3131 p6_a11 := ddx_deal_values_rec.col_lacpln_form_left_prompt;
3132 p6_a12 := ddx_deal_values_rec.col_lanntf_form_left_prompt;
3133 p6_a13 := ddx_deal_values_rec.col_lapact_form_left_prompt;
3134 p6_a14 := ddx_deal_values_rec.col_larebl_form_left_prompt;
3135 p6_a15 := ddx_deal_values_rec.col_larles_form_left_prompt;
3136 p6_a16 := ddx_deal_values_rec.col_latown_form_left_prompt;
3137 p6_a17 := ddx_deal_values_rec.consumer_credit_act_meaning;
3138 p6_a18 := ddx_deal_values_rec.converted_acct_meaning;
3139 p6_a19 := ddx_deal_values_rec.credit_gvr_id;
3140 p6_a20 := ddx_deal_values_rec.credit_line_chr_id;
3141 p6_a21 := ddx_deal_values_rec.credit_line_contract_number;
3142 p6_a22 := ddx_deal_values_rec.currency_conv_type_meaning;
3143 p6_a23 := ddx_deal_values_rec.customer_account;
3144 p6_a24 := ddx_deal_values_rec.customer_cpl_id;
3145 p6_a25 := ddx_deal_values_rec.customer_jtot_object1_code;
3146 p6_a26 := ddx_deal_values_rec.customer_name;
3147 p6_a27 := ddx_deal_values_rec.customer_object1_id1;
3148 p6_a28 := ddx_deal_values_rec.customer_object1_id2;
3149 p6_a29 := ddx_deal_values_rec.cust_acct_id;
3150 p6_a30 := ddx_deal_values_rec.cust_po_number;
3151 p6_a31 := ddx_deal_values_rec.deal_type;
3152 p6_a32 := ddx_deal_values_rec.description;
3153 p6_a33 := ddx_deal_values_rec.elig_for_prefunding_meaning;
3154 p6_a34 := ddx_deal_values_rec.id;
3155 p6_a35 := ddx_deal_values_rec.interest_calc_meaning;
3156 p6_a36 := ddx_deal_values_rec.lease_application_id;
3157 p6_a37 := ddx_deal_values_rec.lease_application_name;
3158 p6_a38 := ddx_deal_values_rec.ledger_id;
3159 p6_a39 := ddx_deal_values_rec.ledger_name;
3160 p6_a40 := ddx_deal_values_rec.legacy_number;
3161 p6_a41 := ddx_deal_values_rec.legal_address;
3162 p6_a42 := ddx_deal_values_rec.legal_address_id;
3163 p6_a43 := ddx_deal_values_rec.legal_entity_name;
3164 p6_a44 := ddx_deal_values_rec.lessor_insured_meaning;
3165 p6_a45 := ddx_deal_values_rec.lessor_payee_meaning;
3166 p6_a46 := ddx_deal_values_rec.lessor_serv_org_code;
3167 p6_a47 := ddx_deal_values_rec.mla_chr_id;
3168 p6_a48 := ddx_deal_values_rec.mla_contract_number;
3169 p6_a49 := ddx_deal_values_rec.mla_gvr_id;
3170 p6_a50 := ddx_deal_values_rec.nntf_rgd_code;
3171 p6_a51 := ddx_deal_values_rec.nntf_rgp_id;
3172 p6_a52 := ddx_deal_values_rec.nntf_rul_id;
3173 p6_a53 := ddx_deal_values_rec.nntf_rul_inf1;
3174 p6_a54 := ddx_deal_values_rec.nntf_rul_inf_cat;
3175 p6_a55 := ddx_deal_values_rec.non_notification_meaning;
3176 p6_a56 := ddx_deal_values_rec.operating_unit_name;
3177 p6_a57 := ddx_deal_values_rec.origination_lease_application;
3178 p6_a58 := ddx_deal_values_rec.origination_quote_id;
3179 p6_a59 := ddx_deal_values_rec.origination_quote_name;
3180 p6_a60 := ddx_deal_values_rec.orig_system_id1;
3181 p6_a61 := ddx_deal_values_rec.orig_system_reference1;
3182 p6_a62 := ddx_deal_values_rec.orig_system_source_code;
3183 p6_a63 := ddx_deal_values_rec.private_act_bond_meaning;
3184 p6_a64 := ddx_deal_values_rec.product_description;
3185 p6_a65 := ddx_deal_values_rec.product_name;
3186 p6_a66 := ddx_deal_values_rec.program_template_chr_id;
3187 p6_a67 := ddx_deal_values_rec.program_template_name;
3188 p6_a68 := ddx_deal_values_rec.prv_act_bond_rgd_code;
3189 p6_a69 := ddx_deal_values_rec.prv_act_bond_rgp_id;
3190 p6_a70 := ddx_deal_values_rec.prv_act_bond_rul_id;
3191 p6_a71 := ddx_deal_values_rec.prv_act_bond_rul_inf1;
3192 p6_a72 := ddx_deal_values_rec.prv_act_bond_rul_inf_cat;
3193 p6_a73 := ddx_deal_values_rec.rebook_limit_date;
3194 p6_a74 := ddx_deal_values_rec.rebook_limit_date_rgd_code;
3195 p6_a75 := ddx_deal_values_rec.rebook_limit_date_rgp_id;
3196 p6_a76 := ddx_deal_values_rec.rebook_limit_date_rul_id;
3197 p6_a77 := ddx_deal_values_rec.rebook_limit_rul_inf1;
3198 p6_a78 := ddx_deal_values_rec.rebook_limit_rul_inf_cat;
3199 p6_a79 := ddx_deal_values_rec.replaces_chr_id;
3200 p6_a80 := ddx_deal_values_rec.replaces_contract_number;
3201 p6_a81 := ddx_deal_values_rec.rep_contact_id;
3202 p6_a82 := ddx_deal_values_rec.rep_contact_jtot_object1_code;
3203 p6_a83 := ddx_deal_values_rec.rep_contact_object1_id1;
3204 p6_a84 := ddx_deal_values_rec.rep_contact_object1_id2;
3205 p6_a85 := ddx_deal_values_rec.revenue_recognition_meaning;
3206 p6_a86 := ddx_deal_values_rec.revolving_credit_yn;
3207 p6_a87 := ddx_deal_values_rec.rles_rgd_code;
3208 p6_a88 := ddx_deal_values_rec.rles_rgp_id;
3209 p6_a89 := ddx_deal_values_rec.rles_rul_id;
3210 p6_a90 := ddx_deal_values_rec.rles_rul_inf1;
3211 p6_a91 := ddx_deal_values_rec.rles_rul_inf_cat;
3212 p6_a92 := ddx_deal_values_rec.released_asset_meaning;
3213 p6_a93 := ddx_deal_values_rec.sales_representative_name;
3214 p6_a94 := ddx_deal_values_rec.scs_code_meaning;
3215 p6_a95 := ddx_deal_values_rec.split_from_chr_id;
3216 p6_a96 := ddx_deal_values_rec.split_from_contract_number;
3217 p6_a97 := ddx_deal_values_rec.sts_code_meaning;
3218 p6_a98 := ddx_deal_values_rec.tax_owner_code;
3219 p6_a99 := ddx_deal_values_rec.tax_owner_meaning;
3220 p6_a100 := ddx_deal_values_rec.tax_owner_rgd_code;
3221 p6_a101 := ddx_deal_values_rec.tax_owner_rgp_id;
3222 p6_a102 := ddx_deal_values_rec.tax_owner_rul_id;
3223 p6_a103 := ddx_deal_values_rec.tax_owner_rul_inf1;
3224 p6_a104 := ddx_deal_values_rec.tax_owner_rul_inf_cat;
3225 p6_a105 := ddx_deal_values_rec.upg_orig_system_ref;
3226 p6_a106 := ddx_deal_values_rec.upg_orig_system_ref_id;
3227 p6_a107 := ddx_deal_values_rec.vpa_contract_number;
3228 p6_a108 := ddx_deal_values_rec.vpa_khr_id;
3229 p6_a109 := ddx_deal_values_rec.vers_version;
3230 p6_a110 := ddx_deal_values_rec.product_subclass_code;
3231 p6_a111 := ddx_deal_values_rec.bill_to_rgp_id;
3232 p6_a112 := ddx_deal_values_rec.bill_to_rul_id;
3233 p6_a113 := ddx_deal_values_rec.bill_to_rgd_code;
3234 p6_a114 := ddx_deal_values_rec.bill_to_rul_inf_cat;
3235 p6_a115 := ddx_deal_values_rec.bill_to_rul_inf1;
3236 end;
3237
3238 procedure load_booking_summary(p_api_version NUMBER
3239 , p_init_msg_list VARCHAR2
3240 , x_return_status out nocopy VARCHAR2
3241 , x_msg_count out nocopy NUMBER
3242 , x_msg_data out nocopy VARCHAR2
3243 , p_chr_id NUMBER
3244 , p6_a0 out nocopy NUMBER
3245 , p6_a1 out nocopy VARCHAR2
3246 , p6_a2 out nocopy VARCHAR2
3247 , p6_a3 out nocopy VARCHAR2
3248 , p6_a4 out nocopy VARCHAR2
3249 , p6_a5 out nocopy VARCHAR2
3250 , p6_a6 out nocopy VARCHAR2
3251 , p6_a7 out nocopy VARCHAR2
3252 , p6_a8 out nocopy VARCHAR2
3253 )
3254
3255 as
3256 ddx_booking_summary_rec okl_deal_creat_pvt.booking_summary_rec;
3257 ddindx binary_integer; indx binary_integer;
3258 begin
3259
3260 -- copy data to the local IN or IN-OUT args, if any
3261
3262
3263
3264
3265
3266
3267
3268 -- here's the delegated call to the old PL/SQL routine
3269 okl_deal_creat_pvt.load_booking_summary(p_api_version,
3270 p_init_msg_list,
3271 x_return_status,
3272 x_msg_count,
3273 x_msg_data,
3274 p_chr_id,
3275 ddx_booking_summary_rec);
3276
3277 -- copy data back from the local variables to OUT or IN-OUT args, if any
3278
3279
3280
3281
3282
3283
3284 p6_a0 := ddx_booking_summary_rec.dnz_chr_id;
3285 p6_a1 := ddx_booking_summary_rec.total_financed_amount;
3286 p6_a2 := ddx_booking_summary_rec.total_residual_amount;
3287 p6_a3 := ddx_booking_summary_rec.total_funded;
3288 p6_a4 := ddx_booking_summary_rec.total_subsidies;
3289 p6_a5 := ddx_booking_summary_rec.eot_option;
3290 p6_a6 := ddx_booking_summary_rec.eot_amount;
3291 p6_a7 := ddx_booking_summary_rec.total_upfront_sales_tax;
3292 p6_a8 := ddx_booking_summary_rec.rvi_premium;
3293 end;
3294
3295 end okl_deal_creat_pvt_w;