[Home] [Help]
PACKAGE BODY: APPS.OKL_CURE_REPORTS_PUB_W
Source
1 package body okl_cure_reports_pub_w as
2 /* $Header: OKLUCRTB.pls 115.2 2003/10/07 18:00:48 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_cure_reports_pub.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_cure_reports_pub.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 insert_cure_reports(p_api_version NUMBER
325 , p_init_msg_list VARCHAR2
326 , x_return_status out nocopy VARCHAR2
327 , x_msg_count out nocopy NUMBER
328 , x_msg_data out nocopy VARCHAR2
329 , p5_a0 JTF_NUMBER_TABLE
330 , p5_a1 JTF_VARCHAR2_TABLE_200
331 , p5_a2 JTF_VARCHAR2_TABLE_100
332 , p5_a3 JTF_DATE_TABLE
333 , p5_a4 JTF_NUMBER_TABLE
334 , p5_a5 JTF_NUMBER_TABLE
335 , p5_a6 JTF_NUMBER_TABLE
336 , p5_a7 JTF_VARCHAR2_TABLE_100
337 , p5_a8 JTF_VARCHAR2_TABLE_2000
338 , p5_a9 JTF_DATE_TABLE
339 , p5_a10 JTF_VARCHAR2_TABLE_100
340 , p5_a11 JTF_NUMBER_TABLE
341 , p5_a12 JTF_NUMBER_TABLE
342 , p5_a13 JTF_NUMBER_TABLE
343 , p5_a14 JTF_NUMBER_TABLE
344 , p5_a15 JTF_NUMBER_TABLE
345 , p5_a16 JTF_DATE_TABLE
346 , p5_a17 JTF_VARCHAR2_TABLE_300
347 , p5_a18 JTF_VARCHAR2_TABLE_300
348 , p5_a19 JTF_VARCHAR2_TABLE_300
349 , p5_a20 JTF_VARCHAR2_TABLE_300
350 , p5_a21 JTF_VARCHAR2_TABLE_300
351 , p5_a22 JTF_VARCHAR2_TABLE_300
352 , p5_a23 JTF_VARCHAR2_TABLE_300
353 , p5_a24 JTF_VARCHAR2_TABLE_300
354 , p5_a25 JTF_VARCHAR2_TABLE_300
355 , p5_a26 JTF_VARCHAR2_TABLE_300
356 , p5_a27 JTF_VARCHAR2_TABLE_300
357 , p5_a28 JTF_VARCHAR2_TABLE_300
358 , p5_a29 JTF_VARCHAR2_TABLE_300
359 , p5_a30 JTF_VARCHAR2_TABLE_300
360 , p5_a31 JTF_VARCHAR2_TABLE_300
361 , p5_a32 JTF_VARCHAR2_TABLE_300
362 , p5_a33 JTF_NUMBER_TABLE
363 , p5_a34 JTF_DATE_TABLE
364 , p5_a35 JTF_NUMBER_TABLE
365 , p5_a36 JTF_DATE_TABLE
366 , p5_a37 JTF_NUMBER_TABLE
367 , p6_a0 out nocopy JTF_NUMBER_TABLE
368 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_200
369 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
370 , p6_a3 out nocopy JTF_DATE_TABLE
371 , p6_a4 out nocopy JTF_NUMBER_TABLE
372 , p6_a5 out nocopy JTF_NUMBER_TABLE
373 , p6_a6 out nocopy JTF_NUMBER_TABLE
374 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
375 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_2000
376 , p6_a9 out nocopy JTF_DATE_TABLE
377 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
378 , p6_a11 out nocopy JTF_NUMBER_TABLE
379 , p6_a12 out nocopy JTF_NUMBER_TABLE
380 , p6_a13 out nocopy JTF_NUMBER_TABLE
381 , p6_a14 out nocopy JTF_NUMBER_TABLE
382 , p6_a15 out nocopy JTF_NUMBER_TABLE
383 , p6_a16 out nocopy JTF_DATE_TABLE
384 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_300
385 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_300
386 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_300
387 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_300
388 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_300
389 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_300
390 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_300
391 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_300
392 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_300
393 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_300
394 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_300
395 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_300
396 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_300
397 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_300
398 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_300
399 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_300
400 , p6_a33 out nocopy JTF_NUMBER_TABLE
401 , p6_a34 out nocopy JTF_DATE_TABLE
402 , p6_a35 out nocopy JTF_NUMBER_TABLE
403 , p6_a36 out nocopy JTF_DATE_TABLE
404 , p6_a37 out nocopy JTF_NUMBER_TABLE
405 )
406
407 as
408 ddp_crtv_tbl okl_cure_reports_pub.crtv_tbl_type;
409 ddx_crtv_tbl okl_cure_reports_pub.crtv_tbl_type;
410 ddindx binary_integer; indx binary_integer;
411 begin
412
413 -- copy data to the local IN or IN-OUT args, if any
414
415
416
417
418
419 okl_cure_reports_pub_w.rosetta_table_copy_in_p2(ddp_crtv_tbl, p5_a0
420 , p5_a1
421 , p5_a2
422 , p5_a3
423 , p5_a4
424 , p5_a5
425 , p5_a6
426 , p5_a7
427 , p5_a8
428 , p5_a9
429 , p5_a10
430 , p5_a11
431 , p5_a12
432 , p5_a13
433 , p5_a14
434 , p5_a15
435 , p5_a16
436 , p5_a17
437 , p5_a18
438 , p5_a19
439 , p5_a20
440 , p5_a21
441 , p5_a22
442 , p5_a23
443 , p5_a24
444 , p5_a25
445 , p5_a26
446 , p5_a27
447 , p5_a28
448 , p5_a29
449 , p5_a30
450 , p5_a31
451 , p5_a32
452 , p5_a33
453 , p5_a34
454 , p5_a35
455 , p5_a36
456 , p5_a37
457 );
458
459
460 -- here's the delegated call to the old PL/SQL routine
461 okl_cure_reports_pub.insert_cure_reports(p_api_version,
462 p_init_msg_list,
463 x_return_status,
464 x_msg_count,
465 x_msg_data,
466 ddp_crtv_tbl,
467 ddx_crtv_tbl);
468
469 -- copy data back from the local variables to OUT or IN-OUT args, if any
470
471
472
473
474
475
476 okl_cure_reports_pub_w.rosetta_table_copy_out_p2(ddx_crtv_tbl, p6_a0
477 , p6_a1
478 , p6_a2
479 , p6_a3
480 , p6_a4
481 , p6_a5
482 , p6_a6
483 , p6_a7
484 , p6_a8
485 , p6_a9
486 , p6_a10
487 , p6_a11
488 , p6_a12
489 , p6_a13
490 , p6_a14
491 , p6_a15
492 , p6_a16
493 , p6_a17
494 , p6_a18
495 , p6_a19
496 , p6_a20
497 , p6_a21
498 , p6_a22
499 , p6_a23
500 , p6_a24
501 , p6_a25
502 , p6_a26
503 , p6_a27
504 , p6_a28
505 , p6_a29
506 , p6_a30
507 , p6_a31
508 , p6_a32
509 , p6_a33
510 , p6_a34
511 , p6_a35
512 , p6_a36
513 , p6_a37
514 );
515 end;
516
517 procedure insert_cure_reports(p_api_version NUMBER
518 , p_init_msg_list VARCHAR2
519 , x_return_status out nocopy VARCHAR2
520 , x_msg_count out nocopy NUMBER
521 , x_msg_data out nocopy VARCHAR2
522 , p6_a0 out nocopy NUMBER
523 , p6_a1 out nocopy VARCHAR2
524 , p6_a2 out nocopy VARCHAR2
525 , p6_a3 out nocopy DATE
526 , p6_a4 out nocopy NUMBER
527 , p6_a5 out nocopy NUMBER
528 , p6_a6 out nocopy NUMBER
529 , p6_a7 out nocopy VARCHAR2
530 , p6_a8 out nocopy VARCHAR2
531 , p6_a9 out nocopy DATE
532 , p6_a10 out nocopy VARCHAR2
533 , p6_a11 out nocopy NUMBER
534 , p6_a12 out nocopy NUMBER
535 , p6_a13 out nocopy NUMBER
536 , p6_a14 out nocopy NUMBER
537 , p6_a15 out nocopy NUMBER
538 , p6_a16 out nocopy DATE
539 , p6_a17 out nocopy VARCHAR2
540 , p6_a18 out nocopy VARCHAR2
541 , p6_a19 out nocopy VARCHAR2
542 , p6_a20 out nocopy VARCHAR2
543 , p6_a21 out nocopy VARCHAR2
544 , p6_a22 out nocopy VARCHAR2
545 , p6_a23 out nocopy VARCHAR2
546 , p6_a24 out nocopy VARCHAR2
547 , p6_a25 out nocopy VARCHAR2
548 , p6_a26 out nocopy VARCHAR2
549 , p6_a27 out nocopy VARCHAR2
550 , p6_a28 out nocopy VARCHAR2
551 , p6_a29 out nocopy VARCHAR2
552 , p6_a30 out nocopy VARCHAR2
553 , p6_a31 out nocopy VARCHAR2
554 , p6_a32 out nocopy VARCHAR2
555 , p6_a33 out nocopy NUMBER
556 , p6_a34 out nocopy DATE
557 , p6_a35 out nocopy NUMBER
558 , p6_a36 out nocopy DATE
559 , p6_a37 out nocopy NUMBER
560 , p5_a0 NUMBER := 0-1962.0724
561 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
562 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
563 , p5_a3 DATE := fnd_api.g_miss_date
564 , p5_a4 NUMBER := 0-1962.0724
565 , p5_a5 NUMBER := 0-1962.0724
566 , p5_a6 NUMBER := 0-1962.0724
567 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
568 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
569 , p5_a9 DATE := fnd_api.g_miss_date
570 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
571 , p5_a11 NUMBER := 0-1962.0724
572 , p5_a12 NUMBER := 0-1962.0724
573 , p5_a13 NUMBER := 0-1962.0724
574 , p5_a14 NUMBER := 0-1962.0724
575 , p5_a15 NUMBER := 0-1962.0724
576 , p5_a16 DATE := fnd_api.g_miss_date
577 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
578 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
579 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
580 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
581 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
582 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
583 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
584 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
585 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
586 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
587 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
588 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
589 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
590 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
591 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
592 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
593 , p5_a33 NUMBER := 0-1962.0724
594 , p5_a34 DATE := fnd_api.g_miss_date
595 , p5_a35 NUMBER := 0-1962.0724
596 , p5_a36 DATE := fnd_api.g_miss_date
597 , p5_a37 NUMBER := 0-1962.0724
598 )
599
600 as
601 ddp_crtv_rec okl_cure_reports_pub.crtv_rec_type;
602 ddx_crtv_rec okl_cure_reports_pub.crtv_rec_type;
603 ddindx binary_integer; indx binary_integer;
604 begin
605
606 -- copy data to the local IN or IN-OUT args, if any
607
608
609
610
611
612 ddp_crtv_rec.cure_report_id := rosetta_g_miss_num_map(p5_a0);
613 ddp_crtv_rec.report_number := p5_a1;
614 ddp_crtv_rec.report_type := p5_a2;
615 ddp_crtv_rec.report_date := rosetta_g_miss_date_in_map(p5_a3);
616 ddp_crtv_rec.vendor_id := rosetta_g_miss_num_map(p5_a4);
617 ddp_crtv_rec.vendor_site_id := rosetta_g_miss_num_map(p5_a5);
618 ddp_crtv_rec.vendor_contact_id := rosetta_g_miss_num_map(p5_a6);
619 ddp_crtv_rec.approval_status := p5_a7;
620 ddp_crtv_rec.approval_reason := p5_a8;
621 ddp_crtv_rec.expiration_date := rosetta_g_miss_date_in_map(p5_a9);
622 ddp_crtv_rec.currency_code := p5_a10;
623 ddp_crtv_rec.object_version_number := rosetta_g_miss_num_map(p5_a11);
624 ddp_crtv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
625 ddp_crtv_rec.request_id := rosetta_g_miss_num_map(p5_a13);
626 ddp_crtv_rec.program_application_id := rosetta_g_miss_num_map(p5_a14);
627 ddp_crtv_rec.program_id := rosetta_g_miss_num_map(p5_a15);
628 ddp_crtv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a16);
629 ddp_crtv_rec.attribute_category := p5_a17;
630 ddp_crtv_rec.attribute1 := p5_a18;
631 ddp_crtv_rec.attribute2 := p5_a19;
632 ddp_crtv_rec.attribute3 := p5_a20;
633 ddp_crtv_rec.attribute4 := p5_a21;
634 ddp_crtv_rec.attribute5 := p5_a22;
635 ddp_crtv_rec.attribute6 := p5_a23;
636 ddp_crtv_rec.attribute7 := p5_a24;
637 ddp_crtv_rec.attribute8 := p5_a25;
638 ddp_crtv_rec.attribute9 := p5_a26;
639 ddp_crtv_rec.attribute10 := p5_a27;
640 ddp_crtv_rec.attribute11 := p5_a28;
641 ddp_crtv_rec.attribute12 := p5_a29;
642 ddp_crtv_rec.attribute13 := p5_a30;
643 ddp_crtv_rec.attribute14 := p5_a31;
644 ddp_crtv_rec.attribute15 := p5_a32;
645 ddp_crtv_rec.created_by := rosetta_g_miss_num_map(p5_a33);
646 ddp_crtv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
647 ddp_crtv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
648 ddp_crtv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
649 ddp_crtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
650
651
652 -- here's the delegated call to the old PL/SQL routine
653 okl_cure_reports_pub.insert_cure_reports(p_api_version,
654 p_init_msg_list,
655 x_return_status,
656 x_msg_count,
657 x_msg_data,
658 ddp_crtv_rec,
659 ddx_crtv_rec);
660
661 -- copy data back from the local variables to OUT or IN-OUT args, if any
662
663
664
665
666
667
668 p6_a0 := rosetta_g_miss_num_map(ddx_crtv_rec.cure_report_id);
669 p6_a1 := ddx_crtv_rec.report_number;
670 p6_a2 := ddx_crtv_rec.report_type;
671 p6_a3 := ddx_crtv_rec.report_date;
672 p6_a4 := rosetta_g_miss_num_map(ddx_crtv_rec.vendor_id);
673 p6_a5 := rosetta_g_miss_num_map(ddx_crtv_rec.vendor_site_id);
674 p6_a6 := rosetta_g_miss_num_map(ddx_crtv_rec.vendor_contact_id);
675 p6_a7 := ddx_crtv_rec.approval_status;
676 p6_a8 := ddx_crtv_rec.approval_reason;
677 p6_a9 := ddx_crtv_rec.expiration_date;
678 p6_a10 := ddx_crtv_rec.currency_code;
679 p6_a11 := rosetta_g_miss_num_map(ddx_crtv_rec.object_version_number);
680 p6_a12 := rosetta_g_miss_num_map(ddx_crtv_rec.org_id);
681 p6_a13 := rosetta_g_miss_num_map(ddx_crtv_rec.request_id);
682 p6_a14 := rosetta_g_miss_num_map(ddx_crtv_rec.program_application_id);
683 p6_a15 := rosetta_g_miss_num_map(ddx_crtv_rec.program_id);
684 p6_a16 := ddx_crtv_rec.program_update_date;
685 p6_a17 := ddx_crtv_rec.attribute_category;
686 p6_a18 := ddx_crtv_rec.attribute1;
687 p6_a19 := ddx_crtv_rec.attribute2;
688 p6_a20 := ddx_crtv_rec.attribute3;
689 p6_a21 := ddx_crtv_rec.attribute4;
690 p6_a22 := ddx_crtv_rec.attribute5;
691 p6_a23 := ddx_crtv_rec.attribute6;
692 p6_a24 := ddx_crtv_rec.attribute7;
693 p6_a25 := ddx_crtv_rec.attribute8;
694 p6_a26 := ddx_crtv_rec.attribute9;
695 p6_a27 := ddx_crtv_rec.attribute10;
696 p6_a28 := ddx_crtv_rec.attribute11;
697 p6_a29 := ddx_crtv_rec.attribute12;
698 p6_a30 := ddx_crtv_rec.attribute13;
699 p6_a31 := ddx_crtv_rec.attribute14;
700 p6_a32 := ddx_crtv_rec.attribute15;
701 p6_a33 := rosetta_g_miss_num_map(ddx_crtv_rec.created_by);
702 p6_a34 := ddx_crtv_rec.creation_date;
703 p6_a35 := rosetta_g_miss_num_map(ddx_crtv_rec.last_updated_by);
704 p6_a36 := ddx_crtv_rec.last_update_date;
705 p6_a37 := rosetta_g_miss_num_map(ddx_crtv_rec.last_update_login);
706 end;
707
708 procedure lock_cure_reports(p_api_version NUMBER
709 , p_init_msg_list VARCHAR2
710 , x_return_status out nocopy VARCHAR2
711 , x_msg_count out nocopy NUMBER
712 , x_msg_data out nocopy VARCHAR2
713 , p5_a0 JTF_NUMBER_TABLE
714 , p5_a1 JTF_VARCHAR2_TABLE_200
715 , p5_a2 JTF_VARCHAR2_TABLE_100
716 , p5_a3 JTF_DATE_TABLE
717 , p5_a4 JTF_NUMBER_TABLE
718 , p5_a5 JTF_NUMBER_TABLE
719 , p5_a6 JTF_NUMBER_TABLE
720 , p5_a7 JTF_VARCHAR2_TABLE_100
721 , p5_a8 JTF_VARCHAR2_TABLE_2000
722 , p5_a9 JTF_DATE_TABLE
723 , p5_a10 JTF_VARCHAR2_TABLE_100
724 , p5_a11 JTF_NUMBER_TABLE
725 , p5_a12 JTF_NUMBER_TABLE
726 , p5_a13 JTF_NUMBER_TABLE
727 , p5_a14 JTF_NUMBER_TABLE
728 , p5_a15 JTF_NUMBER_TABLE
729 , p5_a16 JTF_DATE_TABLE
730 , p5_a17 JTF_VARCHAR2_TABLE_300
731 , p5_a18 JTF_VARCHAR2_TABLE_300
732 , p5_a19 JTF_VARCHAR2_TABLE_300
733 , p5_a20 JTF_VARCHAR2_TABLE_300
734 , p5_a21 JTF_VARCHAR2_TABLE_300
735 , p5_a22 JTF_VARCHAR2_TABLE_300
736 , p5_a23 JTF_VARCHAR2_TABLE_300
737 , p5_a24 JTF_VARCHAR2_TABLE_300
738 , p5_a25 JTF_VARCHAR2_TABLE_300
739 , p5_a26 JTF_VARCHAR2_TABLE_300
740 , p5_a27 JTF_VARCHAR2_TABLE_300
741 , p5_a28 JTF_VARCHAR2_TABLE_300
742 , p5_a29 JTF_VARCHAR2_TABLE_300
743 , p5_a30 JTF_VARCHAR2_TABLE_300
744 , p5_a31 JTF_VARCHAR2_TABLE_300
745 , p5_a32 JTF_VARCHAR2_TABLE_300
746 , p5_a33 JTF_NUMBER_TABLE
747 , p5_a34 JTF_DATE_TABLE
748 , p5_a35 JTF_NUMBER_TABLE
749 , p5_a36 JTF_DATE_TABLE
750 , p5_a37 JTF_NUMBER_TABLE
751 )
752
753 as
754 ddp_crtv_tbl okl_cure_reports_pub.crtv_tbl_type;
755 ddindx binary_integer; indx binary_integer;
756 begin
757
758 -- copy data to the local IN or IN-OUT args, if any
759
760
761
762
763
764 okl_cure_reports_pub_w.rosetta_table_copy_in_p2(ddp_crtv_tbl, p5_a0
765 , p5_a1
766 , p5_a2
767 , p5_a3
768 , p5_a4
769 , p5_a5
770 , p5_a6
771 , p5_a7
772 , p5_a8
773 , p5_a9
774 , p5_a10
775 , p5_a11
776 , p5_a12
777 , p5_a13
778 , p5_a14
779 , p5_a15
780 , p5_a16
781 , p5_a17
782 , p5_a18
783 , p5_a19
784 , p5_a20
785 , p5_a21
786 , p5_a22
787 , p5_a23
788 , p5_a24
789 , p5_a25
790 , p5_a26
791 , p5_a27
792 , p5_a28
793 , p5_a29
794 , p5_a30
795 , p5_a31
796 , p5_a32
797 , p5_a33
798 , p5_a34
799 , p5_a35
800 , p5_a36
801 , p5_a37
802 );
803
804 -- here's the delegated call to the old PL/SQL routine
805 okl_cure_reports_pub.lock_cure_reports(p_api_version,
806 p_init_msg_list,
807 x_return_status,
808 x_msg_count,
809 x_msg_data,
810 ddp_crtv_tbl);
811
812 -- copy data back from the local variables to OUT or IN-OUT args, if any
813
814
815
816
817
818 end;
819
820 procedure lock_cure_reports(p_api_version NUMBER
821 , p_init_msg_list VARCHAR2
822 , x_return_status out nocopy VARCHAR2
823 , x_msg_count out nocopy NUMBER
824 , x_msg_data out nocopy VARCHAR2
825 , p5_a0 NUMBER := 0-1962.0724
826 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
827 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
828 , p5_a3 DATE := fnd_api.g_miss_date
829 , p5_a4 NUMBER := 0-1962.0724
830 , p5_a5 NUMBER := 0-1962.0724
831 , p5_a6 NUMBER := 0-1962.0724
832 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
833 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
834 , p5_a9 DATE := fnd_api.g_miss_date
835 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
836 , p5_a11 NUMBER := 0-1962.0724
837 , p5_a12 NUMBER := 0-1962.0724
838 , p5_a13 NUMBER := 0-1962.0724
839 , p5_a14 NUMBER := 0-1962.0724
840 , p5_a15 NUMBER := 0-1962.0724
841 , p5_a16 DATE := fnd_api.g_miss_date
842 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
843 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
844 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
845 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
846 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
847 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
848 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
849 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
850 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
851 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
852 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
853 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
854 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
855 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
856 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
857 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
858 , p5_a33 NUMBER := 0-1962.0724
859 , p5_a34 DATE := fnd_api.g_miss_date
860 , p5_a35 NUMBER := 0-1962.0724
861 , p5_a36 DATE := fnd_api.g_miss_date
862 , p5_a37 NUMBER := 0-1962.0724
863 )
864
865 as
866 ddp_crtv_rec okl_cure_reports_pub.crtv_rec_type;
867 ddindx binary_integer; indx binary_integer;
868 begin
869
870 -- copy data to the local IN or IN-OUT args, if any
871
872
873
874
875
876 ddp_crtv_rec.cure_report_id := rosetta_g_miss_num_map(p5_a0);
877 ddp_crtv_rec.report_number := p5_a1;
878 ddp_crtv_rec.report_type := p5_a2;
879 ddp_crtv_rec.report_date := rosetta_g_miss_date_in_map(p5_a3);
880 ddp_crtv_rec.vendor_id := rosetta_g_miss_num_map(p5_a4);
881 ddp_crtv_rec.vendor_site_id := rosetta_g_miss_num_map(p5_a5);
882 ddp_crtv_rec.vendor_contact_id := rosetta_g_miss_num_map(p5_a6);
883 ddp_crtv_rec.approval_status := p5_a7;
884 ddp_crtv_rec.approval_reason := p5_a8;
885 ddp_crtv_rec.expiration_date := rosetta_g_miss_date_in_map(p5_a9);
886 ddp_crtv_rec.currency_code := p5_a10;
887 ddp_crtv_rec.object_version_number := rosetta_g_miss_num_map(p5_a11);
888 ddp_crtv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
889 ddp_crtv_rec.request_id := rosetta_g_miss_num_map(p5_a13);
890 ddp_crtv_rec.program_application_id := rosetta_g_miss_num_map(p5_a14);
891 ddp_crtv_rec.program_id := rosetta_g_miss_num_map(p5_a15);
892 ddp_crtv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a16);
893 ddp_crtv_rec.attribute_category := p5_a17;
894 ddp_crtv_rec.attribute1 := p5_a18;
895 ddp_crtv_rec.attribute2 := p5_a19;
896 ddp_crtv_rec.attribute3 := p5_a20;
897 ddp_crtv_rec.attribute4 := p5_a21;
898 ddp_crtv_rec.attribute5 := p5_a22;
899 ddp_crtv_rec.attribute6 := p5_a23;
900 ddp_crtv_rec.attribute7 := p5_a24;
901 ddp_crtv_rec.attribute8 := p5_a25;
902 ddp_crtv_rec.attribute9 := p5_a26;
903 ddp_crtv_rec.attribute10 := p5_a27;
904 ddp_crtv_rec.attribute11 := p5_a28;
905 ddp_crtv_rec.attribute12 := p5_a29;
906 ddp_crtv_rec.attribute13 := p5_a30;
907 ddp_crtv_rec.attribute14 := p5_a31;
908 ddp_crtv_rec.attribute15 := p5_a32;
909 ddp_crtv_rec.created_by := rosetta_g_miss_num_map(p5_a33);
910 ddp_crtv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
911 ddp_crtv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
912 ddp_crtv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
913 ddp_crtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
914
915 -- here's the delegated call to the old PL/SQL routine
916 okl_cure_reports_pub.lock_cure_reports(p_api_version,
917 p_init_msg_list,
918 x_return_status,
919 x_msg_count,
920 x_msg_data,
921 ddp_crtv_rec);
922
923 -- copy data back from the local variables to OUT or IN-OUT args, if any
924
925
926
927
928
929 end;
930
931 procedure update_cure_reports(p_api_version NUMBER
932 , p_init_msg_list VARCHAR2
933 , x_return_status out nocopy VARCHAR2
934 , x_msg_count out nocopy NUMBER
935 , x_msg_data out nocopy VARCHAR2
936 , p5_a0 JTF_NUMBER_TABLE
937 , p5_a1 JTF_VARCHAR2_TABLE_200
938 , p5_a2 JTF_VARCHAR2_TABLE_100
939 , p5_a3 JTF_DATE_TABLE
940 , p5_a4 JTF_NUMBER_TABLE
941 , p5_a5 JTF_NUMBER_TABLE
942 , p5_a6 JTF_NUMBER_TABLE
943 , p5_a7 JTF_VARCHAR2_TABLE_100
944 , p5_a8 JTF_VARCHAR2_TABLE_2000
945 , p5_a9 JTF_DATE_TABLE
946 , p5_a10 JTF_VARCHAR2_TABLE_100
947 , p5_a11 JTF_NUMBER_TABLE
948 , p5_a12 JTF_NUMBER_TABLE
949 , p5_a13 JTF_NUMBER_TABLE
950 , p5_a14 JTF_NUMBER_TABLE
951 , p5_a15 JTF_NUMBER_TABLE
952 , p5_a16 JTF_DATE_TABLE
953 , p5_a17 JTF_VARCHAR2_TABLE_300
954 , p5_a18 JTF_VARCHAR2_TABLE_300
955 , p5_a19 JTF_VARCHAR2_TABLE_300
956 , p5_a20 JTF_VARCHAR2_TABLE_300
957 , p5_a21 JTF_VARCHAR2_TABLE_300
958 , p5_a22 JTF_VARCHAR2_TABLE_300
959 , p5_a23 JTF_VARCHAR2_TABLE_300
960 , p5_a24 JTF_VARCHAR2_TABLE_300
961 , p5_a25 JTF_VARCHAR2_TABLE_300
962 , p5_a26 JTF_VARCHAR2_TABLE_300
963 , p5_a27 JTF_VARCHAR2_TABLE_300
964 , p5_a28 JTF_VARCHAR2_TABLE_300
965 , p5_a29 JTF_VARCHAR2_TABLE_300
966 , p5_a30 JTF_VARCHAR2_TABLE_300
967 , p5_a31 JTF_VARCHAR2_TABLE_300
968 , p5_a32 JTF_VARCHAR2_TABLE_300
969 , p5_a33 JTF_NUMBER_TABLE
970 , p5_a34 JTF_DATE_TABLE
971 , p5_a35 JTF_NUMBER_TABLE
972 , p5_a36 JTF_DATE_TABLE
973 , p5_a37 JTF_NUMBER_TABLE
974 , p6_a0 out nocopy JTF_NUMBER_TABLE
975 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_200
976 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
977 , p6_a3 out nocopy JTF_DATE_TABLE
978 , p6_a4 out nocopy JTF_NUMBER_TABLE
979 , p6_a5 out nocopy JTF_NUMBER_TABLE
980 , p6_a6 out nocopy JTF_NUMBER_TABLE
981 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
982 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_2000
983 , p6_a9 out nocopy JTF_DATE_TABLE
984 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
985 , p6_a11 out nocopy JTF_NUMBER_TABLE
986 , p6_a12 out nocopy JTF_NUMBER_TABLE
987 , p6_a13 out nocopy JTF_NUMBER_TABLE
988 , p6_a14 out nocopy JTF_NUMBER_TABLE
989 , p6_a15 out nocopy JTF_NUMBER_TABLE
990 , p6_a16 out nocopy JTF_DATE_TABLE
991 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_300
992 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_300
993 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_300
994 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_300
995 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_300
996 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_300
997 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_300
998 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_300
999 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_300
1000 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_300
1001 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_300
1002 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_300
1003 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_300
1004 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_300
1005 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_300
1006 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_300
1007 , p6_a33 out nocopy JTF_NUMBER_TABLE
1008 , p6_a34 out nocopy JTF_DATE_TABLE
1009 , p6_a35 out nocopy JTF_NUMBER_TABLE
1010 , p6_a36 out nocopy JTF_DATE_TABLE
1011 , p6_a37 out nocopy JTF_NUMBER_TABLE
1012 )
1013
1014 as
1015 ddp_crtv_tbl okl_cure_reports_pub.crtv_tbl_type;
1016 ddx_crtv_tbl okl_cure_reports_pub.crtv_tbl_type;
1017 ddindx binary_integer; indx binary_integer;
1018 begin
1019
1020 -- copy data to the local IN or IN-OUT args, if any
1021
1022
1023
1024
1025
1026 okl_cure_reports_pub_w.rosetta_table_copy_in_p2(ddp_crtv_tbl, p5_a0
1027 , p5_a1
1028 , p5_a2
1029 , p5_a3
1030 , p5_a4
1031 , p5_a5
1032 , p5_a6
1033 , p5_a7
1034 , p5_a8
1035 , p5_a9
1036 , p5_a10
1037 , p5_a11
1038 , p5_a12
1039 , p5_a13
1040 , p5_a14
1041 , p5_a15
1042 , p5_a16
1043 , p5_a17
1044 , p5_a18
1045 , p5_a19
1046 , p5_a20
1047 , p5_a21
1048 , p5_a22
1049 , p5_a23
1050 , p5_a24
1051 , p5_a25
1052 , p5_a26
1053 , p5_a27
1054 , p5_a28
1055 , p5_a29
1056 , p5_a30
1057 , p5_a31
1058 , p5_a32
1059 , p5_a33
1060 , p5_a34
1061 , p5_a35
1062 , p5_a36
1063 , p5_a37
1064 );
1065
1066
1067 -- here's the delegated call to the old PL/SQL routine
1068 okl_cure_reports_pub.update_cure_reports(p_api_version,
1069 p_init_msg_list,
1070 x_return_status,
1071 x_msg_count,
1072 x_msg_data,
1073 ddp_crtv_tbl,
1074 ddx_crtv_tbl);
1075
1076 -- copy data back from the local variables to OUT or IN-OUT args, if any
1077
1078
1079
1080
1081
1082
1083 okl_cure_reports_pub_w.rosetta_table_copy_out_p2(ddx_crtv_tbl, p6_a0
1084 , p6_a1
1085 , p6_a2
1086 , p6_a3
1087 , p6_a4
1088 , p6_a5
1089 , p6_a6
1090 , p6_a7
1091 , p6_a8
1092 , p6_a9
1093 , p6_a10
1094 , p6_a11
1095 , p6_a12
1096 , p6_a13
1097 , p6_a14
1098 , p6_a15
1099 , p6_a16
1100 , p6_a17
1101 , p6_a18
1102 , p6_a19
1103 , p6_a20
1104 , p6_a21
1105 , p6_a22
1106 , p6_a23
1107 , p6_a24
1108 , p6_a25
1109 , p6_a26
1110 , p6_a27
1111 , p6_a28
1112 , p6_a29
1113 , p6_a30
1114 , p6_a31
1115 , p6_a32
1116 , p6_a33
1117 , p6_a34
1118 , p6_a35
1119 , p6_a36
1120 , p6_a37
1121 );
1122 end;
1123
1124 procedure update_cure_reports(p_api_version NUMBER
1125 , p_init_msg_list VARCHAR2
1126 , x_return_status out nocopy VARCHAR2
1127 , x_msg_count out nocopy NUMBER
1128 , x_msg_data out nocopy VARCHAR2
1129 , p6_a0 out nocopy NUMBER
1130 , p6_a1 out nocopy VARCHAR2
1131 , p6_a2 out nocopy VARCHAR2
1132 , p6_a3 out nocopy DATE
1133 , p6_a4 out nocopy NUMBER
1134 , p6_a5 out nocopy NUMBER
1135 , p6_a6 out nocopy NUMBER
1136 , p6_a7 out nocopy VARCHAR2
1137 , p6_a8 out nocopy VARCHAR2
1138 , p6_a9 out nocopy DATE
1139 , p6_a10 out nocopy VARCHAR2
1140 , p6_a11 out nocopy NUMBER
1141 , p6_a12 out nocopy NUMBER
1142 , p6_a13 out nocopy NUMBER
1143 , p6_a14 out nocopy NUMBER
1144 , p6_a15 out nocopy NUMBER
1145 , p6_a16 out nocopy DATE
1146 , p6_a17 out nocopy VARCHAR2
1147 , p6_a18 out nocopy VARCHAR2
1148 , p6_a19 out nocopy VARCHAR2
1149 , p6_a20 out nocopy VARCHAR2
1150 , p6_a21 out nocopy VARCHAR2
1151 , p6_a22 out nocopy VARCHAR2
1152 , p6_a23 out nocopy VARCHAR2
1153 , p6_a24 out nocopy VARCHAR2
1154 , p6_a25 out nocopy VARCHAR2
1155 , p6_a26 out nocopy VARCHAR2
1156 , p6_a27 out nocopy VARCHAR2
1157 , p6_a28 out nocopy VARCHAR2
1158 , p6_a29 out nocopy VARCHAR2
1159 , p6_a30 out nocopy VARCHAR2
1160 , p6_a31 out nocopy VARCHAR2
1161 , p6_a32 out nocopy VARCHAR2
1162 , p6_a33 out nocopy NUMBER
1163 , p6_a34 out nocopy DATE
1164 , p6_a35 out nocopy NUMBER
1165 , p6_a36 out nocopy DATE
1166 , p6_a37 out nocopy NUMBER
1167 , p5_a0 NUMBER := 0-1962.0724
1168 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1169 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1170 , p5_a3 DATE := fnd_api.g_miss_date
1171 , p5_a4 NUMBER := 0-1962.0724
1172 , p5_a5 NUMBER := 0-1962.0724
1173 , p5_a6 NUMBER := 0-1962.0724
1174 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1175 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1176 , p5_a9 DATE := fnd_api.g_miss_date
1177 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1178 , p5_a11 NUMBER := 0-1962.0724
1179 , p5_a12 NUMBER := 0-1962.0724
1180 , p5_a13 NUMBER := 0-1962.0724
1181 , p5_a14 NUMBER := 0-1962.0724
1182 , p5_a15 NUMBER := 0-1962.0724
1183 , p5_a16 DATE := fnd_api.g_miss_date
1184 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1185 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1186 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1187 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1188 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1189 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1190 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1191 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1192 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1193 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1194 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1195 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1196 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1197 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1198 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1199 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1200 , p5_a33 NUMBER := 0-1962.0724
1201 , p5_a34 DATE := fnd_api.g_miss_date
1202 , p5_a35 NUMBER := 0-1962.0724
1203 , p5_a36 DATE := fnd_api.g_miss_date
1204 , p5_a37 NUMBER := 0-1962.0724
1205 )
1206
1207 as
1208 ddp_crtv_rec okl_cure_reports_pub.crtv_rec_type;
1209 ddx_crtv_rec okl_cure_reports_pub.crtv_rec_type;
1210 ddindx binary_integer; indx binary_integer;
1211 begin
1212
1213 -- copy data to the local IN or IN-OUT args, if any
1214
1215
1216
1217
1218
1219 ddp_crtv_rec.cure_report_id := rosetta_g_miss_num_map(p5_a0);
1220 ddp_crtv_rec.report_number := p5_a1;
1221 ddp_crtv_rec.report_type := p5_a2;
1222 ddp_crtv_rec.report_date := rosetta_g_miss_date_in_map(p5_a3);
1223 ddp_crtv_rec.vendor_id := rosetta_g_miss_num_map(p5_a4);
1224 ddp_crtv_rec.vendor_site_id := rosetta_g_miss_num_map(p5_a5);
1225 ddp_crtv_rec.vendor_contact_id := rosetta_g_miss_num_map(p5_a6);
1226 ddp_crtv_rec.approval_status := p5_a7;
1227 ddp_crtv_rec.approval_reason := p5_a8;
1228 ddp_crtv_rec.expiration_date := rosetta_g_miss_date_in_map(p5_a9);
1229 ddp_crtv_rec.currency_code := p5_a10;
1230 ddp_crtv_rec.object_version_number := rosetta_g_miss_num_map(p5_a11);
1231 ddp_crtv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
1232 ddp_crtv_rec.request_id := rosetta_g_miss_num_map(p5_a13);
1233 ddp_crtv_rec.program_application_id := rosetta_g_miss_num_map(p5_a14);
1234 ddp_crtv_rec.program_id := rosetta_g_miss_num_map(p5_a15);
1235 ddp_crtv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a16);
1236 ddp_crtv_rec.attribute_category := p5_a17;
1237 ddp_crtv_rec.attribute1 := p5_a18;
1238 ddp_crtv_rec.attribute2 := p5_a19;
1239 ddp_crtv_rec.attribute3 := p5_a20;
1240 ddp_crtv_rec.attribute4 := p5_a21;
1241 ddp_crtv_rec.attribute5 := p5_a22;
1242 ddp_crtv_rec.attribute6 := p5_a23;
1243 ddp_crtv_rec.attribute7 := p5_a24;
1244 ddp_crtv_rec.attribute8 := p5_a25;
1245 ddp_crtv_rec.attribute9 := p5_a26;
1246 ddp_crtv_rec.attribute10 := p5_a27;
1247 ddp_crtv_rec.attribute11 := p5_a28;
1248 ddp_crtv_rec.attribute12 := p5_a29;
1249 ddp_crtv_rec.attribute13 := p5_a30;
1250 ddp_crtv_rec.attribute14 := p5_a31;
1251 ddp_crtv_rec.attribute15 := p5_a32;
1252 ddp_crtv_rec.created_by := rosetta_g_miss_num_map(p5_a33);
1253 ddp_crtv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
1254 ddp_crtv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
1255 ddp_crtv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
1256 ddp_crtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
1257
1258
1259 -- here's the delegated call to the old PL/SQL routine
1260 okl_cure_reports_pub.update_cure_reports(p_api_version,
1261 p_init_msg_list,
1262 x_return_status,
1263 x_msg_count,
1264 x_msg_data,
1265 ddp_crtv_rec,
1266 ddx_crtv_rec);
1267
1268 -- copy data back from the local variables to OUT or IN-OUT args, if any
1269
1270
1271
1272
1273
1274
1275 p6_a0 := rosetta_g_miss_num_map(ddx_crtv_rec.cure_report_id);
1276 p6_a1 := ddx_crtv_rec.report_number;
1277 p6_a2 := ddx_crtv_rec.report_type;
1278 p6_a3 := ddx_crtv_rec.report_date;
1279 p6_a4 := rosetta_g_miss_num_map(ddx_crtv_rec.vendor_id);
1280 p6_a5 := rosetta_g_miss_num_map(ddx_crtv_rec.vendor_site_id);
1281 p6_a6 := rosetta_g_miss_num_map(ddx_crtv_rec.vendor_contact_id);
1282 p6_a7 := ddx_crtv_rec.approval_status;
1283 p6_a8 := ddx_crtv_rec.approval_reason;
1284 p6_a9 := ddx_crtv_rec.expiration_date;
1285 p6_a10 := ddx_crtv_rec.currency_code;
1286 p6_a11 := rosetta_g_miss_num_map(ddx_crtv_rec.object_version_number);
1287 p6_a12 := rosetta_g_miss_num_map(ddx_crtv_rec.org_id);
1288 p6_a13 := rosetta_g_miss_num_map(ddx_crtv_rec.request_id);
1289 p6_a14 := rosetta_g_miss_num_map(ddx_crtv_rec.program_application_id);
1290 p6_a15 := rosetta_g_miss_num_map(ddx_crtv_rec.program_id);
1291 p6_a16 := ddx_crtv_rec.program_update_date;
1292 p6_a17 := ddx_crtv_rec.attribute_category;
1293 p6_a18 := ddx_crtv_rec.attribute1;
1294 p6_a19 := ddx_crtv_rec.attribute2;
1295 p6_a20 := ddx_crtv_rec.attribute3;
1296 p6_a21 := ddx_crtv_rec.attribute4;
1297 p6_a22 := ddx_crtv_rec.attribute5;
1298 p6_a23 := ddx_crtv_rec.attribute6;
1299 p6_a24 := ddx_crtv_rec.attribute7;
1300 p6_a25 := ddx_crtv_rec.attribute8;
1301 p6_a26 := ddx_crtv_rec.attribute9;
1302 p6_a27 := ddx_crtv_rec.attribute10;
1303 p6_a28 := ddx_crtv_rec.attribute11;
1304 p6_a29 := ddx_crtv_rec.attribute12;
1305 p6_a30 := ddx_crtv_rec.attribute13;
1306 p6_a31 := ddx_crtv_rec.attribute14;
1307 p6_a32 := ddx_crtv_rec.attribute15;
1308 p6_a33 := rosetta_g_miss_num_map(ddx_crtv_rec.created_by);
1309 p6_a34 := ddx_crtv_rec.creation_date;
1310 p6_a35 := rosetta_g_miss_num_map(ddx_crtv_rec.last_updated_by);
1311 p6_a36 := ddx_crtv_rec.last_update_date;
1312 p6_a37 := rosetta_g_miss_num_map(ddx_crtv_rec.last_update_login);
1313 end;
1314
1315 procedure delete_cure_reports(p_api_version NUMBER
1316 , p_init_msg_list VARCHAR2
1317 , x_return_status out nocopy VARCHAR2
1318 , x_msg_count out nocopy NUMBER
1319 , x_msg_data out nocopy VARCHAR2
1320 , p5_a0 JTF_NUMBER_TABLE
1321 , p5_a1 JTF_VARCHAR2_TABLE_200
1322 , p5_a2 JTF_VARCHAR2_TABLE_100
1323 , p5_a3 JTF_DATE_TABLE
1324 , p5_a4 JTF_NUMBER_TABLE
1325 , p5_a5 JTF_NUMBER_TABLE
1326 , p5_a6 JTF_NUMBER_TABLE
1327 , p5_a7 JTF_VARCHAR2_TABLE_100
1328 , p5_a8 JTF_VARCHAR2_TABLE_2000
1329 , p5_a9 JTF_DATE_TABLE
1330 , p5_a10 JTF_VARCHAR2_TABLE_100
1331 , p5_a11 JTF_NUMBER_TABLE
1332 , p5_a12 JTF_NUMBER_TABLE
1333 , p5_a13 JTF_NUMBER_TABLE
1334 , p5_a14 JTF_NUMBER_TABLE
1335 , p5_a15 JTF_NUMBER_TABLE
1336 , p5_a16 JTF_DATE_TABLE
1337 , p5_a17 JTF_VARCHAR2_TABLE_300
1338 , p5_a18 JTF_VARCHAR2_TABLE_300
1339 , p5_a19 JTF_VARCHAR2_TABLE_300
1340 , p5_a20 JTF_VARCHAR2_TABLE_300
1341 , p5_a21 JTF_VARCHAR2_TABLE_300
1342 , p5_a22 JTF_VARCHAR2_TABLE_300
1343 , p5_a23 JTF_VARCHAR2_TABLE_300
1344 , p5_a24 JTF_VARCHAR2_TABLE_300
1345 , p5_a25 JTF_VARCHAR2_TABLE_300
1346 , p5_a26 JTF_VARCHAR2_TABLE_300
1347 , p5_a27 JTF_VARCHAR2_TABLE_300
1348 , p5_a28 JTF_VARCHAR2_TABLE_300
1349 , p5_a29 JTF_VARCHAR2_TABLE_300
1350 , p5_a30 JTF_VARCHAR2_TABLE_300
1351 , p5_a31 JTF_VARCHAR2_TABLE_300
1352 , p5_a32 JTF_VARCHAR2_TABLE_300
1353 , p5_a33 JTF_NUMBER_TABLE
1354 , p5_a34 JTF_DATE_TABLE
1355 , p5_a35 JTF_NUMBER_TABLE
1356 , p5_a36 JTF_DATE_TABLE
1357 , p5_a37 JTF_NUMBER_TABLE
1358 )
1359
1360 as
1361 ddp_crtv_tbl okl_cure_reports_pub.crtv_tbl_type;
1362 ddindx binary_integer; indx binary_integer;
1363 begin
1364
1365 -- copy data to the local IN or IN-OUT args, if any
1366
1367
1368
1369
1370
1371 okl_cure_reports_pub_w.rosetta_table_copy_in_p2(ddp_crtv_tbl, p5_a0
1372 , p5_a1
1373 , p5_a2
1374 , p5_a3
1375 , p5_a4
1376 , p5_a5
1377 , p5_a6
1378 , p5_a7
1379 , p5_a8
1380 , p5_a9
1381 , p5_a10
1382 , p5_a11
1383 , p5_a12
1384 , p5_a13
1385 , p5_a14
1386 , p5_a15
1387 , p5_a16
1388 , p5_a17
1389 , p5_a18
1390 , p5_a19
1391 , p5_a20
1392 , p5_a21
1393 , p5_a22
1394 , p5_a23
1395 , p5_a24
1396 , p5_a25
1397 , p5_a26
1398 , p5_a27
1399 , p5_a28
1400 , p5_a29
1401 , p5_a30
1402 , p5_a31
1403 , p5_a32
1404 , p5_a33
1405 , p5_a34
1406 , p5_a35
1407 , p5_a36
1408 , p5_a37
1409 );
1410
1411 -- here's the delegated call to the old PL/SQL routine
1412 okl_cure_reports_pub.delete_cure_reports(p_api_version,
1413 p_init_msg_list,
1414 x_return_status,
1415 x_msg_count,
1416 x_msg_data,
1417 ddp_crtv_tbl);
1418
1419 -- copy data back from the local variables to OUT or IN-OUT args, if any
1420
1421
1422
1423
1424
1425 end;
1426
1427 procedure delete_cure_reports(p_api_version NUMBER
1428 , p_init_msg_list VARCHAR2
1429 , x_return_status out nocopy VARCHAR2
1430 , x_msg_count out nocopy NUMBER
1431 , x_msg_data out nocopy VARCHAR2
1432 , p5_a0 NUMBER := 0-1962.0724
1433 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1434 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1435 , p5_a3 DATE := fnd_api.g_miss_date
1436 , p5_a4 NUMBER := 0-1962.0724
1437 , p5_a5 NUMBER := 0-1962.0724
1438 , p5_a6 NUMBER := 0-1962.0724
1439 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1440 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1441 , p5_a9 DATE := fnd_api.g_miss_date
1442 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1443 , p5_a11 NUMBER := 0-1962.0724
1444 , p5_a12 NUMBER := 0-1962.0724
1445 , p5_a13 NUMBER := 0-1962.0724
1446 , p5_a14 NUMBER := 0-1962.0724
1447 , p5_a15 NUMBER := 0-1962.0724
1448 , p5_a16 DATE := fnd_api.g_miss_date
1449 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1450 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1451 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1452 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1453 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1454 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1455 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1456 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1457 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1458 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1459 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1460 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1461 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1462 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1463 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1464 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1465 , p5_a33 NUMBER := 0-1962.0724
1466 , p5_a34 DATE := fnd_api.g_miss_date
1467 , p5_a35 NUMBER := 0-1962.0724
1468 , p5_a36 DATE := fnd_api.g_miss_date
1469 , p5_a37 NUMBER := 0-1962.0724
1470 )
1471
1472 as
1473 ddp_crtv_rec okl_cure_reports_pub.crtv_rec_type;
1474 ddindx binary_integer; indx binary_integer;
1475 begin
1476
1477 -- copy data to the local IN or IN-OUT args, if any
1478
1479
1480
1481
1482
1483 ddp_crtv_rec.cure_report_id := rosetta_g_miss_num_map(p5_a0);
1484 ddp_crtv_rec.report_number := p5_a1;
1485 ddp_crtv_rec.report_type := p5_a2;
1486 ddp_crtv_rec.report_date := rosetta_g_miss_date_in_map(p5_a3);
1487 ddp_crtv_rec.vendor_id := rosetta_g_miss_num_map(p5_a4);
1488 ddp_crtv_rec.vendor_site_id := rosetta_g_miss_num_map(p5_a5);
1489 ddp_crtv_rec.vendor_contact_id := rosetta_g_miss_num_map(p5_a6);
1490 ddp_crtv_rec.approval_status := p5_a7;
1491 ddp_crtv_rec.approval_reason := p5_a8;
1492 ddp_crtv_rec.expiration_date := rosetta_g_miss_date_in_map(p5_a9);
1493 ddp_crtv_rec.currency_code := p5_a10;
1494 ddp_crtv_rec.object_version_number := rosetta_g_miss_num_map(p5_a11);
1495 ddp_crtv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
1496 ddp_crtv_rec.request_id := rosetta_g_miss_num_map(p5_a13);
1497 ddp_crtv_rec.program_application_id := rosetta_g_miss_num_map(p5_a14);
1498 ddp_crtv_rec.program_id := rosetta_g_miss_num_map(p5_a15);
1499 ddp_crtv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a16);
1500 ddp_crtv_rec.attribute_category := p5_a17;
1501 ddp_crtv_rec.attribute1 := p5_a18;
1502 ddp_crtv_rec.attribute2 := p5_a19;
1503 ddp_crtv_rec.attribute3 := p5_a20;
1504 ddp_crtv_rec.attribute4 := p5_a21;
1505 ddp_crtv_rec.attribute5 := p5_a22;
1506 ddp_crtv_rec.attribute6 := p5_a23;
1507 ddp_crtv_rec.attribute7 := p5_a24;
1508 ddp_crtv_rec.attribute8 := p5_a25;
1509 ddp_crtv_rec.attribute9 := p5_a26;
1510 ddp_crtv_rec.attribute10 := p5_a27;
1511 ddp_crtv_rec.attribute11 := p5_a28;
1512 ddp_crtv_rec.attribute12 := p5_a29;
1513 ddp_crtv_rec.attribute13 := p5_a30;
1514 ddp_crtv_rec.attribute14 := p5_a31;
1515 ddp_crtv_rec.attribute15 := p5_a32;
1516 ddp_crtv_rec.created_by := rosetta_g_miss_num_map(p5_a33);
1517 ddp_crtv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
1518 ddp_crtv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
1519 ddp_crtv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
1520 ddp_crtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
1521
1522 -- here's the delegated call to the old PL/SQL routine
1523 okl_cure_reports_pub.delete_cure_reports(p_api_version,
1524 p_init_msg_list,
1525 x_return_status,
1526 x_msg_count,
1527 x_msg_data,
1528 ddp_crtv_rec);
1529
1530 -- copy data back from the local variables to OUT or IN-OUT args, if any
1531
1532
1533
1534
1535
1536 end;
1537
1538 procedure validate_cure_reports(p_api_version NUMBER
1539 , p_init_msg_list VARCHAR2
1540 , x_return_status out nocopy VARCHAR2
1541 , x_msg_count out nocopy NUMBER
1542 , x_msg_data out nocopy VARCHAR2
1543 , p5_a0 JTF_NUMBER_TABLE
1544 , p5_a1 JTF_VARCHAR2_TABLE_200
1545 , p5_a2 JTF_VARCHAR2_TABLE_100
1546 , p5_a3 JTF_DATE_TABLE
1547 , p5_a4 JTF_NUMBER_TABLE
1548 , p5_a5 JTF_NUMBER_TABLE
1549 , p5_a6 JTF_NUMBER_TABLE
1550 , p5_a7 JTF_VARCHAR2_TABLE_100
1551 , p5_a8 JTF_VARCHAR2_TABLE_2000
1552 , p5_a9 JTF_DATE_TABLE
1553 , p5_a10 JTF_VARCHAR2_TABLE_100
1554 , p5_a11 JTF_NUMBER_TABLE
1555 , p5_a12 JTF_NUMBER_TABLE
1556 , p5_a13 JTF_NUMBER_TABLE
1557 , p5_a14 JTF_NUMBER_TABLE
1558 , p5_a15 JTF_NUMBER_TABLE
1559 , p5_a16 JTF_DATE_TABLE
1560 , p5_a17 JTF_VARCHAR2_TABLE_300
1561 , p5_a18 JTF_VARCHAR2_TABLE_300
1562 , p5_a19 JTF_VARCHAR2_TABLE_300
1563 , p5_a20 JTF_VARCHAR2_TABLE_300
1564 , p5_a21 JTF_VARCHAR2_TABLE_300
1565 , p5_a22 JTF_VARCHAR2_TABLE_300
1566 , p5_a23 JTF_VARCHAR2_TABLE_300
1567 , p5_a24 JTF_VARCHAR2_TABLE_300
1568 , p5_a25 JTF_VARCHAR2_TABLE_300
1569 , p5_a26 JTF_VARCHAR2_TABLE_300
1570 , p5_a27 JTF_VARCHAR2_TABLE_300
1571 , p5_a28 JTF_VARCHAR2_TABLE_300
1572 , p5_a29 JTF_VARCHAR2_TABLE_300
1573 , p5_a30 JTF_VARCHAR2_TABLE_300
1574 , p5_a31 JTF_VARCHAR2_TABLE_300
1575 , p5_a32 JTF_VARCHAR2_TABLE_300
1576 , p5_a33 JTF_NUMBER_TABLE
1577 , p5_a34 JTF_DATE_TABLE
1578 , p5_a35 JTF_NUMBER_TABLE
1579 , p5_a36 JTF_DATE_TABLE
1580 , p5_a37 JTF_NUMBER_TABLE
1581 )
1582
1583 as
1584 ddp_crtv_tbl okl_cure_reports_pub.crtv_tbl_type;
1585 ddindx binary_integer; indx binary_integer;
1586 begin
1587
1588 -- copy data to the local IN or IN-OUT args, if any
1589
1590
1591
1592
1593
1594 okl_cure_reports_pub_w.rosetta_table_copy_in_p2(ddp_crtv_tbl, p5_a0
1595 , p5_a1
1596 , p5_a2
1597 , p5_a3
1598 , p5_a4
1599 , p5_a5
1600 , p5_a6
1601 , p5_a7
1602 , p5_a8
1603 , p5_a9
1604 , p5_a10
1605 , p5_a11
1606 , p5_a12
1607 , p5_a13
1608 , p5_a14
1609 , p5_a15
1610 , p5_a16
1611 , p5_a17
1612 , p5_a18
1613 , p5_a19
1614 , p5_a20
1615 , p5_a21
1616 , p5_a22
1617 , p5_a23
1618 , p5_a24
1619 , p5_a25
1620 , p5_a26
1621 , p5_a27
1622 , p5_a28
1623 , p5_a29
1624 , p5_a30
1625 , p5_a31
1626 , p5_a32
1627 , p5_a33
1628 , p5_a34
1629 , p5_a35
1630 , p5_a36
1631 , p5_a37
1632 );
1633
1634 -- here's the delegated call to the old PL/SQL routine
1635 okl_cure_reports_pub.validate_cure_reports(p_api_version,
1636 p_init_msg_list,
1637 x_return_status,
1638 x_msg_count,
1639 x_msg_data,
1640 ddp_crtv_tbl);
1641
1642 -- copy data back from the local variables to OUT or IN-OUT args, if any
1643
1644
1645
1646
1647
1648 end;
1649
1650 procedure validate_cure_reports(p_api_version NUMBER
1651 , p_init_msg_list VARCHAR2
1652 , x_return_status out nocopy VARCHAR2
1653 , x_msg_count out nocopy NUMBER
1654 , x_msg_data out nocopy VARCHAR2
1655 , p5_a0 NUMBER := 0-1962.0724
1656 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1657 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1658 , p5_a3 DATE := fnd_api.g_miss_date
1659 , p5_a4 NUMBER := 0-1962.0724
1660 , p5_a5 NUMBER := 0-1962.0724
1661 , p5_a6 NUMBER := 0-1962.0724
1662 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1663 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1664 , p5_a9 DATE := fnd_api.g_miss_date
1665 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1666 , p5_a11 NUMBER := 0-1962.0724
1667 , p5_a12 NUMBER := 0-1962.0724
1668 , p5_a13 NUMBER := 0-1962.0724
1669 , p5_a14 NUMBER := 0-1962.0724
1670 , p5_a15 NUMBER := 0-1962.0724
1671 , p5_a16 DATE := fnd_api.g_miss_date
1672 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1673 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1674 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1675 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1676 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1677 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1678 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1679 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1680 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1681 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1682 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1683 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1684 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1685 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1686 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1687 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1688 , p5_a33 NUMBER := 0-1962.0724
1689 , p5_a34 DATE := fnd_api.g_miss_date
1690 , p5_a35 NUMBER := 0-1962.0724
1691 , p5_a36 DATE := fnd_api.g_miss_date
1692 , p5_a37 NUMBER := 0-1962.0724
1693 )
1694
1695 as
1696 ddp_crtv_rec okl_cure_reports_pub.crtv_rec_type;
1697 ddindx binary_integer; indx binary_integer;
1698 begin
1699
1700 -- copy data to the local IN or IN-OUT args, if any
1701
1702
1703
1704
1705
1706 ddp_crtv_rec.cure_report_id := rosetta_g_miss_num_map(p5_a0);
1707 ddp_crtv_rec.report_number := p5_a1;
1708 ddp_crtv_rec.report_type := p5_a2;
1709 ddp_crtv_rec.report_date := rosetta_g_miss_date_in_map(p5_a3);
1710 ddp_crtv_rec.vendor_id := rosetta_g_miss_num_map(p5_a4);
1711 ddp_crtv_rec.vendor_site_id := rosetta_g_miss_num_map(p5_a5);
1712 ddp_crtv_rec.vendor_contact_id := rosetta_g_miss_num_map(p5_a6);
1713 ddp_crtv_rec.approval_status := p5_a7;
1714 ddp_crtv_rec.approval_reason := p5_a8;
1715 ddp_crtv_rec.expiration_date := rosetta_g_miss_date_in_map(p5_a9);
1716 ddp_crtv_rec.currency_code := p5_a10;
1717 ddp_crtv_rec.object_version_number := rosetta_g_miss_num_map(p5_a11);
1718 ddp_crtv_rec.org_id := rosetta_g_miss_num_map(p5_a12);
1719 ddp_crtv_rec.request_id := rosetta_g_miss_num_map(p5_a13);
1720 ddp_crtv_rec.program_application_id := rosetta_g_miss_num_map(p5_a14);
1721 ddp_crtv_rec.program_id := rosetta_g_miss_num_map(p5_a15);
1722 ddp_crtv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a16);
1723 ddp_crtv_rec.attribute_category := p5_a17;
1724 ddp_crtv_rec.attribute1 := p5_a18;
1725 ddp_crtv_rec.attribute2 := p5_a19;
1726 ddp_crtv_rec.attribute3 := p5_a20;
1727 ddp_crtv_rec.attribute4 := p5_a21;
1728 ddp_crtv_rec.attribute5 := p5_a22;
1729 ddp_crtv_rec.attribute6 := p5_a23;
1730 ddp_crtv_rec.attribute7 := p5_a24;
1731 ddp_crtv_rec.attribute8 := p5_a25;
1732 ddp_crtv_rec.attribute9 := p5_a26;
1733 ddp_crtv_rec.attribute10 := p5_a27;
1734 ddp_crtv_rec.attribute11 := p5_a28;
1735 ddp_crtv_rec.attribute12 := p5_a29;
1736 ddp_crtv_rec.attribute13 := p5_a30;
1737 ddp_crtv_rec.attribute14 := p5_a31;
1738 ddp_crtv_rec.attribute15 := p5_a32;
1739 ddp_crtv_rec.created_by := rosetta_g_miss_num_map(p5_a33);
1740 ddp_crtv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
1741 ddp_crtv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
1742 ddp_crtv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
1743 ddp_crtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
1744
1745 -- here's the delegated call to the old PL/SQL routine
1746 okl_cure_reports_pub.validate_cure_reports(p_api_version,
1747 p_init_msg_list,
1748 x_return_status,
1749 x_msg_count,
1750 x_msg_data,
1751 ddp_crtv_rec);
1752
1753 -- copy data back from the local variables to OUT or IN-OUT args, if any
1754
1755
1756
1757
1758
1759 end;
1760
1761 end okl_cure_reports_pub_w;