DBA Data[Home] [Help]

PACKAGE BODY: APPS.OKL_INS_POLICIES_PUB_W

Source


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