DBA Data[Home] [Help]

PACKAGE BODY: APPS.OKL_INS_QUOTE_PVT_W

Source


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