DBA Data[Home] [Help]

PACKAGE BODY: APPS.OKL_TRX_CONTRACTS_PUB_W

Source


1 package body okl_trx_contracts_pub_w as
2   /* $Header: OKLUTCNB.pls 120.9.12010000.6 2008/11/12 23:53:29 apaul ship $ */
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   rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6   rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7 
8   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9   function rosetta_g_miss_date_in_map(d date) return date as
10   begin
11     if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12     if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13     return d;
14   end;
15 
16   function rosetta_g_miss_num_map(n number) return number as
17     a number := fnd_api.g_miss_num;
18     b number := 0-1962.0724;
19   begin
20     if n=a then return b; end if;
21     if n=b then return a; end if;
22     return n;
23   end;
24 
25   procedure create_trx_contracts(p_api_version  NUMBER
26     , p_init_msg_list  VARCHAR2
27     , x_return_status out nocopy  VARCHAR2
28     , x_msg_count out nocopy  NUMBER
29     , x_msg_data out nocopy  VARCHAR2
30     , p6_a0 JTF_NUMBER_TABLE
31     , p6_a1 JTF_NUMBER_TABLE
32     , p6_a2 JTF_NUMBER_TABLE
33     , p6_a3 JTF_NUMBER_TABLE
34     , p6_a4 JTF_NUMBER_TABLE
35     , p6_a5 JTF_NUMBER_TABLE
36     , p6_a6 JTF_NUMBER_TABLE
37     , p6_a7 JTF_NUMBER_TABLE
38     , p6_a8 JTF_VARCHAR2_TABLE_100
39     , p6_a9 JTF_NUMBER_TABLE
40     , p6_a10 JTF_VARCHAR2_TABLE_2000
41     , p6_a11 JTF_NUMBER_TABLE
42     , p6_a12 JTF_VARCHAR2_TABLE_200
43     , p6_a13 JTF_VARCHAR2_TABLE_100
44     , p6_a14 JTF_VARCHAR2_TABLE_100
45     , p6_a15 JTF_VARCHAR2_TABLE_500
46     , p6_a16 JTF_VARCHAR2_TABLE_500
47     , p6_a17 JTF_VARCHAR2_TABLE_500
48     , p6_a18 JTF_VARCHAR2_TABLE_500
49     , p6_a19 JTF_VARCHAR2_TABLE_500
50     , p6_a20 JTF_VARCHAR2_TABLE_500
51     , p6_a21 JTF_VARCHAR2_TABLE_500
52     , p6_a22 JTF_VARCHAR2_TABLE_500
53     , p6_a23 JTF_VARCHAR2_TABLE_500
54     , p6_a24 JTF_VARCHAR2_TABLE_500
55     , p6_a25 JTF_VARCHAR2_TABLE_500
56     , p6_a26 JTF_VARCHAR2_TABLE_500
57     , p6_a27 JTF_VARCHAR2_TABLE_500
58     , p6_a28 JTF_VARCHAR2_TABLE_500
59     , p6_a29 JTF_VARCHAR2_TABLE_500
60     , p6_a30 JTF_VARCHAR2_TABLE_100
61     , p6_a31 JTF_NUMBER_TABLE
62     , p6_a32 JTF_DATE_TABLE
63     , p6_a33 JTF_NUMBER_TABLE
64     , p6_a34 JTF_DATE_TABLE
65     , p6_a35 JTF_NUMBER_TABLE
66     , p6_a36 JTF_NUMBER_TABLE
67     , p6_a37 JTF_NUMBER_TABLE
68     , p6_a38 JTF_NUMBER_TABLE
69     , p6_a39 JTF_DATE_TABLE
70     , p6_a40 JTF_NUMBER_TABLE
71     , p6_a41 JTF_NUMBER_TABLE
72     , p6_a42 JTF_NUMBER_TABLE
73     , p6_a43 JTF_NUMBER_TABLE
74     , p6_a44 JTF_NUMBER_TABLE
75     , p6_a45 JTF_VARCHAR2_TABLE_100
76     , p6_a46 JTF_VARCHAR2_TABLE_200
77     , p6_a47 JTF_NUMBER_TABLE
78     , p6_a48 JTF_VARCHAR2_TABLE_200
79     , p6_a49 JTF_NUMBER_TABLE
80     , p6_a50 JTF_VARCHAR2_TABLE_200
81     , p6_a51 JTF_NUMBER_TABLE
82     , p6_a52 JTF_DATE_TABLE
83     , p6_a53 JTF_NUMBER_TABLE
84     , p6_a54 JTF_VARCHAR2_TABLE_200
85     , p6_a55 JTF_VARCHAR2_TABLE_300
86     , p6_a56 JTF_VARCHAR2_TABLE_100
87     , p6_a57 JTF_VARCHAR2_TABLE_100
88     , p7_a0 out nocopy  NUMBER
89     , p7_a1 out nocopy  NUMBER
90     , p7_a2 out nocopy  VARCHAR2
91     , p7_a3 out nocopy  VARCHAR2
92     , p7_a4 out nocopy  VARCHAR2
93     , p7_a5 out nocopy  VARCHAR2
94     , p7_a6 out nocopy  NUMBER
95     , p7_a7 out nocopy  NUMBER
96     , p7_a8 out nocopy  NUMBER
97     , p7_a9 out nocopy  NUMBER
98     , p7_a10 out nocopy  NUMBER
99     , p7_a11 out nocopy  NUMBER
100     , p7_a12 out nocopy  VARCHAR2
101     , p7_a13 out nocopy  VARCHAR2
102     , p7_a14 out nocopy  DATE
103     , p7_a15 out nocopy  VARCHAR2
104     , p7_a16 out nocopy  VARCHAR2
105     , p7_a17 out nocopy  NUMBER
106     , p7_a18 out nocopy  VARCHAR2
107     , p7_a19 out nocopy  VARCHAR2
108     , p7_a20 out nocopy  VARCHAR2
109     , p7_a21 out nocopy  VARCHAR2
110     , p7_a22 out nocopy  VARCHAR2
111     , p7_a23 out nocopy  VARCHAR2
112     , p7_a24 out nocopy  VARCHAR2
113     , p7_a25 out nocopy  VARCHAR2
114     , p7_a26 out nocopy  VARCHAR2
115     , p7_a27 out nocopy  VARCHAR2
116     , p7_a28 out nocopy  VARCHAR2
117     , p7_a29 out nocopy  VARCHAR2
118     , p7_a30 out nocopy  VARCHAR2
119     , p7_a31 out nocopy  VARCHAR2
120     , p7_a32 out nocopy  VARCHAR2
121     , p7_a33 out nocopy  VARCHAR2
122     , p7_a34 out nocopy  VARCHAR2
123     , p7_a35 out nocopy  VARCHAR2
124     , p7_a36 out nocopy  VARCHAR2
125     , p7_a37 out nocopy  NUMBER
126     , p7_a38 out nocopy  VARCHAR2
127     , p7_a39 out nocopy  NUMBER
128     , p7_a40 out nocopy  VARCHAR2
129     , p7_a41 out nocopy  VARCHAR2
130     , p7_a42 out nocopy  NUMBER
131     , p7_a43 out nocopy  NUMBER
132     , p7_a44 out nocopy  NUMBER
133     , p7_a45 out nocopy  NUMBER
134     , p7_a46 out nocopy  NUMBER
135     , p7_a47 out nocopy  NUMBER
136     , p7_a48 out nocopy  DATE
137     , p7_a49 out nocopy  NUMBER
138     , p7_a50 out nocopy  DATE
139     , p7_a51 out nocopy  NUMBER
140     , p7_a52 out nocopy  DATE
141     , p7_a53 out nocopy  NUMBER
142     , p7_a54 out nocopy  NUMBER
143     , p7_a55 out nocopy  VARCHAR2
144     , p7_a56 out nocopy  NUMBER
145     , p7_a57 out nocopy  VARCHAR2
146     , p7_a58 out nocopy  DATE
147     , p7_a59 out nocopy  VARCHAR2
148     , p7_a60 out nocopy  VARCHAR2
149     , p7_a61 out nocopy  VARCHAR2
150     , p7_a62 out nocopy  VARCHAR2
151     , p7_a63 out nocopy  VARCHAR2
152     , p7_a64 out nocopy  VARCHAR2
153     , p7_a65 out nocopy  VARCHAR2
154     , p7_a66 out nocopy  VARCHAR2
155     , p7_a67 out nocopy  VARCHAR2
156     , p7_a68 out nocopy  VARCHAR2
157     , p7_a69 out nocopy  VARCHAR2
158     , p7_a70 out nocopy  VARCHAR2
159     , p7_a71 out nocopy  VARCHAR2
160     , p7_a72 out nocopy  VARCHAR2
161     , p7_a73 out nocopy  VARCHAR2
162     , p7_a74 out nocopy  VARCHAR2
163     , p7_a75 out nocopy  VARCHAR2
164     , p7_a76 out nocopy  VARCHAR2
165     , p7_a77 out nocopy  NUMBER
166     , p7_a78 out nocopy  DATE
167     , p7_a79 out nocopy  NUMBER
168     , p7_a80 out nocopy  NUMBER
169     , p7_a81 out nocopy  VARCHAR2
170     , p7_a82 out nocopy  DATE
171     , p7_a83 out nocopy  NUMBER
172     , p7_a84 out nocopy  DATE
173     , p7_a85 out nocopy  VARCHAR2
174     , p7_a86 out nocopy  VARCHAR2
175     , p7_a87 out nocopy  VARCHAR2
176     , p7_a88 out nocopy  VARCHAR2
177     , p7_a89 out nocopy  VARCHAR2
178     , p7_a90 out nocopy  VARCHAR2
179     , p7_a91 out nocopy  VARCHAR2
180     , p7_a92 out nocopy  VARCHAR2
181     , p7_a93 out nocopy  DATE
182     , p8_a0 out nocopy JTF_NUMBER_TABLE
183     , p8_a1 out nocopy JTF_NUMBER_TABLE
184     , p8_a2 out nocopy JTF_NUMBER_TABLE
185     , p8_a3 out nocopy JTF_NUMBER_TABLE
186     , p8_a4 out nocopy JTF_NUMBER_TABLE
187     , p8_a5 out nocopy JTF_NUMBER_TABLE
188     , p8_a6 out nocopy JTF_NUMBER_TABLE
189     , p8_a7 out nocopy JTF_NUMBER_TABLE
190     , p8_a8 out nocopy JTF_VARCHAR2_TABLE_100
191     , p8_a9 out nocopy JTF_NUMBER_TABLE
192     , p8_a10 out nocopy JTF_VARCHAR2_TABLE_2000
193     , p8_a11 out nocopy JTF_NUMBER_TABLE
194     , p8_a12 out nocopy JTF_VARCHAR2_TABLE_200
195     , p8_a13 out nocopy JTF_VARCHAR2_TABLE_100
196     , p8_a14 out nocopy JTF_VARCHAR2_TABLE_100
197     , p8_a15 out nocopy JTF_VARCHAR2_TABLE_500
198     , p8_a16 out nocopy JTF_VARCHAR2_TABLE_500
199     , p8_a17 out nocopy JTF_VARCHAR2_TABLE_500
200     , p8_a18 out nocopy JTF_VARCHAR2_TABLE_500
201     , p8_a19 out nocopy JTF_VARCHAR2_TABLE_500
202     , p8_a20 out nocopy JTF_VARCHAR2_TABLE_500
203     , p8_a21 out nocopy JTF_VARCHAR2_TABLE_500
204     , p8_a22 out nocopy JTF_VARCHAR2_TABLE_500
205     , p8_a23 out nocopy JTF_VARCHAR2_TABLE_500
206     , p8_a24 out nocopy JTF_VARCHAR2_TABLE_500
207     , p8_a25 out nocopy JTF_VARCHAR2_TABLE_500
208     , p8_a26 out nocopy JTF_VARCHAR2_TABLE_500
209     , p8_a27 out nocopy JTF_VARCHAR2_TABLE_500
210     , p8_a28 out nocopy JTF_VARCHAR2_TABLE_500
211     , p8_a29 out nocopy JTF_VARCHAR2_TABLE_500
212     , p8_a30 out nocopy JTF_VARCHAR2_TABLE_100
213     , p8_a31 out nocopy JTF_NUMBER_TABLE
214     , p8_a32 out nocopy JTF_DATE_TABLE
215     , p8_a33 out nocopy JTF_NUMBER_TABLE
216     , p8_a34 out nocopy JTF_DATE_TABLE
217     , p8_a35 out nocopy JTF_NUMBER_TABLE
218     , p8_a36 out nocopy JTF_NUMBER_TABLE
219     , p8_a37 out nocopy JTF_NUMBER_TABLE
220     , p8_a38 out nocopy JTF_NUMBER_TABLE
221     , p8_a39 out nocopy JTF_DATE_TABLE
222     , p8_a40 out nocopy JTF_NUMBER_TABLE
223     , p8_a41 out nocopy JTF_NUMBER_TABLE
224     , p8_a42 out nocopy JTF_NUMBER_TABLE
225     , p8_a43 out nocopy JTF_NUMBER_TABLE
226     , p8_a44 out nocopy JTF_NUMBER_TABLE
227     , p8_a45 out nocopy JTF_VARCHAR2_TABLE_100
228     , p8_a46 out nocopy JTF_VARCHAR2_TABLE_200
229     , p8_a47 out nocopy JTF_NUMBER_TABLE
230     , p8_a48 out nocopy JTF_VARCHAR2_TABLE_200
231     , p8_a49 out nocopy JTF_NUMBER_TABLE
232     , p8_a50 out nocopy JTF_VARCHAR2_TABLE_200
233     , p8_a51 out nocopy JTF_NUMBER_TABLE
234     , p8_a52 out nocopy JTF_DATE_TABLE
235     , p8_a53 out nocopy JTF_NUMBER_TABLE
236     , p8_a54 out nocopy JTF_VARCHAR2_TABLE_200
237     , p8_a55 out nocopy JTF_VARCHAR2_TABLE_300
238     , p8_a56 out nocopy JTF_VARCHAR2_TABLE_100
239     , p8_a57 out nocopy JTF_VARCHAR2_TABLE_100
240     , p5_a0  NUMBER := 0-1962.0724
241     , p5_a1  NUMBER := 0-1962.0724
242     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
243     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
244     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
245     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
246     , p5_a6  NUMBER := 0-1962.0724
247     , p5_a7  NUMBER := 0-1962.0724
248     , p5_a8  NUMBER := 0-1962.0724
249     , p5_a9  NUMBER := 0-1962.0724
250     , p5_a10  NUMBER := 0-1962.0724
251     , p5_a11  NUMBER := 0-1962.0724
252     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
253     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
254     , p5_a14  DATE := fnd_api.g_miss_date
255     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
256     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
257     , p5_a17  NUMBER := 0-1962.0724
258     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
259     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
260     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
261     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
262     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
263     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
264     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
265     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
266     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
267     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
268     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
269     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
270     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
271     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
272     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
273     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
274     , p5_a34  VARCHAR2 := fnd_api.g_miss_char
275     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
276     , p5_a36  VARCHAR2 := fnd_api.g_miss_char
277     , p5_a37  NUMBER := 0-1962.0724
278     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
279     , p5_a39  NUMBER := 0-1962.0724
280     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
281     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
282     , p5_a42  NUMBER := 0-1962.0724
283     , p5_a43  NUMBER := 0-1962.0724
284     , p5_a44  NUMBER := 0-1962.0724
285     , p5_a45  NUMBER := 0-1962.0724
286     , p5_a46  NUMBER := 0-1962.0724
287     , p5_a47  NUMBER := 0-1962.0724
288     , p5_a48  DATE := fnd_api.g_miss_date
289     , p5_a49  NUMBER := 0-1962.0724
290     , p5_a50  DATE := fnd_api.g_miss_date
291     , p5_a51  NUMBER := 0-1962.0724
292     , p5_a52  DATE := fnd_api.g_miss_date
293     , p5_a53  NUMBER := 0-1962.0724
294     , p5_a54  NUMBER := 0-1962.0724
295     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
296     , p5_a56  NUMBER := 0-1962.0724
297     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
298     , p5_a58  DATE := fnd_api.g_miss_date
299     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
300     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
301     , p5_a61  VARCHAR2 := fnd_api.g_miss_char
302     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
303     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
304     , p5_a64  VARCHAR2 := fnd_api.g_miss_char
305     , p5_a65  VARCHAR2 := fnd_api.g_miss_char
306     , p5_a66  VARCHAR2 := fnd_api.g_miss_char
307     , p5_a67  VARCHAR2 := fnd_api.g_miss_char
308     , p5_a68  VARCHAR2 := fnd_api.g_miss_char
309     , p5_a69  VARCHAR2 := fnd_api.g_miss_char
310     , p5_a70  VARCHAR2 := fnd_api.g_miss_char
311     , p5_a71  VARCHAR2 := fnd_api.g_miss_char
312     , p5_a72  VARCHAR2 := fnd_api.g_miss_char
313     , p5_a73  VARCHAR2 := fnd_api.g_miss_char
314     , p5_a74  VARCHAR2 := fnd_api.g_miss_char
315     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
316     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
317     , p5_a77  NUMBER := 0-1962.0724
318     , p5_a78  DATE := fnd_api.g_miss_date
319     , p5_a79  NUMBER := 0-1962.0724
320     , p5_a80  NUMBER := 0-1962.0724
321     , p5_a81  VARCHAR2 := fnd_api.g_miss_char
322     , p5_a82  DATE := fnd_api.g_miss_date
323     , p5_a83  NUMBER := 0-1962.0724
324     , p5_a84  DATE := fnd_api.g_miss_date
325     , p5_a85  VARCHAR2 := fnd_api.g_miss_char
326     , p5_a86  VARCHAR2 := fnd_api.g_miss_char
327     , p5_a87  VARCHAR2 := fnd_api.g_miss_char
328     , p5_a88  VARCHAR2 := fnd_api.g_miss_char
329     , p5_a89  VARCHAR2 := fnd_api.g_miss_char
330     , p5_a90  VARCHAR2 := fnd_api.g_miss_char
331     , p5_a91  VARCHAR2 := fnd_api.g_miss_char
332     , p5_a92  VARCHAR2 := fnd_api.g_miss_char
333     , p5_a93  DATE := fnd_api.g_miss_date
334   )
335 
336   as
337     ddp_tcnv_rec okl_trx_contracts_pub.tcnv_rec_type;
338     ddp_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
339     ddx_tcnv_rec okl_trx_contracts_pub.tcnv_rec_type;
340     ddx_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
341     ddindx binary_integer; indx binary_integer;
342   begin
343 
344     -- copy data to the local IN or IN-OUT args, if any
345 
346 
347 
348 
349 
350     ddp_tcnv_rec.id := rosetta_g_miss_num_map(p5_a0);
351     ddp_tcnv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
352     ddp_tcnv_rec.rbr_code := p5_a2;
353     ddp_tcnv_rec.rpy_code := p5_a3;
354     ddp_tcnv_rec.rvn_code := p5_a4;
355     ddp_tcnv_rec.trn_code := p5_a5;
356     ddp_tcnv_rec.khr_id_new := rosetta_g_miss_num_map(p5_a6);
357     ddp_tcnv_rec.pvn_id := rosetta_g_miss_num_map(p5_a7);
358     ddp_tcnv_rec.pdt_id := rosetta_g_miss_num_map(p5_a8);
359     ddp_tcnv_rec.qte_id := rosetta_g_miss_num_map(p5_a9);
360     ddp_tcnv_rec.aes_id := rosetta_g_miss_num_map(p5_a10);
361     ddp_tcnv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a11);
362     ddp_tcnv_rec.tax_deductible_local := p5_a12;
363     ddp_tcnv_rec.tax_deductible_corporate := p5_a13;
364     ddp_tcnv_rec.date_accrual := rosetta_g_miss_date_in_map(p5_a14);
365     ddp_tcnv_rec.accrual_status_yn := p5_a15;
366     ddp_tcnv_rec.update_status_yn := p5_a16;
367     ddp_tcnv_rec.amount := rosetta_g_miss_num_map(p5_a17);
368     ddp_tcnv_rec.currency_code := p5_a18;
369     ddp_tcnv_rec.attribute_category := p5_a19;
370     ddp_tcnv_rec.attribute1 := p5_a20;
371     ddp_tcnv_rec.attribute2 := p5_a21;
372     ddp_tcnv_rec.attribute3 := p5_a22;
373     ddp_tcnv_rec.attribute4 := p5_a23;
374     ddp_tcnv_rec.attribute5 := p5_a24;
375     ddp_tcnv_rec.attribute6 := p5_a25;
376     ddp_tcnv_rec.attribute7 := p5_a26;
377     ddp_tcnv_rec.attribute8 := p5_a27;
378     ddp_tcnv_rec.attribute9 := p5_a28;
379     ddp_tcnv_rec.attribute10 := p5_a29;
380     ddp_tcnv_rec.attribute11 := p5_a30;
381     ddp_tcnv_rec.attribute12 := p5_a31;
382     ddp_tcnv_rec.attribute13 := p5_a32;
383     ddp_tcnv_rec.attribute14 := p5_a33;
384     ddp_tcnv_rec.attribute15 := p5_a34;
385     ddp_tcnv_rec.tcn_type := p5_a35;
386     ddp_tcnv_rec.rjn_code := p5_a36;
387     ddp_tcnv_rec.party_rel_id1_old := rosetta_g_miss_num_map(p5_a37);
388     ddp_tcnv_rec.party_rel_id2_old := p5_a38;
389     ddp_tcnv_rec.party_rel_id1_new := rosetta_g_miss_num_map(p5_a39);
390     ddp_tcnv_rec.party_rel_id2_new := p5_a40;
391     ddp_tcnv_rec.complete_transfer_yn := p5_a41;
392     ddp_tcnv_rec.org_id := rosetta_g_miss_num_map(p5_a42);
393     ddp_tcnv_rec.khr_id := rosetta_g_miss_num_map(p5_a43);
394     ddp_tcnv_rec.request_id := rosetta_g_miss_num_map(p5_a44);
395     ddp_tcnv_rec.program_application_id := rosetta_g_miss_num_map(p5_a45);
396     ddp_tcnv_rec.khr_id_old := rosetta_g_miss_num_map(p5_a46);
397     ddp_tcnv_rec.program_id := rosetta_g_miss_num_map(p5_a47);
398     ddp_tcnv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a48);
399     ddp_tcnv_rec.created_by := rosetta_g_miss_num_map(p5_a49);
400     ddp_tcnv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a50);
401     ddp_tcnv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a51);
402     ddp_tcnv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a52);
403     ddp_tcnv_rec.last_update_login := rosetta_g_miss_num_map(p5_a53);
404     ddp_tcnv_rec.try_id := rosetta_g_miss_num_map(p5_a54);
405     ddp_tcnv_rec.tsu_code := p5_a55;
406     ddp_tcnv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a56);
407     ddp_tcnv_rec.description := p5_a57;
408     ddp_tcnv_rec.date_transaction_occurred := rosetta_g_miss_date_in_map(p5_a58);
409     ddp_tcnv_rec.trx_number := p5_a59;
410     ddp_tcnv_rec.tmt_evergreen_yn := p5_a60;
411     ddp_tcnv_rec.tmt_close_balances_yn := p5_a61;
412     ddp_tcnv_rec.tmt_accounting_entries_yn := p5_a62;
413     ddp_tcnv_rec.tmt_cancel_insurance_yn := p5_a63;
414     ddp_tcnv_rec.tmt_asset_disposition_yn := p5_a64;
415     ddp_tcnv_rec.tmt_amortization_yn := p5_a65;
416     ddp_tcnv_rec.tmt_asset_return_yn := p5_a66;
417     ddp_tcnv_rec.tmt_contract_updated_yn := p5_a67;
418     ddp_tcnv_rec.tmt_recycle_yn := p5_a68;
419     ddp_tcnv_rec.tmt_validated_yn := p5_a69;
420     ddp_tcnv_rec.tmt_streams_updated_yn := p5_a70;
421     ddp_tcnv_rec.accrual_activity := p5_a71;
422     ddp_tcnv_rec.tmt_split_asset_yn := p5_a72;
423     ddp_tcnv_rec.tmt_generic_flag1_yn := p5_a73;
424     ddp_tcnv_rec.tmt_generic_flag2_yn := p5_a74;
425     ddp_tcnv_rec.tmt_generic_flag3_yn := p5_a75;
426     ddp_tcnv_rec.currency_conversion_type := p5_a76;
427     ddp_tcnv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a77);
428     ddp_tcnv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a78);
429     ddp_tcnv_rec.chr_id := rosetta_g_miss_num_map(p5_a79);
430     ddp_tcnv_rec.source_trx_id := rosetta_g_miss_num_map(p5_a80);
431     ddp_tcnv_rec.source_trx_type := p5_a81;
432     ddp_tcnv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a82);
433     ddp_tcnv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a83);
434     ddp_tcnv_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p5_a84);
435     ddp_tcnv_rec.accounting_reversal_yn := p5_a85;
436     ddp_tcnv_rec.product_name := p5_a86;
437     ddp_tcnv_rec.book_classification_code := p5_a87;
438     ddp_tcnv_rec.tax_owner_code := p5_a88;
439     ddp_tcnv_rec.tmt_status_code := p5_a89;
440     ddp_tcnv_rec.representation_name := p5_a90;
441     ddp_tcnv_rec.representation_code := p5_a91;
442     ddp_tcnv_rec.upgrade_status_flag := p5_a92;
443     ddp_tcnv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a93);
444 
445     okl_tcl_pvt_w.rosetta_table_copy_in_p5(ddp_tclv_tbl, p6_a0
446       , p6_a1
447       , p6_a2
448       , p6_a3
449       , p6_a4
450       , p6_a5
451       , p6_a6
452       , p6_a7
453       , p6_a8
454       , p6_a9
455       , p6_a10
456       , p6_a11
457       , p6_a12
458       , p6_a13
459       , p6_a14
460       , p6_a15
461       , p6_a16
462       , p6_a17
463       , p6_a18
464       , p6_a19
465       , p6_a20
466       , p6_a21
467       , p6_a22
468       , p6_a23
469       , p6_a24
470       , p6_a25
471       , p6_a26
472       , p6_a27
473       , p6_a28
474       , p6_a29
475       , p6_a30
476       , p6_a31
477       , p6_a32
478       , p6_a33
479       , p6_a34
480       , p6_a35
481       , p6_a36
482       , p6_a37
483       , p6_a38
484       , p6_a39
485       , p6_a40
486       , p6_a41
487       , p6_a42
488       , p6_a43
489       , p6_a44
490       , p6_a45
491       , p6_a46
492       , p6_a47
493       , p6_a48
494       , p6_a49
495       , p6_a50
496       , p6_a51
497       , p6_a52
498       , p6_a53
499       , p6_a54
500       , p6_a55
501       , p6_a56
502       , p6_a57
503       );
504 
505 
506 
507     -- here's the delegated call to the old PL/SQL routine
508     okl_trx_contracts_pub.create_trx_contracts(p_api_version,
509       p_init_msg_list,
510       x_return_status,
511       x_msg_count,
512       x_msg_data,
513       ddp_tcnv_rec,
514       ddp_tclv_tbl,
515       ddx_tcnv_rec,
516       ddx_tclv_tbl);
517 
518     -- copy data back from the local variables to OUT or IN-OUT args, if any
519 
520 
521 
522 
523 
524 
525 
526     p7_a0 := rosetta_g_miss_num_map(ddx_tcnv_rec.id);
527     p7_a1 := rosetta_g_miss_num_map(ddx_tcnv_rec.object_version_number);
528     p7_a2 := ddx_tcnv_rec.rbr_code;
529     p7_a3 := ddx_tcnv_rec.rpy_code;
530     p7_a4 := ddx_tcnv_rec.rvn_code;
531     p7_a5 := ddx_tcnv_rec.trn_code;
532     p7_a6 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id_new);
533     p7_a7 := rosetta_g_miss_num_map(ddx_tcnv_rec.pvn_id);
534     p7_a8 := rosetta_g_miss_num_map(ddx_tcnv_rec.pdt_id);
535     p7_a9 := rosetta_g_miss_num_map(ddx_tcnv_rec.qte_id);
536     p7_a10 := rosetta_g_miss_num_map(ddx_tcnv_rec.aes_id);
537     p7_a11 := rosetta_g_miss_num_map(ddx_tcnv_rec.code_combination_id);
538     p7_a12 := ddx_tcnv_rec.tax_deductible_local;
539     p7_a13 := ddx_tcnv_rec.tax_deductible_corporate;
540     p7_a14 := ddx_tcnv_rec.date_accrual;
541     p7_a15 := ddx_tcnv_rec.accrual_status_yn;
542     p7_a16 := ddx_tcnv_rec.update_status_yn;
543     p7_a17 := rosetta_g_miss_num_map(ddx_tcnv_rec.amount);
544     p7_a18 := ddx_tcnv_rec.currency_code;
545     p7_a19 := ddx_tcnv_rec.attribute_category;
546     p7_a20 := ddx_tcnv_rec.attribute1;
547     p7_a21 := ddx_tcnv_rec.attribute2;
548     p7_a22 := ddx_tcnv_rec.attribute3;
549     p7_a23 := ddx_tcnv_rec.attribute4;
550     p7_a24 := ddx_tcnv_rec.attribute5;
551     p7_a25 := ddx_tcnv_rec.attribute6;
552     p7_a26 := ddx_tcnv_rec.attribute7;
553     p7_a27 := ddx_tcnv_rec.attribute8;
554     p7_a28 := ddx_tcnv_rec.attribute9;
555     p7_a29 := ddx_tcnv_rec.attribute10;
556     p7_a30 := ddx_tcnv_rec.attribute11;
557     p7_a31 := ddx_tcnv_rec.attribute12;
558     p7_a32 := ddx_tcnv_rec.attribute13;
559     p7_a33 := ddx_tcnv_rec.attribute14;
560     p7_a34 := ddx_tcnv_rec.attribute15;
561     p7_a35 := ddx_tcnv_rec.tcn_type;
562     p7_a36 := ddx_tcnv_rec.rjn_code;
563     p7_a37 := rosetta_g_miss_num_map(ddx_tcnv_rec.party_rel_id1_old);
564     p7_a38 := ddx_tcnv_rec.party_rel_id2_old;
565     p7_a39 := rosetta_g_miss_num_map(ddx_tcnv_rec.party_rel_id1_new);
566     p7_a40 := ddx_tcnv_rec.party_rel_id2_new;
567     p7_a41 := ddx_tcnv_rec.complete_transfer_yn;
568     p7_a42 := rosetta_g_miss_num_map(ddx_tcnv_rec.org_id);
569     p7_a43 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id);
570     p7_a44 := rosetta_g_miss_num_map(ddx_tcnv_rec.request_id);
571     p7_a45 := rosetta_g_miss_num_map(ddx_tcnv_rec.program_application_id);
572     p7_a46 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id_old);
573     p7_a47 := rosetta_g_miss_num_map(ddx_tcnv_rec.program_id);
574     p7_a48 := ddx_tcnv_rec.program_update_date;
575     p7_a49 := rosetta_g_miss_num_map(ddx_tcnv_rec.created_by);
576     p7_a50 := ddx_tcnv_rec.creation_date;
577     p7_a51 := rosetta_g_miss_num_map(ddx_tcnv_rec.last_updated_by);
578     p7_a52 := ddx_tcnv_rec.last_update_date;
579     p7_a53 := rosetta_g_miss_num_map(ddx_tcnv_rec.last_update_login);
580     p7_a54 := rosetta_g_miss_num_map(ddx_tcnv_rec.try_id);
581     p7_a55 := ddx_tcnv_rec.tsu_code;
582     p7_a56 := rosetta_g_miss_num_map(ddx_tcnv_rec.set_of_books_id);
583     p7_a57 := ddx_tcnv_rec.description;
584     p7_a58 := ddx_tcnv_rec.date_transaction_occurred;
585     p7_a59 := ddx_tcnv_rec.trx_number;
586     p7_a60 := ddx_tcnv_rec.tmt_evergreen_yn;
587     p7_a61 := ddx_tcnv_rec.tmt_close_balances_yn;
588     p7_a62 := ddx_tcnv_rec.tmt_accounting_entries_yn;
589     p7_a63 := ddx_tcnv_rec.tmt_cancel_insurance_yn;
590     p7_a64 := ddx_tcnv_rec.tmt_asset_disposition_yn;
591     p7_a65 := ddx_tcnv_rec.tmt_amortization_yn;
592     p7_a66 := ddx_tcnv_rec.tmt_asset_return_yn;
593     p7_a67 := ddx_tcnv_rec.tmt_contract_updated_yn;
594     p7_a68 := ddx_tcnv_rec.tmt_recycle_yn;
595     p7_a69 := ddx_tcnv_rec.tmt_validated_yn;
596     p7_a70 := ddx_tcnv_rec.tmt_streams_updated_yn;
597     p7_a71 := ddx_tcnv_rec.accrual_activity;
598     p7_a72 := ddx_tcnv_rec.tmt_split_asset_yn;
599     p7_a73 := ddx_tcnv_rec.tmt_generic_flag1_yn;
600     p7_a74 := ddx_tcnv_rec.tmt_generic_flag2_yn;
601     p7_a75 := ddx_tcnv_rec.tmt_generic_flag3_yn;
602     p7_a76 := ddx_tcnv_rec.currency_conversion_type;
603     p7_a77 := rosetta_g_miss_num_map(ddx_tcnv_rec.currency_conversion_rate);
604     p7_a78 := ddx_tcnv_rec.currency_conversion_date;
605     p7_a79 := rosetta_g_miss_num_map(ddx_tcnv_rec.chr_id);
606     p7_a80 := rosetta_g_miss_num_map(ddx_tcnv_rec.source_trx_id);
607     p7_a81 := ddx_tcnv_rec.source_trx_type;
608     p7_a82 := ddx_tcnv_rec.canceled_date;
609     p7_a83 := rosetta_g_miss_num_map(ddx_tcnv_rec.legal_entity_id);
610     p7_a84 := ddx_tcnv_rec.accrual_reversal_date;
611     p7_a85 := ddx_tcnv_rec.accounting_reversal_yn;
612     p7_a86 := ddx_tcnv_rec.product_name;
613     p7_a87 := ddx_tcnv_rec.book_classification_code;
614     p7_a88 := ddx_tcnv_rec.tax_owner_code;
615     p7_a89 := ddx_tcnv_rec.tmt_status_code;
616     p7_a90 := ddx_tcnv_rec.representation_name;
617     p7_a91 := ddx_tcnv_rec.representation_code;
618     p7_a92 := ddx_tcnv_rec.upgrade_status_flag;
619     p7_a93 := ddx_tcnv_rec.transaction_date;
620 
621     okl_tcl_pvt_w.rosetta_table_copy_out_p5(ddx_tclv_tbl, p8_a0
622       , p8_a1
623       , p8_a2
624       , p8_a3
625       , p8_a4
626       , p8_a5
627       , p8_a6
628       , p8_a7
629       , p8_a8
630       , p8_a9
631       , p8_a10
632       , p8_a11
633       , p8_a12
634       , p8_a13
635       , p8_a14
636       , p8_a15
637       , p8_a16
638       , p8_a17
639       , p8_a18
640       , p8_a19
641       , p8_a20
642       , p8_a21
643       , p8_a22
644       , p8_a23
645       , p8_a24
646       , p8_a25
647       , p8_a26
648       , p8_a27
649       , p8_a28
650       , p8_a29
651       , p8_a30
652       , p8_a31
653       , p8_a32
654       , p8_a33
655       , p8_a34
656       , p8_a35
657       , p8_a36
658       , p8_a37
659       , p8_a38
660       , p8_a39
661       , p8_a40
662       , p8_a41
663       , p8_a42
664       , p8_a43
665       , p8_a44
666       , p8_a45
667       , p8_a46
668       , p8_a47
669       , p8_a48
670       , p8_a49
671       , p8_a50
672       , p8_a51
673       , p8_a52
674       , p8_a53
675       , p8_a54
676       , p8_a55
677       , p8_a56
678       , p8_a57
679       );
680   end;
681 
682   procedure update_trx_contracts(p_api_version  NUMBER
683     , p_init_msg_list  VARCHAR2
684     , x_return_status out nocopy  VARCHAR2
685     , x_msg_count out nocopy  NUMBER
686     , x_msg_data out nocopy  VARCHAR2
687     , p6_a0 JTF_NUMBER_TABLE
688     , p6_a1 JTF_NUMBER_TABLE
689     , p6_a2 JTF_NUMBER_TABLE
690     , p6_a3 JTF_NUMBER_TABLE
691     , p6_a4 JTF_NUMBER_TABLE
692     , p6_a5 JTF_NUMBER_TABLE
693     , p6_a6 JTF_NUMBER_TABLE
694     , p6_a7 JTF_NUMBER_TABLE
695     , p6_a8 JTF_VARCHAR2_TABLE_100
696     , p6_a9 JTF_NUMBER_TABLE
697     , p6_a10 JTF_VARCHAR2_TABLE_2000
698     , p6_a11 JTF_NUMBER_TABLE
699     , p6_a12 JTF_VARCHAR2_TABLE_200
700     , p6_a13 JTF_VARCHAR2_TABLE_100
701     , p6_a14 JTF_VARCHAR2_TABLE_100
702     , p6_a15 JTF_VARCHAR2_TABLE_500
703     , p6_a16 JTF_VARCHAR2_TABLE_500
704     , p6_a17 JTF_VARCHAR2_TABLE_500
705     , p6_a18 JTF_VARCHAR2_TABLE_500
706     , p6_a19 JTF_VARCHAR2_TABLE_500
707     , p6_a20 JTF_VARCHAR2_TABLE_500
708     , p6_a21 JTF_VARCHAR2_TABLE_500
709     , p6_a22 JTF_VARCHAR2_TABLE_500
710     , p6_a23 JTF_VARCHAR2_TABLE_500
711     , p6_a24 JTF_VARCHAR2_TABLE_500
712     , p6_a25 JTF_VARCHAR2_TABLE_500
713     , p6_a26 JTF_VARCHAR2_TABLE_500
714     , p6_a27 JTF_VARCHAR2_TABLE_500
715     , p6_a28 JTF_VARCHAR2_TABLE_500
716     , p6_a29 JTF_VARCHAR2_TABLE_500
717     , p6_a30 JTF_VARCHAR2_TABLE_100
718     , p6_a31 JTF_NUMBER_TABLE
719     , p6_a32 JTF_DATE_TABLE
720     , p6_a33 JTF_NUMBER_TABLE
721     , p6_a34 JTF_DATE_TABLE
722     , p6_a35 JTF_NUMBER_TABLE
723     , p6_a36 JTF_NUMBER_TABLE
724     , p6_a37 JTF_NUMBER_TABLE
725     , p6_a38 JTF_NUMBER_TABLE
726     , p6_a39 JTF_DATE_TABLE
727     , p6_a40 JTF_NUMBER_TABLE
728     , p6_a41 JTF_NUMBER_TABLE
729     , p6_a42 JTF_NUMBER_TABLE
730     , p6_a43 JTF_NUMBER_TABLE
731     , p6_a44 JTF_NUMBER_TABLE
732     , p6_a45 JTF_VARCHAR2_TABLE_100
733     , p6_a46 JTF_VARCHAR2_TABLE_200
734     , p6_a47 JTF_NUMBER_TABLE
735     , p6_a48 JTF_VARCHAR2_TABLE_200
736     , p6_a49 JTF_NUMBER_TABLE
737     , p6_a50 JTF_VARCHAR2_TABLE_200
738     , p6_a51 JTF_NUMBER_TABLE
739     , p6_a52 JTF_DATE_TABLE
740     , p6_a53 JTF_NUMBER_TABLE
741     , p6_a54 JTF_VARCHAR2_TABLE_200
742     , p6_a55 JTF_VARCHAR2_TABLE_300
743     , p6_a56 JTF_VARCHAR2_TABLE_100
744     , p6_a57 JTF_VARCHAR2_TABLE_100
745     , p7_a0 out nocopy  NUMBER
746     , p7_a1 out nocopy  NUMBER
747     , p7_a2 out nocopy  VARCHAR2
748     , p7_a3 out nocopy  VARCHAR2
749     , p7_a4 out nocopy  VARCHAR2
750     , p7_a5 out nocopy  VARCHAR2
751     , p7_a6 out nocopy  NUMBER
752     , p7_a7 out nocopy  NUMBER
753     , p7_a8 out nocopy  NUMBER
754     , p7_a9 out nocopy  NUMBER
755     , p7_a10 out nocopy  NUMBER
756     , p7_a11 out nocopy  NUMBER
757     , p7_a12 out nocopy  VARCHAR2
758     , p7_a13 out nocopy  VARCHAR2
759     , p7_a14 out nocopy  DATE
760     , p7_a15 out nocopy  VARCHAR2
761     , p7_a16 out nocopy  VARCHAR2
762     , p7_a17 out nocopy  NUMBER
763     , p7_a18 out nocopy  VARCHAR2
764     , p7_a19 out nocopy  VARCHAR2
765     , p7_a20 out nocopy  VARCHAR2
766     , p7_a21 out nocopy  VARCHAR2
767     , p7_a22 out nocopy  VARCHAR2
768     , p7_a23 out nocopy  VARCHAR2
769     , p7_a24 out nocopy  VARCHAR2
770     , p7_a25 out nocopy  VARCHAR2
771     , p7_a26 out nocopy  VARCHAR2
772     , p7_a27 out nocopy  VARCHAR2
773     , p7_a28 out nocopy  VARCHAR2
774     , p7_a29 out nocopy  VARCHAR2
775     , p7_a30 out nocopy  VARCHAR2
776     , p7_a31 out nocopy  VARCHAR2
777     , p7_a32 out nocopy  VARCHAR2
778     , p7_a33 out nocopy  VARCHAR2
779     , p7_a34 out nocopy  VARCHAR2
780     , p7_a35 out nocopy  VARCHAR2
781     , p7_a36 out nocopy  VARCHAR2
782     , p7_a37 out nocopy  NUMBER
783     , p7_a38 out nocopy  VARCHAR2
784     , p7_a39 out nocopy  NUMBER
785     , p7_a40 out nocopy  VARCHAR2
786     , p7_a41 out nocopy  VARCHAR2
787     , p7_a42 out nocopy  NUMBER
788     , p7_a43 out nocopy  NUMBER
789     , p7_a44 out nocopy  NUMBER
790     , p7_a45 out nocopy  NUMBER
791     , p7_a46 out nocopy  NUMBER
792     , p7_a47 out nocopy  NUMBER
793     , p7_a48 out nocopy  DATE
794     , p7_a49 out nocopy  NUMBER
795     , p7_a50 out nocopy  DATE
796     , p7_a51 out nocopy  NUMBER
797     , p7_a52 out nocopy  DATE
798     , p7_a53 out nocopy  NUMBER
799     , p7_a54 out nocopy  NUMBER
800     , p7_a55 out nocopy  VARCHAR2
801     , p7_a56 out nocopy  NUMBER
802     , p7_a57 out nocopy  VARCHAR2
803     , p7_a58 out nocopy  DATE
804     , p7_a59 out nocopy  VARCHAR2
805     , p7_a60 out nocopy  VARCHAR2
806     , p7_a61 out nocopy  VARCHAR2
807     , p7_a62 out nocopy  VARCHAR2
808     , p7_a63 out nocopy  VARCHAR2
809     , p7_a64 out nocopy  VARCHAR2
810     , p7_a65 out nocopy  VARCHAR2
811     , p7_a66 out nocopy  VARCHAR2
812     , p7_a67 out nocopy  VARCHAR2
813     , p7_a68 out nocopy  VARCHAR2
814     , p7_a69 out nocopy  VARCHAR2
815     , p7_a70 out nocopy  VARCHAR2
816     , p7_a71 out nocopy  VARCHAR2
817     , p7_a72 out nocopy  VARCHAR2
818     , p7_a73 out nocopy  VARCHAR2
819     , p7_a74 out nocopy  VARCHAR2
820     , p7_a75 out nocopy  VARCHAR2
821     , p7_a76 out nocopy  VARCHAR2
822     , p7_a77 out nocopy  NUMBER
823     , p7_a78 out nocopy  DATE
824     , p7_a79 out nocopy  NUMBER
825     , p7_a80 out nocopy  NUMBER
826     , p7_a81 out nocopy  VARCHAR2
827     , p7_a82 out nocopy  DATE
828     , p7_a83 out nocopy  NUMBER
829     , p7_a84 out nocopy  DATE
830     , p7_a85 out nocopy  VARCHAR2
831     , p7_a86 out nocopy  VARCHAR2
832     , p7_a87 out nocopy  VARCHAR2
833     , p7_a88 out nocopy  VARCHAR2
834     , p7_a89 out nocopy  VARCHAR2
835     , p7_a90 out nocopy  VARCHAR2
836     , p7_a91 out nocopy  VARCHAR2
837     , p7_a92 out nocopy  VARCHAR2
838     , p7_a93 out nocopy  DATE
839     , p8_a0 out nocopy JTF_NUMBER_TABLE
840     , p8_a1 out nocopy JTF_NUMBER_TABLE
841     , p8_a2 out nocopy JTF_NUMBER_TABLE
842     , p8_a3 out nocopy JTF_NUMBER_TABLE
843     , p8_a4 out nocopy JTF_NUMBER_TABLE
844     , p8_a5 out nocopy JTF_NUMBER_TABLE
845     , p8_a6 out nocopy JTF_NUMBER_TABLE
846     , p8_a7 out nocopy JTF_NUMBER_TABLE
847     , p8_a8 out nocopy JTF_VARCHAR2_TABLE_100
848     , p8_a9 out nocopy JTF_NUMBER_TABLE
849     , p8_a10 out nocopy JTF_VARCHAR2_TABLE_2000
850     , p8_a11 out nocopy JTF_NUMBER_TABLE
851     , p8_a12 out nocopy JTF_VARCHAR2_TABLE_200
852     , p8_a13 out nocopy JTF_VARCHAR2_TABLE_100
853     , p8_a14 out nocopy JTF_VARCHAR2_TABLE_100
854     , p8_a15 out nocopy JTF_VARCHAR2_TABLE_500
855     , p8_a16 out nocopy JTF_VARCHAR2_TABLE_500
856     , p8_a17 out nocopy JTF_VARCHAR2_TABLE_500
857     , p8_a18 out nocopy JTF_VARCHAR2_TABLE_500
858     , p8_a19 out nocopy JTF_VARCHAR2_TABLE_500
859     , p8_a20 out nocopy JTF_VARCHAR2_TABLE_500
860     , p8_a21 out nocopy JTF_VARCHAR2_TABLE_500
861     , p8_a22 out nocopy JTF_VARCHAR2_TABLE_500
862     , p8_a23 out nocopy JTF_VARCHAR2_TABLE_500
863     , p8_a24 out nocopy JTF_VARCHAR2_TABLE_500
864     , p8_a25 out nocopy JTF_VARCHAR2_TABLE_500
865     , p8_a26 out nocopy JTF_VARCHAR2_TABLE_500
866     , p8_a27 out nocopy JTF_VARCHAR2_TABLE_500
867     , p8_a28 out nocopy JTF_VARCHAR2_TABLE_500
868     , p8_a29 out nocopy JTF_VARCHAR2_TABLE_500
869     , p8_a30 out nocopy JTF_VARCHAR2_TABLE_100
870     , p8_a31 out nocopy JTF_NUMBER_TABLE
871     , p8_a32 out nocopy JTF_DATE_TABLE
872     , p8_a33 out nocopy JTF_NUMBER_TABLE
873     , p8_a34 out nocopy JTF_DATE_TABLE
874     , p8_a35 out nocopy JTF_NUMBER_TABLE
875     , p8_a36 out nocopy JTF_NUMBER_TABLE
876     , p8_a37 out nocopy JTF_NUMBER_TABLE
877     , p8_a38 out nocopy JTF_NUMBER_TABLE
878     , p8_a39 out nocopy JTF_DATE_TABLE
879     , p8_a40 out nocopy JTF_NUMBER_TABLE
880     , p8_a41 out nocopy JTF_NUMBER_TABLE
881     , p8_a42 out nocopy JTF_NUMBER_TABLE
882     , p8_a43 out nocopy JTF_NUMBER_TABLE
883     , p8_a44 out nocopy JTF_NUMBER_TABLE
884     , p8_a45 out nocopy JTF_VARCHAR2_TABLE_100
885     , p8_a46 out nocopy JTF_VARCHAR2_TABLE_200
886     , p8_a47 out nocopy JTF_NUMBER_TABLE
887     , p8_a48 out nocopy JTF_VARCHAR2_TABLE_200
888     , p8_a49 out nocopy JTF_NUMBER_TABLE
889     , p8_a50 out nocopy JTF_VARCHAR2_TABLE_200
890     , p8_a51 out nocopy JTF_NUMBER_TABLE
891     , p8_a52 out nocopy JTF_DATE_TABLE
892     , p8_a53 out nocopy JTF_NUMBER_TABLE
893     , p8_a54 out nocopy JTF_VARCHAR2_TABLE_200
894     , p8_a55 out nocopy JTF_VARCHAR2_TABLE_300
895     , p8_a56 out nocopy JTF_VARCHAR2_TABLE_100
896     , p8_a57 out nocopy JTF_VARCHAR2_TABLE_100
897     , p5_a0  NUMBER := 0-1962.0724
898     , p5_a1  NUMBER := 0-1962.0724
899     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
900     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
901     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
902     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
903     , p5_a6  NUMBER := 0-1962.0724
904     , p5_a7  NUMBER := 0-1962.0724
905     , p5_a8  NUMBER := 0-1962.0724
906     , p5_a9  NUMBER := 0-1962.0724
907     , p5_a10  NUMBER := 0-1962.0724
908     , p5_a11  NUMBER := 0-1962.0724
909     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
910     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
911     , p5_a14  DATE := fnd_api.g_miss_date
912     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
913     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
914     , p5_a17  NUMBER := 0-1962.0724
915     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
916     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
917     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
918     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
919     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
920     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
921     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
922     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
923     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
924     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
925     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
926     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
927     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
928     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
929     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
930     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
931     , p5_a34  VARCHAR2 := fnd_api.g_miss_char
932     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
933     , p5_a36  VARCHAR2 := fnd_api.g_miss_char
934     , p5_a37  NUMBER := 0-1962.0724
935     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
936     , p5_a39  NUMBER := 0-1962.0724
937     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
938     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
939     , p5_a42  NUMBER := 0-1962.0724
940     , p5_a43  NUMBER := 0-1962.0724
941     , p5_a44  NUMBER := 0-1962.0724
942     , p5_a45  NUMBER := 0-1962.0724
943     , p5_a46  NUMBER := 0-1962.0724
944     , p5_a47  NUMBER := 0-1962.0724
945     , p5_a48  DATE := fnd_api.g_miss_date
946     , p5_a49  NUMBER := 0-1962.0724
947     , p5_a50  DATE := fnd_api.g_miss_date
948     , p5_a51  NUMBER := 0-1962.0724
949     , p5_a52  DATE := fnd_api.g_miss_date
950     , p5_a53  NUMBER := 0-1962.0724
951     , p5_a54  NUMBER := 0-1962.0724
952     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
953     , p5_a56  NUMBER := 0-1962.0724
954     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
955     , p5_a58  DATE := fnd_api.g_miss_date
956     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
957     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
958     , p5_a61  VARCHAR2 := fnd_api.g_miss_char
959     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
960     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
961     , p5_a64  VARCHAR2 := fnd_api.g_miss_char
962     , p5_a65  VARCHAR2 := fnd_api.g_miss_char
963     , p5_a66  VARCHAR2 := fnd_api.g_miss_char
964     , p5_a67  VARCHAR2 := fnd_api.g_miss_char
965     , p5_a68  VARCHAR2 := fnd_api.g_miss_char
966     , p5_a69  VARCHAR2 := fnd_api.g_miss_char
967     , p5_a70  VARCHAR2 := fnd_api.g_miss_char
968     , p5_a71  VARCHAR2 := fnd_api.g_miss_char
969     , p5_a72  VARCHAR2 := fnd_api.g_miss_char
970     , p5_a73  VARCHAR2 := fnd_api.g_miss_char
971     , p5_a74  VARCHAR2 := fnd_api.g_miss_char
972     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
973     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
974     , p5_a77  NUMBER := 0-1962.0724
975     , p5_a78  DATE := fnd_api.g_miss_date
976     , p5_a79  NUMBER := 0-1962.0724
977     , p5_a80  NUMBER := 0-1962.0724
978     , p5_a81  VARCHAR2 := fnd_api.g_miss_char
979     , p5_a82  DATE := fnd_api.g_miss_date
980     , p5_a83  NUMBER := 0-1962.0724
981     , p5_a84  DATE := fnd_api.g_miss_date
982     , p5_a85  VARCHAR2 := fnd_api.g_miss_char
983     , p5_a86  VARCHAR2 := fnd_api.g_miss_char
984     , p5_a87  VARCHAR2 := fnd_api.g_miss_char
985     , p5_a88  VARCHAR2 := fnd_api.g_miss_char
986     , p5_a89  VARCHAR2 := fnd_api.g_miss_char
987     , p5_a90  VARCHAR2 := fnd_api.g_miss_char
988     , p5_a91  VARCHAR2 := fnd_api.g_miss_char
989     , p5_a92  VARCHAR2 := fnd_api.g_miss_char
990     , p5_a93  DATE := fnd_api.g_miss_date
991   )
992 
993   as
994     ddp_tcnv_rec okl_trx_contracts_pub.tcnv_rec_type;
995     ddp_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
996     ddx_tcnv_rec okl_trx_contracts_pub.tcnv_rec_type;
997     ddx_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
998     ddindx binary_integer; indx binary_integer;
999   begin
1000 
1001     -- copy data to the local IN or IN-OUT args, if any
1002 
1003 
1004 
1005 
1006 
1007     ddp_tcnv_rec.id := rosetta_g_miss_num_map(p5_a0);
1008     ddp_tcnv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1009     ddp_tcnv_rec.rbr_code := p5_a2;
1010     ddp_tcnv_rec.rpy_code := p5_a3;
1011     ddp_tcnv_rec.rvn_code := p5_a4;
1012     ddp_tcnv_rec.trn_code := p5_a5;
1013     ddp_tcnv_rec.khr_id_new := rosetta_g_miss_num_map(p5_a6);
1014     ddp_tcnv_rec.pvn_id := rosetta_g_miss_num_map(p5_a7);
1015     ddp_tcnv_rec.pdt_id := rosetta_g_miss_num_map(p5_a8);
1016     ddp_tcnv_rec.qte_id := rosetta_g_miss_num_map(p5_a9);
1017     ddp_tcnv_rec.aes_id := rosetta_g_miss_num_map(p5_a10);
1018     ddp_tcnv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a11);
1019     ddp_tcnv_rec.tax_deductible_local := p5_a12;
1020     ddp_tcnv_rec.tax_deductible_corporate := p5_a13;
1021     ddp_tcnv_rec.date_accrual := rosetta_g_miss_date_in_map(p5_a14);
1022     ddp_tcnv_rec.accrual_status_yn := p5_a15;
1023     ddp_tcnv_rec.update_status_yn := p5_a16;
1024     ddp_tcnv_rec.amount := rosetta_g_miss_num_map(p5_a17);
1025     ddp_tcnv_rec.currency_code := p5_a18;
1026     ddp_tcnv_rec.attribute_category := p5_a19;
1027     ddp_tcnv_rec.attribute1 := p5_a20;
1028     ddp_tcnv_rec.attribute2 := p5_a21;
1029     ddp_tcnv_rec.attribute3 := p5_a22;
1030     ddp_tcnv_rec.attribute4 := p5_a23;
1031     ddp_tcnv_rec.attribute5 := p5_a24;
1032     ddp_tcnv_rec.attribute6 := p5_a25;
1033     ddp_tcnv_rec.attribute7 := p5_a26;
1034     ddp_tcnv_rec.attribute8 := p5_a27;
1035     ddp_tcnv_rec.attribute9 := p5_a28;
1036     ddp_tcnv_rec.attribute10 := p5_a29;
1037     ddp_tcnv_rec.attribute11 := p5_a30;
1038     ddp_tcnv_rec.attribute12 := p5_a31;
1039     ddp_tcnv_rec.attribute13 := p5_a32;
1040     ddp_tcnv_rec.attribute14 := p5_a33;
1041     ddp_tcnv_rec.attribute15 := p5_a34;
1042     ddp_tcnv_rec.tcn_type := p5_a35;
1043     ddp_tcnv_rec.rjn_code := p5_a36;
1044     ddp_tcnv_rec.party_rel_id1_old := rosetta_g_miss_num_map(p5_a37);
1045     ddp_tcnv_rec.party_rel_id2_old := p5_a38;
1046     ddp_tcnv_rec.party_rel_id1_new := rosetta_g_miss_num_map(p5_a39);
1047     ddp_tcnv_rec.party_rel_id2_new := p5_a40;
1048     ddp_tcnv_rec.complete_transfer_yn := p5_a41;
1049     ddp_tcnv_rec.org_id := rosetta_g_miss_num_map(p5_a42);
1050     ddp_tcnv_rec.khr_id := rosetta_g_miss_num_map(p5_a43);
1051     ddp_tcnv_rec.request_id := rosetta_g_miss_num_map(p5_a44);
1052     ddp_tcnv_rec.program_application_id := rosetta_g_miss_num_map(p5_a45);
1053     ddp_tcnv_rec.khr_id_old := rosetta_g_miss_num_map(p5_a46);
1054     ddp_tcnv_rec.program_id := rosetta_g_miss_num_map(p5_a47);
1055     ddp_tcnv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a48);
1056     ddp_tcnv_rec.created_by := rosetta_g_miss_num_map(p5_a49);
1057     ddp_tcnv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a50);
1058     ddp_tcnv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a51);
1059     ddp_tcnv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a52);
1060     ddp_tcnv_rec.last_update_login := rosetta_g_miss_num_map(p5_a53);
1061     ddp_tcnv_rec.try_id := rosetta_g_miss_num_map(p5_a54);
1062     ddp_tcnv_rec.tsu_code := p5_a55;
1063     ddp_tcnv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a56);
1064     ddp_tcnv_rec.description := p5_a57;
1065     ddp_tcnv_rec.date_transaction_occurred := rosetta_g_miss_date_in_map(p5_a58);
1066     ddp_tcnv_rec.trx_number := p5_a59;
1067     ddp_tcnv_rec.tmt_evergreen_yn := p5_a60;
1068     ddp_tcnv_rec.tmt_close_balances_yn := p5_a61;
1069     ddp_tcnv_rec.tmt_accounting_entries_yn := p5_a62;
1070     ddp_tcnv_rec.tmt_cancel_insurance_yn := p5_a63;
1071     ddp_tcnv_rec.tmt_asset_disposition_yn := p5_a64;
1072     ddp_tcnv_rec.tmt_amortization_yn := p5_a65;
1073     ddp_tcnv_rec.tmt_asset_return_yn := p5_a66;
1074     ddp_tcnv_rec.tmt_contract_updated_yn := p5_a67;
1075     ddp_tcnv_rec.tmt_recycle_yn := p5_a68;
1076     ddp_tcnv_rec.tmt_validated_yn := p5_a69;
1077     ddp_tcnv_rec.tmt_streams_updated_yn := p5_a70;
1078     ddp_tcnv_rec.accrual_activity := p5_a71;
1079     ddp_tcnv_rec.tmt_split_asset_yn := p5_a72;
1080     ddp_tcnv_rec.tmt_generic_flag1_yn := p5_a73;
1081     ddp_tcnv_rec.tmt_generic_flag2_yn := p5_a74;
1082     ddp_tcnv_rec.tmt_generic_flag3_yn := p5_a75;
1083     ddp_tcnv_rec.currency_conversion_type := p5_a76;
1084     ddp_tcnv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a77);
1085     ddp_tcnv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a78);
1086     ddp_tcnv_rec.chr_id := rosetta_g_miss_num_map(p5_a79);
1087     ddp_tcnv_rec.source_trx_id := rosetta_g_miss_num_map(p5_a80);
1088     ddp_tcnv_rec.source_trx_type := p5_a81;
1089     ddp_tcnv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a82);
1090     ddp_tcnv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a83);
1091     ddp_tcnv_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p5_a84);
1092     ddp_tcnv_rec.accounting_reversal_yn := p5_a85;
1093     ddp_tcnv_rec.product_name := p5_a86;
1094     ddp_tcnv_rec.book_classification_code := p5_a87;
1095     ddp_tcnv_rec.tax_owner_code := p5_a88;
1096     ddp_tcnv_rec.tmt_status_code := p5_a89;
1097     ddp_tcnv_rec.representation_name := p5_a90;
1098     ddp_tcnv_rec.representation_code := p5_a91;
1099     ddp_tcnv_rec.upgrade_status_flag := p5_a92;
1100     ddp_tcnv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a93);
1101 
1102     okl_tcl_pvt_w.rosetta_table_copy_in_p5(ddp_tclv_tbl, p6_a0
1103       , p6_a1
1104       , p6_a2
1105       , p6_a3
1106       , p6_a4
1107       , p6_a5
1108       , p6_a6
1109       , p6_a7
1110       , p6_a8
1111       , p6_a9
1112       , p6_a10
1113       , p6_a11
1114       , p6_a12
1115       , p6_a13
1116       , p6_a14
1117       , p6_a15
1118       , p6_a16
1119       , p6_a17
1120       , p6_a18
1121       , p6_a19
1122       , p6_a20
1123       , p6_a21
1124       , p6_a22
1125       , p6_a23
1126       , p6_a24
1127       , p6_a25
1128       , p6_a26
1129       , p6_a27
1130       , p6_a28
1131       , p6_a29
1132       , p6_a30
1133       , p6_a31
1134       , p6_a32
1135       , p6_a33
1136       , p6_a34
1137       , p6_a35
1138       , p6_a36
1139       , p6_a37
1140       , p6_a38
1141       , p6_a39
1142       , p6_a40
1143       , p6_a41
1144       , p6_a42
1145       , p6_a43
1146       , p6_a44
1147       , p6_a45
1148       , p6_a46
1149       , p6_a47
1150       , p6_a48
1151       , p6_a49
1152       , p6_a50
1153       , p6_a51
1154       , p6_a52
1155       , p6_a53
1156       , p6_a54
1157       , p6_a55
1158       , p6_a56
1159       , p6_a57
1160       );
1161 
1162 
1163 
1164     -- here's the delegated call to the old PL/SQL routine
1165     okl_trx_contracts_pub.update_trx_contracts(p_api_version,
1166       p_init_msg_list,
1167       x_return_status,
1168       x_msg_count,
1169       x_msg_data,
1170       ddp_tcnv_rec,
1171       ddp_tclv_tbl,
1172       ddx_tcnv_rec,
1173       ddx_tclv_tbl);
1174 
1175     -- copy data back from the local variables to OUT or IN-OUT args, if any
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183     p7_a0 := rosetta_g_miss_num_map(ddx_tcnv_rec.id);
1184     p7_a1 := rosetta_g_miss_num_map(ddx_tcnv_rec.object_version_number);
1185     p7_a2 := ddx_tcnv_rec.rbr_code;
1186     p7_a3 := ddx_tcnv_rec.rpy_code;
1187     p7_a4 := ddx_tcnv_rec.rvn_code;
1188     p7_a5 := ddx_tcnv_rec.trn_code;
1189     p7_a6 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id_new);
1190     p7_a7 := rosetta_g_miss_num_map(ddx_tcnv_rec.pvn_id);
1191     p7_a8 := rosetta_g_miss_num_map(ddx_tcnv_rec.pdt_id);
1192     p7_a9 := rosetta_g_miss_num_map(ddx_tcnv_rec.qte_id);
1193     p7_a10 := rosetta_g_miss_num_map(ddx_tcnv_rec.aes_id);
1194     p7_a11 := rosetta_g_miss_num_map(ddx_tcnv_rec.code_combination_id);
1195     p7_a12 := ddx_tcnv_rec.tax_deductible_local;
1196     p7_a13 := ddx_tcnv_rec.tax_deductible_corporate;
1197     p7_a14 := ddx_tcnv_rec.date_accrual;
1198     p7_a15 := ddx_tcnv_rec.accrual_status_yn;
1199     p7_a16 := ddx_tcnv_rec.update_status_yn;
1200     p7_a17 := rosetta_g_miss_num_map(ddx_tcnv_rec.amount);
1201     p7_a18 := ddx_tcnv_rec.currency_code;
1202     p7_a19 := ddx_tcnv_rec.attribute_category;
1203     p7_a20 := ddx_tcnv_rec.attribute1;
1204     p7_a21 := ddx_tcnv_rec.attribute2;
1205     p7_a22 := ddx_tcnv_rec.attribute3;
1206     p7_a23 := ddx_tcnv_rec.attribute4;
1207     p7_a24 := ddx_tcnv_rec.attribute5;
1208     p7_a25 := ddx_tcnv_rec.attribute6;
1209     p7_a26 := ddx_tcnv_rec.attribute7;
1210     p7_a27 := ddx_tcnv_rec.attribute8;
1211     p7_a28 := ddx_tcnv_rec.attribute9;
1212     p7_a29 := ddx_tcnv_rec.attribute10;
1213     p7_a30 := ddx_tcnv_rec.attribute11;
1214     p7_a31 := ddx_tcnv_rec.attribute12;
1215     p7_a32 := ddx_tcnv_rec.attribute13;
1216     p7_a33 := ddx_tcnv_rec.attribute14;
1217     p7_a34 := ddx_tcnv_rec.attribute15;
1218     p7_a35 := ddx_tcnv_rec.tcn_type;
1219     p7_a36 := ddx_tcnv_rec.rjn_code;
1220     p7_a37 := rosetta_g_miss_num_map(ddx_tcnv_rec.party_rel_id1_old);
1221     p7_a38 := ddx_tcnv_rec.party_rel_id2_old;
1222     p7_a39 := rosetta_g_miss_num_map(ddx_tcnv_rec.party_rel_id1_new);
1223     p7_a40 := ddx_tcnv_rec.party_rel_id2_new;
1224     p7_a41 := ddx_tcnv_rec.complete_transfer_yn;
1225     p7_a42 := rosetta_g_miss_num_map(ddx_tcnv_rec.org_id);
1226     p7_a43 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id);
1227     p7_a44 := rosetta_g_miss_num_map(ddx_tcnv_rec.request_id);
1228     p7_a45 := rosetta_g_miss_num_map(ddx_tcnv_rec.program_application_id);
1229     p7_a46 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id_old);
1230     p7_a47 := rosetta_g_miss_num_map(ddx_tcnv_rec.program_id);
1231     p7_a48 := ddx_tcnv_rec.program_update_date;
1232     p7_a49 := rosetta_g_miss_num_map(ddx_tcnv_rec.created_by);
1233     p7_a50 := ddx_tcnv_rec.creation_date;
1234     p7_a51 := rosetta_g_miss_num_map(ddx_tcnv_rec.last_updated_by);
1235     p7_a52 := ddx_tcnv_rec.last_update_date;
1236     p7_a53 := rosetta_g_miss_num_map(ddx_tcnv_rec.last_update_login);
1237     p7_a54 := rosetta_g_miss_num_map(ddx_tcnv_rec.try_id);
1238     p7_a55 := ddx_tcnv_rec.tsu_code;
1239     p7_a56 := rosetta_g_miss_num_map(ddx_tcnv_rec.set_of_books_id);
1240     p7_a57 := ddx_tcnv_rec.description;
1241     p7_a58 := ddx_tcnv_rec.date_transaction_occurred;
1242     p7_a59 := ddx_tcnv_rec.trx_number;
1243     p7_a60 := ddx_tcnv_rec.tmt_evergreen_yn;
1244     p7_a61 := ddx_tcnv_rec.tmt_close_balances_yn;
1245     p7_a62 := ddx_tcnv_rec.tmt_accounting_entries_yn;
1246     p7_a63 := ddx_tcnv_rec.tmt_cancel_insurance_yn;
1247     p7_a64 := ddx_tcnv_rec.tmt_asset_disposition_yn;
1248     p7_a65 := ddx_tcnv_rec.tmt_amortization_yn;
1249     p7_a66 := ddx_tcnv_rec.tmt_asset_return_yn;
1250     p7_a67 := ddx_tcnv_rec.tmt_contract_updated_yn;
1251     p7_a68 := ddx_tcnv_rec.tmt_recycle_yn;
1252     p7_a69 := ddx_tcnv_rec.tmt_validated_yn;
1253     p7_a70 := ddx_tcnv_rec.tmt_streams_updated_yn;
1254     p7_a71 := ddx_tcnv_rec.accrual_activity;
1255     p7_a72 := ddx_tcnv_rec.tmt_split_asset_yn;
1256     p7_a73 := ddx_tcnv_rec.tmt_generic_flag1_yn;
1257     p7_a74 := ddx_tcnv_rec.tmt_generic_flag2_yn;
1258     p7_a75 := ddx_tcnv_rec.tmt_generic_flag3_yn;
1259     p7_a76 := ddx_tcnv_rec.currency_conversion_type;
1260     p7_a77 := rosetta_g_miss_num_map(ddx_tcnv_rec.currency_conversion_rate);
1261     p7_a78 := ddx_tcnv_rec.currency_conversion_date;
1262     p7_a79 := rosetta_g_miss_num_map(ddx_tcnv_rec.chr_id);
1263     p7_a80 := rosetta_g_miss_num_map(ddx_tcnv_rec.source_trx_id);
1264     p7_a81 := ddx_tcnv_rec.source_trx_type;
1265     p7_a82 := ddx_tcnv_rec.canceled_date;
1266     p7_a83 := rosetta_g_miss_num_map(ddx_tcnv_rec.legal_entity_id);
1267     p7_a84 := ddx_tcnv_rec.accrual_reversal_date;
1268     p7_a85 := ddx_tcnv_rec.accounting_reversal_yn;
1269     p7_a86 := ddx_tcnv_rec.product_name;
1270     p7_a87 := ddx_tcnv_rec.book_classification_code;
1271     p7_a88 := ddx_tcnv_rec.tax_owner_code;
1272     p7_a89 := ddx_tcnv_rec.tmt_status_code;
1273     p7_a90 := ddx_tcnv_rec.representation_name;
1274     p7_a91 := ddx_tcnv_rec.representation_code;
1275     p7_a92 := ddx_tcnv_rec.upgrade_status_flag;
1276     p7_a93 := ddx_tcnv_rec.transaction_date;
1277 
1278     okl_tcl_pvt_w.rosetta_table_copy_out_p5(ddx_tclv_tbl, p8_a0
1279       , p8_a1
1280       , p8_a2
1281       , p8_a3
1282       , p8_a4
1283       , p8_a5
1284       , p8_a6
1285       , p8_a7
1286       , p8_a8
1287       , p8_a9
1288       , p8_a10
1289       , p8_a11
1290       , p8_a12
1291       , p8_a13
1292       , p8_a14
1293       , p8_a15
1294       , p8_a16
1295       , p8_a17
1296       , p8_a18
1297       , p8_a19
1298       , p8_a20
1299       , p8_a21
1300       , p8_a22
1301       , p8_a23
1302       , p8_a24
1303       , p8_a25
1304       , p8_a26
1305       , p8_a27
1306       , p8_a28
1307       , p8_a29
1308       , p8_a30
1309       , p8_a31
1310       , p8_a32
1311       , p8_a33
1312       , p8_a34
1313       , p8_a35
1314       , p8_a36
1315       , p8_a37
1316       , p8_a38
1317       , p8_a39
1318       , p8_a40
1319       , p8_a41
1320       , p8_a42
1321       , p8_a43
1322       , p8_a44
1323       , p8_a45
1324       , p8_a46
1325       , p8_a47
1326       , p8_a48
1327       , p8_a49
1328       , p8_a50
1329       , p8_a51
1330       , p8_a52
1331       , p8_a53
1332       , p8_a54
1333       , p8_a55
1334       , p8_a56
1335       , p8_a57
1336       );
1337   end;
1338 
1339   procedure validate_trx_contracts(p_api_version  NUMBER
1340     , p_init_msg_list  VARCHAR2
1341     , x_return_status out nocopy  VARCHAR2
1342     , x_msg_count out nocopy  NUMBER
1343     , x_msg_data out nocopy  VARCHAR2
1344     , p6_a0 JTF_NUMBER_TABLE
1345     , p6_a1 JTF_NUMBER_TABLE
1346     , p6_a2 JTF_NUMBER_TABLE
1347     , p6_a3 JTF_NUMBER_TABLE
1348     , p6_a4 JTF_NUMBER_TABLE
1349     , p6_a5 JTF_NUMBER_TABLE
1350     , p6_a6 JTF_NUMBER_TABLE
1351     , p6_a7 JTF_NUMBER_TABLE
1352     , p6_a8 JTF_VARCHAR2_TABLE_100
1353     , p6_a9 JTF_NUMBER_TABLE
1354     , p6_a10 JTF_VARCHAR2_TABLE_2000
1355     , p6_a11 JTF_NUMBER_TABLE
1356     , p6_a12 JTF_VARCHAR2_TABLE_200
1357     , p6_a13 JTF_VARCHAR2_TABLE_100
1358     , p6_a14 JTF_VARCHAR2_TABLE_100
1359     , p6_a15 JTF_VARCHAR2_TABLE_500
1360     , p6_a16 JTF_VARCHAR2_TABLE_500
1361     , p6_a17 JTF_VARCHAR2_TABLE_500
1362     , p6_a18 JTF_VARCHAR2_TABLE_500
1363     , p6_a19 JTF_VARCHAR2_TABLE_500
1364     , p6_a20 JTF_VARCHAR2_TABLE_500
1365     , p6_a21 JTF_VARCHAR2_TABLE_500
1366     , p6_a22 JTF_VARCHAR2_TABLE_500
1367     , p6_a23 JTF_VARCHAR2_TABLE_500
1368     , p6_a24 JTF_VARCHAR2_TABLE_500
1369     , p6_a25 JTF_VARCHAR2_TABLE_500
1370     , p6_a26 JTF_VARCHAR2_TABLE_500
1371     , p6_a27 JTF_VARCHAR2_TABLE_500
1372     , p6_a28 JTF_VARCHAR2_TABLE_500
1373     , p6_a29 JTF_VARCHAR2_TABLE_500
1374     , p6_a30 JTF_VARCHAR2_TABLE_100
1375     , p6_a31 JTF_NUMBER_TABLE
1376     , p6_a32 JTF_DATE_TABLE
1377     , p6_a33 JTF_NUMBER_TABLE
1378     , p6_a34 JTF_DATE_TABLE
1379     , p6_a35 JTF_NUMBER_TABLE
1380     , p6_a36 JTF_NUMBER_TABLE
1381     , p6_a37 JTF_NUMBER_TABLE
1382     , p6_a38 JTF_NUMBER_TABLE
1383     , p6_a39 JTF_DATE_TABLE
1384     , p6_a40 JTF_NUMBER_TABLE
1385     , p6_a41 JTF_NUMBER_TABLE
1386     , p6_a42 JTF_NUMBER_TABLE
1387     , p6_a43 JTF_NUMBER_TABLE
1388     , p6_a44 JTF_NUMBER_TABLE
1389     , p6_a45 JTF_VARCHAR2_TABLE_100
1390     , p6_a46 JTF_VARCHAR2_TABLE_200
1391     , p6_a47 JTF_NUMBER_TABLE
1392     , p6_a48 JTF_VARCHAR2_TABLE_200
1393     , p6_a49 JTF_NUMBER_TABLE
1394     , p6_a50 JTF_VARCHAR2_TABLE_200
1395     , p6_a51 JTF_NUMBER_TABLE
1396     , p6_a52 JTF_DATE_TABLE
1397     , p6_a53 JTF_NUMBER_TABLE
1398     , p6_a54 JTF_VARCHAR2_TABLE_200
1399     , p6_a55 JTF_VARCHAR2_TABLE_300
1400     , p6_a56 JTF_VARCHAR2_TABLE_100
1401     , p6_a57 JTF_VARCHAR2_TABLE_100
1402     , p5_a0  NUMBER := 0-1962.0724
1403     , p5_a1  NUMBER := 0-1962.0724
1404     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
1405     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
1406     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
1407     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
1408     , p5_a6  NUMBER := 0-1962.0724
1409     , p5_a7  NUMBER := 0-1962.0724
1410     , p5_a8  NUMBER := 0-1962.0724
1411     , p5_a9  NUMBER := 0-1962.0724
1412     , p5_a10  NUMBER := 0-1962.0724
1413     , p5_a11  NUMBER := 0-1962.0724
1414     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
1415     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
1416     , p5_a14  DATE := fnd_api.g_miss_date
1417     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
1418     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
1419     , p5_a17  NUMBER := 0-1962.0724
1420     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
1421     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
1422     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
1423     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
1424     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
1425     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
1426     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
1427     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
1428     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
1429     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
1430     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
1431     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
1432     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
1433     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
1434     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
1435     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
1436     , p5_a34  VARCHAR2 := fnd_api.g_miss_char
1437     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
1438     , p5_a36  VARCHAR2 := fnd_api.g_miss_char
1439     , p5_a37  NUMBER := 0-1962.0724
1440     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
1441     , p5_a39  NUMBER := 0-1962.0724
1442     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
1443     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
1444     , p5_a42  NUMBER := 0-1962.0724
1445     , p5_a43  NUMBER := 0-1962.0724
1446     , p5_a44  NUMBER := 0-1962.0724
1447     , p5_a45  NUMBER := 0-1962.0724
1448     , p5_a46  NUMBER := 0-1962.0724
1449     , p5_a47  NUMBER := 0-1962.0724
1450     , p5_a48  DATE := fnd_api.g_miss_date
1451     , p5_a49  NUMBER := 0-1962.0724
1452     , p5_a50  DATE := fnd_api.g_miss_date
1453     , p5_a51  NUMBER := 0-1962.0724
1454     , p5_a52  DATE := fnd_api.g_miss_date
1455     , p5_a53  NUMBER := 0-1962.0724
1456     , p5_a54  NUMBER := 0-1962.0724
1457     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
1458     , p5_a56  NUMBER := 0-1962.0724
1459     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
1460     , p5_a58  DATE := fnd_api.g_miss_date
1461     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
1462     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
1463     , p5_a61  VARCHAR2 := fnd_api.g_miss_char
1464     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
1465     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
1466     , p5_a64  VARCHAR2 := fnd_api.g_miss_char
1467     , p5_a65  VARCHAR2 := fnd_api.g_miss_char
1468     , p5_a66  VARCHAR2 := fnd_api.g_miss_char
1469     , p5_a67  VARCHAR2 := fnd_api.g_miss_char
1470     , p5_a68  VARCHAR2 := fnd_api.g_miss_char
1471     , p5_a69  VARCHAR2 := fnd_api.g_miss_char
1472     , p5_a70  VARCHAR2 := fnd_api.g_miss_char
1473     , p5_a71  VARCHAR2 := fnd_api.g_miss_char
1474     , p5_a72  VARCHAR2 := fnd_api.g_miss_char
1475     , p5_a73  VARCHAR2 := fnd_api.g_miss_char
1476     , p5_a74  VARCHAR2 := fnd_api.g_miss_char
1477     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
1478     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
1479     , p5_a77  NUMBER := 0-1962.0724
1480     , p5_a78  DATE := fnd_api.g_miss_date
1481     , p5_a79  NUMBER := 0-1962.0724
1482     , p5_a80  NUMBER := 0-1962.0724
1483     , p5_a81  VARCHAR2 := fnd_api.g_miss_char
1484     , p5_a82  DATE := fnd_api.g_miss_date
1485     , p5_a83  NUMBER := 0-1962.0724
1486     , p5_a84  DATE := fnd_api.g_miss_date
1487     , p5_a85  VARCHAR2 := fnd_api.g_miss_char
1488     , p5_a86  VARCHAR2 := fnd_api.g_miss_char
1489     , p5_a87  VARCHAR2 := fnd_api.g_miss_char
1490     , p5_a88  VARCHAR2 := fnd_api.g_miss_char
1491     , p5_a89  VARCHAR2 := fnd_api.g_miss_char
1492     , p5_a90  VARCHAR2 := fnd_api.g_miss_char
1493     , p5_a91  VARCHAR2 := fnd_api.g_miss_char
1494     , p5_a92  VARCHAR2 := fnd_api.g_miss_char
1495     , p5_a93  DATE := fnd_api.g_miss_date
1496   )
1497 
1498   as
1499     ddp_tcnv_rec okl_trx_contracts_pub.tcnv_rec_type;
1500     ddp_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
1501     ddindx binary_integer; indx binary_integer;
1502   begin
1503 
1504     -- copy data to the local IN or IN-OUT args, if any
1505 
1506 
1507 
1508 
1509 
1510     ddp_tcnv_rec.id := rosetta_g_miss_num_map(p5_a0);
1511     ddp_tcnv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1512     ddp_tcnv_rec.rbr_code := p5_a2;
1513     ddp_tcnv_rec.rpy_code := p5_a3;
1514     ddp_tcnv_rec.rvn_code := p5_a4;
1515     ddp_tcnv_rec.trn_code := p5_a5;
1516     ddp_tcnv_rec.khr_id_new := rosetta_g_miss_num_map(p5_a6);
1517     ddp_tcnv_rec.pvn_id := rosetta_g_miss_num_map(p5_a7);
1518     ddp_tcnv_rec.pdt_id := rosetta_g_miss_num_map(p5_a8);
1519     ddp_tcnv_rec.qte_id := rosetta_g_miss_num_map(p5_a9);
1520     ddp_tcnv_rec.aes_id := rosetta_g_miss_num_map(p5_a10);
1521     ddp_tcnv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a11);
1522     ddp_tcnv_rec.tax_deductible_local := p5_a12;
1523     ddp_tcnv_rec.tax_deductible_corporate := p5_a13;
1524     ddp_tcnv_rec.date_accrual := rosetta_g_miss_date_in_map(p5_a14);
1525     ddp_tcnv_rec.accrual_status_yn := p5_a15;
1526     ddp_tcnv_rec.update_status_yn := p5_a16;
1527     ddp_tcnv_rec.amount := rosetta_g_miss_num_map(p5_a17);
1528     ddp_tcnv_rec.currency_code := p5_a18;
1529     ddp_tcnv_rec.attribute_category := p5_a19;
1530     ddp_tcnv_rec.attribute1 := p5_a20;
1531     ddp_tcnv_rec.attribute2 := p5_a21;
1532     ddp_tcnv_rec.attribute3 := p5_a22;
1533     ddp_tcnv_rec.attribute4 := p5_a23;
1534     ddp_tcnv_rec.attribute5 := p5_a24;
1535     ddp_tcnv_rec.attribute6 := p5_a25;
1536     ddp_tcnv_rec.attribute7 := p5_a26;
1537     ddp_tcnv_rec.attribute8 := p5_a27;
1538     ddp_tcnv_rec.attribute9 := p5_a28;
1539     ddp_tcnv_rec.attribute10 := p5_a29;
1540     ddp_tcnv_rec.attribute11 := p5_a30;
1541     ddp_tcnv_rec.attribute12 := p5_a31;
1542     ddp_tcnv_rec.attribute13 := p5_a32;
1543     ddp_tcnv_rec.attribute14 := p5_a33;
1544     ddp_tcnv_rec.attribute15 := p5_a34;
1545     ddp_tcnv_rec.tcn_type := p5_a35;
1546     ddp_tcnv_rec.rjn_code := p5_a36;
1547     ddp_tcnv_rec.party_rel_id1_old := rosetta_g_miss_num_map(p5_a37);
1548     ddp_tcnv_rec.party_rel_id2_old := p5_a38;
1549     ddp_tcnv_rec.party_rel_id1_new := rosetta_g_miss_num_map(p5_a39);
1550     ddp_tcnv_rec.party_rel_id2_new := p5_a40;
1551     ddp_tcnv_rec.complete_transfer_yn := p5_a41;
1552     ddp_tcnv_rec.org_id := rosetta_g_miss_num_map(p5_a42);
1553     ddp_tcnv_rec.khr_id := rosetta_g_miss_num_map(p5_a43);
1554     ddp_tcnv_rec.request_id := rosetta_g_miss_num_map(p5_a44);
1555     ddp_tcnv_rec.program_application_id := rosetta_g_miss_num_map(p5_a45);
1556     ddp_tcnv_rec.khr_id_old := rosetta_g_miss_num_map(p5_a46);
1557     ddp_tcnv_rec.program_id := rosetta_g_miss_num_map(p5_a47);
1558     ddp_tcnv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a48);
1559     ddp_tcnv_rec.created_by := rosetta_g_miss_num_map(p5_a49);
1560     ddp_tcnv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a50);
1561     ddp_tcnv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a51);
1562     ddp_tcnv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a52);
1563     ddp_tcnv_rec.last_update_login := rosetta_g_miss_num_map(p5_a53);
1564     ddp_tcnv_rec.try_id := rosetta_g_miss_num_map(p5_a54);
1565     ddp_tcnv_rec.tsu_code := p5_a55;
1566     ddp_tcnv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a56);
1567     ddp_tcnv_rec.description := p5_a57;
1568     ddp_tcnv_rec.date_transaction_occurred := rosetta_g_miss_date_in_map(p5_a58);
1569     ddp_tcnv_rec.trx_number := p5_a59;
1570     ddp_tcnv_rec.tmt_evergreen_yn := p5_a60;
1571     ddp_tcnv_rec.tmt_close_balances_yn := p5_a61;
1572     ddp_tcnv_rec.tmt_accounting_entries_yn := p5_a62;
1573     ddp_tcnv_rec.tmt_cancel_insurance_yn := p5_a63;
1574     ddp_tcnv_rec.tmt_asset_disposition_yn := p5_a64;
1575     ddp_tcnv_rec.tmt_amortization_yn := p5_a65;
1576     ddp_tcnv_rec.tmt_asset_return_yn := p5_a66;
1577     ddp_tcnv_rec.tmt_contract_updated_yn := p5_a67;
1578     ddp_tcnv_rec.tmt_recycle_yn := p5_a68;
1579     ddp_tcnv_rec.tmt_validated_yn := p5_a69;
1580     ddp_tcnv_rec.tmt_streams_updated_yn := p5_a70;
1581     ddp_tcnv_rec.accrual_activity := p5_a71;
1582     ddp_tcnv_rec.tmt_split_asset_yn := p5_a72;
1583     ddp_tcnv_rec.tmt_generic_flag1_yn := p5_a73;
1584     ddp_tcnv_rec.tmt_generic_flag2_yn := p5_a74;
1585     ddp_tcnv_rec.tmt_generic_flag3_yn := p5_a75;
1586     ddp_tcnv_rec.currency_conversion_type := p5_a76;
1587     ddp_tcnv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a77);
1588     ddp_tcnv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a78);
1589     ddp_tcnv_rec.chr_id := rosetta_g_miss_num_map(p5_a79);
1590     ddp_tcnv_rec.source_trx_id := rosetta_g_miss_num_map(p5_a80);
1591     ddp_tcnv_rec.source_trx_type := p5_a81;
1592     ddp_tcnv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a82);
1593     ddp_tcnv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a83);
1594     ddp_tcnv_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p5_a84);
1595     ddp_tcnv_rec.accounting_reversal_yn := p5_a85;
1596     ddp_tcnv_rec.product_name := p5_a86;
1597     ddp_tcnv_rec.book_classification_code := p5_a87;
1598     ddp_tcnv_rec.tax_owner_code := p5_a88;
1599     ddp_tcnv_rec.tmt_status_code := p5_a89;
1600     ddp_tcnv_rec.representation_name := p5_a90;
1601     ddp_tcnv_rec.representation_code := p5_a91;
1602     ddp_tcnv_rec.upgrade_status_flag := p5_a92;
1603     ddp_tcnv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a93);
1604 
1605     okl_tcl_pvt_w.rosetta_table_copy_in_p5(ddp_tclv_tbl, p6_a0
1606       , p6_a1
1607       , p6_a2
1608       , p6_a3
1609       , p6_a4
1610       , p6_a5
1611       , p6_a6
1612       , p6_a7
1613       , p6_a8
1614       , p6_a9
1615       , p6_a10
1616       , p6_a11
1617       , p6_a12
1618       , p6_a13
1619       , p6_a14
1620       , p6_a15
1621       , p6_a16
1622       , p6_a17
1623       , p6_a18
1624       , p6_a19
1625       , p6_a20
1626       , p6_a21
1627       , p6_a22
1628       , p6_a23
1629       , p6_a24
1630       , p6_a25
1631       , p6_a26
1632       , p6_a27
1633       , p6_a28
1634       , p6_a29
1635       , p6_a30
1636       , p6_a31
1637       , p6_a32
1638       , p6_a33
1639       , p6_a34
1640       , p6_a35
1641       , p6_a36
1642       , p6_a37
1643       , p6_a38
1644       , p6_a39
1645       , p6_a40
1646       , p6_a41
1647       , p6_a42
1648       , p6_a43
1649       , p6_a44
1650       , p6_a45
1651       , p6_a46
1652       , p6_a47
1653       , p6_a48
1654       , p6_a49
1655       , p6_a50
1656       , p6_a51
1657       , p6_a52
1658       , p6_a53
1659       , p6_a54
1660       , p6_a55
1661       , p6_a56
1662       , p6_a57
1663       );
1664 
1665     -- here's the delegated call to the old PL/SQL routine
1666     okl_trx_contracts_pub.validate_trx_contracts(p_api_version,
1667       p_init_msg_list,
1668       x_return_status,
1669       x_msg_count,
1670       x_msg_data,
1671       ddp_tcnv_rec,
1672       ddp_tclv_tbl);
1673 
1674     -- copy data back from the local variables to OUT or IN-OUT args, if any
1675 
1676 
1677 
1678 
1679 
1680 
1681   end;
1682 
1683   procedure create_trx_contracts(p_api_version  NUMBER
1684     , p_init_msg_list  VARCHAR2
1685     , x_return_status out nocopy  VARCHAR2
1686     , x_msg_count out nocopy  NUMBER
1687     , x_msg_data out nocopy  VARCHAR2
1688     , p5_a0 JTF_NUMBER_TABLE
1689     , p5_a1 JTF_NUMBER_TABLE
1690     , p5_a2 JTF_VARCHAR2_TABLE_100
1691     , p5_a3 JTF_VARCHAR2_TABLE_100
1692     , p5_a4 JTF_VARCHAR2_TABLE_100
1693     , p5_a5 JTF_VARCHAR2_TABLE_100
1694     , p5_a6 JTF_NUMBER_TABLE
1695     , p5_a7 JTF_NUMBER_TABLE
1696     , p5_a8 JTF_NUMBER_TABLE
1697     , p5_a9 JTF_NUMBER_TABLE
1698     , p5_a10 JTF_NUMBER_TABLE
1699     , p5_a11 JTF_NUMBER_TABLE
1700     , p5_a12 JTF_VARCHAR2_TABLE_100
1701     , p5_a13 JTF_VARCHAR2_TABLE_100
1702     , p5_a14 JTF_DATE_TABLE
1703     , p5_a15 JTF_VARCHAR2_TABLE_100
1704     , p5_a16 JTF_VARCHAR2_TABLE_100
1705     , p5_a17 JTF_NUMBER_TABLE
1706     , p5_a18 JTF_VARCHAR2_TABLE_200
1707     , p5_a19 JTF_VARCHAR2_TABLE_100
1708     , p5_a20 JTF_VARCHAR2_TABLE_500
1709     , p5_a21 JTF_VARCHAR2_TABLE_500
1710     , p5_a22 JTF_VARCHAR2_TABLE_500
1711     , p5_a23 JTF_VARCHAR2_TABLE_500
1712     , p5_a24 JTF_VARCHAR2_TABLE_500
1713     , p5_a25 JTF_VARCHAR2_TABLE_500
1714     , p5_a26 JTF_VARCHAR2_TABLE_500
1715     , p5_a27 JTF_VARCHAR2_TABLE_500
1716     , p5_a28 JTF_VARCHAR2_TABLE_500
1717     , p5_a29 JTF_VARCHAR2_TABLE_500
1718     , p5_a30 JTF_VARCHAR2_TABLE_500
1719     , p5_a31 JTF_VARCHAR2_TABLE_500
1720     , p5_a32 JTF_VARCHAR2_TABLE_500
1721     , p5_a33 JTF_VARCHAR2_TABLE_500
1722     , p5_a34 JTF_VARCHAR2_TABLE_500
1723     , p5_a35 JTF_VARCHAR2_TABLE_100
1724     , p5_a36 JTF_VARCHAR2_TABLE_100
1725     , p5_a37 JTF_NUMBER_TABLE
1726     , p5_a38 JTF_VARCHAR2_TABLE_100
1727     , p5_a39 JTF_NUMBER_TABLE
1728     , p5_a40 JTF_VARCHAR2_TABLE_100
1729     , p5_a41 JTF_VARCHAR2_TABLE_100
1730     , p5_a42 JTF_NUMBER_TABLE
1731     , p5_a43 JTF_NUMBER_TABLE
1732     , p5_a44 JTF_NUMBER_TABLE
1733     , p5_a45 JTF_NUMBER_TABLE
1734     , p5_a46 JTF_NUMBER_TABLE
1735     , p5_a47 JTF_NUMBER_TABLE
1736     , p5_a48 JTF_DATE_TABLE
1737     , p5_a49 JTF_NUMBER_TABLE
1738     , p5_a50 JTF_DATE_TABLE
1739     , p5_a51 JTF_NUMBER_TABLE
1740     , p5_a52 JTF_DATE_TABLE
1741     , p5_a53 JTF_NUMBER_TABLE
1742     , p5_a54 JTF_NUMBER_TABLE
1743     , p5_a55 JTF_VARCHAR2_TABLE_100
1744     , p5_a56 JTF_NUMBER_TABLE
1745     , p5_a57 JTF_VARCHAR2_TABLE_2000
1746     , p5_a58 JTF_DATE_TABLE
1747     , p5_a59 JTF_VARCHAR2_TABLE_100
1748     , p5_a60 JTF_VARCHAR2_TABLE_100
1749     , p5_a61 JTF_VARCHAR2_TABLE_100
1750     , p5_a62 JTF_VARCHAR2_TABLE_100
1751     , p5_a63 JTF_VARCHAR2_TABLE_100
1752     , p5_a64 JTF_VARCHAR2_TABLE_100
1753     , p5_a65 JTF_VARCHAR2_TABLE_100
1754     , p5_a66 JTF_VARCHAR2_TABLE_100
1755     , p5_a67 JTF_VARCHAR2_TABLE_100
1756     , p5_a68 JTF_VARCHAR2_TABLE_100
1757     , p5_a69 JTF_VARCHAR2_TABLE_100
1758     , p5_a70 JTF_VARCHAR2_TABLE_100
1759     , p5_a71 JTF_VARCHAR2_TABLE_100
1760     , p5_a72 JTF_VARCHAR2_TABLE_100
1761     , p5_a73 JTF_VARCHAR2_TABLE_100
1762     , p5_a74 JTF_VARCHAR2_TABLE_100
1763     , p5_a75 JTF_VARCHAR2_TABLE_100
1764     , p5_a76 JTF_VARCHAR2_TABLE_100
1765     , p5_a77 JTF_NUMBER_TABLE
1766     , p5_a78 JTF_DATE_TABLE
1767     , p5_a79 JTF_NUMBER_TABLE
1768     , p5_a80 JTF_NUMBER_TABLE
1769     , p5_a81 JTF_VARCHAR2_TABLE_100
1770     , p5_a82 JTF_DATE_TABLE
1771     , p5_a83 JTF_NUMBER_TABLE
1772     , p5_a84 JTF_DATE_TABLE
1773     , p5_a85 JTF_VARCHAR2_TABLE_100
1774     , p5_a86 JTF_VARCHAR2_TABLE_200
1775     , p5_a87 JTF_VARCHAR2_TABLE_100
1776     , p5_a88 JTF_VARCHAR2_TABLE_200
1777     , p5_a89 JTF_VARCHAR2_TABLE_100
1778     , p5_a90 JTF_VARCHAR2_TABLE_100
1779     , p5_a91 JTF_VARCHAR2_TABLE_100
1780     , p5_a92 JTF_VARCHAR2_TABLE_100
1781     , p5_a93 JTF_DATE_TABLE
1782     , p6_a0 out nocopy JTF_NUMBER_TABLE
1783     , p6_a1 out nocopy JTF_NUMBER_TABLE
1784     , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
1785     , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
1786     , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
1787     , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
1788     , p6_a6 out nocopy JTF_NUMBER_TABLE
1789     , p6_a7 out nocopy JTF_NUMBER_TABLE
1790     , p6_a8 out nocopy JTF_NUMBER_TABLE
1791     , p6_a9 out nocopy JTF_NUMBER_TABLE
1792     , p6_a10 out nocopy JTF_NUMBER_TABLE
1793     , p6_a11 out nocopy JTF_NUMBER_TABLE
1794     , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
1795     , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
1796     , p6_a14 out nocopy JTF_DATE_TABLE
1797     , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
1798     , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
1799     , p6_a17 out nocopy JTF_NUMBER_TABLE
1800     , p6_a18 out nocopy JTF_VARCHAR2_TABLE_200
1801     , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
1802     , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1803     , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1804     , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1805     , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1806     , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1807     , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1808     , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
1809     , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
1810     , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
1811     , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
1812     , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
1813     , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
1814     , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
1815     , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
1816     , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
1817     , p6_a35 out nocopy JTF_VARCHAR2_TABLE_100
1818     , p6_a36 out nocopy JTF_VARCHAR2_TABLE_100
1819     , p6_a37 out nocopy JTF_NUMBER_TABLE
1820     , p6_a38 out nocopy JTF_VARCHAR2_TABLE_100
1821     , p6_a39 out nocopy JTF_NUMBER_TABLE
1822     , p6_a40 out nocopy JTF_VARCHAR2_TABLE_100
1823     , p6_a41 out nocopy JTF_VARCHAR2_TABLE_100
1824     , p6_a42 out nocopy JTF_NUMBER_TABLE
1825     , p6_a43 out nocopy JTF_NUMBER_TABLE
1826     , p6_a44 out nocopy JTF_NUMBER_TABLE
1827     , p6_a45 out nocopy JTF_NUMBER_TABLE
1828     , p6_a46 out nocopy JTF_NUMBER_TABLE
1829     , p6_a47 out nocopy JTF_NUMBER_TABLE
1830     , p6_a48 out nocopy JTF_DATE_TABLE
1831     , p6_a49 out nocopy JTF_NUMBER_TABLE
1832     , p6_a50 out nocopy JTF_DATE_TABLE
1833     , p6_a51 out nocopy JTF_NUMBER_TABLE
1834     , p6_a52 out nocopy JTF_DATE_TABLE
1835     , p6_a53 out nocopy JTF_NUMBER_TABLE
1836     , p6_a54 out nocopy JTF_NUMBER_TABLE
1837     , p6_a55 out nocopy JTF_VARCHAR2_TABLE_100
1838     , p6_a56 out nocopy JTF_NUMBER_TABLE
1839     , p6_a57 out nocopy JTF_VARCHAR2_TABLE_2000
1840     , p6_a58 out nocopy JTF_DATE_TABLE
1841     , p6_a59 out nocopy JTF_VARCHAR2_TABLE_100
1842     , p6_a60 out nocopy JTF_VARCHAR2_TABLE_100
1843     , p6_a61 out nocopy JTF_VARCHAR2_TABLE_100
1844     , p6_a62 out nocopy JTF_VARCHAR2_TABLE_100
1845     , p6_a63 out nocopy JTF_VARCHAR2_TABLE_100
1846     , p6_a64 out nocopy JTF_VARCHAR2_TABLE_100
1847     , p6_a65 out nocopy JTF_VARCHAR2_TABLE_100
1848     , p6_a66 out nocopy JTF_VARCHAR2_TABLE_100
1849     , p6_a67 out nocopy JTF_VARCHAR2_TABLE_100
1850     , p6_a68 out nocopy JTF_VARCHAR2_TABLE_100
1851     , p6_a69 out nocopy JTF_VARCHAR2_TABLE_100
1852     , p6_a70 out nocopy JTF_VARCHAR2_TABLE_100
1853     , p6_a71 out nocopy JTF_VARCHAR2_TABLE_100
1854     , p6_a72 out nocopy JTF_VARCHAR2_TABLE_100
1855     , p6_a73 out nocopy JTF_VARCHAR2_TABLE_100
1856     , p6_a74 out nocopy JTF_VARCHAR2_TABLE_100
1857     , p6_a75 out nocopy JTF_VARCHAR2_TABLE_100
1858     , p6_a76 out nocopy JTF_VARCHAR2_TABLE_100
1859     , p6_a77 out nocopy JTF_NUMBER_TABLE
1860     , p6_a78 out nocopy JTF_DATE_TABLE
1861     , p6_a79 out nocopy JTF_NUMBER_TABLE
1862     , p6_a80 out nocopy JTF_NUMBER_TABLE
1863     , p6_a81 out nocopy JTF_VARCHAR2_TABLE_100
1864     , p6_a82 out nocopy JTF_DATE_TABLE
1865     , p6_a83 out nocopy JTF_NUMBER_TABLE
1866     , p6_a84 out nocopy JTF_DATE_TABLE
1867     , p6_a85 out nocopy JTF_VARCHAR2_TABLE_100
1868     , p6_a86 out nocopy JTF_VARCHAR2_TABLE_200
1869     , p6_a87 out nocopy JTF_VARCHAR2_TABLE_100
1870     , p6_a88 out nocopy JTF_VARCHAR2_TABLE_200
1871     , p6_a89 out nocopy JTF_VARCHAR2_TABLE_100
1872     , p6_a90 out nocopy JTF_VARCHAR2_TABLE_100
1873     , p6_a91 out nocopy JTF_VARCHAR2_TABLE_100
1874     , p6_a92 out nocopy JTF_VARCHAR2_TABLE_100
1875     , p6_a93 out nocopy JTF_DATE_TABLE
1876   )
1877 
1878   as
1879     ddp_tcnv_tbl okl_trx_contracts_pub.tcnv_tbl_type;
1880     ddx_tcnv_tbl okl_trx_contracts_pub.tcnv_tbl_type;
1881     ddindx binary_integer; indx binary_integer;
1882   begin
1883 
1884     -- copy data to the local IN or IN-OUT args, if any
1885 
1886 
1887 
1888 
1889 
1890     okl_tcn_pvt_w.rosetta_table_copy_in_p5(ddp_tcnv_tbl, p5_a0
1891       , p5_a1
1892       , p5_a2
1893       , p5_a3
1894       , p5_a4
1895       , p5_a5
1896       , p5_a6
1897       , p5_a7
1898       , p5_a8
1899       , p5_a9
1900       , p5_a10
1901       , p5_a11
1902       , p5_a12
1903       , p5_a13
1904       , p5_a14
1905       , p5_a15
1906       , p5_a16
1907       , p5_a17
1908       , p5_a18
1909       , p5_a19
1910       , p5_a20
1911       , p5_a21
1912       , p5_a22
1913       , p5_a23
1914       , p5_a24
1915       , p5_a25
1916       , p5_a26
1917       , p5_a27
1918       , p5_a28
1919       , p5_a29
1920       , p5_a30
1921       , p5_a31
1922       , p5_a32
1923       , p5_a33
1924       , p5_a34
1925       , p5_a35
1926       , p5_a36
1927       , p5_a37
1928       , p5_a38
1929       , p5_a39
1930       , p5_a40
1931       , p5_a41
1932       , p5_a42
1933       , p5_a43
1934       , p5_a44
1935       , p5_a45
1936       , p5_a46
1937       , p5_a47
1938       , p5_a48
1939       , p5_a49
1940       , p5_a50
1941       , p5_a51
1942       , p5_a52
1943       , p5_a53
1944       , p5_a54
1945       , p5_a55
1946       , p5_a56
1947       , p5_a57
1948       , p5_a58
1949       , p5_a59
1950       , p5_a60
1951       , p5_a61
1952       , p5_a62
1953       , p5_a63
1954       , p5_a64
1955       , p5_a65
1956       , p5_a66
1957       , p5_a67
1958       , p5_a68
1959       , p5_a69
1960       , p5_a70
1961       , p5_a71
1962       , p5_a72
1963       , p5_a73
1964       , p5_a74
1965       , p5_a75
1966       , p5_a76
1967       , p5_a77
1968       , p5_a78
1969       , p5_a79
1970       , p5_a80
1971       , p5_a81
1972       , p5_a82
1973       , p5_a83
1974       , p5_a84
1975       , p5_a85
1976       , p5_a86
1977       , p5_a87
1978       , p5_a88
1979       , p5_a89
1980       , p5_a90
1981       , p5_a91
1982       , p5_a92
1983       , p5_a93
1984       );
1985 
1986 
1987     -- here's the delegated call to the old PL/SQL routine
1988     okl_trx_contracts_pub.create_trx_contracts(p_api_version,
1989       p_init_msg_list,
1990       x_return_status,
1991       x_msg_count,
1992       x_msg_data,
1993       ddp_tcnv_tbl,
1994       ddx_tcnv_tbl);
1995 
1996     -- copy data back from the local variables to OUT or IN-OUT args, if any
1997 
1998 
1999 
2000 
2001 
2002 
2003     okl_tcn_pvt_w.rosetta_table_copy_out_p5(ddx_tcnv_tbl, p6_a0
2004       , p6_a1
2005       , p6_a2
2006       , p6_a3
2007       , p6_a4
2008       , p6_a5
2009       , p6_a6
2010       , p6_a7
2011       , p6_a8
2012       , p6_a9
2013       , p6_a10
2014       , p6_a11
2015       , p6_a12
2016       , p6_a13
2017       , p6_a14
2018       , p6_a15
2019       , p6_a16
2020       , p6_a17
2021       , p6_a18
2022       , p6_a19
2023       , p6_a20
2024       , p6_a21
2025       , p6_a22
2026       , p6_a23
2027       , p6_a24
2028       , p6_a25
2029       , p6_a26
2030       , p6_a27
2031       , p6_a28
2032       , p6_a29
2033       , p6_a30
2034       , p6_a31
2035       , p6_a32
2036       , p6_a33
2037       , p6_a34
2038       , p6_a35
2039       , p6_a36
2040       , p6_a37
2041       , p6_a38
2042       , p6_a39
2043       , p6_a40
2044       , p6_a41
2045       , p6_a42
2046       , p6_a43
2047       , p6_a44
2048       , p6_a45
2049       , p6_a46
2050       , p6_a47
2051       , p6_a48
2052       , p6_a49
2053       , p6_a50
2054       , p6_a51
2055       , p6_a52
2056       , p6_a53
2057       , p6_a54
2058       , p6_a55
2059       , p6_a56
2060       , p6_a57
2061       , p6_a58
2062       , p6_a59
2063       , p6_a60
2064       , p6_a61
2065       , p6_a62
2066       , p6_a63
2067       , p6_a64
2068       , p6_a65
2069       , p6_a66
2070       , p6_a67
2071       , p6_a68
2072       , p6_a69
2073       , p6_a70
2074       , p6_a71
2075       , p6_a72
2076       , p6_a73
2077       , p6_a74
2078       , p6_a75
2079       , p6_a76
2080       , p6_a77
2081       , p6_a78
2082       , p6_a79
2083       , p6_a80
2084       , p6_a81
2085       , p6_a82
2086       , p6_a83
2087       , p6_a84
2088       , p6_a85
2089       , p6_a86
2090       , p6_a87
2091       , p6_a88
2092       , p6_a89
2093       , p6_a90
2094       , p6_a91
2095       , p6_a92
2096       , p6_a93
2097       );
2098   end;
2099 
2100   procedure create_trx_contracts(p_api_version  NUMBER
2101     , p_init_msg_list  VARCHAR2
2102     , x_return_status out nocopy  VARCHAR2
2103     , x_msg_count out nocopy  NUMBER
2104     , x_msg_data out nocopy  VARCHAR2
2105     , p6_a0 out nocopy  NUMBER
2106     , p6_a1 out nocopy  NUMBER
2107     , p6_a2 out nocopy  VARCHAR2
2108     , p6_a3 out nocopy  VARCHAR2
2109     , p6_a4 out nocopy  VARCHAR2
2110     , p6_a5 out nocopy  VARCHAR2
2111     , p6_a6 out nocopy  NUMBER
2112     , p6_a7 out nocopy  NUMBER
2113     , p6_a8 out nocopy  NUMBER
2114     , p6_a9 out nocopy  NUMBER
2115     , p6_a10 out nocopy  NUMBER
2116     , p6_a11 out nocopy  NUMBER
2117     , p6_a12 out nocopy  VARCHAR2
2118     , p6_a13 out nocopy  VARCHAR2
2119     , p6_a14 out nocopy  DATE
2120     , p6_a15 out nocopy  VARCHAR2
2121     , p6_a16 out nocopy  VARCHAR2
2122     , p6_a17 out nocopy  NUMBER
2123     , p6_a18 out nocopy  VARCHAR2
2124     , p6_a19 out nocopy  VARCHAR2
2125     , p6_a20 out nocopy  VARCHAR2
2126     , p6_a21 out nocopy  VARCHAR2
2127     , p6_a22 out nocopy  VARCHAR2
2128     , p6_a23 out nocopy  VARCHAR2
2129     , p6_a24 out nocopy  VARCHAR2
2130     , p6_a25 out nocopy  VARCHAR2
2131     , p6_a26 out nocopy  VARCHAR2
2132     , p6_a27 out nocopy  VARCHAR2
2133     , p6_a28 out nocopy  VARCHAR2
2134     , p6_a29 out nocopy  VARCHAR2
2135     , p6_a30 out nocopy  VARCHAR2
2136     , p6_a31 out nocopy  VARCHAR2
2137     , p6_a32 out nocopy  VARCHAR2
2138     , p6_a33 out nocopy  VARCHAR2
2139     , p6_a34 out nocopy  VARCHAR2
2140     , p6_a35 out nocopy  VARCHAR2
2141     , p6_a36 out nocopy  VARCHAR2
2142     , p6_a37 out nocopy  NUMBER
2143     , p6_a38 out nocopy  VARCHAR2
2144     , p6_a39 out nocopy  NUMBER
2145     , p6_a40 out nocopy  VARCHAR2
2146     , p6_a41 out nocopy  VARCHAR2
2147     , p6_a42 out nocopy  NUMBER
2148     , p6_a43 out nocopy  NUMBER
2149     , p6_a44 out nocopy  NUMBER
2150     , p6_a45 out nocopy  NUMBER
2151     , p6_a46 out nocopy  NUMBER
2152     , p6_a47 out nocopy  NUMBER
2153     , p6_a48 out nocopy  DATE
2154     , p6_a49 out nocopy  NUMBER
2155     , p6_a50 out nocopy  DATE
2156     , p6_a51 out nocopy  NUMBER
2157     , p6_a52 out nocopy  DATE
2158     , p6_a53 out nocopy  NUMBER
2159     , p6_a54 out nocopy  NUMBER
2160     , p6_a55 out nocopy  VARCHAR2
2161     , p6_a56 out nocopy  NUMBER
2162     , p6_a57 out nocopy  VARCHAR2
2163     , p6_a58 out nocopy  DATE
2164     , p6_a59 out nocopy  VARCHAR2
2165     , p6_a60 out nocopy  VARCHAR2
2166     , p6_a61 out nocopy  VARCHAR2
2167     , p6_a62 out nocopy  VARCHAR2
2168     , p6_a63 out nocopy  VARCHAR2
2169     , p6_a64 out nocopy  VARCHAR2
2170     , p6_a65 out nocopy  VARCHAR2
2171     , p6_a66 out nocopy  VARCHAR2
2172     , p6_a67 out nocopy  VARCHAR2
2173     , p6_a68 out nocopy  VARCHAR2
2174     , p6_a69 out nocopy  VARCHAR2
2175     , p6_a70 out nocopy  VARCHAR2
2176     , p6_a71 out nocopy  VARCHAR2
2177     , p6_a72 out nocopy  VARCHAR2
2178     , p6_a73 out nocopy  VARCHAR2
2179     , p6_a74 out nocopy  VARCHAR2
2180     , p6_a75 out nocopy  VARCHAR2
2181     , p6_a76 out nocopy  VARCHAR2
2182     , p6_a77 out nocopy  NUMBER
2183     , p6_a78 out nocopy  DATE
2184     , p6_a79 out nocopy  NUMBER
2185     , p6_a80 out nocopy  NUMBER
2186     , p6_a81 out nocopy  VARCHAR2
2187     , p6_a82 out nocopy  DATE
2188     , p6_a83 out nocopy  NUMBER
2189     , p6_a84 out nocopy  DATE
2190     , p6_a85 out nocopy  VARCHAR2
2191     , p6_a86 out nocopy  VARCHAR2
2192     , p6_a87 out nocopy  VARCHAR2
2193     , p6_a88 out nocopy  VARCHAR2
2194     , p6_a89 out nocopy  VARCHAR2
2195     , p6_a90 out nocopy  VARCHAR2
2196     , p6_a91 out nocopy  VARCHAR2
2197     , p6_a92 out nocopy  VARCHAR2
2198     , p6_a93 out nocopy  DATE
2199     , p5_a0  NUMBER := 0-1962.0724
2200     , p5_a1  NUMBER := 0-1962.0724
2201     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
2202     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
2203     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
2204     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
2205     , p5_a6  NUMBER := 0-1962.0724
2206     , p5_a7  NUMBER := 0-1962.0724
2207     , p5_a8  NUMBER := 0-1962.0724
2208     , p5_a9  NUMBER := 0-1962.0724
2209     , p5_a10  NUMBER := 0-1962.0724
2210     , p5_a11  NUMBER := 0-1962.0724
2211     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
2212     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
2213     , p5_a14  DATE := fnd_api.g_miss_date
2214     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
2215     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
2216     , p5_a17  NUMBER := 0-1962.0724
2217     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
2218     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
2219     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
2220     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
2221     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
2222     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
2223     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
2224     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
2225     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
2226     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
2227     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
2228     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
2229     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
2230     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
2231     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
2232     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
2233     , p5_a34  VARCHAR2 := fnd_api.g_miss_char
2234     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
2235     , p5_a36  VARCHAR2 := fnd_api.g_miss_char
2236     , p5_a37  NUMBER := 0-1962.0724
2237     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
2238     , p5_a39  NUMBER := 0-1962.0724
2239     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
2240     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
2241     , p5_a42  NUMBER := 0-1962.0724
2242     , p5_a43  NUMBER := 0-1962.0724
2243     , p5_a44  NUMBER := 0-1962.0724
2244     , p5_a45  NUMBER := 0-1962.0724
2245     , p5_a46  NUMBER := 0-1962.0724
2246     , p5_a47  NUMBER := 0-1962.0724
2247     , p5_a48  DATE := fnd_api.g_miss_date
2248     , p5_a49  NUMBER := 0-1962.0724
2249     , p5_a50  DATE := fnd_api.g_miss_date
2250     , p5_a51  NUMBER := 0-1962.0724
2251     , p5_a52  DATE := fnd_api.g_miss_date
2252     , p5_a53  NUMBER := 0-1962.0724
2253     , p5_a54  NUMBER := 0-1962.0724
2254     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
2255     , p5_a56  NUMBER := 0-1962.0724
2256     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
2257     , p5_a58  DATE := fnd_api.g_miss_date
2258     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
2259     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
2260     , p5_a61  VARCHAR2 := fnd_api.g_miss_char
2261     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
2262     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
2263     , p5_a64  VARCHAR2 := fnd_api.g_miss_char
2264     , p5_a65  VARCHAR2 := fnd_api.g_miss_char
2265     , p5_a66  VARCHAR2 := fnd_api.g_miss_char
2266     , p5_a67  VARCHAR2 := fnd_api.g_miss_char
2267     , p5_a68  VARCHAR2 := fnd_api.g_miss_char
2268     , p5_a69  VARCHAR2 := fnd_api.g_miss_char
2269     , p5_a70  VARCHAR2 := fnd_api.g_miss_char
2270     , p5_a71  VARCHAR2 := fnd_api.g_miss_char
2271     , p5_a72  VARCHAR2 := fnd_api.g_miss_char
2272     , p5_a73  VARCHAR2 := fnd_api.g_miss_char
2273     , p5_a74  VARCHAR2 := fnd_api.g_miss_char
2274     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
2275     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
2276     , p5_a77  NUMBER := 0-1962.0724
2277     , p5_a78  DATE := fnd_api.g_miss_date
2278     , p5_a79  NUMBER := 0-1962.0724
2279     , p5_a80  NUMBER := 0-1962.0724
2280     , p5_a81  VARCHAR2 := fnd_api.g_miss_char
2281     , p5_a82  DATE := fnd_api.g_miss_date
2282     , p5_a83  NUMBER := 0-1962.0724
2283     , p5_a84  DATE := fnd_api.g_miss_date
2284     , p5_a85  VARCHAR2 := fnd_api.g_miss_char
2285     , p5_a86  VARCHAR2 := fnd_api.g_miss_char
2286     , p5_a87  VARCHAR2 := fnd_api.g_miss_char
2287     , p5_a88  VARCHAR2 := fnd_api.g_miss_char
2288     , p5_a89  VARCHAR2 := fnd_api.g_miss_char
2289     , p5_a90  VARCHAR2 := fnd_api.g_miss_char
2290     , p5_a91  VARCHAR2 := fnd_api.g_miss_char
2291     , p5_a92  VARCHAR2 := fnd_api.g_miss_char
2292     , p5_a93  DATE := fnd_api.g_miss_date
2293   )
2294 
2295   as
2296     ddp_tcnv_rec okl_trx_contracts_pub.tcnv_rec_type;
2297     ddx_tcnv_rec okl_trx_contracts_pub.tcnv_rec_type;
2298     ddindx binary_integer; indx binary_integer;
2299   begin
2300 
2301     -- copy data to the local IN or IN-OUT args, if any
2302 
2303 
2304 
2305 
2306 
2307     ddp_tcnv_rec.id := rosetta_g_miss_num_map(p5_a0);
2308     ddp_tcnv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
2309     ddp_tcnv_rec.rbr_code := p5_a2;
2310     ddp_tcnv_rec.rpy_code := p5_a3;
2311     ddp_tcnv_rec.rvn_code := p5_a4;
2312     ddp_tcnv_rec.trn_code := p5_a5;
2313     ddp_tcnv_rec.khr_id_new := rosetta_g_miss_num_map(p5_a6);
2314     ddp_tcnv_rec.pvn_id := rosetta_g_miss_num_map(p5_a7);
2315     ddp_tcnv_rec.pdt_id := rosetta_g_miss_num_map(p5_a8);
2316     ddp_tcnv_rec.qte_id := rosetta_g_miss_num_map(p5_a9);
2317     ddp_tcnv_rec.aes_id := rosetta_g_miss_num_map(p5_a10);
2318     ddp_tcnv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a11);
2319     ddp_tcnv_rec.tax_deductible_local := p5_a12;
2320     ddp_tcnv_rec.tax_deductible_corporate := p5_a13;
2321     ddp_tcnv_rec.date_accrual := rosetta_g_miss_date_in_map(p5_a14);
2322     ddp_tcnv_rec.accrual_status_yn := p5_a15;
2323     ddp_tcnv_rec.update_status_yn := p5_a16;
2324     ddp_tcnv_rec.amount := rosetta_g_miss_num_map(p5_a17);
2325     ddp_tcnv_rec.currency_code := p5_a18;
2326     ddp_tcnv_rec.attribute_category := p5_a19;
2327     ddp_tcnv_rec.attribute1 := p5_a20;
2328     ddp_tcnv_rec.attribute2 := p5_a21;
2329     ddp_tcnv_rec.attribute3 := p5_a22;
2330     ddp_tcnv_rec.attribute4 := p5_a23;
2331     ddp_tcnv_rec.attribute5 := p5_a24;
2332     ddp_tcnv_rec.attribute6 := p5_a25;
2333     ddp_tcnv_rec.attribute7 := p5_a26;
2334     ddp_tcnv_rec.attribute8 := p5_a27;
2335     ddp_tcnv_rec.attribute9 := p5_a28;
2336     ddp_tcnv_rec.attribute10 := p5_a29;
2337     ddp_tcnv_rec.attribute11 := p5_a30;
2338     ddp_tcnv_rec.attribute12 := p5_a31;
2339     ddp_tcnv_rec.attribute13 := p5_a32;
2340     ddp_tcnv_rec.attribute14 := p5_a33;
2341     ddp_tcnv_rec.attribute15 := p5_a34;
2342     ddp_tcnv_rec.tcn_type := p5_a35;
2343     ddp_tcnv_rec.rjn_code := p5_a36;
2344     ddp_tcnv_rec.party_rel_id1_old := rosetta_g_miss_num_map(p5_a37);
2345     ddp_tcnv_rec.party_rel_id2_old := p5_a38;
2346     ddp_tcnv_rec.party_rel_id1_new := rosetta_g_miss_num_map(p5_a39);
2347     ddp_tcnv_rec.party_rel_id2_new := p5_a40;
2348     ddp_tcnv_rec.complete_transfer_yn := p5_a41;
2349     ddp_tcnv_rec.org_id := rosetta_g_miss_num_map(p5_a42);
2350     ddp_tcnv_rec.khr_id := rosetta_g_miss_num_map(p5_a43);
2351     ddp_tcnv_rec.request_id := rosetta_g_miss_num_map(p5_a44);
2352     ddp_tcnv_rec.program_application_id := rosetta_g_miss_num_map(p5_a45);
2353     ddp_tcnv_rec.khr_id_old := rosetta_g_miss_num_map(p5_a46);
2354     ddp_tcnv_rec.program_id := rosetta_g_miss_num_map(p5_a47);
2355     ddp_tcnv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a48);
2356     ddp_tcnv_rec.created_by := rosetta_g_miss_num_map(p5_a49);
2357     ddp_tcnv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a50);
2358     ddp_tcnv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a51);
2359     ddp_tcnv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a52);
2360     ddp_tcnv_rec.last_update_login := rosetta_g_miss_num_map(p5_a53);
2361     ddp_tcnv_rec.try_id := rosetta_g_miss_num_map(p5_a54);
2362     ddp_tcnv_rec.tsu_code := p5_a55;
2363     ddp_tcnv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a56);
2364     ddp_tcnv_rec.description := p5_a57;
2365     ddp_tcnv_rec.date_transaction_occurred := rosetta_g_miss_date_in_map(p5_a58);
2366     ddp_tcnv_rec.trx_number := p5_a59;
2367     ddp_tcnv_rec.tmt_evergreen_yn := p5_a60;
2368     ddp_tcnv_rec.tmt_close_balances_yn := p5_a61;
2369     ddp_tcnv_rec.tmt_accounting_entries_yn := p5_a62;
2370     ddp_tcnv_rec.tmt_cancel_insurance_yn := p5_a63;
2371     ddp_tcnv_rec.tmt_asset_disposition_yn := p5_a64;
2372     ddp_tcnv_rec.tmt_amortization_yn := p5_a65;
2373     ddp_tcnv_rec.tmt_asset_return_yn := p5_a66;
2374     ddp_tcnv_rec.tmt_contract_updated_yn := p5_a67;
2375     ddp_tcnv_rec.tmt_recycle_yn := p5_a68;
2376     ddp_tcnv_rec.tmt_validated_yn := p5_a69;
2377     ddp_tcnv_rec.tmt_streams_updated_yn := p5_a70;
2378     ddp_tcnv_rec.accrual_activity := p5_a71;
2379     ddp_tcnv_rec.tmt_split_asset_yn := p5_a72;
2380     ddp_tcnv_rec.tmt_generic_flag1_yn := p5_a73;
2381     ddp_tcnv_rec.tmt_generic_flag2_yn := p5_a74;
2382     ddp_tcnv_rec.tmt_generic_flag3_yn := p5_a75;
2383     ddp_tcnv_rec.currency_conversion_type := p5_a76;
2384     ddp_tcnv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a77);
2385     ddp_tcnv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a78);
2386     ddp_tcnv_rec.chr_id := rosetta_g_miss_num_map(p5_a79);
2387     ddp_tcnv_rec.source_trx_id := rosetta_g_miss_num_map(p5_a80);
2388     ddp_tcnv_rec.source_trx_type := p5_a81;
2389     ddp_tcnv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a82);
2390     ddp_tcnv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a83);
2391     ddp_tcnv_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p5_a84);
2392     ddp_tcnv_rec.accounting_reversal_yn := p5_a85;
2393     ddp_tcnv_rec.product_name := p5_a86;
2394     ddp_tcnv_rec.book_classification_code := p5_a87;
2395     ddp_tcnv_rec.tax_owner_code := p5_a88;
2396     ddp_tcnv_rec.tmt_status_code := p5_a89;
2397     ddp_tcnv_rec.representation_name := p5_a90;
2398     ddp_tcnv_rec.representation_code := p5_a91;
2399     ddp_tcnv_rec.upgrade_status_flag := p5_a92;
2400     ddp_tcnv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a93);
2401 
2402 
2403     -- here's the delegated call to the old PL/SQL routine
2404     okl_trx_contracts_pub.create_trx_contracts(p_api_version,
2405       p_init_msg_list,
2406       x_return_status,
2407       x_msg_count,
2408       x_msg_data,
2409       ddp_tcnv_rec,
2410       ddx_tcnv_rec);
2411 
2412     -- copy data back from the local variables to OUT or IN-OUT args, if any
2413 
2414 
2415 
2416 
2417 
2418 
2419     p6_a0 := rosetta_g_miss_num_map(ddx_tcnv_rec.id);
2420     p6_a1 := rosetta_g_miss_num_map(ddx_tcnv_rec.object_version_number);
2421     p6_a2 := ddx_tcnv_rec.rbr_code;
2422     p6_a3 := ddx_tcnv_rec.rpy_code;
2423     p6_a4 := ddx_tcnv_rec.rvn_code;
2424     p6_a5 := ddx_tcnv_rec.trn_code;
2425     p6_a6 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id_new);
2426     p6_a7 := rosetta_g_miss_num_map(ddx_tcnv_rec.pvn_id);
2427     p6_a8 := rosetta_g_miss_num_map(ddx_tcnv_rec.pdt_id);
2428     p6_a9 := rosetta_g_miss_num_map(ddx_tcnv_rec.qte_id);
2429     p6_a10 := rosetta_g_miss_num_map(ddx_tcnv_rec.aes_id);
2430     p6_a11 := rosetta_g_miss_num_map(ddx_tcnv_rec.code_combination_id);
2431     p6_a12 := ddx_tcnv_rec.tax_deductible_local;
2432     p6_a13 := ddx_tcnv_rec.tax_deductible_corporate;
2433     p6_a14 := ddx_tcnv_rec.date_accrual;
2434     p6_a15 := ddx_tcnv_rec.accrual_status_yn;
2435     p6_a16 := ddx_tcnv_rec.update_status_yn;
2436     p6_a17 := rosetta_g_miss_num_map(ddx_tcnv_rec.amount);
2437     p6_a18 := ddx_tcnv_rec.currency_code;
2438     p6_a19 := ddx_tcnv_rec.attribute_category;
2439     p6_a20 := ddx_tcnv_rec.attribute1;
2440     p6_a21 := ddx_tcnv_rec.attribute2;
2441     p6_a22 := ddx_tcnv_rec.attribute3;
2442     p6_a23 := ddx_tcnv_rec.attribute4;
2443     p6_a24 := ddx_tcnv_rec.attribute5;
2444     p6_a25 := ddx_tcnv_rec.attribute6;
2445     p6_a26 := ddx_tcnv_rec.attribute7;
2446     p6_a27 := ddx_tcnv_rec.attribute8;
2447     p6_a28 := ddx_tcnv_rec.attribute9;
2448     p6_a29 := ddx_tcnv_rec.attribute10;
2449     p6_a30 := ddx_tcnv_rec.attribute11;
2450     p6_a31 := ddx_tcnv_rec.attribute12;
2451     p6_a32 := ddx_tcnv_rec.attribute13;
2452     p6_a33 := ddx_tcnv_rec.attribute14;
2453     p6_a34 := ddx_tcnv_rec.attribute15;
2454     p6_a35 := ddx_tcnv_rec.tcn_type;
2455     p6_a36 := ddx_tcnv_rec.rjn_code;
2456     p6_a37 := rosetta_g_miss_num_map(ddx_tcnv_rec.party_rel_id1_old);
2457     p6_a38 := ddx_tcnv_rec.party_rel_id2_old;
2458     p6_a39 := rosetta_g_miss_num_map(ddx_tcnv_rec.party_rel_id1_new);
2459     p6_a40 := ddx_tcnv_rec.party_rel_id2_new;
2460     p6_a41 := ddx_tcnv_rec.complete_transfer_yn;
2461     p6_a42 := rosetta_g_miss_num_map(ddx_tcnv_rec.org_id);
2462     p6_a43 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id);
2463     p6_a44 := rosetta_g_miss_num_map(ddx_tcnv_rec.request_id);
2464     p6_a45 := rosetta_g_miss_num_map(ddx_tcnv_rec.program_application_id);
2465     p6_a46 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id_old);
2466     p6_a47 := rosetta_g_miss_num_map(ddx_tcnv_rec.program_id);
2467     p6_a48 := ddx_tcnv_rec.program_update_date;
2468     p6_a49 := rosetta_g_miss_num_map(ddx_tcnv_rec.created_by);
2469     p6_a50 := ddx_tcnv_rec.creation_date;
2470     p6_a51 := rosetta_g_miss_num_map(ddx_tcnv_rec.last_updated_by);
2471     p6_a52 := ddx_tcnv_rec.last_update_date;
2472     p6_a53 := rosetta_g_miss_num_map(ddx_tcnv_rec.last_update_login);
2473     p6_a54 := rosetta_g_miss_num_map(ddx_tcnv_rec.try_id);
2474     p6_a55 := ddx_tcnv_rec.tsu_code;
2475     p6_a56 := rosetta_g_miss_num_map(ddx_tcnv_rec.set_of_books_id);
2476     p6_a57 := ddx_tcnv_rec.description;
2477     p6_a58 := ddx_tcnv_rec.date_transaction_occurred;
2478     p6_a59 := ddx_tcnv_rec.trx_number;
2479     p6_a60 := ddx_tcnv_rec.tmt_evergreen_yn;
2480     p6_a61 := ddx_tcnv_rec.tmt_close_balances_yn;
2481     p6_a62 := ddx_tcnv_rec.tmt_accounting_entries_yn;
2482     p6_a63 := ddx_tcnv_rec.tmt_cancel_insurance_yn;
2483     p6_a64 := ddx_tcnv_rec.tmt_asset_disposition_yn;
2484     p6_a65 := ddx_tcnv_rec.tmt_amortization_yn;
2485     p6_a66 := ddx_tcnv_rec.tmt_asset_return_yn;
2486     p6_a67 := ddx_tcnv_rec.tmt_contract_updated_yn;
2487     p6_a68 := ddx_tcnv_rec.tmt_recycle_yn;
2488     p6_a69 := ddx_tcnv_rec.tmt_validated_yn;
2489     p6_a70 := ddx_tcnv_rec.tmt_streams_updated_yn;
2490     p6_a71 := ddx_tcnv_rec.accrual_activity;
2491     p6_a72 := ddx_tcnv_rec.tmt_split_asset_yn;
2492     p6_a73 := ddx_tcnv_rec.tmt_generic_flag1_yn;
2493     p6_a74 := ddx_tcnv_rec.tmt_generic_flag2_yn;
2494     p6_a75 := ddx_tcnv_rec.tmt_generic_flag3_yn;
2495     p6_a76 := ddx_tcnv_rec.currency_conversion_type;
2496     p6_a77 := rosetta_g_miss_num_map(ddx_tcnv_rec.currency_conversion_rate);
2497     p6_a78 := ddx_tcnv_rec.currency_conversion_date;
2498     p6_a79 := rosetta_g_miss_num_map(ddx_tcnv_rec.chr_id);
2499     p6_a80 := rosetta_g_miss_num_map(ddx_tcnv_rec.source_trx_id);
2500     p6_a81 := ddx_tcnv_rec.source_trx_type;
2501     p6_a82 := ddx_tcnv_rec.canceled_date;
2502     p6_a83 := rosetta_g_miss_num_map(ddx_tcnv_rec.legal_entity_id);
2503     p6_a84 := ddx_tcnv_rec.accrual_reversal_date;
2504     p6_a85 := ddx_tcnv_rec.accounting_reversal_yn;
2505     p6_a86 := ddx_tcnv_rec.product_name;
2506     p6_a87 := ddx_tcnv_rec.book_classification_code;
2507     p6_a88 := ddx_tcnv_rec.tax_owner_code;
2508     p6_a89 := ddx_tcnv_rec.tmt_status_code;
2509     p6_a90 := ddx_tcnv_rec.representation_name;
2510     p6_a91 := ddx_tcnv_rec.representation_code;
2511     p6_a92 := ddx_tcnv_rec.upgrade_status_flag;
2512     p6_a93 := ddx_tcnv_rec.transaction_date;
2513   end;
2514 
2515   procedure lock_trx_contracts(p_api_version  NUMBER
2516     , p_init_msg_list  VARCHAR2
2517     , x_return_status out nocopy  VARCHAR2
2518     , x_msg_count out nocopy  NUMBER
2519     , x_msg_data out nocopy  VARCHAR2
2520     , p5_a0 JTF_NUMBER_TABLE
2521     , p5_a1 JTF_NUMBER_TABLE
2522     , p5_a2 JTF_VARCHAR2_TABLE_100
2523     , p5_a3 JTF_VARCHAR2_TABLE_100
2524     , p5_a4 JTF_VARCHAR2_TABLE_100
2525     , p5_a5 JTF_VARCHAR2_TABLE_100
2526     , p5_a6 JTF_NUMBER_TABLE
2527     , p5_a7 JTF_NUMBER_TABLE
2528     , p5_a8 JTF_NUMBER_TABLE
2529     , p5_a9 JTF_NUMBER_TABLE
2530     , p5_a10 JTF_NUMBER_TABLE
2531     , p5_a11 JTF_NUMBER_TABLE
2532     , p5_a12 JTF_VARCHAR2_TABLE_100
2533     , p5_a13 JTF_VARCHAR2_TABLE_100
2534     , p5_a14 JTF_DATE_TABLE
2535     , p5_a15 JTF_VARCHAR2_TABLE_100
2536     , p5_a16 JTF_VARCHAR2_TABLE_100
2537     , p5_a17 JTF_NUMBER_TABLE
2538     , p5_a18 JTF_VARCHAR2_TABLE_200
2539     , p5_a19 JTF_VARCHAR2_TABLE_100
2540     , p5_a20 JTF_VARCHAR2_TABLE_500
2541     , p5_a21 JTF_VARCHAR2_TABLE_500
2542     , p5_a22 JTF_VARCHAR2_TABLE_500
2543     , p5_a23 JTF_VARCHAR2_TABLE_500
2544     , p5_a24 JTF_VARCHAR2_TABLE_500
2545     , p5_a25 JTF_VARCHAR2_TABLE_500
2546     , p5_a26 JTF_VARCHAR2_TABLE_500
2547     , p5_a27 JTF_VARCHAR2_TABLE_500
2548     , p5_a28 JTF_VARCHAR2_TABLE_500
2549     , p5_a29 JTF_VARCHAR2_TABLE_500
2550     , p5_a30 JTF_VARCHAR2_TABLE_500
2551     , p5_a31 JTF_VARCHAR2_TABLE_500
2552     , p5_a32 JTF_VARCHAR2_TABLE_500
2553     , p5_a33 JTF_VARCHAR2_TABLE_500
2554     , p5_a34 JTF_VARCHAR2_TABLE_500
2555     , p5_a35 JTF_VARCHAR2_TABLE_100
2556     , p5_a36 JTF_VARCHAR2_TABLE_100
2557     , p5_a37 JTF_NUMBER_TABLE
2558     , p5_a38 JTF_VARCHAR2_TABLE_100
2559     , p5_a39 JTF_NUMBER_TABLE
2560     , p5_a40 JTF_VARCHAR2_TABLE_100
2561     , p5_a41 JTF_VARCHAR2_TABLE_100
2562     , p5_a42 JTF_NUMBER_TABLE
2563     , p5_a43 JTF_NUMBER_TABLE
2564     , p5_a44 JTF_NUMBER_TABLE
2565     , p5_a45 JTF_NUMBER_TABLE
2566     , p5_a46 JTF_NUMBER_TABLE
2567     , p5_a47 JTF_NUMBER_TABLE
2568     , p5_a48 JTF_DATE_TABLE
2569     , p5_a49 JTF_NUMBER_TABLE
2570     , p5_a50 JTF_DATE_TABLE
2571     , p5_a51 JTF_NUMBER_TABLE
2572     , p5_a52 JTF_DATE_TABLE
2573     , p5_a53 JTF_NUMBER_TABLE
2574     , p5_a54 JTF_NUMBER_TABLE
2575     , p5_a55 JTF_VARCHAR2_TABLE_100
2576     , p5_a56 JTF_NUMBER_TABLE
2577     , p5_a57 JTF_VARCHAR2_TABLE_2000
2578     , p5_a58 JTF_DATE_TABLE
2579     , p5_a59 JTF_VARCHAR2_TABLE_100
2580     , p5_a60 JTF_VARCHAR2_TABLE_100
2581     , p5_a61 JTF_VARCHAR2_TABLE_100
2582     , p5_a62 JTF_VARCHAR2_TABLE_100
2583     , p5_a63 JTF_VARCHAR2_TABLE_100
2584     , p5_a64 JTF_VARCHAR2_TABLE_100
2585     , p5_a65 JTF_VARCHAR2_TABLE_100
2586     , p5_a66 JTF_VARCHAR2_TABLE_100
2587     , p5_a67 JTF_VARCHAR2_TABLE_100
2588     , p5_a68 JTF_VARCHAR2_TABLE_100
2589     , p5_a69 JTF_VARCHAR2_TABLE_100
2590     , p5_a70 JTF_VARCHAR2_TABLE_100
2591     , p5_a71 JTF_VARCHAR2_TABLE_100
2592     , p5_a72 JTF_VARCHAR2_TABLE_100
2593     , p5_a73 JTF_VARCHAR2_TABLE_100
2594     , p5_a74 JTF_VARCHAR2_TABLE_100
2595     , p5_a75 JTF_VARCHAR2_TABLE_100
2596     , p5_a76 JTF_VARCHAR2_TABLE_100
2597     , p5_a77 JTF_NUMBER_TABLE
2598     , p5_a78 JTF_DATE_TABLE
2599     , p5_a79 JTF_NUMBER_TABLE
2600     , p5_a80 JTF_NUMBER_TABLE
2601     , p5_a81 JTF_VARCHAR2_TABLE_100
2602     , p5_a82 JTF_DATE_TABLE
2603     , p5_a83 JTF_NUMBER_TABLE
2604     , p5_a84 JTF_DATE_TABLE
2605     , p5_a85 JTF_VARCHAR2_TABLE_100
2606     , p5_a86 JTF_VARCHAR2_TABLE_200
2607     , p5_a87 JTF_VARCHAR2_TABLE_100
2608     , p5_a88 JTF_VARCHAR2_TABLE_200
2609     , p5_a89 JTF_VARCHAR2_TABLE_100
2610     , p5_a90 JTF_VARCHAR2_TABLE_100
2611     , p5_a91 JTF_VARCHAR2_TABLE_100
2612     , p5_a92 JTF_VARCHAR2_TABLE_100
2613     , p5_a93 JTF_DATE_TABLE
2614   )
2615 
2616   as
2617     ddp_tcnv_tbl okl_trx_contracts_pub.tcnv_tbl_type;
2618     ddindx binary_integer; indx binary_integer;
2619   begin
2620 
2621     -- copy data to the local IN or IN-OUT args, if any
2622 
2623 
2624 
2625 
2626 
2627     okl_tcn_pvt_w.rosetta_table_copy_in_p5(ddp_tcnv_tbl, p5_a0
2628       , p5_a1
2629       , p5_a2
2630       , p5_a3
2631       , p5_a4
2632       , p5_a5
2633       , p5_a6
2634       , p5_a7
2635       , p5_a8
2636       , p5_a9
2637       , p5_a10
2638       , p5_a11
2639       , p5_a12
2640       , p5_a13
2641       , p5_a14
2642       , p5_a15
2643       , p5_a16
2644       , p5_a17
2645       , p5_a18
2646       , p5_a19
2647       , p5_a20
2648       , p5_a21
2649       , p5_a22
2650       , p5_a23
2651       , p5_a24
2652       , p5_a25
2653       , p5_a26
2654       , p5_a27
2655       , p5_a28
2656       , p5_a29
2657       , p5_a30
2658       , p5_a31
2659       , p5_a32
2660       , p5_a33
2661       , p5_a34
2662       , p5_a35
2663       , p5_a36
2664       , p5_a37
2665       , p5_a38
2666       , p5_a39
2667       , p5_a40
2668       , p5_a41
2669       , p5_a42
2670       , p5_a43
2671       , p5_a44
2672       , p5_a45
2673       , p5_a46
2674       , p5_a47
2675       , p5_a48
2676       , p5_a49
2677       , p5_a50
2678       , p5_a51
2679       , p5_a52
2680       , p5_a53
2681       , p5_a54
2682       , p5_a55
2683       , p5_a56
2684       , p5_a57
2685       , p5_a58
2686       , p5_a59
2687       , p5_a60
2688       , p5_a61
2689       , p5_a62
2690       , p5_a63
2691       , p5_a64
2692       , p5_a65
2693       , p5_a66
2694       , p5_a67
2695       , p5_a68
2696       , p5_a69
2697       , p5_a70
2698       , p5_a71
2699       , p5_a72
2700       , p5_a73
2701       , p5_a74
2702       , p5_a75
2703       , p5_a76
2704       , p5_a77
2705       , p5_a78
2706       , p5_a79
2707       , p5_a80
2708       , p5_a81
2709       , p5_a82
2710       , p5_a83
2711       , p5_a84
2712       , p5_a85
2713       , p5_a86
2714       , p5_a87
2715       , p5_a88
2716       , p5_a89
2717       , p5_a90
2718       , p5_a91
2719       , p5_a92
2720       , p5_a93
2721       );
2722 
2723     -- here's the delegated call to the old PL/SQL routine
2724     okl_trx_contracts_pub.lock_trx_contracts(p_api_version,
2725       p_init_msg_list,
2726       x_return_status,
2727       x_msg_count,
2728       x_msg_data,
2729       ddp_tcnv_tbl);
2730 
2731     -- copy data back from the local variables to OUT or IN-OUT args, if any
2732 
2733 
2734 
2735 
2736 
2737   end;
2738 
2739   procedure lock_trx_contracts(p_api_version  NUMBER
2740     , p_init_msg_list  VARCHAR2
2741     , x_return_status out nocopy  VARCHAR2
2742     , x_msg_count out nocopy  NUMBER
2743     , x_msg_data out nocopy  VARCHAR2
2744     , p5_a0  NUMBER := 0-1962.0724
2745     , p5_a1  NUMBER := 0-1962.0724
2746     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
2747     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
2748     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
2749     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
2750     , p5_a6  NUMBER := 0-1962.0724
2751     , p5_a7  NUMBER := 0-1962.0724
2752     , p5_a8  NUMBER := 0-1962.0724
2753     , p5_a9  NUMBER := 0-1962.0724
2754     , p5_a10  NUMBER := 0-1962.0724
2755     , p5_a11  NUMBER := 0-1962.0724
2756     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
2757     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
2758     , p5_a14  DATE := fnd_api.g_miss_date
2759     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
2760     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
2761     , p5_a17  NUMBER := 0-1962.0724
2762     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
2763     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
2764     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
2765     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
2766     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
2767     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
2768     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
2769     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
2770     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
2771     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
2772     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
2773     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
2774     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
2775     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
2776     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
2777     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
2778     , p5_a34  VARCHAR2 := fnd_api.g_miss_char
2779     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
2780     , p5_a36  VARCHAR2 := fnd_api.g_miss_char
2781     , p5_a37  NUMBER := 0-1962.0724
2782     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
2783     , p5_a39  NUMBER := 0-1962.0724
2784     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
2785     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
2786     , p5_a42  NUMBER := 0-1962.0724
2787     , p5_a43  NUMBER := 0-1962.0724
2788     , p5_a44  NUMBER := 0-1962.0724
2789     , p5_a45  NUMBER := 0-1962.0724
2790     , p5_a46  NUMBER := 0-1962.0724
2791     , p5_a47  NUMBER := 0-1962.0724
2792     , p5_a48  DATE := fnd_api.g_miss_date
2793     , p5_a49  NUMBER := 0-1962.0724
2794     , p5_a50  DATE := fnd_api.g_miss_date
2795     , p5_a51  NUMBER := 0-1962.0724
2796     , p5_a52  DATE := fnd_api.g_miss_date
2797     , p5_a53  NUMBER := 0-1962.0724
2798     , p5_a54  NUMBER := 0-1962.0724
2799     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
2800     , p5_a56  NUMBER := 0-1962.0724
2801     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
2802     , p5_a58  DATE := fnd_api.g_miss_date
2803     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
2804     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
2805     , p5_a61  VARCHAR2 := fnd_api.g_miss_char
2806     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
2807     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
2808     , p5_a64  VARCHAR2 := fnd_api.g_miss_char
2809     , p5_a65  VARCHAR2 := fnd_api.g_miss_char
2810     , p5_a66  VARCHAR2 := fnd_api.g_miss_char
2811     , p5_a67  VARCHAR2 := fnd_api.g_miss_char
2812     , p5_a68  VARCHAR2 := fnd_api.g_miss_char
2813     , p5_a69  VARCHAR2 := fnd_api.g_miss_char
2814     , p5_a70  VARCHAR2 := fnd_api.g_miss_char
2815     , p5_a71  VARCHAR2 := fnd_api.g_miss_char
2816     , p5_a72  VARCHAR2 := fnd_api.g_miss_char
2817     , p5_a73  VARCHAR2 := fnd_api.g_miss_char
2818     , p5_a74  VARCHAR2 := fnd_api.g_miss_char
2819     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
2820     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
2821     , p5_a77  NUMBER := 0-1962.0724
2822     , p5_a78  DATE := fnd_api.g_miss_date
2823     , p5_a79  NUMBER := 0-1962.0724
2824     , p5_a80  NUMBER := 0-1962.0724
2825     , p5_a81  VARCHAR2 := fnd_api.g_miss_char
2826     , p5_a82  DATE := fnd_api.g_miss_date
2827     , p5_a83  NUMBER := 0-1962.0724
2828     , p5_a84  DATE := fnd_api.g_miss_date
2829     , p5_a85  VARCHAR2 := fnd_api.g_miss_char
2830     , p5_a86  VARCHAR2 := fnd_api.g_miss_char
2831     , p5_a87  VARCHAR2 := fnd_api.g_miss_char
2832     , p5_a88  VARCHAR2 := fnd_api.g_miss_char
2833     , p5_a89  VARCHAR2 := fnd_api.g_miss_char
2834     , p5_a90  VARCHAR2 := fnd_api.g_miss_char
2835     , p5_a91  VARCHAR2 := fnd_api.g_miss_char
2836     , p5_a92  VARCHAR2 := fnd_api.g_miss_char
2837     , p5_a93  DATE := fnd_api.g_miss_date
2838   )
2839 
2840   as
2841     ddp_tcnv_rec okl_trx_contracts_pub.tcnv_rec_type;
2842     ddindx binary_integer; indx binary_integer;
2843   begin
2844 
2845     -- copy data to the local IN or IN-OUT args, if any
2846 
2847 
2848 
2849 
2850 
2851     ddp_tcnv_rec.id := rosetta_g_miss_num_map(p5_a0);
2852     ddp_tcnv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
2853     ddp_tcnv_rec.rbr_code := p5_a2;
2854     ddp_tcnv_rec.rpy_code := p5_a3;
2855     ddp_tcnv_rec.rvn_code := p5_a4;
2856     ddp_tcnv_rec.trn_code := p5_a5;
2857     ddp_tcnv_rec.khr_id_new := rosetta_g_miss_num_map(p5_a6);
2858     ddp_tcnv_rec.pvn_id := rosetta_g_miss_num_map(p5_a7);
2859     ddp_tcnv_rec.pdt_id := rosetta_g_miss_num_map(p5_a8);
2860     ddp_tcnv_rec.qte_id := rosetta_g_miss_num_map(p5_a9);
2861     ddp_tcnv_rec.aes_id := rosetta_g_miss_num_map(p5_a10);
2862     ddp_tcnv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a11);
2863     ddp_tcnv_rec.tax_deductible_local := p5_a12;
2864     ddp_tcnv_rec.tax_deductible_corporate := p5_a13;
2865     ddp_tcnv_rec.date_accrual := rosetta_g_miss_date_in_map(p5_a14);
2866     ddp_tcnv_rec.accrual_status_yn := p5_a15;
2867     ddp_tcnv_rec.update_status_yn := p5_a16;
2868     ddp_tcnv_rec.amount := rosetta_g_miss_num_map(p5_a17);
2869     ddp_tcnv_rec.currency_code := p5_a18;
2870     ddp_tcnv_rec.attribute_category := p5_a19;
2871     ddp_tcnv_rec.attribute1 := p5_a20;
2872     ddp_tcnv_rec.attribute2 := p5_a21;
2873     ddp_tcnv_rec.attribute3 := p5_a22;
2874     ddp_tcnv_rec.attribute4 := p5_a23;
2875     ddp_tcnv_rec.attribute5 := p5_a24;
2876     ddp_tcnv_rec.attribute6 := p5_a25;
2877     ddp_tcnv_rec.attribute7 := p5_a26;
2878     ddp_tcnv_rec.attribute8 := p5_a27;
2879     ddp_tcnv_rec.attribute9 := p5_a28;
2880     ddp_tcnv_rec.attribute10 := p5_a29;
2881     ddp_tcnv_rec.attribute11 := p5_a30;
2882     ddp_tcnv_rec.attribute12 := p5_a31;
2883     ddp_tcnv_rec.attribute13 := p5_a32;
2884     ddp_tcnv_rec.attribute14 := p5_a33;
2885     ddp_tcnv_rec.attribute15 := p5_a34;
2886     ddp_tcnv_rec.tcn_type := p5_a35;
2887     ddp_tcnv_rec.rjn_code := p5_a36;
2888     ddp_tcnv_rec.party_rel_id1_old := rosetta_g_miss_num_map(p5_a37);
2889     ddp_tcnv_rec.party_rel_id2_old := p5_a38;
2890     ddp_tcnv_rec.party_rel_id1_new := rosetta_g_miss_num_map(p5_a39);
2891     ddp_tcnv_rec.party_rel_id2_new := p5_a40;
2892     ddp_tcnv_rec.complete_transfer_yn := p5_a41;
2893     ddp_tcnv_rec.org_id := rosetta_g_miss_num_map(p5_a42);
2894     ddp_tcnv_rec.khr_id := rosetta_g_miss_num_map(p5_a43);
2895     ddp_tcnv_rec.request_id := rosetta_g_miss_num_map(p5_a44);
2896     ddp_tcnv_rec.program_application_id := rosetta_g_miss_num_map(p5_a45);
2897     ddp_tcnv_rec.khr_id_old := rosetta_g_miss_num_map(p5_a46);
2898     ddp_tcnv_rec.program_id := rosetta_g_miss_num_map(p5_a47);
2899     ddp_tcnv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a48);
2900     ddp_tcnv_rec.created_by := rosetta_g_miss_num_map(p5_a49);
2901     ddp_tcnv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a50);
2902     ddp_tcnv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a51);
2903     ddp_tcnv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a52);
2904     ddp_tcnv_rec.last_update_login := rosetta_g_miss_num_map(p5_a53);
2905     ddp_tcnv_rec.try_id := rosetta_g_miss_num_map(p5_a54);
2906     ddp_tcnv_rec.tsu_code := p5_a55;
2907     ddp_tcnv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a56);
2908     ddp_tcnv_rec.description := p5_a57;
2909     ddp_tcnv_rec.date_transaction_occurred := rosetta_g_miss_date_in_map(p5_a58);
2910     ddp_tcnv_rec.trx_number := p5_a59;
2911     ddp_tcnv_rec.tmt_evergreen_yn := p5_a60;
2912     ddp_tcnv_rec.tmt_close_balances_yn := p5_a61;
2913     ddp_tcnv_rec.tmt_accounting_entries_yn := p5_a62;
2914     ddp_tcnv_rec.tmt_cancel_insurance_yn := p5_a63;
2915     ddp_tcnv_rec.tmt_asset_disposition_yn := p5_a64;
2916     ddp_tcnv_rec.tmt_amortization_yn := p5_a65;
2917     ddp_tcnv_rec.tmt_asset_return_yn := p5_a66;
2918     ddp_tcnv_rec.tmt_contract_updated_yn := p5_a67;
2919     ddp_tcnv_rec.tmt_recycle_yn := p5_a68;
2920     ddp_tcnv_rec.tmt_validated_yn := p5_a69;
2921     ddp_tcnv_rec.tmt_streams_updated_yn := p5_a70;
2922     ddp_tcnv_rec.accrual_activity := p5_a71;
2923     ddp_tcnv_rec.tmt_split_asset_yn := p5_a72;
2924     ddp_tcnv_rec.tmt_generic_flag1_yn := p5_a73;
2925     ddp_tcnv_rec.tmt_generic_flag2_yn := p5_a74;
2926     ddp_tcnv_rec.tmt_generic_flag3_yn := p5_a75;
2927     ddp_tcnv_rec.currency_conversion_type := p5_a76;
2928     ddp_tcnv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a77);
2929     ddp_tcnv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a78);
2930     ddp_tcnv_rec.chr_id := rosetta_g_miss_num_map(p5_a79);
2931     ddp_tcnv_rec.source_trx_id := rosetta_g_miss_num_map(p5_a80);
2932     ddp_tcnv_rec.source_trx_type := p5_a81;
2933     ddp_tcnv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a82);
2934     ddp_tcnv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a83);
2935     ddp_tcnv_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p5_a84);
2936     ddp_tcnv_rec.accounting_reversal_yn := p5_a85;
2937     ddp_tcnv_rec.product_name := p5_a86;
2938     ddp_tcnv_rec.book_classification_code := p5_a87;
2939     ddp_tcnv_rec.tax_owner_code := p5_a88;
2940     ddp_tcnv_rec.tmt_status_code := p5_a89;
2941     ddp_tcnv_rec.representation_name := p5_a90;
2942     ddp_tcnv_rec.representation_code := p5_a91;
2943     ddp_tcnv_rec.upgrade_status_flag := p5_a92;
2944     ddp_tcnv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a93);
2945 
2946     -- here's the delegated call to the old PL/SQL routine
2947     okl_trx_contracts_pub.lock_trx_contracts(p_api_version,
2948       p_init_msg_list,
2949       x_return_status,
2950       x_msg_count,
2951       x_msg_data,
2952       ddp_tcnv_rec);
2953 
2954     -- copy data back from the local variables to OUT or IN-OUT args, if any
2955 
2956 
2957 
2958 
2959 
2960   end;
2961 
2962   procedure update_trx_contracts(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     , p5_a0 JTF_NUMBER_TABLE
2968     , p5_a1 JTF_NUMBER_TABLE
2969     , p5_a2 JTF_VARCHAR2_TABLE_100
2970     , p5_a3 JTF_VARCHAR2_TABLE_100
2971     , p5_a4 JTF_VARCHAR2_TABLE_100
2972     , p5_a5 JTF_VARCHAR2_TABLE_100
2973     , p5_a6 JTF_NUMBER_TABLE
2974     , p5_a7 JTF_NUMBER_TABLE
2975     , p5_a8 JTF_NUMBER_TABLE
2976     , p5_a9 JTF_NUMBER_TABLE
2977     , p5_a10 JTF_NUMBER_TABLE
2978     , p5_a11 JTF_NUMBER_TABLE
2979     , p5_a12 JTF_VARCHAR2_TABLE_100
2980     , p5_a13 JTF_VARCHAR2_TABLE_100
2981     , p5_a14 JTF_DATE_TABLE
2982     , p5_a15 JTF_VARCHAR2_TABLE_100
2983     , p5_a16 JTF_VARCHAR2_TABLE_100
2984     , p5_a17 JTF_NUMBER_TABLE
2985     , p5_a18 JTF_VARCHAR2_TABLE_200
2986     , p5_a19 JTF_VARCHAR2_TABLE_100
2987     , p5_a20 JTF_VARCHAR2_TABLE_500
2988     , p5_a21 JTF_VARCHAR2_TABLE_500
2989     , p5_a22 JTF_VARCHAR2_TABLE_500
2990     , p5_a23 JTF_VARCHAR2_TABLE_500
2991     , p5_a24 JTF_VARCHAR2_TABLE_500
2992     , p5_a25 JTF_VARCHAR2_TABLE_500
2993     , p5_a26 JTF_VARCHAR2_TABLE_500
2994     , p5_a27 JTF_VARCHAR2_TABLE_500
2995     , p5_a28 JTF_VARCHAR2_TABLE_500
2996     , p5_a29 JTF_VARCHAR2_TABLE_500
2997     , p5_a30 JTF_VARCHAR2_TABLE_500
2998     , p5_a31 JTF_VARCHAR2_TABLE_500
2999     , p5_a32 JTF_VARCHAR2_TABLE_500
3000     , p5_a33 JTF_VARCHAR2_TABLE_500
3001     , p5_a34 JTF_VARCHAR2_TABLE_500
3002     , p5_a35 JTF_VARCHAR2_TABLE_100
3003     , p5_a36 JTF_VARCHAR2_TABLE_100
3004     , p5_a37 JTF_NUMBER_TABLE
3005     , p5_a38 JTF_VARCHAR2_TABLE_100
3006     , p5_a39 JTF_NUMBER_TABLE
3007     , p5_a40 JTF_VARCHAR2_TABLE_100
3008     , p5_a41 JTF_VARCHAR2_TABLE_100
3009     , p5_a42 JTF_NUMBER_TABLE
3010     , p5_a43 JTF_NUMBER_TABLE
3011     , p5_a44 JTF_NUMBER_TABLE
3012     , p5_a45 JTF_NUMBER_TABLE
3013     , p5_a46 JTF_NUMBER_TABLE
3014     , p5_a47 JTF_NUMBER_TABLE
3015     , p5_a48 JTF_DATE_TABLE
3016     , p5_a49 JTF_NUMBER_TABLE
3017     , p5_a50 JTF_DATE_TABLE
3018     , p5_a51 JTF_NUMBER_TABLE
3019     , p5_a52 JTF_DATE_TABLE
3020     , p5_a53 JTF_NUMBER_TABLE
3021     , p5_a54 JTF_NUMBER_TABLE
3022     , p5_a55 JTF_VARCHAR2_TABLE_100
3023     , p5_a56 JTF_NUMBER_TABLE
3024     , p5_a57 JTF_VARCHAR2_TABLE_2000
3025     , p5_a58 JTF_DATE_TABLE
3026     , p5_a59 JTF_VARCHAR2_TABLE_100
3027     , p5_a60 JTF_VARCHAR2_TABLE_100
3028     , p5_a61 JTF_VARCHAR2_TABLE_100
3029     , p5_a62 JTF_VARCHAR2_TABLE_100
3030     , p5_a63 JTF_VARCHAR2_TABLE_100
3031     , p5_a64 JTF_VARCHAR2_TABLE_100
3032     , p5_a65 JTF_VARCHAR2_TABLE_100
3033     , p5_a66 JTF_VARCHAR2_TABLE_100
3034     , p5_a67 JTF_VARCHAR2_TABLE_100
3035     , p5_a68 JTF_VARCHAR2_TABLE_100
3036     , p5_a69 JTF_VARCHAR2_TABLE_100
3037     , p5_a70 JTF_VARCHAR2_TABLE_100
3038     , p5_a71 JTF_VARCHAR2_TABLE_100
3039     , p5_a72 JTF_VARCHAR2_TABLE_100
3040     , p5_a73 JTF_VARCHAR2_TABLE_100
3041     , p5_a74 JTF_VARCHAR2_TABLE_100
3042     , p5_a75 JTF_VARCHAR2_TABLE_100
3043     , p5_a76 JTF_VARCHAR2_TABLE_100
3044     , p5_a77 JTF_NUMBER_TABLE
3045     , p5_a78 JTF_DATE_TABLE
3046     , p5_a79 JTF_NUMBER_TABLE
3047     , p5_a80 JTF_NUMBER_TABLE
3048     , p5_a81 JTF_VARCHAR2_TABLE_100
3049     , p5_a82 JTF_DATE_TABLE
3050     , p5_a83 JTF_NUMBER_TABLE
3051     , p5_a84 JTF_DATE_TABLE
3052     , p5_a85 JTF_VARCHAR2_TABLE_100
3053     , p5_a86 JTF_VARCHAR2_TABLE_200
3054     , p5_a87 JTF_VARCHAR2_TABLE_100
3055     , p5_a88 JTF_VARCHAR2_TABLE_200
3056     , p5_a89 JTF_VARCHAR2_TABLE_100
3057     , p5_a90 JTF_VARCHAR2_TABLE_100
3058     , p5_a91 JTF_VARCHAR2_TABLE_100
3059     , p5_a92 JTF_VARCHAR2_TABLE_100
3060     , p5_a93 JTF_DATE_TABLE
3061     , p6_a0 out nocopy JTF_NUMBER_TABLE
3062     , p6_a1 out nocopy JTF_NUMBER_TABLE
3063     , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
3064     , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
3065     , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
3066     , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
3067     , p6_a6 out nocopy JTF_NUMBER_TABLE
3068     , p6_a7 out nocopy JTF_NUMBER_TABLE
3069     , p6_a8 out nocopy JTF_NUMBER_TABLE
3070     , p6_a9 out nocopy JTF_NUMBER_TABLE
3071     , p6_a10 out nocopy JTF_NUMBER_TABLE
3072     , p6_a11 out nocopy JTF_NUMBER_TABLE
3073     , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
3074     , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
3075     , p6_a14 out nocopy JTF_DATE_TABLE
3076     , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
3077     , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
3078     , p6_a17 out nocopy JTF_NUMBER_TABLE
3079     , p6_a18 out nocopy JTF_VARCHAR2_TABLE_200
3080     , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
3081     , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
3082     , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
3083     , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
3084     , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
3085     , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
3086     , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
3087     , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
3088     , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
3089     , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
3090     , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
3091     , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
3092     , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
3093     , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
3094     , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
3095     , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
3096     , p6_a35 out nocopy JTF_VARCHAR2_TABLE_100
3097     , p6_a36 out nocopy JTF_VARCHAR2_TABLE_100
3098     , p6_a37 out nocopy JTF_NUMBER_TABLE
3099     , p6_a38 out nocopy JTF_VARCHAR2_TABLE_100
3100     , p6_a39 out nocopy JTF_NUMBER_TABLE
3101     , p6_a40 out nocopy JTF_VARCHAR2_TABLE_100
3102     , p6_a41 out nocopy JTF_VARCHAR2_TABLE_100
3103     , p6_a42 out nocopy JTF_NUMBER_TABLE
3104     , p6_a43 out nocopy JTF_NUMBER_TABLE
3105     , p6_a44 out nocopy JTF_NUMBER_TABLE
3106     , p6_a45 out nocopy JTF_NUMBER_TABLE
3107     , p6_a46 out nocopy JTF_NUMBER_TABLE
3108     , p6_a47 out nocopy JTF_NUMBER_TABLE
3109     , p6_a48 out nocopy JTF_DATE_TABLE
3110     , p6_a49 out nocopy JTF_NUMBER_TABLE
3111     , p6_a50 out nocopy JTF_DATE_TABLE
3112     , p6_a51 out nocopy JTF_NUMBER_TABLE
3113     , p6_a52 out nocopy JTF_DATE_TABLE
3114     , p6_a53 out nocopy JTF_NUMBER_TABLE
3115     , p6_a54 out nocopy JTF_NUMBER_TABLE
3116     , p6_a55 out nocopy JTF_VARCHAR2_TABLE_100
3117     , p6_a56 out nocopy JTF_NUMBER_TABLE
3118     , p6_a57 out nocopy JTF_VARCHAR2_TABLE_2000
3119     , p6_a58 out nocopy JTF_DATE_TABLE
3120     , p6_a59 out nocopy JTF_VARCHAR2_TABLE_100
3121     , p6_a60 out nocopy JTF_VARCHAR2_TABLE_100
3122     , p6_a61 out nocopy JTF_VARCHAR2_TABLE_100
3123     , p6_a62 out nocopy JTF_VARCHAR2_TABLE_100
3124     , p6_a63 out nocopy JTF_VARCHAR2_TABLE_100
3125     , p6_a64 out nocopy JTF_VARCHAR2_TABLE_100
3126     , p6_a65 out nocopy JTF_VARCHAR2_TABLE_100
3127     , p6_a66 out nocopy JTF_VARCHAR2_TABLE_100
3128     , p6_a67 out nocopy JTF_VARCHAR2_TABLE_100
3129     , p6_a68 out nocopy JTF_VARCHAR2_TABLE_100
3130     , p6_a69 out nocopy JTF_VARCHAR2_TABLE_100
3131     , p6_a70 out nocopy JTF_VARCHAR2_TABLE_100
3132     , p6_a71 out nocopy JTF_VARCHAR2_TABLE_100
3133     , p6_a72 out nocopy JTF_VARCHAR2_TABLE_100
3134     , p6_a73 out nocopy JTF_VARCHAR2_TABLE_100
3135     , p6_a74 out nocopy JTF_VARCHAR2_TABLE_100
3136     , p6_a75 out nocopy JTF_VARCHAR2_TABLE_100
3137     , p6_a76 out nocopy JTF_VARCHAR2_TABLE_100
3138     , p6_a77 out nocopy JTF_NUMBER_TABLE
3139     , p6_a78 out nocopy JTF_DATE_TABLE
3140     , p6_a79 out nocopy JTF_NUMBER_TABLE
3141     , p6_a80 out nocopy JTF_NUMBER_TABLE
3142     , p6_a81 out nocopy JTF_VARCHAR2_TABLE_100
3143     , p6_a82 out nocopy JTF_DATE_TABLE
3144     , p6_a83 out nocopy JTF_NUMBER_TABLE
3145     , p6_a84 out nocopy JTF_DATE_TABLE
3146     , p6_a85 out nocopy JTF_VARCHAR2_TABLE_100
3147     , p6_a86 out nocopy JTF_VARCHAR2_TABLE_200
3148     , p6_a87 out nocopy JTF_VARCHAR2_TABLE_100
3149     , p6_a88 out nocopy JTF_VARCHAR2_TABLE_200
3150     , p6_a89 out nocopy JTF_VARCHAR2_TABLE_100
3151     , p6_a90 out nocopy JTF_VARCHAR2_TABLE_100
3152     , p6_a91 out nocopy JTF_VARCHAR2_TABLE_100
3153     , p6_a92 out nocopy JTF_VARCHAR2_TABLE_100
3154     , p6_a93 out nocopy JTF_DATE_TABLE
3155   )
3156 
3157   as
3158     ddp_tcnv_tbl okl_trx_contracts_pub.tcnv_tbl_type;
3159     ddx_tcnv_tbl okl_trx_contracts_pub.tcnv_tbl_type;
3160     ddindx binary_integer; indx binary_integer;
3161   begin
3162 
3163     -- copy data to the local IN or IN-OUT args, if any
3164 
3165 
3166 
3167 
3168 
3169     okl_tcn_pvt_w.rosetta_table_copy_in_p5(ddp_tcnv_tbl, p5_a0
3170       , p5_a1
3171       , p5_a2
3172       , p5_a3
3173       , p5_a4
3174       , p5_a5
3175       , p5_a6
3176       , p5_a7
3177       , p5_a8
3178       , p5_a9
3179       , p5_a10
3180       , p5_a11
3181       , p5_a12
3182       , p5_a13
3183       , p5_a14
3184       , p5_a15
3185       , p5_a16
3186       , p5_a17
3187       , p5_a18
3188       , p5_a19
3189       , p5_a20
3190       , p5_a21
3191       , p5_a22
3192       , p5_a23
3193       , p5_a24
3194       , p5_a25
3195       , p5_a26
3196       , p5_a27
3197       , p5_a28
3198       , p5_a29
3199       , p5_a30
3200       , p5_a31
3201       , p5_a32
3202       , p5_a33
3203       , p5_a34
3204       , p5_a35
3205       , p5_a36
3206       , p5_a37
3207       , p5_a38
3208       , p5_a39
3209       , p5_a40
3210       , p5_a41
3211       , p5_a42
3212       , p5_a43
3213       , p5_a44
3214       , p5_a45
3215       , p5_a46
3216       , p5_a47
3217       , p5_a48
3218       , p5_a49
3219       , p5_a50
3220       , p5_a51
3221       , p5_a52
3222       , p5_a53
3223       , p5_a54
3224       , p5_a55
3225       , p5_a56
3226       , p5_a57
3227       , p5_a58
3228       , p5_a59
3229       , p5_a60
3230       , p5_a61
3231       , p5_a62
3232       , p5_a63
3233       , p5_a64
3234       , p5_a65
3235       , p5_a66
3236       , p5_a67
3237       , p5_a68
3238       , p5_a69
3239       , p5_a70
3240       , p5_a71
3241       , p5_a72
3242       , p5_a73
3243       , p5_a74
3244       , p5_a75
3245       , p5_a76
3246       , p5_a77
3247       , p5_a78
3248       , p5_a79
3249       , p5_a80
3250       , p5_a81
3251       , p5_a82
3252       , p5_a83
3253       , p5_a84
3254       , p5_a85
3255       , p5_a86
3256       , p5_a87
3257       , p5_a88
3258       , p5_a89
3259       , p5_a90
3260       , p5_a91
3261       , p5_a92
3262       , p5_a93
3263       );
3264 
3265 
3266     -- here's the delegated call to the old PL/SQL routine
3267     okl_trx_contracts_pub.update_trx_contracts(p_api_version,
3268       p_init_msg_list,
3269       x_return_status,
3270       x_msg_count,
3271       x_msg_data,
3272       ddp_tcnv_tbl,
3273       ddx_tcnv_tbl);
3274 
3275     -- copy data back from the local variables to OUT or IN-OUT args, if any
3276 
3277 
3278 
3279 
3280 
3281 
3282     okl_tcn_pvt_w.rosetta_table_copy_out_p5(ddx_tcnv_tbl, p6_a0
3283       , p6_a1
3284       , p6_a2
3285       , p6_a3
3286       , p6_a4
3287       , p6_a5
3288       , p6_a6
3289       , p6_a7
3290       , p6_a8
3291       , p6_a9
3292       , p6_a10
3293       , p6_a11
3294       , p6_a12
3295       , p6_a13
3296       , p6_a14
3297       , p6_a15
3298       , p6_a16
3299       , p6_a17
3300       , p6_a18
3301       , p6_a19
3302       , p6_a20
3303       , p6_a21
3304       , p6_a22
3305       , p6_a23
3306       , p6_a24
3307       , p6_a25
3308       , p6_a26
3309       , p6_a27
3310       , p6_a28
3311       , p6_a29
3312       , p6_a30
3313       , p6_a31
3314       , p6_a32
3315       , p6_a33
3316       , p6_a34
3317       , p6_a35
3318       , p6_a36
3319       , p6_a37
3320       , p6_a38
3321       , p6_a39
3322       , p6_a40
3323       , p6_a41
3324       , p6_a42
3325       , p6_a43
3326       , p6_a44
3327       , p6_a45
3328       , p6_a46
3329       , p6_a47
3330       , p6_a48
3331       , p6_a49
3332       , p6_a50
3333       , p6_a51
3334       , p6_a52
3335       , p6_a53
3336       , p6_a54
3337       , p6_a55
3338       , p6_a56
3339       , p6_a57
3340       , p6_a58
3341       , p6_a59
3342       , p6_a60
3343       , p6_a61
3344       , p6_a62
3345       , p6_a63
3346       , p6_a64
3347       , p6_a65
3348       , p6_a66
3349       , p6_a67
3350       , p6_a68
3351       , p6_a69
3352       , p6_a70
3353       , p6_a71
3354       , p6_a72
3355       , p6_a73
3356       , p6_a74
3357       , p6_a75
3358       , p6_a76
3359       , p6_a77
3360       , p6_a78
3361       , p6_a79
3362       , p6_a80
3363       , p6_a81
3364       , p6_a82
3365       , p6_a83
3366       , p6_a84
3367       , p6_a85
3368       , p6_a86
3369       , p6_a87
3370       , p6_a88
3371       , p6_a89
3372       , p6_a90
3373       , p6_a91
3374       , p6_a92
3375       , p6_a93
3376       );
3377   end;
3378 
3379   procedure update_trx_contracts(p_api_version  NUMBER
3380     , p_init_msg_list  VARCHAR2
3381     , x_return_status out nocopy  VARCHAR2
3382     , x_msg_count out nocopy  NUMBER
3383     , x_msg_data out nocopy  VARCHAR2
3384     , p6_a0 out nocopy  NUMBER
3385     , p6_a1 out nocopy  NUMBER
3386     , p6_a2 out nocopy  VARCHAR2
3387     , p6_a3 out nocopy  VARCHAR2
3388     , p6_a4 out nocopy  VARCHAR2
3389     , p6_a5 out nocopy  VARCHAR2
3390     , p6_a6 out nocopy  NUMBER
3391     , p6_a7 out nocopy  NUMBER
3392     , p6_a8 out nocopy  NUMBER
3393     , p6_a9 out nocopy  NUMBER
3394     , p6_a10 out nocopy  NUMBER
3395     , p6_a11 out nocopy  NUMBER
3396     , p6_a12 out nocopy  VARCHAR2
3397     , p6_a13 out nocopy  VARCHAR2
3398     , p6_a14 out nocopy  DATE
3399     , p6_a15 out nocopy  VARCHAR2
3400     , p6_a16 out nocopy  VARCHAR2
3401     , p6_a17 out nocopy  NUMBER
3402     , p6_a18 out nocopy  VARCHAR2
3403     , p6_a19 out nocopy  VARCHAR2
3404     , p6_a20 out nocopy  VARCHAR2
3405     , p6_a21 out nocopy  VARCHAR2
3406     , p6_a22 out nocopy  VARCHAR2
3407     , p6_a23 out nocopy  VARCHAR2
3408     , p6_a24 out nocopy  VARCHAR2
3409     , p6_a25 out nocopy  VARCHAR2
3410     , p6_a26 out nocopy  VARCHAR2
3411     , p6_a27 out nocopy  VARCHAR2
3412     , p6_a28 out nocopy  VARCHAR2
3413     , p6_a29 out nocopy  VARCHAR2
3414     , p6_a30 out nocopy  VARCHAR2
3415     , p6_a31 out nocopy  VARCHAR2
3416     , p6_a32 out nocopy  VARCHAR2
3417     , p6_a33 out nocopy  VARCHAR2
3418     , p6_a34 out nocopy  VARCHAR2
3419     , p6_a35 out nocopy  VARCHAR2
3420     , p6_a36 out nocopy  VARCHAR2
3421     , p6_a37 out nocopy  NUMBER
3422     , p6_a38 out nocopy  VARCHAR2
3423     , p6_a39 out nocopy  NUMBER
3424     , p6_a40 out nocopy  VARCHAR2
3425     , p6_a41 out nocopy  VARCHAR2
3426     , p6_a42 out nocopy  NUMBER
3427     , p6_a43 out nocopy  NUMBER
3428     , p6_a44 out nocopy  NUMBER
3429     , p6_a45 out nocopy  NUMBER
3430     , p6_a46 out nocopy  NUMBER
3431     , p6_a47 out nocopy  NUMBER
3432     , p6_a48 out nocopy  DATE
3433     , p6_a49 out nocopy  NUMBER
3434     , p6_a50 out nocopy  DATE
3435     , p6_a51 out nocopy  NUMBER
3436     , p6_a52 out nocopy  DATE
3437     , p6_a53 out nocopy  NUMBER
3438     , p6_a54 out nocopy  NUMBER
3439     , p6_a55 out nocopy  VARCHAR2
3440     , p6_a56 out nocopy  NUMBER
3441     , p6_a57 out nocopy  VARCHAR2
3442     , p6_a58 out nocopy  DATE
3443     , p6_a59 out nocopy  VARCHAR2
3444     , p6_a60 out nocopy  VARCHAR2
3445     , p6_a61 out nocopy  VARCHAR2
3446     , p6_a62 out nocopy  VARCHAR2
3447     , p6_a63 out nocopy  VARCHAR2
3448     , p6_a64 out nocopy  VARCHAR2
3449     , p6_a65 out nocopy  VARCHAR2
3450     , p6_a66 out nocopy  VARCHAR2
3451     , p6_a67 out nocopy  VARCHAR2
3452     , p6_a68 out nocopy  VARCHAR2
3453     , p6_a69 out nocopy  VARCHAR2
3454     , p6_a70 out nocopy  VARCHAR2
3455     , p6_a71 out nocopy  VARCHAR2
3456     , p6_a72 out nocopy  VARCHAR2
3457     , p6_a73 out nocopy  VARCHAR2
3458     , p6_a74 out nocopy  VARCHAR2
3459     , p6_a75 out nocopy  VARCHAR2
3460     , p6_a76 out nocopy  VARCHAR2
3461     , p6_a77 out nocopy  NUMBER
3462     , p6_a78 out nocopy  DATE
3463     , p6_a79 out nocopy  NUMBER
3464     , p6_a80 out nocopy  NUMBER
3465     , p6_a81 out nocopy  VARCHAR2
3466     , p6_a82 out nocopy  DATE
3467     , p6_a83 out nocopy  NUMBER
3468     , p6_a84 out nocopy  DATE
3469     , p6_a85 out nocopy  VARCHAR2
3470     , p6_a86 out nocopy  VARCHAR2
3471     , p6_a87 out nocopy  VARCHAR2
3472     , p6_a88 out nocopy  VARCHAR2
3473     , p6_a89 out nocopy  VARCHAR2
3474     , p6_a90 out nocopy  VARCHAR2
3475     , p6_a91 out nocopy  VARCHAR2
3476     , p6_a92 out nocopy  VARCHAR2
3477     , p6_a93 out nocopy  DATE
3478     , p5_a0  NUMBER := 0-1962.0724
3479     , p5_a1  NUMBER := 0-1962.0724
3480     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
3481     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
3482     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
3483     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
3484     , p5_a6  NUMBER := 0-1962.0724
3485     , p5_a7  NUMBER := 0-1962.0724
3486     , p5_a8  NUMBER := 0-1962.0724
3487     , p5_a9  NUMBER := 0-1962.0724
3488     , p5_a10  NUMBER := 0-1962.0724
3489     , p5_a11  NUMBER := 0-1962.0724
3490     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
3491     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
3492     , p5_a14  DATE := fnd_api.g_miss_date
3493     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
3494     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
3495     , p5_a17  NUMBER := 0-1962.0724
3496     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
3497     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
3498     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
3499     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
3500     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
3501     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
3502     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
3503     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
3504     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
3505     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
3506     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
3507     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
3508     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
3509     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
3510     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
3511     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
3512     , p5_a34  VARCHAR2 := fnd_api.g_miss_char
3513     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
3514     , p5_a36  VARCHAR2 := fnd_api.g_miss_char
3515     , p5_a37  NUMBER := 0-1962.0724
3516     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
3517     , p5_a39  NUMBER := 0-1962.0724
3518     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
3519     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
3520     , p5_a42  NUMBER := 0-1962.0724
3521     , p5_a43  NUMBER := 0-1962.0724
3522     , p5_a44  NUMBER := 0-1962.0724
3523     , p5_a45  NUMBER := 0-1962.0724
3524     , p5_a46  NUMBER := 0-1962.0724
3525     , p5_a47  NUMBER := 0-1962.0724
3526     , p5_a48  DATE := fnd_api.g_miss_date
3527     , p5_a49  NUMBER := 0-1962.0724
3528     , p5_a50  DATE := fnd_api.g_miss_date
3529     , p5_a51  NUMBER := 0-1962.0724
3530     , p5_a52  DATE := fnd_api.g_miss_date
3531     , p5_a53  NUMBER := 0-1962.0724
3532     , p5_a54  NUMBER := 0-1962.0724
3533     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
3534     , p5_a56  NUMBER := 0-1962.0724
3535     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
3536     , p5_a58  DATE := fnd_api.g_miss_date
3537     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
3538     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
3539     , p5_a61  VARCHAR2 := fnd_api.g_miss_char
3540     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
3541     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
3542     , p5_a64  VARCHAR2 := fnd_api.g_miss_char
3543     , p5_a65  VARCHAR2 := fnd_api.g_miss_char
3544     , p5_a66  VARCHAR2 := fnd_api.g_miss_char
3545     , p5_a67  VARCHAR2 := fnd_api.g_miss_char
3546     , p5_a68  VARCHAR2 := fnd_api.g_miss_char
3547     , p5_a69  VARCHAR2 := fnd_api.g_miss_char
3548     , p5_a70  VARCHAR2 := fnd_api.g_miss_char
3549     , p5_a71  VARCHAR2 := fnd_api.g_miss_char
3550     , p5_a72  VARCHAR2 := fnd_api.g_miss_char
3551     , p5_a73  VARCHAR2 := fnd_api.g_miss_char
3552     , p5_a74  VARCHAR2 := fnd_api.g_miss_char
3553     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
3554     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
3555     , p5_a77  NUMBER := 0-1962.0724
3556     , p5_a78  DATE := fnd_api.g_miss_date
3557     , p5_a79  NUMBER := 0-1962.0724
3558     , p5_a80  NUMBER := 0-1962.0724
3559     , p5_a81  VARCHAR2 := fnd_api.g_miss_char
3560     , p5_a82  DATE := fnd_api.g_miss_date
3561     , p5_a83  NUMBER := 0-1962.0724
3562     , p5_a84  DATE := fnd_api.g_miss_date
3563     , p5_a85  VARCHAR2 := fnd_api.g_miss_char
3564     , p5_a86  VARCHAR2 := fnd_api.g_miss_char
3565     , p5_a87  VARCHAR2 := fnd_api.g_miss_char
3566     , p5_a88  VARCHAR2 := fnd_api.g_miss_char
3567     , p5_a89  VARCHAR2 := fnd_api.g_miss_char
3568     , p5_a90  VARCHAR2 := fnd_api.g_miss_char
3569     , p5_a91  VARCHAR2 := fnd_api.g_miss_char
3570     , p5_a92  VARCHAR2 := fnd_api.g_miss_char
3571     , p5_a93  DATE := fnd_api.g_miss_date
3572   )
3573 
3574   as
3575     ddp_tcnv_rec okl_trx_contracts_pub.tcnv_rec_type;
3576     ddx_tcnv_rec okl_trx_contracts_pub.tcnv_rec_type;
3577     ddindx binary_integer; indx binary_integer;
3578   begin
3579 
3580     -- copy data to the local IN or IN-OUT args, if any
3581 
3582 
3583 
3584 
3585 
3586     ddp_tcnv_rec.id := rosetta_g_miss_num_map(p5_a0);
3587     ddp_tcnv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
3588     ddp_tcnv_rec.rbr_code := p5_a2;
3589     ddp_tcnv_rec.rpy_code := p5_a3;
3590     ddp_tcnv_rec.rvn_code := p5_a4;
3591     ddp_tcnv_rec.trn_code := p5_a5;
3592     ddp_tcnv_rec.khr_id_new := rosetta_g_miss_num_map(p5_a6);
3593     ddp_tcnv_rec.pvn_id := rosetta_g_miss_num_map(p5_a7);
3594     ddp_tcnv_rec.pdt_id := rosetta_g_miss_num_map(p5_a8);
3595     ddp_tcnv_rec.qte_id := rosetta_g_miss_num_map(p5_a9);
3596     ddp_tcnv_rec.aes_id := rosetta_g_miss_num_map(p5_a10);
3597     ddp_tcnv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a11);
3598     ddp_tcnv_rec.tax_deductible_local := p5_a12;
3599     ddp_tcnv_rec.tax_deductible_corporate := p5_a13;
3600     ddp_tcnv_rec.date_accrual := rosetta_g_miss_date_in_map(p5_a14);
3601     ddp_tcnv_rec.accrual_status_yn := p5_a15;
3602     ddp_tcnv_rec.update_status_yn := p5_a16;
3603     ddp_tcnv_rec.amount := rosetta_g_miss_num_map(p5_a17);
3604     ddp_tcnv_rec.currency_code := p5_a18;
3605     ddp_tcnv_rec.attribute_category := p5_a19;
3606     ddp_tcnv_rec.attribute1 := p5_a20;
3607     ddp_tcnv_rec.attribute2 := p5_a21;
3608     ddp_tcnv_rec.attribute3 := p5_a22;
3609     ddp_tcnv_rec.attribute4 := p5_a23;
3610     ddp_tcnv_rec.attribute5 := p5_a24;
3611     ddp_tcnv_rec.attribute6 := p5_a25;
3612     ddp_tcnv_rec.attribute7 := p5_a26;
3613     ddp_tcnv_rec.attribute8 := p5_a27;
3614     ddp_tcnv_rec.attribute9 := p5_a28;
3615     ddp_tcnv_rec.attribute10 := p5_a29;
3616     ddp_tcnv_rec.attribute11 := p5_a30;
3617     ddp_tcnv_rec.attribute12 := p5_a31;
3618     ddp_tcnv_rec.attribute13 := p5_a32;
3619     ddp_tcnv_rec.attribute14 := p5_a33;
3620     ddp_tcnv_rec.attribute15 := p5_a34;
3621     ddp_tcnv_rec.tcn_type := p5_a35;
3622     ddp_tcnv_rec.rjn_code := p5_a36;
3623     ddp_tcnv_rec.party_rel_id1_old := rosetta_g_miss_num_map(p5_a37);
3624     ddp_tcnv_rec.party_rel_id2_old := p5_a38;
3625     ddp_tcnv_rec.party_rel_id1_new := rosetta_g_miss_num_map(p5_a39);
3626     ddp_tcnv_rec.party_rel_id2_new := p5_a40;
3627     ddp_tcnv_rec.complete_transfer_yn := p5_a41;
3628     ddp_tcnv_rec.org_id := rosetta_g_miss_num_map(p5_a42);
3629     ddp_tcnv_rec.khr_id := rosetta_g_miss_num_map(p5_a43);
3630     ddp_tcnv_rec.request_id := rosetta_g_miss_num_map(p5_a44);
3631     ddp_tcnv_rec.program_application_id := rosetta_g_miss_num_map(p5_a45);
3632     ddp_tcnv_rec.khr_id_old := rosetta_g_miss_num_map(p5_a46);
3633     ddp_tcnv_rec.program_id := rosetta_g_miss_num_map(p5_a47);
3634     ddp_tcnv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a48);
3635     ddp_tcnv_rec.created_by := rosetta_g_miss_num_map(p5_a49);
3636     ddp_tcnv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a50);
3637     ddp_tcnv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a51);
3638     ddp_tcnv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a52);
3639     ddp_tcnv_rec.last_update_login := rosetta_g_miss_num_map(p5_a53);
3640     ddp_tcnv_rec.try_id := rosetta_g_miss_num_map(p5_a54);
3641     ddp_tcnv_rec.tsu_code := p5_a55;
3642     ddp_tcnv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a56);
3643     ddp_tcnv_rec.description := p5_a57;
3644     ddp_tcnv_rec.date_transaction_occurred := rosetta_g_miss_date_in_map(p5_a58);
3645     ddp_tcnv_rec.trx_number := p5_a59;
3646     ddp_tcnv_rec.tmt_evergreen_yn := p5_a60;
3647     ddp_tcnv_rec.tmt_close_balances_yn := p5_a61;
3648     ddp_tcnv_rec.tmt_accounting_entries_yn := p5_a62;
3649     ddp_tcnv_rec.tmt_cancel_insurance_yn := p5_a63;
3650     ddp_tcnv_rec.tmt_asset_disposition_yn := p5_a64;
3651     ddp_tcnv_rec.tmt_amortization_yn := p5_a65;
3652     ddp_tcnv_rec.tmt_asset_return_yn := p5_a66;
3653     ddp_tcnv_rec.tmt_contract_updated_yn := p5_a67;
3654     ddp_tcnv_rec.tmt_recycle_yn := p5_a68;
3655     ddp_tcnv_rec.tmt_validated_yn := p5_a69;
3656     ddp_tcnv_rec.tmt_streams_updated_yn := p5_a70;
3657     ddp_tcnv_rec.accrual_activity := p5_a71;
3658     ddp_tcnv_rec.tmt_split_asset_yn := p5_a72;
3659     ddp_tcnv_rec.tmt_generic_flag1_yn := p5_a73;
3660     ddp_tcnv_rec.tmt_generic_flag2_yn := p5_a74;
3661     ddp_tcnv_rec.tmt_generic_flag3_yn := p5_a75;
3662     ddp_tcnv_rec.currency_conversion_type := p5_a76;
3663     ddp_tcnv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a77);
3664     ddp_tcnv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a78);
3665     ddp_tcnv_rec.chr_id := rosetta_g_miss_num_map(p5_a79);
3666     ddp_tcnv_rec.source_trx_id := rosetta_g_miss_num_map(p5_a80);
3667     ddp_tcnv_rec.source_trx_type := p5_a81;
3668     ddp_tcnv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a82);
3669     ddp_tcnv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a83);
3670     ddp_tcnv_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p5_a84);
3671     ddp_tcnv_rec.accounting_reversal_yn := p5_a85;
3672     ddp_tcnv_rec.product_name := p5_a86;
3673     ddp_tcnv_rec.book_classification_code := p5_a87;
3674     ddp_tcnv_rec.tax_owner_code := p5_a88;
3675     ddp_tcnv_rec.tmt_status_code := p5_a89;
3676     ddp_tcnv_rec.representation_name := p5_a90;
3677     ddp_tcnv_rec.representation_code := p5_a91;
3678     ddp_tcnv_rec.upgrade_status_flag := p5_a92;
3679     ddp_tcnv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a93);
3680 
3681 
3682     -- here's the delegated call to the old PL/SQL routine
3683     okl_trx_contracts_pub.update_trx_contracts(p_api_version,
3684       p_init_msg_list,
3685       x_return_status,
3686       x_msg_count,
3687       x_msg_data,
3688       ddp_tcnv_rec,
3689       ddx_tcnv_rec);
3690 
3691     -- copy data back from the local variables to OUT or IN-OUT args, if any
3692 
3693 
3694 
3695 
3696 
3697 
3698     p6_a0 := rosetta_g_miss_num_map(ddx_tcnv_rec.id);
3699     p6_a1 := rosetta_g_miss_num_map(ddx_tcnv_rec.object_version_number);
3700     p6_a2 := ddx_tcnv_rec.rbr_code;
3701     p6_a3 := ddx_tcnv_rec.rpy_code;
3702     p6_a4 := ddx_tcnv_rec.rvn_code;
3703     p6_a5 := ddx_tcnv_rec.trn_code;
3704     p6_a6 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id_new);
3705     p6_a7 := rosetta_g_miss_num_map(ddx_tcnv_rec.pvn_id);
3706     p6_a8 := rosetta_g_miss_num_map(ddx_tcnv_rec.pdt_id);
3707     p6_a9 := rosetta_g_miss_num_map(ddx_tcnv_rec.qte_id);
3708     p6_a10 := rosetta_g_miss_num_map(ddx_tcnv_rec.aes_id);
3709     p6_a11 := rosetta_g_miss_num_map(ddx_tcnv_rec.code_combination_id);
3710     p6_a12 := ddx_tcnv_rec.tax_deductible_local;
3711     p6_a13 := ddx_tcnv_rec.tax_deductible_corporate;
3712     p6_a14 := ddx_tcnv_rec.date_accrual;
3713     p6_a15 := ddx_tcnv_rec.accrual_status_yn;
3714     p6_a16 := ddx_tcnv_rec.update_status_yn;
3715     p6_a17 := rosetta_g_miss_num_map(ddx_tcnv_rec.amount);
3716     p6_a18 := ddx_tcnv_rec.currency_code;
3717     p6_a19 := ddx_tcnv_rec.attribute_category;
3718     p6_a20 := ddx_tcnv_rec.attribute1;
3719     p6_a21 := ddx_tcnv_rec.attribute2;
3720     p6_a22 := ddx_tcnv_rec.attribute3;
3721     p6_a23 := ddx_tcnv_rec.attribute4;
3722     p6_a24 := ddx_tcnv_rec.attribute5;
3723     p6_a25 := ddx_tcnv_rec.attribute6;
3724     p6_a26 := ddx_tcnv_rec.attribute7;
3725     p6_a27 := ddx_tcnv_rec.attribute8;
3726     p6_a28 := ddx_tcnv_rec.attribute9;
3727     p6_a29 := ddx_tcnv_rec.attribute10;
3728     p6_a30 := ddx_tcnv_rec.attribute11;
3729     p6_a31 := ddx_tcnv_rec.attribute12;
3730     p6_a32 := ddx_tcnv_rec.attribute13;
3731     p6_a33 := ddx_tcnv_rec.attribute14;
3732     p6_a34 := ddx_tcnv_rec.attribute15;
3733     p6_a35 := ddx_tcnv_rec.tcn_type;
3734     p6_a36 := ddx_tcnv_rec.rjn_code;
3735     p6_a37 := rosetta_g_miss_num_map(ddx_tcnv_rec.party_rel_id1_old);
3736     p6_a38 := ddx_tcnv_rec.party_rel_id2_old;
3737     p6_a39 := rosetta_g_miss_num_map(ddx_tcnv_rec.party_rel_id1_new);
3738     p6_a40 := ddx_tcnv_rec.party_rel_id2_new;
3739     p6_a41 := ddx_tcnv_rec.complete_transfer_yn;
3740     p6_a42 := rosetta_g_miss_num_map(ddx_tcnv_rec.org_id);
3741     p6_a43 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id);
3742     p6_a44 := rosetta_g_miss_num_map(ddx_tcnv_rec.request_id);
3743     p6_a45 := rosetta_g_miss_num_map(ddx_tcnv_rec.program_application_id);
3744     p6_a46 := rosetta_g_miss_num_map(ddx_tcnv_rec.khr_id_old);
3745     p6_a47 := rosetta_g_miss_num_map(ddx_tcnv_rec.program_id);
3746     p6_a48 := ddx_tcnv_rec.program_update_date;
3747     p6_a49 := rosetta_g_miss_num_map(ddx_tcnv_rec.created_by);
3748     p6_a50 := ddx_tcnv_rec.creation_date;
3749     p6_a51 := rosetta_g_miss_num_map(ddx_tcnv_rec.last_updated_by);
3750     p6_a52 := ddx_tcnv_rec.last_update_date;
3751     p6_a53 := rosetta_g_miss_num_map(ddx_tcnv_rec.last_update_login);
3752     p6_a54 := rosetta_g_miss_num_map(ddx_tcnv_rec.try_id);
3753     p6_a55 := ddx_tcnv_rec.tsu_code;
3754     p6_a56 := rosetta_g_miss_num_map(ddx_tcnv_rec.set_of_books_id);
3755     p6_a57 := ddx_tcnv_rec.description;
3756     p6_a58 := ddx_tcnv_rec.date_transaction_occurred;
3757     p6_a59 := ddx_tcnv_rec.trx_number;
3758     p6_a60 := ddx_tcnv_rec.tmt_evergreen_yn;
3759     p6_a61 := ddx_tcnv_rec.tmt_close_balances_yn;
3760     p6_a62 := ddx_tcnv_rec.tmt_accounting_entries_yn;
3761     p6_a63 := ddx_tcnv_rec.tmt_cancel_insurance_yn;
3762     p6_a64 := ddx_tcnv_rec.tmt_asset_disposition_yn;
3763     p6_a65 := ddx_tcnv_rec.tmt_amortization_yn;
3764     p6_a66 := ddx_tcnv_rec.tmt_asset_return_yn;
3765     p6_a67 := ddx_tcnv_rec.tmt_contract_updated_yn;
3766     p6_a68 := ddx_tcnv_rec.tmt_recycle_yn;
3767     p6_a69 := ddx_tcnv_rec.tmt_validated_yn;
3768     p6_a70 := ddx_tcnv_rec.tmt_streams_updated_yn;
3769     p6_a71 := ddx_tcnv_rec.accrual_activity;
3770     p6_a72 := ddx_tcnv_rec.tmt_split_asset_yn;
3771     p6_a73 := ddx_tcnv_rec.tmt_generic_flag1_yn;
3772     p6_a74 := ddx_tcnv_rec.tmt_generic_flag2_yn;
3773     p6_a75 := ddx_tcnv_rec.tmt_generic_flag3_yn;
3774     p6_a76 := ddx_tcnv_rec.currency_conversion_type;
3775     p6_a77 := rosetta_g_miss_num_map(ddx_tcnv_rec.currency_conversion_rate);
3776     p6_a78 := ddx_tcnv_rec.currency_conversion_date;
3777     p6_a79 := rosetta_g_miss_num_map(ddx_tcnv_rec.chr_id);
3778     p6_a80 := rosetta_g_miss_num_map(ddx_tcnv_rec.source_trx_id);
3779     p6_a81 := ddx_tcnv_rec.source_trx_type;
3780     p6_a82 := ddx_tcnv_rec.canceled_date;
3781     p6_a83 := rosetta_g_miss_num_map(ddx_tcnv_rec.legal_entity_id);
3782     p6_a84 := ddx_tcnv_rec.accrual_reversal_date;
3783     p6_a85 := ddx_tcnv_rec.accounting_reversal_yn;
3784     p6_a86 := ddx_tcnv_rec.product_name;
3785     p6_a87 := ddx_tcnv_rec.book_classification_code;
3786     p6_a88 := ddx_tcnv_rec.tax_owner_code;
3787     p6_a89 := ddx_tcnv_rec.tmt_status_code;
3788     p6_a90 := ddx_tcnv_rec.representation_name;
3789     p6_a91 := ddx_tcnv_rec.representation_code;
3790     p6_a92 := ddx_tcnv_rec.upgrade_status_flag;
3791     p6_a93 := ddx_tcnv_rec.transaction_date;
3792   end;
3793 
3794   procedure delete_trx_contracts(p_api_version  NUMBER
3795     , p_init_msg_list  VARCHAR2
3796     , x_return_status out nocopy  VARCHAR2
3797     , x_msg_count out nocopy  NUMBER
3798     , x_msg_data out nocopy  VARCHAR2
3799     , p5_a0 JTF_NUMBER_TABLE
3800     , p5_a1 JTF_NUMBER_TABLE
3801     , p5_a2 JTF_VARCHAR2_TABLE_100
3802     , p5_a3 JTF_VARCHAR2_TABLE_100
3803     , p5_a4 JTF_VARCHAR2_TABLE_100
3804     , p5_a5 JTF_VARCHAR2_TABLE_100
3805     , p5_a6 JTF_NUMBER_TABLE
3806     , p5_a7 JTF_NUMBER_TABLE
3807     , p5_a8 JTF_NUMBER_TABLE
3808     , p5_a9 JTF_NUMBER_TABLE
3809     , p5_a10 JTF_NUMBER_TABLE
3810     , p5_a11 JTF_NUMBER_TABLE
3811     , p5_a12 JTF_VARCHAR2_TABLE_100
3812     , p5_a13 JTF_VARCHAR2_TABLE_100
3813     , p5_a14 JTF_DATE_TABLE
3814     , p5_a15 JTF_VARCHAR2_TABLE_100
3815     , p5_a16 JTF_VARCHAR2_TABLE_100
3816     , p5_a17 JTF_NUMBER_TABLE
3817     , p5_a18 JTF_VARCHAR2_TABLE_200
3818     , p5_a19 JTF_VARCHAR2_TABLE_100
3819     , p5_a20 JTF_VARCHAR2_TABLE_500
3820     , p5_a21 JTF_VARCHAR2_TABLE_500
3821     , p5_a22 JTF_VARCHAR2_TABLE_500
3822     , p5_a23 JTF_VARCHAR2_TABLE_500
3823     , p5_a24 JTF_VARCHAR2_TABLE_500
3824     , p5_a25 JTF_VARCHAR2_TABLE_500
3825     , p5_a26 JTF_VARCHAR2_TABLE_500
3826     , p5_a27 JTF_VARCHAR2_TABLE_500
3827     , p5_a28 JTF_VARCHAR2_TABLE_500
3828     , p5_a29 JTF_VARCHAR2_TABLE_500
3829     , p5_a30 JTF_VARCHAR2_TABLE_500
3830     , p5_a31 JTF_VARCHAR2_TABLE_500
3831     , p5_a32 JTF_VARCHAR2_TABLE_500
3832     , p5_a33 JTF_VARCHAR2_TABLE_500
3833     , p5_a34 JTF_VARCHAR2_TABLE_500
3834     , p5_a35 JTF_VARCHAR2_TABLE_100
3835     , p5_a36 JTF_VARCHAR2_TABLE_100
3836     , p5_a37 JTF_NUMBER_TABLE
3837     , p5_a38 JTF_VARCHAR2_TABLE_100
3838     , p5_a39 JTF_NUMBER_TABLE
3839     , p5_a40 JTF_VARCHAR2_TABLE_100
3840     , p5_a41 JTF_VARCHAR2_TABLE_100
3841     , p5_a42 JTF_NUMBER_TABLE
3842     , p5_a43 JTF_NUMBER_TABLE
3843     , p5_a44 JTF_NUMBER_TABLE
3844     , p5_a45 JTF_NUMBER_TABLE
3845     , p5_a46 JTF_NUMBER_TABLE
3846     , p5_a47 JTF_NUMBER_TABLE
3847     , p5_a48 JTF_DATE_TABLE
3848     , p5_a49 JTF_NUMBER_TABLE
3849     , p5_a50 JTF_DATE_TABLE
3850     , p5_a51 JTF_NUMBER_TABLE
3851     , p5_a52 JTF_DATE_TABLE
3852     , p5_a53 JTF_NUMBER_TABLE
3853     , p5_a54 JTF_NUMBER_TABLE
3854     , p5_a55 JTF_VARCHAR2_TABLE_100
3855     , p5_a56 JTF_NUMBER_TABLE
3856     , p5_a57 JTF_VARCHAR2_TABLE_2000
3857     , p5_a58 JTF_DATE_TABLE
3858     , p5_a59 JTF_VARCHAR2_TABLE_100
3859     , p5_a60 JTF_VARCHAR2_TABLE_100
3860     , p5_a61 JTF_VARCHAR2_TABLE_100
3861     , p5_a62 JTF_VARCHAR2_TABLE_100
3862     , p5_a63 JTF_VARCHAR2_TABLE_100
3863     , p5_a64 JTF_VARCHAR2_TABLE_100
3864     , p5_a65 JTF_VARCHAR2_TABLE_100
3865     , p5_a66 JTF_VARCHAR2_TABLE_100
3866     , p5_a67 JTF_VARCHAR2_TABLE_100
3867     , p5_a68 JTF_VARCHAR2_TABLE_100
3868     , p5_a69 JTF_VARCHAR2_TABLE_100
3869     , p5_a70 JTF_VARCHAR2_TABLE_100
3870     , p5_a71 JTF_VARCHAR2_TABLE_100
3871     , p5_a72 JTF_VARCHAR2_TABLE_100
3872     , p5_a73 JTF_VARCHAR2_TABLE_100
3873     , p5_a74 JTF_VARCHAR2_TABLE_100
3874     , p5_a75 JTF_VARCHAR2_TABLE_100
3875     , p5_a76 JTF_VARCHAR2_TABLE_100
3876     , p5_a77 JTF_NUMBER_TABLE
3877     , p5_a78 JTF_DATE_TABLE
3878     , p5_a79 JTF_NUMBER_TABLE
3879     , p5_a80 JTF_NUMBER_TABLE
3880     , p5_a81 JTF_VARCHAR2_TABLE_100
3881     , p5_a82 JTF_DATE_TABLE
3882     , p5_a83 JTF_NUMBER_TABLE
3883     , p5_a84 JTF_DATE_TABLE
3884     , p5_a85 JTF_VARCHAR2_TABLE_100
3885     , p5_a86 JTF_VARCHAR2_TABLE_200
3886     , p5_a87 JTF_VARCHAR2_TABLE_100
3887     , p5_a88 JTF_VARCHAR2_TABLE_200
3888     , p5_a89 JTF_VARCHAR2_TABLE_100
3889     , p5_a90 JTF_VARCHAR2_TABLE_100
3890     , p5_a91 JTF_VARCHAR2_TABLE_100
3891     , p5_a92 JTF_VARCHAR2_TABLE_100
3892     , p5_a93 JTF_DATE_TABLE
3893   )
3894 
3895   as
3896     ddp_tcnv_tbl okl_trx_contracts_pub.tcnv_tbl_type;
3897     ddindx binary_integer; indx binary_integer;
3898   begin
3899 
3900     -- copy data to the local IN or IN-OUT args, if any
3901 
3902 
3903 
3904 
3905 
3906     okl_tcn_pvt_w.rosetta_table_copy_in_p5(ddp_tcnv_tbl, p5_a0
3907       , p5_a1
3908       , p5_a2
3909       , p5_a3
3910       , p5_a4
3911       , p5_a5
3912       , p5_a6
3913       , p5_a7
3914       , p5_a8
3915       , p5_a9
3916       , p5_a10
3917       , p5_a11
3918       , p5_a12
3919       , p5_a13
3920       , p5_a14
3921       , p5_a15
3922       , p5_a16
3923       , p5_a17
3924       , p5_a18
3925       , p5_a19
3926       , p5_a20
3927       , p5_a21
3928       , p5_a22
3929       , p5_a23
3930       , p5_a24
3931       , p5_a25
3932       , p5_a26
3933       , p5_a27
3934       , p5_a28
3935       , p5_a29
3936       , p5_a30
3937       , p5_a31
3938       , p5_a32
3939       , p5_a33
3940       , p5_a34
3941       , p5_a35
3942       , p5_a36
3943       , p5_a37
3944       , p5_a38
3945       , p5_a39
3946       , p5_a40
3947       , p5_a41
3948       , p5_a42
3949       , p5_a43
3950       , p5_a44
3951       , p5_a45
3952       , p5_a46
3953       , p5_a47
3954       , p5_a48
3955       , p5_a49
3956       , p5_a50
3957       , p5_a51
3958       , p5_a52
3959       , p5_a53
3960       , p5_a54
3961       , p5_a55
3962       , p5_a56
3963       , p5_a57
3964       , p5_a58
3965       , p5_a59
3966       , p5_a60
3967       , p5_a61
3968       , p5_a62
3969       , p5_a63
3970       , p5_a64
3971       , p5_a65
3972       , p5_a66
3973       , p5_a67
3974       , p5_a68
3975       , p5_a69
3976       , p5_a70
3977       , p5_a71
3978       , p5_a72
3979       , p5_a73
3980       , p5_a74
3981       , p5_a75
3982       , p5_a76
3983       , p5_a77
3984       , p5_a78
3985       , p5_a79
3986       , p5_a80
3987       , p5_a81
3988       , p5_a82
3989       , p5_a83
3990       , p5_a84
3991       , p5_a85
3992       , p5_a86
3993       , p5_a87
3994       , p5_a88
3995       , p5_a89
3996       , p5_a90
3997       , p5_a91
3998       , p5_a92
3999       , p5_a93
4000       );
4001 
4002     -- here's the delegated call to the old PL/SQL routine
4003     okl_trx_contracts_pub.delete_trx_contracts(p_api_version,
4004       p_init_msg_list,
4005       x_return_status,
4006       x_msg_count,
4007       x_msg_data,
4008       ddp_tcnv_tbl);
4009 
4010     -- copy data back from the local variables to OUT or IN-OUT args, if any
4011 
4012 
4013 
4014 
4015 
4016   end;
4017 
4018   procedure delete_trx_contracts(p_api_version  NUMBER
4019     , p_init_msg_list  VARCHAR2
4020     , x_return_status out nocopy  VARCHAR2
4021     , x_msg_count out nocopy  NUMBER
4022     , x_msg_data out nocopy  VARCHAR2
4023     , p5_a0  NUMBER := 0-1962.0724
4024     , p5_a1  NUMBER := 0-1962.0724
4025     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
4026     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
4027     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
4028     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
4029     , p5_a6  NUMBER := 0-1962.0724
4030     , p5_a7  NUMBER := 0-1962.0724
4031     , p5_a8  NUMBER := 0-1962.0724
4032     , p5_a9  NUMBER := 0-1962.0724
4033     , p5_a10  NUMBER := 0-1962.0724
4034     , p5_a11  NUMBER := 0-1962.0724
4035     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
4036     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
4037     , p5_a14  DATE := fnd_api.g_miss_date
4038     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
4039     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
4040     , p5_a17  NUMBER := 0-1962.0724
4041     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
4042     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
4043     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
4044     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
4045     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
4046     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
4047     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
4048     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
4049     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
4050     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
4051     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
4052     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
4053     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
4054     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
4055     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
4056     , p5_a33  VARCHAR2 := fnd_api.g_miss_char
4057     , p5_a34  VARCHAR2 := fnd_api.g_miss_char
4058     , p5_a35  VARCHAR2 := fnd_api.g_miss_char
4059     , p5_a36  VARCHAR2 := fnd_api.g_miss_char
4060     , p5_a37  NUMBER := 0-1962.0724
4061     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
4062     , p5_a39  NUMBER := 0-1962.0724
4063     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
4064     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
4065     , p5_a42  NUMBER := 0-1962.0724
4066     , p5_a43  NUMBER := 0-1962.0724
4067     , p5_a44  NUMBER := 0-1962.0724
4068     , p5_a45  NUMBER := 0-1962.0724
4069     , p5_a46  NUMBER := 0-1962.0724
4070     , p5_a47  NUMBER := 0-1962.0724
4071     , p5_a48  DATE := fnd_api.g_miss_date
4072     , p5_a49  NUMBER := 0-1962.0724
4073     , p5_a50  DATE := fnd_api.g_miss_date
4074     , p5_a51  NUMBER := 0-1962.0724
4075     , p5_a52  DATE := fnd_api.g_miss_date
4076     , p5_a53  NUMBER := 0-1962.0724
4077     , p5_a54  NUMBER := 0-1962.0724
4078     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
4079     , p5_a56  NUMBER := 0-1962.0724
4080     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
4081     , p5_a58  DATE := fnd_api.g_miss_date
4082     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
4083     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
4084     , p5_a61  VARCHAR2 := fnd_api.g_miss_char
4085     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
4086     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
4087     , p5_a64  VARCHAR2 := fnd_api.g_miss_char
4088     , p5_a65  VARCHAR2 := fnd_api.g_miss_char
4089     , p5_a66  VARCHAR2 := fnd_api.g_miss_char
4090     , p5_a67  VARCHAR2 := fnd_api.g_miss_char
4091     , p5_a68  VARCHAR2 := fnd_api.g_miss_char
4092     , p5_a69  VARCHAR2 := fnd_api.g_miss_char
4093     , p5_a70  VARCHAR2 := fnd_api.g_miss_char
4094     , p5_a71  VARCHAR2 := fnd_api.g_miss_char
4095     , p5_a72  VARCHAR2 := fnd_api.g_miss_char
4096     , p5_a73  VARCHAR2 := fnd_api.g_miss_char
4097     , p5_a74  VARCHAR2 := fnd_api.g_miss_char
4098     , p5_a75  VARCHAR2 := fnd_api.g_miss_char
4099     , p5_a76  VARCHAR2 := fnd_api.g_miss_char
4100     , p5_a77  NUMBER := 0-1962.0724
4101     , p5_a78  DATE := fnd_api.g_miss_date
4102     , p5_a79  NUMBER := 0-1962.0724
4103     , p5_a80  NUMBER := 0-1962.0724
4104     , p5_a81  VARCHAR2 := fnd_api.g_miss_char
4105     , p5_a82  DATE := fnd_api.g_miss_date
4106     , p5_a83  NUMBER := 0-1962.0724
4107     , p5_a84  DATE := fnd_api.g_miss_date
4108     , p5_a85  VARCHAR2 := fnd_api.g_miss_char
4109     , p5_a86  VARCHAR2 := fnd_api.g_miss_char
4110     , p5_a87  VARCHAR2 := fnd_api.g_miss_char
4111     , p5_a88  VARCHAR2 := fnd_api.g_miss_char
4112     , p5_a89  VARCHAR2 := fnd_api.g_miss_char
4113     , p5_a90  VARCHAR2 := fnd_api.g_miss_char
4114     , p5_a91  VARCHAR2 := fnd_api.g_miss_char
4115     , p5_a92  VARCHAR2 := fnd_api.g_miss_char
4116     , p5_a93  DATE := fnd_api.g_miss_date
4117   )
4118 
4119   as
4120     ddp_tcnv_rec okl_trx_contracts_pub.tcnv_rec_type;
4121     ddindx binary_integer; indx binary_integer;
4122   begin
4123 
4124     -- copy data to the local IN or IN-OUT args, if any
4125 
4126 
4127 
4128 
4129 
4130     ddp_tcnv_rec.id := rosetta_g_miss_num_map(p5_a0);
4131     ddp_tcnv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
4132     ddp_tcnv_rec.rbr_code := p5_a2;
4133     ddp_tcnv_rec.rpy_code := p5_a3;
4134     ddp_tcnv_rec.rvn_code := p5_a4;
4135     ddp_tcnv_rec.trn_code := p5_a5;
4136     ddp_tcnv_rec.khr_id_new := rosetta_g_miss_num_map(p5_a6);
4137     ddp_tcnv_rec.pvn_id := rosetta_g_miss_num_map(p5_a7);
4138     ddp_tcnv_rec.pdt_id := rosetta_g_miss_num_map(p5_a8);
4139     ddp_tcnv_rec.qte_id := rosetta_g_miss_num_map(p5_a9);
4140     ddp_tcnv_rec.aes_id := rosetta_g_miss_num_map(p5_a10);
4141     ddp_tcnv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a11);
4142     ddp_tcnv_rec.tax_deductible_local := p5_a12;
4143     ddp_tcnv_rec.tax_deductible_corporate := p5_a13;
4144     ddp_tcnv_rec.date_accrual := rosetta_g_miss_date_in_map(p5_a14);
4145     ddp_tcnv_rec.accrual_status_yn := p5_a15;
4146     ddp_tcnv_rec.update_status_yn := p5_a16;
4147     ddp_tcnv_rec.amount := rosetta_g_miss_num_map(p5_a17);
4148     ddp_tcnv_rec.currency_code := p5_a18;
4149     ddp_tcnv_rec.attribute_category := p5_a19;
4150     ddp_tcnv_rec.attribute1 := p5_a20;
4151     ddp_tcnv_rec.attribute2 := p5_a21;
4152     ddp_tcnv_rec.attribute3 := p5_a22;
4153     ddp_tcnv_rec.attribute4 := p5_a23;
4154     ddp_tcnv_rec.attribute5 := p5_a24;
4155     ddp_tcnv_rec.attribute6 := p5_a25;
4156     ddp_tcnv_rec.attribute7 := p5_a26;
4157     ddp_tcnv_rec.attribute8 := p5_a27;
4158     ddp_tcnv_rec.attribute9 := p5_a28;
4159     ddp_tcnv_rec.attribute10 := p5_a29;
4160     ddp_tcnv_rec.attribute11 := p5_a30;
4161     ddp_tcnv_rec.attribute12 := p5_a31;
4162     ddp_tcnv_rec.attribute13 := p5_a32;
4163     ddp_tcnv_rec.attribute14 := p5_a33;
4164     ddp_tcnv_rec.attribute15 := p5_a34;
4165     ddp_tcnv_rec.tcn_type := p5_a35;
4166     ddp_tcnv_rec.rjn_code := p5_a36;
4167     ddp_tcnv_rec.party_rel_id1_old := rosetta_g_miss_num_map(p5_a37);
4168     ddp_tcnv_rec.party_rel_id2_old := p5_a38;
4169     ddp_tcnv_rec.party_rel_id1_new := rosetta_g_miss_num_map(p5_a39);
4170     ddp_tcnv_rec.party_rel_id2_new := p5_a40;
4171     ddp_tcnv_rec.complete_transfer_yn := p5_a41;
4172     ddp_tcnv_rec.org_id := rosetta_g_miss_num_map(p5_a42);
4173     ddp_tcnv_rec.khr_id := rosetta_g_miss_num_map(p5_a43);
4174     ddp_tcnv_rec.request_id := rosetta_g_miss_num_map(p5_a44);
4175     ddp_tcnv_rec.program_application_id := rosetta_g_miss_num_map(p5_a45);
4176     ddp_tcnv_rec.khr_id_old := rosetta_g_miss_num_map(p5_a46);
4177     ddp_tcnv_rec.program_id := rosetta_g_miss_num_map(p5_a47);
4178     ddp_tcnv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a48);
4179     ddp_tcnv_rec.created_by := rosetta_g_miss_num_map(p5_a49);
4180     ddp_tcnv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a50);
4181     ddp_tcnv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a51);
4182     ddp_tcnv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a52);
4183     ddp_tcnv_rec.last_update_login := rosetta_g_miss_num_map(p5_a53);
4184     ddp_tcnv_rec.try_id := rosetta_g_miss_num_map(p5_a54);
4185     ddp_tcnv_rec.tsu_code := p5_a55;
4186     ddp_tcnv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a56);
4187     ddp_tcnv_rec.description := p5_a57;
4188     ddp_tcnv_rec.date_transaction_occurred := rosetta_g_miss_date_in_map(p5_a58);
4189     ddp_tcnv_rec.trx_number := p5_a59;
4190     ddp_tcnv_rec.tmt_evergreen_yn := p5_a60;
4191     ddp_tcnv_rec.tmt_close_balances_yn := p5_a61;
4192     ddp_tcnv_rec.tmt_accounting_entries_yn := p5_a62;
4193     ddp_tcnv_rec.tmt_cancel_insurance_yn := p5_a63;
4194     ddp_tcnv_rec.tmt_asset_disposition_yn := p5_a64;
4195     ddp_tcnv_rec.tmt_amortization_yn := p5_a65;
4196     ddp_tcnv_rec.tmt_asset_return_yn := p5_a66;
4197     ddp_tcnv_rec.tmt_contract_updated_yn := p5_a67;
4198     ddp_tcnv_rec.tmt_recycle_yn := p5_a68;
4199     ddp_tcnv_rec.tmt_validated_yn := p5_a69;
4200     ddp_tcnv_rec.tmt_streams_updated_yn := p5_a70;
4201     ddp_tcnv_rec.accrual_activity := p5_a71;
4202     ddp_tcnv_rec.tmt_split_asset_yn := p5_a72;
4203     ddp_tcnv_rec.tmt_generic_flag1_yn := p5_a73;
4204     ddp_tcnv_rec.tmt_generic_flag2_yn := p5_a74;
4205     ddp_tcnv_rec.tmt_generic_flag3_yn := p5_a75;
4206     ddp_tcnv_rec.currency_conversion_type := p5_a76;
4207     ddp_tcnv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a77);
4208     ddp_tcnv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a78);
4209     ddp_tcnv_rec.chr_id := rosetta_g_miss_num_map(p5_a79);
4210     ddp_tcnv_rec.source_trx_id := rosetta_g_miss_num_map(p5_a80);
4211     ddp_tcnv_rec.source_trx_type := p5_a81;
4212     ddp_tcnv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a82);
4213     ddp_tcnv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a83);
4214     ddp_tcnv_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p5_a84);
4215     ddp_tcnv_rec.accounting_reversal_yn := p5_a85;
4216     ddp_tcnv_rec.product_name := p5_a86;
4217     ddp_tcnv_rec.book_classification_code := p5_a87;
4218     ddp_tcnv_rec.tax_owner_code := p5_a88;
4219     ddp_tcnv_rec.tmt_status_code := p5_a89;
4220     ddp_tcnv_rec.representation_name := p5_a90;
4221     ddp_tcnv_rec.representation_code := p5_a91;
4222     ddp_tcnv_rec.upgrade_status_flag := p5_a92;
4223     ddp_tcnv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a93);
4224 
4225     -- here's the delegated call to the old PL/SQL routine
4226     okl_trx_contracts_pub.delete_trx_contracts(p_api_version,
4227       p_init_msg_list,
4228       x_return_status,
4229       x_msg_count,
4230       x_msg_data,
4231       ddp_tcnv_rec);
4232 
4233     -- copy data back from the local variables to OUT or IN-OUT args, if any
4234 
4235 
4236 
4237 
4238 
4239   end;
4240 
4241   procedure validate_trx_contracts(p_api_version  NUMBER
4242     , p_init_msg_list  VARCHAR2
4243     , x_return_status out nocopy  VARCHAR2
4244     , x_msg_count out nocopy  NUMBER
4245     , x_msg_data out nocopy  VARCHAR2
4246     , p5_a0 JTF_NUMBER_TABLE
4247     , p5_a1 JTF_NUMBER_TABLE
4248     , p5_a2 JTF_VARCHAR2_TABLE_100
4249     , p5_a3 JTF_VARCHAR2_TABLE_100
4250     , p5_a4 JTF_VARCHAR2_TABLE_100
4251     , p5_a5 JTF_VARCHAR2_TABLE_100
4252     , p5_a6 JTF_NUMBER_TABLE
4253     , p5_a7 JTF_NUMBER_TABLE
4254     , p5_a8 JTF_NUMBER_TABLE
4255     , p5_a9 JTF_NUMBER_TABLE
4256     , p5_a10 JTF_NUMBER_TABLE
4257     , p5_a11 JTF_NUMBER_TABLE
4258     , p5_a12 JTF_VARCHAR2_TABLE_100
4259     , p5_a13 JTF_VARCHAR2_TABLE_100
4260     , p5_a14 JTF_DATE_TABLE
4261     , p5_a15 JTF_VARCHAR2_TABLE_100
4262     , p5_a16 JTF_VARCHAR2_TABLE_100
4263     , p5_a17 JTF_NUMBER_TABLE
4264     , p5_a18 JTF_VARCHAR2_TABLE_200
4265     , p5_a19 JTF_VARCHAR2_TABLE_100
4266     , p5_a20 JTF_VARCHAR2_TABLE_500
4267     , p5_a21 JTF_VARCHAR2_TABLE_500
4268     , p5_a22 JTF_VARCHAR2_TABLE_500
4269     , p5_a23 JTF_VARCHAR2_TABLE_500
4270     , p5_a24 JTF_VARCHAR2_TABLE_500
4271     , p5_a25 JTF_VARCHAR2_TABLE_500
4272     , p5_a26 JTF_VARCHAR2_TABLE_500
4273     , p5_a27 JTF_VARCHAR2_TABLE_500
4274     , p5_a28 JTF_VARCHAR2_TABLE_500
4275     , p5_a29 JTF_VARCHAR2_TABLE_500
4276     , p5_a30 JTF_VARCHAR2_TABLE_500
4277     , p5_a31 JTF_VARCHAR2_TABLE_500
4278     , p5_a32 JTF_VARCHAR2_TABLE_500
4279     , p5_a33 JTF_VARCHAR2_TABLE_500
4280     , p5_a34 JTF_VARCHAR2_TABLE_500
4281     , p5_a35 JTF_VARCHAR2_TABLE_100
4282     , p5_a36 JTF_VARCHAR2_TABLE_100
4283     , p5_a37 JTF_NUMBER_TABLE
4284     , p5_a38 JTF_VARCHAR2_TABLE_100
4285     , p5_a39 JTF_NUMBER_TABLE
4286     , p5_a40 JTF_VARCHAR2_TABLE_100
4287     , p5_a41 JTF_VARCHAR2_TABLE_100
4288     , p5_a42 JTF_NUMBER_TABLE
4289     , p5_a43 JTF_NUMBER_TABLE
4290     , p5_a44 JTF_NUMBER_TABLE
4291     , p5_a45 JTF_NUMBER_TABLE
4292     , p5_a46 JTF_NUMBER_TABLE
4293     , p5_a47 JTF_NUMBER_TABLE
4294     , p5_a48 JTF_DATE_TABLE
4295     , p5_a49 JTF_NUMBER_TABLE
4296     , p5_a50 JTF_DATE_TABLE
4297     , p5_a51 JTF_NUMBER_TABLE
4298     , p5_a52 JTF_DATE_TABLE
4299     , p5_a53 JTF_NUMBER_TABLE
4300     , p5_a54 JTF_NUMBER_TABLE
4301     , p5_a55 JTF_VARCHAR2_TABLE_100
4302     , p5_a56 JTF_NUMBER_TABLE
4303     , p5_a57 JTF_VARCHAR2_TABLE_2000
4304     , p5_a58 JTF_DATE_TABLE
4305     , p5_a59 JTF_VARCHAR2_TABLE_100
4306     , p5_a60 JTF_VARCHAR2_TABLE_100
4307     , p5_a61 JTF_VARCHAR2_TABLE_100
4308     , p5_a62 JTF_VARCHAR2_TABLE_100
4309     , p5_a63 JTF_VARCHAR2_TABLE_100
4310     , p5_a64 JTF_VARCHAR2_TABLE_100
4311     , p5_a65 JTF_VARCHAR2_TABLE_100
4312     , p5_a66 JTF_VARCHAR2_TABLE_100
4313     , p5_a67 JTF_VARCHAR2_TABLE_100
4314     , p5_a68 JTF_VARCHAR2_TABLE_100
4315     , p5_a69 JTF_VARCHAR2_TABLE_100
4316     , p5_a70 JTF_VARCHAR2_TABLE_100
4317     , p5_a71 JTF_VARCHAR2_TABLE_100
4318     , p5_a72 JTF_VARCHAR2_TABLE_100
4319     , p5_a73 JTF_VARCHAR2_TABLE_100
4320     , p5_a74 JTF_VARCHAR2_TABLE_100
4321     , p5_a75 JTF_VARCHAR2_TABLE_100
4322     , p5_a76 JTF_VARCHAR2_TABLE_100
4323     , p5_a77 JTF_NUMBER_TABLE
4324     , p5_a78 JTF_DATE_TABLE
4325     , p5_a79 JTF_NUMBER_TABLE
4326     , p5_a80 JTF_NUMBER_TABLE
4327     , p5_a81 JTF_VARCHAR2_TABLE_100
4328     , p5_a82 JTF_DATE_TABLE
4329     , p5_a83 JTF_NUMBER_TABLE
4330     , p5_a84 JTF_DATE_TABLE
4331     , p5_a85 JTF_VARCHAR2_TABLE_100
4332     , p5_a86 JTF_VARCHAR2_TABLE_200
4333     , p5_a87 JTF_VARCHAR2_TABLE_100
4334     , p5_a88 JTF_VARCHAR2_TABLE_200
4335     , p5_a89 JTF_VARCHAR2_TABLE_100
4336     , p5_a90 JTF_VARCHAR2_TABLE_100
4337     , p5_a91 JTF_VARCHAR2_TABLE_100
4338     , p5_a92 JTF_VARCHAR2_TABLE_100
4339     , p5_a93 JTF_DATE_TABLE
4340   )
4341 
4342   as
4343     ddp_tcnv_tbl okl_trx_contracts_pub.tcnv_tbl_type;
4344     ddindx binary_integer; indx binary_integer;
4345   begin
4346 
4347     -- copy data to the local IN or IN-OUT args, if any
4348 
4349 
4350 
4351 
4352 
4353     okl_tcn_pvt_w.rosetta_table_copy_in_p5(ddp_tcnv_tbl, p5_a0
4354       , p5_a1
4355       , p5_a2
4356       , p5_a3
4357       , p5_a4
4358       , p5_a5
4359       , p5_a6
4360       , p5_a7
4361       , p5_a8
4362       , p5_a9
4363       , p5_a10
4364       , p5_a11
4365       , p5_a12
4366       , p5_a13
4367       , p5_a14
4368       , p5_a15
4369       , p5_a16
4370       , p5_a17
4371       , p5_a18
4372       , p5_a19
4373       , p5_a20
4374       , p5_a21
4375       , p5_a22
4376       , p5_a23
4377       , p5_a24
4378       , p5_a25
4379       , p5_a26
4380       , p5_a27
4381       , p5_a28
4382       , p5_a29
4383       , p5_a30
4384       , p5_a31
4385       , p5_a32
4386       , p5_a33
4387       , p5_a34
4388       , p5_a35
4389       , p5_a36
4390       , p5_a37
4391       , p5_a38
4392       , p5_a39
4393       , p5_a40
4394       , p5_a41
4395       , p5_a42
4396       , p5_a43
4397       , p5_a44
4398       , p5_a45
4399       , p5_a46
4400       , p5_a47
4401       , p5_a48
4402       , p5_a49
4403       , p5_a50
4404       , p5_a51
4405       , p5_a52
4406       , p5_a53
4407       , p5_a54
4408       , p5_a55
4409       , p5_a56
4410       , p5_a57
4411       , p5_a58
4412       , p5_a59
4413       , p5_a60
4414       , p5_a61
4415       , p5_a62
4416       , p5_a63
4417       , p5_a64
4418       , p5_a65
4419       , p5_a66
4420       , p5_a67
4421       , p5_a68
4422       , p5_a69
4423       , p5_a70
4424       , p5_a71
4425       , p5_a72
4426       , p5_a73
4427       , p5_a74
4428       , p5_a75
4429       , p5_a76
4430       , p5_a77
4431       , p5_a78
4432       , p5_a79
4433       , p5_a80
4434       , p5_a81
4435       , p5_a82
4436       , p5_a83
4437       , p5_a84
4438       , p5_a85
4439       , p5_a86
4440       , p5_a87
4441       , p5_a88
4442       , p5_a89
4443       , p5_a90
4444       , p5_a91
4445       , p5_a92
4446       , p5_a93
4447       );
4448 
4449     -- here's the delegated call to the old PL/SQL routine
4450     okl_trx_contracts_pub.validate_trx_contracts(p_api_version,
4451       p_init_msg_list,
4452       x_return_status,
4453       x_msg_count,
4454       x_msg_data,
4455       ddp_tcnv_tbl);
4456 
4457     -- copy data back from the local variables to OUT or IN-OUT args, if any
4458 
4459 
4460 
4461 
4462 
4463   end;
4464 
4465   procedure validate_trx_contracts(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  VARCHAR2 := fnd_api.g_miss_char
4474     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
4475     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
4476     , p5_a6  NUMBER := 0-1962.0724
4477     , p5_a7  NUMBER := 0-1962.0724
4478     , p5_a8  NUMBER := 0-1962.0724
4479     , p5_a9  NUMBER := 0-1962.0724
4480     , p5_a10  NUMBER := 0-1962.0724
4481     , p5_a11  NUMBER := 0-1962.0724
4482     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
4483     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
4484     , p5_a14  DATE := fnd_api.g_miss_date
4485     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
4486     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
4487     , p5_a17  NUMBER := 0-1962.0724
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  VARCHAR2 := fnd_api.g_miss_char
4496     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
4497     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
4498     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
4499     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
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  VARCHAR2 := fnd_api.g_miss_char
4507     , p5_a37  NUMBER := 0-1962.0724
4508     , p5_a38  VARCHAR2 := fnd_api.g_miss_char
4509     , p5_a39  NUMBER := 0-1962.0724
4510     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
4511     , p5_a41  VARCHAR2 := fnd_api.g_miss_char
4512     , p5_a42  NUMBER := 0-1962.0724
4513     , p5_a43  NUMBER := 0-1962.0724
4514     , p5_a44  NUMBER := 0-1962.0724
4515     , p5_a45  NUMBER := 0-1962.0724
4516     , p5_a46  NUMBER := 0-1962.0724
4517     , p5_a47  NUMBER := 0-1962.0724
4518     , p5_a48  DATE := fnd_api.g_miss_date
4519     , p5_a49  NUMBER := 0-1962.0724
4520     , p5_a50  DATE := fnd_api.g_miss_date
4521     , p5_a51  NUMBER := 0-1962.0724
4522     , p5_a52  DATE := fnd_api.g_miss_date
4523     , p5_a53  NUMBER := 0-1962.0724
4524     , p5_a54  NUMBER := 0-1962.0724
4525     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
4526     , p5_a56  NUMBER := 0-1962.0724
4527     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
4528     , p5_a58  DATE := fnd_api.g_miss_date
4529     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
4530     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
4531     , p5_a61  VARCHAR2 := fnd_api.g_miss_char
4532     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
4533     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
4534     , p5_a64  VARCHAR2 := fnd_api.g_miss_char
4535     , p5_a65  VARCHAR2 := fnd_api.g_miss_char
4536     , p5_a66  VARCHAR2 := fnd_api.g_miss_char
4537     , p5_a67  VARCHAR2 := fnd_api.g_miss_char
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  NUMBER := 0-1962.0724
4548     , p5_a78  DATE := fnd_api.g_miss_date
4549     , p5_a79  NUMBER := 0-1962.0724
4550     , p5_a80  NUMBER := 0-1962.0724
4551     , p5_a81  VARCHAR2 := fnd_api.g_miss_char
4552     , p5_a82  DATE := fnd_api.g_miss_date
4553     , p5_a83  NUMBER := 0-1962.0724
4554     , p5_a84  DATE := fnd_api.g_miss_date
4555     , p5_a85  VARCHAR2 := fnd_api.g_miss_char
4556     , p5_a86  VARCHAR2 := fnd_api.g_miss_char
4557     , p5_a87  VARCHAR2 := fnd_api.g_miss_char
4558     , p5_a88  VARCHAR2 := fnd_api.g_miss_char
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  DATE := fnd_api.g_miss_date
4564   )
4565 
4566   as
4567     ddp_tcnv_rec okl_trx_contracts_pub.tcnv_rec_type;
4568     ddindx binary_integer; indx binary_integer;
4569   begin
4570 
4571     -- copy data to the local IN or IN-OUT args, if any
4572 
4573 
4574 
4575 
4576 
4577     ddp_tcnv_rec.id := rosetta_g_miss_num_map(p5_a0);
4578     ddp_tcnv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
4579     ddp_tcnv_rec.rbr_code := p5_a2;
4580     ddp_tcnv_rec.rpy_code := p5_a3;
4581     ddp_tcnv_rec.rvn_code := p5_a4;
4582     ddp_tcnv_rec.trn_code := p5_a5;
4583     ddp_tcnv_rec.khr_id_new := rosetta_g_miss_num_map(p5_a6);
4584     ddp_tcnv_rec.pvn_id := rosetta_g_miss_num_map(p5_a7);
4585     ddp_tcnv_rec.pdt_id := rosetta_g_miss_num_map(p5_a8);
4586     ddp_tcnv_rec.qte_id := rosetta_g_miss_num_map(p5_a9);
4587     ddp_tcnv_rec.aes_id := rosetta_g_miss_num_map(p5_a10);
4588     ddp_tcnv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a11);
4589     ddp_tcnv_rec.tax_deductible_local := p5_a12;
4590     ddp_tcnv_rec.tax_deductible_corporate := p5_a13;
4591     ddp_tcnv_rec.date_accrual := rosetta_g_miss_date_in_map(p5_a14);
4592     ddp_tcnv_rec.accrual_status_yn := p5_a15;
4593     ddp_tcnv_rec.update_status_yn := p5_a16;
4594     ddp_tcnv_rec.amount := rosetta_g_miss_num_map(p5_a17);
4595     ddp_tcnv_rec.currency_code := p5_a18;
4596     ddp_tcnv_rec.attribute_category := p5_a19;
4597     ddp_tcnv_rec.attribute1 := p5_a20;
4598     ddp_tcnv_rec.attribute2 := p5_a21;
4599     ddp_tcnv_rec.attribute3 := p5_a22;
4600     ddp_tcnv_rec.attribute4 := p5_a23;
4601     ddp_tcnv_rec.attribute5 := p5_a24;
4602     ddp_tcnv_rec.attribute6 := p5_a25;
4603     ddp_tcnv_rec.attribute7 := p5_a26;
4604     ddp_tcnv_rec.attribute8 := p5_a27;
4605     ddp_tcnv_rec.attribute9 := p5_a28;
4606     ddp_tcnv_rec.attribute10 := p5_a29;
4607     ddp_tcnv_rec.attribute11 := p5_a30;
4608     ddp_tcnv_rec.attribute12 := p5_a31;
4609     ddp_tcnv_rec.attribute13 := p5_a32;
4610     ddp_tcnv_rec.attribute14 := p5_a33;
4611     ddp_tcnv_rec.attribute15 := p5_a34;
4612     ddp_tcnv_rec.tcn_type := p5_a35;
4613     ddp_tcnv_rec.rjn_code := p5_a36;
4614     ddp_tcnv_rec.party_rel_id1_old := rosetta_g_miss_num_map(p5_a37);
4615     ddp_tcnv_rec.party_rel_id2_old := p5_a38;
4616     ddp_tcnv_rec.party_rel_id1_new := rosetta_g_miss_num_map(p5_a39);
4617     ddp_tcnv_rec.party_rel_id2_new := p5_a40;
4618     ddp_tcnv_rec.complete_transfer_yn := p5_a41;
4619     ddp_tcnv_rec.org_id := rosetta_g_miss_num_map(p5_a42);
4620     ddp_tcnv_rec.khr_id := rosetta_g_miss_num_map(p5_a43);
4621     ddp_tcnv_rec.request_id := rosetta_g_miss_num_map(p5_a44);
4622     ddp_tcnv_rec.program_application_id := rosetta_g_miss_num_map(p5_a45);
4623     ddp_tcnv_rec.khr_id_old := rosetta_g_miss_num_map(p5_a46);
4624     ddp_tcnv_rec.program_id := rosetta_g_miss_num_map(p5_a47);
4625     ddp_tcnv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a48);
4626     ddp_tcnv_rec.created_by := rosetta_g_miss_num_map(p5_a49);
4627     ddp_tcnv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a50);
4628     ddp_tcnv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a51);
4629     ddp_tcnv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a52);
4630     ddp_tcnv_rec.last_update_login := rosetta_g_miss_num_map(p5_a53);
4631     ddp_tcnv_rec.try_id := rosetta_g_miss_num_map(p5_a54);
4632     ddp_tcnv_rec.tsu_code := p5_a55;
4633     ddp_tcnv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a56);
4634     ddp_tcnv_rec.description := p5_a57;
4635     ddp_tcnv_rec.date_transaction_occurred := rosetta_g_miss_date_in_map(p5_a58);
4636     ddp_tcnv_rec.trx_number := p5_a59;
4637     ddp_tcnv_rec.tmt_evergreen_yn := p5_a60;
4638     ddp_tcnv_rec.tmt_close_balances_yn := p5_a61;
4639     ddp_tcnv_rec.tmt_accounting_entries_yn := p5_a62;
4640     ddp_tcnv_rec.tmt_cancel_insurance_yn := p5_a63;
4641     ddp_tcnv_rec.tmt_asset_disposition_yn := p5_a64;
4642     ddp_tcnv_rec.tmt_amortization_yn := p5_a65;
4643     ddp_tcnv_rec.tmt_asset_return_yn := p5_a66;
4644     ddp_tcnv_rec.tmt_contract_updated_yn := p5_a67;
4645     ddp_tcnv_rec.tmt_recycle_yn := p5_a68;
4646     ddp_tcnv_rec.tmt_validated_yn := p5_a69;
4647     ddp_tcnv_rec.tmt_streams_updated_yn := p5_a70;
4648     ddp_tcnv_rec.accrual_activity := p5_a71;
4649     ddp_tcnv_rec.tmt_split_asset_yn := p5_a72;
4650     ddp_tcnv_rec.tmt_generic_flag1_yn := p5_a73;
4651     ddp_tcnv_rec.tmt_generic_flag2_yn := p5_a74;
4652     ddp_tcnv_rec.tmt_generic_flag3_yn := p5_a75;
4653     ddp_tcnv_rec.currency_conversion_type := p5_a76;
4654     ddp_tcnv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a77);
4655     ddp_tcnv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a78);
4656     ddp_tcnv_rec.chr_id := rosetta_g_miss_num_map(p5_a79);
4657     ddp_tcnv_rec.source_trx_id := rosetta_g_miss_num_map(p5_a80);
4658     ddp_tcnv_rec.source_trx_type := p5_a81;
4659     ddp_tcnv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a82);
4660     ddp_tcnv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a83);
4661     ddp_tcnv_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p5_a84);
4662     ddp_tcnv_rec.accounting_reversal_yn := p5_a85;
4663     ddp_tcnv_rec.product_name := p5_a86;
4664     ddp_tcnv_rec.book_classification_code := p5_a87;
4665     ddp_tcnv_rec.tax_owner_code := p5_a88;
4666     ddp_tcnv_rec.tmt_status_code := p5_a89;
4667     ddp_tcnv_rec.representation_name := p5_a90;
4668     ddp_tcnv_rec.representation_code := p5_a91;
4669     ddp_tcnv_rec.upgrade_status_flag := p5_a92;
4670     ddp_tcnv_rec.transaction_date := rosetta_g_miss_date_in_map(p5_a93);
4671 
4672     -- here's the delegated call to the old PL/SQL routine
4673     okl_trx_contracts_pub.validate_trx_contracts(p_api_version,
4674       p_init_msg_list,
4675       x_return_status,
4676       x_msg_count,
4677       x_msg_data,
4678       ddp_tcnv_rec);
4679 
4680     -- copy data back from the local variables to OUT or IN-OUT args, if any
4681 
4682 
4683 
4684 
4685 
4686   end;
4687 
4688   procedure create_trx_cntrct_lines(p_api_version  NUMBER
4689     , p_init_msg_list  VARCHAR2
4690     , x_return_status out nocopy  VARCHAR2
4691     , x_msg_count out nocopy  NUMBER
4692     , x_msg_data out nocopy  VARCHAR2
4693     , p5_a0 JTF_NUMBER_TABLE
4694     , p5_a1 JTF_NUMBER_TABLE
4695     , p5_a2 JTF_NUMBER_TABLE
4696     , p5_a3 JTF_NUMBER_TABLE
4697     , p5_a4 JTF_NUMBER_TABLE
4698     , p5_a5 JTF_NUMBER_TABLE
4699     , p5_a6 JTF_NUMBER_TABLE
4700     , p5_a7 JTF_NUMBER_TABLE
4701     , p5_a8 JTF_VARCHAR2_TABLE_100
4702     , p5_a9 JTF_NUMBER_TABLE
4703     , p5_a10 JTF_VARCHAR2_TABLE_2000
4704     , p5_a11 JTF_NUMBER_TABLE
4705     , p5_a12 JTF_VARCHAR2_TABLE_200
4706     , p5_a13 JTF_VARCHAR2_TABLE_100
4707     , p5_a14 JTF_VARCHAR2_TABLE_100
4708     , p5_a15 JTF_VARCHAR2_TABLE_500
4709     , p5_a16 JTF_VARCHAR2_TABLE_500
4710     , p5_a17 JTF_VARCHAR2_TABLE_500
4711     , p5_a18 JTF_VARCHAR2_TABLE_500
4712     , p5_a19 JTF_VARCHAR2_TABLE_500
4713     , p5_a20 JTF_VARCHAR2_TABLE_500
4714     , p5_a21 JTF_VARCHAR2_TABLE_500
4715     , p5_a22 JTF_VARCHAR2_TABLE_500
4716     , p5_a23 JTF_VARCHAR2_TABLE_500
4717     , p5_a24 JTF_VARCHAR2_TABLE_500
4718     , p5_a25 JTF_VARCHAR2_TABLE_500
4719     , p5_a26 JTF_VARCHAR2_TABLE_500
4720     , p5_a27 JTF_VARCHAR2_TABLE_500
4721     , p5_a28 JTF_VARCHAR2_TABLE_500
4722     , p5_a29 JTF_VARCHAR2_TABLE_500
4723     , p5_a30 JTF_VARCHAR2_TABLE_100
4724     , p5_a31 JTF_NUMBER_TABLE
4725     , p5_a32 JTF_DATE_TABLE
4726     , p5_a33 JTF_NUMBER_TABLE
4727     , p5_a34 JTF_DATE_TABLE
4728     , p5_a35 JTF_NUMBER_TABLE
4729     , p5_a36 JTF_NUMBER_TABLE
4730     , p5_a37 JTF_NUMBER_TABLE
4731     , p5_a38 JTF_NUMBER_TABLE
4732     , p5_a39 JTF_DATE_TABLE
4733     , p5_a40 JTF_NUMBER_TABLE
4734     , p5_a41 JTF_NUMBER_TABLE
4735     , p5_a42 JTF_NUMBER_TABLE
4736     , p5_a43 JTF_NUMBER_TABLE
4737     , p5_a44 JTF_NUMBER_TABLE
4738     , p5_a45 JTF_VARCHAR2_TABLE_100
4739     , p5_a46 JTF_VARCHAR2_TABLE_200
4740     , p5_a47 JTF_NUMBER_TABLE
4741     , p5_a48 JTF_VARCHAR2_TABLE_200
4742     , p5_a49 JTF_NUMBER_TABLE
4743     , p5_a50 JTF_VARCHAR2_TABLE_200
4744     , p5_a51 JTF_NUMBER_TABLE
4745     , p5_a52 JTF_DATE_TABLE
4746     , p5_a53 JTF_NUMBER_TABLE
4747     , p5_a54 JTF_VARCHAR2_TABLE_200
4748     , p5_a55 JTF_VARCHAR2_TABLE_300
4749     , p5_a56 JTF_VARCHAR2_TABLE_100
4750     , p5_a57 JTF_VARCHAR2_TABLE_100
4751     , p6_a0 out nocopy JTF_NUMBER_TABLE
4752     , p6_a1 out nocopy JTF_NUMBER_TABLE
4753     , p6_a2 out nocopy JTF_NUMBER_TABLE
4754     , p6_a3 out nocopy JTF_NUMBER_TABLE
4755     , p6_a4 out nocopy JTF_NUMBER_TABLE
4756     , p6_a5 out nocopy JTF_NUMBER_TABLE
4757     , p6_a6 out nocopy JTF_NUMBER_TABLE
4758     , p6_a7 out nocopy JTF_NUMBER_TABLE
4759     , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
4760     , p6_a9 out nocopy JTF_NUMBER_TABLE
4761     , p6_a10 out nocopy JTF_VARCHAR2_TABLE_2000
4762     , p6_a11 out nocopy JTF_NUMBER_TABLE
4763     , p6_a12 out nocopy JTF_VARCHAR2_TABLE_200
4764     , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
4765     , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
4766     , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
4767     , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
4768     , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
4769     , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
4770     , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
4771     , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
4772     , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
4773     , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
4774     , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
4775     , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
4776     , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
4777     , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
4778     , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
4779     , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
4780     , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
4781     , p6_a30 out nocopy JTF_VARCHAR2_TABLE_100
4782     , p6_a31 out nocopy JTF_NUMBER_TABLE
4783     , p6_a32 out nocopy JTF_DATE_TABLE
4784     , p6_a33 out nocopy JTF_NUMBER_TABLE
4785     , p6_a34 out nocopy JTF_DATE_TABLE
4786     , p6_a35 out nocopy JTF_NUMBER_TABLE
4787     , p6_a36 out nocopy JTF_NUMBER_TABLE
4788     , p6_a37 out nocopy JTF_NUMBER_TABLE
4789     , p6_a38 out nocopy JTF_NUMBER_TABLE
4790     , p6_a39 out nocopy JTF_DATE_TABLE
4791     , p6_a40 out nocopy JTF_NUMBER_TABLE
4792     , p6_a41 out nocopy JTF_NUMBER_TABLE
4793     , p6_a42 out nocopy JTF_NUMBER_TABLE
4794     , p6_a43 out nocopy JTF_NUMBER_TABLE
4795     , p6_a44 out nocopy JTF_NUMBER_TABLE
4796     , p6_a45 out nocopy JTF_VARCHAR2_TABLE_100
4797     , p6_a46 out nocopy JTF_VARCHAR2_TABLE_200
4798     , p6_a47 out nocopy JTF_NUMBER_TABLE
4799     , p6_a48 out nocopy JTF_VARCHAR2_TABLE_200
4800     , p6_a49 out nocopy JTF_NUMBER_TABLE
4801     , p6_a50 out nocopy JTF_VARCHAR2_TABLE_200
4802     , p6_a51 out nocopy JTF_NUMBER_TABLE
4803     , p6_a52 out nocopy JTF_DATE_TABLE
4804     , p6_a53 out nocopy JTF_NUMBER_TABLE
4805     , p6_a54 out nocopy JTF_VARCHAR2_TABLE_200
4806     , p6_a55 out nocopy JTF_VARCHAR2_TABLE_300
4807     , p6_a56 out nocopy JTF_VARCHAR2_TABLE_100
4808     , p6_a57 out nocopy JTF_VARCHAR2_TABLE_100
4809   )
4810 
4811   as
4812     ddp_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
4813     ddx_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
4814     ddindx binary_integer; indx binary_integer;
4815   begin
4816 
4817     -- copy data to the local IN or IN-OUT args, if any
4818 
4819 
4820 
4821 
4822 
4823     okl_tcl_pvt_w.rosetta_table_copy_in_p5(ddp_tclv_tbl, p5_a0
4824       , p5_a1
4825       , p5_a2
4826       , p5_a3
4827       , p5_a4
4828       , p5_a5
4829       , p5_a6
4830       , p5_a7
4831       , p5_a8
4832       , p5_a9
4833       , p5_a10
4834       , p5_a11
4835       , p5_a12
4836       , p5_a13
4837       , p5_a14
4838       , p5_a15
4839       , p5_a16
4840       , p5_a17
4841       , p5_a18
4842       , p5_a19
4843       , p5_a20
4844       , p5_a21
4845       , p5_a22
4846       , p5_a23
4847       , p5_a24
4848       , p5_a25
4849       , p5_a26
4850       , p5_a27
4851       , p5_a28
4852       , p5_a29
4853       , p5_a30
4854       , p5_a31
4855       , p5_a32
4856       , p5_a33
4857       , p5_a34
4858       , p5_a35
4859       , p5_a36
4860       , p5_a37
4861       , p5_a38
4862       , p5_a39
4863       , p5_a40
4864       , p5_a41
4865       , p5_a42
4866       , p5_a43
4867       , p5_a44
4868       , p5_a45
4869       , p5_a46
4870       , p5_a47
4871       , p5_a48
4872       , p5_a49
4873       , p5_a50
4874       , p5_a51
4875       , p5_a52
4876       , p5_a53
4877       , p5_a54
4878       , p5_a55
4879       , p5_a56
4880       , p5_a57
4881       );
4882 
4883 
4884     -- here's the delegated call to the old PL/SQL routine
4885     okl_trx_contracts_pub.create_trx_cntrct_lines(p_api_version,
4886       p_init_msg_list,
4887       x_return_status,
4888       x_msg_count,
4889       x_msg_data,
4890       ddp_tclv_tbl,
4891       ddx_tclv_tbl);
4892 
4893     -- copy data back from the local variables to OUT or IN-OUT args, if any
4894 
4895 
4896 
4897 
4898 
4899 
4900     okl_tcl_pvt_w.rosetta_table_copy_out_p5(ddx_tclv_tbl, p6_a0
4901       , p6_a1
4902       , p6_a2
4903       , p6_a3
4904       , p6_a4
4905       , p6_a5
4906       , p6_a6
4907       , p6_a7
4908       , p6_a8
4909       , p6_a9
4910       , p6_a10
4911       , p6_a11
4912       , p6_a12
4913       , p6_a13
4914       , p6_a14
4915       , p6_a15
4916       , p6_a16
4917       , p6_a17
4918       , p6_a18
4919       , p6_a19
4920       , p6_a20
4921       , p6_a21
4922       , p6_a22
4923       , p6_a23
4924       , p6_a24
4925       , p6_a25
4926       , p6_a26
4927       , p6_a27
4928       , p6_a28
4929       , p6_a29
4930       , p6_a30
4931       , p6_a31
4932       , p6_a32
4933       , p6_a33
4934       , p6_a34
4935       , p6_a35
4936       , p6_a36
4937       , p6_a37
4938       , p6_a38
4939       , p6_a39
4940       , p6_a40
4941       , p6_a41
4942       , p6_a42
4943       , p6_a43
4944       , p6_a44
4945       , p6_a45
4946       , p6_a46
4947       , p6_a47
4948       , p6_a48
4949       , p6_a49
4950       , p6_a50
4951       , p6_a51
4952       , p6_a52
4953       , p6_a53
4954       , p6_a54
4955       , p6_a55
4956       , p6_a56
4957       , p6_a57
4958       );
4959   end;
4960 
4961   procedure create_trx_cntrct_lines(p_api_version  NUMBER
4962     , p_init_msg_list  VARCHAR2
4963     , x_return_status out nocopy  VARCHAR2
4964     , x_msg_count out nocopy  NUMBER
4965     , x_msg_data out nocopy  VARCHAR2
4966     , p6_a0 out nocopy  NUMBER
4967     , p6_a1 out nocopy  NUMBER
4968     , p6_a2 out nocopy  NUMBER
4969     , p6_a3 out nocopy  NUMBER
4970     , p6_a4 out nocopy  NUMBER
4971     , p6_a5 out nocopy  NUMBER
4972     , p6_a6 out nocopy  NUMBER
4973     , p6_a7 out nocopy  NUMBER
4974     , p6_a8 out nocopy  VARCHAR2
4975     , p6_a9 out nocopy  NUMBER
4976     , p6_a10 out nocopy  VARCHAR2
4977     , p6_a11 out nocopy  NUMBER
4978     , p6_a12 out nocopy  VARCHAR2
4979     , p6_a13 out nocopy  VARCHAR2
4980     , p6_a14 out nocopy  VARCHAR2
4981     , p6_a15 out nocopy  VARCHAR2
4982     , p6_a16 out nocopy  VARCHAR2
4983     , p6_a17 out nocopy  VARCHAR2
4984     , p6_a18 out nocopy  VARCHAR2
4985     , p6_a19 out nocopy  VARCHAR2
4986     , p6_a20 out nocopy  VARCHAR2
4987     , p6_a21 out nocopy  VARCHAR2
4988     , p6_a22 out nocopy  VARCHAR2
4989     , p6_a23 out nocopy  VARCHAR2
4990     , p6_a24 out nocopy  VARCHAR2
4991     , p6_a25 out nocopy  VARCHAR2
4992     , p6_a26 out nocopy  VARCHAR2
4993     , p6_a27 out nocopy  VARCHAR2
4994     , p6_a28 out nocopy  VARCHAR2
4995     , p6_a29 out nocopy  VARCHAR2
4996     , p6_a30 out nocopy  VARCHAR2
4997     , p6_a31 out nocopy  NUMBER
4998     , p6_a32 out nocopy  DATE
4999     , p6_a33 out nocopy  NUMBER
5000     , p6_a34 out nocopy  DATE
5001     , p6_a35 out nocopy  NUMBER
5002     , p6_a36 out nocopy  NUMBER
5003     , p6_a37 out nocopy  NUMBER
5004     , p6_a38 out nocopy  NUMBER
5005     , p6_a39 out nocopy  DATE
5006     , p6_a40 out nocopy  NUMBER
5007     , p6_a41 out nocopy  NUMBER
5008     , p6_a42 out nocopy  NUMBER
5009     , p6_a43 out nocopy  NUMBER
5010     , p6_a44 out nocopy  NUMBER
5011     , p6_a45 out nocopy  VARCHAR2
5012     , p6_a46 out nocopy  VARCHAR2
5013     , p6_a47 out nocopy  NUMBER
5014     , p6_a48 out nocopy  VARCHAR2
5015     , p6_a49 out nocopy  NUMBER
5016     , p6_a50 out nocopy  VARCHAR2
5017     , p6_a51 out nocopy  NUMBER
5018     , p6_a52 out nocopy  DATE
5019     , p6_a53 out nocopy  NUMBER
5020     , p6_a54 out nocopy  VARCHAR2
5021     , p6_a55 out nocopy  VARCHAR2
5022     , p6_a56 out nocopy  VARCHAR2
5023     , p6_a57 out nocopy  VARCHAR2
5024     , p5_a0  NUMBER := 0-1962.0724
5025     , p5_a1  NUMBER := 0-1962.0724
5026     , p5_a2  NUMBER := 0-1962.0724
5027     , p5_a3  NUMBER := 0-1962.0724
5028     , p5_a4  NUMBER := 0-1962.0724
5029     , p5_a5  NUMBER := 0-1962.0724
5030     , p5_a6  NUMBER := 0-1962.0724
5031     , p5_a7  NUMBER := 0-1962.0724
5032     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
5033     , p5_a9  NUMBER := 0-1962.0724
5034     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
5035     , p5_a11  NUMBER := 0-1962.0724
5036     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
5037     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
5038     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
5039     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
5040     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
5041     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
5042     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
5043     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
5044     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
5045     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
5046     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
5047     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
5048     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
5049     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
5050     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
5051     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
5052     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
5053     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
5054     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
5055     , p5_a31  NUMBER := 0-1962.0724
5056     , p5_a32  DATE := fnd_api.g_miss_date
5057     , p5_a33  NUMBER := 0-1962.0724
5058     , p5_a34  DATE := fnd_api.g_miss_date
5059     , p5_a35  NUMBER := 0-1962.0724
5060     , p5_a36  NUMBER := 0-1962.0724
5061     , p5_a37  NUMBER := 0-1962.0724
5062     , p5_a38  NUMBER := 0-1962.0724
5063     , p5_a39  DATE := fnd_api.g_miss_date
5064     , p5_a40  NUMBER := 0-1962.0724
5065     , p5_a41  NUMBER := 0-1962.0724
5066     , p5_a42  NUMBER := 0-1962.0724
5067     , p5_a43  NUMBER := 0-1962.0724
5068     , p5_a44  NUMBER := 0-1962.0724
5069     , p5_a45  VARCHAR2 := fnd_api.g_miss_char
5070     , p5_a46  VARCHAR2 := fnd_api.g_miss_char
5071     , p5_a47  NUMBER := 0-1962.0724
5072     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
5073     , p5_a49  NUMBER := 0-1962.0724
5074     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
5075     , p5_a51  NUMBER := 0-1962.0724
5076     , p5_a52  DATE := fnd_api.g_miss_date
5077     , p5_a53  NUMBER := 0-1962.0724
5078     , p5_a54  VARCHAR2 := fnd_api.g_miss_char
5079     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
5080     , p5_a56  VARCHAR2 := fnd_api.g_miss_char
5081     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
5082   )
5083 
5084   as
5085     ddp_tclv_rec okl_trx_contracts_pub.tclv_rec_type;
5086     ddx_tclv_rec okl_trx_contracts_pub.tclv_rec_type;
5087     ddindx binary_integer; indx binary_integer;
5088   begin
5089 
5090     -- copy data to the local IN or IN-OUT args, if any
5091 
5092 
5093 
5094 
5095 
5096     ddp_tclv_rec.id := rosetta_g_miss_num_map(p5_a0);
5097     ddp_tclv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
5098     ddp_tclv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
5099     ddp_tclv_rec.rct_id := rosetta_g_miss_num_map(p5_a3);
5100     ddp_tclv_rec.btc_id := rosetta_g_miss_num_map(p5_a4);
5101     ddp_tclv_rec.tcn_id := rosetta_g_miss_num_map(p5_a5);
5102     ddp_tclv_rec.khr_id := rosetta_g_miss_num_map(p5_a6);
5103     ddp_tclv_rec.kle_id := rosetta_g_miss_num_map(p5_a7);
5104     ddp_tclv_rec.before_transfer_yn := p5_a8;
5105     ddp_tclv_rec.line_number := rosetta_g_miss_num_map(p5_a9);
5106     ddp_tclv_rec.description := p5_a10;
5107     ddp_tclv_rec.amount := rosetta_g_miss_num_map(p5_a11);
5108     ddp_tclv_rec.currency_code := p5_a12;
5109     ddp_tclv_rec.gl_reversal_yn := p5_a13;
5110     ddp_tclv_rec.attribute_category := p5_a14;
5111     ddp_tclv_rec.attribute1 := p5_a15;
5112     ddp_tclv_rec.attribute2 := p5_a16;
5113     ddp_tclv_rec.attribute3 := p5_a17;
5114     ddp_tclv_rec.attribute4 := p5_a18;
5115     ddp_tclv_rec.attribute5 := p5_a19;
5116     ddp_tclv_rec.attribute6 := p5_a20;
5117     ddp_tclv_rec.attribute7 := p5_a21;
5118     ddp_tclv_rec.attribute8 := p5_a22;
5119     ddp_tclv_rec.attribute9 := p5_a23;
5120     ddp_tclv_rec.attribute10 := p5_a24;
5121     ddp_tclv_rec.attribute11 := p5_a25;
5122     ddp_tclv_rec.attribute12 := p5_a26;
5123     ddp_tclv_rec.attribute13 := p5_a27;
5124     ddp_tclv_rec.attribute14 := p5_a28;
5125     ddp_tclv_rec.attribute15 := p5_a29;
5126     ddp_tclv_rec.tcl_type := p5_a30;
5127     ddp_tclv_rec.created_by := rosetta_g_miss_num_map(p5_a31);
5128     ddp_tclv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a32);
5129     ddp_tclv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a33);
5130     ddp_tclv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a34);
5131     ddp_tclv_rec.org_id := rosetta_g_miss_num_map(p5_a35);
5132     ddp_tclv_rec.program_id := rosetta_g_miss_num_map(p5_a36);
5133     ddp_tclv_rec.program_application_id := rosetta_g_miss_num_map(p5_a37);
5134     ddp_tclv_rec.request_id := rosetta_g_miss_num_map(p5_a38);
5135     ddp_tclv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a39);
5136     ddp_tclv_rec.last_update_login := rosetta_g_miss_num_map(p5_a40);
5137     ddp_tclv_rec.avl_id := rosetta_g_miss_num_map(p5_a41);
5138     ddp_tclv_rec.bkt_id := rosetta_g_miss_num_map(p5_a42);
5139     ddp_tclv_rec.kle_id_new := rosetta_g_miss_num_map(p5_a43);
5140     ddp_tclv_rec.percentage := rosetta_g_miss_num_map(p5_a44);
5141     ddp_tclv_rec.accrual_rule_yn := p5_a45;
5142     ddp_tclv_rec.source_column_1 := p5_a46;
5143     ddp_tclv_rec.source_value_1 := rosetta_g_miss_num_map(p5_a47);
5144     ddp_tclv_rec.source_column_2 := p5_a48;
5145     ddp_tclv_rec.source_value_2 := rosetta_g_miss_num_map(p5_a49);
5146     ddp_tclv_rec.source_column_3 := p5_a50;
5147     ddp_tclv_rec.source_value_3 := rosetta_g_miss_num_map(p5_a51);
5148     ddp_tclv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a52);
5149     ddp_tclv_rec.tax_line_id := rosetta_g_miss_num_map(p5_a53);
5150     ddp_tclv_rec.stream_type_code := p5_a54;
5151     ddp_tclv_rec.stream_type_purpose := p5_a55;
5152     ddp_tclv_rec.asset_book_type_name := p5_a56;
5153     ddp_tclv_rec.upgrade_status_flag := p5_a57;
5154 
5155 
5156     -- here's the delegated call to the old PL/SQL routine
5157     okl_trx_contracts_pub.create_trx_cntrct_lines(p_api_version,
5158       p_init_msg_list,
5159       x_return_status,
5160       x_msg_count,
5161       x_msg_data,
5162       ddp_tclv_rec,
5163       ddx_tclv_rec);
5164 
5165     -- copy data back from the local variables to OUT or IN-OUT args, if any
5166 
5167 
5168 
5169 
5170 
5171 
5172     p6_a0 := rosetta_g_miss_num_map(ddx_tclv_rec.id);
5173     p6_a1 := rosetta_g_miss_num_map(ddx_tclv_rec.object_version_number);
5174     p6_a2 := rosetta_g_miss_num_map(ddx_tclv_rec.sty_id);
5175     p6_a3 := rosetta_g_miss_num_map(ddx_tclv_rec.rct_id);
5176     p6_a4 := rosetta_g_miss_num_map(ddx_tclv_rec.btc_id);
5177     p6_a5 := rosetta_g_miss_num_map(ddx_tclv_rec.tcn_id);
5178     p6_a6 := rosetta_g_miss_num_map(ddx_tclv_rec.khr_id);
5179     p6_a7 := rosetta_g_miss_num_map(ddx_tclv_rec.kle_id);
5180     p6_a8 := ddx_tclv_rec.before_transfer_yn;
5181     p6_a9 := rosetta_g_miss_num_map(ddx_tclv_rec.line_number);
5182     p6_a10 := ddx_tclv_rec.description;
5183     p6_a11 := rosetta_g_miss_num_map(ddx_tclv_rec.amount);
5184     p6_a12 := ddx_tclv_rec.currency_code;
5185     p6_a13 := ddx_tclv_rec.gl_reversal_yn;
5186     p6_a14 := ddx_tclv_rec.attribute_category;
5187     p6_a15 := ddx_tclv_rec.attribute1;
5188     p6_a16 := ddx_tclv_rec.attribute2;
5189     p6_a17 := ddx_tclv_rec.attribute3;
5190     p6_a18 := ddx_tclv_rec.attribute4;
5191     p6_a19 := ddx_tclv_rec.attribute5;
5192     p6_a20 := ddx_tclv_rec.attribute6;
5193     p6_a21 := ddx_tclv_rec.attribute7;
5194     p6_a22 := ddx_tclv_rec.attribute8;
5195     p6_a23 := ddx_tclv_rec.attribute9;
5196     p6_a24 := ddx_tclv_rec.attribute10;
5197     p6_a25 := ddx_tclv_rec.attribute11;
5198     p6_a26 := ddx_tclv_rec.attribute12;
5199     p6_a27 := ddx_tclv_rec.attribute13;
5200     p6_a28 := ddx_tclv_rec.attribute14;
5201     p6_a29 := ddx_tclv_rec.attribute15;
5202     p6_a30 := ddx_tclv_rec.tcl_type;
5203     p6_a31 := rosetta_g_miss_num_map(ddx_tclv_rec.created_by);
5204     p6_a32 := ddx_tclv_rec.creation_date;
5205     p6_a33 := rosetta_g_miss_num_map(ddx_tclv_rec.last_updated_by);
5206     p6_a34 := ddx_tclv_rec.last_update_date;
5207     p6_a35 := rosetta_g_miss_num_map(ddx_tclv_rec.org_id);
5208     p6_a36 := rosetta_g_miss_num_map(ddx_tclv_rec.program_id);
5209     p6_a37 := rosetta_g_miss_num_map(ddx_tclv_rec.program_application_id);
5210     p6_a38 := rosetta_g_miss_num_map(ddx_tclv_rec.request_id);
5211     p6_a39 := ddx_tclv_rec.program_update_date;
5212     p6_a40 := rosetta_g_miss_num_map(ddx_tclv_rec.last_update_login);
5213     p6_a41 := rosetta_g_miss_num_map(ddx_tclv_rec.avl_id);
5214     p6_a42 := rosetta_g_miss_num_map(ddx_tclv_rec.bkt_id);
5215     p6_a43 := rosetta_g_miss_num_map(ddx_tclv_rec.kle_id_new);
5216     p6_a44 := rosetta_g_miss_num_map(ddx_tclv_rec.percentage);
5217     p6_a45 := ddx_tclv_rec.accrual_rule_yn;
5218     p6_a46 := ddx_tclv_rec.source_column_1;
5219     p6_a47 := rosetta_g_miss_num_map(ddx_tclv_rec.source_value_1);
5220     p6_a48 := ddx_tclv_rec.source_column_2;
5221     p6_a49 := rosetta_g_miss_num_map(ddx_tclv_rec.source_value_2);
5222     p6_a50 := ddx_tclv_rec.source_column_3;
5223     p6_a51 := rosetta_g_miss_num_map(ddx_tclv_rec.source_value_3);
5224     p6_a52 := ddx_tclv_rec.canceled_date;
5225     p6_a53 := rosetta_g_miss_num_map(ddx_tclv_rec.tax_line_id);
5226     p6_a54 := ddx_tclv_rec.stream_type_code;
5227     p6_a55 := ddx_tclv_rec.stream_type_purpose;
5228     p6_a56 := ddx_tclv_rec.asset_book_type_name;
5229     p6_a57 := ddx_tclv_rec.upgrade_status_flag;
5230   end;
5231 
5232   procedure lock_trx_cntrct_lines(p_api_version  NUMBER
5233     , p_init_msg_list  VARCHAR2
5234     , x_return_status out nocopy  VARCHAR2
5235     , x_msg_count out nocopy  NUMBER
5236     , x_msg_data out nocopy  VARCHAR2
5237     , p5_a0 JTF_NUMBER_TABLE
5238     , p5_a1 JTF_NUMBER_TABLE
5239     , p5_a2 JTF_NUMBER_TABLE
5240     , p5_a3 JTF_NUMBER_TABLE
5241     , p5_a4 JTF_NUMBER_TABLE
5242     , p5_a5 JTF_NUMBER_TABLE
5243     , p5_a6 JTF_NUMBER_TABLE
5244     , p5_a7 JTF_NUMBER_TABLE
5245     , p5_a8 JTF_VARCHAR2_TABLE_100
5246     , p5_a9 JTF_NUMBER_TABLE
5247     , p5_a10 JTF_VARCHAR2_TABLE_2000
5248     , p5_a11 JTF_NUMBER_TABLE
5249     , p5_a12 JTF_VARCHAR2_TABLE_200
5250     , p5_a13 JTF_VARCHAR2_TABLE_100
5251     , p5_a14 JTF_VARCHAR2_TABLE_100
5252     , p5_a15 JTF_VARCHAR2_TABLE_500
5253     , p5_a16 JTF_VARCHAR2_TABLE_500
5254     , p5_a17 JTF_VARCHAR2_TABLE_500
5255     , p5_a18 JTF_VARCHAR2_TABLE_500
5256     , p5_a19 JTF_VARCHAR2_TABLE_500
5257     , p5_a20 JTF_VARCHAR2_TABLE_500
5258     , p5_a21 JTF_VARCHAR2_TABLE_500
5259     , p5_a22 JTF_VARCHAR2_TABLE_500
5260     , p5_a23 JTF_VARCHAR2_TABLE_500
5261     , p5_a24 JTF_VARCHAR2_TABLE_500
5262     , p5_a25 JTF_VARCHAR2_TABLE_500
5263     , p5_a26 JTF_VARCHAR2_TABLE_500
5264     , p5_a27 JTF_VARCHAR2_TABLE_500
5265     , p5_a28 JTF_VARCHAR2_TABLE_500
5266     , p5_a29 JTF_VARCHAR2_TABLE_500
5267     , p5_a30 JTF_VARCHAR2_TABLE_100
5268     , p5_a31 JTF_NUMBER_TABLE
5269     , p5_a32 JTF_DATE_TABLE
5270     , p5_a33 JTF_NUMBER_TABLE
5271     , p5_a34 JTF_DATE_TABLE
5272     , p5_a35 JTF_NUMBER_TABLE
5273     , p5_a36 JTF_NUMBER_TABLE
5274     , p5_a37 JTF_NUMBER_TABLE
5275     , p5_a38 JTF_NUMBER_TABLE
5276     , p5_a39 JTF_DATE_TABLE
5277     , p5_a40 JTF_NUMBER_TABLE
5278     , p5_a41 JTF_NUMBER_TABLE
5279     , p5_a42 JTF_NUMBER_TABLE
5280     , p5_a43 JTF_NUMBER_TABLE
5281     , p5_a44 JTF_NUMBER_TABLE
5282     , p5_a45 JTF_VARCHAR2_TABLE_100
5283     , p5_a46 JTF_VARCHAR2_TABLE_200
5284     , p5_a47 JTF_NUMBER_TABLE
5285     , p5_a48 JTF_VARCHAR2_TABLE_200
5286     , p5_a49 JTF_NUMBER_TABLE
5287     , p5_a50 JTF_VARCHAR2_TABLE_200
5288     , p5_a51 JTF_NUMBER_TABLE
5289     , p5_a52 JTF_DATE_TABLE
5290     , p5_a53 JTF_NUMBER_TABLE
5291     , p5_a54 JTF_VARCHAR2_TABLE_200
5292     , p5_a55 JTF_VARCHAR2_TABLE_300
5293     , p5_a56 JTF_VARCHAR2_TABLE_100
5294     , p5_a57 JTF_VARCHAR2_TABLE_100
5295   )
5296 
5297   as
5298     ddp_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
5299     ddindx binary_integer; indx binary_integer;
5300   begin
5301 
5302     -- copy data to the local IN or IN-OUT args, if any
5303 
5304 
5305 
5306 
5307 
5308     okl_tcl_pvt_w.rosetta_table_copy_in_p5(ddp_tclv_tbl, p5_a0
5309       , p5_a1
5310       , p5_a2
5311       , p5_a3
5312       , p5_a4
5313       , p5_a5
5314       , p5_a6
5315       , p5_a7
5316       , p5_a8
5317       , p5_a9
5318       , p5_a10
5319       , p5_a11
5320       , p5_a12
5321       , p5_a13
5322       , p5_a14
5323       , p5_a15
5324       , p5_a16
5325       , p5_a17
5326       , p5_a18
5327       , p5_a19
5328       , p5_a20
5329       , p5_a21
5330       , p5_a22
5331       , p5_a23
5332       , p5_a24
5333       , p5_a25
5334       , p5_a26
5335       , p5_a27
5336       , p5_a28
5337       , p5_a29
5338       , p5_a30
5339       , p5_a31
5340       , p5_a32
5341       , p5_a33
5342       , p5_a34
5343       , p5_a35
5344       , p5_a36
5345       , p5_a37
5346       , p5_a38
5347       , p5_a39
5348       , p5_a40
5349       , p5_a41
5350       , p5_a42
5351       , p5_a43
5352       , p5_a44
5353       , p5_a45
5354       , p5_a46
5355       , p5_a47
5356       , p5_a48
5357       , p5_a49
5358       , p5_a50
5359       , p5_a51
5360       , p5_a52
5361       , p5_a53
5362       , p5_a54
5363       , p5_a55
5364       , p5_a56
5365       , p5_a57
5366       );
5367 
5368     -- here's the delegated call to the old PL/SQL routine
5369     okl_trx_contracts_pub.lock_trx_cntrct_lines(p_api_version,
5370       p_init_msg_list,
5371       x_return_status,
5372       x_msg_count,
5373       x_msg_data,
5374       ddp_tclv_tbl);
5375 
5376     -- copy data back from the local variables to OUT or IN-OUT args, if any
5377 
5378 
5379 
5380 
5381 
5382   end;
5383 
5384   procedure lock_trx_cntrct_lines(p_api_version  NUMBER
5385     , p_init_msg_list  VARCHAR2
5386     , x_return_status out nocopy  VARCHAR2
5387     , x_msg_count out nocopy  NUMBER
5388     , x_msg_data out nocopy  VARCHAR2
5389     , p5_a0  NUMBER := 0-1962.0724
5390     , p5_a1  NUMBER := 0-1962.0724
5391     , p5_a2  NUMBER := 0-1962.0724
5392     , p5_a3  NUMBER := 0-1962.0724
5393     , p5_a4  NUMBER := 0-1962.0724
5394     , p5_a5  NUMBER := 0-1962.0724
5395     , p5_a6  NUMBER := 0-1962.0724
5396     , p5_a7  NUMBER := 0-1962.0724
5397     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
5398     , p5_a9  NUMBER := 0-1962.0724
5399     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
5400     , p5_a11  NUMBER := 0-1962.0724
5401     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
5402     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
5403     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
5404     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
5405     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
5406     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
5407     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
5408     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
5409     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
5410     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
5411     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
5412     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
5413     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
5414     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
5415     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
5416     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
5417     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
5418     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
5419     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
5420     , p5_a31  NUMBER := 0-1962.0724
5421     , p5_a32  DATE := fnd_api.g_miss_date
5422     , p5_a33  NUMBER := 0-1962.0724
5423     , p5_a34  DATE := fnd_api.g_miss_date
5424     , p5_a35  NUMBER := 0-1962.0724
5425     , p5_a36  NUMBER := 0-1962.0724
5426     , p5_a37  NUMBER := 0-1962.0724
5427     , p5_a38  NUMBER := 0-1962.0724
5428     , p5_a39  DATE := fnd_api.g_miss_date
5429     , p5_a40  NUMBER := 0-1962.0724
5430     , p5_a41  NUMBER := 0-1962.0724
5431     , p5_a42  NUMBER := 0-1962.0724
5432     , p5_a43  NUMBER := 0-1962.0724
5433     , p5_a44  NUMBER := 0-1962.0724
5434     , p5_a45  VARCHAR2 := fnd_api.g_miss_char
5435     , p5_a46  VARCHAR2 := fnd_api.g_miss_char
5436     , p5_a47  NUMBER := 0-1962.0724
5437     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
5438     , p5_a49  NUMBER := 0-1962.0724
5439     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
5440     , p5_a51  NUMBER := 0-1962.0724
5441     , p5_a52  DATE := fnd_api.g_miss_date
5442     , p5_a53  NUMBER := 0-1962.0724
5443     , p5_a54  VARCHAR2 := fnd_api.g_miss_char
5444     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
5445     , p5_a56  VARCHAR2 := fnd_api.g_miss_char
5446     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
5447   )
5448 
5449   as
5450     ddp_tclv_rec okl_trx_contracts_pub.tclv_rec_type;
5451     ddindx binary_integer; indx binary_integer;
5452   begin
5453 
5454     -- copy data to the local IN or IN-OUT args, if any
5455 
5456 
5457 
5458 
5459 
5460     ddp_tclv_rec.id := rosetta_g_miss_num_map(p5_a0);
5461     ddp_tclv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
5462     ddp_tclv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
5463     ddp_tclv_rec.rct_id := rosetta_g_miss_num_map(p5_a3);
5464     ddp_tclv_rec.btc_id := rosetta_g_miss_num_map(p5_a4);
5465     ddp_tclv_rec.tcn_id := rosetta_g_miss_num_map(p5_a5);
5466     ddp_tclv_rec.khr_id := rosetta_g_miss_num_map(p5_a6);
5467     ddp_tclv_rec.kle_id := rosetta_g_miss_num_map(p5_a7);
5468     ddp_tclv_rec.before_transfer_yn := p5_a8;
5469     ddp_tclv_rec.line_number := rosetta_g_miss_num_map(p5_a9);
5470     ddp_tclv_rec.description := p5_a10;
5471     ddp_tclv_rec.amount := rosetta_g_miss_num_map(p5_a11);
5472     ddp_tclv_rec.currency_code := p5_a12;
5473     ddp_tclv_rec.gl_reversal_yn := p5_a13;
5474     ddp_tclv_rec.attribute_category := p5_a14;
5475     ddp_tclv_rec.attribute1 := p5_a15;
5476     ddp_tclv_rec.attribute2 := p5_a16;
5477     ddp_tclv_rec.attribute3 := p5_a17;
5478     ddp_tclv_rec.attribute4 := p5_a18;
5479     ddp_tclv_rec.attribute5 := p5_a19;
5480     ddp_tclv_rec.attribute6 := p5_a20;
5481     ddp_tclv_rec.attribute7 := p5_a21;
5482     ddp_tclv_rec.attribute8 := p5_a22;
5483     ddp_tclv_rec.attribute9 := p5_a23;
5484     ddp_tclv_rec.attribute10 := p5_a24;
5485     ddp_tclv_rec.attribute11 := p5_a25;
5486     ddp_tclv_rec.attribute12 := p5_a26;
5487     ddp_tclv_rec.attribute13 := p5_a27;
5488     ddp_tclv_rec.attribute14 := p5_a28;
5489     ddp_tclv_rec.attribute15 := p5_a29;
5490     ddp_tclv_rec.tcl_type := p5_a30;
5491     ddp_tclv_rec.created_by := rosetta_g_miss_num_map(p5_a31);
5492     ddp_tclv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a32);
5493     ddp_tclv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a33);
5494     ddp_tclv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a34);
5495     ddp_tclv_rec.org_id := rosetta_g_miss_num_map(p5_a35);
5496     ddp_tclv_rec.program_id := rosetta_g_miss_num_map(p5_a36);
5497     ddp_tclv_rec.program_application_id := rosetta_g_miss_num_map(p5_a37);
5498     ddp_tclv_rec.request_id := rosetta_g_miss_num_map(p5_a38);
5499     ddp_tclv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a39);
5500     ddp_tclv_rec.last_update_login := rosetta_g_miss_num_map(p5_a40);
5501     ddp_tclv_rec.avl_id := rosetta_g_miss_num_map(p5_a41);
5502     ddp_tclv_rec.bkt_id := rosetta_g_miss_num_map(p5_a42);
5503     ddp_tclv_rec.kle_id_new := rosetta_g_miss_num_map(p5_a43);
5504     ddp_tclv_rec.percentage := rosetta_g_miss_num_map(p5_a44);
5505     ddp_tclv_rec.accrual_rule_yn := p5_a45;
5506     ddp_tclv_rec.source_column_1 := p5_a46;
5507     ddp_tclv_rec.source_value_1 := rosetta_g_miss_num_map(p5_a47);
5508     ddp_tclv_rec.source_column_2 := p5_a48;
5509     ddp_tclv_rec.source_value_2 := rosetta_g_miss_num_map(p5_a49);
5510     ddp_tclv_rec.source_column_3 := p5_a50;
5511     ddp_tclv_rec.source_value_3 := rosetta_g_miss_num_map(p5_a51);
5512     ddp_tclv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a52);
5513     ddp_tclv_rec.tax_line_id := rosetta_g_miss_num_map(p5_a53);
5514     ddp_tclv_rec.stream_type_code := p5_a54;
5515     ddp_tclv_rec.stream_type_purpose := p5_a55;
5516     ddp_tclv_rec.asset_book_type_name := p5_a56;
5517     ddp_tclv_rec.upgrade_status_flag := p5_a57;
5518 
5519     -- here's the delegated call to the old PL/SQL routine
5520     okl_trx_contracts_pub.lock_trx_cntrct_lines(p_api_version,
5521       p_init_msg_list,
5522       x_return_status,
5523       x_msg_count,
5524       x_msg_data,
5525       ddp_tclv_rec);
5526 
5527     -- copy data back from the local variables to OUT or IN-OUT args, if any
5528 
5529 
5530 
5531 
5532 
5533   end;
5534 
5535   procedure update_trx_cntrct_lines(p_api_version  NUMBER
5536     , p_init_msg_list  VARCHAR2
5537     , x_return_status out nocopy  VARCHAR2
5538     , x_msg_count out nocopy  NUMBER
5539     , x_msg_data out nocopy  VARCHAR2
5540     , p5_a0 JTF_NUMBER_TABLE
5541     , p5_a1 JTF_NUMBER_TABLE
5542     , p5_a2 JTF_NUMBER_TABLE
5543     , p5_a3 JTF_NUMBER_TABLE
5544     , p5_a4 JTF_NUMBER_TABLE
5545     , p5_a5 JTF_NUMBER_TABLE
5546     , p5_a6 JTF_NUMBER_TABLE
5547     , p5_a7 JTF_NUMBER_TABLE
5548     , p5_a8 JTF_VARCHAR2_TABLE_100
5549     , p5_a9 JTF_NUMBER_TABLE
5550     , p5_a10 JTF_VARCHAR2_TABLE_2000
5551     , p5_a11 JTF_NUMBER_TABLE
5552     , p5_a12 JTF_VARCHAR2_TABLE_200
5553     , p5_a13 JTF_VARCHAR2_TABLE_100
5554     , p5_a14 JTF_VARCHAR2_TABLE_100
5555     , p5_a15 JTF_VARCHAR2_TABLE_500
5556     , p5_a16 JTF_VARCHAR2_TABLE_500
5557     , p5_a17 JTF_VARCHAR2_TABLE_500
5558     , p5_a18 JTF_VARCHAR2_TABLE_500
5559     , p5_a19 JTF_VARCHAR2_TABLE_500
5560     , p5_a20 JTF_VARCHAR2_TABLE_500
5561     , p5_a21 JTF_VARCHAR2_TABLE_500
5562     , p5_a22 JTF_VARCHAR2_TABLE_500
5563     , p5_a23 JTF_VARCHAR2_TABLE_500
5564     , p5_a24 JTF_VARCHAR2_TABLE_500
5565     , p5_a25 JTF_VARCHAR2_TABLE_500
5566     , p5_a26 JTF_VARCHAR2_TABLE_500
5567     , p5_a27 JTF_VARCHAR2_TABLE_500
5568     , p5_a28 JTF_VARCHAR2_TABLE_500
5569     , p5_a29 JTF_VARCHAR2_TABLE_500
5570     , p5_a30 JTF_VARCHAR2_TABLE_100
5571     , p5_a31 JTF_NUMBER_TABLE
5572     , p5_a32 JTF_DATE_TABLE
5573     , p5_a33 JTF_NUMBER_TABLE
5574     , p5_a34 JTF_DATE_TABLE
5575     , p5_a35 JTF_NUMBER_TABLE
5576     , p5_a36 JTF_NUMBER_TABLE
5577     , p5_a37 JTF_NUMBER_TABLE
5578     , p5_a38 JTF_NUMBER_TABLE
5579     , p5_a39 JTF_DATE_TABLE
5580     , p5_a40 JTF_NUMBER_TABLE
5581     , p5_a41 JTF_NUMBER_TABLE
5582     , p5_a42 JTF_NUMBER_TABLE
5583     , p5_a43 JTF_NUMBER_TABLE
5584     , p5_a44 JTF_NUMBER_TABLE
5585     , p5_a45 JTF_VARCHAR2_TABLE_100
5586     , p5_a46 JTF_VARCHAR2_TABLE_200
5587     , p5_a47 JTF_NUMBER_TABLE
5588     , p5_a48 JTF_VARCHAR2_TABLE_200
5589     , p5_a49 JTF_NUMBER_TABLE
5590     , p5_a50 JTF_VARCHAR2_TABLE_200
5591     , p5_a51 JTF_NUMBER_TABLE
5592     , p5_a52 JTF_DATE_TABLE
5593     , p5_a53 JTF_NUMBER_TABLE
5594     , p5_a54 JTF_VARCHAR2_TABLE_200
5595     , p5_a55 JTF_VARCHAR2_TABLE_300
5596     , p5_a56 JTF_VARCHAR2_TABLE_100
5597     , p5_a57 JTF_VARCHAR2_TABLE_100
5598     , p6_a0 out nocopy JTF_NUMBER_TABLE
5599     , p6_a1 out nocopy JTF_NUMBER_TABLE
5600     , p6_a2 out nocopy JTF_NUMBER_TABLE
5601     , p6_a3 out nocopy JTF_NUMBER_TABLE
5602     , p6_a4 out nocopy JTF_NUMBER_TABLE
5603     , p6_a5 out nocopy JTF_NUMBER_TABLE
5604     , p6_a6 out nocopy JTF_NUMBER_TABLE
5605     , p6_a7 out nocopy JTF_NUMBER_TABLE
5606     , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
5607     , p6_a9 out nocopy JTF_NUMBER_TABLE
5608     , p6_a10 out nocopy JTF_VARCHAR2_TABLE_2000
5609     , p6_a11 out nocopy JTF_NUMBER_TABLE
5610     , p6_a12 out nocopy JTF_VARCHAR2_TABLE_200
5611     , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
5612     , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
5613     , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
5614     , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
5615     , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
5616     , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
5617     , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
5618     , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
5619     , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
5620     , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
5621     , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
5622     , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
5623     , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
5624     , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
5625     , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
5626     , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
5627     , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
5628     , p6_a30 out nocopy JTF_VARCHAR2_TABLE_100
5629     , p6_a31 out nocopy JTF_NUMBER_TABLE
5630     , p6_a32 out nocopy JTF_DATE_TABLE
5631     , p6_a33 out nocopy JTF_NUMBER_TABLE
5632     , p6_a34 out nocopy JTF_DATE_TABLE
5633     , p6_a35 out nocopy JTF_NUMBER_TABLE
5634     , p6_a36 out nocopy JTF_NUMBER_TABLE
5635     , p6_a37 out nocopy JTF_NUMBER_TABLE
5636     , p6_a38 out nocopy JTF_NUMBER_TABLE
5637     , p6_a39 out nocopy JTF_DATE_TABLE
5638     , p6_a40 out nocopy JTF_NUMBER_TABLE
5639     , p6_a41 out nocopy JTF_NUMBER_TABLE
5640     , p6_a42 out nocopy JTF_NUMBER_TABLE
5641     , p6_a43 out nocopy JTF_NUMBER_TABLE
5642     , p6_a44 out nocopy JTF_NUMBER_TABLE
5643     , p6_a45 out nocopy JTF_VARCHAR2_TABLE_100
5644     , p6_a46 out nocopy JTF_VARCHAR2_TABLE_200
5645     , p6_a47 out nocopy JTF_NUMBER_TABLE
5646     , p6_a48 out nocopy JTF_VARCHAR2_TABLE_200
5647     , p6_a49 out nocopy JTF_NUMBER_TABLE
5648     , p6_a50 out nocopy JTF_VARCHAR2_TABLE_200
5649     , p6_a51 out nocopy JTF_NUMBER_TABLE
5650     , p6_a52 out nocopy JTF_DATE_TABLE
5651     , p6_a53 out nocopy JTF_NUMBER_TABLE
5652     , p6_a54 out nocopy JTF_VARCHAR2_TABLE_200
5653     , p6_a55 out nocopy JTF_VARCHAR2_TABLE_300
5654     , p6_a56 out nocopy JTF_VARCHAR2_TABLE_100
5655     , p6_a57 out nocopy JTF_VARCHAR2_TABLE_100
5656   )
5657 
5658   as
5659     ddp_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
5660     ddx_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
5661     ddindx binary_integer; indx binary_integer;
5662   begin
5663 
5664     -- copy data to the local IN or IN-OUT args, if any
5665 
5666 
5667 
5668 
5669 
5670     okl_tcl_pvt_w.rosetta_table_copy_in_p5(ddp_tclv_tbl, p5_a0
5671       , p5_a1
5672       , p5_a2
5673       , p5_a3
5674       , p5_a4
5675       , p5_a5
5676       , p5_a6
5677       , p5_a7
5678       , p5_a8
5679       , p5_a9
5680       , p5_a10
5681       , p5_a11
5682       , p5_a12
5683       , p5_a13
5684       , p5_a14
5685       , p5_a15
5686       , p5_a16
5687       , p5_a17
5688       , p5_a18
5689       , p5_a19
5690       , p5_a20
5691       , p5_a21
5692       , p5_a22
5693       , p5_a23
5694       , p5_a24
5695       , p5_a25
5696       , p5_a26
5697       , p5_a27
5698       , p5_a28
5699       , p5_a29
5700       , p5_a30
5701       , p5_a31
5702       , p5_a32
5703       , p5_a33
5704       , p5_a34
5705       , p5_a35
5706       , p5_a36
5707       , p5_a37
5708       , p5_a38
5709       , p5_a39
5710       , p5_a40
5711       , p5_a41
5712       , p5_a42
5713       , p5_a43
5714       , p5_a44
5715       , p5_a45
5716       , p5_a46
5717       , p5_a47
5718       , p5_a48
5719       , p5_a49
5720       , p5_a50
5721       , p5_a51
5722       , p5_a52
5723       , p5_a53
5724       , p5_a54
5725       , p5_a55
5726       , p5_a56
5727       , p5_a57
5728       );
5729 
5730 
5731     -- here's the delegated call to the old PL/SQL routine
5732     okl_trx_contracts_pub.update_trx_cntrct_lines(p_api_version,
5733       p_init_msg_list,
5734       x_return_status,
5735       x_msg_count,
5736       x_msg_data,
5737       ddp_tclv_tbl,
5738       ddx_tclv_tbl);
5739 
5740     -- copy data back from the local variables to OUT or IN-OUT args, if any
5741 
5742 
5743 
5744 
5745 
5746 
5747     okl_tcl_pvt_w.rosetta_table_copy_out_p5(ddx_tclv_tbl, p6_a0
5748       , p6_a1
5749       , p6_a2
5750       , p6_a3
5751       , p6_a4
5752       , p6_a5
5753       , p6_a6
5754       , p6_a7
5755       , p6_a8
5756       , p6_a9
5757       , p6_a10
5758       , p6_a11
5759       , p6_a12
5760       , p6_a13
5761       , p6_a14
5762       , p6_a15
5763       , p6_a16
5764       , p6_a17
5765       , p6_a18
5766       , p6_a19
5767       , p6_a20
5768       , p6_a21
5769       , p6_a22
5770       , p6_a23
5771       , p6_a24
5772       , p6_a25
5773       , p6_a26
5774       , p6_a27
5775       , p6_a28
5776       , p6_a29
5777       , p6_a30
5778       , p6_a31
5779       , p6_a32
5780       , p6_a33
5781       , p6_a34
5782       , p6_a35
5783       , p6_a36
5784       , p6_a37
5785       , p6_a38
5786       , p6_a39
5787       , p6_a40
5788       , p6_a41
5789       , p6_a42
5790       , p6_a43
5791       , p6_a44
5792       , p6_a45
5793       , p6_a46
5794       , p6_a47
5795       , p6_a48
5796       , p6_a49
5797       , p6_a50
5798       , p6_a51
5799       , p6_a52
5800       , p6_a53
5801       , p6_a54
5802       , p6_a55
5803       , p6_a56
5804       , p6_a57
5805       );
5806   end;
5807 
5808   procedure update_trx_cntrct_lines(p_api_version  NUMBER
5809     , p_init_msg_list  VARCHAR2
5810     , x_return_status out nocopy  VARCHAR2
5811     , x_msg_count out nocopy  NUMBER
5812     , x_msg_data out nocopy  VARCHAR2
5813     , p6_a0 out nocopy  NUMBER
5814     , p6_a1 out nocopy  NUMBER
5815     , p6_a2 out nocopy  NUMBER
5816     , p6_a3 out nocopy  NUMBER
5817     , p6_a4 out nocopy  NUMBER
5818     , p6_a5 out nocopy  NUMBER
5819     , p6_a6 out nocopy  NUMBER
5820     , p6_a7 out nocopy  NUMBER
5821     , p6_a8 out nocopy  VARCHAR2
5822     , p6_a9 out nocopy  NUMBER
5823     , p6_a10 out nocopy  VARCHAR2
5824     , p6_a11 out nocopy  NUMBER
5825     , p6_a12 out nocopy  VARCHAR2
5826     , p6_a13 out nocopy  VARCHAR2
5827     , p6_a14 out nocopy  VARCHAR2
5828     , p6_a15 out nocopy  VARCHAR2
5829     , p6_a16 out nocopy  VARCHAR2
5830     , p6_a17 out nocopy  VARCHAR2
5831     , p6_a18 out nocopy  VARCHAR2
5832     , p6_a19 out nocopy  VARCHAR2
5833     , p6_a20 out nocopy  VARCHAR2
5834     , p6_a21 out nocopy  VARCHAR2
5835     , p6_a22 out nocopy  VARCHAR2
5836     , p6_a23 out nocopy  VARCHAR2
5837     , p6_a24 out nocopy  VARCHAR2
5838     , p6_a25 out nocopy  VARCHAR2
5839     , p6_a26 out nocopy  VARCHAR2
5840     , p6_a27 out nocopy  VARCHAR2
5841     , p6_a28 out nocopy  VARCHAR2
5842     , p6_a29 out nocopy  VARCHAR2
5843     , p6_a30 out nocopy  VARCHAR2
5844     , p6_a31 out nocopy  NUMBER
5845     , p6_a32 out nocopy  DATE
5846     , p6_a33 out nocopy  NUMBER
5847     , p6_a34 out nocopy  DATE
5848     , p6_a35 out nocopy  NUMBER
5849     , p6_a36 out nocopy  NUMBER
5850     , p6_a37 out nocopy  NUMBER
5851     , p6_a38 out nocopy  NUMBER
5852     , p6_a39 out nocopy  DATE
5853     , p6_a40 out nocopy  NUMBER
5854     , p6_a41 out nocopy  NUMBER
5855     , p6_a42 out nocopy  NUMBER
5856     , p6_a43 out nocopy  NUMBER
5857     , p6_a44 out nocopy  NUMBER
5858     , p6_a45 out nocopy  VARCHAR2
5859     , p6_a46 out nocopy  VARCHAR2
5860     , p6_a47 out nocopy  NUMBER
5861     , p6_a48 out nocopy  VARCHAR2
5862     , p6_a49 out nocopy  NUMBER
5863     , p6_a50 out nocopy  VARCHAR2
5864     , p6_a51 out nocopy  NUMBER
5865     , p6_a52 out nocopy  DATE
5866     , p6_a53 out nocopy  NUMBER
5867     , p6_a54 out nocopy  VARCHAR2
5868     , p6_a55 out nocopy  VARCHAR2
5869     , p6_a56 out nocopy  VARCHAR2
5870     , p6_a57 out nocopy  VARCHAR2
5871     , p5_a0  NUMBER := 0-1962.0724
5872     , p5_a1  NUMBER := 0-1962.0724
5873     , p5_a2  NUMBER := 0-1962.0724
5874     , p5_a3  NUMBER := 0-1962.0724
5875     , p5_a4  NUMBER := 0-1962.0724
5876     , p5_a5  NUMBER := 0-1962.0724
5877     , p5_a6  NUMBER := 0-1962.0724
5878     , p5_a7  NUMBER := 0-1962.0724
5879     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
5880     , p5_a9  NUMBER := 0-1962.0724
5881     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
5882     , p5_a11  NUMBER := 0-1962.0724
5883     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
5884     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
5885     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
5886     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
5887     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
5888     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
5889     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
5890     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
5891     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
5892     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
5893     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
5894     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
5895     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
5896     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
5897     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
5898     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
5899     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
5900     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
5901     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
5902     , p5_a31  NUMBER := 0-1962.0724
5903     , p5_a32  DATE := fnd_api.g_miss_date
5904     , p5_a33  NUMBER := 0-1962.0724
5905     , p5_a34  DATE := fnd_api.g_miss_date
5906     , p5_a35  NUMBER := 0-1962.0724
5907     , p5_a36  NUMBER := 0-1962.0724
5908     , p5_a37  NUMBER := 0-1962.0724
5909     , p5_a38  NUMBER := 0-1962.0724
5910     , p5_a39  DATE := fnd_api.g_miss_date
5911     , p5_a40  NUMBER := 0-1962.0724
5912     , p5_a41  NUMBER := 0-1962.0724
5913     , p5_a42  NUMBER := 0-1962.0724
5914     , p5_a43  NUMBER := 0-1962.0724
5915     , p5_a44  NUMBER := 0-1962.0724
5916     , p5_a45  VARCHAR2 := fnd_api.g_miss_char
5917     , p5_a46  VARCHAR2 := fnd_api.g_miss_char
5918     , p5_a47  NUMBER := 0-1962.0724
5919     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
5920     , p5_a49  NUMBER := 0-1962.0724
5921     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
5922     , p5_a51  NUMBER := 0-1962.0724
5923     , p5_a52  DATE := fnd_api.g_miss_date
5924     , p5_a53  NUMBER := 0-1962.0724
5925     , p5_a54  VARCHAR2 := fnd_api.g_miss_char
5926     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
5927     , p5_a56  VARCHAR2 := fnd_api.g_miss_char
5928     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
5929   )
5930 
5931   as
5932     ddp_tclv_rec okl_trx_contracts_pub.tclv_rec_type;
5933     ddx_tclv_rec okl_trx_contracts_pub.tclv_rec_type;
5934     ddindx binary_integer; indx binary_integer;
5935   begin
5936 
5937     -- copy data to the local IN or IN-OUT args, if any
5938 
5939 
5940 
5941 
5942 
5943     ddp_tclv_rec.id := rosetta_g_miss_num_map(p5_a0);
5944     ddp_tclv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
5945     ddp_tclv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
5946     ddp_tclv_rec.rct_id := rosetta_g_miss_num_map(p5_a3);
5947     ddp_tclv_rec.btc_id := rosetta_g_miss_num_map(p5_a4);
5948     ddp_tclv_rec.tcn_id := rosetta_g_miss_num_map(p5_a5);
5949     ddp_tclv_rec.khr_id := rosetta_g_miss_num_map(p5_a6);
5950     ddp_tclv_rec.kle_id := rosetta_g_miss_num_map(p5_a7);
5951     ddp_tclv_rec.before_transfer_yn := p5_a8;
5952     ddp_tclv_rec.line_number := rosetta_g_miss_num_map(p5_a9);
5953     ddp_tclv_rec.description := p5_a10;
5954     ddp_tclv_rec.amount := rosetta_g_miss_num_map(p5_a11);
5955     ddp_tclv_rec.currency_code := p5_a12;
5956     ddp_tclv_rec.gl_reversal_yn := p5_a13;
5957     ddp_tclv_rec.attribute_category := p5_a14;
5958     ddp_tclv_rec.attribute1 := p5_a15;
5959     ddp_tclv_rec.attribute2 := p5_a16;
5960     ddp_tclv_rec.attribute3 := p5_a17;
5961     ddp_tclv_rec.attribute4 := p5_a18;
5962     ddp_tclv_rec.attribute5 := p5_a19;
5963     ddp_tclv_rec.attribute6 := p5_a20;
5964     ddp_tclv_rec.attribute7 := p5_a21;
5965     ddp_tclv_rec.attribute8 := p5_a22;
5966     ddp_tclv_rec.attribute9 := p5_a23;
5967     ddp_tclv_rec.attribute10 := p5_a24;
5968     ddp_tclv_rec.attribute11 := p5_a25;
5969     ddp_tclv_rec.attribute12 := p5_a26;
5970     ddp_tclv_rec.attribute13 := p5_a27;
5971     ddp_tclv_rec.attribute14 := p5_a28;
5972     ddp_tclv_rec.attribute15 := p5_a29;
5973     ddp_tclv_rec.tcl_type := p5_a30;
5974     ddp_tclv_rec.created_by := rosetta_g_miss_num_map(p5_a31);
5975     ddp_tclv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a32);
5976     ddp_tclv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a33);
5977     ddp_tclv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a34);
5978     ddp_tclv_rec.org_id := rosetta_g_miss_num_map(p5_a35);
5979     ddp_tclv_rec.program_id := rosetta_g_miss_num_map(p5_a36);
5980     ddp_tclv_rec.program_application_id := rosetta_g_miss_num_map(p5_a37);
5981     ddp_tclv_rec.request_id := rosetta_g_miss_num_map(p5_a38);
5982     ddp_tclv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a39);
5983     ddp_tclv_rec.last_update_login := rosetta_g_miss_num_map(p5_a40);
5984     ddp_tclv_rec.avl_id := rosetta_g_miss_num_map(p5_a41);
5985     ddp_tclv_rec.bkt_id := rosetta_g_miss_num_map(p5_a42);
5986     ddp_tclv_rec.kle_id_new := rosetta_g_miss_num_map(p5_a43);
5987     ddp_tclv_rec.percentage := rosetta_g_miss_num_map(p5_a44);
5988     ddp_tclv_rec.accrual_rule_yn := p5_a45;
5989     ddp_tclv_rec.source_column_1 := p5_a46;
5990     ddp_tclv_rec.source_value_1 := rosetta_g_miss_num_map(p5_a47);
5991     ddp_tclv_rec.source_column_2 := p5_a48;
5992     ddp_tclv_rec.source_value_2 := rosetta_g_miss_num_map(p5_a49);
5993     ddp_tclv_rec.source_column_3 := p5_a50;
5994     ddp_tclv_rec.source_value_3 := rosetta_g_miss_num_map(p5_a51);
5995     ddp_tclv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a52);
5996     ddp_tclv_rec.tax_line_id := rosetta_g_miss_num_map(p5_a53);
5997     ddp_tclv_rec.stream_type_code := p5_a54;
5998     ddp_tclv_rec.stream_type_purpose := p5_a55;
5999     ddp_tclv_rec.asset_book_type_name := p5_a56;
6000     ddp_tclv_rec.upgrade_status_flag := p5_a57;
6001 
6002 
6003     -- here's the delegated call to the old PL/SQL routine
6004     okl_trx_contracts_pub.update_trx_cntrct_lines(p_api_version,
6005       p_init_msg_list,
6006       x_return_status,
6007       x_msg_count,
6008       x_msg_data,
6009       ddp_tclv_rec,
6010       ddx_tclv_rec);
6011 
6012     -- copy data back from the local variables to OUT or IN-OUT args, if any
6013 
6014 
6015 
6016 
6017 
6018 
6019     p6_a0 := rosetta_g_miss_num_map(ddx_tclv_rec.id);
6020     p6_a1 := rosetta_g_miss_num_map(ddx_tclv_rec.object_version_number);
6021     p6_a2 := rosetta_g_miss_num_map(ddx_tclv_rec.sty_id);
6022     p6_a3 := rosetta_g_miss_num_map(ddx_tclv_rec.rct_id);
6023     p6_a4 := rosetta_g_miss_num_map(ddx_tclv_rec.btc_id);
6024     p6_a5 := rosetta_g_miss_num_map(ddx_tclv_rec.tcn_id);
6025     p6_a6 := rosetta_g_miss_num_map(ddx_tclv_rec.khr_id);
6026     p6_a7 := rosetta_g_miss_num_map(ddx_tclv_rec.kle_id);
6027     p6_a8 := ddx_tclv_rec.before_transfer_yn;
6028     p6_a9 := rosetta_g_miss_num_map(ddx_tclv_rec.line_number);
6029     p6_a10 := ddx_tclv_rec.description;
6030     p6_a11 := rosetta_g_miss_num_map(ddx_tclv_rec.amount);
6031     p6_a12 := ddx_tclv_rec.currency_code;
6032     p6_a13 := ddx_tclv_rec.gl_reversal_yn;
6033     p6_a14 := ddx_tclv_rec.attribute_category;
6034     p6_a15 := ddx_tclv_rec.attribute1;
6035     p6_a16 := ddx_tclv_rec.attribute2;
6036     p6_a17 := ddx_tclv_rec.attribute3;
6037     p6_a18 := ddx_tclv_rec.attribute4;
6038     p6_a19 := ddx_tclv_rec.attribute5;
6039     p6_a20 := ddx_tclv_rec.attribute6;
6040     p6_a21 := ddx_tclv_rec.attribute7;
6041     p6_a22 := ddx_tclv_rec.attribute8;
6042     p6_a23 := ddx_tclv_rec.attribute9;
6043     p6_a24 := ddx_tclv_rec.attribute10;
6044     p6_a25 := ddx_tclv_rec.attribute11;
6045     p6_a26 := ddx_tclv_rec.attribute12;
6046     p6_a27 := ddx_tclv_rec.attribute13;
6047     p6_a28 := ddx_tclv_rec.attribute14;
6048     p6_a29 := ddx_tclv_rec.attribute15;
6049     p6_a30 := ddx_tclv_rec.tcl_type;
6050     p6_a31 := rosetta_g_miss_num_map(ddx_tclv_rec.created_by);
6051     p6_a32 := ddx_tclv_rec.creation_date;
6052     p6_a33 := rosetta_g_miss_num_map(ddx_tclv_rec.last_updated_by);
6053     p6_a34 := ddx_tclv_rec.last_update_date;
6054     p6_a35 := rosetta_g_miss_num_map(ddx_tclv_rec.org_id);
6055     p6_a36 := rosetta_g_miss_num_map(ddx_tclv_rec.program_id);
6056     p6_a37 := rosetta_g_miss_num_map(ddx_tclv_rec.program_application_id);
6057     p6_a38 := rosetta_g_miss_num_map(ddx_tclv_rec.request_id);
6058     p6_a39 := ddx_tclv_rec.program_update_date;
6059     p6_a40 := rosetta_g_miss_num_map(ddx_tclv_rec.last_update_login);
6060     p6_a41 := rosetta_g_miss_num_map(ddx_tclv_rec.avl_id);
6061     p6_a42 := rosetta_g_miss_num_map(ddx_tclv_rec.bkt_id);
6062     p6_a43 := rosetta_g_miss_num_map(ddx_tclv_rec.kle_id_new);
6063     p6_a44 := rosetta_g_miss_num_map(ddx_tclv_rec.percentage);
6064     p6_a45 := ddx_tclv_rec.accrual_rule_yn;
6065     p6_a46 := ddx_tclv_rec.source_column_1;
6066     p6_a47 := rosetta_g_miss_num_map(ddx_tclv_rec.source_value_1);
6067     p6_a48 := ddx_tclv_rec.source_column_2;
6068     p6_a49 := rosetta_g_miss_num_map(ddx_tclv_rec.source_value_2);
6069     p6_a50 := ddx_tclv_rec.source_column_3;
6070     p6_a51 := rosetta_g_miss_num_map(ddx_tclv_rec.source_value_3);
6071     p6_a52 := ddx_tclv_rec.canceled_date;
6072     p6_a53 := rosetta_g_miss_num_map(ddx_tclv_rec.tax_line_id);
6073     p6_a54 := ddx_tclv_rec.stream_type_code;
6074     p6_a55 := ddx_tclv_rec.stream_type_purpose;
6075     p6_a56 := ddx_tclv_rec.asset_book_type_name;
6076     p6_a57 := ddx_tclv_rec.upgrade_status_flag;
6077   end;
6078 
6079   procedure delete_trx_cntrct_lines(p_api_version  NUMBER
6080     , p_init_msg_list  VARCHAR2
6081     , x_return_status out nocopy  VARCHAR2
6082     , x_msg_count out nocopy  NUMBER
6083     , x_msg_data out nocopy  VARCHAR2
6084     , p5_a0 JTF_NUMBER_TABLE
6085     , p5_a1 JTF_NUMBER_TABLE
6086     , p5_a2 JTF_NUMBER_TABLE
6087     , p5_a3 JTF_NUMBER_TABLE
6088     , p5_a4 JTF_NUMBER_TABLE
6089     , p5_a5 JTF_NUMBER_TABLE
6090     , p5_a6 JTF_NUMBER_TABLE
6091     , p5_a7 JTF_NUMBER_TABLE
6092     , p5_a8 JTF_VARCHAR2_TABLE_100
6093     , p5_a9 JTF_NUMBER_TABLE
6094     , p5_a10 JTF_VARCHAR2_TABLE_2000
6095     , p5_a11 JTF_NUMBER_TABLE
6096     , p5_a12 JTF_VARCHAR2_TABLE_200
6097     , p5_a13 JTF_VARCHAR2_TABLE_100
6098     , p5_a14 JTF_VARCHAR2_TABLE_100
6099     , p5_a15 JTF_VARCHAR2_TABLE_500
6100     , p5_a16 JTF_VARCHAR2_TABLE_500
6101     , p5_a17 JTF_VARCHAR2_TABLE_500
6102     , p5_a18 JTF_VARCHAR2_TABLE_500
6103     , p5_a19 JTF_VARCHAR2_TABLE_500
6104     , p5_a20 JTF_VARCHAR2_TABLE_500
6105     , p5_a21 JTF_VARCHAR2_TABLE_500
6106     , p5_a22 JTF_VARCHAR2_TABLE_500
6107     , p5_a23 JTF_VARCHAR2_TABLE_500
6108     , p5_a24 JTF_VARCHAR2_TABLE_500
6109     , p5_a25 JTF_VARCHAR2_TABLE_500
6110     , p5_a26 JTF_VARCHAR2_TABLE_500
6111     , p5_a27 JTF_VARCHAR2_TABLE_500
6112     , p5_a28 JTF_VARCHAR2_TABLE_500
6113     , p5_a29 JTF_VARCHAR2_TABLE_500
6114     , p5_a30 JTF_VARCHAR2_TABLE_100
6115     , p5_a31 JTF_NUMBER_TABLE
6116     , p5_a32 JTF_DATE_TABLE
6117     , p5_a33 JTF_NUMBER_TABLE
6118     , p5_a34 JTF_DATE_TABLE
6119     , p5_a35 JTF_NUMBER_TABLE
6120     , p5_a36 JTF_NUMBER_TABLE
6121     , p5_a37 JTF_NUMBER_TABLE
6122     , p5_a38 JTF_NUMBER_TABLE
6123     , p5_a39 JTF_DATE_TABLE
6124     , p5_a40 JTF_NUMBER_TABLE
6125     , p5_a41 JTF_NUMBER_TABLE
6126     , p5_a42 JTF_NUMBER_TABLE
6127     , p5_a43 JTF_NUMBER_TABLE
6128     , p5_a44 JTF_NUMBER_TABLE
6129     , p5_a45 JTF_VARCHAR2_TABLE_100
6130     , p5_a46 JTF_VARCHAR2_TABLE_200
6131     , p5_a47 JTF_NUMBER_TABLE
6132     , p5_a48 JTF_VARCHAR2_TABLE_200
6133     , p5_a49 JTF_NUMBER_TABLE
6134     , p5_a50 JTF_VARCHAR2_TABLE_200
6135     , p5_a51 JTF_NUMBER_TABLE
6136     , p5_a52 JTF_DATE_TABLE
6137     , p5_a53 JTF_NUMBER_TABLE
6138     , p5_a54 JTF_VARCHAR2_TABLE_200
6139     , p5_a55 JTF_VARCHAR2_TABLE_300
6140     , p5_a56 JTF_VARCHAR2_TABLE_100
6141     , p5_a57 JTF_VARCHAR2_TABLE_100
6142   )
6143 
6144   as
6145     ddp_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
6146     ddindx binary_integer; indx binary_integer;
6147   begin
6148 
6149     -- copy data to the local IN or IN-OUT args, if any
6150 
6151 
6152 
6153 
6154 
6155     okl_tcl_pvt_w.rosetta_table_copy_in_p5(ddp_tclv_tbl, p5_a0
6156       , p5_a1
6157       , p5_a2
6158       , p5_a3
6159       , p5_a4
6160       , p5_a5
6161       , p5_a6
6162       , p5_a7
6163       , p5_a8
6164       , p5_a9
6165       , p5_a10
6166       , p5_a11
6167       , p5_a12
6168       , p5_a13
6169       , p5_a14
6170       , p5_a15
6171       , p5_a16
6172       , p5_a17
6173       , p5_a18
6174       , p5_a19
6175       , p5_a20
6176       , p5_a21
6177       , p5_a22
6178       , p5_a23
6179       , p5_a24
6180       , p5_a25
6181       , p5_a26
6182       , p5_a27
6183       , p5_a28
6184       , p5_a29
6185       , p5_a30
6186       , p5_a31
6187       , p5_a32
6188       , p5_a33
6189       , p5_a34
6190       , p5_a35
6191       , p5_a36
6192       , p5_a37
6193       , p5_a38
6194       , p5_a39
6195       , p5_a40
6196       , p5_a41
6197       , p5_a42
6198       , p5_a43
6199       , p5_a44
6200       , p5_a45
6201       , p5_a46
6202       , p5_a47
6203       , p5_a48
6204       , p5_a49
6205       , p5_a50
6206       , p5_a51
6207       , p5_a52
6208       , p5_a53
6209       , p5_a54
6210       , p5_a55
6211       , p5_a56
6212       , p5_a57
6213       );
6214 
6215     -- here's the delegated call to the old PL/SQL routine
6216     okl_trx_contracts_pub.delete_trx_cntrct_lines(p_api_version,
6217       p_init_msg_list,
6218       x_return_status,
6219       x_msg_count,
6220       x_msg_data,
6221       ddp_tclv_tbl);
6222 
6223     -- copy data back from the local variables to OUT or IN-OUT args, if any
6224 
6225 
6226 
6227 
6228 
6229   end;
6230 
6231   procedure delete_trx_cntrct_lines(p_api_version  NUMBER
6232     , p_init_msg_list  VARCHAR2
6233     , x_return_status out nocopy  VARCHAR2
6234     , x_msg_count out nocopy  NUMBER
6235     , x_msg_data out nocopy  VARCHAR2
6236     , p5_a0  NUMBER := 0-1962.0724
6237     , p5_a1  NUMBER := 0-1962.0724
6238     , p5_a2  NUMBER := 0-1962.0724
6239     , p5_a3  NUMBER := 0-1962.0724
6240     , p5_a4  NUMBER := 0-1962.0724
6241     , p5_a5  NUMBER := 0-1962.0724
6242     , p5_a6  NUMBER := 0-1962.0724
6243     , p5_a7  NUMBER := 0-1962.0724
6244     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
6245     , p5_a9  NUMBER := 0-1962.0724
6246     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
6247     , p5_a11  NUMBER := 0-1962.0724
6248     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
6249     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
6250     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
6251     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
6252     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
6253     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
6254     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
6255     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
6256     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
6257     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
6258     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
6259     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
6260     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
6261     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
6262     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
6263     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
6264     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
6265     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
6266     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
6267     , p5_a31  NUMBER := 0-1962.0724
6268     , p5_a32  DATE := fnd_api.g_miss_date
6269     , p5_a33  NUMBER := 0-1962.0724
6270     , p5_a34  DATE := fnd_api.g_miss_date
6271     , p5_a35  NUMBER := 0-1962.0724
6272     , p5_a36  NUMBER := 0-1962.0724
6273     , p5_a37  NUMBER := 0-1962.0724
6274     , p5_a38  NUMBER := 0-1962.0724
6275     , p5_a39  DATE := fnd_api.g_miss_date
6276     , p5_a40  NUMBER := 0-1962.0724
6277     , p5_a41  NUMBER := 0-1962.0724
6278     , p5_a42  NUMBER := 0-1962.0724
6279     , p5_a43  NUMBER := 0-1962.0724
6280     , p5_a44  NUMBER := 0-1962.0724
6281     , p5_a45  VARCHAR2 := fnd_api.g_miss_char
6282     , p5_a46  VARCHAR2 := fnd_api.g_miss_char
6283     , p5_a47  NUMBER := 0-1962.0724
6284     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
6285     , p5_a49  NUMBER := 0-1962.0724
6286     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
6287     , p5_a51  NUMBER := 0-1962.0724
6288     , p5_a52  DATE := fnd_api.g_miss_date
6289     , p5_a53  NUMBER := 0-1962.0724
6290     , p5_a54  VARCHAR2 := fnd_api.g_miss_char
6291     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
6292     , p5_a56  VARCHAR2 := fnd_api.g_miss_char
6293     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
6294   )
6295 
6296   as
6297     ddp_tclv_rec okl_trx_contracts_pub.tclv_rec_type;
6298     ddindx binary_integer; indx binary_integer;
6299   begin
6300 
6301     -- copy data to the local IN or IN-OUT args, if any
6302 
6303 
6304 
6305 
6306 
6307     ddp_tclv_rec.id := rosetta_g_miss_num_map(p5_a0);
6308     ddp_tclv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
6309     ddp_tclv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
6310     ddp_tclv_rec.rct_id := rosetta_g_miss_num_map(p5_a3);
6311     ddp_tclv_rec.btc_id := rosetta_g_miss_num_map(p5_a4);
6312     ddp_tclv_rec.tcn_id := rosetta_g_miss_num_map(p5_a5);
6313     ddp_tclv_rec.khr_id := rosetta_g_miss_num_map(p5_a6);
6314     ddp_tclv_rec.kle_id := rosetta_g_miss_num_map(p5_a7);
6315     ddp_tclv_rec.before_transfer_yn := p5_a8;
6316     ddp_tclv_rec.line_number := rosetta_g_miss_num_map(p5_a9);
6317     ddp_tclv_rec.description := p5_a10;
6318     ddp_tclv_rec.amount := rosetta_g_miss_num_map(p5_a11);
6319     ddp_tclv_rec.currency_code := p5_a12;
6320     ddp_tclv_rec.gl_reversal_yn := p5_a13;
6321     ddp_tclv_rec.attribute_category := p5_a14;
6322     ddp_tclv_rec.attribute1 := p5_a15;
6323     ddp_tclv_rec.attribute2 := p5_a16;
6324     ddp_tclv_rec.attribute3 := p5_a17;
6325     ddp_tclv_rec.attribute4 := p5_a18;
6326     ddp_tclv_rec.attribute5 := p5_a19;
6327     ddp_tclv_rec.attribute6 := p5_a20;
6328     ddp_tclv_rec.attribute7 := p5_a21;
6329     ddp_tclv_rec.attribute8 := p5_a22;
6330     ddp_tclv_rec.attribute9 := p5_a23;
6331     ddp_tclv_rec.attribute10 := p5_a24;
6332     ddp_tclv_rec.attribute11 := p5_a25;
6333     ddp_tclv_rec.attribute12 := p5_a26;
6334     ddp_tclv_rec.attribute13 := p5_a27;
6335     ddp_tclv_rec.attribute14 := p5_a28;
6336     ddp_tclv_rec.attribute15 := p5_a29;
6337     ddp_tclv_rec.tcl_type := p5_a30;
6338     ddp_tclv_rec.created_by := rosetta_g_miss_num_map(p5_a31);
6339     ddp_tclv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a32);
6340     ddp_tclv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a33);
6341     ddp_tclv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a34);
6342     ddp_tclv_rec.org_id := rosetta_g_miss_num_map(p5_a35);
6343     ddp_tclv_rec.program_id := rosetta_g_miss_num_map(p5_a36);
6344     ddp_tclv_rec.program_application_id := rosetta_g_miss_num_map(p5_a37);
6345     ddp_tclv_rec.request_id := rosetta_g_miss_num_map(p5_a38);
6346     ddp_tclv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a39);
6347     ddp_tclv_rec.last_update_login := rosetta_g_miss_num_map(p5_a40);
6348     ddp_tclv_rec.avl_id := rosetta_g_miss_num_map(p5_a41);
6349     ddp_tclv_rec.bkt_id := rosetta_g_miss_num_map(p5_a42);
6350     ddp_tclv_rec.kle_id_new := rosetta_g_miss_num_map(p5_a43);
6351     ddp_tclv_rec.percentage := rosetta_g_miss_num_map(p5_a44);
6352     ddp_tclv_rec.accrual_rule_yn := p5_a45;
6353     ddp_tclv_rec.source_column_1 := p5_a46;
6354     ddp_tclv_rec.source_value_1 := rosetta_g_miss_num_map(p5_a47);
6355     ddp_tclv_rec.source_column_2 := p5_a48;
6356     ddp_tclv_rec.source_value_2 := rosetta_g_miss_num_map(p5_a49);
6357     ddp_tclv_rec.source_column_3 := p5_a50;
6358     ddp_tclv_rec.source_value_3 := rosetta_g_miss_num_map(p5_a51);
6359     ddp_tclv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a52);
6360     ddp_tclv_rec.tax_line_id := rosetta_g_miss_num_map(p5_a53);
6361     ddp_tclv_rec.stream_type_code := p5_a54;
6362     ddp_tclv_rec.stream_type_purpose := p5_a55;
6363     ddp_tclv_rec.asset_book_type_name := p5_a56;
6364     ddp_tclv_rec.upgrade_status_flag := p5_a57;
6365 
6366     -- here's the delegated call to the old PL/SQL routine
6367     okl_trx_contracts_pub.delete_trx_cntrct_lines(p_api_version,
6368       p_init_msg_list,
6369       x_return_status,
6370       x_msg_count,
6371       x_msg_data,
6372       ddp_tclv_rec);
6373 
6374     -- copy data back from the local variables to OUT or IN-OUT args, if any
6375 
6376 
6377 
6378 
6379 
6380   end;
6381 
6382   procedure validate_trx_cntrct_lines(p_api_version  NUMBER
6383     , p_init_msg_list  VARCHAR2
6384     , x_return_status out nocopy  VARCHAR2
6385     , x_msg_count out nocopy  NUMBER
6386     , x_msg_data out nocopy  VARCHAR2
6387     , p5_a0 JTF_NUMBER_TABLE
6388     , p5_a1 JTF_NUMBER_TABLE
6389     , p5_a2 JTF_NUMBER_TABLE
6390     , p5_a3 JTF_NUMBER_TABLE
6391     , p5_a4 JTF_NUMBER_TABLE
6392     , p5_a5 JTF_NUMBER_TABLE
6393     , p5_a6 JTF_NUMBER_TABLE
6394     , p5_a7 JTF_NUMBER_TABLE
6395     , p5_a8 JTF_VARCHAR2_TABLE_100
6396     , p5_a9 JTF_NUMBER_TABLE
6397     , p5_a10 JTF_VARCHAR2_TABLE_2000
6398     , p5_a11 JTF_NUMBER_TABLE
6399     , p5_a12 JTF_VARCHAR2_TABLE_200
6400     , p5_a13 JTF_VARCHAR2_TABLE_100
6401     , p5_a14 JTF_VARCHAR2_TABLE_100
6402     , p5_a15 JTF_VARCHAR2_TABLE_500
6403     , p5_a16 JTF_VARCHAR2_TABLE_500
6404     , p5_a17 JTF_VARCHAR2_TABLE_500
6405     , p5_a18 JTF_VARCHAR2_TABLE_500
6406     , p5_a19 JTF_VARCHAR2_TABLE_500
6407     , p5_a20 JTF_VARCHAR2_TABLE_500
6408     , p5_a21 JTF_VARCHAR2_TABLE_500
6409     , p5_a22 JTF_VARCHAR2_TABLE_500
6410     , p5_a23 JTF_VARCHAR2_TABLE_500
6411     , p5_a24 JTF_VARCHAR2_TABLE_500
6412     , p5_a25 JTF_VARCHAR2_TABLE_500
6413     , p5_a26 JTF_VARCHAR2_TABLE_500
6414     , p5_a27 JTF_VARCHAR2_TABLE_500
6415     , p5_a28 JTF_VARCHAR2_TABLE_500
6416     , p5_a29 JTF_VARCHAR2_TABLE_500
6417     , p5_a30 JTF_VARCHAR2_TABLE_100
6418     , p5_a31 JTF_NUMBER_TABLE
6419     , p5_a32 JTF_DATE_TABLE
6420     , p5_a33 JTF_NUMBER_TABLE
6421     , p5_a34 JTF_DATE_TABLE
6422     , p5_a35 JTF_NUMBER_TABLE
6423     , p5_a36 JTF_NUMBER_TABLE
6424     , p5_a37 JTF_NUMBER_TABLE
6425     , p5_a38 JTF_NUMBER_TABLE
6426     , p5_a39 JTF_DATE_TABLE
6427     , p5_a40 JTF_NUMBER_TABLE
6428     , p5_a41 JTF_NUMBER_TABLE
6429     , p5_a42 JTF_NUMBER_TABLE
6430     , p5_a43 JTF_NUMBER_TABLE
6431     , p5_a44 JTF_NUMBER_TABLE
6432     , p5_a45 JTF_VARCHAR2_TABLE_100
6433     , p5_a46 JTF_VARCHAR2_TABLE_200
6434     , p5_a47 JTF_NUMBER_TABLE
6435     , p5_a48 JTF_VARCHAR2_TABLE_200
6436     , p5_a49 JTF_NUMBER_TABLE
6437     , p5_a50 JTF_VARCHAR2_TABLE_200
6438     , p5_a51 JTF_NUMBER_TABLE
6439     , p5_a52 JTF_DATE_TABLE
6440     , p5_a53 JTF_NUMBER_TABLE
6441     , p5_a54 JTF_VARCHAR2_TABLE_200
6442     , p5_a55 JTF_VARCHAR2_TABLE_300
6443     , p5_a56 JTF_VARCHAR2_TABLE_100
6444     , p5_a57 JTF_VARCHAR2_TABLE_100
6445   )
6446 
6447   as
6448     ddp_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
6449     ddindx binary_integer; indx binary_integer;
6450   begin
6451 
6452     -- copy data to the local IN or IN-OUT args, if any
6453 
6454 
6455 
6456 
6457 
6458     okl_tcl_pvt_w.rosetta_table_copy_in_p5(ddp_tclv_tbl, p5_a0
6459       , p5_a1
6460       , p5_a2
6461       , p5_a3
6462       , p5_a4
6463       , p5_a5
6464       , p5_a6
6465       , p5_a7
6466       , p5_a8
6467       , p5_a9
6468       , p5_a10
6469       , p5_a11
6470       , p5_a12
6471       , p5_a13
6472       , p5_a14
6473       , p5_a15
6474       , p5_a16
6475       , p5_a17
6476       , p5_a18
6477       , p5_a19
6478       , p5_a20
6479       , p5_a21
6480       , p5_a22
6481       , p5_a23
6482       , p5_a24
6483       , p5_a25
6484       , p5_a26
6485       , p5_a27
6486       , p5_a28
6487       , p5_a29
6488       , p5_a30
6489       , p5_a31
6490       , p5_a32
6491       , p5_a33
6492       , p5_a34
6493       , p5_a35
6494       , p5_a36
6495       , p5_a37
6496       , p5_a38
6497       , p5_a39
6498       , p5_a40
6499       , p5_a41
6500       , p5_a42
6501       , p5_a43
6502       , p5_a44
6503       , p5_a45
6504       , p5_a46
6505       , p5_a47
6506       , p5_a48
6507       , p5_a49
6508       , p5_a50
6509       , p5_a51
6510       , p5_a52
6511       , p5_a53
6512       , p5_a54
6513       , p5_a55
6514       , p5_a56
6515       , p5_a57
6516       );
6517 
6518     -- here's the delegated call to the old PL/SQL routine
6519     okl_trx_contracts_pub.validate_trx_cntrct_lines(p_api_version,
6520       p_init_msg_list,
6521       x_return_status,
6522       x_msg_count,
6523       x_msg_data,
6524       ddp_tclv_tbl);
6525 
6526     -- copy data back from the local variables to OUT or IN-OUT args, if any
6527 
6528 
6529 
6530 
6531 
6532   end;
6533 
6534   procedure validate_trx_cntrct_lines(p_api_version  NUMBER
6535     , p_init_msg_list  VARCHAR2
6536     , x_return_status out nocopy  VARCHAR2
6537     , x_msg_count out nocopy  NUMBER
6538     , x_msg_data out nocopy  VARCHAR2
6539     , p5_a0  NUMBER := 0-1962.0724
6540     , p5_a1  NUMBER := 0-1962.0724
6541     , p5_a2  NUMBER := 0-1962.0724
6542     , p5_a3  NUMBER := 0-1962.0724
6543     , p5_a4  NUMBER := 0-1962.0724
6544     , p5_a5  NUMBER := 0-1962.0724
6545     , p5_a6  NUMBER := 0-1962.0724
6546     , p5_a7  NUMBER := 0-1962.0724
6547     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
6548     , p5_a9  NUMBER := 0-1962.0724
6549     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
6550     , p5_a11  NUMBER := 0-1962.0724
6551     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
6552     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
6553     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
6554     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
6555     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
6556     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
6557     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
6558     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
6559     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
6560     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
6561     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
6562     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
6563     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
6564     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
6565     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
6566     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
6567     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
6568     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
6569     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
6570     , p5_a31  NUMBER := 0-1962.0724
6571     , p5_a32  DATE := fnd_api.g_miss_date
6572     , p5_a33  NUMBER := 0-1962.0724
6573     , p5_a34  DATE := fnd_api.g_miss_date
6574     , p5_a35  NUMBER := 0-1962.0724
6575     , p5_a36  NUMBER := 0-1962.0724
6576     , p5_a37  NUMBER := 0-1962.0724
6577     , p5_a38  NUMBER := 0-1962.0724
6578     , p5_a39  DATE := fnd_api.g_miss_date
6579     , p5_a40  NUMBER := 0-1962.0724
6580     , p5_a41  NUMBER := 0-1962.0724
6581     , p5_a42  NUMBER := 0-1962.0724
6582     , p5_a43  NUMBER := 0-1962.0724
6583     , p5_a44  NUMBER := 0-1962.0724
6584     , p5_a45  VARCHAR2 := fnd_api.g_miss_char
6585     , p5_a46  VARCHAR2 := fnd_api.g_miss_char
6586     , p5_a47  NUMBER := 0-1962.0724
6587     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
6588     , p5_a49  NUMBER := 0-1962.0724
6589     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
6590     , p5_a51  NUMBER := 0-1962.0724
6591     , p5_a52  DATE := fnd_api.g_miss_date
6592     , p5_a53  NUMBER := 0-1962.0724
6593     , p5_a54  VARCHAR2 := fnd_api.g_miss_char
6594     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
6595     , p5_a56  VARCHAR2 := fnd_api.g_miss_char
6596     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
6597   )
6598 
6599   as
6600     ddp_tclv_rec okl_trx_contracts_pub.tclv_rec_type;
6601     ddindx binary_integer; indx binary_integer;
6602   begin
6603 
6604     -- copy data to the local IN or IN-OUT args, if any
6605 
6606 
6607 
6608 
6609 
6610     ddp_tclv_rec.id := rosetta_g_miss_num_map(p5_a0);
6611     ddp_tclv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
6612     ddp_tclv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
6613     ddp_tclv_rec.rct_id := rosetta_g_miss_num_map(p5_a3);
6614     ddp_tclv_rec.btc_id := rosetta_g_miss_num_map(p5_a4);
6615     ddp_tclv_rec.tcn_id := rosetta_g_miss_num_map(p5_a5);
6616     ddp_tclv_rec.khr_id := rosetta_g_miss_num_map(p5_a6);
6617     ddp_tclv_rec.kle_id := rosetta_g_miss_num_map(p5_a7);
6618     ddp_tclv_rec.before_transfer_yn := p5_a8;
6619     ddp_tclv_rec.line_number := rosetta_g_miss_num_map(p5_a9);
6620     ddp_tclv_rec.description := p5_a10;
6621     ddp_tclv_rec.amount := rosetta_g_miss_num_map(p5_a11);
6622     ddp_tclv_rec.currency_code := p5_a12;
6623     ddp_tclv_rec.gl_reversal_yn := p5_a13;
6624     ddp_tclv_rec.attribute_category := p5_a14;
6625     ddp_tclv_rec.attribute1 := p5_a15;
6626     ddp_tclv_rec.attribute2 := p5_a16;
6627     ddp_tclv_rec.attribute3 := p5_a17;
6628     ddp_tclv_rec.attribute4 := p5_a18;
6629     ddp_tclv_rec.attribute5 := p5_a19;
6630     ddp_tclv_rec.attribute6 := p5_a20;
6631     ddp_tclv_rec.attribute7 := p5_a21;
6632     ddp_tclv_rec.attribute8 := p5_a22;
6633     ddp_tclv_rec.attribute9 := p5_a23;
6634     ddp_tclv_rec.attribute10 := p5_a24;
6635     ddp_tclv_rec.attribute11 := p5_a25;
6636     ddp_tclv_rec.attribute12 := p5_a26;
6637     ddp_tclv_rec.attribute13 := p5_a27;
6638     ddp_tclv_rec.attribute14 := p5_a28;
6639     ddp_tclv_rec.attribute15 := p5_a29;
6640     ddp_tclv_rec.tcl_type := p5_a30;
6641     ddp_tclv_rec.created_by := rosetta_g_miss_num_map(p5_a31);
6642     ddp_tclv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a32);
6643     ddp_tclv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a33);
6644     ddp_tclv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a34);
6645     ddp_tclv_rec.org_id := rosetta_g_miss_num_map(p5_a35);
6646     ddp_tclv_rec.program_id := rosetta_g_miss_num_map(p5_a36);
6647     ddp_tclv_rec.program_application_id := rosetta_g_miss_num_map(p5_a37);
6648     ddp_tclv_rec.request_id := rosetta_g_miss_num_map(p5_a38);
6649     ddp_tclv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a39);
6650     ddp_tclv_rec.last_update_login := rosetta_g_miss_num_map(p5_a40);
6651     ddp_tclv_rec.avl_id := rosetta_g_miss_num_map(p5_a41);
6652     ddp_tclv_rec.bkt_id := rosetta_g_miss_num_map(p5_a42);
6653     ddp_tclv_rec.kle_id_new := rosetta_g_miss_num_map(p5_a43);
6654     ddp_tclv_rec.percentage := rosetta_g_miss_num_map(p5_a44);
6655     ddp_tclv_rec.accrual_rule_yn := p5_a45;
6656     ddp_tclv_rec.source_column_1 := p5_a46;
6657     ddp_tclv_rec.source_value_1 := rosetta_g_miss_num_map(p5_a47);
6658     ddp_tclv_rec.source_column_2 := p5_a48;
6659     ddp_tclv_rec.source_value_2 := rosetta_g_miss_num_map(p5_a49);
6660     ddp_tclv_rec.source_column_3 := p5_a50;
6661     ddp_tclv_rec.source_value_3 := rosetta_g_miss_num_map(p5_a51);
6662     ddp_tclv_rec.canceled_date := rosetta_g_miss_date_in_map(p5_a52);
6663     ddp_tclv_rec.tax_line_id := rosetta_g_miss_num_map(p5_a53);
6664     ddp_tclv_rec.stream_type_code := p5_a54;
6665     ddp_tclv_rec.stream_type_purpose := p5_a55;
6666     ddp_tclv_rec.asset_book_type_name := p5_a56;
6667     ddp_tclv_rec.upgrade_status_flag := p5_a57;
6668 
6669     -- here's the delegated call to the old PL/SQL routine
6670     okl_trx_contracts_pub.validate_trx_cntrct_lines(p_api_version,
6671       p_init_msg_list,
6672       x_return_status,
6673       x_msg_count,
6674       x_msg_data,
6675       ddp_tclv_rec);
6676 
6677     -- copy data back from the local variables to OUT or IN-OUT args, if any
6678 
6679 
6680 
6681 
6682 
6683   end;
6684 
6685 end okl_trx_contracts_pub_w;