DBA Data[Home] [Help]

PACKAGE BODY: APPS.OKL_CONTRACT_PVT_W

Source


1 package body okl_contract_pvt_w as
2   /* $Header: OKLOKHRB.pls 115.10 2003/10/16 09:59:40 avsingh noship $ */
3   rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4   rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 
6   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7   function rosetta_g_miss_date_in_map(d date) return date as
8   begin
9     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10     return d;
11   end;
12 
13   function rosetta_g_miss_num_map(n number) return number as
14     a number := fnd_api.g_miss_num;
15     b number := 0-1962.0724;
16   begin
17     if n=a then return b; end if;
18     if n=b then return a; end if;
19     return n;
20   end;
21 
22   procedure rosetta_table_copy_in_p4(t out nocopy okl_contract_pvt.hdr_tbl_type, a0 JTF_VARCHAR2_TABLE_300) as
23     ddindx binary_integer; indx binary_integer;
24   begin
25   if a0 is not null and a0.count > 0 then
26       if a0.count > 0 then
27         indx := a0.first;
28         ddindx := 1;
29         while true loop
30           t(ddindx) := a0(indx);
31           ddindx := ddindx+1;
32           if a0.last =indx
33             then exit;
34           end if;
35           indx := a0.next(indx);
36         end loop;
37       end if;
38    end if;
39   end rosetta_table_copy_in_p4;
40   procedure rosetta_table_copy_out_p4(t okl_contract_pvt.hdr_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_300) as
41     ddindx binary_integer; indx binary_integer;
42   begin
43   if t is null or t.count = 0 then
44     a0 := JTF_VARCHAR2_TABLE_300();
45   else
46       a0 := JTF_VARCHAR2_TABLE_300();
47       if t.count > 0 then
48         a0.extend(t.count);
49         ddindx := t.first;
50         indx := 1;
51         while true loop
52           a0(indx) := t(ddindx);
53           indx := indx+1;
54           if t.last =ddindx
55             then exit;
56           end if;
57           ddindx := t.next(ddindx);
58         end loop;
59       end if;
60    end if;
61   end rosetta_table_copy_out_p4;
62 
63   procedure create_contract_header(p_api_version  NUMBER
64     , p_init_msg_list  VARCHAR2
65     , x_return_status out nocopy  VARCHAR2
66     , x_msg_count out nocopy  NUMBER
67     , x_msg_data out nocopy  VARCHAR2
68     , p7_a0 out nocopy  NUMBER
69     , p7_a1 out nocopy  NUMBER
70     , p7_a2 out nocopy  VARCHAR2
71     , p7_a3 out nocopy  NUMBER
72     , p7_a4 out nocopy  NUMBER
73     , p7_a5 out nocopy  NUMBER
74     , p7_a6 out nocopy  NUMBER
75     , p7_a7 out nocopy  VARCHAR2
76     , p7_a8 out nocopy  NUMBER
77     , p7_a9 out nocopy  VARCHAR2
78     , p7_a10 out nocopy  VARCHAR2
79     , p7_a11 out nocopy  VARCHAR2
80     , p7_a12 out nocopy  VARCHAR2
81     , p7_a13 out nocopy  VARCHAR2
82     , p7_a14 out nocopy  VARCHAR2
83     , p7_a15 out nocopy  VARCHAR2
84     , p7_a16 out nocopy  VARCHAR2
85     , p7_a17 out nocopy  VARCHAR2
86     , p7_a18 out nocopy  VARCHAR2
87     , p7_a19 out nocopy  VARCHAR2
88     , p7_a20 out nocopy  VARCHAR2
89     , p7_a21 out nocopy  VARCHAR2
90     , p7_a22 out nocopy  VARCHAR2
91     , p7_a23 out nocopy  VARCHAR2
92     , p7_a24 out nocopy  VARCHAR2
93     , p7_a25 out nocopy  DATE
94     , p7_a26 out nocopy  DATE
95     , p7_a27 out nocopy  NUMBER
96     , p7_a28 out nocopy  DATE
97     , p7_a29 out nocopy  DATE
98     , p7_a30 out nocopy  VARCHAR2
99     , p7_a31 out nocopy  VARCHAR2
100     , p7_a32 out nocopy  VARCHAR2
101     , p7_a33 out nocopy  VARCHAR2
102     , p7_a34 out nocopy  VARCHAR2
103     , p7_a35 out nocopy  VARCHAR2
104     , p7_a36 out nocopy  NUMBER
105     , p7_a37 out nocopy  NUMBER
106     , p7_a38 out nocopy  DATE
107     , p7_a39 out nocopy  DATE
108     , p7_a40 out nocopy  DATE
109     , p7_a41 out nocopy  DATE
110     , p7_a42 out nocopy  DATE
111     , p7_a43 out nocopy  VARCHAR2
112     , p7_a44 out nocopy  DATE
113     , p7_a45 out nocopy  DATE
114     , p7_a46 out nocopy  NUMBER
115     , p7_a47 out nocopy  VARCHAR2
116     , p7_a48 out nocopy  VARCHAR2
117     , p7_a49 out nocopy  NUMBER
118     , p7_a50 out nocopy  NUMBER
119     , p7_a51 out nocopy  NUMBER
120     , p7_a52 out nocopy  VARCHAR2
121     , p7_a53 out nocopy  VARCHAR2
122     , p7_a54 out nocopy  NUMBER
123     , p7_a55 out nocopy  NUMBER
124     , p7_a56 out nocopy  VARCHAR2
125     , p7_a57 out nocopy  NUMBER
126     , p7_a58 out nocopy  VARCHAR2
127     , p7_a59 out nocopy  NUMBER
128     , p7_a60 out nocopy  NUMBER
129     , p7_a61 out nocopy  NUMBER
130     , p7_a62 out nocopy  DATE
131     , p7_a63 out nocopy  DATE
132     , p7_a64 out nocopy  DATE
133     , p7_a65 out nocopy  NUMBER
134     , p7_a66 out nocopy  NUMBER
135     , p7_a67 out nocopy  NUMBER
136     , p7_a68 out nocopy  VARCHAR2
137     , p7_a69 out nocopy  VARCHAR2
138     , p7_a70 out nocopy  VARCHAR2
139     , p7_a71 out nocopy  VARCHAR2
140     , p7_a72 out nocopy  VARCHAR2
141     , p7_a73 out nocopy  VARCHAR2
142     , p7_a74 out nocopy  VARCHAR2
143     , p7_a75 out nocopy  VARCHAR2
144     , p7_a76 out nocopy  VARCHAR2
145     , p7_a77 out nocopy  VARCHAR2
146     , p7_a78 out nocopy  VARCHAR2
147     , p7_a79 out nocopy  VARCHAR2
148     , p7_a80 out nocopy  VARCHAR2
149     , p7_a81 out nocopy  VARCHAR2
150     , p7_a82 out nocopy  VARCHAR2
151     , p7_a83 out nocopy  VARCHAR2
152     , p7_a84 out nocopy  NUMBER
153     , p7_a85 out nocopy  DATE
154     , p7_a86 out nocopy  NUMBER
155     , p7_a87 out nocopy  DATE
156     , p7_a88 out nocopy  NUMBER
157     , p7_a89 out nocopy  VARCHAR2
158     , p7_a90 out nocopy  VARCHAR2
159     , p7_a91 out nocopy  VARCHAR2
160     , p7_a92 out nocopy  VARCHAR2
161     , p7_a93 out nocopy  VARCHAR2
162     , p7_a94 out nocopy  NUMBER
163     , p7_a95 out nocopy  DATE
164     , p7_a96 out nocopy  NUMBER
165     , p7_a97 out nocopy  NUMBER
166     , p7_a98 out nocopy  NUMBER
167     , p7_a99 out nocopy  NUMBER
168     , p7_a100 out nocopy  VARCHAR2
169     , p7_a101 out nocopy  NUMBER
170     , p7_a102 out nocopy  DATE
171     , p7_a103 out nocopy  NUMBER
172     , p7_a104 out nocopy  NUMBER
173     , p8_a0 out nocopy  NUMBER
174     , p8_a1 out nocopy  NUMBER
175     , p8_a2 out nocopy  NUMBER
176     , p8_a3 out nocopy  NUMBER
177     , p8_a4 out nocopy  NUMBER
178     , p8_a5 out nocopy  VARCHAR2
179     , p8_a6 out nocopy  DATE
180     , p8_a7 out nocopy  VARCHAR2
181     , p8_a8 out nocopy  VARCHAR2
182     , p8_a9 out nocopy  DATE
183     , p8_a10 out nocopy  VARCHAR2
184     , p8_a11 out nocopy  NUMBER
185     , p8_a12 out nocopy  VARCHAR2
186     , p8_a13 out nocopy  DATE
187     , p8_a14 out nocopy  VARCHAR2
188     , p8_a15 out nocopy  VARCHAR2
189     , p8_a16 out nocopy  DATE
190     , p8_a17 out nocopy  DATE
191     , p8_a18 out nocopy  DATE
192     , p8_a19 out nocopy  DATE
193     , p8_a20 out nocopy  VARCHAR2
194     , p8_a21 out nocopy  VARCHAR2
195     , p8_a22 out nocopy  VARCHAR2
196     , p8_a23 out nocopy  VARCHAR2
197     , p8_a24 out nocopy  VARCHAR2
198     , p8_a25 out nocopy  VARCHAR2
199     , p8_a26 out nocopy  VARCHAR2
200     , p8_a27 out nocopy  VARCHAR2
201     , p8_a28 out nocopy  VARCHAR2
202     , p8_a29 out nocopy  VARCHAR2
203     , p8_a30 out nocopy  VARCHAR2
204     , p8_a31 out nocopy  VARCHAR2
205     , p8_a32 out nocopy  VARCHAR2
206     , p8_a33 out nocopy  VARCHAR2
207     , p8_a34 out nocopy  VARCHAR2
208     , p8_a35 out nocopy  VARCHAR2
209     , p8_a36 out nocopy  NUMBER
210     , p8_a37 out nocopy  DATE
211     , p8_a38 out nocopy  NUMBER
212     , p8_a39 out nocopy  DATE
213     , p8_a40 out nocopy  NUMBER
214     , p8_a41 out nocopy  NUMBER
215     , p8_a42 out nocopy  NUMBER
216     , p8_a43 out nocopy  NUMBER
217     , p8_a44 out nocopy  NUMBER
218     , p8_a45 out nocopy  NUMBER
219     , p8_a46 out nocopy  NUMBER
220     , p8_a47 out nocopy  NUMBER
221     , p8_a48 out nocopy  NUMBER
222     , p8_a49 out nocopy  DATE
223     , p8_a50 out nocopy  VARCHAR2
224     , p8_a51 out nocopy  NUMBER
225     , p8_a52 out nocopy  NUMBER
226     , p8_a53 out nocopy  DATE
227     , p8_a54 out nocopy  DATE
228     , p8_a55 out nocopy  VARCHAR2
229     , p8_a56 out nocopy  VARCHAR2
230     , p8_a57 out nocopy  VARCHAR2
231     , p8_a58 out nocopy  NUMBER
232     , p8_a59 out nocopy  DATE
233     , p8_a60 out nocopy  VARCHAR2
234     , p8_a61 out nocopy  VARCHAR2
235     , p8_a62 out nocopy  VARCHAR2
236     , p8_a63 out nocopy  VARCHAR2
237     , p8_a64 out nocopy  VARCHAR2
238     , p8_a65 out nocopy  VARCHAR2
239     , p5_a0  NUMBER := 0-1962.0724
240     , p5_a1  NUMBER := 0-1962.0724
241     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
242     , p5_a3  NUMBER := 0-1962.0724
243     , p5_a4  NUMBER := 0-1962.0724
244     , p5_a5  NUMBER := 0-1962.0724
245     , p5_a6  NUMBER := 0-1962.0724
246     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
247     , p5_a8  NUMBER := 0-1962.0724
248     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
249     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
250     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
251     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
252     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
253     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
254     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
255     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
256     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
257     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
258     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
259     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
260     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
261     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
262     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
263     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
264     , p5_a25  DATE := fnd_api.g_miss_date
265     , p5_a26  DATE := fnd_api.g_miss_date
266     , p5_a27  NUMBER := 0-1962.0724
267     , p5_a28  DATE := fnd_api.g_miss_date
268     , p5_a29  DATE := fnd_api.g_miss_date
269     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
270     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
271     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
272     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
273     , p5_a34  VARCHAR2 := fnd_api.g_miss_char
274     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
275     , p5_a36  NUMBER := 0-1962.0724
276     , p5_a37  NUMBER := 0-1962.0724
277     , p5_a38  DATE := fnd_api.g_miss_date
278     , p5_a39  DATE := fnd_api.g_miss_date
279     , p5_a40  DATE := fnd_api.g_miss_date
280     , p5_a41  DATE := fnd_api.g_miss_date
281     , p5_a42  DATE := fnd_api.g_miss_date
282     , p5_a43  VARCHAR2 := fnd_api.g_miss_char
283     , p5_a44  DATE := fnd_api.g_miss_date
284     , p5_a45  DATE := fnd_api.g_miss_date
285     , p5_a46  NUMBER := 0-1962.0724
286     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
287     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
288     , p5_a49  NUMBER := 0-1962.0724
289     , p5_a50  NUMBER := 0-1962.0724
290     , p5_a51  NUMBER := 0-1962.0724
291     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
292     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
293     , p5_a54  NUMBER := 0-1962.0724
294     , p5_a55  NUMBER := 0-1962.0724
295     , p5_a56  VARCHAR2 := fnd_api.g_miss_char
296     , p5_a57  NUMBER := 0-1962.0724
297     , p5_a58  VARCHAR2 := fnd_api.g_miss_char
298     , p5_a59  NUMBER := 0-1962.0724
299     , p5_a60  NUMBER := 0-1962.0724
300     , p5_a61  NUMBER := 0-1962.0724
301     , p5_a62  DATE := fnd_api.g_miss_date
302     , p5_a63  DATE := fnd_api.g_miss_date
303     , p5_a64  DATE := fnd_api.g_miss_date
304     , p5_a65  NUMBER := 0-1962.0724
305     , p5_a66  NUMBER := 0-1962.0724
306     , p5_a67  NUMBER := 0-1962.0724
307     , p5_a68  VARCHAR2 := fnd_api.g_miss_char
308     , p5_a69  VARCHAR2 := fnd_api.g_miss_char
309     , p5_a70  VARCHAR2 := fnd_api.g_miss_char
310     , p5_a71  VARCHAR2 := fnd_api.g_miss_char
311     , p5_a72  VARCHAR2 := fnd_api.g_miss_char
312     , p5_a73  VARCHAR2 := fnd_api.g_miss_char
313     , p5_a74  VARCHAR2 := fnd_api.g_miss_char
314     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
315     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
316     , p5_a77  VARCHAR2 := fnd_api.g_miss_char
317     , p5_a78  VARCHAR2 := fnd_api.g_miss_char
318     , p5_a79  VARCHAR2 := fnd_api.g_miss_char
319     , p5_a80  VARCHAR2 := fnd_api.g_miss_char
320     , p5_a81  VARCHAR2 := fnd_api.g_miss_char
321     , p5_a82  VARCHAR2 := fnd_api.g_miss_char
322     , p5_a83  VARCHAR2 := fnd_api.g_miss_char
323     , p5_a84  NUMBER := 0-1962.0724
324     , p5_a85  DATE := fnd_api.g_miss_date
325     , p5_a86  NUMBER := 0-1962.0724
326     , p5_a87  DATE := fnd_api.g_miss_date
327     , p5_a88  NUMBER := 0-1962.0724
328     , p5_a89  VARCHAR2 := fnd_api.g_miss_char
329     , p5_a90  VARCHAR2 := fnd_api.g_miss_char
330     , p5_a91  VARCHAR2 := fnd_api.g_miss_char
331     , p5_a92  VARCHAR2 := fnd_api.g_miss_char
332     , p5_a93  VARCHAR2 := fnd_api.g_miss_char
333     , p5_a94  NUMBER := 0-1962.0724
334     , p5_a95  DATE := fnd_api.g_miss_date
335     , p5_a96  NUMBER := 0-1962.0724
336     , p5_a97  NUMBER := 0-1962.0724
337     , p5_a98  NUMBER := 0-1962.0724
338     , p5_a99  NUMBER := 0-1962.0724
339     , p5_a100  VARCHAR2 := fnd_api.g_miss_char
340     , p5_a101  NUMBER := 0-1962.0724
341     , p5_a102  DATE := fnd_api.g_miss_date
342     , p5_a103  NUMBER := 0-1962.0724
343     , p5_a104  NUMBER := 0-1962.0724
344     , p6_a0  NUMBER := 0-1962.0724
345     , p6_a1  NUMBER := 0-1962.0724
346     , p6_a2  NUMBER := 0-1962.0724
347     , p6_a3  NUMBER := 0-1962.0724
348     , p6_a4  NUMBER := 0-1962.0724
349     , p6_a5  VARCHAR2 := fnd_api.g_miss_char
350     , p6_a6  DATE := fnd_api.g_miss_date
351     , p6_a7  VARCHAR2 := fnd_api.g_miss_char
352     , p6_a8  VARCHAR2 := fnd_api.g_miss_char
353     , p6_a9  DATE := fnd_api.g_miss_date
354     , p6_a10  VARCHAR2 := fnd_api.g_miss_char
355     , p6_a11  NUMBER := 0-1962.0724
356     , p6_a12  VARCHAR2 := fnd_api.g_miss_char
357     , p6_a13  DATE := fnd_api.g_miss_date
358     , p6_a14  VARCHAR2 := fnd_api.g_miss_char
359     , p6_a15  VARCHAR2 := fnd_api.g_miss_char
360     , p6_a16  DATE := fnd_api.g_miss_date
361     , p6_a17  DATE := fnd_api.g_miss_date
362     , p6_a18  DATE := fnd_api.g_miss_date
363     , p6_a19  DATE := fnd_api.g_miss_date
364     , p6_a20  VARCHAR2 := fnd_api.g_miss_char
365     , p6_a21  VARCHAR2 := fnd_api.g_miss_char
366     , p6_a22  VARCHAR2 := fnd_api.g_miss_char
367     , p6_a23  VARCHAR2 := fnd_api.g_miss_char
368     , p6_a24  VARCHAR2 := fnd_api.g_miss_char
369     , p6_a25  VARCHAR2 := fnd_api.g_miss_char
370     , p6_a26  VARCHAR2 := fnd_api.g_miss_char
371     , p6_a27  VARCHAR2 := fnd_api.g_miss_char
372     , p6_a28  VARCHAR2 := fnd_api.g_miss_char
373     , p6_a29  VARCHAR2 := fnd_api.g_miss_char
374     , p6_a30  VARCHAR2 := fnd_api.g_miss_char
375     , p6_a31  VARCHAR2 := fnd_api.g_miss_char
376     , p6_a32  VARCHAR2 := fnd_api.g_miss_char
377     , p6_a33  VARCHAR2 := fnd_api.g_miss_char
378     , p6_a34  VARCHAR2 := fnd_api.g_miss_char
379     , p6_a35  VARCHAR2 := fnd_api.g_miss_char
380     , p6_a36  NUMBER := 0-1962.0724
381     , p6_a37  DATE := fnd_api.g_miss_date
382     , p6_a38  NUMBER := 0-1962.0724
383     , p6_a39  DATE := fnd_api.g_miss_date
384     , p6_a40  NUMBER := 0-1962.0724
385     , p6_a41  NUMBER := 0-1962.0724
386     , p6_a42  NUMBER := 0-1962.0724
387     , p6_a43  NUMBER := 0-1962.0724
388     , p6_a44  NUMBER := 0-1962.0724
389     , p6_a45  NUMBER := 0-1962.0724
390     , p6_a46  NUMBER := 0-1962.0724
391     , p6_a47  NUMBER := 0-1962.0724
392     , p6_a48  NUMBER := 0-1962.0724
393     , p6_a49  DATE := fnd_api.g_miss_date
394     , p6_a50  VARCHAR2 := fnd_api.g_miss_char
395     , p6_a51  NUMBER := 0-1962.0724
396     , p6_a52  NUMBER := 0-1962.0724
397     , p6_a53  DATE := fnd_api.g_miss_date
398     , p6_a54  DATE := fnd_api.g_miss_date
399     , p6_a55  VARCHAR2 := fnd_api.g_miss_char
400     , p6_a56  VARCHAR2 := fnd_api.g_miss_char
401     , p6_a57  VARCHAR2 := fnd_api.g_miss_char
402     , p6_a58  NUMBER := 0-1962.0724
403     , p6_a59  DATE := fnd_api.g_miss_date
404     , p6_a60  VARCHAR2 := fnd_api.g_miss_char
405     , p6_a61  VARCHAR2 := fnd_api.g_miss_char
406     , p6_a62  VARCHAR2 := fnd_api.g_miss_char
407     , p6_a63  VARCHAR2 := fnd_api.g_miss_char
408     , p6_a64  VARCHAR2 := fnd_api.g_miss_char
409     , p6_a65  VARCHAR2 := fnd_api.g_miss_char
410   )
411 
412   as
413     ddp_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
414     ddp_khrv_rec okl_contract_pvt.khrv_rec_type;
415     ddx_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
416     ddx_khrv_rec okl_contract_pvt.khrv_rec_type;
417     ddindx binary_integer; indx binary_integer;
418   begin
419 
420     -- copy data to the local IN or IN-OUT args, if any
421 
422 
423 
424 
425 
426     ddp_chrv_rec.id := rosetta_g_miss_num_map(p5_a0);
427     ddp_chrv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
428     ddp_chrv_rec.sfwt_flag := p5_a2;
429     ddp_chrv_rec.chr_id_response := rosetta_g_miss_num_map(p5_a3);
430     ddp_chrv_rec.chr_id_award := rosetta_g_miss_num_map(p5_a4);
431     ddp_chrv_rec.chr_id_renewed := rosetta_g_miss_num_map(p5_a5);
432     ddp_chrv_rec.inv_organization_id := rosetta_g_miss_num_map(p5_a6);
433     ddp_chrv_rec.sts_code := p5_a7;
434     ddp_chrv_rec.qcl_id := rosetta_g_miss_num_map(p5_a8);
435     ddp_chrv_rec.scs_code := p5_a9;
436     ddp_chrv_rec.contract_number := p5_a10;
437     ddp_chrv_rec.currency_code := p5_a11;
438     ddp_chrv_rec.contract_number_modifier := p5_a12;
439     ddp_chrv_rec.archived_yn := p5_a13;
440     ddp_chrv_rec.deleted_yn := p5_a14;
441     ddp_chrv_rec.cust_po_number_req_yn := p5_a15;
442     ddp_chrv_rec.pre_pay_req_yn := p5_a16;
443     ddp_chrv_rec.cust_po_number := p5_a17;
444     ddp_chrv_rec.short_description := p5_a18;
445     ddp_chrv_rec.comments := p5_a19;
446     ddp_chrv_rec.description := p5_a20;
447     ddp_chrv_rec.dpas_rating := p5_a21;
448     ddp_chrv_rec.cognomen := p5_a22;
449     ddp_chrv_rec.template_yn := p5_a23;
450     ddp_chrv_rec.template_used := p5_a24;
451     ddp_chrv_rec.date_approved := rosetta_g_miss_date_in_map(p5_a25);
452     ddp_chrv_rec.datetime_cancelled := rosetta_g_miss_date_in_map(p5_a26);
453     ddp_chrv_rec.auto_renew_days := rosetta_g_miss_num_map(p5_a27);
454     ddp_chrv_rec.date_issued := rosetta_g_miss_date_in_map(p5_a28);
455     ddp_chrv_rec.datetime_responded := rosetta_g_miss_date_in_map(p5_a29);
456     ddp_chrv_rec.non_response_reason := p5_a30;
457     ddp_chrv_rec.non_response_explain := p5_a31;
458     ddp_chrv_rec.rfp_type := p5_a32;
459     ddp_chrv_rec.chr_type := p5_a33;
460     ddp_chrv_rec.keep_on_mail_list := p5_a34;
461     ddp_chrv_rec.set_aside_reason := p5_a35;
462     ddp_chrv_rec.set_aside_percent := rosetta_g_miss_num_map(p5_a36);
463     ddp_chrv_rec.response_copies_req := rosetta_g_miss_num_map(p5_a37);
464     ddp_chrv_rec.date_close_projected := rosetta_g_miss_date_in_map(p5_a38);
465     ddp_chrv_rec.datetime_proposed := rosetta_g_miss_date_in_map(p5_a39);
466     ddp_chrv_rec.date_signed := rosetta_g_miss_date_in_map(p5_a40);
467     ddp_chrv_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a41);
468     ddp_chrv_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a42);
469     ddp_chrv_rec.trn_code := p5_a43;
470     ddp_chrv_rec.start_date := rosetta_g_miss_date_in_map(p5_a44);
471     ddp_chrv_rec.end_date := rosetta_g_miss_date_in_map(p5_a45);
472     ddp_chrv_rec.authoring_org_id := rosetta_g_miss_num_map(p5_a46);
473     ddp_chrv_rec.buy_or_sell := p5_a47;
474     ddp_chrv_rec.issue_or_receive := p5_a48;
475     ddp_chrv_rec.estimated_amount := rosetta_g_miss_num_map(p5_a49);
476     ddp_chrv_rec.chr_id_renewed_to := rosetta_g_miss_num_map(p5_a50);
477     ddp_chrv_rec.estimated_amount_renewed := rosetta_g_miss_num_map(p5_a51);
478     ddp_chrv_rec.currency_code_renewed := p5_a52;
479     ddp_chrv_rec.upg_orig_system_ref := p5_a53;
480     ddp_chrv_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a54);
481     ddp_chrv_rec.application_id := rosetta_g_miss_num_map(p5_a55);
482     ddp_chrv_rec.orig_system_source_code := p5_a56;
483     ddp_chrv_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a57);
484     ddp_chrv_rec.orig_system_reference1 := p5_a58;
485     ddp_chrv_rec.program_id := rosetta_g_miss_num_map(p5_a59);
486     ddp_chrv_rec.request_id := rosetta_g_miss_num_map(p5_a60);
487     ddp_chrv_rec.price_list_id := rosetta_g_miss_num_map(p5_a61);
488     ddp_chrv_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a62);
489     ddp_chrv_rec.sign_by_date := rosetta_g_miss_date_in_map(p5_a63);
490     ddp_chrv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a64);
491     ddp_chrv_rec.total_line_list_price := rosetta_g_miss_num_map(p5_a65);
492     ddp_chrv_rec.program_application_id := rosetta_g_miss_num_map(p5_a66);
493     ddp_chrv_rec.user_estimated_amount := rosetta_g_miss_num_map(p5_a67);
494     ddp_chrv_rec.attribute_category := p5_a68;
495     ddp_chrv_rec.attribute1 := p5_a69;
496     ddp_chrv_rec.attribute2 := p5_a70;
497     ddp_chrv_rec.attribute3 := p5_a71;
498     ddp_chrv_rec.attribute4 := p5_a72;
499     ddp_chrv_rec.attribute5 := p5_a73;
500     ddp_chrv_rec.attribute6 := p5_a74;
501     ddp_chrv_rec.attribute7 := p5_a75;
502     ddp_chrv_rec.attribute8 := p5_a76;
503     ddp_chrv_rec.attribute9 := p5_a77;
504     ddp_chrv_rec.attribute10 := p5_a78;
505     ddp_chrv_rec.attribute11 := p5_a79;
506     ddp_chrv_rec.attribute12 := p5_a80;
507     ddp_chrv_rec.attribute13 := p5_a81;
508     ddp_chrv_rec.attribute14 := p5_a82;
509     ddp_chrv_rec.attribute15 := p5_a83;
510     ddp_chrv_rec.created_by := rosetta_g_miss_num_map(p5_a84);
511     ddp_chrv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a85);
512     ddp_chrv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a86);
513     ddp_chrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a87);
514     ddp_chrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a88);
515     ddp_chrv_rec.old_sts_code := p5_a89;
516     ddp_chrv_rec.new_sts_code := p5_a90;
517     ddp_chrv_rec.old_ste_code := p5_a91;
518     ddp_chrv_rec.new_ste_code := p5_a92;
519     ddp_chrv_rec.conversion_type := p5_a93;
520     ddp_chrv_rec.conversion_rate := rosetta_g_miss_num_map(p5_a94);
521     ddp_chrv_rec.conversion_rate_date := rosetta_g_miss_date_in_map(p5_a95);
522     ddp_chrv_rec.conversion_euro_rate := rosetta_g_miss_num_map(p5_a96);
523     ddp_chrv_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a97);
524     ddp_chrv_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a98);
525     ddp_chrv_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a99);
526     ddp_chrv_rec.renewal_type_code := p5_a100;
527     ddp_chrv_rec.renewal_notify_to := rosetta_g_miss_num_map(p5_a101);
528     ddp_chrv_rec.renewal_end_date := rosetta_g_miss_date_in_map(p5_a102);
529     ddp_chrv_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a103);
530     ddp_chrv_rec.payment_term_id := rosetta_g_miss_num_map(p5_a104);
531 
532     ddp_khrv_rec.id := rosetta_g_miss_num_map(p6_a0);
533     ddp_khrv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
534     ddp_khrv_rec.isg_id := rosetta_g_miss_num_map(p6_a2);
535     ddp_khrv_rec.khr_id := rosetta_g_miss_num_map(p6_a3);
536     ddp_khrv_rec.pdt_id := rosetta_g_miss_num_map(p6_a4);
537     ddp_khrv_rec.amd_code := p6_a5;
538     ddp_khrv_rec.date_first_activity := rosetta_g_miss_date_in_map(p6_a6);
539     ddp_khrv_rec.generate_accrual_yn := p6_a7;
540     ddp_khrv_rec.generate_accrual_override_yn := p6_a8;
541     ddp_khrv_rec.date_refinanced := rosetta_g_miss_date_in_map(p6_a9);
542     ddp_khrv_rec.credit_act_yn := p6_a10;
543     ddp_khrv_rec.term_duration := rosetta_g_miss_num_map(p6_a11);
544     ddp_khrv_rec.converted_account_yn := p6_a12;
545     ddp_khrv_rec.date_conversion_effective := rosetta_g_miss_date_in_map(p6_a13);
546     ddp_khrv_rec.syndicatable_yn := p6_a14;
547     ddp_khrv_rec.salestype_yn := p6_a15;
548     ddp_khrv_rec.date_deal_transferred := rosetta_g_miss_date_in_map(p6_a16);
549     ddp_khrv_rec.datetime_proposal_effective := rosetta_g_miss_date_in_map(p6_a17);
550     ddp_khrv_rec.datetime_proposal_ineffective := rosetta_g_miss_date_in_map(p6_a18);
551     ddp_khrv_rec.date_proposal_accepted := rosetta_g_miss_date_in_map(p6_a19);
552     ddp_khrv_rec.attribute_category := p6_a20;
553     ddp_khrv_rec.attribute1 := p6_a21;
554     ddp_khrv_rec.attribute2 := p6_a22;
555     ddp_khrv_rec.attribute3 := p6_a23;
556     ddp_khrv_rec.attribute4 := p6_a24;
557     ddp_khrv_rec.attribute5 := p6_a25;
558     ddp_khrv_rec.attribute6 := p6_a26;
559     ddp_khrv_rec.attribute7 := p6_a27;
560     ddp_khrv_rec.attribute8 := p6_a28;
561     ddp_khrv_rec.attribute9 := p6_a29;
562     ddp_khrv_rec.attribute10 := p6_a30;
563     ddp_khrv_rec.attribute11 := p6_a31;
564     ddp_khrv_rec.attribute12 := p6_a32;
565     ddp_khrv_rec.attribute13 := p6_a33;
566     ddp_khrv_rec.attribute14 := p6_a34;
567     ddp_khrv_rec.attribute15 := p6_a35;
568     ddp_khrv_rec.created_by := rosetta_g_miss_num_map(p6_a36);
569     ddp_khrv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a37);
570     ddp_khrv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a38);
571     ddp_khrv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a39);
572     ddp_khrv_rec.last_update_login := rosetta_g_miss_num_map(p6_a40);
573     ddp_khrv_rec.pre_tax_yield := rosetta_g_miss_num_map(p6_a41);
574     ddp_khrv_rec.after_tax_yield := rosetta_g_miss_num_map(p6_a42);
575     ddp_khrv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p6_a43);
576     ddp_khrv_rec.implicit_non_idc_interest_rate := rosetta_g_miss_num_map(p6_a44);
577     ddp_khrv_rec.target_pre_tax_yield := rosetta_g_miss_num_map(p6_a45);
578     ddp_khrv_rec.target_after_tax_yield := rosetta_g_miss_num_map(p6_a46);
579     ddp_khrv_rec.target_implicit_interest_rate := rosetta_g_miss_num_map(p6_a47);
580     ddp_khrv_rec.target_implicit_nonidc_intrate := rosetta_g_miss_num_map(p6_a48);
581     ddp_khrv_rec.date_last_interim_interest_cal := rosetta_g_miss_date_in_map(p6_a49);
582     ddp_khrv_rec.deal_type := p6_a50;
583     ddp_khrv_rec.pre_tax_irr := rosetta_g_miss_num_map(p6_a51);
584     ddp_khrv_rec.after_tax_irr := rosetta_g_miss_num_map(p6_a52);
585     ddp_khrv_rec.expected_delivery_date := rosetta_g_miss_date_in_map(p6_a53);
586     ddp_khrv_rec.accepted_date := rosetta_g_miss_date_in_map(p6_a54);
587     ddp_khrv_rec.prefunding_eligible_yn := p6_a55;
588     ddp_khrv_rec.revolving_credit_yn := p6_a56;
589     ddp_khrv_rec.currency_conversion_type := p6_a57;
590     ddp_khrv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p6_a58);
591     ddp_khrv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p6_a59);
592     ddp_khrv_rec.multi_gaap_yn := p6_a60;
593     ddp_khrv_rec.recourse_code := p6_a61;
594     ddp_khrv_rec.lessor_serv_org_code := p6_a62;
595     ddp_khrv_rec.assignable_yn := p6_a63;
596     ddp_khrv_rec.securitized_code := p6_a64;
597     ddp_khrv_rec.securitization_type := p6_a65;
598 
599 
600 
601     -- here's the delegated call to the old PL/SQL routine
602     okl_contract_pvt.create_contract_header(p_api_version,
603       p_init_msg_list,
604       x_return_status,
605       x_msg_count,
606       x_msg_data,
607       ddp_chrv_rec,
608       ddp_khrv_rec,
609       ddx_chrv_rec,
610       ddx_khrv_rec);
611 
612     -- copy data back from the local variables to OUT or IN-OUT args, if any
613 
614 
615 
616 
617 
618 
619 
620     p7_a0 := rosetta_g_miss_num_map(ddx_chrv_rec.id);
621     p7_a1 := rosetta_g_miss_num_map(ddx_chrv_rec.object_version_number);
622     p7_a2 := ddx_chrv_rec.sfwt_flag;
623     p7_a3 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_response);
624     p7_a4 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_award);
625     p7_a5 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_renewed);
626     p7_a6 := rosetta_g_miss_num_map(ddx_chrv_rec.inv_organization_id);
627     p7_a7 := ddx_chrv_rec.sts_code;
628     p7_a8 := rosetta_g_miss_num_map(ddx_chrv_rec.qcl_id);
629     p7_a9 := ddx_chrv_rec.scs_code;
630     p7_a10 := ddx_chrv_rec.contract_number;
631     p7_a11 := ddx_chrv_rec.currency_code;
632     p7_a12 := ddx_chrv_rec.contract_number_modifier;
633     p7_a13 := ddx_chrv_rec.archived_yn;
634     p7_a14 := ddx_chrv_rec.deleted_yn;
635     p7_a15 := ddx_chrv_rec.cust_po_number_req_yn;
636     p7_a16 := ddx_chrv_rec.pre_pay_req_yn;
637     p7_a17 := ddx_chrv_rec.cust_po_number;
638     p7_a18 := ddx_chrv_rec.short_description;
639     p7_a19 := ddx_chrv_rec.comments;
640     p7_a20 := ddx_chrv_rec.description;
641     p7_a21 := ddx_chrv_rec.dpas_rating;
642     p7_a22 := ddx_chrv_rec.cognomen;
643     p7_a23 := ddx_chrv_rec.template_yn;
644     p7_a24 := ddx_chrv_rec.template_used;
645     p7_a25 := ddx_chrv_rec.date_approved;
646     p7_a26 := ddx_chrv_rec.datetime_cancelled;
647     p7_a27 := rosetta_g_miss_num_map(ddx_chrv_rec.auto_renew_days);
648     p7_a28 := ddx_chrv_rec.date_issued;
649     p7_a29 := ddx_chrv_rec.datetime_responded;
650     p7_a30 := ddx_chrv_rec.non_response_reason;
651     p7_a31 := ddx_chrv_rec.non_response_explain;
652     p7_a32 := ddx_chrv_rec.rfp_type;
653     p7_a33 := ddx_chrv_rec.chr_type;
654     p7_a34 := ddx_chrv_rec.keep_on_mail_list;
655     p7_a35 := ddx_chrv_rec.set_aside_reason;
656     p7_a36 := rosetta_g_miss_num_map(ddx_chrv_rec.set_aside_percent);
657     p7_a37 := rosetta_g_miss_num_map(ddx_chrv_rec.response_copies_req);
658     p7_a38 := ddx_chrv_rec.date_close_projected;
659     p7_a39 := ddx_chrv_rec.datetime_proposed;
660     p7_a40 := ddx_chrv_rec.date_signed;
661     p7_a41 := ddx_chrv_rec.date_terminated;
662     p7_a42 := ddx_chrv_rec.date_renewed;
663     p7_a43 := ddx_chrv_rec.trn_code;
664     p7_a44 := ddx_chrv_rec.start_date;
665     p7_a45 := ddx_chrv_rec.end_date;
666     p7_a46 := rosetta_g_miss_num_map(ddx_chrv_rec.authoring_org_id);
667     p7_a47 := ddx_chrv_rec.buy_or_sell;
668     p7_a48 := ddx_chrv_rec.issue_or_receive;
669     p7_a49 := rosetta_g_miss_num_map(ddx_chrv_rec.estimated_amount);
670     p7_a50 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_renewed_to);
671     p7_a51 := rosetta_g_miss_num_map(ddx_chrv_rec.estimated_amount_renewed);
672     p7_a52 := ddx_chrv_rec.currency_code_renewed;
673     p7_a53 := ddx_chrv_rec.upg_orig_system_ref;
674     p7_a54 := rosetta_g_miss_num_map(ddx_chrv_rec.upg_orig_system_ref_id);
675     p7_a55 := rosetta_g_miss_num_map(ddx_chrv_rec.application_id);
676     p7_a56 := ddx_chrv_rec.orig_system_source_code;
677     p7_a57 := rosetta_g_miss_num_map(ddx_chrv_rec.orig_system_id1);
678     p7_a58 := ddx_chrv_rec.orig_system_reference1;
679     p7_a59 := rosetta_g_miss_num_map(ddx_chrv_rec.program_id);
680     p7_a60 := rosetta_g_miss_num_map(ddx_chrv_rec.request_id);
681     p7_a61 := rosetta_g_miss_num_map(ddx_chrv_rec.price_list_id);
682     p7_a62 := ddx_chrv_rec.pricing_date;
683     p7_a63 := ddx_chrv_rec.sign_by_date;
684     p7_a64 := ddx_chrv_rec.program_update_date;
685     p7_a65 := rosetta_g_miss_num_map(ddx_chrv_rec.total_line_list_price);
686     p7_a66 := rosetta_g_miss_num_map(ddx_chrv_rec.program_application_id);
687     p7_a67 := rosetta_g_miss_num_map(ddx_chrv_rec.user_estimated_amount);
688     p7_a68 := ddx_chrv_rec.attribute_category;
689     p7_a69 := ddx_chrv_rec.attribute1;
690     p7_a70 := ddx_chrv_rec.attribute2;
691     p7_a71 := ddx_chrv_rec.attribute3;
692     p7_a72 := ddx_chrv_rec.attribute4;
693     p7_a73 := ddx_chrv_rec.attribute5;
694     p7_a74 := ddx_chrv_rec.attribute6;
695     p7_a75 := ddx_chrv_rec.attribute7;
696     p7_a76 := ddx_chrv_rec.attribute8;
697     p7_a77 := ddx_chrv_rec.attribute9;
698     p7_a78 := ddx_chrv_rec.attribute10;
699     p7_a79 := ddx_chrv_rec.attribute11;
700     p7_a80 := ddx_chrv_rec.attribute12;
701     p7_a81 := ddx_chrv_rec.attribute13;
702     p7_a82 := ddx_chrv_rec.attribute14;
703     p7_a83 := ddx_chrv_rec.attribute15;
704     p7_a84 := rosetta_g_miss_num_map(ddx_chrv_rec.created_by);
705     p7_a85 := ddx_chrv_rec.creation_date;
706     p7_a86 := rosetta_g_miss_num_map(ddx_chrv_rec.last_updated_by);
707     p7_a87 := ddx_chrv_rec.last_update_date;
708     p7_a88 := rosetta_g_miss_num_map(ddx_chrv_rec.last_update_login);
709     p7_a89 := ddx_chrv_rec.old_sts_code;
710     p7_a90 := ddx_chrv_rec.new_sts_code;
711     p7_a91 := ddx_chrv_rec.old_ste_code;
712     p7_a92 := ddx_chrv_rec.new_ste_code;
713     p7_a93 := ddx_chrv_rec.conversion_type;
714     p7_a94 := rosetta_g_miss_num_map(ddx_chrv_rec.conversion_rate);
715     p7_a95 := ddx_chrv_rec.conversion_rate_date;
716     p7_a96 := rosetta_g_miss_num_map(ddx_chrv_rec.conversion_euro_rate);
717     p7_a97 := rosetta_g_miss_num_map(ddx_chrv_rec.cust_acct_id);
718     p7_a98 := rosetta_g_miss_num_map(ddx_chrv_rec.bill_to_site_use_id);
719     p7_a99 := rosetta_g_miss_num_map(ddx_chrv_rec.inv_rule_id);
720     p7_a100 := ddx_chrv_rec.renewal_type_code;
721     p7_a101 := rosetta_g_miss_num_map(ddx_chrv_rec.renewal_notify_to);
722     p7_a102 := ddx_chrv_rec.renewal_end_date;
723     p7_a103 := rosetta_g_miss_num_map(ddx_chrv_rec.ship_to_site_use_id);
724     p7_a104 := rosetta_g_miss_num_map(ddx_chrv_rec.payment_term_id);
725 
726     p8_a0 := rosetta_g_miss_num_map(ddx_khrv_rec.id);
727     p8_a1 := rosetta_g_miss_num_map(ddx_khrv_rec.object_version_number);
728     p8_a2 := rosetta_g_miss_num_map(ddx_khrv_rec.isg_id);
729     p8_a3 := rosetta_g_miss_num_map(ddx_khrv_rec.khr_id);
730     p8_a4 := rosetta_g_miss_num_map(ddx_khrv_rec.pdt_id);
731     p8_a5 := ddx_khrv_rec.amd_code;
732     p8_a6 := ddx_khrv_rec.date_first_activity;
733     p8_a7 := ddx_khrv_rec.generate_accrual_yn;
734     p8_a8 := ddx_khrv_rec.generate_accrual_override_yn;
735     p8_a9 := ddx_khrv_rec.date_refinanced;
736     p8_a10 := ddx_khrv_rec.credit_act_yn;
737     p8_a11 := rosetta_g_miss_num_map(ddx_khrv_rec.term_duration);
738     p8_a12 := ddx_khrv_rec.converted_account_yn;
739     p8_a13 := ddx_khrv_rec.date_conversion_effective;
740     p8_a14 := ddx_khrv_rec.syndicatable_yn;
741     p8_a15 := ddx_khrv_rec.salestype_yn;
742     p8_a16 := ddx_khrv_rec.date_deal_transferred;
743     p8_a17 := ddx_khrv_rec.datetime_proposal_effective;
744     p8_a18 := ddx_khrv_rec.datetime_proposal_ineffective;
745     p8_a19 := ddx_khrv_rec.date_proposal_accepted;
746     p8_a20 := ddx_khrv_rec.attribute_category;
747     p8_a21 := ddx_khrv_rec.attribute1;
748     p8_a22 := ddx_khrv_rec.attribute2;
749     p8_a23 := ddx_khrv_rec.attribute3;
750     p8_a24 := ddx_khrv_rec.attribute4;
751     p8_a25 := ddx_khrv_rec.attribute5;
752     p8_a26 := ddx_khrv_rec.attribute6;
753     p8_a27 := ddx_khrv_rec.attribute7;
754     p8_a28 := ddx_khrv_rec.attribute8;
755     p8_a29 := ddx_khrv_rec.attribute9;
756     p8_a30 := ddx_khrv_rec.attribute10;
757     p8_a31 := ddx_khrv_rec.attribute11;
758     p8_a32 := ddx_khrv_rec.attribute12;
759     p8_a33 := ddx_khrv_rec.attribute13;
760     p8_a34 := ddx_khrv_rec.attribute14;
761     p8_a35 := ddx_khrv_rec.attribute15;
762     p8_a36 := rosetta_g_miss_num_map(ddx_khrv_rec.created_by);
763     p8_a37 := ddx_khrv_rec.creation_date;
764     p8_a38 := rosetta_g_miss_num_map(ddx_khrv_rec.last_updated_by);
765     p8_a39 := ddx_khrv_rec.last_update_date;
766     p8_a40 := rosetta_g_miss_num_map(ddx_khrv_rec.last_update_login);
767     p8_a41 := rosetta_g_miss_num_map(ddx_khrv_rec.pre_tax_yield);
768     p8_a42 := rosetta_g_miss_num_map(ddx_khrv_rec.after_tax_yield);
769     p8_a43 := rosetta_g_miss_num_map(ddx_khrv_rec.implicit_interest_rate);
770     p8_a44 := rosetta_g_miss_num_map(ddx_khrv_rec.implicit_non_idc_interest_rate);
771     p8_a45 := rosetta_g_miss_num_map(ddx_khrv_rec.target_pre_tax_yield);
772     p8_a46 := rosetta_g_miss_num_map(ddx_khrv_rec.target_after_tax_yield);
773     p8_a47 := rosetta_g_miss_num_map(ddx_khrv_rec.target_implicit_interest_rate);
774     p8_a48 := rosetta_g_miss_num_map(ddx_khrv_rec.target_implicit_nonidc_intrate);
775     p8_a49 := ddx_khrv_rec.date_last_interim_interest_cal;
776     p8_a50 := ddx_khrv_rec.deal_type;
777     p8_a51 := rosetta_g_miss_num_map(ddx_khrv_rec.pre_tax_irr);
778     p8_a52 := rosetta_g_miss_num_map(ddx_khrv_rec.after_tax_irr);
779     p8_a53 := ddx_khrv_rec.expected_delivery_date;
780     p8_a54 := ddx_khrv_rec.accepted_date;
781     p8_a55 := ddx_khrv_rec.prefunding_eligible_yn;
782     p8_a56 := ddx_khrv_rec.revolving_credit_yn;
783     p8_a57 := ddx_khrv_rec.currency_conversion_type;
784     p8_a58 := rosetta_g_miss_num_map(ddx_khrv_rec.currency_conversion_rate);
785     p8_a59 := ddx_khrv_rec.currency_conversion_date;
786     p8_a60 := ddx_khrv_rec.multi_gaap_yn;
787     p8_a61 := ddx_khrv_rec.recourse_code;
788     p8_a62 := ddx_khrv_rec.lessor_serv_org_code;
789     p8_a63 := ddx_khrv_rec.assignable_yn;
790     p8_a64 := ddx_khrv_rec.securitized_code;
791     p8_a65 := ddx_khrv_rec.securitization_type;
792   end;
793 
794   procedure create_contract_header(p_api_version  NUMBER
795     , p_init_msg_list  VARCHAR2
796     , x_return_status out nocopy  VARCHAR2
797     , x_msg_count out nocopy  NUMBER
798     , x_msg_data out nocopy  VARCHAR2
799     , p5_a0 JTF_NUMBER_TABLE
800     , p5_a1 JTF_NUMBER_TABLE
801     , p5_a2 JTF_VARCHAR2_TABLE_100
802     , p5_a3 JTF_NUMBER_TABLE
803     , p5_a4 JTF_NUMBER_TABLE
804     , p5_a5 JTF_NUMBER_TABLE
805     , p5_a6 JTF_NUMBER_TABLE
806     , p5_a7 JTF_VARCHAR2_TABLE_100
807     , p5_a8 JTF_NUMBER_TABLE
808     , p5_a9 JTF_VARCHAR2_TABLE_100
809     , p5_a10 JTF_VARCHAR2_TABLE_200
810     , p5_a11 JTF_VARCHAR2_TABLE_100
811     , p5_a12 JTF_VARCHAR2_TABLE_200
812     , p5_a13 JTF_VARCHAR2_TABLE_100
813     , p5_a14 JTF_VARCHAR2_TABLE_100
814     , p5_a15 JTF_VARCHAR2_TABLE_100
815     , p5_a16 JTF_VARCHAR2_TABLE_100
816     , p5_a17 JTF_VARCHAR2_TABLE_200
817     , p5_a18 JTF_VARCHAR2_TABLE_600
818     , p5_a19 JTF_VARCHAR2_TABLE_2000
819     , p5_a20 JTF_VARCHAR2_TABLE_2000
820     , p5_a21 JTF_VARCHAR2_TABLE_100
821     , p5_a22 JTF_VARCHAR2_TABLE_300
822     , p5_a23 JTF_VARCHAR2_TABLE_100
823     , p5_a24 JTF_VARCHAR2_TABLE_200
824     , p5_a25 JTF_DATE_TABLE
825     , p5_a26 JTF_DATE_TABLE
826     , p5_a27 JTF_NUMBER_TABLE
827     , p5_a28 JTF_DATE_TABLE
828     , p5_a29 JTF_DATE_TABLE
829     , p5_a30 JTF_VARCHAR2_TABLE_100
830     , p5_a31 JTF_VARCHAR2_TABLE_2000
831     , p5_a32 JTF_VARCHAR2_TABLE_100
832     , p5_a33 JTF_VARCHAR2_TABLE_100
833     , p5_a34 JTF_VARCHAR2_TABLE_100
834     , p5_a35 JTF_VARCHAR2_TABLE_100
835     , p5_a36 JTF_NUMBER_TABLE
836     , p5_a37 JTF_NUMBER_TABLE
837     , p5_a38 JTF_DATE_TABLE
838     , p5_a39 JTF_DATE_TABLE
839     , p5_a40 JTF_DATE_TABLE
840     , p5_a41 JTF_DATE_TABLE
841     , p5_a42 JTF_DATE_TABLE
842     , p5_a43 JTF_VARCHAR2_TABLE_100
843     , p5_a44 JTF_DATE_TABLE
844     , p5_a45 JTF_DATE_TABLE
845     , p5_a46 JTF_NUMBER_TABLE
846     , p5_a47 JTF_VARCHAR2_TABLE_100
847     , p5_a48 JTF_VARCHAR2_TABLE_100
848     , p5_a49 JTF_NUMBER_TABLE
849     , p5_a50 JTF_NUMBER_TABLE
850     , p5_a51 JTF_NUMBER_TABLE
851     , p5_a52 JTF_VARCHAR2_TABLE_100
852     , p5_a53 JTF_VARCHAR2_TABLE_100
853     , p5_a54 JTF_NUMBER_TABLE
854     , p5_a55 JTF_NUMBER_TABLE
855     , p5_a56 JTF_VARCHAR2_TABLE_100
856     , p5_a57 JTF_NUMBER_TABLE
857     , p5_a58 JTF_VARCHAR2_TABLE_100
858     , p5_a59 JTF_NUMBER_TABLE
859     , p5_a60 JTF_NUMBER_TABLE
860     , p5_a61 JTF_NUMBER_TABLE
861     , p5_a62 JTF_DATE_TABLE
862     , p5_a63 JTF_DATE_TABLE
863     , p5_a64 JTF_DATE_TABLE
864     , p5_a65 JTF_NUMBER_TABLE
865     , p5_a66 JTF_NUMBER_TABLE
866     , p5_a67 JTF_NUMBER_TABLE
867     , p5_a68 JTF_VARCHAR2_TABLE_100
868     , p5_a69 JTF_VARCHAR2_TABLE_500
869     , p5_a70 JTF_VARCHAR2_TABLE_500
870     , p5_a71 JTF_VARCHAR2_TABLE_500
871     , p5_a72 JTF_VARCHAR2_TABLE_500
872     , p5_a73 JTF_VARCHAR2_TABLE_500
873     , p5_a74 JTF_VARCHAR2_TABLE_500
874     , p5_a75 JTF_VARCHAR2_TABLE_500
875     , p5_a76 JTF_VARCHAR2_TABLE_500
876     , p5_a77 JTF_VARCHAR2_TABLE_500
877     , p5_a78 JTF_VARCHAR2_TABLE_500
878     , p5_a79 JTF_VARCHAR2_TABLE_500
879     , p5_a80 JTF_VARCHAR2_TABLE_500
880     , p5_a81 JTF_VARCHAR2_TABLE_500
881     , p5_a82 JTF_VARCHAR2_TABLE_500
882     , p5_a83 JTF_VARCHAR2_TABLE_500
883     , p5_a84 JTF_NUMBER_TABLE
884     , p5_a85 JTF_DATE_TABLE
885     , p5_a86 JTF_NUMBER_TABLE
886     , p5_a87 JTF_DATE_TABLE
887     , p5_a88 JTF_NUMBER_TABLE
888     , p5_a89 JTF_VARCHAR2_TABLE_100
889     , p5_a90 JTF_VARCHAR2_TABLE_100
890     , p5_a91 JTF_VARCHAR2_TABLE_100
891     , p5_a92 JTF_VARCHAR2_TABLE_100
892     , p5_a93 JTF_VARCHAR2_TABLE_100
893     , p5_a94 JTF_NUMBER_TABLE
894     , p5_a95 JTF_DATE_TABLE
895     , p5_a96 JTF_NUMBER_TABLE
896     , p5_a97 JTF_NUMBER_TABLE
897     , p5_a98 JTF_NUMBER_TABLE
898     , p5_a99 JTF_NUMBER_TABLE
899     , p5_a100 JTF_VARCHAR2_TABLE_100
900     , p5_a101 JTF_NUMBER_TABLE
901     , p5_a102 JTF_DATE_TABLE
902     , p5_a103 JTF_NUMBER_TABLE
903     , p5_a104 JTF_NUMBER_TABLE
904     , p6_a0 JTF_NUMBER_TABLE
905     , p6_a1 JTF_NUMBER_TABLE
906     , p6_a2 JTF_NUMBER_TABLE
907     , p6_a3 JTF_NUMBER_TABLE
908     , p6_a4 JTF_NUMBER_TABLE
909     , p6_a5 JTF_VARCHAR2_TABLE_100
910     , p6_a6 JTF_DATE_TABLE
911     , p6_a7 JTF_VARCHAR2_TABLE_100
912     , p6_a8 JTF_VARCHAR2_TABLE_100
913     , p6_a9 JTF_DATE_TABLE
914     , p6_a10 JTF_VARCHAR2_TABLE_100
915     , p6_a11 JTF_NUMBER_TABLE
916     , p6_a12 JTF_VARCHAR2_TABLE_100
917     , p6_a13 JTF_DATE_TABLE
918     , p6_a14 JTF_VARCHAR2_TABLE_100
919     , p6_a15 JTF_VARCHAR2_TABLE_100
920     , p6_a16 JTF_DATE_TABLE
921     , p6_a17 JTF_DATE_TABLE
922     , p6_a18 JTF_DATE_TABLE
923     , p6_a19 JTF_DATE_TABLE
924     , p6_a20 JTF_VARCHAR2_TABLE_100
925     , p6_a21 JTF_VARCHAR2_TABLE_500
926     , p6_a22 JTF_VARCHAR2_TABLE_500
927     , p6_a23 JTF_VARCHAR2_TABLE_500
928     , p6_a24 JTF_VARCHAR2_TABLE_500
929     , p6_a25 JTF_VARCHAR2_TABLE_500
930     , p6_a26 JTF_VARCHAR2_TABLE_500
931     , p6_a27 JTF_VARCHAR2_TABLE_500
932     , p6_a28 JTF_VARCHAR2_TABLE_500
933     , p6_a29 JTF_VARCHAR2_TABLE_500
934     , p6_a30 JTF_VARCHAR2_TABLE_500
935     , p6_a31 JTF_VARCHAR2_TABLE_500
936     , p6_a32 JTF_VARCHAR2_TABLE_500
937     , p6_a33 JTF_VARCHAR2_TABLE_500
938     , p6_a34 JTF_VARCHAR2_TABLE_500
939     , p6_a35 JTF_VARCHAR2_TABLE_500
940     , p6_a36 JTF_NUMBER_TABLE
941     , p6_a37 JTF_DATE_TABLE
942     , p6_a38 JTF_NUMBER_TABLE
943     , p6_a39 JTF_DATE_TABLE
944     , p6_a40 JTF_NUMBER_TABLE
945     , p6_a41 JTF_NUMBER_TABLE
946     , p6_a42 JTF_NUMBER_TABLE
947     , p6_a43 JTF_NUMBER_TABLE
948     , p6_a44 JTF_NUMBER_TABLE
949     , p6_a45 JTF_NUMBER_TABLE
950     , p6_a46 JTF_NUMBER_TABLE
951     , p6_a47 JTF_NUMBER_TABLE
952     , p6_a48 JTF_NUMBER_TABLE
953     , p6_a49 JTF_DATE_TABLE
954     , p6_a50 JTF_VARCHAR2_TABLE_100
955     , p6_a51 JTF_NUMBER_TABLE
956     , p6_a52 JTF_NUMBER_TABLE
957     , p6_a53 JTF_DATE_TABLE
958     , p6_a54 JTF_DATE_TABLE
959     , p6_a55 JTF_VARCHAR2_TABLE_100
960     , p6_a56 JTF_VARCHAR2_TABLE_100
961     , p6_a57 JTF_VARCHAR2_TABLE_100
962     , p6_a58 JTF_NUMBER_TABLE
963     , p6_a59 JTF_DATE_TABLE
964     , p6_a60 JTF_VARCHAR2_TABLE_100
965     , p6_a61 JTF_VARCHAR2_TABLE_100
966     , p6_a62 JTF_VARCHAR2_TABLE_100
967     , p6_a63 JTF_VARCHAR2_TABLE_100
968     , p6_a64 JTF_VARCHAR2_TABLE_100
969     , p6_a65 JTF_VARCHAR2_TABLE_100
970     , p7_a0 out nocopy JTF_NUMBER_TABLE
971     , p7_a1 out nocopy JTF_NUMBER_TABLE
972     , p7_a2 out nocopy JTF_VARCHAR2_TABLE_100
973     , p7_a3 out nocopy JTF_NUMBER_TABLE
974     , p7_a4 out nocopy JTF_NUMBER_TABLE
975     , p7_a5 out nocopy JTF_NUMBER_TABLE
976     , p7_a6 out nocopy JTF_NUMBER_TABLE
977     , p7_a7 out nocopy JTF_VARCHAR2_TABLE_100
978     , p7_a8 out nocopy JTF_NUMBER_TABLE
979     , p7_a9 out nocopy JTF_VARCHAR2_TABLE_100
980     , p7_a10 out nocopy JTF_VARCHAR2_TABLE_200
981     , p7_a11 out nocopy JTF_VARCHAR2_TABLE_100
982     , p7_a12 out nocopy JTF_VARCHAR2_TABLE_200
983     , p7_a13 out nocopy JTF_VARCHAR2_TABLE_100
984     , p7_a14 out nocopy JTF_VARCHAR2_TABLE_100
985     , p7_a15 out nocopy JTF_VARCHAR2_TABLE_100
986     , p7_a16 out nocopy JTF_VARCHAR2_TABLE_100
987     , p7_a17 out nocopy JTF_VARCHAR2_TABLE_200
988     , p7_a18 out nocopy JTF_VARCHAR2_TABLE_600
989     , p7_a19 out nocopy JTF_VARCHAR2_TABLE_2000
990     , p7_a20 out nocopy JTF_VARCHAR2_TABLE_2000
991     , p7_a21 out nocopy JTF_VARCHAR2_TABLE_100
992     , p7_a22 out nocopy JTF_VARCHAR2_TABLE_300
993     , p7_a23 out nocopy JTF_VARCHAR2_TABLE_100
994     , p7_a24 out nocopy JTF_VARCHAR2_TABLE_200
995     , p7_a25 out nocopy JTF_DATE_TABLE
996     , p7_a26 out nocopy JTF_DATE_TABLE
997     , p7_a27 out nocopy JTF_NUMBER_TABLE
998     , p7_a28 out nocopy JTF_DATE_TABLE
999     , p7_a29 out nocopy JTF_DATE_TABLE
1000     , p7_a30 out nocopy JTF_VARCHAR2_TABLE_100
1001     , p7_a31 out nocopy JTF_VARCHAR2_TABLE_2000
1002     , p7_a32 out nocopy JTF_VARCHAR2_TABLE_100
1003     , p7_a33 out nocopy JTF_VARCHAR2_TABLE_100
1004     , p7_a34 out nocopy JTF_VARCHAR2_TABLE_100
1005     , p7_a35 out nocopy JTF_VARCHAR2_TABLE_100
1006     , p7_a36 out nocopy JTF_NUMBER_TABLE
1007     , p7_a37 out nocopy JTF_NUMBER_TABLE
1008     , p7_a38 out nocopy JTF_DATE_TABLE
1009     , p7_a39 out nocopy JTF_DATE_TABLE
1010     , p7_a40 out nocopy JTF_DATE_TABLE
1011     , p7_a41 out nocopy JTF_DATE_TABLE
1012     , p7_a42 out nocopy JTF_DATE_TABLE
1013     , p7_a43 out nocopy JTF_VARCHAR2_TABLE_100
1014     , p7_a44 out nocopy JTF_DATE_TABLE
1015     , p7_a45 out nocopy JTF_DATE_TABLE
1016     , p7_a46 out nocopy JTF_NUMBER_TABLE
1017     , p7_a47 out nocopy JTF_VARCHAR2_TABLE_100
1018     , p7_a48 out nocopy JTF_VARCHAR2_TABLE_100
1019     , p7_a49 out nocopy JTF_NUMBER_TABLE
1020     , p7_a50 out nocopy JTF_NUMBER_TABLE
1021     , p7_a51 out nocopy JTF_NUMBER_TABLE
1022     , p7_a52 out nocopy JTF_VARCHAR2_TABLE_100
1023     , p7_a53 out nocopy JTF_VARCHAR2_TABLE_100
1024     , p7_a54 out nocopy JTF_NUMBER_TABLE
1025     , p7_a55 out nocopy JTF_NUMBER_TABLE
1026     , p7_a56 out nocopy JTF_VARCHAR2_TABLE_100
1027     , p7_a57 out nocopy JTF_NUMBER_TABLE
1028     , p7_a58 out nocopy JTF_VARCHAR2_TABLE_100
1029     , p7_a59 out nocopy JTF_NUMBER_TABLE
1030     , p7_a60 out nocopy JTF_NUMBER_TABLE
1031     , p7_a61 out nocopy JTF_NUMBER_TABLE
1032     , p7_a62 out nocopy JTF_DATE_TABLE
1033     , p7_a63 out nocopy JTF_DATE_TABLE
1034     , p7_a64 out nocopy JTF_DATE_TABLE
1035     , p7_a65 out nocopy JTF_NUMBER_TABLE
1036     , p7_a66 out nocopy JTF_NUMBER_TABLE
1037     , p7_a67 out nocopy JTF_NUMBER_TABLE
1038     , p7_a68 out nocopy JTF_VARCHAR2_TABLE_100
1039     , p7_a69 out nocopy JTF_VARCHAR2_TABLE_500
1040     , p7_a70 out nocopy JTF_VARCHAR2_TABLE_500
1041     , p7_a71 out nocopy JTF_VARCHAR2_TABLE_500
1042     , p7_a72 out nocopy JTF_VARCHAR2_TABLE_500
1043     , p7_a73 out nocopy JTF_VARCHAR2_TABLE_500
1044     , p7_a74 out nocopy JTF_VARCHAR2_TABLE_500
1045     , p7_a75 out nocopy JTF_VARCHAR2_TABLE_500
1046     , p7_a76 out nocopy JTF_VARCHAR2_TABLE_500
1047     , p7_a77 out nocopy JTF_VARCHAR2_TABLE_500
1048     , p7_a78 out nocopy JTF_VARCHAR2_TABLE_500
1049     , p7_a79 out nocopy JTF_VARCHAR2_TABLE_500
1050     , p7_a80 out nocopy JTF_VARCHAR2_TABLE_500
1051     , p7_a81 out nocopy JTF_VARCHAR2_TABLE_500
1052     , p7_a82 out nocopy JTF_VARCHAR2_TABLE_500
1053     , p7_a83 out nocopy JTF_VARCHAR2_TABLE_500
1054     , p7_a84 out nocopy JTF_NUMBER_TABLE
1055     , p7_a85 out nocopy JTF_DATE_TABLE
1056     , p7_a86 out nocopy JTF_NUMBER_TABLE
1057     , p7_a87 out nocopy JTF_DATE_TABLE
1058     , p7_a88 out nocopy JTF_NUMBER_TABLE
1059     , p7_a89 out nocopy JTF_VARCHAR2_TABLE_100
1060     , p7_a90 out nocopy JTF_VARCHAR2_TABLE_100
1061     , p7_a91 out nocopy JTF_VARCHAR2_TABLE_100
1062     , p7_a92 out nocopy JTF_VARCHAR2_TABLE_100
1063     , p7_a93 out nocopy JTF_VARCHAR2_TABLE_100
1064     , p7_a94 out nocopy JTF_NUMBER_TABLE
1065     , p7_a95 out nocopy JTF_DATE_TABLE
1066     , p7_a96 out nocopy JTF_NUMBER_TABLE
1067     , p7_a97 out nocopy JTF_NUMBER_TABLE
1068     , p7_a98 out nocopy JTF_NUMBER_TABLE
1069     , p7_a99 out nocopy JTF_NUMBER_TABLE
1070     , p7_a100 out nocopy JTF_VARCHAR2_TABLE_100
1071     , p7_a101 out nocopy JTF_NUMBER_TABLE
1072     , p7_a102 out nocopy JTF_DATE_TABLE
1073     , p7_a103 out nocopy JTF_NUMBER_TABLE
1074     , p7_a104 out nocopy JTF_NUMBER_TABLE
1075     , p8_a0 out nocopy JTF_NUMBER_TABLE
1076     , p8_a1 out nocopy JTF_NUMBER_TABLE
1077     , p8_a2 out nocopy JTF_NUMBER_TABLE
1078     , p8_a3 out nocopy JTF_NUMBER_TABLE
1079     , p8_a4 out nocopy JTF_NUMBER_TABLE
1080     , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
1081     , p8_a6 out nocopy JTF_DATE_TABLE
1082     , p8_a7 out nocopy JTF_VARCHAR2_TABLE_100
1083     , p8_a8 out nocopy JTF_VARCHAR2_TABLE_100
1084     , p8_a9 out nocopy JTF_DATE_TABLE
1085     , p8_a10 out nocopy JTF_VARCHAR2_TABLE_100
1086     , p8_a11 out nocopy JTF_NUMBER_TABLE
1087     , p8_a12 out nocopy JTF_VARCHAR2_TABLE_100
1088     , p8_a13 out nocopy JTF_DATE_TABLE
1089     , p8_a14 out nocopy JTF_VARCHAR2_TABLE_100
1090     , p8_a15 out nocopy JTF_VARCHAR2_TABLE_100
1091     , p8_a16 out nocopy JTF_DATE_TABLE
1092     , p8_a17 out nocopy JTF_DATE_TABLE
1093     , p8_a18 out nocopy JTF_DATE_TABLE
1094     , p8_a19 out nocopy JTF_DATE_TABLE
1095     , p8_a20 out nocopy JTF_VARCHAR2_TABLE_100
1096     , p8_a21 out nocopy JTF_VARCHAR2_TABLE_500
1097     , p8_a22 out nocopy JTF_VARCHAR2_TABLE_500
1098     , p8_a23 out nocopy JTF_VARCHAR2_TABLE_500
1099     , p8_a24 out nocopy JTF_VARCHAR2_TABLE_500
1100     , p8_a25 out nocopy JTF_VARCHAR2_TABLE_500
1101     , p8_a26 out nocopy JTF_VARCHAR2_TABLE_500
1102     , p8_a27 out nocopy JTF_VARCHAR2_TABLE_500
1103     , p8_a28 out nocopy JTF_VARCHAR2_TABLE_500
1104     , p8_a29 out nocopy JTF_VARCHAR2_TABLE_500
1105     , p8_a30 out nocopy JTF_VARCHAR2_TABLE_500
1106     , p8_a31 out nocopy JTF_VARCHAR2_TABLE_500
1107     , p8_a32 out nocopy JTF_VARCHAR2_TABLE_500
1108     , p8_a33 out nocopy JTF_VARCHAR2_TABLE_500
1109     , p8_a34 out nocopy JTF_VARCHAR2_TABLE_500
1110     , p8_a35 out nocopy JTF_VARCHAR2_TABLE_500
1111     , p8_a36 out nocopy JTF_NUMBER_TABLE
1112     , p8_a37 out nocopy JTF_DATE_TABLE
1113     , p8_a38 out nocopy JTF_NUMBER_TABLE
1114     , p8_a39 out nocopy JTF_DATE_TABLE
1115     , p8_a40 out nocopy JTF_NUMBER_TABLE
1116     , p8_a41 out nocopy JTF_NUMBER_TABLE
1117     , p8_a42 out nocopy JTF_NUMBER_TABLE
1118     , p8_a43 out nocopy JTF_NUMBER_TABLE
1119     , p8_a44 out nocopy JTF_NUMBER_TABLE
1120     , p8_a45 out nocopy JTF_NUMBER_TABLE
1121     , p8_a46 out nocopy JTF_NUMBER_TABLE
1122     , p8_a47 out nocopy JTF_NUMBER_TABLE
1123     , p8_a48 out nocopy JTF_NUMBER_TABLE
1124     , p8_a49 out nocopy JTF_DATE_TABLE
1125     , p8_a50 out nocopy JTF_VARCHAR2_TABLE_100
1126     , p8_a51 out nocopy JTF_NUMBER_TABLE
1127     , p8_a52 out nocopy JTF_NUMBER_TABLE
1128     , p8_a53 out nocopy JTF_DATE_TABLE
1129     , p8_a54 out nocopy JTF_DATE_TABLE
1130     , p8_a55 out nocopy JTF_VARCHAR2_TABLE_100
1131     , p8_a56 out nocopy JTF_VARCHAR2_TABLE_100
1132     , p8_a57 out nocopy JTF_VARCHAR2_TABLE_100
1133     , p8_a58 out nocopy JTF_NUMBER_TABLE
1134     , p8_a59 out nocopy JTF_DATE_TABLE
1135     , p8_a60 out nocopy JTF_VARCHAR2_TABLE_100
1136     , p8_a61 out nocopy JTF_VARCHAR2_TABLE_100
1137     , p8_a62 out nocopy JTF_VARCHAR2_TABLE_100
1138     , p8_a63 out nocopy JTF_VARCHAR2_TABLE_100
1139     , p8_a64 out nocopy JTF_VARCHAR2_TABLE_100
1140     , p8_a65 out nocopy JTF_VARCHAR2_TABLE_100
1141   )
1142 
1143   as
1144     ddp_chrv_tbl okl_okc_migration_pvt.chrv_tbl_type;
1145     ddp_khrv_tbl okl_contract_pvt.khrv_tbl_type;
1146     ddx_chrv_tbl okl_okc_migration_pvt.chrv_tbl_type;
1147     ddx_khrv_tbl okl_contract_pvt.khrv_tbl_type;
1148     ddindx binary_integer; indx binary_integer;
1149   begin
1150 
1151     -- copy data to the local IN or IN-OUT args, if any
1152 
1153 
1154 
1155 
1156 
1157     okl_okc_migration_pvt_w.rosetta_table_copy_in_p3(ddp_chrv_tbl, p5_a0
1158       , p5_a1
1159       , p5_a2
1160       , p5_a3
1161       , p5_a4
1162       , p5_a5
1163       , p5_a6
1164       , p5_a7
1165       , p5_a8
1166       , p5_a9
1167       , p5_a10
1168       , p5_a11
1169       , p5_a12
1170       , p5_a13
1171       , p5_a14
1172       , p5_a15
1173       , p5_a16
1174       , p5_a17
1175       , p5_a18
1176       , p5_a19
1177       , p5_a20
1178       , p5_a21
1179       , p5_a22
1180       , p5_a23
1181       , p5_a24
1182       , p5_a25
1183       , p5_a26
1184       , p5_a27
1185       , p5_a28
1186       , p5_a29
1187       , p5_a30
1188       , p5_a31
1189       , p5_a32
1190       , p5_a33
1191       , p5_a34
1192       , p5_a35
1193       , p5_a36
1194       , p5_a37
1195       , p5_a38
1196       , p5_a39
1197       , p5_a40
1198       , p5_a41
1199       , p5_a42
1200       , p5_a43
1201       , p5_a44
1202       , p5_a45
1203       , p5_a46
1204       , p5_a47
1205       , p5_a48
1206       , p5_a49
1207       , p5_a50
1208       , p5_a51
1209       , p5_a52
1210       , p5_a53
1211       , p5_a54
1212       , p5_a55
1213       , p5_a56
1214       , p5_a57
1215       , p5_a58
1216       , p5_a59
1217       , p5_a60
1218       , p5_a61
1219       , p5_a62
1220       , p5_a63
1221       , p5_a64
1222       , p5_a65
1223       , p5_a66
1224       , p5_a67
1225       , p5_a68
1226       , p5_a69
1227       , p5_a70
1228       , p5_a71
1229       , p5_a72
1230       , p5_a73
1231       , p5_a74
1232       , p5_a75
1233       , p5_a76
1234       , p5_a77
1235       , p5_a78
1236       , p5_a79
1237       , p5_a80
1238       , p5_a81
1239       , p5_a82
1240       , p5_a83
1241       , p5_a84
1242       , p5_a85
1243       , p5_a86
1244       , p5_a87
1245       , p5_a88
1246       , p5_a89
1247       , p5_a90
1248       , p5_a91
1249       , p5_a92
1250       , p5_a93
1251       , p5_a94
1252       , p5_a95
1253       , p5_a96
1254       , p5_a97
1255       , p5_a98
1256       , p5_a99
1257       , p5_a100
1258       , p5_a101
1259       , p5_a102
1260       , p5_a103
1261       , p5_a104
1262       );
1263 
1264     okl_khr_pvt_w.rosetta_table_copy_in_p8(ddp_khrv_tbl, p6_a0
1265       , p6_a1
1266       , p6_a2
1267       , p6_a3
1268       , p6_a4
1269       , p6_a5
1270       , p6_a6
1271       , p6_a7
1272       , p6_a8
1273       , p6_a9
1274       , p6_a10
1275       , p6_a11
1276       , p6_a12
1277       , p6_a13
1278       , p6_a14
1279       , p6_a15
1280       , p6_a16
1281       , p6_a17
1282       , p6_a18
1283       , p6_a19
1284       , p6_a20
1285       , p6_a21
1286       , p6_a22
1287       , p6_a23
1288       , p6_a24
1289       , p6_a25
1290       , p6_a26
1291       , p6_a27
1292       , p6_a28
1293       , p6_a29
1294       , p6_a30
1295       , p6_a31
1296       , p6_a32
1297       , p6_a33
1298       , p6_a34
1299       , p6_a35
1300       , p6_a36
1301       , p6_a37
1302       , p6_a38
1303       , p6_a39
1304       , p6_a40
1305       , p6_a41
1306       , p6_a42
1307       , p6_a43
1308       , p6_a44
1309       , p6_a45
1310       , p6_a46
1311       , p6_a47
1312       , p6_a48
1313       , p6_a49
1314       , p6_a50
1315       , p6_a51
1316       , p6_a52
1317       , p6_a53
1318       , p6_a54
1319       , p6_a55
1320       , p6_a56
1321       , p6_a57
1322       , p6_a58
1323       , p6_a59
1324       , p6_a60
1325       , p6_a61
1326       , p6_a62
1327       , p6_a63
1328       , p6_a64
1329       , p6_a65
1330       );
1331 
1332 
1333 
1334     -- here's the delegated call to the old PL/SQL routine
1335     okl_contract_pvt.create_contract_header(p_api_version,
1336       p_init_msg_list,
1337       x_return_status,
1338       x_msg_count,
1339       x_msg_data,
1340       ddp_chrv_tbl,
1341       ddp_khrv_tbl,
1342       ddx_chrv_tbl,
1343       ddx_khrv_tbl);
1344 
1345     -- copy data back from the local variables to OUT or IN-OUT args, if any
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353     okl_okc_migration_pvt_w.rosetta_table_copy_out_p3(ddx_chrv_tbl, p7_a0
1354       , p7_a1
1355       , p7_a2
1356       , p7_a3
1357       , p7_a4
1358       , p7_a5
1359       , p7_a6
1360       , p7_a7
1361       , p7_a8
1362       , p7_a9
1363       , p7_a10
1364       , p7_a11
1365       , p7_a12
1366       , p7_a13
1367       , p7_a14
1368       , p7_a15
1369       , p7_a16
1370       , p7_a17
1371       , p7_a18
1372       , p7_a19
1373       , p7_a20
1374       , p7_a21
1375       , p7_a22
1376       , p7_a23
1377       , p7_a24
1378       , p7_a25
1379       , p7_a26
1380       , p7_a27
1381       , p7_a28
1382       , p7_a29
1383       , p7_a30
1384       , p7_a31
1385       , p7_a32
1386       , p7_a33
1387       , p7_a34
1388       , p7_a35
1389       , p7_a36
1390       , p7_a37
1391       , p7_a38
1392       , p7_a39
1393       , p7_a40
1394       , p7_a41
1395       , p7_a42
1396       , p7_a43
1397       , p7_a44
1398       , p7_a45
1399       , p7_a46
1400       , p7_a47
1401       , p7_a48
1402       , p7_a49
1403       , p7_a50
1404       , p7_a51
1405       , p7_a52
1406       , p7_a53
1407       , p7_a54
1408       , p7_a55
1409       , p7_a56
1410       , p7_a57
1411       , p7_a58
1412       , p7_a59
1413       , p7_a60
1414       , p7_a61
1415       , p7_a62
1416       , p7_a63
1417       , p7_a64
1418       , p7_a65
1419       , p7_a66
1420       , p7_a67
1421       , p7_a68
1422       , p7_a69
1423       , p7_a70
1424       , p7_a71
1425       , p7_a72
1426       , p7_a73
1427       , p7_a74
1428       , p7_a75
1429       , p7_a76
1430       , p7_a77
1431       , p7_a78
1432       , p7_a79
1433       , p7_a80
1434       , p7_a81
1435       , p7_a82
1436       , p7_a83
1437       , p7_a84
1438       , p7_a85
1439       , p7_a86
1440       , p7_a87
1441       , p7_a88
1442       , p7_a89
1443       , p7_a90
1444       , p7_a91
1445       , p7_a92
1446       , p7_a93
1447       , p7_a94
1448       , p7_a95
1449       , p7_a96
1450       , p7_a97
1451       , p7_a98
1452       , p7_a99
1453       , p7_a100
1454       , p7_a101
1455       , p7_a102
1456       , p7_a103
1457       , p7_a104
1458       );
1459 
1460     okl_khr_pvt_w.rosetta_table_copy_out_p8(ddx_khrv_tbl, p8_a0
1461       , p8_a1
1462       , p8_a2
1463       , p8_a3
1464       , p8_a4
1465       , p8_a5
1466       , p8_a6
1467       , p8_a7
1468       , p8_a8
1469       , p8_a9
1470       , p8_a10
1471       , p8_a11
1472       , p8_a12
1473       , p8_a13
1474       , p8_a14
1475       , p8_a15
1476       , p8_a16
1477       , p8_a17
1478       , p8_a18
1479       , p8_a19
1480       , p8_a20
1481       , p8_a21
1482       , p8_a22
1483       , p8_a23
1484       , p8_a24
1485       , p8_a25
1486       , p8_a26
1487       , p8_a27
1488       , p8_a28
1489       , p8_a29
1490       , p8_a30
1491       , p8_a31
1492       , p8_a32
1493       , p8_a33
1494       , p8_a34
1495       , p8_a35
1496       , p8_a36
1497       , p8_a37
1498       , p8_a38
1499       , p8_a39
1500       , p8_a40
1501       , p8_a41
1502       , p8_a42
1503       , p8_a43
1504       , p8_a44
1505       , p8_a45
1506       , p8_a46
1507       , p8_a47
1508       , p8_a48
1509       , p8_a49
1510       , p8_a50
1511       , p8_a51
1512       , p8_a52
1513       , p8_a53
1514       , p8_a54
1515       , p8_a55
1516       , p8_a56
1517       , p8_a57
1518       , p8_a58
1519       , p8_a59
1520       , p8_a60
1521       , p8_a61
1522       , p8_a62
1523       , p8_a63
1524       , p8_a64
1525       , p8_a65
1526       );
1527   end;
1528 
1529   procedure update_contract_header(p_api_version  NUMBER
1530     , p_init_msg_list  VARCHAR2
1531     , x_return_status out nocopy  VARCHAR2
1532     , x_msg_count out nocopy  NUMBER
1533     , x_msg_data out nocopy  VARCHAR2
1534     , p_restricted_update  VARCHAR2
1535     , p8_a0 out nocopy  NUMBER
1536     , p8_a1 out nocopy  NUMBER
1537     , p8_a2 out nocopy  VARCHAR2
1538     , p8_a3 out nocopy  NUMBER
1539     , p8_a4 out nocopy  NUMBER
1540     , p8_a5 out nocopy  NUMBER
1541     , p8_a6 out nocopy  NUMBER
1542     , p8_a7 out nocopy  VARCHAR2
1543     , p8_a8 out nocopy  NUMBER
1544     , p8_a9 out nocopy  VARCHAR2
1545     , p8_a10 out nocopy  VARCHAR2
1546     , p8_a11 out nocopy  VARCHAR2
1547     , p8_a12 out nocopy  VARCHAR2
1548     , p8_a13 out nocopy  VARCHAR2
1549     , p8_a14 out nocopy  VARCHAR2
1550     , p8_a15 out nocopy  VARCHAR2
1551     , p8_a16 out nocopy  VARCHAR2
1552     , p8_a17 out nocopy  VARCHAR2
1553     , p8_a18 out nocopy  VARCHAR2
1554     , p8_a19 out nocopy  VARCHAR2
1555     , p8_a20 out nocopy  VARCHAR2
1556     , p8_a21 out nocopy  VARCHAR2
1557     , p8_a22 out nocopy  VARCHAR2
1558     , p8_a23 out nocopy  VARCHAR2
1559     , p8_a24 out nocopy  VARCHAR2
1560     , p8_a25 out nocopy  DATE
1561     , p8_a26 out nocopy  DATE
1562     , p8_a27 out nocopy  NUMBER
1563     , p8_a28 out nocopy  DATE
1564     , p8_a29 out nocopy  DATE
1565     , p8_a30 out nocopy  VARCHAR2
1566     , p8_a31 out nocopy  VARCHAR2
1567     , p8_a32 out nocopy  VARCHAR2
1568     , p8_a33 out nocopy  VARCHAR2
1569     , p8_a34 out nocopy  VARCHAR2
1570     , p8_a35 out nocopy  VARCHAR2
1571     , p8_a36 out nocopy  NUMBER
1572     , p8_a37 out nocopy  NUMBER
1573     , p8_a38 out nocopy  DATE
1574     , p8_a39 out nocopy  DATE
1575     , p8_a40 out nocopy  DATE
1576     , p8_a41 out nocopy  DATE
1577     , p8_a42 out nocopy  DATE
1578     , p8_a43 out nocopy  VARCHAR2
1579     , p8_a44 out nocopy  DATE
1580     , p8_a45 out nocopy  DATE
1581     , p8_a46 out nocopy  NUMBER
1582     , p8_a47 out nocopy  VARCHAR2
1583     , p8_a48 out nocopy  VARCHAR2
1584     , p8_a49 out nocopy  NUMBER
1585     , p8_a50 out nocopy  NUMBER
1586     , p8_a51 out nocopy  NUMBER
1587     , p8_a52 out nocopy  VARCHAR2
1588     , p8_a53 out nocopy  VARCHAR2
1589     , p8_a54 out nocopy  NUMBER
1590     , p8_a55 out nocopy  NUMBER
1591     , p8_a56 out nocopy  VARCHAR2
1592     , p8_a57 out nocopy  NUMBER
1593     , p8_a58 out nocopy  VARCHAR2
1594     , p8_a59 out nocopy  NUMBER
1595     , p8_a60 out nocopy  NUMBER
1596     , p8_a61 out nocopy  NUMBER
1597     , p8_a62 out nocopy  DATE
1598     , p8_a63 out nocopy  DATE
1599     , p8_a64 out nocopy  DATE
1600     , p8_a65 out nocopy  NUMBER
1601     , p8_a66 out nocopy  NUMBER
1602     , p8_a67 out nocopy  NUMBER
1603     , p8_a68 out nocopy  VARCHAR2
1604     , p8_a69 out nocopy  VARCHAR2
1605     , p8_a70 out nocopy  VARCHAR2
1606     , p8_a71 out nocopy  VARCHAR2
1607     , p8_a72 out nocopy  VARCHAR2
1608     , p8_a73 out nocopy  VARCHAR2
1609     , p8_a74 out nocopy  VARCHAR2
1610     , p8_a75 out nocopy  VARCHAR2
1611     , p8_a76 out nocopy  VARCHAR2
1612     , p8_a77 out nocopy  VARCHAR2
1613     , p8_a78 out nocopy  VARCHAR2
1614     , p8_a79 out nocopy  VARCHAR2
1615     , p8_a80 out nocopy  VARCHAR2
1616     , p8_a81 out nocopy  VARCHAR2
1617     , p8_a82 out nocopy  VARCHAR2
1618     , p8_a83 out nocopy  VARCHAR2
1619     , p8_a84 out nocopy  NUMBER
1620     , p8_a85 out nocopy  DATE
1621     , p8_a86 out nocopy  NUMBER
1622     , p8_a87 out nocopy  DATE
1623     , p8_a88 out nocopy  NUMBER
1624     , p8_a89 out nocopy  VARCHAR2
1625     , p8_a90 out nocopy  VARCHAR2
1626     , p8_a91 out nocopy  VARCHAR2
1627     , p8_a92 out nocopy  VARCHAR2
1628     , p8_a93 out nocopy  VARCHAR2
1629     , p8_a94 out nocopy  NUMBER
1630     , p8_a95 out nocopy  DATE
1631     , p8_a96 out nocopy  NUMBER
1632     , p8_a97 out nocopy  NUMBER
1633     , p8_a98 out nocopy  NUMBER
1634     , p8_a99 out nocopy  NUMBER
1635     , p8_a100 out nocopy  VARCHAR2
1636     , p8_a101 out nocopy  NUMBER
1637     , p8_a102 out nocopy  DATE
1638     , p8_a103 out nocopy  NUMBER
1639     , p8_a104 out nocopy  NUMBER
1640     , p9_a0 out nocopy  NUMBER
1641     , p9_a1 out nocopy  NUMBER
1642     , p9_a2 out nocopy  NUMBER
1643     , p9_a3 out nocopy  NUMBER
1644     , p9_a4 out nocopy  NUMBER
1645     , p9_a5 out nocopy  VARCHAR2
1646     , p9_a6 out nocopy  DATE
1647     , p9_a7 out nocopy  VARCHAR2
1648     , p9_a8 out nocopy  VARCHAR2
1649     , p9_a9 out nocopy  DATE
1650     , p9_a10 out nocopy  VARCHAR2
1651     , p9_a11 out nocopy  NUMBER
1652     , p9_a12 out nocopy  VARCHAR2
1653     , p9_a13 out nocopy  DATE
1654     , p9_a14 out nocopy  VARCHAR2
1655     , p9_a15 out nocopy  VARCHAR2
1656     , p9_a16 out nocopy  DATE
1657     , p9_a17 out nocopy  DATE
1658     , p9_a18 out nocopy  DATE
1659     , p9_a19 out nocopy  DATE
1660     , p9_a20 out nocopy  VARCHAR2
1661     , p9_a21 out nocopy  VARCHAR2
1662     , p9_a22 out nocopy  VARCHAR2
1663     , p9_a23 out nocopy  VARCHAR2
1664     , p9_a24 out nocopy  VARCHAR2
1665     , p9_a25 out nocopy  VARCHAR2
1666     , p9_a26 out nocopy  VARCHAR2
1667     , p9_a27 out nocopy  VARCHAR2
1668     , p9_a28 out nocopy  VARCHAR2
1669     , p9_a29 out nocopy  VARCHAR2
1670     , p9_a30 out nocopy  VARCHAR2
1671     , p9_a31 out nocopy  VARCHAR2
1672     , p9_a32 out nocopy  VARCHAR2
1673     , p9_a33 out nocopy  VARCHAR2
1674     , p9_a34 out nocopy  VARCHAR2
1675     , p9_a35 out nocopy  VARCHAR2
1676     , p9_a36 out nocopy  NUMBER
1677     , p9_a37 out nocopy  DATE
1678     , p9_a38 out nocopy  NUMBER
1679     , p9_a39 out nocopy  DATE
1680     , p9_a40 out nocopy  NUMBER
1681     , p9_a41 out nocopy  NUMBER
1682     , p9_a42 out nocopy  NUMBER
1683     , p9_a43 out nocopy  NUMBER
1684     , p9_a44 out nocopy  NUMBER
1685     , p9_a45 out nocopy  NUMBER
1686     , p9_a46 out nocopy  NUMBER
1687     , p9_a47 out nocopy  NUMBER
1688     , p9_a48 out nocopy  NUMBER
1689     , p9_a49 out nocopy  DATE
1690     , p9_a50 out nocopy  VARCHAR2
1691     , p9_a51 out nocopy  NUMBER
1692     , p9_a52 out nocopy  NUMBER
1693     , p9_a53 out nocopy  DATE
1694     , p9_a54 out nocopy  DATE
1695     , p9_a55 out nocopy  VARCHAR2
1696     , p9_a56 out nocopy  VARCHAR2
1697     , p9_a57 out nocopy  VARCHAR2
1698     , p9_a58 out nocopy  NUMBER
1699     , p9_a59 out nocopy  DATE
1700     , p9_a60 out nocopy  VARCHAR2
1701     , p9_a61 out nocopy  VARCHAR2
1702     , p9_a62 out nocopy  VARCHAR2
1703     , p9_a63 out nocopy  VARCHAR2
1704     , p9_a64 out nocopy  VARCHAR2
1705     , p9_a65 out nocopy  VARCHAR2
1706     , p6_a0  NUMBER := 0-1962.0724
1707     , p6_a1  NUMBER := 0-1962.0724
1708     , p6_a2  VARCHAR2 := fnd_api.g_miss_char
1709     , p6_a3  NUMBER := 0-1962.0724
1710     , p6_a4  NUMBER := 0-1962.0724
1711     , p6_a5  NUMBER := 0-1962.0724
1712     , p6_a6  NUMBER := 0-1962.0724
1713     , p6_a7  VARCHAR2 := fnd_api.g_miss_char
1714     , p6_a8  NUMBER := 0-1962.0724
1715     , p6_a9  VARCHAR2 := fnd_api.g_miss_char
1716     , p6_a10  VARCHAR2 := fnd_api.g_miss_char
1717     , p6_a11  VARCHAR2 := fnd_api.g_miss_char
1718     , p6_a12  VARCHAR2 := fnd_api.g_miss_char
1719     , p6_a13  VARCHAR2 := fnd_api.g_miss_char
1720     , p6_a14  VARCHAR2 := fnd_api.g_miss_char
1721     , p6_a15  VARCHAR2 := fnd_api.g_miss_char
1722     , p6_a16  VARCHAR2 := fnd_api.g_miss_char
1723     , p6_a17  VARCHAR2 := fnd_api.g_miss_char
1724     , p6_a18  VARCHAR2 := fnd_api.g_miss_char
1725     , p6_a19  VARCHAR2 := fnd_api.g_miss_char
1726     , p6_a20  VARCHAR2 := fnd_api.g_miss_char
1727     , p6_a21  VARCHAR2 := fnd_api.g_miss_char
1728     , p6_a22  VARCHAR2 := fnd_api.g_miss_char
1729     , p6_a23  VARCHAR2 := fnd_api.g_miss_char
1730     , p6_a24  VARCHAR2 := fnd_api.g_miss_char
1731     , p6_a25  DATE := fnd_api.g_miss_date
1732     , p6_a26  DATE := fnd_api.g_miss_date
1733     , p6_a27  NUMBER := 0-1962.0724
1734     , p6_a28  DATE := fnd_api.g_miss_date
1735     , p6_a29  DATE := fnd_api.g_miss_date
1736     , p6_a30  VARCHAR2 := fnd_api.g_miss_char
1737     , p6_a31  VARCHAR2 := fnd_api.g_miss_char
1738     , p6_a32  VARCHAR2 := fnd_api.g_miss_char
1739     , p6_a33  VARCHAR2 := fnd_api.g_miss_char
1740     , p6_a34  VARCHAR2 := fnd_api.g_miss_char
1741     , p6_a35  VARCHAR2 := fnd_api.g_miss_char
1742     , p6_a36  NUMBER := 0-1962.0724
1743     , p6_a37  NUMBER := 0-1962.0724
1744     , p6_a38  DATE := fnd_api.g_miss_date
1745     , p6_a39  DATE := fnd_api.g_miss_date
1746     , p6_a40  DATE := fnd_api.g_miss_date
1747     , p6_a41  DATE := fnd_api.g_miss_date
1748     , p6_a42  DATE := fnd_api.g_miss_date
1749     , p6_a43  VARCHAR2 := fnd_api.g_miss_char
1750     , p6_a44  DATE := fnd_api.g_miss_date
1751     , p6_a45  DATE := fnd_api.g_miss_date
1752     , p6_a46  NUMBER := 0-1962.0724
1753     , p6_a47  VARCHAR2 := fnd_api.g_miss_char
1754     , p6_a48  VARCHAR2 := fnd_api.g_miss_char
1755     , p6_a49  NUMBER := 0-1962.0724
1756     , p6_a50  NUMBER := 0-1962.0724
1757     , p6_a51  NUMBER := 0-1962.0724
1758     , p6_a52  VARCHAR2 := fnd_api.g_miss_char
1759     , p6_a53  VARCHAR2 := fnd_api.g_miss_char
1760     , p6_a54  NUMBER := 0-1962.0724
1761     , p6_a55  NUMBER := 0-1962.0724
1762     , p6_a56  VARCHAR2 := fnd_api.g_miss_char
1763     , p6_a57  NUMBER := 0-1962.0724
1764     , p6_a58  VARCHAR2 := fnd_api.g_miss_char
1765     , p6_a59  NUMBER := 0-1962.0724
1766     , p6_a60  NUMBER := 0-1962.0724
1767     , p6_a61  NUMBER := 0-1962.0724
1768     , p6_a62  DATE := fnd_api.g_miss_date
1769     , p6_a63  DATE := fnd_api.g_miss_date
1770     , p6_a64  DATE := fnd_api.g_miss_date
1771     , p6_a65  NUMBER := 0-1962.0724
1772     , p6_a66  NUMBER := 0-1962.0724
1773     , p6_a67  NUMBER := 0-1962.0724
1774     , p6_a68  VARCHAR2 := fnd_api.g_miss_char
1775     , p6_a69  VARCHAR2 := fnd_api.g_miss_char
1776     , p6_a70  VARCHAR2 := fnd_api.g_miss_char
1777     , p6_a71  VARCHAR2 := fnd_api.g_miss_char
1778     , p6_a72  VARCHAR2 := fnd_api.g_miss_char
1779     , p6_a73  VARCHAR2 := fnd_api.g_miss_char
1780     , p6_a74  VARCHAR2 := fnd_api.g_miss_char
1781     , p6_a75  VARCHAR2 := fnd_api.g_miss_char
1782     , p6_a76  VARCHAR2 := fnd_api.g_miss_char
1783     , p6_a77  VARCHAR2 := fnd_api.g_miss_char
1784     , p6_a78  VARCHAR2 := fnd_api.g_miss_char
1785     , p6_a79  VARCHAR2 := fnd_api.g_miss_char
1786     , p6_a80  VARCHAR2 := fnd_api.g_miss_char
1787     , p6_a81  VARCHAR2 := fnd_api.g_miss_char
1788     , p6_a82  VARCHAR2 := fnd_api.g_miss_char
1789     , p6_a83  VARCHAR2 := fnd_api.g_miss_char
1790     , p6_a84  NUMBER := 0-1962.0724
1791     , p6_a85  DATE := fnd_api.g_miss_date
1792     , p6_a86  NUMBER := 0-1962.0724
1793     , p6_a87  DATE := fnd_api.g_miss_date
1794     , p6_a88  NUMBER := 0-1962.0724
1795     , p6_a89  VARCHAR2 := fnd_api.g_miss_char
1796     , p6_a90  VARCHAR2 := fnd_api.g_miss_char
1797     , p6_a91  VARCHAR2 := fnd_api.g_miss_char
1798     , p6_a92  VARCHAR2 := fnd_api.g_miss_char
1799     , p6_a93  VARCHAR2 := fnd_api.g_miss_char
1800     , p6_a94  NUMBER := 0-1962.0724
1801     , p6_a95  DATE := fnd_api.g_miss_date
1802     , p6_a96  NUMBER := 0-1962.0724
1803     , p6_a97  NUMBER := 0-1962.0724
1804     , p6_a98  NUMBER := 0-1962.0724
1805     , p6_a99  NUMBER := 0-1962.0724
1806     , p6_a100  VARCHAR2 := fnd_api.g_miss_char
1807     , p6_a101  NUMBER := 0-1962.0724
1808     , p6_a102  DATE := fnd_api.g_miss_date
1809     , p6_a103  NUMBER := 0-1962.0724
1810     , p6_a104  NUMBER := 0-1962.0724
1811     , p7_a0  NUMBER := 0-1962.0724
1812     , p7_a1  NUMBER := 0-1962.0724
1813     , p7_a2  NUMBER := 0-1962.0724
1814     , p7_a3  NUMBER := 0-1962.0724
1815     , p7_a4  NUMBER := 0-1962.0724
1816     , p7_a5  VARCHAR2 := fnd_api.g_miss_char
1817     , p7_a6  DATE := fnd_api.g_miss_date
1818     , p7_a7  VARCHAR2 := fnd_api.g_miss_char
1819     , p7_a8  VARCHAR2 := fnd_api.g_miss_char
1820     , p7_a9  DATE := fnd_api.g_miss_date
1821     , p7_a10  VARCHAR2 := fnd_api.g_miss_char
1822     , p7_a11  NUMBER := 0-1962.0724
1823     , p7_a12  VARCHAR2 := fnd_api.g_miss_char
1824     , p7_a13  DATE := fnd_api.g_miss_date
1825     , p7_a14  VARCHAR2 := fnd_api.g_miss_char
1826     , p7_a15  VARCHAR2 := fnd_api.g_miss_char
1827     , p7_a16  DATE := fnd_api.g_miss_date
1828     , p7_a17  DATE := fnd_api.g_miss_date
1829     , p7_a18  DATE := fnd_api.g_miss_date
1830     , p7_a19  DATE := fnd_api.g_miss_date
1831     , p7_a20  VARCHAR2 := fnd_api.g_miss_char
1832     , p7_a21  VARCHAR2 := fnd_api.g_miss_char
1833     , p7_a22  VARCHAR2 := fnd_api.g_miss_char
1834     , p7_a23  VARCHAR2 := fnd_api.g_miss_char
1835     , p7_a24  VARCHAR2 := fnd_api.g_miss_char
1836     , p7_a25  VARCHAR2 := fnd_api.g_miss_char
1837     , p7_a26  VARCHAR2 := fnd_api.g_miss_char
1838     , p7_a27  VARCHAR2 := fnd_api.g_miss_char
1839     , p7_a28  VARCHAR2 := fnd_api.g_miss_char
1840     , p7_a29  VARCHAR2 := fnd_api.g_miss_char
1841     , p7_a30  VARCHAR2 := fnd_api.g_miss_char
1842     , p7_a31  VARCHAR2 := fnd_api.g_miss_char
1843     , p7_a32  VARCHAR2 := fnd_api.g_miss_char
1844     , p7_a33  VARCHAR2 := fnd_api.g_miss_char
1845     , p7_a34  VARCHAR2 := fnd_api.g_miss_char
1846     , p7_a35  VARCHAR2 := fnd_api.g_miss_char
1847     , p7_a36  NUMBER := 0-1962.0724
1848     , p7_a37  DATE := fnd_api.g_miss_date
1849     , p7_a38  NUMBER := 0-1962.0724
1850     , p7_a39  DATE := fnd_api.g_miss_date
1851     , p7_a40  NUMBER := 0-1962.0724
1852     , p7_a41  NUMBER := 0-1962.0724
1853     , p7_a42  NUMBER := 0-1962.0724
1854     , p7_a43  NUMBER := 0-1962.0724
1855     , p7_a44  NUMBER := 0-1962.0724
1856     , p7_a45  NUMBER := 0-1962.0724
1857     , p7_a46  NUMBER := 0-1962.0724
1858     , p7_a47  NUMBER := 0-1962.0724
1859     , p7_a48  NUMBER := 0-1962.0724
1860     , p7_a49  DATE := fnd_api.g_miss_date
1861     , p7_a50  VARCHAR2 := fnd_api.g_miss_char
1862     , p7_a51  NUMBER := 0-1962.0724
1863     , p7_a52  NUMBER := 0-1962.0724
1864     , p7_a53  DATE := fnd_api.g_miss_date
1865     , p7_a54  DATE := fnd_api.g_miss_date
1866     , p7_a55  VARCHAR2 := fnd_api.g_miss_char
1867     , p7_a56  VARCHAR2 := fnd_api.g_miss_char
1868     , p7_a57  VARCHAR2 := fnd_api.g_miss_char
1869     , p7_a58  NUMBER := 0-1962.0724
1870     , p7_a59  DATE := fnd_api.g_miss_date
1871     , p7_a60  VARCHAR2 := fnd_api.g_miss_char
1872     , p7_a61  VARCHAR2 := fnd_api.g_miss_char
1873     , p7_a62  VARCHAR2 := fnd_api.g_miss_char
1874     , p7_a63  VARCHAR2 := fnd_api.g_miss_char
1875     , p7_a64  VARCHAR2 := fnd_api.g_miss_char
1876     , p7_a65  VARCHAR2 := fnd_api.g_miss_char
1877   )
1878 
1879   as
1880     ddp_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
1881     ddp_khrv_rec okl_contract_pvt.khrv_rec_type;
1882     ddx_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
1883     ddx_khrv_rec okl_contract_pvt.khrv_rec_type;
1884     ddindx binary_integer; indx binary_integer;
1885   begin
1886 
1887     -- copy data to the local IN or IN-OUT args, if any
1888 
1889 
1890 
1891 
1892 
1893 
1894     ddp_chrv_rec.id := rosetta_g_miss_num_map(p6_a0);
1895     ddp_chrv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
1896     ddp_chrv_rec.sfwt_flag := p6_a2;
1897     ddp_chrv_rec.chr_id_response := rosetta_g_miss_num_map(p6_a3);
1898     ddp_chrv_rec.chr_id_award := rosetta_g_miss_num_map(p6_a4);
1899     ddp_chrv_rec.chr_id_renewed := rosetta_g_miss_num_map(p6_a5);
1900     ddp_chrv_rec.inv_organization_id := rosetta_g_miss_num_map(p6_a6);
1901     ddp_chrv_rec.sts_code := p6_a7;
1902     ddp_chrv_rec.qcl_id := rosetta_g_miss_num_map(p6_a8);
1903     ddp_chrv_rec.scs_code := p6_a9;
1904     ddp_chrv_rec.contract_number := p6_a10;
1905     ddp_chrv_rec.currency_code := p6_a11;
1906     ddp_chrv_rec.contract_number_modifier := p6_a12;
1907     ddp_chrv_rec.archived_yn := p6_a13;
1908     ddp_chrv_rec.deleted_yn := p6_a14;
1909     ddp_chrv_rec.cust_po_number_req_yn := p6_a15;
1910     ddp_chrv_rec.pre_pay_req_yn := p6_a16;
1911     ddp_chrv_rec.cust_po_number := p6_a17;
1912     ddp_chrv_rec.short_description := p6_a18;
1913     ddp_chrv_rec.comments := p6_a19;
1914     ddp_chrv_rec.description := p6_a20;
1915     ddp_chrv_rec.dpas_rating := p6_a21;
1916     ddp_chrv_rec.cognomen := p6_a22;
1917     ddp_chrv_rec.template_yn := p6_a23;
1918     ddp_chrv_rec.template_used := p6_a24;
1919     ddp_chrv_rec.date_approved := rosetta_g_miss_date_in_map(p6_a25);
1920     ddp_chrv_rec.datetime_cancelled := rosetta_g_miss_date_in_map(p6_a26);
1921     ddp_chrv_rec.auto_renew_days := rosetta_g_miss_num_map(p6_a27);
1922     ddp_chrv_rec.date_issued := rosetta_g_miss_date_in_map(p6_a28);
1923     ddp_chrv_rec.datetime_responded := rosetta_g_miss_date_in_map(p6_a29);
1924     ddp_chrv_rec.non_response_reason := p6_a30;
1925     ddp_chrv_rec.non_response_explain := p6_a31;
1926     ddp_chrv_rec.rfp_type := p6_a32;
1927     ddp_chrv_rec.chr_type := p6_a33;
1928     ddp_chrv_rec.keep_on_mail_list := p6_a34;
1929     ddp_chrv_rec.set_aside_reason := p6_a35;
1930     ddp_chrv_rec.set_aside_percent := rosetta_g_miss_num_map(p6_a36);
1931     ddp_chrv_rec.response_copies_req := rosetta_g_miss_num_map(p6_a37);
1932     ddp_chrv_rec.date_close_projected := rosetta_g_miss_date_in_map(p6_a38);
1933     ddp_chrv_rec.datetime_proposed := rosetta_g_miss_date_in_map(p6_a39);
1934     ddp_chrv_rec.date_signed := rosetta_g_miss_date_in_map(p6_a40);
1935     ddp_chrv_rec.date_terminated := rosetta_g_miss_date_in_map(p6_a41);
1936     ddp_chrv_rec.date_renewed := rosetta_g_miss_date_in_map(p6_a42);
1937     ddp_chrv_rec.trn_code := p6_a43;
1938     ddp_chrv_rec.start_date := rosetta_g_miss_date_in_map(p6_a44);
1939     ddp_chrv_rec.end_date := rosetta_g_miss_date_in_map(p6_a45);
1940     ddp_chrv_rec.authoring_org_id := rosetta_g_miss_num_map(p6_a46);
1941     ddp_chrv_rec.buy_or_sell := p6_a47;
1942     ddp_chrv_rec.issue_or_receive := p6_a48;
1943     ddp_chrv_rec.estimated_amount := rosetta_g_miss_num_map(p6_a49);
1944     ddp_chrv_rec.chr_id_renewed_to := rosetta_g_miss_num_map(p6_a50);
1945     ddp_chrv_rec.estimated_amount_renewed := rosetta_g_miss_num_map(p6_a51);
1946     ddp_chrv_rec.currency_code_renewed := p6_a52;
1947     ddp_chrv_rec.upg_orig_system_ref := p6_a53;
1948     ddp_chrv_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p6_a54);
1949     ddp_chrv_rec.application_id := rosetta_g_miss_num_map(p6_a55);
1950     ddp_chrv_rec.orig_system_source_code := p6_a56;
1951     ddp_chrv_rec.orig_system_id1 := rosetta_g_miss_num_map(p6_a57);
1952     ddp_chrv_rec.orig_system_reference1 := p6_a58;
1953     ddp_chrv_rec.program_id := rosetta_g_miss_num_map(p6_a59);
1954     ddp_chrv_rec.request_id := rosetta_g_miss_num_map(p6_a60);
1955     ddp_chrv_rec.price_list_id := rosetta_g_miss_num_map(p6_a61);
1956     ddp_chrv_rec.pricing_date := rosetta_g_miss_date_in_map(p6_a62);
1957     ddp_chrv_rec.sign_by_date := rosetta_g_miss_date_in_map(p6_a63);
1958     ddp_chrv_rec.program_update_date := rosetta_g_miss_date_in_map(p6_a64);
1959     ddp_chrv_rec.total_line_list_price := rosetta_g_miss_num_map(p6_a65);
1960     ddp_chrv_rec.program_application_id := rosetta_g_miss_num_map(p6_a66);
1961     ddp_chrv_rec.user_estimated_amount := rosetta_g_miss_num_map(p6_a67);
1962     ddp_chrv_rec.attribute_category := p6_a68;
1963     ddp_chrv_rec.attribute1 := p6_a69;
1964     ddp_chrv_rec.attribute2 := p6_a70;
1965     ddp_chrv_rec.attribute3 := p6_a71;
1966     ddp_chrv_rec.attribute4 := p6_a72;
1967     ddp_chrv_rec.attribute5 := p6_a73;
1968     ddp_chrv_rec.attribute6 := p6_a74;
1969     ddp_chrv_rec.attribute7 := p6_a75;
1970     ddp_chrv_rec.attribute8 := p6_a76;
1971     ddp_chrv_rec.attribute9 := p6_a77;
1972     ddp_chrv_rec.attribute10 := p6_a78;
1973     ddp_chrv_rec.attribute11 := p6_a79;
1974     ddp_chrv_rec.attribute12 := p6_a80;
1975     ddp_chrv_rec.attribute13 := p6_a81;
1976     ddp_chrv_rec.attribute14 := p6_a82;
1977     ddp_chrv_rec.attribute15 := p6_a83;
1978     ddp_chrv_rec.created_by := rosetta_g_miss_num_map(p6_a84);
1979     ddp_chrv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a85);
1980     ddp_chrv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a86);
1981     ddp_chrv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a87);
1982     ddp_chrv_rec.last_update_login := rosetta_g_miss_num_map(p6_a88);
1983     ddp_chrv_rec.old_sts_code := p6_a89;
1984     ddp_chrv_rec.new_sts_code := p6_a90;
1985     ddp_chrv_rec.old_ste_code := p6_a91;
1986     ddp_chrv_rec.new_ste_code := p6_a92;
1987     ddp_chrv_rec.conversion_type := p6_a93;
1988     ddp_chrv_rec.conversion_rate := rosetta_g_miss_num_map(p6_a94);
1989     ddp_chrv_rec.conversion_rate_date := rosetta_g_miss_date_in_map(p6_a95);
1990     ddp_chrv_rec.conversion_euro_rate := rosetta_g_miss_num_map(p6_a96);
1991     ddp_chrv_rec.cust_acct_id := rosetta_g_miss_num_map(p6_a97);
1992     ddp_chrv_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p6_a98);
1993     ddp_chrv_rec.inv_rule_id := rosetta_g_miss_num_map(p6_a99);
1994     ddp_chrv_rec.renewal_type_code := p6_a100;
1995     ddp_chrv_rec.renewal_notify_to := rosetta_g_miss_num_map(p6_a101);
1996     ddp_chrv_rec.renewal_end_date := rosetta_g_miss_date_in_map(p6_a102);
1997     ddp_chrv_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p6_a103);
1998     ddp_chrv_rec.payment_term_id := rosetta_g_miss_num_map(p6_a104);
1999 
2000     ddp_khrv_rec.id := rosetta_g_miss_num_map(p7_a0);
2001     ddp_khrv_rec.object_version_number := rosetta_g_miss_num_map(p7_a1);
2002     ddp_khrv_rec.isg_id := rosetta_g_miss_num_map(p7_a2);
2003     ddp_khrv_rec.khr_id := rosetta_g_miss_num_map(p7_a3);
2004     ddp_khrv_rec.pdt_id := rosetta_g_miss_num_map(p7_a4);
2005     ddp_khrv_rec.amd_code := p7_a5;
2006     ddp_khrv_rec.date_first_activity := rosetta_g_miss_date_in_map(p7_a6);
2007     ddp_khrv_rec.generate_accrual_yn := p7_a7;
2008     ddp_khrv_rec.generate_accrual_override_yn := p7_a8;
2009     ddp_khrv_rec.date_refinanced := rosetta_g_miss_date_in_map(p7_a9);
2010     ddp_khrv_rec.credit_act_yn := p7_a10;
2011     ddp_khrv_rec.term_duration := rosetta_g_miss_num_map(p7_a11);
2012     ddp_khrv_rec.converted_account_yn := p7_a12;
2013     ddp_khrv_rec.date_conversion_effective := rosetta_g_miss_date_in_map(p7_a13);
2014     ddp_khrv_rec.syndicatable_yn := p7_a14;
2015     ddp_khrv_rec.salestype_yn := p7_a15;
2016     ddp_khrv_rec.date_deal_transferred := rosetta_g_miss_date_in_map(p7_a16);
2017     ddp_khrv_rec.datetime_proposal_effective := rosetta_g_miss_date_in_map(p7_a17);
2018     ddp_khrv_rec.datetime_proposal_ineffective := rosetta_g_miss_date_in_map(p7_a18);
2019     ddp_khrv_rec.date_proposal_accepted := rosetta_g_miss_date_in_map(p7_a19);
2020     ddp_khrv_rec.attribute_category := p7_a20;
2021     ddp_khrv_rec.attribute1 := p7_a21;
2022     ddp_khrv_rec.attribute2 := p7_a22;
2023     ddp_khrv_rec.attribute3 := p7_a23;
2024     ddp_khrv_rec.attribute4 := p7_a24;
2025     ddp_khrv_rec.attribute5 := p7_a25;
2026     ddp_khrv_rec.attribute6 := p7_a26;
2027     ddp_khrv_rec.attribute7 := p7_a27;
2028     ddp_khrv_rec.attribute8 := p7_a28;
2029     ddp_khrv_rec.attribute9 := p7_a29;
2030     ddp_khrv_rec.attribute10 := p7_a30;
2031     ddp_khrv_rec.attribute11 := p7_a31;
2032     ddp_khrv_rec.attribute12 := p7_a32;
2033     ddp_khrv_rec.attribute13 := p7_a33;
2034     ddp_khrv_rec.attribute14 := p7_a34;
2035     ddp_khrv_rec.attribute15 := p7_a35;
2036     ddp_khrv_rec.created_by := rosetta_g_miss_num_map(p7_a36);
2037     ddp_khrv_rec.creation_date := rosetta_g_miss_date_in_map(p7_a37);
2038     ddp_khrv_rec.last_updated_by := rosetta_g_miss_num_map(p7_a38);
2039     ddp_khrv_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a39);
2040     ddp_khrv_rec.last_update_login := rosetta_g_miss_num_map(p7_a40);
2041     ddp_khrv_rec.pre_tax_yield := rosetta_g_miss_num_map(p7_a41);
2042     ddp_khrv_rec.after_tax_yield := rosetta_g_miss_num_map(p7_a42);
2043     ddp_khrv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p7_a43);
2044     ddp_khrv_rec.implicit_non_idc_interest_rate := rosetta_g_miss_num_map(p7_a44);
2045     ddp_khrv_rec.target_pre_tax_yield := rosetta_g_miss_num_map(p7_a45);
2046     ddp_khrv_rec.target_after_tax_yield := rosetta_g_miss_num_map(p7_a46);
2047     ddp_khrv_rec.target_implicit_interest_rate := rosetta_g_miss_num_map(p7_a47);
2048     ddp_khrv_rec.target_implicit_nonidc_intrate := rosetta_g_miss_num_map(p7_a48);
2049     ddp_khrv_rec.date_last_interim_interest_cal := rosetta_g_miss_date_in_map(p7_a49);
2050     ddp_khrv_rec.deal_type := p7_a50;
2051     ddp_khrv_rec.pre_tax_irr := rosetta_g_miss_num_map(p7_a51);
2052     ddp_khrv_rec.after_tax_irr := rosetta_g_miss_num_map(p7_a52);
2053     ddp_khrv_rec.expected_delivery_date := rosetta_g_miss_date_in_map(p7_a53);
2054     ddp_khrv_rec.accepted_date := rosetta_g_miss_date_in_map(p7_a54);
2055     ddp_khrv_rec.prefunding_eligible_yn := p7_a55;
2056     ddp_khrv_rec.revolving_credit_yn := p7_a56;
2057     ddp_khrv_rec.currency_conversion_type := p7_a57;
2058     ddp_khrv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p7_a58);
2059     ddp_khrv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p7_a59);
2060     ddp_khrv_rec.multi_gaap_yn := p7_a60;
2061     ddp_khrv_rec.recourse_code := p7_a61;
2062     ddp_khrv_rec.lessor_serv_org_code := p7_a62;
2063     ddp_khrv_rec.assignable_yn := p7_a63;
2064     ddp_khrv_rec.securitized_code := p7_a64;
2065     ddp_khrv_rec.securitization_type := p7_a65;
2066 
2067 
2068 
2069     -- here's the delegated call to the old PL/SQL routine
2070     okl_contract_pvt.update_contract_header(p_api_version,
2071       p_init_msg_list,
2072       x_return_status,
2073       x_msg_count,
2074       x_msg_data,
2075       p_restricted_update,
2076       ddp_chrv_rec,
2077       ddp_khrv_rec,
2078       ddx_chrv_rec,
2079       ddx_khrv_rec);
2080 
2081     -- copy data back from the local variables to OUT or IN-OUT args, if any
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090     p8_a0 := rosetta_g_miss_num_map(ddx_chrv_rec.id);
2091     p8_a1 := rosetta_g_miss_num_map(ddx_chrv_rec.object_version_number);
2092     p8_a2 := ddx_chrv_rec.sfwt_flag;
2093     p8_a3 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_response);
2094     p8_a4 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_award);
2095     p8_a5 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_renewed);
2096     p8_a6 := rosetta_g_miss_num_map(ddx_chrv_rec.inv_organization_id);
2097     p8_a7 := ddx_chrv_rec.sts_code;
2098     p8_a8 := rosetta_g_miss_num_map(ddx_chrv_rec.qcl_id);
2099     p8_a9 := ddx_chrv_rec.scs_code;
2100     p8_a10 := ddx_chrv_rec.contract_number;
2101     p8_a11 := ddx_chrv_rec.currency_code;
2102     p8_a12 := ddx_chrv_rec.contract_number_modifier;
2103     p8_a13 := ddx_chrv_rec.archived_yn;
2104     p8_a14 := ddx_chrv_rec.deleted_yn;
2105     p8_a15 := ddx_chrv_rec.cust_po_number_req_yn;
2106     p8_a16 := ddx_chrv_rec.pre_pay_req_yn;
2107     p8_a17 := ddx_chrv_rec.cust_po_number;
2108     p8_a18 := ddx_chrv_rec.short_description;
2109     p8_a19 := ddx_chrv_rec.comments;
2110     p8_a20 := ddx_chrv_rec.description;
2111     p8_a21 := ddx_chrv_rec.dpas_rating;
2112     p8_a22 := ddx_chrv_rec.cognomen;
2113     p8_a23 := ddx_chrv_rec.template_yn;
2114     p8_a24 := ddx_chrv_rec.template_used;
2115     p8_a25 := ddx_chrv_rec.date_approved;
2116     p8_a26 := ddx_chrv_rec.datetime_cancelled;
2117     p8_a27 := rosetta_g_miss_num_map(ddx_chrv_rec.auto_renew_days);
2118     p8_a28 := ddx_chrv_rec.date_issued;
2119     p8_a29 := ddx_chrv_rec.datetime_responded;
2120     p8_a30 := ddx_chrv_rec.non_response_reason;
2121     p8_a31 := ddx_chrv_rec.non_response_explain;
2122     p8_a32 := ddx_chrv_rec.rfp_type;
2123     p8_a33 := ddx_chrv_rec.chr_type;
2124     p8_a34 := ddx_chrv_rec.keep_on_mail_list;
2125     p8_a35 := ddx_chrv_rec.set_aside_reason;
2126     p8_a36 := rosetta_g_miss_num_map(ddx_chrv_rec.set_aside_percent);
2127     p8_a37 := rosetta_g_miss_num_map(ddx_chrv_rec.response_copies_req);
2128     p8_a38 := ddx_chrv_rec.date_close_projected;
2129     p8_a39 := ddx_chrv_rec.datetime_proposed;
2130     p8_a40 := ddx_chrv_rec.date_signed;
2131     p8_a41 := ddx_chrv_rec.date_terminated;
2132     p8_a42 := ddx_chrv_rec.date_renewed;
2133     p8_a43 := ddx_chrv_rec.trn_code;
2134     p8_a44 := ddx_chrv_rec.start_date;
2135     p8_a45 := ddx_chrv_rec.end_date;
2136     p8_a46 := rosetta_g_miss_num_map(ddx_chrv_rec.authoring_org_id);
2137     p8_a47 := ddx_chrv_rec.buy_or_sell;
2138     p8_a48 := ddx_chrv_rec.issue_or_receive;
2139     p8_a49 := rosetta_g_miss_num_map(ddx_chrv_rec.estimated_amount);
2140     p8_a50 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_renewed_to);
2141     p8_a51 := rosetta_g_miss_num_map(ddx_chrv_rec.estimated_amount_renewed);
2142     p8_a52 := ddx_chrv_rec.currency_code_renewed;
2143     p8_a53 := ddx_chrv_rec.upg_orig_system_ref;
2144     p8_a54 := rosetta_g_miss_num_map(ddx_chrv_rec.upg_orig_system_ref_id);
2145     p8_a55 := rosetta_g_miss_num_map(ddx_chrv_rec.application_id);
2146     p8_a56 := ddx_chrv_rec.orig_system_source_code;
2147     p8_a57 := rosetta_g_miss_num_map(ddx_chrv_rec.orig_system_id1);
2148     p8_a58 := ddx_chrv_rec.orig_system_reference1;
2149     p8_a59 := rosetta_g_miss_num_map(ddx_chrv_rec.program_id);
2150     p8_a60 := rosetta_g_miss_num_map(ddx_chrv_rec.request_id);
2151     p8_a61 := rosetta_g_miss_num_map(ddx_chrv_rec.price_list_id);
2152     p8_a62 := ddx_chrv_rec.pricing_date;
2153     p8_a63 := ddx_chrv_rec.sign_by_date;
2154     p8_a64 := ddx_chrv_rec.program_update_date;
2155     p8_a65 := rosetta_g_miss_num_map(ddx_chrv_rec.total_line_list_price);
2156     p8_a66 := rosetta_g_miss_num_map(ddx_chrv_rec.program_application_id);
2157     p8_a67 := rosetta_g_miss_num_map(ddx_chrv_rec.user_estimated_amount);
2158     p8_a68 := ddx_chrv_rec.attribute_category;
2159     p8_a69 := ddx_chrv_rec.attribute1;
2160     p8_a70 := ddx_chrv_rec.attribute2;
2161     p8_a71 := ddx_chrv_rec.attribute3;
2162     p8_a72 := ddx_chrv_rec.attribute4;
2163     p8_a73 := ddx_chrv_rec.attribute5;
2164     p8_a74 := ddx_chrv_rec.attribute6;
2165     p8_a75 := ddx_chrv_rec.attribute7;
2166     p8_a76 := ddx_chrv_rec.attribute8;
2167     p8_a77 := ddx_chrv_rec.attribute9;
2168     p8_a78 := ddx_chrv_rec.attribute10;
2169     p8_a79 := ddx_chrv_rec.attribute11;
2170     p8_a80 := ddx_chrv_rec.attribute12;
2171     p8_a81 := ddx_chrv_rec.attribute13;
2172     p8_a82 := ddx_chrv_rec.attribute14;
2173     p8_a83 := ddx_chrv_rec.attribute15;
2174     p8_a84 := rosetta_g_miss_num_map(ddx_chrv_rec.created_by);
2175     p8_a85 := ddx_chrv_rec.creation_date;
2176     p8_a86 := rosetta_g_miss_num_map(ddx_chrv_rec.last_updated_by);
2177     p8_a87 := ddx_chrv_rec.last_update_date;
2178     p8_a88 := rosetta_g_miss_num_map(ddx_chrv_rec.last_update_login);
2179     p8_a89 := ddx_chrv_rec.old_sts_code;
2180     p8_a90 := ddx_chrv_rec.new_sts_code;
2181     p8_a91 := ddx_chrv_rec.old_ste_code;
2182     p8_a92 := ddx_chrv_rec.new_ste_code;
2183     p8_a93 := ddx_chrv_rec.conversion_type;
2184     p8_a94 := rosetta_g_miss_num_map(ddx_chrv_rec.conversion_rate);
2185     p8_a95 := ddx_chrv_rec.conversion_rate_date;
2186     p8_a96 := rosetta_g_miss_num_map(ddx_chrv_rec.conversion_euro_rate);
2187     p8_a97 := rosetta_g_miss_num_map(ddx_chrv_rec.cust_acct_id);
2188     p8_a98 := rosetta_g_miss_num_map(ddx_chrv_rec.bill_to_site_use_id);
2189     p8_a99 := rosetta_g_miss_num_map(ddx_chrv_rec.inv_rule_id);
2190     p8_a100 := ddx_chrv_rec.renewal_type_code;
2191     p8_a101 := rosetta_g_miss_num_map(ddx_chrv_rec.renewal_notify_to);
2192     p8_a102 := ddx_chrv_rec.renewal_end_date;
2193     p8_a103 := rosetta_g_miss_num_map(ddx_chrv_rec.ship_to_site_use_id);
2194     p8_a104 := rosetta_g_miss_num_map(ddx_chrv_rec.payment_term_id);
2195 
2196     p9_a0 := rosetta_g_miss_num_map(ddx_khrv_rec.id);
2197     p9_a1 := rosetta_g_miss_num_map(ddx_khrv_rec.object_version_number);
2198     p9_a2 := rosetta_g_miss_num_map(ddx_khrv_rec.isg_id);
2199     p9_a3 := rosetta_g_miss_num_map(ddx_khrv_rec.khr_id);
2200     p9_a4 := rosetta_g_miss_num_map(ddx_khrv_rec.pdt_id);
2201     p9_a5 := ddx_khrv_rec.amd_code;
2202     p9_a6 := ddx_khrv_rec.date_first_activity;
2203     p9_a7 := ddx_khrv_rec.generate_accrual_yn;
2204     p9_a8 := ddx_khrv_rec.generate_accrual_override_yn;
2205     p9_a9 := ddx_khrv_rec.date_refinanced;
2206     p9_a10 := ddx_khrv_rec.credit_act_yn;
2207     p9_a11 := rosetta_g_miss_num_map(ddx_khrv_rec.term_duration);
2208     p9_a12 := ddx_khrv_rec.converted_account_yn;
2209     p9_a13 := ddx_khrv_rec.date_conversion_effective;
2210     p9_a14 := ddx_khrv_rec.syndicatable_yn;
2211     p9_a15 := ddx_khrv_rec.salestype_yn;
2212     p9_a16 := ddx_khrv_rec.date_deal_transferred;
2213     p9_a17 := ddx_khrv_rec.datetime_proposal_effective;
2214     p9_a18 := ddx_khrv_rec.datetime_proposal_ineffective;
2215     p9_a19 := ddx_khrv_rec.date_proposal_accepted;
2216     p9_a20 := ddx_khrv_rec.attribute_category;
2217     p9_a21 := ddx_khrv_rec.attribute1;
2218     p9_a22 := ddx_khrv_rec.attribute2;
2219     p9_a23 := ddx_khrv_rec.attribute3;
2220     p9_a24 := ddx_khrv_rec.attribute4;
2221     p9_a25 := ddx_khrv_rec.attribute5;
2222     p9_a26 := ddx_khrv_rec.attribute6;
2223     p9_a27 := ddx_khrv_rec.attribute7;
2224     p9_a28 := ddx_khrv_rec.attribute8;
2225     p9_a29 := ddx_khrv_rec.attribute9;
2226     p9_a30 := ddx_khrv_rec.attribute10;
2227     p9_a31 := ddx_khrv_rec.attribute11;
2228     p9_a32 := ddx_khrv_rec.attribute12;
2229     p9_a33 := ddx_khrv_rec.attribute13;
2230     p9_a34 := ddx_khrv_rec.attribute14;
2231     p9_a35 := ddx_khrv_rec.attribute15;
2232     p9_a36 := rosetta_g_miss_num_map(ddx_khrv_rec.created_by);
2233     p9_a37 := ddx_khrv_rec.creation_date;
2234     p9_a38 := rosetta_g_miss_num_map(ddx_khrv_rec.last_updated_by);
2235     p9_a39 := ddx_khrv_rec.last_update_date;
2236     p9_a40 := rosetta_g_miss_num_map(ddx_khrv_rec.last_update_login);
2237     p9_a41 := rosetta_g_miss_num_map(ddx_khrv_rec.pre_tax_yield);
2238     p9_a42 := rosetta_g_miss_num_map(ddx_khrv_rec.after_tax_yield);
2239     p9_a43 := rosetta_g_miss_num_map(ddx_khrv_rec.implicit_interest_rate);
2240     p9_a44 := rosetta_g_miss_num_map(ddx_khrv_rec.implicit_non_idc_interest_rate);
2241     p9_a45 := rosetta_g_miss_num_map(ddx_khrv_rec.target_pre_tax_yield);
2242     p9_a46 := rosetta_g_miss_num_map(ddx_khrv_rec.target_after_tax_yield);
2243     p9_a47 := rosetta_g_miss_num_map(ddx_khrv_rec.target_implicit_interest_rate);
2244     p9_a48 := rosetta_g_miss_num_map(ddx_khrv_rec.target_implicit_nonidc_intrate);
2245     p9_a49 := ddx_khrv_rec.date_last_interim_interest_cal;
2246     p9_a50 := ddx_khrv_rec.deal_type;
2247     p9_a51 := rosetta_g_miss_num_map(ddx_khrv_rec.pre_tax_irr);
2248     p9_a52 := rosetta_g_miss_num_map(ddx_khrv_rec.after_tax_irr);
2249     p9_a53 := ddx_khrv_rec.expected_delivery_date;
2250     p9_a54 := ddx_khrv_rec.accepted_date;
2251     p9_a55 := ddx_khrv_rec.prefunding_eligible_yn;
2252     p9_a56 := ddx_khrv_rec.revolving_credit_yn;
2253     p9_a57 := ddx_khrv_rec.currency_conversion_type;
2254     p9_a58 := rosetta_g_miss_num_map(ddx_khrv_rec.currency_conversion_rate);
2255     p9_a59 := ddx_khrv_rec.currency_conversion_date;
2256     p9_a60 := ddx_khrv_rec.multi_gaap_yn;
2257     p9_a61 := ddx_khrv_rec.recourse_code;
2258     p9_a62 := ddx_khrv_rec.lessor_serv_org_code;
2259     p9_a63 := ddx_khrv_rec.assignable_yn;
2260     p9_a64 := ddx_khrv_rec.securitized_code;
2261     p9_a65 := ddx_khrv_rec.securitization_type;
2262   end;
2263 
2264   procedure update_contract_header(p_api_version  NUMBER
2265     , p_init_msg_list  VARCHAR2
2266     , x_return_status out nocopy  VARCHAR2
2267     , x_msg_count out nocopy  NUMBER
2268     , x_msg_data out nocopy  VARCHAR2
2269     , p_restricted_update  VARCHAR2
2270     , p6_a0 JTF_NUMBER_TABLE
2271     , p6_a1 JTF_NUMBER_TABLE
2272     , p6_a2 JTF_VARCHAR2_TABLE_100
2273     , p6_a3 JTF_NUMBER_TABLE
2274     , p6_a4 JTF_NUMBER_TABLE
2275     , p6_a5 JTF_NUMBER_TABLE
2276     , p6_a6 JTF_NUMBER_TABLE
2277     , p6_a7 JTF_VARCHAR2_TABLE_100
2278     , p6_a8 JTF_NUMBER_TABLE
2279     , p6_a9 JTF_VARCHAR2_TABLE_100
2280     , p6_a10 JTF_VARCHAR2_TABLE_200
2281     , p6_a11 JTF_VARCHAR2_TABLE_100
2282     , p6_a12 JTF_VARCHAR2_TABLE_200
2283     , p6_a13 JTF_VARCHAR2_TABLE_100
2284     , p6_a14 JTF_VARCHAR2_TABLE_100
2285     , p6_a15 JTF_VARCHAR2_TABLE_100
2286     , p6_a16 JTF_VARCHAR2_TABLE_100
2287     , p6_a17 JTF_VARCHAR2_TABLE_200
2288     , p6_a18 JTF_VARCHAR2_TABLE_600
2289     , p6_a19 JTF_VARCHAR2_TABLE_2000
2290     , p6_a20 JTF_VARCHAR2_TABLE_2000
2291     , p6_a21 JTF_VARCHAR2_TABLE_100
2292     , p6_a22 JTF_VARCHAR2_TABLE_300
2293     , p6_a23 JTF_VARCHAR2_TABLE_100
2294     , p6_a24 JTF_VARCHAR2_TABLE_200
2295     , p6_a25 JTF_DATE_TABLE
2296     , p6_a26 JTF_DATE_TABLE
2297     , p6_a27 JTF_NUMBER_TABLE
2298     , p6_a28 JTF_DATE_TABLE
2299     , p6_a29 JTF_DATE_TABLE
2300     , p6_a30 JTF_VARCHAR2_TABLE_100
2301     , p6_a31 JTF_VARCHAR2_TABLE_2000
2302     , p6_a32 JTF_VARCHAR2_TABLE_100
2303     , p6_a33 JTF_VARCHAR2_TABLE_100
2304     , p6_a34 JTF_VARCHAR2_TABLE_100
2305     , p6_a35 JTF_VARCHAR2_TABLE_100
2306     , p6_a36 JTF_NUMBER_TABLE
2307     , p6_a37 JTF_NUMBER_TABLE
2308     , p6_a38 JTF_DATE_TABLE
2309     , p6_a39 JTF_DATE_TABLE
2310     , p6_a40 JTF_DATE_TABLE
2311     , p6_a41 JTF_DATE_TABLE
2312     , p6_a42 JTF_DATE_TABLE
2313     , p6_a43 JTF_VARCHAR2_TABLE_100
2314     , p6_a44 JTF_DATE_TABLE
2315     , p6_a45 JTF_DATE_TABLE
2316     , p6_a46 JTF_NUMBER_TABLE
2317     , p6_a47 JTF_VARCHAR2_TABLE_100
2318     , p6_a48 JTF_VARCHAR2_TABLE_100
2319     , p6_a49 JTF_NUMBER_TABLE
2320     , p6_a50 JTF_NUMBER_TABLE
2321     , p6_a51 JTF_NUMBER_TABLE
2322     , p6_a52 JTF_VARCHAR2_TABLE_100
2323     , p6_a53 JTF_VARCHAR2_TABLE_100
2324     , p6_a54 JTF_NUMBER_TABLE
2325     , p6_a55 JTF_NUMBER_TABLE
2326     , p6_a56 JTF_VARCHAR2_TABLE_100
2327     , p6_a57 JTF_NUMBER_TABLE
2328     , p6_a58 JTF_VARCHAR2_TABLE_100
2329     , p6_a59 JTF_NUMBER_TABLE
2330     , p6_a60 JTF_NUMBER_TABLE
2331     , p6_a61 JTF_NUMBER_TABLE
2332     , p6_a62 JTF_DATE_TABLE
2333     , p6_a63 JTF_DATE_TABLE
2334     , p6_a64 JTF_DATE_TABLE
2335     , p6_a65 JTF_NUMBER_TABLE
2336     , p6_a66 JTF_NUMBER_TABLE
2337     , p6_a67 JTF_NUMBER_TABLE
2338     , p6_a68 JTF_VARCHAR2_TABLE_100
2339     , p6_a69 JTF_VARCHAR2_TABLE_500
2340     , p6_a70 JTF_VARCHAR2_TABLE_500
2341     , p6_a71 JTF_VARCHAR2_TABLE_500
2342     , p6_a72 JTF_VARCHAR2_TABLE_500
2343     , p6_a73 JTF_VARCHAR2_TABLE_500
2344     , p6_a74 JTF_VARCHAR2_TABLE_500
2345     , p6_a75 JTF_VARCHAR2_TABLE_500
2346     , p6_a76 JTF_VARCHAR2_TABLE_500
2347     , p6_a77 JTF_VARCHAR2_TABLE_500
2348     , p6_a78 JTF_VARCHAR2_TABLE_500
2349     , p6_a79 JTF_VARCHAR2_TABLE_500
2350     , p6_a80 JTF_VARCHAR2_TABLE_500
2351     , p6_a81 JTF_VARCHAR2_TABLE_500
2352     , p6_a82 JTF_VARCHAR2_TABLE_500
2353     , p6_a83 JTF_VARCHAR2_TABLE_500
2354     , p6_a84 JTF_NUMBER_TABLE
2355     , p6_a85 JTF_DATE_TABLE
2356     , p6_a86 JTF_NUMBER_TABLE
2357     , p6_a87 JTF_DATE_TABLE
2358     , p6_a88 JTF_NUMBER_TABLE
2359     , p6_a89 JTF_VARCHAR2_TABLE_100
2360     , p6_a90 JTF_VARCHAR2_TABLE_100
2361     , p6_a91 JTF_VARCHAR2_TABLE_100
2362     , p6_a92 JTF_VARCHAR2_TABLE_100
2363     , p6_a93 JTF_VARCHAR2_TABLE_100
2364     , p6_a94 JTF_NUMBER_TABLE
2365     , p6_a95 JTF_DATE_TABLE
2366     , p6_a96 JTF_NUMBER_TABLE
2367     , p6_a97 JTF_NUMBER_TABLE
2368     , p6_a98 JTF_NUMBER_TABLE
2369     , p6_a99 JTF_NUMBER_TABLE
2370     , p6_a100 JTF_VARCHAR2_TABLE_100
2371     , p6_a101 JTF_NUMBER_TABLE
2372     , p6_a102 JTF_DATE_TABLE
2373     , p6_a103 JTF_NUMBER_TABLE
2374     , p6_a104 JTF_NUMBER_TABLE
2375     , p7_a0 JTF_NUMBER_TABLE
2376     , p7_a1 JTF_NUMBER_TABLE
2377     , p7_a2 JTF_NUMBER_TABLE
2378     , p7_a3 JTF_NUMBER_TABLE
2379     , p7_a4 JTF_NUMBER_TABLE
2380     , p7_a5 JTF_VARCHAR2_TABLE_100
2381     , p7_a6 JTF_DATE_TABLE
2382     , p7_a7 JTF_VARCHAR2_TABLE_100
2383     , p7_a8 JTF_VARCHAR2_TABLE_100
2384     , p7_a9 JTF_DATE_TABLE
2385     , p7_a10 JTF_VARCHAR2_TABLE_100
2386     , p7_a11 JTF_NUMBER_TABLE
2387     , p7_a12 JTF_VARCHAR2_TABLE_100
2388     , p7_a13 JTF_DATE_TABLE
2389     , p7_a14 JTF_VARCHAR2_TABLE_100
2390     , p7_a15 JTF_VARCHAR2_TABLE_100
2391     , p7_a16 JTF_DATE_TABLE
2392     , p7_a17 JTF_DATE_TABLE
2393     , p7_a18 JTF_DATE_TABLE
2394     , p7_a19 JTF_DATE_TABLE
2395     , p7_a20 JTF_VARCHAR2_TABLE_100
2396     , p7_a21 JTF_VARCHAR2_TABLE_500
2397     , p7_a22 JTF_VARCHAR2_TABLE_500
2398     , p7_a23 JTF_VARCHAR2_TABLE_500
2399     , p7_a24 JTF_VARCHAR2_TABLE_500
2400     , p7_a25 JTF_VARCHAR2_TABLE_500
2401     , p7_a26 JTF_VARCHAR2_TABLE_500
2402     , p7_a27 JTF_VARCHAR2_TABLE_500
2403     , p7_a28 JTF_VARCHAR2_TABLE_500
2404     , p7_a29 JTF_VARCHAR2_TABLE_500
2405     , p7_a30 JTF_VARCHAR2_TABLE_500
2406     , p7_a31 JTF_VARCHAR2_TABLE_500
2407     , p7_a32 JTF_VARCHAR2_TABLE_500
2408     , p7_a33 JTF_VARCHAR2_TABLE_500
2409     , p7_a34 JTF_VARCHAR2_TABLE_500
2410     , p7_a35 JTF_VARCHAR2_TABLE_500
2411     , p7_a36 JTF_NUMBER_TABLE
2412     , p7_a37 JTF_DATE_TABLE
2413     , p7_a38 JTF_NUMBER_TABLE
2414     , p7_a39 JTF_DATE_TABLE
2415     , p7_a40 JTF_NUMBER_TABLE
2416     , p7_a41 JTF_NUMBER_TABLE
2417     , p7_a42 JTF_NUMBER_TABLE
2418     , p7_a43 JTF_NUMBER_TABLE
2419     , p7_a44 JTF_NUMBER_TABLE
2420     , p7_a45 JTF_NUMBER_TABLE
2421     , p7_a46 JTF_NUMBER_TABLE
2422     , p7_a47 JTF_NUMBER_TABLE
2423     , p7_a48 JTF_NUMBER_TABLE
2424     , p7_a49 JTF_DATE_TABLE
2425     , p7_a50 JTF_VARCHAR2_TABLE_100
2426     , p7_a51 JTF_NUMBER_TABLE
2427     , p7_a52 JTF_NUMBER_TABLE
2428     , p7_a53 JTF_DATE_TABLE
2429     , p7_a54 JTF_DATE_TABLE
2430     , p7_a55 JTF_VARCHAR2_TABLE_100
2431     , p7_a56 JTF_VARCHAR2_TABLE_100
2432     , p7_a57 JTF_VARCHAR2_TABLE_100
2433     , p7_a58 JTF_NUMBER_TABLE
2434     , p7_a59 JTF_DATE_TABLE
2435     , p7_a60 JTF_VARCHAR2_TABLE_100
2436     , p7_a61 JTF_VARCHAR2_TABLE_100
2437     , p7_a62 JTF_VARCHAR2_TABLE_100
2438     , p7_a63 JTF_VARCHAR2_TABLE_100
2439     , p7_a64 JTF_VARCHAR2_TABLE_100
2440     , p7_a65 JTF_VARCHAR2_TABLE_100
2441     , p8_a0 out nocopy JTF_NUMBER_TABLE
2442     , p8_a1 out nocopy JTF_NUMBER_TABLE
2443     , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
2444     , p8_a3 out nocopy JTF_NUMBER_TABLE
2445     , p8_a4 out nocopy JTF_NUMBER_TABLE
2446     , p8_a5 out nocopy JTF_NUMBER_TABLE
2447     , p8_a6 out nocopy JTF_NUMBER_TABLE
2448     , p8_a7 out nocopy JTF_VARCHAR2_TABLE_100
2449     , p8_a8 out nocopy JTF_NUMBER_TABLE
2450     , p8_a9 out nocopy JTF_VARCHAR2_TABLE_100
2451     , p8_a10 out nocopy JTF_VARCHAR2_TABLE_200
2452     , p8_a11 out nocopy JTF_VARCHAR2_TABLE_100
2453     , p8_a12 out nocopy JTF_VARCHAR2_TABLE_200
2454     , p8_a13 out nocopy JTF_VARCHAR2_TABLE_100
2455     , p8_a14 out nocopy JTF_VARCHAR2_TABLE_100
2456     , p8_a15 out nocopy JTF_VARCHAR2_TABLE_100
2457     , p8_a16 out nocopy JTF_VARCHAR2_TABLE_100
2458     , p8_a17 out nocopy JTF_VARCHAR2_TABLE_200
2459     , p8_a18 out nocopy JTF_VARCHAR2_TABLE_600
2460     , p8_a19 out nocopy JTF_VARCHAR2_TABLE_2000
2461     , p8_a20 out nocopy JTF_VARCHAR2_TABLE_2000
2462     , p8_a21 out nocopy JTF_VARCHAR2_TABLE_100
2463     , p8_a22 out nocopy JTF_VARCHAR2_TABLE_300
2464     , p8_a23 out nocopy JTF_VARCHAR2_TABLE_100
2465     , p8_a24 out nocopy JTF_VARCHAR2_TABLE_200
2466     , p8_a25 out nocopy JTF_DATE_TABLE
2467     , p8_a26 out nocopy JTF_DATE_TABLE
2468     , p8_a27 out nocopy JTF_NUMBER_TABLE
2469     , p8_a28 out nocopy JTF_DATE_TABLE
2470     , p8_a29 out nocopy JTF_DATE_TABLE
2471     , p8_a30 out nocopy JTF_VARCHAR2_TABLE_100
2472     , p8_a31 out nocopy JTF_VARCHAR2_TABLE_2000
2473     , p8_a32 out nocopy JTF_VARCHAR2_TABLE_100
2474     , p8_a33 out nocopy JTF_VARCHAR2_TABLE_100
2475     , p8_a34 out nocopy JTF_VARCHAR2_TABLE_100
2476     , p8_a35 out nocopy JTF_VARCHAR2_TABLE_100
2477     , p8_a36 out nocopy JTF_NUMBER_TABLE
2478     , p8_a37 out nocopy JTF_NUMBER_TABLE
2479     , p8_a38 out nocopy JTF_DATE_TABLE
2480     , p8_a39 out nocopy JTF_DATE_TABLE
2481     , p8_a40 out nocopy JTF_DATE_TABLE
2482     , p8_a41 out nocopy JTF_DATE_TABLE
2483     , p8_a42 out nocopy JTF_DATE_TABLE
2484     , p8_a43 out nocopy JTF_VARCHAR2_TABLE_100
2485     , p8_a44 out nocopy JTF_DATE_TABLE
2486     , p8_a45 out nocopy JTF_DATE_TABLE
2487     , p8_a46 out nocopy JTF_NUMBER_TABLE
2488     , p8_a47 out nocopy JTF_VARCHAR2_TABLE_100
2489     , p8_a48 out nocopy JTF_VARCHAR2_TABLE_100
2490     , p8_a49 out nocopy JTF_NUMBER_TABLE
2491     , p8_a50 out nocopy JTF_NUMBER_TABLE
2492     , p8_a51 out nocopy JTF_NUMBER_TABLE
2493     , p8_a52 out nocopy JTF_VARCHAR2_TABLE_100
2494     , p8_a53 out nocopy JTF_VARCHAR2_TABLE_100
2495     , p8_a54 out nocopy JTF_NUMBER_TABLE
2496     , p8_a55 out nocopy JTF_NUMBER_TABLE
2497     , p8_a56 out nocopy JTF_VARCHAR2_TABLE_100
2498     , p8_a57 out nocopy JTF_NUMBER_TABLE
2499     , p8_a58 out nocopy JTF_VARCHAR2_TABLE_100
2500     , p8_a59 out nocopy JTF_NUMBER_TABLE
2501     , p8_a60 out nocopy JTF_NUMBER_TABLE
2502     , p8_a61 out nocopy JTF_NUMBER_TABLE
2503     , p8_a62 out nocopy JTF_DATE_TABLE
2504     , p8_a63 out nocopy JTF_DATE_TABLE
2505     , p8_a64 out nocopy JTF_DATE_TABLE
2506     , p8_a65 out nocopy JTF_NUMBER_TABLE
2507     , p8_a66 out nocopy JTF_NUMBER_TABLE
2508     , p8_a67 out nocopy JTF_NUMBER_TABLE
2509     , p8_a68 out nocopy JTF_VARCHAR2_TABLE_100
2510     , p8_a69 out nocopy JTF_VARCHAR2_TABLE_500
2511     , p8_a70 out nocopy JTF_VARCHAR2_TABLE_500
2512     , p8_a71 out nocopy JTF_VARCHAR2_TABLE_500
2513     , p8_a72 out nocopy JTF_VARCHAR2_TABLE_500
2514     , p8_a73 out nocopy JTF_VARCHAR2_TABLE_500
2515     , p8_a74 out nocopy JTF_VARCHAR2_TABLE_500
2516     , p8_a75 out nocopy JTF_VARCHAR2_TABLE_500
2517     , p8_a76 out nocopy JTF_VARCHAR2_TABLE_500
2518     , p8_a77 out nocopy JTF_VARCHAR2_TABLE_500
2519     , p8_a78 out nocopy JTF_VARCHAR2_TABLE_500
2520     , p8_a79 out nocopy JTF_VARCHAR2_TABLE_500
2521     , p8_a80 out nocopy JTF_VARCHAR2_TABLE_500
2522     , p8_a81 out nocopy JTF_VARCHAR2_TABLE_500
2523     , p8_a82 out nocopy JTF_VARCHAR2_TABLE_500
2524     , p8_a83 out nocopy JTF_VARCHAR2_TABLE_500
2525     , p8_a84 out nocopy JTF_NUMBER_TABLE
2526     , p8_a85 out nocopy JTF_DATE_TABLE
2527     , p8_a86 out nocopy JTF_NUMBER_TABLE
2528     , p8_a87 out nocopy JTF_DATE_TABLE
2529     , p8_a88 out nocopy JTF_NUMBER_TABLE
2530     , p8_a89 out nocopy JTF_VARCHAR2_TABLE_100
2531     , p8_a90 out nocopy JTF_VARCHAR2_TABLE_100
2532     , p8_a91 out nocopy JTF_VARCHAR2_TABLE_100
2533     , p8_a92 out nocopy JTF_VARCHAR2_TABLE_100
2534     , p8_a93 out nocopy JTF_VARCHAR2_TABLE_100
2535     , p8_a94 out nocopy JTF_NUMBER_TABLE
2536     , p8_a95 out nocopy JTF_DATE_TABLE
2537     , p8_a96 out nocopy JTF_NUMBER_TABLE
2538     , p8_a97 out nocopy JTF_NUMBER_TABLE
2539     , p8_a98 out nocopy JTF_NUMBER_TABLE
2540     , p8_a99 out nocopy JTF_NUMBER_TABLE
2541     , p8_a100 out nocopy JTF_VARCHAR2_TABLE_100
2542     , p8_a101 out nocopy JTF_NUMBER_TABLE
2543     , p8_a102 out nocopy JTF_DATE_TABLE
2544     , p8_a103 out nocopy JTF_NUMBER_TABLE
2545     , p8_a104 out nocopy JTF_NUMBER_TABLE
2546     , p9_a0 out nocopy JTF_NUMBER_TABLE
2547     , p9_a1 out nocopy JTF_NUMBER_TABLE
2548     , p9_a2 out nocopy JTF_NUMBER_TABLE
2549     , p9_a3 out nocopy JTF_NUMBER_TABLE
2550     , p9_a4 out nocopy JTF_NUMBER_TABLE
2551     , p9_a5 out nocopy JTF_VARCHAR2_TABLE_100
2552     , p9_a6 out nocopy JTF_DATE_TABLE
2553     , p9_a7 out nocopy JTF_VARCHAR2_TABLE_100
2554     , p9_a8 out nocopy JTF_VARCHAR2_TABLE_100
2555     , p9_a9 out nocopy JTF_DATE_TABLE
2556     , p9_a10 out nocopy JTF_VARCHAR2_TABLE_100
2557     , p9_a11 out nocopy JTF_NUMBER_TABLE
2558     , p9_a12 out nocopy JTF_VARCHAR2_TABLE_100
2559     , p9_a13 out nocopy JTF_DATE_TABLE
2560     , p9_a14 out nocopy JTF_VARCHAR2_TABLE_100
2561     , p9_a15 out nocopy JTF_VARCHAR2_TABLE_100
2562     , p9_a16 out nocopy JTF_DATE_TABLE
2563     , p9_a17 out nocopy JTF_DATE_TABLE
2564     , p9_a18 out nocopy JTF_DATE_TABLE
2565     , p9_a19 out nocopy JTF_DATE_TABLE
2566     , p9_a20 out nocopy JTF_VARCHAR2_TABLE_100
2567     , p9_a21 out nocopy JTF_VARCHAR2_TABLE_500
2568     , p9_a22 out nocopy JTF_VARCHAR2_TABLE_500
2569     , p9_a23 out nocopy JTF_VARCHAR2_TABLE_500
2570     , p9_a24 out nocopy JTF_VARCHAR2_TABLE_500
2571     , p9_a25 out nocopy JTF_VARCHAR2_TABLE_500
2572     , p9_a26 out nocopy JTF_VARCHAR2_TABLE_500
2573     , p9_a27 out nocopy JTF_VARCHAR2_TABLE_500
2574     , p9_a28 out nocopy JTF_VARCHAR2_TABLE_500
2575     , p9_a29 out nocopy JTF_VARCHAR2_TABLE_500
2576     , p9_a30 out nocopy JTF_VARCHAR2_TABLE_500
2577     , p9_a31 out nocopy JTF_VARCHAR2_TABLE_500
2578     , p9_a32 out nocopy JTF_VARCHAR2_TABLE_500
2579     , p9_a33 out nocopy JTF_VARCHAR2_TABLE_500
2580     , p9_a34 out nocopy JTF_VARCHAR2_TABLE_500
2581     , p9_a35 out nocopy JTF_VARCHAR2_TABLE_500
2582     , p9_a36 out nocopy JTF_NUMBER_TABLE
2583     , p9_a37 out nocopy JTF_DATE_TABLE
2584     , p9_a38 out nocopy JTF_NUMBER_TABLE
2585     , p9_a39 out nocopy JTF_DATE_TABLE
2586     , p9_a40 out nocopy JTF_NUMBER_TABLE
2587     , p9_a41 out nocopy JTF_NUMBER_TABLE
2588     , p9_a42 out nocopy JTF_NUMBER_TABLE
2589     , p9_a43 out nocopy JTF_NUMBER_TABLE
2590     , p9_a44 out nocopy JTF_NUMBER_TABLE
2591     , p9_a45 out nocopy JTF_NUMBER_TABLE
2592     , p9_a46 out nocopy JTF_NUMBER_TABLE
2593     , p9_a47 out nocopy JTF_NUMBER_TABLE
2594     , p9_a48 out nocopy JTF_NUMBER_TABLE
2595     , p9_a49 out nocopy JTF_DATE_TABLE
2596     , p9_a50 out nocopy JTF_VARCHAR2_TABLE_100
2597     , p9_a51 out nocopy JTF_NUMBER_TABLE
2598     , p9_a52 out nocopy JTF_NUMBER_TABLE
2599     , p9_a53 out nocopy JTF_DATE_TABLE
2600     , p9_a54 out nocopy JTF_DATE_TABLE
2601     , p9_a55 out nocopy JTF_VARCHAR2_TABLE_100
2602     , p9_a56 out nocopy JTF_VARCHAR2_TABLE_100
2603     , p9_a57 out nocopy JTF_VARCHAR2_TABLE_100
2604     , p9_a58 out nocopy JTF_NUMBER_TABLE
2605     , p9_a59 out nocopy JTF_DATE_TABLE
2606     , p9_a60 out nocopy JTF_VARCHAR2_TABLE_100
2607     , p9_a61 out nocopy JTF_VARCHAR2_TABLE_100
2608     , p9_a62 out nocopy JTF_VARCHAR2_TABLE_100
2609     , p9_a63 out nocopy JTF_VARCHAR2_TABLE_100
2610     , p9_a64 out nocopy JTF_VARCHAR2_TABLE_100
2611     , p9_a65 out nocopy JTF_VARCHAR2_TABLE_100
2612   )
2613 
2614   as
2615     ddp_chrv_tbl okl_okc_migration_pvt.chrv_tbl_type;
2616     ddp_khrv_tbl okl_contract_pvt.khrv_tbl_type;
2617     ddx_chrv_tbl okl_okc_migration_pvt.chrv_tbl_type;
2618     ddx_khrv_tbl okl_contract_pvt.khrv_tbl_type;
2619     ddindx binary_integer; indx binary_integer;
2620   begin
2621 
2622     -- copy data to the local IN or IN-OUT args, if any
2623 
2624 
2625 
2626 
2627 
2628 
2629     okl_okc_migration_pvt_w.rosetta_table_copy_in_p3(ddp_chrv_tbl, p6_a0
2630       , p6_a1
2631       , p6_a2
2632       , p6_a3
2633       , p6_a4
2634       , p6_a5
2635       , p6_a6
2636       , p6_a7
2637       , p6_a8
2638       , p6_a9
2639       , p6_a10
2640       , p6_a11
2641       , p6_a12
2642       , p6_a13
2643       , p6_a14
2644       , p6_a15
2645       , p6_a16
2646       , p6_a17
2647       , p6_a18
2648       , p6_a19
2649       , p6_a20
2650       , p6_a21
2651       , p6_a22
2652       , p6_a23
2653       , p6_a24
2654       , p6_a25
2655       , p6_a26
2656       , p6_a27
2657       , p6_a28
2658       , p6_a29
2659       , p6_a30
2660       , p6_a31
2661       , p6_a32
2662       , p6_a33
2663       , p6_a34
2664       , p6_a35
2665       , p6_a36
2666       , p6_a37
2667       , p6_a38
2668       , p6_a39
2669       , p6_a40
2670       , p6_a41
2671       , p6_a42
2672       , p6_a43
2673       , p6_a44
2674       , p6_a45
2675       , p6_a46
2676       , p6_a47
2677       , p6_a48
2678       , p6_a49
2679       , p6_a50
2680       , p6_a51
2681       , p6_a52
2682       , p6_a53
2683       , p6_a54
2684       , p6_a55
2685       , p6_a56
2686       , p6_a57
2687       , p6_a58
2688       , p6_a59
2689       , p6_a60
2690       , p6_a61
2691       , p6_a62
2692       , p6_a63
2693       , p6_a64
2694       , p6_a65
2695       , p6_a66
2696       , p6_a67
2697       , p6_a68
2698       , p6_a69
2699       , p6_a70
2700       , p6_a71
2701       , p6_a72
2702       , p6_a73
2703       , p6_a74
2704       , p6_a75
2705       , p6_a76
2706       , p6_a77
2707       , p6_a78
2708       , p6_a79
2709       , p6_a80
2710       , p6_a81
2711       , p6_a82
2712       , p6_a83
2713       , p6_a84
2714       , p6_a85
2715       , p6_a86
2716       , p6_a87
2717       , p6_a88
2718       , p6_a89
2719       , p6_a90
2720       , p6_a91
2721       , p6_a92
2722       , p6_a93
2723       , p6_a94
2724       , p6_a95
2725       , p6_a96
2726       , p6_a97
2727       , p6_a98
2728       , p6_a99
2729       , p6_a100
2730       , p6_a101
2731       , p6_a102
2732       , p6_a103
2733       , p6_a104
2734       );
2735 
2736     okl_khr_pvt_w.rosetta_table_copy_in_p8(ddp_khrv_tbl, p7_a0
2737       , p7_a1
2738       , p7_a2
2739       , p7_a3
2740       , p7_a4
2741       , p7_a5
2742       , p7_a6
2743       , p7_a7
2744       , p7_a8
2745       , p7_a9
2746       , p7_a10
2747       , p7_a11
2748       , p7_a12
2749       , p7_a13
2750       , p7_a14
2751       , p7_a15
2752       , p7_a16
2753       , p7_a17
2754       , p7_a18
2755       , p7_a19
2756       , p7_a20
2757       , p7_a21
2758       , p7_a22
2759       , p7_a23
2760       , p7_a24
2761       , p7_a25
2762       , p7_a26
2763       , p7_a27
2764       , p7_a28
2765       , p7_a29
2766       , p7_a30
2767       , p7_a31
2768       , p7_a32
2769       , p7_a33
2770       , p7_a34
2771       , p7_a35
2772       , p7_a36
2773       , p7_a37
2774       , p7_a38
2775       , p7_a39
2776       , p7_a40
2777       , p7_a41
2778       , p7_a42
2779       , p7_a43
2780       , p7_a44
2781       , p7_a45
2782       , p7_a46
2783       , p7_a47
2784       , p7_a48
2785       , p7_a49
2786       , p7_a50
2787       , p7_a51
2788       , p7_a52
2789       , p7_a53
2790       , p7_a54
2791       , p7_a55
2792       , p7_a56
2793       , p7_a57
2794       , p7_a58
2795       , p7_a59
2796       , p7_a60
2797       , p7_a61
2798       , p7_a62
2799       , p7_a63
2800       , p7_a64
2801       , p7_a65
2802       );
2803 
2804 
2805 
2806     -- here's the delegated call to the old PL/SQL routine
2807     okl_contract_pvt.update_contract_header(p_api_version,
2808       p_init_msg_list,
2809       x_return_status,
2810       x_msg_count,
2811       x_msg_data,
2812       p_restricted_update,
2813       ddp_chrv_tbl,
2814       ddp_khrv_tbl,
2815       ddx_chrv_tbl,
2816       ddx_khrv_tbl);
2817 
2818     -- copy data back from the local variables to OUT or IN-OUT args, if any
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827     okl_okc_migration_pvt_w.rosetta_table_copy_out_p3(ddx_chrv_tbl, p8_a0
2828       , p8_a1
2829       , p8_a2
2830       , p8_a3
2831       , p8_a4
2832       , p8_a5
2833       , p8_a6
2834       , p8_a7
2835       , p8_a8
2836       , p8_a9
2837       , p8_a10
2838       , p8_a11
2839       , p8_a12
2840       , p8_a13
2841       , p8_a14
2842       , p8_a15
2843       , p8_a16
2844       , p8_a17
2845       , p8_a18
2846       , p8_a19
2847       , p8_a20
2848       , p8_a21
2849       , p8_a22
2850       , p8_a23
2851       , p8_a24
2852       , p8_a25
2853       , p8_a26
2854       , p8_a27
2855       , p8_a28
2856       , p8_a29
2857       , p8_a30
2858       , p8_a31
2859       , p8_a32
2860       , p8_a33
2861       , p8_a34
2862       , p8_a35
2863       , p8_a36
2864       , p8_a37
2865       , p8_a38
2866       , p8_a39
2867       , p8_a40
2868       , p8_a41
2869       , p8_a42
2870       , p8_a43
2871       , p8_a44
2872       , p8_a45
2873       , p8_a46
2874       , p8_a47
2875       , p8_a48
2876       , p8_a49
2877       , p8_a50
2878       , p8_a51
2879       , p8_a52
2880       , p8_a53
2881       , p8_a54
2882       , p8_a55
2883       , p8_a56
2884       , p8_a57
2885       , p8_a58
2886       , p8_a59
2887       , p8_a60
2888       , p8_a61
2889       , p8_a62
2890       , p8_a63
2891       , p8_a64
2892       , p8_a65
2893       , p8_a66
2894       , p8_a67
2895       , p8_a68
2896       , p8_a69
2897       , p8_a70
2898       , p8_a71
2899       , p8_a72
2900       , p8_a73
2901       , p8_a74
2902       , p8_a75
2903       , p8_a76
2904       , p8_a77
2905       , p8_a78
2906       , p8_a79
2907       , p8_a80
2908       , p8_a81
2909       , p8_a82
2910       , p8_a83
2911       , p8_a84
2912       , p8_a85
2913       , p8_a86
2914       , p8_a87
2915       , p8_a88
2916       , p8_a89
2917       , p8_a90
2918       , p8_a91
2919       , p8_a92
2920       , p8_a93
2921       , p8_a94
2922       , p8_a95
2923       , p8_a96
2924       , p8_a97
2925       , p8_a98
2926       , p8_a99
2927       , p8_a100
2928       , p8_a101
2929       , p8_a102
2930       , p8_a103
2931       , p8_a104
2932       );
2933 
2934     okl_khr_pvt_w.rosetta_table_copy_out_p8(ddx_khrv_tbl, p9_a0
2935       , p9_a1
2936       , p9_a2
2937       , p9_a3
2938       , p9_a4
2939       , p9_a5
2940       , p9_a6
2941       , p9_a7
2942       , p9_a8
2943       , p9_a9
2944       , p9_a10
2945       , p9_a11
2946       , p9_a12
2947       , p9_a13
2948       , p9_a14
2949       , p9_a15
2950       , p9_a16
2951       , p9_a17
2952       , p9_a18
2953       , p9_a19
2954       , p9_a20
2955       , p9_a21
2956       , p9_a22
2957       , p9_a23
2958       , p9_a24
2959       , p9_a25
2960       , p9_a26
2961       , p9_a27
2962       , p9_a28
2963       , p9_a29
2964       , p9_a30
2965       , p9_a31
2966       , p9_a32
2967       , p9_a33
2968       , p9_a34
2969       , p9_a35
2970       , p9_a36
2971       , p9_a37
2972       , p9_a38
2973       , p9_a39
2974       , p9_a40
2975       , p9_a41
2976       , p9_a42
2977       , p9_a43
2978       , p9_a44
2979       , p9_a45
2980       , p9_a46
2981       , p9_a47
2982       , p9_a48
2983       , p9_a49
2984       , p9_a50
2985       , p9_a51
2986       , p9_a52
2987       , p9_a53
2988       , p9_a54
2989       , p9_a55
2990       , p9_a56
2991       , p9_a57
2992       , p9_a58
2993       , p9_a59
2994       , p9_a60
2995       , p9_a61
2996       , p9_a62
2997       , p9_a63
2998       , p9_a64
2999       , p9_a65
3000       );
3001   end;
3002 
3003   procedure update_contract_header(p_api_version  NUMBER
3004     , p_init_msg_list  VARCHAR2
3005     , x_return_status out nocopy  VARCHAR2
3006     , x_msg_count out nocopy  NUMBER
3007     , x_msg_data out nocopy  VARCHAR2
3008     , p_restricted_update  VARCHAR2
3009     , p_edit_mode  VARCHAR2
3010     , p9_a0 out nocopy  NUMBER
3011     , p9_a1 out nocopy  NUMBER
3012     , p9_a2 out nocopy  VARCHAR2
3013     , p9_a3 out nocopy  NUMBER
3014     , p9_a4 out nocopy  NUMBER
3015     , p9_a5 out nocopy  NUMBER
3016     , p9_a6 out nocopy  NUMBER
3017     , p9_a7 out nocopy  VARCHAR2
3018     , p9_a8 out nocopy  NUMBER
3019     , p9_a9 out nocopy  VARCHAR2
3020     , p9_a10 out nocopy  VARCHAR2
3021     , p9_a11 out nocopy  VARCHAR2
3022     , p9_a12 out nocopy  VARCHAR2
3023     , p9_a13 out nocopy  VARCHAR2
3024     , p9_a14 out nocopy  VARCHAR2
3025     , p9_a15 out nocopy  VARCHAR2
3026     , p9_a16 out nocopy  VARCHAR2
3027     , p9_a17 out nocopy  VARCHAR2
3028     , p9_a18 out nocopy  VARCHAR2
3029     , p9_a19 out nocopy  VARCHAR2
3030     , p9_a20 out nocopy  VARCHAR2
3031     , p9_a21 out nocopy  VARCHAR2
3032     , p9_a22 out nocopy  VARCHAR2
3033     , p9_a23 out nocopy  VARCHAR2
3034     , p9_a24 out nocopy  VARCHAR2
3035     , p9_a25 out nocopy  DATE
3036     , p9_a26 out nocopy  DATE
3037     , p9_a27 out nocopy  NUMBER
3038     , p9_a28 out nocopy  DATE
3039     , p9_a29 out nocopy  DATE
3040     , p9_a30 out nocopy  VARCHAR2
3041     , p9_a31 out nocopy  VARCHAR2
3042     , p9_a32 out nocopy  VARCHAR2
3043     , p9_a33 out nocopy  VARCHAR2
3044     , p9_a34 out nocopy  VARCHAR2
3045     , p9_a35 out nocopy  VARCHAR2
3046     , p9_a36 out nocopy  NUMBER
3047     , p9_a37 out nocopy  NUMBER
3048     , p9_a38 out nocopy  DATE
3049     , p9_a39 out nocopy  DATE
3050     , p9_a40 out nocopy  DATE
3051     , p9_a41 out nocopy  DATE
3052     , p9_a42 out nocopy  DATE
3053     , p9_a43 out nocopy  VARCHAR2
3054     , p9_a44 out nocopy  DATE
3055     , p9_a45 out nocopy  DATE
3056     , p9_a46 out nocopy  NUMBER
3057     , p9_a47 out nocopy  VARCHAR2
3058     , p9_a48 out nocopy  VARCHAR2
3059     , p9_a49 out nocopy  NUMBER
3060     , p9_a50 out nocopy  NUMBER
3061     , p9_a51 out nocopy  NUMBER
3062     , p9_a52 out nocopy  VARCHAR2
3063     , p9_a53 out nocopy  VARCHAR2
3064     , p9_a54 out nocopy  NUMBER
3065     , p9_a55 out nocopy  NUMBER
3066     , p9_a56 out nocopy  VARCHAR2
3067     , p9_a57 out nocopy  NUMBER
3068     , p9_a58 out nocopy  VARCHAR2
3069     , p9_a59 out nocopy  NUMBER
3070     , p9_a60 out nocopy  NUMBER
3071     , p9_a61 out nocopy  NUMBER
3072     , p9_a62 out nocopy  DATE
3073     , p9_a63 out nocopy  DATE
3074     , p9_a64 out nocopy  DATE
3075     , p9_a65 out nocopy  NUMBER
3076     , p9_a66 out nocopy  NUMBER
3077     , p9_a67 out nocopy  NUMBER
3078     , p9_a68 out nocopy  VARCHAR2
3079     , p9_a69 out nocopy  VARCHAR2
3080     , p9_a70 out nocopy  VARCHAR2
3081     , p9_a71 out nocopy  VARCHAR2
3082     , p9_a72 out nocopy  VARCHAR2
3083     , p9_a73 out nocopy  VARCHAR2
3084     , p9_a74 out nocopy  VARCHAR2
3085     , p9_a75 out nocopy  VARCHAR2
3086     , p9_a76 out nocopy  VARCHAR2
3087     , p9_a77 out nocopy  VARCHAR2
3088     , p9_a78 out nocopy  VARCHAR2
3089     , p9_a79 out nocopy  VARCHAR2
3090     , p9_a80 out nocopy  VARCHAR2
3091     , p9_a81 out nocopy  VARCHAR2
3092     , p9_a82 out nocopy  VARCHAR2
3093     , p9_a83 out nocopy  VARCHAR2
3094     , p9_a84 out nocopy  NUMBER
3095     , p9_a85 out nocopy  DATE
3096     , p9_a86 out nocopy  NUMBER
3097     , p9_a87 out nocopy  DATE
3098     , p9_a88 out nocopy  NUMBER
3099     , p9_a89 out nocopy  VARCHAR2
3100     , p9_a90 out nocopy  VARCHAR2
3101     , p9_a91 out nocopy  VARCHAR2
3102     , p9_a92 out nocopy  VARCHAR2
3103     , p9_a93 out nocopy  VARCHAR2
3104     , p9_a94 out nocopy  NUMBER
3105     , p9_a95 out nocopy  DATE
3106     , p9_a96 out nocopy  NUMBER
3107     , p9_a97 out nocopy  NUMBER
3108     , p9_a98 out nocopy  NUMBER
3109     , p9_a99 out nocopy  NUMBER
3110     , p9_a100 out nocopy  VARCHAR2
3111     , p9_a101 out nocopy  NUMBER
3112     , p9_a102 out nocopy  DATE
3113     , p9_a103 out nocopy  NUMBER
3114     , p9_a104 out nocopy  NUMBER
3115     , p10_a0 out nocopy  NUMBER
3116     , p10_a1 out nocopy  NUMBER
3117     , p10_a2 out nocopy  NUMBER
3118     , p10_a3 out nocopy  NUMBER
3119     , p10_a4 out nocopy  NUMBER
3120     , p10_a5 out nocopy  VARCHAR2
3121     , p10_a6 out nocopy  DATE
3122     , p10_a7 out nocopy  VARCHAR2
3123     , p10_a8 out nocopy  VARCHAR2
3124     , p10_a9 out nocopy  DATE
3125     , p10_a10 out nocopy  VARCHAR2
3126     , p10_a11 out nocopy  NUMBER
3127     , p10_a12 out nocopy  VARCHAR2
3128     , p10_a13 out nocopy  DATE
3129     , p10_a14 out nocopy  VARCHAR2
3130     , p10_a15 out nocopy  VARCHAR2
3131     , p10_a16 out nocopy  DATE
3132     , p10_a17 out nocopy  DATE
3133     , p10_a18 out nocopy  DATE
3134     , p10_a19 out nocopy  DATE
3135     , p10_a20 out nocopy  VARCHAR2
3136     , p10_a21 out nocopy  VARCHAR2
3137     , p10_a22 out nocopy  VARCHAR2
3138     , p10_a23 out nocopy  VARCHAR2
3139     , p10_a24 out nocopy  VARCHAR2
3140     , p10_a25 out nocopy  VARCHAR2
3141     , p10_a26 out nocopy  VARCHAR2
3142     , p10_a27 out nocopy  VARCHAR2
3143     , p10_a28 out nocopy  VARCHAR2
3144     , p10_a29 out nocopy  VARCHAR2
3145     , p10_a30 out nocopy  VARCHAR2
3146     , p10_a31 out nocopy  VARCHAR2
3147     , p10_a32 out nocopy  VARCHAR2
3148     , p10_a33 out nocopy  VARCHAR2
3149     , p10_a34 out nocopy  VARCHAR2
3150     , p10_a35 out nocopy  VARCHAR2
3151     , p10_a36 out nocopy  NUMBER
3152     , p10_a37 out nocopy  DATE
3153     , p10_a38 out nocopy  NUMBER
3154     , p10_a39 out nocopy  DATE
3155     , p10_a40 out nocopy  NUMBER
3156     , p10_a41 out nocopy  NUMBER
3157     , p10_a42 out nocopy  NUMBER
3158     , p10_a43 out nocopy  NUMBER
3159     , p10_a44 out nocopy  NUMBER
3160     , p10_a45 out nocopy  NUMBER
3161     , p10_a46 out nocopy  NUMBER
3162     , p10_a47 out nocopy  NUMBER
3163     , p10_a48 out nocopy  NUMBER
3164     , p10_a49 out nocopy  DATE
3165     , p10_a50 out nocopy  VARCHAR2
3166     , p10_a51 out nocopy  NUMBER
3167     , p10_a52 out nocopy  NUMBER
3168     , p10_a53 out nocopy  DATE
3169     , p10_a54 out nocopy  DATE
3170     , p10_a55 out nocopy  VARCHAR2
3171     , p10_a56 out nocopy  VARCHAR2
3172     , p10_a57 out nocopy  VARCHAR2
3173     , p10_a58 out nocopy  NUMBER
3174     , p10_a59 out nocopy  DATE
3175     , p10_a60 out nocopy  VARCHAR2
3176     , p10_a61 out nocopy  VARCHAR2
3177     , p10_a62 out nocopy  VARCHAR2
3178     , p10_a63 out nocopy  VARCHAR2
3179     , p10_a64 out nocopy  VARCHAR2
3180     , p10_a65 out nocopy  VARCHAR2
3181     , p6_a0  NUMBER := 0-1962.0724
3182     , p6_a1  NUMBER := 0-1962.0724
3183     , p6_a2  VARCHAR2 := fnd_api.g_miss_char
3184     , p6_a3  NUMBER := 0-1962.0724
3185     , p6_a4  NUMBER := 0-1962.0724
3186     , p6_a5  NUMBER := 0-1962.0724
3187     , p6_a6  NUMBER := 0-1962.0724
3188     , p6_a7  VARCHAR2 := fnd_api.g_miss_char
3189     , p6_a8  NUMBER := 0-1962.0724
3190     , p6_a9  VARCHAR2 := fnd_api.g_miss_char
3191     , p6_a10  VARCHAR2 := fnd_api.g_miss_char
3192     , p6_a11  VARCHAR2 := fnd_api.g_miss_char
3193     , p6_a12  VARCHAR2 := fnd_api.g_miss_char
3194     , p6_a13  VARCHAR2 := fnd_api.g_miss_char
3195     , p6_a14  VARCHAR2 := fnd_api.g_miss_char
3196     , p6_a15  VARCHAR2 := fnd_api.g_miss_char
3197     , p6_a16  VARCHAR2 := fnd_api.g_miss_char
3198     , p6_a17  VARCHAR2 := fnd_api.g_miss_char
3199     , p6_a18  VARCHAR2 := fnd_api.g_miss_char
3200     , p6_a19  VARCHAR2 := fnd_api.g_miss_char
3201     , p6_a20  VARCHAR2 := fnd_api.g_miss_char
3202     , p6_a21  VARCHAR2 := fnd_api.g_miss_char
3203     , p6_a22  VARCHAR2 := fnd_api.g_miss_char
3204     , p6_a23  VARCHAR2 := fnd_api.g_miss_char
3205     , p6_a24  VARCHAR2 := fnd_api.g_miss_char
3206     , p6_a25  DATE := fnd_api.g_miss_date
3207     , p6_a26  DATE := fnd_api.g_miss_date
3208     , p6_a27  NUMBER := 0-1962.0724
3209     , p6_a28  DATE := fnd_api.g_miss_date
3210     , p6_a29  DATE := fnd_api.g_miss_date
3211     , p6_a30  VARCHAR2 := fnd_api.g_miss_char
3212     , p6_a31  VARCHAR2 := fnd_api.g_miss_char
3213     , p6_a32  VARCHAR2 := fnd_api.g_miss_char
3214     , p6_a33  VARCHAR2 := fnd_api.g_miss_char
3215     , p6_a34  VARCHAR2 := fnd_api.g_miss_char
3216     , p6_a35  VARCHAR2 := fnd_api.g_miss_char
3217     , p6_a36  NUMBER := 0-1962.0724
3218     , p6_a37  NUMBER := 0-1962.0724
3219     , p6_a38  DATE := fnd_api.g_miss_date
3220     , p6_a39  DATE := fnd_api.g_miss_date
3221     , p6_a40  DATE := fnd_api.g_miss_date
3222     , p6_a41  DATE := fnd_api.g_miss_date
3223     , p6_a42  DATE := fnd_api.g_miss_date
3224     , p6_a43  VARCHAR2 := fnd_api.g_miss_char
3225     , p6_a44  DATE := fnd_api.g_miss_date
3226     , p6_a45  DATE := fnd_api.g_miss_date
3227     , p6_a46  NUMBER := 0-1962.0724
3228     , p6_a47  VARCHAR2 := fnd_api.g_miss_char
3229     , p6_a48  VARCHAR2 := fnd_api.g_miss_char
3230     , p6_a49  NUMBER := 0-1962.0724
3231     , p6_a50  NUMBER := 0-1962.0724
3232     , p6_a51  NUMBER := 0-1962.0724
3233     , p6_a52  VARCHAR2 := fnd_api.g_miss_char
3234     , p6_a53  VARCHAR2 := fnd_api.g_miss_char
3235     , p6_a54  NUMBER := 0-1962.0724
3236     , p6_a55  NUMBER := 0-1962.0724
3237     , p6_a56  VARCHAR2 := fnd_api.g_miss_char
3238     , p6_a57  NUMBER := 0-1962.0724
3239     , p6_a58  VARCHAR2 := fnd_api.g_miss_char
3240     , p6_a59  NUMBER := 0-1962.0724
3241     , p6_a60  NUMBER := 0-1962.0724
3242     , p6_a61  NUMBER := 0-1962.0724
3243     , p6_a62  DATE := fnd_api.g_miss_date
3244     , p6_a63  DATE := fnd_api.g_miss_date
3245     , p6_a64  DATE := fnd_api.g_miss_date
3246     , p6_a65  NUMBER := 0-1962.0724
3247     , p6_a66  NUMBER := 0-1962.0724
3248     , p6_a67  NUMBER := 0-1962.0724
3249     , p6_a68  VARCHAR2 := fnd_api.g_miss_char
3250     , p6_a69  VARCHAR2 := fnd_api.g_miss_char
3251     , p6_a70  VARCHAR2 := fnd_api.g_miss_char
3252     , p6_a71  VARCHAR2 := fnd_api.g_miss_char
3253     , p6_a72  VARCHAR2 := fnd_api.g_miss_char
3254     , p6_a73  VARCHAR2 := fnd_api.g_miss_char
3255     , p6_a74  VARCHAR2 := fnd_api.g_miss_char
3256     , p6_a75  VARCHAR2 := fnd_api.g_miss_char
3257     , p6_a76  VARCHAR2 := fnd_api.g_miss_char
3258     , p6_a77  VARCHAR2 := fnd_api.g_miss_char
3259     , p6_a78  VARCHAR2 := fnd_api.g_miss_char
3260     , p6_a79  VARCHAR2 := fnd_api.g_miss_char
3261     , p6_a80  VARCHAR2 := fnd_api.g_miss_char
3262     , p6_a81  VARCHAR2 := fnd_api.g_miss_char
3263     , p6_a82  VARCHAR2 := fnd_api.g_miss_char
3264     , p6_a83  VARCHAR2 := fnd_api.g_miss_char
3265     , p6_a84  NUMBER := 0-1962.0724
3266     , p6_a85  DATE := fnd_api.g_miss_date
3267     , p6_a86  NUMBER := 0-1962.0724
3268     , p6_a87  DATE := fnd_api.g_miss_date
3269     , p6_a88  NUMBER := 0-1962.0724
3270     , p6_a89  VARCHAR2 := fnd_api.g_miss_char
3271     , p6_a90  VARCHAR2 := fnd_api.g_miss_char
3272     , p6_a91  VARCHAR2 := fnd_api.g_miss_char
3273     , p6_a92  VARCHAR2 := fnd_api.g_miss_char
3274     , p6_a93  VARCHAR2 := fnd_api.g_miss_char
3275     , p6_a94  NUMBER := 0-1962.0724
3276     , p6_a95  DATE := fnd_api.g_miss_date
3277     , p6_a96  NUMBER := 0-1962.0724
3278     , p6_a97  NUMBER := 0-1962.0724
3279     , p6_a98  NUMBER := 0-1962.0724
3280     , p6_a99  NUMBER := 0-1962.0724
3281     , p6_a100  VARCHAR2 := fnd_api.g_miss_char
3282     , p6_a101  NUMBER := 0-1962.0724
3283     , p6_a102  DATE := fnd_api.g_miss_date
3284     , p6_a103  NUMBER := 0-1962.0724
3285     , p6_a104  NUMBER := 0-1962.0724
3286     , p7_a0  NUMBER := 0-1962.0724
3287     , p7_a1  NUMBER := 0-1962.0724
3288     , p7_a2  NUMBER := 0-1962.0724
3289     , p7_a3  NUMBER := 0-1962.0724
3290     , p7_a4  NUMBER := 0-1962.0724
3291     , p7_a5  VARCHAR2 := fnd_api.g_miss_char
3292     , p7_a6  DATE := fnd_api.g_miss_date
3293     , p7_a7  VARCHAR2 := fnd_api.g_miss_char
3294     , p7_a8  VARCHAR2 := fnd_api.g_miss_char
3295     , p7_a9  DATE := fnd_api.g_miss_date
3296     , p7_a10  VARCHAR2 := fnd_api.g_miss_char
3297     , p7_a11  NUMBER := 0-1962.0724
3298     , p7_a12  VARCHAR2 := fnd_api.g_miss_char
3299     , p7_a13  DATE := fnd_api.g_miss_date
3300     , p7_a14  VARCHAR2 := fnd_api.g_miss_char
3301     , p7_a15  VARCHAR2 := fnd_api.g_miss_char
3302     , p7_a16  DATE := fnd_api.g_miss_date
3303     , p7_a17  DATE := fnd_api.g_miss_date
3304     , p7_a18  DATE := fnd_api.g_miss_date
3305     , p7_a19  DATE := fnd_api.g_miss_date
3306     , p7_a20  VARCHAR2 := fnd_api.g_miss_char
3307     , p7_a21  VARCHAR2 := fnd_api.g_miss_char
3308     , p7_a22  VARCHAR2 := fnd_api.g_miss_char
3309     , p7_a23  VARCHAR2 := fnd_api.g_miss_char
3310     , p7_a24  VARCHAR2 := fnd_api.g_miss_char
3311     , p7_a25  VARCHAR2 := fnd_api.g_miss_char
3312     , p7_a26  VARCHAR2 := fnd_api.g_miss_char
3313     , p7_a27  VARCHAR2 := fnd_api.g_miss_char
3314     , p7_a28  VARCHAR2 := fnd_api.g_miss_char
3315     , p7_a29  VARCHAR2 := fnd_api.g_miss_char
3316     , p7_a30  VARCHAR2 := fnd_api.g_miss_char
3317     , p7_a31  VARCHAR2 := fnd_api.g_miss_char
3318     , p7_a32  VARCHAR2 := fnd_api.g_miss_char
3319     , p7_a33  VARCHAR2 := fnd_api.g_miss_char
3320     , p7_a34  VARCHAR2 := fnd_api.g_miss_char
3321     , p7_a35  VARCHAR2 := fnd_api.g_miss_char
3322     , p7_a36  NUMBER := 0-1962.0724
3323     , p7_a37  DATE := fnd_api.g_miss_date
3324     , p7_a38  NUMBER := 0-1962.0724
3325     , p7_a39  DATE := fnd_api.g_miss_date
3326     , p7_a40  NUMBER := 0-1962.0724
3327     , p7_a41  NUMBER := 0-1962.0724
3328     , p7_a42  NUMBER := 0-1962.0724
3329     , p7_a43  NUMBER := 0-1962.0724
3330     , p7_a44  NUMBER := 0-1962.0724
3331     , p7_a45  NUMBER := 0-1962.0724
3332     , p7_a46  NUMBER := 0-1962.0724
3333     , p7_a47  NUMBER := 0-1962.0724
3334     , p7_a48  NUMBER := 0-1962.0724
3335     , p7_a49  DATE := fnd_api.g_miss_date
3336     , p7_a50  VARCHAR2 := fnd_api.g_miss_char
3337     , p7_a51  NUMBER := 0-1962.0724
3338     , p7_a52  NUMBER := 0-1962.0724
3339     , p7_a53  DATE := fnd_api.g_miss_date
3340     , p7_a54  DATE := fnd_api.g_miss_date
3341     , p7_a55  VARCHAR2 := fnd_api.g_miss_char
3342     , p7_a56  VARCHAR2 := fnd_api.g_miss_char
3343     , p7_a57  VARCHAR2 := fnd_api.g_miss_char
3344     , p7_a58  NUMBER := 0-1962.0724
3345     , p7_a59  DATE := fnd_api.g_miss_date
3346     , p7_a60  VARCHAR2 := fnd_api.g_miss_char
3347     , p7_a61  VARCHAR2 := fnd_api.g_miss_char
3348     , p7_a62  VARCHAR2 := fnd_api.g_miss_char
3349     , p7_a63  VARCHAR2 := fnd_api.g_miss_char
3350     , p7_a64  VARCHAR2 := fnd_api.g_miss_char
3351     , p7_a65  VARCHAR2 := fnd_api.g_miss_char
3352   )
3353 
3354   as
3355     ddp_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
3356     ddp_khrv_rec okl_contract_pvt.khrv_rec_type;
3357     ddx_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
3358     ddx_khrv_rec okl_contract_pvt.khrv_rec_type;
3359     ddindx binary_integer; indx binary_integer;
3360   begin
3361 
3362     -- copy data to the local IN or IN-OUT args, if any
3363 
3364 
3365 
3366 
3367 
3368 
3369     ddp_chrv_rec.id := rosetta_g_miss_num_map(p6_a0);
3370     ddp_chrv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
3371     ddp_chrv_rec.sfwt_flag := p6_a2;
3372     ddp_chrv_rec.chr_id_response := rosetta_g_miss_num_map(p6_a3);
3373     ddp_chrv_rec.chr_id_award := rosetta_g_miss_num_map(p6_a4);
3374     ddp_chrv_rec.chr_id_renewed := rosetta_g_miss_num_map(p6_a5);
3375     ddp_chrv_rec.inv_organization_id := rosetta_g_miss_num_map(p6_a6);
3376     ddp_chrv_rec.sts_code := p6_a7;
3377     ddp_chrv_rec.qcl_id := rosetta_g_miss_num_map(p6_a8);
3378     ddp_chrv_rec.scs_code := p6_a9;
3379     ddp_chrv_rec.contract_number := p6_a10;
3380     ddp_chrv_rec.currency_code := p6_a11;
3381     ddp_chrv_rec.contract_number_modifier := p6_a12;
3382     ddp_chrv_rec.archived_yn := p6_a13;
3383     ddp_chrv_rec.deleted_yn := p6_a14;
3384     ddp_chrv_rec.cust_po_number_req_yn := p6_a15;
3385     ddp_chrv_rec.pre_pay_req_yn := p6_a16;
3386     ddp_chrv_rec.cust_po_number := p6_a17;
3387     ddp_chrv_rec.short_description := p6_a18;
3388     ddp_chrv_rec.comments := p6_a19;
3389     ddp_chrv_rec.description := p6_a20;
3390     ddp_chrv_rec.dpas_rating := p6_a21;
3391     ddp_chrv_rec.cognomen := p6_a22;
3392     ddp_chrv_rec.template_yn := p6_a23;
3393     ddp_chrv_rec.template_used := p6_a24;
3394     ddp_chrv_rec.date_approved := rosetta_g_miss_date_in_map(p6_a25);
3395     ddp_chrv_rec.datetime_cancelled := rosetta_g_miss_date_in_map(p6_a26);
3396     ddp_chrv_rec.auto_renew_days := rosetta_g_miss_num_map(p6_a27);
3397     ddp_chrv_rec.date_issued := rosetta_g_miss_date_in_map(p6_a28);
3398     ddp_chrv_rec.datetime_responded := rosetta_g_miss_date_in_map(p6_a29);
3399     ddp_chrv_rec.non_response_reason := p6_a30;
3400     ddp_chrv_rec.non_response_explain := p6_a31;
3401     ddp_chrv_rec.rfp_type := p6_a32;
3402     ddp_chrv_rec.chr_type := p6_a33;
3403     ddp_chrv_rec.keep_on_mail_list := p6_a34;
3404     ddp_chrv_rec.set_aside_reason := p6_a35;
3405     ddp_chrv_rec.set_aside_percent := rosetta_g_miss_num_map(p6_a36);
3406     ddp_chrv_rec.response_copies_req := rosetta_g_miss_num_map(p6_a37);
3407     ddp_chrv_rec.date_close_projected := rosetta_g_miss_date_in_map(p6_a38);
3408     ddp_chrv_rec.datetime_proposed := rosetta_g_miss_date_in_map(p6_a39);
3409     ddp_chrv_rec.date_signed := rosetta_g_miss_date_in_map(p6_a40);
3410     ddp_chrv_rec.date_terminated := rosetta_g_miss_date_in_map(p6_a41);
3411     ddp_chrv_rec.date_renewed := rosetta_g_miss_date_in_map(p6_a42);
3412     ddp_chrv_rec.trn_code := p6_a43;
3413     ddp_chrv_rec.start_date := rosetta_g_miss_date_in_map(p6_a44);
3414     ddp_chrv_rec.end_date := rosetta_g_miss_date_in_map(p6_a45);
3415     ddp_chrv_rec.authoring_org_id := rosetta_g_miss_num_map(p6_a46);
3416     ddp_chrv_rec.buy_or_sell := p6_a47;
3417     ddp_chrv_rec.issue_or_receive := p6_a48;
3418     ddp_chrv_rec.estimated_amount := rosetta_g_miss_num_map(p6_a49);
3419     ddp_chrv_rec.chr_id_renewed_to := rosetta_g_miss_num_map(p6_a50);
3420     ddp_chrv_rec.estimated_amount_renewed := rosetta_g_miss_num_map(p6_a51);
3421     ddp_chrv_rec.currency_code_renewed := p6_a52;
3422     ddp_chrv_rec.upg_orig_system_ref := p6_a53;
3423     ddp_chrv_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p6_a54);
3424     ddp_chrv_rec.application_id := rosetta_g_miss_num_map(p6_a55);
3425     ddp_chrv_rec.orig_system_source_code := p6_a56;
3426     ddp_chrv_rec.orig_system_id1 := rosetta_g_miss_num_map(p6_a57);
3427     ddp_chrv_rec.orig_system_reference1 := p6_a58;
3428     ddp_chrv_rec.program_id := rosetta_g_miss_num_map(p6_a59);
3429     ddp_chrv_rec.request_id := rosetta_g_miss_num_map(p6_a60);
3430     ddp_chrv_rec.price_list_id := rosetta_g_miss_num_map(p6_a61);
3431     ddp_chrv_rec.pricing_date := rosetta_g_miss_date_in_map(p6_a62);
3432     ddp_chrv_rec.sign_by_date := rosetta_g_miss_date_in_map(p6_a63);
3433     ddp_chrv_rec.program_update_date := rosetta_g_miss_date_in_map(p6_a64);
3434     ddp_chrv_rec.total_line_list_price := rosetta_g_miss_num_map(p6_a65);
3435     ddp_chrv_rec.program_application_id := rosetta_g_miss_num_map(p6_a66);
3436     ddp_chrv_rec.user_estimated_amount := rosetta_g_miss_num_map(p6_a67);
3437     ddp_chrv_rec.attribute_category := p6_a68;
3438     ddp_chrv_rec.attribute1 := p6_a69;
3439     ddp_chrv_rec.attribute2 := p6_a70;
3440     ddp_chrv_rec.attribute3 := p6_a71;
3441     ddp_chrv_rec.attribute4 := p6_a72;
3442     ddp_chrv_rec.attribute5 := p6_a73;
3443     ddp_chrv_rec.attribute6 := p6_a74;
3444     ddp_chrv_rec.attribute7 := p6_a75;
3445     ddp_chrv_rec.attribute8 := p6_a76;
3446     ddp_chrv_rec.attribute9 := p6_a77;
3447     ddp_chrv_rec.attribute10 := p6_a78;
3448     ddp_chrv_rec.attribute11 := p6_a79;
3449     ddp_chrv_rec.attribute12 := p6_a80;
3450     ddp_chrv_rec.attribute13 := p6_a81;
3451     ddp_chrv_rec.attribute14 := p6_a82;
3452     ddp_chrv_rec.attribute15 := p6_a83;
3453     ddp_chrv_rec.created_by := rosetta_g_miss_num_map(p6_a84);
3454     ddp_chrv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a85);
3455     ddp_chrv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a86);
3456     ddp_chrv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a87);
3457     ddp_chrv_rec.last_update_login := rosetta_g_miss_num_map(p6_a88);
3458     ddp_chrv_rec.old_sts_code := p6_a89;
3459     ddp_chrv_rec.new_sts_code := p6_a90;
3460     ddp_chrv_rec.old_ste_code := p6_a91;
3461     ddp_chrv_rec.new_ste_code := p6_a92;
3462     ddp_chrv_rec.conversion_type := p6_a93;
3463     ddp_chrv_rec.conversion_rate := rosetta_g_miss_num_map(p6_a94);
3464     ddp_chrv_rec.conversion_rate_date := rosetta_g_miss_date_in_map(p6_a95);
3465     ddp_chrv_rec.conversion_euro_rate := rosetta_g_miss_num_map(p6_a96);
3466     ddp_chrv_rec.cust_acct_id := rosetta_g_miss_num_map(p6_a97);
3467     ddp_chrv_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p6_a98);
3468     ddp_chrv_rec.inv_rule_id := rosetta_g_miss_num_map(p6_a99);
3469     ddp_chrv_rec.renewal_type_code := p6_a100;
3470     ddp_chrv_rec.renewal_notify_to := rosetta_g_miss_num_map(p6_a101);
3471     ddp_chrv_rec.renewal_end_date := rosetta_g_miss_date_in_map(p6_a102);
3472     ddp_chrv_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p6_a103);
3473     ddp_chrv_rec.payment_term_id := rosetta_g_miss_num_map(p6_a104);
3474 
3475     ddp_khrv_rec.id := rosetta_g_miss_num_map(p7_a0);
3476     ddp_khrv_rec.object_version_number := rosetta_g_miss_num_map(p7_a1);
3477     ddp_khrv_rec.isg_id := rosetta_g_miss_num_map(p7_a2);
3478     ddp_khrv_rec.khr_id := rosetta_g_miss_num_map(p7_a3);
3479     ddp_khrv_rec.pdt_id := rosetta_g_miss_num_map(p7_a4);
3480     ddp_khrv_rec.amd_code := p7_a5;
3481     ddp_khrv_rec.date_first_activity := rosetta_g_miss_date_in_map(p7_a6);
3482     ddp_khrv_rec.generate_accrual_yn := p7_a7;
3483     ddp_khrv_rec.generate_accrual_override_yn := p7_a8;
3484     ddp_khrv_rec.date_refinanced := rosetta_g_miss_date_in_map(p7_a9);
3485     ddp_khrv_rec.credit_act_yn := p7_a10;
3486     ddp_khrv_rec.term_duration := rosetta_g_miss_num_map(p7_a11);
3487     ddp_khrv_rec.converted_account_yn := p7_a12;
3488     ddp_khrv_rec.date_conversion_effective := rosetta_g_miss_date_in_map(p7_a13);
3489     ddp_khrv_rec.syndicatable_yn := p7_a14;
3490     ddp_khrv_rec.salestype_yn := p7_a15;
3491     ddp_khrv_rec.date_deal_transferred := rosetta_g_miss_date_in_map(p7_a16);
3492     ddp_khrv_rec.datetime_proposal_effective := rosetta_g_miss_date_in_map(p7_a17);
3493     ddp_khrv_rec.datetime_proposal_ineffective := rosetta_g_miss_date_in_map(p7_a18);
3494     ddp_khrv_rec.date_proposal_accepted := rosetta_g_miss_date_in_map(p7_a19);
3495     ddp_khrv_rec.attribute_category := p7_a20;
3496     ddp_khrv_rec.attribute1 := p7_a21;
3497     ddp_khrv_rec.attribute2 := p7_a22;
3498     ddp_khrv_rec.attribute3 := p7_a23;
3499     ddp_khrv_rec.attribute4 := p7_a24;
3500     ddp_khrv_rec.attribute5 := p7_a25;
3501     ddp_khrv_rec.attribute6 := p7_a26;
3502     ddp_khrv_rec.attribute7 := p7_a27;
3503     ddp_khrv_rec.attribute8 := p7_a28;
3504     ddp_khrv_rec.attribute9 := p7_a29;
3505     ddp_khrv_rec.attribute10 := p7_a30;
3506     ddp_khrv_rec.attribute11 := p7_a31;
3507     ddp_khrv_rec.attribute12 := p7_a32;
3508     ddp_khrv_rec.attribute13 := p7_a33;
3509     ddp_khrv_rec.attribute14 := p7_a34;
3510     ddp_khrv_rec.attribute15 := p7_a35;
3511     ddp_khrv_rec.created_by := rosetta_g_miss_num_map(p7_a36);
3512     ddp_khrv_rec.creation_date := rosetta_g_miss_date_in_map(p7_a37);
3513     ddp_khrv_rec.last_updated_by := rosetta_g_miss_num_map(p7_a38);
3514     ddp_khrv_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a39);
3515     ddp_khrv_rec.last_update_login := rosetta_g_miss_num_map(p7_a40);
3516     ddp_khrv_rec.pre_tax_yield := rosetta_g_miss_num_map(p7_a41);
3517     ddp_khrv_rec.after_tax_yield := rosetta_g_miss_num_map(p7_a42);
3518     ddp_khrv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p7_a43);
3519     ddp_khrv_rec.implicit_non_idc_interest_rate := rosetta_g_miss_num_map(p7_a44);
3520     ddp_khrv_rec.target_pre_tax_yield := rosetta_g_miss_num_map(p7_a45);
3521     ddp_khrv_rec.target_after_tax_yield := rosetta_g_miss_num_map(p7_a46);
3522     ddp_khrv_rec.target_implicit_interest_rate := rosetta_g_miss_num_map(p7_a47);
3523     ddp_khrv_rec.target_implicit_nonidc_intrate := rosetta_g_miss_num_map(p7_a48);
3524     ddp_khrv_rec.date_last_interim_interest_cal := rosetta_g_miss_date_in_map(p7_a49);
3525     ddp_khrv_rec.deal_type := p7_a50;
3526     ddp_khrv_rec.pre_tax_irr := rosetta_g_miss_num_map(p7_a51);
3527     ddp_khrv_rec.after_tax_irr := rosetta_g_miss_num_map(p7_a52);
3528     ddp_khrv_rec.expected_delivery_date := rosetta_g_miss_date_in_map(p7_a53);
3529     ddp_khrv_rec.accepted_date := rosetta_g_miss_date_in_map(p7_a54);
3530     ddp_khrv_rec.prefunding_eligible_yn := p7_a55;
3531     ddp_khrv_rec.revolving_credit_yn := p7_a56;
3532     ddp_khrv_rec.currency_conversion_type := p7_a57;
3533     ddp_khrv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p7_a58);
3534     ddp_khrv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p7_a59);
3535     ddp_khrv_rec.multi_gaap_yn := p7_a60;
3536     ddp_khrv_rec.recourse_code := p7_a61;
3537     ddp_khrv_rec.lessor_serv_org_code := p7_a62;
3538     ddp_khrv_rec.assignable_yn := p7_a63;
3539     ddp_khrv_rec.securitized_code := p7_a64;
3540     ddp_khrv_rec.securitization_type := p7_a65;
3541 
3542 
3543 
3544 
3545     -- here's the delegated call to the old PL/SQL routine
3546     okl_contract_pvt.update_contract_header(p_api_version,
3547       p_init_msg_list,
3548       x_return_status,
3549       x_msg_count,
3550       x_msg_data,
3551       p_restricted_update,
3552       ddp_chrv_rec,
3553       ddp_khrv_rec,
3554       p_edit_mode,
3555       ddx_chrv_rec,
3556       ddx_khrv_rec);
3557 
3558     -- copy data back from the local variables to OUT or IN-OUT args, if any
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568     p9_a0 := rosetta_g_miss_num_map(ddx_chrv_rec.id);
3569     p9_a1 := rosetta_g_miss_num_map(ddx_chrv_rec.object_version_number);
3570     p9_a2 := ddx_chrv_rec.sfwt_flag;
3571     p9_a3 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_response);
3572     p9_a4 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_award);
3573     p9_a5 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_renewed);
3574     p9_a6 := rosetta_g_miss_num_map(ddx_chrv_rec.inv_organization_id);
3575     p9_a7 := ddx_chrv_rec.sts_code;
3576     p9_a8 := rosetta_g_miss_num_map(ddx_chrv_rec.qcl_id);
3577     p9_a9 := ddx_chrv_rec.scs_code;
3578     p9_a10 := ddx_chrv_rec.contract_number;
3579     p9_a11 := ddx_chrv_rec.currency_code;
3580     p9_a12 := ddx_chrv_rec.contract_number_modifier;
3581     p9_a13 := ddx_chrv_rec.archived_yn;
3582     p9_a14 := ddx_chrv_rec.deleted_yn;
3583     p9_a15 := ddx_chrv_rec.cust_po_number_req_yn;
3584     p9_a16 := ddx_chrv_rec.pre_pay_req_yn;
3585     p9_a17 := ddx_chrv_rec.cust_po_number;
3586     p9_a18 := ddx_chrv_rec.short_description;
3587     p9_a19 := ddx_chrv_rec.comments;
3588     p9_a20 := ddx_chrv_rec.description;
3589     p9_a21 := ddx_chrv_rec.dpas_rating;
3590     p9_a22 := ddx_chrv_rec.cognomen;
3591     p9_a23 := ddx_chrv_rec.template_yn;
3592     p9_a24 := ddx_chrv_rec.template_used;
3593     p9_a25 := ddx_chrv_rec.date_approved;
3594     p9_a26 := ddx_chrv_rec.datetime_cancelled;
3595     p9_a27 := rosetta_g_miss_num_map(ddx_chrv_rec.auto_renew_days);
3596     p9_a28 := ddx_chrv_rec.date_issued;
3597     p9_a29 := ddx_chrv_rec.datetime_responded;
3598     p9_a30 := ddx_chrv_rec.non_response_reason;
3599     p9_a31 := ddx_chrv_rec.non_response_explain;
3600     p9_a32 := ddx_chrv_rec.rfp_type;
3601     p9_a33 := ddx_chrv_rec.chr_type;
3602     p9_a34 := ddx_chrv_rec.keep_on_mail_list;
3603     p9_a35 := ddx_chrv_rec.set_aside_reason;
3604     p9_a36 := rosetta_g_miss_num_map(ddx_chrv_rec.set_aside_percent);
3605     p9_a37 := rosetta_g_miss_num_map(ddx_chrv_rec.response_copies_req);
3606     p9_a38 := ddx_chrv_rec.date_close_projected;
3607     p9_a39 := ddx_chrv_rec.datetime_proposed;
3608     p9_a40 := ddx_chrv_rec.date_signed;
3609     p9_a41 := ddx_chrv_rec.date_terminated;
3610     p9_a42 := ddx_chrv_rec.date_renewed;
3611     p9_a43 := ddx_chrv_rec.trn_code;
3612     p9_a44 := ddx_chrv_rec.start_date;
3613     p9_a45 := ddx_chrv_rec.end_date;
3614     p9_a46 := rosetta_g_miss_num_map(ddx_chrv_rec.authoring_org_id);
3615     p9_a47 := ddx_chrv_rec.buy_or_sell;
3616     p9_a48 := ddx_chrv_rec.issue_or_receive;
3617     p9_a49 := rosetta_g_miss_num_map(ddx_chrv_rec.estimated_amount);
3618     p9_a50 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_renewed_to);
3619     p9_a51 := rosetta_g_miss_num_map(ddx_chrv_rec.estimated_amount_renewed);
3620     p9_a52 := ddx_chrv_rec.currency_code_renewed;
3621     p9_a53 := ddx_chrv_rec.upg_orig_system_ref;
3622     p9_a54 := rosetta_g_miss_num_map(ddx_chrv_rec.upg_orig_system_ref_id);
3623     p9_a55 := rosetta_g_miss_num_map(ddx_chrv_rec.application_id);
3624     p9_a56 := ddx_chrv_rec.orig_system_source_code;
3625     p9_a57 := rosetta_g_miss_num_map(ddx_chrv_rec.orig_system_id1);
3626     p9_a58 := ddx_chrv_rec.orig_system_reference1;
3627     p9_a59 := rosetta_g_miss_num_map(ddx_chrv_rec.program_id);
3628     p9_a60 := rosetta_g_miss_num_map(ddx_chrv_rec.request_id);
3629     p9_a61 := rosetta_g_miss_num_map(ddx_chrv_rec.price_list_id);
3630     p9_a62 := ddx_chrv_rec.pricing_date;
3631     p9_a63 := ddx_chrv_rec.sign_by_date;
3632     p9_a64 := ddx_chrv_rec.program_update_date;
3633     p9_a65 := rosetta_g_miss_num_map(ddx_chrv_rec.total_line_list_price);
3634     p9_a66 := rosetta_g_miss_num_map(ddx_chrv_rec.program_application_id);
3635     p9_a67 := rosetta_g_miss_num_map(ddx_chrv_rec.user_estimated_amount);
3636     p9_a68 := ddx_chrv_rec.attribute_category;
3637     p9_a69 := ddx_chrv_rec.attribute1;
3638     p9_a70 := ddx_chrv_rec.attribute2;
3639     p9_a71 := ddx_chrv_rec.attribute3;
3640     p9_a72 := ddx_chrv_rec.attribute4;
3641     p9_a73 := ddx_chrv_rec.attribute5;
3642     p9_a74 := ddx_chrv_rec.attribute6;
3643     p9_a75 := ddx_chrv_rec.attribute7;
3644     p9_a76 := ddx_chrv_rec.attribute8;
3645     p9_a77 := ddx_chrv_rec.attribute9;
3646     p9_a78 := ddx_chrv_rec.attribute10;
3647     p9_a79 := ddx_chrv_rec.attribute11;
3648     p9_a80 := ddx_chrv_rec.attribute12;
3649     p9_a81 := ddx_chrv_rec.attribute13;
3650     p9_a82 := ddx_chrv_rec.attribute14;
3651     p9_a83 := ddx_chrv_rec.attribute15;
3652     p9_a84 := rosetta_g_miss_num_map(ddx_chrv_rec.created_by);
3653     p9_a85 := ddx_chrv_rec.creation_date;
3654     p9_a86 := rosetta_g_miss_num_map(ddx_chrv_rec.last_updated_by);
3655     p9_a87 := ddx_chrv_rec.last_update_date;
3656     p9_a88 := rosetta_g_miss_num_map(ddx_chrv_rec.last_update_login);
3657     p9_a89 := ddx_chrv_rec.old_sts_code;
3658     p9_a90 := ddx_chrv_rec.new_sts_code;
3659     p9_a91 := ddx_chrv_rec.old_ste_code;
3660     p9_a92 := ddx_chrv_rec.new_ste_code;
3661     p9_a93 := ddx_chrv_rec.conversion_type;
3662     p9_a94 := rosetta_g_miss_num_map(ddx_chrv_rec.conversion_rate);
3663     p9_a95 := ddx_chrv_rec.conversion_rate_date;
3664     p9_a96 := rosetta_g_miss_num_map(ddx_chrv_rec.conversion_euro_rate);
3665     p9_a97 := rosetta_g_miss_num_map(ddx_chrv_rec.cust_acct_id);
3666     p9_a98 := rosetta_g_miss_num_map(ddx_chrv_rec.bill_to_site_use_id);
3667     p9_a99 := rosetta_g_miss_num_map(ddx_chrv_rec.inv_rule_id);
3668     p9_a100 := ddx_chrv_rec.renewal_type_code;
3669     p9_a101 := rosetta_g_miss_num_map(ddx_chrv_rec.renewal_notify_to);
3670     p9_a102 := ddx_chrv_rec.renewal_end_date;
3671     p9_a103 := rosetta_g_miss_num_map(ddx_chrv_rec.ship_to_site_use_id);
3672     p9_a104 := rosetta_g_miss_num_map(ddx_chrv_rec.payment_term_id);
3673 
3674     p10_a0 := rosetta_g_miss_num_map(ddx_khrv_rec.id);
3675     p10_a1 := rosetta_g_miss_num_map(ddx_khrv_rec.object_version_number);
3676     p10_a2 := rosetta_g_miss_num_map(ddx_khrv_rec.isg_id);
3677     p10_a3 := rosetta_g_miss_num_map(ddx_khrv_rec.khr_id);
3678     p10_a4 := rosetta_g_miss_num_map(ddx_khrv_rec.pdt_id);
3679     p10_a5 := ddx_khrv_rec.amd_code;
3680     p10_a6 := ddx_khrv_rec.date_first_activity;
3681     p10_a7 := ddx_khrv_rec.generate_accrual_yn;
3682     p10_a8 := ddx_khrv_rec.generate_accrual_override_yn;
3683     p10_a9 := ddx_khrv_rec.date_refinanced;
3684     p10_a10 := ddx_khrv_rec.credit_act_yn;
3685     p10_a11 := rosetta_g_miss_num_map(ddx_khrv_rec.term_duration);
3686     p10_a12 := ddx_khrv_rec.converted_account_yn;
3687     p10_a13 := ddx_khrv_rec.date_conversion_effective;
3688     p10_a14 := ddx_khrv_rec.syndicatable_yn;
3689     p10_a15 := ddx_khrv_rec.salestype_yn;
3690     p10_a16 := ddx_khrv_rec.date_deal_transferred;
3691     p10_a17 := ddx_khrv_rec.datetime_proposal_effective;
3692     p10_a18 := ddx_khrv_rec.datetime_proposal_ineffective;
3693     p10_a19 := ddx_khrv_rec.date_proposal_accepted;
3694     p10_a20 := ddx_khrv_rec.attribute_category;
3695     p10_a21 := ddx_khrv_rec.attribute1;
3696     p10_a22 := ddx_khrv_rec.attribute2;
3697     p10_a23 := ddx_khrv_rec.attribute3;
3698     p10_a24 := ddx_khrv_rec.attribute4;
3699     p10_a25 := ddx_khrv_rec.attribute5;
3700     p10_a26 := ddx_khrv_rec.attribute6;
3701     p10_a27 := ddx_khrv_rec.attribute7;
3702     p10_a28 := ddx_khrv_rec.attribute8;
3703     p10_a29 := ddx_khrv_rec.attribute9;
3704     p10_a30 := ddx_khrv_rec.attribute10;
3705     p10_a31 := ddx_khrv_rec.attribute11;
3706     p10_a32 := ddx_khrv_rec.attribute12;
3707     p10_a33 := ddx_khrv_rec.attribute13;
3708     p10_a34 := ddx_khrv_rec.attribute14;
3709     p10_a35 := ddx_khrv_rec.attribute15;
3710     p10_a36 := rosetta_g_miss_num_map(ddx_khrv_rec.created_by);
3711     p10_a37 := ddx_khrv_rec.creation_date;
3712     p10_a38 := rosetta_g_miss_num_map(ddx_khrv_rec.last_updated_by);
3713     p10_a39 := ddx_khrv_rec.last_update_date;
3714     p10_a40 := rosetta_g_miss_num_map(ddx_khrv_rec.last_update_login);
3715     p10_a41 := rosetta_g_miss_num_map(ddx_khrv_rec.pre_tax_yield);
3716     p10_a42 := rosetta_g_miss_num_map(ddx_khrv_rec.after_tax_yield);
3717     p10_a43 := rosetta_g_miss_num_map(ddx_khrv_rec.implicit_interest_rate);
3718     p10_a44 := rosetta_g_miss_num_map(ddx_khrv_rec.implicit_non_idc_interest_rate);
3719     p10_a45 := rosetta_g_miss_num_map(ddx_khrv_rec.target_pre_tax_yield);
3720     p10_a46 := rosetta_g_miss_num_map(ddx_khrv_rec.target_after_tax_yield);
3721     p10_a47 := rosetta_g_miss_num_map(ddx_khrv_rec.target_implicit_interest_rate);
3722     p10_a48 := rosetta_g_miss_num_map(ddx_khrv_rec.target_implicit_nonidc_intrate);
3723     p10_a49 := ddx_khrv_rec.date_last_interim_interest_cal;
3724     p10_a50 := ddx_khrv_rec.deal_type;
3725     p10_a51 := rosetta_g_miss_num_map(ddx_khrv_rec.pre_tax_irr);
3726     p10_a52 := rosetta_g_miss_num_map(ddx_khrv_rec.after_tax_irr);
3727     p10_a53 := ddx_khrv_rec.expected_delivery_date;
3728     p10_a54 := ddx_khrv_rec.accepted_date;
3729     p10_a55 := ddx_khrv_rec.prefunding_eligible_yn;
3730     p10_a56 := ddx_khrv_rec.revolving_credit_yn;
3731     p10_a57 := ddx_khrv_rec.currency_conversion_type;
3732     p10_a58 := rosetta_g_miss_num_map(ddx_khrv_rec.currency_conversion_rate);
3733     p10_a59 := ddx_khrv_rec.currency_conversion_date;
3734     p10_a60 := ddx_khrv_rec.multi_gaap_yn;
3735     p10_a61 := ddx_khrv_rec.recourse_code;
3736     p10_a62 := ddx_khrv_rec.lessor_serv_org_code;
3737     p10_a63 := ddx_khrv_rec.assignable_yn;
3738     p10_a64 := ddx_khrv_rec.securitized_code;
3739     p10_a65 := ddx_khrv_rec.securitization_type;
3740   end;
3741 
3742   procedure delete_contract_header(p_api_version  NUMBER
3743     , p_init_msg_list  VARCHAR2
3744     , x_return_status out nocopy  VARCHAR2
3745     , x_msg_count out nocopy  NUMBER
3746     , x_msg_data out nocopy  VARCHAR2
3747     , p5_a0  NUMBER := 0-1962.0724
3748     , p5_a1  NUMBER := 0-1962.0724
3749     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
3750     , p5_a3  NUMBER := 0-1962.0724
3751     , p5_a4  NUMBER := 0-1962.0724
3752     , p5_a5  NUMBER := 0-1962.0724
3753     , p5_a6  NUMBER := 0-1962.0724
3754     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
3755     , p5_a8  NUMBER := 0-1962.0724
3756     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
3757     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
3758     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
3759     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
3760     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
3761     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
3762     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
3763     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
3764     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
3765     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
3766     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
3767     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
3768     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
3769     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
3770     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
3771     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
3772     , p5_a25  DATE := fnd_api.g_miss_date
3773     , p5_a26  DATE := fnd_api.g_miss_date
3774     , p5_a27  NUMBER := 0-1962.0724
3775     , p5_a28  DATE := fnd_api.g_miss_date
3776     , p5_a29  DATE := fnd_api.g_miss_date
3777     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
3778     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
3779     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
3780     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
3781     , p5_a34  VARCHAR2 := fnd_api.g_miss_char
3782     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
3783     , p5_a36  NUMBER := 0-1962.0724
3784     , p5_a37  NUMBER := 0-1962.0724
3785     , p5_a38  DATE := fnd_api.g_miss_date
3786     , p5_a39  DATE := fnd_api.g_miss_date
3787     , p5_a40  DATE := fnd_api.g_miss_date
3788     , p5_a41  DATE := fnd_api.g_miss_date
3789     , p5_a42  DATE := fnd_api.g_miss_date
3790     , p5_a43  VARCHAR2 := fnd_api.g_miss_char
3791     , p5_a44  DATE := fnd_api.g_miss_date
3792     , p5_a45  DATE := fnd_api.g_miss_date
3793     , p5_a46  NUMBER := 0-1962.0724
3794     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
3795     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
3796     , p5_a49  NUMBER := 0-1962.0724
3797     , p5_a50  NUMBER := 0-1962.0724
3798     , p5_a51  NUMBER := 0-1962.0724
3799     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
3800     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
3801     , p5_a54  NUMBER := 0-1962.0724
3802     , p5_a55  NUMBER := 0-1962.0724
3803     , p5_a56  VARCHAR2 := fnd_api.g_miss_char
3804     , p5_a57  NUMBER := 0-1962.0724
3805     , p5_a58  VARCHAR2 := fnd_api.g_miss_char
3806     , p5_a59  NUMBER := 0-1962.0724
3807     , p5_a60  NUMBER := 0-1962.0724
3808     , p5_a61  NUMBER := 0-1962.0724
3809     , p5_a62  DATE := fnd_api.g_miss_date
3810     , p5_a63  DATE := fnd_api.g_miss_date
3811     , p5_a64  DATE := fnd_api.g_miss_date
3812     , p5_a65  NUMBER := 0-1962.0724
3813     , p5_a66  NUMBER := 0-1962.0724
3814     , p5_a67  NUMBER := 0-1962.0724
3815     , p5_a68  VARCHAR2 := fnd_api.g_miss_char
3816     , p5_a69  VARCHAR2 := fnd_api.g_miss_char
3817     , p5_a70  VARCHAR2 := fnd_api.g_miss_char
3818     , p5_a71  VARCHAR2 := fnd_api.g_miss_char
3819     , p5_a72  VARCHAR2 := fnd_api.g_miss_char
3820     , p5_a73  VARCHAR2 := fnd_api.g_miss_char
3821     , p5_a74  VARCHAR2 := fnd_api.g_miss_char
3822     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
3823     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
3824     , p5_a77  VARCHAR2 := fnd_api.g_miss_char
3825     , p5_a78  VARCHAR2 := fnd_api.g_miss_char
3826     , p5_a79  VARCHAR2 := fnd_api.g_miss_char
3827     , p5_a80  VARCHAR2 := fnd_api.g_miss_char
3828     , p5_a81  VARCHAR2 := fnd_api.g_miss_char
3829     , p5_a82  VARCHAR2 := fnd_api.g_miss_char
3830     , p5_a83  VARCHAR2 := fnd_api.g_miss_char
3831     , p5_a84  NUMBER := 0-1962.0724
3832     , p5_a85  DATE := fnd_api.g_miss_date
3833     , p5_a86  NUMBER := 0-1962.0724
3834     , p5_a87  DATE := fnd_api.g_miss_date
3835     , p5_a88  NUMBER := 0-1962.0724
3836     , p5_a89  VARCHAR2 := fnd_api.g_miss_char
3837     , p5_a90  VARCHAR2 := fnd_api.g_miss_char
3838     , p5_a91  VARCHAR2 := fnd_api.g_miss_char
3839     , p5_a92  VARCHAR2 := fnd_api.g_miss_char
3840     , p5_a93  VARCHAR2 := fnd_api.g_miss_char
3841     , p5_a94  NUMBER := 0-1962.0724
3842     , p5_a95  DATE := fnd_api.g_miss_date
3843     , p5_a96  NUMBER := 0-1962.0724
3844     , p5_a97  NUMBER := 0-1962.0724
3845     , p5_a98  NUMBER := 0-1962.0724
3846     , p5_a99  NUMBER := 0-1962.0724
3847     , p5_a100  VARCHAR2 := fnd_api.g_miss_char
3848     , p5_a101  NUMBER := 0-1962.0724
3849     , p5_a102  DATE := fnd_api.g_miss_date
3850     , p5_a103  NUMBER := 0-1962.0724
3851     , p5_a104  NUMBER := 0-1962.0724
3852     , p6_a0  NUMBER := 0-1962.0724
3853     , p6_a1  NUMBER := 0-1962.0724
3854     , p6_a2  NUMBER := 0-1962.0724
3855     , p6_a3  NUMBER := 0-1962.0724
3856     , p6_a4  NUMBER := 0-1962.0724
3857     , p6_a5  VARCHAR2 := fnd_api.g_miss_char
3858     , p6_a6  DATE := fnd_api.g_miss_date
3859     , p6_a7  VARCHAR2 := fnd_api.g_miss_char
3860     , p6_a8  VARCHAR2 := fnd_api.g_miss_char
3861     , p6_a9  DATE := fnd_api.g_miss_date
3862     , p6_a10  VARCHAR2 := fnd_api.g_miss_char
3863     , p6_a11  NUMBER := 0-1962.0724
3864     , p6_a12  VARCHAR2 := fnd_api.g_miss_char
3865     , p6_a13  DATE := fnd_api.g_miss_date
3866     , p6_a14  VARCHAR2 := fnd_api.g_miss_char
3867     , p6_a15  VARCHAR2 := fnd_api.g_miss_char
3868     , p6_a16  DATE := fnd_api.g_miss_date
3869     , p6_a17  DATE := fnd_api.g_miss_date
3870     , p6_a18  DATE := fnd_api.g_miss_date
3871     , p6_a19  DATE := fnd_api.g_miss_date
3872     , p6_a20  VARCHAR2 := fnd_api.g_miss_char
3873     , p6_a21  VARCHAR2 := fnd_api.g_miss_char
3874     , p6_a22  VARCHAR2 := fnd_api.g_miss_char
3875     , p6_a23  VARCHAR2 := fnd_api.g_miss_char
3876     , p6_a24  VARCHAR2 := fnd_api.g_miss_char
3877     , p6_a25  VARCHAR2 := fnd_api.g_miss_char
3878     , p6_a26  VARCHAR2 := fnd_api.g_miss_char
3879     , p6_a27  VARCHAR2 := fnd_api.g_miss_char
3880     , p6_a28  VARCHAR2 := fnd_api.g_miss_char
3881     , p6_a29  VARCHAR2 := fnd_api.g_miss_char
3882     , p6_a30  VARCHAR2 := fnd_api.g_miss_char
3883     , p6_a31  VARCHAR2 := fnd_api.g_miss_char
3884     , p6_a32  VARCHAR2 := fnd_api.g_miss_char
3885     , p6_a33  VARCHAR2 := fnd_api.g_miss_char
3886     , p6_a34  VARCHAR2 := fnd_api.g_miss_char
3887     , p6_a35  VARCHAR2 := fnd_api.g_miss_char
3888     , p6_a36  NUMBER := 0-1962.0724
3889     , p6_a37  DATE := fnd_api.g_miss_date
3890     , p6_a38  NUMBER := 0-1962.0724
3891     , p6_a39  DATE := fnd_api.g_miss_date
3892     , p6_a40  NUMBER := 0-1962.0724
3893     , p6_a41  NUMBER := 0-1962.0724
3894     , p6_a42  NUMBER := 0-1962.0724
3895     , p6_a43  NUMBER := 0-1962.0724
3896     , p6_a44  NUMBER := 0-1962.0724
3897     , p6_a45  NUMBER := 0-1962.0724
3898     , p6_a46  NUMBER := 0-1962.0724
3899     , p6_a47  NUMBER := 0-1962.0724
3900     , p6_a48  NUMBER := 0-1962.0724
3901     , p6_a49  DATE := fnd_api.g_miss_date
3902     , p6_a50  VARCHAR2 := fnd_api.g_miss_char
3903     , p6_a51  NUMBER := 0-1962.0724
3904     , p6_a52  NUMBER := 0-1962.0724
3905     , p6_a53  DATE := fnd_api.g_miss_date
3906     , p6_a54  DATE := fnd_api.g_miss_date
3907     , p6_a55  VARCHAR2 := fnd_api.g_miss_char
3908     , p6_a56  VARCHAR2 := fnd_api.g_miss_char
3909     , p6_a57  VARCHAR2 := fnd_api.g_miss_char
3910     , p6_a58  NUMBER := 0-1962.0724
3911     , p6_a59  DATE := fnd_api.g_miss_date
3912     , p6_a60  VARCHAR2 := fnd_api.g_miss_char
3913     , p6_a61  VARCHAR2 := fnd_api.g_miss_char
3914     , p6_a62  VARCHAR2 := fnd_api.g_miss_char
3915     , p6_a63  VARCHAR2 := fnd_api.g_miss_char
3916     , p6_a64  VARCHAR2 := fnd_api.g_miss_char
3917     , p6_a65  VARCHAR2 := fnd_api.g_miss_char
3918   )
3919 
3920   as
3921     ddp_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
3922     ddp_khrv_rec okl_contract_pvt.khrv_rec_type;
3923     ddindx binary_integer; indx binary_integer;
3924   begin
3925 
3926     -- copy data to the local IN or IN-OUT args, if any
3927 
3928 
3929 
3930 
3931 
3932     ddp_chrv_rec.id := rosetta_g_miss_num_map(p5_a0);
3933     ddp_chrv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
3934     ddp_chrv_rec.sfwt_flag := p5_a2;
3935     ddp_chrv_rec.chr_id_response := rosetta_g_miss_num_map(p5_a3);
3936     ddp_chrv_rec.chr_id_award := rosetta_g_miss_num_map(p5_a4);
3937     ddp_chrv_rec.chr_id_renewed := rosetta_g_miss_num_map(p5_a5);
3938     ddp_chrv_rec.inv_organization_id := rosetta_g_miss_num_map(p5_a6);
3939     ddp_chrv_rec.sts_code := p5_a7;
3940     ddp_chrv_rec.qcl_id := rosetta_g_miss_num_map(p5_a8);
3941     ddp_chrv_rec.scs_code := p5_a9;
3942     ddp_chrv_rec.contract_number := p5_a10;
3943     ddp_chrv_rec.currency_code := p5_a11;
3944     ddp_chrv_rec.contract_number_modifier := p5_a12;
3945     ddp_chrv_rec.archived_yn := p5_a13;
3946     ddp_chrv_rec.deleted_yn := p5_a14;
3947     ddp_chrv_rec.cust_po_number_req_yn := p5_a15;
3948     ddp_chrv_rec.pre_pay_req_yn := p5_a16;
3949     ddp_chrv_rec.cust_po_number := p5_a17;
3950     ddp_chrv_rec.short_description := p5_a18;
3951     ddp_chrv_rec.comments := p5_a19;
3952     ddp_chrv_rec.description := p5_a20;
3953     ddp_chrv_rec.dpas_rating := p5_a21;
3954     ddp_chrv_rec.cognomen := p5_a22;
3955     ddp_chrv_rec.template_yn := p5_a23;
3956     ddp_chrv_rec.template_used := p5_a24;
3957     ddp_chrv_rec.date_approved := rosetta_g_miss_date_in_map(p5_a25);
3958     ddp_chrv_rec.datetime_cancelled := rosetta_g_miss_date_in_map(p5_a26);
3959     ddp_chrv_rec.auto_renew_days := rosetta_g_miss_num_map(p5_a27);
3960     ddp_chrv_rec.date_issued := rosetta_g_miss_date_in_map(p5_a28);
3961     ddp_chrv_rec.datetime_responded := rosetta_g_miss_date_in_map(p5_a29);
3962     ddp_chrv_rec.non_response_reason := p5_a30;
3963     ddp_chrv_rec.non_response_explain := p5_a31;
3964     ddp_chrv_rec.rfp_type := p5_a32;
3965     ddp_chrv_rec.chr_type := p5_a33;
3966     ddp_chrv_rec.keep_on_mail_list := p5_a34;
3967     ddp_chrv_rec.set_aside_reason := p5_a35;
3968     ddp_chrv_rec.set_aside_percent := rosetta_g_miss_num_map(p5_a36);
3969     ddp_chrv_rec.response_copies_req := rosetta_g_miss_num_map(p5_a37);
3970     ddp_chrv_rec.date_close_projected := rosetta_g_miss_date_in_map(p5_a38);
3971     ddp_chrv_rec.datetime_proposed := rosetta_g_miss_date_in_map(p5_a39);
3972     ddp_chrv_rec.date_signed := rosetta_g_miss_date_in_map(p5_a40);
3973     ddp_chrv_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a41);
3974     ddp_chrv_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a42);
3975     ddp_chrv_rec.trn_code := p5_a43;
3976     ddp_chrv_rec.start_date := rosetta_g_miss_date_in_map(p5_a44);
3977     ddp_chrv_rec.end_date := rosetta_g_miss_date_in_map(p5_a45);
3978     ddp_chrv_rec.authoring_org_id := rosetta_g_miss_num_map(p5_a46);
3979     ddp_chrv_rec.buy_or_sell := p5_a47;
3980     ddp_chrv_rec.issue_or_receive := p5_a48;
3981     ddp_chrv_rec.estimated_amount := rosetta_g_miss_num_map(p5_a49);
3982     ddp_chrv_rec.chr_id_renewed_to := rosetta_g_miss_num_map(p5_a50);
3983     ddp_chrv_rec.estimated_amount_renewed := rosetta_g_miss_num_map(p5_a51);
3984     ddp_chrv_rec.currency_code_renewed := p5_a52;
3985     ddp_chrv_rec.upg_orig_system_ref := p5_a53;
3986     ddp_chrv_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a54);
3987     ddp_chrv_rec.application_id := rosetta_g_miss_num_map(p5_a55);
3988     ddp_chrv_rec.orig_system_source_code := p5_a56;
3989     ddp_chrv_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a57);
3990     ddp_chrv_rec.orig_system_reference1 := p5_a58;
3991     ddp_chrv_rec.program_id := rosetta_g_miss_num_map(p5_a59);
3992     ddp_chrv_rec.request_id := rosetta_g_miss_num_map(p5_a60);
3993     ddp_chrv_rec.price_list_id := rosetta_g_miss_num_map(p5_a61);
3994     ddp_chrv_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a62);
3995     ddp_chrv_rec.sign_by_date := rosetta_g_miss_date_in_map(p5_a63);
3996     ddp_chrv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a64);
3997     ddp_chrv_rec.total_line_list_price := rosetta_g_miss_num_map(p5_a65);
3998     ddp_chrv_rec.program_application_id := rosetta_g_miss_num_map(p5_a66);
3999     ddp_chrv_rec.user_estimated_amount := rosetta_g_miss_num_map(p5_a67);
4000     ddp_chrv_rec.attribute_category := p5_a68;
4001     ddp_chrv_rec.attribute1 := p5_a69;
4002     ddp_chrv_rec.attribute2 := p5_a70;
4003     ddp_chrv_rec.attribute3 := p5_a71;
4004     ddp_chrv_rec.attribute4 := p5_a72;
4005     ddp_chrv_rec.attribute5 := p5_a73;
4006     ddp_chrv_rec.attribute6 := p5_a74;
4007     ddp_chrv_rec.attribute7 := p5_a75;
4008     ddp_chrv_rec.attribute8 := p5_a76;
4009     ddp_chrv_rec.attribute9 := p5_a77;
4010     ddp_chrv_rec.attribute10 := p5_a78;
4011     ddp_chrv_rec.attribute11 := p5_a79;
4012     ddp_chrv_rec.attribute12 := p5_a80;
4013     ddp_chrv_rec.attribute13 := p5_a81;
4014     ddp_chrv_rec.attribute14 := p5_a82;
4015     ddp_chrv_rec.attribute15 := p5_a83;
4016     ddp_chrv_rec.created_by := rosetta_g_miss_num_map(p5_a84);
4017     ddp_chrv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a85);
4018     ddp_chrv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a86);
4019     ddp_chrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a87);
4020     ddp_chrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a88);
4021     ddp_chrv_rec.old_sts_code := p5_a89;
4022     ddp_chrv_rec.new_sts_code := p5_a90;
4023     ddp_chrv_rec.old_ste_code := p5_a91;
4024     ddp_chrv_rec.new_ste_code := p5_a92;
4025     ddp_chrv_rec.conversion_type := p5_a93;
4026     ddp_chrv_rec.conversion_rate := rosetta_g_miss_num_map(p5_a94);
4027     ddp_chrv_rec.conversion_rate_date := rosetta_g_miss_date_in_map(p5_a95);
4028     ddp_chrv_rec.conversion_euro_rate := rosetta_g_miss_num_map(p5_a96);
4029     ddp_chrv_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a97);
4030     ddp_chrv_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a98);
4031     ddp_chrv_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a99);
4032     ddp_chrv_rec.renewal_type_code := p5_a100;
4033     ddp_chrv_rec.renewal_notify_to := rosetta_g_miss_num_map(p5_a101);
4034     ddp_chrv_rec.renewal_end_date := rosetta_g_miss_date_in_map(p5_a102);
4035     ddp_chrv_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a103);
4036     ddp_chrv_rec.payment_term_id := rosetta_g_miss_num_map(p5_a104);
4037 
4038     ddp_khrv_rec.id := rosetta_g_miss_num_map(p6_a0);
4039     ddp_khrv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
4040     ddp_khrv_rec.isg_id := rosetta_g_miss_num_map(p6_a2);
4041     ddp_khrv_rec.khr_id := rosetta_g_miss_num_map(p6_a3);
4042     ddp_khrv_rec.pdt_id := rosetta_g_miss_num_map(p6_a4);
4043     ddp_khrv_rec.amd_code := p6_a5;
4044     ddp_khrv_rec.date_first_activity := rosetta_g_miss_date_in_map(p6_a6);
4045     ddp_khrv_rec.generate_accrual_yn := p6_a7;
4046     ddp_khrv_rec.generate_accrual_override_yn := p6_a8;
4047     ddp_khrv_rec.date_refinanced := rosetta_g_miss_date_in_map(p6_a9);
4048     ddp_khrv_rec.credit_act_yn := p6_a10;
4049     ddp_khrv_rec.term_duration := rosetta_g_miss_num_map(p6_a11);
4050     ddp_khrv_rec.converted_account_yn := p6_a12;
4051     ddp_khrv_rec.date_conversion_effective := rosetta_g_miss_date_in_map(p6_a13);
4052     ddp_khrv_rec.syndicatable_yn := p6_a14;
4053     ddp_khrv_rec.salestype_yn := p6_a15;
4054     ddp_khrv_rec.date_deal_transferred := rosetta_g_miss_date_in_map(p6_a16);
4055     ddp_khrv_rec.datetime_proposal_effective := rosetta_g_miss_date_in_map(p6_a17);
4056     ddp_khrv_rec.datetime_proposal_ineffective := rosetta_g_miss_date_in_map(p6_a18);
4057     ddp_khrv_rec.date_proposal_accepted := rosetta_g_miss_date_in_map(p6_a19);
4058     ddp_khrv_rec.attribute_category := p6_a20;
4059     ddp_khrv_rec.attribute1 := p6_a21;
4060     ddp_khrv_rec.attribute2 := p6_a22;
4061     ddp_khrv_rec.attribute3 := p6_a23;
4062     ddp_khrv_rec.attribute4 := p6_a24;
4063     ddp_khrv_rec.attribute5 := p6_a25;
4064     ddp_khrv_rec.attribute6 := p6_a26;
4065     ddp_khrv_rec.attribute7 := p6_a27;
4066     ddp_khrv_rec.attribute8 := p6_a28;
4067     ddp_khrv_rec.attribute9 := p6_a29;
4068     ddp_khrv_rec.attribute10 := p6_a30;
4069     ddp_khrv_rec.attribute11 := p6_a31;
4070     ddp_khrv_rec.attribute12 := p6_a32;
4071     ddp_khrv_rec.attribute13 := p6_a33;
4072     ddp_khrv_rec.attribute14 := p6_a34;
4073     ddp_khrv_rec.attribute15 := p6_a35;
4074     ddp_khrv_rec.created_by := rosetta_g_miss_num_map(p6_a36);
4075     ddp_khrv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a37);
4076     ddp_khrv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a38);
4077     ddp_khrv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a39);
4078     ddp_khrv_rec.last_update_login := rosetta_g_miss_num_map(p6_a40);
4079     ddp_khrv_rec.pre_tax_yield := rosetta_g_miss_num_map(p6_a41);
4080     ddp_khrv_rec.after_tax_yield := rosetta_g_miss_num_map(p6_a42);
4081     ddp_khrv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p6_a43);
4082     ddp_khrv_rec.implicit_non_idc_interest_rate := rosetta_g_miss_num_map(p6_a44);
4083     ddp_khrv_rec.target_pre_tax_yield := rosetta_g_miss_num_map(p6_a45);
4084     ddp_khrv_rec.target_after_tax_yield := rosetta_g_miss_num_map(p6_a46);
4085     ddp_khrv_rec.target_implicit_interest_rate := rosetta_g_miss_num_map(p6_a47);
4086     ddp_khrv_rec.target_implicit_nonidc_intrate := rosetta_g_miss_num_map(p6_a48);
4087     ddp_khrv_rec.date_last_interim_interest_cal := rosetta_g_miss_date_in_map(p6_a49);
4088     ddp_khrv_rec.deal_type := p6_a50;
4089     ddp_khrv_rec.pre_tax_irr := rosetta_g_miss_num_map(p6_a51);
4090     ddp_khrv_rec.after_tax_irr := rosetta_g_miss_num_map(p6_a52);
4091     ddp_khrv_rec.expected_delivery_date := rosetta_g_miss_date_in_map(p6_a53);
4092     ddp_khrv_rec.accepted_date := rosetta_g_miss_date_in_map(p6_a54);
4093     ddp_khrv_rec.prefunding_eligible_yn := p6_a55;
4094     ddp_khrv_rec.revolving_credit_yn := p6_a56;
4095     ddp_khrv_rec.currency_conversion_type := p6_a57;
4096     ddp_khrv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p6_a58);
4097     ddp_khrv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p6_a59);
4098     ddp_khrv_rec.multi_gaap_yn := p6_a60;
4099     ddp_khrv_rec.recourse_code := p6_a61;
4100     ddp_khrv_rec.lessor_serv_org_code := p6_a62;
4101     ddp_khrv_rec.assignable_yn := p6_a63;
4102     ddp_khrv_rec.securitized_code := p6_a64;
4103     ddp_khrv_rec.securitization_type := p6_a65;
4104 
4105     -- here's the delegated call to the old PL/SQL routine
4106     okl_contract_pvt.delete_contract_header(p_api_version,
4107       p_init_msg_list,
4108       x_return_status,
4109       x_msg_count,
4110       x_msg_data,
4111       ddp_chrv_rec,
4112       ddp_khrv_rec);
4113 
4114     -- copy data back from the local variables to OUT or IN-OUT args, if any
4115 
4116 
4117 
4118 
4119 
4120 
4121   end;
4122 
4123   procedure delete_contract_header(p_api_version  NUMBER
4124     , p_init_msg_list  VARCHAR2
4125     , x_return_status out nocopy  VARCHAR2
4126     , x_msg_count out nocopy  NUMBER
4127     , x_msg_data out nocopy  VARCHAR2
4128     , p5_a0 JTF_NUMBER_TABLE
4129     , p5_a1 JTF_NUMBER_TABLE
4130     , p5_a2 JTF_VARCHAR2_TABLE_100
4131     , p5_a3 JTF_NUMBER_TABLE
4132     , p5_a4 JTF_NUMBER_TABLE
4133     , p5_a5 JTF_NUMBER_TABLE
4134     , p5_a6 JTF_NUMBER_TABLE
4135     , p5_a7 JTF_VARCHAR2_TABLE_100
4136     , p5_a8 JTF_NUMBER_TABLE
4137     , p5_a9 JTF_VARCHAR2_TABLE_100
4138     , p5_a10 JTF_VARCHAR2_TABLE_200
4139     , p5_a11 JTF_VARCHAR2_TABLE_100
4140     , p5_a12 JTF_VARCHAR2_TABLE_200
4141     , p5_a13 JTF_VARCHAR2_TABLE_100
4142     , p5_a14 JTF_VARCHAR2_TABLE_100
4143     , p5_a15 JTF_VARCHAR2_TABLE_100
4144     , p5_a16 JTF_VARCHAR2_TABLE_100
4145     , p5_a17 JTF_VARCHAR2_TABLE_200
4146     , p5_a18 JTF_VARCHAR2_TABLE_600
4147     , p5_a19 JTF_VARCHAR2_TABLE_2000
4148     , p5_a20 JTF_VARCHAR2_TABLE_2000
4149     , p5_a21 JTF_VARCHAR2_TABLE_100
4150     , p5_a22 JTF_VARCHAR2_TABLE_300
4151     , p5_a23 JTF_VARCHAR2_TABLE_100
4152     , p5_a24 JTF_VARCHAR2_TABLE_200
4153     , p5_a25 JTF_DATE_TABLE
4154     , p5_a26 JTF_DATE_TABLE
4155     , p5_a27 JTF_NUMBER_TABLE
4156     , p5_a28 JTF_DATE_TABLE
4157     , p5_a29 JTF_DATE_TABLE
4158     , p5_a30 JTF_VARCHAR2_TABLE_100
4159     , p5_a31 JTF_VARCHAR2_TABLE_2000
4160     , p5_a32 JTF_VARCHAR2_TABLE_100
4161     , p5_a33 JTF_VARCHAR2_TABLE_100
4162     , p5_a34 JTF_VARCHAR2_TABLE_100
4163     , p5_a35 JTF_VARCHAR2_TABLE_100
4164     , p5_a36 JTF_NUMBER_TABLE
4165     , p5_a37 JTF_NUMBER_TABLE
4166     , p5_a38 JTF_DATE_TABLE
4167     , p5_a39 JTF_DATE_TABLE
4168     , p5_a40 JTF_DATE_TABLE
4169     , p5_a41 JTF_DATE_TABLE
4170     , p5_a42 JTF_DATE_TABLE
4171     , p5_a43 JTF_VARCHAR2_TABLE_100
4172     , p5_a44 JTF_DATE_TABLE
4173     , p5_a45 JTF_DATE_TABLE
4174     , p5_a46 JTF_NUMBER_TABLE
4175     , p5_a47 JTF_VARCHAR2_TABLE_100
4176     , p5_a48 JTF_VARCHAR2_TABLE_100
4177     , p5_a49 JTF_NUMBER_TABLE
4178     , p5_a50 JTF_NUMBER_TABLE
4179     , p5_a51 JTF_NUMBER_TABLE
4180     , p5_a52 JTF_VARCHAR2_TABLE_100
4181     , p5_a53 JTF_VARCHAR2_TABLE_100
4182     , p5_a54 JTF_NUMBER_TABLE
4183     , p5_a55 JTF_NUMBER_TABLE
4184     , p5_a56 JTF_VARCHAR2_TABLE_100
4185     , p5_a57 JTF_NUMBER_TABLE
4186     , p5_a58 JTF_VARCHAR2_TABLE_100
4187     , p5_a59 JTF_NUMBER_TABLE
4188     , p5_a60 JTF_NUMBER_TABLE
4189     , p5_a61 JTF_NUMBER_TABLE
4190     , p5_a62 JTF_DATE_TABLE
4191     , p5_a63 JTF_DATE_TABLE
4192     , p5_a64 JTF_DATE_TABLE
4193     , p5_a65 JTF_NUMBER_TABLE
4194     , p5_a66 JTF_NUMBER_TABLE
4195     , p5_a67 JTF_NUMBER_TABLE
4196     , p5_a68 JTF_VARCHAR2_TABLE_100
4197     , p5_a69 JTF_VARCHAR2_TABLE_500
4198     , p5_a70 JTF_VARCHAR2_TABLE_500
4199     , p5_a71 JTF_VARCHAR2_TABLE_500
4200     , p5_a72 JTF_VARCHAR2_TABLE_500
4201     , p5_a73 JTF_VARCHAR2_TABLE_500
4202     , p5_a74 JTF_VARCHAR2_TABLE_500
4203     , p5_a75 JTF_VARCHAR2_TABLE_500
4204     , p5_a76 JTF_VARCHAR2_TABLE_500
4205     , p5_a77 JTF_VARCHAR2_TABLE_500
4206     , p5_a78 JTF_VARCHAR2_TABLE_500
4207     , p5_a79 JTF_VARCHAR2_TABLE_500
4208     , p5_a80 JTF_VARCHAR2_TABLE_500
4209     , p5_a81 JTF_VARCHAR2_TABLE_500
4210     , p5_a82 JTF_VARCHAR2_TABLE_500
4211     , p5_a83 JTF_VARCHAR2_TABLE_500
4212     , p5_a84 JTF_NUMBER_TABLE
4213     , p5_a85 JTF_DATE_TABLE
4214     , p5_a86 JTF_NUMBER_TABLE
4215     , p5_a87 JTF_DATE_TABLE
4216     , p5_a88 JTF_NUMBER_TABLE
4217     , p5_a89 JTF_VARCHAR2_TABLE_100
4218     , p5_a90 JTF_VARCHAR2_TABLE_100
4219     , p5_a91 JTF_VARCHAR2_TABLE_100
4220     , p5_a92 JTF_VARCHAR2_TABLE_100
4221     , p5_a93 JTF_VARCHAR2_TABLE_100
4222     , p5_a94 JTF_NUMBER_TABLE
4223     , p5_a95 JTF_DATE_TABLE
4224     , p5_a96 JTF_NUMBER_TABLE
4225     , p5_a97 JTF_NUMBER_TABLE
4226     , p5_a98 JTF_NUMBER_TABLE
4227     , p5_a99 JTF_NUMBER_TABLE
4228     , p5_a100 JTF_VARCHAR2_TABLE_100
4229     , p5_a101 JTF_NUMBER_TABLE
4230     , p5_a102 JTF_DATE_TABLE
4231     , p5_a103 JTF_NUMBER_TABLE
4232     , p5_a104 JTF_NUMBER_TABLE
4233     , p6_a0 JTF_NUMBER_TABLE
4234     , p6_a1 JTF_NUMBER_TABLE
4235     , p6_a2 JTF_NUMBER_TABLE
4236     , p6_a3 JTF_NUMBER_TABLE
4237     , p6_a4 JTF_NUMBER_TABLE
4238     , p6_a5 JTF_VARCHAR2_TABLE_100
4239     , p6_a6 JTF_DATE_TABLE
4240     , p6_a7 JTF_VARCHAR2_TABLE_100
4241     , p6_a8 JTF_VARCHAR2_TABLE_100
4242     , p6_a9 JTF_DATE_TABLE
4243     , p6_a10 JTF_VARCHAR2_TABLE_100
4244     , p6_a11 JTF_NUMBER_TABLE
4245     , p6_a12 JTF_VARCHAR2_TABLE_100
4246     , p6_a13 JTF_DATE_TABLE
4247     , p6_a14 JTF_VARCHAR2_TABLE_100
4248     , p6_a15 JTF_VARCHAR2_TABLE_100
4249     , p6_a16 JTF_DATE_TABLE
4250     , p6_a17 JTF_DATE_TABLE
4251     , p6_a18 JTF_DATE_TABLE
4252     , p6_a19 JTF_DATE_TABLE
4253     , p6_a20 JTF_VARCHAR2_TABLE_100
4254     , p6_a21 JTF_VARCHAR2_TABLE_500
4255     , p6_a22 JTF_VARCHAR2_TABLE_500
4256     , p6_a23 JTF_VARCHAR2_TABLE_500
4257     , p6_a24 JTF_VARCHAR2_TABLE_500
4258     , p6_a25 JTF_VARCHAR2_TABLE_500
4259     , p6_a26 JTF_VARCHAR2_TABLE_500
4260     , p6_a27 JTF_VARCHAR2_TABLE_500
4261     , p6_a28 JTF_VARCHAR2_TABLE_500
4262     , p6_a29 JTF_VARCHAR2_TABLE_500
4263     , p6_a30 JTF_VARCHAR2_TABLE_500
4264     , p6_a31 JTF_VARCHAR2_TABLE_500
4265     , p6_a32 JTF_VARCHAR2_TABLE_500
4266     , p6_a33 JTF_VARCHAR2_TABLE_500
4267     , p6_a34 JTF_VARCHAR2_TABLE_500
4268     , p6_a35 JTF_VARCHAR2_TABLE_500
4269     , p6_a36 JTF_NUMBER_TABLE
4270     , p6_a37 JTF_DATE_TABLE
4271     , p6_a38 JTF_NUMBER_TABLE
4272     , p6_a39 JTF_DATE_TABLE
4273     , p6_a40 JTF_NUMBER_TABLE
4274     , p6_a41 JTF_NUMBER_TABLE
4275     , p6_a42 JTF_NUMBER_TABLE
4276     , p6_a43 JTF_NUMBER_TABLE
4277     , p6_a44 JTF_NUMBER_TABLE
4278     , p6_a45 JTF_NUMBER_TABLE
4279     , p6_a46 JTF_NUMBER_TABLE
4280     , p6_a47 JTF_NUMBER_TABLE
4281     , p6_a48 JTF_NUMBER_TABLE
4282     , p6_a49 JTF_DATE_TABLE
4283     , p6_a50 JTF_VARCHAR2_TABLE_100
4284     , p6_a51 JTF_NUMBER_TABLE
4285     , p6_a52 JTF_NUMBER_TABLE
4286     , p6_a53 JTF_DATE_TABLE
4287     , p6_a54 JTF_DATE_TABLE
4288     , p6_a55 JTF_VARCHAR2_TABLE_100
4289     , p6_a56 JTF_VARCHAR2_TABLE_100
4290     , p6_a57 JTF_VARCHAR2_TABLE_100
4291     , p6_a58 JTF_NUMBER_TABLE
4292     , p6_a59 JTF_DATE_TABLE
4293     , p6_a60 JTF_VARCHAR2_TABLE_100
4294     , p6_a61 JTF_VARCHAR2_TABLE_100
4295     , p6_a62 JTF_VARCHAR2_TABLE_100
4296     , p6_a63 JTF_VARCHAR2_TABLE_100
4297     , p6_a64 JTF_VARCHAR2_TABLE_100
4298     , p6_a65 JTF_VARCHAR2_TABLE_100
4299   )
4300 
4301   as
4302     ddp_chrv_tbl okl_okc_migration_pvt.chrv_tbl_type;
4303     ddp_khrv_tbl okl_contract_pvt.khrv_tbl_type;
4304     ddindx binary_integer; indx binary_integer;
4305   begin
4306 
4307     -- copy data to the local IN or IN-OUT args, if any
4308 
4309 
4310 
4311 
4312 
4313     okl_okc_migration_pvt_w.rosetta_table_copy_in_p3(ddp_chrv_tbl, p5_a0
4314       , p5_a1
4315       , p5_a2
4316       , p5_a3
4317       , p5_a4
4318       , p5_a5
4319       , p5_a6
4320       , p5_a7
4321       , p5_a8
4322       , p5_a9
4323       , p5_a10
4324       , p5_a11
4325       , p5_a12
4326       , p5_a13
4327       , p5_a14
4328       , p5_a15
4329       , p5_a16
4330       , p5_a17
4331       , p5_a18
4332       , p5_a19
4333       , p5_a20
4334       , p5_a21
4335       , p5_a22
4336       , p5_a23
4337       , p5_a24
4338       , p5_a25
4339       , p5_a26
4340       , p5_a27
4341       , p5_a28
4342       , p5_a29
4343       , p5_a30
4344       , p5_a31
4345       , p5_a32
4346       , p5_a33
4347       , p5_a34
4348       , p5_a35
4349       , p5_a36
4350       , p5_a37
4351       , p5_a38
4352       , p5_a39
4353       , p5_a40
4354       , p5_a41
4355       , p5_a42
4356       , p5_a43
4357       , p5_a44
4358       , p5_a45
4359       , p5_a46
4360       , p5_a47
4361       , p5_a48
4362       , p5_a49
4363       , p5_a50
4364       , p5_a51
4365       , p5_a52
4366       , p5_a53
4367       , p5_a54
4368       , p5_a55
4369       , p5_a56
4370       , p5_a57
4371       , p5_a58
4372       , p5_a59
4373       , p5_a60
4374       , p5_a61
4375       , p5_a62
4376       , p5_a63
4377       , p5_a64
4378       , p5_a65
4379       , p5_a66
4380       , p5_a67
4381       , p5_a68
4382       , p5_a69
4383       , p5_a70
4384       , p5_a71
4385       , p5_a72
4386       , p5_a73
4387       , p5_a74
4388       , p5_a75
4389       , p5_a76
4390       , p5_a77
4391       , p5_a78
4392       , p5_a79
4393       , p5_a80
4394       , p5_a81
4395       , p5_a82
4396       , p5_a83
4397       , p5_a84
4398       , p5_a85
4399       , p5_a86
4400       , p5_a87
4401       , p5_a88
4402       , p5_a89
4403       , p5_a90
4404       , p5_a91
4405       , p5_a92
4406       , p5_a93
4407       , p5_a94
4408       , p5_a95
4409       , p5_a96
4410       , p5_a97
4411       , p5_a98
4412       , p5_a99
4413       , p5_a100
4414       , p5_a101
4415       , p5_a102
4416       , p5_a103
4417       , p5_a104
4418       );
4419 
4420     okl_khr_pvt_w.rosetta_table_copy_in_p8(ddp_khrv_tbl, p6_a0
4421       , p6_a1
4422       , p6_a2
4423       , p6_a3
4424       , p6_a4
4425       , p6_a5
4426       , p6_a6
4427       , p6_a7
4428       , p6_a8
4429       , p6_a9
4430       , p6_a10
4431       , p6_a11
4432       , p6_a12
4433       , p6_a13
4434       , p6_a14
4435       , p6_a15
4436       , p6_a16
4437       , p6_a17
4438       , p6_a18
4439       , p6_a19
4440       , p6_a20
4441       , p6_a21
4442       , p6_a22
4443       , p6_a23
4444       , p6_a24
4445       , p6_a25
4446       , p6_a26
4447       , p6_a27
4448       , p6_a28
4449       , p6_a29
4450       , p6_a30
4451       , p6_a31
4452       , p6_a32
4453       , p6_a33
4454       , p6_a34
4455       , p6_a35
4456       , p6_a36
4457       , p6_a37
4458       , p6_a38
4459       , p6_a39
4460       , p6_a40
4461       , p6_a41
4462       , p6_a42
4463       , p6_a43
4464       , p6_a44
4465       , p6_a45
4466       , p6_a46
4467       , p6_a47
4468       , p6_a48
4469       , p6_a49
4470       , p6_a50
4471       , p6_a51
4472       , p6_a52
4473       , p6_a53
4474       , p6_a54
4475       , p6_a55
4476       , p6_a56
4477       , p6_a57
4478       , p6_a58
4479       , p6_a59
4480       , p6_a60
4481       , p6_a61
4482       , p6_a62
4483       , p6_a63
4484       , p6_a64
4485       , p6_a65
4486       );
4487 
4488     -- here's the delegated call to the old PL/SQL routine
4489     okl_contract_pvt.delete_contract_header(p_api_version,
4490       p_init_msg_list,
4491       x_return_status,
4492       x_msg_count,
4493       x_msg_data,
4494       ddp_chrv_tbl,
4495       ddp_khrv_tbl);
4496 
4497     -- copy data back from the local variables to OUT or IN-OUT args, if any
4498 
4499 
4500 
4501 
4502 
4503 
4504   end;
4505 
4506   procedure lock_contract_header(p_api_version  NUMBER
4507     , p_init_msg_list  VARCHAR2
4508     , x_return_status out nocopy  VARCHAR2
4509     , x_msg_count out nocopy  NUMBER
4510     , x_msg_data out nocopy  VARCHAR2
4511     , p5_a0  NUMBER := 0-1962.0724
4512     , p5_a1  NUMBER := 0-1962.0724
4513     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
4514     , p5_a3  NUMBER := 0-1962.0724
4515     , p5_a4  NUMBER := 0-1962.0724
4516     , p5_a5  NUMBER := 0-1962.0724
4517     , p5_a6  NUMBER := 0-1962.0724
4518     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
4519     , p5_a8  NUMBER := 0-1962.0724
4520     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
4521     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
4522     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
4523     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
4524     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
4525     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
4526     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
4527     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
4528     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
4529     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
4530     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
4531     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
4532     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
4533     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
4534     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
4535     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
4536     , p5_a25  DATE := fnd_api.g_miss_date
4537     , p5_a26  DATE := fnd_api.g_miss_date
4538     , p5_a27  NUMBER := 0-1962.0724
4539     , p5_a28  DATE := fnd_api.g_miss_date
4540     , p5_a29  DATE := fnd_api.g_miss_date
4541     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
4542     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
4543     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
4544     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
4545     , p5_a34  VARCHAR2 := fnd_api.g_miss_char
4546     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
4547     , p5_a36  NUMBER := 0-1962.0724
4548     , p5_a37  NUMBER := 0-1962.0724
4549     , p5_a38  DATE := fnd_api.g_miss_date
4550     , p5_a39  DATE := fnd_api.g_miss_date
4551     , p5_a40  DATE := fnd_api.g_miss_date
4552     , p5_a41  DATE := fnd_api.g_miss_date
4553     , p5_a42  DATE := fnd_api.g_miss_date
4554     , p5_a43  VARCHAR2 := fnd_api.g_miss_char
4555     , p5_a44  DATE := fnd_api.g_miss_date
4556     , p5_a45  DATE := fnd_api.g_miss_date
4557     , p5_a46  NUMBER := 0-1962.0724
4558     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
4559     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
4560     , p5_a49  NUMBER := 0-1962.0724
4561     , p5_a50  NUMBER := 0-1962.0724
4562     , p5_a51  NUMBER := 0-1962.0724
4563     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
4564     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
4565     , p5_a54  NUMBER := 0-1962.0724
4566     , p5_a55  NUMBER := 0-1962.0724
4567     , p5_a56  VARCHAR2 := fnd_api.g_miss_char
4568     , p5_a57  NUMBER := 0-1962.0724
4569     , p5_a58  VARCHAR2 := fnd_api.g_miss_char
4570     , p5_a59  NUMBER := 0-1962.0724
4571     , p5_a60  NUMBER := 0-1962.0724
4572     , p5_a61  NUMBER := 0-1962.0724
4573     , p5_a62  DATE := fnd_api.g_miss_date
4574     , p5_a63  DATE := fnd_api.g_miss_date
4575     , p5_a64  DATE := fnd_api.g_miss_date
4576     , p5_a65  NUMBER := 0-1962.0724
4577     , p5_a66  NUMBER := 0-1962.0724
4578     , p5_a67  NUMBER := 0-1962.0724
4579     , p5_a68  VARCHAR2 := fnd_api.g_miss_char
4580     , p5_a69  VARCHAR2 := fnd_api.g_miss_char
4581     , p5_a70  VARCHAR2 := fnd_api.g_miss_char
4582     , p5_a71  VARCHAR2 := fnd_api.g_miss_char
4583     , p5_a72  VARCHAR2 := fnd_api.g_miss_char
4584     , p5_a73  VARCHAR2 := fnd_api.g_miss_char
4585     , p5_a74  VARCHAR2 := fnd_api.g_miss_char
4586     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
4587     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
4588     , p5_a77  VARCHAR2 := fnd_api.g_miss_char
4589     , p5_a78  VARCHAR2 := fnd_api.g_miss_char
4590     , p5_a79  VARCHAR2 := fnd_api.g_miss_char
4591     , p5_a80  VARCHAR2 := fnd_api.g_miss_char
4592     , p5_a81  VARCHAR2 := fnd_api.g_miss_char
4593     , p5_a82  VARCHAR2 := fnd_api.g_miss_char
4594     , p5_a83  VARCHAR2 := fnd_api.g_miss_char
4595     , p5_a84  NUMBER := 0-1962.0724
4596     , p5_a85  DATE := fnd_api.g_miss_date
4597     , p5_a86  NUMBER := 0-1962.0724
4598     , p5_a87  DATE := fnd_api.g_miss_date
4599     , p5_a88  NUMBER := 0-1962.0724
4600     , p5_a89  VARCHAR2 := fnd_api.g_miss_char
4601     , p5_a90  VARCHAR2 := fnd_api.g_miss_char
4602     , p5_a91  VARCHAR2 := fnd_api.g_miss_char
4603     , p5_a92  VARCHAR2 := fnd_api.g_miss_char
4604     , p5_a93  VARCHAR2 := fnd_api.g_miss_char
4605     , p5_a94  NUMBER := 0-1962.0724
4606     , p5_a95  DATE := fnd_api.g_miss_date
4607     , p5_a96  NUMBER := 0-1962.0724
4608     , p5_a97  NUMBER := 0-1962.0724
4609     , p5_a98  NUMBER := 0-1962.0724
4610     , p5_a99  NUMBER := 0-1962.0724
4611     , p5_a100  VARCHAR2 := fnd_api.g_miss_char
4612     , p5_a101  NUMBER := 0-1962.0724
4613     , p5_a102  DATE := fnd_api.g_miss_date
4614     , p5_a103  NUMBER := 0-1962.0724
4615     , p5_a104  NUMBER := 0-1962.0724
4616     , p6_a0  NUMBER := 0-1962.0724
4617     , p6_a1  NUMBER := 0-1962.0724
4618     , p6_a2  NUMBER := 0-1962.0724
4619     , p6_a3  NUMBER := 0-1962.0724
4620     , p6_a4  NUMBER := 0-1962.0724
4621     , p6_a5  VARCHAR2 := fnd_api.g_miss_char
4622     , p6_a6  DATE := fnd_api.g_miss_date
4623     , p6_a7  VARCHAR2 := fnd_api.g_miss_char
4624     , p6_a8  VARCHAR2 := fnd_api.g_miss_char
4625     , p6_a9  DATE := fnd_api.g_miss_date
4626     , p6_a10  VARCHAR2 := fnd_api.g_miss_char
4627     , p6_a11  NUMBER := 0-1962.0724
4628     , p6_a12  VARCHAR2 := fnd_api.g_miss_char
4629     , p6_a13  DATE := fnd_api.g_miss_date
4630     , p6_a14  VARCHAR2 := fnd_api.g_miss_char
4631     , p6_a15  VARCHAR2 := fnd_api.g_miss_char
4632     , p6_a16  DATE := fnd_api.g_miss_date
4633     , p6_a17  DATE := fnd_api.g_miss_date
4634     , p6_a18  DATE := fnd_api.g_miss_date
4635     , p6_a19  DATE := fnd_api.g_miss_date
4636     , p6_a20  VARCHAR2 := fnd_api.g_miss_char
4637     , p6_a21  VARCHAR2 := fnd_api.g_miss_char
4638     , p6_a22  VARCHAR2 := fnd_api.g_miss_char
4639     , p6_a23  VARCHAR2 := fnd_api.g_miss_char
4640     , p6_a24  VARCHAR2 := fnd_api.g_miss_char
4641     , p6_a25  VARCHAR2 := fnd_api.g_miss_char
4642     , p6_a26  VARCHAR2 := fnd_api.g_miss_char
4643     , p6_a27  VARCHAR2 := fnd_api.g_miss_char
4644     , p6_a28  VARCHAR2 := fnd_api.g_miss_char
4645     , p6_a29  VARCHAR2 := fnd_api.g_miss_char
4646     , p6_a30  VARCHAR2 := fnd_api.g_miss_char
4647     , p6_a31  VARCHAR2 := fnd_api.g_miss_char
4648     , p6_a32  VARCHAR2 := fnd_api.g_miss_char
4649     , p6_a33  VARCHAR2 := fnd_api.g_miss_char
4650     , p6_a34  VARCHAR2 := fnd_api.g_miss_char
4651     , p6_a35  VARCHAR2 := fnd_api.g_miss_char
4652     , p6_a36  NUMBER := 0-1962.0724
4653     , p6_a37  DATE := fnd_api.g_miss_date
4654     , p6_a38  NUMBER := 0-1962.0724
4655     , p6_a39  DATE := fnd_api.g_miss_date
4656     , p6_a40  NUMBER := 0-1962.0724
4657     , p6_a41  NUMBER := 0-1962.0724
4658     , p6_a42  NUMBER := 0-1962.0724
4659     , p6_a43  NUMBER := 0-1962.0724
4660     , p6_a44  NUMBER := 0-1962.0724
4661     , p6_a45  NUMBER := 0-1962.0724
4662     , p6_a46  NUMBER := 0-1962.0724
4663     , p6_a47  NUMBER := 0-1962.0724
4664     , p6_a48  NUMBER := 0-1962.0724
4665     , p6_a49  DATE := fnd_api.g_miss_date
4666     , p6_a50  VARCHAR2 := fnd_api.g_miss_char
4667     , p6_a51  NUMBER := 0-1962.0724
4668     , p6_a52  NUMBER := 0-1962.0724
4669     , p6_a53  DATE := fnd_api.g_miss_date
4670     , p6_a54  DATE := fnd_api.g_miss_date
4671     , p6_a55  VARCHAR2 := fnd_api.g_miss_char
4672     , p6_a56  VARCHAR2 := fnd_api.g_miss_char
4673     , p6_a57  VARCHAR2 := fnd_api.g_miss_char
4674     , p6_a58  NUMBER := 0-1962.0724
4675     , p6_a59  DATE := fnd_api.g_miss_date
4676     , p6_a60  VARCHAR2 := fnd_api.g_miss_char
4677     , p6_a61  VARCHAR2 := fnd_api.g_miss_char
4678     , p6_a62  VARCHAR2 := fnd_api.g_miss_char
4679     , p6_a63  VARCHAR2 := fnd_api.g_miss_char
4680     , p6_a64  VARCHAR2 := fnd_api.g_miss_char
4681     , p6_a65  VARCHAR2 := fnd_api.g_miss_char
4682   )
4683 
4684   as
4685     ddp_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
4686     ddp_khrv_rec okl_contract_pvt.khrv_rec_type;
4687     ddindx binary_integer; indx binary_integer;
4688   begin
4689 
4690     -- copy data to the local IN or IN-OUT args, if any
4691 
4692 
4693 
4694 
4695 
4696     ddp_chrv_rec.id := rosetta_g_miss_num_map(p5_a0);
4697     ddp_chrv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
4698     ddp_chrv_rec.sfwt_flag := p5_a2;
4699     ddp_chrv_rec.chr_id_response := rosetta_g_miss_num_map(p5_a3);
4700     ddp_chrv_rec.chr_id_award := rosetta_g_miss_num_map(p5_a4);
4701     ddp_chrv_rec.chr_id_renewed := rosetta_g_miss_num_map(p5_a5);
4702     ddp_chrv_rec.inv_organization_id := rosetta_g_miss_num_map(p5_a6);
4703     ddp_chrv_rec.sts_code := p5_a7;
4704     ddp_chrv_rec.qcl_id := rosetta_g_miss_num_map(p5_a8);
4705     ddp_chrv_rec.scs_code := p5_a9;
4706     ddp_chrv_rec.contract_number := p5_a10;
4707     ddp_chrv_rec.currency_code := p5_a11;
4708     ddp_chrv_rec.contract_number_modifier := p5_a12;
4709     ddp_chrv_rec.archived_yn := p5_a13;
4710     ddp_chrv_rec.deleted_yn := p5_a14;
4711     ddp_chrv_rec.cust_po_number_req_yn := p5_a15;
4712     ddp_chrv_rec.pre_pay_req_yn := p5_a16;
4713     ddp_chrv_rec.cust_po_number := p5_a17;
4714     ddp_chrv_rec.short_description := p5_a18;
4715     ddp_chrv_rec.comments := p5_a19;
4716     ddp_chrv_rec.description := p5_a20;
4717     ddp_chrv_rec.dpas_rating := p5_a21;
4718     ddp_chrv_rec.cognomen := p5_a22;
4719     ddp_chrv_rec.template_yn := p5_a23;
4720     ddp_chrv_rec.template_used := p5_a24;
4721     ddp_chrv_rec.date_approved := rosetta_g_miss_date_in_map(p5_a25);
4722     ddp_chrv_rec.datetime_cancelled := rosetta_g_miss_date_in_map(p5_a26);
4723     ddp_chrv_rec.auto_renew_days := rosetta_g_miss_num_map(p5_a27);
4724     ddp_chrv_rec.date_issued := rosetta_g_miss_date_in_map(p5_a28);
4725     ddp_chrv_rec.datetime_responded := rosetta_g_miss_date_in_map(p5_a29);
4726     ddp_chrv_rec.non_response_reason := p5_a30;
4727     ddp_chrv_rec.non_response_explain := p5_a31;
4728     ddp_chrv_rec.rfp_type := p5_a32;
4729     ddp_chrv_rec.chr_type := p5_a33;
4730     ddp_chrv_rec.keep_on_mail_list := p5_a34;
4731     ddp_chrv_rec.set_aside_reason := p5_a35;
4732     ddp_chrv_rec.set_aside_percent := rosetta_g_miss_num_map(p5_a36);
4733     ddp_chrv_rec.response_copies_req := rosetta_g_miss_num_map(p5_a37);
4734     ddp_chrv_rec.date_close_projected := rosetta_g_miss_date_in_map(p5_a38);
4735     ddp_chrv_rec.datetime_proposed := rosetta_g_miss_date_in_map(p5_a39);
4736     ddp_chrv_rec.date_signed := rosetta_g_miss_date_in_map(p5_a40);
4737     ddp_chrv_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a41);
4738     ddp_chrv_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a42);
4739     ddp_chrv_rec.trn_code := p5_a43;
4740     ddp_chrv_rec.start_date := rosetta_g_miss_date_in_map(p5_a44);
4741     ddp_chrv_rec.end_date := rosetta_g_miss_date_in_map(p5_a45);
4742     ddp_chrv_rec.authoring_org_id := rosetta_g_miss_num_map(p5_a46);
4743     ddp_chrv_rec.buy_or_sell := p5_a47;
4744     ddp_chrv_rec.issue_or_receive := p5_a48;
4745     ddp_chrv_rec.estimated_amount := rosetta_g_miss_num_map(p5_a49);
4746     ddp_chrv_rec.chr_id_renewed_to := rosetta_g_miss_num_map(p5_a50);
4747     ddp_chrv_rec.estimated_amount_renewed := rosetta_g_miss_num_map(p5_a51);
4748     ddp_chrv_rec.currency_code_renewed := p5_a52;
4749     ddp_chrv_rec.upg_orig_system_ref := p5_a53;
4750     ddp_chrv_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a54);
4751     ddp_chrv_rec.application_id := rosetta_g_miss_num_map(p5_a55);
4752     ddp_chrv_rec.orig_system_source_code := p5_a56;
4753     ddp_chrv_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a57);
4754     ddp_chrv_rec.orig_system_reference1 := p5_a58;
4755     ddp_chrv_rec.program_id := rosetta_g_miss_num_map(p5_a59);
4756     ddp_chrv_rec.request_id := rosetta_g_miss_num_map(p5_a60);
4757     ddp_chrv_rec.price_list_id := rosetta_g_miss_num_map(p5_a61);
4758     ddp_chrv_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a62);
4759     ddp_chrv_rec.sign_by_date := rosetta_g_miss_date_in_map(p5_a63);
4760     ddp_chrv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a64);
4761     ddp_chrv_rec.total_line_list_price := rosetta_g_miss_num_map(p5_a65);
4762     ddp_chrv_rec.program_application_id := rosetta_g_miss_num_map(p5_a66);
4763     ddp_chrv_rec.user_estimated_amount := rosetta_g_miss_num_map(p5_a67);
4764     ddp_chrv_rec.attribute_category := p5_a68;
4765     ddp_chrv_rec.attribute1 := p5_a69;
4766     ddp_chrv_rec.attribute2 := p5_a70;
4767     ddp_chrv_rec.attribute3 := p5_a71;
4768     ddp_chrv_rec.attribute4 := p5_a72;
4769     ddp_chrv_rec.attribute5 := p5_a73;
4770     ddp_chrv_rec.attribute6 := p5_a74;
4771     ddp_chrv_rec.attribute7 := p5_a75;
4772     ddp_chrv_rec.attribute8 := p5_a76;
4773     ddp_chrv_rec.attribute9 := p5_a77;
4774     ddp_chrv_rec.attribute10 := p5_a78;
4775     ddp_chrv_rec.attribute11 := p5_a79;
4776     ddp_chrv_rec.attribute12 := p5_a80;
4777     ddp_chrv_rec.attribute13 := p5_a81;
4778     ddp_chrv_rec.attribute14 := p5_a82;
4779     ddp_chrv_rec.attribute15 := p5_a83;
4780     ddp_chrv_rec.created_by := rosetta_g_miss_num_map(p5_a84);
4781     ddp_chrv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a85);
4782     ddp_chrv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a86);
4783     ddp_chrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a87);
4784     ddp_chrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a88);
4785     ddp_chrv_rec.old_sts_code := p5_a89;
4786     ddp_chrv_rec.new_sts_code := p5_a90;
4787     ddp_chrv_rec.old_ste_code := p5_a91;
4788     ddp_chrv_rec.new_ste_code := p5_a92;
4789     ddp_chrv_rec.conversion_type := p5_a93;
4790     ddp_chrv_rec.conversion_rate := rosetta_g_miss_num_map(p5_a94);
4791     ddp_chrv_rec.conversion_rate_date := rosetta_g_miss_date_in_map(p5_a95);
4792     ddp_chrv_rec.conversion_euro_rate := rosetta_g_miss_num_map(p5_a96);
4793     ddp_chrv_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a97);
4794     ddp_chrv_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a98);
4795     ddp_chrv_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a99);
4796     ddp_chrv_rec.renewal_type_code := p5_a100;
4797     ddp_chrv_rec.renewal_notify_to := rosetta_g_miss_num_map(p5_a101);
4798     ddp_chrv_rec.renewal_end_date := rosetta_g_miss_date_in_map(p5_a102);
4799     ddp_chrv_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a103);
4800     ddp_chrv_rec.payment_term_id := rosetta_g_miss_num_map(p5_a104);
4801 
4802     ddp_khrv_rec.id := rosetta_g_miss_num_map(p6_a0);
4803     ddp_khrv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
4804     ddp_khrv_rec.isg_id := rosetta_g_miss_num_map(p6_a2);
4805     ddp_khrv_rec.khr_id := rosetta_g_miss_num_map(p6_a3);
4806     ddp_khrv_rec.pdt_id := rosetta_g_miss_num_map(p6_a4);
4807     ddp_khrv_rec.amd_code := p6_a5;
4808     ddp_khrv_rec.date_first_activity := rosetta_g_miss_date_in_map(p6_a6);
4809     ddp_khrv_rec.generate_accrual_yn := p6_a7;
4810     ddp_khrv_rec.generate_accrual_override_yn := p6_a8;
4811     ddp_khrv_rec.date_refinanced := rosetta_g_miss_date_in_map(p6_a9);
4812     ddp_khrv_rec.credit_act_yn := p6_a10;
4813     ddp_khrv_rec.term_duration := rosetta_g_miss_num_map(p6_a11);
4814     ddp_khrv_rec.converted_account_yn := p6_a12;
4815     ddp_khrv_rec.date_conversion_effective := rosetta_g_miss_date_in_map(p6_a13);
4816     ddp_khrv_rec.syndicatable_yn := p6_a14;
4817     ddp_khrv_rec.salestype_yn := p6_a15;
4818     ddp_khrv_rec.date_deal_transferred := rosetta_g_miss_date_in_map(p6_a16);
4819     ddp_khrv_rec.datetime_proposal_effective := rosetta_g_miss_date_in_map(p6_a17);
4820     ddp_khrv_rec.datetime_proposal_ineffective := rosetta_g_miss_date_in_map(p6_a18);
4821     ddp_khrv_rec.date_proposal_accepted := rosetta_g_miss_date_in_map(p6_a19);
4822     ddp_khrv_rec.attribute_category := p6_a20;
4823     ddp_khrv_rec.attribute1 := p6_a21;
4824     ddp_khrv_rec.attribute2 := p6_a22;
4825     ddp_khrv_rec.attribute3 := p6_a23;
4826     ddp_khrv_rec.attribute4 := p6_a24;
4827     ddp_khrv_rec.attribute5 := p6_a25;
4828     ddp_khrv_rec.attribute6 := p6_a26;
4829     ddp_khrv_rec.attribute7 := p6_a27;
4830     ddp_khrv_rec.attribute8 := p6_a28;
4831     ddp_khrv_rec.attribute9 := p6_a29;
4832     ddp_khrv_rec.attribute10 := p6_a30;
4833     ddp_khrv_rec.attribute11 := p6_a31;
4834     ddp_khrv_rec.attribute12 := p6_a32;
4835     ddp_khrv_rec.attribute13 := p6_a33;
4836     ddp_khrv_rec.attribute14 := p6_a34;
4837     ddp_khrv_rec.attribute15 := p6_a35;
4838     ddp_khrv_rec.created_by := rosetta_g_miss_num_map(p6_a36);
4839     ddp_khrv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a37);
4840     ddp_khrv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a38);
4841     ddp_khrv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a39);
4842     ddp_khrv_rec.last_update_login := rosetta_g_miss_num_map(p6_a40);
4843     ddp_khrv_rec.pre_tax_yield := rosetta_g_miss_num_map(p6_a41);
4844     ddp_khrv_rec.after_tax_yield := rosetta_g_miss_num_map(p6_a42);
4845     ddp_khrv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p6_a43);
4846     ddp_khrv_rec.implicit_non_idc_interest_rate := rosetta_g_miss_num_map(p6_a44);
4847     ddp_khrv_rec.target_pre_tax_yield := rosetta_g_miss_num_map(p6_a45);
4848     ddp_khrv_rec.target_after_tax_yield := rosetta_g_miss_num_map(p6_a46);
4849     ddp_khrv_rec.target_implicit_interest_rate := rosetta_g_miss_num_map(p6_a47);
4850     ddp_khrv_rec.target_implicit_nonidc_intrate := rosetta_g_miss_num_map(p6_a48);
4851     ddp_khrv_rec.date_last_interim_interest_cal := rosetta_g_miss_date_in_map(p6_a49);
4852     ddp_khrv_rec.deal_type := p6_a50;
4853     ddp_khrv_rec.pre_tax_irr := rosetta_g_miss_num_map(p6_a51);
4854     ddp_khrv_rec.after_tax_irr := rosetta_g_miss_num_map(p6_a52);
4855     ddp_khrv_rec.expected_delivery_date := rosetta_g_miss_date_in_map(p6_a53);
4856     ddp_khrv_rec.accepted_date := rosetta_g_miss_date_in_map(p6_a54);
4857     ddp_khrv_rec.prefunding_eligible_yn := p6_a55;
4858     ddp_khrv_rec.revolving_credit_yn := p6_a56;
4859     ddp_khrv_rec.currency_conversion_type := p6_a57;
4860     ddp_khrv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p6_a58);
4861     ddp_khrv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p6_a59);
4862     ddp_khrv_rec.multi_gaap_yn := p6_a60;
4863     ddp_khrv_rec.recourse_code := p6_a61;
4864     ddp_khrv_rec.lessor_serv_org_code := p6_a62;
4865     ddp_khrv_rec.assignable_yn := p6_a63;
4866     ddp_khrv_rec.securitized_code := p6_a64;
4867     ddp_khrv_rec.securitization_type := p6_a65;
4868 
4869     -- here's the delegated call to the old PL/SQL routine
4870     okl_contract_pvt.lock_contract_header(p_api_version,
4871       p_init_msg_list,
4872       x_return_status,
4873       x_msg_count,
4874       x_msg_data,
4875       ddp_chrv_rec,
4876       ddp_khrv_rec);
4877 
4878     -- copy data back from the local variables to OUT or IN-OUT args, if any
4879 
4880 
4881 
4882 
4883 
4884 
4885   end;
4886 
4887   procedure lock_contract_header(p_api_version  NUMBER
4888     , p_init_msg_list  VARCHAR2
4889     , x_return_status out nocopy  VARCHAR2
4890     , x_msg_count out nocopy  NUMBER
4891     , x_msg_data out nocopy  VARCHAR2
4892     , p5_a0 JTF_NUMBER_TABLE
4893     , p5_a1 JTF_NUMBER_TABLE
4894     , p5_a2 JTF_VARCHAR2_TABLE_100
4895     , p5_a3 JTF_NUMBER_TABLE
4896     , p5_a4 JTF_NUMBER_TABLE
4897     , p5_a5 JTF_NUMBER_TABLE
4898     , p5_a6 JTF_NUMBER_TABLE
4899     , p5_a7 JTF_VARCHAR2_TABLE_100
4900     , p5_a8 JTF_NUMBER_TABLE
4901     , p5_a9 JTF_VARCHAR2_TABLE_100
4902     , p5_a10 JTF_VARCHAR2_TABLE_200
4903     , p5_a11 JTF_VARCHAR2_TABLE_100
4904     , p5_a12 JTF_VARCHAR2_TABLE_200
4905     , p5_a13 JTF_VARCHAR2_TABLE_100
4906     , p5_a14 JTF_VARCHAR2_TABLE_100
4907     , p5_a15 JTF_VARCHAR2_TABLE_100
4908     , p5_a16 JTF_VARCHAR2_TABLE_100
4909     , p5_a17 JTF_VARCHAR2_TABLE_200
4910     , p5_a18 JTF_VARCHAR2_TABLE_600
4911     , p5_a19 JTF_VARCHAR2_TABLE_2000
4912     , p5_a20 JTF_VARCHAR2_TABLE_2000
4913     , p5_a21 JTF_VARCHAR2_TABLE_100
4914     , p5_a22 JTF_VARCHAR2_TABLE_300
4915     , p5_a23 JTF_VARCHAR2_TABLE_100
4916     , p5_a24 JTF_VARCHAR2_TABLE_200
4917     , p5_a25 JTF_DATE_TABLE
4918     , p5_a26 JTF_DATE_TABLE
4919     , p5_a27 JTF_NUMBER_TABLE
4920     , p5_a28 JTF_DATE_TABLE
4921     , p5_a29 JTF_DATE_TABLE
4922     , p5_a30 JTF_VARCHAR2_TABLE_100
4923     , p5_a31 JTF_VARCHAR2_TABLE_2000
4924     , p5_a32 JTF_VARCHAR2_TABLE_100
4925     , p5_a33 JTF_VARCHAR2_TABLE_100
4926     , p5_a34 JTF_VARCHAR2_TABLE_100
4927     , p5_a35 JTF_VARCHAR2_TABLE_100
4928     , p5_a36 JTF_NUMBER_TABLE
4929     , p5_a37 JTF_NUMBER_TABLE
4930     , p5_a38 JTF_DATE_TABLE
4931     , p5_a39 JTF_DATE_TABLE
4932     , p5_a40 JTF_DATE_TABLE
4933     , p5_a41 JTF_DATE_TABLE
4934     , p5_a42 JTF_DATE_TABLE
4935     , p5_a43 JTF_VARCHAR2_TABLE_100
4936     , p5_a44 JTF_DATE_TABLE
4937     , p5_a45 JTF_DATE_TABLE
4938     , p5_a46 JTF_NUMBER_TABLE
4939     , p5_a47 JTF_VARCHAR2_TABLE_100
4940     , p5_a48 JTF_VARCHAR2_TABLE_100
4941     , p5_a49 JTF_NUMBER_TABLE
4942     , p5_a50 JTF_NUMBER_TABLE
4943     , p5_a51 JTF_NUMBER_TABLE
4944     , p5_a52 JTF_VARCHAR2_TABLE_100
4945     , p5_a53 JTF_VARCHAR2_TABLE_100
4946     , p5_a54 JTF_NUMBER_TABLE
4947     , p5_a55 JTF_NUMBER_TABLE
4948     , p5_a56 JTF_VARCHAR2_TABLE_100
4949     , p5_a57 JTF_NUMBER_TABLE
4950     , p5_a58 JTF_VARCHAR2_TABLE_100
4951     , p5_a59 JTF_NUMBER_TABLE
4952     , p5_a60 JTF_NUMBER_TABLE
4953     , p5_a61 JTF_NUMBER_TABLE
4954     , p5_a62 JTF_DATE_TABLE
4955     , p5_a63 JTF_DATE_TABLE
4956     , p5_a64 JTF_DATE_TABLE
4957     , p5_a65 JTF_NUMBER_TABLE
4958     , p5_a66 JTF_NUMBER_TABLE
4959     , p5_a67 JTF_NUMBER_TABLE
4960     , p5_a68 JTF_VARCHAR2_TABLE_100
4961     , p5_a69 JTF_VARCHAR2_TABLE_500
4962     , p5_a70 JTF_VARCHAR2_TABLE_500
4963     , p5_a71 JTF_VARCHAR2_TABLE_500
4964     , p5_a72 JTF_VARCHAR2_TABLE_500
4965     , p5_a73 JTF_VARCHAR2_TABLE_500
4966     , p5_a74 JTF_VARCHAR2_TABLE_500
4967     , p5_a75 JTF_VARCHAR2_TABLE_500
4968     , p5_a76 JTF_VARCHAR2_TABLE_500
4969     , p5_a77 JTF_VARCHAR2_TABLE_500
4970     , p5_a78 JTF_VARCHAR2_TABLE_500
4971     , p5_a79 JTF_VARCHAR2_TABLE_500
4972     , p5_a80 JTF_VARCHAR2_TABLE_500
4973     , p5_a81 JTF_VARCHAR2_TABLE_500
4974     , p5_a82 JTF_VARCHAR2_TABLE_500
4975     , p5_a83 JTF_VARCHAR2_TABLE_500
4976     , p5_a84 JTF_NUMBER_TABLE
4977     , p5_a85 JTF_DATE_TABLE
4978     , p5_a86 JTF_NUMBER_TABLE
4979     , p5_a87 JTF_DATE_TABLE
4980     , p5_a88 JTF_NUMBER_TABLE
4981     , p5_a89 JTF_VARCHAR2_TABLE_100
4982     , p5_a90 JTF_VARCHAR2_TABLE_100
4983     , p5_a91 JTF_VARCHAR2_TABLE_100
4984     , p5_a92 JTF_VARCHAR2_TABLE_100
4985     , p5_a93 JTF_VARCHAR2_TABLE_100
4986     , p5_a94 JTF_NUMBER_TABLE
4987     , p5_a95 JTF_DATE_TABLE
4988     , p5_a96 JTF_NUMBER_TABLE
4989     , p5_a97 JTF_NUMBER_TABLE
4990     , p5_a98 JTF_NUMBER_TABLE
4991     , p5_a99 JTF_NUMBER_TABLE
4992     , p5_a100 JTF_VARCHAR2_TABLE_100
4993     , p5_a101 JTF_NUMBER_TABLE
4994     , p5_a102 JTF_DATE_TABLE
4995     , p5_a103 JTF_NUMBER_TABLE
4996     , p5_a104 JTF_NUMBER_TABLE
4997     , p6_a0 JTF_NUMBER_TABLE
4998     , p6_a1 JTF_NUMBER_TABLE
4999     , p6_a2 JTF_NUMBER_TABLE
5000     , p6_a3 JTF_NUMBER_TABLE
5001     , p6_a4 JTF_NUMBER_TABLE
5002     , p6_a5 JTF_VARCHAR2_TABLE_100
5003     , p6_a6 JTF_DATE_TABLE
5004     , p6_a7 JTF_VARCHAR2_TABLE_100
5005     , p6_a8 JTF_VARCHAR2_TABLE_100
5006     , p6_a9 JTF_DATE_TABLE
5007     , p6_a10 JTF_VARCHAR2_TABLE_100
5008     , p6_a11 JTF_NUMBER_TABLE
5009     , p6_a12 JTF_VARCHAR2_TABLE_100
5010     , p6_a13 JTF_DATE_TABLE
5011     , p6_a14 JTF_VARCHAR2_TABLE_100
5012     , p6_a15 JTF_VARCHAR2_TABLE_100
5013     , p6_a16 JTF_DATE_TABLE
5014     , p6_a17 JTF_DATE_TABLE
5015     , p6_a18 JTF_DATE_TABLE
5016     , p6_a19 JTF_DATE_TABLE
5017     , p6_a20 JTF_VARCHAR2_TABLE_100
5018     , p6_a21 JTF_VARCHAR2_TABLE_500
5019     , p6_a22 JTF_VARCHAR2_TABLE_500
5020     , p6_a23 JTF_VARCHAR2_TABLE_500
5021     , p6_a24 JTF_VARCHAR2_TABLE_500
5022     , p6_a25 JTF_VARCHAR2_TABLE_500
5023     , p6_a26 JTF_VARCHAR2_TABLE_500
5024     , p6_a27 JTF_VARCHAR2_TABLE_500
5025     , p6_a28 JTF_VARCHAR2_TABLE_500
5026     , p6_a29 JTF_VARCHAR2_TABLE_500
5027     , p6_a30 JTF_VARCHAR2_TABLE_500
5028     , p6_a31 JTF_VARCHAR2_TABLE_500
5029     , p6_a32 JTF_VARCHAR2_TABLE_500
5030     , p6_a33 JTF_VARCHAR2_TABLE_500
5031     , p6_a34 JTF_VARCHAR2_TABLE_500
5032     , p6_a35 JTF_VARCHAR2_TABLE_500
5033     , p6_a36 JTF_NUMBER_TABLE
5034     , p6_a37 JTF_DATE_TABLE
5035     , p6_a38 JTF_NUMBER_TABLE
5036     , p6_a39 JTF_DATE_TABLE
5037     , p6_a40 JTF_NUMBER_TABLE
5038     , p6_a41 JTF_NUMBER_TABLE
5039     , p6_a42 JTF_NUMBER_TABLE
5040     , p6_a43 JTF_NUMBER_TABLE
5041     , p6_a44 JTF_NUMBER_TABLE
5042     , p6_a45 JTF_NUMBER_TABLE
5043     , p6_a46 JTF_NUMBER_TABLE
5044     , p6_a47 JTF_NUMBER_TABLE
5045     , p6_a48 JTF_NUMBER_TABLE
5046     , p6_a49 JTF_DATE_TABLE
5047     , p6_a50 JTF_VARCHAR2_TABLE_100
5048     , p6_a51 JTF_NUMBER_TABLE
5049     , p6_a52 JTF_NUMBER_TABLE
5050     , p6_a53 JTF_DATE_TABLE
5051     , p6_a54 JTF_DATE_TABLE
5052     , p6_a55 JTF_VARCHAR2_TABLE_100
5053     , p6_a56 JTF_VARCHAR2_TABLE_100
5054     , p6_a57 JTF_VARCHAR2_TABLE_100
5055     , p6_a58 JTF_NUMBER_TABLE
5056     , p6_a59 JTF_DATE_TABLE
5057     , p6_a60 JTF_VARCHAR2_TABLE_100
5058     , p6_a61 JTF_VARCHAR2_TABLE_100
5059     , p6_a62 JTF_VARCHAR2_TABLE_100
5060     , p6_a63 JTF_VARCHAR2_TABLE_100
5061     , p6_a64 JTF_VARCHAR2_TABLE_100
5062     , p6_a65 JTF_VARCHAR2_TABLE_100
5063   )
5064 
5065   as
5066     ddp_chrv_tbl okl_okc_migration_pvt.chrv_tbl_type;
5067     ddp_khrv_tbl okl_contract_pvt.khrv_tbl_type;
5068     ddindx binary_integer; indx binary_integer;
5069   begin
5070 
5071     -- copy data to the local IN or IN-OUT args, if any
5072 
5073 
5074 
5075 
5076 
5077     okl_okc_migration_pvt_w.rosetta_table_copy_in_p3(ddp_chrv_tbl, p5_a0
5078       , p5_a1
5079       , p5_a2
5080       , p5_a3
5081       , p5_a4
5082       , p5_a5
5083       , p5_a6
5084       , p5_a7
5085       , p5_a8
5086       , p5_a9
5087       , p5_a10
5088       , p5_a11
5089       , p5_a12
5090       , p5_a13
5091       , p5_a14
5092       , p5_a15
5093       , p5_a16
5094       , p5_a17
5095       , p5_a18
5096       , p5_a19
5097       , p5_a20
5098       , p5_a21
5099       , p5_a22
5100       , p5_a23
5101       , p5_a24
5102       , p5_a25
5103       , p5_a26
5104       , p5_a27
5105       , p5_a28
5106       , p5_a29
5107       , p5_a30
5108       , p5_a31
5109       , p5_a32
5110       , p5_a33
5111       , p5_a34
5112       , p5_a35
5113       , p5_a36
5114       , p5_a37
5115       , p5_a38
5116       , p5_a39
5117       , p5_a40
5118       , p5_a41
5119       , p5_a42
5120       , p5_a43
5121       , p5_a44
5122       , p5_a45
5123       , p5_a46
5124       , p5_a47
5125       , p5_a48
5126       , p5_a49
5127       , p5_a50
5128       , p5_a51
5129       , p5_a52
5130       , p5_a53
5131       , p5_a54
5132       , p5_a55
5133       , p5_a56
5134       , p5_a57
5135       , p5_a58
5136       , p5_a59
5137       , p5_a60
5138       , p5_a61
5139       , p5_a62
5140       , p5_a63
5141       , p5_a64
5142       , p5_a65
5143       , p5_a66
5144       , p5_a67
5145       , p5_a68
5146       , p5_a69
5147       , p5_a70
5148       , p5_a71
5149       , p5_a72
5150       , p5_a73
5151       , p5_a74
5152       , p5_a75
5153       , p5_a76
5154       , p5_a77
5155       , p5_a78
5156       , p5_a79
5157       , p5_a80
5158       , p5_a81
5159       , p5_a82
5160       , p5_a83
5161       , p5_a84
5162       , p5_a85
5163       , p5_a86
5164       , p5_a87
5165       , p5_a88
5166       , p5_a89
5167       , p5_a90
5168       , p5_a91
5169       , p5_a92
5170       , p5_a93
5171       , p5_a94
5172       , p5_a95
5173       , p5_a96
5174       , p5_a97
5175       , p5_a98
5176       , p5_a99
5177       , p5_a100
5178       , p5_a101
5179       , p5_a102
5180       , p5_a103
5181       , p5_a104
5182       );
5183 
5184     okl_khr_pvt_w.rosetta_table_copy_in_p8(ddp_khrv_tbl, p6_a0
5185       , p6_a1
5186       , p6_a2
5187       , p6_a3
5188       , p6_a4
5189       , p6_a5
5190       , p6_a6
5191       , p6_a7
5192       , p6_a8
5193       , p6_a9
5194       , p6_a10
5195       , p6_a11
5196       , p6_a12
5197       , p6_a13
5198       , p6_a14
5199       , p6_a15
5200       , p6_a16
5201       , p6_a17
5202       , p6_a18
5203       , p6_a19
5204       , p6_a20
5205       , p6_a21
5206       , p6_a22
5207       , p6_a23
5208       , p6_a24
5209       , p6_a25
5210       , p6_a26
5211       , p6_a27
5212       , p6_a28
5213       , p6_a29
5214       , p6_a30
5215       , p6_a31
5216       , p6_a32
5217       , p6_a33
5218       , p6_a34
5219       , p6_a35
5220       , p6_a36
5221       , p6_a37
5222       , p6_a38
5223       , p6_a39
5224       , p6_a40
5225       , p6_a41
5226       , p6_a42
5227       , p6_a43
5228       , p6_a44
5229       , p6_a45
5230       , p6_a46
5231       , p6_a47
5232       , p6_a48
5233       , p6_a49
5234       , p6_a50
5235       , p6_a51
5236       , p6_a52
5237       , p6_a53
5238       , p6_a54
5239       , p6_a55
5240       , p6_a56
5241       , p6_a57
5242       , p6_a58
5243       , p6_a59
5244       , p6_a60
5245       , p6_a61
5246       , p6_a62
5247       , p6_a63
5248       , p6_a64
5249       , p6_a65
5250       );
5251 
5252     -- here's the delegated call to the old PL/SQL routine
5253     okl_contract_pvt.lock_contract_header(p_api_version,
5254       p_init_msg_list,
5255       x_return_status,
5256       x_msg_count,
5257       x_msg_data,
5258       ddp_chrv_tbl,
5259       ddp_khrv_tbl);
5260 
5261     -- copy data back from the local variables to OUT or IN-OUT args, if any
5262 
5263 
5264 
5265 
5266 
5267 
5268   end;
5269 
5270   procedure validate_contract_header(p_api_version  NUMBER
5271     , p_init_msg_list  VARCHAR2
5272     , x_return_status out nocopy  VARCHAR2
5273     , x_msg_count out nocopy  NUMBER
5274     , x_msg_data out nocopy  VARCHAR2
5275     , p5_a0  NUMBER := 0-1962.0724
5276     , p5_a1  NUMBER := 0-1962.0724
5277     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
5278     , p5_a3  NUMBER := 0-1962.0724
5279     , p5_a4  NUMBER := 0-1962.0724
5280     , p5_a5  NUMBER := 0-1962.0724
5281     , p5_a6  NUMBER := 0-1962.0724
5282     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
5283     , p5_a8  NUMBER := 0-1962.0724
5284     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
5285     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
5286     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
5287     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
5288     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
5289     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
5290     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
5291     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
5292     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
5293     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
5294     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
5295     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
5296     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
5297     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
5298     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
5299     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
5300     , p5_a25  DATE := fnd_api.g_miss_date
5301     , p5_a26  DATE := fnd_api.g_miss_date
5302     , p5_a27  NUMBER := 0-1962.0724
5303     , p5_a28  DATE := fnd_api.g_miss_date
5304     , p5_a29  DATE := fnd_api.g_miss_date
5305     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
5306     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
5307     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
5308     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
5309     , p5_a34  VARCHAR2 := fnd_api.g_miss_char
5310     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
5311     , p5_a36  NUMBER := 0-1962.0724
5312     , p5_a37  NUMBER := 0-1962.0724
5313     , p5_a38  DATE := fnd_api.g_miss_date
5314     , p5_a39  DATE := fnd_api.g_miss_date
5315     , p5_a40  DATE := fnd_api.g_miss_date
5316     , p5_a41  DATE := fnd_api.g_miss_date
5317     , p5_a42  DATE := fnd_api.g_miss_date
5318     , p5_a43  VARCHAR2 := fnd_api.g_miss_char
5319     , p5_a44  DATE := fnd_api.g_miss_date
5320     , p5_a45  DATE := fnd_api.g_miss_date
5321     , p5_a46  NUMBER := 0-1962.0724
5322     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
5323     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
5324     , p5_a49  NUMBER := 0-1962.0724
5325     , p5_a50  NUMBER := 0-1962.0724
5326     , p5_a51  NUMBER := 0-1962.0724
5327     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
5328     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
5329     , p5_a54  NUMBER := 0-1962.0724
5330     , p5_a55  NUMBER := 0-1962.0724
5331     , p5_a56  VARCHAR2 := fnd_api.g_miss_char
5332     , p5_a57  NUMBER := 0-1962.0724
5333     , p5_a58  VARCHAR2 := fnd_api.g_miss_char
5334     , p5_a59  NUMBER := 0-1962.0724
5335     , p5_a60  NUMBER := 0-1962.0724
5336     , p5_a61  NUMBER := 0-1962.0724
5337     , p5_a62  DATE := fnd_api.g_miss_date
5338     , p5_a63  DATE := fnd_api.g_miss_date
5339     , p5_a64  DATE := fnd_api.g_miss_date
5340     , p5_a65  NUMBER := 0-1962.0724
5341     , p5_a66  NUMBER := 0-1962.0724
5342     , p5_a67  NUMBER := 0-1962.0724
5343     , p5_a68  VARCHAR2 := fnd_api.g_miss_char
5344     , p5_a69  VARCHAR2 := fnd_api.g_miss_char
5345     , p5_a70  VARCHAR2 := fnd_api.g_miss_char
5346     , p5_a71  VARCHAR2 := fnd_api.g_miss_char
5347     , p5_a72  VARCHAR2 := fnd_api.g_miss_char
5348     , p5_a73  VARCHAR2 := fnd_api.g_miss_char
5349     , p5_a74  VARCHAR2 := fnd_api.g_miss_char
5350     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
5351     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
5352     , p5_a77  VARCHAR2 := fnd_api.g_miss_char
5353     , p5_a78  VARCHAR2 := fnd_api.g_miss_char
5354     , p5_a79  VARCHAR2 := fnd_api.g_miss_char
5355     , p5_a80  VARCHAR2 := fnd_api.g_miss_char
5356     , p5_a81  VARCHAR2 := fnd_api.g_miss_char
5357     , p5_a82  VARCHAR2 := fnd_api.g_miss_char
5358     , p5_a83  VARCHAR2 := fnd_api.g_miss_char
5359     , p5_a84  NUMBER := 0-1962.0724
5360     , p5_a85  DATE := fnd_api.g_miss_date
5361     , p5_a86  NUMBER := 0-1962.0724
5362     , p5_a87  DATE := fnd_api.g_miss_date
5363     , p5_a88  NUMBER := 0-1962.0724
5364     , p5_a89  VARCHAR2 := fnd_api.g_miss_char
5365     , p5_a90  VARCHAR2 := fnd_api.g_miss_char
5366     , p5_a91  VARCHAR2 := fnd_api.g_miss_char
5367     , p5_a92  VARCHAR2 := fnd_api.g_miss_char
5368     , p5_a93  VARCHAR2 := fnd_api.g_miss_char
5369     , p5_a94  NUMBER := 0-1962.0724
5370     , p5_a95  DATE := fnd_api.g_miss_date
5371     , p5_a96  NUMBER := 0-1962.0724
5372     , p5_a97  NUMBER := 0-1962.0724
5373     , p5_a98  NUMBER := 0-1962.0724
5374     , p5_a99  NUMBER := 0-1962.0724
5375     , p5_a100  VARCHAR2 := fnd_api.g_miss_char
5376     , p5_a101  NUMBER := 0-1962.0724
5377     , p5_a102  DATE := fnd_api.g_miss_date
5378     , p5_a103  NUMBER := 0-1962.0724
5379     , p5_a104  NUMBER := 0-1962.0724
5380     , p6_a0  NUMBER := 0-1962.0724
5381     , p6_a1  NUMBER := 0-1962.0724
5382     , p6_a2  NUMBER := 0-1962.0724
5383     , p6_a3  NUMBER := 0-1962.0724
5384     , p6_a4  NUMBER := 0-1962.0724
5385     , p6_a5  VARCHAR2 := fnd_api.g_miss_char
5386     , p6_a6  DATE := fnd_api.g_miss_date
5387     , p6_a7  VARCHAR2 := fnd_api.g_miss_char
5388     , p6_a8  VARCHAR2 := fnd_api.g_miss_char
5389     , p6_a9  DATE := fnd_api.g_miss_date
5390     , p6_a10  VARCHAR2 := fnd_api.g_miss_char
5391     , p6_a11  NUMBER := 0-1962.0724
5392     , p6_a12  VARCHAR2 := fnd_api.g_miss_char
5393     , p6_a13  DATE := fnd_api.g_miss_date
5394     , p6_a14  VARCHAR2 := fnd_api.g_miss_char
5395     , p6_a15  VARCHAR2 := fnd_api.g_miss_char
5396     , p6_a16  DATE := fnd_api.g_miss_date
5397     , p6_a17  DATE := fnd_api.g_miss_date
5398     , p6_a18  DATE := fnd_api.g_miss_date
5399     , p6_a19  DATE := fnd_api.g_miss_date
5400     , p6_a20  VARCHAR2 := fnd_api.g_miss_char
5401     , p6_a21  VARCHAR2 := fnd_api.g_miss_char
5402     , p6_a22  VARCHAR2 := fnd_api.g_miss_char
5403     , p6_a23  VARCHAR2 := fnd_api.g_miss_char
5404     , p6_a24  VARCHAR2 := fnd_api.g_miss_char
5405     , p6_a25  VARCHAR2 := fnd_api.g_miss_char
5406     , p6_a26  VARCHAR2 := fnd_api.g_miss_char
5407     , p6_a27  VARCHAR2 := fnd_api.g_miss_char
5408     , p6_a28  VARCHAR2 := fnd_api.g_miss_char
5409     , p6_a29  VARCHAR2 := fnd_api.g_miss_char
5410     , p6_a30  VARCHAR2 := fnd_api.g_miss_char
5411     , p6_a31  VARCHAR2 := fnd_api.g_miss_char
5412     , p6_a32  VARCHAR2 := fnd_api.g_miss_char
5413     , p6_a33  VARCHAR2 := fnd_api.g_miss_char
5414     , p6_a34  VARCHAR2 := fnd_api.g_miss_char
5415     , p6_a35  VARCHAR2 := fnd_api.g_miss_char
5416     , p6_a36  NUMBER := 0-1962.0724
5417     , p6_a37  DATE := fnd_api.g_miss_date
5418     , p6_a38  NUMBER := 0-1962.0724
5419     , p6_a39  DATE := fnd_api.g_miss_date
5420     , p6_a40  NUMBER := 0-1962.0724
5421     , p6_a41  NUMBER := 0-1962.0724
5422     , p6_a42  NUMBER := 0-1962.0724
5423     , p6_a43  NUMBER := 0-1962.0724
5424     , p6_a44  NUMBER := 0-1962.0724
5425     , p6_a45  NUMBER := 0-1962.0724
5426     , p6_a46  NUMBER := 0-1962.0724
5427     , p6_a47  NUMBER := 0-1962.0724
5428     , p6_a48  NUMBER := 0-1962.0724
5429     , p6_a49  DATE := fnd_api.g_miss_date
5430     , p6_a50  VARCHAR2 := fnd_api.g_miss_char
5431     , p6_a51  NUMBER := 0-1962.0724
5432     , p6_a52  NUMBER := 0-1962.0724
5433     , p6_a53  DATE := fnd_api.g_miss_date
5434     , p6_a54  DATE := fnd_api.g_miss_date
5435     , p6_a55  VARCHAR2 := fnd_api.g_miss_char
5436     , p6_a56  VARCHAR2 := fnd_api.g_miss_char
5437     , p6_a57  VARCHAR2 := fnd_api.g_miss_char
5438     , p6_a58  NUMBER := 0-1962.0724
5439     , p6_a59  DATE := fnd_api.g_miss_date
5440     , p6_a60  VARCHAR2 := fnd_api.g_miss_char
5441     , p6_a61  VARCHAR2 := fnd_api.g_miss_char
5442     , p6_a62  VARCHAR2 := fnd_api.g_miss_char
5443     , p6_a63  VARCHAR2 := fnd_api.g_miss_char
5444     , p6_a64  VARCHAR2 := fnd_api.g_miss_char
5445     , p6_a65  VARCHAR2 := fnd_api.g_miss_char
5446   )
5447 
5448   as
5449     ddp_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
5450     ddp_khrv_rec okl_contract_pvt.khrv_rec_type;
5451     ddindx binary_integer; indx binary_integer;
5452   begin
5453 
5454     -- copy data to the local IN or IN-OUT args, if any
5455 
5456 
5457 
5458 
5459 
5460     ddp_chrv_rec.id := rosetta_g_miss_num_map(p5_a0);
5461     ddp_chrv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
5462     ddp_chrv_rec.sfwt_flag := p5_a2;
5463     ddp_chrv_rec.chr_id_response := rosetta_g_miss_num_map(p5_a3);
5464     ddp_chrv_rec.chr_id_award := rosetta_g_miss_num_map(p5_a4);
5465     ddp_chrv_rec.chr_id_renewed := rosetta_g_miss_num_map(p5_a5);
5466     ddp_chrv_rec.inv_organization_id := rosetta_g_miss_num_map(p5_a6);
5467     ddp_chrv_rec.sts_code := p5_a7;
5468     ddp_chrv_rec.qcl_id := rosetta_g_miss_num_map(p5_a8);
5469     ddp_chrv_rec.scs_code := p5_a9;
5470     ddp_chrv_rec.contract_number := p5_a10;
5471     ddp_chrv_rec.currency_code := p5_a11;
5472     ddp_chrv_rec.contract_number_modifier := p5_a12;
5473     ddp_chrv_rec.archived_yn := p5_a13;
5474     ddp_chrv_rec.deleted_yn := p5_a14;
5475     ddp_chrv_rec.cust_po_number_req_yn := p5_a15;
5476     ddp_chrv_rec.pre_pay_req_yn := p5_a16;
5477     ddp_chrv_rec.cust_po_number := p5_a17;
5478     ddp_chrv_rec.short_description := p5_a18;
5479     ddp_chrv_rec.comments := p5_a19;
5480     ddp_chrv_rec.description := p5_a20;
5481     ddp_chrv_rec.dpas_rating := p5_a21;
5482     ddp_chrv_rec.cognomen := p5_a22;
5483     ddp_chrv_rec.template_yn := p5_a23;
5484     ddp_chrv_rec.template_used := p5_a24;
5485     ddp_chrv_rec.date_approved := rosetta_g_miss_date_in_map(p5_a25);
5486     ddp_chrv_rec.datetime_cancelled := rosetta_g_miss_date_in_map(p5_a26);
5487     ddp_chrv_rec.auto_renew_days := rosetta_g_miss_num_map(p5_a27);
5488     ddp_chrv_rec.date_issued := rosetta_g_miss_date_in_map(p5_a28);
5489     ddp_chrv_rec.datetime_responded := rosetta_g_miss_date_in_map(p5_a29);
5490     ddp_chrv_rec.non_response_reason := p5_a30;
5491     ddp_chrv_rec.non_response_explain := p5_a31;
5492     ddp_chrv_rec.rfp_type := p5_a32;
5493     ddp_chrv_rec.chr_type := p5_a33;
5494     ddp_chrv_rec.keep_on_mail_list := p5_a34;
5495     ddp_chrv_rec.set_aside_reason := p5_a35;
5496     ddp_chrv_rec.set_aside_percent := rosetta_g_miss_num_map(p5_a36);
5497     ddp_chrv_rec.response_copies_req := rosetta_g_miss_num_map(p5_a37);
5498     ddp_chrv_rec.date_close_projected := rosetta_g_miss_date_in_map(p5_a38);
5499     ddp_chrv_rec.datetime_proposed := rosetta_g_miss_date_in_map(p5_a39);
5500     ddp_chrv_rec.date_signed := rosetta_g_miss_date_in_map(p5_a40);
5501     ddp_chrv_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a41);
5502     ddp_chrv_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a42);
5503     ddp_chrv_rec.trn_code := p5_a43;
5504     ddp_chrv_rec.start_date := rosetta_g_miss_date_in_map(p5_a44);
5505     ddp_chrv_rec.end_date := rosetta_g_miss_date_in_map(p5_a45);
5506     ddp_chrv_rec.authoring_org_id := rosetta_g_miss_num_map(p5_a46);
5507     ddp_chrv_rec.buy_or_sell := p5_a47;
5508     ddp_chrv_rec.issue_or_receive := p5_a48;
5509     ddp_chrv_rec.estimated_amount := rosetta_g_miss_num_map(p5_a49);
5510     ddp_chrv_rec.chr_id_renewed_to := rosetta_g_miss_num_map(p5_a50);
5511     ddp_chrv_rec.estimated_amount_renewed := rosetta_g_miss_num_map(p5_a51);
5512     ddp_chrv_rec.currency_code_renewed := p5_a52;
5513     ddp_chrv_rec.upg_orig_system_ref := p5_a53;
5514     ddp_chrv_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a54);
5515     ddp_chrv_rec.application_id := rosetta_g_miss_num_map(p5_a55);
5516     ddp_chrv_rec.orig_system_source_code := p5_a56;
5517     ddp_chrv_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a57);
5518     ddp_chrv_rec.orig_system_reference1 := p5_a58;
5519     ddp_chrv_rec.program_id := rosetta_g_miss_num_map(p5_a59);
5520     ddp_chrv_rec.request_id := rosetta_g_miss_num_map(p5_a60);
5521     ddp_chrv_rec.price_list_id := rosetta_g_miss_num_map(p5_a61);
5522     ddp_chrv_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a62);
5523     ddp_chrv_rec.sign_by_date := rosetta_g_miss_date_in_map(p5_a63);
5524     ddp_chrv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a64);
5525     ddp_chrv_rec.total_line_list_price := rosetta_g_miss_num_map(p5_a65);
5526     ddp_chrv_rec.program_application_id := rosetta_g_miss_num_map(p5_a66);
5527     ddp_chrv_rec.user_estimated_amount := rosetta_g_miss_num_map(p5_a67);
5528     ddp_chrv_rec.attribute_category := p5_a68;
5529     ddp_chrv_rec.attribute1 := p5_a69;
5530     ddp_chrv_rec.attribute2 := p5_a70;
5531     ddp_chrv_rec.attribute3 := p5_a71;
5532     ddp_chrv_rec.attribute4 := p5_a72;
5533     ddp_chrv_rec.attribute5 := p5_a73;
5534     ddp_chrv_rec.attribute6 := p5_a74;
5535     ddp_chrv_rec.attribute7 := p5_a75;
5536     ddp_chrv_rec.attribute8 := p5_a76;
5537     ddp_chrv_rec.attribute9 := p5_a77;
5538     ddp_chrv_rec.attribute10 := p5_a78;
5539     ddp_chrv_rec.attribute11 := p5_a79;
5540     ddp_chrv_rec.attribute12 := p5_a80;
5541     ddp_chrv_rec.attribute13 := p5_a81;
5542     ddp_chrv_rec.attribute14 := p5_a82;
5543     ddp_chrv_rec.attribute15 := p5_a83;
5544     ddp_chrv_rec.created_by := rosetta_g_miss_num_map(p5_a84);
5545     ddp_chrv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a85);
5546     ddp_chrv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a86);
5547     ddp_chrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a87);
5548     ddp_chrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a88);
5549     ddp_chrv_rec.old_sts_code := p5_a89;
5550     ddp_chrv_rec.new_sts_code := p5_a90;
5551     ddp_chrv_rec.old_ste_code := p5_a91;
5552     ddp_chrv_rec.new_ste_code := p5_a92;
5553     ddp_chrv_rec.conversion_type := p5_a93;
5554     ddp_chrv_rec.conversion_rate := rosetta_g_miss_num_map(p5_a94);
5555     ddp_chrv_rec.conversion_rate_date := rosetta_g_miss_date_in_map(p5_a95);
5556     ddp_chrv_rec.conversion_euro_rate := rosetta_g_miss_num_map(p5_a96);
5557     ddp_chrv_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a97);
5558     ddp_chrv_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a98);
5559     ddp_chrv_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a99);
5560     ddp_chrv_rec.renewal_type_code := p5_a100;
5561     ddp_chrv_rec.renewal_notify_to := rosetta_g_miss_num_map(p5_a101);
5562     ddp_chrv_rec.renewal_end_date := rosetta_g_miss_date_in_map(p5_a102);
5563     ddp_chrv_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a103);
5564     ddp_chrv_rec.payment_term_id := rosetta_g_miss_num_map(p5_a104);
5565 
5566     ddp_khrv_rec.id := rosetta_g_miss_num_map(p6_a0);
5567     ddp_khrv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
5568     ddp_khrv_rec.isg_id := rosetta_g_miss_num_map(p6_a2);
5569     ddp_khrv_rec.khr_id := rosetta_g_miss_num_map(p6_a3);
5570     ddp_khrv_rec.pdt_id := rosetta_g_miss_num_map(p6_a4);
5571     ddp_khrv_rec.amd_code := p6_a5;
5572     ddp_khrv_rec.date_first_activity := rosetta_g_miss_date_in_map(p6_a6);
5573     ddp_khrv_rec.generate_accrual_yn := p6_a7;
5574     ddp_khrv_rec.generate_accrual_override_yn := p6_a8;
5575     ddp_khrv_rec.date_refinanced := rosetta_g_miss_date_in_map(p6_a9);
5576     ddp_khrv_rec.credit_act_yn := p6_a10;
5577     ddp_khrv_rec.term_duration := rosetta_g_miss_num_map(p6_a11);
5578     ddp_khrv_rec.converted_account_yn := p6_a12;
5579     ddp_khrv_rec.date_conversion_effective := rosetta_g_miss_date_in_map(p6_a13);
5580     ddp_khrv_rec.syndicatable_yn := p6_a14;
5581     ddp_khrv_rec.salestype_yn := p6_a15;
5582     ddp_khrv_rec.date_deal_transferred := rosetta_g_miss_date_in_map(p6_a16);
5583     ddp_khrv_rec.datetime_proposal_effective := rosetta_g_miss_date_in_map(p6_a17);
5584     ddp_khrv_rec.datetime_proposal_ineffective := rosetta_g_miss_date_in_map(p6_a18);
5585     ddp_khrv_rec.date_proposal_accepted := rosetta_g_miss_date_in_map(p6_a19);
5586     ddp_khrv_rec.attribute_category := p6_a20;
5587     ddp_khrv_rec.attribute1 := p6_a21;
5588     ddp_khrv_rec.attribute2 := p6_a22;
5589     ddp_khrv_rec.attribute3 := p6_a23;
5590     ddp_khrv_rec.attribute4 := p6_a24;
5591     ddp_khrv_rec.attribute5 := p6_a25;
5592     ddp_khrv_rec.attribute6 := p6_a26;
5593     ddp_khrv_rec.attribute7 := p6_a27;
5594     ddp_khrv_rec.attribute8 := p6_a28;
5595     ddp_khrv_rec.attribute9 := p6_a29;
5596     ddp_khrv_rec.attribute10 := p6_a30;
5597     ddp_khrv_rec.attribute11 := p6_a31;
5598     ddp_khrv_rec.attribute12 := p6_a32;
5599     ddp_khrv_rec.attribute13 := p6_a33;
5600     ddp_khrv_rec.attribute14 := p6_a34;
5601     ddp_khrv_rec.attribute15 := p6_a35;
5602     ddp_khrv_rec.created_by := rosetta_g_miss_num_map(p6_a36);
5603     ddp_khrv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a37);
5604     ddp_khrv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a38);
5605     ddp_khrv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a39);
5606     ddp_khrv_rec.last_update_login := rosetta_g_miss_num_map(p6_a40);
5607     ddp_khrv_rec.pre_tax_yield := rosetta_g_miss_num_map(p6_a41);
5608     ddp_khrv_rec.after_tax_yield := rosetta_g_miss_num_map(p6_a42);
5609     ddp_khrv_rec.implicit_interest_rate := rosetta_g_miss_num_map(p6_a43);
5610     ddp_khrv_rec.implicit_non_idc_interest_rate := rosetta_g_miss_num_map(p6_a44);
5611     ddp_khrv_rec.target_pre_tax_yield := rosetta_g_miss_num_map(p6_a45);
5612     ddp_khrv_rec.target_after_tax_yield := rosetta_g_miss_num_map(p6_a46);
5613     ddp_khrv_rec.target_implicit_interest_rate := rosetta_g_miss_num_map(p6_a47);
5614     ddp_khrv_rec.target_implicit_nonidc_intrate := rosetta_g_miss_num_map(p6_a48);
5615     ddp_khrv_rec.date_last_interim_interest_cal := rosetta_g_miss_date_in_map(p6_a49);
5616     ddp_khrv_rec.deal_type := p6_a50;
5617     ddp_khrv_rec.pre_tax_irr := rosetta_g_miss_num_map(p6_a51);
5618     ddp_khrv_rec.after_tax_irr := rosetta_g_miss_num_map(p6_a52);
5619     ddp_khrv_rec.expected_delivery_date := rosetta_g_miss_date_in_map(p6_a53);
5620     ddp_khrv_rec.accepted_date := rosetta_g_miss_date_in_map(p6_a54);
5621     ddp_khrv_rec.prefunding_eligible_yn := p6_a55;
5622     ddp_khrv_rec.revolving_credit_yn := p6_a56;
5623     ddp_khrv_rec.currency_conversion_type := p6_a57;
5624     ddp_khrv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p6_a58);
5625     ddp_khrv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p6_a59);
5626     ddp_khrv_rec.multi_gaap_yn := p6_a60;
5627     ddp_khrv_rec.recourse_code := p6_a61;
5628     ddp_khrv_rec.lessor_serv_org_code := p6_a62;
5629     ddp_khrv_rec.assignable_yn := p6_a63;
5630     ddp_khrv_rec.securitized_code := p6_a64;
5631     ddp_khrv_rec.securitization_type := p6_a65;
5632 
5633     -- here's the delegated call to the old PL/SQL routine
5634     okl_contract_pvt.validate_contract_header(p_api_version,
5635       p_init_msg_list,
5636       x_return_status,
5637       x_msg_count,
5638       x_msg_data,
5639       ddp_chrv_rec,
5640       ddp_khrv_rec);
5641 
5642     -- copy data back from the local variables to OUT or IN-OUT args, if any
5643 
5644 
5645 
5646 
5647 
5648 
5649   end;
5650 
5651   procedure validate_contract_header(p_api_version  NUMBER
5652     , p_init_msg_list  VARCHAR2
5653     , x_return_status out nocopy  VARCHAR2
5654     , x_msg_count out nocopy  NUMBER
5655     , x_msg_data out nocopy  VARCHAR2
5656     , p5_a0 JTF_NUMBER_TABLE
5657     , p5_a1 JTF_NUMBER_TABLE
5658     , p5_a2 JTF_VARCHAR2_TABLE_100
5659     , p5_a3 JTF_NUMBER_TABLE
5660     , p5_a4 JTF_NUMBER_TABLE
5661     , p5_a5 JTF_NUMBER_TABLE
5662     , p5_a6 JTF_NUMBER_TABLE
5663     , p5_a7 JTF_VARCHAR2_TABLE_100
5664     , p5_a8 JTF_NUMBER_TABLE
5665     , p5_a9 JTF_VARCHAR2_TABLE_100
5666     , p5_a10 JTF_VARCHAR2_TABLE_200
5667     , p5_a11 JTF_VARCHAR2_TABLE_100
5668     , p5_a12 JTF_VARCHAR2_TABLE_200
5669     , p5_a13 JTF_VARCHAR2_TABLE_100
5670     , p5_a14 JTF_VARCHAR2_TABLE_100
5671     , p5_a15 JTF_VARCHAR2_TABLE_100
5672     , p5_a16 JTF_VARCHAR2_TABLE_100
5673     , p5_a17 JTF_VARCHAR2_TABLE_200
5674     , p5_a18 JTF_VARCHAR2_TABLE_600
5675     , p5_a19 JTF_VARCHAR2_TABLE_2000
5676     , p5_a20 JTF_VARCHAR2_TABLE_2000
5677     , p5_a21 JTF_VARCHAR2_TABLE_100
5678     , p5_a22 JTF_VARCHAR2_TABLE_300
5679     , p5_a23 JTF_VARCHAR2_TABLE_100
5680     , p5_a24 JTF_VARCHAR2_TABLE_200
5681     , p5_a25 JTF_DATE_TABLE
5682     , p5_a26 JTF_DATE_TABLE
5683     , p5_a27 JTF_NUMBER_TABLE
5684     , p5_a28 JTF_DATE_TABLE
5685     , p5_a29 JTF_DATE_TABLE
5686     , p5_a30 JTF_VARCHAR2_TABLE_100
5687     , p5_a31 JTF_VARCHAR2_TABLE_2000
5688     , p5_a32 JTF_VARCHAR2_TABLE_100
5689     , p5_a33 JTF_VARCHAR2_TABLE_100
5690     , p5_a34 JTF_VARCHAR2_TABLE_100
5691     , p5_a35 JTF_VARCHAR2_TABLE_100
5692     , p5_a36 JTF_NUMBER_TABLE
5693     , p5_a37 JTF_NUMBER_TABLE
5694     , p5_a38 JTF_DATE_TABLE
5695     , p5_a39 JTF_DATE_TABLE
5696     , p5_a40 JTF_DATE_TABLE
5697     , p5_a41 JTF_DATE_TABLE
5698     , p5_a42 JTF_DATE_TABLE
5699     , p5_a43 JTF_VARCHAR2_TABLE_100
5700     , p5_a44 JTF_DATE_TABLE
5701     , p5_a45 JTF_DATE_TABLE
5702     , p5_a46 JTF_NUMBER_TABLE
5703     , p5_a47 JTF_VARCHAR2_TABLE_100
5704     , p5_a48 JTF_VARCHAR2_TABLE_100
5705     , p5_a49 JTF_NUMBER_TABLE
5706     , p5_a50 JTF_NUMBER_TABLE
5707     , p5_a51 JTF_NUMBER_TABLE
5708     , p5_a52 JTF_VARCHAR2_TABLE_100
5709     , p5_a53 JTF_VARCHAR2_TABLE_100
5710     , p5_a54 JTF_NUMBER_TABLE
5711     , p5_a55 JTF_NUMBER_TABLE
5712     , p5_a56 JTF_VARCHAR2_TABLE_100
5713     , p5_a57 JTF_NUMBER_TABLE
5714     , p5_a58 JTF_VARCHAR2_TABLE_100
5715     , p5_a59 JTF_NUMBER_TABLE
5716     , p5_a60 JTF_NUMBER_TABLE
5717     , p5_a61 JTF_NUMBER_TABLE
5718     , p5_a62 JTF_DATE_TABLE
5719     , p5_a63 JTF_DATE_TABLE
5720     , p5_a64 JTF_DATE_TABLE
5721     , p5_a65 JTF_NUMBER_TABLE
5722     , p5_a66 JTF_NUMBER_TABLE
5723     , p5_a67 JTF_NUMBER_TABLE
5724     , p5_a68 JTF_VARCHAR2_TABLE_100
5725     , p5_a69 JTF_VARCHAR2_TABLE_500
5726     , p5_a70 JTF_VARCHAR2_TABLE_500
5727     , p5_a71 JTF_VARCHAR2_TABLE_500
5728     , p5_a72 JTF_VARCHAR2_TABLE_500
5729     , p5_a73 JTF_VARCHAR2_TABLE_500
5730     , p5_a74 JTF_VARCHAR2_TABLE_500
5731     , p5_a75 JTF_VARCHAR2_TABLE_500
5732     , p5_a76 JTF_VARCHAR2_TABLE_500
5733     , p5_a77 JTF_VARCHAR2_TABLE_500
5734     , p5_a78 JTF_VARCHAR2_TABLE_500
5735     , p5_a79 JTF_VARCHAR2_TABLE_500
5736     , p5_a80 JTF_VARCHAR2_TABLE_500
5737     , p5_a81 JTF_VARCHAR2_TABLE_500
5738     , p5_a82 JTF_VARCHAR2_TABLE_500
5739     , p5_a83 JTF_VARCHAR2_TABLE_500
5740     , p5_a84 JTF_NUMBER_TABLE
5741     , p5_a85 JTF_DATE_TABLE
5742     , p5_a86 JTF_NUMBER_TABLE
5743     , p5_a87 JTF_DATE_TABLE
5744     , p5_a88 JTF_NUMBER_TABLE
5745     , p5_a89 JTF_VARCHAR2_TABLE_100
5746     , p5_a90 JTF_VARCHAR2_TABLE_100
5747     , p5_a91 JTF_VARCHAR2_TABLE_100
5748     , p5_a92 JTF_VARCHAR2_TABLE_100
5749     , p5_a93 JTF_VARCHAR2_TABLE_100
5750     , p5_a94 JTF_NUMBER_TABLE
5751     , p5_a95 JTF_DATE_TABLE
5752     , p5_a96 JTF_NUMBER_TABLE
5753     , p5_a97 JTF_NUMBER_TABLE
5754     , p5_a98 JTF_NUMBER_TABLE
5755     , p5_a99 JTF_NUMBER_TABLE
5756     , p5_a100 JTF_VARCHAR2_TABLE_100
5757     , p5_a101 JTF_NUMBER_TABLE
5758     , p5_a102 JTF_DATE_TABLE
5759     , p5_a103 JTF_NUMBER_TABLE
5760     , p5_a104 JTF_NUMBER_TABLE
5761     , p6_a0 JTF_NUMBER_TABLE
5762     , p6_a1 JTF_NUMBER_TABLE
5763     , p6_a2 JTF_NUMBER_TABLE
5764     , p6_a3 JTF_NUMBER_TABLE
5765     , p6_a4 JTF_NUMBER_TABLE
5766     , p6_a5 JTF_VARCHAR2_TABLE_100
5767     , p6_a6 JTF_DATE_TABLE
5768     , p6_a7 JTF_VARCHAR2_TABLE_100
5769     , p6_a8 JTF_VARCHAR2_TABLE_100
5770     , p6_a9 JTF_DATE_TABLE
5771     , p6_a10 JTF_VARCHAR2_TABLE_100
5772     , p6_a11 JTF_NUMBER_TABLE
5773     , p6_a12 JTF_VARCHAR2_TABLE_100
5774     , p6_a13 JTF_DATE_TABLE
5775     , p6_a14 JTF_VARCHAR2_TABLE_100
5776     , p6_a15 JTF_VARCHAR2_TABLE_100
5777     , p6_a16 JTF_DATE_TABLE
5778     , p6_a17 JTF_DATE_TABLE
5779     , p6_a18 JTF_DATE_TABLE
5780     , p6_a19 JTF_DATE_TABLE
5781     , p6_a20 JTF_VARCHAR2_TABLE_100
5782     , p6_a21 JTF_VARCHAR2_TABLE_500
5783     , p6_a22 JTF_VARCHAR2_TABLE_500
5784     , p6_a23 JTF_VARCHAR2_TABLE_500
5785     , p6_a24 JTF_VARCHAR2_TABLE_500
5786     , p6_a25 JTF_VARCHAR2_TABLE_500
5787     , p6_a26 JTF_VARCHAR2_TABLE_500
5788     , p6_a27 JTF_VARCHAR2_TABLE_500
5789     , p6_a28 JTF_VARCHAR2_TABLE_500
5790     , p6_a29 JTF_VARCHAR2_TABLE_500
5791     , p6_a30 JTF_VARCHAR2_TABLE_500
5792     , p6_a31 JTF_VARCHAR2_TABLE_500
5793     , p6_a32 JTF_VARCHAR2_TABLE_500
5794     , p6_a33 JTF_VARCHAR2_TABLE_500
5795     , p6_a34 JTF_VARCHAR2_TABLE_500
5796     , p6_a35 JTF_VARCHAR2_TABLE_500
5797     , p6_a36 JTF_NUMBER_TABLE
5798     , p6_a37 JTF_DATE_TABLE
5799     , p6_a38 JTF_NUMBER_TABLE
5800     , p6_a39 JTF_DATE_TABLE
5801     , p6_a40 JTF_NUMBER_TABLE
5802     , p6_a41 JTF_NUMBER_TABLE
5803     , p6_a42 JTF_NUMBER_TABLE
5804     , p6_a43 JTF_NUMBER_TABLE
5805     , p6_a44 JTF_NUMBER_TABLE
5806     , p6_a45 JTF_NUMBER_TABLE
5807     , p6_a46 JTF_NUMBER_TABLE
5808     , p6_a47 JTF_NUMBER_TABLE
5809     , p6_a48 JTF_NUMBER_TABLE
5810     , p6_a49 JTF_DATE_TABLE
5811     , p6_a50 JTF_VARCHAR2_TABLE_100
5812     , p6_a51 JTF_NUMBER_TABLE
5813     , p6_a52 JTF_NUMBER_TABLE
5814     , p6_a53 JTF_DATE_TABLE
5815     , p6_a54 JTF_DATE_TABLE
5816     , p6_a55 JTF_VARCHAR2_TABLE_100
5817     , p6_a56 JTF_VARCHAR2_TABLE_100
5818     , p6_a57 JTF_VARCHAR2_TABLE_100
5819     , p6_a58 JTF_NUMBER_TABLE
5820     , p6_a59 JTF_DATE_TABLE
5821     , p6_a60 JTF_VARCHAR2_TABLE_100
5822     , p6_a61 JTF_VARCHAR2_TABLE_100
5823     , p6_a62 JTF_VARCHAR2_TABLE_100
5824     , p6_a63 JTF_VARCHAR2_TABLE_100
5825     , p6_a64 JTF_VARCHAR2_TABLE_100
5826     , p6_a65 JTF_VARCHAR2_TABLE_100
5827   )
5828 
5829   as
5830     ddp_chrv_tbl okl_okc_migration_pvt.chrv_tbl_type;
5831     ddp_khrv_tbl okl_contract_pvt.khrv_tbl_type;
5832     ddindx binary_integer; indx binary_integer;
5833   begin
5834 
5835     -- copy data to the local IN or IN-OUT args, if any
5836 
5837 
5838 
5839 
5840 
5841     okl_okc_migration_pvt_w.rosetta_table_copy_in_p3(ddp_chrv_tbl, p5_a0
5842       , p5_a1
5843       , p5_a2
5844       , p5_a3
5845       , p5_a4
5846       , p5_a5
5847       , p5_a6
5848       , p5_a7
5849       , p5_a8
5850       , p5_a9
5851       , p5_a10
5852       , p5_a11
5853       , p5_a12
5854       , p5_a13
5855       , p5_a14
5856       , p5_a15
5857       , p5_a16
5858       , p5_a17
5859       , p5_a18
5860       , p5_a19
5861       , p5_a20
5862       , p5_a21
5863       , p5_a22
5864       , p5_a23
5865       , p5_a24
5866       , p5_a25
5867       , p5_a26
5868       , p5_a27
5869       , p5_a28
5870       , p5_a29
5871       , p5_a30
5872       , p5_a31
5873       , p5_a32
5874       , p5_a33
5875       , p5_a34
5876       , p5_a35
5877       , p5_a36
5878       , p5_a37
5879       , p5_a38
5880       , p5_a39
5881       , p5_a40
5882       , p5_a41
5883       , p5_a42
5884       , p5_a43
5885       , p5_a44
5886       , p5_a45
5887       , p5_a46
5888       , p5_a47
5889       , p5_a48
5890       , p5_a49
5891       , p5_a50
5892       , p5_a51
5893       , p5_a52
5894       , p5_a53
5895       , p5_a54
5896       , p5_a55
5897       , p5_a56
5898       , p5_a57
5899       , p5_a58
5900       , p5_a59
5901       , p5_a60
5902       , p5_a61
5903       , p5_a62
5904       , p5_a63
5905       , p5_a64
5906       , p5_a65
5907       , p5_a66
5908       , p5_a67
5909       , p5_a68
5910       , p5_a69
5911       , p5_a70
5912       , p5_a71
5913       , p5_a72
5914       , p5_a73
5915       , p5_a74
5916       , p5_a75
5917       , p5_a76
5918       , p5_a77
5919       , p5_a78
5920       , p5_a79
5921       , p5_a80
5922       , p5_a81
5923       , p5_a82
5924       , p5_a83
5925       , p5_a84
5926       , p5_a85
5927       , p5_a86
5928       , p5_a87
5929       , p5_a88
5930       , p5_a89
5931       , p5_a90
5932       , p5_a91
5933       , p5_a92
5934       , p5_a93
5935       , p5_a94
5936       , p5_a95
5937       , p5_a96
5938       , p5_a97
5939       , p5_a98
5940       , p5_a99
5941       , p5_a100
5942       , p5_a101
5943       , p5_a102
5944       , p5_a103
5945       , p5_a104
5946       );
5947 
5948     okl_khr_pvt_w.rosetta_table_copy_in_p8(ddp_khrv_tbl, p6_a0
5949       , p6_a1
5950       , p6_a2
5951       , p6_a3
5952       , p6_a4
5953       , p6_a5
5954       , p6_a6
5955       , p6_a7
5956       , p6_a8
5957       , p6_a9
5958       , p6_a10
5959       , p6_a11
5960       , p6_a12
5961       , p6_a13
5962       , p6_a14
5963       , p6_a15
5964       , p6_a16
5965       , p6_a17
5966       , p6_a18
5967       , p6_a19
5968       , p6_a20
5969       , p6_a21
5970       , p6_a22
5971       , p6_a23
5972       , p6_a24
5973       , p6_a25
5974       , p6_a26
5975       , p6_a27
5976       , p6_a28
5977       , p6_a29
5978       , p6_a30
5979       , p6_a31
5980       , p6_a32
5981       , p6_a33
5982       , p6_a34
5983       , p6_a35
5984       , p6_a36
5985       , p6_a37
5986       , p6_a38
5987       , p6_a39
5988       , p6_a40
5989       , p6_a41
5990       , p6_a42
5991       , p6_a43
5992       , p6_a44
5993       , p6_a45
5994       , p6_a46
5995       , p6_a47
5996       , p6_a48
5997       , p6_a49
5998       , p6_a50
5999       , p6_a51
6000       , p6_a52
6001       , p6_a53
6002       , p6_a54
6003       , p6_a55
6004       , p6_a56
6005       , p6_a57
6006       , p6_a58
6007       , p6_a59
6008       , p6_a60
6009       , p6_a61
6010       , p6_a62
6011       , p6_a63
6012       , p6_a64
6013       , p6_a65
6014       );
6015 
6016     -- here's the delegated call to the old PL/SQL routine
6017     okl_contract_pvt.validate_contract_header(p_api_version,
6018       p_init_msg_list,
6019       x_return_status,
6020       x_msg_count,
6021       x_msg_data,
6022       ddp_chrv_tbl,
6023       ddp_khrv_tbl);
6024 
6025     -- copy data back from the local variables to OUT or IN-OUT args, if any
6026 
6027 
6028 
6029 
6030 
6031 
6032   end;
6033 
6034   procedure create_contract_line(p_api_version  NUMBER
6035     , p_init_msg_list  VARCHAR2
6036     , x_return_status out nocopy  VARCHAR2
6037     , x_msg_count out nocopy  NUMBER
6038     , x_msg_data out nocopy  VARCHAR2
6039     , p7_a0 out nocopy  NUMBER
6040     , p7_a1 out nocopy  NUMBER
6041     , p7_a2 out nocopy  VARCHAR2
6042     , p7_a3 out nocopy  NUMBER
6043     , p7_a4 out nocopy  NUMBER
6044     , p7_a5 out nocopy  NUMBER
6045     , p7_a6 out nocopy  NUMBER
6046     , p7_a7 out nocopy  NUMBER
6047     , p7_a8 out nocopy  VARCHAR2
6048     , p7_a9 out nocopy  VARCHAR2
6049     , p7_a10 out nocopy  NUMBER
6050     , p7_a11 out nocopy  VARCHAR2
6051     , p7_a12 out nocopy  NUMBER
6052     , p7_a13 out nocopy  VARCHAR2
6053     , p7_a14 out nocopy  VARCHAR2
6054     , p7_a15 out nocopy  VARCHAR2
6055     , p7_a16 out nocopy  VARCHAR2
6056     , p7_a17 out nocopy  VARCHAR2
6057     , p7_a18 out nocopy  NUMBER
6058     , p7_a19 out nocopy  NUMBER
6059     , p7_a20 out nocopy  NUMBER
6060     , p7_a21 out nocopy  NUMBER
6061     , p7_a22 out nocopy  VARCHAR2
6062     , p7_a23 out nocopy  VARCHAR2
6063     , p7_a24 out nocopy  VARCHAR2
6064     , p7_a25 out nocopy  VARCHAR2
6065     , p7_a26 out nocopy  VARCHAR2
6066     , p7_a27 out nocopy  VARCHAR2
6067     , p7_a28 out nocopy  DATE
6068     , p7_a29 out nocopy  VARCHAR2
6069     , p7_a30 out nocopy  DATE
6070     , p7_a31 out nocopy  DATE
6071     , p7_a32 out nocopy  DATE
6072     , p7_a33 out nocopy  VARCHAR2
6073     , p7_a34 out nocopy  NUMBER
6074     , p7_a35 out nocopy  VARCHAR2
6075     , p7_a36 out nocopy  NUMBER
6076     , p7_a37 out nocopy  VARCHAR2
6077     , p7_a38 out nocopy  VARCHAR2
6078     , p7_a39 out nocopy  VARCHAR2
6079     , p7_a40 out nocopy  VARCHAR2
6080     , p7_a41 out nocopy  VARCHAR2
6081     , p7_a42 out nocopy  VARCHAR2
6082     , p7_a43 out nocopy  VARCHAR2
6083     , p7_a44 out nocopy  VARCHAR2
6084     , p7_a45 out nocopy  VARCHAR2
6085     , p7_a46 out nocopy  VARCHAR2
6086     , p7_a47 out nocopy  VARCHAR2
6087     , p7_a48 out nocopy  VARCHAR2
6088     , p7_a49 out nocopy  VARCHAR2
6089     , p7_a50 out nocopy  VARCHAR2
6090     , p7_a51 out nocopy  VARCHAR2
6091     , p7_a52 out nocopy  VARCHAR2
6092     , p7_a53 out nocopy  VARCHAR2
6093     , p7_a54 out nocopy  NUMBER
6094     , p7_a55 out nocopy  DATE
6095     , p7_a56 out nocopy  NUMBER
6096     , p7_a57 out nocopy  DATE
6097     , p7_a58 out nocopy  VARCHAR2
6098     , p7_a59 out nocopy  VARCHAR2
6099     , p7_a60 out nocopy  VARCHAR2
6100     , p7_a61 out nocopy  NUMBER
6101     , p7_a62 out nocopy  VARCHAR2
6102     , p7_a63 out nocopy  VARCHAR2
6103     , p7_a64 out nocopy  VARCHAR2
6104     , p7_a65 out nocopy  VARCHAR2
6105     , p7_a66 out nocopy  VARCHAR2
6106     , p7_a67 out nocopy  NUMBER
6107     , p7_a68 out nocopy  NUMBER
6108     , p7_a69 out nocopy  NUMBER
6109     , p7_a70 out nocopy  DATE
6110     , p7_a71 out nocopy  NUMBER
6111     , p7_a72 out nocopy  DATE
6112     , p7_a73 out nocopy  NUMBER
6113     , p7_a74 out nocopy  NUMBER
6114     , p7_a75 out nocopy  VARCHAR2
6115     , p7_a76 out nocopy  VARCHAR2
6116     , p7_a77 out nocopy  NUMBER
6117     , p7_a78 out nocopy  NUMBER
6118     , p7_a79 out nocopy  VARCHAR2
6119     , p7_a80 out nocopy  VARCHAR2
6120     , p7_a81 out nocopy  NUMBER
6121     , p7_a82 out nocopy  VARCHAR2
6122     , p7_a83 out nocopy  NUMBER
6123     , p7_a84 out nocopy  NUMBER
6124     , p7_a85 out nocopy  NUMBER
6125     , p7_a86 out nocopy  NUMBER
6126     , p7_a87 out nocopy  VARCHAR2
6127     , p7_a88 out nocopy  NUMBER
6128     , p7_a89 out nocopy  NUMBER
6129     , p8_a0 out nocopy  NUMBER
6130     , p8_a1 out nocopy  NUMBER
6131     , p8_a2 out nocopy  NUMBER
6132     , p8_a3 out nocopy  NUMBER
6133     , p8_a4 out nocopy  VARCHAR2
6134     , p8_a5 out nocopy  VARCHAR2
6135     , p8_a6 out nocopy  VARCHAR2
6136     , p8_a7 out nocopy  NUMBER
6137     , p8_a8 out nocopy  NUMBER
6138     , p8_a9 out nocopy  DATE
6139     , p8_a10 out nocopy  NUMBER
6140     , p8_a11 out nocopy  NUMBER
6141     , p8_a12 out nocopy  NUMBER
6142     , p8_a13 out nocopy  NUMBER
6143     , p8_a14 out nocopy  NUMBER
6144     , p8_a15 out nocopy  NUMBER
6145     , p8_a16 out nocopy  NUMBER
6146     , p8_a17 out nocopy  NUMBER
6147     , p8_a18 out nocopy  NUMBER
6148     , p8_a19 out nocopy  NUMBER
6149     , p8_a20 out nocopy  DATE
6150     , p8_a21 out nocopy  DATE
6151     , p8_a22 out nocopy  NUMBER
6152     , p8_a23 out nocopy  NUMBER
6153     , p8_a24 out nocopy  DATE
6154     , p8_a25 out nocopy  DATE
6155     , p8_a26 out nocopy  DATE
6156     , p8_a27 out nocopy  NUMBER
6157     , p8_a28 out nocopy  NUMBER
6158     , p8_a29 out nocopy  NUMBER
6159     , p8_a30 out nocopy  NUMBER
6160     , p8_a31 out nocopy  NUMBER
6161     , p8_a32 out nocopy  NUMBER
6162     , p8_a33 out nocopy  NUMBER
6163     , p8_a34 out nocopy  DATE
6164     , p8_a35 out nocopy  VARCHAR2
6165     , p8_a36 out nocopy  DATE
6166     , p8_a37 out nocopy  VARCHAR2
6167     , p8_a38 out nocopy  NUMBER
6168     , p8_a39 out nocopy  NUMBER
6169     , p8_a40 out nocopy  NUMBER
6170     , p8_a41 out nocopy  VARCHAR2
6171     , p8_a42 out nocopy  DATE
6172     , p8_a43 out nocopy  NUMBER
6173     , p8_a44 out nocopy  NUMBER
6174     , p8_a45 out nocopy  DATE
6175     , p8_a46 out nocopy  NUMBER
6176     , p8_a47 out nocopy  DATE
6177     , p8_a48 out nocopy  DATE
6178     , p8_a49 out nocopy  DATE
6179     , p8_a50 out nocopy  NUMBER
6180     , p8_a51 out nocopy  NUMBER
6181     , p8_a52 out nocopy  VARCHAR2
6182     , p8_a53 out nocopy  NUMBER
6183     , p8_a54 out nocopy  NUMBER
6184     , p8_a55 out nocopy  VARCHAR2
6185     , p8_a56 out nocopy  VARCHAR2
6186     , p8_a57 out nocopy  NUMBER
6187     , p8_a58 out nocopy  DATE
6188     , p8_a59 out nocopy  NUMBER
6189     , p8_a60 out nocopy  VARCHAR2
6190     , p8_a61 out nocopy  VARCHAR2
6191     , p8_a62 out nocopy  VARCHAR2
6192     , p8_a63 out nocopy  VARCHAR2
6193     , p8_a64 out nocopy  VARCHAR2
6194     , p8_a65 out nocopy  VARCHAR2
6195     , p8_a66 out nocopy  VARCHAR2
6196     , p8_a67 out nocopy  VARCHAR2
6197     , p8_a68 out nocopy  VARCHAR2
6198     , p8_a69 out nocopy  VARCHAR2
6199     , p8_a70 out nocopy  VARCHAR2
6200     , p8_a71 out nocopy  VARCHAR2
6201     , p8_a72 out nocopy  VARCHAR2
6202     , p8_a73 out nocopy  VARCHAR2
6203     , p8_a74 out nocopy  VARCHAR2
6204     , p8_a75 out nocopy  VARCHAR2
6205     , p8_a76 out nocopy  NUMBER
6206     , p8_a77 out nocopy  NUMBER
6207     , p8_a78 out nocopy  NUMBER
6208     , p8_a79 out nocopy  DATE
6209     , p8_a80 out nocopy  NUMBER
6210     , p8_a81 out nocopy  DATE
6211     , p8_a82 out nocopy  NUMBER
6212     , p8_a83 out nocopy  DATE
6213     , p8_a84 out nocopy  DATE
6214     , p8_a85 out nocopy  DATE
6215     , p8_a86 out nocopy  DATE
6216     , p8_a87 out nocopy  NUMBER
6217     , p8_a88 out nocopy  NUMBER
6218     , p8_a89 out nocopy  NUMBER
6219     , p8_a90 out nocopy  VARCHAR2
6220     , p8_a91 out nocopy  NUMBER
6221     , p8_a92 out nocopy  VARCHAR2
6222     , p8_a93 out nocopy  NUMBER
6223     , p8_a94 out nocopy  NUMBER
6224     , p8_a95 out nocopy  DATE
6225     , p8_a96 out nocopy  VARCHAR2
6226     , p8_a97 out nocopy  VARCHAR2
6227     , p8_a98 out nocopy  NUMBER
6228     , p5_a0  NUMBER := 0-1962.0724
6229     , p5_a1  NUMBER := 0-1962.0724
6230     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
6231     , p5_a3  NUMBER := 0-1962.0724
6232     , p5_a4  NUMBER := 0-1962.0724
6233     , p5_a5  NUMBER := 0-1962.0724
6234     , p5_a6  NUMBER := 0-1962.0724
6235     , p5_a7  NUMBER := 0-1962.0724
6236     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
6237     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
6238     , p5_a10  NUMBER := 0-1962.0724
6239     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
6240     , p5_a12  NUMBER := 0-1962.0724
6241     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
6242     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
6243     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
6244     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
6245     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
6246     , p5_a18  NUMBER := 0-1962.0724
6247     , p5_a19  NUMBER := 0-1962.0724
6248     , p5_a20  NUMBER := 0-1962.0724
6249     , p5_a21  NUMBER := 0-1962.0724
6250     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
6251     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
6252     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
6253     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
6254     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
6255     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
6256     , p5_a28  DATE := fnd_api.g_miss_date
6257     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
6258     , p5_a30  DATE := fnd_api.g_miss_date
6259     , p5_a31  DATE := fnd_api.g_miss_date
6260     , p5_a32  DATE := fnd_api.g_miss_date
6261     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
6262     , p5_a34  NUMBER := 0-1962.0724
6263     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
6264     , p5_a36  NUMBER := 0-1962.0724
6265     , p5_a37  VARCHAR2 := fnd_api.g_miss_char
6266     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
6267     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
6268     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
6269     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
6270     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
6271     , p5_a43  VARCHAR2 := fnd_api.g_miss_char
6272     , p5_a44  VARCHAR2 := fnd_api.g_miss_char
6273     , p5_a45  VARCHAR2 := fnd_api.g_miss_char
6274     , p5_a46  VARCHAR2 := fnd_api.g_miss_char
6275     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
6276     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
6277     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
6278     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
6279     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
6280     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
6281     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
6282     , p5_a54  NUMBER := 0-1962.0724
6283     , p5_a55  DATE := fnd_api.g_miss_date
6284     , p5_a56  NUMBER := 0-1962.0724
6285     , p5_a57  DATE := fnd_api.g_miss_date
6286     , p5_a58  VARCHAR2 := fnd_api.g_miss_char
6287     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
6288     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
6289     , p5_a61  NUMBER := 0-1962.0724
6290     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
6291     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
6292     , p5_a64  VARCHAR2 := fnd_api.g_miss_char
6293     , p5_a65  VARCHAR2 := fnd_api.g_miss_char
6294     , p5_a66  VARCHAR2 := fnd_api.g_miss_char
6295     , p5_a67  NUMBER := 0-1962.0724
6296     , p5_a68  NUMBER := 0-1962.0724
6297     , p5_a69  NUMBER := 0-1962.0724
6298     , p5_a70  DATE := fnd_api.g_miss_date
6299     , p5_a71  NUMBER := 0-1962.0724
6300     , p5_a72  DATE := fnd_api.g_miss_date
6301     , p5_a73  NUMBER := 0-1962.0724
6302     , p5_a74  NUMBER := 0-1962.0724
6303     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
6304     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
6305     , p5_a77  NUMBER := 0-1962.0724
6306     , p5_a78  NUMBER := 0-1962.0724
6307     , p5_a79  VARCHAR2 := fnd_api.g_miss_char
6308     , p5_a80  VARCHAR2 := fnd_api.g_miss_char
6309     , p5_a81  NUMBER := 0-1962.0724
6310     , p5_a82  VARCHAR2 := fnd_api.g_miss_char
6311     , p5_a83  NUMBER := 0-1962.0724
6312     , p5_a84  NUMBER := 0-1962.0724
6313     , p5_a85  NUMBER := 0-1962.0724
6314     , p5_a86  NUMBER := 0-1962.0724
6315     , p5_a87  VARCHAR2 := fnd_api.g_miss_char
6316     , p5_a88  NUMBER := 0-1962.0724
6317     , p5_a89  NUMBER := 0-1962.0724
6318     , p6_a0  NUMBER := 0-1962.0724
6319     , p6_a1  NUMBER := 0-1962.0724
6320     , p6_a2  NUMBER := 0-1962.0724
6321     , p6_a3  NUMBER := 0-1962.0724
6322     , p6_a4  VARCHAR2 := fnd_api.g_miss_char
6323     , p6_a5  VARCHAR2 := fnd_api.g_miss_char
6324     , p6_a6  VARCHAR2 := fnd_api.g_miss_char
6325     , p6_a7  NUMBER := 0-1962.0724
6326     , p6_a8  NUMBER := 0-1962.0724
6327     , p6_a9  DATE := fnd_api.g_miss_date
6328     , p6_a10  NUMBER := 0-1962.0724
6329     , p6_a11  NUMBER := 0-1962.0724
6330     , p6_a12  NUMBER := 0-1962.0724
6331     , p6_a13  NUMBER := 0-1962.0724
6332     , p6_a14  NUMBER := 0-1962.0724
6333     , p6_a15  NUMBER := 0-1962.0724
6334     , p6_a16  NUMBER := 0-1962.0724
6335     , p6_a17  NUMBER := 0-1962.0724
6336     , p6_a18  NUMBER := 0-1962.0724
6337     , p6_a19  NUMBER := 0-1962.0724
6338     , p6_a20  DATE := fnd_api.g_miss_date
6339     , p6_a21  DATE := fnd_api.g_miss_date
6340     , p6_a22  NUMBER := 0-1962.0724
6341     , p6_a23  NUMBER := 0-1962.0724
6342     , p6_a24  DATE := fnd_api.g_miss_date
6343     , p6_a25  DATE := fnd_api.g_miss_date
6344     , p6_a26  DATE := fnd_api.g_miss_date
6345     , p6_a27  NUMBER := 0-1962.0724
6346     , p6_a28  NUMBER := 0-1962.0724
6347     , p6_a29  NUMBER := 0-1962.0724
6348     , p6_a30  NUMBER := 0-1962.0724
6349     , p6_a31  NUMBER := 0-1962.0724
6350     , p6_a32  NUMBER := 0-1962.0724
6351     , p6_a33  NUMBER := 0-1962.0724
6352     , p6_a34  DATE := fnd_api.g_miss_date
6353     , p6_a35  VARCHAR2 := fnd_api.g_miss_char
6354     , p6_a36  DATE := fnd_api.g_miss_date
6355     , p6_a37  VARCHAR2 := fnd_api.g_miss_char
6356     , p6_a38  NUMBER := 0-1962.0724
6357     , p6_a39  NUMBER := 0-1962.0724
6358     , p6_a40  NUMBER := 0-1962.0724
6359     , p6_a41  VARCHAR2 := fnd_api.g_miss_char
6360     , p6_a42  DATE := fnd_api.g_miss_date
6361     , p6_a43  NUMBER := 0-1962.0724
6362     , p6_a44  NUMBER := 0-1962.0724
6363     , p6_a45  DATE := fnd_api.g_miss_date
6364     , p6_a46  NUMBER := 0-1962.0724
6365     , p6_a47  DATE := fnd_api.g_miss_date
6366     , p6_a48  DATE := fnd_api.g_miss_date
6367     , p6_a49  DATE := fnd_api.g_miss_date
6368     , p6_a50  NUMBER := 0-1962.0724
6369     , p6_a51  NUMBER := 0-1962.0724
6370     , p6_a52  VARCHAR2 := fnd_api.g_miss_char
6371     , p6_a53  NUMBER := 0-1962.0724
6372     , p6_a54  NUMBER := 0-1962.0724
6373     , p6_a55  VARCHAR2 := fnd_api.g_miss_char
6374     , p6_a56  VARCHAR2 := fnd_api.g_miss_char
6375     , p6_a57  NUMBER := 0-1962.0724
6376     , p6_a58  DATE := fnd_api.g_miss_date
6377     , p6_a59  NUMBER := 0-1962.0724
6378     , p6_a60  VARCHAR2 := fnd_api.g_miss_char
6379     , p6_a61  VARCHAR2 := fnd_api.g_miss_char
6380     , p6_a62  VARCHAR2 := fnd_api.g_miss_char
6381     , p6_a63  VARCHAR2 := fnd_api.g_miss_char
6382     , p6_a64  VARCHAR2 := fnd_api.g_miss_char
6383     , p6_a65  VARCHAR2 := fnd_api.g_miss_char
6384     , p6_a66  VARCHAR2 := fnd_api.g_miss_char
6385     , p6_a67  VARCHAR2 := fnd_api.g_miss_char
6386     , p6_a68  VARCHAR2 := fnd_api.g_miss_char
6387     , p6_a69  VARCHAR2 := fnd_api.g_miss_char
6388     , p6_a70  VARCHAR2 := fnd_api.g_miss_char
6389     , p6_a71  VARCHAR2 := fnd_api.g_miss_char
6390     , p6_a72  VARCHAR2 := fnd_api.g_miss_char
6391     , p6_a73  VARCHAR2 := fnd_api.g_miss_char
6392     , p6_a74  VARCHAR2 := fnd_api.g_miss_char
6393     , p6_a75  VARCHAR2 := fnd_api.g_miss_char
6394     , p6_a76  NUMBER := 0-1962.0724
6395     , p6_a77  NUMBER := 0-1962.0724
6396     , p6_a78  NUMBER := 0-1962.0724
6397     , p6_a79  DATE := fnd_api.g_miss_date
6398     , p6_a80  NUMBER := 0-1962.0724
6399     , p6_a81  DATE := fnd_api.g_miss_date
6400     , p6_a82  NUMBER := 0-1962.0724
6401     , p6_a83  DATE := fnd_api.g_miss_date
6402     , p6_a84  DATE := fnd_api.g_miss_date
6403     , p6_a85  DATE := fnd_api.g_miss_date
6404     , p6_a86  DATE := fnd_api.g_miss_date
6405     , p6_a87  NUMBER := 0-1962.0724
6406     , p6_a88  NUMBER := 0-1962.0724
6407     , p6_a89  NUMBER := 0-1962.0724
6408     , p6_a90  VARCHAR2 := fnd_api.g_miss_char
6409     , p6_a91  NUMBER := 0-1962.0724
6410     , p6_a92  VARCHAR2 := fnd_api.g_miss_char
6411     , p6_a93  NUMBER := 0-1962.0724
6412     , p6_a94  NUMBER := 0-1962.0724
6413     , p6_a95  DATE := fnd_api.g_miss_date
6414     , p6_a96  VARCHAR2 := fnd_api.g_miss_char
6415     , p6_a97  VARCHAR2 := fnd_api.g_miss_char
6416     , p6_a98  NUMBER := 0-1962.0724
6417   )
6418 
6419   as
6420     ddp_clev_rec okl_okc_migration_pvt.clev_rec_type;
6421     ddp_klev_rec okl_contract_pvt.klev_rec_type;
6422     ddx_clev_rec okl_okc_migration_pvt.clev_rec_type;
6423     ddx_klev_rec okl_contract_pvt.klev_rec_type;
6424     ddindx binary_integer; indx binary_integer;
6425   begin
6426 
6427     -- copy data to the local IN or IN-OUT args, if any
6428 
6429 
6430 
6431 
6432 
6433     ddp_clev_rec.id := rosetta_g_miss_num_map(p5_a0);
6434     ddp_clev_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
6435     ddp_clev_rec.sfwt_flag := p5_a2;
6436     ddp_clev_rec.chr_id := rosetta_g_miss_num_map(p5_a3);
6437     ddp_clev_rec.cle_id := rosetta_g_miss_num_map(p5_a4);
6438     ddp_clev_rec.cle_id_renewed := rosetta_g_miss_num_map(p5_a5);
6439     ddp_clev_rec.cle_id_renewed_to := rosetta_g_miss_num_map(p5_a6);
6440     ddp_clev_rec.lse_id := rosetta_g_miss_num_map(p5_a7);
6441     ddp_clev_rec.line_number := p5_a8;
6442     ddp_clev_rec.sts_code := p5_a9;
6443     ddp_clev_rec.display_sequence := rosetta_g_miss_num_map(p5_a10);
6444     ddp_clev_rec.trn_code := p5_a11;
6445     ddp_clev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a12);
6446     ddp_clev_rec.comments := p5_a13;
6447     ddp_clev_rec.item_description := p5_a14;
6448     ddp_clev_rec.oke_boe_description := p5_a15;
6449     ddp_clev_rec.cognomen := p5_a16;
6450     ddp_clev_rec.hidden_ind := p5_a17;
6451     ddp_clev_rec.price_unit := rosetta_g_miss_num_map(p5_a18);
6452     ddp_clev_rec.price_unit_percent := rosetta_g_miss_num_map(p5_a19);
6453     ddp_clev_rec.price_negotiated := rosetta_g_miss_num_map(p5_a20);
6454     ddp_clev_rec.price_negotiated_renewed := rosetta_g_miss_num_map(p5_a21);
6455     ddp_clev_rec.price_level_ind := p5_a22;
6456     ddp_clev_rec.invoice_line_level_ind := p5_a23;
6457     ddp_clev_rec.dpas_rating := p5_a24;
6458     ddp_clev_rec.block23text := p5_a25;
6459     ddp_clev_rec.exception_yn := p5_a26;
6460     ddp_clev_rec.template_used := p5_a27;
6461     ddp_clev_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a28);
6462     ddp_clev_rec.name := p5_a29;
6463     ddp_clev_rec.start_date := rosetta_g_miss_date_in_map(p5_a30);
6464     ddp_clev_rec.end_date := rosetta_g_miss_date_in_map(p5_a31);
6465     ddp_clev_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a32);
6466     ddp_clev_rec.upg_orig_system_ref := p5_a33;
6467     ddp_clev_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a34);
6468     ddp_clev_rec.orig_system_source_code := p5_a35;
6469     ddp_clev_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a36);
6470     ddp_clev_rec.orig_system_reference1 := p5_a37;
6471     ddp_clev_rec.attribute_category := p5_a38;
6472     ddp_clev_rec.attribute1 := p5_a39;
6473     ddp_clev_rec.attribute2 := p5_a40;
6474     ddp_clev_rec.attribute3 := p5_a41;
6475     ddp_clev_rec.attribute4 := p5_a42;
6476     ddp_clev_rec.attribute5 := p5_a43;
6477     ddp_clev_rec.attribute6 := p5_a44;
6478     ddp_clev_rec.attribute7 := p5_a45;
6479     ddp_clev_rec.attribute8 := p5_a46;
6480     ddp_clev_rec.attribute9 := p5_a47;
6481     ddp_clev_rec.attribute10 := p5_a48;
6482     ddp_clev_rec.attribute11 := p5_a49;
6483     ddp_clev_rec.attribute12 := p5_a50;
6484     ddp_clev_rec.attribute13 := p5_a51;
6485     ddp_clev_rec.attribute14 := p5_a52;
6486     ddp_clev_rec.attribute15 := p5_a53;
6487     ddp_clev_rec.created_by := rosetta_g_miss_num_map(p5_a54);
6488     ddp_clev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a55);
6489     ddp_clev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a56);
6490     ddp_clev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a57);
6491     ddp_clev_rec.price_type := p5_a58;
6492     ddp_clev_rec.currency_code := p5_a59;
6493     ddp_clev_rec.currency_code_renewed := p5_a60;
6494     ddp_clev_rec.last_update_login := rosetta_g_miss_num_map(p5_a61);
6495     ddp_clev_rec.old_sts_code := p5_a62;
6496     ddp_clev_rec.new_sts_code := p5_a63;
6497     ddp_clev_rec.old_ste_code := p5_a64;
6498     ddp_clev_rec.new_ste_code := p5_a65;
6499     ddp_clev_rec.call_action_asmblr := p5_a66;
6500     ddp_clev_rec.request_id := rosetta_g_miss_num_map(p5_a67);
6501     ddp_clev_rec.program_application_id := rosetta_g_miss_num_map(p5_a68);
6502     ddp_clev_rec.program_id := rosetta_g_miss_num_map(p5_a69);
6503     ddp_clev_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a70);
6504     ddp_clev_rec.price_list_id := rosetta_g_miss_num_map(p5_a71);
6505     ddp_clev_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a72);
6506     ddp_clev_rec.price_list_line_id := rosetta_g_miss_num_map(p5_a73);
6507     ddp_clev_rec.line_list_price := rosetta_g_miss_num_map(p5_a74);
6508     ddp_clev_rec.item_to_price_yn := p5_a75;
6509     ddp_clev_rec.price_basis_yn := p5_a76;
6510     ddp_clev_rec.config_header_id := rosetta_g_miss_num_map(p5_a77);
6511     ddp_clev_rec.config_revision_number := rosetta_g_miss_num_map(p5_a78);
6512     ddp_clev_rec.config_complete_yn := p5_a79;
6513     ddp_clev_rec.config_valid_yn := p5_a80;
6514     ddp_clev_rec.config_top_model_line_id := rosetta_g_miss_num_map(p5_a81);
6515     ddp_clev_rec.config_item_type := p5_a82;
6516     ddp_clev_rec.config_item_id := rosetta_g_miss_num_map(p5_a83);
6517     ddp_clev_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a84);
6518     ddp_clev_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a85);
6519     ddp_clev_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a86);
6520     ddp_clev_rec.line_renewal_type_code := p5_a87;
6521     ddp_clev_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a88);
6522     ddp_clev_rec.payment_term_id := rosetta_g_miss_num_map(p5_a89);
6523 
6524     ddp_klev_rec.id := rosetta_g_miss_num_map(p6_a0);
6525     ddp_klev_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
6526     ddp_klev_rec.kle_id := rosetta_g_miss_num_map(p6_a2);
6527     ddp_klev_rec.sty_id := rosetta_g_miss_num_map(p6_a3);
6528     ddp_klev_rec.prc_code := p6_a4;
6529     ddp_klev_rec.fcg_code := p6_a5;
6530     ddp_klev_rec.nty_code := p6_a6;
6531     ddp_klev_rec.estimated_oec := rosetta_g_miss_num_map(p6_a7);
6532     ddp_klev_rec.lao_amount := rosetta_g_miss_num_map(p6_a8);
6533     ddp_klev_rec.title_date := rosetta_g_miss_date_in_map(p6_a9);
6534     ddp_klev_rec.fee_charge := rosetta_g_miss_num_map(p6_a10);
6535     ddp_klev_rec.lrs_percent := rosetta_g_miss_num_map(p6_a11);
6536     ddp_klev_rec.initial_direct_cost := rosetta_g_miss_num_map(p6_a12);
6537     ddp_klev_rec.percent_stake := rosetta_g_miss_num_map(p6_a13);
6538     ddp_klev_rec.percent := rosetta_g_miss_num_map(p6_a14);
6539     ddp_klev_rec.evergreen_percent := rosetta_g_miss_num_map(p6_a15);
6540     ddp_klev_rec.amount_stake := rosetta_g_miss_num_map(p6_a16);
6541     ddp_klev_rec.occupancy := rosetta_g_miss_num_map(p6_a17);
6542     ddp_klev_rec.coverage := rosetta_g_miss_num_map(p6_a18);
6543     ddp_klev_rec.residual_percentage := rosetta_g_miss_num_map(p6_a19);
6544     ddp_klev_rec.date_last_inspection := rosetta_g_miss_date_in_map(p6_a20);
6545     ddp_klev_rec.date_sold := rosetta_g_miss_date_in_map(p6_a21);
6546     ddp_klev_rec.lrv_amount := rosetta_g_miss_num_map(p6_a22);
6547     ddp_klev_rec.capital_reduction := rosetta_g_miss_num_map(p6_a23);
6548     ddp_klev_rec.date_next_inspection_due := rosetta_g_miss_date_in_map(p6_a24);
6549     ddp_klev_rec.date_residual_last_review := rosetta_g_miss_date_in_map(p6_a25);
6550     ddp_klev_rec.date_last_reamortisation := rosetta_g_miss_date_in_map(p6_a26);
6551     ddp_klev_rec.vendor_advance_paid := rosetta_g_miss_num_map(p6_a27);
6552     ddp_klev_rec.weighted_average_life := rosetta_g_miss_num_map(p6_a28);
6553     ddp_klev_rec.tradein_amount := rosetta_g_miss_num_map(p6_a29);
6554     ddp_klev_rec.bond_equivalent_yield := rosetta_g_miss_num_map(p6_a30);
6555     ddp_klev_rec.termination_purchase_amount := rosetta_g_miss_num_map(p6_a31);
6556     ddp_klev_rec.refinance_amount := rosetta_g_miss_num_map(p6_a32);
6557     ddp_klev_rec.year_built := rosetta_g_miss_num_map(p6_a33);
6558     ddp_klev_rec.delivered_date := rosetta_g_miss_date_in_map(p6_a34);
6559     ddp_klev_rec.credit_tenant_yn := p6_a35;
6560     ddp_klev_rec.date_last_cleanup := rosetta_g_miss_date_in_map(p6_a36);
6561     ddp_klev_rec.year_of_manufacture := p6_a37;
6562     ddp_klev_rec.coverage_ratio := rosetta_g_miss_num_map(p6_a38);
6563     ddp_klev_rec.remarketed_amount := rosetta_g_miss_num_map(p6_a39);
6564     ddp_klev_rec.gross_square_footage := rosetta_g_miss_num_map(p6_a40);
6565     ddp_klev_rec.prescribed_asset_yn := p6_a41;
6566     ddp_klev_rec.date_remarketed := rosetta_g_miss_date_in_map(p6_a42);
6567     ddp_klev_rec.net_rentable := rosetta_g_miss_num_map(p6_a43);
6568     ddp_klev_rec.remarket_margin := rosetta_g_miss_num_map(p6_a44);
6569     ddp_klev_rec.date_letter_acceptance := rosetta_g_miss_date_in_map(p6_a45);
6570     ddp_klev_rec.repurchased_amount := rosetta_g_miss_num_map(p6_a46);
6571     ddp_klev_rec.date_commitment_expiration := rosetta_g_miss_date_in_map(p6_a47);
6572     ddp_klev_rec.date_repurchased := rosetta_g_miss_date_in_map(p6_a48);
6573     ddp_klev_rec.date_appraisal := rosetta_g_miss_date_in_map(p6_a49);
6574     ddp_klev_rec.residual_value := rosetta_g_miss_num_map(p6_a50);
6575     ddp_klev_rec.appraisal_value := rosetta_g_miss_num_map(p6_a51);
6576     ddp_klev_rec.secured_deal_yn := p6_a52;
6577     ddp_klev_rec.gain_loss := rosetta_g_miss_num_map(p6_a53);
6578     ddp_klev_rec.floor_amount := rosetta_g_miss_num_map(p6_a54);
6579     ddp_klev_rec.re_lease_yn := p6_a55;
6580     ddp_klev_rec.previous_contract := p6_a56;
6581     ddp_klev_rec.tracked_residual := rosetta_g_miss_num_map(p6_a57);
6582     ddp_klev_rec.date_title_received := rosetta_g_miss_date_in_map(p6_a58);
6583     ddp_klev_rec.amount := rosetta_g_miss_num_map(p6_a59);
6584     ddp_klev_rec.attribute_category := p6_a60;
6585     ddp_klev_rec.attribute1 := p6_a61;
6586     ddp_klev_rec.attribute2 := p6_a62;
6587     ddp_klev_rec.attribute3 := p6_a63;
6588     ddp_klev_rec.attribute4 := p6_a64;
6589     ddp_klev_rec.attribute5 := p6_a65;
6590     ddp_klev_rec.attribute6 := p6_a66;
6591     ddp_klev_rec.attribute7 := p6_a67;
6592     ddp_klev_rec.attribute8 := p6_a68;
6593     ddp_klev_rec.attribute9 := p6_a69;
6594     ddp_klev_rec.attribute10 := p6_a70;
6595     ddp_klev_rec.attribute11 := p6_a71;
6596     ddp_klev_rec.attribute12 := p6_a72;
6597     ddp_klev_rec.attribute13 := p6_a73;
6598     ddp_klev_rec.attribute14 := p6_a74;
6599     ddp_klev_rec.attribute15 := p6_a75;
6600     ddp_klev_rec.sty_id_for := rosetta_g_miss_num_map(p6_a76);
6601     ddp_klev_rec.clg_id := rosetta_g_miss_num_map(p6_a77);
6602     ddp_klev_rec.created_by := rosetta_g_miss_num_map(p6_a78);
6603     ddp_klev_rec.creation_date := rosetta_g_miss_date_in_map(p6_a79);
6604     ddp_klev_rec.last_updated_by := rosetta_g_miss_num_map(p6_a80);
6605     ddp_klev_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a81);
6606     ddp_klev_rec.last_update_login := rosetta_g_miss_num_map(p6_a82);
6607     ddp_klev_rec.date_funding := rosetta_g_miss_date_in_map(p6_a83);
6608     ddp_klev_rec.date_funding_required := rosetta_g_miss_date_in_map(p6_a84);
6609     ddp_klev_rec.date_accepted := rosetta_g_miss_date_in_map(p6_a85);
6610     ddp_klev_rec.date_delivery_expected := rosetta_g_miss_date_in_map(p6_a86);
6611     ddp_klev_rec.oec := rosetta_g_miss_num_map(p6_a87);
6612     ddp_klev_rec.capital_amount := rosetta_g_miss_num_map(p6_a88);
6613     ddp_klev_rec.residual_grnty_amount := rosetta_g_miss_num_map(p6_a89);
6614     ddp_klev_rec.residual_code := p6_a90;
6615     ddp_klev_rec.rvi_premium := rosetta_g_miss_num_map(p6_a91);
6616     ddp_klev_rec.credit_nature := p6_a92;
6617     ddp_klev_rec.capitalized_interest := rosetta_g_miss_num_map(p6_a93);
6618     ddp_klev_rec.capital_reduction_percent := rosetta_g_miss_num_map(p6_a94);
6619     ddp_klev_rec.date_pay_investor_start := rosetta_g_miss_date_in_map(p6_a95);
6620     ddp_klev_rec.pay_investor_frequency := p6_a96;
6621     ddp_klev_rec.pay_investor_event := p6_a97;
6622     ddp_klev_rec.pay_investor_remittance_days := rosetta_g_miss_num_map(p6_a98);
6623 
6624 
6625 
6626     -- here's the delegated call to the old PL/SQL routine
6627     okl_contract_pvt.create_contract_line(p_api_version,
6628       p_init_msg_list,
6629       x_return_status,
6630       x_msg_count,
6631       x_msg_data,
6632       ddp_clev_rec,
6633       ddp_klev_rec,
6634       ddx_clev_rec,
6635       ddx_klev_rec);
6636 
6637     -- copy data back from the local variables to OUT or IN-OUT args, if any
6638 
6639 
6640 
6641 
6642 
6643 
6644 
6645     p7_a0 := rosetta_g_miss_num_map(ddx_clev_rec.id);
6646     p7_a1 := rosetta_g_miss_num_map(ddx_clev_rec.object_version_number);
6647     p7_a2 := ddx_clev_rec.sfwt_flag;
6648     p7_a3 := rosetta_g_miss_num_map(ddx_clev_rec.chr_id);
6649     p7_a4 := rosetta_g_miss_num_map(ddx_clev_rec.cle_id);
6650     p7_a5 := rosetta_g_miss_num_map(ddx_clev_rec.cle_id_renewed);
6651     p7_a6 := rosetta_g_miss_num_map(ddx_clev_rec.cle_id_renewed_to);
6652     p7_a7 := rosetta_g_miss_num_map(ddx_clev_rec.lse_id);
6653     p7_a8 := ddx_clev_rec.line_number;
6654     p7_a9 := ddx_clev_rec.sts_code;
6655     p7_a10 := rosetta_g_miss_num_map(ddx_clev_rec.display_sequence);
6656     p7_a11 := ddx_clev_rec.trn_code;
6657     p7_a12 := rosetta_g_miss_num_map(ddx_clev_rec.dnz_chr_id);
6658     p7_a13 := ddx_clev_rec.comments;
6659     p7_a14 := ddx_clev_rec.item_description;
6660     p7_a15 := ddx_clev_rec.oke_boe_description;
6661     p7_a16 := ddx_clev_rec.cognomen;
6662     p7_a17 := ddx_clev_rec.hidden_ind;
6663     p7_a18 := rosetta_g_miss_num_map(ddx_clev_rec.price_unit);
6664     p7_a19 := rosetta_g_miss_num_map(ddx_clev_rec.price_unit_percent);
6665     p7_a20 := rosetta_g_miss_num_map(ddx_clev_rec.price_negotiated);
6666     p7_a21 := rosetta_g_miss_num_map(ddx_clev_rec.price_negotiated_renewed);
6667     p7_a22 := ddx_clev_rec.price_level_ind;
6668     p7_a23 := ddx_clev_rec.invoice_line_level_ind;
6669     p7_a24 := ddx_clev_rec.dpas_rating;
6670     p7_a25 := ddx_clev_rec.block23text;
6671     p7_a26 := ddx_clev_rec.exception_yn;
6672     p7_a27 := ddx_clev_rec.template_used;
6673     p7_a28 := ddx_clev_rec.date_terminated;
6674     p7_a29 := ddx_clev_rec.name;
6675     p7_a30 := ddx_clev_rec.start_date;
6676     p7_a31 := ddx_clev_rec.end_date;
6677     p7_a32 := ddx_clev_rec.date_renewed;
6678     p7_a33 := ddx_clev_rec.upg_orig_system_ref;
6679     p7_a34 := rosetta_g_miss_num_map(ddx_clev_rec.upg_orig_system_ref_id);
6680     p7_a35 := ddx_clev_rec.orig_system_source_code;
6681     p7_a36 := rosetta_g_miss_num_map(ddx_clev_rec.orig_system_id1);
6682     p7_a37 := ddx_clev_rec.orig_system_reference1;
6683     p7_a38 := ddx_clev_rec.attribute_category;
6684     p7_a39 := ddx_clev_rec.attribute1;
6685     p7_a40 := ddx_clev_rec.attribute2;
6686     p7_a41 := ddx_clev_rec.attribute3;
6687     p7_a42 := ddx_clev_rec.attribute4;
6688     p7_a43 := ddx_clev_rec.attribute5;
6689     p7_a44 := ddx_clev_rec.attribute6;
6690     p7_a45 := ddx_clev_rec.attribute7;
6691     p7_a46 := ddx_clev_rec.attribute8;
6692     p7_a47 := ddx_clev_rec.attribute9;
6693     p7_a48 := ddx_clev_rec.attribute10;
6694     p7_a49 := ddx_clev_rec.attribute11;
6695     p7_a50 := ddx_clev_rec.attribute12;
6696     p7_a51 := ddx_clev_rec.attribute13;
6697     p7_a52 := ddx_clev_rec.attribute14;
6698     p7_a53 := ddx_clev_rec.attribute15;
6699     p7_a54 := rosetta_g_miss_num_map(ddx_clev_rec.created_by);
6700     p7_a55 := ddx_clev_rec.creation_date;
6701     p7_a56 := rosetta_g_miss_num_map(ddx_clev_rec.last_updated_by);
6702     p7_a57 := ddx_clev_rec.last_update_date;
6703     p7_a58 := ddx_clev_rec.price_type;
6704     p7_a59 := ddx_clev_rec.currency_code;
6705     p7_a60 := ddx_clev_rec.currency_code_renewed;
6706     p7_a61 := rosetta_g_miss_num_map(ddx_clev_rec.last_update_login);
6707     p7_a62 := ddx_clev_rec.old_sts_code;
6708     p7_a63 := ddx_clev_rec.new_sts_code;
6709     p7_a64 := ddx_clev_rec.old_ste_code;
6710     p7_a65 := ddx_clev_rec.new_ste_code;
6711     p7_a66 := ddx_clev_rec.call_action_asmblr;
6712     p7_a67 := rosetta_g_miss_num_map(ddx_clev_rec.request_id);
6713     p7_a68 := rosetta_g_miss_num_map(ddx_clev_rec.program_application_id);
6714     p7_a69 := rosetta_g_miss_num_map(ddx_clev_rec.program_id);
6715     p7_a70 := ddx_clev_rec.program_update_date;
6716     p7_a71 := rosetta_g_miss_num_map(ddx_clev_rec.price_list_id);
6717     p7_a72 := ddx_clev_rec.pricing_date;
6718     p7_a73 := rosetta_g_miss_num_map(ddx_clev_rec.price_list_line_id);
6719     p7_a74 := rosetta_g_miss_num_map(ddx_clev_rec.line_list_price);
6720     p7_a75 := ddx_clev_rec.item_to_price_yn;
6721     p7_a76 := ddx_clev_rec.price_basis_yn;
6722     p7_a77 := rosetta_g_miss_num_map(ddx_clev_rec.config_header_id);
6723     p7_a78 := rosetta_g_miss_num_map(ddx_clev_rec.config_revision_number);
6724     p7_a79 := ddx_clev_rec.config_complete_yn;
6725     p7_a80 := ddx_clev_rec.config_valid_yn;
6726     p7_a81 := rosetta_g_miss_num_map(ddx_clev_rec.config_top_model_line_id);
6727     p7_a82 := ddx_clev_rec.config_item_type;
6728     p7_a83 := rosetta_g_miss_num_map(ddx_clev_rec.config_item_id);
6729     p7_a84 := rosetta_g_miss_num_map(ddx_clev_rec.cust_acct_id);
6730     p7_a85 := rosetta_g_miss_num_map(ddx_clev_rec.bill_to_site_use_id);
6731     p7_a86 := rosetta_g_miss_num_map(ddx_clev_rec.inv_rule_id);
6732     p7_a87 := ddx_clev_rec.line_renewal_type_code;
6733     p7_a88 := rosetta_g_miss_num_map(ddx_clev_rec.ship_to_site_use_id);
6734     p7_a89 := rosetta_g_miss_num_map(ddx_clev_rec.payment_term_id);
6735 
6736     p8_a0 := rosetta_g_miss_num_map(ddx_klev_rec.id);
6737     p8_a1 := rosetta_g_miss_num_map(ddx_klev_rec.object_version_number);
6738     p8_a2 := rosetta_g_miss_num_map(ddx_klev_rec.kle_id);
6739     p8_a3 := rosetta_g_miss_num_map(ddx_klev_rec.sty_id);
6740     p8_a4 := ddx_klev_rec.prc_code;
6741     p8_a5 := ddx_klev_rec.fcg_code;
6742     p8_a6 := ddx_klev_rec.nty_code;
6743     p8_a7 := rosetta_g_miss_num_map(ddx_klev_rec.estimated_oec);
6744     p8_a8 := rosetta_g_miss_num_map(ddx_klev_rec.lao_amount);
6745     p8_a9 := ddx_klev_rec.title_date;
6746     p8_a10 := rosetta_g_miss_num_map(ddx_klev_rec.fee_charge);
6747     p8_a11 := rosetta_g_miss_num_map(ddx_klev_rec.lrs_percent);
6748     p8_a12 := rosetta_g_miss_num_map(ddx_klev_rec.initial_direct_cost);
6749     p8_a13 := rosetta_g_miss_num_map(ddx_klev_rec.percent_stake);
6750     p8_a14 := rosetta_g_miss_num_map(ddx_klev_rec.percent);
6751     p8_a15 := rosetta_g_miss_num_map(ddx_klev_rec.evergreen_percent);
6752     p8_a16 := rosetta_g_miss_num_map(ddx_klev_rec.amount_stake);
6753     p8_a17 := rosetta_g_miss_num_map(ddx_klev_rec.occupancy);
6754     p8_a18 := rosetta_g_miss_num_map(ddx_klev_rec.coverage);
6755     p8_a19 := rosetta_g_miss_num_map(ddx_klev_rec.residual_percentage);
6756     p8_a20 := ddx_klev_rec.date_last_inspection;
6757     p8_a21 := ddx_klev_rec.date_sold;
6758     p8_a22 := rosetta_g_miss_num_map(ddx_klev_rec.lrv_amount);
6759     p8_a23 := rosetta_g_miss_num_map(ddx_klev_rec.capital_reduction);
6760     p8_a24 := ddx_klev_rec.date_next_inspection_due;
6761     p8_a25 := ddx_klev_rec.date_residual_last_review;
6762     p8_a26 := ddx_klev_rec.date_last_reamortisation;
6763     p8_a27 := rosetta_g_miss_num_map(ddx_klev_rec.vendor_advance_paid);
6764     p8_a28 := rosetta_g_miss_num_map(ddx_klev_rec.weighted_average_life);
6765     p8_a29 := rosetta_g_miss_num_map(ddx_klev_rec.tradein_amount);
6766     p8_a30 := rosetta_g_miss_num_map(ddx_klev_rec.bond_equivalent_yield);
6767     p8_a31 := rosetta_g_miss_num_map(ddx_klev_rec.termination_purchase_amount);
6768     p8_a32 := rosetta_g_miss_num_map(ddx_klev_rec.refinance_amount);
6769     p8_a33 := rosetta_g_miss_num_map(ddx_klev_rec.year_built);
6770     p8_a34 := ddx_klev_rec.delivered_date;
6771     p8_a35 := ddx_klev_rec.credit_tenant_yn;
6772     p8_a36 := ddx_klev_rec.date_last_cleanup;
6773     p8_a37 := ddx_klev_rec.year_of_manufacture;
6774     p8_a38 := rosetta_g_miss_num_map(ddx_klev_rec.coverage_ratio);
6775     p8_a39 := rosetta_g_miss_num_map(ddx_klev_rec.remarketed_amount);
6776     p8_a40 := rosetta_g_miss_num_map(ddx_klev_rec.gross_square_footage);
6777     p8_a41 := ddx_klev_rec.prescribed_asset_yn;
6778     p8_a42 := ddx_klev_rec.date_remarketed;
6779     p8_a43 := rosetta_g_miss_num_map(ddx_klev_rec.net_rentable);
6780     p8_a44 := rosetta_g_miss_num_map(ddx_klev_rec.remarket_margin);
6781     p8_a45 := ddx_klev_rec.date_letter_acceptance;
6782     p8_a46 := rosetta_g_miss_num_map(ddx_klev_rec.repurchased_amount);
6783     p8_a47 := ddx_klev_rec.date_commitment_expiration;
6784     p8_a48 := ddx_klev_rec.date_repurchased;
6785     p8_a49 := ddx_klev_rec.date_appraisal;
6786     p8_a50 := rosetta_g_miss_num_map(ddx_klev_rec.residual_value);
6787     p8_a51 := rosetta_g_miss_num_map(ddx_klev_rec.appraisal_value);
6788     p8_a52 := ddx_klev_rec.secured_deal_yn;
6789     p8_a53 := rosetta_g_miss_num_map(ddx_klev_rec.gain_loss);
6790     p8_a54 := rosetta_g_miss_num_map(ddx_klev_rec.floor_amount);
6791     p8_a55 := ddx_klev_rec.re_lease_yn;
6792     p8_a56 := ddx_klev_rec.previous_contract;
6793     p8_a57 := rosetta_g_miss_num_map(ddx_klev_rec.tracked_residual);
6794     p8_a58 := ddx_klev_rec.date_title_received;
6795     p8_a59 := rosetta_g_miss_num_map(ddx_klev_rec.amount);
6796     p8_a60 := ddx_klev_rec.attribute_category;
6797     p8_a61 := ddx_klev_rec.attribute1;
6798     p8_a62 := ddx_klev_rec.attribute2;
6799     p8_a63 := ddx_klev_rec.attribute3;
6800     p8_a64 := ddx_klev_rec.attribute4;
6801     p8_a65 := ddx_klev_rec.attribute5;
6802     p8_a66 := ddx_klev_rec.attribute6;
6803     p8_a67 := ddx_klev_rec.attribute7;
6804     p8_a68 := ddx_klev_rec.attribute8;
6805     p8_a69 := ddx_klev_rec.attribute9;
6806     p8_a70 := ddx_klev_rec.attribute10;
6807     p8_a71 := ddx_klev_rec.attribute11;
6808     p8_a72 := ddx_klev_rec.attribute12;
6809     p8_a73 := ddx_klev_rec.attribute13;
6810     p8_a74 := ddx_klev_rec.attribute14;
6811     p8_a75 := ddx_klev_rec.attribute15;
6812     p8_a76 := rosetta_g_miss_num_map(ddx_klev_rec.sty_id_for);
6813     p8_a77 := rosetta_g_miss_num_map(ddx_klev_rec.clg_id);
6814     p8_a78 := rosetta_g_miss_num_map(ddx_klev_rec.created_by);
6815     p8_a79 := ddx_klev_rec.creation_date;
6816     p8_a80 := rosetta_g_miss_num_map(ddx_klev_rec.last_updated_by);
6817     p8_a81 := ddx_klev_rec.last_update_date;
6818     p8_a82 := rosetta_g_miss_num_map(ddx_klev_rec.last_update_login);
6819     p8_a83 := ddx_klev_rec.date_funding;
6820     p8_a84 := ddx_klev_rec.date_funding_required;
6821     p8_a85 := ddx_klev_rec.date_accepted;
6822     p8_a86 := ddx_klev_rec.date_delivery_expected;
6823     p8_a87 := rosetta_g_miss_num_map(ddx_klev_rec.oec);
6824     p8_a88 := rosetta_g_miss_num_map(ddx_klev_rec.capital_amount);
6825     p8_a89 := rosetta_g_miss_num_map(ddx_klev_rec.residual_grnty_amount);
6826     p8_a90 := ddx_klev_rec.residual_code;
6827     p8_a91 := rosetta_g_miss_num_map(ddx_klev_rec.rvi_premium);
6828     p8_a92 := ddx_klev_rec.credit_nature;
6829     p8_a93 := rosetta_g_miss_num_map(ddx_klev_rec.capitalized_interest);
6830     p8_a94 := rosetta_g_miss_num_map(ddx_klev_rec.capital_reduction_percent);
6831     p8_a95 := ddx_klev_rec.date_pay_investor_start;
6832     p8_a96 := ddx_klev_rec.pay_investor_frequency;
6833     p8_a97 := ddx_klev_rec.pay_investor_event;
6834     p8_a98 := rosetta_g_miss_num_map(ddx_klev_rec.pay_investor_remittance_days);
6835   end;
6836 
6837   procedure create_contract_line(p_api_version  NUMBER
6838     , p_init_msg_list  VARCHAR2
6839     , x_return_status out nocopy  VARCHAR2
6840     , x_msg_count out nocopy  NUMBER
6841     , x_msg_data out nocopy  VARCHAR2
6842     , p5_a0 JTF_NUMBER_TABLE
6843     , p5_a1 JTF_NUMBER_TABLE
6844     , p5_a2 JTF_VARCHAR2_TABLE_100
6845     , p5_a3 JTF_NUMBER_TABLE
6846     , p5_a4 JTF_NUMBER_TABLE
6847     , p5_a5 JTF_NUMBER_TABLE
6848     , p5_a6 JTF_NUMBER_TABLE
6849     , p5_a7 JTF_NUMBER_TABLE
6850     , p5_a8 JTF_VARCHAR2_TABLE_200
6851     , p5_a9 JTF_VARCHAR2_TABLE_100
6852     , p5_a10 JTF_NUMBER_TABLE
6853     , p5_a11 JTF_VARCHAR2_TABLE_100
6854     , p5_a12 JTF_NUMBER_TABLE
6855     , p5_a13 JTF_VARCHAR2_TABLE_2000
6856     , p5_a14 JTF_VARCHAR2_TABLE_2000
6857     , p5_a15 JTF_VARCHAR2_TABLE_2000
6858     , p5_a16 JTF_VARCHAR2_TABLE_300
6859     , p5_a17 JTF_VARCHAR2_TABLE_100
6860     , p5_a18 JTF_NUMBER_TABLE
6861     , p5_a19 JTF_NUMBER_TABLE
6862     , p5_a20 JTF_NUMBER_TABLE
6863     , p5_a21 JTF_NUMBER_TABLE
6864     , p5_a22 JTF_VARCHAR2_TABLE_100
6865     , p5_a23 JTF_VARCHAR2_TABLE_100
6866     , p5_a24 JTF_VARCHAR2_TABLE_100
6867     , p5_a25 JTF_VARCHAR2_TABLE_2000
6868     , p5_a26 JTF_VARCHAR2_TABLE_100
6869     , p5_a27 JTF_VARCHAR2_TABLE_200
6870     , p5_a28 JTF_DATE_TABLE
6871     , p5_a29 JTF_VARCHAR2_TABLE_200
6872     , p5_a30 JTF_DATE_TABLE
6873     , p5_a31 JTF_DATE_TABLE
6874     , p5_a32 JTF_DATE_TABLE
6875     , p5_a33 JTF_VARCHAR2_TABLE_100
6876     , p5_a34 JTF_NUMBER_TABLE
6877     , p5_a35 JTF_VARCHAR2_TABLE_100
6878     , p5_a36 JTF_NUMBER_TABLE
6879     , p5_a37 JTF_VARCHAR2_TABLE_100
6880     , p5_a38 JTF_VARCHAR2_TABLE_100
6881     , p5_a39 JTF_VARCHAR2_TABLE_500
6882     , p5_a40 JTF_VARCHAR2_TABLE_500
6883     , p5_a41 JTF_VARCHAR2_TABLE_500
6884     , p5_a42 JTF_VARCHAR2_TABLE_500
6885     , p5_a43 JTF_VARCHAR2_TABLE_500
6886     , p5_a44 JTF_VARCHAR2_TABLE_500
6887     , p5_a45 JTF_VARCHAR2_TABLE_500
6888     , p5_a46 JTF_VARCHAR2_TABLE_500
6889     , p5_a47 JTF_VARCHAR2_TABLE_500
6890     , p5_a48 JTF_VARCHAR2_TABLE_500
6891     , p5_a49 JTF_VARCHAR2_TABLE_500
6892     , p5_a50 JTF_VARCHAR2_TABLE_500
6893     , p5_a51 JTF_VARCHAR2_TABLE_500
6894     , p5_a52 JTF_VARCHAR2_TABLE_500
6895     , p5_a53 JTF_VARCHAR2_TABLE_500
6896     , p5_a54 JTF_NUMBER_TABLE
6897     , p5_a55 JTF_DATE_TABLE
6898     , p5_a56 JTF_NUMBER_TABLE
6899     , p5_a57 JTF_DATE_TABLE
6900     , p5_a58 JTF_VARCHAR2_TABLE_100
6901     , p5_a59 JTF_VARCHAR2_TABLE_100
6902     , p5_a60 JTF_VARCHAR2_TABLE_100
6903     , p5_a61 JTF_NUMBER_TABLE
6904     , p5_a62 JTF_VARCHAR2_TABLE_100
6905     , p5_a63 JTF_VARCHAR2_TABLE_100
6906     , p5_a64 JTF_VARCHAR2_TABLE_100
6907     , p5_a65 JTF_VARCHAR2_TABLE_100
6908     , p5_a66 JTF_VARCHAR2_TABLE_100
6909     , p5_a67 JTF_NUMBER_TABLE
6910     , p5_a68 JTF_NUMBER_TABLE
6911     , p5_a69 JTF_NUMBER_TABLE
6912     , p5_a70 JTF_DATE_TABLE
6913     , p5_a71 JTF_NUMBER_TABLE
6914     , p5_a72 JTF_DATE_TABLE
6915     , p5_a73 JTF_NUMBER_TABLE
6916     , p5_a74 JTF_NUMBER_TABLE
6917     , p5_a75 JTF_VARCHAR2_TABLE_100
6918     , p5_a76 JTF_VARCHAR2_TABLE_100
6919     , p5_a77 JTF_NUMBER_TABLE
6920     , p5_a78 JTF_NUMBER_TABLE
6921     , p5_a79 JTF_VARCHAR2_TABLE_100
6922     , p5_a80 JTF_VARCHAR2_TABLE_100
6923     , p5_a81 JTF_NUMBER_TABLE
6924     , p5_a82 JTF_VARCHAR2_TABLE_100
6925     , p5_a83 JTF_NUMBER_TABLE
6926     , p5_a84 JTF_NUMBER_TABLE
6927     , p5_a85 JTF_NUMBER_TABLE
6928     , p5_a86 JTF_NUMBER_TABLE
6929     , p5_a87 JTF_VARCHAR2_TABLE_100
6930     , p5_a88 JTF_NUMBER_TABLE
6931     , p5_a89 JTF_NUMBER_TABLE
6932     , p6_a0 JTF_NUMBER_TABLE
6933     , p6_a1 JTF_NUMBER_TABLE
6934     , p6_a2 JTF_NUMBER_TABLE
6935     , p6_a3 JTF_NUMBER_TABLE
6936     , p6_a4 JTF_VARCHAR2_TABLE_100
6937     , p6_a5 JTF_VARCHAR2_TABLE_100
6938     , p6_a6 JTF_VARCHAR2_TABLE_100
6939     , p6_a7 JTF_NUMBER_TABLE
6940     , p6_a8 JTF_NUMBER_TABLE
6941     , p6_a9 JTF_DATE_TABLE
6942     , p6_a10 JTF_NUMBER_TABLE
6943     , p6_a11 JTF_NUMBER_TABLE
6944     , p6_a12 JTF_NUMBER_TABLE
6945     , p6_a13 JTF_NUMBER_TABLE
6946     , p6_a14 JTF_NUMBER_TABLE
6947     , p6_a15 JTF_NUMBER_TABLE
6948     , p6_a16 JTF_NUMBER_TABLE
6949     , p6_a17 JTF_NUMBER_TABLE
6950     , p6_a18 JTF_NUMBER_TABLE
6951     , p6_a19 JTF_NUMBER_TABLE
6952     , p6_a20 JTF_DATE_TABLE
6953     , p6_a21 JTF_DATE_TABLE
6954     , p6_a22 JTF_NUMBER_TABLE
6955     , p6_a23 JTF_NUMBER_TABLE
6956     , p6_a24 JTF_DATE_TABLE
6957     , p6_a25 JTF_DATE_TABLE
6958     , p6_a26 JTF_DATE_TABLE
6959     , p6_a27 JTF_NUMBER_TABLE
6960     , p6_a28 JTF_NUMBER_TABLE
6961     , p6_a29 JTF_NUMBER_TABLE
6962     , p6_a30 JTF_NUMBER_TABLE
6963     , p6_a31 JTF_NUMBER_TABLE
6964     , p6_a32 JTF_NUMBER_TABLE
6965     , p6_a33 JTF_NUMBER_TABLE
6966     , p6_a34 JTF_DATE_TABLE
6967     , p6_a35 JTF_VARCHAR2_TABLE_100
6968     , p6_a36 JTF_DATE_TABLE
6969     , p6_a37 JTF_VARCHAR2_TABLE_300
6970     , p6_a38 JTF_NUMBER_TABLE
6971     , p6_a39 JTF_NUMBER_TABLE
6972     , p6_a40 JTF_NUMBER_TABLE
6973     , p6_a41 JTF_VARCHAR2_TABLE_100
6974     , p6_a42 JTF_DATE_TABLE
6975     , p6_a43 JTF_NUMBER_TABLE
6976     , p6_a44 JTF_NUMBER_TABLE
6977     , p6_a45 JTF_DATE_TABLE
6978     , p6_a46 JTF_NUMBER_TABLE
6979     , p6_a47 JTF_DATE_TABLE
6980     , p6_a48 JTF_DATE_TABLE
6981     , p6_a49 JTF_DATE_TABLE
6982     , p6_a50 JTF_NUMBER_TABLE
6983     , p6_a51 JTF_NUMBER_TABLE
6984     , p6_a52 JTF_VARCHAR2_TABLE_100
6985     , p6_a53 JTF_NUMBER_TABLE
6986     , p6_a54 JTF_NUMBER_TABLE
6987     , p6_a55 JTF_VARCHAR2_TABLE_100
6988     , p6_a56 JTF_VARCHAR2_TABLE_100
6989     , p6_a57 JTF_NUMBER_TABLE
6990     , p6_a58 JTF_DATE_TABLE
6991     , p6_a59 JTF_NUMBER_TABLE
6992     , p6_a60 JTF_VARCHAR2_TABLE_100
6993     , p6_a61 JTF_VARCHAR2_TABLE_500
6994     , p6_a62 JTF_VARCHAR2_TABLE_500
6995     , p6_a63 JTF_VARCHAR2_TABLE_500
6996     , p6_a64 JTF_VARCHAR2_TABLE_500
6997     , p6_a65 JTF_VARCHAR2_TABLE_500
6998     , p6_a66 JTF_VARCHAR2_TABLE_500
6999     , p6_a67 JTF_VARCHAR2_TABLE_500
7000     , p6_a68 JTF_VARCHAR2_TABLE_500
7001     , p6_a69 JTF_VARCHAR2_TABLE_500
7002     , p6_a70 JTF_VARCHAR2_TABLE_500
7003     , p6_a71 JTF_VARCHAR2_TABLE_500
7004     , p6_a72 JTF_VARCHAR2_TABLE_500
7005     , p6_a73 JTF_VARCHAR2_TABLE_500
7006     , p6_a74 JTF_VARCHAR2_TABLE_500
7007     , p6_a75 JTF_VARCHAR2_TABLE_500
7008     , p6_a76 JTF_NUMBER_TABLE
7009     , p6_a77 JTF_NUMBER_TABLE
7010     , p6_a78 JTF_NUMBER_TABLE
7011     , p6_a79 JTF_DATE_TABLE
7012     , p6_a80 JTF_NUMBER_TABLE
7013     , p6_a81 JTF_DATE_TABLE
7014     , p6_a82 JTF_NUMBER_TABLE
7015     , p6_a83 JTF_DATE_TABLE
7016     , p6_a84 JTF_DATE_TABLE
7017     , p6_a85 JTF_DATE_TABLE
7018     , p6_a86 JTF_DATE_TABLE
7019     , p6_a87 JTF_NUMBER_TABLE
7020     , p6_a88 JTF_NUMBER_TABLE
7021     , p6_a89 JTF_NUMBER_TABLE
7022     , p6_a90 JTF_VARCHAR2_TABLE_100
7023     , p6_a91 JTF_NUMBER_TABLE
7024     , p6_a92 JTF_VARCHAR2_TABLE_100
7025     , p6_a93 JTF_NUMBER_TABLE
7026     , p6_a94 JTF_NUMBER_TABLE
7027     , p6_a95 JTF_DATE_TABLE
7028     , p6_a96 JTF_VARCHAR2_TABLE_100
7029     , p6_a97 JTF_VARCHAR2_TABLE_100
7030     , p6_a98 JTF_NUMBER_TABLE
7031     , p7_a0 out nocopy JTF_NUMBER_TABLE
7032     , p7_a1 out nocopy JTF_NUMBER_TABLE
7033     , p7_a2 out nocopy JTF_VARCHAR2_TABLE_100
7034     , p7_a3 out nocopy JTF_NUMBER_TABLE
7035     , p7_a4 out nocopy JTF_NUMBER_TABLE
7036     , p7_a5 out nocopy JTF_NUMBER_TABLE
7037     , p7_a6 out nocopy JTF_NUMBER_TABLE
7038     , p7_a7 out nocopy JTF_NUMBER_TABLE
7039     , p7_a8 out nocopy JTF_VARCHAR2_TABLE_200
7040     , p7_a9 out nocopy JTF_VARCHAR2_TABLE_100
7041     , p7_a10 out nocopy JTF_NUMBER_TABLE
7042     , p7_a11 out nocopy JTF_VARCHAR2_TABLE_100
7043     , p7_a12 out nocopy JTF_NUMBER_TABLE
7044     , p7_a13 out nocopy JTF_VARCHAR2_TABLE_2000
7045     , p7_a14 out nocopy JTF_VARCHAR2_TABLE_2000
7046     , p7_a15 out nocopy JTF_VARCHAR2_TABLE_2000
7047     , p7_a16 out nocopy JTF_VARCHAR2_TABLE_300
7048     , p7_a17 out nocopy JTF_VARCHAR2_TABLE_100
7049     , p7_a18 out nocopy JTF_NUMBER_TABLE
7050     , p7_a19 out nocopy JTF_NUMBER_TABLE
7051     , p7_a20 out nocopy JTF_NUMBER_TABLE
7052     , p7_a21 out nocopy JTF_NUMBER_TABLE
7053     , p7_a22 out nocopy JTF_VARCHAR2_TABLE_100
7054     , p7_a23 out nocopy JTF_VARCHAR2_TABLE_100
7055     , p7_a24 out nocopy JTF_VARCHAR2_TABLE_100
7056     , p7_a25 out nocopy JTF_VARCHAR2_TABLE_2000
7057     , p7_a26 out nocopy JTF_VARCHAR2_TABLE_100
7058     , p7_a27 out nocopy JTF_VARCHAR2_TABLE_200
7059     , p7_a28 out nocopy JTF_DATE_TABLE
7060     , p7_a29 out nocopy JTF_VARCHAR2_TABLE_200
7061     , p7_a30 out nocopy JTF_DATE_TABLE
7062     , p7_a31 out nocopy JTF_DATE_TABLE
7063     , p7_a32 out nocopy JTF_DATE_TABLE
7064     , p7_a33 out nocopy JTF_VARCHAR2_TABLE_100
7065     , p7_a34 out nocopy JTF_NUMBER_TABLE
7066     , p7_a35 out nocopy JTF_VARCHAR2_TABLE_100
7067     , p7_a36 out nocopy JTF_NUMBER_TABLE
7068     , p7_a37 out nocopy JTF_VARCHAR2_TABLE_100
7069     , p7_a38 out nocopy JTF_VARCHAR2_TABLE_100
7070     , p7_a39 out nocopy JTF_VARCHAR2_TABLE_500
7071     , p7_a40 out nocopy JTF_VARCHAR2_TABLE_500
7072     , p7_a41 out nocopy JTF_VARCHAR2_TABLE_500
7073     , p7_a42 out nocopy JTF_VARCHAR2_TABLE_500
7074     , p7_a43 out nocopy JTF_VARCHAR2_TABLE_500
7075     , p7_a44 out nocopy JTF_VARCHAR2_TABLE_500
7076     , p7_a45 out nocopy JTF_VARCHAR2_TABLE_500
7077     , p7_a46 out nocopy JTF_VARCHAR2_TABLE_500
7078     , p7_a47 out nocopy JTF_VARCHAR2_TABLE_500
7079     , p7_a48 out nocopy JTF_VARCHAR2_TABLE_500
7080     , p7_a49 out nocopy JTF_VARCHAR2_TABLE_500
7081     , p7_a50 out nocopy JTF_VARCHAR2_TABLE_500
7082     , p7_a51 out nocopy JTF_VARCHAR2_TABLE_500
7083     , p7_a52 out nocopy JTF_VARCHAR2_TABLE_500
7084     , p7_a53 out nocopy JTF_VARCHAR2_TABLE_500
7085     , p7_a54 out nocopy JTF_NUMBER_TABLE
7086     , p7_a55 out nocopy JTF_DATE_TABLE
7087     , p7_a56 out nocopy JTF_NUMBER_TABLE
7088     , p7_a57 out nocopy JTF_DATE_TABLE
7089     , p7_a58 out nocopy JTF_VARCHAR2_TABLE_100
7090     , p7_a59 out nocopy JTF_VARCHAR2_TABLE_100
7091     , p7_a60 out nocopy JTF_VARCHAR2_TABLE_100
7092     , p7_a61 out nocopy JTF_NUMBER_TABLE
7093     , p7_a62 out nocopy JTF_VARCHAR2_TABLE_100
7094     , p7_a63 out nocopy JTF_VARCHAR2_TABLE_100
7095     , p7_a64 out nocopy JTF_VARCHAR2_TABLE_100
7096     , p7_a65 out nocopy JTF_VARCHAR2_TABLE_100
7097     , p7_a66 out nocopy JTF_VARCHAR2_TABLE_100
7098     , p7_a67 out nocopy JTF_NUMBER_TABLE
7099     , p7_a68 out nocopy JTF_NUMBER_TABLE
7100     , p7_a69 out nocopy JTF_NUMBER_TABLE
7101     , p7_a70 out nocopy JTF_DATE_TABLE
7102     , p7_a71 out nocopy JTF_NUMBER_TABLE
7103     , p7_a72 out nocopy JTF_DATE_TABLE
7104     , p7_a73 out nocopy JTF_NUMBER_TABLE
7105     , p7_a74 out nocopy JTF_NUMBER_TABLE
7106     , p7_a75 out nocopy JTF_VARCHAR2_TABLE_100
7107     , p7_a76 out nocopy JTF_VARCHAR2_TABLE_100
7108     , p7_a77 out nocopy JTF_NUMBER_TABLE
7109     , p7_a78 out nocopy JTF_NUMBER_TABLE
7110     , p7_a79 out nocopy JTF_VARCHAR2_TABLE_100
7111     , p7_a80 out nocopy JTF_VARCHAR2_TABLE_100
7112     , p7_a81 out nocopy JTF_NUMBER_TABLE
7113     , p7_a82 out nocopy JTF_VARCHAR2_TABLE_100
7114     , p7_a83 out nocopy JTF_NUMBER_TABLE
7115     , p7_a84 out nocopy JTF_NUMBER_TABLE
7116     , p7_a85 out nocopy JTF_NUMBER_TABLE
7117     , p7_a86 out nocopy JTF_NUMBER_TABLE
7118     , p7_a87 out nocopy JTF_VARCHAR2_TABLE_100
7119     , p7_a88 out nocopy JTF_NUMBER_TABLE
7120     , p7_a89 out nocopy JTF_NUMBER_TABLE
7121     , p8_a0 out nocopy JTF_NUMBER_TABLE
7122     , p8_a1 out nocopy JTF_NUMBER_TABLE
7123     , p8_a2 out nocopy JTF_NUMBER_TABLE
7124     , p8_a3 out nocopy JTF_NUMBER_TABLE
7125     , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
7126     , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
7127     , p8_a6 out nocopy JTF_VARCHAR2_TABLE_100
7128     , p8_a7 out nocopy JTF_NUMBER_TABLE
7129     , p8_a8 out nocopy JTF_NUMBER_TABLE
7130     , p8_a9 out nocopy JTF_DATE_TABLE
7131     , p8_a10 out nocopy JTF_NUMBER_TABLE
7132     , p8_a11 out nocopy JTF_NUMBER_TABLE
7133     , p8_a12 out nocopy JTF_NUMBER_TABLE
7134     , p8_a13 out nocopy JTF_NUMBER_TABLE
7135     , p8_a14 out nocopy JTF_NUMBER_TABLE
7136     , p8_a15 out nocopy JTF_NUMBER_TABLE
7137     , p8_a16 out nocopy JTF_NUMBER_TABLE
7138     , p8_a17 out nocopy JTF_NUMBER_TABLE
7139     , p8_a18 out nocopy JTF_NUMBER_TABLE
7140     , p8_a19 out nocopy JTF_NUMBER_TABLE
7141     , p8_a20 out nocopy JTF_DATE_TABLE
7142     , p8_a21 out nocopy JTF_DATE_TABLE
7143     , p8_a22 out nocopy JTF_NUMBER_TABLE
7144     , p8_a23 out nocopy JTF_NUMBER_TABLE
7145     , p8_a24 out nocopy JTF_DATE_TABLE
7146     , p8_a25 out nocopy JTF_DATE_TABLE
7147     , p8_a26 out nocopy JTF_DATE_TABLE
7148     , p8_a27 out nocopy JTF_NUMBER_TABLE
7149     , p8_a28 out nocopy JTF_NUMBER_TABLE
7150     , p8_a29 out nocopy JTF_NUMBER_TABLE
7151     , p8_a30 out nocopy JTF_NUMBER_TABLE
7152     , p8_a31 out nocopy JTF_NUMBER_TABLE
7153     , p8_a32 out nocopy JTF_NUMBER_TABLE
7154     , p8_a33 out nocopy JTF_NUMBER_TABLE
7155     , p8_a34 out nocopy JTF_DATE_TABLE
7156     , p8_a35 out nocopy JTF_VARCHAR2_TABLE_100
7157     , p8_a36 out nocopy JTF_DATE_TABLE
7158     , p8_a37 out nocopy JTF_VARCHAR2_TABLE_300
7159     , p8_a38 out nocopy JTF_NUMBER_TABLE
7160     , p8_a39 out nocopy JTF_NUMBER_TABLE
7161     , p8_a40 out nocopy JTF_NUMBER_TABLE
7162     , p8_a41 out nocopy JTF_VARCHAR2_TABLE_100
7163     , p8_a42 out nocopy JTF_DATE_TABLE
7164     , p8_a43 out nocopy JTF_NUMBER_TABLE
7165     , p8_a44 out nocopy JTF_NUMBER_TABLE
7166     , p8_a45 out nocopy JTF_DATE_TABLE
7167     , p8_a46 out nocopy JTF_NUMBER_TABLE
7168     , p8_a47 out nocopy JTF_DATE_TABLE
7169     , p8_a48 out nocopy JTF_DATE_TABLE
7170     , p8_a49 out nocopy JTF_DATE_TABLE
7171     , p8_a50 out nocopy JTF_NUMBER_TABLE
7172     , p8_a51 out nocopy JTF_NUMBER_TABLE
7173     , p8_a52 out nocopy JTF_VARCHAR2_TABLE_100
7174     , p8_a53 out nocopy JTF_NUMBER_TABLE
7175     , p8_a54 out nocopy JTF_NUMBER_TABLE
7176     , p8_a55 out nocopy JTF_VARCHAR2_TABLE_100
7177     , p8_a56 out nocopy JTF_VARCHAR2_TABLE_100
7178     , p8_a57 out nocopy JTF_NUMBER_TABLE
7179     , p8_a58 out nocopy JTF_DATE_TABLE
7180     , p8_a59 out nocopy JTF_NUMBER_TABLE
7181     , p8_a60 out nocopy JTF_VARCHAR2_TABLE_100
7182     , p8_a61 out nocopy JTF_VARCHAR2_TABLE_500
7183     , p8_a62 out nocopy JTF_VARCHAR2_TABLE_500
7184     , p8_a63 out nocopy JTF_VARCHAR2_TABLE_500
7185     , p8_a64 out nocopy JTF_VARCHAR2_TABLE_500
7186     , p8_a65 out nocopy JTF_VARCHAR2_TABLE_500
7187     , p8_a66 out nocopy JTF_VARCHAR2_TABLE_500
7188     , p8_a67 out nocopy JTF_VARCHAR2_TABLE_500
7189     , p8_a68 out nocopy JTF_VARCHAR2_TABLE_500
7190     , p8_a69 out nocopy JTF_VARCHAR2_TABLE_500
7191     , p8_a70 out nocopy JTF_VARCHAR2_TABLE_500
7192     , p8_a71 out nocopy JTF_VARCHAR2_TABLE_500
7193     , p8_a72 out nocopy JTF_VARCHAR2_TABLE_500
7194     , p8_a73 out nocopy JTF_VARCHAR2_TABLE_500
7195     , p8_a74 out nocopy JTF_VARCHAR2_TABLE_500
7196     , p8_a75 out nocopy JTF_VARCHAR2_TABLE_500
7197     , p8_a76 out nocopy JTF_NUMBER_TABLE
7198     , p8_a77 out nocopy JTF_NUMBER_TABLE
7199     , p8_a78 out nocopy JTF_NUMBER_TABLE
7200     , p8_a79 out nocopy JTF_DATE_TABLE
7201     , p8_a80 out nocopy JTF_NUMBER_TABLE
7202     , p8_a81 out nocopy JTF_DATE_TABLE
7203     , p8_a82 out nocopy JTF_NUMBER_TABLE
7204     , p8_a83 out nocopy JTF_DATE_TABLE
7205     , p8_a84 out nocopy JTF_DATE_TABLE
7206     , p8_a85 out nocopy JTF_DATE_TABLE
7207     , p8_a86 out nocopy JTF_DATE_TABLE
7208     , p8_a87 out nocopy JTF_NUMBER_TABLE
7209     , p8_a88 out nocopy JTF_NUMBER_TABLE
7210     , p8_a89 out nocopy JTF_NUMBER_TABLE
7211     , p8_a90 out nocopy JTF_VARCHAR2_TABLE_100
7212     , p8_a91 out nocopy JTF_NUMBER_TABLE
7213     , p8_a92 out nocopy JTF_VARCHAR2_TABLE_100
7214     , p8_a93 out nocopy JTF_NUMBER_TABLE
7215     , p8_a94 out nocopy JTF_NUMBER_TABLE
7216     , p8_a95 out nocopy JTF_DATE_TABLE
7217     , p8_a96 out nocopy JTF_VARCHAR2_TABLE_100
7218     , p8_a97 out nocopy JTF_VARCHAR2_TABLE_100
7219     , p8_a98 out nocopy JTF_NUMBER_TABLE
7220   )
7221 
7222   as
7223     ddp_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
7224     ddp_klev_tbl okl_contract_pvt.klev_tbl_type;
7225     ddx_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
7226     ddx_klev_tbl okl_contract_pvt.klev_tbl_type;
7227     ddindx binary_integer; indx binary_integer;
7228   begin
7229 
7230     -- copy data to the local IN or IN-OUT args, if any
7231 
7232 
7233 
7234 
7235 
7236     okl_okc_migration_pvt_w.rosetta_table_copy_in_p5(ddp_clev_tbl, p5_a0
7237       , p5_a1
7238       , p5_a2
7239       , p5_a3
7240       , p5_a4
7241       , p5_a5
7242       , p5_a6
7243       , p5_a7
7244       , p5_a8
7245       , p5_a9
7246       , p5_a10
7247       , p5_a11
7248       , p5_a12
7249       , p5_a13
7250       , p5_a14
7251       , p5_a15
7252       , p5_a16
7253       , p5_a17
7254       , p5_a18
7255       , p5_a19
7256       , p5_a20
7257       , p5_a21
7258       , p5_a22
7259       , p5_a23
7260       , p5_a24
7261       , p5_a25
7262       , p5_a26
7263       , p5_a27
7264       , p5_a28
7265       , p5_a29
7266       , p5_a30
7267       , p5_a31
7268       , p5_a32
7269       , p5_a33
7270       , p5_a34
7271       , p5_a35
7272       , p5_a36
7273       , p5_a37
7274       , p5_a38
7275       , p5_a39
7276       , p5_a40
7277       , p5_a41
7278       , p5_a42
7279       , p5_a43
7280       , p5_a44
7281       , p5_a45
7282       , p5_a46
7283       , p5_a47
7284       , p5_a48
7285       , p5_a49
7286       , p5_a50
7287       , p5_a51
7288       , p5_a52
7289       , p5_a53
7290       , p5_a54
7291       , p5_a55
7292       , p5_a56
7293       , p5_a57
7294       , p5_a58
7295       , p5_a59
7296       , p5_a60
7297       , p5_a61
7298       , p5_a62
7299       , p5_a63
7300       , p5_a64
7301       , p5_a65
7302       , p5_a66
7303       , p5_a67
7304       , p5_a68
7305       , p5_a69
7306       , p5_a70
7307       , p5_a71
7308       , p5_a72
7309       , p5_a73
7310       , p5_a74
7311       , p5_a75
7312       , p5_a76
7313       , p5_a77
7314       , p5_a78
7315       , p5_a79
7316       , p5_a80
7317       , p5_a81
7318       , p5_a82
7319       , p5_a83
7320       , p5_a84
7321       , p5_a85
7322       , p5_a86
7323       , p5_a87
7324       , p5_a88
7325       , p5_a89
7326       );
7327 
7328     okl_kle_pvt_w.rosetta_table_copy_in_p8(ddp_klev_tbl, p6_a0
7329       , p6_a1
7330       , p6_a2
7331       , p6_a3
7332       , p6_a4
7333       , p6_a5
7334       , p6_a6
7335       , p6_a7
7336       , p6_a8
7337       , p6_a9
7338       , p6_a10
7339       , p6_a11
7340       , p6_a12
7341       , p6_a13
7342       , p6_a14
7343       , p6_a15
7344       , p6_a16
7345       , p6_a17
7346       , p6_a18
7347       , p6_a19
7348       , p6_a20
7349       , p6_a21
7350       , p6_a22
7351       , p6_a23
7352       , p6_a24
7353       , p6_a25
7354       , p6_a26
7355       , p6_a27
7356       , p6_a28
7357       , p6_a29
7358       , p6_a30
7359       , p6_a31
7360       , p6_a32
7361       , p6_a33
7362       , p6_a34
7363       , p6_a35
7364       , p6_a36
7365       , p6_a37
7366       , p6_a38
7367       , p6_a39
7368       , p6_a40
7369       , p6_a41
7370       , p6_a42
7371       , p6_a43
7372       , p6_a44
7373       , p6_a45
7374       , p6_a46
7375       , p6_a47
7376       , p6_a48
7377       , p6_a49
7378       , p6_a50
7379       , p6_a51
7380       , p6_a52
7381       , p6_a53
7382       , p6_a54
7383       , p6_a55
7384       , p6_a56
7385       , p6_a57
7386       , p6_a58
7387       , p6_a59
7388       , p6_a60
7389       , p6_a61
7390       , p6_a62
7391       , p6_a63
7392       , p6_a64
7393       , p6_a65
7394       , p6_a66
7395       , p6_a67
7396       , p6_a68
7397       , p6_a69
7398       , p6_a70
7399       , p6_a71
7400       , p6_a72
7401       , p6_a73
7402       , p6_a74
7403       , p6_a75
7404       , p6_a76
7405       , p6_a77
7406       , p6_a78
7407       , p6_a79
7408       , p6_a80
7409       , p6_a81
7410       , p6_a82
7411       , p6_a83
7412       , p6_a84
7413       , p6_a85
7414       , p6_a86
7415       , p6_a87
7416       , p6_a88
7417       , p6_a89
7418       , p6_a90
7419       , p6_a91
7420       , p6_a92
7421       , p6_a93
7422       , p6_a94
7423       , p6_a95
7424       , p6_a96
7425       , p6_a97
7426       , p6_a98
7427       );
7428 
7429 
7430 
7431     -- here's the delegated call to the old PL/SQL routine
7432     okl_contract_pvt.create_contract_line(p_api_version,
7433       p_init_msg_list,
7434       x_return_status,
7435       x_msg_count,
7436       x_msg_data,
7437       ddp_clev_tbl,
7438       ddp_klev_tbl,
7439       ddx_clev_tbl,
7440       ddx_klev_tbl);
7441 
7442     -- copy data back from the local variables to OUT or IN-OUT args, if any
7443 
7444 
7445 
7446 
7447 
7448 
7449 
7450     okl_okc_migration_pvt_w.rosetta_table_copy_out_p5(ddx_clev_tbl, p7_a0
7451       , p7_a1
7452       , p7_a2
7453       , p7_a3
7454       , p7_a4
7455       , p7_a5
7456       , p7_a6
7457       , p7_a7
7458       , p7_a8
7459       , p7_a9
7460       , p7_a10
7461       , p7_a11
7462       , p7_a12
7463       , p7_a13
7464       , p7_a14
7465       , p7_a15
7466       , p7_a16
7467       , p7_a17
7468       , p7_a18
7469       , p7_a19
7470       , p7_a20
7471       , p7_a21
7472       , p7_a22
7473       , p7_a23
7474       , p7_a24
7475       , p7_a25
7476       , p7_a26
7477       , p7_a27
7478       , p7_a28
7479       , p7_a29
7480       , p7_a30
7481       , p7_a31
7482       , p7_a32
7483       , p7_a33
7484       , p7_a34
7485       , p7_a35
7486       , p7_a36
7487       , p7_a37
7488       , p7_a38
7489       , p7_a39
7490       , p7_a40
7491       , p7_a41
7492       , p7_a42
7493       , p7_a43
7494       , p7_a44
7495       , p7_a45
7496       , p7_a46
7497       , p7_a47
7498       , p7_a48
7499       , p7_a49
7500       , p7_a50
7501       , p7_a51
7502       , p7_a52
7503       , p7_a53
7504       , p7_a54
7505       , p7_a55
7506       , p7_a56
7507       , p7_a57
7508       , p7_a58
7509       , p7_a59
7510       , p7_a60
7511       , p7_a61
7512       , p7_a62
7513       , p7_a63
7514       , p7_a64
7515       , p7_a65
7516       , p7_a66
7517       , p7_a67
7518       , p7_a68
7519       , p7_a69
7520       , p7_a70
7521       , p7_a71
7522       , p7_a72
7523       , p7_a73
7524       , p7_a74
7525       , p7_a75
7526       , p7_a76
7527       , p7_a77
7528       , p7_a78
7529       , p7_a79
7530       , p7_a80
7531       , p7_a81
7532       , p7_a82
7533       , p7_a83
7534       , p7_a84
7535       , p7_a85
7536       , p7_a86
7537       , p7_a87
7538       , p7_a88
7539       , p7_a89
7540       );
7541 
7542     okl_kle_pvt_w.rosetta_table_copy_out_p8(ddx_klev_tbl, p8_a0
7543       , p8_a1
7544       , p8_a2
7545       , p8_a3
7546       , p8_a4
7547       , p8_a5
7548       , p8_a6
7549       , p8_a7
7550       , p8_a8
7551       , p8_a9
7552       , p8_a10
7553       , p8_a11
7554       , p8_a12
7555       , p8_a13
7556       , p8_a14
7557       , p8_a15
7558       , p8_a16
7559       , p8_a17
7560       , p8_a18
7561       , p8_a19
7562       , p8_a20
7563       , p8_a21
7564       , p8_a22
7565       , p8_a23
7566       , p8_a24
7567       , p8_a25
7568       , p8_a26
7569       , p8_a27
7570       , p8_a28
7571       , p8_a29
7572       , p8_a30
7573       , p8_a31
7574       , p8_a32
7575       , p8_a33
7576       , p8_a34
7577       , p8_a35
7578       , p8_a36
7579       , p8_a37
7580       , p8_a38
7581       , p8_a39
7582       , p8_a40
7583       , p8_a41
7584       , p8_a42
7585       , p8_a43
7586       , p8_a44
7587       , p8_a45
7588       , p8_a46
7589       , p8_a47
7590       , p8_a48
7591       , p8_a49
7592       , p8_a50
7593       , p8_a51
7594       , p8_a52
7595       , p8_a53
7596       , p8_a54
7597       , p8_a55
7598       , p8_a56
7599       , p8_a57
7600       , p8_a58
7601       , p8_a59
7602       , p8_a60
7603       , p8_a61
7604       , p8_a62
7605       , p8_a63
7606       , p8_a64
7607       , p8_a65
7608       , p8_a66
7609       , p8_a67
7610       , p8_a68
7611       , p8_a69
7612       , p8_a70
7613       , p8_a71
7614       , p8_a72
7615       , p8_a73
7616       , p8_a74
7617       , p8_a75
7618       , p8_a76
7619       , p8_a77
7620       , p8_a78
7621       , p8_a79
7622       , p8_a80
7623       , p8_a81
7624       , p8_a82
7625       , p8_a83
7626       , p8_a84
7627       , p8_a85
7628       , p8_a86
7629       , p8_a87
7630       , p8_a88
7631       , p8_a89
7632       , p8_a90
7633       , p8_a91
7634       , p8_a92
7635       , p8_a93
7636       , p8_a94
7637       , p8_a95
7638       , p8_a96
7639       , p8_a97
7640       , p8_a98
7641       );
7642   end;
7643 
7644   procedure update_contract_line(p_api_version  NUMBER
7645     , p_init_msg_list  VARCHAR2
7646     , x_return_status out nocopy  VARCHAR2
7647     , x_msg_count out nocopy  NUMBER
7648     , x_msg_data out nocopy  VARCHAR2
7649     , p7_a0 out nocopy  NUMBER
7650     , p7_a1 out nocopy  NUMBER
7651     , p7_a2 out nocopy  VARCHAR2
7652     , p7_a3 out nocopy  NUMBER
7653     , p7_a4 out nocopy  NUMBER
7654     , p7_a5 out nocopy  NUMBER
7655     , p7_a6 out nocopy  NUMBER
7656     , p7_a7 out nocopy  NUMBER
7657     , p7_a8 out nocopy  VARCHAR2
7658     , p7_a9 out nocopy  VARCHAR2
7659     , p7_a10 out nocopy  NUMBER
7660     , p7_a11 out nocopy  VARCHAR2
7661     , p7_a12 out nocopy  NUMBER
7662     , p7_a13 out nocopy  VARCHAR2
7663     , p7_a14 out nocopy  VARCHAR2
7664     , p7_a15 out nocopy  VARCHAR2
7665     , p7_a16 out nocopy  VARCHAR2
7666     , p7_a17 out nocopy  VARCHAR2
7667     , p7_a18 out nocopy  NUMBER
7668     , p7_a19 out nocopy  NUMBER
7669     , p7_a20 out nocopy  NUMBER
7670     , p7_a21 out nocopy  NUMBER
7671     , p7_a22 out nocopy  VARCHAR2
7672     , p7_a23 out nocopy  VARCHAR2
7673     , p7_a24 out nocopy  VARCHAR2
7674     , p7_a25 out nocopy  VARCHAR2
7675     , p7_a26 out nocopy  VARCHAR2
7676     , p7_a27 out nocopy  VARCHAR2
7677     , p7_a28 out nocopy  DATE
7678     , p7_a29 out nocopy  VARCHAR2
7679     , p7_a30 out nocopy  DATE
7680     , p7_a31 out nocopy  DATE
7681     , p7_a32 out nocopy  DATE
7682     , p7_a33 out nocopy  VARCHAR2
7683     , p7_a34 out nocopy  NUMBER
7684     , p7_a35 out nocopy  VARCHAR2
7685     , p7_a36 out nocopy  NUMBER
7686     , p7_a37 out nocopy  VARCHAR2
7687     , p7_a38 out nocopy  VARCHAR2
7688     , p7_a39 out nocopy  VARCHAR2
7689     , p7_a40 out nocopy  VARCHAR2
7690     , p7_a41 out nocopy  VARCHAR2
7691     , p7_a42 out nocopy  VARCHAR2
7692     , p7_a43 out nocopy  VARCHAR2
7693     , p7_a44 out nocopy  VARCHAR2
7694     , p7_a45 out nocopy  VARCHAR2
7695     , p7_a46 out nocopy  VARCHAR2
7696     , p7_a47 out nocopy  VARCHAR2
7697     , p7_a48 out nocopy  VARCHAR2
7698     , p7_a49 out nocopy  VARCHAR2
7699     , p7_a50 out nocopy  VARCHAR2
7700     , p7_a51 out nocopy  VARCHAR2
7701     , p7_a52 out nocopy  VARCHAR2
7702     , p7_a53 out nocopy  VARCHAR2
7703     , p7_a54 out nocopy  NUMBER
7704     , p7_a55 out nocopy  DATE
7705     , p7_a56 out nocopy  NUMBER
7706     , p7_a57 out nocopy  DATE
7707     , p7_a58 out nocopy  VARCHAR2
7708     , p7_a59 out nocopy  VARCHAR2
7709     , p7_a60 out nocopy  VARCHAR2
7710     , p7_a61 out nocopy  NUMBER
7711     , p7_a62 out nocopy  VARCHAR2
7712     , p7_a63 out nocopy  VARCHAR2
7713     , p7_a64 out nocopy  VARCHAR2
7714     , p7_a65 out nocopy  VARCHAR2
7715     , p7_a66 out nocopy  VARCHAR2
7716     , p7_a67 out nocopy  NUMBER
7717     , p7_a68 out nocopy  NUMBER
7718     , p7_a69 out nocopy  NUMBER
7719     , p7_a70 out nocopy  DATE
7720     , p7_a71 out nocopy  NUMBER
7721     , p7_a72 out nocopy  DATE
7722     , p7_a73 out nocopy  NUMBER
7723     , p7_a74 out nocopy  NUMBER
7724     , p7_a75 out nocopy  VARCHAR2
7725     , p7_a76 out nocopy  VARCHAR2
7726     , p7_a77 out nocopy  NUMBER
7727     , p7_a78 out nocopy  NUMBER
7728     , p7_a79 out nocopy  VARCHAR2
7729     , p7_a80 out nocopy  VARCHAR2
7730     , p7_a81 out nocopy  NUMBER
7731     , p7_a82 out nocopy  VARCHAR2
7732     , p7_a83 out nocopy  NUMBER
7733     , p7_a84 out nocopy  NUMBER
7734     , p7_a85 out nocopy  NUMBER
7735     , p7_a86 out nocopy  NUMBER
7736     , p7_a87 out nocopy  VARCHAR2
7737     , p7_a88 out nocopy  NUMBER
7738     , p7_a89 out nocopy  NUMBER
7739     , p8_a0 out nocopy  NUMBER
7740     , p8_a1 out nocopy  NUMBER
7741     , p8_a2 out nocopy  NUMBER
7742     , p8_a3 out nocopy  NUMBER
7743     , p8_a4 out nocopy  VARCHAR2
7744     , p8_a5 out nocopy  VARCHAR2
7745     , p8_a6 out nocopy  VARCHAR2
7746     , p8_a7 out nocopy  NUMBER
7747     , p8_a8 out nocopy  NUMBER
7748     , p8_a9 out nocopy  DATE
7749     , p8_a10 out nocopy  NUMBER
7750     , p8_a11 out nocopy  NUMBER
7751     , p8_a12 out nocopy  NUMBER
7752     , p8_a13 out nocopy  NUMBER
7753     , p8_a14 out nocopy  NUMBER
7754     , p8_a15 out nocopy  NUMBER
7755     , p8_a16 out nocopy  NUMBER
7756     , p8_a17 out nocopy  NUMBER
7757     , p8_a18 out nocopy  NUMBER
7758     , p8_a19 out nocopy  NUMBER
7759     , p8_a20 out nocopy  DATE
7760     , p8_a21 out nocopy  DATE
7761     , p8_a22 out nocopy  NUMBER
7762     , p8_a23 out nocopy  NUMBER
7763     , p8_a24 out nocopy  DATE
7764     , p8_a25 out nocopy  DATE
7765     , p8_a26 out nocopy  DATE
7766     , p8_a27 out nocopy  NUMBER
7767     , p8_a28 out nocopy  NUMBER
7768     , p8_a29 out nocopy  NUMBER
7769     , p8_a30 out nocopy  NUMBER
7770     , p8_a31 out nocopy  NUMBER
7771     , p8_a32 out nocopy  NUMBER
7772     , p8_a33 out nocopy  NUMBER
7773     , p8_a34 out nocopy  DATE
7774     , p8_a35 out nocopy  VARCHAR2
7775     , p8_a36 out nocopy  DATE
7776     , p8_a37 out nocopy  VARCHAR2
7777     , p8_a38 out nocopy  NUMBER
7778     , p8_a39 out nocopy  NUMBER
7779     , p8_a40 out nocopy  NUMBER
7780     , p8_a41 out nocopy  VARCHAR2
7781     , p8_a42 out nocopy  DATE
7782     , p8_a43 out nocopy  NUMBER
7783     , p8_a44 out nocopy  NUMBER
7784     , p8_a45 out nocopy  DATE
7785     , p8_a46 out nocopy  NUMBER
7786     , p8_a47 out nocopy  DATE
7787     , p8_a48 out nocopy  DATE
7788     , p8_a49 out nocopy  DATE
7789     , p8_a50 out nocopy  NUMBER
7790     , p8_a51 out nocopy  NUMBER
7791     , p8_a52 out nocopy  VARCHAR2
7792     , p8_a53 out nocopy  NUMBER
7793     , p8_a54 out nocopy  NUMBER
7794     , p8_a55 out nocopy  VARCHAR2
7795     , p8_a56 out nocopy  VARCHAR2
7796     , p8_a57 out nocopy  NUMBER
7797     , p8_a58 out nocopy  DATE
7798     , p8_a59 out nocopy  NUMBER
7799     , p8_a60 out nocopy  VARCHAR2
7800     , p8_a61 out nocopy  VARCHAR2
7801     , p8_a62 out nocopy  VARCHAR2
7802     , p8_a63 out nocopy  VARCHAR2
7803     , p8_a64 out nocopy  VARCHAR2
7804     , p8_a65 out nocopy  VARCHAR2
7805     , p8_a66 out nocopy  VARCHAR2
7806     , p8_a67 out nocopy  VARCHAR2
7807     , p8_a68 out nocopy  VARCHAR2
7808     , p8_a69 out nocopy  VARCHAR2
7809     , p8_a70 out nocopy  VARCHAR2
7810     , p8_a71 out nocopy  VARCHAR2
7811     , p8_a72 out nocopy  VARCHAR2
7812     , p8_a73 out nocopy  VARCHAR2
7813     , p8_a74 out nocopy  VARCHAR2
7814     , p8_a75 out nocopy  VARCHAR2
7815     , p8_a76 out nocopy  NUMBER
7816     , p8_a77 out nocopy  NUMBER
7817     , p8_a78 out nocopy  NUMBER
7818     , p8_a79 out nocopy  DATE
7819     , p8_a80 out nocopy  NUMBER
7820     , p8_a81 out nocopy  DATE
7821     , p8_a82 out nocopy  NUMBER
7822     , p8_a83 out nocopy  DATE
7823     , p8_a84 out nocopy  DATE
7824     , p8_a85 out nocopy  DATE
7825     , p8_a86 out nocopy  DATE
7826     , p8_a87 out nocopy  NUMBER
7827     , p8_a88 out nocopy  NUMBER
7828     , p8_a89 out nocopy  NUMBER
7829     , p8_a90 out nocopy  VARCHAR2
7830     , p8_a91 out nocopy  NUMBER
7831     , p8_a92 out nocopy  VARCHAR2
7832     , p8_a93 out nocopy  NUMBER
7833     , p8_a94 out nocopy  NUMBER
7834     , p8_a95 out nocopy  DATE
7835     , p8_a96 out nocopy  VARCHAR2
7836     , p8_a97 out nocopy  VARCHAR2
7837     , p8_a98 out nocopy  NUMBER
7838     , p5_a0  NUMBER := 0-1962.0724
7839     , p5_a1  NUMBER := 0-1962.0724
7840     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
7841     , p5_a3  NUMBER := 0-1962.0724
7842     , p5_a4  NUMBER := 0-1962.0724
7843     , p5_a5  NUMBER := 0-1962.0724
7844     , p5_a6  NUMBER := 0-1962.0724
7845     , p5_a7  NUMBER := 0-1962.0724
7846     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
7847     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
7848     , p5_a10  NUMBER := 0-1962.0724
7849     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
7850     , p5_a12  NUMBER := 0-1962.0724
7851     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
7852     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
7853     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
7854     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
7855     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
7856     , p5_a18  NUMBER := 0-1962.0724
7857     , p5_a19  NUMBER := 0-1962.0724
7858     , p5_a20  NUMBER := 0-1962.0724
7859     , p5_a21  NUMBER := 0-1962.0724
7860     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
7861     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
7862     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
7863     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
7864     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
7865     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
7866     , p5_a28  DATE := fnd_api.g_miss_date
7867     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
7868     , p5_a30  DATE := fnd_api.g_miss_date
7869     , p5_a31  DATE := fnd_api.g_miss_date
7870     , p5_a32  DATE := fnd_api.g_miss_date
7871     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
7872     , p5_a34  NUMBER := 0-1962.0724
7873     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
7874     , p5_a36  NUMBER := 0-1962.0724
7875     , p5_a37  VARCHAR2 := fnd_api.g_miss_char
7876     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
7877     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
7878     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
7879     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
7880     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
7881     , p5_a43  VARCHAR2 := fnd_api.g_miss_char
7882     , p5_a44  VARCHAR2 := fnd_api.g_miss_char
7883     , p5_a45  VARCHAR2 := fnd_api.g_miss_char
7884     , p5_a46  VARCHAR2 := fnd_api.g_miss_char
7885     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
7886     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
7887     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
7888     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
7889     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
7890     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
7891     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
7892     , p5_a54  NUMBER := 0-1962.0724
7893     , p5_a55  DATE := fnd_api.g_miss_date
7894     , p5_a56  NUMBER := 0-1962.0724
7895     , p5_a57  DATE := fnd_api.g_miss_date
7896     , p5_a58  VARCHAR2 := fnd_api.g_miss_char
7897     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
7898     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
7899     , p5_a61  NUMBER := 0-1962.0724
7900     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
7901     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
7902     , p5_a64  VARCHAR2 := fnd_api.g_miss_char
7903     , p5_a65  VARCHAR2 := fnd_api.g_miss_char
7904     , p5_a66  VARCHAR2 := fnd_api.g_miss_char
7905     , p5_a67  NUMBER := 0-1962.0724
7906     , p5_a68  NUMBER := 0-1962.0724
7907     , p5_a69  NUMBER := 0-1962.0724
7908     , p5_a70  DATE := fnd_api.g_miss_date
7909     , p5_a71  NUMBER := 0-1962.0724
7910     , p5_a72  DATE := fnd_api.g_miss_date
7911     , p5_a73  NUMBER := 0-1962.0724
7912     , p5_a74  NUMBER := 0-1962.0724
7913     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
7914     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
7915     , p5_a77  NUMBER := 0-1962.0724
7916     , p5_a78  NUMBER := 0-1962.0724
7917     , p5_a79  VARCHAR2 := fnd_api.g_miss_char
7918     , p5_a80  VARCHAR2 := fnd_api.g_miss_char
7919     , p5_a81  NUMBER := 0-1962.0724
7920     , p5_a82  VARCHAR2 := fnd_api.g_miss_char
7921     , p5_a83  NUMBER := 0-1962.0724
7922     , p5_a84  NUMBER := 0-1962.0724
7923     , p5_a85  NUMBER := 0-1962.0724
7924     , p5_a86  NUMBER := 0-1962.0724
7925     , p5_a87  VARCHAR2 := fnd_api.g_miss_char
7926     , p5_a88  NUMBER := 0-1962.0724
7927     , p5_a89  NUMBER := 0-1962.0724
7928     , p6_a0  NUMBER := 0-1962.0724
7929     , p6_a1  NUMBER := 0-1962.0724
7930     , p6_a2  NUMBER := 0-1962.0724
7931     , p6_a3  NUMBER := 0-1962.0724
7932     , p6_a4  VARCHAR2 := fnd_api.g_miss_char
7933     , p6_a5  VARCHAR2 := fnd_api.g_miss_char
7934     , p6_a6  VARCHAR2 := fnd_api.g_miss_char
7935     , p6_a7  NUMBER := 0-1962.0724
7936     , p6_a8  NUMBER := 0-1962.0724
7937     , p6_a9  DATE := fnd_api.g_miss_date
7938     , p6_a10  NUMBER := 0-1962.0724
7939     , p6_a11  NUMBER := 0-1962.0724
7940     , p6_a12  NUMBER := 0-1962.0724
7941     , p6_a13  NUMBER := 0-1962.0724
7942     , p6_a14  NUMBER := 0-1962.0724
7943     , p6_a15  NUMBER := 0-1962.0724
7944     , p6_a16  NUMBER := 0-1962.0724
7945     , p6_a17  NUMBER := 0-1962.0724
7946     , p6_a18  NUMBER := 0-1962.0724
7947     , p6_a19  NUMBER := 0-1962.0724
7948     , p6_a20  DATE := fnd_api.g_miss_date
7949     , p6_a21  DATE := fnd_api.g_miss_date
7950     , p6_a22  NUMBER := 0-1962.0724
7951     , p6_a23  NUMBER := 0-1962.0724
7952     , p6_a24  DATE := fnd_api.g_miss_date
7953     , p6_a25  DATE := fnd_api.g_miss_date
7954     , p6_a26  DATE := fnd_api.g_miss_date
7955     , p6_a27  NUMBER := 0-1962.0724
7956     , p6_a28  NUMBER := 0-1962.0724
7957     , p6_a29  NUMBER := 0-1962.0724
7958     , p6_a30  NUMBER := 0-1962.0724
7959     , p6_a31  NUMBER := 0-1962.0724
7960     , p6_a32  NUMBER := 0-1962.0724
7961     , p6_a33  NUMBER := 0-1962.0724
7962     , p6_a34  DATE := fnd_api.g_miss_date
7963     , p6_a35  VARCHAR2 := fnd_api.g_miss_char
7964     , p6_a36  DATE := fnd_api.g_miss_date
7965     , p6_a37  VARCHAR2 := fnd_api.g_miss_char
7966     , p6_a38  NUMBER := 0-1962.0724
7967     , p6_a39  NUMBER := 0-1962.0724
7968     , p6_a40  NUMBER := 0-1962.0724
7969     , p6_a41  VARCHAR2 := fnd_api.g_miss_char
7970     , p6_a42  DATE := fnd_api.g_miss_date
7971     , p6_a43  NUMBER := 0-1962.0724
7972     , p6_a44  NUMBER := 0-1962.0724
7973     , p6_a45  DATE := fnd_api.g_miss_date
7974     , p6_a46  NUMBER := 0-1962.0724
7975     , p6_a47  DATE := fnd_api.g_miss_date
7976     , p6_a48  DATE := fnd_api.g_miss_date
7977     , p6_a49  DATE := fnd_api.g_miss_date
7978     , p6_a50  NUMBER := 0-1962.0724
7979     , p6_a51  NUMBER := 0-1962.0724
7980     , p6_a52  VARCHAR2 := fnd_api.g_miss_char
7981     , p6_a53  NUMBER := 0-1962.0724
7982     , p6_a54  NUMBER := 0-1962.0724
7983     , p6_a55  VARCHAR2 := fnd_api.g_miss_char
7984     , p6_a56  VARCHAR2 := fnd_api.g_miss_char
7985     , p6_a57  NUMBER := 0-1962.0724
7986     , p6_a58  DATE := fnd_api.g_miss_date
7987     , p6_a59  NUMBER := 0-1962.0724
7988     , p6_a60  VARCHAR2 := fnd_api.g_miss_char
7989     , p6_a61  VARCHAR2 := fnd_api.g_miss_char
7990     , p6_a62  VARCHAR2 := fnd_api.g_miss_char
7991     , p6_a63  VARCHAR2 := fnd_api.g_miss_char
7992     , p6_a64  VARCHAR2 := fnd_api.g_miss_char
7993     , p6_a65  VARCHAR2 := fnd_api.g_miss_char
7994     , p6_a66  VARCHAR2 := fnd_api.g_miss_char
7995     , p6_a67  VARCHAR2 := fnd_api.g_miss_char
7996     , p6_a68  VARCHAR2 := fnd_api.g_miss_char
7997     , p6_a69  VARCHAR2 := fnd_api.g_miss_char
7998     , p6_a70  VARCHAR2 := fnd_api.g_miss_char
7999     , p6_a71  VARCHAR2 := fnd_api.g_miss_char
8000     , p6_a72  VARCHAR2 := fnd_api.g_miss_char
8001     , p6_a73  VARCHAR2 := fnd_api.g_miss_char
8002     , p6_a74  VARCHAR2 := fnd_api.g_miss_char
8003     , p6_a75  VARCHAR2 := fnd_api.g_miss_char
8004     , p6_a76  NUMBER := 0-1962.0724
8005     , p6_a77  NUMBER := 0-1962.0724
8006     , p6_a78  NUMBER := 0-1962.0724
8007     , p6_a79  DATE := fnd_api.g_miss_date
8008     , p6_a80  NUMBER := 0-1962.0724
8009     , p6_a81  DATE := fnd_api.g_miss_date
8010     , p6_a82  NUMBER := 0-1962.0724
8011     , p6_a83  DATE := fnd_api.g_miss_date
8012     , p6_a84  DATE := fnd_api.g_miss_date
8013     , p6_a85  DATE := fnd_api.g_miss_date
8014     , p6_a86  DATE := fnd_api.g_miss_date
8015     , p6_a87  NUMBER := 0-1962.0724
8016     , p6_a88  NUMBER := 0-1962.0724
8017     , p6_a89  NUMBER := 0-1962.0724
8018     , p6_a90  VARCHAR2 := fnd_api.g_miss_char
8019     , p6_a91  NUMBER := 0-1962.0724
8020     , p6_a92  VARCHAR2 := fnd_api.g_miss_char
8021     , p6_a93  NUMBER := 0-1962.0724
8022     , p6_a94  NUMBER := 0-1962.0724
8023     , p6_a95  DATE := fnd_api.g_miss_date
8024     , p6_a96  VARCHAR2 := fnd_api.g_miss_char
8025     , p6_a97  VARCHAR2 := fnd_api.g_miss_char
8026     , p6_a98  NUMBER := 0-1962.0724
8027   )
8028 
8029   as
8030     ddp_clev_rec okl_okc_migration_pvt.clev_rec_type;
8031     ddp_klev_rec okl_contract_pvt.klev_rec_type;
8032     ddx_clev_rec okl_okc_migration_pvt.clev_rec_type;
8033     ddx_klev_rec okl_contract_pvt.klev_rec_type;
8034     ddindx binary_integer; indx binary_integer;
8035   begin
8036 
8037     -- copy data to the local IN or IN-OUT args, if any
8038 
8039 
8040 
8041 
8042 
8043     ddp_clev_rec.id := rosetta_g_miss_num_map(p5_a0);
8044     ddp_clev_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
8045     ddp_clev_rec.sfwt_flag := p5_a2;
8046     ddp_clev_rec.chr_id := rosetta_g_miss_num_map(p5_a3);
8047     ddp_clev_rec.cle_id := rosetta_g_miss_num_map(p5_a4);
8048     ddp_clev_rec.cle_id_renewed := rosetta_g_miss_num_map(p5_a5);
8049     ddp_clev_rec.cle_id_renewed_to := rosetta_g_miss_num_map(p5_a6);
8050     ddp_clev_rec.lse_id := rosetta_g_miss_num_map(p5_a7);
8051     ddp_clev_rec.line_number := p5_a8;
8052     ddp_clev_rec.sts_code := p5_a9;
8053     ddp_clev_rec.display_sequence := rosetta_g_miss_num_map(p5_a10);
8054     ddp_clev_rec.trn_code := p5_a11;
8055     ddp_clev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a12);
8056     ddp_clev_rec.comments := p5_a13;
8057     ddp_clev_rec.item_description := p5_a14;
8058     ddp_clev_rec.oke_boe_description := p5_a15;
8059     ddp_clev_rec.cognomen := p5_a16;
8060     ddp_clev_rec.hidden_ind := p5_a17;
8061     ddp_clev_rec.price_unit := rosetta_g_miss_num_map(p5_a18);
8062     ddp_clev_rec.price_unit_percent := rosetta_g_miss_num_map(p5_a19);
8063     ddp_clev_rec.price_negotiated := rosetta_g_miss_num_map(p5_a20);
8064     ddp_clev_rec.price_negotiated_renewed := rosetta_g_miss_num_map(p5_a21);
8065     ddp_clev_rec.price_level_ind := p5_a22;
8066     ddp_clev_rec.invoice_line_level_ind := p5_a23;
8067     ddp_clev_rec.dpas_rating := p5_a24;
8068     ddp_clev_rec.block23text := p5_a25;
8069     ddp_clev_rec.exception_yn := p5_a26;
8070     ddp_clev_rec.template_used := p5_a27;
8071     ddp_clev_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a28);
8072     ddp_clev_rec.name := p5_a29;
8073     ddp_clev_rec.start_date := rosetta_g_miss_date_in_map(p5_a30);
8074     ddp_clev_rec.end_date := rosetta_g_miss_date_in_map(p5_a31);
8075     ddp_clev_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a32);
8076     ddp_clev_rec.upg_orig_system_ref := p5_a33;
8077     ddp_clev_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a34);
8078     ddp_clev_rec.orig_system_source_code := p5_a35;
8079     ddp_clev_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a36);
8080     ddp_clev_rec.orig_system_reference1 := p5_a37;
8081     ddp_clev_rec.attribute_category := p5_a38;
8082     ddp_clev_rec.attribute1 := p5_a39;
8083     ddp_clev_rec.attribute2 := p5_a40;
8084     ddp_clev_rec.attribute3 := p5_a41;
8085     ddp_clev_rec.attribute4 := p5_a42;
8086     ddp_clev_rec.attribute5 := p5_a43;
8087     ddp_clev_rec.attribute6 := p5_a44;
8088     ddp_clev_rec.attribute7 := p5_a45;
8089     ddp_clev_rec.attribute8 := p5_a46;
8090     ddp_clev_rec.attribute9 := p5_a47;
8091     ddp_clev_rec.attribute10 := p5_a48;
8092     ddp_clev_rec.attribute11 := p5_a49;
8093     ddp_clev_rec.attribute12 := p5_a50;
8094     ddp_clev_rec.attribute13 := p5_a51;
8095     ddp_clev_rec.attribute14 := p5_a52;
8096     ddp_clev_rec.attribute15 := p5_a53;
8097     ddp_clev_rec.created_by := rosetta_g_miss_num_map(p5_a54);
8098     ddp_clev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a55);
8099     ddp_clev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a56);
8100     ddp_clev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a57);
8101     ddp_clev_rec.price_type := p5_a58;
8102     ddp_clev_rec.currency_code := p5_a59;
8103     ddp_clev_rec.currency_code_renewed := p5_a60;
8104     ddp_clev_rec.last_update_login := rosetta_g_miss_num_map(p5_a61);
8105     ddp_clev_rec.old_sts_code := p5_a62;
8106     ddp_clev_rec.new_sts_code := p5_a63;
8107     ddp_clev_rec.old_ste_code := p5_a64;
8108     ddp_clev_rec.new_ste_code := p5_a65;
8109     ddp_clev_rec.call_action_asmblr := p5_a66;
8110     ddp_clev_rec.request_id := rosetta_g_miss_num_map(p5_a67);
8111     ddp_clev_rec.program_application_id := rosetta_g_miss_num_map(p5_a68);
8112     ddp_clev_rec.program_id := rosetta_g_miss_num_map(p5_a69);
8113     ddp_clev_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a70);
8114     ddp_clev_rec.price_list_id := rosetta_g_miss_num_map(p5_a71);
8115     ddp_clev_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a72);
8116     ddp_clev_rec.price_list_line_id := rosetta_g_miss_num_map(p5_a73);
8117     ddp_clev_rec.line_list_price := rosetta_g_miss_num_map(p5_a74);
8118     ddp_clev_rec.item_to_price_yn := p5_a75;
8119     ddp_clev_rec.price_basis_yn := p5_a76;
8120     ddp_clev_rec.config_header_id := rosetta_g_miss_num_map(p5_a77);
8121     ddp_clev_rec.config_revision_number := rosetta_g_miss_num_map(p5_a78);
8122     ddp_clev_rec.config_complete_yn := p5_a79;
8123     ddp_clev_rec.config_valid_yn := p5_a80;
8124     ddp_clev_rec.config_top_model_line_id := rosetta_g_miss_num_map(p5_a81);
8125     ddp_clev_rec.config_item_type := p5_a82;
8126     ddp_clev_rec.config_item_id := rosetta_g_miss_num_map(p5_a83);
8127     ddp_clev_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a84);
8128     ddp_clev_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a85);
8129     ddp_clev_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a86);
8130     ddp_clev_rec.line_renewal_type_code := p5_a87;
8131     ddp_clev_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a88);
8132     ddp_clev_rec.payment_term_id := rosetta_g_miss_num_map(p5_a89);
8133 
8134     ddp_klev_rec.id := rosetta_g_miss_num_map(p6_a0);
8135     ddp_klev_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
8136     ddp_klev_rec.kle_id := rosetta_g_miss_num_map(p6_a2);
8137     ddp_klev_rec.sty_id := rosetta_g_miss_num_map(p6_a3);
8138     ddp_klev_rec.prc_code := p6_a4;
8139     ddp_klev_rec.fcg_code := p6_a5;
8140     ddp_klev_rec.nty_code := p6_a6;
8141     ddp_klev_rec.estimated_oec := rosetta_g_miss_num_map(p6_a7);
8142     ddp_klev_rec.lao_amount := rosetta_g_miss_num_map(p6_a8);
8143     ddp_klev_rec.title_date := rosetta_g_miss_date_in_map(p6_a9);
8144     ddp_klev_rec.fee_charge := rosetta_g_miss_num_map(p6_a10);
8145     ddp_klev_rec.lrs_percent := rosetta_g_miss_num_map(p6_a11);
8146     ddp_klev_rec.initial_direct_cost := rosetta_g_miss_num_map(p6_a12);
8147     ddp_klev_rec.percent_stake := rosetta_g_miss_num_map(p6_a13);
8148     ddp_klev_rec.percent := rosetta_g_miss_num_map(p6_a14);
8149     ddp_klev_rec.evergreen_percent := rosetta_g_miss_num_map(p6_a15);
8150     ddp_klev_rec.amount_stake := rosetta_g_miss_num_map(p6_a16);
8151     ddp_klev_rec.occupancy := rosetta_g_miss_num_map(p6_a17);
8152     ddp_klev_rec.coverage := rosetta_g_miss_num_map(p6_a18);
8153     ddp_klev_rec.residual_percentage := rosetta_g_miss_num_map(p6_a19);
8154     ddp_klev_rec.date_last_inspection := rosetta_g_miss_date_in_map(p6_a20);
8155     ddp_klev_rec.date_sold := rosetta_g_miss_date_in_map(p6_a21);
8156     ddp_klev_rec.lrv_amount := rosetta_g_miss_num_map(p6_a22);
8157     ddp_klev_rec.capital_reduction := rosetta_g_miss_num_map(p6_a23);
8158     ddp_klev_rec.date_next_inspection_due := rosetta_g_miss_date_in_map(p6_a24);
8159     ddp_klev_rec.date_residual_last_review := rosetta_g_miss_date_in_map(p6_a25);
8160     ddp_klev_rec.date_last_reamortisation := rosetta_g_miss_date_in_map(p6_a26);
8161     ddp_klev_rec.vendor_advance_paid := rosetta_g_miss_num_map(p6_a27);
8162     ddp_klev_rec.weighted_average_life := rosetta_g_miss_num_map(p6_a28);
8163     ddp_klev_rec.tradein_amount := rosetta_g_miss_num_map(p6_a29);
8164     ddp_klev_rec.bond_equivalent_yield := rosetta_g_miss_num_map(p6_a30);
8165     ddp_klev_rec.termination_purchase_amount := rosetta_g_miss_num_map(p6_a31);
8166     ddp_klev_rec.refinance_amount := rosetta_g_miss_num_map(p6_a32);
8167     ddp_klev_rec.year_built := rosetta_g_miss_num_map(p6_a33);
8168     ddp_klev_rec.delivered_date := rosetta_g_miss_date_in_map(p6_a34);
8169     ddp_klev_rec.credit_tenant_yn := p6_a35;
8170     ddp_klev_rec.date_last_cleanup := rosetta_g_miss_date_in_map(p6_a36);
8171     ddp_klev_rec.year_of_manufacture := p6_a37;
8172     ddp_klev_rec.coverage_ratio := rosetta_g_miss_num_map(p6_a38);
8173     ddp_klev_rec.remarketed_amount := rosetta_g_miss_num_map(p6_a39);
8174     ddp_klev_rec.gross_square_footage := rosetta_g_miss_num_map(p6_a40);
8175     ddp_klev_rec.prescribed_asset_yn := p6_a41;
8176     ddp_klev_rec.date_remarketed := rosetta_g_miss_date_in_map(p6_a42);
8177     ddp_klev_rec.net_rentable := rosetta_g_miss_num_map(p6_a43);
8178     ddp_klev_rec.remarket_margin := rosetta_g_miss_num_map(p6_a44);
8179     ddp_klev_rec.date_letter_acceptance := rosetta_g_miss_date_in_map(p6_a45);
8180     ddp_klev_rec.repurchased_amount := rosetta_g_miss_num_map(p6_a46);
8181     ddp_klev_rec.date_commitment_expiration := rosetta_g_miss_date_in_map(p6_a47);
8182     ddp_klev_rec.date_repurchased := rosetta_g_miss_date_in_map(p6_a48);
8183     ddp_klev_rec.date_appraisal := rosetta_g_miss_date_in_map(p6_a49);
8184     ddp_klev_rec.residual_value := rosetta_g_miss_num_map(p6_a50);
8185     ddp_klev_rec.appraisal_value := rosetta_g_miss_num_map(p6_a51);
8186     ddp_klev_rec.secured_deal_yn := p6_a52;
8187     ddp_klev_rec.gain_loss := rosetta_g_miss_num_map(p6_a53);
8188     ddp_klev_rec.floor_amount := rosetta_g_miss_num_map(p6_a54);
8189     ddp_klev_rec.re_lease_yn := p6_a55;
8190     ddp_klev_rec.previous_contract := p6_a56;
8191     ddp_klev_rec.tracked_residual := rosetta_g_miss_num_map(p6_a57);
8192     ddp_klev_rec.date_title_received := rosetta_g_miss_date_in_map(p6_a58);
8193     ddp_klev_rec.amount := rosetta_g_miss_num_map(p6_a59);
8194     ddp_klev_rec.attribute_category := p6_a60;
8195     ddp_klev_rec.attribute1 := p6_a61;
8196     ddp_klev_rec.attribute2 := p6_a62;
8197     ddp_klev_rec.attribute3 := p6_a63;
8198     ddp_klev_rec.attribute4 := p6_a64;
8199     ddp_klev_rec.attribute5 := p6_a65;
8200     ddp_klev_rec.attribute6 := p6_a66;
8201     ddp_klev_rec.attribute7 := p6_a67;
8202     ddp_klev_rec.attribute8 := p6_a68;
8203     ddp_klev_rec.attribute9 := p6_a69;
8204     ddp_klev_rec.attribute10 := p6_a70;
8205     ddp_klev_rec.attribute11 := p6_a71;
8206     ddp_klev_rec.attribute12 := p6_a72;
8207     ddp_klev_rec.attribute13 := p6_a73;
8208     ddp_klev_rec.attribute14 := p6_a74;
8209     ddp_klev_rec.attribute15 := p6_a75;
8210     ddp_klev_rec.sty_id_for := rosetta_g_miss_num_map(p6_a76);
8211     ddp_klev_rec.clg_id := rosetta_g_miss_num_map(p6_a77);
8212     ddp_klev_rec.created_by := rosetta_g_miss_num_map(p6_a78);
8213     ddp_klev_rec.creation_date := rosetta_g_miss_date_in_map(p6_a79);
8214     ddp_klev_rec.last_updated_by := rosetta_g_miss_num_map(p6_a80);
8215     ddp_klev_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a81);
8216     ddp_klev_rec.last_update_login := rosetta_g_miss_num_map(p6_a82);
8217     ddp_klev_rec.date_funding := rosetta_g_miss_date_in_map(p6_a83);
8218     ddp_klev_rec.date_funding_required := rosetta_g_miss_date_in_map(p6_a84);
8219     ddp_klev_rec.date_accepted := rosetta_g_miss_date_in_map(p6_a85);
8220     ddp_klev_rec.date_delivery_expected := rosetta_g_miss_date_in_map(p6_a86);
8221     ddp_klev_rec.oec := rosetta_g_miss_num_map(p6_a87);
8222     ddp_klev_rec.capital_amount := rosetta_g_miss_num_map(p6_a88);
8223     ddp_klev_rec.residual_grnty_amount := rosetta_g_miss_num_map(p6_a89);
8224     ddp_klev_rec.residual_code := p6_a90;
8225     ddp_klev_rec.rvi_premium := rosetta_g_miss_num_map(p6_a91);
8226     ddp_klev_rec.credit_nature := p6_a92;
8227     ddp_klev_rec.capitalized_interest := rosetta_g_miss_num_map(p6_a93);
8228     ddp_klev_rec.capital_reduction_percent := rosetta_g_miss_num_map(p6_a94);
8229     ddp_klev_rec.date_pay_investor_start := rosetta_g_miss_date_in_map(p6_a95);
8230     ddp_klev_rec.pay_investor_frequency := p6_a96;
8231     ddp_klev_rec.pay_investor_event := p6_a97;
8232     ddp_klev_rec.pay_investor_remittance_days := rosetta_g_miss_num_map(p6_a98);
8233 
8234 
8235 
8236     -- here's the delegated call to the old PL/SQL routine
8237     okl_contract_pvt.update_contract_line(p_api_version,
8238       p_init_msg_list,
8239       x_return_status,
8240       x_msg_count,
8241       x_msg_data,
8242       ddp_clev_rec,
8243       ddp_klev_rec,
8244       ddx_clev_rec,
8245       ddx_klev_rec);
8246 
8247     -- copy data back from the local variables to OUT or IN-OUT args, if any
8248 
8249 
8250 
8251 
8252 
8253 
8254 
8255     p7_a0 := rosetta_g_miss_num_map(ddx_clev_rec.id);
8256     p7_a1 := rosetta_g_miss_num_map(ddx_clev_rec.object_version_number);
8257     p7_a2 := ddx_clev_rec.sfwt_flag;
8258     p7_a3 := rosetta_g_miss_num_map(ddx_clev_rec.chr_id);
8259     p7_a4 := rosetta_g_miss_num_map(ddx_clev_rec.cle_id);
8260     p7_a5 := rosetta_g_miss_num_map(ddx_clev_rec.cle_id_renewed);
8261     p7_a6 := rosetta_g_miss_num_map(ddx_clev_rec.cle_id_renewed_to);
8262     p7_a7 := rosetta_g_miss_num_map(ddx_clev_rec.lse_id);
8263     p7_a8 := ddx_clev_rec.line_number;
8264     p7_a9 := ddx_clev_rec.sts_code;
8265     p7_a10 := rosetta_g_miss_num_map(ddx_clev_rec.display_sequence);
8266     p7_a11 := ddx_clev_rec.trn_code;
8267     p7_a12 := rosetta_g_miss_num_map(ddx_clev_rec.dnz_chr_id);
8268     p7_a13 := ddx_clev_rec.comments;
8269     p7_a14 := ddx_clev_rec.item_description;
8270     p7_a15 := ddx_clev_rec.oke_boe_description;
8271     p7_a16 := ddx_clev_rec.cognomen;
8272     p7_a17 := ddx_clev_rec.hidden_ind;
8273     p7_a18 := rosetta_g_miss_num_map(ddx_clev_rec.price_unit);
8274     p7_a19 := rosetta_g_miss_num_map(ddx_clev_rec.price_unit_percent);
8275     p7_a20 := rosetta_g_miss_num_map(ddx_clev_rec.price_negotiated);
8276     p7_a21 := rosetta_g_miss_num_map(ddx_clev_rec.price_negotiated_renewed);
8277     p7_a22 := ddx_clev_rec.price_level_ind;
8278     p7_a23 := ddx_clev_rec.invoice_line_level_ind;
8279     p7_a24 := ddx_clev_rec.dpas_rating;
8280     p7_a25 := ddx_clev_rec.block23text;
8281     p7_a26 := ddx_clev_rec.exception_yn;
8282     p7_a27 := ddx_clev_rec.template_used;
8283     p7_a28 := ddx_clev_rec.date_terminated;
8284     p7_a29 := ddx_clev_rec.name;
8285     p7_a30 := ddx_clev_rec.start_date;
8286     p7_a31 := ddx_clev_rec.end_date;
8287     p7_a32 := ddx_clev_rec.date_renewed;
8288     p7_a33 := ddx_clev_rec.upg_orig_system_ref;
8289     p7_a34 := rosetta_g_miss_num_map(ddx_clev_rec.upg_orig_system_ref_id);
8290     p7_a35 := ddx_clev_rec.orig_system_source_code;
8291     p7_a36 := rosetta_g_miss_num_map(ddx_clev_rec.orig_system_id1);
8292     p7_a37 := ddx_clev_rec.orig_system_reference1;
8293     p7_a38 := ddx_clev_rec.attribute_category;
8294     p7_a39 := ddx_clev_rec.attribute1;
8295     p7_a40 := ddx_clev_rec.attribute2;
8296     p7_a41 := ddx_clev_rec.attribute3;
8297     p7_a42 := ddx_clev_rec.attribute4;
8298     p7_a43 := ddx_clev_rec.attribute5;
8299     p7_a44 := ddx_clev_rec.attribute6;
8300     p7_a45 := ddx_clev_rec.attribute7;
8301     p7_a46 := ddx_clev_rec.attribute8;
8302     p7_a47 := ddx_clev_rec.attribute9;
8303     p7_a48 := ddx_clev_rec.attribute10;
8304     p7_a49 := ddx_clev_rec.attribute11;
8305     p7_a50 := ddx_clev_rec.attribute12;
8306     p7_a51 := ddx_clev_rec.attribute13;
8307     p7_a52 := ddx_clev_rec.attribute14;
8308     p7_a53 := ddx_clev_rec.attribute15;
8309     p7_a54 := rosetta_g_miss_num_map(ddx_clev_rec.created_by);
8310     p7_a55 := ddx_clev_rec.creation_date;
8311     p7_a56 := rosetta_g_miss_num_map(ddx_clev_rec.last_updated_by);
8312     p7_a57 := ddx_clev_rec.last_update_date;
8313     p7_a58 := ddx_clev_rec.price_type;
8314     p7_a59 := ddx_clev_rec.currency_code;
8315     p7_a60 := ddx_clev_rec.currency_code_renewed;
8316     p7_a61 := rosetta_g_miss_num_map(ddx_clev_rec.last_update_login);
8317     p7_a62 := ddx_clev_rec.old_sts_code;
8318     p7_a63 := ddx_clev_rec.new_sts_code;
8319     p7_a64 := ddx_clev_rec.old_ste_code;
8320     p7_a65 := ddx_clev_rec.new_ste_code;
8321     p7_a66 := ddx_clev_rec.call_action_asmblr;
8322     p7_a67 := rosetta_g_miss_num_map(ddx_clev_rec.request_id);
8323     p7_a68 := rosetta_g_miss_num_map(ddx_clev_rec.program_application_id);
8324     p7_a69 := rosetta_g_miss_num_map(ddx_clev_rec.program_id);
8325     p7_a70 := ddx_clev_rec.program_update_date;
8326     p7_a71 := rosetta_g_miss_num_map(ddx_clev_rec.price_list_id);
8327     p7_a72 := ddx_clev_rec.pricing_date;
8328     p7_a73 := rosetta_g_miss_num_map(ddx_clev_rec.price_list_line_id);
8329     p7_a74 := rosetta_g_miss_num_map(ddx_clev_rec.line_list_price);
8330     p7_a75 := ddx_clev_rec.item_to_price_yn;
8331     p7_a76 := ddx_clev_rec.price_basis_yn;
8332     p7_a77 := rosetta_g_miss_num_map(ddx_clev_rec.config_header_id);
8333     p7_a78 := rosetta_g_miss_num_map(ddx_clev_rec.config_revision_number);
8334     p7_a79 := ddx_clev_rec.config_complete_yn;
8335     p7_a80 := ddx_clev_rec.config_valid_yn;
8336     p7_a81 := rosetta_g_miss_num_map(ddx_clev_rec.config_top_model_line_id);
8337     p7_a82 := ddx_clev_rec.config_item_type;
8338     p7_a83 := rosetta_g_miss_num_map(ddx_clev_rec.config_item_id);
8339     p7_a84 := rosetta_g_miss_num_map(ddx_clev_rec.cust_acct_id);
8340     p7_a85 := rosetta_g_miss_num_map(ddx_clev_rec.bill_to_site_use_id);
8341     p7_a86 := rosetta_g_miss_num_map(ddx_clev_rec.inv_rule_id);
8342     p7_a87 := ddx_clev_rec.line_renewal_type_code;
8343     p7_a88 := rosetta_g_miss_num_map(ddx_clev_rec.ship_to_site_use_id);
8344     p7_a89 := rosetta_g_miss_num_map(ddx_clev_rec.payment_term_id);
8345 
8346     p8_a0 := rosetta_g_miss_num_map(ddx_klev_rec.id);
8347     p8_a1 := rosetta_g_miss_num_map(ddx_klev_rec.object_version_number);
8348     p8_a2 := rosetta_g_miss_num_map(ddx_klev_rec.kle_id);
8349     p8_a3 := rosetta_g_miss_num_map(ddx_klev_rec.sty_id);
8350     p8_a4 := ddx_klev_rec.prc_code;
8351     p8_a5 := ddx_klev_rec.fcg_code;
8352     p8_a6 := ddx_klev_rec.nty_code;
8353     p8_a7 := rosetta_g_miss_num_map(ddx_klev_rec.estimated_oec);
8354     p8_a8 := rosetta_g_miss_num_map(ddx_klev_rec.lao_amount);
8355     p8_a9 := ddx_klev_rec.title_date;
8356     p8_a10 := rosetta_g_miss_num_map(ddx_klev_rec.fee_charge);
8357     p8_a11 := rosetta_g_miss_num_map(ddx_klev_rec.lrs_percent);
8358     p8_a12 := rosetta_g_miss_num_map(ddx_klev_rec.initial_direct_cost);
8359     p8_a13 := rosetta_g_miss_num_map(ddx_klev_rec.percent_stake);
8360     p8_a14 := rosetta_g_miss_num_map(ddx_klev_rec.percent);
8361     p8_a15 := rosetta_g_miss_num_map(ddx_klev_rec.evergreen_percent);
8362     p8_a16 := rosetta_g_miss_num_map(ddx_klev_rec.amount_stake);
8363     p8_a17 := rosetta_g_miss_num_map(ddx_klev_rec.occupancy);
8364     p8_a18 := rosetta_g_miss_num_map(ddx_klev_rec.coverage);
8365     p8_a19 := rosetta_g_miss_num_map(ddx_klev_rec.residual_percentage);
8366     p8_a20 := ddx_klev_rec.date_last_inspection;
8367     p8_a21 := ddx_klev_rec.date_sold;
8368     p8_a22 := rosetta_g_miss_num_map(ddx_klev_rec.lrv_amount);
8369     p8_a23 := rosetta_g_miss_num_map(ddx_klev_rec.capital_reduction);
8370     p8_a24 := ddx_klev_rec.date_next_inspection_due;
8371     p8_a25 := ddx_klev_rec.date_residual_last_review;
8372     p8_a26 := ddx_klev_rec.date_last_reamortisation;
8373     p8_a27 := rosetta_g_miss_num_map(ddx_klev_rec.vendor_advance_paid);
8374     p8_a28 := rosetta_g_miss_num_map(ddx_klev_rec.weighted_average_life);
8375     p8_a29 := rosetta_g_miss_num_map(ddx_klev_rec.tradein_amount);
8376     p8_a30 := rosetta_g_miss_num_map(ddx_klev_rec.bond_equivalent_yield);
8377     p8_a31 := rosetta_g_miss_num_map(ddx_klev_rec.termination_purchase_amount);
8378     p8_a32 := rosetta_g_miss_num_map(ddx_klev_rec.refinance_amount);
8379     p8_a33 := rosetta_g_miss_num_map(ddx_klev_rec.year_built);
8380     p8_a34 := ddx_klev_rec.delivered_date;
8381     p8_a35 := ddx_klev_rec.credit_tenant_yn;
8382     p8_a36 := ddx_klev_rec.date_last_cleanup;
8383     p8_a37 := ddx_klev_rec.year_of_manufacture;
8384     p8_a38 := rosetta_g_miss_num_map(ddx_klev_rec.coverage_ratio);
8385     p8_a39 := rosetta_g_miss_num_map(ddx_klev_rec.remarketed_amount);
8386     p8_a40 := rosetta_g_miss_num_map(ddx_klev_rec.gross_square_footage);
8387     p8_a41 := ddx_klev_rec.prescribed_asset_yn;
8388     p8_a42 := ddx_klev_rec.date_remarketed;
8389     p8_a43 := rosetta_g_miss_num_map(ddx_klev_rec.net_rentable);
8390     p8_a44 := rosetta_g_miss_num_map(ddx_klev_rec.remarket_margin);
8391     p8_a45 := ddx_klev_rec.date_letter_acceptance;
8392     p8_a46 := rosetta_g_miss_num_map(ddx_klev_rec.repurchased_amount);
8393     p8_a47 := ddx_klev_rec.date_commitment_expiration;
8394     p8_a48 := ddx_klev_rec.date_repurchased;
8395     p8_a49 := ddx_klev_rec.date_appraisal;
8396     p8_a50 := rosetta_g_miss_num_map(ddx_klev_rec.residual_value);
8397     p8_a51 := rosetta_g_miss_num_map(ddx_klev_rec.appraisal_value);
8398     p8_a52 := ddx_klev_rec.secured_deal_yn;
8399     p8_a53 := rosetta_g_miss_num_map(ddx_klev_rec.gain_loss);
8400     p8_a54 := rosetta_g_miss_num_map(ddx_klev_rec.floor_amount);
8401     p8_a55 := ddx_klev_rec.re_lease_yn;
8402     p8_a56 := ddx_klev_rec.previous_contract;
8403     p8_a57 := rosetta_g_miss_num_map(ddx_klev_rec.tracked_residual);
8404     p8_a58 := ddx_klev_rec.date_title_received;
8405     p8_a59 := rosetta_g_miss_num_map(ddx_klev_rec.amount);
8406     p8_a60 := ddx_klev_rec.attribute_category;
8407     p8_a61 := ddx_klev_rec.attribute1;
8408     p8_a62 := ddx_klev_rec.attribute2;
8409     p8_a63 := ddx_klev_rec.attribute3;
8410     p8_a64 := ddx_klev_rec.attribute4;
8411     p8_a65 := ddx_klev_rec.attribute5;
8412     p8_a66 := ddx_klev_rec.attribute6;
8413     p8_a67 := ddx_klev_rec.attribute7;
8414     p8_a68 := ddx_klev_rec.attribute8;
8415     p8_a69 := ddx_klev_rec.attribute9;
8416     p8_a70 := ddx_klev_rec.attribute10;
8417     p8_a71 := ddx_klev_rec.attribute11;
8418     p8_a72 := ddx_klev_rec.attribute12;
8419     p8_a73 := ddx_klev_rec.attribute13;
8420     p8_a74 := ddx_klev_rec.attribute14;
8421     p8_a75 := ddx_klev_rec.attribute15;
8422     p8_a76 := rosetta_g_miss_num_map(ddx_klev_rec.sty_id_for);
8423     p8_a77 := rosetta_g_miss_num_map(ddx_klev_rec.clg_id);
8424     p8_a78 := rosetta_g_miss_num_map(ddx_klev_rec.created_by);
8425     p8_a79 := ddx_klev_rec.creation_date;
8426     p8_a80 := rosetta_g_miss_num_map(ddx_klev_rec.last_updated_by);
8427     p8_a81 := ddx_klev_rec.last_update_date;
8428     p8_a82 := rosetta_g_miss_num_map(ddx_klev_rec.last_update_login);
8429     p8_a83 := ddx_klev_rec.date_funding;
8430     p8_a84 := ddx_klev_rec.date_funding_required;
8431     p8_a85 := ddx_klev_rec.date_accepted;
8432     p8_a86 := ddx_klev_rec.date_delivery_expected;
8433     p8_a87 := rosetta_g_miss_num_map(ddx_klev_rec.oec);
8434     p8_a88 := rosetta_g_miss_num_map(ddx_klev_rec.capital_amount);
8435     p8_a89 := rosetta_g_miss_num_map(ddx_klev_rec.residual_grnty_amount);
8436     p8_a90 := ddx_klev_rec.residual_code;
8437     p8_a91 := rosetta_g_miss_num_map(ddx_klev_rec.rvi_premium);
8438     p8_a92 := ddx_klev_rec.credit_nature;
8439     p8_a93 := rosetta_g_miss_num_map(ddx_klev_rec.capitalized_interest);
8440     p8_a94 := rosetta_g_miss_num_map(ddx_klev_rec.capital_reduction_percent);
8441     p8_a95 := ddx_klev_rec.date_pay_investor_start;
8442     p8_a96 := ddx_klev_rec.pay_investor_frequency;
8443     p8_a97 := ddx_klev_rec.pay_investor_event;
8444     p8_a98 := rosetta_g_miss_num_map(ddx_klev_rec.pay_investor_remittance_days);
8445   end;
8446 
8447   procedure update_contract_line(p_api_version  NUMBER
8448     , p_init_msg_list  VARCHAR2
8449     , x_return_status out nocopy  VARCHAR2
8450     , x_msg_count out nocopy  NUMBER
8451     , x_msg_data out nocopy  VARCHAR2
8452     , p5_a0 JTF_NUMBER_TABLE
8453     , p5_a1 JTF_NUMBER_TABLE
8454     , p5_a2 JTF_VARCHAR2_TABLE_100
8455     , p5_a3 JTF_NUMBER_TABLE
8456     , p5_a4 JTF_NUMBER_TABLE
8457     , p5_a5 JTF_NUMBER_TABLE
8458     , p5_a6 JTF_NUMBER_TABLE
8459     , p5_a7 JTF_NUMBER_TABLE
8460     , p5_a8 JTF_VARCHAR2_TABLE_200
8461     , p5_a9 JTF_VARCHAR2_TABLE_100
8462     , p5_a10 JTF_NUMBER_TABLE
8463     , p5_a11 JTF_VARCHAR2_TABLE_100
8464     , p5_a12 JTF_NUMBER_TABLE
8465     , p5_a13 JTF_VARCHAR2_TABLE_2000
8466     , p5_a14 JTF_VARCHAR2_TABLE_2000
8467     , p5_a15 JTF_VARCHAR2_TABLE_2000
8468     , p5_a16 JTF_VARCHAR2_TABLE_300
8469     , p5_a17 JTF_VARCHAR2_TABLE_100
8470     , p5_a18 JTF_NUMBER_TABLE
8471     , p5_a19 JTF_NUMBER_TABLE
8472     , p5_a20 JTF_NUMBER_TABLE
8473     , p5_a21 JTF_NUMBER_TABLE
8474     , p5_a22 JTF_VARCHAR2_TABLE_100
8475     , p5_a23 JTF_VARCHAR2_TABLE_100
8476     , p5_a24 JTF_VARCHAR2_TABLE_100
8477     , p5_a25 JTF_VARCHAR2_TABLE_2000
8478     , p5_a26 JTF_VARCHAR2_TABLE_100
8479     , p5_a27 JTF_VARCHAR2_TABLE_200
8480     , p5_a28 JTF_DATE_TABLE
8481     , p5_a29 JTF_VARCHAR2_TABLE_200
8482     , p5_a30 JTF_DATE_TABLE
8483     , p5_a31 JTF_DATE_TABLE
8484     , p5_a32 JTF_DATE_TABLE
8485     , p5_a33 JTF_VARCHAR2_TABLE_100
8486     , p5_a34 JTF_NUMBER_TABLE
8487     , p5_a35 JTF_VARCHAR2_TABLE_100
8488     , p5_a36 JTF_NUMBER_TABLE
8489     , p5_a37 JTF_VARCHAR2_TABLE_100
8490     , p5_a38 JTF_VARCHAR2_TABLE_100
8491     , p5_a39 JTF_VARCHAR2_TABLE_500
8492     , p5_a40 JTF_VARCHAR2_TABLE_500
8493     , p5_a41 JTF_VARCHAR2_TABLE_500
8494     , p5_a42 JTF_VARCHAR2_TABLE_500
8495     , p5_a43 JTF_VARCHAR2_TABLE_500
8496     , p5_a44 JTF_VARCHAR2_TABLE_500
8497     , p5_a45 JTF_VARCHAR2_TABLE_500
8498     , p5_a46 JTF_VARCHAR2_TABLE_500
8499     , p5_a47 JTF_VARCHAR2_TABLE_500
8500     , p5_a48 JTF_VARCHAR2_TABLE_500
8501     , p5_a49 JTF_VARCHAR2_TABLE_500
8502     , p5_a50 JTF_VARCHAR2_TABLE_500
8503     , p5_a51 JTF_VARCHAR2_TABLE_500
8504     , p5_a52 JTF_VARCHAR2_TABLE_500
8505     , p5_a53 JTF_VARCHAR2_TABLE_500
8506     , p5_a54 JTF_NUMBER_TABLE
8507     , p5_a55 JTF_DATE_TABLE
8508     , p5_a56 JTF_NUMBER_TABLE
8509     , p5_a57 JTF_DATE_TABLE
8510     , p5_a58 JTF_VARCHAR2_TABLE_100
8511     , p5_a59 JTF_VARCHAR2_TABLE_100
8512     , p5_a60 JTF_VARCHAR2_TABLE_100
8513     , p5_a61 JTF_NUMBER_TABLE
8514     , p5_a62 JTF_VARCHAR2_TABLE_100
8515     , p5_a63 JTF_VARCHAR2_TABLE_100
8516     , p5_a64 JTF_VARCHAR2_TABLE_100
8517     , p5_a65 JTF_VARCHAR2_TABLE_100
8518     , p5_a66 JTF_VARCHAR2_TABLE_100
8519     , p5_a67 JTF_NUMBER_TABLE
8520     , p5_a68 JTF_NUMBER_TABLE
8521     , p5_a69 JTF_NUMBER_TABLE
8522     , p5_a70 JTF_DATE_TABLE
8523     , p5_a71 JTF_NUMBER_TABLE
8524     , p5_a72 JTF_DATE_TABLE
8525     , p5_a73 JTF_NUMBER_TABLE
8526     , p5_a74 JTF_NUMBER_TABLE
8527     , p5_a75 JTF_VARCHAR2_TABLE_100
8528     , p5_a76 JTF_VARCHAR2_TABLE_100
8529     , p5_a77 JTF_NUMBER_TABLE
8530     , p5_a78 JTF_NUMBER_TABLE
8531     , p5_a79 JTF_VARCHAR2_TABLE_100
8532     , p5_a80 JTF_VARCHAR2_TABLE_100
8533     , p5_a81 JTF_NUMBER_TABLE
8534     , p5_a82 JTF_VARCHAR2_TABLE_100
8535     , p5_a83 JTF_NUMBER_TABLE
8536     , p5_a84 JTF_NUMBER_TABLE
8537     , p5_a85 JTF_NUMBER_TABLE
8538     , p5_a86 JTF_NUMBER_TABLE
8539     , p5_a87 JTF_VARCHAR2_TABLE_100
8540     , p5_a88 JTF_NUMBER_TABLE
8541     , p5_a89 JTF_NUMBER_TABLE
8542     , p6_a0 JTF_NUMBER_TABLE
8543     , p6_a1 JTF_NUMBER_TABLE
8544     , p6_a2 JTF_NUMBER_TABLE
8545     , p6_a3 JTF_NUMBER_TABLE
8546     , p6_a4 JTF_VARCHAR2_TABLE_100
8547     , p6_a5 JTF_VARCHAR2_TABLE_100
8548     , p6_a6 JTF_VARCHAR2_TABLE_100
8549     , p6_a7 JTF_NUMBER_TABLE
8550     , p6_a8 JTF_NUMBER_TABLE
8551     , p6_a9 JTF_DATE_TABLE
8552     , p6_a10 JTF_NUMBER_TABLE
8553     , p6_a11 JTF_NUMBER_TABLE
8554     , p6_a12 JTF_NUMBER_TABLE
8555     , p6_a13 JTF_NUMBER_TABLE
8556     , p6_a14 JTF_NUMBER_TABLE
8557     , p6_a15 JTF_NUMBER_TABLE
8558     , p6_a16 JTF_NUMBER_TABLE
8559     , p6_a17 JTF_NUMBER_TABLE
8560     , p6_a18 JTF_NUMBER_TABLE
8561     , p6_a19 JTF_NUMBER_TABLE
8562     , p6_a20 JTF_DATE_TABLE
8563     , p6_a21 JTF_DATE_TABLE
8564     , p6_a22 JTF_NUMBER_TABLE
8565     , p6_a23 JTF_NUMBER_TABLE
8566     , p6_a24 JTF_DATE_TABLE
8567     , p6_a25 JTF_DATE_TABLE
8568     , p6_a26 JTF_DATE_TABLE
8569     , p6_a27 JTF_NUMBER_TABLE
8570     , p6_a28 JTF_NUMBER_TABLE
8571     , p6_a29 JTF_NUMBER_TABLE
8572     , p6_a30 JTF_NUMBER_TABLE
8573     , p6_a31 JTF_NUMBER_TABLE
8574     , p6_a32 JTF_NUMBER_TABLE
8575     , p6_a33 JTF_NUMBER_TABLE
8576     , p6_a34 JTF_DATE_TABLE
8577     , p6_a35 JTF_VARCHAR2_TABLE_100
8578     , p6_a36 JTF_DATE_TABLE
8579     , p6_a37 JTF_VARCHAR2_TABLE_300
8580     , p6_a38 JTF_NUMBER_TABLE
8581     , p6_a39 JTF_NUMBER_TABLE
8582     , p6_a40 JTF_NUMBER_TABLE
8583     , p6_a41 JTF_VARCHAR2_TABLE_100
8584     , p6_a42 JTF_DATE_TABLE
8585     , p6_a43 JTF_NUMBER_TABLE
8586     , p6_a44 JTF_NUMBER_TABLE
8587     , p6_a45 JTF_DATE_TABLE
8588     , p6_a46 JTF_NUMBER_TABLE
8589     , p6_a47 JTF_DATE_TABLE
8590     , p6_a48 JTF_DATE_TABLE
8591     , p6_a49 JTF_DATE_TABLE
8592     , p6_a50 JTF_NUMBER_TABLE
8593     , p6_a51 JTF_NUMBER_TABLE
8594     , p6_a52 JTF_VARCHAR2_TABLE_100
8595     , p6_a53 JTF_NUMBER_TABLE
8596     , p6_a54 JTF_NUMBER_TABLE
8597     , p6_a55 JTF_VARCHAR2_TABLE_100
8598     , p6_a56 JTF_VARCHAR2_TABLE_100
8599     , p6_a57 JTF_NUMBER_TABLE
8600     , p6_a58 JTF_DATE_TABLE
8601     , p6_a59 JTF_NUMBER_TABLE
8602     , p6_a60 JTF_VARCHAR2_TABLE_100
8603     , p6_a61 JTF_VARCHAR2_TABLE_500
8604     , p6_a62 JTF_VARCHAR2_TABLE_500
8605     , p6_a63 JTF_VARCHAR2_TABLE_500
8606     , p6_a64 JTF_VARCHAR2_TABLE_500
8607     , p6_a65 JTF_VARCHAR2_TABLE_500
8608     , p6_a66 JTF_VARCHAR2_TABLE_500
8609     , p6_a67 JTF_VARCHAR2_TABLE_500
8610     , p6_a68 JTF_VARCHAR2_TABLE_500
8611     , p6_a69 JTF_VARCHAR2_TABLE_500
8612     , p6_a70 JTF_VARCHAR2_TABLE_500
8613     , p6_a71 JTF_VARCHAR2_TABLE_500
8614     , p6_a72 JTF_VARCHAR2_TABLE_500
8615     , p6_a73 JTF_VARCHAR2_TABLE_500
8616     , p6_a74 JTF_VARCHAR2_TABLE_500
8617     , p6_a75 JTF_VARCHAR2_TABLE_500
8618     , p6_a76 JTF_NUMBER_TABLE
8619     , p6_a77 JTF_NUMBER_TABLE
8620     , p6_a78 JTF_NUMBER_TABLE
8621     , p6_a79 JTF_DATE_TABLE
8622     , p6_a80 JTF_NUMBER_TABLE
8623     , p6_a81 JTF_DATE_TABLE
8624     , p6_a82 JTF_NUMBER_TABLE
8625     , p6_a83 JTF_DATE_TABLE
8626     , p6_a84 JTF_DATE_TABLE
8627     , p6_a85 JTF_DATE_TABLE
8628     , p6_a86 JTF_DATE_TABLE
8629     , p6_a87 JTF_NUMBER_TABLE
8630     , p6_a88 JTF_NUMBER_TABLE
8631     , p6_a89 JTF_NUMBER_TABLE
8632     , p6_a90 JTF_VARCHAR2_TABLE_100
8633     , p6_a91 JTF_NUMBER_TABLE
8634     , p6_a92 JTF_VARCHAR2_TABLE_100
8635     , p6_a93 JTF_NUMBER_TABLE
8636     , p6_a94 JTF_NUMBER_TABLE
8637     , p6_a95 JTF_DATE_TABLE
8638     , p6_a96 JTF_VARCHAR2_TABLE_100
8639     , p6_a97 JTF_VARCHAR2_TABLE_100
8640     , p6_a98 JTF_NUMBER_TABLE
8641     , p7_a0 out nocopy JTF_NUMBER_TABLE
8642     , p7_a1 out nocopy JTF_NUMBER_TABLE
8643     , p7_a2 out nocopy JTF_VARCHAR2_TABLE_100
8644     , p7_a3 out nocopy JTF_NUMBER_TABLE
8645     , p7_a4 out nocopy JTF_NUMBER_TABLE
8646     , p7_a5 out nocopy JTF_NUMBER_TABLE
8647     , p7_a6 out nocopy JTF_NUMBER_TABLE
8648     , p7_a7 out nocopy JTF_NUMBER_TABLE
8649     , p7_a8 out nocopy JTF_VARCHAR2_TABLE_200
8650     , p7_a9 out nocopy JTF_VARCHAR2_TABLE_100
8651     , p7_a10 out nocopy JTF_NUMBER_TABLE
8652     , p7_a11 out nocopy JTF_VARCHAR2_TABLE_100
8653     , p7_a12 out nocopy JTF_NUMBER_TABLE
8654     , p7_a13 out nocopy JTF_VARCHAR2_TABLE_2000
8655     , p7_a14 out nocopy JTF_VARCHAR2_TABLE_2000
8656     , p7_a15 out nocopy JTF_VARCHAR2_TABLE_2000
8657     , p7_a16 out nocopy JTF_VARCHAR2_TABLE_300
8658     , p7_a17 out nocopy JTF_VARCHAR2_TABLE_100
8659     , p7_a18 out nocopy JTF_NUMBER_TABLE
8660     , p7_a19 out nocopy JTF_NUMBER_TABLE
8661     , p7_a20 out nocopy JTF_NUMBER_TABLE
8662     , p7_a21 out nocopy JTF_NUMBER_TABLE
8663     , p7_a22 out nocopy JTF_VARCHAR2_TABLE_100
8664     , p7_a23 out nocopy JTF_VARCHAR2_TABLE_100
8665     , p7_a24 out nocopy JTF_VARCHAR2_TABLE_100
8666     , p7_a25 out nocopy JTF_VARCHAR2_TABLE_2000
8667     , p7_a26 out nocopy JTF_VARCHAR2_TABLE_100
8668     , p7_a27 out nocopy JTF_VARCHAR2_TABLE_200
8669     , p7_a28 out nocopy JTF_DATE_TABLE
8670     , p7_a29 out nocopy JTF_VARCHAR2_TABLE_200
8671     , p7_a30 out nocopy JTF_DATE_TABLE
8672     , p7_a31 out nocopy JTF_DATE_TABLE
8673     , p7_a32 out nocopy JTF_DATE_TABLE
8674     , p7_a33 out nocopy JTF_VARCHAR2_TABLE_100
8675     , p7_a34 out nocopy JTF_NUMBER_TABLE
8676     , p7_a35 out nocopy JTF_VARCHAR2_TABLE_100
8677     , p7_a36 out nocopy JTF_NUMBER_TABLE
8678     , p7_a37 out nocopy JTF_VARCHAR2_TABLE_100
8679     , p7_a38 out nocopy JTF_VARCHAR2_TABLE_100
8680     , p7_a39 out nocopy JTF_VARCHAR2_TABLE_500
8681     , p7_a40 out nocopy JTF_VARCHAR2_TABLE_500
8682     , p7_a41 out nocopy JTF_VARCHAR2_TABLE_500
8683     , p7_a42 out nocopy JTF_VARCHAR2_TABLE_500
8684     , p7_a43 out nocopy JTF_VARCHAR2_TABLE_500
8685     , p7_a44 out nocopy JTF_VARCHAR2_TABLE_500
8686     , p7_a45 out nocopy JTF_VARCHAR2_TABLE_500
8687     , p7_a46 out nocopy JTF_VARCHAR2_TABLE_500
8688     , p7_a47 out nocopy JTF_VARCHAR2_TABLE_500
8689     , p7_a48 out nocopy JTF_VARCHAR2_TABLE_500
8690     , p7_a49 out nocopy JTF_VARCHAR2_TABLE_500
8691     , p7_a50 out nocopy JTF_VARCHAR2_TABLE_500
8692     , p7_a51 out nocopy JTF_VARCHAR2_TABLE_500
8693     , p7_a52 out nocopy JTF_VARCHAR2_TABLE_500
8694     , p7_a53 out nocopy JTF_VARCHAR2_TABLE_500
8695     , p7_a54 out nocopy JTF_NUMBER_TABLE
8696     , p7_a55 out nocopy JTF_DATE_TABLE
8697     , p7_a56 out nocopy JTF_NUMBER_TABLE
8698     , p7_a57 out nocopy JTF_DATE_TABLE
8699     , p7_a58 out nocopy JTF_VARCHAR2_TABLE_100
8700     , p7_a59 out nocopy JTF_VARCHAR2_TABLE_100
8701     , p7_a60 out nocopy JTF_VARCHAR2_TABLE_100
8702     , p7_a61 out nocopy JTF_NUMBER_TABLE
8703     , p7_a62 out nocopy JTF_VARCHAR2_TABLE_100
8704     , p7_a63 out nocopy JTF_VARCHAR2_TABLE_100
8705     , p7_a64 out nocopy JTF_VARCHAR2_TABLE_100
8706     , p7_a65 out nocopy JTF_VARCHAR2_TABLE_100
8707     , p7_a66 out nocopy JTF_VARCHAR2_TABLE_100
8708     , p7_a67 out nocopy JTF_NUMBER_TABLE
8709     , p7_a68 out nocopy JTF_NUMBER_TABLE
8710     , p7_a69 out nocopy JTF_NUMBER_TABLE
8711     , p7_a70 out nocopy JTF_DATE_TABLE
8712     , p7_a71 out nocopy JTF_NUMBER_TABLE
8713     , p7_a72 out nocopy JTF_DATE_TABLE
8714     , p7_a73 out nocopy JTF_NUMBER_TABLE
8715     , p7_a74 out nocopy JTF_NUMBER_TABLE
8716     , p7_a75 out nocopy JTF_VARCHAR2_TABLE_100
8717     , p7_a76 out nocopy JTF_VARCHAR2_TABLE_100
8718     , p7_a77 out nocopy JTF_NUMBER_TABLE
8719     , p7_a78 out nocopy JTF_NUMBER_TABLE
8720     , p7_a79 out nocopy JTF_VARCHAR2_TABLE_100
8721     , p7_a80 out nocopy JTF_VARCHAR2_TABLE_100
8722     , p7_a81 out nocopy JTF_NUMBER_TABLE
8723     , p7_a82 out nocopy JTF_VARCHAR2_TABLE_100
8724     , p7_a83 out nocopy JTF_NUMBER_TABLE
8725     , p7_a84 out nocopy JTF_NUMBER_TABLE
8726     , p7_a85 out nocopy JTF_NUMBER_TABLE
8727     , p7_a86 out nocopy JTF_NUMBER_TABLE
8728     , p7_a87 out nocopy JTF_VARCHAR2_TABLE_100
8729     , p7_a88 out nocopy JTF_NUMBER_TABLE
8730     , p7_a89 out nocopy JTF_NUMBER_TABLE
8731     , p8_a0 out nocopy JTF_NUMBER_TABLE
8732     , p8_a1 out nocopy JTF_NUMBER_TABLE
8733     , p8_a2 out nocopy JTF_NUMBER_TABLE
8734     , p8_a3 out nocopy JTF_NUMBER_TABLE
8735     , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
8736     , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
8737     , p8_a6 out nocopy JTF_VARCHAR2_TABLE_100
8738     , p8_a7 out nocopy JTF_NUMBER_TABLE
8739     , p8_a8 out nocopy JTF_NUMBER_TABLE
8740     , p8_a9 out nocopy JTF_DATE_TABLE
8741     , p8_a10 out nocopy JTF_NUMBER_TABLE
8742     , p8_a11 out nocopy JTF_NUMBER_TABLE
8743     , p8_a12 out nocopy JTF_NUMBER_TABLE
8744     , p8_a13 out nocopy JTF_NUMBER_TABLE
8745     , p8_a14 out nocopy JTF_NUMBER_TABLE
8746     , p8_a15 out nocopy JTF_NUMBER_TABLE
8747     , p8_a16 out nocopy JTF_NUMBER_TABLE
8748     , p8_a17 out nocopy JTF_NUMBER_TABLE
8749     , p8_a18 out nocopy JTF_NUMBER_TABLE
8750     , p8_a19 out nocopy JTF_NUMBER_TABLE
8751     , p8_a20 out nocopy JTF_DATE_TABLE
8752     , p8_a21 out nocopy JTF_DATE_TABLE
8753     , p8_a22 out nocopy JTF_NUMBER_TABLE
8754     , p8_a23 out nocopy JTF_NUMBER_TABLE
8755     , p8_a24 out nocopy JTF_DATE_TABLE
8756     , p8_a25 out nocopy JTF_DATE_TABLE
8757     , p8_a26 out nocopy JTF_DATE_TABLE
8758     , p8_a27 out nocopy JTF_NUMBER_TABLE
8759     , p8_a28 out nocopy JTF_NUMBER_TABLE
8760     , p8_a29 out nocopy JTF_NUMBER_TABLE
8761     , p8_a30 out nocopy JTF_NUMBER_TABLE
8762     , p8_a31 out nocopy JTF_NUMBER_TABLE
8763     , p8_a32 out nocopy JTF_NUMBER_TABLE
8764     , p8_a33 out nocopy JTF_NUMBER_TABLE
8765     , p8_a34 out nocopy JTF_DATE_TABLE
8766     , p8_a35 out nocopy JTF_VARCHAR2_TABLE_100
8767     , p8_a36 out nocopy JTF_DATE_TABLE
8768     , p8_a37 out nocopy JTF_VARCHAR2_TABLE_300
8769     , p8_a38 out nocopy JTF_NUMBER_TABLE
8770     , p8_a39 out nocopy JTF_NUMBER_TABLE
8771     , p8_a40 out nocopy JTF_NUMBER_TABLE
8772     , p8_a41 out nocopy JTF_VARCHAR2_TABLE_100
8773     , p8_a42 out nocopy JTF_DATE_TABLE
8774     , p8_a43 out nocopy JTF_NUMBER_TABLE
8775     , p8_a44 out nocopy JTF_NUMBER_TABLE
8776     , p8_a45 out nocopy JTF_DATE_TABLE
8777     , p8_a46 out nocopy JTF_NUMBER_TABLE
8778     , p8_a47 out nocopy JTF_DATE_TABLE
8779     , p8_a48 out nocopy JTF_DATE_TABLE
8780     , p8_a49 out nocopy JTF_DATE_TABLE
8781     , p8_a50 out nocopy JTF_NUMBER_TABLE
8782     , p8_a51 out nocopy JTF_NUMBER_TABLE
8783     , p8_a52 out nocopy JTF_VARCHAR2_TABLE_100
8784     , p8_a53 out nocopy JTF_NUMBER_TABLE
8785     , p8_a54 out nocopy JTF_NUMBER_TABLE
8786     , p8_a55 out nocopy JTF_VARCHAR2_TABLE_100
8787     , p8_a56 out nocopy JTF_VARCHAR2_TABLE_100
8788     , p8_a57 out nocopy JTF_NUMBER_TABLE
8789     , p8_a58 out nocopy JTF_DATE_TABLE
8790     , p8_a59 out nocopy JTF_NUMBER_TABLE
8791     , p8_a60 out nocopy JTF_VARCHAR2_TABLE_100
8792     , p8_a61 out nocopy JTF_VARCHAR2_TABLE_500
8793     , p8_a62 out nocopy JTF_VARCHAR2_TABLE_500
8794     , p8_a63 out nocopy JTF_VARCHAR2_TABLE_500
8795     , p8_a64 out nocopy JTF_VARCHAR2_TABLE_500
8796     , p8_a65 out nocopy JTF_VARCHAR2_TABLE_500
8797     , p8_a66 out nocopy JTF_VARCHAR2_TABLE_500
8798     , p8_a67 out nocopy JTF_VARCHAR2_TABLE_500
8799     , p8_a68 out nocopy JTF_VARCHAR2_TABLE_500
8800     , p8_a69 out nocopy JTF_VARCHAR2_TABLE_500
8801     , p8_a70 out nocopy JTF_VARCHAR2_TABLE_500
8802     , p8_a71 out nocopy JTF_VARCHAR2_TABLE_500
8803     , p8_a72 out nocopy JTF_VARCHAR2_TABLE_500
8804     , p8_a73 out nocopy JTF_VARCHAR2_TABLE_500
8805     , p8_a74 out nocopy JTF_VARCHAR2_TABLE_500
8806     , p8_a75 out nocopy JTF_VARCHAR2_TABLE_500
8807     , p8_a76 out nocopy JTF_NUMBER_TABLE
8808     , p8_a77 out nocopy JTF_NUMBER_TABLE
8809     , p8_a78 out nocopy JTF_NUMBER_TABLE
8810     , p8_a79 out nocopy JTF_DATE_TABLE
8811     , p8_a80 out nocopy JTF_NUMBER_TABLE
8812     , p8_a81 out nocopy JTF_DATE_TABLE
8813     , p8_a82 out nocopy JTF_NUMBER_TABLE
8814     , p8_a83 out nocopy JTF_DATE_TABLE
8815     , p8_a84 out nocopy JTF_DATE_TABLE
8816     , p8_a85 out nocopy JTF_DATE_TABLE
8817     , p8_a86 out nocopy JTF_DATE_TABLE
8818     , p8_a87 out nocopy JTF_NUMBER_TABLE
8819     , p8_a88 out nocopy JTF_NUMBER_TABLE
8820     , p8_a89 out nocopy JTF_NUMBER_TABLE
8821     , p8_a90 out nocopy JTF_VARCHAR2_TABLE_100
8822     , p8_a91 out nocopy JTF_NUMBER_TABLE
8823     , p8_a92 out nocopy JTF_VARCHAR2_TABLE_100
8824     , p8_a93 out nocopy JTF_NUMBER_TABLE
8825     , p8_a94 out nocopy JTF_NUMBER_TABLE
8826     , p8_a95 out nocopy JTF_DATE_TABLE
8827     , p8_a96 out nocopy JTF_VARCHAR2_TABLE_100
8828     , p8_a97 out nocopy JTF_VARCHAR2_TABLE_100
8829     , p8_a98 out nocopy JTF_NUMBER_TABLE
8830   )
8831 
8832   as
8833     ddp_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
8834     ddp_klev_tbl okl_contract_pvt.klev_tbl_type;
8835     ddx_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
8836     ddx_klev_tbl okl_contract_pvt.klev_tbl_type;
8837     ddindx binary_integer; indx binary_integer;
8838   begin
8839 
8840     -- copy data to the local IN or IN-OUT args, if any
8841 
8842 
8843 
8844 
8845 
8846     okl_okc_migration_pvt_w.rosetta_table_copy_in_p5(ddp_clev_tbl, p5_a0
8847       , p5_a1
8848       , p5_a2
8849       , p5_a3
8850       , p5_a4
8851       , p5_a5
8852       , p5_a6
8853       , p5_a7
8854       , p5_a8
8855       , p5_a9
8856       , p5_a10
8857       , p5_a11
8858       , p5_a12
8859       , p5_a13
8860       , p5_a14
8861       , p5_a15
8862       , p5_a16
8863       , p5_a17
8864       , p5_a18
8865       , p5_a19
8866       , p5_a20
8867       , p5_a21
8868       , p5_a22
8869       , p5_a23
8870       , p5_a24
8871       , p5_a25
8872       , p5_a26
8873       , p5_a27
8874       , p5_a28
8875       , p5_a29
8876       , p5_a30
8877       , p5_a31
8878       , p5_a32
8879       , p5_a33
8880       , p5_a34
8881       , p5_a35
8882       , p5_a36
8883       , p5_a37
8884       , p5_a38
8885       , p5_a39
8886       , p5_a40
8887       , p5_a41
8888       , p5_a42
8889       , p5_a43
8890       , p5_a44
8891       , p5_a45
8892       , p5_a46
8893       , p5_a47
8894       , p5_a48
8895       , p5_a49
8896       , p5_a50
8897       , p5_a51
8898       , p5_a52
8899       , p5_a53
8900       , p5_a54
8901       , p5_a55
8902       , p5_a56
8903       , p5_a57
8904       , p5_a58
8905       , p5_a59
8906       , p5_a60
8907       , p5_a61
8908       , p5_a62
8909       , p5_a63
8910       , p5_a64
8911       , p5_a65
8912       , p5_a66
8913       , p5_a67
8914       , p5_a68
8915       , p5_a69
8916       , p5_a70
8917       , p5_a71
8918       , p5_a72
8919       , p5_a73
8920       , p5_a74
8921       , p5_a75
8922       , p5_a76
8923       , p5_a77
8924       , p5_a78
8925       , p5_a79
8926       , p5_a80
8927       , p5_a81
8928       , p5_a82
8929       , p5_a83
8930       , p5_a84
8931       , p5_a85
8932       , p5_a86
8933       , p5_a87
8934       , p5_a88
8935       , p5_a89
8936       );
8937 
8938     okl_kle_pvt_w.rosetta_table_copy_in_p8(ddp_klev_tbl, p6_a0
8939       , p6_a1
8940       , p6_a2
8941       , p6_a3
8942       , p6_a4
8943       , p6_a5
8944       , p6_a6
8945       , p6_a7
8946       , p6_a8
8947       , p6_a9
8948       , p6_a10
8949       , p6_a11
8950       , p6_a12
8951       , p6_a13
8952       , p6_a14
8953       , p6_a15
8954       , p6_a16
8955       , p6_a17
8956       , p6_a18
8957       , p6_a19
8958       , p6_a20
8959       , p6_a21
8960       , p6_a22
8961       , p6_a23
8962       , p6_a24
8963       , p6_a25
8964       , p6_a26
8965       , p6_a27
8966       , p6_a28
8967       , p6_a29
8968       , p6_a30
8969       , p6_a31
8970       , p6_a32
8971       , p6_a33
8972       , p6_a34
8973       , p6_a35
8974       , p6_a36
8975       , p6_a37
8976       , p6_a38
8977       , p6_a39
8978       , p6_a40
8979       , p6_a41
8980       , p6_a42
8981       , p6_a43
8982       , p6_a44
8983       , p6_a45
8984       , p6_a46
8985       , p6_a47
8986       , p6_a48
8987       , p6_a49
8988       , p6_a50
8989       , p6_a51
8990       , p6_a52
8991       , p6_a53
8992       , p6_a54
8993       , p6_a55
8994       , p6_a56
8995       , p6_a57
8996       , p6_a58
8997       , p6_a59
8998       , p6_a60
8999       , p6_a61
9000       , p6_a62
9001       , p6_a63
9002       , p6_a64
9003       , p6_a65
9004       , p6_a66
9005       , p6_a67
9006       , p6_a68
9007       , p6_a69
9008       , p6_a70
9009       , p6_a71
9010       , p6_a72
9011       , p6_a73
9012       , p6_a74
9013       , p6_a75
9014       , p6_a76
9015       , p6_a77
9016       , p6_a78
9017       , p6_a79
9018       , p6_a80
9019       , p6_a81
9020       , p6_a82
9021       , p6_a83
9022       , p6_a84
9023       , p6_a85
9024       , p6_a86
9025       , p6_a87
9026       , p6_a88
9027       , p6_a89
9028       , p6_a90
9029       , p6_a91
9030       , p6_a92
9031       , p6_a93
9032       , p6_a94
9033       , p6_a95
9034       , p6_a96
9035       , p6_a97
9036       , p6_a98
9037       );
9038 
9039 
9040 
9041     -- here's the delegated call to the old PL/SQL routine
9042     okl_contract_pvt.update_contract_line(p_api_version,
9043       p_init_msg_list,
9044       x_return_status,
9045       x_msg_count,
9046       x_msg_data,
9047       ddp_clev_tbl,
9048       ddp_klev_tbl,
9049       ddx_clev_tbl,
9050       ddx_klev_tbl);
9051 
9052     -- copy data back from the local variables to OUT or IN-OUT args, if any
9053 
9054 
9055 
9056 
9057 
9058 
9059 
9060     okl_okc_migration_pvt_w.rosetta_table_copy_out_p5(ddx_clev_tbl, p7_a0
9061       , p7_a1
9062       , p7_a2
9063       , p7_a3
9064       , p7_a4
9065       , p7_a5
9066       , p7_a6
9067       , p7_a7
9068       , p7_a8
9069       , p7_a9
9070       , p7_a10
9071       , p7_a11
9072       , p7_a12
9073       , p7_a13
9074       , p7_a14
9075       , p7_a15
9076       , p7_a16
9077       , p7_a17
9078       , p7_a18
9079       , p7_a19
9080       , p7_a20
9081       , p7_a21
9082       , p7_a22
9083       , p7_a23
9084       , p7_a24
9085       , p7_a25
9086       , p7_a26
9087       , p7_a27
9088       , p7_a28
9089       , p7_a29
9090       , p7_a30
9091       , p7_a31
9092       , p7_a32
9093       , p7_a33
9094       , p7_a34
9095       , p7_a35
9096       , p7_a36
9097       , p7_a37
9098       , p7_a38
9099       , p7_a39
9100       , p7_a40
9101       , p7_a41
9102       , p7_a42
9103       , p7_a43
9104       , p7_a44
9105       , p7_a45
9106       , p7_a46
9107       , p7_a47
9108       , p7_a48
9109       , p7_a49
9110       , p7_a50
9111       , p7_a51
9112       , p7_a52
9113       , p7_a53
9114       , p7_a54
9115       , p7_a55
9116       , p7_a56
9117       , p7_a57
9118       , p7_a58
9119       , p7_a59
9120       , p7_a60
9121       , p7_a61
9122       , p7_a62
9123       , p7_a63
9124       , p7_a64
9125       , p7_a65
9126       , p7_a66
9127       , p7_a67
9128       , p7_a68
9129       , p7_a69
9130       , p7_a70
9131       , p7_a71
9132       , p7_a72
9133       , p7_a73
9134       , p7_a74
9135       , p7_a75
9136       , p7_a76
9137       , p7_a77
9138       , p7_a78
9139       , p7_a79
9140       , p7_a80
9141       , p7_a81
9142       , p7_a82
9143       , p7_a83
9144       , p7_a84
9145       , p7_a85
9146       , p7_a86
9147       , p7_a87
9148       , p7_a88
9149       , p7_a89
9150       );
9151 
9152     okl_kle_pvt_w.rosetta_table_copy_out_p8(ddx_klev_tbl, p8_a0
9153       , p8_a1
9154       , p8_a2
9155       , p8_a3
9156       , p8_a4
9157       , p8_a5
9158       , p8_a6
9159       , p8_a7
9160       , p8_a8
9161       , p8_a9
9162       , p8_a10
9163       , p8_a11
9164       , p8_a12
9165       , p8_a13
9166       , p8_a14
9167       , p8_a15
9168       , p8_a16
9169       , p8_a17
9170       , p8_a18
9171       , p8_a19
9172       , p8_a20
9173       , p8_a21
9174       , p8_a22
9175       , p8_a23
9176       , p8_a24
9177       , p8_a25
9178       , p8_a26
9179       , p8_a27
9180       , p8_a28
9181       , p8_a29
9182       , p8_a30
9183       , p8_a31
9184       , p8_a32
9185       , p8_a33
9186       , p8_a34
9187       , p8_a35
9188       , p8_a36
9189       , p8_a37
9190       , p8_a38
9191       , p8_a39
9192       , p8_a40
9193       , p8_a41
9194       , p8_a42
9195       , p8_a43
9196       , p8_a44
9197       , p8_a45
9198       , p8_a46
9199       , p8_a47
9200       , p8_a48
9201       , p8_a49
9202       , p8_a50
9203       , p8_a51
9204       , p8_a52
9205       , p8_a53
9206       , p8_a54
9207       , p8_a55
9208       , p8_a56
9209       , p8_a57
9210       , p8_a58
9211       , p8_a59
9212       , p8_a60
9213       , p8_a61
9214       , p8_a62
9215       , p8_a63
9216       , p8_a64
9217       , p8_a65
9218       , p8_a66
9219       , p8_a67
9220       , p8_a68
9221       , p8_a69
9222       , p8_a70
9223       , p8_a71
9224       , p8_a72
9225       , p8_a73
9226       , p8_a74
9227       , p8_a75
9228       , p8_a76
9229       , p8_a77
9230       , p8_a78
9231       , p8_a79
9232       , p8_a80
9233       , p8_a81
9234       , p8_a82
9235       , p8_a83
9236       , p8_a84
9237       , p8_a85
9238       , p8_a86
9239       , p8_a87
9240       , p8_a88
9241       , p8_a89
9242       , p8_a90
9243       , p8_a91
9244       , p8_a92
9245       , p8_a93
9246       , p8_a94
9247       , p8_a95
9248       , p8_a96
9249       , p8_a97
9250       , p8_a98
9251       );
9252   end;
9253 
9254   procedure update_contract_line(p_api_version  NUMBER
9255     , p_init_msg_list  VARCHAR2
9256     , x_return_status out nocopy  VARCHAR2
9257     , x_msg_count out nocopy  NUMBER
9258     , x_msg_data out nocopy  VARCHAR2
9259     , p_edit_mode  VARCHAR2
9260     , p8_a0 out nocopy  NUMBER
9261     , p8_a1 out nocopy  NUMBER
9262     , p8_a2 out nocopy  VARCHAR2
9263     , p8_a3 out nocopy  NUMBER
9264     , p8_a4 out nocopy  NUMBER
9265     , p8_a5 out nocopy  NUMBER
9266     , p8_a6 out nocopy  NUMBER
9267     , p8_a7 out nocopy  NUMBER
9268     , p8_a8 out nocopy  VARCHAR2
9269     , p8_a9 out nocopy  VARCHAR2
9270     , p8_a10 out nocopy  NUMBER
9271     , p8_a11 out nocopy  VARCHAR2
9272     , p8_a12 out nocopy  NUMBER
9273     , p8_a13 out nocopy  VARCHAR2
9274     , p8_a14 out nocopy  VARCHAR2
9275     , p8_a15 out nocopy  VARCHAR2
9276     , p8_a16 out nocopy  VARCHAR2
9277     , p8_a17 out nocopy  VARCHAR2
9278     , p8_a18 out nocopy  NUMBER
9279     , p8_a19 out nocopy  NUMBER
9280     , p8_a20 out nocopy  NUMBER
9281     , p8_a21 out nocopy  NUMBER
9282     , p8_a22 out nocopy  VARCHAR2
9283     , p8_a23 out nocopy  VARCHAR2
9284     , p8_a24 out nocopy  VARCHAR2
9285     , p8_a25 out nocopy  VARCHAR2
9286     , p8_a26 out nocopy  VARCHAR2
9287     , p8_a27 out nocopy  VARCHAR2
9288     , p8_a28 out nocopy  DATE
9289     , p8_a29 out nocopy  VARCHAR2
9290     , p8_a30 out nocopy  DATE
9291     , p8_a31 out nocopy  DATE
9292     , p8_a32 out nocopy  DATE
9293     , p8_a33 out nocopy  VARCHAR2
9294     , p8_a34 out nocopy  NUMBER
9295     , p8_a35 out nocopy  VARCHAR2
9296     , p8_a36 out nocopy  NUMBER
9297     , p8_a37 out nocopy  VARCHAR2
9298     , p8_a38 out nocopy  VARCHAR2
9299     , p8_a39 out nocopy  VARCHAR2
9300     , p8_a40 out nocopy  VARCHAR2
9301     , p8_a41 out nocopy  VARCHAR2
9302     , p8_a42 out nocopy  VARCHAR2
9303     , p8_a43 out nocopy  VARCHAR2
9304     , p8_a44 out nocopy  VARCHAR2
9305     , p8_a45 out nocopy  VARCHAR2
9306     , p8_a46 out nocopy  VARCHAR2
9307     , p8_a47 out nocopy  VARCHAR2
9308     , p8_a48 out nocopy  VARCHAR2
9309     , p8_a49 out nocopy  VARCHAR2
9310     , p8_a50 out nocopy  VARCHAR2
9311     , p8_a51 out nocopy  VARCHAR2
9312     , p8_a52 out nocopy  VARCHAR2
9313     , p8_a53 out nocopy  VARCHAR2
9314     , p8_a54 out nocopy  NUMBER
9315     , p8_a55 out nocopy  DATE
9316     , p8_a56 out nocopy  NUMBER
9317     , p8_a57 out nocopy  DATE
9318     , p8_a58 out nocopy  VARCHAR2
9319     , p8_a59 out nocopy  VARCHAR2
9320     , p8_a60 out nocopy  VARCHAR2
9321     , p8_a61 out nocopy  NUMBER
9322     , p8_a62 out nocopy  VARCHAR2
9323     , p8_a63 out nocopy  VARCHAR2
9324     , p8_a64 out nocopy  VARCHAR2
9325     , p8_a65 out nocopy  VARCHAR2
9326     , p8_a66 out nocopy  VARCHAR2
9327     , p8_a67 out nocopy  NUMBER
9328     , p8_a68 out nocopy  NUMBER
9329     , p8_a69 out nocopy  NUMBER
9330     , p8_a70 out nocopy  DATE
9331     , p8_a71 out nocopy  NUMBER
9332     , p8_a72 out nocopy  DATE
9333     , p8_a73 out nocopy  NUMBER
9334     , p8_a74 out nocopy  NUMBER
9335     , p8_a75 out nocopy  VARCHAR2
9336     , p8_a76 out nocopy  VARCHAR2
9337     , p8_a77 out nocopy  NUMBER
9338     , p8_a78 out nocopy  NUMBER
9339     , p8_a79 out nocopy  VARCHAR2
9340     , p8_a80 out nocopy  VARCHAR2
9341     , p8_a81 out nocopy  NUMBER
9342     , p8_a82 out nocopy  VARCHAR2
9343     , p8_a83 out nocopy  NUMBER
9344     , p8_a84 out nocopy  NUMBER
9345     , p8_a85 out nocopy  NUMBER
9346     , p8_a86 out nocopy  NUMBER
9347     , p8_a87 out nocopy  VARCHAR2
9348     , p8_a88 out nocopy  NUMBER
9349     , p8_a89 out nocopy  NUMBER
9350     , p9_a0 out nocopy  NUMBER
9351     , p9_a1 out nocopy  NUMBER
9352     , p9_a2 out nocopy  NUMBER
9353     , p9_a3 out nocopy  NUMBER
9354     , p9_a4 out nocopy  VARCHAR2
9355     , p9_a5 out nocopy  VARCHAR2
9356     , p9_a6 out nocopy  VARCHAR2
9357     , p9_a7 out nocopy  NUMBER
9358     , p9_a8 out nocopy  NUMBER
9359     , p9_a9 out nocopy  DATE
9360     , p9_a10 out nocopy  NUMBER
9361     , p9_a11 out nocopy  NUMBER
9362     , p9_a12 out nocopy  NUMBER
9363     , p9_a13 out nocopy  NUMBER
9364     , p9_a14 out nocopy  NUMBER
9365     , p9_a15 out nocopy  NUMBER
9366     , p9_a16 out nocopy  NUMBER
9367     , p9_a17 out nocopy  NUMBER
9368     , p9_a18 out nocopy  NUMBER
9369     , p9_a19 out nocopy  NUMBER
9370     , p9_a20 out nocopy  DATE
9371     , p9_a21 out nocopy  DATE
9372     , p9_a22 out nocopy  NUMBER
9373     , p9_a23 out nocopy  NUMBER
9374     , p9_a24 out nocopy  DATE
9375     , p9_a25 out nocopy  DATE
9376     , p9_a26 out nocopy  DATE
9377     , p9_a27 out nocopy  NUMBER
9378     , p9_a28 out nocopy  NUMBER
9379     , p9_a29 out nocopy  NUMBER
9380     , p9_a30 out nocopy  NUMBER
9381     , p9_a31 out nocopy  NUMBER
9382     , p9_a32 out nocopy  NUMBER
9383     , p9_a33 out nocopy  NUMBER
9384     , p9_a34 out nocopy  DATE
9385     , p9_a35 out nocopy  VARCHAR2
9386     , p9_a36 out nocopy  DATE
9387     , p9_a37 out nocopy  VARCHAR2
9388     , p9_a38 out nocopy  NUMBER
9389     , p9_a39 out nocopy  NUMBER
9390     , p9_a40 out nocopy  NUMBER
9391     , p9_a41 out nocopy  VARCHAR2
9392     , p9_a42 out nocopy  DATE
9393     , p9_a43 out nocopy  NUMBER
9394     , p9_a44 out nocopy  NUMBER
9395     , p9_a45 out nocopy  DATE
9396     , p9_a46 out nocopy  NUMBER
9397     , p9_a47 out nocopy  DATE
9398     , p9_a48 out nocopy  DATE
9399     , p9_a49 out nocopy  DATE
9400     , p9_a50 out nocopy  NUMBER
9401     , p9_a51 out nocopy  NUMBER
9402     , p9_a52 out nocopy  VARCHAR2
9403     , p9_a53 out nocopy  NUMBER
9404     , p9_a54 out nocopy  NUMBER
9405     , p9_a55 out nocopy  VARCHAR2
9406     , p9_a56 out nocopy  VARCHAR2
9407     , p9_a57 out nocopy  NUMBER
9408     , p9_a58 out nocopy  DATE
9409     , p9_a59 out nocopy  NUMBER
9410     , p9_a60 out nocopy  VARCHAR2
9411     , p9_a61 out nocopy  VARCHAR2
9412     , p9_a62 out nocopy  VARCHAR2
9413     , p9_a63 out nocopy  VARCHAR2
9414     , p9_a64 out nocopy  VARCHAR2
9415     , p9_a65 out nocopy  VARCHAR2
9416     , p9_a66 out nocopy  VARCHAR2
9417     , p9_a67 out nocopy  VARCHAR2
9418     , p9_a68 out nocopy  VARCHAR2
9419     , p9_a69 out nocopy  VARCHAR2
9420     , p9_a70 out nocopy  VARCHAR2
9421     , p9_a71 out nocopy  VARCHAR2
9422     , p9_a72 out nocopy  VARCHAR2
9423     , p9_a73 out nocopy  VARCHAR2
9424     , p9_a74 out nocopy  VARCHAR2
9425     , p9_a75 out nocopy  VARCHAR2
9426     , p9_a76 out nocopy  NUMBER
9427     , p9_a77 out nocopy  NUMBER
9428     , p9_a78 out nocopy  NUMBER
9429     , p9_a79 out nocopy  DATE
9430     , p9_a80 out nocopy  NUMBER
9431     , p9_a81 out nocopy  DATE
9432     , p9_a82 out nocopy  NUMBER
9433     , p9_a83 out nocopy  DATE
9434     , p9_a84 out nocopy  DATE
9435     , p9_a85 out nocopy  DATE
9436     , p9_a86 out nocopy  DATE
9437     , p9_a87 out nocopy  NUMBER
9438     , p9_a88 out nocopy  NUMBER
9439     , p9_a89 out nocopy  NUMBER
9440     , p9_a90 out nocopy  VARCHAR2
9441     , p9_a91 out nocopy  NUMBER
9442     , p9_a92 out nocopy  VARCHAR2
9443     , p9_a93 out nocopy  NUMBER
9444     , p9_a94 out nocopy  NUMBER
9445     , p9_a95 out nocopy  DATE
9446     , p9_a96 out nocopy  VARCHAR2
9447     , p9_a97 out nocopy  VARCHAR2
9448     , p9_a98 out nocopy  NUMBER
9449     , p5_a0  NUMBER := 0-1962.0724
9450     , p5_a1  NUMBER := 0-1962.0724
9451     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
9452     , p5_a3  NUMBER := 0-1962.0724
9453     , p5_a4  NUMBER := 0-1962.0724
9454     , p5_a5  NUMBER := 0-1962.0724
9455     , p5_a6  NUMBER := 0-1962.0724
9456     , p5_a7  NUMBER := 0-1962.0724
9457     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
9458     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
9459     , p5_a10  NUMBER := 0-1962.0724
9460     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
9461     , p5_a12  NUMBER := 0-1962.0724
9462     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
9463     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
9464     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
9465     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
9466     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
9467     , p5_a18  NUMBER := 0-1962.0724
9468     , p5_a19  NUMBER := 0-1962.0724
9469     , p5_a20  NUMBER := 0-1962.0724
9470     , p5_a21  NUMBER := 0-1962.0724
9471     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
9472     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
9473     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
9474     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
9475     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
9476     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
9477     , p5_a28  DATE := fnd_api.g_miss_date
9478     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
9479     , p5_a30  DATE := fnd_api.g_miss_date
9480     , p5_a31  DATE := fnd_api.g_miss_date
9481     , p5_a32  DATE := fnd_api.g_miss_date
9482     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
9483     , p5_a34  NUMBER := 0-1962.0724
9484     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
9485     , p5_a36  NUMBER := 0-1962.0724
9486     , p5_a37  VARCHAR2 := fnd_api.g_miss_char
9487     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
9488     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
9489     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
9490     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
9491     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
9492     , p5_a43  VARCHAR2 := fnd_api.g_miss_char
9493     , p5_a44  VARCHAR2 := fnd_api.g_miss_char
9494     , p5_a45  VARCHAR2 := fnd_api.g_miss_char
9495     , p5_a46  VARCHAR2 := fnd_api.g_miss_char
9496     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
9497     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
9498     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
9499     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
9500     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
9501     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
9502     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
9503     , p5_a54  NUMBER := 0-1962.0724
9504     , p5_a55  DATE := fnd_api.g_miss_date
9505     , p5_a56  NUMBER := 0-1962.0724
9506     , p5_a57  DATE := fnd_api.g_miss_date
9507     , p5_a58  VARCHAR2 := fnd_api.g_miss_char
9508     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
9509     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
9510     , p5_a61  NUMBER := 0-1962.0724
9511     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
9512     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
9513     , p5_a64  VARCHAR2 := fnd_api.g_miss_char
9514     , p5_a65  VARCHAR2 := fnd_api.g_miss_char
9515     , p5_a66  VARCHAR2 := fnd_api.g_miss_char
9516     , p5_a67  NUMBER := 0-1962.0724
9517     , p5_a68  NUMBER := 0-1962.0724
9518     , p5_a69  NUMBER := 0-1962.0724
9519     , p5_a70  DATE := fnd_api.g_miss_date
9520     , p5_a71  NUMBER := 0-1962.0724
9521     , p5_a72  DATE := fnd_api.g_miss_date
9522     , p5_a73  NUMBER := 0-1962.0724
9523     , p5_a74  NUMBER := 0-1962.0724
9524     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
9525     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
9526     , p5_a77  NUMBER := 0-1962.0724
9527     , p5_a78  NUMBER := 0-1962.0724
9528     , p5_a79  VARCHAR2 := fnd_api.g_miss_char
9529     , p5_a80  VARCHAR2 := fnd_api.g_miss_char
9530     , p5_a81  NUMBER := 0-1962.0724
9531     , p5_a82  VARCHAR2 := fnd_api.g_miss_char
9532     , p5_a83  NUMBER := 0-1962.0724
9533     , p5_a84  NUMBER := 0-1962.0724
9534     , p5_a85  NUMBER := 0-1962.0724
9535     , p5_a86  NUMBER := 0-1962.0724
9536     , p5_a87  VARCHAR2 := fnd_api.g_miss_char
9537     , p5_a88  NUMBER := 0-1962.0724
9538     , p5_a89  NUMBER := 0-1962.0724
9539     , p6_a0  NUMBER := 0-1962.0724
9540     , p6_a1  NUMBER := 0-1962.0724
9541     , p6_a2  NUMBER := 0-1962.0724
9542     , p6_a3  NUMBER := 0-1962.0724
9543     , p6_a4  VARCHAR2 := fnd_api.g_miss_char
9544     , p6_a5  VARCHAR2 := fnd_api.g_miss_char
9545     , p6_a6  VARCHAR2 := fnd_api.g_miss_char
9546     , p6_a7  NUMBER := 0-1962.0724
9547     , p6_a8  NUMBER := 0-1962.0724
9548     , p6_a9  DATE := fnd_api.g_miss_date
9549     , p6_a10  NUMBER := 0-1962.0724
9550     , p6_a11  NUMBER := 0-1962.0724
9551     , p6_a12  NUMBER := 0-1962.0724
9552     , p6_a13  NUMBER := 0-1962.0724
9553     , p6_a14  NUMBER := 0-1962.0724
9554     , p6_a15  NUMBER := 0-1962.0724
9555     , p6_a16  NUMBER := 0-1962.0724
9556     , p6_a17  NUMBER := 0-1962.0724
9557     , p6_a18  NUMBER := 0-1962.0724
9558     , p6_a19  NUMBER := 0-1962.0724
9559     , p6_a20  DATE := fnd_api.g_miss_date
9560     , p6_a21  DATE := fnd_api.g_miss_date
9561     , p6_a22  NUMBER := 0-1962.0724
9562     , p6_a23  NUMBER := 0-1962.0724
9563     , p6_a24  DATE := fnd_api.g_miss_date
9564     , p6_a25  DATE := fnd_api.g_miss_date
9565     , p6_a26  DATE := fnd_api.g_miss_date
9566     , p6_a27  NUMBER := 0-1962.0724
9567     , p6_a28  NUMBER := 0-1962.0724
9568     , p6_a29  NUMBER := 0-1962.0724
9569     , p6_a30  NUMBER := 0-1962.0724
9570     , p6_a31  NUMBER := 0-1962.0724
9571     , p6_a32  NUMBER := 0-1962.0724
9572     , p6_a33  NUMBER := 0-1962.0724
9573     , p6_a34  DATE := fnd_api.g_miss_date
9574     , p6_a35  VARCHAR2 := fnd_api.g_miss_char
9575     , p6_a36  DATE := fnd_api.g_miss_date
9576     , p6_a37  VARCHAR2 := fnd_api.g_miss_char
9577     , p6_a38  NUMBER := 0-1962.0724
9578     , p6_a39  NUMBER := 0-1962.0724
9579     , p6_a40  NUMBER := 0-1962.0724
9580     , p6_a41  VARCHAR2 := fnd_api.g_miss_char
9581     , p6_a42  DATE := fnd_api.g_miss_date
9582     , p6_a43  NUMBER := 0-1962.0724
9583     , p6_a44  NUMBER := 0-1962.0724
9584     , p6_a45  DATE := fnd_api.g_miss_date
9585     , p6_a46  NUMBER := 0-1962.0724
9586     , p6_a47  DATE := fnd_api.g_miss_date
9587     , p6_a48  DATE := fnd_api.g_miss_date
9588     , p6_a49  DATE := fnd_api.g_miss_date
9589     , p6_a50  NUMBER := 0-1962.0724
9590     , p6_a51  NUMBER := 0-1962.0724
9591     , p6_a52  VARCHAR2 := fnd_api.g_miss_char
9592     , p6_a53  NUMBER := 0-1962.0724
9593     , p6_a54  NUMBER := 0-1962.0724
9594     , p6_a55  VARCHAR2 := fnd_api.g_miss_char
9595     , p6_a56  VARCHAR2 := fnd_api.g_miss_char
9596     , p6_a57  NUMBER := 0-1962.0724
9597     , p6_a58  DATE := fnd_api.g_miss_date
9598     , p6_a59  NUMBER := 0-1962.0724
9599     , p6_a60  VARCHAR2 := fnd_api.g_miss_char
9600     , p6_a61  VARCHAR2 := fnd_api.g_miss_char
9601     , p6_a62  VARCHAR2 := fnd_api.g_miss_char
9602     , p6_a63  VARCHAR2 := fnd_api.g_miss_char
9603     , p6_a64  VARCHAR2 := fnd_api.g_miss_char
9604     , p6_a65  VARCHAR2 := fnd_api.g_miss_char
9605     , p6_a66  VARCHAR2 := fnd_api.g_miss_char
9606     , p6_a67  VARCHAR2 := fnd_api.g_miss_char
9607     , p6_a68  VARCHAR2 := fnd_api.g_miss_char
9608     , p6_a69  VARCHAR2 := fnd_api.g_miss_char
9609     , p6_a70  VARCHAR2 := fnd_api.g_miss_char
9610     , p6_a71  VARCHAR2 := fnd_api.g_miss_char
9611     , p6_a72  VARCHAR2 := fnd_api.g_miss_char
9612     , p6_a73  VARCHAR2 := fnd_api.g_miss_char
9613     , p6_a74  VARCHAR2 := fnd_api.g_miss_char
9614     , p6_a75  VARCHAR2 := fnd_api.g_miss_char
9615     , p6_a76  NUMBER := 0-1962.0724
9616     , p6_a77  NUMBER := 0-1962.0724
9617     , p6_a78  NUMBER := 0-1962.0724
9618     , p6_a79  DATE := fnd_api.g_miss_date
9619     , p6_a80  NUMBER := 0-1962.0724
9620     , p6_a81  DATE := fnd_api.g_miss_date
9621     , p6_a82  NUMBER := 0-1962.0724
9622     , p6_a83  DATE := fnd_api.g_miss_date
9623     , p6_a84  DATE := fnd_api.g_miss_date
9624     , p6_a85  DATE := fnd_api.g_miss_date
9625     , p6_a86  DATE := fnd_api.g_miss_date
9626     , p6_a87  NUMBER := 0-1962.0724
9627     , p6_a88  NUMBER := 0-1962.0724
9628     , p6_a89  NUMBER := 0-1962.0724
9629     , p6_a90  VARCHAR2 := fnd_api.g_miss_char
9630     , p6_a91  NUMBER := 0-1962.0724
9631     , p6_a92  VARCHAR2 := fnd_api.g_miss_char
9632     , p6_a93  NUMBER := 0-1962.0724
9633     , p6_a94  NUMBER := 0-1962.0724
9634     , p6_a95  DATE := fnd_api.g_miss_date
9635     , p6_a96  VARCHAR2 := fnd_api.g_miss_char
9636     , p6_a97  VARCHAR2 := fnd_api.g_miss_char
9637     , p6_a98  NUMBER := 0-1962.0724
9638   )
9639 
9640   as
9641     ddp_clev_rec okl_okc_migration_pvt.clev_rec_type;
9642     ddp_klev_rec okl_contract_pvt.klev_rec_type;
9643     ddx_clev_rec okl_okc_migration_pvt.clev_rec_type;
9644     ddx_klev_rec okl_contract_pvt.klev_rec_type;
9645     ddindx binary_integer; indx binary_integer;
9646   begin
9647 
9648     -- copy data to the local IN or IN-OUT args, if any
9649 
9650 
9651 
9652 
9653 
9654     ddp_clev_rec.id := rosetta_g_miss_num_map(p5_a0);
9655     ddp_clev_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
9656     ddp_clev_rec.sfwt_flag := p5_a2;
9657     ddp_clev_rec.chr_id := rosetta_g_miss_num_map(p5_a3);
9658     ddp_clev_rec.cle_id := rosetta_g_miss_num_map(p5_a4);
9659     ddp_clev_rec.cle_id_renewed := rosetta_g_miss_num_map(p5_a5);
9660     ddp_clev_rec.cle_id_renewed_to := rosetta_g_miss_num_map(p5_a6);
9661     ddp_clev_rec.lse_id := rosetta_g_miss_num_map(p5_a7);
9662     ddp_clev_rec.line_number := p5_a8;
9663     ddp_clev_rec.sts_code := p5_a9;
9664     ddp_clev_rec.display_sequence := rosetta_g_miss_num_map(p5_a10);
9665     ddp_clev_rec.trn_code := p5_a11;
9666     ddp_clev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a12);
9667     ddp_clev_rec.comments := p5_a13;
9668     ddp_clev_rec.item_description := p5_a14;
9669     ddp_clev_rec.oke_boe_description := p5_a15;
9670     ddp_clev_rec.cognomen := p5_a16;
9671     ddp_clev_rec.hidden_ind := p5_a17;
9672     ddp_clev_rec.price_unit := rosetta_g_miss_num_map(p5_a18);
9673     ddp_clev_rec.price_unit_percent := rosetta_g_miss_num_map(p5_a19);
9674     ddp_clev_rec.price_negotiated := rosetta_g_miss_num_map(p5_a20);
9675     ddp_clev_rec.price_negotiated_renewed := rosetta_g_miss_num_map(p5_a21);
9676     ddp_clev_rec.price_level_ind := p5_a22;
9677     ddp_clev_rec.invoice_line_level_ind := p5_a23;
9678     ddp_clev_rec.dpas_rating := p5_a24;
9679     ddp_clev_rec.block23text := p5_a25;
9680     ddp_clev_rec.exception_yn := p5_a26;
9681     ddp_clev_rec.template_used := p5_a27;
9682     ddp_clev_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a28);
9683     ddp_clev_rec.name := p5_a29;
9684     ddp_clev_rec.start_date := rosetta_g_miss_date_in_map(p5_a30);
9685     ddp_clev_rec.end_date := rosetta_g_miss_date_in_map(p5_a31);
9686     ddp_clev_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a32);
9687     ddp_clev_rec.upg_orig_system_ref := p5_a33;
9688     ddp_clev_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a34);
9689     ddp_clev_rec.orig_system_source_code := p5_a35;
9690     ddp_clev_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a36);
9691     ddp_clev_rec.orig_system_reference1 := p5_a37;
9692     ddp_clev_rec.attribute_category := p5_a38;
9693     ddp_clev_rec.attribute1 := p5_a39;
9694     ddp_clev_rec.attribute2 := p5_a40;
9695     ddp_clev_rec.attribute3 := p5_a41;
9696     ddp_clev_rec.attribute4 := p5_a42;
9697     ddp_clev_rec.attribute5 := p5_a43;
9698     ddp_clev_rec.attribute6 := p5_a44;
9699     ddp_clev_rec.attribute7 := p5_a45;
9700     ddp_clev_rec.attribute8 := p5_a46;
9701     ddp_clev_rec.attribute9 := p5_a47;
9702     ddp_clev_rec.attribute10 := p5_a48;
9703     ddp_clev_rec.attribute11 := p5_a49;
9704     ddp_clev_rec.attribute12 := p5_a50;
9705     ddp_clev_rec.attribute13 := p5_a51;
9706     ddp_clev_rec.attribute14 := p5_a52;
9707     ddp_clev_rec.attribute15 := p5_a53;
9708     ddp_clev_rec.created_by := rosetta_g_miss_num_map(p5_a54);
9709     ddp_clev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a55);
9710     ddp_clev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a56);
9711     ddp_clev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a57);
9712     ddp_clev_rec.price_type := p5_a58;
9713     ddp_clev_rec.currency_code := p5_a59;
9714     ddp_clev_rec.currency_code_renewed := p5_a60;
9715     ddp_clev_rec.last_update_login := rosetta_g_miss_num_map(p5_a61);
9716     ddp_clev_rec.old_sts_code := p5_a62;
9717     ddp_clev_rec.new_sts_code := p5_a63;
9718     ddp_clev_rec.old_ste_code := p5_a64;
9719     ddp_clev_rec.new_ste_code := p5_a65;
9720     ddp_clev_rec.call_action_asmblr := p5_a66;
9721     ddp_clev_rec.request_id := rosetta_g_miss_num_map(p5_a67);
9722     ddp_clev_rec.program_application_id := rosetta_g_miss_num_map(p5_a68);
9723     ddp_clev_rec.program_id := rosetta_g_miss_num_map(p5_a69);
9724     ddp_clev_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a70);
9725     ddp_clev_rec.price_list_id := rosetta_g_miss_num_map(p5_a71);
9726     ddp_clev_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a72);
9727     ddp_clev_rec.price_list_line_id := rosetta_g_miss_num_map(p5_a73);
9728     ddp_clev_rec.line_list_price := rosetta_g_miss_num_map(p5_a74);
9729     ddp_clev_rec.item_to_price_yn := p5_a75;
9730     ddp_clev_rec.price_basis_yn := p5_a76;
9731     ddp_clev_rec.config_header_id := rosetta_g_miss_num_map(p5_a77);
9732     ddp_clev_rec.config_revision_number := rosetta_g_miss_num_map(p5_a78);
9733     ddp_clev_rec.config_complete_yn := p5_a79;
9734     ddp_clev_rec.config_valid_yn := p5_a80;
9735     ddp_clev_rec.config_top_model_line_id := rosetta_g_miss_num_map(p5_a81);
9736     ddp_clev_rec.config_item_type := p5_a82;
9737     ddp_clev_rec.config_item_id := rosetta_g_miss_num_map(p5_a83);
9738     ddp_clev_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a84);
9739     ddp_clev_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a85);
9740     ddp_clev_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a86);
9741     ddp_clev_rec.line_renewal_type_code := p5_a87;
9742     ddp_clev_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a88);
9743     ddp_clev_rec.payment_term_id := rosetta_g_miss_num_map(p5_a89);
9744 
9745     ddp_klev_rec.id := rosetta_g_miss_num_map(p6_a0);
9746     ddp_klev_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
9747     ddp_klev_rec.kle_id := rosetta_g_miss_num_map(p6_a2);
9748     ddp_klev_rec.sty_id := rosetta_g_miss_num_map(p6_a3);
9749     ddp_klev_rec.prc_code := p6_a4;
9750     ddp_klev_rec.fcg_code := p6_a5;
9751     ddp_klev_rec.nty_code := p6_a6;
9752     ddp_klev_rec.estimated_oec := rosetta_g_miss_num_map(p6_a7);
9753     ddp_klev_rec.lao_amount := rosetta_g_miss_num_map(p6_a8);
9754     ddp_klev_rec.title_date := rosetta_g_miss_date_in_map(p6_a9);
9755     ddp_klev_rec.fee_charge := rosetta_g_miss_num_map(p6_a10);
9756     ddp_klev_rec.lrs_percent := rosetta_g_miss_num_map(p6_a11);
9757     ddp_klev_rec.initial_direct_cost := rosetta_g_miss_num_map(p6_a12);
9758     ddp_klev_rec.percent_stake := rosetta_g_miss_num_map(p6_a13);
9759     ddp_klev_rec.percent := rosetta_g_miss_num_map(p6_a14);
9760     ddp_klev_rec.evergreen_percent := rosetta_g_miss_num_map(p6_a15);
9761     ddp_klev_rec.amount_stake := rosetta_g_miss_num_map(p6_a16);
9762     ddp_klev_rec.occupancy := rosetta_g_miss_num_map(p6_a17);
9763     ddp_klev_rec.coverage := rosetta_g_miss_num_map(p6_a18);
9764     ddp_klev_rec.residual_percentage := rosetta_g_miss_num_map(p6_a19);
9765     ddp_klev_rec.date_last_inspection := rosetta_g_miss_date_in_map(p6_a20);
9766     ddp_klev_rec.date_sold := rosetta_g_miss_date_in_map(p6_a21);
9767     ddp_klev_rec.lrv_amount := rosetta_g_miss_num_map(p6_a22);
9768     ddp_klev_rec.capital_reduction := rosetta_g_miss_num_map(p6_a23);
9769     ddp_klev_rec.date_next_inspection_due := rosetta_g_miss_date_in_map(p6_a24);
9770     ddp_klev_rec.date_residual_last_review := rosetta_g_miss_date_in_map(p6_a25);
9771     ddp_klev_rec.date_last_reamortisation := rosetta_g_miss_date_in_map(p6_a26);
9772     ddp_klev_rec.vendor_advance_paid := rosetta_g_miss_num_map(p6_a27);
9773     ddp_klev_rec.weighted_average_life := rosetta_g_miss_num_map(p6_a28);
9774     ddp_klev_rec.tradein_amount := rosetta_g_miss_num_map(p6_a29);
9775     ddp_klev_rec.bond_equivalent_yield := rosetta_g_miss_num_map(p6_a30);
9776     ddp_klev_rec.termination_purchase_amount := rosetta_g_miss_num_map(p6_a31);
9777     ddp_klev_rec.refinance_amount := rosetta_g_miss_num_map(p6_a32);
9778     ddp_klev_rec.year_built := rosetta_g_miss_num_map(p6_a33);
9779     ddp_klev_rec.delivered_date := rosetta_g_miss_date_in_map(p6_a34);
9780     ddp_klev_rec.credit_tenant_yn := p6_a35;
9781     ddp_klev_rec.date_last_cleanup := rosetta_g_miss_date_in_map(p6_a36);
9782     ddp_klev_rec.year_of_manufacture := p6_a37;
9783     ddp_klev_rec.coverage_ratio := rosetta_g_miss_num_map(p6_a38);
9784     ddp_klev_rec.remarketed_amount := rosetta_g_miss_num_map(p6_a39);
9785     ddp_klev_rec.gross_square_footage := rosetta_g_miss_num_map(p6_a40);
9786     ddp_klev_rec.prescribed_asset_yn := p6_a41;
9787     ddp_klev_rec.date_remarketed := rosetta_g_miss_date_in_map(p6_a42);
9788     ddp_klev_rec.net_rentable := rosetta_g_miss_num_map(p6_a43);
9789     ddp_klev_rec.remarket_margin := rosetta_g_miss_num_map(p6_a44);
9790     ddp_klev_rec.date_letter_acceptance := rosetta_g_miss_date_in_map(p6_a45);
9791     ddp_klev_rec.repurchased_amount := rosetta_g_miss_num_map(p6_a46);
9792     ddp_klev_rec.date_commitment_expiration := rosetta_g_miss_date_in_map(p6_a47);
9793     ddp_klev_rec.date_repurchased := rosetta_g_miss_date_in_map(p6_a48);
9794     ddp_klev_rec.date_appraisal := rosetta_g_miss_date_in_map(p6_a49);
9795     ddp_klev_rec.residual_value := rosetta_g_miss_num_map(p6_a50);
9796     ddp_klev_rec.appraisal_value := rosetta_g_miss_num_map(p6_a51);
9797     ddp_klev_rec.secured_deal_yn := p6_a52;
9798     ddp_klev_rec.gain_loss := rosetta_g_miss_num_map(p6_a53);
9799     ddp_klev_rec.floor_amount := rosetta_g_miss_num_map(p6_a54);
9800     ddp_klev_rec.re_lease_yn := p6_a55;
9801     ddp_klev_rec.previous_contract := p6_a56;
9802     ddp_klev_rec.tracked_residual := rosetta_g_miss_num_map(p6_a57);
9803     ddp_klev_rec.date_title_received := rosetta_g_miss_date_in_map(p6_a58);
9804     ddp_klev_rec.amount := rosetta_g_miss_num_map(p6_a59);
9805     ddp_klev_rec.attribute_category := p6_a60;
9806     ddp_klev_rec.attribute1 := p6_a61;
9807     ddp_klev_rec.attribute2 := p6_a62;
9808     ddp_klev_rec.attribute3 := p6_a63;
9809     ddp_klev_rec.attribute4 := p6_a64;
9810     ddp_klev_rec.attribute5 := p6_a65;
9811     ddp_klev_rec.attribute6 := p6_a66;
9812     ddp_klev_rec.attribute7 := p6_a67;
9813     ddp_klev_rec.attribute8 := p6_a68;
9814     ddp_klev_rec.attribute9 := p6_a69;
9815     ddp_klev_rec.attribute10 := p6_a70;
9816     ddp_klev_rec.attribute11 := p6_a71;
9817     ddp_klev_rec.attribute12 := p6_a72;
9818     ddp_klev_rec.attribute13 := p6_a73;
9819     ddp_klev_rec.attribute14 := p6_a74;
9820     ddp_klev_rec.attribute15 := p6_a75;
9821     ddp_klev_rec.sty_id_for := rosetta_g_miss_num_map(p6_a76);
9822     ddp_klev_rec.clg_id := rosetta_g_miss_num_map(p6_a77);
9823     ddp_klev_rec.created_by := rosetta_g_miss_num_map(p6_a78);
9824     ddp_klev_rec.creation_date := rosetta_g_miss_date_in_map(p6_a79);
9825     ddp_klev_rec.last_updated_by := rosetta_g_miss_num_map(p6_a80);
9826     ddp_klev_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a81);
9827     ddp_klev_rec.last_update_login := rosetta_g_miss_num_map(p6_a82);
9828     ddp_klev_rec.date_funding := rosetta_g_miss_date_in_map(p6_a83);
9829     ddp_klev_rec.date_funding_required := rosetta_g_miss_date_in_map(p6_a84);
9830     ddp_klev_rec.date_accepted := rosetta_g_miss_date_in_map(p6_a85);
9831     ddp_klev_rec.date_delivery_expected := rosetta_g_miss_date_in_map(p6_a86);
9832     ddp_klev_rec.oec := rosetta_g_miss_num_map(p6_a87);
9833     ddp_klev_rec.capital_amount := rosetta_g_miss_num_map(p6_a88);
9834     ddp_klev_rec.residual_grnty_amount := rosetta_g_miss_num_map(p6_a89);
9835     ddp_klev_rec.residual_code := p6_a90;
9836     ddp_klev_rec.rvi_premium := rosetta_g_miss_num_map(p6_a91);
9837     ddp_klev_rec.credit_nature := p6_a92;
9838     ddp_klev_rec.capitalized_interest := rosetta_g_miss_num_map(p6_a93);
9839     ddp_klev_rec.capital_reduction_percent := rosetta_g_miss_num_map(p6_a94);
9840     ddp_klev_rec.date_pay_investor_start := rosetta_g_miss_date_in_map(p6_a95);
9841     ddp_klev_rec.pay_investor_frequency := p6_a96;
9842     ddp_klev_rec.pay_investor_event := p6_a97;
9843     ddp_klev_rec.pay_investor_remittance_days := rosetta_g_miss_num_map(p6_a98);
9844 
9845 
9846 
9847 
9848     -- here's the delegated call to the old PL/SQL routine
9849     okl_contract_pvt.update_contract_line(p_api_version,
9850       p_init_msg_list,
9851       x_return_status,
9852       x_msg_count,
9853       x_msg_data,
9854       ddp_clev_rec,
9855       ddp_klev_rec,
9856       p_edit_mode,
9857       ddx_clev_rec,
9858       ddx_klev_rec);
9859 
9860     -- copy data back from the local variables to OUT or IN-OUT args, if any
9861 
9862 
9863 
9864 
9865 
9866 
9867 
9868 
9869     p8_a0 := rosetta_g_miss_num_map(ddx_clev_rec.id);
9870     p8_a1 := rosetta_g_miss_num_map(ddx_clev_rec.object_version_number);
9871     p8_a2 := ddx_clev_rec.sfwt_flag;
9872     p8_a3 := rosetta_g_miss_num_map(ddx_clev_rec.chr_id);
9873     p8_a4 := rosetta_g_miss_num_map(ddx_clev_rec.cle_id);
9874     p8_a5 := rosetta_g_miss_num_map(ddx_clev_rec.cle_id_renewed);
9875     p8_a6 := rosetta_g_miss_num_map(ddx_clev_rec.cle_id_renewed_to);
9876     p8_a7 := rosetta_g_miss_num_map(ddx_clev_rec.lse_id);
9877     p8_a8 := ddx_clev_rec.line_number;
9878     p8_a9 := ddx_clev_rec.sts_code;
9879     p8_a10 := rosetta_g_miss_num_map(ddx_clev_rec.display_sequence);
9880     p8_a11 := ddx_clev_rec.trn_code;
9881     p8_a12 := rosetta_g_miss_num_map(ddx_clev_rec.dnz_chr_id);
9882     p8_a13 := ddx_clev_rec.comments;
9883     p8_a14 := ddx_clev_rec.item_description;
9884     p8_a15 := ddx_clev_rec.oke_boe_description;
9885     p8_a16 := ddx_clev_rec.cognomen;
9886     p8_a17 := ddx_clev_rec.hidden_ind;
9887     p8_a18 := rosetta_g_miss_num_map(ddx_clev_rec.price_unit);
9888     p8_a19 := rosetta_g_miss_num_map(ddx_clev_rec.price_unit_percent);
9889     p8_a20 := rosetta_g_miss_num_map(ddx_clev_rec.price_negotiated);
9890     p8_a21 := rosetta_g_miss_num_map(ddx_clev_rec.price_negotiated_renewed);
9891     p8_a22 := ddx_clev_rec.price_level_ind;
9892     p8_a23 := ddx_clev_rec.invoice_line_level_ind;
9893     p8_a24 := ddx_clev_rec.dpas_rating;
9894     p8_a25 := ddx_clev_rec.block23text;
9895     p8_a26 := ddx_clev_rec.exception_yn;
9896     p8_a27 := ddx_clev_rec.template_used;
9897     p8_a28 := ddx_clev_rec.date_terminated;
9898     p8_a29 := ddx_clev_rec.name;
9899     p8_a30 := ddx_clev_rec.start_date;
9900     p8_a31 := ddx_clev_rec.end_date;
9901     p8_a32 := ddx_clev_rec.date_renewed;
9902     p8_a33 := ddx_clev_rec.upg_orig_system_ref;
9903     p8_a34 := rosetta_g_miss_num_map(ddx_clev_rec.upg_orig_system_ref_id);
9904     p8_a35 := ddx_clev_rec.orig_system_source_code;
9905     p8_a36 := rosetta_g_miss_num_map(ddx_clev_rec.orig_system_id1);
9906     p8_a37 := ddx_clev_rec.orig_system_reference1;
9907     p8_a38 := ddx_clev_rec.attribute_category;
9908     p8_a39 := ddx_clev_rec.attribute1;
9909     p8_a40 := ddx_clev_rec.attribute2;
9910     p8_a41 := ddx_clev_rec.attribute3;
9911     p8_a42 := ddx_clev_rec.attribute4;
9912     p8_a43 := ddx_clev_rec.attribute5;
9913     p8_a44 := ddx_clev_rec.attribute6;
9914     p8_a45 := ddx_clev_rec.attribute7;
9915     p8_a46 := ddx_clev_rec.attribute8;
9916     p8_a47 := ddx_clev_rec.attribute9;
9917     p8_a48 := ddx_clev_rec.attribute10;
9918     p8_a49 := ddx_clev_rec.attribute11;
9919     p8_a50 := ddx_clev_rec.attribute12;
9920     p8_a51 := ddx_clev_rec.attribute13;
9921     p8_a52 := ddx_clev_rec.attribute14;
9922     p8_a53 := ddx_clev_rec.attribute15;
9923     p8_a54 := rosetta_g_miss_num_map(ddx_clev_rec.created_by);
9924     p8_a55 := ddx_clev_rec.creation_date;
9925     p8_a56 := rosetta_g_miss_num_map(ddx_clev_rec.last_updated_by);
9926     p8_a57 := ddx_clev_rec.last_update_date;
9927     p8_a58 := ddx_clev_rec.price_type;
9928     p8_a59 := ddx_clev_rec.currency_code;
9929     p8_a60 := ddx_clev_rec.currency_code_renewed;
9930     p8_a61 := rosetta_g_miss_num_map(ddx_clev_rec.last_update_login);
9931     p8_a62 := ddx_clev_rec.old_sts_code;
9932     p8_a63 := ddx_clev_rec.new_sts_code;
9933     p8_a64 := ddx_clev_rec.old_ste_code;
9934     p8_a65 := ddx_clev_rec.new_ste_code;
9935     p8_a66 := ddx_clev_rec.call_action_asmblr;
9936     p8_a67 := rosetta_g_miss_num_map(ddx_clev_rec.request_id);
9937     p8_a68 := rosetta_g_miss_num_map(ddx_clev_rec.program_application_id);
9938     p8_a69 := rosetta_g_miss_num_map(ddx_clev_rec.program_id);
9939     p8_a70 := ddx_clev_rec.program_update_date;
9940     p8_a71 := rosetta_g_miss_num_map(ddx_clev_rec.price_list_id);
9941     p8_a72 := ddx_clev_rec.pricing_date;
9942     p8_a73 := rosetta_g_miss_num_map(ddx_clev_rec.price_list_line_id);
9943     p8_a74 := rosetta_g_miss_num_map(ddx_clev_rec.line_list_price);
9944     p8_a75 := ddx_clev_rec.item_to_price_yn;
9945     p8_a76 := ddx_clev_rec.price_basis_yn;
9946     p8_a77 := rosetta_g_miss_num_map(ddx_clev_rec.config_header_id);
9947     p8_a78 := rosetta_g_miss_num_map(ddx_clev_rec.config_revision_number);
9948     p8_a79 := ddx_clev_rec.config_complete_yn;
9949     p8_a80 := ddx_clev_rec.config_valid_yn;
9950     p8_a81 := rosetta_g_miss_num_map(ddx_clev_rec.config_top_model_line_id);
9951     p8_a82 := ddx_clev_rec.config_item_type;
9952     p8_a83 := rosetta_g_miss_num_map(ddx_clev_rec.config_item_id);
9953     p8_a84 := rosetta_g_miss_num_map(ddx_clev_rec.cust_acct_id);
9954     p8_a85 := rosetta_g_miss_num_map(ddx_clev_rec.bill_to_site_use_id);
9955     p8_a86 := rosetta_g_miss_num_map(ddx_clev_rec.inv_rule_id);
9956     p8_a87 := ddx_clev_rec.line_renewal_type_code;
9957     p8_a88 := rosetta_g_miss_num_map(ddx_clev_rec.ship_to_site_use_id);
9958     p8_a89 := rosetta_g_miss_num_map(ddx_clev_rec.payment_term_id);
9959 
9960     p9_a0 := rosetta_g_miss_num_map(ddx_klev_rec.id);
9961     p9_a1 := rosetta_g_miss_num_map(ddx_klev_rec.object_version_number);
9962     p9_a2 := rosetta_g_miss_num_map(ddx_klev_rec.kle_id);
9963     p9_a3 := rosetta_g_miss_num_map(ddx_klev_rec.sty_id);
9964     p9_a4 := ddx_klev_rec.prc_code;
9965     p9_a5 := ddx_klev_rec.fcg_code;
9966     p9_a6 := ddx_klev_rec.nty_code;
9967     p9_a7 := rosetta_g_miss_num_map(ddx_klev_rec.estimated_oec);
9968     p9_a8 := rosetta_g_miss_num_map(ddx_klev_rec.lao_amount);
9969     p9_a9 := ddx_klev_rec.title_date;
9970     p9_a10 := rosetta_g_miss_num_map(ddx_klev_rec.fee_charge);
9971     p9_a11 := rosetta_g_miss_num_map(ddx_klev_rec.lrs_percent);
9972     p9_a12 := rosetta_g_miss_num_map(ddx_klev_rec.initial_direct_cost);
9973     p9_a13 := rosetta_g_miss_num_map(ddx_klev_rec.percent_stake);
9974     p9_a14 := rosetta_g_miss_num_map(ddx_klev_rec.percent);
9975     p9_a15 := rosetta_g_miss_num_map(ddx_klev_rec.evergreen_percent);
9976     p9_a16 := rosetta_g_miss_num_map(ddx_klev_rec.amount_stake);
9977     p9_a17 := rosetta_g_miss_num_map(ddx_klev_rec.occupancy);
9978     p9_a18 := rosetta_g_miss_num_map(ddx_klev_rec.coverage);
9979     p9_a19 := rosetta_g_miss_num_map(ddx_klev_rec.residual_percentage);
9980     p9_a20 := ddx_klev_rec.date_last_inspection;
9981     p9_a21 := ddx_klev_rec.date_sold;
9982     p9_a22 := rosetta_g_miss_num_map(ddx_klev_rec.lrv_amount);
9983     p9_a23 := rosetta_g_miss_num_map(ddx_klev_rec.capital_reduction);
9984     p9_a24 := ddx_klev_rec.date_next_inspection_due;
9985     p9_a25 := ddx_klev_rec.date_residual_last_review;
9986     p9_a26 := ddx_klev_rec.date_last_reamortisation;
9987     p9_a27 := rosetta_g_miss_num_map(ddx_klev_rec.vendor_advance_paid);
9988     p9_a28 := rosetta_g_miss_num_map(ddx_klev_rec.weighted_average_life);
9989     p9_a29 := rosetta_g_miss_num_map(ddx_klev_rec.tradein_amount);
9990     p9_a30 := rosetta_g_miss_num_map(ddx_klev_rec.bond_equivalent_yield);
9991     p9_a31 := rosetta_g_miss_num_map(ddx_klev_rec.termination_purchase_amount);
9992     p9_a32 := rosetta_g_miss_num_map(ddx_klev_rec.refinance_amount);
9993     p9_a33 := rosetta_g_miss_num_map(ddx_klev_rec.year_built);
9994     p9_a34 := ddx_klev_rec.delivered_date;
9995     p9_a35 := ddx_klev_rec.credit_tenant_yn;
9996     p9_a36 := ddx_klev_rec.date_last_cleanup;
9997     p9_a37 := ddx_klev_rec.year_of_manufacture;
9998     p9_a38 := rosetta_g_miss_num_map(ddx_klev_rec.coverage_ratio);
9999     p9_a39 := rosetta_g_miss_num_map(ddx_klev_rec.remarketed_amount);
10000     p9_a40 := rosetta_g_miss_num_map(ddx_klev_rec.gross_square_footage);
10001     p9_a41 := ddx_klev_rec.prescribed_asset_yn;
10002     p9_a42 := ddx_klev_rec.date_remarketed;
10003     p9_a43 := rosetta_g_miss_num_map(ddx_klev_rec.net_rentable);
10004     p9_a44 := rosetta_g_miss_num_map(ddx_klev_rec.remarket_margin);
10005     p9_a45 := ddx_klev_rec.date_letter_acceptance;
10006     p9_a46 := rosetta_g_miss_num_map(ddx_klev_rec.repurchased_amount);
10007     p9_a47 := ddx_klev_rec.date_commitment_expiration;
10008     p9_a48 := ddx_klev_rec.date_repurchased;
10009     p9_a49 := ddx_klev_rec.date_appraisal;
10010     p9_a50 := rosetta_g_miss_num_map(ddx_klev_rec.residual_value);
10011     p9_a51 := rosetta_g_miss_num_map(ddx_klev_rec.appraisal_value);
10012     p9_a52 := ddx_klev_rec.secured_deal_yn;
10013     p9_a53 := rosetta_g_miss_num_map(ddx_klev_rec.gain_loss);
10014     p9_a54 := rosetta_g_miss_num_map(ddx_klev_rec.floor_amount);
10015     p9_a55 := ddx_klev_rec.re_lease_yn;
10016     p9_a56 := ddx_klev_rec.previous_contract;
10017     p9_a57 := rosetta_g_miss_num_map(ddx_klev_rec.tracked_residual);
10018     p9_a58 := ddx_klev_rec.date_title_received;
10019     p9_a59 := rosetta_g_miss_num_map(ddx_klev_rec.amount);
10020     p9_a60 := ddx_klev_rec.attribute_category;
10021     p9_a61 := ddx_klev_rec.attribute1;
10022     p9_a62 := ddx_klev_rec.attribute2;
10023     p9_a63 := ddx_klev_rec.attribute3;
10024     p9_a64 := ddx_klev_rec.attribute4;
10025     p9_a65 := ddx_klev_rec.attribute5;
10026     p9_a66 := ddx_klev_rec.attribute6;
10027     p9_a67 := ddx_klev_rec.attribute7;
10028     p9_a68 := ddx_klev_rec.attribute8;
10029     p9_a69 := ddx_klev_rec.attribute9;
10030     p9_a70 := ddx_klev_rec.attribute10;
10031     p9_a71 := ddx_klev_rec.attribute11;
10032     p9_a72 := ddx_klev_rec.attribute12;
10033     p9_a73 := ddx_klev_rec.attribute13;
10034     p9_a74 := ddx_klev_rec.attribute14;
10035     p9_a75 := ddx_klev_rec.attribute15;
10036     p9_a76 := rosetta_g_miss_num_map(ddx_klev_rec.sty_id_for);
10037     p9_a77 := rosetta_g_miss_num_map(ddx_klev_rec.clg_id);
10038     p9_a78 := rosetta_g_miss_num_map(ddx_klev_rec.created_by);
10039     p9_a79 := ddx_klev_rec.creation_date;
10040     p9_a80 := rosetta_g_miss_num_map(ddx_klev_rec.last_updated_by);
10041     p9_a81 := ddx_klev_rec.last_update_date;
10042     p9_a82 := rosetta_g_miss_num_map(ddx_klev_rec.last_update_login);
10043     p9_a83 := ddx_klev_rec.date_funding;
10044     p9_a84 := ddx_klev_rec.date_funding_required;
10045     p9_a85 := ddx_klev_rec.date_accepted;
10046     p9_a86 := ddx_klev_rec.date_delivery_expected;
10047     p9_a87 := rosetta_g_miss_num_map(ddx_klev_rec.oec);
10048     p9_a88 := rosetta_g_miss_num_map(ddx_klev_rec.capital_amount);
10049     p9_a89 := rosetta_g_miss_num_map(ddx_klev_rec.residual_grnty_amount);
10050     p9_a90 := ddx_klev_rec.residual_code;
10051     p9_a91 := rosetta_g_miss_num_map(ddx_klev_rec.rvi_premium);
10052     p9_a92 := ddx_klev_rec.credit_nature;
10053     p9_a93 := rosetta_g_miss_num_map(ddx_klev_rec.capitalized_interest);
10054     p9_a94 := rosetta_g_miss_num_map(ddx_klev_rec.capital_reduction_percent);
10055     p9_a95 := ddx_klev_rec.date_pay_investor_start;
10056     p9_a96 := ddx_klev_rec.pay_investor_frequency;
10057     p9_a97 := ddx_klev_rec.pay_investor_event;
10058     p9_a98 := rosetta_g_miss_num_map(ddx_klev_rec.pay_investor_remittance_days);
10059   end;
10060 
10061   procedure update_contract_line(p_api_version  NUMBER
10062     , p_init_msg_list  VARCHAR2
10063     , x_return_status out nocopy  VARCHAR2
10064     , x_msg_count out nocopy  NUMBER
10065     , x_msg_data out nocopy  VARCHAR2
10066     , p5_a0 JTF_NUMBER_TABLE
10067     , p5_a1 JTF_NUMBER_TABLE
10068     , p5_a2 JTF_VARCHAR2_TABLE_100
10069     , p5_a3 JTF_NUMBER_TABLE
10070     , p5_a4 JTF_NUMBER_TABLE
10071     , p5_a5 JTF_NUMBER_TABLE
10072     , p5_a6 JTF_NUMBER_TABLE
10073     , p5_a7 JTF_NUMBER_TABLE
10074     , p5_a8 JTF_VARCHAR2_TABLE_200
10075     , p5_a9 JTF_VARCHAR2_TABLE_100
10076     , p5_a10 JTF_NUMBER_TABLE
10077     , p5_a11 JTF_VARCHAR2_TABLE_100
10078     , p5_a12 JTF_NUMBER_TABLE
10079     , p5_a13 JTF_VARCHAR2_TABLE_2000
10080     , p5_a14 JTF_VARCHAR2_TABLE_2000
10081     , p5_a15 JTF_VARCHAR2_TABLE_2000
10082     , p5_a16 JTF_VARCHAR2_TABLE_300
10083     , p5_a17 JTF_VARCHAR2_TABLE_100
10084     , p5_a18 JTF_NUMBER_TABLE
10085     , p5_a19 JTF_NUMBER_TABLE
10086     , p5_a20 JTF_NUMBER_TABLE
10087     , p5_a21 JTF_NUMBER_TABLE
10088     , p5_a22 JTF_VARCHAR2_TABLE_100
10089     , p5_a23 JTF_VARCHAR2_TABLE_100
10090     , p5_a24 JTF_VARCHAR2_TABLE_100
10091     , p5_a25 JTF_VARCHAR2_TABLE_2000
10092     , p5_a26 JTF_VARCHAR2_TABLE_100
10093     , p5_a27 JTF_VARCHAR2_TABLE_200
10094     , p5_a28 JTF_DATE_TABLE
10095     , p5_a29 JTF_VARCHAR2_TABLE_200
10096     , p5_a30 JTF_DATE_TABLE
10097     , p5_a31 JTF_DATE_TABLE
10098     , p5_a32 JTF_DATE_TABLE
10099     , p5_a33 JTF_VARCHAR2_TABLE_100
10100     , p5_a34 JTF_NUMBER_TABLE
10101     , p5_a35 JTF_VARCHAR2_TABLE_100
10102     , p5_a36 JTF_NUMBER_TABLE
10103     , p5_a37 JTF_VARCHAR2_TABLE_100
10104     , p5_a38 JTF_VARCHAR2_TABLE_100
10105     , p5_a39 JTF_VARCHAR2_TABLE_500
10106     , p5_a40 JTF_VARCHAR2_TABLE_500
10107     , p5_a41 JTF_VARCHAR2_TABLE_500
10108     , p5_a42 JTF_VARCHAR2_TABLE_500
10109     , p5_a43 JTF_VARCHAR2_TABLE_500
10110     , p5_a44 JTF_VARCHAR2_TABLE_500
10111     , p5_a45 JTF_VARCHAR2_TABLE_500
10112     , p5_a46 JTF_VARCHAR2_TABLE_500
10113     , p5_a47 JTF_VARCHAR2_TABLE_500
10114     , p5_a48 JTF_VARCHAR2_TABLE_500
10115     , p5_a49 JTF_VARCHAR2_TABLE_500
10116     , p5_a50 JTF_VARCHAR2_TABLE_500
10117     , p5_a51 JTF_VARCHAR2_TABLE_500
10118     , p5_a52 JTF_VARCHAR2_TABLE_500
10119     , p5_a53 JTF_VARCHAR2_TABLE_500
10120     , p5_a54 JTF_NUMBER_TABLE
10121     , p5_a55 JTF_DATE_TABLE
10122     , p5_a56 JTF_NUMBER_TABLE
10123     , p5_a57 JTF_DATE_TABLE
10124     , p5_a58 JTF_VARCHAR2_TABLE_100
10125     , p5_a59 JTF_VARCHAR2_TABLE_100
10126     , p5_a60 JTF_VARCHAR2_TABLE_100
10127     , p5_a61 JTF_NUMBER_TABLE
10128     , p5_a62 JTF_VARCHAR2_TABLE_100
10129     , p5_a63 JTF_VARCHAR2_TABLE_100
10130     , p5_a64 JTF_VARCHAR2_TABLE_100
10131     , p5_a65 JTF_VARCHAR2_TABLE_100
10132     , p5_a66 JTF_VARCHAR2_TABLE_100
10133     , p5_a67 JTF_NUMBER_TABLE
10134     , p5_a68 JTF_NUMBER_TABLE
10135     , p5_a69 JTF_NUMBER_TABLE
10136     , p5_a70 JTF_DATE_TABLE
10137     , p5_a71 JTF_NUMBER_TABLE
10138     , p5_a72 JTF_DATE_TABLE
10139     , p5_a73 JTF_NUMBER_TABLE
10140     , p5_a74 JTF_NUMBER_TABLE
10141     , p5_a75 JTF_VARCHAR2_TABLE_100
10142     , p5_a76 JTF_VARCHAR2_TABLE_100
10143     , p5_a77 JTF_NUMBER_TABLE
10144     , p5_a78 JTF_NUMBER_TABLE
10145     , p5_a79 JTF_VARCHAR2_TABLE_100
10146     , p5_a80 JTF_VARCHAR2_TABLE_100
10147     , p5_a81 JTF_NUMBER_TABLE
10148     , p5_a82 JTF_VARCHAR2_TABLE_100
10149     , p5_a83 JTF_NUMBER_TABLE
10150     , p5_a84 JTF_NUMBER_TABLE
10151     , p5_a85 JTF_NUMBER_TABLE
10152     , p5_a86 JTF_NUMBER_TABLE
10153     , p5_a87 JTF_VARCHAR2_TABLE_100
10154     , p5_a88 JTF_NUMBER_TABLE
10155     , p5_a89 JTF_NUMBER_TABLE
10156     , p6_a0 JTF_NUMBER_TABLE
10157     , p6_a1 JTF_NUMBER_TABLE
10158     , p6_a2 JTF_NUMBER_TABLE
10159     , p6_a3 JTF_NUMBER_TABLE
10160     , p6_a4 JTF_VARCHAR2_TABLE_100
10161     , p6_a5 JTF_VARCHAR2_TABLE_100
10162     , p6_a6 JTF_VARCHAR2_TABLE_100
10163     , p6_a7 JTF_NUMBER_TABLE
10164     , p6_a8 JTF_NUMBER_TABLE
10165     , p6_a9 JTF_DATE_TABLE
10166     , p6_a10 JTF_NUMBER_TABLE
10167     , p6_a11 JTF_NUMBER_TABLE
10168     , p6_a12 JTF_NUMBER_TABLE
10169     , p6_a13 JTF_NUMBER_TABLE
10170     , p6_a14 JTF_NUMBER_TABLE
10171     , p6_a15 JTF_NUMBER_TABLE
10172     , p6_a16 JTF_NUMBER_TABLE
10173     , p6_a17 JTF_NUMBER_TABLE
10174     , p6_a18 JTF_NUMBER_TABLE
10175     , p6_a19 JTF_NUMBER_TABLE
10176     , p6_a20 JTF_DATE_TABLE
10177     , p6_a21 JTF_DATE_TABLE
10178     , p6_a22 JTF_NUMBER_TABLE
10179     , p6_a23 JTF_NUMBER_TABLE
10180     , p6_a24 JTF_DATE_TABLE
10181     , p6_a25 JTF_DATE_TABLE
10182     , p6_a26 JTF_DATE_TABLE
10183     , p6_a27 JTF_NUMBER_TABLE
10184     , p6_a28 JTF_NUMBER_TABLE
10185     , p6_a29 JTF_NUMBER_TABLE
10186     , p6_a30 JTF_NUMBER_TABLE
10187     , p6_a31 JTF_NUMBER_TABLE
10188     , p6_a32 JTF_NUMBER_TABLE
10189     , p6_a33 JTF_NUMBER_TABLE
10190     , p6_a34 JTF_DATE_TABLE
10191     , p6_a35 JTF_VARCHAR2_TABLE_100
10192     , p6_a36 JTF_DATE_TABLE
10193     , p6_a37 JTF_VARCHAR2_TABLE_300
10194     , p6_a38 JTF_NUMBER_TABLE
10195     , p6_a39 JTF_NUMBER_TABLE
10196     , p6_a40 JTF_NUMBER_TABLE
10197     , p6_a41 JTF_VARCHAR2_TABLE_100
10198     , p6_a42 JTF_DATE_TABLE
10199     , p6_a43 JTF_NUMBER_TABLE
10200     , p6_a44 JTF_NUMBER_TABLE
10201     , p6_a45 JTF_DATE_TABLE
10202     , p6_a46 JTF_NUMBER_TABLE
10203     , p6_a47 JTF_DATE_TABLE
10204     , p6_a48 JTF_DATE_TABLE
10205     , p6_a49 JTF_DATE_TABLE
10206     , p6_a50 JTF_NUMBER_TABLE
10207     , p6_a51 JTF_NUMBER_TABLE
10208     , p6_a52 JTF_VARCHAR2_TABLE_100
10209     , p6_a53 JTF_NUMBER_TABLE
10210     , p6_a54 JTF_NUMBER_TABLE
10211     , p6_a55 JTF_VARCHAR2_TABLE_100
10212     , p6_a56 JTF_VARCHAR2_TABLE_100
10213     , p6_a57 JTF_NUMBER_TABLE
10214     , p6_a58 JTF_DATE_TABLE
10215     , p6_a59 JTF_NUMBER_TABLE
10216     , p6_a60 JTF_VARCHAR2_TABLE_100
10217     , p6_a61 JTF_VARCHAR2_TABLE_500
10218     , p6_a62 JTF_VARCHAR2_TABLE_500
10219     , p6_a63 JTF_VARCHAR2_TABLE_500
10220     , p6_a64 JTF_VARCHAR2_TABLE_500
10221     , p6_a65 JTF_VARCHAR2_TABLE_500
10222     , p6_a66 JTF_VARCHAR2_TABLE_500
10223     , p6_a67 JTF_VARCHAR2_TABLE_500
10224     , p6_a68 JTF_VARCHAR2_TABLE_500
10225     , p6_a69 JTF_VARCHAR2_TABLE_500
10226     , p6_a70 JTF_VARCHAR2_TABLE_500
10227     , p6_a71 JTF_VARCHAR2_TABLE_500
10228     , p6_a72 JTF_VARCHAR2_TABLE_500
10229     , p6_a73 JTF_VARCHAR2_TABLE_500
10230     , p6_a74 JTF_VARCHAR2_TABLE_500
10231     , p6_a75 JTF_VARCHAR2_TABLE_500
10232     , p6_a76 JTF_NUMBER_TABLE
10233     , p6_a77 JTF_NUMBER_TABLE
10234     , p6_a78 JTF_NUMBER_TABLE
10235     , p6_a79 JTF_DATE_TABLE
10236     , p6_a80 JTF_NUMBER_TABLE
10237     , p6_a81 JTF_DATE_TABLE
10238     , p6_a82 JTF_NUMBER_TABLE
10239     , p6_a83 JTF_DATE_TABLE
10240     , p6_a84 JTF_DATE_TABLE
10241     , p6_a85 JTF_DATE_TABLE
10242     , p6_a86 JTF_DATE_TABLE
10243     , p6_a87 JTF_NUMBER_TABLE
10244     , p6_a88 JTF_NUMBER_TABLE
10245     , p6_a89 JTF_NUMBER_TABLE
10246     , p6_a90 JTF_VARCHAR2_TABLE_100
10247     , p6_a91 JTF_NUMBER_TABLE
10248     , p6_a92 JTF_VARCHAR2_TABLE_100
10249     , p6_a93 JTF_NUMBER_TABLE
10250     , p6_a94 JTF_NUMBER_TABLE
10251     , p6_a95 JTF_DATE_TABLE
10252     , p6_a96 JTF_VARCHAR2_TABLE_100
10253     , p6_a97 JTF_VARCHAR2_TABLE_100
10254     , p6_a98 JTF_NUMBER_TABLE
10255     , p_edit_mode  VARCHAR2
10256     , p8_a0 out nocopy JTF_NUMBER_TABLE
10257     , p8_a1 out nocopy JTF_NUMBER_TABLE
10258     , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
10259     , p8_a3 out nocopy JTF_NUMBER_TABLE
10260     , p8_a4 out nocopy JTF_NUMBER_TABLE
10261     , p8_a5 out nocopy JTF_NUMBER_TABLE
10262     , p8_a6 out nocopy JTF_NUMBER_TABLE
10263     , p8_a7 out nocopy JTF_NUMBER_TABLE
10264     , p8_a8 out nocopy JTF_VARCHAR2_TABLE_200
10265     , p8_a9 out nocopy JTF_VARCHAR2_TABLE_100
10266     , p8_a10 out nocopy JTF_NUMBER_TABLE
10267     , p8_a11 out nocopy JTF_VARCHAR2_TABLE_100
10268     , p8_a12 out nocopy JTF_NUMBER_TABLE
10269     , p8_a13 out nocopy JTF_VARCHAR2_TABLE_2000
10270     , p8_a14 out nocopy JTF_VARCHAR2_TABLE_2000
10271     , p8_a15 out nocopy JTF_VARCHAR2_TABLE_2000
10272     , p8_a16 out nocopy JTF_VARCHAR2_TABLE_300
10273     , p8_a17 out nocopy JTF_VARCHAR2_TABLE_100
10274     , p8_a18 out nocopy JTF_NUMBER_TABLE
10275     , p8_a19 out nocopy JTF_NUMBER_TABLE
10276     , p8_a20 out nocopy JTF_NUMBER_TABLE
10277     , p8_a21 out nocopy JTF_NUMBER_TABLE
10278     , p8_a22 out nocopy JTF_VARCHAR2_TABLE_100
10279     , p8_a23 out nocopy JTF_VARCHAR2_TABLE_100
10280     , p8_a24 out nocopy JTF_VARCHAR2_TABLE_100
10281     , p8_a25 out nocopy JTF_VARCHAR2_TABLE_2000
10282     , p8_a26 out nocopy JTF_VARCHAR2_TABLE_100
10283     , p8_a27 out nocopy JTF_VARCHAR2_TABLE_200
10284     , p8_a28 out nocopy JTF_DATE_TABLE
10285     , p8_a29 out nocopy JTF_VARCHAR2_TABLE_200
10286     , p8_a30 out nocopy JTF_DATE_TABLE
10287     , p8_a31 out nocopy JTF_DATE_TABLE
10288     , p8_a32 out nocopy JTF_DATE_TABLE
10289     , p8_a33 out nocopy JTF_VARCHAR2_TABLE_100
10290     , p8_a34 out nocopy JTF_NUMBER_TABLE
10291     , p8_a35 out nocopy JTF_VARCHAR2_TABLE_100
10292     , p8_a36 out nocopy JTF_NUMBER_TABLE
10293     , p8_a37 out nocopy JTF_VARCHAR2_TABLE_100
10294     , p8_a38 out nocopy JTF_VARCHAR2_TABLE_100
10295     , p8_a39 out nocopy JTF_VARCHAR2_TABLE_500
10296     , p8_a40 out nocopy JTF_VARCHAR2_TABLE_500
10297     , p8_a41 out nocopy JTF_VARCHAR2_TABLE_500
10298     , p8_a42 out nocopy JTF_VARCHAR2_TABLE_500
10299     , p8_a43 out nocopy JTF_VARCHAR2_TABLE_500
10300     , p8_a44 out nocopy JTF_VARCHAR2_TABLE_500
10301     , p8_a45 out nocopy JTF_VARCHAR2_TABLE_500
10302     , p8_a46 out nocopy JTF_VARCHAR2_TABLE_500
10303     , p8_a47 out nocopy JTF_VARCHAR2_TABLE_500
10304     , p8_a48 out nocopy JTF_VARCHAR2_TABLE_500
10305     , p8_a49 out nocopy JTF_VARCHAR2_TABLE_500
10306     , p8_a50 out nocopy JTF_VARCHAR2_TABLE_500
10307     , p8_a51 out nocopy JTF_VARCHAR2_TABLE_500
10308     , p8_a52 out nocopy JTF_VARCHAR2_TABLE_500
10309     , p8_a53 out nocopy JTF_VARCHAR2_TABLE_500
10310     , p8_a54 out nocopy JTF_NUMBER_TABLE
10311     , p8_a55 out nocopy JTF_DATE_TABLE
10312     , p8_a56 out nocopy JTF_NUMBER_TABLE
10313     , p8_a57 out nocopy JTF_DATE_TABLE
10314     , p8_a58 out nocopy JTF_VARCHAR2_TABLE_100
10315     , p8_a59 out nocopy JTF_VARCHAR2_TABLE_100
10316     , p8_a60 out nocopy JTF_VARCHAR2_TABLE_100
10317     , p8_a61 out nocopy JTF_NUMBER_TABLE
10318     , p8_a62 out nocopy JTF_VARCHAR2_TABLE_100
10319     , p8_a63 out nocopy JTF_VARCHAR2_TABLE_100
10320     , p8_a64 out nocopy JTF_VARCHAR2_TABLE_100
10321     , p8_a65 out nocopy JTF_VARCHAR2_TABLE_100
10322     , p8_a66 out nocopy JTF_VARCHAR2_TABLE_100
10323     , p8_a67 out nocopy JTF_NUMBER_TABLE
10324     , p8_a68 out nocopy JTF_NUMBER_TABLE
10325     , p8_a69 out nocopy JTF_NUMBER_TABLE
10326     , p8_a70 out nocopy JTF_DATE_TABLE
10327     , p8_a71 out nocopy JTF_NUMBER_TABLE
10328     , p8_a72 out nocopy JTF_DATE_TABLE
10329     , p8_a73 out nocopy JTF_NUMBER_TABLE
10330     , p8_a74 out nocopy JTF_NUMBER_TABLE
10331     , p8_a75 out nocopy JTF_VARCHAR2_TABLE_100
10332     , p8_a76 out nocopy JTF_VARCHAR2_TABLE_100
10333     , p8_a77 out nocopy JTF_NUMBER_TABLE
10334     , p8_a78 out nocopy JTF_NUMBER_TABLE
10335     , p8_a79 out nocopy JTF_VARCHAR2_TABLE_100
10336     , p8_a80 out nocopy JTF_VARCHAR2_TABLE_100
10337     , p8_a81 out nocopy JTF_NUMBER_TABLE
10338     , p8_a82 out nocopy JTF_VARCHAR2_TABLE_100
10339     , p8_a83 out nocopy JTF_NUMBER_TABLE
10340     , p8_a84 out nocopy JTF_NUMBER_TABLE
10341     , p8_a85 out nocopy JTF_NUMBER_TABLE
10342     , p8_a86 out nocopy JTF_NUMBER_TABLE
10343     , p8_a87 out nocopy JTF_VARCHAR2_TABLE_100
10344     , p8_a88 out nocopy JTF_NUMBER_TABLE
10345     , p8_a89 out nocopy JTF_NUMBER_TABLE
10346     , p9_a0 out nocopy JTF_NUMBER_TABLE
10347     , p9_a1 out nocopy JTF_NUMBER_TABLE
10348     , p9_a2 out nocopy JTF_NUMBER_TABLE
10349     , p9_a3 out nocopy JTF_NUMBER_TABLE
10350     , p9_a4 out nocopy JTF_VARCHAR2_TABLE_100
10351     , p9_a5 out nocopy JTF_VARCHAR2_TABLE_100
10352     , p9_a6 out nocopy JTF_VARCHAR2_TABLE_100
10353     , p9_a7 out nocopy JTF_NUMBER_TABLE
10354     , p9_a8 out nocopy JTF_NUMBER_TABLE
10355     , p9_a9 out nocopy JTF_DATE_TABLE
10356     , p9_a10 out nocopy JTF_NUMBER_TABLE
10357     , p9_a11 out nocopy JTF_NUMBER_TABLE
10358     , p9_a12 out nocopy JTF_NUMBER_TABLE
10359     , p9_a13 out nocopy JTF_NUMBER_TABLE
10360     , p9_a14 out nocopy JTF_NUMBER_TABLE
10361     , p9_a15 out nocopy JTF_NUMBER_TABLE
10362     , p9_a16 out nocopy JTF_NUMBER_TABLE
10363     , p9_a17 out nocopy JTF_NUMBER_TABLE
10364     , p9_a18 out nocopy JTF_NUMBER_TABLE
10365     , p9_a19 out nocopy JTF_NUMBER_TABLE
10366     , p9_a20 out nocopy JTF_DATE_TABLE
10367     , p9_a21 out nocopy JTF_DATE_TABLE
10368     , p9_a22 out nocopy JTF_NUMBER_TABLE
10369     , p9_a23 out nocopy JTF_NUMBER_TABLE
10370     , p9_a24 out nocopy JTF_DATE_TABLE
10371     , p9_a25 out nocopy JTF_DATE_TABLE
10372     , p9_a26 out nocopy JTF_DATE_TABLE
10373     , p9_a27 out nocopy JTF_NUMBER_TABLE
10374     , p9_a28 out nocopy JTF_NUMBER_TABLE
10375     , p9_a29 out nocopy JTF_NUMBER_TABLE
10376     , p9_a30 out nocopy JTF_NUMBER_TABLE
10377     , p9_a31 out nocopy JTF_NUMBER_TABLE
10378     , p9_a32 out nocopy JTF_NUMBER_TABLE
10379     , p9_a33 out nocopy JTF_NUMBER_TABLE
10380     , p9_a34 out nocopy JTF_DATE_TABLE
10381     , p9_a35 out nocopy JTF_VARCHAR2_TABLE_100
10382     , p9_a36 out nocopy JTF_DATE_TABLE
10383     , p9_a37 out nocopy JTF_VARCHAR2_TABLE_300
10384     , p9_a38 out nocopy JTF_NUMBER_TABLE
10385     , p9_a39 out nocopy JTF_NUMBER_TABLE
10386     , p9_a40 out nocopy JTF_NUMBER_TABLE
10387     , p9_a41 out nocopy JTF_VARCHAR2_TABLE_100
10388     , p9_a42 out nocopy JTF_DATE_TABLE
10389     , p9_a43 out nocopy JTF_NUMBER_TABLE
10390     , p9_a44 out nocopy JTF_NUMBER_TABLE
10391     , p9_a45 out nocopy JTF_DATE_TABLE
10392     , p9_a46 out nocopy JTF_NUMBER_TABLE
10393     , p9_a47 out nocopy JTF_DATE_TABLE
10394     , p9_a48 out nocopy JTF_DATE_TABLE
10395     , p9_a49 out nocopy JTF_DATE_TABLE
10396     , p9_a50 out nocopy JTF_NUMBER_TABLE
10397     , p9_a51 out nocopy JTF_NUMBER_TABLE
10398     , p9_a52 out nocopy JTF_VARCHAR2_TABLE_100
10399     , p9_a53 out nocopy JTF_NUMBER_TABLE
10400     , p9_a54 out nocopy JTF_NUMBER_TABLE
10401     , p9_a55 out nocopy JTF_VARCHAR2_TABLE_100
10402     , p9_a56 out nocopy JTF_VARCHAR2_TABLE_100
10403     , p9_a57 out nocopy JTF_NUMBER_TABLE
10404     , p9_a58 out nocopy JTF_DATE_TABLE
10405     , p9_a59 out nocopy JTF_NUMBER_TABLE
10406     , p9_a60 out nocopy JTF_VARCHAR2_TABLE_100
10407     , p9_a61 out nocopy JTF_VARCHAR2_TABLE_500
10408     , p9_a62 out nocopy JTF_VARCHAR2_TABLE_500
10409     , p9_a63 out nocopy JTF_VARCHAR2_TABLE_500
10410     , p9_a64 out nocopy JTF_VARCHAR2_TABLE_500
10411     , p9_a65 out nocopy JTF_VARCHAR2_TABLE_500
10412     , p9_a66 out nocopy JTF_VARCHAR2_TABLE_500
10413     , p9_a67 out nocopy JTF_VARCHAR2_TABLE_500
10414     , p9_a68 out nocopy JTF_VARCHAR2_TABLE_500
10415     , p9_a69 out nocopy JTF_VARCHAR2_TABLE_500
10416     , p9_a70 out nocopy JTF_VARCHAR2_TABLE_500
10417     , p9_a71 out nocopy JTF_VARCHAR2_TABLE_500
10418     , p9_a72 out nocopy JTF_VARCHAR2_TABLE_500
10419     , p9_a73 out nocopy JTF_VARCHAR2_TABLE_500
10420     , p9_a74 out nocopy JTF_VARCHAR2_TABLE_500
10421     , p9_a75 out nocopy JTF_VARCHAR2_TABLE_500
10422     , p9_a76 out nocopy JTF_NUMBER_TABLE
10423     , p9_a77 out nocopy JTF_NUMBER_TABLE
10424     , p9_a78 out nocopy JTF_NUMBER_TABLE
10425     , p9_a79 out nocopy JTF_DATE_TABLE
10426     , p9_a80 out nocopy JTF_NUMBER_TABLE
10427     , p9_a81 out nocopy JTF_DATE_TABLE
10428     , p9_a82 out nocopy JTF_NUMBER_TABLE
10429     , p9_a83 out nocopy JTF_DATE_TABLE
10430     , p9_a84 out nocopy JTF_DATE_TABLE
10431     , p9_a85 out nocopy JTF_DATE_TABLE
10432     , p9_a86 out nocopy JTF_DATE_TABLE
10433     , p9_a87 out nocopy JTF_NUMBER_TABLE
10434     , p9_a88 out nocopy JTF_NUMBER_TABLE
10435     , p9_a89 out nocopy JTF_NUMBER_TABLE
10436     , p9_a90 out nocopy JTF_VARCHAR2_TABLE_100
10437     , p9_a91 out nocopy JTF_NUMBER_TABLE
10438     , p9_a92 out nocopy JTF_VARCHAR2_TABLE_100
10439     , p9_a93 out nocopy JTF_NUMBER_TABLE
10440     , p9_a94 out nocopy JTF_NUMBER_TABLE
10441     , p9_a95 out nocopy JTF_DATE_TABLE
10442     , p9_a96 out nocopy JTF_VARCHAR2_TABLE_100
10443     , p9_a97 out nocopy JTF_VARCHAR2_TABLE_100
10444     , p9_a98 out nocopy JTF_NUMBER_TABLE
10445   )
10446 
10447   as
10448     ddp_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
10449     ddp_klev_tbl okl_contract_pvt.klev_tbl_type;
10450     ddx_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
10451     ddx_klev_tbl okl_contract_pvt.klev_tbl_type;
10452     ddindx binary_integer; indx binary_integer;
10453   begin
10454 
10455     -- copy data to the local IN or IN-OUT args, if any
10456 
10457 
10458 
10459 
10460 
10461     okl_okc_migration_pvt_w.rosetta_table_copy_in_p5(ddp_clev_tbl, p5_a0
10462       , p5_a1
10463       , p5_a2
10464       , p5_a3
10465       , p5_a4
10466       , p5_a5
10467       , p5_a6
10468       , p5_a7
10469       , p5_a8
10470       , p5_a9
10471       , p5_a10
10472       , p5_a11
10473       , p5_a12
10474       , p5_a13
10475       , p5_a14
10476       , p5_a15
10477       , p5_a16
10478       , p5_a17
10479       , p5_a18
10480       , p5_a19
10481       , p5_a20
10482       , p5_a21
10483       , p5_a22
10484       , p5_a23
10485       , p5_a24
10486       , p5_a25
10487       , p5_a26
10488       , p5_a27
10489       , p5_a28
10490       , p5_a29
10491       , p5_a30
10492       , p5_a31
10493       , p5_a32
10494       , p5_a33
10495       , p5_a34
10496       , p5_a35
10497       , p5_a36
10498       , p5_a37
10499       , p5_a38
10500       , p5_a39
10501       , p5_a40
10502       , p5_a41
10503       , p5_a42
10504       , p5_a43
10505       , p5_a44
10506       , p5_a45
10507       , p5_a46
10508       , p5_a47
10509       , p5_a48
10510       , p5_a49
10511       , p5_a50
10512       , p5_a51
10513       , p5_a52
10514       , p5_a53
10515       , p5_a54
10516       , p5_a55
10517       , p5_a56
10518       , p5_a57
10519       , p5_a58
10520       , p5_a59
10521       , p5_a60
10522       , p5_a61
10523       , p5_a62
10524       , p5_a63
10525       , p5_a64
10526       , p5_a65
10527       , p5_a66
10528       , p5_a67
10529       , p5_a68
10530       , p5_a69
10531       , p5_a70
10532       , p5_a71
10533       , p5_a72
10534       , p5_a73
10535       , p5_a74
10536       , p5_a75
10537       , p5_a76
10538       , p5_a77
10539       , p5_a78
10540       , p5_a79
10541       , p5_a80
10542       , p5_a81
10543       , p5_a82
10544       , p5_a83
10545       , p5_a84
10546       , p5_a85
10547       , p5_a86
10548       , p5_a87
10549       , p5_a88
10550       , p5_a89
10551       );
10552 
10553     okl_kle_pvt_w.rosetta_table_copy_in_p8(ddp_klev_tbl, p6_a0
10554       , p6_a1
10555       , p6_a2
10556       , p6_a3
10557       , p6_a4
10558       , p6_a5
10559       , p6_a6
10560       , p6_a7
10561       , p6_a8
10562       , p6_a9
10563       , p6_a10
10564       , p6_a11
10565       , p6_a12
10566       , p6_a13
10567       , p6_a14
10568       , p6_a15
10569       , p6_a16
10570       , p6_a17
10571       , p6_a18
10572       , p6_a19
10573       , p6_a20
10574       , p6_a21
10575       , p6_a22
10576       , p6_a23
10577       , p6_a24
10578       , p6_a25
10579       , p6_a26
10580       , p6_a27
10581       , p6_a28
10582       , p6_a29
10583       , p6_a30
10584       , p6_a31
10585       , p6_a32
10586       , p6_a33
10587       , p6_a34
10588       , p6_a35
10589       , p6_a36
10590       , p6_a37
10591       , p6_a38
10592       , p6_a39
10593       , p6_a40
10594       , p6_a41
10595       , p6_a42
10596       , p6_a43
10597       , p6_a44
10598       , p6_a45
10599       , p6_a46
10600       , p6_a47
10601       , p6_a48
10602       , p6_a49
10603       , p6_a50
10604       , p6_a51
10605       , p6_a52
10606       , p6_a53
10607       , p6_a54
10608       , p6_a55
10609       , p6_a56
10610       , p6_a57
10611       , p6_a58
10612       , p6_a59
10613       , p6_a60
10614       , p6_a61
10615       , p6_a62
10616       , p6_a63
10617       , p6_a64
10618       , p6_a65
10619       , p6_a66
10620       , p6_a67
10621       , p6_a68
10622       , p6_a69
10623       , p6_a70
10624       , p6_a71
10625       , p6_a72
10626       , p6_a73
10627       , p6_a74
10628       , p6_a75
10629       , p6_a76
10630       , p6_a77
10631       , p6_a78
10632       , p6_a79
10633       , p6_a80
10634       , p6_a81
10635       , p6_a82
10636       , p6_a83
10637       , p6_a84
10638       , p6_a85
10639       , p6_a86
10640       , p6_a87
10641       , p6_a88
10642       , p6_a89
10643       , p6_a90
10644       , p6_a91
10645       , p6_a92
10646       , p6_a93
10647       , p6_a94
10648       , p6_a95
10649       , p6_a96
10650       , p6_a97
10651       , p6_a98
10652       );
10653 
10654 
10655 
10656 
10657     -- here's the delegated call to the old PL/SQL routine
10658     okl_contract_pvt.update_contract_line(p_api_version,
10659       p_init_msg_list,
10660       x_return_status,
10661       x_msg_count,
10662       x_msg_data,
10663       ddp_clev_tbl,
10664       ddp_klev_tbl,
10665       p_edit_mode,
10666       ddx_clev_tbl,
10667       ddx_klev_tbl);
10668 
10669     -- copy data back from the local variables to OUT or IN-OUT args, if any
10670 
10671 
10672 
10673 
10674 
10675 
10676 
10677 
10678     okl_okc_migration_pvt_w.rosetta_table_copy_out_p5(ddx_clev_tbl, p8_a0
10679       , p8_a1
10680       , p8_a2
10681       , p8_a3
10682       , p8_a4
10683       , p8_a5
10684       , p8_a6
10685       , p8_a7
10686       , p8_a8
10687       , p8_a9
10688       , p8_a10
10689       , p8_a11
10690       , p8_a12
10691       , p8_a13
10692       , p8_a14
10693       , p8_a15
10694       , p8_a16
10695       , p8_a17
10696       , p8_a18
10697       , p8_a19
10698       , p8_a20
10699       , p8_a21
10700       , p8_a22
10701       , p8_a23
10702       , p8_a24
10703       , p8_a25
10704       , p8_a26
10705       , p8_a27
10706       , p8_a28
10707       , p8_a29
10708       , p8_a30
10709       , p8_a31
10710       , p8_a32
10711       , p8_a33
10712       , p8_a34
10713       , p8_a35
10714       , p8_a36
10715       , p8_a37
10716       , p8_a38
10717       , p8_a39
10718       , p8_a40
10719       , p8_a41
10720       , p8_a42
10721       , p8_a43
10722       , p8_a44
10723       , p8_a45
10724       , p8_a46
10725       , p8_a47
10726       , p8_a48
10727       , p8_a49
10728       , p8_a50
10729       , p8_a51
10730       , p8_a52
10731       , p8_a53
10732       , p8_a54
10733       , p8_a55
10734       , p8_a56
10735       , p8_a57
10736       , p8_a58
10737       , p8_a59
10738       , p8_a60
10739       , p8_a61
10740       , p8_a62
10741       , p8_a63
10742       , p8_a64
10743       , p8_a65
10744       , p8_a66
10745       , p8_a67
10746       , p8_a68
10747       , p8_a69
10748       , p8_a70
10749       , p8_a71
10750       , p8_a72
10751       , p8_a73
10752       , p8_a74
10753       , p8_a75
10754       , p8_a76
10755       , p8_a77
10756       , p8_a78
10757       , p8_a79
10758       , p8_a80
10759       , p8_a81
10760       , p8_a82
10761       , p8_a83
10762       , p8_a84
10763       , p8_a85
10764       , p8_a86
10765       , p8_a87
10766       , p8_a88
10767       , p8_a89
10768       );
10769 
10770     okl_kle_pvt_w.rosetta_table_copy_out_p8(ddx_klev_tbl, p9_a0
10771       , p9_a1
10772       , p9_a2
10773       , p9_a3
10774       , p9_a4
10775       , p9_a5
10776       , p9_a6
10777       , p9_a7
10778       , p9_a8
10779       , p9_a9
10780       , p9_a10
10781       , p9_a11
10782       , p9_a12
10783       , p9_a13
10784       , p9_a14
10785       , p9_a15
10786       , p9_a16
10787       , p9_a17
10788       , p9_a18
10789       , p9_a19
10790       , p9_a20
10791       , p9_a21
10792       , p9_a22
10793       , p9_a23
10794       , p9_a24
10795       , p9_a25
10796       , p9_a26
10797       , p9_a27
10798       , p9_a28
10799       , p9_a29
10800       , p9_a30
10801       , p9_a31
10802       , p9_a32
10803       , p9_a33
10804       , p9_a34
10805       , p9_a35
10806       , p9_a36
10807       , p9_a37
10808       , p9_a38
10809       , p9_a39
10810       , p9_a40
10811       , p9_a41
10812       , p9_a42
10813       , p9_a43
10814       , p9_a44
10815       , p9_a45
10816       , p9_a46
10817       , p9_a47
10818       , p9_a48
10819       , p9_a49
10820       , p9_a50
10821       , p9_a51
10822       , p9_a52
10823       , p9_a53
10824       , p9_a54
10825       , p9_a55
10826       , p9_a56
10827       , p9_a57
10828       , p9_a58
10829       , p9_a59
10830       , p9_a60
10831       , p9_a61
10832       , p9_a62
10833       , p9_a63
10834       , p9_a64
10835       , p9_a65
10836       , p9_a66
10837       , p9_a67
10838       , p9_a68
10839       , p9_a69
10840       , p9_a70
10841       , p9_a71
10842       , p9_a72
10843       , p9_a73
10844       , p9_a74
10845       , p9_a75
10846       , p9_a76
10847       , p9_a77
10848       , p9_a78
10849       , p9_a79
10850       , p9_a80
10851       , p9_a81
10852       , p9_a82
10853       , p9_a83
10854       , p9_a84
10855       , p9_a85
10856       , p9_a86
10857       , p9_a87
10858       , p9_a88
10859       , p9_a89
10860       , p9_a90
10861       , p9_a91
10862       , p9_a92
10863       , p9_a93
10864       , p9_a94
10865       , p9_a95
10866       , p9_a96
10867       , p9_a97
10868       , p9_a98
10869       );
10870   end;
10871 
10872   procedure delete_contract_line(p_api_version  NUMBER
10873     , p_init_msg_list  VARCHAR2
10874     , x_return_status out nocopy  VARCHAR2
10875     , x_msg_count out nocopy  NUMBER
10876     , x_msg_data out nocopy  VARCHAR2
10877     , p5_a0  NUMBER := 0-1962.0724
10878     , p5_a1  NUMBER := 0-1962.0724
10879     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
10880     , p5_a3  NUMBER := 0-1962.0724
10881     , p5_a4  NUMBER := 0-1962.0724
10882     , p5_a5  NUMBER := 0-1962.0724
10883     , p5_a6  NUMBER := 0-1962.0724
10884     , p5_a7  NUMBER := 0-1962.0724
10885     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
10886     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
10887     , p5_a10  NUMBER := 0-1962.0724
10888     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
10889     , p5_a12  NUMBER := 0-1962.0724
10890     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
10891     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
10892     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
10893     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
10894     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
10895     , p5_a18  NUMBER := 0-1962.0724
10896     , p5_a19  NUMBER := 0-1962.0724
10897     , p5_a20  NUMBER := 0-1962.0724
10898     , p5_a21  NUMBER := 0-1962.0724
10899     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
10900     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
10901     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
10902     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
10903     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
10904     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
10905     , p5_a28  DATE := fnd_api.g_miss_date
10906     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
10907     , p5_a30  DATE := fnd_api.g_miss_date
10908     , p5_a31  DATE := fnd_api.g_miss_date
10909     , p5_a32  DATE := fnd_api.g_miss_date
10910     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
10911     , p5_a34  NUMBER := 0-1962.0724
10912     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
10913     , p5_a36  NUMBER := 0-1962.0724
10914     , p5_a37  VARCHAR2 := fnd_api.g_miss_char
10915     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
10916     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
10917     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
10918     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
10919     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
10920     , p5_a43  VARCHAR2 := fnd_api.g_miss_char
10921     , p5_a44  VARCHAR2 := fnd_api.g_miss_char
10922     , p5_a45  VARCHAR2 := fnd_api.g_miss_char
10923     , p5_a46  VARCHAR2 := fnd_api.g_miss_char
10924     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
10925     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
10926     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
10927     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
10928     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
10929     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
10930     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
10931     , p5_a54  NUMBER := 0-1962.0724
10932     , p5_a55  DATE := fnd_api.g_miss_date
10933     , p5_a56  NUMBER := 0-1962.0724
10934     , p5_a57  DATE := fnd_api.g_miss_date
10935     , p5_a58  VARCHAR2 := fnd_api.g_miss_char
10936     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
10937     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
10938     , p5_a61  NUMBER := 0-1962.0724
10939     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
10940     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
10941     , p5_a64  VARCHAR2 := fnd_api.g_miss_char
10942     , p5_a65  VARCHAR2 := fnd_api.g_miss_char
10943     , p5_a66  VARCHAR2 := fnd_api.g_miss_char
10944     , p5_a67  NUMBER := 0-1962.0724
10945     , p5_a68  NUMBER := 0-1962.0724
10946     , p5_a69  NUMBER := 0-1962.0724
10947     , p5_a70  DATE := fnd_api.g_miss_date
10948     , p5_a71  NUMBER := 0-1962.0724
10949     , p5_a72  DATE := fnd_api.g_miss_date
10950     , p5_a73  NUMBER := 0-1962.0724
10951     , p5_a74  NUMBER := 0-1962.0724
10952     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
10953     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
10954     , p5_a77  NUMBER := 0-1962.0724
10955     , p5_a78  NUMBER := 0-1962.0724
10956     , p5_a79  VARCHAR2 := fnd_api.g_miss_char
10957     , p5_a80  VARCHAR2 := fnd_api.g_miss_char
10958     , p5_a81  NUMBER := 0-1962.0724
10959     , p5_a82  VARCHAR2 := fnd_api.g_miss_char
10960     , p5_a83  NUMBER := 0-1962.0724
10961     , p5_a84  NUMBER := 0-1962.0724
10962     , p5_a85  NUMBER := 0-1962.0724
10963     , p5_a86  NUMBER := 0-1962.0724
10964     , p5_a87  VARCHAR2 := fnd_api.g_miss_char
10965     , p5_a88  NUMBER := 0-1962.0724
10966     , p5_a89  NUMBER := 0-1962.0724
10967     , p6_a0  NUMBER := 0-1962.0724
10968     , p6_a1  NUMBER := 0-1962.0724
10969     , p6_a2  NUMBER := 0-1962.0724
10970     , p6_a3  NUMBER := 0-1962.0724
10971     , p6_a4  VARCHAR2 := fnd_api.g_miss_char
10972     , p6_a5  VARCHAR2 := fnd_api.g_miss_char
10973     , p6_a6  VARCHAR2 := fnd_api.g_miss_char
10974     , p6_a7  NUMBER := 0-1962.0724
10975     , p6_a8  NUMBER := 0-1962.0724
10976     , p6_a9  DATE := fnd_api.g_miss_date
10977     , p6_a10  NUMBER := 0-1962.0724
10978     , p6_a11  NUMBER := 0-1962.0724
10979     , p6_a12  NUMBER := 0-1962.0724
10980     , p6_a13  NUMBER := 0-1962.0724
10981     , p6_a14  NUMBER := 0-1962.0724
10982     , p6_a15  NUMBER := 0-1962.0724
10983     , p6_a16  NUMBER := 0-1962.0724
10984     , p6_a17  NUMBER := 0-1962.0724
10985     , p6_a18  NUMBER := 0-1962.0724
10986     , p6_a19  NUMBER := 0-1962.0724
10987     , p6_a20  DATE := fnd_api.g_miss_date
10988     , p6_a21  DATE := fnd_api.g_miss_date
10989     , p6_a22  NUMBER := 0-1962.0724
10990     , p6_a23  NUMBER := 0-1962.0724
10991     , p6_a24  DATE := fnd_api.g_miss_date
10992     , p6_a25  DATE := fnd_api.g_miss_date
10993     , p6_a26  DATE := fnd_api.g_miss_date
10994     , p6_a27  NUMBER := 0-1962.0724
10995     , p6_a28  NUMBER := 0-1962.0724
10996     , p6_a29  NUMBER := 0-1962.0724
10997     , p6_a30  NUMBER := 0-1962.0724
10998     , p6_a31  NUMBER := 0-1962.0724
10999     , p6_a32  NUMBER := 0-1962.0724
11000     , p6_a33  NUMBER := 0-1962.0724
11001     , p6_a34  DATE := fnd_api.g_miss_date
11002     , p6_a35  VARCHAR2 := fnd_api.g_miss_char
11003     , p6_a36  DATE := fnd_api.g_miss_date
11004     , p6_a37  VARCHAR2 := fnd_api.g_miss_char
11005     , p6_a38  NUMBER := 0-1962.0724
11006     , p6_a39  NUMBER := 0-1962.0724
11007     , p6_a40  NUMBER := 0-1962.0724
11008     , p6_a41  VARCHAR2 := fnd_api.g_miss_char
11009     , p6_a42  DATE := fnd_api.g_miss_date
11010     , p6_a43  NUMBER := 0-1962.0724
11011     , p6_a44  NUMBER := 0-1962.0724
11012     , p6_a45  DATE := fnd_api.g_miss_date
11013     , p6_a46  NUMBER := 0-1962.0724
11014     , p6_a47  DATE := fnd_api.g_miss_date
11015     , p6_a48  DATE := fnd_api.g_miss_date
11016     , p6_a49  DATE := fnd_api.g_miss_date
11017     , p6_a50  NUMBER := 0-1962.0724
11018     , p6_a51  NUMBER := 0-1962.0724
11019     , p6_a52  VARCHAR2 := fnd_api.g_miss_char
11020     , p6_a53  NUMBER := 0-1962.0724
11021     , p6_a54  NUMBER := 0-1962.0724
11022     , p6_a55  VARCHAR2 := fnd_api.g_miss_char
11023     , p6_a56  VARCHAR2 := fnd_api.g_miss_char
11024     , p6_a57  NUMBER := 0-1962.0724
11025     , p6_a58  DATE := fnd_api.g_miss_date
11026     , p6_a59  NUMBER := 0-1962.0724
11027     , p6_a60  VARCHAR2 := fnd_api.g_miss_char
11028     , p6_a61  VARCHAR2 := fnd_api.g_miss_char
11029     , p6_a62  VARCHAR2 := fnd_api.g_miss_char
11030     , p6_a63  VARCHAR2 := fnd_api.g_miss_char
11031     , p6_a64  VARCHAR2 := fnd_api.g_miss_char
11032     , p6_a65  VARCHAR2 := fnd_api.g_miss_char
11033     , p6_a66  VARCHAR2 := fnd_api.g_miss_char
11034     , p6_a67  VARCHAR2 := fnd_api.g_miss_char
11035     , p6_a68  VARCHAR2 := fnd_api.g_miss_char
11036     , p6_a69  VARCHAR2 := fnd_api.g_miss_char
11037     , p6_a70  VARCHAR2 := fnd_api.g_miss_char
11038     , p6_a71  VARCHAR2 := fnd_api.g_miss_char
11039     , p6_a72  VARCHAR2 := fnd_api.g_miss_char
11040     , p6_a73  VARCHAR2 := fnd_api.g_miss_char
11041     , p6_a74  VARCHAR2 := fnd_api.g_miss_char
11042     , p6_a75  VARCHAR2 := fnd_api.g_miss_char
11043     , p6_a76  NUMBER := 0-1962.0724
11044     , p6_a77  NUMBER := 0-1962.0724
11045     , p6_a78  NUMBER := 0-1962.0724
11046     , p6_a79  DATE := fnd_api.g_miss_date
11047     , p6_a80  NUMBER := 0-1962.0724
11048     , p6_a81  DATE := fnd_api.g_miss_date
11049     , p6_a82  NUMBER := 0-1962.0724
11050     , p6_a83  DATE := fnd_api.g_miss_date
11051     , p6_a84  DATE := fnd_api.g_miss_date
11052     , p6_a85  DATE := fnd_api.g_miss_date
11053     , p6_a86  DATE := fnd_api.g_miss_date
11054     , p6_a87  NUMBER := 0-1962.0724
11055     , p6_a88  NUMBER := 0-1962.0724
11056     , p6_a89  NUMBER := 0-1962.0724
11057     , p6_a90  VARCHAR2 := fnd_api.g_miss_char
11058     , p6_a91  NUMBER := 0-1962.0724
11059     , p6_a92  VARCHAR2 := fnd_api.g_miss_char
11060     , p6_a93  NUMBER := 0-1962.0724
11061     , p6_a94  NUMBER := 0-1962.0724
11062     , p6_a95  DATE := fnd_api.g_miss_date
11063     , p6_a96  VARCHAR2 := fnd_api.g_miss_char
11064     , p6_a97  VARCHAR2 := fnd_api.g_miss_char
11065     , p6_a98  NUMBER := 0-1962.0724
11066   )
11067 
11068   as
11069     ddp_clev_rec okl_okc_migration_pvt.clev_rec_type;
11070     ddp_klev_rec okl_contract_pvt.klev_rec_type;
11071     ddindx binary_integer; indx binary_integer;
11072   begin
11073 
11074     -- copy data to the local IN or IN-OUT args, if any
11075 
11076 
11077 
11078 
11079 
11080     ddp_clev_rec.id := rosetta_g_miss_num_map(p5_a0);
11081     ddp_clev_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
11082     ddp_clev_rec.sfwt_flag := p5_a2;
11083     ddp_clev_rec.chr_id := rosetta_g_miss_num_map(p5_a3);
11084     ddp_clev_rec.cle_id := rosetta_g_miss_num_map(p5_a4);
11085     ddp_clev_rec.cle_id_renewed := rosetta_g_miss_num_map(p5_a5);
11086     ddp_clev_rec.cle_id_renewed_to := rosetta_g_miss_num_map(p5_a6);
11087     ddp_clev_rec.lse_id := rosetta_g_miss_num_map(p5_a7);
11088     ddp_clev_rec.line_number := p5_a8;
11089     ddp_clev_rec.sts_code := p5_a9;
11090     ddp_clev_rec.display_sequence := rosetta_g_miss_num_map(p5_a10);
11091     ddp_clev_rec.trn_code := p5_a11;
11092     ddp_clev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a12);
11093     ddp_clev_rec.comments := p5_a13;
11094     ddp_clev_rec.item_description := p5_a14;
11095     ddp_clev_rec.oke_boe_description := p5_a15;
11096     ddp_clev_rec.cognomen := p5_a16;
11097     ddp_clev_rec.hidden_ind := p5_a17;
11098     ddp_clev_rec.price_unit := rosetta_g_miss_num_map(p5_a18);
11099     ddp_clev_rec.price_unit_percent := rosetta_g_miss_num_map(p5_a19);
11100     ddp_clev_rec.price_negotiated := rosetta_g_miss_num_map(p5_a20);
11101     ddp_clev_rec.price_negotiated_renewed := rosetta_g_miss_num_map(p5_a21);
11102     ddp_clev_rec.price_level_ind := p5_a22;
11103     ddp_clev_rec.invoice_line_level_ind := p5_a23;
11104     ddp_clev_rec.dpas_rating := p5_a24;
11105     ddp_clev_rec.block23text := p5_a25;
11106     ddp_clev_rec.exception_yn := p5_a26;
11107     ddp_clev_rec.template_used := p5_a27;
11108     ddp_clev_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a28);
11109     ddp_clev_rec.name := p5_a29;
11110     ddp_clev_rec.start_date := rosetta_g_miss_date_in_map(p5_a30);
11111     ddp_clev_rec.end_date := rosetta_g_miss_date_in_map(p5_a31);
11112     ddp_clev_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a32);
11113     ddp_clev_rec.upg_orig_system_ref := p5_a33;
11114     ddp_clev_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a34);
11115     ddp_clev_rec.orig_system_source_code := p5_a35;
11116     ddp_clev_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a36);
11117     ddp_clev_rec.orig_system_reference1 := p5_a37;
11118     ddp_clev_rec.attribute_category := p5_a38;
11119     ddp_clev_rec.attribute1 := p5_a39;
11120     ddp_clev_rec.attribute2 := p5_a40;
11121     ddp_clev_rec.attribute3 := p5_a41;
11122     ddp_clev_rec.attribute4 := p5_a42;
11123     ddp_clev_rec.attribute5 := p5_a43;
11124     ddp_clev_rec.attribute6 := p5_a44;
11125     ddp_clev_rec.attribute7 := p5_a45;
11126     ddp_clev_rec.attribute8 := p5_a46;
11127     ddp_clev_rec.attribute9 := p5_a47;
11128     ddp_clev_rec.attribute10 := p5_a48;
11129     ddp_clev_rec.attribute11 := p5_a49;
11130     ddp_clev_rec.attribute12 := p5_a50;
11131     ddp_clev_rec.attribute13 := p5_a51;
11132     ddp_clev_rec.attribute14 := p5_a52;
11133     ddp_clev_rec.attribute15 := p5_a53;
11134     ddp_clev_rec.created_by := rosetta_g_miss_num_map(p5_a54);
11135     ddp_clev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a55);
11136     ddp_clev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a56);
11137     ddp_clev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a57);
11138     ddp_clev_rec.price_type := p5_a58;
11139     ddp_clev_rec.currency_code := p5_a59;
11140     ddp_clev_rec.currency_code_renewed := p5_a60;
11141     ddp_clev_rec.last_update_login := rosetta_g_miss_num_map(p5_a61);
11142     ddp_clev_rec.old_sts_code := p5_a62;
11143     ddp_clev_rec.new_sts_code := p5_a63;
11144     ddp_clev_rec.old_ste_code := p5_a64;
11145     ddp_clev_rec.new_ste_code := p5_a65;
11146     ddp_clev_rec.call_action_asmblr := p5_a66;
11147     ddp_clev_rec.request_id := rosetta_g_miss_num_map(p5_a67);
11148     ddp_clev_rec.program_application_id := rosetta_g_miss_num_map(p5_a68);
11149     ddp_clev_rec.program_id := rosetta_g_miss_num_map(p5_a69);
11150     ddp_clev_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a70);
11151     ddp_clev_rec.price_list_id := rosetta_g_miss_num_map(p5_a71);
11152     ddp_clev_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a72);
11153     ddp_clev_rec.price_list_line_id := rosetta_g_miss_num_map(p5_a73);
11154     ddp_clev_rec.line_list_price := rosetta_g_miss_num_map(p5_a74);
11155     ddp_clev_rec.item_to_price_yn := p5_a75;
11156     ddp_clev_rec.price_basis_yn := p5_a76;
11157     ddp_clev_rec.config_header_id := rosetta_g_miss_num_map(p5_a77);
11158     ddp_clev_rec.config_revision_number := rosetta_g_miss_num_map(p5_a78);
11159     ddp_clev_rec.config_complete_yn := p5_a79;
11160     ddp_clev_rec.config_valid_yn := p5_a80;
11161     ddp_clev_rec.config_top_model_line_id := rosetta_g_miss_num_map(p5_a81);
11162     ddp_clev_rec.config_item_type := p5_a82;
11163     ddp_clev_rec.config_item_id := rosetta_g_miss_num_map(p5_a83);
11164     ddp_clev_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a84);
11165     ddp_clev_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a85);
11166     ddp_clev_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a86);
11167     ddp_clev_rec.line_renewal_type_code := p5_a87;
11168     ddp_clev_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a88);
11169     ddp_clev_rec.payment_term_id := rosetta_g_miss_num_map(p5_a89);
11170 
11171     ddp_klev_rec.id := rosetta_g_miss_num_map(p6_a0);
11172     ddp_klev_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
11173     ddp_klev_rec.kle_id := rosetta_g_miss_num_map(p6_a2);
11174     ddp_klev_rec.sty_id := rosetta_g_miss_num_map(p6_a3);
11175     ddp_klev_rec.prc_code := p6_a4;
11176     ddp_klev_rec.fcg_code := p6_a5;
11177     ddp_klev_rec.nty_code := p6_a6;
11178     ddp_klev_rec.estimated_oec := rosetta_g_miss_num_map(p6_a7);
11179     ddp_klev_rec.lao_amount := rosetta_g_miss_num_map(p6_a8);
11180     ddp_klev_rec.title_date := rosetta_g_miss_date_in_map(p6_a9);
11181     ddp_klev_rec.fee_charge := rosetta_g_miss_num_map(p6_a10);
11182     ddp_klev_rec.lrs_percent := rosetta_g_miss_num_map(p6_a11);
11183     ddp_klev_rec.initial_direct_cost := rosetta_g_miss_num_map(p6_a12);
11184     ddp_klev_rec.percent_stake := rosetta_g_miss_num_map(p6_a13);
11185     ddp_klev_rec.percent := rosetta_g_miss_num_map(p6_a14);
11186     ddp_klev_rec.evergreen_percent := rosetta_g_miss_num_map(p6_a15);
11187     ddp_klev_rec.amount_stake := rosetta_g_miss_num_map(p6_a16);
11188     ddp_klev_rec.occupancy := rosetta_g_miss_num_map(p6_a17);
11189     ddp_klev_rec.coverage := rosetta_g_miss_num_map(p6_a18);
11190     ddp_klev_rec.residual_percentage := rosetta_g_miss_num_map(p6_a19);
11191     ddp_klev_rec.date_last_inspection := rosetta_g_miss_date_in_map(p6_a20);
11192     ddp_klev_rec.date_sold := rosetta_g_miss_date_in_map(p6_a21);
11193     ddp_klev_rec.lrv_amount := rosetta_g_miss_num_map(p6_a22);
11194     ddp_klev_rec.capital_reduction := rosetta_g_miss_num_map(p6_a23);
11195     ddp_klev_rec.date_next_inspection_due := rosetta_g_miss_date_in_map(p6_a24);
11196     ddp_klev_rec.date_residual_last_review := rosetta_g_miss_date_in_map(p6_a25);
11197     ddp_klev_rec.date_last_reamortisation := rosetta_g_miss_date_in_map(p6_a26);
11198     ddp_klev_rec.vendor_advance_paid := rosetta_g_miss_num_map(p6_a27);
11199     ddp_klev_rec.weighted_average_life := rosetta_g_miss_num_map(p6_a28);
11200     ddp_klev_rec.tradein_amount := rosetta_g_miss_num_map(p6_a29);
11201     ddp_klev_rec.bond_equivalent_yield := rosetta_g_miss_num_map(p6_a30);
11202     ddp_klev_rec.termination_purchase_amount := rosetta_g_miss_num_map(p6_a31);
11203     ddp_klev_rec.refinance_amount := rosetta_g_miss_num_map(p6_a32);
11204     ddp_klev_rec.year_built := rosetta_g_miss_num_map(p6_a33);
11205     ddp_klev_rec.delivered_date := rosetta_g_miss_date_in_map(p6_a34);
11206     ddp_klev_rec.credit_tenant_yn := p6_a35;
11207     ddp_klev_rec.date_last_cleanup := rosetta_g_miss_date_in_map(p6_a36);
11208     ddp_klev_rec.year_of_manufacture := p6_a37;
11209     ddp_klev_rec.coverage_ratio := rosetta_g_miss_num_map(p6_a38);
11210     ddp_klev_rec.remarketed_amount := rosetta_g_miss_num_map(p6_a39);
11211     ddp_klev_rec.gross_square_footage := rosetta_g_miss_num_map(p6_a40);
11212     ddp_klev_rec.prescribed_asset_yn := p6_a41;
11213     ddp_klev_rec.date_remarketed := rosetta_g_miss_date_in_map(p6_a42);
11214     ddp_klev_rec.net_rentable := rosetta_g_miss_num_map(p6_a43);
11215     ddp_klev_rec.remarket_margin := rosetta_g_miss_num_map(p6_a44);
11216     ddp_klev_rec.date_letter_acceptance := rosetta_g_miss_date_in_map(p6_a45);
11217     ddp_klev_rec.repurchased_amount := rosetta_g_miss_num_map(p6_a46);
11218     ddp_klev_rec.date_commitment_expiration := rosetta_g_miss_date_in_map(p6_a47);
11219     ddp_klev_rec.date_repurchased := rosetta_g_miss_date_in_map(p6_a48);
11220     ddp_klev_rec.date_appraisal := rosetta_g_miss_date_in_map(p6_a49);
11221     ddp_klev_rec.residual_value := rosetta_g_miss_num_map(p6_a50);
11222     ddp_klev_rec.appraisal_value := rosetta_g_miss_num_map(p6_a51);
11223     ddp_klev_rec.secured_deal_yn := p6_a52;
11224     ddp_klev_rec.gain_loss := rosetta_g_miss_num_map(p6_a53);
11225     ddp_klev_rec.floor_amount := rosetta_g_miss_num_map(p6_a54);
11226     ddp_klev_rec.re_lease_yn := p6_a55;
11227     ddp_klev_rec.previous_contract := p6_a56;
11228     ddp_klev_rec.tracked_residual := rosetta_g_miss_num_map(p6_a57);
11229     ddp_klev_rec.date_title_received := rosetta_g_miss_date_in_map(p6_a58);
11230     ddp_klev_rec.amount := rosetta_g_miss_num_map(p6_a59);
11231     ddp_klev_rec.attribute_category := p6_a60;
11232     ddp_klev_rec.attribute1 := p6_a61;
11233     ddp_klev_rec.attribute2 := p6_a62;
11234     ddp_klev_rec.attribute3 := p6_a63;
11235     ddp_klev_rec.attribute4 := p6_a64;
11236     ddp_klev_rec.attribute5 := p6_a65;
11237     ddp_klev_rec.attribute6 := p6_a66;
11238     ddp_klev_rec.attribute7 := p6_a67;
11239     ddp_klev_rec.attribute8 := p6_a68;
11240     ddp_klev_rec.attribute9 := p6_a69;
11241     ddp_klev_rec.attribute10 := p6_a70;
11242     ddp_klev_rec.attribute11 := p6_a71;
11243     ddp_klev_rec.attribute12 := p6_a72;
11244     ddp_klev_rec.attribute13 := p6_a73;
11245     ddp_klev_rec.attribute14 := p6_a74;
11246     ddp_klev_rec.attribute15 := p6_a75;
11247     ddp_klev_rec.sty_id_for := rosetta_g_miss_num_map(p6_a76);
11248     ddp_klev_rec.clg_id := rosetta_g_miss_num_map(p6_a77);
11249     ddp_klev_rec.created_by := rosetta_g_miss_num_map(p6_a78);
11250     ddp_klev_rec.creation_date := rosetta_g_miss_date_in_map(p6_a79);
11251     ddp_klev_rec.last_updated_by := rosetta_g_miss_num_map(p6_a80);
11252     ddp_klev_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a81);
11253     ddp_klev_rec.last_update_login := rosetta_g_miss_num_map(p6_a82);
11254     ddp_klev_rec.date_funding := rosetta_g_miss_date_in_map(p6_a83);
11255     ddp_klev_rec.date_funding_required := rosetta_g_miss_date_in_map(p6_a84);
11256     ddp_klev_rec.date_accepted := rosetta_g_miss_date_in_map(p6_a85);
11257     ddp_klev_rec.date_delivery_expected := rosetta_g_miss_date_in_map(p6_a86);
11258     ddp_klev_rec.oec := rosetta_g_miss_num_map(p6_a87);
11259     ddp_klev_rec.capital_amount := rosetta_g_miss_num_map(p6_a88);
11260     ddp_klev_rec.residual_grnty_amount := rosetta_g_miss_num_map(p6_a89);
11261     ddp_klev_rec.residual_code := p6_a90;
11262     ddp_klev_rec.rvi_premium := rosetta_g_miss_num_map(p6_a91);
11263     ddp_klev_rec.credit_nature := p6_a92;
11264     ddp_klev_rec.capitalized_interest := rosetta_g_miss_num_map(p6_a93);
11265     ddp_klev_rec.capital_reduction_percent := rosetta_g_miss_num_map(p6_a94);
11266     ddp_klev_rec.date_pay_investor_start := rosetta_g_miss_date_in_map(p6_a95);
11267     ddp_klev_rec.pay_investor_frequency := p6_a96;
11268     ddp_klev_rec.pay_investor_event := p6_a97;
11269     ddp_klev_rec.pay_investor_remittance_days := rosetta_g_miss_num_map(p6_a98);
11270 
11271     -- here's the delegated call to the old PL/SQL routine
11272     okl_contract_pvt.delete_contract_line(p_api_version,
11273       p_init_msg_list,
11274       x_return_status,
11275       x_msg_count,
11276       x_msg_data,
11277       ddp_clev_rec,
11278       ddp_klev_rec);
11279 
11280     -- copy data back from the local variables to OUT or IN-OUT args, if any
11281 
11282 
11283 
11284 
11285 
11286 
11287   end;
11288 
11289   procedure delete_contract_line(p_api_version  NUMBER
11290     , p_init_msg_list  VARCHAR2
11291     , x_return_status out nocopy  VARCHAR2
11292     , x_msg_count out nocopy  NUMBER
11293     , x_msg_data out nocopy  VARCHAR2
11294     , p5_a0 JTF_NUMBER_TABLE
11295     , p5_a1 JTF_NUMBER_TABLE
11296     , p5_a2 JTF_VARCHAR2_TABLE_100
11297     , p5_a3 JTF_NUMBER_TABLE
11298     , p5_a4 JTF_NUMBER_TABLE
11299     , p5_a5 JTF_NUMBER_TABLE
11300     , p5_a6 JTF_NUMBER_TABLE
11301     , p5_a7 JTF_NUMBER_TABLE
11302     , p5_a8 JTF_VARCHAR2_TABLE_200
11303     , p5_a9 JTF_VARCHAR2_TABLE_100
11304     , p5_a10 JTF_NUMBER_TABLE
11305     , p5_a11 JTF_VARCHAR2_TABLE_100
11306     , p5_a12 JTF_NUMBER_TABLE
11307     , p5_a13 JTF_VARCHAR2_TABLE_2000
11308     , p5_a14 JTF_VARCHAR2_TABLE_2000
11309     , p5_a15 JTF_VARCHAR2_TABLE_2000
11310     , p5_a16 JTF_VARCHAR2_TABLE_300
11311     , p5_a17 JTF_VARCHAR2_TABLE_100
11312     , p5_a18 JTF_NUMBER_TABLE
11313     , p5_a19 JTF_NUMBER_TABLE
11314     , p5_a20 JTF_NUMBER_TABLE
11315     , p5_a21 JTF_NUMBER_TABLE
11316     , p5_a22 JTF_VARCHAR2_TABLE_100
11317     , p5_a23 JTF_VARCHAR2_TABLE_100
11318     , p5_a24 JTF_VARCHAR2_TABLE_100
11319     , p5_a25 JTF_VARCHAR2_TABLE_2000
11320     , p5_a26 JTF_VARCHAR2_TABLE_100
11321     , p5_a27 JTF_VARCHAR2_TABLE_200
11322     , p5_a28 JTF_DATE_TABLE
11323     , p5_a29 JTF_VARCHAR2_TABLE_200
11324     , p5_a30 JTF_DATE_TABLE
11325     , p5_a31 JTF_DATE_TABLE
11326     , p5_a32 JTF_DATE_TABLE
11327     , p5_a33 JTF_VARCHAR2_TABLE_100
11328     , p5_a34 JTF_NUMBER_TABLE
11329     , p5_a35 JTF_VARCHAR2_TABLE_100
11330     , p5_a36 JTF_NUMBER_TABLE
11331     , p5_a37 JTF_VARCHAR2_TABLE_100
11332     , p5_a38 JTF_VARCHAR2_TABLE_100
11333     , p5_a39 JTF_VARCHAR2_TABLE_500
11334     , p5_a40 JTF_VARCHAR2_TABLE_500
11335     , p5_a41 JTF_VARCHAR2_TABLE_500
11336     , p5_a42 JTF_VARCHAR2_TABLE_500
11337     , p5_a43 JTF_VARCHAR2_TABLE_500
11338     , p5_a44 JTF_VARCHAR2_TABLE_500
11339     , p5_a45 JTF_VARCHAR2_TABLE_500
11340     , p5_a46 JTF_VARCHAR2_TABLE_500
11341     , p5_a47 JTF_VARCHAR2_TABLE_500
11342     , p5_a48 JTF_VARCHAR2_TABLE_500
11343     , p5_a49 JTF_VARCHAR2_TABLE_500
11344     , p5_a50 JTF_VARCHAR2_TABLE_500
11345     , p5_a51 JTF_VARCHAR2_TABLE_500
11346     , p5_a52 JTF_VARCHAR2_TABLE_500
11347     , p5_a53 JTF_VARCHAR2_TABLE_500
11348     , p5_a54 JTF_NUMBER_TABLE
11349     , p5_a55 JTF_DATE_TABLE
11350     , p5_a56 JTF_NUMBER_TABLE
11351     , p5_a57 JTF_DATE_TABLE
11352     , p5_a58 JTF_VARCHAR2_TABLE_100
11353     , p5_a59 JTF_VARCHAR2_TABLE_100
11354     , p5_a60 JTF_VARCHAR2_TABLE_100
11355     , p5_a61 JTF_NUMBER_TABLE
11356     , p5_a62 JTF_VARCHAR2_TABLE_100
11357     , p5_a63 JTF_VARCHAR2_TABLE_100
11358     , p5_a64 JTF_VARCHAR2_TABLE_100
11359     , p5_a65 JTF_VARCHAR2_TABLE_100
11360     , p5_a66 JTF_VARCHAR2_TABLE_100
11361     , p5_a67 JTF_NUMBER_TABLE
11362     , p5_a68 JTF_NUMBER_TABLE
11363     , p5_a69 JTF_NUMBER_TABLE
11364     , p5_a70 JTF_DATE_TABLE
11365     , p5_a71 JTF_NUMBER_TABLE
11366     , p5_a72 JTF_DATE_TABLE
11367     , p5_a73 JTF_NUMBER_TABLE
11368     , p5_a74 JTF_NUMBER_TABLE
11369     , p5_a75 JTF_VARCHAR2_TABLE_100
11370     , p5_a76 JTF_VARCHAR2_TABLE_100
11371     , p5_a77 JTF_NUMBER_TABLE
11372     , p5_a78 JTF_NUMBER_TABLE
11373     , p5_a79 JTF_VARCHAR2_TABLE_100
11374     , p5_a80 JTF_VARCHAR2_TABLE_100
11375     , p5_a81 JTF_NUMBER_TABLE
11376     , p5_a82 JTF_VARCHAR2_TABLE_100
11377     , p5_a83 JTF_NUMBER_TABLE
11378     , p5_a84 JTF_NUMBER_TABLE
11379     , p5_a85 JTF_NUMBER_TABLE
11380     , p5_a86 JTF_NUMBER_TABLE
11381     , p5_a87 JTF_VARCHAR2_TABLE_100
11382     , p5_a88 JTF_NUMBER_TABLE
11383     , p5_a89 JTF_NUMBER_TABLE
11384     , p6_a0 JTF_NUMBER_TABLE
11385     , p6_a1 JTF_NUMBER_TABLE
11386     , p6_a2 JTF_NUMBER_TABLE
11387     , p6_a3 JTF_NUMBER_TABLE
11388     , p6_a4 JTF_VARCHAR2_TABLE_100
11389     , p6_a5 JTF_VARCHAR2_TABLE_100
11390     , p6_a6 JTF_VARCHAR2_TABLE_100
11391     , p6_a7 JTF_NUMBER_TABLE
11392     , p6_a8 JTF_NUMBER_TABLE
11393     , p6_a9 JTF_DATE_TABLE
11394     , p6_a10 JTF_NUMBER_TABLE
11395     , p6_a11 JTF_NUMBER_TABLE
11396     , p6_a12 JTF_NUMBER_TABLE
11397     , p6_a13 JTF_NUMBER_TABLE
11398     , p6_a14 JTF_NUMBER_TABLE
11399     , p6_a15 JTF_NUMBER_TABLE
11400     , p6_a16 JTF_NUMBER_TABLE
11401     , p6_a17 JTF_NUMBER_TABLE
11402     , p6_a18 JTF_NUMBER_TABLE
11403     , p6_a19 JTF_NUMBER_TABLE
11404     , p6_a20 JTF_DATE_TABLE
11405     , p6_a21 JTF_DATE_TABLE
11406     , p6_a22 JTF_NUMBER_TABLE
11407     , p6_a23 JTF_NUMBER_TABLE
11408     , p6_a24 JTF_DATE_TABLE
11409     , p6_a25 JTF_DATE_TABLE
11410     , p6_a26 JTF_DATE_TABLE
11411     , p6_a27 JTF_NUMBER_TABLE
11412     , p6_a28 JTF_NUMBER_TABLE
11413     , p6_a29 JTF_NUMBER_TABLE
11414     , p6_a30 JTF_NUMBER_TABLE
11415     , p6_a31 JTF_NUMBER_TABLE
11416     , p6_a32 JTF_NUMBER_TABLE
11417     , p6_a33 JTF_NUMBER_TABLE
11418     , p6_a34 JTF_DATE_TABLE
11419     , p6_a35 JTF_VARCHAR2_TABLE_100
11420     , p6_a36 JTF_DATE_TABLE
11421     , p6_a37 JTF_VARCHAR2_TABLE_300
11422     , p6_a38 JTF_NUMBER_TABLE
11423     , p6_a39 JTF_NUMBER_TABLE
11424     , p6_a40 JTF_NUMBER_TABLE
11425     , p6_a41 JTF_VARCHAR2_TABLE_100
11426     , p6_a42 JTF_DATE_TABLE
11427     , p6_a43 JTF_NUMBER_TABLE
11428     , p6_a44 JTF_NUMBER_TABLE
11429     , p6_a45 JTF_DATE_TABLE
11430     , p6_a46 JTF_NUMBER_TABLE
11431     , p6_a47 JTF_DATE_TABLE
11432     , p6_a48 JTF_DATE_TABLE
11433     , p6_a49 JTF_DATE_TABLE
11434     , p6_a50 JTF_NUMBER_TABLE
11435     , p6_a51 JTF_NUMBER_TABLE
11436     , p6_a52 JTF_VARCHAR2_TABLE_100
11437     , p6_a53 JTF_NUMBER_TABLE
11438     , p6_a54 JTF_NUMBER_TABLE
11439     , p6_a55 JTF_VARCHAR2_TABLE_100
11440     , p6_a56 JTF_VARCHAR2_TABLE_100
11441     , p6_a57 JTF_NUMBER_TABLE
11442     , p6_a58 JTF_DATE_TABLE
11443     , p6_a59 JTF_NUMBER_TABLE
11444     , p6_a60 JTF_VARCHAR2_TABLE_100
11445     , p6_a61 JTF_VARCHAR2_TABLE_500
11446     , p6_a62 JTF_VARCHAR2_TABLE_500
11447     , p6_a63 JTF_VARCHAR2_TABLE_500
11448     , p6_a64 JTF_VARCHAR2_TABLE_500
11449     , p6_a65 JTF_VARCHAR2_TABLE_500
11450     , p6_a66 JTF_VARCHAR2_TABLE_500
11451     , p6_a67 JTF_VARCHAR2_TABLE_500
11452     , p6_a68 JTF_VARCHAR2_TABLE_500
11453     , p6_a69 JTF_VARCHAR2_TABLE_500
11454     , p6_a70 JTF_VARCHAR2_TABLE_500
11455     , p6_a71 JTF_VARCHAR2_TABLE_500
11456     , p6_a72 JTF_VARCHAR2_TABLE_500
11457     , p6_a73 JTF_VARCHAR2_TABLE_500
11458     , p6_a74 JTF_VARCHAR2_TABLE_500
11459     , p6_a75 JTF_VARCHAR2_TABLE_500
11460     , p6_a76 JTF_NUMBER_TABLE
11461     , p6_a77 JTF_NUMBER_TABLE
11462     , p6_a78 JTF_NUMBER_TABLE
11463     , p6_a79 JTF_DATE_TABLE
11464     , p6_a80 JTF_NUMBER_TABLE
11465     , p6_a81 JTF_DATE_TABLE
11466     , p6_a82 JTF_NUMBER_TABLE
11467     , p6_a83 JTF_DATE_TABLE
11468     , p6_a84 JTF_DATE_TABLE
11469     , p6_a85 JTF_DATE_TABLE
11470     , p6_a86 JTF_DATE_TABLE
11471     , p6_a87 JTF_NUMBER_TABLE
11472     , p6_a88 JTF_NUMBER_TABLE
11473     , p6_a89 JTF_NUMBER_TABLE
11474     , p6_a90 JTF_VARCHAR2_TABLE_100
11475     , p6_a91 JTF_NUMBER_TABLE
11476     , p6_a92 JTF_VARCHAR2_TABLE_100
11477     , p6_a93 JTF_NUMBER_TABLE
11478     , p6_a94 JTF_NUMBER_TABLE
11479     , p6_a95 JTF_DATE_TABLE
11480     , p6_a96 JTF_VARCHAR2_TABLE_100
11481     , p6_a97 JTF_VARCHAR2_TABLE_100
11482     , p6_a98 JTF_NUMBER_TABLE
11483   )
11484 
11485   as
11486     ddp_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
11487     ddp_klev_tbl okl_contract_pvt.klev_tbl_type;
11488     ddindx binary_integer; indx binary_integer;
11489   begin
11490 
11491     -- copy data to the local IN or IN-OUT args, if any
11492 
11493 
11494 
11495 
11496 
11497     okl_okc_migration_pvt_w.rosetta_table_copy_in_p5(ddp_clev_tbl, p5_a0
11498       , p5_a1
11499       , p5_a2
11500       , p5_a3
11501       , p5_a4
11502       , p5_a5
11503       , p5_a6
11504       , p5_a7
11505       , p5_a8
11506       , p5_a9
11507       , p5_a10
11508       , p5_a11
11509       , p5_a12
11510       , p5_a13
11511       , p5_a14
11512       , p5_a15
11513       , p5_a16
11514       , p5_a17
11515       , p5_a18
11516       , p5_a19
11517       , p5_a20
11518       , p5_a21
11519       , p5_a22
11520       , p5_a23
11521       , p5_a24
11522       , p5_a25
11523       , p5_a26
11524       , p5_a27
11525       , p5_a28
11526       , p5_a29
11527       , p5_a30
11528       , p5_a31
11529       , p5_a32
11530       , p5_a33
11531       , p5_a34
11532       , p5_a35
11533       , p5_a36
11534       , p5_a37
11535       , p5_a38
11536       , p5_a39
11537       , p5_a40
11538       , p5_a41
11539       , p5_a42
11540       , p5_a43
11541       , p5_a44
11542       , p5_a45
11543       , p5_a46
11544       , p5_a47
11545       , p5_a48
11546       , p5_a49
11547       , p5_a50
11548       , p5_a51
11549       , p5_a52
11550       , p5_a53
11551       , p5_a54
11552       , p5_a55
11553       , p5_a56
11554       , p5_a57
11555       , p5_a58
11556       , p5_a59
11557       , p5_a60
11558       , p5_a61
11559       , p5_a62
11560       , p5_a63
11561       , p5_a64
11562       , p5_a65
11563       , p5_a66
11564       , p5_a67
11565       , p5_a68
11566       , p5_a69
11567       , p5_a70
11568       , p5_a71
11569       , p5_a72
11570       , p5_a73
11571       , p5_a74
11572       , p5_a75
11573       , p5_a76
11574       , p5_a77
11575       , p5_a78
11576       , p5_a79
11577       , p5_a80
11578       , p5_a81
11579       , p5_a82
11580       , p5_a83
11581       , p5_a84
11582       , p5_a85
11583       , p5_a86
11584       , p5_a87
11585       , p5_a88
11586       , p5_a89
11587       );
11588 
11589     okl_kle_pvt_w.rosetta_table_copy_in_p8(ddp_klev_tbl, p6_a0
11590       , p6_a1
11591       , p6_a2
11592       , p6_a3
11593       , p6_a4
11594       , p6_a5
11595       , p6_a6
11596       , p6_a7
11597       , p6_a8
11598       , p6_a9
11599       , p6_a10
11600       , p6_a11
11601       , p6_a12
11602       , p6_a13
11603       , p6_a14
11604       , p6_a15
11605       , p6_a16
11606       , p6_a17
11607       , p6_a18
11608       , p6_a19
11609       , p6_a20
11610       , p6_a21
11611       , p6_a22
11612       , p6_a23
11613       , p6_a24
11614       , p6_a25
11615       , p6_a26
11616       , p6_a27
11617       , p6_a28
11618       , p6_a29
11619       , p6_a30
11620       , p6_a31
11621       , p6_a32
11622       , p6_a33
11623       , p6_a34
11624       , p6_a35
11625       , p6_a36
11626       , p6_a37
11627       , p6_a38
11628       , p6_a39
11629       , p6_a40
11630       , p6_a41
11631       , p6_a42
11632       , p6_a43
11633       , p6_a44
11634       , p6_a45
11635       , p6_a46
11636       , p6_a47
11637       , p6_a48
11638       , p6_a49
11639       , p6_a50
11640       , p6_a51
11641       , p6_a52
11642       , p6_a53
11643       , p6_a54
11644       , p6_a55
11645       , p6_a56
11646       , p6_a57
11647       , p6_a58
11648       , p6_a59
11649       , p6_a60
11650       , p6_a61
11651       , p6_a62
11652       , p6_a63
11653       , p6_a64
11654       , p6_a65
11655       , p6_a66
11656       , p6_a67
11657       , p6_a68
11658       , p6_a69
11659       , p6_a70
11660       , p6_a71
11661       , p6_a72
11662       , p6_a73
11663       , p6_a74
11664       , p6_a75
11665       , p6_a76
11666       , p6_a77
11667       , p6_a78
11668       , p6_a79
11669       , p6_a80
11670       , p6_a81
11671       , p6_a82
11672       , p6_a83
11673       , p6_a84
11674       , p6_a85
11675       , p6_a86
11676       , p6_a87
11677       , p6_a88
11678       , p6_a89
11679       , p6_a90
11680       , p6_a91
11681       , p6_a92
11682       , p6_a93
11683       , p6_a94
11684       , p6_a95
11685       , p6_a96
11686       , p6_a97
11687       , p6_a98
11688       );
11689 
11690     -- here's the delegated call to the old PL/SQL routine
11691     okl_contract_pvt.delete_contract_line(p_api_version,
11692       p_init_msg_list,
11693       x_return_status,
11694       x_msg_count,
11695       x_msg_data,
11696       ddp_clev_tbl,
11697       ddp_klev_tbl);
11698 
11699     -- copy data back from the local variables to OUT or IN-OUT args, if any
11700 
11701 
11702 
11703 
11704 
11705 
11706   end;
11707 
11708   procedure delete_contract_line(p_api_version  NUMBER
11709     , p_init_msg_list  VARCHAR2
11710     , x_return_status out nocopy  VARCHAR2
11711     , x_msg_count out nocopy  NUMBER
11712     , x_msg_data out nocopy  VARCHAR2
11713     , p_delete_cascade_yn  VARCHAR2
11714     , p5_a0  NUMBER := 0-1962.0724
11715     , p5_a1  NUMBER := 0-1962.0724
11716     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
11717     , p5_a3  NUMBER := 0-1962.0724
11718     , p5_a4  NUMBER := 0-1962.0724
11719     , p5_a5  NUMBER := 0-1962.0724
11720     , p5_a6  NUMBER := 0-1962.0724
11721     , p5_a7  NUMBER := 0-1962.0724
11722     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
11723     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
11724     , p5_a10  NUMBER := 0-1962.0724
11725     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
11726     , p5_a12  NUMBER := 0-1962.0724
11727     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
11728     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
11729     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
11730     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
11731     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
11732     , p5_a18  NUMBER := 0-1962.0724
11733     , p5_a19  NUMBER := 0-1962.0724
11734     , p5_a20  NUMBER := 0-1962.0724
11735     , p5_a21  NUMBER := 0-1962.0724
11736     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
11737     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
11738     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
11739     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
11740     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
11741     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
11742     , p5_a28  DATE := fnd_api.g_miss_date
11743     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
11744     , p5_a30  DATE := fnd_api.g_miss_date
11745     , p5_a31  DATE := fnd_api.g_miss_date
11746     , p5_a32  DATE := fnd_api.g_miss_date
11747     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
11748     , p5_a34  NUMBER := 0-1962.0724
11749     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
11750     , p5_a36  NUMBER := 0-1962.0724
11751     , p5_a37  VARCHAR2 := fnd_api.g_miss_char
11752     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
11753     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
11754     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
11755     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
11756     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
11757     , p5_a43  VARCHAR2 := fnd_api.g_miss_char
11758     , p5_a44  VARCHAR2 := fnd_api.g_miss_char
11759     , p5_a45  VARCHAR2 := fnd_api.g_miss_char
11760     , p5_a46  VARCHAR2 := fnd_api.g_miss_char
11761     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
11762     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
11763     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
11764     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
11765     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
11766     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
11767     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
11768     , p5_a54  NUMBER := 0-1962.0724
11769     , p5_a55  DATE := fnd_api.g_miss_date
11770     , p5_a56  NUMBER := 0-1962.0724
11771     , p5_a57  DATE := fnd_api.g_miss_date
11772     , p5_a58  VARCHAR2 := fnd_api.g_miss_char
11773     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
11774     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
11775     , p5_a61  NUMBER := 0-1962.0724
11776     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
11777     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
11778     , p5_a64  VARCHAR2 := fnd_api.g_miss_char
11779     , p5_a65  VARCHAR2 := fnd_api.g_miss_char
11780     , p5_a66  VARCHAR2 := fnd_api.g_miss_char
11781     , p5_a67  NUMBER := 0-1962.0724
11782     , p5_a68  NUMBER := 0-1962.0724
11783     , p5_a69  NUMBER := 0-1962.0724
11784     , p5_a70  DATE := fnd_api.g_miss_date
11785     , p5_a71  NUMBER := 0-1962.0724
11786     , p5_a72  DATE := fnd_api.g_miss_date
11787     , p5_a73  NUMBER := 0-1962.0724
11788     , p5_a74  NUMBER := 0-1962.0724
11789     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
11790     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
11791     , p5_a77  NUMBER := 0-1962.0724
11792     , p5_a78  NUMBER := 0-1962.0724
11793     , p5_a79  VARCHAR2 := fnd_api.g_miss_char
11794     , p5_a80  VARCHAR2 := fnd_api.g_miss_char
11795     , p5_a81  NUMBER := 0-1962.0724
11796     , p5_a82  VARCHAR2 := fnd_api.g_miss_char
11797     , p5_a83  NUMBER := 0-1962.0724
11798     , p5_a84  NUMBER := 0-1962.0724
11799     , p5_a85  NUMBER := 0-1962.0724
11800     , p5_a86  NUMBER := 0-1962.0724
11801     , p5_a87  VARCHAR2 := fnd_api.g_miss_char
11802     , p5_a88  NUMBER := 0-1962.0724
11803     , p5_a89  NUMBER := 0-1962.0724
11804     , p6_a0  NUMBER := 0-1962.0724
11805     , p6_a1  NUMBER := 0-1962.0724
11806     , p6_a2  NUMBER := 0-1962.0724
11807     , p6_a3  NUMBER := 0-1962.0724
11808     , p6_a4  VARCHAR2 := fnd_api.g_miss_char
11809     , p6_a5  VARCHAR2 := fnd_api.g_miss_char
11810     , p6_a6  VARCHAR2 := fnd_api.g_miss_char
11811     , p6_a7  NUMBER := 0-1962.0724
11812     , p6_a8  NUMBER := 0-1962.0724
11813     , p6_a9  DATE := fnd_api.g_miss_date
11814     , p6_a10  NUMBER := 0-1962.0724
11815     , p6_a11  NUMBER := 0-1962.0724
11816     , p6_a12  NUMBER := 0-1962.0724
11817     , p6_a13  NUMBER := 0-1962.0724
11818     , p6_a14  NUMBER := 0-1962.0724
11819     , p6_a15  NUMBER := 0-1962.0724
11820     , p6_a16  NUMBER := 0-1962.0724
11821     , p6_a17  NUMBER := 0-1962.0724
11822     , p6_a18  NUMBER := 0-1962.0724
11823     , p6_a19  NUMBER := 0-1962.0724
11824     , p6_a20  DATE := fnd_api.g_miss_date
11825     , p6_a21  DATE := fnd_api.g_miss_date
11826     , p6_a22  NUMBER := 0-1962.0724
11827     , p6_a23  NUMBER := 0-1962.0724
11828     , p6_a24  DATE := fnd_api.g_miss_date
11829     , p6_a25  DATE := fnd_api.g_miss_date
11830     , p6_a26  DATE := fnd_api.g_miss_date
11831     , p6_a27  NUMBER := 0-1962.0724
11832     , p6_a28  NUMBER := 0-1962.0724
11833     , p6_a29  NUMBER := 0-1962.0724
11834     , p6_a30  NUMBER := 0-1962.0724
11835     , p6_a31  NUMBER := 0-1962.0724
11836     , p6_a32  NUMBER := 0-1962.0724
11837     , p6_a33  NUMBER := 0-1962.0724
11838     , p6_a34  DATE := fnd_api.g_miss_date
11839     , p6_a35  VARCHAR2 := fnd_api.g_miss_char
11840     , p6_a36  DATE := fnd_api.g_miss_date
11841     , p6_a37  VARCHAR2 := fnd_api.g_miss_char
11842     , p6_a38  NUMBER := 0-1962.0724
11843     , p6_a39  NUMBER := 0-1962.0724
11844     , p6_a40  NUMBER := 0-1962.0724
11845     , p6_a41  VARCHAR2 := fnd_api.g_miss_char
11846     , p6_a42  DATE := fnd_api.g_miss_date
11847     , p6_a43  NUMBER := 0-1962.0724
11848     , p6_a44  NUMBER := 0-1962.0724
11849     , p6_a45  DATE := fnd_api.g_miss_date
11850     , p6_a46  NUMBER := 0-1962.0724
11851     , p6_a47  DATE := fnd_api.g_miss_date
11852     , p6_a48  DATE := fnd_api.g_miss_date
11853     , p6_a49  DATE := fnd_api.g_miss_date
11854     , p6_a50  NUMBER := 0-1962.0724
11855     , p6_a51  NUMBER := 0-1962.0724
11856     , p6_a52  VARCHAR2 := fnd_api.g_miss_char
11857     , p6_a53  NUMBER := 0-1962.0724
11858     , p6_a54  NUMBER := 0-1962.0724
11859     , p6_a55  VARCHAR2 := fnd_api.g_miss_char
11860     , p6_a56  VARCHAR2 := fnd_api.g_miss_char
11861     , p6_a57  NUMBER := 0-1962.0724
11862     , p6_a58  DATE := fnd_api.g_miss_date
11863     , p6_a59  NUMBER := 0-1962.0724
11864     , p6_a60  VARCHAR2 := fnd_api.g_miss_char
11865     , p6_a61  VARCHAR2 := fnd_api.g_miss_char
11866     , p6_a62  VARCHAR2 := fnd_api.g_miss_char
11867     , p6_a63  VARCHAR2 := fnd_api.g_miss_char
11868     , p6_a64  VARCHAR2 := fnd_api.g_miss_char
11869     , p6_a65  VARCHAR2 := fnd_api.g_miss_char
11870     , p6_a66  VARCHAR2 := fnd_api.g_miss_char
11871     , p6_a67  VARCHAR2 := fnd_api.g_miss_char
11872     , p6_a68  VARCHAR2 := fnd_api.g_miss_char
11873     , p6_a69  VARCHAR2 := fnd_api.g_miss_char
11874     , p6_a70  VARCHAR2 := fnd_api.g_miss_char
11875     , p6_a71  VARCHAR2 := fnd_api.g_miss_char
11876     , p6_a72  VARCHAR2 := fnd_api.g_miss_char
11877     , p6_a73  VARCHAR2 := fnd_api.g_miss_char
11878     , p6_a74  VARCHAR2 := fnd_api.g_miss_char
11879     , p6_a75  VARCHAR2 := fnd_api.g_miss_char
11880     , p6_a76  NUMBER := 0-1962.0724
11881     , p6_a77  NUMBER := 0-1962.0724
11882     , p6_a78  NUMBER := 0-1962.0724
11883     , p6_a79  DATE := fnd_api.g_miss_date
11884     , p6_a80  NUMBER := 0-1962.0724
11885     , p6_a81  DATE := fnd_api.g_miss_date
11886     , p6_a82  NUMBER := 0-1962.0724
11887     , p6_a83  DATE := fnd_api.g_miss_date
11888     , p6_a84  DATE := fnd_api.g_miss_date
11889     , p6_a85  DATE := fnd_api.g_miss_date
11890     , p6_a86  DATE := fnd_api.g_miss_date
11891     , p6_a87  NUMBER := 0-1962.0724
11892     , p6_a88  NUMBER := 0-1962.0724
11893     , p6_a89  NUMBER := 0-1962.0724
11894     , p6_a90  VARCHAR2 := fnd_api.g_miss_char
11895     , p6_a91  NUMBER := 0-1962.0724
11896     , p6_a92  VARCHAR2 := fnd_api.g_miss_char
11897     , p6_a93  NUMBER := 0-1962.0724
11898     , p6_a94  NUMBER := 0-1962.0724
11899     , p6_a95  DATE := fnd_api.g_miss_date
11900     , p6_a96  VARCHAR2 := fnd_api.g_miss_char
11901     , p6_a97  VARCHAR2 := fnd_api.g_miss_char
11902     , p6_a98  NUMBER := 0-1962.0724
11903   )
11904 
11905   as
11906     ddp_clev_rec okl_okc_migration_pvt.clev_rec_type;
11907     ddp_klev_rec okl_contract_pvt.klev_rec_type;
11908     ddindx binary_integer; indx binary_integer;
11909   begin
11910 
11911     -- copy data to the local IN or IN-OUT args, if any
11912 
11913 
11914 
11915 
11916 
11917     ddp_clev_rec.id := rosetta_g_miss_num_map(p5_a0);
11918     ddp_clev_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
11919     ddp_clev_rec.sfwt_flag := p5_a2;
11920     ddp_clev_rec.chr_id := rosetta_g_miss_num_map(p5_a3);
11921     ddp_clev_rec.cle_id := rosetta_g_miss_num_map(p5_a4);
11922     ddp_clev_rec.cle_id_renewed := rosetta_g_miss_num_map(p5_a5);
11923     ddp_clev_rec.cle_id_renewed_to := rosetta_g_miss_num_map(p5_a6);
11924     ddp_clev_rec.lse_id := rosetta_g_miss_num_map(p5_a7);
11925     ddp_clev_rec.line_number := p5_a8;
11926     ddp_clev_rec.sts_code := p5_a9;
11927     ddp_clev_rec.display_sequence := rosetta_g_miss_num_map(p5_a10);
11928     ddp_clev_rec.trn_code := p5_a11;
11929     ddp_clev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a12);
11930     ddp_clev_rec.comments := p5_a13;
11931     ddp_clev_rec.item_description := p5_a14;
11932     ddp_clev_rec.oke_boe_description := p5_a15;
11933     ddp_clev_rec.cognomen := p5_a16;
11934     ddp_clev_rec.hidden_ind := p5_a17;
11935     ddp_clev_rec.price_unit := rosetta_g_miss_num_map(p5_a18);
11936     ddp_clev_rec.price_unit_percent := rosetta_g_miss_num_map(p5_a19);
11937     ddp_clev_rec.price_negotiated := rosetta_g_miss_num_map(p5_a20);
11938     ddp_clev_rec.price_negotiated_renewed := rosetta_g_miss_num_map(p5_a21);
11939     ddp_clev_rec.price_level_ind := p5_a22;
11940     ddp_clev_rec.invoice_line_level_ind := p5_a23;
11941     ddp_clev_rec.dpas_rating := p5_a24;
11942     ddp_clev_rec.block23text := p5_a25;
11943     ddp_clev_rec.exception_yn := p5_a26;
11944     ddp_clev_rec.template_used := p5_a27;
11945     ddp_clev_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a28);
11946     ddp_clev_rec.name := p5_a29;
11947     ddp_clev_rec.start_date := rosetta_g_miss_date_in_map(p5_a30);
11948     ddp_clev_rec.end_date := rosetta_g_miss_date_in_map(p5_a31);
11949     ddp_clev_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a32);
11950     ddp_clev_rec.upg_orig_system_ref := p5_a33;
11951     ddp_clev_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a34);
11952     ddp_clev_rec.orig_system_source_code := p5_a35;
11953     ddp_clev_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a36);
11954     ddp_clev_rec.orig_system_reference1 := p5_a37;
11955     ddp_clev_rec.attribute_category := p5_a38;
11956     ddp_clev_rec.attribute1 := p5_a39;
11957     ddp_clev_rec.attribute2 := p5_a40;
11958     ddp_clev_rec.attribute3 := p5_a41;
11959     ddp_clev_rec.attribute4 := p5_a42;
11960     ddp_clev_rec.attribute5 := p5_a43;
11961     ddp_clev_rec.attribute6 := p5_a44;
11962     ddp_clev_rec.attribute7 := p5_a45;
11963     ddp_clev_rec.attribute8 := p5_a46;
11964     ddp_clev_rec.attribute9 := p5_a47;
11965     ddp_clev_rec.attribute10 := p5_a48;
11966     ddp_clev_rec.attribute11 := p5_a49;
11967     ddp_clev_rec.attribute12 := p5_a50;
11968     ddp_clev_rec.attribute13 := p5_a51;
11969     ddp_clev_rec.attribute14 := p5_a52;
11970     ddp_clev_rec.attribute15 := p5_a53;
11971     ddp_clev_rec.created_by := rosetta_g_miss_num_map(p5_a54);
11972     ddp_clev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a55);
11973     ddp_clev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a56);
11974     ddp_clev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a57);
11975     ddp_clev_rec.price_type := p5_a58;
11976     ddp_clev_rec.currency_code := p5_a59;
11977     ddp_clev_rec.currency_code_renewed := p5_a60;
11978     ddp_clev_rec.last_update_login := rosetta_g_miss_num_map(p5_a61);
11979     ddp_clev_rec.old_sts_code := p5_a62;
11980     ddp_clev_rec.new_sts_code := p5_a63;
11981     ddp_clev_rec.old_ste_code := p5_a64;
11982     ddp_clev_rec.new_ste_code := p5_a65;
11983     ddp_clev_rec.call_action_asmblr := p5_a66;
11984     ddp_clev_rec.request_id := rosetta_g_miss_num_map(p5_a67);
11985     ddp_clev_rec.program_application_id := rosetta_g_miss_num_map(p5_a68);
11986     ddp_clev_rec.program_id := rosetta_g_miss_num_map(p5_a69);
11987     ddp_clev_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a70);
11988     ddp_clev_rec.price_list_id := rosetta_g_miss_num_map(p5_a71);
11989     ddp_clev_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a72);
11990     ddp_clev_rec.price_list_line_id := rosetta_g_miss_num_map(p5_a73);
11991     ddp_clev_rec.line_list_price := rosetta_g_miss_num_map(p5_a74);
11992     ddp_clev_rec.item_to_price_yn := p5_a75;
11993     ddp_clev_rec.price_basis_yn := p5_a76;
11994     ddp_clev_rec.config_header_id := rosetta_g_miss_num_map(p5_a77);
11995     ddp_clev_rec.config_revision_number := rosetta_g_miss_num_map(p5_a78);
11996     ddp_clev_rec.config_complete_yn := p5_a79;
11997     ddp_clev_rec.config_valid_yn := p5_a80;
11998     ddp_clev_rec.config_top_model_line_id := rosetta_g_miss_num_map(p5_a81);
11999     ddp_clev_rec.config_item_type := p5_a82;
12000     ddp_clev_rec.config_item_id := rosetta_g_miss_num_map(p5_a83);
12001     ddp_clev_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a84);
12002     ddp_clev_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a85);
12003     ddp_clev_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a86);
12004     ddp_clev_rec.line_renewal_type_code := p5_a87;
12005     ddp_clev_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a88);
12006     ddp_clev_rec.payment_term_id := rosetta_g_miss_num_map(p5_a89);
12007 
12008     ddp_klev_rec.id := rosetta_g_miss_num_map(p6_a0);
12009     ddp_klev_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
12010     ddp_klev_rec.kle_id := rosetta_g_miss_num_map(p6_a2);
12011     ddp_klev_rec.sty_id := rosetta_g_miss_num_map(p6_a3);
12012     ddp_klev_rec.prc_code := p6_a4;
12013     ddp_klev_rec.fcg_code := p6_a5;
12014     ddp_klev_rec.nty_code := p6_a6;
12015     ddp_klev_rec.estimated_oec := rosetta_g_miss_num_map(p6_a7);
12016     ddp_klev_rec.lao_amount := rosetta_g_miss_num_map(p6_a8);
12017     ddp_klev_rec.title_date := rosetta_g_miss_date_in_map(p6_a9);
12018     ddp_klev_rec.fee_charge := rosetta_g_miss_num_map(p6_a10);
12019     ddp_klev_rec.lrs_percent := rosetta_g_miss_num_map(p6_a11);
12020     ddp_klev_rec.initial_direct_cost := rosetta_g_miss_num_map(p6_a12);
12021     ddp_klev_rec.percent_stake := rosetta_g_miss_num_map(p6_a13);
12022     ddp_klev_rec.percent := rosetta_g_miss_num_map(p6_a14);
12023     ddp_klev_rec.evergreen_percent := rosetta_g_miss_num_map(p6_a15);
12024     ddp_klev_rec.amount_stake := rosetta_g_miss_num_map(p6_a16);
12025     ddp_klev_rec.occupancy := rosetta_g_miss_num_map(p6_a17);
12026     ddp_klev_rec.coverage := rosetta_g_miss_num_map(p6_a18);
12027     ddp_klev_rec.residual_percentage := rosetta_g_miss_num_map(p6_a19);
12028     ddp_klev_rec.date_last_inspection := rosetta_g_miss_date_in_map(p6_a20);
12029     ddp_klev_rec.date_sold := rosetta_g_miss_date_in_map(p6_a21);
12030     ddp_klev_rec.lrv_amount := rosetta_g_miss_num_map(p6_a22);
12031     ddp_klev_rec.capital_reduction := rosetta_g_miss_num_map(p6_a23);
12032     ddp_klev_rec.date_next_inspection_due := rosetta_g_miss_date_in_map(p6_a24);
12033     ddp_klev_rec.date_residual_last_review := rosetta_g_miss_date_in_map(p6_a25);
12034     ddp_klev_rec.date_last_reamortisation := rosetta_g_miss_date_in_map(p6_a26);
12035     ddp_klev_rec.vendor_advance_paid := rosetta_g_miss_num_map(p6_a27);
12036     ddp_klev_rec.weighted_average_life := rosetta_g_miss_num_map(p6_a28);
12037     ddp_klev_rec.tradein_amount := rosetta_g_miss_num_map(p6_a29);
12038     ddp_klev_rec.bond_equivalent_yield := rosetta_g_miss_num_map(p6_a30);
12039     ddp_klev_rec.termination_purchase_amount := rosetta_g_miss_num_map(p6_a31);
12040     ddp_klev_rec.refinance_amount := rosetta_g_miss_num_map(p6_a32);
12041     ddp_klev_rec.year_built := rosetta_g_miss_num_map(p6_a33);
12042     ddp_klev_rec.delivered_date := rosetta_g_miss_date_in_map(p6_a34);
12043     ddp_klev_rec.credit_tenant_yn := p6_a35;
12044     ddp_klev_rec.date_last_cleanup := rosetta_g_miss_date_in_map(p6_a36);
12045     ddp_klev_rec.year_of_manufacture := p6_a37;
12046     ddp_klev_rec.coverage_ratio := rosetta_g_miss_num_map(p6_a38);
12047     ddp_klev_rec.remarketed_amount := rosetta_g_miss_num_map(p6_a39);
12048     ddp_klev_rec.gross_square_footage := rosetta_g_miss_num_map(p6_a40);
12049     ddp_klev_rec.prescribed_asset_yn := p6_a41;
12050     ddp_klev_rec.date_remarketed := rosetta_g_miss_date_in_map(p6_a42);
12051     ddp_klev_rec.net_rentable := rosetta_g_miss_num_map(p6_a43);
12052     ddp_klev_rec.remarket_margin := rosetta_g_miss_num_map(p6_a44);
12053     ddp_klev_rec.date_letter_acceptance := rosetta_g_miss_date_in_map(p6_a45);
12054     ddp_klev_rec.repurchased_amount := rosetta_g_miss_num_map(p6_a46);
12055     ddp_klev_rec.date_commitment_expiration := rosetta_g_miss_date_in_map(p6_a47);
12056     ddp_klev_rec.date_repurchased := rosetta_g_miss_date_in_map(p6_a48);
12057     ddp_klev_rec.date_appraisal := rosetta_g_miss_date_in_map(p6_a49);
12058     ddp_klev_rec.residual_value := rosetta_g_miss_num_map(p6_a50);
12059     ddp_klev_rec.appraisal_value := rosetta_g_miss_num_map(p6_a51);
12060     ddp_klev_rec.secured_deal_yn := p6_a52;
12061     ddp_klev_rec.gain_loss := rosetta_g_miss_num_map(p6_a53);
12062     ddp_klev_rec.floor_amount := rosetta_g_miss_num_map(p6_a54);
12063     ddp_klev_rec.re_lease_yn := p6_a55;
12064     ddp_klev_rec.previous_contract := p6_a56;
12065     ddp_klev_rec.tracked_residual := rosetta_g_miss_num_map(p6_a57);
12066     ddp_klev_rec.date_title_received := rosetta_g_miss_date_in_map(p6_a58);
12067     ddp_klev_rec.amount := rosetta_g_miss_num_map(p6_a59);
12068     ddp_klev_rec.attribute_category := p6_a60;
12069     ddp_klev_rec.attribute1 := p6_a61;
12070     ddp_klev_rec.attribute2 := p6_a62;
12071     ddp_klev_rec.attribute3 := p6_a63;
12072     ddp_klev_rec.attribute4 := p6_a64;
12073     ddp_klev_rec.attribute5 := p6_a65;
12074     ddp_klev_rec.attribute6 := p6_a66;
12075     ddp_klev_rec.attribute7 := p6_a67;
12076     ddp_klev_rec.attribute8 := p6_a68;
12077     ddp_klev_rec.attribute9 := p6_a69;
12078     ddp_klev_rec.attribute10 := p6_a70;
12079     ddp_klev_rec.attribute11 := p6_a71;
12080     ddp_klev_rec.attribute12 := p6_a72;
12081     ddp_klev_rec.attribute13 := p6_a73;
12082     ddp_klev_rec.attribute14 := p6_a74;
12083     ddp_klev_rec.attribute15 := p6_a75;
12084     ddp_klev_rec.sty_id_for := rosetta_g_miss_num_map(p6_a76);
12085     ddp_klev_rec.clg_id := rosetta_g_miss_num_map(p6_a77);
12086     ddp_klev_rec.created_by := rosetta_g_miss_num_map(p6_a78);
12087     ddp_klev_rec.creation_date := rosetta_g_miss_date_in_map(p6_a79);
12088     ddp_klev_rec.last_updated_by := rosetta_g_miss_num_map(p6_a80);
12089     ddp_klev_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a81);
12090     ddp_klev_rec.last_update_login := rosetta_g_miss_num_map(p6_a82);
12091     ddp_klev_rec.date_funding := rosetta_g_miss_date_in_map(p6_a83);
12092     ddp_klev_rec.date_funding_required := rosetta_g_miss_date_in_map(p6_a84);
12093     ddp_klev_rec.date_accepted := rosetta_g_miss_date_in_map(p6_a85);
12094     ddp_klev_rec.date_delivery_expected := rosetta_g_miss_date_in_map(p6_a86);
12095     ddp_klev_rec.oec := rosetta_g_miss_num_map(p6_a87);
12096     ddp_klev_rec.capital_amount := rosetta_g_miss_num_map(p6_a88);
12097     ddp_klev_rec.residual_grnty_amount := rosetta_g_miss_num_map(p6_a89);
12098     ddp_klev_rec.residual_code := p6_a90;
12099     ddp_klev_rec.rvi_premium := rosetta_g_miss_num_map(p6_a91);
12100     ddp_klev_rec.credit_nature := p6_a92;
12101     ddp_klev_rec.capitalized_interest := rosetta_g_miss_num_map(p6_a93);
12102     ddp_klev_rec.capital_reduction_percent := rosetta_g_miss_num_map(p6_a94);
12103     ddp_klev_rec.date_pay_investor_start := rosetta_g_miss_date_in_map(p6_a95);
12104     ddp_klev_rec.pay_investor_frequency := p6_a96;
12105     ddp_klev_rec.pay_investor_event := p6_a97;
12106     ddp_klev_rec.pay_investor_remittance_days := rosetta_g_miss_num_map(p6_a98);
12107 
12108 
12109     -- here's the delegated call to the old PL/SQL routine
12110     okl_contract_pvt.delete_contract_line(p_api_version,
12111       p_init_msg_list,
12112       x_return_status,
12113       x_msg_count,
12114       x_msg_data,
12115       ddp_clev_rec,
12116       ddp_klev_rec,
12117       p_delete_cascade_yn);
12118 
12119     -- copy data back from the local variables to OUT or IN-OUT args, if any
12120 
12121 
12122 
12123 
12124 
12125 
12126 
12127   end;
12128 
12129   procedure delete_contract_line(p_api_version  NUMBER
12130     , p_init_msg_list  VARCHAR2
12131     , x_return_status out nocopy  VARCHAR2
12132     , x_msg_count out nocopy  NUMBER
12133     , x_msg_data out nocopy  VARCHAR2
12134     , p5_a0 JTF_NUMBER_TABLE
12135     , p5_a1 JTF_NUMBER_TABLE
12136     , p5_a2 JTF_VARCHAR2_TABLE_100
12137     , p5_a3 JTF_NUMBER_TABLE
12138     , p5_a4 JTF_NUMBER_TABLE
12139     , p5_a5 JTF_NUMBER_TABLE
12140     , p5_a6 JTF_NUMBER_TABLE
12141     , p5_a7 JTF_NUMBER_TABLE
12142     , p5_a8 JTF_VARCHAR2_TABLE_200
12143     , p5_a9 JTF_VARCHAR2_TABLE_100
12144     , p5_a10 JTF_NUMBER_TABLE
12145     , p5_a11 JTF_VARCHAR2_TABLE_100
12146     , p5_a12 JTF_NUMBER_TABLE
12147     , p5_a13 JTF_VARCHAR2_TABLE_2000
12148     , p5_a14 JTF_VARCHAR2_TABLE_2000
12149     , p5_a15 JTF_VARCHAR2_TABLE_2000
12150     , p5_a16 JTF_VARCHAR2_TABLE_300
12151     , p5_a17 JTF_VARCHAR2_TABLE_100
12152     , p5_a18 JTF_NUMBER_TABLE
12153     , p5_a19 JTF_NUMBER_TABLE
12154     , p5_a20 JTF_NUMBER_TABLE
12155     , p5_a21 JTF_NUMBER_TABLE
12156     , p5_a22 JTF_VARCHAR2_TABLE_100
12157     , p5_a23 JTF_VARCHAR2_TABLE_100
12158     , p5_a24 JTF_VARCHAR2_TABLE_100
12159     , p5_a25 JTF_VARCHAR2_TABLE_2000
12160     , p5_a26 JTF_VARCHAR2_TABLE_100
12161     , p5_a27 JTF_VARCHAR2_TABLE_200
12162     , p5_a28 JTF_DATE_TABLE
12163     , p5_a29 JTF_VARCHAR2_TABLE_200
12164     , p5_a30 JTF_DATE_TABLE
12165     , p5_a31 JTF_DATE_TABLE
12166     , p5_a32 JTF_DATE_TABLE
12167     , p5_a33 JTF_VARCHAR2_TABLE_100
12168     , p5_a34 JTF_NUMBER_TABLE
12169     , p5_a35 JTF_VARCHAR2_TABLE_100
12170     , p5_a36 JTF_NUMBER_TABLE
12171     , p5_a37 JTF_VARCHAR2_TABLE_100
12172     , p5_a38 JTF_VARCHAR2_TABLE_100
12173     , p5_a39 JTF_VARCHAR2_TABLE_500
12174     , p5_a40 JTF_VARCHAR2_TABLE_500
12175     , p5_a41 JTF_VARCHAR2_TABLE_500
12176     , p5_a42 JTF_VARCHAR2_TABLE_500
12177     , p5_a43 JTF_VARCHAR2_TABLE_500
12178     , p5_a44 JTF_VARCHAR2_TABLE_500
12179     , p5_a45 JTF_VARCHAR2_TABLE_500
12180     , p5_a46 JTF_VARCHAR2_TABLE_500
12181     , p5_a47 JTF_VARCHAR2_TABLE_500
12182     , p5_a48 JTF_VARCHAR2_TABLE_500
12183     , p5_a49 JTF_VARCHAR2_TABLE_500
12184     , p5_a50 JTF_VARCHAR2_TABLE_500
12185     , p5_a51 JTF_VARCHAR2_TABLE_500
12186     , p5_a52 JTF_VARCHAR2_TABLE_500
12187     , p5_a53 JTF_VARCHAR2_TABLE_500
12188     , p5_a54 JTF_NUMBER_TABLE
12189     , p5_a55 JTF_DATE_TABLE
12190     , p5_a56 JTF_NUMBER_TABLE
12191     , p5_a57 JTF_DATE_TABLE
12192     , p5_a58 JTF_VARCHAR2_TABLE_100
12193     , p5_a59 JTF_VARCHAR2_TABLE_100
12194     , p5_a60 JTF_VARCHAR2_TABLE_100
12195     , p5_a61 JTF_NUMBER_TABLE
12196     , p5_a62 JTF_VARCHAR2_TABLE_100
12197     , p5_a63 JTF_VARCHAR2_TABLE_100
12198     , p5_a64 JTF_VARCHAR2_TABLE_100
12199     , p5_a65 JTF_VARCHAR2_TABLE_100
12200     , p5_a66 JTF_VARCHAR2_TABLE_100
12201     , p5_a67 JTF_NUMBER_TABLE
12202     , p5_a68 JTF_NUMBER_TABLE
12203     , p5_a69 JTF_NUMBER_TABLE
12204     , p5_a70 JTF_DATE_TABLE
12205     , p5_a71 JTF_NUMBER_TABLE
12206     , p5_a72 JTF_DATE_TABLE
12207     , p5_a73 JTF_NUMBER_TABLE
12208     , p5_a74 JTF_NUMBER_TABLE
12209     , p5_a75 JTF_VARCHAR2_TABLE_100
12210     , p5_a76 JTF_VARCHAR2_TABLE_100
12211     , p5_a77 JTF_NUMBER_TABLE
12212     , p5_a78 JTF_NUMBER_TABLE
12213     , p5_a79 JTF_VARCHAR2_TABLE_100
12214     , p5_a80 JTF_VARCHAR2_TABLE_100
12215     , p5_a81 JTF_NUMBER_TABLE
12216     , p5_a82 JTF_VARCHAR2_TABLE_100
12217     , p5_a83 JTF_NUMBER_TABLE
12218     , p5_a84 JTF_NUMBER_TABLE
12219     , p5_a85 JTF_NUMBER_TABLE
12220     , p5_a86 JTF_NUMBER_TABLE
12221     , p5_a87 JTF_VARCHAR2_TABLE_100
12222     , p5_a88 JTF_NUMBER_TABLE
12223     , p5_a89 JTF_NUMBER_TABLE
12224     , p6_a0 JTF_NUMBER_TABLE
12225     , p6_a1 JTF_NUMBER_TABLE
12226     , p6_a2 JTF_NUMBER_TABLE
12227     , p6_a3 JTF_NUMBER_TABLE
12228     , p6_a4 JTF_VARCHAR2_TABLE_100
12229     , p6_a5 JTF_VARCHAR2_TABLE_100
12230     , p6_a6 JTF_VARCHAR2_TABLE_100
12231     , p6_a7 JTF_NUMBER_TABLE
12232     , p6_a8 JTF_NUMBER_TABLE
12233     , p6_a9 JTF_DATE_TABLE
12234     , p6_a10 JTF_NUMBER_TABLE
12235     , p6_a11 JTF_NUMBER_TABLE
12236     , p6_a12 JTF_NUMBER_TABLE
12237     , p6_a13 JTF_NUMBER_TABLE
12238     , p6_a14 JTF_NUMBER_TABLE
12239     , p6_a15 JTF_NUMBER_TABLE
12240     , p6_a16 JTF_NUMBER_TABLE
12241     , p6_a17 JTF_NUMBER_TABLE
12242     , p6_a18 JTF_NUMBER_TABLE
12243     , p6_a19 JTF_NUMBER_TABLE
12244     , p6_a20 JTF_DATE_TABLE
12245     , p6_a21 JTF_DATE_TABLE
12246     , p6_a22 JTF_NUMBER_TABLE
12247     , p6_a23 JTF_NUMBER_TABLE
12248     , p6_a24 JTF_DATE_TABLE
12249     , p6_a25 JTF_DATE_TABLE
12250     , p6_a26 JTF_DATE_TABLE
12251     , p6_a27 JTF_NUMBER_TABLE
12252     , p6_a28 JTF_NUMBER_TABLE
12253     , p6_a29 JTF_NUMBER_TABLE
12254     , p6_a30 JTF_NUMBER_TABLE
12255     , p6_a31 JTF_NUMBER_TABLE
12256     , p6_a32 JTF_NUMBER_TABLE
12257     , p6_a33 JTF_NUMBER_TABLE
12258     , p6_a34 JTF_DATE_TABLE
12259     , p6_a35 JTF_VARCHAR2_TABLE_100
12260     , p6_a36 JTF_DATE_TABLE
12261     , p6_a37 JTF_VARCHAR2_TABLE_300
12262     , p6_a38 JTF_NUMBER_TABLE
12263     , p6_a39 JTF_NUMBER_TABLE
12264     , p6_a40 JTF_NUMBER_TABLE
12265     , p6_a41 JTF_VARCHAR2_TABLE_100
12266     , p6_a42 JTF_DATE_TABLE
12267     , p6_a43 JTF_NUMBER_TABLE
12268     , p6_a44 JTF_NUMBER_TABLE
12269     , p6_a45 JTF_DATE_TABLE
12270     , p6_a46 JTF_NUMBER_TABLE
12271     , p6_a47 JTF_DATE_TABLE
12272     , p6_a48 JTF_DATE_TABLE
12273     , p6_a49 JTF_DATE_TABLE
12274     , p6_a50 JTF_NUMBER_TABLE
12275     , p6_a51 JTF_NUMBER_TABLE
12276     , p6_a52 JTF_VARCHAR2_TABLE_100
12277     , p6_a53 JTF_NUMBER_TABLE
12278     , p6_a54 JTF_NUMBER_TABLE
12279     , p6_a55 JTF_VARCHAR2_TABLE_100
12280     , p6_a56 JTF_VARCHAR2_TABLE_100
12281     , p6_a57 JTF_NUMBER_TABLE
12282     , p6_a58 JTF_DATE_TABLE
12283     , p6_a59 JTF_NUMBER_TABLE
12284     , p6_a60 JTF_VARCHAR2_TABLE_100
12285     , p6_a61 JTF_VARCHAR2_TABLE_500
12286     , p6_a62 JTF_VARCHAR2_TABLE_500
12287     , p6_a63 JTF_VARCHAR2_TABLE_500
12288     , p6_a64 JTF_VARCHAR2_TABLE_500
12289     , p6_a65 JTF_VARCHAR2_TABLE_500
12290     , p6_a66 JTF_VARCHAR2_TABLE_500
12291     , p6_a67 JTF_VARCHAR2_TABLE_500
12292     , p6_a68 JTF_VARCHAR2_TABLE_500
12293     , p6_a69 JTF_VARCHAR2_TABLE_500
12294     , p6_a70 JTF_VARCHAR2_TABLE_500
12295     , p6_a71 JTF_VARCHAR2_TABLE_500
12296     , p6_a72 JTF_VARCHAR2_TABLE_500
12297     , p6_a73 JTF_VARCHAR2_TABLE_500
12298     , p6_a74 JTF_VARCHAR2_TABLE_500
12299     , p6_a75 JTF_VARCHAR2_TABLE_500
12300     , p6_a76 JTF_NUMBER_TABLE
12301     , p6_a77 JTF_NUMBER_TABLE
12302     , p6_a78 JTF_NUMBER_TABLE
12303     , p6_a79 JTF_DATE_TABLE
12304     , p6_a80 JTF_NUMBER_TABLE
12305     , p6_a81 JTF_DATE_TABLE
12306     , p6_a82 JTF_NUMBER_TABLE
12307     , p6_a83 JTF_DATE_TABLE
12308     , p6_a84 JTF_DATE_TABLE
12309     , p6_a85 JTF_DATE_TABLE
12310     , p6_a86 JTF_DATE_TABLE
12311     , p6_a87 JTF_NUMBER_TABLE
12312     , p6_a88 JTF_NUMBER_TABLE
12313     , p6_a89 JTF_NUMBER_TABLE
12314     , p6_a90 JTF_VARCHAR2_TABLE_100
12315     , p6_a91 JTF_NUMBER_TABLE
12316     , p6_a92 JTF_VARCHAR2_TABLE_100
12317     , p6_a93 JTF_NUMBER_TABLE
12318     , p6_a94 JTF_NUMBER_TABLE
12319     , p6_a95 JTF_DATE_TABLE
12320     , p6_a96 JTF_VARCHAR2_TABLE_100
12321     , p6_a97 JTF_VARCHAR2_TABLE_100
12322     , p6_a98 JTF_NUMBER_TABLE
12323     , p_delete_cascade_yn  VARCHAR2
12324   )
12325 
12326   as
12327     ddp_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
12328     ddp_klev_tbl okl_contract_pvt.klev_tbl_type;
12329     ddindx binary_integer; indx binary_integer;
12330   begin
12331 
12332     -- copy data to the local IN or IN-OUT args, if any
12333 
12334 
12335 
12336 
12337 
12338     okl_okc_migration_pvt_w.rosetta_table_copy_in_p5(ddp_clev_tbl, p5_a0
12339       , p5_a1
12340       , p5_a2
12341       , p5_a3
12342       , p5_a4
12343       , p5_a5
12344       , p5_a6
12345       , p5_a7
12346       , p5_a8
12347       , p5_a9
12348       , p5_a10
12349       , p5_a11
12350       , p5_a12
12351       , p5_a13
12352       , p5_a14
12353       , p5_a15
12354       , p5_a16
12355       , p5_a17
12356       , p5_a18
12357       , p5_a19
12358       , p5_a20
12359       , p5_a21
12360       , p5_a22
12361       , p5_a23
12362       , p5_a24
12363       , p5_a25
12364       , p5_a26
12365       , p5_a27
12366       , p5_a28
12367       , p5_a29
12368       , p5_a30
12369       , p5_a31
12370       , p5_a32
12371       , p5_a33
12372       , p5_a34
12373       , p5_a35
12374       , p5_a36
12375       , p5_a37
12376       , p5_a38
12377       , p5_a39
12378       , p5_a40
12379       , p5_a41
12380       , p5_a42
12381       , p5_a43
12382       , p5_a44
12383       , p5_a45
12384       , p5_a46
12385       , p5_a47
12386       , p5_a48
12387       , p5_a49
12388       , p5_a50
12389       , p5_a51
12390       , p5_a52
12391       , p5_a53
12392       , p5_a54
12393       , p5_a55
12394       , p5_a56
12395       , p5_a57
12396       , p5_a58
12397       , p5_a59
12398       , p5_a60
12399       , p5_a61
12400       , p5_a62
12401       , p5_a63
12402       , p5_a64
12403       , p5_a65
12404       , p5_a66
12405       , p5_a67
12406       , p5_a68
12407       , p5_a69
12408       , p5_a70
12409       , p5_a71
12410       , p5_a72
12411       , p5_a73
12412       , p5_a74
12413       , p5_a75
12414       , p5_a76
12415       , p5_a77
12416       , p5_a78
12417       , p5_a79
12418       , p5_a80
12419       , p5_a81
12420       , p5_a82
12421       , p5_a83
12422       , p5_a84
12423       , p5_a85
12424       , p5_a86
12425       , p5_a87
12426       , p5_a88
12427       , p5_a89
12428       );
12429 
12430     okl_kle_pvt_w.rosetta_table_copy_in_p8(ddp_klev_tbl, p6_a0
12431       , p6_a1
12432       , p6_a2
12433       , p6_a3
12434       , p6_a4
12435       , p6_a5
12436       , p6_a6
12437       , p6_a7
12438       , p6_a8
12439       , p6_a9
12440       , p6_a10
12441       , p6_a11
12442       , p6_a12
12443       , p6_a13
12444       , p6_a14
12445       , p6_a15
12446       , p6_a16
12447       , p6_a17
12448       , p6_a18
12449       , p6_a19
12450       , p6_a20
12451       , p6_a21
12452       , p6_a22
12453       , p6_a23
12454       , p6_a24
12455       , p6_a25
12456       , p6_a26
12457       , p6_a27
12458       , p6_a28
12459       , p6_a29
12460       , p6_a30
12461       , p6_a31
12462       , p6_a32
12463       , p6_a33
12464       , p6_a34
12465       , p6_a35
12466       , p6_a36
12467       , p6_a37
12468       , p6_a38
12469       , p6_a39
12470       , p6_a40
12471       , p6_a41
12472       , p6_a42
12473       , p6_a43
12474       , p6_a44
12475       , p6_a45
12476       , p6_a46
12477       , p6_a47
12478       , p6_a48
12479       , p6_a49
12480       , p6_a50
12481       , p6_a51
12482       , p6_a52
12483       , p6_a53
12484       , p6_a54
12485       , p6_a55
12486       , p6_a56
12487       , p6_a57
12488       , p6_a58
12489       , p6_a59
12490       , p6_a60
12491       , p6_a61
12492       , p6_a62
12493       , p6_a63
12494       , p6_a64
12495       , p6_a65
12496       , p6_a66
12497       , p6_a67
12498       , p6_a68
12499       , p6_a69
12500       , p6_a70
12501       , p6_a71
12502       , p6_a72
12503       , p6_a73
12504       , p6_a74
12505       , p6_a75
12506       , p6_a76
12507       , p6_a77
12508       , p6_a78
12509       , p6_a79
12510       , p6_a80
12511       , p6_a81
12512       , p6_a82
12513       , p6_a83
12514       , p6_a84
12515       , p6_a85
12516       , p6_a86
12517       , p6_a87
12518       , p6_a88
12519       , p6_a89
12520       , p6_a90
12521       , p6_a91
12522       , p6_a92
12523       , p6_a93
12524       , p6_a94
12525       , p6_a95
12526       , p6_a96
12527       , p6_a97
12528       , p6_a98
12529       );
12530 
12531 
12532     -- here's the delegated call to the old PL/SQL routine
12533     okl_contract_pvt.delete_contract_line(p_api_version,
12534       p_init_msg_list,
12535       x_return_status,
12536       x_msg_count,
12537       x_msg_data,
12538       ddp_clev_tbl,
12539       ddp_klev_tbl,
12540       p_delete_cascade_yn);
12541 
12542     -- copy data back from the local variables to OUT or IN-OUT args, if any
12543 
12544 
12545 
12546 
12547 
12548 
12549 
12550   end;
12551 
12552   procedure lock_contract_line(p_api_version  NUMBER
12553     , p_init_msg_list  VARCHAR2
12554     , x_return_status out nocopy  VARCHAR2
12555     , x_msg_count out nocopy  NUMBER
12556     , x_msg_data out nocopy  VARCHAR2
12557     , p5_a0  NUMBER := 0-1962.0724
12558     , p5_a1  NUMBER := 0-1962.0724
12559     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
12560     , p5_a3  NUMBER := 0-1962.0724
12561     , p5_a4  NUMBER := 0-1962.0724
12562     , p5_a5  NUMBER := 0-1962.0724
12563     , p5_a6  NUMBER := 0-1962.0724
12564     , p5_a7  NUMBER := 0-1962.0724
12565     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
12566     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
12567     , p5_a10  NUMBER := 0-1962.0724
12568     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
12569     , p5_a12  NUMBER := 0-1962.0724
12570     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
12571     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
12572     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
12573     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
12574     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
12575     , p5_a18  NUMBER := 0-1962.0724
12576     , p5_a19  NUMBER := 0-1962.0724
12577     , p5_a20  NUMBER := 0-1962.0724
12578     , p5_a21  NUMBER := 0-1962.0724
12579     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
12580     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
12581     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
12582     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
12583     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
12584     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
12585     , p5_a28  DATE := fnd_api.g_miss_date
12586     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
12587     , p5_a30  DATE := fnd_api.g_miss_date
12588     , p5_a31  DATE := fnd_api.g_miss_date
12589     , p5_a32  DATE := fnd_api.g_miss_date
12590     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
12591     , p5_a34  NUMBER := 0-1962.0724
12592     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
12593     , p5_a36  NUMBER := 0-1962.0724
12594     , p5_a37  VARCHAR2 := fnd_api.g_miss_char
12595     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
12596     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
12597     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
12598     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
12599     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
12600     , p5_a43  VARCHAR2 := fnd_api.g_miss_char
12601     , p5_a44  VARCHAR2 := fnd_api.g_miss_char
12602     , p5_a45  VARCHAR2 := fnd_api.g_miss_char
12603     , p5_a46  VARCHAR2 := fnd_api.g_miss_char
12604     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
12605     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
12606     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
12607     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
12608     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
12609     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
12610     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
12611     , p5_a54  NUMBER := 0-1962.0724
12612     , p5_a55  DATE := fnd_api.g_miss_date
12613     , p5_a56  NUMBER := 0-1962.0724
12614     , p5_a57  DATE := fnd_api.g_miss_date
12615     , p5_a58  VARCHAR2 := fnd_api.g_miss_char
12616     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
12617     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
12618     , p5_a61  NUMBER := 0-1962.0724
12619     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
12620     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
12621     , p5_a64  VARCHAR2 := fnd_api.g_miss_char
12622     , p5_a65  VARCHAR2 := fnd_api.g_miss_char
12623     , p5_a66  VARCHAR2 := fnd_api.g_miss_char
12624     , p5_a67  NUMBER := 0-1962.0724
12625     , p5_a68  NUMBER := 0-1962.0724
12626     , p5_a69  NUMBER := 0-1962.0724
12627     , p5_a70  DATE := fnd_api.g_miss_date
12628     , p5_a71  NUMBER := 0-1962.0724
12629     , p5_a72  DATE := fnd_api.g_miss_date
12630     , p5_a73  NUMBER := 0-1962.0724
12631     , p5_a74  NUMBER := 0-1962.0724
12632     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
12633     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
12634     , p5_a77  NUMBER := 0-1962.0724
12635     , p5_a78  NUMBER := 0-1962.0724
12636     , p5_a79  VARCHAR2 := fnd_api.g_miss_char
12637     , p5_a80  VARCHAR2 := fnd_api.g_miss_char
12638     , p5_a81  NUMBER := 0-1962.0724
12639     , p5_a82  VARCHAR2 := fnd_api.g_miss_char
12640     , p5_a83  NUMBER := 0-1962.0724
12641     , p5_a84  NUMBER := 0-1962.0724
12642     , p5_a85  NUMBER := 0-1962.0724
12643     , p5_a86  NUMBER := 0-1962.0724
12644     , p5_a87  VARCHAR2 := fnd_api.g_miss_char
12645     , p5_a88  NUMBER := 0-1962.0724
12646     , p5_a89  NUMBER := 0-1962.0724
12647     , p6_a0  NUMBER := 0-1962.0724
12648     , p6_a1  NUMBER := 0-1962.0724
12649     , p6_a2  NUMBER := 0-1962.0724
12650     , p6_a3  NUMBER := 0-1962.0724
12651     , p6_a4  VARCHAR2 := fnd_api.g_miss_char
12652     , p6_a5  VARCHAR2 := fnd_api.g_miss_char
12653     , p6_a6  VARCHAR2 := fnd_api.g_miss_char
12654     , p6_a7  NUMBER := 0-1962.0724
12655     , p6_a8  NUMBER := 0-1962.0724
12656     , p6_a9  DATE := fnd_api.g_miss_date
12657     , p6_a10  NUMBER := 0-1962.0724
12658     , p6_a11  NUMBER := 0-1962.0724
12659     , p6_a12  NUMBER := 0-1962.0724
12660     , p6_a13  NUMBER := 0-1962.0724
12661     , p6_a14  NUMBER := 0-1962.0724
12662     , p6_a15  NUMBER := 0-1962.0724
12663     , p6_a16  NUMBER := 0-1962.0724
12664     , p6_a17  NUMBER := 0-1962.0724
12665     , p6_a18  NUMBER := 0-1962.0724
12666     , p6_a19  NUMBER := 0-1962.0724
12667     , p6_a20  DATE := fnd_api.g_miss_date
12668     , p6_a21  DATE := fnd_api.g_miss_date
12669     , p6_a22  NUMBER := 0-1962.0724
12670     , p6_a23  NUMBER := 0-1962.0724
12671     , p6_a24  DATE := fnd_api.g_miss_date
12672     , p6_a25  DATE := fnd_api.g_miss_date
12673     , p6_a26  DATE := fnd_api.g_miss_date
12674     , p6_a27  NUMBER := 0-1962.0724
12675     , p6_a28  NUMBER := 0-1962.0724
12676     , p6_a29  NUMBER := 0-1962.0724
12677     , p6_a30  NUMBER := 0-1962.0724
12678     , p6_a31  NUMBER := 0-1962.0724
12679     , p6_a32  NUMBER := 0-1962.0724
12680     , p6_a33  NUMBER := 0-1962.0724
12681     , p6_a34  DATE := fnd_api.g_miss_date
12682     , p6_a35  VARCHAR2 := fnd_api.g_miss_char
12683     , p6_a36  DATE := fnd_api.g_miss_date
12684     , p6_a37  VARCHAR2 := fnd_api.g_miss_char
12685     , p6_a38  NUMBER := 0-1962.0724
12686     , p6_a39  NUMBER := 0-1962.0724
12687     , p6_a40  NUMBER := 0-1962.0724
12688     , p6_a41  VARCHAR2 := fnd_api.g_miss_char
12689     , p6_a42  DATE := fnd_api.g_miss_date
12690     , p6_a43  NUMBER := 0-1962.0724
12691     , p6_a44  NUMBER := 0-1962.0724
12692     , p6_a45  DATE := fnd_api.g_miss_date
12693     , p6_a46  NUMBER := 0-1962.0724
12694     , p6_a47  DATE := fnd_api.g_miss_date
12695     , p6_a48  DATE := fnd_api.g_miss_date
12696     , p6_a49  DATE := fnd_api.g_miss_date
12697     , p6_a50  NUMBER := 0-1962.0724
12698     , p6_a51  NUMBER := 0-1962.0724
12699     , p6_a52  VARCHAR2 := fnd_api.g_miss_char
12700     , p6_a53  NUMBER := 0-1962.0724
12701     , p6_a54  NUMBER := 0-1962.0724
12702     , p6_a55  VARCHAR2 := fnd_api.g_miss_char
12703     , p6_a56  VARCHAR2 := fnd_api.g_miss_char
12704     , p6_a57  NUMBER := 0-1962.0724
12705     , p6_a58  DATE := fnd_api.g_miss_date
12706     , p6_a59  NUMBER := 0-1962.0724
12707     , p6_a60  VARCHAR2 := fnd_api.g_miss_char
12708     , p6_a61  VARCHAR2 := fnd_api.g_miss_char
12709     , p6_a62  VARCHAR2 := fnd_api.g_miss_char
12710     , p6_a63  VARCHAR2 := fnd_api.g_miss_char
12711     , p6_a64  VARCHAR2 := fnd_api.g_miss_char
12712     , p6_a65  VARCHAR2 := fnd_api.g_miss_char
12713     , p6_a66  VARCHAR2 := fnd_api.g_miss_char
12714     , p6_a67  VARCHAR2 := fnd_api.g_miss_char
12715     , p6_a68  VARCHAR2 := fnd_api.g_miss_char
12716     , p6_a69  VARCHAR2 := fnd_api.g_miss_char
12717     , p6_a70  VARCHAR2 := fnd_api.g_miss_char
12718     , p6_a71  VARCHAR2 := fnd_api.g_miss_char
12719     , p6_a72  VARCHAR2 := fnd_api.g_miss_char
12720     , p6_a73  VARCHAR2 := fnd_api.g_miss_char
12721     , p6_a74  VARCHAR2 := fnd_api.g_miss_char
12722     , p6_a75  VARCHAR2 := fnd_api.g_miss_char
12723     , p6_a76  NUMBER := 0-1962.0724
12724     , p6_a77  NUMBER := 0-1962.0724
12725     , p6_a78  NUMBER := 0-1962.0724
12726     , p6_a79  DATE := fnd_api.g_miss_date
12727     , p6_a80  NUMBER := 0-1962.0724
12728     , p6_a81  DATE := fnd_api.g_miss_date
12729     , p6_a82  NUMBER := 0-1962.0724
12730     , p6_a83  DATE := fnd_api.g_miss_date
12731     , p6_a84  DATE := fnd_api.g_miss_date
12732     , p6_a85  DATE := fnd_api.g_miss_date
12733     , p6_a86  DATE := fnd_api.g_miss_date
12734     , p6_a87  NUMBER := 0-1962.0724
12735     , p6_a88  NUMBER := 0-1962.0724
12736     , p6_a89  NUMBER := 0-1962.0724
12737     , p6_a90  VARCHAR2 := fnd_api.g_miss_char
12738     , p6_a91  NUMBER := 0-1962.0724
12739     , p6_a92  VARCHAR2 := fnd_api.g_miss_char
12740     , p6_a93  NUMBER := 0-1962.0724
12741     , p6_a94  NUMBER := 0-1962.0724
12742     , p6_a95  DATE := fnd_api.g_miss_date
12743     , p6_a96  VARCHAR2 := fnd_api.g_miss_char
12744     , p6_a97  VARCHAR2 := fnd_api.g_miss_char
12745     , p6_a98  NUMBER := 0-1962.0724
12746   )
12747 
12748   as
12749     ddp_clev_rec okl_okc_migration_pvt.clev_rec_type;
12750     ddp_klev_rec okl_contract_pvt.klev_rec_type;
12751     ddindx binary_integer; indx binary_integer;
12752   begin
12753 
12754     -- copy data to the local IN or IN-OUT args, if any
12755 
12756 
12757 
12758 
12759 
12760     ddp_clev_rec.id := rosetta_g_miss_num_map(p5_a0);
12761     ddp_clev_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
12762     ddp_clev_rec.sfwt_flag := p5_a2;
12763     ddp_clev_rec.chr_id := rosetta_g_miss_num_map(p5_a3);
12764     ddp_clev_rec.cle_id := rosetta_g_miss_num_map(p5_a4);
12765     ddp_clev_rec.cle_id_renewed := rosetta_g_miss_num_map(p5_a5);
12766     ddp_clev_rec.cle_id_renewed_to := rosetta_g_miss_num_map(p5_a6);
12767     ddp_clev_rec.lse_id := rosetta_g_miss_num_map(p5_a7);
12768     ddp_clev_rec.line_number := p5_a8;
12769     ddp_clev_rec.sts_code := p5_a9;
12770     ddp_clev_rec.display_sequence := rosetta_g_miss_num_map(p5_a10);
12771     ddp_clev_rec.trn_code := p5_a11;
12772     ddp_clev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a12);
12773     ddp_clev_rec.comments := p5_a13;
12774     ddp_clev_rec.item_description := p5_a14;
12775     ddp_clev_rec.oke_boe_description := p5_a15;
12776     ddp_clev_rec.cognomen := p5_a16;
12777     ddp_clev_rec.hidden_ind := p5_a17;
12778     ddp_clev_rec.price_unit := rosetta_g_miss_num_map(p5_a18);
12779     ddp_clev_rec.price_unit_percent := rosetta_g_miss_num_map(p5_a19);
12780     ddp_clev_rec.price_negotiated := rosetta_g_miss_num_map(p5_a20);
12781     ddp_clev_rec.price_negotiated_renewed := rosetta_g_miss_num_map(p5_a21);
12782     ddp_clev_rec.price_level_ind := p5_a22;
12783     ddp_clev_rec.invoice_line_level_ind := p5_a23;
12784     ddp_clev_rec.dpas_rating := p5_a24;
12785     ddp_clev_rec.block23text := p5_a25;
12786     ddp_clev_rec.exception_yn := p5_a26;
12787     ddp_clev_rec.template_used := p5_a27;
12788     ddp_clev_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a28);
12789     ddp_clev_rec.name := p5_a29;
12790     ddp_clev_rec.start_date := rosetta_g_miss_date_in_map(p5_a30);
12791     ddp_clev_rec.end_date := rosetta_g_miss_date_in_map(p5_a31);
12792     ddp_clev_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a32);
12793     ddp_clev_rec.upg_orig_system_ref := p5_a33;
12794     ddp_clev_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a34);
12795     ddp_clev_rec.orig_system_source_code := p5_a35;
12796     ddp_clev_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a36);
12797     ddp_clev_rec.orig_system_reference1 := p5_a37;
12798     ddp_clev_rec.attribute_category := p5_a38;
12799     ddp_clev_rec.attribute1 := p5_a39;
12800     ddp_clev_rec.attribute2 := p5_a40;
12801     ddp_clev_rec.attribute3 := p5_a41;
12802     ddp_clev_rec.attribute4 := p5_a42;
12803     ddp_clev_rec.attribute5 := p5_a43;
12804     ddp_clev_rec.attribute6 := p5_a44;
12805     ddp_clev_rec.attribute7 := p5_a45;
12806     ddp_clev_rec.attribute8 := p5_a46;
12807     ddp_clev_rec.attribute9 := p5_a47;
12808     ddp_clev_rec.attribute10 := p5_a48;
12809     ddp_clev_rec.attribute11 := p5_a49;
12810     ddp_clev_rec.attribute12 := p5_a50;
12811     ddp_clev_rec.attribute13 := p5_a51;
12812     ddp_clev_rec.attribute14 := p5_a52;
12813     ddp_clev_rec.attribute15 := p5_a53;
12814     ddp_clev_rec.created_by := rosetta_g_miss_num_map(p5_a54);
12815     ddp_clev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a55);
12816     ddp_clev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a56);
12817     ddp_clev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a57);
12818     ddp_clev_rec.price_type := p5_a58;
12819     ddp_clev_rec.currency_code := p5_a59;
12820     ddp_clev_rec.currency_code_renewed := p5_a60;
12821     ddp_clev_rec.last_update_login := rosetta_g_miss_num_map(p5_a61);
12822     ddp_clev_rec.old_sts_code := p5_a62;
12823     ddp_clev_rec.new_sts_code := p5_a63;
12824     ddp_clev_rec.old_ste_code := p5_a64;
12825     ddp_clev_rec.new_ste_code := p5_a65;
12826     ddp_clev_rec.call_action_asmblr := p5_a66;
12827     ddp_clev_rec.request_id := rosetta_g_miss_num_map(p5_a67);
12828     ddp_clev_rec.program_application_id := rosetta_g_miss_num_map(p5_a68);
12829     ddp_clev_rec.program_id := rosetta_g_miss_num_map(p5_a69);
12830     ddp_clev_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a70);
12831     ddp_clev_rec.price_list_id := rosetta_g_miss_num_map(p5_a71);
12832     ddp_clev_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a72);
12833     ddp_clev_rec.price_list_line_id := rosetta_g_miss_num_map(p5_a73);
12834     ddp_clev_rec.line_list_price := rosetta_g_miss_num_map(p5_a74);
12835     ddp_clev_rec.item_to_price_yn := p5_a75;
12836     ddp_clev_rec.price_basis_yn := p5_a76;
12837     ddp_clev_rec.config_header_id := rosetta_g_miss_num_map(p5_a77);
12838     ddp_clev_rec.config_revision_number := rosetta_g_miss_num_map(p5_a78);
12839     ddp_clev_rec.config_complete_yn := p5_a79;
12840     ddp_clev_rec.config_valid_yn := p5_a80;
12841     ddp_clev_rec.config_top_model_line_id := rosetta_g_miss_num_map(p5_a81);
12842     ddp_clev_rec.config_item_type := p5_a82;
12843     ddp_clev_rec.config_item_id := rosetta_g_miss_num_map(p5_a83);
12844     ddp_clev_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a84);
12845     ddp_clev_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a85);
12846     ddp_clev_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a86);
12847     ddp_clev_rec.line_renewal_type_code := p5_a87;
12848     ddp_clev_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a88);
12849     ddp_clev_rec.payment_term_id := rosetta_g_miss_num_map(p5_a89);
12850 
12851     ddp_klev_rec.id := rosetta_g_miss_num_map(p6_a0);
12852     ddp_klev_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
12853     ddp_klev_rec.kle_id := rosetta_g_miss_num_map(p6_a2);
12854     ddp_klev_rec.sty_id := rosetta_g_miss_num_map(p6_a3);
12855     ddp_klev_rec.prc_code := p6_a4;
12856     ddp_klev_rec.fcg_code := p6_a5;
12857     ddp_klev_rec.nty_code := p6_a6;
12858     ddp_klev_rec.estimated_oec := rosetta_g_miss_num_map(p6_a7);
12859     ddp_klev_rec.lao_amount := rosetta_g_miss_num_map(p6_a8);
12860     ddp_klev_rec.title_date := rosetta_g_miss_date_in_map(p6_a9);
12861     ddp_klev_rec.fee_charge := rosetta_g_miss_num_map(p6_a10);
12862     ddp_klev_rec.lrs_percent := rosetta_g_miss_num_map(p6_a11);
12863     ddp_klev_rec.initial_direct_cost := rosetta_g_miss_num_map(p6_a12);
12864     ddp_klev_rec.percent_stake := rosetta_g_miss_num_map(p6_a13);
12865     ddp_klev_rec.percent := rosetta_g_miss_num_map(p6_a14);
12866     ddp_klev_rec.evergreen_percent := rosetta_g_miss_num_map(p6_a15);
12867     ddp_klev_rec.amount_stake := rosetta_g_miss_num_map(p6_a16);
12868     ddp_klev_rec.occupancy := rosetta_g_miss_num_map(p6_a17);
12869     ddp_klev_rec.coverage := rosetta_g_miss_num_map(p6_a18);
12870     ddp_klev_rec.residual_percentage := rosetta_g_miss_num_map(p6_a19);
12871     ddp_klev_rec.date_last_inspection := rosetta_g_miss_date_in_map(p6_a20);
12872     ddp_klev_rec.date_sold := rosetta_g_miss_date_in_map(p6_a21);
12873     ddp_klev_rec.lrv_amount := rosetta_g_miss_num_map(p6_a22);
12874     ddp_klev_rec.capital_reduction := rosetta_g_miss_num_map(p6_a23);
12875     ddp_klev_rec.date_next_inspection_due := rosetta_g_miss_date_in_map(p6_a24);
12876     ddp_klev_rec.date_residual_last_review := rosetta_g_miss_date_in_map(p6_a25);
12877     ddp_klev_rec.date_last_reamortisation := rosetta_g_miss_date_in_map(p6_a26);
12878     ddp_klev_rec.vendor_advance_paid := rosetta_g_miss_num_map(p6_a27);
12879     ddp_klev_rec.weighted_average_life := rosetta_g_miss_num_map(p6_a28);
12880     ddp_klev_rec.tradein_amount := rosetta_g_miss_num_map(p6_a29);
12881     ddp_klev_rec.bond_equivalent_yield := rosetta_g_miss_num_map(p6_a30);
12882     ddp_klev_rec.termination_purchase_amount := rosetta_g_miss_num_map(p6_a31);
12883     ddp_klev_rec.refinance_amount := rosetta_g_miss_num_map(p6_a32);
12884     ddp_klev_rec.year_built := rosetta_g_miss_num_map(p6_a33);
12885     ddp_klev_rec.delivered_date := rosetta_g_miss_date_in_map(p6_a34);
12886     ddp_klev_rec.credit_tenant_yn := p6_a35;
12887     ddp_klev_rec.date_last_cleanup := rosetta_g_miss_date_in_map(p6_a36);
12888     ddp_klev_rec.year_of_manufacture := p6_a37;
12889     ddp_klev_rec.coverage_ratio := rosetta_g_miss_num_map(p6_a38);
12890     ddp_klev_rec.remarketed_amount := rosetta_g_miss_num_map(p6_a39);
12891     ddp_klev_rec.gross_square_footage := rosetta_g_miss_num_map(p6_a40);
12892     ddp_klev_rec.prescribed_asset_yn := p6_a41;
12893     ddp_klev_rec.date_remarketed := rosetta_g_miss_date_in_map(p6_a42);
12894     ddp_klev_rec.net_rentable := rosetta_g_miss_num_map(p6_a43);
12895     ddp_klev_rec.remarket_margin := rosetta_g_miss_num_map(p6_a44);
12896     ddp_klev_rec.date_letter_acceptance := rosetta_g_miss_date_in_map(p6_a45);
12897     ddp_klev_rec.repurchased_amount := rosetta_g_miss_num_map(p6_a46);
12898     ddp_klev_rec.date_commitment_expiration := rosetta_g_miss_date_in_map(p6_a47);
12899     ddp_klev_rec.date_repurchased := rosetta_g_miss_date_in_map(p6_a48);
12900     ddp_klev_rec.date_appraisal := rosetta_g_miss_date_in_map(p6_a49);
12901     ddp_klev_rec.residual_value := rosetta_g_miss_num_map(p6_a50);
12902     ddp_klev_rec.appraisal_value := rosetta_g_miss_num_map(p6_a51);
12903     ddp_klev_rec.secured_deal_yn := p6_a52;
12904     ddp_klev_rec.gain_loss := rosetta_g_miss_num_map(p6_a53);
12905     ddp_klev_rec.floor_amount := rosetta_g_miss_num_map(p6_a54);
12906     ddp_klev_rec.re_lease_yn := p6_a55;
12907     ddp_klev_rec.previous_contract := p6_a56;
12908     ddp_klev_rec.tracked_residual := rosetta_g_miss_num_map(p6_a57);
12909     ddp_klev_rec.date_title_received := rosetta_g_miss_date_in_map(p6_a58);
12910     ddp_klev_rec.amount := rosetta_g_miss_num_map(p6_a59);
12911     ddp_klev_rec.attribute_category := p6_a60;
12912     ddp_klev_rec.attribute1 := p6_a61;
12913     ddp_klev_rec.attribute2 := p6_a62;
12914     ddp_klev_rec.attribute3 := p6_a63;
12915     ddp_klev_rec.attribute4 := p6_a64;
12916     ddp_klev_rec.attribute5 := p6_a65;
12917     ddp_klev_rec.attribute6 := p6_a66;
12918     ddp_klev_rec.attribute7 := p6_a67;
12919     ddp_klev_rec.attribute8 := p6_a68;
12920     ddp_klev_rec.attribute9 := p6_a69;
12921     ddp_klev_rec.attribute10 := p6_a70;
12922     ddp_klev_rec.attribute11 := p6_a71;
12923     ddp_klev_rec.attribute12 := p6_a72;
12924     ddp_klev_rec.attribute13 := p6_a73;
12925     ddp_klev_rec.attribute14 := p6_a74;
12926     ddp_klev_rec.attribute15 := p6_a75;
12927     ddp_klev_rec.sty_id_for := rosetta_g_miss_num_map(p6_a76);
12928     ddp_klev_rec.clg_id := rosetta_g_miss_num_map(p6_a77);
12929     ddp_klev_rec.created_by := rosetta_g_miss_num_map(p6_a78);
12930     ddp_klev_rec.creation_date := rosetta_g_miss_date_in_map(p6_a79);
12931     ddp_klev_rec.last_updated_by := rosetta_g_miss_num_map(p6_a80);
12932     ddp_klev_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a81);
12933     ddp_klev_rec.last_update_login := rosetta_g_miss_num_map(p6_a82);
12934     ddp_klev_rec.date_funding := rosetta_g_miss_date_in_map(p6_a83);
12935     ddp_klev_rec.date_funding_required := rosetta_g_miss_date_in_map(p6_a84);
12936     ddp_klev_rec.date_accepted := rosetta_g_miss_date_in_map(p6_a85);
12937     ddp_klev_rec.date_delivery_expected := rosetta_g_miss_date_in_map(p6_a86);
12938     ddp_klev_rec.oec := rosetta_g_miss_num_map(p6_a87);
12939     ddp_klev_rec.capital_amount := rosetta_g_miss_num_map(p6_a88);
12940     ddp_klev_rec.residual_grnty_amount := rosetta_g_miss_num_map(p6_a89);
12941     ddp_klev_rec.residual_code := p6_a90;
12942     ddp_klev_rec.rvi_premium := rosetta_g_miss_num_map(p6_a91);
12943     ddp_klev_rec.credit_nature := p6_a92;
12944     ddp_klev_rec.capitalized_interest := rosetta_g_miss_num_map(p6_a93);
12945     ddp_klev_rec.capital_reduction_percent := rosetta_g_miss_num_map(p6_a94);
12946     ddp_klev_rec.date_pay_investor_start := rosetta_g_miss_date_in_map(p6_a95);
12947     ddp_klev_rec.pay_investor_frequency := p6_a96;
12948     ddp_klev_rec.pay_investor_event := p6_a97;
12949     ddp_klev_rec.pay_investor_remittance_days := rosetta_g_miss_num_map(p6_a98);
12950 
12951     -- here's the delegated call to the old PL/SQL routine
12952     okl_contract_pvt.lock_contract_line(p_api_version,
12953       p_init_msg_list,
12954       x_return_status,
12955       x_msg_count,
12956       x_msg_data,
12957       ddp_clev_rec,
12958       ddp_klev_rec);
12959 
12960     -- copy data back from the local variables to OUT or IN-OUT args, if any
12961 
12962 
12963 
12964 
12965 
12966 
12967   end;
12968 
12969   procedure lock_contract_line(p_api_version  NUMBER
12970     , p_init_msg_list  VARCHAR2
12971     , x_return_status out nocopy  VARCHAR2
12972     , x_msg_count out nocopy  NUMBER
12973     , x_msg_data out nocopy  VARCHAR2
12974     , p5_a0 JTF_NUMBER_TABLE
12975     , p5_a1 JTF_NUMBER_TABLE
12976     , p5_a2 JTF_VARCHAR2_TABLE_100
12977     , p5_a3 JTF_NUMBER_TABLE
12978     , p5_a4 JTF_NUMBER_TABLE
12979     , p5_a5 JTF_NUMBER_TABLE
12980     , p5_a6 JTF_NUMBER_TABLE
12981     , p5_a7 JTF_NUMBER_TABLE
12982     , p5_a8 JTF_VARCHAR2_TABLE_200
12983     , p5_a9 JTF_VARCHAR2_TABLE_100
12984     , p5_a10 JTF_NUMBER_TABLE
12985     , p5_a11 JTF_VARCHAR2_TABLE_100
12986     , p5_a12 JTF_NUMBER_TABLE
12987     , p5_a13 JTF_VARCHAR2_TABLE_2000
12988     , p5_a14 JTF_VARCHAR2_TABLE_2000
12989     , p5_a15 JTF_VARCHAR2_TABLE_2000
12990     , p5_a16 JTF_VARCHAR2_TABLE_300
12991     , p5_a17 JTF_VARCHAR2_TABLE_100
12992     , p5_a18 JTF_NUMBER_TABLE
12993     , p5_a19 JTF_NUMBER_TABLE
12994     , p5_a20 JTF_NUMBER_TABLE
12995     , p5_a21 JTF_NUMBER_TABLE
12996     , p5_a22 JTF_VARCHAR2_TABLE_100
12997     , p5_a23 JTF_VARCHAR2_TABLE_100
12998     , p5_a24 JTF_VARCHAR2_TABLE_100
12999     , p5_a25 JTF_VARCHAR2_TABLE_2000
13000     , p5_a26 JTF_VARCHAR2_TABLE_100
13001     , p5_a27 JTF_VARCHAR2_TABLE_200
13002     , p5_a28 JTF_DATE_TABLE
13003     , p5_a29 JTF_VARCHAR2_TABLE_200
13004     , p5_a30 JTF_DATE_TABLE
13005     , p5_a31 JTF_DATE_TABLE
13006     , p5_a32 JTF_DATE_TABLE
13007     , p5_a33 JTF_VARCHAR2_TABLE_100
13008     , p5_a34 JTF_NUMBER_TABLE
13009     , p5_a35 JTF_VARCHAR2_TABLE_100
13010     , p5_a36 JTF_NUMBER_TABLE
13011     , p5_a37 JTF_VARCHAR2_TABLE_100
13012     , p5_a38 JTF_VARCHAR2_TABLE_100
13013     , p5_a39 JTF_VARCHAR2_TABLE_500
13014     , p5_a40 JTF_VARCHAR2_TABLE_500
13015     , p5_a41 JTF_VARCHAR2_TABLE_500
13016     , p5_a42 JTF_VARCHAR2_TABLE_500
13017     , p5_a43 JTF_VARCHAR2_TABLE_500
13018     , p5_a44 JTF_VARCHAR2_TABLE_500
13019     , p5_a45 JTF_VARCHAR2_TABLE_500
13020     , p5_a46 JTF_VARCHAR2_TABLE_500
13021     , p5_a47 JTF_VARCHAR2_TABLE_500
13022     , p5_a48 JTF_VARCHAR2_TABLE_500
13023     , p5_a49 JTF_VARCHAR2_TABLE_500
13024     , p5_a50 JTF_VARCHAR2_TABLE_500
13025     , p5_a51 JTF_VARCHAR2_TABLE_500
13026     , p5_a52 JTF_VARCHAR2_TABLE_500
13027     , p5_a53 JTF_VARCHAR2_TABLE_500
13028     , p5_a54 JTF_NUMBER_TABLE
13029     , p5_a55 JTF_DATE_TABLE
13030     , p5_a56 JTF_NUMBER_TABLE
13031     , p5_a57 JTF_DATE_TABLE
13032     , p5_a58 JTF_VARCHAR2_TABLE_100
13033     , p5_a59 JTF_VARCHAR2_TABLE_100
13034     , p5_a60 JTF_VARCHAR2_TABLE_100
13035     , p5_a61 JTF_NUMBER_TABLE
13036     , p5_a62 JTF_VARCHAR2_TABLE_100
13037     , p5_a63 JTF_VARCHAR2_TABLE_100
13038     , p5_a64 JTF_VARCHAR2_TABLE_100
13039     , p5_a65 JTF_VARCHAR2_TABLE_100
13040     , p5_a66 JTF_VARCHAR2_TABLE_100
13041     , p5_a67 JTF_NUMBER_TABLE
13042     , p5_a68 JTF_NUMBER_TABLE
13043     , p5_a69 JTF_NUMBER_TABLE
13044     , p5_a70 JTF_DATE_TABLE
13045     , p5_a71 JTF_NUMBER_TABLE
13046     , p5_a72 JTF_DATE_TABLE
13047     , p5_a73 JTF_NUMBER_TABLE
13048     , p5_a74 JTF_NUMBER_TABLE
13049     , p5_a75 JTF_VARCHAR2_TABLE_100
13050     , p5_a76 JTF_VARCHAR2_TABLE_100
13051     , p5_a77 JTF_NUMBER_TABLE
13052     , p5_a78 JTF_NUMBER_TABLE
13053     , p5_a79 JTF_VARCHAR2_TABLE_100
13054     , p5_a80 JTF_VARCHAR2_TABLE_100
13055     , p5_a81 JTF_NUMBER_TABLE
13056     , p5_a82 JTF_VARCHAR2_TABLE_100
13057     , p5_a83 JTF_NUMBER_TABLE
13058     , p5_a84 JTF_NUMBER_TABLE
13059     , p5_a85 JTF_NUMBER_TABLE
13060     , p5_a86 JTF_NUMBER_TABLE
13061     , p5_a87 JTF_VARCHAR2_TABLE_100
13062     , p5_a88 JTF_NUMBER_TABLE
13063     , p5_a89 JTF_NUMBER_TABLE
13064     , p6_a0 JTF_NUMBER_TABLE
13065     , p6_a1 JTF_NUMBER_TABLE
13066     , p6_a2 JTF_NUMBER_TABLE
13067     , p6_a3 JTF_NUMBER_TABLE
13068     , p6_a4 JTF_VARCHAR2_TABLE_100
13069     , p6_a5 JTF_VARCHAR2_TABLE_100
13070     , p6_a6 JTF_VARCHAR2_TABLE_100
13071     , p6_a7 JTF_NUMBER_TABLE
13072     , p6_a8 JTF_NUMBER_TABLE
13073     , p6_a9 JTF_DATE_TABLE
13074     , p6_a10 JTF_NUMBER_TABLE
13075     , p6_a11 JTF_NUMBER_TABLE
13076     , p6_a12 JTF_NUMBER_TABLE
13077     , p6_a13 JTF_NUMBER_TABLE
13078     , p6_a14 JTF_NUMBER_TABLE
13079     , p6_a15 JTF_NUMBER_TABLE
13080     , p6_a16 JTF_NUMBER_TABLE
13081     , p6_a17 JTF_NUMBER_TABLE
13082     , p6_a18 JTF_NUMBER_TABLE
13083     , p6_a19 JTF_NUMBER_TABLE
13084     , p6_a20 JTF_DATE_TABLE
13085     , p6_a21 JTF_DATE_TABLE
13086     , p6_a22 JTF_NUMBER_TABLE
13087     , p6_a23 JTF_NUMBER_TABLE
13088     , p6_a24 JTF_DATE_TABLE
13089     , p6_a25 JTF_DATE_TABLE
13090     , p6_a26 JTF_DATE_TABLE
13091     , p6_a27 JTF_NUMBER_TABLE
13092     , p6_a28 JTF_NUMBER_TABLE
13093     , p6_a29 JTF_NUMBER_TABLE
13094     , p6_a30 JTF_NUMBER_TABLE
13095     , p6_a31 JTF_NUMBER_TABLE
13096     , p6_a32 JTF_NUMBER_TABLE
13097     , p6_a33 JTF_NUMBER_TABLE
13098     , p6_a34 JTF_DATE_TABLE
13099     , p6_a35 JTF_VARCHAR2_TABLE_100
13100     , p6_a36 JTF_DATE_TABLE
13101     , p6_a37 JTF_VARCHAR2_TABLE_300
13102     , p6_a38 JTF_NUMBER_TABLE
13103     , p6_a39 JTF_NUMBER_TABLE
13104     , p6_a40 JTF_NUMBER_TABLE
13105     , p6_a41 JTF_VARCHAR2_TABLE_100
13106     , p6_a42 JTF_DATE_TABLE
13107     , p6_a43 JTF_NUMBER_TABLE
13108     , p6_a44 JTF_NUMBER_TABLE
13109     , p6_a45 JTF_DATE_TABLE
13110     , p6_a46 JTF_NUMBER_TABLE
13111     , p6_a47 JTF_DATE_TABLE
13112     , p6_a48 JTF_DATE_TABLE
13113     , p6_a49 JTF_DATE_TABLE
13114     , p6_a50 JTF_NUMBER_TABLE
13115     , p6_a51 JTF_NUMBER_TABLE
13116     , p6_a52 JTF_VARCHAR2_TABLE_100
13117     , p6_a53 JTF_NUMBER_TABLE
13118     , p6_a54 JTF_NUMBER_TABLE
13119     , p6_a55 JTF_VARCHAR2_TABLE_100
13120     , p6_a56 JTF_VARCHAR2_TABLE_100
13121     , p6_a57 JTF_NUMBER_TABLE
13122     , p6_a58 JTF_DATE_TABLE
13123     , p6_a59 JTF_NUMBER_TABLE
13124     , p6_a60 JTF_VARCHAR2_TABLE_100
13125     , p6_a61 JTF_VARCHAR2_TABLE_500
13126     , p6_a62 JTF_VARCHAR2_TABLE_500
13127     , p6_a63 JTF_VARCHAR2_TABLE_500
13128     , p6_a64 JTF_VARCHAR2_TABLE_500
13129     , p6_a65 JTF_VARCHAR2_TABLE_500
13130     , p6_a66 JTF_VARCHAR2_TABLE_500
13131     , p6_a67 JTF_VARCHAR2_TABLE_500
13132     , p6_a68 JTF_VARCHAR2_TABLE_500
13133     , p6_a69 JTF_VARCHAR2_TABLE_500
13134     , p6_a70 JTF_VARCHAR2_TABLE_500
13135     , p6_a71 JTF_VARCHAR2_TABLE_500
13136     , p6_a72 JTF_VARCHAR2_TABLE_500
13137     , p6_a73 JTF_VARCHAR2_TABLE_500
13138     , p6_a74 JTF_VARCHAR2_TABLE_500
13139     , p6_a75 JTF_VARCHAR2_TABLE_500
13140     , p6_a76 JTF_NUMBER_TABLE
13141     , p6_a77 JTF_NUMBER_TABLE
13142     , p6_a78 JTF_NUMBER_TABLE
13143     , p6_a79 JTF_DATE_TABLE
13144     , p6_a80 JTF_NUMBER_TABLE
13145     , p6_a81 JTF_DATE_TABLE
13146     , p6_a82 JTF_NUMBER_TABLE
13147     , p6_a83 JTF_DATE_TABLE
13148     , p6_a84 JTF_DATE_TABLE
13149     , p6_a85 JTF_DATE_TABLE
13150     , p6_a86 JTF_DATE_TABLE
13151     , p6_a87 JTF_NUMBER_TABLE
13152     , p6_a88 JTF_NUMBER_TABLE
13153     , p6_a89 JTF_NUMBER_TABLE
13154     , p6_a90 JTF_VARCHAR2_TABLE_100
13155     , p6_a91 JTF_NUMBER_TABLE
13156     , p6_a92 JTF_VARCHAR2_TABLE_100
13157     , p6_a93 JTF_NUMBER_TABLE
13158     , p6_a94 JTF_NUMBER_TABLE
13159     , p6_a95 JTF_DATE_TABLE
13160     , p6_a96 JTF_VARCHAR2_TABLE_100
13161     , p6_a97 JTF_VARCHAR2_TABLE_100
13162     , p6_a98 JTF_NUMBER_TABLE
13163   )
13164 
13165   as
13166     ddp_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
13167     ddp_klev_tbl okl_contract_pvt.klev_tbl_type;
13168     ddindx binary_integer; indx binary_integer;
13169   begin
13170 
13171     -- copy data to the local IN or IN-OUT args, if any
13172 
13173 
13174 
13175 
13176 
13177     okl_okc_migration_pvt_w.rosetta_table_copy_in_p5(ddp_clev_tbl, p5_a0
13178       , p5_a1
13179       , p5_a2
13180       , p5_a3
13181       , p5_a4
13182       , p5_a5
13183       , p5_a6
13184       , p5_a7
13185       , p5_a8
13186       , p5_a9
13187       , p5_a10
13188       , p5_a11
13189       , p5_a12
13190       , p5_a13
13191       , p5_a14
13192       , p5_a15
13193       , p5_a16
13194       , p5_a17
13195       , p5_a18
13196       , p5_a19
13197       , p5_a20
13198       , p5_a21
13199       , p5_a22
13200       , p5_a23
13201       , p5_a24
13202       , p5_a25
13203       , p5_a26
13204       , p5_a27
13205       , p5_a28
13206       , p5_a29
13207       , p5_a30
13208       , p5_a31
13209       , p5_a32
13210       , p5_a33
13211       , p5_a34
13212       , p5_a35
13213       , p5_a36
13214       , p5_a37
13215       , p5_a38
13216       , p5_a39
13217       , p5_a40
13218       , p5_a41
13219       , p5_a42
13220       , p5_a43
13221       , p5_a44
13222       , p5_a45
13223       , p5_a46
13224       , p5_a47
13225       , p5_a48
13226       , p5_a49
13227       , p5_a50
13228       , p5_a51
13229       , p5_a52
13230       , p5_a53
13231       , p5_a54
13232       , p5_a55
13233       , p5_a56
13234       , p5_a57
13235       , p5_a58
13236       , p5_a59
13237       , p5_a60
13238       , p5_a61
13239       , p5_a62
13240       , p5_a63
13241       , p5_a64
13242       , p5_a65
13243       , p5_a66
13244       , p5_a67
13245       , p5_a68
13246       , p5_a69
13247       , p5_a70
13248       , p5_a71
13249       , p5_a72
13250       , p5_a73
13251       , p5_a74
13252       , p5_a75
13253       , p5_a76
13254       , p5_a77
13255       , p5_a78
13256       , p5_a79
13257       , p5_a80
13258       , p5_a81
13259       , p5_a82
13260       , p5_a83
13261       , p5_a84
13262       , p5_a85
13263       , p5_a86
13264       , p5_a87
13265       , p5_a88
13266       , p5_a89
13267       );
13268 
13269     okl_kle_pvt_w.rosetta_table_copy_in_p8(ddp_klev_tbl, p6_a0
13270       , p6_a1
13271       , p6_a2
13272       , p6_a3
13273       , p6_a4
13274       , p6_a5
13275       , p6_a6
13276       , p6_a7
13277       , p6_a8
13278       , p6_a9
13279       , p6_a10
13280       , p6_a11
13281       , p6_a12
13282       , p6_a13
13283       , p6_a14
13284       , p6_a15
13285       , p6_a16
13286       , p6_a17
13287       , p6_a18
13288       , p6_a19
13289       , p6_a20
13290       , p6_a21
13291       , p6_a22
13292       , p6_a23
13293       , p6_a24
13294       , p6_a25
13295       , p6_a26
13296       , p6_a27
13297       , p6_a28
13298       , p6_a29
13299       , p6_a30
13300       , p6_a31
13301       , p6_a32
13302       , p6_a33
13303       , p6_a34
13304       , p6_a35
13305       , p6_a36
13306       , p6_a37
13307       , p6_a38
13308       , p6_a39
13309       , p6_a40
13310       , p6_a41
13311       , p6_a42
13312       , p6_a43
13313       , p6_a44
13314       , p6_a45
13315       , p6_a46
13316       , p6_a47
13317       , p6_a48
13318       , p6_a49
13319       , p6_a50
13320       , p6_a51
13321       , p6_a52
13322       , p6_a53
13323       , p6_a54
13324       , p6_a55
13325       , p6_a56
13326       , p6_a57
13327       , p6_a58
13328       , p6_a59
13329       , p6_a60
13330       , p6_a61
13331       , p6_a62
13332       , p6_a63
13333       , p6_a64
13334       , p6_a65
13335       , p6_a66
13336       , p6_a67
13337       , p6_a68
13338       , p6_a69
13339       , p6_a70
13340       , p6_a71
13341       , p6_a72
13342       , p6_a73
13343       , p6_a74
13344       , p6_a75
13345       , p6_a76
13346       , p6_a77
13347       , p6_a78
13348       , p6_a79
13349       , p6_a80
13350       , p6_a81
13351       , p6_a82
13352       , p6_a83
13353       , p6_a84
13354       , p6_a85
13355       , p6_a86
13356       , p6_a87
13357       , p6_a88
13358       , p6_a89
13359       , p6_a90
13360       , p6_a91
13361       , p6_a92
13362       , p6_a93
13363       , p6_a94
13364       , p6_a95
13365       , p6_a96
13366       , p6_a97
13367       , p6_a98
13368       );
13369 
13370     -- here's the delegated call to the old PL/SQL routine
13371     okl_contract_pvt.lock_contract_line(p_api_version,
13372       p_init_msg_list,
13373       x_return_status,
13374       x_msg_count,
13375       x_msg_data,
13376       ddp_clev_tbl,
13377       ddp_klev_tbl);
13378 
13379     -- copy data back from the local variables to OUT or IN-OUT args, if any
13380 
13381 
13382 
13383 
13384 
13385 
13386   end;
13387 
13388   procedure validate_contract_line(p_api_version  NUMBER
13389     , p_init_msg_list  VARCHAR2
13390     , x_return_status out nocopy  VARCHAR2
13391     , x_msg_count out nocopy  NUMBER
13392     , x_msg_data out nocopy  VARCHAR2
13393     , p5_a0  NUMBER := 0-1962.0724
13394     , p5_a1  NUMBER := 0-1962.0724
13395     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
13396     , p5_a3  NUMBER := 0-1962.0724
13397     , p5_a4  NUMBER := 0-1962.0724
13398     , p5_a5  NUMBER := 0-1962.0724
13399     , p5_a6  NUMBER := 0-1962.0724
13400     , p5_a7  NUMBER := 0-1962.0724
13401     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
13402     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
13403     , p5_a10  NUMBER := 0-1962.0724
13404     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
13405     , p5_a12  NUMBER := 0-1962.0724
13406     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
13407     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
13408     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
13409     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
13410     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
13411     , p5_a18  NUMBER := 0-1962.0724
13412     , p5_a19  NUMBER := 0-1962.0724
13413     , p5_a20  NUMBER := 0-1962.0724
13414     , p5_a21  NUMBER := 0-1962.0724
13415     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
13416     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
13417     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
13418     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
13419     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
13420     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
13421     , p5_a28  DATE := fnd_api.g_miss_date
13422     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
13423     , p5_a30  DATE := fnd_api.g_miss_date
13424     , p5_a31  DATE := fnd_api.g_miss_date
13425     , p5_a32  DATE := fnd_api.g_miss_date
13426     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
13427     , p5_a34  NUMBER := 0-1962.0724
13428     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
13429     , p5_a36  NUMBER := 0-1962.0724
13430     , p5_a37  VARCHAR2 := fnd_api.g_miss_char
13431     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
13432     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
13433     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
13434     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
13435     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
13436     , p5_a43  VARCHAR2 := fnd_api.g_miss_char
13437     , p5_a44  VARCHAR2 := fnd_api.g_miss_char
13438     , p5_a45  VARCHAR2 := fnd_api.g_miss_char
13439     , p5_a46  VARCHAR2 := fnd_api.g_miss_char
13440     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
13441     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
13442     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
13443     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
13444     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
13445     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
13446     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
13447     , p5_a54  NUMBER := 0-1962.0724
13448     , p5_a55  DATE := fnd_api.g_miss_date
13449     , p5_a56  NUMBER := 0-1962.0724
13450     , p5_a57  DATE := fnd_api.g_miss_date
13451     , p5_a58  VARCHAR2 := fnd_api.g_miss_char
13452     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
13453     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
13454     , p5_a61  NUMBER := 0-1962.0724
13455     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
13456     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
13457     , p5_a64  VARCHAR2 := fnd_api.g_miss_char
13458     , p5_a65  VARCHAR2 := fnd_api.g_miss_char
13459     , p5_a66  VARCHAR2 := fnd_api.g_miss_char
13460     , p5_a67  NUMBER := 0-1962.0724
13461     , p5_a68  NUMBER := 0-1962.0724
13462     , p5_a69  NUMBER := 0-1962.0724
13463     , p5_a70  DATE := fnd_api.g_miss_date
13464     , p5_a71  NUMBER := 0-1962.0724
13465     , p5_a72  DATE := fnd_api.g_miss_date
13466     , p5_a73  NUMBER := 0-1962.0724
13467     , p5_a74  NUMBER := 0-1962.0724
13468     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
13469     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
13470     , p5_a77  NUMBER := 0-1962.0724
13471     , p5_a78  NUMBER := 0-1962.0724
13472     , p5_a79  VARCHAR2 := fnd_api.g_miss_char
13473     , p5_a80  VARCHAR2 := fnd_api.g_miss_char
13474     , p5_a81  NUMBER := 0-1962.0724
13475     , p5_a82  VARCHAR2 := fnd_api.g_miss_char
13476     , p5_a83  NUMBER := 0-1962.0724
13477     , p5_a84  NUMBER := 0-1962.0724
13478     , p5_a85  NUMBER := 0-1962.0724
13479     , p5_a86  NUMBER := 0-1962.0724
13480     , p5_a87  VARCHAR2 := fnd_api.g_miss_char
13481     , p5_a88  NUMBER := 0-1962.0724
13482     , p5_a89  NUMBER := 0-1962.0724
13483     , p6_a0  NUMBER := 0-1962.0724
13484     , p6_a1  NUMBER := 0-1962.0724
13485     , p6_a2  NUMBER := 0-1962.0724
13486     , p6_a3  NUMBER := 0-1962.0724
13487     , p6_a4  VARCHAR2 := fnd_api.g_miss_char
13488     , p6_a5  VARCHAR2 := fnd_api.g_miss_char
13489     , p6_a6  VARCHAR2 := fnd_api.g_miss_char
13490     , p6_a7  NUMBER := 0-1962.0724
13491     , p6_a8  NUMBER := 0-1962.0724
13492     , p6_a9  DATE := fnd_api.g_miss_date
13493     , p6_a10  NUMBER := 0-1962.0724
13494     , p6_a11  NUMBER := 0-1962.0724
13495     , p6_a12  NUMBER := 0-1962.0724
13496     , p6_a13  NUMBER := 0-1962.0724
13497     , p6_a14  NUMBER := 0-1962.0724
13498     , p6_a15  NUMBER := 0-1962.0724
13499     , p6_a16  NUMBER := 0-1962.0724
13500     , p6_a17  NUMBER := 0-1962.0724
13501     , p6_a18  NUMBER := 0-1962.0724
13502     , p6_a19  NUMBER := 0-1962.0724
13503     , p6_a20  DATE := fnd_api.g_miss_date
13504     , p6_a21  DATE := fnd_api.g_miss_date
13505     , p6_a22  NUMBER := 0-1962.0724
13506     , p6_a23  NUMBER := 0-1962.0724
13507     , p6_a24  DATE := fnd_api.g_miss_date
13508     , p6_a25  DATE := fnd_api.g_miss_date
13509     , p6_a26  DATE := fnd_api.g_miss_date
13510     , p6_a27  NUMBER := 0-1962.0724
13511     , p6_a28  NUMBER := 0-1962.0724
13512     , p6_a29  NUMBER := 0-1962.0724
13513     , p6_a30  NUMBER := 0-1962.0724
13514     , p6_a31  NUMBER := 0-1962.0724
13515     , p6_a32  NUMBER := 0-1962.0724
13516     , p6_a33  NUMBER := 0-1962.0724
13517     , p6_a34  DATE := fnd_api.g_miss_date
13518     , p6_a35  VARCHAR2 := fnd_api.g_miss_char
13519     , p6_a36  DATE := fnd_api.g_miss_date
13520     , p6_a37  VARCHAR2 := fnd_api.g_miss_char
13521     , p6_a38  NUMBER := 0-1962.0724
13522     , p6_a39  NUMBER := 0-1962.0724
13523     , p6_a40  NUMBER := 0-1962.0724
13524     , p6_a41  VARCHAR2 := fnd_api.g_miss_char
13525     , p6_a42  DATE := fnd_api.g_miss_date
13526     , p6_a43  NUMBER := 0-1962.0724
13527     , p6_a44  NUMBER := 0-1962.0724
13528     , p6_a45  DATE := fnd_api.g_miss_date
13529     , p6_a46  NUMBER := 0-1962.0724
13530     , p6_a47  DATE := fnd_api.g_miss_date
13531     , p6_a48  DATE := fnd_api.g_miss_date
13532     , p6_a49  DATE := fnd_api.g_miss_date
13533     , p6_a50  NUMBER := 0-1962.0724
13534     , p6_a51  NUMBER := 0-1962.0724
13535     , p6_a52  VARCHAR2 := fnd_api.g_miss_char
13536     , p6_a53  NUMBER := 0-1962.0724
13537     , p6_a54  NUMBER := 0-1962.0724
13538     , p6_a55  VARCHAR2 := fnd_api.g_miss_char
13539     , p6_a56  VARCHAR2 := fnd_api.g_miss_char
13540     , p6_a57  NUMBER := 0-1962.0724
13541     , p6_a58  DATE := fnd_api.g_miss_date
13542     , p6_a59  NUMBER := 0-1962.0724
13543     , p6_a60  VARCHAR2 := fnd_api.g_miss_char
13544     , p6_a61  VARCHAR2 := fnd_api.g_miss_char
13545     , p6_a62  VARCHAR2 := fnd_api.g_miss_char
13546     , p6_a63  VARCHAR2 := fnd_api.g_miss_char
13547     , p6_a64  VARCHAR2 := fnd_api.g_miss_char
13548     , p6_a65  VARCHAR2 := fnd_api.g_miss_char
13549     , p6_a66  VARCHAR2 := fnd_api.g_miss_char
13550     , p6_a67  VARCHAR2 := fnd_api.g_miss_char
13551     , p6_a68  VARCHAR2 := fnd_api.g_miss_char
13552     , p6_a69  VARCHAR2 := fnd_api.g_miss_char
13553     , p6_a70  VARCHAR2 := fnd_api.g_miss_char
13554     , p6_a71  VARCHAR2 := fnd_api.g_miss_char
13555     , p6_a72  VARCHAR2 := fnd_api.g_miss_char
13556     , p6_a73  VARCHAR2 := fnd_api.g_miss_char
13557     , p6_a74  VARCHAR2 := fnd_api.g_miss_char
13558     , p6_a75  VARCHAR2 := fnd_api.g_miss_char
13559     , p6_a76  NUMBER := 0-1962.0724
13560     , p6_a77  NUMBER := 0-1962.0724
13561     , p6_a78  NUMBER := 0-1962.0724
13562     , p6_a79  DATE := fnd_api.g_miss_date
13563     , p6_a80  NUMBER := 0-1962.0724
13564     , p6_a81  DATE := fnd_api.g_miss_date
13565     , p6_a82  NUMBER := 0-1962.0724
13566     , p6_a83  DATE := fnd_api.g_miss_date
13567     , p6_a84  DATE := fnd_api.g_miss_date
13568     , p6_a85  DATE := fnd_api.g_miss_date
13569     , p6_a86  DATE := fnd_api.g_miss_date
13570     , p6_a87  NUMBER := 0-1962.0724
13571     , p6_a88  NUMBER := 0-1962.0724
13572     , p6_a89  NUMBER := 0-1962.0724
13573     , p6_a90  VARCHAR2 := fnd_api.g_miss_char
13574     , p6_a91  NUMBER := 0-1962.0724
13575     , p6_a92  VARCHAR2 := fnd_api.g_miss_char
13576     , p6_a93  NUMBER := 0-1962.0724
13577     , p6_a94  NUMBER := 0-1962.0724
13578     , p6_a95  DATE := fnd_api.g_miss_date
13579     , p6_a96  VARCHAR2 := fnd_api.g_miss_char
13580     , p6_a97  VARCHAR2 := fnd_api.g_miss_char
13581     , p6_a98  NUMBER := 0-1962.0724
13582   )
13583 
13584   as
13585     ddp_clev_rec okl_okc_migration_pvt.clev_rec_type;
13586     ddp_klev_rec okl_contract_pvt.klev_rec_type;
13587     ddindx binary_integer; indx binary_integer;
13588   begin
13589 
13590     -- copy data to the local IN or IN-OUT args, if any
13591 
13592 
13593 
13594 
13595 
13596     ddp_clev_rec.id := rosetta_g_miss_num_map(p5_a0);
13597     ddp_clev_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
13598     ddp_clev_rec.sfwt_flag := p5_a2;
13599     ddp_clev_rec.chr_id := rosetta_g_miss_num_map(p5_a3);
13600     ddp_clev_rec.cle_id := rosetta_g_miss_num_map(p5_a4);
13601     ddp_clev_rec.cle_id_renewed := rosetta_g_miss_num_map(p5_a5);
13602     ddp_clev_rec.cle_id_renewed_to := rosetta_g_miss_num_map(p5_a6);
13603     ddp_clev_rec.lse_id := rosetta_g_miss_num_map(p5_a7);
13604     ddp_clev_rec.line_number := p5_a8;
13605     ddp_clev_rec.sts_code := p5_a9;
13606     ddp_clev_rec.display_sequence := rosetta_g_miss_num_map(p5_a10);
13607     ddp_clev_rec.trn_code := p5_a11;
13608     ddp_clev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a12);
13609     ddp_clev_rec.comments := p5_a13;
13610     ddp_clev_rec.item_description := p5_a14;
13611     ddp_clev_rec.oke_boe_description := p5_a15;
13612     ddp_clev_rec.cognomen := p5_a16;
13613     ddp_clev_rec.hidden_ind := p5_a17;
13614     ddp_clev_rec.price_unit := rosetta_g_miss_num_map(p5_a18);
13615     ddp_clev_rec.price_unit_percent := rosetta_g_miss_num_map(p5_a19);
13616     ddp_clev_rec.price_negotiated := rosetta_g_miss_num_map(p5_a20);
13617     ddp_clev_rec.price_negotiated_renewed := rosetta_g_miss_num_map(p5_a21);
13618     ddp_clev_rec.price_level_ind := p5_a22;
13619     ddp_clev_rec.invoice_line_level_ind := p5_a23;
13620     ddp_clev_rec.dpas_rating := p5_a24;
13621     ddp_clev_rec.block23text := p5_a25;
13622     ddp_clev_rec.exception_yn := p5_a26;
13623     ddp_clev_rec.template_used := p5_a27;
13624     ddp_clev_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a28);
13625     ddp_clev_rec.name := p5_a29;
13626     ddp_clev_rec.start_date := rosetta_g_miss_date_in_map(p5_a30);
13627     ddp_clev_rec.end_date := rosetta_g_miss_date_in_map(p5_a31);
13628     ddp_clev_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a32);
13629     ddp_clev_rec.upg_orig_system_ref := p5_a33;
13630     ddp_clev_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a34);
13631     ddp_clev_rec.orig_system_source_code := p5_a35;
13632     ddp_clev_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a36);
13633     ddp_clev_rec.orig_system_reference1 := p5_a37;
13634     ddp_clev_rec.attribute_category := p5_a38;
13635     ddp_clev_rec.attribute1 := p5_a39;
13636     ddp_clev_rec.attribute2 := p5_a40;
13637     ddp_clev_rec.attribute3 := p5_a41;
13638     ddp_clev_rec.attribute4 := p5_a42;
13639     ddp_clev_rec.attribute5 := p5_a43;
13640     ddp_clev_rec.attribute6 := p5_a44;
13641     ddp_clev_rec.attribute7 := p5_a45;
13642     ddp_clev_rec.attribute8 := p5_a46;
13643     ddp_clev_rec.attribute9 := p5_a47;
13644     ddp_clev_rec.attribute10 := p5_a48;
13645     ddp_clev_rec.attribute11 := p5_a49;
13646     ddp_clev_rec.attribute12 := p5_a50;
13647     ddp_clev_rec.attribute13 := p5_a51;
13648     ddp_clev_rec.attribute14 := p5_a52;
13649     ddp_clev_rec.attribute15 := p5_a53;
13650     ddp_clev_rec.created_by := rosetta_g_miss_num_map(p5_a54);
13651     ddp_clev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a55);
13652     ddp_clev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a56);
13653     ddp_clev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a57);
13654     ddp_clev_rec.price_type := p5_a58;
13655     ddp_clev_rec.currency_code := p5_a59;
13656     ddp_clev_rec.currency_code_renewed := p5_a60;
13657     ddp_clev_rec.last_update_login := rosetta_g_miss_num_map(p5_a61);
13658     ddp_clev_rec.old_sts_code := p5_a62;
13659     ddp_clev_rec.new_sts_code := p5_a63;
13660     ddp_clev_rec.old_ste_code := p5_a64;
13661     ddp_clev_rec.new_ste_code := p5_a65;
13662     ddp_clev_rec.call_action_asmblr := p5_a66;
13663     ddp_clev_rec.request_id := rosetta_g_miss_num_map(p5_a67);
13664     ddp_clev_rec.program_application_id := rosetta_g_miss_num_map(p5_a68);
13665     ddp_clev_rec.program_id := rosetta_g_miss_num_map(p5_a69);
13666     ddp_clev_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a70);
13667     ddp_clev_rec.price_list_id := rosetta_g_miss_num_map(p5_a71);
13668     ddp_clev_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a72);
13669     ddp_clev_rec.price_list_line_id := rosetta_g_miss_num_map(p5_a73);
13670     ddp_clev_rec.line_list_price := rosetta_g_miss_num_map(p5_a74);
13671     ddp_clev_rec.item_to_price_yn := p5_a75;
13672     ddp_clev_rec.price_basis_yn := p5_a76;
13673     ddp_clev_rec.config_header_id := rosetta_g_miss_num_map(p5_a77);
13674     ddp_clev_rec.config_revision_number := rosetta_g_miss_num_map(p5_a78);
13675     ddp_clev_rec.config_complete_yn := p5_a79;
13676     ddp_clev_rec.config_valid_yn := p5_a80;
13677     ddp_clev_rec.config_top_model_line_id := rosetta_g_miss_num_map(p5_a81);
13678     ddp_clev_rec.config_item_type := p5_a82;
13679     ddp_clev_rec.config_item_id := rosetta_g_miss_num_map(p5_a83);
13680     ddp_clev_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a84);
13681     ddp_clev_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a85);
13682     ddp_clev_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a86);
13683     ddp_clev_rec.line_renewal_type_code := p5_a87;
13684     ddp_clev_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a88);
13685     ddp_clev_rec.payment_term_id := rosetta_g_miss_num_map(p5_a89);
13686 
13687     ddp_klev_rec.id := rosetta_g_miss_num_map(p6_a0);
13688     ddp_klev_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
13689     ddp_klev_rec.kle_id := rosetta_g_miss_num_map(p6_a2);
13690     ddp_klev_rec.sty_id := rosetta_g_miss_num_map(p6_a3);
13691     ddp_klev_rec.prc_code := p6_a4;
13692     ddp_klev_rec.fcg_code := p6_a5;
13693     ddp_klev_rec.nty_code := p6_a6;
13694     ddp_klev_rec.estimated_oec := rosetta_g_miss_num_map(p6_a7);
13695     ddp_klev_rec.lao_amount := rosetta_g_miss_num_map(p6_a8);
13696     ddp_klev_rec.title_date := rosetta_g_miss_date_in_map(p6_a9);
13697     ddp_klev_rec.fee_charge := rosetta_g_miss_num_map(p6_a10);
13698     ddp_klev_rec.lrs_percent := rosetta_g_miss_num_map(p6_a11);
13699     ddp_klev_rec.initial_direct_cost := rosetta_g_miss_num_map(p6_a12);
13700     ddp_klev_rec.percent_stake := rosetta_g_miss_num_map(p6_a13);
13701     ddp_klev_rec.percent := rosetta_g_miss_num_map(p6_a14);
13702     ddp_klev_rec.evergreen_percent := rosetta_g_miss_num_map(p6_a15);
13703     ddp_klev_rec.amount_stake := rosetta_g_miss_num_map(p6_a16);
13704     ddp_klev_rec.occupancy := rosetta_g_miss_num_map(p6_a17);
13705     ddp_klev_rec.coverage := rosetta_g_miss_num_map(p6_a18);
13706     ddp_klev_rec.residual_percentage := rosetta_g_miss_num_map(p6_a19);
13707     ddp_klev_rec.date_last_inspection := rosetta_g_miss_date_in_map(p6_a20);
13708     ddp_klev_rec.date_sold := rosetta_g_miss_date_in_map(p6_a21);
13709     ddp_klev_rec.lrv_amount := rosetta_g_miss_num_map(p6_a22);
13710     ddp_klev_rec.capital_reduction := rosetta_g_miss_num_map(p6_a23);
13711     ddp_klev_rec.date_next_inspection_due := rosetta_g_miss_date_in_map(p6_a24);
13712     ddp_klev_rec.date_residual_last_review := rosetta_g_miss_date_in_map(p6_a25);
13713     ddp_klev_rec.date_last_reamortisation := rosetta_g_miss_date_in_map(p6_a26);
13714     ddp_klev_rec.vendor_advance_paid := rosetta_g_miss_num_map(p6_a27);
13715     ddp_klev_rec.weighted_average_life := rosetta_g_miss_num_map(p6_a28);
13716     ddp_klev_rec.tradein_amount := rosetta_g_miss_num_map(p6_a29);
13717     ddp_klev_rec.bond_equivalent_yield := rosetta_g_miss_num_map(p6_a30);
13718     ddp_klev_rec.termination_purchase_amount := rosetta_g_miss_num_map(p6_a31);
13719     ddp_klev_rec.refinance_amount := rosetta_g_miss_num_map(p6_a32);
13720     ddp_klev_rec.year_built := rosetta_g_miss_num_map(p6_a33);
13721     ddp_klev_rec.delivered_date := rosetta_g_miss_date_in_map(p6_a34);
13722     ddp_klev_rec.credit_tenant_yn := p6_a35;
13723     ddp_klev_rec.date_last_cleanup := rosetta_g_miss_date_in_map(p6_a36);
13724     ddp_klev_rec.year_of_manufacture := p6_a37;
13725     ddp_klev_rec.coverage_ratio := rosetta_g_miss_num_map(p6_a38);
13726     ddp_klev_rec.remarketed_amount := rosetta_g_miss_num_map(p6_a39);
13727     ddp_klev_rec.gross_square_footage := rosetta_g_miss_num_map(p6_a40);
13728     ddp_klev_rec.prescribed_asset_yn := p6_a41;
13729     ddp_klev_rec.date_remarketed := rosetta_g_miss_date_in_map(p6_a42);
13730     ddp_klev_rec.net_rentable := rosetta_g_miss_num_map(p6_a43);
13731     ddp_klev_rec.remarket_margin := rosetta_g_miss_num_map(p6_a44);
13732     ddp_klev_rec.date_letter_acceptance := rosetta_g_miss_date_in_map(p6_a45);
13733     ddp_klev_rec.repurchased_amount := rosetta_g_miss_num_map(p6_a46);
13734     ddp_klev_rec.date_commitment_expiration := rosetta_g_miss_date_in_map(p6_a47);
13735     ddp_klev_rec.date_repurchased := rosetta_g_miss_date_in_map(p6_a48);
13736     ddp_klev_rec.date_appraisal := rosetta_g_miss_date_in_map(p6_a49);
13737     ddp_klev_rec.residual_value := rosetta_g_miss_num_map(p6_a50);
13738     ddp_klev_rec.appraisal_value := rosetta_g_miss_num_map(p6_a51);
13739     ddp_klev_rec.secured_deal_yn := p6_a52;
13740     ddp_klev_rec.gain_loss := rosetta_g_miss_num_map(p6_a53);
13741     ddp_klev_rec.floor_amount := rosetta_g_miss_num_map(p6_a54);
13742     ddp_klev_rec.re_lease_yn := p6_a55;
13743     ddp_klev_rec.previous_contract := p6_a56;
13744     ddp_klev_rec.tracked_residual := rosetta_g_miss_num_map(p6_a57);
13745     ddp_klev_rec.date_title_received := rosetta_g_miss_date_in_map(p6_a58);
13746     ddp_klev_rec.amount := rosetta_g_miss_num_map(p6_a59);
13747     ddp_klev_rec.attribute_category := p6_a60;
13748     ddp_klev_rec.attribute1 := p6_a61;
13749     ddp_klev_rec.attribute2 := p6_a62;
13750     ddp_klev_rec.attribute3 := p6_a63;
13751     ddp_klev_rec.attribute4 := p6_a64;
13752     ddp_klev_rec.attribute5 := p6_a65;
13753     ddp_klev_rec.attribute6 := p6_a66;
13754     ddp_klev_rec.attribute7 := p6_a67;
13755     ddp_klev_rec.attribute8 := p6_a68;
13756     ddp_klev_rec.attribute9 := p6_a69;
13757     ddp_klev_rec.attribute10 := p6_a70;
13758     ddp_klev_rec.attribute11 := p6_a71;
13759     ddp_klev_rec.attribute12 := p6_a72;
13760     ddp_klev_rec.attribute13 := p6_a73;
13761     ddp_klev_rec.attribute14 := p6_a74;
13762     ddp_klev_rec.attribute15 := p6_a75;
13763     ddp_klev_rec.sty_id_for := rosetta_g_miss_num_map(p6_a76);
13764     ddp_klev_rec.clg_id := rosetta_g_miss_num_map(p6_a77);
13765     ddp_klev_rec.created_by := rosetta_g_miss_num_map(p6_a78);
13766     ddp_klev_rec.creation_date := rosetta_g_miss_date_in_map(p6_a79);
13767     ddp_klev_rec.last_updated_by := rosetta_g_miss_num_map(p6_a80);
13768     ddp_klev_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a81);
13769     ddp_klev_rec.last_update_login := rosetta_g_miss_num_map(p6_a82);
13770     ddp_klev_rec.date_funding := rosetta_g_miss_date_in_map(p6_a83);
13771     ddp_klev_rec.date_funding_required := rosetta_g_miss_date_in_map(p6_a84);
13772     ddp_klev_rec.date_accepted := rosetta_g_miss_date_in_map(p6_a85);
13773     ddp_klev_rec.date_delivery_expected := rosetta_g_miss_date_in_map(p6_a86);
13774     ddp_klev_rec.oec := rosetta_g_miss_num_map(p6_a87);
13775     ddp_klev_rec.capital_amount := rosetta_g_miss_num_map(p6_a88);
13776     ddp_klev_rec.residual_grnty_amount := rosetta_g_miss_num_map(p6_a89);
13777     ddp_klev_rec.residual_code := p6_a90;
13778     ddp_klev_rec.rvi_premium := rosetta_g_miss_num_map(p6_a91);
13779     ddp_klev_rec.credit_nature := p6_a92;
13780     ddp_klev_rec.capitalized_interest := rosetta_g_miss_num_map(p6_a93);
13781     ddp_klev_rec.capital_reduction_percent := rosetta_g_miss_num_map(p6_a94);
13782     ddp_klev_rec.date_pay_investor_start := rosetta_g_miss_date_in_map(p6_a95);
13783     ddp_klev_rec.pay_investor_frequency := p6_a96;
13784     ddp_klev_rec.pay_investor_event := p6_a97;
13785     ddp_klev_rec.pay_investor_remittance_days := rosetta_g_miss_num_map(p6_a98);
13786 
13787     -- here's the delegated call to the old PL/SQL routine
13788     okl_contract_pvt.validate_contract_line(p_api_version,
13789       p_init_msg_list,
13790       x_return_status,
13791       x_msg_count,
13792       x_msg_data,
13793       ddp_clev_rec,
13794       ddp_klev_rec);
13795 
13796     -- copy data back from the local variables to OUT or IN-OUT args, if any
13797 
13798 
13799 
13800 
13801 
13802 
13803   end;
13804 
13805   procedure validate_contract_line(p_api_version  NUMBER
13806     , p_init_msg_list  VARCHAR2
13807     , x_return_status out nocopy  VARCHAR2
13808     , x_msg_count out nocopy  NUMBER
13809     , x_msg_data out nocopy  VARCHAR2
13810     , p5_a0 JTF_NUMBER_TABLE
13811     , p5_a1 JTF_NUMBER_TABLE
13812     , p5_a2 JTF_VARCHAR2_TABLE_100
13813     , p5_a3 JTF_NUMBER_TABLE
13814     , p5_a4 JTF_NUMBER_TABLE
13815     , p5_a5 JTF_NUMBER_TABLE
13816     , p5_a6 JTF_NUMBER_TABLE
13817     , p5_a7 JTF_NUMBER_TABLE
13818     , p5_a8 JTF_VARCHAR2_TABLE_200
13819     , p5_a9 JTF_VARCHAR2_TABLE_100
13820     , p5_a10 JTF_NUMBER_TABLE
13821     , p5_a11 JTF_VARCHAR2_TABLE_100
13822     , p5_a12 JTF_NUMBER_TABLE
13823     , p5_a13 JTF_VARCHAR2_TABLE_2000
13824     , p5_a14 JTF_VARCHAR2_TABLE_2000
13825     , p5_a15 JTF_VARCHAR2_TABLE_2000
13826     , p5_a16 JTF_VARCHAR2_TABLE_300
13827     , p5_a17 JTF_VARCHAR2_TABLE_100
13828     , p5_a18 JTF_NUMBER_TABLE
13829     , p5_a19 JTF_NUMBER_TABLE
13830     , p5_a20 JTF_NUMBER_TABLE
13831     , p5_a21 JTF_NUMBER_TABLE
13832     , p5_a22 JTF_VARCHAR2_TABLE_100
13833     , p5_a23 JTF_VARCHAR2_TABLE_100
13834     , p5_a24 JTF_VARCHAR2_TABLE_100
13835     , p5_a25 JTF_VARCHAR2_TABLE_2000
13836     , p5_a26 JTF_VARCHAR2_TABLE_100
13837     , p5_a27 JTF_VARCHAR2_TABLE_200
13838     , p5_a28 JTF_DATE_TABLE
13839     , p5_a29 JTF_VARCHAR2_TABLE_200
13840     , p5_a30 JTF_DATE_TABLE
13841     , p5_a31 JTF_DATE_TABLE
13842     , p5_a32 JTF_DATE_TABLE
13843     , p5_a33 JTF_VARCHAR2_TABLE_100
13844     , p5_a34 JTF_NUMBER_TABLE
13845     , p5_a35 JTF_VARCHAR2_TABLE_100
13846     , p5_a36 JTF_NUMBER_TABLE
13847     , p5_a37 JTF_VARCHAR2_TABLE_100
13848     , p5_a38 JTF_VARCHAR2_TABLE_100
13849     , p5_a39 JTF_VARCHAR2_TABLE_500
13850     , p5_a40 JTF_VARCHAR2_TABLE_500
13851     , p5_a41 JTF_VARCHAR2_TABLE_500
13852     , p5_a42 JTF_VARCHAR2_TABLE_500
13853     , p5_a43 JTF_VARCHAR2_TABLE_500
13854     , p5_a44 JTF_VARCHAR2_TABLE_500
13855     , p5_a45 JTF_VARCHAR2_TABLE_500
13856     , p5_a46 JTF_VARCHAR2_TABLE_500
13857     , p5_a47 JTF_VARCHAR2_TABLE_500
13858     , p5_a48 JTF_VARCHAR2_TABLE_500
13859     , p5_a49 JTF_VARCHAR2_TABLE_500
13860     , p5_a50 JTF_VARCHAR2_TABLE_500
13861     , p5_a51 JTF_VARCHAR2_TABLE_500
13862     , p5_a52 JTF_VARCHAR2_TABLE_500
13863     , p5_a53 JTF_VARCHAR2_TABLE_500
13864     , p5_a54 JTF_NUMBER_TABLE
13865     , p5_a55 JTF_DATE_TABLE
13866     , p5_a56 JTF_NUMBER_TABLE
13867     , p5_a57 JTF_DATE_TABLE
13868     , p5_a58 JTF_VARCHAR2_TABLE_100
13869     , p5_a59 JTF_VARCHAR2_TABLE_100
13870     , p5_a60 JTF_VARCHAR2_TABLE_100
13871     , p5_a61 JTF_NUMBER_TABLE
13872     , p5_a62 JTF_VARCHAR2_TABLE_100
13873     , p5_a63 JTF_VARCHAR2_TABLE_100
13874     , p5_a64 JTF_VARCHAR2_TABLE_100
13875     , p5_a65 JTF_VARCHAR2_TABLE_100
13876     , p5_a66 JTF_VARCHAR2_TABLE_100
13877     , p5_a67 JTF_NUMBER_TABLE
13878     , p5_a68 JTF_NUMBER_TABLE
13879     , p5_a69 JTF_NUMBER_TABLE
13880     , p5_a70 JTF_DATE_TABLE
13881     , p5_a71 JTF_NUMBER_TABLE
13882     , p5_a72 JTF_DATE_TABLE
13883     , p5_a73 JTF_NUMBER_TABLE
13884     , p5_a74 JTF_NUMBER_TABLE
13885     , p5_a75 JTF_VARCHAR2_TABLE_100
13886     , p5_a76 JTF_VARCHAR2_TABLE_100
13887     , p5_a77 JTF_NUMBER_TABLE
13888     , p5_a78 JTF_NUMBER_TABLE
13889     , p5_a79 JTF_VARCHAR2_TABLE_100
13890     , p5_a80 JTF_VARCHAR2_TABLE_100
13891     , p5_a81 JTF_NUMBER_TABLE
13892     , p5_a82 JTF_VARCHAR2_TABLE_100
13893     , p5_a83 JTF_NUMBER_TABLE
13894     , p5_a84 JTF_NUMBER_TABLE
13895     , p5_a85 JTF_NUMBER_TABLE
13896     , p5_a86 JTF_NUMBER_TABLE
13897     , p5_a87 JTF_VARCHAR2_TABLE_100
13898     , p5_a88 JTF_NUMBER_TABLE
13899     , p5_a89 JTF_NUMBER_TABLE
13900     , p6_a0 JTF_NUMBER_TABLE
13901     , p6_a1 JTF_NUMBER_TABLE
13902     , p6_a2 JTF_NUMBER_TABLE
13903     , p6_a3 JTF_NUMBER_TABLE
13904     , p6_a4 JTF_VARCHAR2_TABLE_100
13905     , p6_a5 JTF_VARCHAR2_TABLE_100
13906     , p6_a6 JTF_VARCHAR2_TABLE_100
13907     , p6_a7 JTF_NUMBER_TABLE
13908     , p6_a8 JTF_NUMBER_TABLE
13909     , p6_a9 JTF_DATE_TABLE
13910     , p6_a10 JTF_NUMBER_TABLE
13911     , p6_a11 JTF_NUMBER_TABLE
13912     , p6_a12 JTF_NUMBER_TABLE
13913     , p6_a13 JTF_NUMBER_TABLE
13914     , p6_a14 JTF_NUMBER_TABLE
13915     , p6_a15 JTF_NUMBER_TABLE
13916     , p6_a16 JTF_NUMBER_TABLE
13917     , p6_a17 JTF_NUMBER_TABLE
13918     , p6_a18 JTF_NUMBER_TABLE
13919     , p6_a19 JTF_NUMBER_TABLE
13920     , p6_a20 JTF_DATE_TABLE
13921     , p6_a21 JTF_DATE_TABLE
13922     , p6_a22 JTF_NUMBER_TABLE
13923     , p6_a23 JTF_NUMBER_TABLE
13924     , p6_a24 JTF_DATE_TABLE
13925     , p6_a25 JTF_DATE_TABLE
13926     , p6_a26 JTF_DATE_TABLE
13927     , p6_a27 JTF_NUMBER_TABLE
13928     , p6_a28 JTF_NUMBER_TABLE
13929     , p6_a29 JTF_NUMBER_TABLE
13930     , p6_a30 JTF_NUMBER_TABLE
13931     , p6_a31 JTF_NUMBER_TABLE
13932     , p6_a32 JTF_NUMBER_TABLE
13933     , p6_a33 JTF_NUMBER_TABLE
13934     , p6_a34 JTF_DATE_TABLE
13935     , p6_a35 JTF_VARCHAR2_TABLE_100
13936     , p6_a36 JTF_DATE_TABLE
13937     , p6_a37 JTF_VARCHAR2_TABLE_300
13938     , p6_a38 JTF_NUMBER_TABLE
13939     , p6_a39 JTF_NUMBER_TABLE
13940     , p6_a40 JTF_NUMBER_TABLE
13941     , p6_a41 JTF_VARCHAR2_TABLE_100
13942     , p6_a42 JTF_DATE_TABLE
13943     , p6_a43 JTF_NUMBER_TABLE
13944     , p6_a44 JTF_NUMBER_TABLE
13945     , p6_a45 JTF_DATE_TABLE
13946     , p6_a46 JTF_NUMBER_TABLE
13947     , p6_a47 JTF_DATE_TABLE
13948     , p6_a48 JTF_DATE_TABLE
13949     , p6_a49 JTF_DATE_TABLE
13950     , p6_a50 JTF_NUMBER_TABLE
13951     , p6_a51 JTF_NUMBER_TABLE
13952     , p6_a52 JTF_VARCHAR2_TABLE_100
13953     , p6_a53 JTF_NUMBER_TABLE
13954     , p6_a54 JTF_NUMBER_TABLE
13955     , p6_a55 JTF_VARCHAR2_TABLE_100
13956     , p6_a56 JTF_VARCHAR2_TABLE_100
13957     , p6_a57 JTF_NUMBER_TABLE
13958     , p6_a58 JTF_DATE_TABLE
13959     , p6_a59 JTF_NUMBER_TABLE
13960     , p6_a60 JTF_VARCHAR2_TABLE_100
13961     , p6_a61 JTF_VARCHAR2_TABLE_500
13962     , p6_a62 JTF_VARCHAR2_TABLE_500
13963     , p6_a63 JTF_VARCHAR2_TABLE_500
13964     , p6_a64 JTF_VARCHAR2_TABLE_500
13965     , p6_a65 JTF_VARCHAR2_TABLE_500
13966     , p6_a66 JTF_VARCHAR2_TABLE_500
13967     , p6_a67 JTF_VARCHAR2_TABLE_500
13968     , p6_a68 JTF_VARCHAR2_TABLE_500
13969     , p6_a69 JTF_VARCHAR2_TABLE_500
13970     , p6_a70 JTF_VARCHAR2_TABLE_500
13971     , p6_a71 JTF_VARCHAR2_TABLE_500
13972     , p6_a72 JTF_VARCHAR2_TABLE_500
13973     , p6_a73 JTF_VARCHAR2_TABLE_500
13974     , p6_a74 JTF_VARCHAR2_TABLE_500
13975     , p6_a75 JTF_VARCHAR2_TABLE_500
13976     , p6_a76 JTF_NUMBER_TABLE
13977     , p6_a77 JTF_NUMBER_TABLE
13978     , p6_a78 JTF_NUMBER_TABLE
13979     , p6_a79 JTF_DATE_TABLE
13980     , p6_a80 JTF_NUMBER_TABLE
13981     , p6_a81 JTF_DATE_TABLE
13982     , p6_a82 JTF_NUMBER_TABLE
13983     , p6_a83 JTF_DATE_TABLE
13984     , p6_a84 JTF_DATE_TABLE
13985     , p6_a85 JTF_DATE_TABLE
13986     , p6_a86 JTF_DATE_TABLE
13987     , p6_a87 JTF_NUMBER_TABLE
13988     , p6_a88 JTF_NUMBER_TABLE
13989     , p6_a89 JTF_NUMBER_TABLE
13990     , p6_a90 JTF_VARCHAR2_TABLE_100
13991     , p6_a91 JTF_NUMBER_TABLE
13992     , p6_a92 JTF_VARCHAR2_TABLE_100
13993     , p6_a93 JTF_NUMBER_TABLE
13994     , p6_a94 JTF_NUMBER_TABLE
13995     , p6_a95 JTF_DATE_TABLE
13996     , p6_a96 JTF_VARCHAR2_TABLE_100
13997     , p6_a97 JTF_VARCHAR2_TABLE_100
13998     , p6_a98 JTF_NUMBER_TABLE
13999   )
14000 
14001   as
14002     ddp_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
14003     ddp_klev_tbl okl_contract_pvt.klev_tbl_type;
14004     ddindx binary_integer; indx binary_integer;
14005   begin
14006 
14007     -- copy data to the local IN or IN-OUT args, if any
14008 
14009 
14010 
14011 
14012 
14013     okl_okc_migration_pvt_w.rosetta_table_copy_in_p5(ddp_clev_tbl, p5_a0
14014       , p5_a1
14015       , p5_a2
14016       , p5_a3
14017       , p5_a4
14018       , p5_a5
14019       , p5_a6
14020       , p5_a7
14021       , p5_a8
14022       , p5_a9
14023       , p5_a10
14024       , p5_a11
14025       , p5_a12
14026       , p5_a13
14027       , p5_a14
14028       , p5_a15
14029       , p5_a16
14030       , p5_a17
14031       , p5_a18
14032       , p5_a19
14033       , p5_a20
14034       , p5_a21
14035       , p5_a22
14036       , p5_a23
14037       , p5_a24
14038       , p5_a25
14039       , p5_a26
14040       , p5_a27
14041       , p5_a28
14042       , p5_a29
14043       , p5_a30
14044       , p5_a31
14045       , p5_a32
14046       , p5_a33
14047       , p5_a34
14048       , p5_a35
14049       , p5_a36
14050       , p5_a37
14051       , p5_a38
14052       , p5_a39
14053       , p5_a40
14054       , p5_a41
14055       , p5_a42
14056       , p5_a43
14057       , p5_a44
14058       , p5_a45
14059       , p5_a46
14060       , p5_a47
14061       , p5_a48
14062       , p5_a49
14063       , p5_a50
14064       , p5_a51
14065       , p5_a52
14066       , p5_a53
14067       , p5_a54
14068       , p5_a55
14069       , p5_a56
14070       , p5_a57
14071       , p5_a58
14072       , p5_a59
14073       , p5_a60
14074       , p5_a61
14075       , p5_a62
14076       , p5_a63
14077       , p5_a64
14078       , p5_a65
14079       , p5_a66
14080       , p5_a67
14081       , p5_a68
14082       , p5_a69
14083       , p5_a70
14084       , p5_a71
14085       , p5_a72
14086       , p5_a73
14087       , p5_a74
14088       , p5_a75
14089       , p5_a76
14090       , p5_a77
14091       , p5_a78
14092       , p5_a79
14093       , p5_a80
14094       , p5_a81
14095       , p5_a82
14096       , p5_a83
14097       , p5_a84
14098       , p5_a85
14099       , p5_a86
14100       , p5_a87
14101       , p5_a88
14102       , p5_a89
14103       );
14104 
14105     okl_kle_pvt_w.rosetta_table_copy_in_p8(ddp_klev_tbl, p6_a0
14106       , p6_a1
14107       , p6_a2
14108       , p6_a3
14109       , p6_a4
14110       , p6_a5
14111       , p6_a6
14112       , p6_a7
14113       , p6_a8
14114       , p6_a9
14115       , p6_a10
14116       , p6_a11
14117       , p6_a12
14118       , p6_a13
14119       , p6_a14
14120       , p6_a15
14121       , p6_a16
14122       , p6_a17
14123       , p6_a18
14124       , p6_a19
14125       , p6_a20
14126       , p6_a21
14127       , p6_a22
14128       , p6_a23
14129       , p6_a24
14130       , p6_a25
14131       , p6_a26
14132       , p6_a27
14133       , p6_a28
14134       , p6_a29
14135       , p6_a30
14136       , p6_a31
14137       , p6_a32
14138       , p6_a33
14139       , p6_a34
14140       , p6_a35
14141       , p6_a36
14142       , p6_a37
14143       , p6_a38
14144       , p6_a39
14145       , p6_a40
14146       , p6_a41
14147       , p6_a42
14148       , p6_a43
14149       , p6_a44
14150       , p6_a45
14151       , p6_a46
14152       , p6_a47
14153       , p6_a48
14154       , p6_a49
14155       , p6_a50
14156       , p6_a51
14157       , p6_a52
14158       , p6_a53
14159       , p6_a54
14160       , p6_a55
14161       , p6_a56
14162       , p6_a57
14163       , p6_a58
14164       , p6_a59
14165       , p6_a60
14166       , p6_a61
14167       , p6_a62
14168       , p6_a63
14169       , p6_a64
14170       , p6_a65
14171       , p6_a66
14172       , p6_a67
14173       , p6_a68
14174       , p6_a69
14175       , p6_a70
14176       , p6_a71
14177       , p6_a72
14178       , p6_a73
14179       , p6_a74
14180       , p6_a75
14181       , p6_a76
14182       , p6_a77
14183       , p6_a78
14184       , p6_a79
14185       , p6_a80
14186       , p6_a81
14187       , p6_a82
14188       , p6_a83
14189       , p6_a84
14190       , p6_a85
14191       , p6_a86
14192       , p6_a87
14193       , p6_a88
14194       , p6_a89
14195       , p6_a90
14196       , p6_a91
14197       , p6_a92
14198       , p6_a93
14199       , p6_a94
14200       , p6_a95
14201       , p6_a96
14202       , p6_a97
14203       , p6_a98
14204       );
14205 
14206     -- here's the delegated call to the old PL/SQL routine
14207     okl_contract_pvt.validate_contract_line(p_api_version,
14208       p_init_msg_list,
14209       x_return_status,
14210       x_msg_count,
14211       x_msg_data,
14212       ddp_clev_tbl,
14213       ddp_klev_tbl);
14214 
14215     -- copy data back from the local variables to OUT or IN-OUT args, if any
14216 
14217 
14218 
14219 
14220 
14221 
14222   end;
14223 
14224   procedure create_governance(p_api_version  NUMBER
14225     , p_init_msg_list  VARCHAR2
14226     , x_return_status out nocopy  VARCHAR2
14227     , x_msg_count out nocopy  NUMBER
14228     , x_msg_data out nocopy  VARCHAR2
14229     , p6_a0 out nocopy  NUMBER
14230     , p6_a1 out nocopy  NUMBER
14231     , p6_a2 out nocopy  NUMBER
14232     , p6_a3 out nocopy  NUMBER
14233     , p6_a4 out nocopy  NUMBER
14234     , p6_a5 out nocopy  NUMBER
14235     , p6_a6 out nocopy  NUMBER
14236     , p6_a7 out nocopy  NUMBER
14237     , p6_a8 out nocopy  VARCHAR2
14238     , p6_a9 out nocopy  NUMBER
14239     , p6_a10 out nocopy  DATE
14240     , p6_a11 out nocopy  NUMBER
14241     , p6_a12 out nocopy  DATE
14242     , p6_a13 out nocopy  NUMBER
14243     , p5_a0  NUMBER := 0-1962.0724
14244     , p5_a1  NUMBER := 0-1962.0724
14245     , p5_a2  NUMBER := 0-1962.0724
14246     , p5_a3  NUMBER := 0-1962.0724
14247     , p5_a4  NUMBER := 0-1962.0724
14248     , p5_a5  NUMBER := 0-1962.0724
14249     , p5_a6  NUMBER := 0-1962.0724
14250     , p5_a7  NUMBER := 0-1962.0724
14251     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
14252     , p5_a9  NUMBER := 0-1962.0724
14253     , p5_a10  DATE := fnd_api.g_miss_date
14254     , p5_a11  NUMBER := 0-1962.0724
14255     , p5_a12  DATE := fnd_api.g_miss_date
14256     , p5_a13  NUMBER := 0-1962.0724
14257   )
14258 
14259   as
14260     ddp_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
14261     ddx_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
14262     ddindx binary_integer; indx binary_integer;
14263   begin
14264 
14265     -- copy data to the local IN or IN-OUT args, if any
14266 
14267 
14268 
14269 
14270 
14271     ddp_gvev_rec.id := rosetta_g_miss_num_map(p5_a0);
14272     ddp_gvev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a1);
14273     ddp_gvev_rec.isa_agreement_id := rosetta_g_miss_num_map(p5_a2);
14274     ddp_gvev_rec.object_version_number := rosetta_g_miss_num_map(p5_a3);
14275     ddp_gvev_rec.chr_id := rosetta_g_miss_num_map(p5_a4);
14276     ddp_gvev_rec.cle_id := rosetta_g_miss_num_map(p5_a5);
14277     ddp_gvev_rec.chr_id_referred := rosetta_g_miss_num_map(p5_a6);
14278     ddp_gvev_rec.cle_id_referred := rosetta_g_miss_num_map(p5_a7);
14279     ddp_gvev_rec.copied_only_yn := p5_a8;
14280     ddp_gvev_rec.created_by := rosetta_g_miss_num_map(p5_a9);
14281     ddp_gvev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
14282     ddp_gvev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
14283     ddp_gvev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
14284     ddp_gvev_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
14285 
14286 
14287     -- here's the delegated call to the old PL/SQL routine
14288     okl_contract_pvt.create_governance(p_api_version,
14289       p_init_msg_list,
14290       x_return_status,
14291       x_msg_count,
14292       x_msg_data,
14293       ddp_gvev_rec,
14294       ddx_gvev_rec);
14295 
14296     -- copy data back from the local variables to OUT or IN-OUT args, if any
14297 
14298 
14299 
14300 
14301 
14302 
14303     p6_a0 := rosetta_g_miss_num_map(ddx_gvev_rec.id);
14304     p6_a1 := rosetta_g_miss_num_map(ddx_gvev_rec.dnz_chr_id);
14305     p6_a2 := rosetta_g_miss_num_map(ddx_gvev_rec.isa_agreement_id);
14306     p6_a3 := rosetta_g_miss_num_map(ddx_gvev_rec.object_version_number);
14307     p6_a4 := rosetta_g_miss_num_map(ddx_gvev_rec.chr_id);
14308     p6_a5 := rosetta_g_miss_num_map(ddx_gvev_rec.cle_id);
14309     p6_a6 := rosetta_g_miss_num_map(ddx_gvev_rec.chr_id_referred);
14310     p6_a7 := rosetta_g_miss_num_map(ddx_gvev_rec.cle_id_referred);
14311     p6_a8 := ddx_gvev_rec.copied_only_yn;
14312     p6_a9 := rosetta_g_miss_num_map(ddx_gvev_rec.created_by);
14313     p6_a10 := ddx_gvev_rec.creation_date;
14314     p6_a11 := rosetta_g_miss_num_map(ddx_gvev_rec.last_updated_by);
14315     p6_a12 := ddx_gvev_rec.last_update_date;
14316     p6_a13 := rosetta_g_miss_num_map(ddx_gvev_rec.last_update_login);
14317   end;
14318 
14319   procedure create_governance(p_api_version  NUMBER
14320     , p_init_msg_list  VARCHAR2
14321     , x_return_status out nocopy  VARCHAR2
14322     , x_msg_count out nocopy  NUMBER
14323     , x_msg_data out nocopy  VARCHAR2
14324     , p5_a0 JTF_NUMBER_TABLE
14325     , p5_a1 JTF_NUMBER_TABLE
14326     , p5_a2 JTF_NUMBER_TABLE
14327     , p5_a3 JTF_NUMBER_TABLE
14328     , p5_a4 JTF_NUMBER_TABLE
14329     , p5_a5 JTF_NUMBER_TABLE
14330     , p5_a6 JTF_NUMBER_TABLE
14331     , p5_a7 JTF_NUMBER_TABLE
14332     , p5_a8 JTF_VARCHAR2_TABLE_100
14333     , p5_a9 JTF_NUMBER_TABLE
14334     , p5_a10 JTF_DATE_TABLE
14335     , p5_a11 JTF_NUMBER_TABLE
14336     , p5_a12 JTF_DATE_TABLE
14337     , p5_a13 JTF_NUMBER_TABLE
14338     , p6_a0 out nocopy JTF_NUMBER_TABLE
14339     , p6_a1 out nocopy JTF_NUMBER_TABLE
14340     , p6_a2 out nocopy JTF_NUMBER_TABLE
14341     , p6_a3 out nocopy JTF_NUMBER_TABLE
14342     , p6_a4 out nocopy JTF_NUMBER_TABLE
14343     , p6_a5 out nocopy JTF_NUMBER_TABLE
14344     , p6_a6 out nocopy JTF_NUMBER_TABLE
14345     , p6_a7 out nocopy JTF_NUMBER_TABLE
14346     , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
14347     , p6_a9 out nocopy JTF_NUMBER_TABLE
14348     , p6_a10 out nocopy JTF_DATE_TABLE
14349     , p6_a11 out nocopy JTF_NUMBER_TABLE
14350     , p6_a12 out nocopy JTF_DATE_TABLE
14351     , p6_a13 out nocopy JTF_NUMBER_TABLE
14352   )
14353 
14354   as
14355     ddp_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type;
14356     ddx_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type;
14357     ddindx binary_integer; indx binary_integer;
14358   begin
14359 
14360     -- copy data to the local IN or IN-OUT args, if any
14361 
14362 
14363 
14364 
14365 
14366     okl_okc_migration_pvt_w.rosetta_table_copy_in_p11(ddp_gvev_tbl, p5_a0
14367       , p5_a1
14368       , p5_a2
14369       , p5_a3
14370       , p5_a4
14371       , p5_a5
14372       , p5_a6
14373       , p5_a7
14374       , p5_a8
14375       , p5_a9
14376       , p5_a10
14377       , p5_a11
14378       , p5_a12
14379       , p5_a13
14380       );
14381 
14382 
14383     -- here's the delegated call to the old PL/SQL routine
14384     okl_contract_pvt.create_governance(p_api_version,
14385       p_init_msg_list,
14386       x_return_status,
14387       x_msg_count,
14388       x_msg_data,
14389       ddp_gvev_tbl,
14390       ddx_gvev_tbl);
14391 
14392     -- copy data back from the local variables to OUT or IN-OUT args, if any
14393 
14394 
14395 
14396 
14397 
14398 
14399     okl_okc_migration_pvt_w.rosetta_table_copy_out_p11(ddx_gvev_tbl, p6_a0
14400       , p6_a1
14401       , p6_a2
14402       , p6_a3
14403       , p6_a4
14404       , p6_a5
14405       , p6_a6
14406       , p6_a7
14407       , p6_a8
14408       , p6_a9
14409       , p6_a10
14410       , p6_a11
14411       , p6_a12
14412       , p6_a13
14413       );
14414   end;
14415 
14416   procedure update_governance(p_api_version  NUMBER
14417     , p_init_msg_list  VARCHAR2
14418     , x_return_status out nocopy  VARCHAR2
14419     , x_msg_count out nocopy  NUMBER
14420     , x_msg_data out nocopy  VARCHAR2
14421     , p6_a0 out nocopy  NUMBER
14422     , p6_a1 out nocopy  NUMBER
14423     , p6_a2 out nocopy  NUMBER
14424     , p6_a3 out nocopy  NUMBER
14425     , p6_a4 out nocopy  NUMBER
14426     , p6_a5 out nocopy  NUMBER
14427     , p6_a6 out nocopy  NUMBER
14428     , p6_a7 out nocopy  NUMBER
14429     , p6_a8 out nocopy  VARCHAR2
14430     , p6_a9 out nocopy  NUMBER
14431     , p6_a10 out nocopy  DATE
14432     , p6_a11 out nocopy  NUMBER
14433     , p6_a12 out nocopy  DATE
14434     , p6_a13 out nocopy  NUMBER
14435     , p5_a0  NUMBER := 0-1962.0724
14436     , p5_a1  NUMBER := 0-1962.0724
14437     , p5_a2  NUMBER := 0-1962.0724
14438     , p5_a3  NUMBER := 0-1962.0724
14439     , p5_a4  NUMBER := 0-1962.0724
14440     , p5_a5  NUMBER := 0-1962.0724
14441     , p5_a6  NUMBER := 0-1962.0724
14442     , p5_a7  NUMBER := 0-1962.0724
14443     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
14444     , p5_a9  NUMBER := 0-1962.0724
14445     , p5_a10  DATE := fnd_api.g_miss_date
14446     , p5_a11  NUMBER := 0-1962.0724
14447     , p5_a12  DATE := fnd_api.g_miss_date
14448     , p5_a13  NUMBER := 0-1962.0724
14449   )
14450 
14451   as
14452     ddp_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
14453     ddx_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
14454     ddindx binary_integer; indx binary_integer;
14455   begin
14456 
14457     -- copy data to the local IN or IN-OUT args, if any
14458 
14459 
14460 
14461 
14462 
14463     ddp_gvev_rec.id := rosetta_g_miss_num_map(p5_a0);
14464     ddp_gvev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a1);
14465     ddp_gvev_rec.isa_agreement_id := rosetta_g_miss_num_map(p5_a2);
14466     ddp_gvev_rec.object_version_number := rosetta_g_miss_num_map(p5_a3);
14467     ddp_gvev_rec.chr_id := rosetta_g_miss_num_map(p5_a4);
14468     ddp_gvev_rec.cle_id := rosetta_g_miss_num_map(p5_a5);
14469     ddp_gvev_rec.chr_id_referred := rosetta_g_miss_num_map(p5_a6);
14470     ddp_gvev_rec.cle_id_referred := rosetta_g_miss_num_map(p5_a7);
14471     ddp_gvev_rec.copied_only_yn := p5_a8;
14472     ddp_gvev_rec.created_by := rosetta_g_miss_num_map(p5_a9);
14473     ddp_gvev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
14474     ddp_gvev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
14475     ddp_gvev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
14476     ddp_gvev_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
14477 
14478 
14479     -- here's the delegated call to the old PL/SQL routine
14480     okl_contract_pvt.update_governance(p_api_version,
14481       p_init_msg_list,
14482       x_return_status,
14483       x_msg_count,
14484       x_msg_data,
14485       ddp_gvev_rec,
14486       ddx_gvev_rec);
14487 
14488     -- copy data back from the local variables to OUT or IN-OUT args, if any
14489 
14490 
14491 
14492 
14493 
14494 
14495     p6_a0 := rosetta_g_miss_num_map(ddx_gvev_rec.id);
14496     p6_a1 := rosetta_g_miss_num_map(ddx_gvev_rec.dnz_chr_id);
14497     p6_a2 := rosetta_g_miss_num_map(ddx_gvev_rec.isa_agreement_id);
14498     p6_a3 := rosetta_g_miss_num_map(ddx_gvev_rec.object_version_number);
14499     p6_a4 := rosetta_g_miss_num_map(ddx_gvev_rec.chr_id);
14500     p6_a5 := rosetta_g_miss_num_map(ddx_gvev_rec.cle_id);
14501     p6_a6 := rosetta_g_miss_num_map(ddx_gvev_rec.chr_id_referred);
14502     p6_a7 := rosetta_g_miss_num_map(ddx_gvev_rec.cle_id_referred);
14503     p6_a8 := ddx_gvev_rec.copied_only_yn;
14504     p6_a9 := rosetta_g_miss_num_map(ddx_gvev_rec.created_by);
14505     p6_a10 := ddx_gvev_rec.creation_date;
14506     p6_a11 := rosetta_g_miss_num_map(ddx_gvev_rec.last_updated_by);
14507     p6_a12 := ddx_gvev_rec.last_update_date;
14508     p6_a13 := rosetta_g_miss_num_map(ddx_gvev_rec.last_update_login);
14509   end;
14510 
14511   procedure update_governance(p_api_version  NUMBER
14512     , p_init_msg_list  VARCHAR2
14513     , x_return_status out nocopy  VARCHAR2
14514     , x_msg_count out nocopy  NUMBER
14515     , x_msg_data out nocopy  VARCHAR2
14516     , p5_a0 JTF_NUMBER_TABLE
14517     , p5_a1 JTF_NUMBER_TABLE
14518     , p5_a2 JTF_NUMBER_TABLE
14519     , p5_a3 JTF_NUMBER_TABLE
14520     , p5_a4 JTF_NUMBER_TABLE
14521     , p5_a5 JTF_NUMBER_TABLE
14522     , p5_a6 JTF_NUMBER_TABLE
14523     , p5_a7 JTF_NUMBER_TABLE
14524     , p5_a8 JTF_VARCHAR2_TABLE_100
14525     , p5_a9 JTF_NUMBER_TABLE
14526     , p5_a10 JTF_DATE_TABLE
14527     , p5_a11 JTF_NUMBER_TABLE
14528     , p5_a12 JTF_DATE_TABLE
14529     , p5_a13 JTF_NUMBER_TABLE
14530     , p6_a0 out nocopy JTF_NUMBER_TABLE
14531     , p6_a1 out nocopy JTF_NUMBER_TABLE
14532     , p6_a2 out nocopy JTF_NUMBER_TABLE
14533     , p6_a3 out nocopy JTF_NUMBER_TABLE
14534     , p6_a4 out nocopy JTF_NUMBER_TABLE
14535     , p6_a5 out nocopy JTF_NUMBER_TABLE
14536     , p6_a6 out nocopy JTF_NUMBER_TABLE
14537     , p6_a7 out nocopy JTF_NUMBER_TABLE
14538     , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
14539     , p6_a9 out nocopy JTF_NUMBER_TABLE
14540     , p6_a10 out nocopy JTF_DATE_TABLE
14541     , p6_a11 out nocopy JTF_NUMBER_TABLE
14542     , p6_a12 out nocopy JTF_DATE_TABLE
14543     , p6_a13 out nocopy JTF_NUMBER_TABLE
14544   )
14545 
14546   as
14547     ddp_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type;
14548     ddx_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type;
14549     ddindx binary_integer; indx binary_integer;
14550   begin
14551 
14552     -- copy data to the local IN or IN-OUT args, if any
14553 
14554 
14555 
14556 
14557 
14558     okl_okc_migration_pvt_w.rosetta_table_copy_in_p11(ddp_gvev_tbl, p5_a0
14559       , p5_a1
14560       , p5_a2
14561       , p5_a3
14562       , p5_a4
14563       , p5_a5
14564       , p5_a6
14565       , p5_a7
14566       , p5_a8
14567       , p5_a9
14568       , p5_a10
14569       , p5_a11
14570       , p5_a12
14571       , p5_a13
14572       );
14573 
14574 
14575     -- here's the delegated call to the old PL/SQL routine
14576     okl_contract_pvt.update_governance(p_api_version,
14577       p_init_msg_list,
14578       x_return_status,
14579       x_msg_count,
14580       x_msg_data,
14581       ddp_gvev_tbl,
14582       ddx_gvev_tbl);
14583 
14584     -- copy data back from the local variables to OUT or IN-OUT args, if any
14585 
14586 
14587 
14588 
14589 
14590 
14591     okl_okc_migration_pvt_w.rosetta_table_copy_out_p11(ddx_gvev_tbl, p6_a0
14592       , p6_a1
14593       , p6_a2
14594       , p6_a3
14595       , p6_a4
14596       , p6_a5
14597       , p6_a6
14598       , p6_a7
14599       , p6_a8
14600       , p6_a9
14601       , p6_a10
14602       , p6_a11
14603       , p6_a12
14604       , p6_a13
14605       );
14606   end;
14607 
14608   procedure delete_governance(p_api_version  NUMBER
14609     , p_init_msg_list  VARCHAR2
14610     , x_return_status out nocopy  VARCHAR2
14611     , x_msg_count out nocopy  NUMBER
14612     , x_msg_data out nocopy  VARCHAR2
14613     , p5_a0  NUMBER := 0-1962.0724
14614     , p5_a1  NUMBER := 0-1962.0724
14615     , p5_a2  NUMBER := 0-1962.0724
14616     , p5_a3  NUMBER := 0-1962.0724
14617     , p5_a4  NUMBER := 0-1962.0724
14618     , p5_a5  NUMBER := 0-1962.0724
14619     , p5_a6  NUMBER := 0-1962.0724
14620     , p5_a7  NUMBER := 0-1962.0724
14621     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
14622     , p5_a9  NUMBER := 0-1962.0724
14623     , p5_a10  DATE := fnd_api.g_miss_date
14624     , p5_a11  NUMBER := 0-1962.0724
14625     , p5_a12  DATE := fnd_api.g_miss_date
14626     , p5_a13  NUMBER := 0-1962.0724
14627   )
14628 
14629   as
14630     ddp_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
14631     ddindx binary_integer; indx binary_integer;
14632   begin
14633 
14634     -- copy data to the local IN or IN-OUT args, if any
14635 
14636 
14637 
14638 
14639 
14640     ddp_gvev_rec.id := rosetta_g_miss_num_map(p5_a0);
14641     ddp_gvev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a1);
14642     ddp_gvev_rec.isa_agreement_id := rosetta_g_miss_num_map(p5_a2);
14643     ddp_gvev_rec.object_version_number := rosetta_g_miss_num_map(p5_a3);
14644     ddp_gvev_rec.chr_id := rosetta_g_miss_num_map(p5_a4);
14645     ddp_gvev_rec.cle_id := rosetta_g_miss_num_map(p5_a5);
14646     ddp_gvev_rec.chr_id_referred := rosetta_g_miss_num_map(p5_a6);
14647     ddp_gvev_rec.cle_id_referred := rosetta_g_miss_num_map(p5_a7);
14648     ddp_gvev_rec.copied_only_yn := p5_a8;
14649     ddp_gvev_rec.created_by := rosetta_g_miss_num_map(p5_a9);
14650     ddp_gvev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
14651     ddp_gvev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
14652     ddp_gvev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
14653     ddp_gvev_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
14654 
14655     -- here's the delegated call to the old PL/SQL routine
14656     okl_contract_pvt.delete_governance(p_api_version,
14657       p_init_msg_list,
14658       x_return_status,
14659       x_msg_count,
14660       x_msg_data,
14661       ddp_gvev_rec);
14662 
14663     -- copy data back from the local variables to OUT or IN-OUT args, if any
14664 
14665 
14666 
14667 
14668 
14669   end;
14670 
14671   procedure delete_governance(p_api_version  NUMBER
14672     , p_init_msg_list  VARCHAR2
14673     , x_return_status out nocopy  VARCHAR2
14674     , x_msg_count out nocopy  NUMBER
14675     , x_msg_data out nocopy  VARCHAR2
14676     , p5_a0 JTF_NUMBER_TABLE
14677     , p5_a1 JTF_NUMBER_TABLE
14678     , p5_a2 JTF_NUMBER_TABLE
14679     , p5_a3 JTF_NUMBER_TABLE
14680     , p5_a4 JTF_NUMBER_TABLE
14681     , p5_a5 JTF_NUMBER_TABLE
14682     , p5_a6 JTF_NUMBER_TABLE
14683     , p5_a7 JTF_NUMBER_TABLE
14684     , p5_a8 JTF_VARCHAR2_TABLE_100
14685     , p5_a9 JTF_NUMBER_TABLE
14686     , p5_a10 JTF_DATE_TABLE
14687     , p5_a11 JTF_NUMBER_TABLE
14688     , p5_a12 JTF_DATE_TABLE
14689     , p5_a13 JTF_NUMBER_TABLE
14690   )
14691 
14692   as
14693     ddp_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type;
14694     ddindx binary_integer; indx binary_integer;
14695   begin
14696 
14697     -- copy data to the local IN or IN-OUT args, if any
14698 
14699 
14700 
14701 
14702 
14703     okl_okc_migration_pvt_w.rosetta_table_copy_in_p11(ddp_gvev_tbl, p5_a0
14704       , p5_a1
14705       , p5_a2
14706       , p5_a3
14707       , p5_a4
14708       , p5_a5
14709       , p5_a6
14710       , p5_a7
14711       , p5_a8
14712       , p5_a9
14713       , p5_a10
14714       , p5_a11
14715       , p5_a12
14716       , p5_a13
14717       );
14718 
14719     -- here's the delegated call to the old PL/SQL routine
14720     okl_contract_pvt.delete_governance(p_api_version,
14721       p_init_msg_list,
14722       x_return_status,
14723       x_msg_count,
14724       x_msg_data,
14725       ddp_gvev_tbl);
14726 
14727     -- copy data back from the local variables to OUT or IN-OUT args, if any
14728 
14729 
14730 
14731 
14732 
14733   end;
14734 
14735   procedure lock_governance(p_api_version  NUMBER
14736     , p_init_msg_list  VARCHAR2
14737     , x_return_status out nocopy  VARCHAR2
14738     , x_msg_count out nocopy  NUMBER
14739     , x_msg_data out nocopy  VARCHAR2
14740     , p5_a0  NUMBER := 0-1962.0724
14741     , p5_a1  NUMBER := 0-1962.0724
14742     , p5_a2  NUMBER := 0-1962.0724
14743     , p5_a3  NUMBER := 0-1962.0724
14744     , p5_a4  NUMBER := 0-1962.0724
14745     , p5_a5  NUMBER := 0-1962.0724
14746     , p5_a6  NUMBER := 0-1962.0724
14747     , p5_a7  NUMBER := 0-1962.0724
14748     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
14749     , p5_a9  NUMBER := 0-1962.0724
14750     , p5_a10  DATE := fnd_api.g_miss_date
14751     , p5_a11  NUMBER := 0-1962.0724
14752     , p5_a12  DATE := fnd_api.g_miss_date
14753     , p5_a13  NUMBER := 0-1962.0724
14754   )
14755 
14756   as
14757     ddp_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
14758     ddindx binary_integer; indx binary_integer;
14759   begin
14760 
14761     -- copy data to the local IN or IN-OUT args, if any
14762 
14763 
14764 
14765 
14766 
14767     ddp_gvev_rec.id := rosetta_g_miss_num_map(p5_a0);
14768     ddp_gvev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a1);
14769     ddp_gvev_rec.isa_agreement_id := rosetta_g_miss_num_map(p5_a2);
14770     ddp_gvev_rec.object_version_number := rosetta_g_miss_num_map(p5_a3);
14771     ddp_gvev_rec.chr_id := rosetta_g_miss_num_map(p5_a4);
14772     ddp_gvev_rec.cle_id := rosetta_g_miss_num_map(p5_a5);
14773     ddp_gvev_rec.chr_id_referred := rosetta_g_miss_num_map(p5_a6);
14774     ddp_gvev_rec.cle_id_referred := rosetta_g_miss_num_map(p5_a7);
14775     ddp_gvev_rec.copied_only_yn := p5_a8;
14776     ddp_gvev_rec.created_by := rosetta_g_miss_num_map(p5_a9);
14777     ddp_gvev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
14778     ddp_gvev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
14779     ddp_gvev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
14780     ddp_gvev_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
14781 
14782     -- here's the delegated call to the old PL/SQL routine
14783     okl_contract_pvt.lock_governance(p_api_version,
14784       p_init_msg_list,
14785       x_return_status,
14786       x_msg_count,
14787       x_msg_data,
14788       ddp_gvev_rec);
14789 
14790     -- copy data back from the local variables to OUT or IN-OUT args, if any
14791 
14792 
14793 
14794 
14795 
14796   end;
14797 
14798   procedure lock_governance(p_api_version  NUMBER
14799     , p_init_msg_list  VARCHAR2
14800     , x_return_status out nocopy  VARCHAR2
14801     , x_msg_count out nocopy  NUMBER
14802     , x_msg_data out nocopy  VARCHAR2
14803     , p5_a0 JTF_NUMBER_TABLE
14804     , p5_a1 JTF_NUMBER_TABLE
14805     , p5_a2 JTF_NUMBER_TABLE
14806     , p5_a3 JTF_NUMBER_TABLE
14807     , p5_a4 JTF_NUMBER_TABLE
14808     , p5_a5 JTF_NUMBER_TABLE
14809     , p5_a6 JTF_NUMBER_TABLE
14810     , p5_a7 JTF_NUMBER_TABLE
14811     , p5_a8 JTF_VARCHAR2_TABLE_100
14812     , p5_a9 JTF_NUMBER_TABLE
14813     , p5_a10 JTF_DATE_TABLE
14814     , p5_a11 JTF_NUMBER_TABLE
14815     , p5_a12 JTF_DATE_TABLE
14816     , p5_a13 JTF_NUMBER_TABLE
14817   )
14818 
14819   as
14820     ddp_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type;
14821     ddindx binary_integer; indx binary_integer;
14822   begin
14823 
14824     -- copy data to the local IN or IN-OUT args, if any
14825 
14826 
14827 
14828 
14829 
14830     okl_okc_migration_pvt_w.rosetta_table_copy_in_p11(ddp_gvev_tbl, p5_a0
14831       , p5_a1
14832       , p5_a2
14833       , p5_a3
14834       , p5_a4
14835       , p5_a5
14836       , p5_a6
14837       , p5_a7
14838       , p5_a8
14839       , p5_a9
14840       , p5_a10
14841       , p5_a11
14842       , p5_a12
14843       , p5_a13
14844       );
14845 
14846     -- here's the delegated call to the old PL/SQL routine
14847     okl_contract_pvt.lock_governance(p_api_version,
14848       p_init_msg_list,
14849       x_return_status,
14850       x_msg_count,
14851       x_msg_data,
14852       ddp_gvev_tbl);
14853 
14854     -- copy data back from the local variables to OUT or IN-OUT args, if any
14855 
14856 
14857 
14858 
14859 
14860   end;
14861 
14862   procedure validate_governance(p_api_version  NUMBER
14863     , p_init_msg_list  VARCHAR2
14864     , x_return_status out nocopy  VARCHAR2
14865     , x_msg_count out nocopy  NUMBER
14866     , x_msg_data out nocopy  VARCHAR2
14867     , p5_a0  NUMBER := 0-1962.0724
14868     , p5_a1  NUMBER := 0-1962.0724
14869     , p5_a2  NUMBER := 0-1962.0724
14870     , p5_a3  NUMBER := 0-1962.0724
14871     , p5_a4  NUMBER := 0-1962.0724
14872     , p5_a5  NUMBER := 0-1962.0724
14873     , p5_a6  NUMBER := 0-1962.0724
14874     , p5_a7  NUMBER := 0-1962.0724
14875     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
14876     , p5_a9  NUMBER := 0-1962.0724
14877     , p5_a10  DATE := fnd_api.g_miss_date
14878     , p5_a11  NUMBER := 0-1962.0724
14879     , p5_a12  DATE := fnd_api.g_miss_date
14880     , p5_a13  NUMBER := 0-1962.0724
14881   )
14882 
14883   as
14884     ddp_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
14885     ddindx binary_integer; indx binary_integer;
14886   begin
14887 
14888     -- copy data to the local IN or IN-OUT args, if any
14889 
14890 
14891 
14892 
14893 
14894     ddp_gvev_rec.id := rosetta_g_miss_num_map(p5_a0);
14895     ddp_gvev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a1);
14896     ddp_gvev_rec.isa_agreement_id := rosetta_g_miss_num_map(p5_a2);
14897     ddp_gvev_rec.object_version_number := rosetta_g_miss_num_map(p5_a3);
14898     ddp_gvev_rec.chr_id := rosetta_g_miss_num_map(p5_a4);
14899     ddp_gvev_rec.cle_id := rosetta_g_miss_num_map(p5_a5);
14900     ddp_gvev_rec.chr_id_referred := rosetta_g_miss_num_map(p5_a6);
14901     ddp_gvev_rec.cle_id_referred := rosetta_g_miss_num_map(p5_a7);
14902     ddp_gvev_rec.copied_only_yn := p5_a8;
14903     ddp_gvev_rec.created_by := rosetta_g_miss_num_map(p5_a9);
14904     ddp_gvev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
14905     ddp_gvev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
14906     ddp_gvev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
14907     ddp_gvev_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
14908 
14909     -- here's the delegated call to the old PL/SQL routine
14910     okl_contract_pvt.validate_governance(p_api_version,
14911       p_init_msg_list,
14912       x_return_status,
14913       x_msg_count,
14914       x_msg_data,
14915       ddp_gvev_rec);
14916 
14917     -- copy data back from the local variables to OUT or IN-OUT args, if any
14918 
14919 
14920 
14921 
14922 
14923   end;
14924 
14925   procedure validate_governance(p_api_version  NUMBER
14926     , p_init_msg_list  VARCHAR2
14927     , x_return_status out nocopy  VARCHAR2
14928     , x_msg_count out nocopy  NUMBER
14929     , x_msg_data out nocopy  VARCHAR2
14930     , p5_a0 JTF_NUMBER_TABLE
14931     , p5_a1 JTF_NUMBER_TABLE
14932     , p5_a2 JTF_NUMBER_TABLE
14933     , p5_a3 JTF_NUMBER_TABLE
14934     , p5_a4 JTF_NUMBER_TABLE
14935     , p5_a5 JTF_NUMBER_TABLE
14936     , p5_a6 JTF_NUMBER_TABLE
14937     , p5_a7 JTF_NUMBER_TABLE
14938     , p5_a8 JTF_VARCHAR2_TABLE_100
14939     , p5_a9 JTF_NUMBER_TABLE
14940     , p5_a10 JTF_DATE_TABLE
14941     , p5_a11 JTF_NUMBER_TABLE
14942     , p5_a12 JTF_DATE_TABLE
14943     , p5_a13 JTF_NUMBER_TABLE
14944   )
14945 
14946   as
14947     ddp_gvev_tbl okl_okc_migration_pvt.gvev_tbl_type;
14948     ddindx binary_integer; indx binary_integer;
14949   begin
14950 
14951     -- copy data to the local IN or IN-OUT args, if any
14952 
14953 
14954 
14955 
14956 
14957     okl_okc_migration_pvt_w.rosetta_table_copy_in_p11(ddp_gvev_tbl, p5_a0
14958       , p5_a1
14959       , p5_a2
14960       , p5_a3
14961       , p5_a4
14962       , p5_a5
14963       , p5_a6
14964       , p5_a7
14965       , p5_a8
14966       , p5_a9
14967       , p5_a10
14968       , p5_a11
14969       , p5_a12
14970       , p5_a13
14971       );
14972 
14973     -- here's the delegated call to the old PL/SQL routine
14974     okl_contract_pvt.validate_governance(p_api_version,
14975       p_init_msg_list,
14976       x_return_status,
14977       x_msg_count,
14978       x_msg_data,
14979       ddp_gvev_tbl);
14980 
14981     -- copy data back from the local variables to OUT or IN-OUT args, if any
14982 
14983 
14984 
14985 
14986 
14987   end;
14988 
14989   procedure get_contract_header_info(p_api_version  NUMBER
14990     , p_init_msg_list  VARCHAR2
14991     , x_return_status out nocopy  VARCHAR2
14992     , x_msg_count out nocopy  NUMBER
14993     , x_msg_data out nocopy  VARCHAR2
14994     , p_chr_id  NUMBER
14995     , p_chr_id_old  NUMBER
14996     , p_orgid  NUMBER
14997     , p_custid  NUMBER
14998     , p_invorgid  NUMBER
14999     , p_oldokl_status  VARCHAR2
15000     , p_oldokc_status  VARCHAR2
15001     , x_hdr_tbl out nocopy JTF_VARCHAR2_TABLE_300
15002   )
15003 
15004   as
15005     ddx_hdr_tbl okl_contract_pvt.hdr_tbl_type;
15006     ddindx binary_integer; indx binary_integer;
15007   begin
15008 
15009     -- copy data to the local IN or IN-OUT args, if any
15010 
15011 
15012 
15013 
15014 
15015 
15016 
15017 
15018 
15019 
15020 
15021 
15022 
15023     -- here's the delegated call to the old PL/SQL routine
15024     okl_contract_pvt.get_contract_header_info(p_api_version,
15025       p_init_msg_list,
15026       x_return_status,
15027       x_msg_count,
15028       x_msg_data,
15029       p_chr_id,
15030       p_chr_id_old,
15031       p_orgid,
15032       p_custid,
15033       p_invorgid,
15034       p_oldokl_status,
15035       p_oldokc_status,
15036       ddx_hdr_tbl);
15037 
15038     -- copy data back from the local variables to OUT or IN-OUT args, if any
15039 
15040 
15041 
15042 
15043 
15044 
15045 
15046 
15047 
15048 
15049 
15050 
15051     okl_contract_pvt_w.rosetta_table_copy_out_p4(ddx_hdr_tbl, x_hdr_tbl);
15052   end;
15053 
15054 end okl_contract_pvt_w;