DBA Data[Home] [Help]

PACKAGE BODY: APPS.OKL_CONTRACT_PUB_W

Source


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