[Home] [Help]
PACKAGE BODY: APPS.OKL_CRT_PVT_W
Source
1 package body okl_crt_pvt_w as
2 /* $Header: OKLICRTB.pls 115.2 2003/10/07 17:58:41 pdevaraj noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p2(t out nocopy okl_crt_pvt.crtv_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_VARCHAR2_TABLE_200
24 , a2 JTF_VARCHAR2_TABLE_100
25 , a3 JTF_DATE_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_VARCHAR2_TABLE_100
30 , a8 JTF_VARCHAR2_TABLE_2000
31 , a9 JTF_DATE_TABLE
32 , a10 JTF_VARCHAR2_TABLE_100
33 , a11 JTF_NUMBER_TABLE
34 , a12 JTF_NUMBER_TABLE
35 , a13 JTF_NUMBER_TABLE
36 , a14 JTF_NUMBER_TABLE
37 , a15 JTF_NUMBER_TABLE
38 , a16 JTF_DATE_TABLE
39 , a17 JTF_VARCHAR2_TABLE_300
40 , a18 JTF_VARCHAR2_TABLE_300
41 , a19 JTF_VARCHAR2_TABLE_300
42 , a20 JTF_VARCHAR2_TABLE_300
43 , a21 JTF_VARCHAR2_TABLE_300
44 , a22 JTF_VARCHAR2_TABLE_300
45 , a23 JTF_VARCHAR2_TABLE_300
46 , a24 JTF_VARCHAR2_TABLE_300
47 , a25 JTF_VARCHAR2_TABLE_300
48 , a26 JTF_VARCHAR2_TABLE_300
49 , a27 JTF_VARCHAR2_TABLE_300
50 , a28 JTF_VARCHAR2_TABLE_300
51 , a29 JTF_VARCHAR2_TABLE_300
52 , a30 JTF_VARCHAR2_TABLE_300
53 , a31 JTF_VARCHAR2_TABLE_300
54 , a32 JTF_VARCHAR2_TABLE_300
55 , a33 JTF_NUMBER_TABLE
56 , a34 JTF_DATE_TABLE
57 , a35 JTF_NUMBER_TABLE
58 , a36 JTF_DATE_TABLE
59 , a37 JTF_NUMBER_TABLE
60 ) as
61 ddindx binary_integer; indx binary_integer;
62 begin
63 if a0 is not null and a0.count > 0 then
64 if a0.count > 0 then
65 indx := a0.first;
66 ddindx := 1;
67 while true loop
68 t(ddindx).cure_report_id := rosetta_g_miss_num_map(a0(indx));
69 t(ddindx).report_number := a1(indx);
70 t(ddindx).report_type := a2(indx);
71 t(ddindx).report_date := rosetta_g_miss_date_in_map(a3(indx));
72 t(ddindx).vendor_id := rosetta_g_miss_num_map(a4(indx));
73 t(ddindx).vendor_site_id := rosetta_g_miss_num_map(a5(indx));
74 t(ddindx).vendor_contact_id := rosetta_g_miss_num_map(a6(indx));
75 t(ddindx).approval_status := a7(indx);
76 t(ddindx).approval_reason := a8(indx);
77 t(ddindx).expiration_date := rosetta_g_miss_date_in_map(a9(indx));
78 t(ddindx).currency_code := a10(indx);
79 t(ddindx).object_version_number := rosetta_g_miss_num_map(a11(indx));
80 t(ddindx).org_id := rosetta_g_miss_num_map(a12(indx));
81 t(ddindx).request_id := rosetta_g_miss_num_map(a13(indx));
82 t(ddindx).program_application_id := rosetta_g_miss_num_map(a14(indx));
83 t(ddindx).program_id := rosetta_g_miss_num_map(a15(indx));
84 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a16(indx));
85 t(ddindx).attribute_category := a17(indx);
86 t(ddindx).attribute1 := a18(indx);
87 t(ddindx).attribute2 := a19(indx);
88 t(ddindx).attribute3 := a20(indx);
89 t(ddindx).attribute4 := a21(indx);
90 t(ddindx).attribute5 := a22(indx);
91 t(ddindx).attribute6 := a23(indx);
92 t(ddindx).attribute7 := a24(indx);
93 t(ddindx).attribute8 := a25(indx);
94 t(ddindx).attribute9 := a26(indx);
95 t(ddindx).attribute10 := a27(indx);
96 t(ddindx).attribute11 := a28(indx);
97 t(ddindx).attribute12 := a29(indx);
98 t(ddindx).attribute13 := a30(indx);
99 t(ddindx).attribute14 := a31(indx);
100 t(ddindx).attribute15 := a32(indx);
101 t(ddindx).created_by := rosetta_g_miss_num_map(a33(indx));
102 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a34(indx));
103 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a35(indx));
104 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a36(indx));
105 t(ddindx).last_update_login := rosetta_g_miss_num_map(a37(indx));
106 ddindx := ddindx+1;
107 if a0.last =indx
108 then exit;
109 end if;
110 indx := a0.next(indx);
111 end loop;
112 end if;
113 end if;
114 end rosetta_table_copy_in_p2;
115 procedure rosetta_table_copy_out_p2(t okl_crt_pvt.crtv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
116 , a1 out nocopy JTF_VARCHAR2_TABLE_200
117 , a2 out nocopy JTF_VARCHAR2_TABLE_100
118 , a3 out nocopy JTF_DATE_TABLE
119 , a4 out nocopy JTF_NUMBER_TABLE
120 , a5 out nocopy JTF_NUMBER_TABLE
121 , a6 out nocopy JTF_NUMBER_TABLE
122 , a7 out nocopy JTF_VARCHAR2_TABLE_100
123 , a8 out nocopy JTF_VARCHAR2_TABLE_2000
124 , a9 out nocopy JTF_DATE_TABLE
125 , a10 out nocopy JTF_VARCHAR2_TABLE_100
126 , a11 out nocopy JTF_NUMBER_TABLE
127 , a12 out nocopy JTF_NUMBER_TABLE
128 , a13 out nocopy JTF_NUMBER_TABLE
129 , a14 out nocopy JTF_NUMBER_TABLE
130 , a15 out nocopy JTF_NUMBER_TABLE
131 , a16 out nocopy JTF_DATE_TABLE
132 , a17 out nocopy JTF_VARCHAR2_TABLE_300
133 , a18 out nocopy JTF_VARCHAR2_TABLE_300
134 , a19 out nocopy JTF_VARCHAR2_TABLE_300
135 , a20 out nocopy JTF_VARCHAR2_TABLE_300
136 , a21 out nocopy JTF_VARCHAR2_TABLE_300
137 , a22 out nocopy JTF_VARCHAR2_TABLE_300
138 , a23 out nocopy JTF_VARCHAR2_TABLE_300
139 , a24 out nocopy JTF_VARCHAR2_TABLE_300
140 , a25 out nocopy JTF_VARCHAR2_TABLE_300
141 , a26 out nocopy JTF_VARCHAR2_TABLE_300
142 , a27 out nocopy JTF_VARCHAR2_TABLE_300
143 , a28 out nocopy JTF_VARCHAR2_TABLE_300
144 , a29 out nocopy JTF_VARCHAR2_TABLE_300
145 , a30 out nocopy JTF_VARCHAR2_TABLE_300
146 , a31 out nocopy JTF_VARCHAR2_TABLE_300
147 , a32 out nocopy JTF_VARCHAR2_TABLE_300
148 , a33 out nocopy JTF_NUMBER_TABLE
149 , a34 out nocopy JTF_DATE_TABLE
150 , a35 out nocopy JTF_NUMBER_TABLE
151 , a36 out nocopy JTF_DATE_TABLE
152 , a37 out nocopy JTF_NUMBER_TABLE
153 ) as
154 ddindx binary_integer; indx binary_integer;
155 begin
156 if t is null or t.count = 0 then
157 a0 := JTF_NUMBER_TABLE();
158 a1 := JTF_VARCHAR2_TABLE_200();
159 a2 := JTF_VARCHAR2_TABLE_100();
160 a3 := JTF_DATE_TABLE();
161 a4 := JTF_NUMBER_TABLE();
162 a5 := JTF_NUMBER_TABLE();
163 a6 := JTF_NUMBER_TABLE();
164 a7 := JTF_VARCHAR2_TABLE_100();
165 a8 := JTF_VARCHAR2_TABLE_2000();
166 a9 := JTF_DATE_TABLE();
167 a10 := JTF_VARCHAR2_TABLE_100();
168 a11 := JTF_NUMBER_TABLE();
169 a12 := JTF_NUMBER_TABLE();
170 a13 := JTF_NUMBER_TABLE();
171 a14 := JTF_NUMBER_TABLE();
172 a15 := JTF_NUMBER_TABLE();
173 a16 := JTF_DATE_TABLE();
174 a17 := JTF_VARCHAR2_TABLE_300();
175 a18 := JTF_VARCHAR2_TABLE_300();
176 a19 := JTF_VARCHAR2_TABLE_300();
177 a20 := JTF_VARCHAR2_TABLE_300();
178 a21 := JTF_VARCHAR2_TABLE_300();
179 a22 := JTF_VARCHAR2_TABLE_300();
180 a23 := JTF_VARCHAR2_TABLE_300();
181 a24 := JTF_VARCHAR2_TABLE_300();
182 a25 := JTF_VARCHAR2_TABLE_300();
183 a26 := JTF_VARCHAR2_TABLE_300();
184 a27 := JTF_VARCHAR2_TABLE_300();
185 a28 := JTF_VARCHAR2_TABLE_300();
186 a29 := JTF_VARCHAR2_TABLE_300();
187 a30 := JTF_VARCHAR2_TABLE_300();
188 a31 := JTF_VARCHAR2_TABLE_300();
189 a32 := JTF_VARCHAR2_TABLE_300();
190 a33 := JTF_NUMBER_TABLE();
191 a34 := JTF_DATE_TABLE();
192 a35 := JTF_NUMBER_TABLE();
193 a36 := JTF_DATE_TABLE();
194 a37 := JTF_NUMBER_TABLE();
195 else
196 a0 := JTF_NUMBER_TABLE();
197 a1 := JTF_VARCHAR2_TABLE_200();
198 a2 := JTF_VARCHAR2_TABLE_100();
199 a3 := JTF_DATE_TABLE();
200 a4 := JTF_NUMBER_TABLE();
201 a5 := JTF_NUMBER_TABLE();
202 a6 := JTF_NUMBER_TABLE();
203 a7 := JTF_VARCHAR2_TABLE_100();
204 a8 := JTF_VARCHAR2_TABLE_2000();
205 a9 := JTF_DATE_TABLE();
206 a10 := JTF_VARCHAR2_TABLE_100();
207 a11 := JTF_NUMBER_TABLE();
208 a12 := JTF_NUMBER_TABLE();
209 a13 := JTF_NUMBER_TABLE();
210 a14 := JTF_NUMBER_TABLE();
211 a15 := JTF_NUMBER_TABLE();
212 a16 := JTF_DATE_TABLE();
213 a17 := JTF_VARCHAR2_TABLE_300();
214 a18 := JTF_VARCHAR2_TABLE_300();
215 a19 := JTF_VARCHAR2_TABLE_300();
216 a20 := JTF_VARCHAR2_TABLE_300();
217 a21 := JTF_VARCHAR2_TABLE_300();
218 a22 := JTF_VARCHAR2_TABLE_300();
219 a23 := JTF_VARCHAR2_TABLE_300();
220 a24 := JTF_VARCHAR2_TABLE_300();
221 a25 := JTF_VARCHAR2_TABLE_300();
222 a26 := JTF_VARCHAR2_TABLE_300();
223 a27 := JTF_VARCHAR2_TABLE_300();
224 a28 := JTF_VARCHAR2_TABLE_300();
225 a29 := JTF_VARCHAR2_TABLE_300();
226 a30 := JTF_VARCHAR2_TABLE_300();
227 a31 := JTF_VARCHAR2_TABLE_300();
228 a32 := JTF_VARCHAR2_TABLE_300();
229 a33 := JTF_NUMBER_TABLE();
230 a34 := JTF_DATE_TABLE();
231 a35 := JTF_NUMBER_TABLE();
232 a36 := JTF_DATE_TABLE();
233 a37 := JTF_NUMBER_TABLE();
234 if t.count > 0 then
235 a0.extend(t.count);
236 a1.extend(t.count);
237 a2.extend(t.count);
238 a3.extend(t.count);
239 a4.extend(t.count);
240 a5.extend(t.count);
241 a6.extend(t.count);
242 a7.extend(t.count);
243 a8.extend(t.count);
244 a9.extend(t.count);
245 a10.extend(t.count);
246 a11.extend(t.count);
247 a12.extend(t.count);
248 a13.extend(t.count);
249 a14.extend(t.count);
250 a15.extend(t.count);
251 a16.extend(t.count);
252 a17.extend(t.count);
253 a18.extend(t.count);
254 a19.extend(t.count);
255 a20.extend(t.count);
256 a21.extend(t.count);
257 a22.extend(t.count);
258 a23.extend(t.count);
259 a24.extend(t.count);
260 a25.extend(t.count);
261 a26.extend(t.count);
262 a27.extend(t.count);
263 a28.extend(t.count);
264 a29.extend(t.count);
265 a30.extend(t.count);
266 a31.extend(t.count);
267 a32.extend(t.count);
268 a33.extend(t.count);
269 a34.extend(t.count);
270 a35.extend(t.count);
271 a36.extend(t.count);
272 a37.extend(t.count);
273 ddindx := t.first;
274 indx := 1;
275 while true loop
276 a0(indx) := rosetta_g_miss_num_map(t(ddindx).cure_report_id);
277 a1(indx) := t(ddindx).report_number;
278 a2(indx) := t(ddindx).report_type;
279 a3(indx) := t(ddindx).report_date;
280 a4(indx) := rosetta_g_miss_num_map(t(ddindx).vendor_id);
281 a5(indx) := rosetta_g_miss_num_map(t(ddindx).vendor_site_id);
282 a6(indx) := rosetta_g_miss_num_map(t(ddindx).vendor_contact_id);
283 a7(indx) := t(ddindx).approval_status;
284 a8(indx) := t(ddindx).approval_reason;
285 a9(indx) := t(ddindx).expiration_date;
286 a10(indx) := t(ddindx).currency_code;
287 a11(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
288 a12(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
289 a13(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
290 a14(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
291 a15(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
292 a16(indx) := t(ddindx).program_update_date;
293 a17(indx) := t(ddindx).attribute_category;
294 a18(indx) := t(ddindx).attribute1;
295 a19(indx) := t(ddindx).attribute2;
296 a20(indx) := t(ddindx).attribute3;
297 a21(indx) := t(ddindx).attribute4;
298 a22(indx) := t(ddindx).attribute5;
299 a23(indx) := t(ddindx).attribute6;
300 a24(indx) := t(ddindx).attribute7;
301 a25(indx) := t(ddindx).attribute8;
302 a26(indx) := t(ddindx).attribute9;
303 a27(indx) := t(ddindx).attribute10;
304 a28(indx) := t(ddindx).attribute11;
305 a29(indx) := t(ddindx).attribute12;
306 a30(indx) := t(ddindx).attribute13;
307 a31(indx) := t(ddindx).attribute14;
308 a32(indx) := t(ddindx).attribute15;
309 a33(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
310 a34(indx) := t(ddindx).creation_date;
311 a35(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
312 a36(indx) := t(ddindx).last_update_date;
313 a37(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
314 indx := indx+1;
315 if t.last =ddindx
316 then exit;
317 end if;
318 ddindx := t.next(ddindx);
319 end loop;
320 end if;
321 end if;
322 end rosetta_table_copy_out_p2;
323
324 procedure rosetta_table_copy_in_p5(t out nocopy okl_crt_pvt.crt_tbl_type, a0 JTF_NUMBER_TABLE
325 , a1 JTF_VARCHAR2_TABLE_200
326 , a2 JTF_VARCHAR2_TABLE_100
327 , a3 JTF_DATE_TABLE
328 , a4 JTF_NUMBER_TABLE
329 , a5 JTF_NUMBER_TABLE
330 , a6 JTF_NUMBER_TABLE
331 , a7 JTF_VARCHAR2_TABLE_100
332 , a8 JTF_VARCHAR2_TABLE_2000
333 , a9 JTF_DATE_TABLE
334 , a10 JTF_NUMBER_TABLE
335 , a11 JTF_NUMBER_TABLE
336 , a12 JTF_NUMBER_TABLE
337 , a13 JTF_NUMBER_TABLE
338 , a14 JTF_NUMBER_TABLE
339 , a15 JTF_VARCHAR2_TABLE_100
340 , a16 JTF_DATE_TABLE
341 , a17 JTF_VARCHAR2_TABLE_300
342 , a18 JTF_VARCHAR2_TABLE_300
343 , a19 JTF_VARCHAR2_TABLE_300
344 , a20 JTF_VARCHAR2_TABLE_300
345 , a21 JTF_VARCHAR2_TABLE_300
346 , a22 JTF_VARCHAR2_TABLE_300
347 , a23 JTF_VARCHAR2_TABLE_300
348 , a24 JTF_VARCHAR2_TABLE_300
349 , a25 JTF_VARCHAR2_TABLE_300
350 , a26 JTF_VARCHAR2_TABLE_300
351 , a27 JTF_VARCHAR2_TABLE_300
352 , a28 JTF_VARCHAR2_TABLE_300
353 , a29 JTF_VARCHAR2_TABLE_300
354 , a30 JTF_VARCHAR2_TABLE_300
355 , a31 JTF_VARCHAR2_TABLE_300
356 , a32 JTF_VARCHAR2_TABLE_300
357 , a33 JTF_NUMBER_TABLE
358 , a34 JTF_DATE_TABLE
359 , a35 JTF_NUMBER_TABLE
360 , a36 JTF_DATE_TABLE
361 , a37 JTF_NUMBER_TABLE
362 ) as
363 ddindx binary_integer; indx binary_integer;
364 begin
365 if a0 is not null and a0.count > 0 then
366 if a0.count > 0 then
367 indx := a0.first;
368 ddindx := 1;
369 while true loop
370 t(ddindx).cure_report_id := rosetta_g_miss_num_map(a0(indx));
371 t(ddindx).report_number := a1(indx);
372 t(ddindx).report_type := a2(indx);
373 t(ddindx).report_date := rosetta_g_miss_date_in_map(a3(indx));
374 t(ddindx).vendor_id := rosetta_g_miss_num_map(a4(indx));
375 t(ddindx).vendor_site_id := rosetta_g_miss_num_map(a5(indx));
376 t(ddindx).vendor_contact_id := rosetta_g_miss_num_map(a6(indx));
377 t(ddindx).approval_status := a7(indx);
378 t(ddindx).approval_reason := a8(indx);
379 t(ddindx).expiration_date := rosetta_g_miss_date_in_map(a9(indx));
380 t(ddindx).object_version_number := rosetta_g_miss_num_map(a10(indx));
381 t(ddindx).org_id := rosetta_g_miss_num_map(a11(indx));
382 t(ddindx).request_id := rosetta_g_miss_num_map(a12(indx));
383 t(ddindx).program_application_id := rosetta_g_miss_num_map(a13(indx));
384 t(ddindx).program_id := rosetta_g_miss_num_map(a14(indx));
385 t(ddindx).currency_code := a15(indx);
386 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a16(indx));
387 t(ddindx).attribute_category := a17(indx);
388 t(ddindx).attribute1 := a18(indx);
389 t(ddindx).attribute2 := a19(indx);
390 t(ddindx).attribute3 := a20(indx);
391 t(ddindx).attribute4 := a21(indx);
392 t(ddindx).attribute5 := a22(indx);
393 t(ddindx).attribute6 := a23(indx);
394 t(ddindx).attribute7 := a24(indx);
395 t(ddindx).attribute8 := a25(indx);
396 t(ddindx).attribute9 := a26(indx);
397 t(ddindx).attribute10 := a27(indx);
398 t(ddindx).attribute11 := a28(indx);
399 t(ddindx).attribute12 := a29(indx);
400 t(ddindx).attribute13 := a30(indx);
401 t(ddindx).attribute14 := a31(indx);
402 t(ddindx).attribute15 := a32(indx);
403 t(ddindx).created_by := rosetta_g_miss_num_map(a33(indx));
404 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a34(indx));
405 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a35(indx));
406 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a36(indx));
407 t(ddindx).last_update_login := rosetta_g_miss_num_map(a37(indx));
408 ddindx := ddindx+1;
409 if a0.last =indx
410 then exit;
411 end if;
412 indx := a0.next(indx);
413 end loop;
414 end if;
415 end if;
416 end rosetta_table_copy_in_p5;
417 procedure rosetta_table_copy_out_p5(t okl_crt_pvt.crt_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
418 , a1 out nocopy JTF_VARCHAR2_TABLE_200
419 , a2 out nocopy JTF_VARCHAR2_TABLE_100
420 , a3 out nocopy JTF_DATE_TABLE
421 , a4 out nocopy JTF_NUMBER_TABLE
422 , a5 out nocopy JTF_NUMBER_TABLE
423 , a6 out nocopy JTF_NUMBER_TABLE
424 , a7 out nocopy JTF_VARCHAR2_TABLE_100
425 , a8 out nocopy JTF_VARCHAR2_TABLE_2000
426 , a9 out nocopy JTF_DATE_TABLE
427 , a10 out nocopy JTF_NUMBER_TABLE
428 , a11 out nocopy JTF_NUMBER_TABLE
429 , a12 out nocopy JTF_NUMBER_TABLE
430 , a13 out nocopy JTF_NUMBER_TABLE
431 , a14 out nocopy JTF_NUMBER_TABLE
432 , a15 out nocopy JTF_VARCHAR2_TABLE_100
433 , a16 out nocopy JTF_DATE_TABLE
434 , a17 out nocopy JTF_VARCHAR2_TABLE_300
435 , a18 out nocopy JTF_VARCHAR2_TABLE_300
436 , a19 out nocopy JTF_VARCHAR2_TABLE_300
437 , a20 out nocopy JTF_VARCHAR2_TABLE_300
438 , a21 out nocopy JTF_VARCHAR2_TABLE_300
439 , a22 out nocopy JTF_VARCHAR2_TABLE_300
440 , a23 out nocopy JTF_VARCHAR2_TABLE_300
441 , a24 out nocopy JTF_VARCHAR2_TABLE_300
442 , a25 out nocopy JTF_VARCHAR2_TABLE_300
443 , a26 out nocopy JTF_VARCHAR2_TABLE_300
444 , a27 out nocopy JTF_VARCHAR2_TABLE_300
445 , a28 out nocopy JTF_VARCHAR2_TABLE_300
446 , a29 out nocopy JTF_VARCHAR2_TABLE_300
447 , a30 out nocopy JTF_VARCHAR2_TABLE_300
448 , a31 out nocopy JTF_VARCHAR2_TABLE_300
449 , a32 out nocopy JTF_VARCHAR2_TABLE_300
450 , a33 out nocopy JTF_NUMBER_TABLE
451 , a34 out nocopy JTF_DATE_TABLE
452 , a35 out nocopy JTF_NUMBER_TABLE
453 , a36 out nocopy JTF_DATE_TABLE
454 , a37 out nocopy JTF_NUMBER_TABLE
455 ) as
456 ddindx binary_integer; indx binary_integer;
457 begin
458 if t is null or t.count = 0 then
459 a0 := JTF_NUMBER_TABLE();
460 a1 := JTF_VARCHAR2_TABLE_200();
461 a2 := JTF_VARCHAR2_TABLE_100();
462 a3 := JTF_DATE_TABLE();
463 a4 := JTF_NUMBER_TABLE();
464 a5 := JTF_NUMBER_TABLE();
465 a6 := JTF_NUMBER_TABLE();
466 a7 := JTF_VARCHAR2_TABLE_100();
467 a8 := JTF_VARCHAR2_TABLE_2000();
468 a9 := JTF_DATE_TABLE();
469 a10 := JTF_NUMBER_TABLE();
470 a11 := JTF_NUMBER_TABLE();
471 a12 := JTF_NUMBER_TABLE();
472 a13 := JTF_NUMBER_TABLE();
473 a14 := JTF_NUMBER_TABLE();
474 a15 := JTF_VARCHAR2_TABLE_100();
475 a16 := JTF_DATE_TABLE();
476 a17 := JTF_VARCHAR2_TABLE_300();
477 a18 := JTF_VARCHAR2_TABLE_300();
478 a19 := JTF_VARCHAR2_TABLE_300();
479 a20 := JTF_VARCHAR2_TABLE_300();
480 a21 := JTF_VARCHAR2_TABLE_300();
481 a22 := JTF_VARCHAR2_TABLE_300();
482 a23 := JTF_VARCHAR2_TABLE_300();
483 a24 := JTF_VARCHAR2_TABLE_300();
484 a25 := JTF_VARCHAR2_TABLE_300();
485 a26 := JTF_VARCHAR2_TABLE_300();
486 a27 := JTF_VARCHAR2_TABLE_300();
487 a28 := JTF_VARCHAR2_TABLE_300();
488 a29 := JTF_VARCHAR2_TABLE_300();
489 a30 := JTF_VARCHAR2_TABLE_300();
490 a31 := JTF_VARCHAR2_TABLE_300();
491 a32 := JTF_VARCHAR2_TABLE_300();
492 a33 := JTF_NUMBER_TABLE();
493 a34 := JTF_DATE_TABLE();
494 a35 := JTF_NUMBER_TABLE();
495 a36 := JTF_DATE_TABLE();
496 a37 := JTF_NUMBER_TABLE();
497 else
498 a0 := JTF_NUMBER_TABLE();
499 a1 := JTF_VARCHAR2_TABLE_200();
500 a2 := JTF_VARCHAR2_TABLE_100();
501 a3 := JTF_DATE_TABLE();
502 a4 := JTF_NUMBER_TABLE();
503 a5 := JTF_NUMBER_TABLE();
504 a6 := JTF_NUMBER_TABLE();
505 a7 := JTF_VARCHAR2_TABLE_100();
506 a8 := JTF_VARCHAR2_TABLE_2000();
507 a9 := JTF_DATE_TABLE();
508 a10 := JTF_NUMBER_TABLE();
509 a11 := JTF_NUMBER_TABLE();
510 a12 := JTF_NUMBER_TABLE();
511 a13 := JTF_NUMBER_TABLE();
512 a14 := JTF_NUMBER_TABLE();
513 a15 := JTF_VARCHAR2_TABLE_100();
514 a16 := JTF_DATE_TABLE();
515 a17 := JTF_VARCHAR2_TABLE_300();
516 a18 := JTF_VARCHAR2_TABLE_300();
517 a19 := JTF_VARCHAR2_TABLE_300();
518 a20 := JTF_VARCHAR2_TABLE_300();
519 a21 := JTF_VARCHAR2_TABLE_300();
520 a22 := JTF_VARCHAR2_TABLE_300();
521 a23 := JTF_VARCHAR2_TABLE_300();
522 a24 := JTF_VARCHAR2_TABLE_300();
523 a25 := JTF_VARCHAR2_TABLE_300();
524 a26 := JTF_VARCHAR2_TABLE_300();
525 a27 := JTF_VARCHAR2_TABLE_300();
526 a28 := JTF_VARCHAR2_TABLE_300();
527 a29 := JTF_VARCHAR2_TABLE_300();
528 a30 := JTF_VARCHAR2_TABLE_300();
529 a31 := JTF_VARCHAR2_TABLE_300();
530 a32 := JTF_VARCHAR2_TABLE_300();
531 a33 := JTF_NUMBER_TABLE();
532 a34 := JTF_DATE_TABLE();
533 a35 := JTF_NUMBER_TABLE();
534 a36 := JTF_DATE_TABLE();
535 a37 := JTF_NUMBER_TABLE();
536 if t.count > 0 then
537 a0.extend(t.count);
538 a1.extend(t.count);
539 a2.extend(t.count);
540 a3.extend(t.count);
541 a4.extend(t.count);
542 a5.extend(t.count);
543 a6.extend(t.count);
544 a7.extend(t.count);
545 a8.extend(t.count);
546 a9.extend(t.count);
547 a10.extend(t.count);
548 a11.extend(t.count);
549 a12.extend(t.count);
550 a13.extend(t.count);
551 a14.extend(t.count);
552 a15.extend(t.count);
553 a16.extend(t.count);
554 a17.extend(t.count);
555 a18.extend(t.count);
556 a19.extend(t.count);
557 a20.extend(t.count);
558 a21.extend(t.count);
559 a22.extend(t.count);
560 a23.extend(t.count);
561 a24.extend(t.count);
562 a25.extend(t.count);
563 a26.extend(t.count);
564 a27.extend(t.count);
565 a28.extend(t.count);
566 a29.extend(t.count);
567 a30.extend(t.count);
568 a31.extend(t.count);
569 a32.extend(t.count);
570 a33.extend(t.count);
571 a34.extend(t.count);
572 a35.extend(t.count);
573 a36.extend(t.count);
574 a37.extend(t.count);
575 ddindx := t.first;
576 indx := 1;
577 while true loop
578 a0(indx) := rosetta_g_miss_num_map(t(ddindx).cure_report_id);
579 a1(indx) := t(ddindx).report_number;
580 a2(indx) := t(ddindx).report_type;
581 a3(indx) := t(ddindx).report_date;
582 a4(indx) := rosetta_g_miss_num_map(t(ddindx).vendor_id);
583 a5(indx) := rosetta_g_miss_num_map(t(ddindx).vendor_site_id);
584 a6(indx) := rosetta_g_miss_num_map(t(ddindx).vendor_contact_id);
585 a7(indx) := t(ddindx).approval_status;
586 a8(indx) := t(ddindx).approval_reason;
587 a9(indx) := t(ddindx).expiration_date;
588 a10(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
589 a11(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
590 a12(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
591 a13(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
592 a14(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
593 a15(indx) := t(ddindx).currency_code;
594 a16(indx) := t(ddindx).program_update_date;
595 a17(indx) := t(ddindx).attribute_category;
596 a18(indx) := t(ddindx).attribute1;
597 a19(indx) := t(ddindx).attribute2;
598 a20(indx) := t(ddindx).attribute3;
599 a21(indx) := t(ddindx).attribute4;
600 a22(indx) := t(ddindx).attribute5;
601 a23(indx) := t(ddindx).attribute6;
602 a24(indx) := t(ddindx).attribute7;
603 a25(indx) := t(ddindx).attribute8;
604 a26(indx) := t(ddindx).attribute9;
605 a27(indx) := t(ddindx).attribute10;
606 a28(indx) := t(ddindx).attribute11;
607 a29(indx) := t(ddindx).attribute12;
608 a30(indx) := t(ddindx).attribute13;
609 a31(indx) := t(ddindx).attribute14;
610 a32(indx) := t(ddindx).attribute15;
611 a33(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
612 a34(indx) := t(ddindx).creation_date;
613 a35(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
614 a36(indx) := t(ddindx).last_update_date;
615 a37(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
616 indx := indx+1;
617 if t.last =ddindx
618 then exit;
619 end if;
620 ddindx := t.next(ddindx);
621 end loop;
622 end if;
623 end if;
624 end rosetta_table_copy_out_p5;
625
626 procedure insert_row(p_api_version NUMBER
627 , p_init_msg_list VARCHAR2
628 , x_return_status out nocopy VARCHAR2
629 , x_msg_count out nocopy NUMBER
630 , x_msg_data out nocopy VARCHAR2
631 , p6_a0 out nocopy NUMBER
632 , p6_a1 out nocopy VARCHAR2
633 , p6_a2 out nocopy VARCHAR2
634 , p6_a3 out nocopy DATE
635 , p6_a4 out nocopy NUMBER
636 , p6_a5 out nocopy NUMBER
637 , p6_a6 out nocopy NUMBER
638 , p6_a7 out nocopy VARCHAR2
639 , p6_a8 out nocopy VARCHAR2
640 , p6_a9 out nocopy DATE
641 , p6_a10 out nocopy VARCHAR2
642 , p6_a11 out nocopy NUMBER
643 , p6_a12 out nocopy NUMBER
644 , p6_a13 out nocopy NUMBER
645 , p6_a14 out nocopy NUMBER
646 , p6_a15 out nocopy NUMBER
647 , p6_a16 out nocopy DATE
648 , p6_a17 out nocopy VARCHAR2
649 , p6_a18 out nocopy VARCHAR2
650 , p6_a19 out nocopy VARCHAR2
651 , p6_a20 out nocopy VARCHAR2
652 , p6_a21 out nocopy VARCHAR2
653 , p6_a22 out nocopy VARCHAR2
654 , p6_a23 out nocopy VARCHAR2
655 , p6_a24 out nocopy VARCHAR2
656 , p6_a25 out nocopy VARCHAR2
657 , p6_a26 out nocopy VARCHAR2
658 , p6_a27 out nocopy VARCHAR2
659 , p6_a28 out nocopy VARCHAR2
660 , p6_a29 out nocopy VARCHAR2
661 , p6_a30 out nocopy VARCHAR2
662 , p6_a31 out nocopy VARCHAR2
663 , p6_a32 out nocopy VARCHAR2
664 , p6_a33 out nocopy NUMBER
665 , p6_a34 out nocopy DATE
666 , p6_a35 out nocopy NUMBER
667 , p6_a36 out nocopy DATE
668 , p6_a37 out nocopy NUMBER
669 , p5_a0 NUMBER := 0-1962.0724
670 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
671 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
672 , p5_a3 DATE := fnd_api.g_miss_date
673 , p5_a4 NUMBER := 0-1962.0724
674 , p5_a5 NUMBER := 0-1962.0724
675 , p5_a6 NUMBER := 0-1962.0724
676 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
677 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
678 , p5_a9 DATE := fnd_api.g_miss_date
679 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
680 , p5_a11 NUMBER := 0-1962.0724
681 , p5_a12 NUMBER := 0-1962.0724
682 , p5_a13 NUMBER := 0-1962.0724
683 , p5_a14 NUMBER := 0-1962.0724
684 , p5_a15 NUMBER := 0-1962.0724
685 , p5_a16 DATE := fnd_api.g_miss_date
686 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
687 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
688 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
689 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
690 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
691 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
692 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
693 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
694 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
695 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
696 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
697 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
698 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
699 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
700 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
701 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
702 , p5_a33 NUMBER := 0-1962.0724
703 , p5_a34 DATE := fnd_api.g_miss_date
704 , p5_a35 NUMBER := 0-1962.0724
705 , p5_a36 DATE := fnd_api.g_miss_date
706 , p5_a37 NUMBER := 0-1962.0724
707 )
708
709 as
710 ddp_crtv_rec okl_crt_pvt.crtv_rec_type;
711 ddx_crtv_rec okl_crt_pvt.crtv_rec_type;
712 ddindx binary_integer; indx binary_integer;
713 begin
714
715 -- copy data to the local IN or IN-OUT args, if any
716
717
718
719
720
721 ddp_crtv_rec.cure_report_id := rosetta_g_miss_num_map(p5_a0);
722 ddp_crtv_rec.report_number := p5_a1;
723 ddp_crtv_rec.report_type := p5_a2;
724 ddp_crtv_rec.report_date := rosetta_g_miss_date_in_map(p5_a3);
725 ddp_crtv_rec.vendor_id := rosetta_g_miss_num_map(p5_a4);
726 ddp_crtv_rec.vendor_site_id := rosetta_g_miss_num_map(p5_a5);
727 ddp_crtv_rec.vendor_contact_id := rosetta_g_miss_num_map(p5_a6);
728 ddp_crtv_rec.approval_status := p5_a7;
729 ddp_crtv_rec.approval_reason := p5_a8;
730 ddp_crtv_rec.expiration_date := rosetta_g_miss_date_in_map(p5_a9);
731 ddp_crtv_rec.currency_code := p5_a10;
732 ddp_crtv_rec.object_version_number := rosetta_g_miss_num_map(p5_a11);
733 ddp_crtv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
734 ddp_crtv_rec.request_id := rosetta_g_miss_num_map(p5_a13);
735 ddp_crtv_rec.program_application_id := rosetta_g_miss_num_map(p5_a14);
736 ddp_crtv_rec.program_id := rosetta_g_miss_num_map(p5_a15);
737 ddp_crtv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a16);
738 ddp_crtv_rec.attribute_category := p5_a17;
739 ddp_crtv_rec.attribute1 := p5_a18;
740 ddp_crtv_rec.attribute2 := p5_a19;
741 ddp_crtv_rec.attribute3 := p5_a20;
742 ddp_crtv_rec.attribute4 := p5_a21;
743 ddp_crtv_rec.attribute5 := p5_a22;
744 ddp_crtv_rec.attribute6 := p5_a23;
745 ddp_crtv_rec.attribute7 := p5_a24;
746 ddp_crtv_rec.attribute8 := p5_a25;
747 ddp_crtv_rec.attribute9 := p5_a26;
748 ddp_crtv_rec.attribute10 := p5_a27;
749 ddp_crtv_rec.attribute11 := p5_a28;
750 ddp_crtv_rec.attribute12 := p5_a29;
751 ddp_crtv_rec.attribute13 := p5_a30;
752 ddp_crtv_rec.attribute14 := p5_a31;
753 ddp_crtv_rec.attribute15 := p5_a32;
754 ddp_crtv_rec.created_by := rosetta_g_miss_num_map(p5_a33);
755 ddp_crtv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
756 ddp_crtv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
757 ddp_crtv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
758 ddp_crtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
759
760
761 -- here's the delegated call to the old PL/SQL routine
762 okl_crt_pvt.insert_row(p_api_version,
763 p_init_msg_list,
764 x_return_status,
765 x_msg_count,
766 x_msg_data,
767 ddp_crtv_rec,
768 ddx_crtv_rec);
769
770 -- copy data back from the local variables to OUT or IN-OUT args, if any
771
772
773
774
775
776
777 p6_a0 := rosetta_g_miss_num_map(ddx_crtv_rec.cure_report_id);
778 p6_a1 := ddx_crtv_rec.report_number;
779 p6_a2 := ddx_crtv_rec.report_type;
780 p6_a3 := ddx_crtv_rec.report_date;
781 p6_a4 := rosetta_g_miss_num_map(ddx_crtv_rec.vendor_id);
782 p6_a5 := rosetta_g_miss_num_map(ddx_crtv_rec.vendor_site_id);
783 p6_a6 := rosetta_g_miss_num_map(ddx_crtv_rec.vendor_contact_id);
784 p6_a7 := ddx_crtv_rec.approval_status;
785 p6_a8 := ddx_crtv_rec.approval_reason;
786 p6_a9 := ddx_crtv_rec.expiration_date;
787 p6_a10 := ddx_crtv_rec.currency_code;
788 p6_a11 := rosetta_g_miss_num_map(ddx_crtv_rec.object_version_number);
789 p6_a12 := rosetta_g_miss_num_map(ddx_crtv_rec.org_id);
790 p6_a13 := rosetta_g_miss_num_map(ddx_crtv_rec.request_id);
791 p6_a14 := rosetta_g_miss_num_map(ddx_crtv_rec.program_application_id);
792 p6_a15 := rosetta_g_miss_num_map(ddx_crtv_rec.program_id);
793 p6_a16 := ddx_crtv_rec.program_update_date;
794 p6_a17 := ddx_crtv_rec.attribute_category;
795 p6_a18 := ddx_crtv_rec.attribute1;
796 p6_a19 := ddx_crtv_rec.attribute2;
797 p6_a20 := ddx_crtv_rec.attribute3;
798 p6_a21 := ddx_crtv_rec.attribute4;
799 p6_a22 := ddx_crtv_rec.attribute5;
800 p6_a23 := ddx_crtv_rec.attribute6;
801 p6_a24 := ddx_crtv_rec.attribute7;
802 p6_a25 := ddx_crtv_rec.attribute8;
803 p6_a26 := ddx_crtv_rec.attribute9;
804 p6_a27 := ddx_crtv_rec.attribute10;
805 p6_a28 := ddx_crtv_rec.attribute11;
806 p6_a29 := ddx_crtv_rec.attribute12;
807 p6_a30 := ddx_crtv_rec.attribute13;
808 p6_a31 := ddx_crtv_rec.attribute14;
809 p6_a32 := ddx_crtv_rec.attribute15;
810 p6_a33 := rosetta_g_miss_num_map(ddx_crtv_rec.created_by);
811 p6_a34 := ddx_crtv_rec.creation_date;
812 p6_a35 := rosetta_g_miss_num_map(ddx_crtv_rec.last_updated_by);
813 p6_a36 := ddx_crtv_rec.last_update_date;
814 p6_a37 := rosetta_g_miss_num_map(ddx_crtv_rec.last_update_login);
815 end;
816
817 procedure insert_row(p_api_version NUMBER
818 , p_init_msg_list VARCHAR2
819 , x_return_status out nocopy VARCHAR2
820 , x_msg_count out nocopy NUMBER
821 , x_msg_data out nocopy VARCHAR2
822 , p5_a0 JTF_NUMBER_TABLE
823 , p5_a1 JTF_VARCHAR2_TABLE_200
824 , p5_a2 JTF_VARCHAR2_TABLE_100
825 , p5_a3 JTF_DATE_TABLE
826 , p5_a4 JTF_NUMBER_TABLE
827 , p5_a5 JTF_NUMBER_TABLE
828 , p5_a6 JTF_NUMBER_TABLE
829 , p5_a7 JTF_VARCHAR2_TABLE_100
830 , p5_a8 JTF_VARCHAR2_TABLE_2000
831 , p5_a9 JTF_DATE_TABLE
832 , p5_a10 JTF_VARCHAR2_TABLE_100
833 , p5_a11 JTF_NUMBER_TABLE
834 , p5_a12 JTF_NUMBER_TABLE
835 , p5_a13 JTF_NUMBER_TABLE
836 , p5_a14 JTF_NUMBER_TABLE
837 , p5_a15 JTF_NUMBER_TABLE
838 , p5_a16 JTF_DATE_TABLE
839 , p5_a17 JTF_VARCHAR2_TABLE_300
840 , p5_a18 JTF_VARCHAR2_TABLE_300
841 , p5_a19 JTF_VARCHAR2_TABLE_300
842 , p5_a20 JTF_VARCHAR2_TABLE_300
843 , p5_a21 JTF_VARCHAR2_TABLE_300
844 , p5_a22 JTF_VARCHAR2_TABLE_300
845 , p5_a23 JTF_VARCHAR2_TABLE_300
846 , p5_a24 JTF_VARCHAR2_TABLE_300
847 , p5_a25 JTF_VARCHAR2_TABLE_300
848 , p5_a26 JTF_VARCHAR2_TABLE_300
849 , p5_a27 JTF_VARCHAR2_TABLE_300
850 , p5_a28 JTF_VARCHAR2_TABLE_300
851 , p5_a29 JTF_VARCHAR2_TABLE_300
852 , p5_a30 JTF_VARCHAR2_TABLE_300
853 , p5_a31 JTF_VARCHAR2_TABLE_300
854 , p5_a32 JTF_VARCHAR2_TABLE_300
855 , p5_a33 JTF_NUMBER_TABLE
856 , p5_a34 JTF_DATE_TABLE
857 , p5_a35 JTF_NUMBER_TABLE
858 , p5_a36 JTF_DATE_TABLE
859 , p5_a37 JTF_NUMBER_TABLE
860 , p6_a0 out nocopy JTF_NUMBER_TABLE
861 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_200
862 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
863 , p6_a3 out nocopy JTF_DATE_TABLE
864 , p6_a4 out nocopy JTF_NUMBER_TABLE
865 , p6_a5 out nocopy JTF_NUMBER_TABLE
866 , p6_a6 out nocopy JTF_NUMBER_TABLE
867 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
868 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_2000
869 , p6_a9 out nocopy JTF_DATE_TABLE
870 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
871 , p6_a11 out nocopy JTF_NUMBER_TABLE
872 , p6_a12 out nocopy JTF_NUMBER_TABLE
873 , p6_a13 out nocopy JTF_NUMBER_TABLE
874 , p6_a14 out nocopy JTF_NUMBER_TABLE
875 , p6_a15 out nocopy JTF_NUMBER_TABLE
876 , p6_a16 out nocopy JTF_DATE_TABLE
877 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_300
878 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_300
879 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_300
880 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_300
881 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_300
882 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_300
883 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_300
884 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_300
885 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_300
886 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_300
887 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_300
888 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_300
889 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_300
890 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_300
891 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_300
892 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_300
893 , p6_a33 out nocopy JTF_NUMBER_TABLE
894 , p6_a34 out nocopy JTF_DATE_TABLE
895 , p6_a35 out nocopy JTF_NUMBER_TABLE
896 , p6_a36 out nocopy JTF_DATE_TABLE
897 , p6_a37 out nocopy JTF_NUMBER_TABLE
898 )
899
900 as
901 ddp_crtv_tbl okl_crt_pvt.crtv_tbl_type;
902 ddx_crtv_tbl okl_crt_pvt.crtv_tbl_type;
903 ddindx binary_integer; indx binary_integer;
904 begin
905
906 -- copy data to the local IN or IN-OUT args, if any
907
908
909
910
911
912 okl_crt_pvt_w.rosetta_table_copy_in_p2(ddp_crtv_tbl, p5_a0
913 , p5_a1
914 , p5_a2
915 , p5_a3
916 , p5_a4
917 , p5_a5
918 , p5_a6
919 , p5_a7
920 , p5_a8
921 , p5_a9
922 , p5_a10
923 , p5_a11
924 , p5_a12
925 , p5_a13
926 , p5_a14
927 , p5_a15
928 , p5_a16
929 , p5_a17
930 , p5_a18
931 , p5_a19
932 , p5_a20
933 , p5_a21
934 , p5_a22
935 , p5_a23
936 , p5_a24
937 , p5_a25
938 , p5_a26
939 , p5_a27
940 , p5_a28
941 , p5_a29
942 , p5_a30
943 , p5_a31
944 , p5_a32
945 , p5_a33
946 , p5_a34
947 , p5_a35
948 , p5_a36
949 , p5_a37
950 );
951
952
953 -- here's the delegated call to the old PL/SQL routine
954 okl_crt_pvt.insert_row(p_api_version,
955 p_init_msg_list,
956 x_return_status,
957 x_msg_count,
958 x_msg_data,
959 ddp_crtv_tbl,
960 ddx_crtv_tbl);
961
962 -- copy data back from the local variables to OUT or IN-OUT args, if any
963
964
965
966
967
968
969 okl_crt_pvt_w.rosetta_table_copy_out_p2(ddx_crtv_tbl, p6_a0
970 , p6_a1
971 , p6_a2
972 , p6_a3
973 , p6_a4
974 , p6_a5
975 , p6_a6
976 , p6_a7
977 , p6_a8
978 , p6_a9
979 , p6_a10
980 , p6_a11
981 , p6_a12
982 , p6_a13
983 , p6_a14
984 , p6_a15
985 , p6_a16
986 , p6_a17
987 , p6_a18
988 , p6_a19
989 , p6_a20
990 , p6_a21
991 , p6_a22
992 , p6_a23
993 , p6_a24
994 , p6_a25
995 , p6_a26
996 , p6_a27
997 , p6_a28
998 , p6_a29
999 , p6_a30
1000 , p6_a31
1001 , p6_a32
1002 , p6_a33
1003 , p6_a34
1004 , p6_a35
1005 , p6_a36
1006 , p6_a37
1007 );
1008 end;
1009
1010 procedure lock_row(p_api_version NUMBER
1011 , p_init_msg_list VARCHAR2
1012 , x_return_status out nocopy VARCHAR2
1013 , x_msg_count out nocopy NUMBER
1014 , x_msg_data out nocopy VARCHAR2
1015 , p5_a0 NUMBER := 0-1962.0724
1016 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1017 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1018 , p5_a3 DATE := fnd_api.g_miss_date
1019 , p5_a4 NUMBER := 0-1962.0724
1020 , p5_a5 NUMBER := 0-1962.0724
1021 , p5_a6 NUMBER := 0-1962.0724
1022 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1023 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1024 , p5_a9 DATE := fnd_api.g_miss_date
1025 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1026 , p5_a11 NUMBER := 0-1962.0724
1027 , p5_a12 NUMBER := 0-1962.0724
1028 , p5_a13 NUMBER := 0-1962.0724
1029 , p5_a14 NUMBER := 0-1962.0724
1030 , p5_a15 NUMBER := 0-1962.0724
1031 , p5_a16 DATE := fnd_api.g_miss_date
1032 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1033 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1034 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1035 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1036 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1037 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1038 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1039 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1040 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1041 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1042 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1043 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1044 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1045 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1046 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1047 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1048 , p5_a33 NUMBER := 0-1962.0724
1049 , p5_a34 DATE := fnd_api.g_miss_date
1050 , p5_a35 NUMBER := 0-1962.0724
1051 , p5_a36 DATE := fnd_api.g_miss_date
1052 , p5_a37 NUMBER := 0-1962.0724
1053 )
1054
1055 as
1056 ddp_crtv_rec okl_crt_pvt.crtv_rec_type;
1057 ddindx binary_integer; indx binary_integer;
1058 begin
1059
1060 -- copy data to the local IN or IN-OUT args, if any
1061
1062
1063
1064
1065
1066 ddp_crtv_rec.cure_report_id := rosetta_g_miss_num_map(p5_a0);
1067 ddp_crtv_rec.report_number := p5_a1;
1068 ddp_crtv_rec.report_type := p5_a2;
1069 ddp_crtv_rec.report_date := rosetta_g_miss_date_in_map(p5_a3);
1070 ddp_crtv_rec.vendor_id := rosetta_g_miss_num_map(p5_a4);
1071 ddp_crtv_rec.vendor_site_id := rosetta_g_miss_num_map(p5_a5);
1072 ddp_crtv_rec.vendor_contact_id := rosetta_g_miss_num_map(p5_a6);
1073 ddp_crtv_rec.approval_status := p5_a7;
1074 ddp_crtv_rec.approval_reason := p5_a8;
1075 ddp_crtv_rec.expiration_date := rosetta_g_miss_date_in_map(p5_a9);
1076 ddp_crtv_rec.currency_code := p5_a10;
1077 ddp_crtv_rec.object_version_number := rosetta_g_miss_num_map(p5_a11);
1078 ddp_crtv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
1079 ddp_crtv_rec.request_id := rosetta_g_miss_num_map(p5_a13);
1080 ddp_crtv_rec.program_application_id := rosetta_g_miss_num_map(p5_a14);
1081 ddp_crtv_rec.program_id := rosetta_g_miss_num_map(p5_a15);
1082 ddp_crtv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a16);
1083 ddp_crtv_rec.attribute_category := p5_a17;
1084 ddp_crtv_rec.attribute1 := p5_a18;
1085 ddp_crtv_rec.attribute2 := p5_a19;
1086 ddp_crtv_rec.attribute3 := p5_a20;
1087 ddp_crtv_rec.attribute4 := p5_a21;
1088 ddp_crtv_rec.attribute5 := p5_a22;
1089 ddp_crtv_rec.attribute6 := p5_a23;
1090 ddp_crtv_rec.attribute7 := p5_a24;
1091 ddp_crtv_rec.attribute8 := p5_a25;
1092 ddp_crtv_rec.attribute9 := p5_a26;
1093 ddp_crtv_rec.attribute10 := p5_a27;
1094 ddp_crtv_rec.attribute11 := p5_a28;
1095 ddp_crtv_rec.attribute12 := p5_a29;
1096 ddp_crtv_rec.attribute13 := p5_a30;
1097 ddp_crtv_rec.attribute14 := p5_a31;
1098 ddp_crtv_rec.attribute15 := p5_a32;
1099 ddp_crtv_rec.created_by := rosetta_g_miss_num_map(p5_a33);
1100 ddp_crtv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
1101 ddp_crtv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
1102 ddp_crtv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
1103 ddp_crtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
1104
1105 -- here's the delegated call to the old PL/SQL routine
1106 okl_crt_pvt.lock_row(p_api_version,
1107 p_init_msg_list,
1108 x_return_status,
1109 x_msg_count,
1110 x_msg_data,
1111 ddp_crtv_rec);
1112
1113 -- copy data back from the local variables to OUT or IN-OUT args, if any
1114
1115
1116
1117
1118
1119 end;
1120
1121 procedure lock_row(p_api_version NUMBER
1122 , p_init_msg_list VARCHAR2
1123 , x_return_status out nocopy VARCHAR2
1124 , x_msg_count out nocopy NUMBER
1125 , x_msg_data out nocopy VARCHAR2
1126 , p5_a0 JTF_NUMBER_TABLE
1127 , p5_a1 JTF_VARCHAR2_TABLE_200
1128 , p5_a2 JTF_VARCHAR2_TABLE_100
1129 , p5_a3 JTF_DATE_TABLE
1130 , p5_a4 JTF_NUMBER_TABLE
1131 , p5_a5 JTF_NUMBER_TABLE
1132 , p5_a6 JTF_NUMBER_TABLE
1133 , p5_a7 JTF_VARCHAR2_TABLE_100
1134 , p5_a8 JTF_VARCHAR2_TABLE_2000
1135 , p5_a9 JTF_DATE_TABLE
1136 , p5_a10 JTF_VARCHAR2_TABLE_100
1137 , p5_a11 JTF_NUMBER_TABLE
1138 , p5_a12 JTF_NUMBER_TABLE
1139 , p5_a13 JTF_NUMBER_TABLE
1140 , p5_a14 JTF_NUMBER_TABLE
1141 , p5_a15 JTF_NUMBER_TABLE
1142 , p5_a16 JTF_DATE_TABLE
1143 , p5_a17 JTF_VARCHAR2_TABLE_300
1144 , p5_a18 JTF_VARCHAR2_TABLE_300
1145 , p5_a19 JTF_VARCHAR2_TABLE_300
1146 , p5_a20 JTF_VARCHAR2_TABLE_300
1147 , p5_a21 JTF_VARCHAR2_TABLE_300
1148 , p5_a22 JTF_VARCHAR2_TABLE_300
1149 , p5_a23 JTF_VARCHAR2_TABLE_300
1150 , p5_a24 JTF_VARCHAR2_TABLE_300
1151 , p5_a25 JTF_VARCHAR2_TABLE_300
1152 , p5_a26 JTF_VARCHAR2_TABLE_300
1153 , p5_a27 JTF_VARCHAR2_TABLE_300
1154 , p5_a28 JTF_VARCHAR2_TABLE_300
1155 , p5_a29 JTF_VARCHAR2_TABLE_300
1156 , p5_a30 JTF_VARCHAR2_TABLE_300
1157 , p5_a31 JTF_VARCHAR2_TABLE_300
1158 , p5_a32 JTF_VARCHAR2_TABLE_300
1159 , p5_a33 JTF_NUMBER_TABLE
1160 , p5_a34 JTF_DATE_TABLE
1161 , p5_a35 JTF_NUMBER_TABLE
1162 , p5_a36 JTF_DATE_TABLE
1163 , p5_a37 JTF_NUMBER_TABLE
1164 )
1165
1166 as
1167 ddp_crtv_tbl okl_crt_pvt.crtv_tbl_type;
1168 ddindx binary_integer; indx binary_integer;
1169 begin
1170
1171 -- copy data to the local IN or IN-OUT args, if any
1172
1173
1174
1175
1176
1177 okl_crt_pvt_w.rosetta_table_copy_in_p2(ddp_crtv_tbl, p5_a0
1178 , p5_a1
1179 , p5_a2
1180 , p5_a3
1181 , p5_a4
1182 , p5_a5
1183 , p5_a6
1184 , p5_a7
1185 , p5_a8
1186 , p5_a9
1187 , p5_a10
1188 , p5_a11
1189 , p5_a12
1190 , p5_a13
1191 , p5_a14
1192 , p5_a15
1193 , p5_a16
1194 , p5_a17
1195 , p5_a18
1196 , p5_a19
1197 , p5_a20
1198 , p5_a21
1199 , p5_a22
1200 , p5_a23
1201 , p5_a24
1202 , p5_a25
1203 , p5_a26
1204 , p5_a27
1205 , p5_a28
1206 , p5_a29
1207 , p5_a30
1208 , p5_a31
1209 , p5_a32
1210 , p5_a33
1211 , p5_a34
1212 , p5_a35
1213 , p5_a36
1214 , p5_a37
1215 );
1216
1217 -- here's the delegated call to the old PL/SQL routine
1218 okl_crt_pvt.lock_row(p_api_version,
1219 p_init_msg_list,
1220 x_return_status,
1221 x_msg_count,
1222 x_msg_data,
1223 ddp_crtv_tbl);
1224
1225 -- copy data back from the local variables to OUT or IN-OUT args, if any
1226
1227
1228
1229
1230
1231 end;
1232
1233 procedure update_row(p_api_version NUMBER
1234 , p_init_msg_list VARCHAR2
1235 , x_return_status out nocopy VARCHAR2
1236 , x_msg_count out nocopy NUMBER
1237 , x_msg_data out nocopy VARCHAR2
1238 , p6_a0 out nocopy NUMBER
1239 , p6_a1 out nocopy VARCHAR2
1240 , p6_a2 out nocopy VARCHAR2
1241 , p6_a3 out nocopy DATE
1242 , p6_a4 out nocopy NUMBER
1243 , p6_a5 out nocopy NUMBER
1244 , p6_a6 out nocopy NUMBER
1245 , p6_a7 out nocopy VARCHAR2
1246 , p6_a8 out nocopy VARCHAR2
1247 , p6_a9 out nocopy DATE
1248 , p6_a10 out nocopy VARCHAR2
1249 , p6_a11 out nocopy NUMBER
1250 , p6_a12 out nocopy NUMBER
1251 , p6_a13 out nocopy NUMBER
1252 , p6_a14 out nocopy NUMBER
1253 , p6_a15 out nocopy NUMBER
1254 , p6_a16 out nocopy DATE
1255 , p6_a17 out nocopy VARCHAR2
1256 , p6_a18 out nocopy VARCHAR2
1257 , p6_a19 out nocopy VARCHAR2
1258 , p6_a20 out nocopy VARCHAR2
1259 , p6_a21 out nocopy VARCHAR2
1260 , p6_a22 out nocopy VARCHAR2
1261 , p6_a23 out nocopy VARCHAR2
1262 , p6_a24 out nocopy VARCHAR2
1263 , p6_a25 out nocopy VARCHAR2
1264 , p6_a26 out nocopy VARCHAR2
1265 , p6_a27 out nocopy VARCHAR2
1266 , p6_a28 out nocopy VARCHAR2
1267 , p6_a29 out nocopy VARCHAR2
1268 , p6_a30 out nocopy VARCHAR2
1269 , p6_a31 out nocopy VARCHAR2
1270 , p6_a32 out nocopy VARCHAR2
1271 , p6_a33 out nocopy NUMBER
1272 , p6_a34 out nocopy DATE
1273 , p6_a35 out nocopy NUMBER
1274 , p6_a36 out nocopy DATE
1275 , p6_a37 out nocopy NUMBER
1276 , p5_a0 NUMBER := 0-1962.0724
1277 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1278 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1279 , p5_a3 DATE := fnd_api.g_miss_date
1280 , p5_a4 NUMBER := 0-1962.0724
1281 , p5_a5 NUMBER := 0-1962.0724
1282 , p5_a6 NUMBER := 0-1962.0724
1283 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1284 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1285 , p5_a9 DATE := fnd_api.g_miss_date
1286 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1287 , p5_a11 NUMBER := 0-1962.0724
1288 , p5_a12 NUMBER := 0-1962.0724
1289 , p5_a13 NUMBER := 0-1962.0724
1290 , p5_a14 NUMBER := 0-1962.0724
1291 , p5_a15 NUMBER := 0-1962.0724
1292 , p5_a16 DATE := fnd_api.g_miss_date
1293 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1294 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1295 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1296 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1297 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1298 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1299 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1300 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1301 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1302 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1303 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1304 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1305 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1306 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1307 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1308 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1309 , p5_a33 NUMBER := 0-1962.0724
1310 , p5_a34 DATE := fnd_api.g_miss_date
1311 , p5_a35 NUMBER := 0-1962.0724
1312 , p5_a36 DATE := fnd_api.g_miss_date
1313 , p5_a37 NUMBER := 0-1962.0724
1314 )
1315
1316 as
1317 ddp_crtv_rec okl_crt_pvt.crtv_rec_type;
1318 ddx_crtv_rec okl_crt_pvt.crtv_rec_type;
1319 ddindx binary_integer; indx binary_integer;
1320 begin
1321
1322 -- copy data to the local IN or IN-OUT args, if any
1323
1324
1325
1326
1327
1328 ddp_crtv_rec.cure_report_id := rosetta_g_miss_num_map(p5_a0);
1329 ddp_crtv_rec.report_number := p5_a1;
1330 ddp_crtv_rec.report_type := p5_a2;
1331 ddp_crtv_rec.report_date := rosetta_g_miss_date_in_map(p5_a3);
1332 ddp_crtv_rec.vendor_id := rosetta_g_miss_num_map(p5_a4);
1333 ddp_crtv_rec.vendor_site_id := rosetta_g_miss_num_map(p5_a5);
1334 ddp_crtv_rec.vendor_contact_id := rosetta_g_miss_num_map(p5_a6);
1335 ddp_crtv_rec.approval_status := p5_a7;
1336 ddp_crtv_rec.approval_reason := p5_a8;
1337 ddp_crtv_rec.expiration_date := rosetta_g_miss_date_in_map(p5_a9);
1338 ddp_crtv_rec.currency_code := p5_a10;
1339 ddp_crtv_rec.object_version_number := rosetta_g_miss_num_map(p5_a11);
1340 ddp_crtv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
1341 ddp_crtv_rec.request_id := rosetta_g_miss_num_map(p5_a13);
1342 ddp_crtv_rec.program_application_id := rosetta_g_miss_num_map(p5_a14);
1343 ddp_crtv_rec.program_id := rosetta_g_miss_num_map(p5_a15);
1344 ddp_crtv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a16);
1345 ddp_crtv_rec.attribute_category := p5_a17;
1346 ddp_crtv_rec.attribute1 := p5_a18;
1347 ddp_crtv_rec.attribute2 := p5_a19;
1348 ddp_crtv_rec.attribute3 := p5_a20;
1349 ddp_crtv_rec.attribute4 := p5_a21;
1350 ddp_crtv_rec.attribute5 := p5_a22;
1351 ddp_crtv_rec.attribute6 := p5_a23;
1352 ddp_crtv_rec.attribute7 := p5_a24;
1353 ddp_crtv_rec.attribute8 := p5_a25;
1354 ddp_crtv_rec.attribute9 := p5_a26;
1355 ddp_crtv_rec.attribute10 := p5_a27;
1356 ddp_crtv_rec.attribute11 := p5_a28;
1357 ddp_crtv_rec.attribute12 := p5_a29;
1358 ddp_crtv_rec.attribute13 := p5_a30;
1359 ddp_crtv_rec.attribute14 := p5_a31;
1360 ddp_crtv_rec.attribute15 := p5_a32;
1361 ddp_crtv_rec.created_by := rosetta_g_miss_num_map(p5_a33);
1362 ddp_crtv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
1363 ddp_crtv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
1364 ddp_crtv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
1365 ddp_crtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
1366
1367
1368 -- here's the delegated call to the old PL/SQL routine
1369 okl_crt_pvt.update_row(p_api_version,
1370 p_init_msg_list,
1371 x_return_status,
1372 x_msg_count,
1373 x_msg_data,
1374 ddp_crtv_rec,
1375 ddx_crtv_rec);
1376
1377 -- copy data back from the local variables to OUT or IN-OUT args, if any
1378
1379
1380
1381
1382
1383
1384 p6_a0 := rosetta_g_miss_num_map(ddx_crtv_rec.cure_report_id);
1385 p6_a1 := ddx_crtv_rec.report_number;
1386 p6_a2 := ddx_crtv_rec.report_type;
1387 p6_a3 := ddx_crtv_rec.report_date;
1388 p6_a4 := rosetta_g_miss_num_map(ddx_crtv_rec.vendor_id);
1389 p6_a5 := rosetta_g_miss_num_map(ddx_crtv_rec.vendor_site_id);
1390 p6_a6 := rosetta_g_miss_num_map(ddx_crtv_rec.vendor_contact_id);
1391 p6_a7 := ddx_crtv_rec.approval_status;
1392 p6_a8 := ddx_crtv_rec.approval_reason;
1393 p6_a9 := ddx_crtv_rec.expiration_date;
1394 p6_a10 := ddx_crtv_rec.currency_code;
1395 p6_a11 := rosetta_g_miss_num_map(ddx_crtv_rec.object_version_number);
1396 p6_a12 := rosetta_g_miss_num_map(ddx_crtv_rec.org_id);
1397 p6_a13 := rosetta_g_miss_num_map(ddx_crtv_rec.request_id);
1398 p6_a14 := rosetta_g_miss_num_map(ddx_crtv_rec.program_application_id);
1399 p6_a15 := rosetta_g_miss_num_map(ddx_crtv_rec.program_id);
1400 p6_a16 := ddx_crtv_rec.program_update_date;
1401 p6_a17 := ddx_crtv_rec.attribute_category;
1402 p6_a18 := ddx_crtv_rec.attribute1;
1403 p6_a19 := ddx_crtv_rec.attribute2;
1404 p6_a20 := ddx_crtv_rec.attribute3;
1405 p6_a21 := ddx_crtv_rec.attribute4;
1406 p6_a22 := ddx_crtv_rec.attribute5;
1407 p6_a23 := ddx_crtv_rec.attribute6;
1408 p6_a24 := ddx_crtv_rec.attribute7;
1409 p6_a25 := ddx_crtv_rec.attribute8;
1410 p6_a26 := ddx_crtv_rec.attribute9;
1411 p6_a27 := ddx_crtv_rec.attribute10;
1412 p6_a28 := ddx_crtv_rec.attribute11;
1413 p6_a29 := ddx_crtv_rec.attribute12;
1414 p6_a30 := ddx_crtv_rec.attribute13;
1415 p6_a31 := ddx_crtv_rec.attribute14;
1416 p6_a32 := ddx_crtv_rec.attribute15;
1417 p6_a33 := rosetta_g_miss_num_map(ddx_crtv_rec.created_by);
1418 p6_a34 := ddx_crtv_rec.creation_date;
1419 p6_a35 := rosetta_g_miss_num_map(ddx_crtv_rec.last_updated_by);
1420 p6_a36 := ddx_crtv_rec.last_update_date;
1421 p6_a37 := rosetta_g_miss_num_map(ddx_crtv_rec.last_update_login);
1422 end;
1423
1424 procedure update_row(p_api_version NUMBER
1425 , p_init_msg_list VARCHAR2
1426 , x_return_status out nocopy VARCHAR2
1427 , x_msg_count out nocopy NUMBER
1428 , x_msg_data out nocopy VARCHAR2
1429 , p5_a0 JTF_NUMBER_TABLE
1430 , p5_a1 JTF_VARCHAR2_TABLE_200
1431 , p5_a2 JTF_VARCHAR2_TABLE_100
1432 , p5_a3 JTF_DATE_TABLE
1433 , p5_a4 JTF_NUMBER_TABLE
1434 , p5_a5 JTF_NUMBER_TABLE
1435 , p5_a6 JTF_NUMBER_TABLE
1436 , p5_a7 JTF_VARCHAR2_TABLE_100
1437 , p5_a8 JTF_VARCHAR2_TABLE_2000
1438 , p5_a9 JTF_DATE_TABLE
1439 , p5_a10 JTF_VARCHAR2_TABLE_100
1440 , p5_a11 JTF_NUMBER_TABLE
1441 , p5_a12 JTF_NUMBER_TABLE
1442 , p5_a13 JTF_NUMBER_TABLE
1443 , p5_a14 JTF_NUMBER_TABLE
1444 , p5_a15 JTF_NUMBER_TABLE
1445 , p5_a16 JTF_DATE_TABLE
1446 , p5_a17 JTF_VARCHAR2_TABLE_300
1447 , p5_a18 JTF_VARCHAR2_TABLE_300
1448 , p5_a19 JTF_VARCHAR2_TABLE_300
1449 , p5_a20 JTF_VARCHAR2_TABLE_300
1450 , p5_a21 JTF_VARCHAR2_TABLE_300
1451 , p5_a22 JTF_VARCHAR2_TABLE_300
1452 , p5_a23 JTF_VARCHAR2_TABLE_300
1453 , p5_a24 JTF_VARCHAR2_TABLE_300
1454 , p5_a25 JTF_VARCHAR2_TABLE_300
1455 , p5_a26 JTF_VARCHAR2_TABLE_300
1456 , p5_a27 JTF_VARCHAR2_TABLE_300
1457 , p5_a28 JTF_VARCHAR2_TABLE_300
1458 , p5_a29 JTF_VARCHAR2_TABLE_300
1459 , p5_a30 JTF_VARCHAR2_TABLE_300
1460 , p5_a31 JTF_VARCHAR2_TABLE_300
1461 , p5_a32 JTF_VARCHAR2_TABLE_300
1462 , p5_a33 JTF_NUMBER_TABLE
1463 , p5_a34 JTF_DATE_TABLE
1464 , p5_a35 JTF_NUMBER_TABLE
1465 , p5_a36 JTF_DATE_TABLE
1466 , p5_a37 JTF_NUMBER_TABLE
1467 , p6_a0 out nocopy JTF_NUMBER_TABLE
1468 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_200
1469 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
1470 , p6_a3 out nocopy JTF_DATE_TABLE
1471 , p6_a4 out nocopy JTF_NUMBER_TABLE
1472 , p6_a5 out nocopy JTF_NUMBER_TABLE
1473 , p6_a6 out nocopy JTF_NUMBER_TABLE
1474 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
1475 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_2000
1476 , p6_a9 out nocopy JTF_DATE_TABLE
1477 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
1478 , p6_a11 out nocopy JTF_NUMBER_TABLE
1479 , p6_a12 out nocopy JTF_NUMBER_TABLE
1480 , p6_a13 out nocopy JTF_NUMBER_TABLE
1481 , p6_a14 out nocopy JTF_NUMBER_TABLE
1482 , p6_a15 out nocopy JTF_NUMBER_TABLE
1483 , p6_a16 out nocopy JTF_DATE_TABLE
1484 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_300
1485 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_300
1486 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_300
1487 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_300
1488 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_300
1489 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_300
1490 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_300
1491 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_300
1492 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_300
1493 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_300
1494 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_300
1495 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_300
1496 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_300
1497 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_300
1498 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_300
1499 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_300
1500 , p6_a33 out nocopy JTF_NUMBER_TABLE
1501 , p6_a34 out nocopy JTF_DATE_TABLE
1502 , p6_a35 out nocopy JTF_NUMBER_TABLE
1503 , p6_a36 out nocopy JTF_DATE_TABLE
1504 , p6_a37 out nocopy JTF_NUMBER_TABLE
1505 )
1506
1507 as
1508 ddp_crtv_tbl okl_crt_pvt.crtv_tbl_type;
1509 ddx_crtv_tbl okl_crt_pvt.crtv_tbl_type;
1510 ddindx binary_integer; indx binary_integer;
1511 begin
1512
1513 -- copy data to the local IN or IN-OUT args, if any
1514
1515
1516
1517
1518
1519 okl_crt_pvt_w.rosetta_table_copy_in_p2(ddp_crtv_tbl, p5_a0
1520 , p5_a1
1521 , p5_a2
1522 , p5_a3
1523 , p5_a4
1524 , p5_a5
1525 , p5_a6
1526 , p5_a7
1527 , p5_a8
1528 , p5_a9
1529 , p5_a10
1530 , p5_a11
1531 , p5_a12
1532 , p5_a13
1533 , p5_a14
1534 , p5_a15
1535 , p5_a16
1536 , p5_a17
1537 , p5_a18
1538 , p5_a19
1539 , p5_a20
1540 , p5_a21
1541 , p5_a22
1542 , p5_a23
1543 , p5_a24
1544 , p5_a25
1545 , p5_a26
1546 , p5_a27
1547 , p5_a28
1548 , p5_a29
1549 , p5_a30
1550 , p5_a31
1551 , p5_a32
1552 , p5_a33
1553 , p5_a34
1554 , p5_a35
1555 , p5_a36
1556 , p5_a37
1557 );
1558
1559
1560 -- here's the delegated call to the old PL/SQL routine
1561 okl_crt_pvt.update_row(p_api_version,
1562 p_init_msg_list,
1563 x_return_status,
1564 x_msg_count,
1565 x_msg_data,
1566 ddp_crtv_tbl,
1567 ddx_crtv_tbl);
1568
1569 -- copy data back from the local variables to OUT or IN-OUT args, if any
1570
1571
1572
1573
1574
1575
1576 okl_crt_pvt_w.rosetta_table_copy_out_p2(ddx_crtv_tbl, p6_a0
1577 , p6_a1
1578 , p6_a2
1579 , p6_a3
1580 , p6_a4
1581 , p6_a5
1582 , p6_a6
1583 , p6_a7
1584 , p6_a8
1585 , p6_a9
1586 , p6_a10
1587 , p6_a11
1588 , p6_a12
1589 , p6_a13
1590 , p6_a14
1591 , p6_a15
1592 , p6_a16
1593 , p6_a17
1594 , p6_a18
1595 , p6_a19
1596 , p6_a20
1597 , p6_a21
1598 , p6_a22
1599 , p6_a23
1600 , p6_a24
1601 , p6_a25
1602 , p6_a26
1603 , p6_a27
1604 , p6_a28
1605 , p6_a29
1606 , p6_a30
1607 , p6_a31
1608 , p6_a32
1609 , p6_a33
1610 , p6_a34
1611 , p6_a35
1612 , p6_a36
1613 , p6_a37
1614 );
1615 end;
1616
1617 procedure delete_row(p_api_version NUMBER
1618 , p_init_msg_list VARCHAR2
1619 , x_return_status out nocopy VARCHAR2
1620 , x_msg_count out nocopy NUMBER
1621 , x_msg_data out nocopy VARCHAR2
1622 , p5_a0 NUMBER := 0-1962.0724
1623 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1624 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1625 , p5_a3 DATE := fnd_api.g_miss_date
1626 , p5_a4 NUMBER := 0-1962.0724
1627 , p5_a5 NUMBER := 0-1962.0724
1628 , p5_a6 NUMBER := 0-1962.0724
1629 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1630 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1631 , p5_a9 DATE := fnd_api.g_miss_date
1632 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1633 , p5_a11 NUMBER := 0-1962.0724
1634 , p5_a12 NUMBER := 0-1962.0724
1635 , p5_a13 NUMBER := 0-1962.0724
1636 , p5_a14 NUMBER := 0-1962.0724
1637 , p5_a15 NUMBER := 0-1962.0724
1638 , p5_a16 DATE := fnd_api.g_miss_date
1639 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1640 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1641 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1642 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1643 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1644 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1645 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1646 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1647 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1648 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1649 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1650 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1651 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1652 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1653 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1654 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1655 , p5_a33 NUMBER := 0-1962.0724
1656 , p5_a34 DATE := fnd_api.g_miss_date
1657 , p5_a35 NUMBER := 0-1962.0724
1658 , p5_a36 DATE := fnd_api.g_miss_date
1659 , p5_a37 NUMBER := 0-1962.0724
1660 )
1661
1662 as
1663 ddp_crtv_rec okl_crt_pvt.crtv_rec_type;
1664 ddindx binary_integer; indx binary_integer;
1665 begin
1666
1667 -- copy data to the local IN or IN-OUT args, if any
1668
1669
1670
1671
1672
1673 ddp_crtv_rec.cure_report_id := rosetta_g_miss_num_map(p5_a0);
1674 ddp_crtv_rec.report_number := p5_a1;
1675 ddp_crtv_rec.report_type := p5_a2;
1676 ddp_crtv_rec.report_date := rosetta_g_miss_date_in_map(p5_a3);
1677 ddp_crtv_rec.vendor_id := rosetta_g_miss_num_map(p5_a4);
1678 ddp_crtv_rec.vendor_site_id := rosetta_g_miss_num_map(p5_a5);
1679 ddp_crtv_rec.vendor_contact_id := rosetta_g_miss_num_map(p5_a6);
1680 ddp_crtv_rec.approval_status := p5_a7;
1681 ddp_crtv_rec.approval_reason := p5_a8;
1682 ddp_crtv_rec.expiration_date := rosetta_g_miss_date_in_map(p5_a9);
1683 ddp_crtv_rec.currency_code := p5_a10;
1684 ddp_crtv_rec.object_version_number := rosetta_g_miss_num_map(p5_a11);
1685 ddp_crtv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
1686 ddp_crtv_rec.request_id := rosetta_g_miss_num_map(p5_a13);
1687 ddp_crtv_rec.program_application_id := rosetta_g_miss_num_map(p5_a14);
1688 ddp_crtv_rec.program_id := rosetta_g_miss_num_map(p5_a15);
1689 ddp_crtv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a16);
1690 ddp_crtv_rec.attribute_category := p5_a17;
1691 ddp_crtv_rec.attribute1 := p5_a18;
1692 ddp_crtv_rec.attribute2 := p5_a19;
1693 ddp_crtv_rec.attribute3 := p5_a20;
1694 ddp_crtv_rec.attribute4 := p5_a21;
1695 ddp_crtv_rec.attribute5 := p5_a22;
1696 ddp_crtv_rec.attribute6 := p5_a23;
1697 ddp_crtv_rec.attribute7 := p5_a24;
1698 ddp_crtv_rec.attribute8 := p5_a25;
1699 ddp_crtv_rec.attribute9 := p5_a26;
1700 ddp_crtv_rec.attribute10 := p5_a27;
1701 ddp_crtv_rec.attribute11 := p5_a28;
1702 ddp_crtv_rec.attribute12 := p5_a29;
1703 ddp_crtv_rec.attribute13 := p5_a30;
1704 ddp_crtv_rec.attribute14 := p5_a31;
1705 ddp_crtv_rec.attribute15 := p5_a32;
1706 ddp_crtv_rec.created_by := rosetta_g_miss_num_map(p5_a33);
1707 ddp_crtv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
1708 ddp_crtv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
1709 ddp_crtv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
1710 ddp_crtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
1711
1712 -- here's the delegated call to the old PL/SQL routine
1713 okl_crt_pvt.delete_row(p_api_version,
1714 p_init_msg_list,
1715 x_return_status,
1716 x_msg_count,
1717 x_msg_data,
1718 ddp_crtv_rec);
1719
1720 -- copy data back from the local variables to OUT or IN-OUT args, if any
1721
1722
1723
1724
1725
1726 end;
1727
1728 procedure delete_row(p_api_version NUMBER
1729 , p_init_msg_list VARCHAR2
1730 , x_return_status out nocopy VARCHAR2
1731 , x_msg_count out nocopy NUMBER
1732 , x_msg_data out nocopy VARCHAR2
1733 , p5_a0 JTF_NUMBER_TABLE
1734 , p5_a1 JTF_VARCHAR2_TABLE_200
1735 , p5_a2 JTF_VARCHAR2_TABLE_100
1736 , p5_a3 JTF_DATE_TABLE
1737 , p5_a4 JTF_NUMBER_TABLE
1738 , p5_a5 JTF_NUMBER_TABLE
1739 , p5_a6 JTF_NUMBER_TABLE
1740 , p5_a7 JTF_VARCHAR2_TABLE_100
1741 , p5_a8 JTF_VARCHAR2_TABLE_2000
1742 , p5_a9 JTF_DATE_TABLE
1743 , p5_a10 JTF_VARCHAR2_TABLE_100
1744 , p5_a11 JTF_NUMBER_TABLE
1745 , p5_a12 JTF_NUMBER_TABLE
1746 , p5_a13 JTF_NUMBER_TABLE
1747 , p5_a14 JTF_NUMBER_TABLE
1748 , p5_a15 JTF_NUMBER_TABLE
1749 , p5_a16 JTF_DATE_TABLE
1750 , p5_a17 JTF_VARCHAR2_TABLE_300
1751 , p5_a18 JTF_VARCHAR2_TABLE_300
1752 , p5_a19 JTF_VARCHAR2_TABLE_300
1753 , p5_a20 JTF_VARCHAR2_TABLE_300
1754 , p5_a21 JTF_VARCHAR2_TABLE_300
1755 , p5_a22 JTF_VARCHAR2_TABLE_300
1756 , p5_a23 JTF_VARCHAR2_TABLE_300
1757 , p5_a24 JTF_VARCHAR2_TABLE_300
1758 , p5_a25 JTF_VARCHAR2_TABLE_300
1759 , p5_a26 JTF_VARCHAR2_TABLE_300
1760 , p5_a27 JTF_VARCHAR2_TABLE_300
1761 , p5_a28 JTF_VARCHAR2_TABLE_300
1762 , p5_a29 JTF_VARCHAR2_TABLE_300
1763 , p5_a30 JTF_VARCHAR2_TABLE_300
1764 , p5_a31 JTF_VARCHAR2_TABLE_300
1765 , p5_a32 JTF_VARCHAR2_TABLE_300
1766 , p5_a33 JTF_NUMBER_TABLE
1767 , p5_a34 JTF_DATE_TABLE
1768 , p5_a35 JTF_NUMBER_TABLE
1769 , p5_a36 JTF_DATE_TABLE
1770 , p5_a37 JTF_NUMBER_TABLE
1771 )
1772
1773 as
1774 ddp_crtv_tbl okl_crt_pvt.crtv_tbl_type;
1775 ddindx binary_integer; indx binary_integer;
1776 begin
1777
1778 -- copy data to the local IN or IN-OUT args, if any
1779
1780
1781
1782
1783
1784 okl_crt_pvt_w.rosetta_table_copy_in_p2(ddp_crtv_tbl, p5_a0
1785 , p5_a1
1786 , p5_a2
1787 , p5_a3
1788 , p5_a4
1789 , p5_a5
1790 , p5_a6
1791 , p5_a7
1792 , p5_a8
1793 , p5_a9
1794 , p5_a10
1795 , p5_a11
1796 , p5_a12
1797 , p5_a13
1798 , p5_a14
1799 , p5_a15
1800 , p5_a16
1801 , p5_a17
1802 , p5_a18
1803 , p5_a19
1804 , p5_a20
1805 , p5_a21
1806 , p5_a22
1807 , p5_a23
1808 , p5_a24
1809 , p5_a25
1810 , p5_a26
1811 , p5_a27
1812 , p5_a28
1813 , p5_a29
1814 , p5_a30
1815 , p5_a31
1816 , p5_a32
1817 , p5_a33
1818 , p5_a34
1819 , p5_a35
1820 , p5_a36
1821 , p5_a37
1822 );
1823
1824 -- here's the delegated call to the old PL/SQL routine
1825 okl_crt_pvt.delete_row(p_api_version,
1826 p_init_msg_list,
1827 x_return_status,
1828 x_msg_count,
1829 x_msg_data,
1830 ddp_crtv_tbl);
1831
1832 -- copy data back from the local variables to OUT or IN-OUT args, if any
1833
1834
1835
1836
1837
1838 end;
1839
1840 procedure validate_row(p_api_version NUMBER
1841 , p_init_msg_list VARCHAR2
1842 , x_return_status out nocopy VARCHAR2
1843 , x_msg_count out nocopy NUMBER
1844 , x_msg_data out nocopy VARCHAR2
1845 , p5_a0 NUMBER := 0-1962.0724
1846 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1847 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1848 , p5_a3 DATE := fnd_api.g_miss_date
1849 , p5_a4 NUMBER := 0-1962.0724
1850 , p5_a5 NUMBER := 0-1962.0724
1851 , p5_a6 NUMBER := 0-1962.0724
1852 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1853 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1854 , p5_a9 DATE := fnd_api.g_miss_date
1855 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1856 , p5_a11 NUMBER := 0-1962.0724
1857 , p5_a12 NUMBER := 0-1962.0724
1858 , p5_a13 NUMBER := 0-1962.0724
1859 , p5_a14 NUMBER := 0-1962.0724
1860 , p5_a15 NUMBER := 0-1962.0724
1861 , p5_a16 DATE := fnd_api.g_miss_date
1862 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1863 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1864 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1865 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1866 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1867 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1868 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1869 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1870 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1871 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1872 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1873 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1874 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1875 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1876 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1877 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1878 , p5_a33 NUMBER := 0-1962.0724
1879 , p5_a34 DATE := fnd_api.g_miss_date
1880 , p5_a35 NUMBER := 0-1962.0724
1881 , p5_a36 DATE := fnd_api.g_miss_date
1882 , p5_a37 NUMBER := 0-1962.0724
1883 )
1884
1885 as
1886 ddp_crtv_rec okl_crt_pvt.crtv_rec_type;
1887 ddindx binary_integer; indx binary_integer;
1888 begin
1889
1890 -- copy data to the local IN or IN-OUT args, if any
1891
1892
1893
1894
1895
1896 ddp_crtv_rec.cure_report_id := rosetta_g_miss_num_map(p5_a0);
1897 ddp_crtv_rec.report_number := p5_a1;
1898 ddp_crtv_rec.report_type := p5_a2;
1899 ddp_crtv_rec.report_date := rosetta_g_miss_date_in_map(p5_a3);
1900 ddp_crtv_rec.vendor_id := rosetta_g_miss_num_map(p5_a4);
1901 ddp_crtv_rec.vendor_site_id := rosetta_g_miss_num_map(p5_a5);
1902 ddp_crtv_rec.vendor_contact_id := rosetta_g_miss_num_map(p5_a6);
1903 ddp_crtv_rec.approval_status := p5_a7;
1904 ddp_crtv_rec.approval_reason := p5_a8;
1905 ddp_crtv_rec.expiration_date := rosetta_g_miss_date_in_map(p5_a9);
1906 ddp_crtv_rec.currency_code := p5_a10;
1907 ddp_crtv_rec.object_version_number := rosetta_g_miss_num_map(p5_a11);
1908 ddp_crtv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
1909 ddp_crtv_rec.request_id := rosetta_g_miss_num_map(p5_a13);
1910 ddp_crtv_rec.program_application_id := rosetta_g_miss_num_map(p5_a14);
1911 ddp_crtv_rec.program_id := rosetta_g_miss_num_map(p5_a15);
1912 ddp_crtv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a16);
1913 ddp_crtv_rec.attribute_category := p5_a17;
1914 ddp_crtv_rec.attribute1 := p5_a18;
1915 ddp_crtv_rec.attribute2 := p5_a19;
1916 ddp_crtv_rec.attribute3 := p5_a20;
1917 ddp_crtv_rec.attribute4 := p5_a21;
1918 ddp_crtv_rec.attribute5 := p5_a22;
1919 ddp_crtv_rec.attribute6 := p5_a23;
1920 ddp_crtv_rec.attribute7 := p5_a24;
1921 ddp_crtv_rec.attribute8 := p5_a25;
1922 ddp_crtv_rec.attribute9 := p5_a26;
1923 ddp_crtv_rec.attribute10 := p5_a27;
1924 ddp_crtv_rec.attribute11 := p5_a28;
1925 ddp_crtv_rec.attribute12 := p5_a29;
1926 ddp_crtv_rec.attribute13 := p5_a30;
1927 ddp_crtv_rec.attribute14 := p5_a31;
1928 ddp_crtv_rec.attribute15 := p5_a32;
1929 ddp_crtv_rec.created_by := rosetta_g_miss_num_map(p5_a33);
1930 ddp_crtv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
1931 ddp_crtv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
1932 ddp_crtv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
1933 ddp_crtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
1934
1935 -- here's the delegated call to the old PL/SQL routine
1936 okl_crt_pvt.validate_row(p_api_version,
1937 p_init_msg_list,
1938 x_return_status,
1939 x_msg_count,
1940 x_msg_data,
1941 ddp_crtv_rec);
1942
1943 -- copy data back from the local variables to OUT or IN-OUT args, if any
1944
1945
1946
1947
1948
1949 end;
1950
1951 procedure validate_row(p_api_version NUMBER
1952 , p_init_msg_list VARCHAR2
1953 , x_return_status out nocopy VARCHAR2
1954 , x_msg_count out nocopy NUMBER
1955 , x_msg_data out nocopy VARCHAR2
1956 , p5_a0 JTF_NUMBER_TABLE
1957 , p5_a1 JTF_VARCHAR2_TABLE_200
1958 , p5_a2 JTF_VARCHAR2_TABLE_100
1959 , p5_a3 JTF_DATE_TABLE
1960 , p5_a4 JTF_NUMBER_TABLE
1961 , p5_a5 JTF_NUMBER_TABLE
1962 , p5_a6 JTF_NUMBER_TABLE
1963 , p5_a7 JTF_VARCHAR2_TABLE_100
1964 , p5_a8 JTF_VARCHAR2_TABLE_2000
1965 , p5_a9 JTF_DATE_TABLE
1966 , p5_a10 JTF_VARCHAR2_TABLE_100
1967 , p5_a11 JTF_NUMBER_TABLE
1968 , p5_a12 JTF_NUMBER_TABLE
1969 , p5_a13 JTF_NUMBER_TABLE
1970 , p5_a14 JTF_NUMBER_TABLE
1971 , p5_a15 JTF_NUMBER_TABLE
1972 , p5_a16 JTF_DATE_TABLE
1973 , p5_a17 JTF_VARCHAR2_TABLE_300
1974 , p5_a18 JTF_VARCHAR2_TABLE_300
1975 , p5_a19 JTF_VARCHAR2_TABLE_300
1976 , p5_a20 JTF_VARCHAR2_TABLE_300
1977 , p5_a21 JTF_VARCHAR2_TABLE_300
1978 , p5_a22 JTF_VARCHAR2_TABLE_300
1979 , p5_a23 JTF_VARCHAR2_TABLE_300
1980 , p5_a24 JTF_VARCHAR2_TABLE_300
1981 , p5_a25 JTF_VARCHAR2_TABLE_300
1982 , p5_a26 JTF_VARCHAR2_TABLE_300
1983 , p5_a27 JTF_VARCHAR2_TABLE_300
1984 , p5_a28 JTF_VARCHAR2_TABLE_300
1985 , p5_a29 JTF_VARCHAR2_TABLE_300
1986 , p5_a30 JTF_VARCHAR2_TABLE_300
1987 , p5_a31 JTF_VARCHAR2_TABLE_300
1988 , p5_a32 JTF_VARCHAR2_TABLE_300
1989 , p5_a33 JTF_NUMBER_TABLE
1990 , p5_a34 JTF_DATE_TABLE
1991 , p5_a35 JTF_NUMBER_TABLE
1992 , p5_a36 JTF_DATE_TABLE
1993 , p5_a37 JTF_NUMBER_TABLE
1994 )
1995
1996 as
1997 ddp_crtv_tbl okl_crt_pvt.crtv_tbl_type;
1998 ddindx binary_integer; indx binary_integer;
1999 begin
2000
2001 -- copy data to the local IN or IN-OUT args, if any
2002
2003
2004
2005
2006
2007 okl_crt_pvt_w.rosetta_table_copy_in_p2(ddp_crtv_tbl, p5_a0
2008 , p5_a1
2009 , p5_a2
2010 , p5_a3
2011 , p5_a4
2012 , p5_a5
2013 , p5_a6
2014 , p5_a7
2015 , p5_a8
2016 , p5_a9
2017 , p5_a10
2018 , p5_a11
2019 , p5_a12
2020 , p5_a13
2021 , p5_a14
2022 , p5_a15
2023 , p5_a16
2024 , p5_a17
2025 , p5_a18
2026 , p5_a19
2027 , p5_a20
2028 , p5_a21
2029 , p5_a22
2030 , p5_a23
2031 , p5_a24
2032 , p5_a25
2033 , p5_a26
2034 , p5_a27
2035 , p5_a28
2036 , p5_a29
2037 , p5_a30
2038 , p5_a31
2039 , p5_a32
2040 , p5_a33
2041 , p5_a34
2042 , p5_a35
2043 , p5_a36
2044 , p5_a37
2045 );
2046
2047 -- here's the delegated call to the old PL/SQL routine
2048 okl_crt_pvt.validate_row(p_api_version,
2049 p_init_msg_list,
2050 x_return_status,
2051 x_msg_count,
2052 x_msg_data,
2053 ddp_crtv_tbl);
2054
2055 -- copy data back from the local variables to OUT or IN-OUT args, if any
2056
2057
2058
2059
2060
2061 end;
2062
2063 end okl_crt_pvt_w;