DBA Data[Home] [Help]

PACKAGE BODY: APPS.OKL_INS_QUOTE_PUB_W

Source


1 package body okl_ins_quote_pub_w as
2   /* $Header: OKLUINQB.pls 120.2 2005/09/19 11:37:31 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 save_quote(p_api_version  NUMBER
23     , p_init_msg_list  VARCHAR2
24     , x_return_status out nocopy  VARCHAR2
25     , x_msg_count out nocopy  NUMBER
26     , x_msg_data out nocopy  VARCHAR2
27     , p5_a0 in out nocopy  NUMBER
28     , p5_a1 in out nocopy  VARCHAR2
29     , p5_a2 in out nocopy  VARCHAR2
30     , p5_a3 in out nocopy  VARCHAR2
31     , p5_a4 in out nocopy  VARCHAR2
32     , p5_a5 in out nocopy  VARCHAR2
33     , p5_a6 in out nocopy  VARCHAR2
34     , p5_a7 in out nocopy  VARCHAR2
35     , p5_a8 in out nocopy  VARCHAR2
36     , p5_a9 in out nocopy  NUMBER
37     , p5_a10 in out nocopy  NUMBER
38     , p5_a11 in out nocopy  NUMBER
39     , p5_a12 in out nocopy  NUMBER
40     , p5_a13 in out nocopy  NUMBER
41     , p5_a14 in out nocopy  VARCHAR2
42     , p5_a15 in out nocopy  VARCHAR2
43     , p5_a16 in out nocopy  VARCHAR2
44     , p5_a17 in out nocopy  VARCHAR2
45     , p5_a18 in out nocopy  VARCHAR2
46     , p5_a19 in out nocopy  DATE
47     , p5_a20 in out nocopy  DATE
48     , p5_a21 in out nocopy  DATE
49     , p5_a22 in out nocopy  DATE
50     , p5_a23 in out nocopy  DATE
51     , p5_a24 in out nocopy  DATE
52     , p5_a25 in out nocopy  DATE
53     , p5_a26 in out nocopy  DATE
54     , p5_a27 in out nocopy  VARCHAR2
55     , p5_a28 in out nocopy  VARCHAR2
56     , p5_a29 in out nocopy  VARCHAR2
57     , p5_a30 in out nocopy  VARCHAR2
58     , p5_a31 in out nocopy  VARCHAR2
59     , p5_a32 in out nocopy  VARCHAR2
60     , p5_a33 in out nocopy  NUMBER
61     , p5_a34 in out nocopy  NUMBER
62     , p5_a35 in out nocopy  NUMBER
63     , p5_a36 in out nocopy  NUMBER
64     , p5_a37 in out nocopy  NUMBER
65     , p5_a38 in out nocopy  NUMBER
66     , p5_a39 in out nocopy  VARCHAR2
67     , p5_a40 in out nocopy  VARCHAR2
68     , p5_a41 in out nocopy  NUMBER
69     , p5_a42 in out nocopy  VARCHAR2
70     , p5_a43 in out nocopy  NUMBER
71     , p5_a44 in out nocopy  NUMBER
72     , p5_a45 in out nocopy  NUMBER
73     , p5_a46 in out nocopy  NUMBER
74     , p5_a47 in out nocopy  VARCHAR2
75     , p5_a48 in out nocopy  VARCHAR2
76     , p5_a49 in out nocopy  VARCHAR2
77     , p5_a50 in out nocopy  VARCHAR2
78     , p5_a51 in out nocopy  VARCHAR2
79     , p5_a52 in out nocopy  VARCHAR2
80     , p5_a53 in out nocopy  VARCHAR2
81     , p5_a54 in out nocopy  VARCHAR2
82     , p5_a55 in out nocopy  VARCHAR2
83     , p5_a56 in out nocopy  VARCHAR2
84     , p5_a57 in out nocopy  VARCHAR2
85     , p5_a58 in out nocopy  VARCHAR2
86     , p5_a59 in out nocopy  VARCHAR2
87     , p5_a60 in out nocopy  VARCHAR2
88     , p5_a61 in out nocopy  VARCHAR2
89     , p5_a62 in out nocopy  VARCHAR2
90     , p5_a63 in out nocopy  VARCHAR2
91     , p5_a64 in out nocopy  NUMBER
92     , p5_a65 in out nocopy  NUMBER
93     , p5_a66 in out nocopy  DATE
94     , p5_a67 in out nocopy  NUMBER
95     , p5_a68 in out nocopy  NUMBER
96     , p5_a69 in out nocopy  NUMBER
97     , p5_a70 in out nocopy  NUMBER
98     , p5_a71 in out nocopy  DATE
99     , p5_a72 in out nocopy  NUMBER
100     , p5_a73 in out nocopy  DATE
101     , p5_a74 in out nocopy  NUMBER
102     , p5_a75 in out nocopy  NUMBER
103     , x_message out nocopy  VARCHAR2
104   )
105 
106   as
107     ddpx_ipyv_rec okl_ins_quote_pub.ipyv_rec_type;
108     ddindx binary_integer; indx binary_integer;
109   begin
110 
111     -- copy data to the local IN or IN-OUT args, if any
112 
113 
114 
115 
116 
117     ddpx_ipyv_rec.id := rosetta_g_miss_num_map(p5_a0);
118     ddpx_ipyv_rec.ipy_type := p5_a1;
119     ddpx_ipyv_rec.description := p5_a2;
120     ddpx_ipyv_rec.endorsement := p5_a3;
121     ddpx_ipyv_rec.sfwt_flag := p5_a4;
122     ddpx_ipyv_rec.cancellation_comment := p5_a5;
123     ddpx_ipyv_rec.comments := p5_a6;
124     ddpx_ipyv_rec.name_of_insured := p5_a7;
125     ddpx_ipyv_rec.policy_number := p5_a8;
126     ddpx_ipyv_rec.calculated_premium := rosetta_g_miss_num_map(p5_a9);
127     ddpx_ipyv_rec.premium := rosetta_g_miss_num_map(p5_a10);
128     ddpx_ipyv_rec.covered_amount := rosetta_g_miss_num_map(p5_a11);
129     ddpx_ipyv_rec.deductible := rosetta_g_miss_num_map(p5_a12);
130     ddpx_ipyv_rec.adjustment := rosetta_g_miss_num_map(p5_a13);
131     ddpx_ipyv_rec.payment_frequency := p5_a14;
132     ddpx_ipyv_rec.crx_code := p5_a15;
133     ddpx_ipyv_rec.ipf_code := p5_a16;
134     ddpx_ipyv_rec.iss_code := p5_a17;
135     ddpx_ipyv_rec.ipe_code := p5_a18;
136     ddpx_ipyv_rec.date_to := rosetta_g_miss_date_in_map(p5_a19);
137     ddpx_ipyv_rec.date_from := rosetta_g_miss_date_in_map(p5_a20);
138     ddpx_ipyv_rec.date_quoted := rosetta_g_miss_date_in_map(p5_a21);
139     ddpx_ipyv_rec.date_proof_provided := rosetta_g_miss_date_in_map(p5_a22);
140     ddpx_ipyv_rec.date_proof_required := rosetta_g_miss_date_in_map(p5_a23);
141     ddpx_ipyv_rec.cancellation_date := rosetta_g_miss_date_in_map(p5_a24);
142     ddpx_ipyv_rec.date_quote_expiry := rosetta_g_miss_date_in_map(p5_a25);
143     ddpx_ipyv_rec.activation_date := rosetta_g_miss_date_in_map(p5_a26);
144     ddpx_ipyv_rec.quote_yn := p5_a27;
145     ddpx_ipyv_rec.on_file_yn := p5_a28;
146     ddpx_ipyv_rec.private_label_yn := p5_a29;
147     ddpx_ipyv_rec.agent_yn := p5_a30;
148     ddpx_ipyv_rec.lessor_insured_yn := p5_a31;
149     ddpx_ipyv_rec.lessor_payee_yn := p5_a32;
150     ddpx_ipyv_rec.khr_id := rosetta_g_miss_num_map(p5_a33);
151     ddpx_ipyv_rec.kle_id := rosetta_g_miss_num_map(p5_a34);
152     ddpx_ipyv_rec.ipt_id := rosetta_g_miss_num_map(p5_a35);
153     ddpx_ipyv_rec.ipy_id := rosetta_g_miss_num_map(p5_a36);
154     ddpx_ipyv_rec.int_id := rosetta_g_miss_num_map(p5_a37);
155     ddpx_ipyv_rec.isu_id := rosetta_g_miss_num_map(p5_a38);
156     ddpx_ipyv_rec.insurance_factor := p5_a39;
157     ddpx_ipyv_rec.factor_code := p5_a40;
158     ddpx_ipyv_rec.factor_value := rosetta_g_miss_num_map(p5_a41);
159     ddpx_ipyv_rec.agency_number := p5_a42;
160     ddpx_ipyv_rec.agency_site_id := rosetta_g_miss_num_map(p5_a43);
161     ddpx_ipyv_rec.sales_rep_id := rosetta_g_miss_num_map(p5_a44);
162     ddpx_ipyv_rec.agent_site_id := rosetta_g_miss_num_map(p5_a45);
163     ddpx_ipyv_rec.adjusted_by_id := rosetta_g_miss_num_map(p5_a46);
164     ddpx_ipyv_rec.territory_code := p5_a47;
165     ddpx_ipyv_rec.attribute_category := p5_a48;
166     ddpx_ipyv_rec.attribute1 := p5_a49;
167     ddpx_ipyv_rec.attribute2 := p5_a50;
168     ddpx_ipyv_rec.attribute3 := p5_a51;
169     ddpx_ipyv_rec.attribute4 := p5_a52;
170     ddpx_ipyv_rec.attribute5 := p5_a53;
171     ddpx_ipyv_rec.attribute6 := p5_a54;
172     ddpx_ipyv_rec.attribute7 := p5_a55;
173     ddpx_ipyv_rec.attribute8 := p5_a56;
174     ddpx_ipyv_rec.attribute9 := p5_a57;
175     ddpx_ipyv_rec.attribute10 := p5_a58;
176     ddpx_ipyv_rec.attribute11 := p5_a59;
177     ddpx_ipyv_rec.attribute12 := p5_a60;
178     ddpx_ipyv_rec.attribute13 := p5_a61;
179     ddpx_ipyv_rec.attribute14 := p5_a62;
180     ddpx_ipyv_rec.attribute15 := p5_a63;
181     ddpx_ipyv_rec.program_id := rosetta_g_miss_num_map(p5_a64);
182     ddpx_ipyv_rec.org_id := rosetta_g_miss_num_map(p5_a65);
183     ddpx_ipyv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a66);
184     ddpx_ipyv_rec.program_application_id := rosetta_g_miss_num_map(p5_a67);
185     ddpx_ipyv_rec.request_id := rosetta_g_miss_num_map(p5_a68);
186     ddpx_ipyv_rec.object_version_number := rosetta_g_miss_num_map(p5_a69);
187     ddpx_ipyv_rec.created_by := rosetta_g_miss_num_map(p5_a70);
188     ddpx_ipyv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a71);
189     ddpx_ipyv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a72);
190     ddpx_ipyv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a73);
191     ddpx_ipyv_rec.last_update_login := rosetta_g_miss_num_map(p5_a74);
192     ddpx_ipyv_rec.lease_application_id := rosetta_g_miss_num_map(p5_a75);
193 
194 
195     -- here's the delegated call to the old PL/SQL routine
196     okl_ins_quote_pub.save_quote(p_api_version,
197       p_init_msg_list,
198       x_return_status,
199       x_msg_count,
200       x_msg_data,
201       ddpx_ipyv_rec,
202       x_message);
203 
204     -- copy data back from the local variables to OUT or IN-OUT args, if any
205 
206 
207 
208 
209 
210     p5_a0 := rosetta_g_miss_num_map(ddpx_ipyv_rec.id);
211     p5_a1 := ddpx_ipyv_rec.ipy_type;
212     p5_a2 := ddpx_ipyv_rec.description;
213     p5_a3 := ddpx_ipyv_rec.endorsement;
214     p5_a4 := ddpx_ipyv_rec.sfwt_flag;
215     p5_a5 := ddpx_ipyv_rec.cancellation_comment;
216     p5_a6 := ddpx_ipyv_rec.comments;
217     p5_a7 := ddpx_ipyv_rec.name_of_insured;
218     p5_a8 := ddpx_ipyv_rec.policy_number;
219     p5_a9 := rosetta_g_miss_num_map(ddpx_ipyv_rec.calculated_premium);
220     p5_a10 := rosetta_g_miss_num_map(ddpx_ipyv_rec.premium);
221     p5_a11 := rosetta_g_miss_num_map(ddpx_ipyv_rec.covered_amount);
222     p5_a12 := rosetta_g_miss_num_map(ddpx_ipyv_rec.deductible);
223     p5_a13 := rosetta_g_miss_num_map(ddpx_ipyv_rec.adjustment);
224     p5_a14 := ddpx_ipyv_rec.payment_frequency;
225     p5_a15 := ddpx_ipyv_rec.crx_code;
226     p5_a16 := ddpx_ipyv_rec.ipf_code;
227     p5_a17 := ddpx_ipyv_rec.iss_code;
228     p5_a18 := ddpx_ipyv_rec.ipe_code;
229     p5_a19 := ddpx_ipyv_rec.date_to;
230     p5_a20 := ddpx_ipyv_rec.date_from;
231     p5_a21 := ddpx_ipyv_rec.date_quoted;
232     p5_a22 := ddpx_ipyv_rec.date_proof_provided;
233     p5_a23 := ddpx_ipyv_rec.date_proof_required;
234     p5_a24 := ddpx_ipyv_rec.cancellation_date;
235     p5_a25 := ddpx_ipyv_rec.date_quote_expiry;
236     p5_a26 := ddpx_ipyv_rec.activation_date;
237     p5_a27 := ddpx_ipyv_rec.quote_yn;
238     p5_a28 := ddpx_ipyv_rec.on_file_yn;
239     p5_a29 := ddpx_ipyv_rec.private_label_yn;
240     p5_a30 := ddpx_ipyv_rec.agent_yn;
241     p5_a31 := ddpx_ipyv_rec.lessor_insured_yn;
242     p5_a32 := ddpx_ipyv_rec.lessor_payee_yn;
243     p5_a33 := rosetta_g_miss_num_map(ddpx_ipyv_rec.khr_id);
244     p5_a34 := rosetta_g_miss_num_map(ddpx_ipyv_rec.kle_id);
245     p5_a35 := rosetta_g_miss_num_map(ddpx_ipyv_rec.ipt_id);
246     p5_a36 := rosetta_g_miss_num_map(ddpx_ipyv_rec.ipy_id);
247     p5_a37 := rosetta_g_miss_num_map(ddpx_ipyv_rec.int_id);
248     p5_a38 := rosetta_g_miss_num_map(ddpx_ipyv_rec.isu_id);
249     p5_a39 := ddpx_ipyv_rec.insurance_factor;
250     p5_a40 := ddpx_ipyv_rec.factor_code;
251     p5_a41 := rosetta_g_miss_num_map(ddpx_ipyv_rec.factor_value);
252     p5_a42 := ddpx_ipyv_rec.agency_number;
253     p5_a43 := rosetta_g_miss_num_map(ddpx_ipyv_rec.agency_site_id);
254     p5_a44 := rosetta_g_miss_num_map(ddpx_ipyv_rec.sales_rep_id);
255     p5_a45 := rosetta_g_miss_num_map(ddpx_ipyv_rec.agent_site_id);
256     p5_a46 := rosetta_g_miss_num_map(ddpx_ipyv_rec.adjusted_by_id);
257     p5_a47 := ddpx_ipyv_rec.territory_code;
258     p5_a48 := ddpx_ipyv_rec.attribute_category;
259     p5_a49 := ddpx_ipyv_rec.attribute1;
260     p5_a50 := ddpx_ipyv_rec.attribute2;
261     p5_a51 := ddpx_ipyv_rec.attribute3;
262     p5_a52 := ddpx_ipyv_rec.attribute4;
263     p5_a53 := ddpx_ipyv_rec.attribute5;
264     p5_a54 := ddpx_ipyv_rec.attribute6;
265     p5_a55 := ddpx_ipyv_rec.attribute7;
266     p5_a56 := ddpx_ipyv_rec.attribute8;
267     p5_a57 := ddpx_ipyv_rec.attribute9;
268     p5_a58 := ddpx_ipyv_rec.attribute10;
269     p5_a59 := ddpx_ipyv_rec.attribute11;
270     p5_a60 := ddpx_ipyv_rec.attribute12;
271     p5_a61 := ddpx_ipyv_rec.attribute13;
272     p5_a62 := ddpx_ipyv_rec.attribute14;
273     p5_a63 := ddpx_ipyv_rec.attribute15;
274     p5_a64 := rosetta_g_miss_num_map(ddpx_ipyv_rec.program_id);
275     p5_a65 := rosetta_g_miss_num_map(ddpx_ipyv_rec.org_id);
276     p5_a66 := ddpx_ipyv_rec.program_update_date;
277     p5_a67 := rosetta_g_miss_num_map(ddpx_ipyv_rec.program_application_id);
278     p5_a68 := rosetta_g_miss_num_map(ddpx_ipyv_rec.request_id);
279     p5_a69 := rosetta_g_miss_num_map(ddpx_ipyv_rec.object_version_number);
280     p5_a70 := rosetta_g_miss_num_map(ddpx_ipyv_rec.created_by);
281     p5_a71 := ddpx_ipyv_rec.creation_date;
282     p5_a72 := rosetta_g_miss_num_map(ddpx_ipyv_rec.last_updated_by);
283     p5_a73 := ddpx_ipyv_rec.last_update_date;
284     p5_a74 := rosetta_g_miss_num_map(ddpx_ipyv_rec.last_update_login);
285     p5_a75 := rosetta_g_miss_num_map(ddpx_ipyv_rec.lease_application_id);
286 
287   end;
288 
289   procedure save_accept_quote(p_api_version  NUMBER
290     , p_init_msg_list  VARCHAR2
291     , x_return_status out nocopy  VARCHAR2
292     , x_msg_count out nocopy  NUMBER
293     , x_msg_data out nocopy  VARCHAR2
294     , x_message out nocopy  VARCHAR2
295     , p5_a0  NUMBER := 0-1962.0724
296     , p5_a1  VARCHAR2 := fnd_api.g_miss_char
297     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
298     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
299     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
300     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
301     , p5_a6  VARCHAR2 := fnd_api.g_miss_char
302     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
303     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
304     , p5_a9  NUMBER := 0-1962.0724
305     , p5_a10  NUMBER := 0-1962.0724
306     , p5_a11  NUMBER := 0-1962.0724
307     , p5_a12  NUMBER := 0-1962.0724
308     , p5_a13  NUMBER := 0-1962.0724
309     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
310     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
311     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
312     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
313     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
314     , p5_a19  DATE := fnd_api.g_miss_date
315     , p5_a20  DATE := fnd_api.g_miss_date
316     , p5_a21  DATE := fnd_api.g_miss_date
317     , p5_a22  DATE := fnd_api.g_miss_date
318     , p5_a23  DATE := fnd_api.g_miss_date
319     , p5_a24  DATE := fnd_api.g_miss_date
320     , p5_a25  DATE := fnd_api.g_miss_date
321     , p5_a26  DATE := fnd_api.g_miss_date
322     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
323     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
324     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
325     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
326     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
327     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
328     , p5_a33  NUMBER := 0-1962.0724
329     , p5_a34  NUMBER := 0-1962.0724
330     , p5_a35  NUMBER := 0-1962.0724
331     , p5_a36  NUMBER := 0-1962.0724
332     , p5_a37  NUMBER := 0-1962.0724
333     , p5_a38  NUMBER := 0-1962.0724
334     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
335     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
336     , p5_a41  NUMBER := 0-1962.0724
337     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
338     , p5_a43  NUMBER := 0-1962.0724
339     , p5_a44  NUMBER := 0-1962.0724
340     , p5_a45  NUMBER := 0-1962.0724
341     , p5_a46  NUMBER := 0-1962.0724
342     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
343     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
344     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
345     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
346     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
347     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
348     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
349     , p5_a54  VARCHAR2 := fnd_api.g_miss_char
350     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
351     , p5_a56  VARCHAR2 := fnd_api.g_miss_char
352     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
353     , p5_a58  VARCHAR2 := fnd_api.g_miss_char
354     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
355     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
356     , p5_a61  VARCHAR2 := fnd_api.g_miss_char
357     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
358     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
359     , p5_a64  NUMBER := 0-1962.0724
360     , p5_a65  NUMBER := 0-1962.0724
361     , p5_a66  DATE := fnd_api.g_miss_date
362     , p5_a67  NUMBER := 0-1962.0724
363     , p5_a68  NUMBER := 0-1962.0724
364     , p5_a69  NUMBER := 0-1962.0724
365     , p5_a70  NUMBER := 0-1962.0724
366     , p5_a71  DATE := fnd_api.g_miss_date
367     , p5_a72  NUMBER := 0-1962.0724
368     , p5_a73  DATE := fnd_api.g_miss_date
369     , p5_a74  NUMBER := 0-1962.0724
370     , p5_a75  NUMBER := 0-1962.0724
371   )
372 
373   as
374     ddp_ipyv_rec okl_ins_quote_pub.ipyv_rec_type;
375     ddindx binary_integer; indx binary_integer;
376   begin
377 
378     -- copy data to the local IN or IN-OUT args, if any
379 
380 
381 
382 
383 
384     ddp_ipyv_rec.id := rosetta_g_miss_num_map(p5_a0);
385     ddp_ipyv_rec.ipy_type := p5_a1;
386     ddp_ipyv_rec.description := p5_a2;
387     ddp_ipyv_rec.endorsement := p5_a3;
388     ddp_ipyv_rec.sfwt_flag := p5_a4;
389     ddp_ipyv_rec.cancellation_comment := p5_a5;
390     ddp_ipyv_rec.comments := p5_a6;
391     ddp_ipyv_rec.name_of_insured := p5_a7;
392     ddp_ipyv_rec.policy_number := p5_a8;
393     ddp_ipyv_rec.calculated_premium := rosetta_g_miss_num_map(p5_a9);
394     ddp_ipyv_rec.premium := rosetta_g_miss_num_map(p5_a10);
395     ddp_ipyv_rec.covered_amount := rosetta_g_miss_num_map(p5_a11);
396     ddp_ipyv_rec.deductible := rosetta_g_miss_num_map(p5_a12);
397     ddp_ipyv_rec.adjustment := rosetta_g_miss_num_map(p5_a13);
398     ddp_ipyv_rec.payment_frequency := p5_a14;
399     ddp_ipyv_rec.crx_code := p5_a15;
400     ddp_ipyv_rec.ipf_code := p5_a16;
401     ddp_ipyv_rec.iss_code := p5_a17;
402     ddp_ipyv_rec.ipe_code := p5_a18;
403     ddp_ipyv_rec.date_to := rosetta_g_miss_date_in_map(p5_a19);
404     ddp_ipyv_rec.date_from := rosetta_g_miss_date_in_map(p5_a20);
405     ddp_ipyv_rec.date_quoted := rosetta_g_miss_date_in_map(p5_a21);
406     ddp_ipyv_rec.date_proof_provided := rosetta_g_miss_date_in_map(p5_a22);
407     ddp_ipyv_rec.date_proof_required := rosetta_g_miss_date_in_map(p5_a23);
408     ddp_ipyv_rec.cancellation_date := rosetta_g_miss_date_in_map(p5_a24);
409     ddp_ipyv_rec.date_quote_expiry := rosetta_g_miss_date_in_map(p5_a25);
410     ddp_ipyv_rec.activation_date := rosetta_g_miss_date_in_map(p5_a26);
411     ddp_ipyv_rec.quote_yn := p5_a27;
412     ddp_ipyv_rec.on_file_yn := p5_a28;
413     ddp_ipyv_rec.private_label_yn := p5_a29;
414     ddp_ipyv_rec.agent_yn := p5_a30;
415     ddp_ipyv_rec.lessor_insured_yn := p5_a31;
416     ddp_ipyv_rec.lessor_payee_yn := p5_a32;
417     ddp_ipyv_rec.khr_id := rosetta_g_miss_num_map(p5_a33);
418     ddp_ipyv_rec.kle_id := rosetta_g_miss_num_map(p5_a34);
419     ddp_ipyv_rec.ipt_id := rosetta_g_miss_num_map(p5_a35);
420     ddp_ipyv_rec.ipy_id := rosetta_g_miss_num_map(p5_a36);
421     ddp_ipyv_rec.int_id := rosetta_g_miss_num_map(p5_a37);
422     ddp_ipyv_rec.isu_id := rosetta_g_miss_num_map(p5_a38);
423     ddp_ipyv_rec.insurance_factor := p5_a39;
424     ddp_ipyv_rec.factor_code := p5_a40;
425     ddp_ipyv_rec.factor_value := rosetta_g_miss_num_map(p5_a41);
426     ddp_ipyv_rec.agency_number := p5_a42;
427     ddp_ipyv_rec.agency_site_id := rosetta_g_miss_num_map(p5_a43);
428     ddp_ipyv_rec.sales_rep_id := rosetta_g_miss_num_map(p5_a44);
429     ddp_ipyv_rec.agent_site_id := rosetta_g_miss_num_map(p5_a45);
430     ddp_ipyv_rec.adjusted_by_id := rosetta_g_miss_num_map(p5_a46);
431     ddp_ipyv_rec.territory_code := p5_a47;
432     ddp_ipyv_rec.attribute_category := p5_a48;
433     ddp_ipyv_rec.attribute1 := p5_a49;
434     ddp_ipyv_rec.attribute2 := p5_a50;
435     ddp_ipyv_rec.attribute3 := p5_a51;
436     ddp_ipyv_rec.attribute4 := p5_a52;
437     ddp_ipyv_rec.attribute5 := p5_a53;
438     ddp_ipyv_rec.attribute6 := p5_a54;
439     ddp_ipyv_rec.attribute7 := p5_a55;
440     ddp_ipyv_rec.attribute8 := p5_a56;
441     ddp_ipyv_rec.attribute9 := p5_a57;
442     ddp_ipyv_rec.attribute10 := p5_a58;
443     ddp_ipyv_rec.attribute11 := p5_a59;
444     ddp_ipyv_rec.attribute12 := p5_a60;
445     ddp_ipyv_rec.attribute13 := p5_a61;
446     ddp_ipyv_rec.attribute14 := p5_a62;
447     ddp_ipyv_rec.attribute15 := p5_a63;
448     ddp_ipyv_rec.program_id := rosetta_g_miss_num_map(p5_a64);
449     ddp_ipyv_rec.org_id := rosetta_g_miss_num_map(p5_a65);
450     ddp_ipyv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a66);
451     ddp_ipyv_rec.program_application_id := rosetta_g_miss_num_map(p5_a67);
452     ddp_ipyv_rec.request_id := rosetta_g_miss_num_map(p5_a68);
453     ddp_ipyv_rec.object_version_number := rosetta_g_miss_num_map(p5_a69);
454     ddp_ipyv_rec.created_by := rosetta_g_miss_num_map(p5_a70);
455     ddp_ipyv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a71);
456     ddp_ipyv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a72);
457     ddp_ipyv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a73);
458     ddp_ipyv_rec.last_update_login := rosetta_g_miss_num_map(p5_a74);
459     ddp_ipyv_rec.lease_application_id := rosetta_g_miss_num_map(p5_a75);
460 
461 
462     -- here's the delegated call to the old PL/SQL routine
463     okl_ins_quote_pub.save_accept_quote(p_api_version,
464       p_init_msg_list,
465       x_return_status,
466       x_msg_count,
467       x_msg_data,
468       ddp_ipyv_rec,
469       x_message);
470 
471     -- copy data back from the local variables to OUT or IN-OUT args, if any
472 
473 
474 
475 
476 
477 
478   end;
479 
480   procedure create_ins_streams(p_api_version  NUMBER
481     , p_init_msg_list  VARCHAR2
482     , x_return_status out nocopy  VARCHAR2
483     , x_msg_count out nocopy  NUMBER
484     , x_msg_data out nocopy  VARCHAR2
485     , p5_a0  NUMBER := 0-1962.0724
486     , p5_a1  VARCHAR2 := fnd_api.g_miss_char
487     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
488     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
489     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
490     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
491     , p5_a6  VARCHAR2 := fnd_api.g_miss_char
492     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
493     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
494     , p5_a9  NUMBER := 0-1962.0724
495     , p5_a10  NUMBER := 0-1962.0724
496     , p5_a11  NUMBER := 0-1962.0724
497     , p5_a12  NUMBER := 0-1962.0724
498     , p5_a13  NUMBER := 0-1962.0724
499     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
500     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
501     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
502     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
503     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
504     , p5_a19  DATE := fnd_api.g_miss_date
505     , p5_a20  DATE := fnd_api.g_miss_date
506     , p5_a21  DATE := fnd_api.g_miss_date
507     , p5_a22  DATE := fnd_api.g_miss_date
508     , p5_a23  DATE := fnd_api.g_miss_date
509     , p5_a24  DATE := fnd_api.g_miss_date
510     , p5_a25  DATE := fnd_api.g_miss_date
511     , p5_a26  DATE := fnd_api.g_miss_date
512     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
513     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
514     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
515     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
516     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
517     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
518     , p5_a33  NUMBER := 0-1962.0724
519     , p5_a34  NUMBER := 0-1962.0724
520     , p5_a35  NUMBER := 0-1962.0724
521     , p5_a36  NUMBER := 0-1962.0724
522     , p5_a37  NUMBER := 0-1962.0724
523     , p5_a38  NUMBER := 0-1962.0724
524     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
525     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
526     , p5_a41  NUMBER := 0-1962.0724
527     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
528     , p5_a43  NUMBER := 0-1962.0724
529     , p5_a44  NUMBER := 0-1962.0724
530     , p5_a45  NUMBER := 0-1962.0724
531     , p5_a46  NUMBER := 0-1962.0724
532     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
533     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
534     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
535     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
536     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
537     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
538     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
539     , p5_a54  VARCHAR2 := fnd_api.g_miss_char
540     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
541     , p5_a56  VARCHAR2 := fnd_api.g_miss_char
542     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
543     , p5_a58  VARCHAR2 := fnd_api.g_miss_char
544     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
545     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
546     , p5_a61  VARCHAR2 := fnd_api.g_miss_char
547     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
548     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
549     , p5_a64  NUMBER := 0-1962.0724
550     , p5_a65  NUMBER := 0-1962.0724
551     , p5_a66  DATE := fnd_api.g_miss_date
552     , p5_a67  NUMBER := 0-1962.0724
553     , p5_a68  NUMBER := 0-1962.0724
554     , p5_a69  NUMBER := 0-1962.0724
555     , p5_a70  NUMBER := 0-1962.0724
556     , p5_a71  DATE := fnd_api.g_miss_date
557     , p5_a72  NUMBER := 0-1962.0724
558     , p5_a73  DATE := fnd_api.g_miss_date
559     , p5_a74  NUMBER := 0-1962.0724
560     , p5_a75  NUMBER := 0-1962.0724
561   )
562 
563   as
564     ddp_ipyv_rec okl_ins_quote_pub.ipyv_rec_type;
565     ddindx binary_integer; indx binary_integer;
566   begin
567 
568     -- copy data to the local IN or IN-OUT args, if any
569 
570 
571 
572 
573 
574     ddp_ipyv_rec.id := rosetta_g_miss_num_map(p5_a0);
575     ddp_ipyv_rec.ipy_type := p5_a1;
576     ddp_ipyv_rec.description := p5_a2;
577     ddp_ipyv_rec.endorsement := p5_a3;
578     ddp_ipyv_rec.sfwt_flag := p5_a4;
579     ddp_ipyv_rec.cancellation_comment := p5_a5;
580     ddp_ipyv_rec.comments := p5_a6;
581     ddp_ipyv_rec.name_of_insured := p5_a7;
582     ddp_ipyv_rec.policy_number := p5_a8;
583     ddp_ipyv_rec.calculated_premium := rosetta_g_miss_num_map(p5_a9);
584     ddp_ipyv_rec.premium := rosetta_g_miss_num_map(p5_a10);
585     ddp_ipyv_rec.covered_amount := rosetta_g_miss_num_map(p5_a11);
586     ddp_ipyv_rec.deductible := rosetta_g_miss_num_map(p5_a12);
587     ddp_ipyv_rec.adjustment := rosetta_g_miss_num_map(p5_a13);
588     ddp_ipyv_rec.payment_frequency := p5_a14;
589     ddp_ipyv_rec.crx_code := p5_a15;
590     ddp_ipyv_rec.ipf_code := p5_a16;
591     ddp_ipyv_rec.iss_code := p5_a17;
592     ddp_ipyv_rec.ipe_code := p5_a18;
593     ddp_ipyv_rec.date_to := rosetta_g_miss_date_in_map(p5_a19);
594     ddp_ipyv_rec.date_from := rosetta_g_miss_date_in_map(p5_a20);
595     ddp_ipyv_rec.date_quoted := rosetta_g_miss_date_in_map(p5_a21);
596     ddp_ipyv_rec.date_proof_provided := rosetta_g_miss_date_in_map(p5_a22);
597     ddp_ipyv_rec.date_proof_required := rosetta_g_miss_date_in_map(p5_a23);
598     ddp_ipyv_rec.cancellation_date := rosetta_g_miss_date_in_map(p5_a24);
599     ddp_ipyv_rec.date_quote_expiry := rosetta_g_miss_date_in_map(p5_a25);
600     ddp_ipyv_rec.activation_date := rosetta_g_miss_date_in_map(p5_a26);
601     ddp_ipyv_rec.quote_yn := p5_a27;
602     ddp_ipyv_rec.on_file_yn := p5_a28;
603     ddp_ipyv_rec.private_label_yn := p5_a29;
604     ddp_ipyv_rec.agent_yn := p5_a30;
605     ddp_ipyv_rec.lessor_insured_yn := p5_a31;
606     ddp_ipyv_rec.lessor_payee_yn := p5_a32;
607     ddp_ipyv_rec.khr_id := rosetta_g_miss_num_map(p5_a33);
608     ddp_ipyv_rec.kle_id := rosetta_g_miss_num_map(p5_a34);
609     ddp_ipyv_rec.ipt_id := rosetta_g_miss_num_map(p5_a35);
610     ddp_ipyv_rec.ipy_id := rosetta_g_miss_num_map(p5_a36);
611     ddp_ipyv_rec.int_id := rosetta_g_miss_num_map(p5_a37);
612     ddp_ipyv_rec.isu_id := rosetta_g_miss_num_map(p5_a38);
613     ddp_ipyv_rec.insurance_factor := p5_a39;
614     ddp_ipyv_rec.factor_code := p5_a40;
615     ddp_ipyv_rec.factor_value := rosetta_g_miss_num_map(p5_a41);
616     ddp_ipyv_rec.agency_number := p5_a42;
617     ddp_ipyv_rec.agency_site_id := rosetta_g_miss_num_map(p5_a43);
618     ddp_ipyv_rec.sales_rep_id := rosetta_g_miss_num_map(p5_a44);
619     ddp_ipyv_rec.agent_site_id := rosetta_g_miss_num_map(p5_a45);
620     ddp_ipyv_rec.adjusted_by_id := rosetta_g_miss_num_map(p5_a46);
621     ddp_ipyv_rec.territory_code := p5_a47;
622     ddp_ipyv_rec.attribute_category := p5_a48;
623     ddp_ipyv_rec.attribute1 := p5_a49;
624     ddp_ipyv_rec.attribute2 := p5_a50;
625     ddp_ipyv_rec.attribute3 := p5_a51;
626     ddp_ipyv_rec.attribute4 := p5_a52;
627     ddp_ipyv_rec.attribute5 := p5_a53;
628     ddp_ipyv_rec.attribute6 := p5_a54;
629     ddp_ipyv_rec.attribute7 := p5_a55;
630     ddp_ipyv_rec.attribute8 := p5_a56;
631     ddp_ipyv_rec.attribute9 := p5_a57;
632     ddp_ipyv_rec.attribute10 := p5_a58;
633     ddp_ipyv_rec.attribute11 := p5_a59;
634     ddp_ipyv_rec.attribute12 := p5_a60;
635     ddp_ipyv_rec.attribute13 := p5_a61;
636     ddp_ipyv_rec.attribute14 := p5_a62;
637     ddp_ipyv_rec.attribute15 := p5_a63;
638     ddp_ipyv_rec.program_id := rosetta_g_miss_num_map(p5_a64);
639     ddp_ipyv_rec.org_id := rosetta_g_miss_num_map(p5_a65);
640     ddp_ipyv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a66);
641     ddp_ipyv_rec.program_application_id := rosetta_g_miss_num_map(p5_a67);
642     ddp_ipyv_rec.request_id := rosetta_g_miss_num_map(p5_a68);
643     ddp_ipyv_rec.object_version_number := rosetta_g_miss_num_map(p5_a69);
644     ddp_ipyv_rec.created_by := rosetta_g_miss_num_map(p5_a70);
645     ddp_ipyv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a71);
646     ddp_ipyv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a72);
647     ddp_ipyv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a73);
648     ddp_ipyv_rec.last_update_login := rosetta_g_miss_num_map(p5_a74);
649     ddp_ipyv_rec.lease_application_id := rosetta_g_miss_num_map(p5_a75);
650 
651     -- here's the delegated call to the old PL/SQL routine
652     okl_ins_quote_pub.create_ins_streams(p_api_version,
653       p_init_msg_list,
654       x_return_status,
655       x_msg_count,
656       x_msg_data,
657       ddp_ipyv_rec);
658 
659     -- copy data back from the local variables to OUT or IN-OUT args, if any
660 
661 
662 
663 
664 
665   end;
666 
667   procedure calc_lease_premium(p_api_version  NUMBER
668     , p_init_msg_list  VARCHAR2
669     , x_return_status out nocopy  VARCHAR2
670     , x_msg_count out nocopy  NUMBER
671     , x_msg_data out nocopy  VARCHAR2
672     , p5_a0 in out nocopy  NUMBER
673     , p5_a1 in out nocopy  VARCHAR2
674     , p5_a2 in out nocopy  VARCHAR2
675     , p5_a3 in out nocopy  VARCHAR2
676     , p5_a4 in out nocopy  VARCHAR2
677     , p5_a5 in out nocopy  VARCHAR2
678     , p5_a6 in out nocopy  VARCHAR2
679     , p5_a7 in out nocopy  VARCHAR2
680     , p5_a8 in out nocopy  VARCHAR2
681     , p5_a9 in out nocopy  NUMBER
682     , p5_a10 in out nocopy  NUMBER
683     , p5_a11 in out nocopy  NUMBER
684     , p5_a12 in out nocopy  NUMBER
685     , p5_a13 in out nocopy  NUMBER
686     , p5_a14 in out nocopy  VARCHAR2
687     , p5_a15 in out nocopy  VARCHAR2
688     , p5_a16 in out nocopy  VARCHAR2
689     , p5_a17 in out nocopy  VARCHAR2
690     , p5_a18 in out nocopy  VARCHAR2
691     , p5_a19 in out nocopy  DATE
692     , p5_a20 in out nocopy  DATE
693     , p5_a21 in out nocopy  DATE
694     , p5_a22 in out nocopy  DATE
695     , p5_a23 in out nocopy  DATE
696     , p5_a24 in out nocopy  DATE
697     , p5_a25 in out nocopy  DATE
698     , p5_a26 in out nocopy  DATE
699     , p5_a27 in out nocopy  VARCHAR2
700     , p5_a28 in out nocopy  VARCHAR2
701     , p5_a29 in out nocopy  VARCHAR2
702     , p5_a30 in out nocopy  VARCHAR2
703     , p5_a31 in out nocopy  VARCHAR2
704     , p5_a32 in out nocopy  VARCHAR2
705     , p5_a33 in out nocopy  NUMBER
706     , p5_a34 in out nocopy  NUMBER
707     , p5_a35 in out nocopy  NUMBER
708     , p5_a36 in out nocopy  NUMBER
709     , p5_a37 in out nocopy  NUMBER
710     , p5_a38 in out nocopy  NUMBER
711     , p5_a39 in out nocopy  VARCHAR2
712     , p5_a40 in out nocopy  VARCHAR2
713     , p5_a41 in out nocopy  NUMBER
714     , p5_a42 in out nocopy  VARCHAR2
715     , p5_a43 in out nocopy  NUMBER
716     , p5_a44 in out nocopy  NUMBER
717     , p5_a45 in out nocopy  NUMBER
718     , p5_a46 in out nocopy  NUMBER
719     , p5_a47 in out nocopy  VARCHAR2
720     , p5_a48 in out nocopy  VARCHAR2
721     , p5_a49 in out nocopy  VARCHAR2
722     , p5_a50 in out nocopy  VARCHAR2
723     , p5_a51 in out nocopy  VARCHAR2
724     , p5_a52 in out nocopy  VARCHAR2
725     , p5_a53 in out nocopy  VARCHAR2
726     , p5_a54 in out nocopy  VARCHAR2
727     , p5_a55 in out nocopy  VARCHAR2
728     , p5_a56 in out nocopy  VARCHAR2
729     , p5_a57 in out nocopy  VARCHAR2
730     , p5_a58 in out nocopy  VARCHAR2
731     , p5_a59 in out nocopy  VARCHAR2
732     , p5_a60 in out nocopy  VARCHAR2
733     , p5_a61 in out nocopy  VARCHAR2
734     , p5_a62 in out nocopy  VARCHAR2
735     , p5_a63 in out nocopy  VARCHAR2
736     , p5_a64 in out nocopy  NUMBER
737     , p5_a65 in out nocopy  NUMBER
738     , p5_a66 in out nocopy  DATE
739     , p5_a67 in out nocopy  NUMBER
740     , p5_a68 in out nocopy  NUMBER
741     , p5_a69 in out nocopy  NUMBER
742     , p5_a70 in out nocopy  NUMBER
743     , p5_a71 in out nocopy  DATE
744     , p5_a72 in out nocopy  NUMBER
745     , p5_a73 in out nocopy  DATE
746     , p5_a74 in out nocopy  NUMBER
747     , p5_a75 in out nocopy  NUMBER
748     , x_message out nocopy  VARCHAR2
749     , p7_a0 out nocopy JTF_NUMBER_TABLE
750     , p7_a1 out nocopy JTF_NUMBER_TABLE
751     , p7_a2 out nocopy JTF_NUMBER_TABLE
752   )
753 
754   as
755     ddpx_ipyv_rec okl_ins_quote_pub.ipyv_rec_type;
756     ddx_iasset_tbl okl_ins_quote_pub.iasset_tbl_type;
757     ddindx binary_integer; indx binary_integer;
758   begin
759 
760     -- copy data to the local IN or IN-OUT args, if any
761 
762 
763 
764 
765 
766     ddpx_ipyv_rec.id := rosetta_g_miss_num_map(p5_a0);
767     ddpx_ipyv_rec.ipy_type := p5_a1;
768     ddpx_ipyv_rec.description := p5_a2;
769     ddpx_ipyv_rec.endorsement := p5_a3;
770     ddpx_ipyv_rec.sfwt_flag := p5_a4;
771     ddpx_ipyv_rec.cancellation_comment := p5_a5;
772     ddpx_ipyv_rec.comments := p5_a6;
773     ddpx_ipyv_rec.name_of_insured := p5_a7;
774     ddpx_ipyv_rec.policy_number := p5_a8;
775     ddpx_ipyv_rec.calculated_premium := rosetta_g_miss_num_map(p5_a9);
776     ddpx_ipyv_rec.premium := rosetta_g_miss_num_map(p5_a10);
777     ddpx_ipyv_rec.covered_amount := rosetta_g_miss_num_map(p5_a11);
778     ddpx_ipyv_rec.deductible := rosetta_g_miss_num_map(p5_a12);
779     ddpx_ipyv_rec.adjustment := rosetta_g_miss_num_map(p5_a13);
780     ddpx_ipyv_rec.payment_frequency := p5_a14;
781     ddpx_ipyv_rec.crx_code := p5_a15;
782     ddpx_ipyv_rec.ipf_code := p5_a16;
783     ddpx_ipyv_rec.iss_code := p5_a17;
784     ddpx_ipyv_rec.ipe_code := p5_a18;
785     ddpx_ipyv_rec.date_to := rosetta_g_miss_date_in_map(p5_a19);
786     ddpx_ipyv_rec.date_from := rosetta_g_miss_date_in_map(p5_a20);
787     ddpx_ipyv_rec.date_quoted := rosetta_g_miss_date_in_map(p5_a21);
788     ddpx_ipyv_rec.date_proof_provided := rosetta_g_miss_date_in_map(p5_a22);
789     ddpx_ipyv_rec.date_proof_required := rosetta_g_miss_date_in_map(p5_a23);
790     ddpx_ipyv_rec.cancellation_date := rosetta_g_miss_date_in_map(p5_a24);
791     ddpx_ipyv_rec.date_quote_expiry := rosetta_g_miss_date_in_map(p5_a25);
792     ddpx_ipyv_rec.activation_date := rosetta_g_miss_date_in_map(p5_a26);
793     ddpx_ipyv_rec.quote_yn := p5_a27;
794     ddpx_ipyv_rec.on_file_yn := p5_a28;
795     ddpx_ipyv_rec.private_label_yn := p5_a29;
796     ddpx_ipyv_rec.agent_yn := p5_a30;
797     ddpx_ipyv_rec.lessor_insured_yn := p5_a31;
798     ddpx_ipyv_rec.lessor_payee_yn := p5_a32;
799     ddpx_ipyv_rec.khr_id := rosetta_g_miss_num_map(p5_a33);
800     ddpx_ipyv_rec.kle_id := rosetta_g_miss_num_map(p5_a34);
801     ddpx_ipyv_rec.ipt_id := rosetta_g_miss_num_map(p5_a35);
802     ddpx_ipyv_rec.ipy_id := rosetta_g_miss_num_map(p5_a36);
803     ddpx_ipyv_rec.int_id := rosetta_g_miss_num_map(p5_a37);
804     ddpx_ipyv_rec.isu_id := rosetta_g_miss_num_map(p5_a38);
805     ddpx_ipyv_rec.insurance_factor := p5_a39;
806     ddpx_ipyv_rec.factor_code := p5_a40;
807     ddpx_ipyv_rec.factor_value := rosetta_g_miss_num_map(p5_a41);
808     ddpx_ipyv_rec.agency_number := p5_a42;
809     ddpx_ipyv_rec.agency_site_id := rosetta_g_miss_num_map(p5_a43);
810     ddpx_ipyv_rec.sales_rep_id := rosetta_g_miss_num_map(p5_a44);
811     ddpx_ipyv_rec.agent_site_id := rosetta_g_miss_num_map(p5_a45);
812     ddpx_ipyv_rec.adjusted_by_id := rosetta_g_miss_num_map(p5_a46);
813     ddpx_ipyv_rec.territory_code := p5_a47;
814     ddpx_ipyv_rec.attribute_category := p5_a48;
815     ddpx_ipyv_rec.attribute1 := p5_a49;
816     ddpx_ipyv_rec.attribute2 := p5_a50;
817     ddpx_ipyv_rec.attribute3 := p5_a51;
818     ddpx_ipyv_rec.attribute4 := p5_a52;
819     ddpx_ipyv_rec.attribute5 := p5_a53;
820     ddpx_ipyv_rec.attribute6 := p5_a54;
821     ddpx_ipyv_rec.attribute7 := p5_a55;
822     ddpx_ipyv_rec.attribute8 := p5_a56;
823     ddpx_ipyv_rec.attribute9 := p5_a57;
824     ddpx_ipyv_rec.attribute10 := p5_a58;
825     ddpx_ipyv_rec.attribute11 := p5_a59;
826     ddpx_ipyv_rec.attribute12 := p5_a60;
827     ddpx_ipyv_rec.attribute13 := p5_a61;
828     ddpx_ipyv_rec.attribute14 := p5_a62;
829     ddpx_ipyv_rec.attribute15 := p5_a63;
830     ddpx_ipyv_rec.program_id := rosetta_g_miss_num_map(p5_a64);
831     ddpx_ipyv_rec.org_id := rosetta_g_miss_num_map(p5_a65);
832     ddpx_ipyv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a66);
833     ddpx_ipyv_rec.program_application_id := rosetta_g_miss_num_map(p5_a67);
834     ddpx_ipyv_rec.request_id := rosetta_g_miss_num_map(p5_a68);
835     ddpx_ipyv_rec.object_version_number := rosetta_g_miss_num_map(p5_a69);
836     ddpx_ipyv_rec.created_by := rosetta_g_miss_num_map(p5_a70);
837     ddpx_ipyv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a71);
838     ddpx_ipyv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a72);
839     ddpx_ipyv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a73);
840     ddpx_ipyv_rec.last_update_login := rosetta_g_miss_num_map(p5_a74);
841     ddpx_ipyv_rec.lease_application_id := rosetta_g_miss_num_map(p5_a75);
842 
843 
844 
845     -- here's the delegated call to the old PL/SQL routine
846     okl_ins_quote_pub.calc_lease_premium(p_api_version,
847       p_init_msg_list,
848       x_return_status,
849       x_msg_count,
850       x_msg_data,
851       ddpx_ipyv_rec,
852       x_message,
853       ddx_iasset_tbl);
854 
855     -- copy data back from the local variables to OUT or IN-OUT args, if any
856 
857 
858 
859 
860 
861     p5_a0 := rosetta_g_miss_num_map(ddpx_ipyv_rec.id);
862     p5_a1 := ddpx_ipyv_rec.ipy_type;
863     p5_a2 := ddpx_ipyv_rec.description;
864     p5_a3 := ddpx_ipyv_rec.endorsement;
865     p5_a4 := ddpx_ipyv_rec.sfwt_flag;
866     p5_a5 := ddpx_ipyv_rec.cancellation_comment;
867     p5_a6 := ddpx_ipyv_rec.comments;
868     p5_a7 := ddpx_ipyv_rec.name_of_insured;
869     p5_a8 := ddpx_ipyv_rec.policy_number;
870     p5_a9 := rosetta_g_miss_num_map(ddpx_ipyv_rec.calculated_premium);
871     p5_a10 := rosetta_g_miss_num_map(ddpx_ipyv_rec.premium);
872     p5_a11 := rosetta_g_miss_num_map(ddpx_ipyv_rec.covered_amount);
873     p5_a12 := rosetta_g_miss_num_map(ddpx_ipyv_rec.deductible);
874     p5_a13 := rosetta_g_miss_num_map(ddpx_ipyv_rec.adjustment);
875     p5_a14 := ddpx_ipyv_rec.payment_frequency;
876     p5_a15 := ddpx_ipyv_rec.crx_code;
877     p5_a16 := ddpx_ipyv_rec.ipf_code;
878     p5_a17 := ddpx_ipyv_rec.iss_code;
879     p5_a18 := ddpx_ipyv_rec.ipe_code;
880     p5_a19 := ddpx_ipyv_rec.date_to;
881     p5_a20 := ddpx_ipyv_rec.date_from;
882     p5_a21 := ddpx_ipyv_rec.date_quoted;
883     p5_a22 := ddpx_ipyv_rec.date_proof_provided;
884     p5_a23 := ddpx_ipyv_rec.date_proof_required;
885     p5_a24 := ddpx_ipyv_rec.cancellation_date;
886     p5_a25 := ddpx_ipyv_rec.date_quote_expiry;
887     p5_a26 := ddpx_ipyv_rec.activation_date;
888     p5_a27 := ddpx_ipyv_rec.quote_yn;
889     p5_a28 := ddpx_ipyv_rec.on_file_yn;
890     p5_a29 := ddpx_ipyv_rec.private_label_yn;
891     p5_a30 := ddpx_ipyv_rec.agent_yn;
892     p5_a31 := ddpx_ipyv_rec.lessor_insured_yn;
893     p5_a32 := ddpx_ipyv_rec.lessor_payee_yn;
894     p5_a33 := rosetta_g_miss_num_map(ddpx_ipyv_rec.khr_id);
895     p5_a34 := rosetta_g_miss_num_map(ddpx_ipyv_rec.kle_id);
896     p5_a35 := rosetta_g_miss_num_map(ddpx_ipyv_rec.ipt_id);
897     p5_a36 := rosetta_g_miss_num_map(ddpx_ipyv_rec.ipy_id);
898     p5_a37 := rosetta_g_miss_num_map(ddpx_ipyv_rec.int_id);
899     p5_a38 := rosetta_g_miss_num_map(ddpx_ipyv_rec.isu_id);
900     p5_a39 := ddpx_ipyv_rec.insurance_factor;
901     p5_a40 := ddpx_ipyv_rec.factor_code;
902     p5_a41 := rosetta_g_miss_num_map(ddpx_ipyv_rec.factor_value);
903     p5_a42 := ddpx_ipyv_rec.agency_number;
904     p5_a43 := rosetta_g_miss_num_map(ddpx_ipyv_rec.agency_site_id);
905     p5_a44 := rosetta_g_miss_num_map(ddpx_ipyv_rec.sales_rep_id);
906     p5_a45 := rosetta_g_miss_num_map(ddpx_ipyv_rec.agent_site_id);
907     p5_a46 := rosetta_g_miss_num_map(ddpx_ipyv_rec.adjusted_by_id);
908     p5_a47 := ddpx_ipyv_rec.territory_code;
909     p5_a48 := ddpx_ipyv_rec.attribute_category;
910     p5_a49 := ddpx_ipyv_rec.attribute1;
911     p5_a50 := ddpx_ipyv_rec.attribute2;
912     p5_a51 := ddpx_ipyv_rec.attribute3;
913     p5_a52 := ddpx_ipyv_rec.attribute4;
914     p5_a53 := ddpx_ipyv_rec.attribute5;
915     p5_a54 := ddpx_ipyv_rec.attribute6;
916     p5_a55 := ddpx_ipyv_rec.attribute7;
917     p5_a56 := ddpx_ipyv_rec.attribute8;
918     p5_a57 := ddpx_ipyv_rec.attribute9;
919     p5_a58 := ddpx_ipyv_rec.attribute10;
920     p5_a59 := ddpx_ipyv_rec.attribute11;
921     p5_a60 := ddpx_ipyv_rec.attribute12;
922     p5_a61 := ddpx_ipyv_rec.attribute13;
923     p5_a62 := ddpx_ipyv_rec.attribute14;
924     p5_a63 := ddpx_ipyv_rec.attribute15;
925     p5_a64 := rosetta_g_miss_num_map(ddpx_ipyv_rec.program_id);
926     p5_a65 := rosetta_g_miss_num_map(ddpx_ipyv_rec.org_id);
927     p5_a66 := ddpx_ipyv_rec.program_update_date;
928     p5_a67 := rosetta_g_miss_num_map(ddpx_ipyv_rec.program_application_id);
929     p5_a68 := rosetta_g_miss_num_map(ddpx_ipyv_rec.request_id);
930     p5_a69 := rosetta_g_miss_num_map(ddpx_ipyv_rec.object_version_number);
931     p5_a70 := rosetta_g_miss_num_map(ddpx_ipyv_rec.created_by);
932     p5_a71 := ddpx_ipyv_rec.creation_date;
933     p5_a72 := rosetta_g_miss_num_map(ddpx_ipyv_rec.last_updated_by);
934     p5_a73 := ddpx_ipyv_rec.last_update_date;
935     p5_a74 := rosetta_g_miss_num_map(ddpx_ipyv_rec.last_update_login);
936     p5_a75 := rosetta_g_miss_num_map(ddpx_ipyv_rec.lease_application_id);
937 
938 
939     okl_ins_quote_pvt_w.rosetta_table_copy_out_p5(ddx_iasset_tbl, p7_a0
940       , p7_a1
941       , p7_a2
942       );
943   end;
944 
945   procedure calc_optional_premium(p_api_version  NUMBER
946     , p_init_msg_list  VARCHAR2
947     , x_return_status out nocopy  VARCHAR2
948     , x_msg_count out nocopy  NUMBER
949     , x_msg_data out nocopy  VARCHAR2
950     , x_message out nocopy  VARCHAR2
951     , p7_a0 out nocopy  NUMBER
952     , p7_a1 out nocopy  VARCHAR2
953     , p7_a2 out nocopy  VARCHAR2
954     , p7_a3 out nocopy  VARCHAR2
955     , p7_a4 out nocopy  VARCHAR2
956     , p7_a5 out nocopy  VARCHAR2
957     , p7_a6 out nocopy  VARCHAR2
958     , p7_a7 out nocopy  VARCHAR2
959     , p7_a8 out nocopy  VARCHAR2
960     , p7_a9 out nocopy  NUMBER
961     , p7_a10 out nocopy  NUMBER
962     , p7_a11 out nocopy  NUMBER
963     , p7_a12 out nocopy  NUMBER
964     , p7_a13 out nocopy  NUMBER
965     , p7_a14 out nocopy  VARCHAR2
966     , p7_a15 out nocopy  VARCHAR2
967     , p7_a16 out nocopy  VARCHAR2
968     , p7_a17 out nocopy  VARCHAR2
969     , p7_a18 out nocopy  VARCHAR2
970     , p7_a19 out nocopy  DATE
971     , p7_a20 out nocopy  DATE
972     , p7_a21 out nocopy  DATE
973     , p7_a22 out nocopy  DATE
974     , p7_a23 out nocopy  DATE
975     , p7_a24 out nocopy  DATE
976     , p7_a25 out nocopy  DATE
977     , p7_a26 out nocopy  DATE
978     , p7_a27 out nocopy  VARCHAR2
979     , p7_a28 out nocopy  VARCHAR2
980     , p7_a29 out nocopy  VARCHAR2
981     , p7_a30 out nocopy  VARCHAR2
982     , p7_a31 out nocopy  VARCHAR2
983     , p7_a32 out nocopy  VARCHAR2
984     , p7_a33 out nocopy  NUMBER
985     , p7_a34 out nocopy  NUMBER
986     , p7_a35 out nocopy  NUMBER
987     , p7_a36 out nocopy  NUMBER
988     , p7_a37 out nocopy  NUMBER
989     , p7_a38 out nocopy  NUMBER
990     , p7_a39 out nocopy  VARCHAR2
991     , p7_a40 out nocopy  VARCHAR2
992     , p7_a41 out nocopy  NUMBER
993     , p7_a42 out nocopy  VARCHAR2
994     , p7_a43 out nocopy  NUMBER
995     , p7_a44 out nocopy  NUMBER
996     , p7_a45 out nocopy  NUMBER
997     , p7_a46 out nocopy  NUMBER
998     , p7_a47 out nocopy  VARCHAR2
999     , p7_a48 out nocopy  VARCHAR2
1000     , p7_a49 out nocopy  VARCHAR2
1001     , p7_a50 out nocopy  VARCHAR2
1002     , p7_a51 out nocopy  VARCHAR2
1003     , p7_a52 out nocopy  VARCHAR2
1004     , p7_a53 out nocopy  VARCHAR2
1005     , p7_a54 out nocopy  VARCHAR2
1006     , p7_a55 out nocopy  VARCHAR2
1007     , p7_a56 out nocopy  VARCHAR2
1008     , p7_a57 out nocopy  VARCHAR2
1009     , p7_a58 out nocopy  VARCHAR2
1010     , p7_a59 out nocopy  VARCHAR2
1011     , p7_a60 out nocopy  VARCHAR2
1012     , p7_a61 out nocopy  VARCHAR2
1013     , p7_a62 out nocopy  VARCHAR2
1014     , p7_a63 out nocopy  VARCHAR2
1015     , p7_a64 out nocopy  NUMBER
1016     , p7_a65 out nocopy  NUMBER
1017     , p7_a66 out nocopy  DATE
1018     , p7_a67 out nocopy  NUMBER
1019     , p7_a68 out nocopy  NUMBER
1020     , p7_a69 out nocopy  NUMBER
1021     , p7_a70 out nocopy  NUMBER
1022     , p7_a71 out nocopy  DATE
1023     , p7_a72 out nocopy  NUMBER
1024     , p7_a73 out nocopy  DATE
1025     , p7_a74 out nocopy  NUMBER
1026     , p7_a75 out nocopy  NUMBER
1027     , p5_a0  NUMBER := 0-1962.0724
1028     , p5_a1  VARCHAR2 := fnd_api.g_miss_char
1029     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
1030     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
1031     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
1032     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
1033     , p5_a6  VARCHAR2 := fnd_api.g_miss_char
1034     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
1035     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
1036     , p5_a9  NUMBER := 0-1962.0724
1037     , p5_a10  NUMBER := 0-1962.0724
1038     , p5_a11  NUMBER := 0-1962.0724
1039     , p5_a12  NUMBER := 0-1962.0724
1040     , p5_a13  NUMBER := 0-1962.0724
1041     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
1042     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
1043     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
1044     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
1045     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
1046     , p5_a19  DATE := fnd_api.g_miss_date
1047     , p5_a20  DATE := fnd_api.g_miss_date
1048     , p5_a21  DATE := fnd_api.g_miss_date
1049     , p5_a22  DATE := fnd_api.g_miss_date
1050     , p5_a23  DATE := fnd_api.g_miss_date
1051     , p5_a24  DATE := fnd_api.g_miss_date
1052     , p5_a25  DATE := fnd_api.g_miss_date
1053     , p5_a26  DATE := fnd_api.g_miss_date
1054     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
1055     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
1056     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
1057     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
1058     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
1059     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
1060     , p5_a33  NUMBER := 0-1962.0724
1061     , p5_a34  NUMBER := 0-1962.0724
1062     , p5_a35  NUMBER := 0-1962.0724
1063     , p5_a36  NUMBER := 0-1962.0724
1064     , p5_a37  NUMBER := 0-1962.0724
1065     , p5_a38  NUMBER := 0-1962.0724
1066     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
1067     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
1068     , p5_a41  NUMBER := 0-1962.0724
1069     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
1070     , p5_a43  NUMBER := 0-1962.0724
1071     , p5_a44  NUMBER := 0-1962.0724
1072     , p5_a45  NUMBER := 0-1962.0724
1073     , p5_a46  NUMBER := 0-1962.0724
1074     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
1075     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
1076     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
1077     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
1078     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
1079     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
1080     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
1081     , p5_a54  VARCHAR2 := fnd_api.g_miss_char
1082     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
1083     , p5_a56  VARCHAR2 := fnd_api.g_miss_char
1084     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
1085     , p5_a58  VARCHAR2 := fnd_api.g_miss_char
1086     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
1087     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
1088     , p5_a61  VARCHAR2 := fnd_api.g_miss_char
1089     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
1090     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
1091     , p5_a64  NUMBER := 0-1962.0724
1092     , p5_a65  NUMBER := 0-1962.0724
1093     , p5_a66  DATE := fnd_api.g_miss_date
1094     , p5_a67  NUMBER := 0-1962.0724
1095     , p5_a68  NUMBER := 0-1962.0724
1096     , p5_a69  NUMBER := 0-1962.0724
1097     , p5_a70  NUMBER := 0-1962.0724
1098     , p5_a71  DATE := fnd_api.g_miss_date
1099     , p5_a72  NUMBER := 0-1962.0724
1100     , p5_a73  DATE := fnd_api.g_miss_date
1101     , p5_a74  NUMBER := 0-1962.0724
1102     , p5_a75  NUMBER := 0-1962.0724
1103   )
1104 
1105   as
1106     ddp_ipyv_rec okl_ins_quote_pub.ipyv_rec_type;
1107     ddx_ipyv_rec okl_ins_quote_pub.ipyv_rec_type;
1108     ddindx binary_integer; indx binary_integer;
1109   begin
1110 
1111     -- copy data to the local IN or IN-OUT args, if any
1112 
1113 
1114 
1115 
1116 
1117     ddp_ipyv_rec.id := rosetta_g_miss_num_map(p5_a0);
1118     ddp_ipyv_rec.ipy_type := p5_a1;
1119     ddp_ipyv_rec.description := p5_a2;
1120     ddp_ipyv_rec.endorsement := p5_a3;
1121     ddp_ipyv_rec.sfwt_flag := p5_a4;
1122     ddp_ipyv_rec.cancellation_comment := p5_a5;
1123     ddp_ipyv_rec.comments := p5_a6;
1124     ddp_ipyv_rec.name_of_insured := p5_a7;
1125     ddp_ipyv_rec.policy_number := p5_a8;
1126     ddp_ipyv_rec.calculated_premium := rosetta_g_miss_num_map(p5_a9);
1127     ddp_ipyv_rec.premium := rosetta_g_miss_num_map(p5_a10);
1128     ddp_ipyv_rec.covered_amount := rosetta_g_miss_num_map(p5_a11);
1129     ddp_ipyv_rec.deductible := rosetta_g_miss_num_map(p5_a12);
1130     ddp_ipyv_rec.adjustment := rosetta_g_miss_num_map(p5_a13);
1131     ddp_ipyv_rec.payment_frequency := p5_a14;
1132     ddp_ipyv_rec.crx_code := p5_a15;
1133     ddp_ipyv_rec.ipf_code := p5_a16;
1134     ddp_ipyv_rec.iss_code := p5_a17;
1135     ddp_ipyv_rec.ipe_code := p5_a18;
1136     ddp_ipyv_rec.date_to := rosetta_g_miss_date_in_map(p5_a19);
1137     ddp_ipyv_rec.date_from := rosetta_g_miss_date_in_map(p5_a20);
1138     ddp_ipyv_rec.date_quoted := rosetta_g_miss_date_in_map(p5_a21);
1139     ddp_ipyv_rec.date_proof_provided := rosetta_g_miss_date_in_map(p5_a22);
1140     ddp_ipyv_rec.date_proof_required := rosetta_g_miss_date_in_map(p5_a23);
1141     ddp_ipyv_rec.cancellation_date := rosetta_g_miss_date_in_map(p5_a24);
1142     ddp_ipyv_rec.date_quote_expiry := rosetta_g_miss_date_in_map(p5_a25);
1143     ddp_ipyv_rec.activation_date := rosetta_g_miss_date_in_map(p5_a26);
1144     ddp_ipyv_rec.quote_yn := p5_a27;
1145     ddp_ipyv_rec.on_file_yn := p5_a28;
1146     ddp_ipyv_rec.private_label_yn := p5_a29;
1147     ddp_ipyv_rec.agent_yn := p5_a30;
1148     ddp_ipyv_rec.lessor_insured_yn := p5_a31;
1149     ddp_ipyv_rec.lessor_payee_yn := p5_a32;
1150     ddp_ipyv_rec.khr_id := rosetta_g_miss_num_map(p5_a33);
1151     ddp_ipyv_rec.kle_id := rosetta_g_miss_num_map(p5_a34);
1152     ddp_ipyv_rec.ipt_id := rosetta_g_miss_num_map(p5_a35);
1153     ddp_ipyv_rec.ipy_id := rosetta_g_miss_num_map(p5_a36);
1154     ddp_ipyv_rec.int_id := rosetta_g_miss_num_map(p5_a37);
1155     ddp_ipyv_rec.isu_id := rosetta_g_miss_num_map(p5_a38);
1156     ddp_ipyv_rec.insurance_factor := p5_a39;
1157     ddp_ipyv_rec.factor_code := p5_a40;
1158     ddp_ipyv_rec.factor_value := rosetta_g_miss_num_map(p5_a41);
1159     ddp_ipyv_rec.agency_number := p5_a42;
1160     ddp_ipyv_rec.agency_site_id := rosetta_g_miss_num_map(p5_a43);
1161     ddp_ipyv_rec.sales_rep_id := rosetta_g_miss_num_map(p5_a44);
1162     ddp_ipyv_rec.agent_site_id := rosetta_g_miss_num_map(p5_a45);
1163     ddp_ipyv_rec.adjusted_by_id := rosetta_g_miss_num_map(p5_a46);
1164     ddp_ipyv_rec.territory_code := p5_a47;
1165     ddp_ipyv_rec.attribute_category := p5_a48;
1166     ddp_ipyv_rec.attribute1 := p5_a49;
1167     ddp_ipyv_rec.attribute2 := p5_a50;
1168     ddp_ipyv_rec.attribute3 := p5_a51;
1169     ddp_ipyv_rec.attribute4 := p5_a52;
1170     ddp_ipyv_rec.attribute5 := p5_a53;
1171     ddp_ipyv_rec.attribute6 := p5_a54;
1172     ddp_ipyv_rec.attribute7 := p5_a55;
1173     ddp_ipyv_rec.attribute8 := p5_a56;
1174     ddp_ipyv_rec.attribute9 := p5_a57;
1175     ddp_ipyv_rec.attribute10 := p5_a58;
1176     ddp_ipyv_rec.attribute11 := p5_a59;
1177     ddp_ipyv_rec.attribute12 := p5_a60;
1178     ddp_ipyv_rec.attribute13 := p5_a61;
1179     ddp_ipyv_rec.attribute14 := p5_a62;
1180     ddp_ipyv_rec.attribute15 := p5_a63;
1181     ddp_ipyv_rec.program_id := rosetta_g_miss_num_map(p5_a64);
1182     ddp_ipyv_rec.org_id := rosetta_g_miss_num_map(p5_a65);
1183     ddp_ipyv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a66);
1184     ddp_ipyv_rec.program_application_id := rosetta_g_miss_num_map(p5_a67);
1185     ddp_ipyv_rec.request_id := rosetta_g_miss_num_map(p5_a68);
1186     ddp_ipyv_rec.object_version_number := rosetta_g_miss_num_map(p5_a69);
1187     ddp_ipyv_rec.created_by := rosetta_g_miss_num_map(p5_a70);
1188     ddp_ipyv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a71);
1189     ddp_ipyv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a72);
1190     ddp_ipyv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a73);
1191     ddp_ipyv_rec.last_update_login := rosetta_g_miss_num_map(p5_a74);
1192     ddp_ipyv_rec.lease_application_id := rosetta_g_miss_num_map(p5_a75);
1193 
1194 
1195 
1196     -- here's the delegated call to the old PL/SQL routine
1197     okl_ins_quote_pub.calc_optional_premium(p_api_version,
1198       p_init_msg_list,
1199       x_return_status,
1200       x_msg_count,
1201       x_msg_data,
1202       ddp_ipyv_rec,
1203       x_message,
1204       ddx_ipyv_rec);
1205 
1206     -- copy data back from the local variables to OUT or IN-OUT args, if any
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214     p7_a0 := rosetta_g_miss_num_map(ddx_ipyv_rec.id);
1215     p7_a1 := ddx_ipyv_rec.ipy_type;
1216     p7_a2 := ddx_ipyv_rec.description;
1217     p7_a3 := ddx_ipyv_rec.endorsement;
1218     p7_a4 := ddx_ipyv_rec.sfwt_flag;
1219     p7_a5 := ddx_ipyv_rec.cancellation_comment;
1220     p7_a6 := ddx_ipyv_rec.comments;
1221     p7_a7 := ddx_ipyv_rec.name_of_insured;
1222     p7_a8 := ddx_ipyv_rec.policy_number;
1223     p7_a9 := rosetta_g_miss_num_map(ddx_ipyv_rec.calculated_premium);
1224     p7_a10 := rosetta_g_miss_num_map(ddx_ipyv_rec.premium);
1225     p7_a11 := rosetta_g_miss_num_map(ddx_ipyv_rec.covered_amount);
1226     p7_a12 := rosetta_g_miss_num_map(ddx_ipyv_rec.deductible);
1227     p7_a13 := rosetta_g_miss_num_map(ddx_ipyv_rec.adjustment);
1228     p7_a14 := ddx_ipyv_rec.payment_frequency;
1229     p7_a15 := ddx_ipyv_rec.crx_code;
1230     p7_a16 := ddx_ipyv_rec.ipf_code;
1231     p7_a17 := ddx_ipyv_rec.iss_code;
1232     p7_a18 := ddx_ipyv_rec.ipe_code;
1233     p7_a19 := ddx_ipyv_rec.date_to;
1234     p7_a20 := ddx_ipyv_rec.date_from;
1235     p7_a21 := ddx_ipyv_rec.date_quoted;
1236     p7_a22 := ddx_ipyv_rec.date_proof_provided;
1237     p7_a23 := ddx_ipyv_rec.date_proof_required;
1238     p7_a24 := ddx_ipyv_rec.cancellation_date;
1239     p7_a25 := ddx_ipyv_rec.date_quote_expiry;
1240     p7_a26 := ddx_ipyv_rec.activation_date;
1241     p7_a27 := ddx_ipyv_rec.quote_yn;
1242     p7_a28 := ddx_ipyv_rec.on_file_yn;
1243     p7_a29 := ddx_ipyv_rec.private_label_yn;
1244     p7_a30 := ddx_ipyv_rec.agent_yn;
1245     p7_a31 := ddx_ipyv_rec.lessor_insured_yn;
1246     p7_a32 := ddx_ipyv_rec.lessor_payee_yn;
1247     p7_a33 := rosetta_g_miss_num_map(ddx_ipyv_rec.khr_id);
1248     p7_a34 := rosetta_g_miss_num_map(ddx_ipyv_rec.kle_id);
1249     p7_a35 := rosetta_g_miss_num_map(ddx_ipyv_rec.ipt_id);
1250     p7_a36 := rosetta_g_miss_num_map(ddx_ipyv_rec.ipy_id);
1251     p7_a37 := rosetta_g_miss_num_map(ddx_ipyv_rec.int_id);
1252     p7_a38 := rosetta_g_miss_num_map(ddx_ipyv_rec.isu_id);
1253     p7_a39 := ddx_ipyv_rec.insurance_factor;
1254     p7_a40 := ddx_ipyv_rec.factor_code;
1255     p7_a41 := rosetta_g_miss_num_map(ddx_ipyv_rec.factor_value);
1256     p7_a42 := ddx_ipyv_rec.agency_number;
1257     p7_a43 := rosetta_g_miss_num_map(ddx_ipyv_rec.agency_site_id);
1258     p7_a44 := rosetta_g_miss_num_map(ddx_ipyv_rec.sales_rep_id);
1259     p7_a45 := rosetta_g_miss_num_map(ddx_ipyv_rec.agent_site_id);
1260     p7_a46 := rosetta_g_miss_num_map(ddx_ipyv_rec.adjusted_by_id);
1261     p7_a47 := ddx_ipyv_rec.territory_code;
1262     p7_a48 := ddx_ipyv_rec.attribute_category;
1263     p7_a49 := ddx_ipyv_rec.attribute1;
1264     p7_a50 := ddx_ipyv_rec.attribute2;
1265     p7_a51 := ddx_ipyv_rec.attribute3;
1266     p7_a52 := ddx_ipyv_rec.attribute4;
1267     p7_a53 := ddx_ipyv_rec.attribute5;
1268     p7_a54 := ddx_ipyv_rec.attribute6;
1269     p7_a55 := ddx_ipyv_rec.attribute7;
1270     p7_a56 := ddx_ipyv_rec.attribute8;
1271     p7_a57 := ddx_ipyv_rec.attribute9;
1272     p7_a58 := ddx_ipyv_rec.attribute10;
1273     p7_a59 := ddx_ipyv_rec.attribute11;
1274     p7_a60 := ddx_ipyv_rec.attribute12;
1275     p7_a61 := ddx_ipyv_rec.attribute13;
1276     p7_a62 := ddx_ipyv_rec.attribute14;
1277     p7_a63 := ddx_ipyv_rec.attribute15;
1278     p7_a64 := rosetta_g_miss_num_map(ddx_ipyv_rec.program_id);
1279     p7_a65 := rosetta_g_miss_num_map(ddx_ipyv_rec.org_id);
1280     p7_a66 := ddx_ipyv_rec.program_update_date;
1281     p7_a67 := rosetta_g_miss_num_map(ddx_ipyv_rec.program_application_id);
1282     p7_a68 := rosetta_g_miss_num_map(ddx_ipyv_rec.request_id);
1283     p7_a69 := rosetta_g_miss_num_map(ddx_ipyv_rec.object_version_number);
1284     p7_a70 := rosetta_g_miss_num_map(ddx_ipyv_rec.created_by);
1285     p7_a71 := ddx_ipyv_rec.creation_date;
1286     p7_a72 := rosetta_g_miss_num_map(ddx_ipyv_rec.last_updated_by);
1287     p7_a73 := ddx_ipyv_rec.last_update_date;
1288     p7_a74 := rosetta_g_miss_num_map(ddx_ipyv_rec.last_update_login);
1289     p7_a75 := rosetta_g_miss_num_map(ddx_ipyv_rec.lease_application_id);
1290   end;
1291 
1292   procedure activate_ins_stream(p_api_version  NUMBER
1293     , p_init_msg_list  VARCHAR2
1294     , x_return_status out nocopy  VARCHAR2
1295     , x_msg_count out nocopy  NUMBER
1296     , x_msg_data out nocopy  VARCHAR2
1297     , p5_a0  NUMBER := 0-1962.0724
1298     , p5_a1  VARCHAR2 := fnd_api.g_miss_char
1299     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
1300     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
1301     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
1302     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
1303     , p5_a6  VARCHAR2 := fnd_api.g_miss_char
1304     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
1305     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
1306     , p5_a9  NUMBER := 0-1962.0724
1307     , p5_a10  NUMBER := 0-1962.0724
1308     , p5_a11  NUMBER := 0-1962.0724
1309     , p5_a12  NUMBER := 0-1962.0724
1310     , p5_a13  NUMBER := 0-1962.0724
1311     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
1312     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
1313     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
1314     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
1315     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
1316     , p5_a19  DATE := fnd_api.g_miss_date
1317     , p5_a20  DATE := fnd_api.g_miss_date
1318     , p5_a21  DATE := fnd_api.g_miss_date
1319     , p5_a22  DATE := fnd_api.g_miss_date
1320     , p5_a23  DATE := fnd_api.g_miss_date
1321     , p5_a24  DATE := fnd_api.g_miss_date
1322     , p5_a25  DATE := fnd_api.g_miss_date
1323     , p5_a26  DATE := fnd_api.g_miss_date
1324     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
1325     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
1326     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
1327     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
1328     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
1329     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
1330     , p5_a33  NUMBER := 0-1962.0724
1331     , p5_a34  NUMBER := 0-1962.0724
1332     , p5_a35  NUMBER := 0-1962.0724
1333     , p5_a36  NUMBER := 0-1962.0724
1334     , p5_a37  NUMBER := 0-1962.0724
1335     , p5_a38  NUMBER := 0-1962.0724
1336     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
1337     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
1338     , p5_a41  NUMBER := 0-1962.0724
1339     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
1340     , p5_a43  NUMBER := 0-1962.0724
1341     , p5_a44  NUMBER := 0-1962.0724
1342     , p5_a45  NUMBER := 0-1962.0724
1343     , p5_a46  NUMBER := 0-1962.0724
1344     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
1345     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
1346     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
1347     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
1348     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
1349     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
1350     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
1351     , p5_a54  VARCHAR2 := fnd_api.g_miss_char
1352     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
1353     , p5_a56  VARCHAR2 := fnd_api.g_miss_char
1354     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
1355     , p5_a58  VARCHAR2 := fnd_api.g_miss_char
1356     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
1357     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
1358     , p5_a61  VARCHAR2 := fnd_api.g_miss_char
1359     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
1360     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
1361     , p5_a64  NUMBER := 0-1962.0724
1362     , p5_a65  NUMBER := 0-1962.0724
1363     , p5_a66  DATE := fnd_api.g_miss_date
1364     , p5_a67  NUMBER := 0-1962.0724
1365     , p5_a68  NUMBER := 0-1962.0724
1366     , p5_a69  NUMBER := 0-1962.0724
1367     , p5_a70  NUMBER := 0-1962.0724
1368     , p5_a71  DATE := fnd_api.g_miss_date
1369     , p5_a72  NUMBER := 0-1962.0724
1370     , p5_a73  DATE := fnd_api.g_miss_date
1371     , p5_a74  NUMBER := 0-1962.0724
1372     , p5_a75  NUMBER := 0-1962.0724
1373   )
1374 
1375   as
1376     ddp_ipyv_rec okl_ins_quote_pub.ipyv_rec_type;
1377     ddindx binary_integer; indx binary_integer;
1378   begin
1379 
1380     -- copy data to the local IN or IN-OUT args, if any
1381 
1382 
1383 
1384 
1385 
1386     ddp_ipyv_rec.id := rosetta_g_miss_num_map(p5_a0);
1387     ddp_ipyv_rec.ipy_type := p5_a1;
1388     ddp_ipyv_rec.description := p5_a2;
1389     ddp_ipyv_rec.endorsement := p5_a3;
1390     ddp_ipyv_rec.sfwt_flag := p5_a4;
1391     ddp_ipyv_rec.cancellation_comment := p5_a5;
1392     ddp_ipyv_rec.comments := p5_a6;
1393     ddp_ipyv_rec.name_of_insured := p5_a7;
1394     ddp_ipyv_rec.policy_number := p5_a8;
1395     ddp_ipyv_rec.calculated_premium := rosetta_g_miss_num_map(p5_a9);
1396     ddp_ipyv_rec.premium := rosetta_g_miss_num_map(p5_a10);
1397     ddp_ipyv_rec.covered_amount := rosetta_g_miss_num_map(p5_a11);
1398     ddp_ipyv_rec.deductible := rosetta_g_miss_num_map(p5_a12);
1399     ddp_ipyv_rec.adjustment := rosetta_g_miss_num_map(p5_a13);
1400     ddp_ipyv_rec.payment_frequency := p5_a14;
1401     ddp_ipyv_rec.crx_code := p5_a15;
1402     ddp_ipyv_rec.ipf_code := p5_a16;
1403     ddp_ipyv_rec.iss_code := p5_a17;
1404     ddp_ipyv_rec.ipe_code := p5_a18;
1405     ddp_ipyv_rec.date_to := rosetta_g_miss_date_in_map(p5_a19);
1406     ddp_ipyv_rec.date_from := rosetta_g_miss_date_in_map(p5_a20);
1407     ddp_ipyv_rec.date_quoted := rosetta_g_miss_date_in_map(p5_a21);
1408     ddp_ipyv_rec.date_proof_provided := rosetta_g_miss_date_in_map(p5_a22);
1409     ddp_ipyv_rec.date_proof_required := rosetta_g_miss_date_in_map(p5_a23);
1410     ddp_ipyv_rec.cancellation_date := rosetta_g_miss_date_in_map(p5_a24);
1411     ddp_ipyv_rec.date_quote_expiry := rosetta_g_miss_date_in_map(p5_a25);
1412     ddp_ipyv_rec.activation_date := rosetta_g_miss_date_in_map(p5_a26);
1413     ddp_ipyv_rec.quote_yn := p5_a27;
1414     ddp_ipyv_rec.on_file_yn := p5_a28;
1415     ddp_ipyv_rec.private_label_yn := p5_a29;
1416     ddp_ipyv_rec.agent_yn := p5_a30;
1417     ddp_ipyv_rec.lessor_insured_yn := p5_a31;
1418     ddp_ipyv_rec.lessor_payee_yn := p5_a32;
1419     ddp_ipyv_rec.khr_id := rosetta_g_miss_num_map(p5_a33);
1420     ddp_ipyv_rec.kle_id := rosetta_g_miss_num_map(p5_a34);
1421     ddp_ipyv_rec.ipt_id := rosetta_g_miss_num_map(p5_a35);
1422     ddp_ipyv_rec.ipy_id := rosetta_g_miss_num_map(p5_a36);
1423     ddp_ipyv_rec.int_id := rosetta_g_miss_num_map(p5_a37);
1424     ddp_ipyv_rec.isu_id := rosetta_g_miss_num_map(p5_a38);
1425     ddp_ipyv_rec.insurance_factor := p5_a39;
1426     ddp_ipyv_rec.factor_code := p5_a40;
1427     ddp_ipyv_rec.factor_value := rosetta_g_miss_num_map(p5_a41);
1428     ddp_ipyv_rec.agency_number := p5_a42;
1429     ddp_ipyv_rec.agency_site_id := rosetta_g_miss_num_map(p5_a43);
1430     ddp_ipyv_rec.sales_rep_id := rosetta_g_miss_num_map(p5_a44);
1431     ddp_ipyv_rec.agent_site_id := rosetta_g_miss_num_map(p5_a45);
1432     ddp_ipyv_rec.adjusted_by_id := rosetta_g_miss_num_map(p5_a46);
1433     ddp_ipyv_rec.territory_code := p5_a47;
1434     ddp_ipyv_rec.attribute_category := p5_a48;
1435     ddp_ipyv_rec.attribute1 := p5_a49;
1436     ddp_ipyv_rec.attribute2 := p5_a50;
1437     ddp_ipyv_rec.attribute3 := p5_a51;
1438     ddp_ipyv_rec.attribute4 := p5_a52;
1439     ddp_ipyv_rec.attribute5 := p5_a53;
1440     ddp_ipyv_rec.attribute6 := p5_a54;
1441     ddp_ipyv_rec.attribute7 := p5_a55;
1442     ddp_ipyv_rec.attribute8 := p5_a56;
1443     ddp_ipyv_rec.attribute9 := p5_a57;
1444     ddp_ipyv_rec.attribute10 := p5_a58;
1445     ddp_ipyv_rec.attribute11 := p5_a59;
1446     ddp_ipyv_rec.attribute12 := p5_a60;
1447     ddp_ipyv_rec.attribute13 := p5_a61;
1448     ddp_ipyv_rec.attribute14 := p5_a62;
1449     ddp_ipyv_rec.attribute15 := p5_a63;
1450     ddp_ipyv_rec.program_id := rosetta_g_miss_num_map(p5_a64);
1451     ddp_ipyv_rec.org_id := rosetta_g_miss_num_map(p5_a65);
1452     ddp_ipyv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a66);
1453     ddp_ipyv_rec.program_application_id := rosetta_g_miss_num_map(p5_a67);
1454     ddp_ipyv_rec.request_id := rosetta_g_miss_num_map(p5_a68);
1455     ddp_ipyv_rec.object_version_number := rosetta_g_miss_num_map(p5_a69);
1456     ddp_ipyv_rec.created_by := rosetta_g_miss_num_map(p5_a70);
1457     ddp_ipyv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a71);
1458     ddp_ipyv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a72);
1459     ddp_ipyv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a73);
1460     ddp_ipyv_rec.last_update_login := rosetta_g_miss_num_map(p5_a74);
1461     ddp_ipyv_rec.lease_application_id := rosetta_g_miss_num_map(p5_a75);
1462 
1463     -- here's the delegated call to the old PL/SQL routine
1464     okl_ins_quote_pub.activate_ins_stream(p_api_version,
1465       p_init_msg_list,
1466       x_return_status,
1467       x_msg_count,
1468       x_msg_data,
1469       ddp_ipyv_rec);
1470 
1471     -- copy data back from the local variables to OUT or IN-OUT args, if any
1472 
1473 
1474 
1475 
1476 
1477   end;
1478 
1479   procedure create_third_prt_ins(p_api_version  NUMBER
1480     , p_init_msg_list  VARCHAR2
1481     , x_return_status out nocopy  VARCHAR2
1482     , x_msg_count out nocopy  NUMBER
1483     , x_msg_data out nocopy  VARCHAR2
1484     , p6_a0 out nocopy  NUMBER
1485     , p6_a1 out nocopy  VARCHAR2
1486     , p6_a2 out nocopy  VARCHAR2
1487     , p6_a3 out nocopy  VARCHAR2
1488     , p6_a4 out nocopy  VARCHAR2
1489     , p6_a5 out nocopy  VARCHAR2
1490     , p6_a6 out nocopy  VARCHAR2
1491     , p6_a7 out nocopy  VARCHAR2
1492     , p6_a8 out nocopy  VARCHAR2
1493     , p6_a9 out nocopy  NUMBER
1494     , p6_a10 out nocopy  NUMBER
1495     , p6_a11 out nocopy  NUMBER
1496     , p6_a12 out nocopy  NUMBER
1497     , p6_a13 out nocopy  NUMBER
1498     , p6_a14 out nocopy  VARCHAR2
1499     , p6_a15 out nocopy  VARCHAR2
1500     , p6_a16 out nocopy  VARCHAR2
1501     , p6_a17 out nocopy  VARCHAR2
1502     , p6_a18 out nocopy  VARCHAR2
1503     , p6_a19 out nocopy  DATE
1504     , p6_a20 out nocopy  DATE
1505     , p6_a21 out nocopy  DATE
1506     , p6_a22 out nocopy  DATE
1507     , p6_a23 out nocopy  DATE
1508     , p6_a24 out nocopy  DATE
1509     , p6_a25 out nocopy  DATE
1510     , p6_a26 out nocopy  DATE
1511     , p6_a27 out nocopy  VARCHAR2
1512     , p6_a28 out nocopy  VARCHAR2
1513     , p6_a29 out nocopy  VARCHAR2
1514     , p6_a30 out nocopy  VARCHAR2
1515     , p6_a31 out nocopy  VARCHAR2
1516     , p6_a32 out nocopy  VARCHAR2
1517     , p6_a33 out nocopy  NUMBER
1518     , p6_a34 out nocopy  NUMBER
1519     , p6_a35 out nocopy  NUMBER
1520     , p6_a36 out nocopy  NUMBER
1521     , p6_a37 out nocopy  NUMBER
1522     , p6_a38 out nocopy  NUMBER
1523     , p6_a39 out nocopy  VARCHAR2
1524     , p6_a40 out nocopy  VARCHAR2
1525     , p6_a41 out nocopy  NUMBER
1526     , p6_a42 out nocopy  VARCHAR2
1527     , p6_a43 out nocopy  NUMBER
1528     , p6_a44 out nocopy  NUMBER
1529     , p6_a45 out nocopy  NUMBER
1530     , p6_a46 out nocopy  NUMBER
1531     , p6_a47 out nocopy  VARCHAR2
1532     , p6_a48 out nocopy  VARCHAR2
1533     , p6_a49 out nocopy  VARCHAR2
1534     , p6_a50 out nocopy  VARCHAR2
1535     , p6_a51 out nocopy  VARCHAR2
1536     , p6_a52 out nocopy  VARCHAR2
1537     , p6_a53 out nocopy  VARCHAR2
1538     , p6_a54 out nocopy  VARCHAR2
1539     , p6_a55 out nocopy  VARCHAR2
1540     , p6_a56 out nocopy  VARCHAR2
1541     , p6_a57 out nocopy  VARCHAR2
1542     , p6_a58 out nocopy  VARCHAR2
1543     , p6_a59 out nocopy  VARCHAR2
1544     , p6_a60 out nocopy  VARCHAR2
1545     , p6_a61 out nocopy  VARCHAR2
1546     , p6_a62 out nocopy  VARCHAR2
1547     , p6_a63 out nocopy  VARCHAR2
1548     , p6_a64 out nocopy  NUMBER
1549     , p6_a65 out nocopy  NUMBER
1550     , p6_a66 out nocopy  DATE
1551     , p6_a67 out nocopy  NUMBER
1552     , p6_a68 out nocopy  NUMBER
1553     , p6_a69 out nocopy  NUMBER
1554     , p6_a70 out nocopy  NUMBER
1555     , p6_a71 out nocopy  DATE
1556     , p6_a72 out nocopy  NUMBER
1557     , p6_a73 out nocopy  DATE
1558     , p6_a74 out nocopy  NUMBER
1559     , p6_a75 out nocopy  NUMBER
1560     , p5_a0  NUMBER := 0-1962.0724
1561     , p5_a1  VARCHAR2 := fnd_api.g_miss_char
1562     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
1563     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
1564     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
1565     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
1566     , p5_a6  VARCHAR2 := fnd_api.g_miss_char
1567     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
1568     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
1569     , p5_a9  NUMBER := 0-1962.0724
1570     , p5_a10  NUMBER := 0-1962.0724
1571     , p5_a11  NUMBER := 0-1962.0724
1572     , p5_a12  NUMBER := 0-1962.0724
1573     , p5_a13  NUMBER := 0-1962.0724
1574     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
1575     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
1576     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
1577     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
1578     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
1579     , p5_a19  DATE := fnd_api.g_miss_date
1580     , p5_a20  DATE := fnd_api.g_miss_date
1581     , p5_a21  DATE := fnd_api.g_miss_date
1582     , p5_a22  DATE := fnd_api.g_miss_date
1583     , p5_a23  DATE := fnd_api.g_miss_date
1584     , p5_a24  DATE := fnd_api.g_miss_date
1585     , p5_a25  DATE := fnd_api.g_miss_date
1586     , p5_a26  DATE := fnd_api.g_miss_date
1587     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
1588     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
1589     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
1590     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
1591     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
1592     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
1593     , p5_a33  NUMBER := 0-1962.0724
1594     , p5_a34  NUMBER := 0-1962.0724
1595     , p5_a35  NUMBER := 0-1962.0724
1596     , p5_a36  NUMBER := 0-1962.0724
1597     , p5_a37  NUMBER := 0-1962.0724
1598     , p5_a38  NUMBER := 0-1962.0724
1599     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
1600     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
1601     , p5_a41  NUMBER := 0-1962.0724
1602     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
1603     , p5_a43  NUMBER := 0-1962.0724
1604     , p5_a44  NUMBER := 0-1962.0724
1605     , p5_a45  NUMBER := 0-1962.0724
1606     , p5_a46  NUMBER := 0-1962.0724
1607     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
1608     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
1609     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
1610     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
1611     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
1612     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
1613     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
1614     , p5_a54  VARCHAR2 := fnd_api.g_miss_char
1615     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
1616     , p5_a56  VARCHAR2 := fnd_api.g_miss_char
1617     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
1618     , p5_a58  VARCHAR2 := fnd_api.g_miss_char
1619     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
1620     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
1621     , p5_a61  VARCHAR2 := fnd_api.g_miss_char
1622     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
1623     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
1624     , p5_a64  NUMBER := 0-1962.0724
1625     , p5_a65  NUMBER := 0-1962.0724
1626     , p5_a66  DATE := fnd_api.g_miss_date
1627     , p5_a67  NUMBER := 0-1962.0724
1628     , p5_a68  NUMBER := 0-1962.0724
1629     , p5_a69  NUMBER := 0-1962.0724
1630     , p5_a70  NUMBER := 0-1962.0724
1631     , p5_a71  DATE := fnd_api.g_miss_date
1632     , p5_a72  NUMBER := 0-1962.0724
1633     , p5_a73  DATE := fnd_api.g_miss_date
1634     , p5_a74  NUMBER := 0-1962.0724
1635     , p5_a75  NUMBER := 0-1962.0724
1636   )
1637 
1638   as
1639     ddp_ipyv_rec okl_ins_quote_pub.ipyv_rec_type;
1640     ddx_ipyv_rec okl_ins_quote_pub.ipyv_rec_type;
1641     ddindx binary_integer; indx binary_integer;
1642   begin
1643 
1644     -- copy data to the local IN or IN-OUT args, if any
1645 
1646 
1647 
1648 
1649 
1650     ddp_ipyv_rec.id := rosetta_g_miss_num_map(p5_a0);
1651     ddp_ipyv_rec.ipy_type := p5_a1;
1652     ddp_ipyv_rec.description := p5_a2;
1653     ddp_ipyv_rec.endorsement := p5_a3;
1654     ddp_ipyv_rec.sfwt_flag := p5_a4;
1655     ddp_ipyv_rec.cancellation_comment := p5_a5;
1656     ddp_ipyv_rec.comments := p5_a6;
1657     ddp_ipyv_rec.name_of_insured := p5_a7;
1658     ddp_ipyv_rec.policy_number := p5_a8;
1659     ddp_ipyv_rec.calculated_premium := rosetta_g_miss_num_map(p5_a9);
1660     ddp_ipyv_rec.premium := rosetta_g_miss_num_map(p5_a10);
1661     ddp_ipyv_rec.covered_amount := rosetta_g_miss_num_map(p5_a11);
1662     ddp_ipyv_rec.deductible := rosetta_g_miss_num_map(p5_a12);
1663     ddp_ipyv_rec.adjustment := rosetta_g_miss_num_map(p5_a13);
1664     ddp_ipyv_rec.payment_frequency := p5_a14;
1665     ddp_ipyv_rec.crx_code := p5_a15;
1666     ddp_ipyv_rec.ipf_code := p5_a16;
1667     ddp_ipyv_rec.iss_code := p5_a17;
1668     ddp_ipyv_rec.ipe_code := p5_a18;
1669     ddp_ipyv_rec.date_to := rosetta_g_miss_date_in_map(p5_a19);
1670     ddp_ipyv_rec.date_from := rosetta_g_miss_date_in_map(p5_a20);
1671     ddp_ipyv_rec.date_quoted := rosetta_g_miss_date_in_map(p5_a21);
1672     ddp_ipyv_rec.date_proof_provided := rosetta_g_miss_date_in_map(p5_a22);
1673     ddp_ipyv_rec.date_proof_required := rosetta_g_miss_date_in_map(p5_a23);
1674     ddp_ipyv_rec.cancellation_date := rosetta_g_miss_date_in_map(p5_a24);
1675     ddp_ipyv_rec.date_quote_expiry := rosetta_g_miss_date_in_map(p5_a25);
1676     ddp_ipyv_rec.activation_date := rosetta_g_miss_date_in_map(p5_a26);
1677     ddp_ipyv_rec.quote_yn := p5_a27;
1678     ddp_ipyv_rec.on_file_yn := p5_a28;
1679     ddp_ipyv_rec.private_label_yn := p5_a29;
1680     ddp_ipyv_rec.agent_yn := p5_a30;
1681     ddp_ipyv_rec.lessor_insured_yn := p5_a31;
1682     ddp_ipyv_rec.lessor_payee_yn := p5_a32;
1683     ddp_ipyv_rec.khr_id := rosetta_g_miss_num_map(p5_a33);
1684     ddp_ipyv_rec.kle_id := rosetta_g_miss_num_map(p5_a34);
1685     ddp_ipyv_rec.ipt_id := rosetta_g_miss_num_map(p5_a35);
1686     ddp_ipyv_rec.ipy_id := rosetta_g_miss_num_map(p5_a36);
1687     ddp_ipyv_rec.int_id := rosetta_g_miss_num_map(p5_a37);
1688     ddp_ipyv_rec.isu_id := rosetta_g_miss_num_map(p5_a38);
1689     ddp_ipyv_rec.insurance_factor := p5_a39;
1690     ddp_ipyv_rec.factor_code := p5_a40;
1691     ddp_ipyv_rec.factor_value := rosetta_g_miss_num_map(p5_a41);
1692     ddp_ipyv_rec.agency_number := p5_a42;
1693     ddp_ipyv_rec.agency_site_id := rosetta_g_miss_num_map(p5_a43);
1694     ddp_ipyv_rec.sales_rep_id := rosetta_g_miss_num_map(p5_a44);
1695     ddp_ipyv_rec.agent_site_id := rosetta_g_miss_num_map(p5_a45);
1696     ddp_ipyv_rec.adjusted_by_id := rosetta_g_miss_num_map(p5_a46);
1697     ddp_ipyv_rec.territory_code := p5_a47;
1698     ddp_ipyv_rec.attribute_category := p5_a48;
1699     ddp_ipyv_rec.attribute1 := p5_a49;
1700     ddp_ipyv_rec.attribute2 := p5_a50;
1701     ddp_ipyv_rec.attribute3 := p5_a51;
1702     ddp_ipyv_rec.attribute4 := p5_a52;
1703     ddp_ipyv_rec.attribute5 := p5_a53;
1704     ddp_ipyv_rec.attribute6 := p5_a54;
1705     ddp_ipyv_rec.attribute7 := p5_a55;
1706     ddp_ipyv_rec.attribute8 := p5_a56;
1707     ddp_ipyv_rec.attribute9 := p5_a57;
1708     ddp_ipyv_rec.attribute10 := p5_a58;
1709     ddp_ipyv_rec.attribute11 := p5_a59;
1710     ddp_ipyv_rec.attribute12 := p5_a60;
1711     ddp_ipyv_rec.attribute13 := p5_a61;
1712     ddp_ipyv_rec.attribute14 := p5_a62;
1713     ddp_ipyv_rec.attribute15 := p5_a63;
1714     ddp_ipyv_rec.program_id := rosetta_g_miss_num_map(p5_a64);
1715     ddp_ipyv_rec.org_id := rosetta_g_miss_num_map(p5_a65);
1716     ddp_ipyv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a66);
1717     ddp_ipyv_rec.program_application_id := rosetta_g_miss_num_map(p5_a67);
1718     ddp_ipyv_rec.request_id := rosetta_g_miss_num_map(p5_a68);
1719     ddp_ipyv_rec.object_version_number := rosetta_g_miss_num_map(p5_a69);
1720     ddp_ipyv_rec.created_by := rosetta_g_miss_num_map(p5_a70);
1721     ddp_ipyv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a71);
1722     ddp_ipyv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a72);
1723     ddp_ipyv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a73);
1724     ddp_ipyv_rec.last_update_login := rosetta_g_miss_num_map(p5_a74);
1725     ddp_ipyv_rec.lease_application_id := rosetta_g_miss_num_map(p5_a75);
1726 
1727 
1728     -- here's the delegated call to the old PL/SQL routine
1729     okl_ins_quote_pub.create_third_prt_ins(p_api_version,
1730       p_init_msg_list,
1731       x_return_status,
1732       x_msg_count,
1733       x_msg_data,
1734       ddp_ipyv_rec,
1735       ddx_ipyv_rec);
1736 
1737     -- copy data back from the local variables to OUT or IN-OUT args, if any
1738 
1739 
1740 
1741 
1742 
1743 
1744     p6_a0 := rosetta_g_miss_num_map(ddx_ipyv_rec.id);
1745     p6_a1 := ddx_ipyv_rec.ipy_type;
1746     p6_a2 := ddx_ipyv_rec.description;
1747     p6_a3 := ddx_ipyv_rec.endorsement;
1748     p6_a4 := ddx_ipyv_rec.sfwt_flag;
1749     p6_a5 := ddx_ipyv_rec.cancellation_comment;
1750     p6_a6 := ddx_ipyv_rec.comments;
1751     p6_a7 := ddx_ipyv_rec.name_of_insured;
1752     p6_a8 := ddx_ipyv_rec.policy_number;
1753     p6_a9 := rosetta_g_miss_num_map(ddx_ipyv_rec.calculated_premium);
1754     p6_a10 := rosetta_g_miss_num_map(ddx_ipyv_rec.premium);
1755     p6_a11 := rosetta_g_miss_num_map(ddx_ipyv_rec.covered_amount);
1756     p6_a12 := rosetta_g_miss_num_map(ddx_ipyv_rec.deductible);
1757     p6_a13 := rosetta_g_miss_num_map(ddx_ipyv_rec.adjustment);
1758     p6_a14 := ddx_ipyv_rec.payment_frequency;
1759     p6_a15 := ddx_ipyv_rec.crx_code;
1760     p6_a16 := ddx_ipyv_rec.ipf_code;
1761     p6_a17 := ddx_ipyv_rec.iss_code;
1762     p6_a18 := ddx_ipyv_rec.ipe_code;
1763     p6_a19 := ddx_ipyv_rec.date_to;
1764     p6_a20 := ddx_ipyv_rec.date_from;
1765     p6_a21 := ddx_ipyv_rec.date_quoted;
1766     p6_a22 := ddx_ipyv_rec.date_proof_provided;
1767     p6_a23 := ddx_ipyv_rec.date_proof_required;
1768     p6_a24 := ddx_ipyv_rec.cancellation_date;
1769     p6_a25 := ddx_ipyv_rec.date_quote_expiry;
1770     p6_a26 := ddx_ipyv_rec.activation_date;
1771     p6_a27 := ddx_ipyv_rec.quote_yn;
1772     p6_a28 := ddx_ipyv_rec.on_file_yn;
1773     p6_a29 := ddx_ipyv_rec.private_label_yn;
1774     p6_a30 := ddx_ipyv_rec.agent_yn;
1775     p6_a31 := ddx_ipyv_rec.lessor_insured_yn;
1776     p6_a32 := ddx_ipyv_rec.lessor_payee_yn;
1777     p6_a33 := rosetta_g_miss_num_map(ddx_ipyv_rec.khr_id);
1778     p6_a34 := rosetta_g_miss_num_map(ddx_ipyv_rec.kle_id);
1779     p6_a35 := rosetta_g_miss_num_map(ddx_ipyv_rec.ipt_id);
1780     p6_a36 := rosetta_g_miss_num_map(ddx_ipyv_rec.ipy_id);
1781     p6_a37 := rosetta_g_miss_num_map(ddx_ipyv_rec.int_id);
1782     p6_a38 := rosetta_g_miss_num_map(ddx_ipyv_rec.isu_id);
1783     p6_a39 := ddx_ipyv_rec.insurance_factor;
1784     p6_a40 := ddx_ipyv_rec.factor_code;
1785     p6_a41 := rosetta_g_miss_num_map(ddx_ipyv_rec.factor_value);
1786     p6_a42 := ddx_ipyv_rec.agency_number;
1787     p6_a43 := rosetta_g_miss_num_map(ddx_ipyv_rec.agency_site_id);
1788     p6_a44 := rosetta_g_miss_num_map(ddx_ipyv_rec.sales_rep_id);
1789     p6_a45 := rosetta_g_miss_num_map(ddx_ipyv_rec.agent_site_id);
1790     p6_a46 := rosetta_g_miss_num_map(ddx_ipyv_rec.adjusted_by_id);
1791     p6_a47 := ddx_ipyv_rec.territory_code;
1792     p6_a48 := ddx_ipyv_rec.attribute_category;
1793     p6_a49 := ddx_ipyv_rec.attribute1;
1794     p6_a50 := ddx_ipyv_rec.attribute2;
1795     p6_a51 := ddx_ipyv_rec.attribute3;
1796     p6_a52 := ddx_ipyv_rec.attribute4;
1797     p6_a53 := ddx_ipyv_rec.attribute5;
1798     p6_a54 := ddx_ipyv_rec.attribute6;
1799     p6_a55 := ddx_ipyv_rec.attribute7;
1800     p6_a56 := ddx_ipyv_rec.attribute8;
1801     p6_a57 := ddx_ipyv_rec.attribute9;
1802     p6_a58 := ddx_ipyv_rec.attribute10;
1803     p6_a59 := ddx_ipyv_rec.attribute11;
1804     p6_a60 := ddx_ipyv_rec.attribute12;
1805     p6_a61 := ddx_ipyv_rec.attribute13;
1806     p6_a62 := ddx_ipyv_rec.attribute14;
1807     p6_a63 := ddx_ipyv_rec.attribute15;
1808     p6_a64 := rosetta_g_miss_num_map(ddx_ipyv_rec.program_id);
1809     p6_a65 := rosetta_g_miss_num_map(ddx_ipyv_rec.org_id);
1810     p6_a66 := ddx_ipyv_rec.program_update_date;
1811     p6_a67 := rosetta_g_miss_num_map(ddx_ipyv_rec.program_application_id);
1812     p6_a68 := rosetta_g_miss_num_map(ddx_ipyv_rec.request_id);
1813     p6_a69 := rosetta_g_miss_num_map(ddx_ipyv_rec.object_version_number);
1814     p6_a70 := rosetta_g_miss_num_map(ddx_ipyv_rec.created_by);
1815     p6_a71 := ddx_ipyv_rec.creation_date;
1816     p6_a72 := rosetta_g_miss_num_map(ddx_ipyv_rec.last_updated_by);
1817     p6_a73 := ddx_ipyv_rec.last_update_date;
1818     p6_a74 := rosetta_g_miss_num_map(ddx_ipyv_rec.last_update_login);
1819     p6_a75 := rosetta_g_miss_num_map(ddx_ipyv_rec.lease_application_id);
1820   end;
1821 
1822   procedure crt_lseapp_thrdprt_ins(p_api_version  NUMBER
1823     , p_init_msg_list  VARCHAR2
1824     , x_return_status out nocopy  VARCHAR2
1825     , x_msg_count out nocopy  NUMBER
1826     , x_msg_data out nocopy  VARCHAR2
1827     , p6_a0 out nocopy  NUMBER
1828     , p6_a1 out nocopy  VARCHAR2
1829     , p6_a2 out nocopy  VARCHAR2
1830     , p6_a3 out nocopy  VARCHAR2
1831     , p6_a4 out nocopy  VARCHAR2
1832     , p6_a5 out nocopy  VARCHAR2
1833     , p6_a6 out nocopy  VARCHAR2
1834     , p6_a7 out nocopy  VARCHAR2
1835     , p6_a8 out nocopy  VARCHAR2
1836     , p6_a9 out nocopy  NUMBER
1837     , p6_a10 out nocopy  NUMBER
1838     , p6_a11 out nocopy  NUMBER
1839     , p6_a12 out nocopy  NUMBER
1840     , p6_a13 out nocopy  NUMBER
1841     , p6_a14 out nocopy  VARCHAR2
1842     , p6_a15 out nocopy  VARCHAR2
1843     , p6_a16 out nocopy  VARCHAR2
1844     , p6_a17 out nocopy  VARCHAR2
1845     , p6_a18 out nocopy  VARCHAR2
1846     , p6_a19 out nocopy  DATE
1847     , p6_a20 out nocopy  DATE
1848     , p6_a21 out nocopy  DATE
1849     , p6_a22 out nocopy  DATE
1850     , p6_a23 out nocopy  DATE
1851     , p6_a24 out nocopy  DATE
1852     , p6_a25 out nocopy  DATE
1853     , p6_a26 out nocopy  DATE
1854     , p6_a27 out nocopy  VARCHAR2
1855     , p6_a28 out nocopy  VARCHAR2
1856     , p6_a29 out nocopy  VARCHAR2
1857     , p6_a30 out nocopy  VARCHAR2
1858     , p6_a31 out nocopy  VARCHAR2
1859     , p6_a32 out nocopy  VARCHAR2
1860     , p6_a33 out nocopy  NUMBER
1861     , p6_a34 out nocopy  NUMBER
1862     , p6_a35 out nocopy  NUMBER
1863     , p6_a36 out nocopy  NUMBER
1864     , p6_a37 out nocopy  NUMBER
1865     , p6_a38 out nocopy  NUMBER
1866     , p6_a39 out nocopy  VARCHAR2
1867     , p6_a40 out nocopy  VARCHAR2
1868     , p6_a41 out nocopy  NUMBER
1869     , p6_a42 out nocopy  VARCHAR2
1870     , p6_a43 out nocopy  NUMBER
1871     , p6_a44 out nocopy  NUMBER
1872     , p6_a45 out nocopy  NUMBER
1873     , p6_a46 out nocopy  NUMBER
1874     , p6_a47 out nocopy  VARCHAR2
1875     , p6_a48 out nocopy  VARCHAR2
1876     , p6_a49 out nocopy  VARCHAR2
1877     , p6_a50 out nocopy  VARCHAR2
1878     , p6_a51 out nocopy  VARCHAR2
1879     , p6_a52 out nocopy  VARCHAR2
1880     , p6_a53 out nocopy  VARCHAR2
1881     , p6_a54 out nocopy  VARCHAR2
1882     , p6_a55 out nocopy  VARCHAR2
1883     , p6_a56 out nocopy  VARCHAR2
1884     , p6_a57 out nocopy  VARCHAR2
1885     , p6_a58 out nocopy  VARCHAR2
1886     , p6_a59 out nocopy  VARCHAR2
1887     , p6_a60 out nocopy  VARCHAR2
1888     , p6_a61 out nocopy  VARCHAR2
1889     , p6_a62 out nocopy  VARCHAR2
1890     , p6_a63 out nocopy  VARCHAR2
1891     , p6_a64 out nocopy  NUMBER
1892     , p6_a65 out nocopy  NUMBER
1893     , p6_a66 out nocopy  DATE
1894     , p6_a67 out nocopy  NUMBER
1895     , p6_a68 out nocopy  NUMBER
1896     , p6_a69 out nocopy  NUMBER
1897     , p6_a70 out nocopy  NUMBER
1898     , p6_a71 out nocopy  DATE
1899     , p6_a72 out nocopy  NUMBER
1900     , p6_a73 out nocopy  DATE
1901     , p6_a74 out nocopy  NUMBER
1902     , p6_a75 out nocopy  NUMBER
1903     , p5_a0  NUMBER := 0-1962.0724
1904     , p5_a1  VARCHAR2 := fnd_api.g_miss_char
1905     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
1906     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
1907     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
1908     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
1909     , p5_a6  VARCHAR2 := fnd_api.g_miss_char
1910     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
1911     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
1912     , p5_a9  NUMBER := 0-1962.0724
1913     , p5_a10  NUMBER := 0-1962.0724
1914     , p5_a11  NUMBER := 0-1962.0724
1915     , p5_a12  NUMBER := 0-1962.0724
1916     , p5_a13  NUMBER := 0-1962.0724
1917     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
1918     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
1919     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
1920     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
1921     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
1922     , p5_a19  DATE := fnd_api.g_miss_date
1923     , p5_a20  DATE := fnd_api.g_miss_date
1924     , p5_a21  DATE := fnd_api.g_miss_date
1925     , p5_a22  DATE := fnd_api.g_miss_date
1926     , p5_a23  DATE := fnd_api.g_miss_date
1927     , p5_a24  DATE := fnd_api.g_miss_date
1928     , p5_a25  DATE := fnd_api.g_miss_date
1929     , p5_a26  DATE := fnd_api.g_miss_date
1930     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
1931     , p5_a28  VARCHAR2 := fnd_api.g_miss_char
1932     , p5_a29  VARCHAR2 := fnd_api.g_miss_char
1933     , p5_a30  VARCHAR2 := fnd_api.g_miss_char
1934     , p5_a31  VARCHAR2 := fnd_api.g_miss_char
1935     , p5_a32  VARCHAR2 := fnd_api.g_miss_char
1936     , p5_a33  NUMBER := 0-1962.0724
1937     , p5_a34  NUMBER := 0-1962.0724
1938     , p5_a35  NUMBER := 0-1962.0724
1939     , p5_a36  NUMBER := 0-1962.0724
1940     , p5_a37  NUMBER := 0-1962.0724
1941     , p5_a38  NUMBER := 0-1962.0724
1942     , p5_a39  VARCHAR2 := fnd_api.g_miss_char
1943     , p5_a40  VARCHAR2 := fnd_api.g_miss_char
1944     , p5_a41  NUMBER := 0-1962.0724
1945     , p5_a42  VARCHAR2 := fnd_api.g_miss_char
1946     , p5_a43  NUMBER := 0-1962.0724
1947     , p5_a44  NUMBER := 0-1962.0724
1948     , p5_a45  NUMBER := 0-1962.0724
1949     , p5_a46  NUMBER := 0-1962.0724
1950     , p5_a47  VARCHAR2 := fnd_api.g_miss_char
1951     , p5_a48  VARCHAR2 := fnd_api.g_miss_char
1952     , p5_a49  VARCHAR2 := fnd_api.g_miss_char
1953     , p5_a50  VARCHAR2 := fnd_api.g_miss_char
1954     , p5_a51  VARCHAR2 := fnd_api.g_miss_char
1955     , p5_a52  VARCHAR2 := fnd_api.g_miss_char
1956     , p5_a53  VARCHAR2 := fnd_api.g_miss_char
1957     , p5_a54  VARCHAR2 := fnd_api.g_miss_char
1958     , p5_a55  VARCHAR2 := fnd_api.g_miss_char
1959     , p5_a56  VARCHAR2 := fnd_api.g_miss_char
1960     , p5_a57  VARCHAR2 := fnd_api.g_miss_char
1961     , p5_a58  VARCHAR2 := fnd_api.g_miss_char
1962     , p5_a59  VARCHAR2 := fnd_api.g_miss_char
1963     , p5_a60  VARCHAR2 := fnd_api.g_miss_char
1964     , p5_a61  VARCHAR2 := fnd_api.g_miss_char
1965     , p5_a62  VARCHAR2 := fnd_api.g_miss_char
1966     , p5_a63  VARCHAR2 := fnd_api.g_miss_char
1967     , p5_a64  NUMBER := 0-1962.0724
1968     , p5_a65  NUMBER := 0-1962.0724
1969     , p5_a66  DATE := fnd_api.g_miss_date
1970     , p5_a67  NUMBER := 0-1962.0724
1971     , p5_a68  NUMBER := 0-1962.0724
1972     , p5_a69  NUMBER := 0-1962.0724
1973     , p5_a70  NUMBER := 0-1962.0724
1974     , p5_a71  DATE := fnd_api.g_miss_date
1975     , p5_a72  NUMBER := 0-1962.0724
1976     , p5_a73  DATE := fnd_api.g_miss_date
1977     , p5_a74  NUMBER := 0-1962.0724
1978     , p5_a75  NUMBER := 0-1962.0724
1979   )
1980 
1981   as
1982     ddp_ipyv_rec okl_ins_quote_pub.ipyv_rec_type;
1983     ddx_ipyv_rec okl_ins_quote_pub.ipyv_rec_type;
1984     ddindx binary_integer; indx binary_integer;
1985   begin
1986 
1987     -- copy data to the local IN or IN-OUT args, if any
1988 
1989 
1990 
1991 
1992 
1993     ddp_ipyv_rec.id := rosetta_g_miss_num_map(p5_a0);
1994     ddp_ipyv_rec.ipy_type := p5_a1;
1995     ddp_ipyv_rec.description := p5_a2;
1996     ddp_ipyv_rec.endorsement := p5_a3;
1997     ddp_ipyv_rec.sfwt_flag := p5_a4;
1998     ddp_ipyv_rec.cancellation_comment := p5_a5;
1999     ddp_ipyv_rec.comments := p5_a6;
2000     ddp_ipyv_rec.name_of_insured := p5_a7;
2001     ddp_ipyv_rec.policy_number := p5_a8;
2002     ddp_ipyv_rec.calculated_premium := rosetta_g_miss_num_map(p5_a9);
2003     ddp_ipyv_rec.premium := rosetta_g_miss_num_map(p5_a10);
2004     ddp_ipyv_rec.covered_amount := rosetta_g_miss_num_map(p5_a11);
2005     ddp_ipyv_rec.deductible := rosetta_g_miss_num_map(p5_a12);
2006     ddp_ipyv_rec.adjustment := rosetta_g_miss_num_map(p5_a13);
2007     ddp_ipyv_rec.payment_frequency := p5_a14;
2008     ddp_ipyv_rec.crx_code := p5_a15;
2009     ddp_ipyv_rec.ipf_code := p5_a16;
2010     ddp_ipyv_rec.iss_code := p5_a17;
2011     ddp_ipyv_rec.ipe_code := p5_a18;
2012     ddp_ipyv_rec.date_to := rosetta_g_miss_date_in_map(p5_a19);
2013     ddp_ipyv_rec.date_from := rosetta_g_miss_date_in_map(p5_a20);
2014     ddp_ipyv_rec.date_quoted := rosetta_g_miss_date_in_map(p5_a21);
2015     ddp_ipyv_rec.date_proof_provided := rosetta_g_miss_date_in_map(p5_a22);
2016     ddp_ipyv_rec.date_proof_required := rosetta_g_miss_date_in_map(p5_a23);
2017     ddp_ipyv_rec.cancellation_date := rosetta_g_miss_date_in_map(p5_a24);
2018     ddp_ipyv_rec.date_quote_expiry := rosetta_g_miss_date_in_map(p5_a25);
2019     ddp_ipyv_rec.activation_date := rosetta_g_miss_date_in_map(p5_a26);
2020     ddp_ipyv_rec.quote_yn := p5_a27;
2021     ddp_ipyv_rec.on_file_yn := p5_a28;
2022     ddp_ipyv_rec.private_label_yn := p5_a29;
2023     ddp_ipyv_rec.agent_yn := p5_a30;
2024     ddp_ipyv_rec.lessor_insured_yn := p5_a31;
2025     ddp_ipyv_rec.lessor_payee_yn := p5_a32;
2026     ddp_ipyv_rec.khr_id := rosetta_g_miss_num_map(p5_a33);
2027     ddp_ipyv_rec.kle_id := rosetta_g_miss_num_map(p5_a34);
2028     ddp_ipyv_rec.ipt_id := rosetta_g_miss_num_map(p5_a35);
2029     ddp_ipyv_rec.ipy_id := rosetta_g_miss_num_map(p5_a36);
2030     ddp_ipyv_rec.int_id := rosetta_g_miss_num_map(p5_a37);
2031     ddp_ipyv_rec.isu_id := rosetta_g_miss_num_map(p5_a38);
2032     ddp_ipyv_rec.insurance_factor := p5_a39;
2033     ddp_ipyv_rec.factor_code := p5_a40;
2034     ddp_ipyv_rec.factor_value := rosetta_g_miss_num_map(p5_a41);
2035     ddp_ipyv_rec.agency_number := p5_a42;
2036     ddp_ipyv_rec.agency_site_id := rosetta_g_miss_num_map(p5_a43);
2037     ddp_ipyv_rec.sales_rep_id := rosetta_g_miss_num_map(p5_a44);
2038     ddp_ipyv_rec.agent_site_id := rosetta_g_miss_num_map(p5_a45);
2039     ddp_ipyv_rec.adjusted_by_id := rosetta_g_miss_num_map(p5_a46);
2040     ddp_ipyv_rec.territory_code := p5_a47;
2041     ddp_ipyv_rec.attribute_category := p5_a48;
2042     ddp_ipyv_rec.attribute1 := p5_a49;
2043     ddp_ipyv_rec.attribute2 := p5_a50;
2044     ddp_ipyv_rec.attribute3 := p5_a51;
2045     ddp_ipyv_rec.attribute4 := p5_a52;
2046     ddp_ipyv_rec.attribute5 := p5_a53;
2047     ddp_ipyv_rec.attribute6 := p5_a54;
2048     ddp_ipyv_rec.attribute7 := p5_a55;
2049     ddp_ipyv_rec.attribute8 := p5_a56;
2050     ddp_ipyv_rec.attribute9 := p5_a57;
2051     ddp_ipyv_rec.attribute10 := p5_a58;
2052     ddp_ipyv_rec.attribute11 := p5_a59;
2053     ddp_ipyv_rec.attribute12 := p5_a60;
2054     ddp_ipyv_rec.attribute13 := p5_a61;
2055     ddp_ipyv_rec.attribute14 := p5_a62;
2056     ddp_ipyv_rec.attribute15 := p5_a63;
2057     ddp_ipyv_rec.program_id := rosetta_g_miss_num_map(p5_a64);
2058     ddp_ipyv_rec.org_id := rosetta_g_miss_num_map(p5_a65);
2059     ddp_ipyv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a66);
2060     ddp_ipyv_rec.program_application_id := rosetta_g_miss_num_map(p5_a67);
2061     ddp_ipyv_rec.request_id := rosetta_g_miss_num_map(p5_a68);
2062     ddp_ipyv_rec.object_version_number := rosetta_g_miss_num_map(p5_a69);
2063     ddp_ipyv_rec.created_by := rosetta_g_miss_num_map(p5_a70);
2064     ddp_ipyv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a71);
2065     ddp_ipyv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a72);
2066     ddp_ipyv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a73);
2067     ddp_ipyv_rec.last_update_login := rosetta_g_miss_num_map(p5_a74);
2068     ddp_ipyv_rec.lease_application_id := rosetta_g_miss_num_map(p5_a75);
2069 
2070 
2071     -- here's the delegated call to the old PL/SQL routine
2072     okl_ins_quote_pub.crt_lseapp_thrdprt_ins(p_api_version,
2073       p_init_msg_list,
2074       x_return_status,
2075       x_msg_count,
2076       x_msg_data,
2077       ddp_ipyv_rec,
2078       ddx_ipyv_rec);
2079 
2080     -- copy data back from the local variables to OUT or IN-OUT args, if any
2081 
2082 
2083 
2084 
2085 
2086 
2087     p6_a0 := rosetta_g_miss_num_map(ddx_ipyv_rec.id);
2088     p6_a1 := ddx_ipyv_rec.ipy_type;
2089     p6_a2 := ddx_ipyv_rec.description;
2090     p6_a3 := ddx_ipyv_rec.endorsement;
2091     p6_a4 := ddx_ipyv_rec.sfwt_flag;
2092     p6_a5 := ddx_ipyv_rec.cancellation_comment;
2093     p6_a6 := ddx_ipyv_rec.comments;
2094     p6_a7 := ddx_ipyv_rec.name_of_insured;
2095     p6_a8 := ddx_ipyv_rec.policy_number;
2096     p6_a9 := rosetta_g_miss_num_map(ddx_ipyv_rec.calculated_premium);
2097     p6_a10 := rosetta_g_miss_num_map(ddx_ipyv_rec.premium);
2098     p6_a11 := rosetta_g_miss_num_map(ddx_ipyv_rec.covered_amount);
2099     p6_a12 := rosetta_g_miss_num_map(ddx_ipyv_rec.deductible);
2100     p6_a13 := rosetta_g_miss_num_map(ddx_ipyv_rec.adjustment);
2101     p6_a14 := ddx_ipyv_rec.payment_frequency;
2102     p6_a15 := ddx_ipyv_rec.crx_code;
2103     p6_a16 := ddx_ipyv_rec.ipf_code;
2104     p6_a17 := ddx_ipyv_rec.iss_code;
2105     p6_a18 := ddx_ipyv_rec.ipe_code;
2106     p6_a19 := ddx_ipyv_rec.date_to;
2107     p6_a20 := ddx_ipyv_rec.date_from;
2108     p6_a21 := ddx_ipyv_rec.date_quoted;
2109     p6_a22 := ddx_ipyv_rec.date_proof_provided;
2110     p6_a23 := ddx_ipyv_rec.date_proof_required;
2111     p6_a24 := ddx_ipyv_rec.cancellation_date;
2112     p6_a25 := ddx_ipyv_rec.date_quote_expiry;
2113     p6_a26 := ddx_ipyv_rec.activation_date;
2114     p6_a27 := ddx_ipyv_rec.quote_yn;
2115     p6_a28 := ddx_ipyv_rec.on_file_yn;
2116     p6_a29 := ddx_ipyv_rec.private_label_yn;
2117     p6_a30 := ddx_ipyv_rec.agent_yn;
2118     p6_a31 := ddx_ipyv_rec.lessor_insured_yn;
2119     p6_a32 := ddx_ipyv_rec.lessor_payee_yn;
2120     p6_a33 := rosetta_g_miss_num_map(ddx_ipyv_rec.khr_id);
2121     p6_a34 := rosetta_g_miss_num_map(ddx_ipyv_rec.kle_id);
2122     p6_a35 := rosetta_g_miss_num_map(ddx_ipyv_rec.ipt_id);
2123     p6_a36 := rosetta_g_miss_num_map(ddx_ipyv_rec.ipy_id);
2124     p6_a37 := rosetta_g_miss_num_map(ddx_ipyv_rec.int_id);
2125     p6_a38 := rosetta_g_miss_num_map(ddx_ipyv_rec.isu_id);
2126     p6_a39 := ddx_ipyv_rec.insurance_factor;
2127     p6_a40 := ddx_ipyv_rec.factor_code;
2128     p6_a41 := rosetta_g_miss_num_map(ddx_ipyv_rec.factor_value);
2129     p6_a42 := ddx_ipyv_rec.agency_number;
2130     p6_a43 := rosetta_g_miss_num_map(ddx_ipyv_rec.agency_site_id);
2131     p6_a44 := rosetta_g_miss_num_map(ddx_ipyv_rec.sales_rep_id);
2132     p6_a45 := rosetta_g_miss_num_map(ddx_ipyv_rec.agent_site_id);
2133     p6_a46 := rosetta_g_miss_num_map(ddx_ipyv_rec.adjusted_by_id);
2134     p6_a47 := ddx_ipyv_rec.territory_code;
2135     p6_a48 := ddx_ipyv_rec.attribute_category;
2136     p6_a49 := ddx_ipyv_rec.attribute1;
2137     p6_a50 := ddx_ipyv_rec.attribute2;
2138     p6_a51 := ddx_ipyv_rec.attribute3;
2139     p6_a52 := ddx_ipyv_rec.attribute4;
2140     p6_a53 := ddx_ipyv_rec.attribute5;
2141     p6_a54 := ddx_ipyv_rec.attribute6;
2142     p6_a55 := ddx_ipyv_rec.attribute7;
2143     p6_a56 := ddx_ipyv_rec.attribute8;
2144     p6_a57 := ddx_ipyv_rec.attribute9;
2145     p6_a58 := ddx_ipyv_rec.attribute10;
2146     p6_a59 := ddx_ipyv_rec.attribute11;
2147     p6_a60 := ddx_ipyv_rec.attribute12;
2148     p6_a61 := ddx_ipyv_rec.attribute13;
2149     p6_a62 := ddx_ipyv_rec.attribute14;
2150     p6_a63 := ddx_ipyv_rec.attribute15;
2151     p6_a64 := rosetta_g_miss_num_map(ddx_ipyv_rec.program_id);
2152     p6_a65 := rosetta_g_miss_num_map(ddx_ipyv_rec.org_id);
2153     p6_a66 := ddx_ipyv_rec.program_update_date;
2154     p6_a67 := rosetta_g_miss_num_map(ddx_ipyv_rec.program_application_id);
2155     p6_a68 := rosetta_g_miss_num_map(ddx_ipyv_rec.request_id);
2156     p6_a69 := rosetta_g_miss_num_map(ddx_ipyv_rec.object_version_number);
2157     p6_a70 := rosetta_g_miss_num_map(ddx_ipyv_rec.created_by);
2158     p6_a71 := ddx_ipyv_rec.creation_date;
2159     p6_a72 := rosetta_g_miss_num_map(ddx_ipyv_rec.last_updated_by);
2160     p6_a73 := ddx_ipyv_rec.last_update_date;
2161     p6_a74 := rosetta_g_miss_num_map(ddx_ipyv_rec.last_update_login);
2162     p6_a75 := rosetta_g_miss_num_map(ddx_ipyv_rec.lease_application_id);
2163   end;
2164 
2165   procedure lseapp_thrdprty_to_ctrct(p_api_version  NUMBER
2166     , p_init_msg_list  VARCHAR2
2167     , x_return_status out nocopy  VARCHAR2
2168     , x_msg_count out nocopy  NUMBER
2169     , x_msg_data out nocopy  VARCHAR2
2170     , p_lakhr_id  NUMBER
2171     , p6_a0 out nocopy  NUMBER
2172     , p6_a1 out nocopy  VARCHAR2
2173     , p6_a2 out nocopy  VARCHAR2
2174     , p6_a3 out nocopy  VARCHAR2
2175     , p6_a4 out nocopy  VARCHAR2
2176     , p6_a5 out nocopy  VARCHAR2
2177     , p6_a6 out nocopy  VARCHAR2
2178     , p6_a7 out nocopy  VARCHAR2
2179     , p6_a8 out nocopy  VARCHAR2
2180     , p6_a9 out nocopy  NUMBER
2181     , p6_a10 out nocopy  NUMBER
2182     , p6_a11 out nocopy  NUMBER
2183     , p6_a12 out nocopy  NUMBER
2184     , p6_a13 out nocopy  NUMBER
2185     , p6_a14 out nocopy  VARCHAR2
2186     , p6_a15 out nocopy  VARCHAR2
2187     , p6_a16 out nocopy  VARCHAR2
2188     , p6_a17 out nocopy  VARCHAR2
2189     , p6_a18 out nocopy  VARCHAR2
2190     , p6_a19 out nocopy  DATE
2191     , p6_a20 out nocopy  DATE
2192     , p6_a21 out nocopy  DATE
2193     , p6_a22 out nocopy  DATE
2194     , p6_a23 out nocopy  DATE
2195     , p6_a24 out nocopy  DATE
2196     , p6_a25 out nocopy  DATE
2197     , p6_a26 out nocopy  DATE
2198     , p6_a27 out nocopy  VARCHAR2
2199     , p6_a28 out nocopy  VARCHAR2
2200     , p6_a29 out nocopy  VARCHAR2
2201     , p6_a30 out nocopy  VARCHAR2
2202     , p6_a31 out nocopy  VARCHAR2
2203     , p6_a32 out nocopy  VARCHAR2
2204     , p6_a33 out nocopy  NUMBER
2205     , p6_a34 out nocopy  NUMBER
2206     , p6_a35 out nocopy  NUMBER
2207     , p6_a36 out nocopy  NUMBER
2208     , p6_a37 out nocopy  NUMBER
2209     , p6_a38 out nocopy  NUMBER
2210     , p6_a39 out nocopy  VARCHAR2
2211     , p6_a40 out nocopy  VARCHAR2
2212     , p6_a41 out nocopy  NUMBER
2213     , p6_a42 out nocopy  VARCHAR2
2214     , p6_a43 out nocopy  NUMBER
2215     , p6_a44 out nocopy  NUMBER
2216     , p6_a45 out nocopy  NUMBER
2217     , p6_a46 out nocopy  NUMBER
2218     , p6_a47 out nocopy  VARCHAR2
2219     , p6_a48 out nocopy  VARCHAR2
2220     , p6_a49 out nocopy  VARCHAR2
2221     , p6_a50 out nocopy  VARCHAR2
2222     , p6_a51 out nocopy  VARCHAR2
2223     , p6_a52 out nocopy  VARCHAR2
2224     , p6_a53 out nocopy  VARCHAR2
2225     , p6_a54 out nocopy  VARCHAR2
2226     , p6_a55 out nocopy  VARCHAR2
2227     , p6_a56 out nocopy  VARCHAR2
2228     , p6_a57 out nocopy  VARCHAR2
2229     , p6_a58 out nocopy  VARCHAR2
2230     , p6_a59 out nocopy  VARCHAR2
2231     , p6_a60 out nocopy  VARCHAR2
2232     , p6_a61 out nocopy  VARCHAR2
2233     , p6_a62 out nocopy  VARCHAR2
2234     , p6_a63 out nocopy  VARCHAR2
2235     , p6_a64 out nocopy  NUMBER
2236     , p6_a65 out nocopy  NUMBER
2237     , p6_a66 out nocopy  DATE
2238     , p6_a67 out nocopy  NUMBER
2239     , p6_a68 out nocopy  NUMBER
2240     , p6_a69 out nocopy  NUMBER
2241     , p6_a70 out nocopy  NUMBER
2242     , p6_a71 out nocopy  DATE
2243     , p6_a72 out nocopy  NUMBER
2244     , p6_a73 out nocopy  DATE
2245     , p6_a74 out nocopy  NUMBER
2246     , p6_a75 out nocopy  NUMBER
2247   )
2248 
2249   as
2250     ddx_ipyv_rec okl_ins_quote_pub.ipyv_rec_type;
2251     ddindx binary_integer; indx binary_integer;
2252   begin
2253 
2254     -- copy data to the local IN or IN-OUT args, if any
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262     -- here's the delegated call to the old PL/SQL routine
2263     okl_ins_quote_pub.lseapp_thrdprty_to_ctrct(p_api_version,
2264       p_init_msg_list,
2265       x_return_status,
2266       x_msg_count,
2267       x_msg_data,
2268       p_lakhr_id,
2269       ddx_ipyv_rec);
2270 
2271     -- copy data back from the local variables to OUT or IN-OUT args, if any
2272 
2273 
2274 
2275 
2276 
2277 
2278     p6_a0 := rosetta_g_miss_num_map(ddx_ipyv_rec.id);
2279     p6_a1 := ddx_ipyv_rec.ipy_type;
2280     p6_a2 := ddx_ipyv_rec.description;
2281     p6_a3 := ddx_ipyv_rec.endorsement;
2282     p6_a4 := ddx_ipyv_rec.sfwt_flag;
2283     p6_a5 := ddx_ipyv_rec.cancellation_comment;
2284     p6_a6 := ddx_ipyv_rec.comments;
2285     p6_a7 := ddx_ipyv_rec.name_of_insured;
2286     p6_a8 := ddx_ipyv_rec.policy_number;
2287     p6_a9 := rosetta_g_miss_num_map(ddx_ipyv_rec.calculated_premium);
2288     p6_a10 := rosetta_g_miss_num_map(ddx_ipyv_rec.premium);
2289     p6_a11 := rosetta_g_miss_num_map(ddx_ipyv_rec.covered_amount);
2290     p6_a12 := rosetta_g_miss_num_map(ddx_ipyv_rec.deductible);
2291     p6_a13 := rosetta_g_miss_num_map(ddx_ipyv_rec.adjustment);
2292     p6_a14 := ddx_ipyv_rec.payment_frequency;
2293     p6_a15 := ddx_ipyv_rec.crx_code;
2294     p6_a16 := ddx_ipyv_rec.ipf_code;
2295     p6_a17 := ddx_ipyv_rec.iss_code;
2296     p6_a18 := ddx_ipyv_rec.ipe_code;
2297     p6_a19 := ddx_ipyv_rec.date_to;
2298     p6_a20 := ddx_ipyv_rec.date_from;
2299     p6_a21 := ddx_ipyv_rec.date_quoted;
2300     p6_a22 := ddx_ipyv_rec.date_proof_provided;
2301     p6_a23 := ddx_ipyv_rec.date_proof_required;
2302     p6_a24 := ddx_ipyv_rec.cancellation_date;
2303     p6_a25 := ddx_ipyv_rec.date_quote_expiry;
2304     p6_a26 := ddx_ipyv_rec.activation_date;
2305     p6_a27 := ddx_ipyv_rec.quote_yn;
2306     p6_a28 := ddx_ipyv_rec.on_file_yn;
2307     p6_a29 := ddx_ipyv_rec.private_label_yn;
2308     p6_a30 := ddx_ipyv_rec.agent_yn;
2309     p6_a31 := ddx_ipyv_rec.lessor_insured_yn;
2310     p6_a32 := ddx_ipyv_rec.lessor_payee_yn;
2311     p6_a33 := rosetta_g_miss_num_map(ddx_ipyv_rec.khr_id);
2312     p6_a34 := rosetta_g_miss_num_map(ddx_ipyv_rec.kle_id);
2313     p6_a35 := rosetta_g_miss_num_map(ddx_ipyv_rec.ipt_id);
2314     p6_a36 := rosetta_g_miss_num_map(ddx_ipyv_rec.ipy_id);
2315     p6_a37 := rosetta_g_miss_num_map(ddx_ipyv_rec.int_id);
2316     p6_a38 := rosetta_g_miss_num_map(ddx_ipyv_rec.isu_id);
2317     p6_a39 := ddx_ipyv_rec.insurance_factor;
2318     p6_a40 := ddx_ipyv_rec.factor_code;
2319     p6_a41 := rosetta_g_miss_num_map(ddx_ipyv_rec.factor_value);
2320     p6_a42 := ddx_ipyv_rec.agency_number;
2321     p6_a43 := rosetta_g_miss_num_map(ddx_ipyv_rec.agency_site_id);
2322     p6_a44 := rosetta_g_miss_num_map(ddx_ipyv_rec.sales_rep_id);
2323     p6_a45 := rosetta_g_miss_num_map(ddx_ipyv_rec.agent_site_id);
2324     p6_a46 := rosetta_g_miss_num_map(ddx_ipyv_rec.adjusted_by_id);
2325     p6_a47 := ddx_ipyv_rec.territory_code;
2326     p6_a48 := ddx_ipyv_rec.attribute_category;
2327     p6_a49 := ddx_ipyv_rec.attribute1;
2328     p6_a50 := ddx_ipyv_rec.attribute2;
2329     p6_a51 := ddx_ipyv_rec.attribute3;
2330     p6_a52 := ddx_ipyv_rec.attribute4;
2331     p6_a53 := ddx_ipyv_rec.attribute5;
2332     p6_a54 := ddx_ipyv_rec.attribute6;
2333     p6_a55 := ddx_ipyv_rec.attribute7;
2334     p6_a56 := ddx_ipyv_rec.attribute8;
2335     p6_a57 := ddx_ipyv_rec.attribute9;
2336     p6_a58 := ddx_ipyv_rec.attribute10;
2337     p6_a59 := ddx_ipyv_rec.attribute11;
2338     p6_a60 := ddx_ipyv_rec.attribute12;
2339     p6_a61 := ddx_ipyv_rec.attribute13;
2340     p6_a62 := ddx_ipyv_rec.attribute14;
2341     p6_a63 := ddx_ipyv_rec.attribute15;
2342     p6_a64 := rosetta_g_miss_num_map(ddx_ipyv_rec.program_id);
2343     p6_a65 := rosetta_g_miss_num_map(ddx_ipyv_rec.org_id);
2344     p6_a66 := ddx_ipyv_rec.program_update_date;
2345     p6_a67 := rosetta_g_miss_num_map(ddx_ipyv_rec.program_application_id);
2346     p6_a68 := rosetta_g_miss_num_map(ddx_ipyv_rec.request_id);
2347     p6_a69 := rosetta_g_miss_num_map(ddx_ipyv_rec.object_version_number);
2348     p6_a70 := rosetta_g_miss_num_map(ddx_ipyv_rec.created_by);
2349     p6_a71 := ddx_ipyv_rec.creation_date;
2350     p6_a72 := rosetta_g_miss_num_map(ddx_ipyv_rec.last_updated_by);
2351     p6_a73 := ddx_ipyv_rec.last_update_date;
2352     p6_a74 := rosetta_g_miss_num_map(ddx_ipyv_rec.last_update_login);
2353     p6_a75 := rosetta_g_miss_num_map(ddx_ipyv_rec.lease_application_id);
2354   end;
2355 
2356 end okl_ins_quote_pub_w;