[Home] [Help]
PACKAGE BODY: APPS.CN_REASONS_PUB_W
Source
1 package body cn_reasons_pub_w as
2 /* $Header: cnwresnb.pls 115.3 2003/07/04 01:44:16 jjhuang ship $ */
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 procedure rosetta_table_copy_in_p2(t out nocopy cn_reasons_pub.notes_tbl, a0 JTF_NUMBER_TABLE
14 , a1 JTF_NUMBER_TABLE
15 , a2 JTF_VARCHAR2_TABLE_100
16 , a3 JTF_NUMBER_TABLE
17 , a4 JTF_VARCHAR2_TABLE_4000
18 , a5 JTF_VARCHAR2_TABLE_100
19 , a6 JTF_VARCHAR2_TABLE_100
20 , a7 JTF_VARCHAR2_TABLE_100
21 , a8 JTF_VARCHAR2_TABLE_100
22 , a9 JTF_VARCHAR2_TABLE_100
23 , a10 JTF_VARCHAR2_TABLE_100
24 , a11 JTF_VARCHAR2_TABLE_100
25 , a12 JTF_VARCHAR2_TABLE_100
26 , a13 JTF_VARCHAR2_TABLE_100
27 , a14 JTF_VARCHAR2_TABLE_100
28 , a15 JTF_VARCHAR2_TABLE_100
29 , a16 JTF_VARCHAR2_TABLE_100
30 , a17 JTF_VARCHAR2_TABLE_100
31 , a18 JTF_VARCHAR2_TABLE_100
32 , a19 JTF_VARCHAR2_TABLE_100
33 , a20 JTF_VARCHAR2_TABLE_100
34 , a21 JTF_VARCHAR2_TABLE_100
35 , a22 JTF_VARCHAR2_TABLE_100
36 , a23 JTF_VARCHAR2_TABLE_100
37 , a24 JTF_VARCHAR2_TABLE_100
38 , a25 JTF_VARCHAR2_TABLE_100
39 , a26 JTF_DATE_TABLE
40 , a27 JTF_NUMBER_TABLE
41 , a28 JTF_VARCHAR2_TABLE_100
42 , a29 JTF_NUMBER_TABLE
43 ) as
44 ddindx binary_integer; indx binary_integer;
45 begin
46 if a0 is not null and a0.count > 0 then
47 if a0.count > 0 then
48 indx := a0.first;
49 ddindx := 1;
50 while true loop
51 t(ddindx).reason_history_id := a0(indx);
52 t(ddindx).reason_id := a1(indx);
53 t(ddindx).updated_table := a2(indx);
54 t(ddindx).upd_table_id := a3(indx);
55 t(ddindx).reason := a4(indx);
56 t(ddindx).reason_code := a5(indx);
57 t(ddindx).reason_meaning := a6(indx);
58 t(ddindx).lookup_type := a7(indx);
59 t(ddindx).update_flag := a8(indx);
60 t(ddindx).dml_flag := a9(indx);
61 t(ddindx).attribute_category := a10(indx);
62 t(ddindx).attribute1 := a11(indx);
63 t(ddindx).attribute2 := a12(indx);
64 t(ddindx).attribute3 := a13(indx);
65 t(ddindx).attribute4 := a14(indx);
66 t(ddindx).attribute5 := a15(indx);
67 t(ddindx).attribute6 := a16(indx);
68 t(ddindx).attribute7 := a17(indx);
69 t(ddindx).attribute8 := a18(indx);
70 t(ddindx).attribute9 := a19(indx);
71 t(ddindx).attribute10 := a20(indx);
72 t(ddindx).attribute11 := a21(indx);
73 t(ddindx).attribute12 := a22(indx);
74 t(ddindx).attribute13 := a23(indx);
75 t(ddindx).attribute14 := a24(indx);
76 t(ddindx).attribute15 := a25(indx);
77 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a26(indx));
78 t(ddindx).last_updated_by := a27(indx);
79 t(ddindx).last_updated_username := a28(indx);
80 t(ddindx).object_version_number := a29(indx);
81 ddindx := ddindx+1;
82 if a0.last =indx
83 then exit;
84 end if;
85 indx := a0.next(indx);
86 end loop;
87 end if;
88 end if;
89 end rosetta_table_copy_in_p2;
90 procedure rosetta_table_copy_out_p2(t cn_reasons_pub.notes_tbl, a0 out nocopy JTF_NUMBER_TABLE
91 , a1 out nocopy JTF_NUMBER_TABLE
92 , a2 out nocopy JTF_VARCHAR2_TABLE_100
93 , a3 out nocopy JTF_NUMBER_TABLE
94 , a4 out nocopy JTF_VARCHAR2_TABLE_4000
95 , a5 out nocopy JTF_VARCHAR2_TABLE_100
96 , a6 out nocopy JTF_VARCHAR2_TABLE_100
97 , a7 out nocopy JTF_VARCHAR2_TABLE_100
98 , a8 out nocopy JTF_VARCHAR2_TABLE_100
99 , a9 out nocopy JTF_VARCHAR2_TABLE_100
100 , a10 out nocopy JTF_VARCHAR2_TABLE_100
101 , a11 out nocopy JTF_VARCHAR2_TABLE_100
102 , a12 out nocopy JTF_VARCHAR2_TABLE_100
103 , a13 out nocopy JTF_VARCHAR2_TABLE_100
104 , a14 out nocopy JTF_VARCHAR2_TABLE_100
105 , a15 out nocopy JTF_VARCHAR2_TABLE_100
106 , a16 out nocopy JTF_VARCHAR2_TABLE_100
107 , a17 out nocopy JTF_VARCHAR2_TABLE_100
108 , a18 out nocopy JTF_VARCHAR2_TABLE_100
109 , a19 out nocopy JTF_VARCHAR2_TABLE_100
110 , a20 out nocopy JTF_VARCHAR2_TABLE_100
111 , a21 out nocopy JTF_VARCHAR2_TABLE_100
112 , a22 out nocopy JTF_VARCHAR2_TABLE_100
113 , a23 out nocopy JTF_VARCHAR2_TABLE_100
114 , a24 out nocopy JTF_VARCHAR2_TABLE_100
115 , a25 out nocopy JTF_VARCHAR2_TABLE_100
116 , a26 out nocopy JTF_DATE_TABLE
117 , a27 out nocopy JTF_NUMBER_TABLE
118 , a28 out nocopy JTF_VARCHAR2_TABLE_100
119 , a29 out nocopy JTF_NUMBER_TABLE
120 ) as
121 ddindx binary_integer; indx binary_integer;
122 begin
123 if t is null or t.count = 0 then
124 a0 := JTF_NUMBER_TABLE();
125 a1 := JTF_NUMBER_TABLE();
126 a2 := JTF_VARCHAR2_TABLE_100();
127 a3 := JTF_NUMBER_TABLE();
128 a4 := JTF_VARCHAR2_TABLE_4000();
129 a5 := JTF_VARCHAR2_TABLE_100();
130 a6 := JTF_VARCHAR2_TABLE_100();
131 a7 := JTF_VARCHAR2_TABLE_100();
132 a8 := JTF_VARCHAR2_TABLE_100();
133 a9 := JTF_VARCHAR2_TABLE_100();
134 a10 := JTF_VARCHAR2_TABLE_100();
135 a11 := JTF_VARCHAR2_TABLE_100();
136 a12 := JTF_VARCHAR2_TABLE_100();
137 a13 := JTF_VARCHAR2_TABLE_100();
138 a14 := JTF_VARCHAR2_TABLE_100();
139 a15 := JTF_VARCHAR2_TABLE_100();
140 a16 := JTF_VARCHAR2_TABLE_100();
141 a17 := JTF_VARCHAR2_TABLE_100();
142 a18 := JTF_VARCHAR2_TABLE_100();
143 a19 := JTF_VARCHAR2_TABLE_100();
144 a20 := JTF_VARCHAR2_TABLE_100();
145 a21 := JTF_VARCHAR2_TABLE_100();
146 a22 := JTF_VARCHAR2_TABLE_100();
147 a23 := JTF_VARCHAR2_TABLE_100();
148 a24 := JTF_VARCHAR2_TABLE_100();
149 a25 := JTF_VARCHAR2_TABLE_100();
150 a26 := JTF_DATE_TABLE();
151 a27 := JTF_NUMBER_TABLE();
152 a28 := JTF_VARCHAR2_TABLE_100();
153 a29 := JTF_NUMBER_TABLE();
154 else
155 a0 := JTF_NUMBER_TABLE();
156 a1 := JTF_NUMBER_TABLE();
157 a2 := JTF_VARCHAR2_TABLE_100();
158 a3 := JTF_NUMBER_TABLE();
159 a4 := JTF_VARCHAR2_TABLE_4000();
160 a5 := JTF_VARCHAR2_TABLE_100();
161 a6 := JTF_VARCHAR2_TABLE_100();
162 a7 := JTF_VARCHAR2_TABLE_100();
163 a8 := JTF_VARCHAR2_TABLE_100();
164 a9 := JTF_VARCHAR2_TABLE_100();
165 a10 := JTF_VARCHAR2_TABLE_100();
166 a11 := JTF_VARCHAR2_TABLE_100();
167 a12 := JTF_VARCHAR2_TABLE_100();
168 a13 := JTF_VARCHAR2_TABLE_100();
169 a14 := JTF_VARCHAR2_TABLE_100();
170 a15 := JTF_VARCHAR2_TABLE_100();
171 a16 := JTF_VARCHAR2_TABLE_100();
172 a17 := JTF_VARCHAR2_TABLE_100();
173 a18 := JTF_VARCHAR2_TABLE_100();
174 a19 := JTF_VARCHAR2_TABLE_100();
175 a20 := JTF_VARCHAR2_TABLE_100();
176 a21 := JTF_VARCHAR2_TABLE_100();
177 a22 := JTF_VARCHAR2_TABLE_100();
178 a23 := JTF_VARCHAR2_TABLE_100();
179 a24 := JTF_VARCHAR2_TABLE_100();
180 a25 := JTF_VARCHAR2_TABLE_100();
181 a26 := JTF_DATE_TABLE();
182 a27 := JTF_NUMBER_TABLE();
183 a28 := JTF_VARCHAR2_TABLE_100();
184 a29 := JTF_NUMBER_TABLE();
185 if t.count > 0 then
186 a0.extend(t.count);
187 a1.extend(t.count);
188 a2.extend(t.count);
189 a3.extend(t.count);
190 a4.extend(t.count);
191 a5.extend(t.count);
192 a6.extend(t.count);
193 a7.extend(t.count);
194 a8.extend(t.count);
195 a9.extend(t.count);
196 a10.extend(t.count);
197 a11.extend(t.count);
198 a12.extend(t.count);
199 a13.extend(t.count);
200 a14.extend(t.count);
201 a15.extend(t.count);
202 a16.extend(t.count);
203 a17.extend(t.count);
204 a18.extend(t.count);
205 a19.extend(t.count);
206 a20.extend(t.count);
207 a21.extend(t.count);
208 a22.extend(t.count);
209 a23.extend(t.count);
210 a24.extend(t.count);
211 a25.extend(t.count);
212 a26.extend(t.count);
213 a27.extend(t.count);
214 a28.extend(t.count);
215 a29.extend(t.count);
216 ddindx := t.first;
217 indx := 1;
218 while true loop
219 a0(indx) := t(ddindx).reason_history_id;
220 a1(indx) := t(ddindx).reason_id;
221 a2(indx) := t(ddindx).updated_table;
222 a3(indx) := t(ddindx).upd_table_id;
223 a4(indx) := t(ddindx).reason;
224 a5(indx) := t(ddindx).reason_code;
225 a6(indx) := t(ddindx).reason_meaning;
226 a7(indx) := t(ddindx).lookup_type;
227 a8(indx) := t(ddindx).update_flag;
228 a9(indx) := t(ddindx).dml_flag;
229 a10(indx) := t(ddindx).attribute_category;
230 a11(indx) := t(ddindx).attribute1;
231 a12(indx) := t(ddindx).attribute2;
232 a13(indx) := t(ddindx).attribute3;
233 a14(indx) := t(ddindx).attribute4;
234 a15(indx) := t(ddindx).attribute5;
235 a16(indx) := t(ddindx).attribute6;
236 a17(indx) := t(ddindx).attribute7;
237 a18(indx) := t(ddindx).attribute8;
238 a19(indx) := t(ddindx).attribute9;
239 a20(indx) := t(ddindx).attribute10;
240 a21(indx) := t(ddindx).attribute11;
241 a22(indx) := t(ddindx).attribute12;
242 a23(indx) := t(ddindx).attribute13;
243 a24(indx) := t(ddindx).attribute14;
244 a25(indx) := t(ddindx).attribute15;
245 a26(indx) := t(ddindx).last_update_date;
246 a27(indx) := t(ddindx).last_updated_by;
247 a28(indx) := t(ddindx).last_updated_username;
248 a29(indx) := t(ddindx).object_version_number;
249 indx := indx+1;
250 if t.last =ddindx
251 then exit;
252 end if;
253 ddindx := t.next(ddindx);
254 end loop;
255 end if;
256 end if;
257 end rosetta_table_copy_out_p2;
258
259 procedure show_analyst_notes(p_api_version NUMBER
260 , p_init_msg_list VARCHAR2
261 , p_validation_level VARCHAR2
262 , p_commit VARCHAR2
263 , p_first NUMBER
264 , p_last NUMBER
265 , p_payment_worksheet_id NUMBER
266 , p_table_name VARCHAR2
267 , p_lookup_type VARCHAR2
268 , x_return_status out nocopy VARCHAR2
269 , x_msg_count out nocopy NUMBER
270 , x_msg_data out nocopy VARCHAR2
271 , x_loading_status out nocopy VARCHAR2
272 , p13_a0 out nocopy NUMBER
273 , p13_a1 out nocopy NUMBER
274 , p13_a2 out nocopy VARCHAR2
275 , p13_a3 out nocopy VARCHAR2
276 , p13_a4 out nocopy NUMBER
277 , p13_a5 out nocopy NUMBER
278 , p13_a6 out nocopy VARCHAR2
279 , p13_a7 out nocopy VARCHAR2
280 , p13_a8 out nocopy NUMBER
281 , p13_a9 out nocopy NUMBER
282 , p13_a10 out nocopy VARCHAR2
283 , p13_a11 out nocopy VARCHAR2
284 , p13_a12 out nocopy NUMBER
285 , p13_a13 out nocopy VARCHAR2
286 , p14_a0 out nocopy JTF_NUMBER_TABLE
287 , p14_a1 out nocopy JTF_NUMBER_TABLE
288 , p14_a2 out nocopy JTF_VARCHAR2_TABLE_100
289 , p14_a3 out nocopy JTF_NUMBER_TABLE
290 , p14_a4 out nocopy JTF_VARCHAR2_TABLE_4000
291 , p14_a5 out nocopy JTF_VARCHAR2_TABLE_100
292 , p14_a6 out nocopy JTF_VARCHAR2_TABLE_100
293 , p14_a7 out nocopy JTF_VARCHAR2_TABLE_100
294 , p14_a8 out nocopy JTF_VARCHAR2_TABLE_100
295 , p14_a9 out nocopy JTF_VARCHAR2_TABLE_100
296 , p14_a10 out nocopy JTF_VARCHAR2_TABLE_100
297 , p14_a11 out nocopy JTF_VARCHAR2_TABLE_100
298 , p14_a12 out nocopy JTF_VARCHAR2_TABLE_100
299 , p14_a13 out nocopy JTF_VARCHAR2_TABLE_100
300 , p14_a14 out nocopy JTF_VARCHAR2_TABLE_100
301 , p14_a15 out nocopy JTF_VARCHAR2_TABLE_100
302 , p14_a16 out nocopy JTF_VARCHAR2_TABLE_100
303 , p14_a17 out nocopy JTF_VARCHAR2_TABLE_100
304 , p14_a18 out nocopy JTF_VARCHAR2_TABLE_100
305 , p14_a19 out nocopy JTF_VARCHAR2_TABLE_100
309 , p14_a23 out nocopy JTF_VARCHAR2_TABLE_100
306 , p14_a20 out nocopy JTF_VARCHAR2_TABLE_100
307 , p14_a21 out nocopy JTF_VARCHAR2_TABLE_100
308 , p14_a22 out nocopy JTF_VARCHAR2_TABLE_100
310 , p14_a24 out nocopy JTF_VARCHAR2_TABLE_100
311 , p14_a25 out nocopy JTF_VARCHAR2_TABLE_100
312 , p14_a26 out nocopy JTF_DATE_TABLE
313 , p14_a27 out nocopy JTF_NUMBER_TABLE
314 , p14_a28 out nocopy JTF_VARCHAR2_TABLE_100
315 , p14_a29 out nocopy JTF_NUMBER_TABLE
316 , x_notes_count out nocopy NUMBER
317 )
318
319 as
320 ddx_worksheet_rec cn_reasons_pub.worksheet_rec;
321 ddx_notes_tbl cn_reasons_pub.notes_tbl;
322 ddindx binary_integer; indx binary_integer;
323 begin
324
325 -- copy data to the local IN or IN-OUT args, if any
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342 -- here's the delegated call to the old PL/SQL routine
343 cn_reasons_pub.show_analyst_notes(p_api_version,
344 p_init_msg_list,
345 p_validation_level,
346 p_commit,
347 p_first,
348 p_last,
349 p_payment_worksheet_id,
350 p_table_name,
351 p_lookup_type,
352 x_return_status,
353 x_msg_count,
354 x_msg_data,
355 x_loading_status,
356 ddx_worksheet_rec,
357 ddx_notes_tbl,
358 x_notes_count);
359
360 -- copy data back from the local variables to OUT or IN-OUT args, if any
361
362
363
364
365
366
367
368
369
370
371
372
373
374 p13_a0 := ddx_worksheet_rec.payment_worksheet_id;
375 p13_a1 := ddx_worksheet_rec.role_id;
376 p13_a2 := ddx_worksheet_rec.worksheet_status;
377 p13_a3 := ddx_worksheet_rec.payrun_name;
378 p13_a4 := ddx_worksheet_rec.payrun_id;
379 p13_a5 := ddx_worksheet_rec.pay_period_id;
380 p13_a6 := ddx_worksheet_rec.payrun_status;
381 p13_a7 := ddx_worksheet_rec.period_name;
382 p13_a8 := ddx_worksheet_rec.salesrep_id;
383 p13_a9 := ddx_worksheet_rec.resource_id;
384 p13_a10 := ddx_worksheet_rec.salesrep_name;
385 p13_a11 := ddx_worksheet_rec.employee_number;
386 p13_a12 := ddx_worksheet_rec.pay_group_id;
387 p13_a13 := ddx_worksheet_rec.pay_group_name;
388
389 cn_reasons_pub_w.rosetta_table_copy_out_p2(ddx_notes_tbl, p14_a0
390 , p14_a1
391 , p14_a2
392 , p14_a3
393 , p14_a4
394 , p14_a5
395 , p14_a6
396 , p14_a7
397 , p14_a8
398 , p14_a9
399 , p14_a10
400 , p14_a11
401 , p14_a12
402 , p14_a13
403 , p14_a14
404 , p14_a15
405 , p14_a16
406 , p14_a17
407 , p14_a18
408 , p14_a19
409 , p14_a20
410 , p14_a21
411 , p14_a22
412 , p14_a23
413 , p14_a24
414 , p14_a25
415 , p14_a26
416 , p14_a27
417 , p14_a28
418 , p14_a29
419 );
420
421 end;
422
423 procedure manage_analyst_notes(p_api_version NUMBER
424 , p_init_msg_list VARCHAR2
425 , p_validation_level VARCHAR2
426 , p_commit VARCHAR2
427 , p4_a0 JTF_NUMBER_TABLE
428 , p4_a1 JTF_NUMBER_TABLE
429 , p4_a2 JTF_VARCHAR2_TABLE_100
430 , p4_a3 JTF_NUMBER_TABLE
431 , p4_a4 JTF_VARCHAR2_TABLE_4000
432 , p4_a5 JTF_VARCHAR2_TABLE_100
433 , p4_a6 JTF_VARCHAR2_TABLE_100
434 , p4_a7 JTF_VARCHAR2_TABLE_100
435 , p4_a8 JTF_VARCHAR2_TABLE_100
436 , p4_a9 JTF_VARCHAR2_TABLE_100
437 , p4_a10 JTF_VARCHAR2_TABLE_100
438 , p4_a11 JTF_VARCHAR2_TABLE_100
439 , p4_a12 JTF_VARCHAR2_TABLE_100
440 , p4_a13 JTF_VARCHAR2_TABLE_100
441 , p4_a14 JTF_VARCHAR2_TABLE_100
442 , p4_a15 JTF_VARCHAR2_TABLE_100
443 , p4_a16 JTF_VARCHAR2_TABLE_100
444 , p4_a17 JTF_VARCHAR2_TABLE_100
445 , p4_a18 JTF_VARCHAR2_TABLE_100
446 , p4_a19 JTF_VARCHAR2_TABLE_100
447 , p4_a20 JTF_VARCHAR2_TABLE_100
448 , p4_a21 JTF_VARCHAR2_TABLE_100
449 , p4_a22 JTF_VARCHAR2_TABLE_100
450 , p4_a23 JTF_VARCHAR2_TABLE_100
451 , p4_a24 JTF_VARCHAR2_TABLE_100
452 , p4_a25 JTF_VARCHAR2_TABLE_100
453 , p4_a26 JTF_DATE_TABLE
454 , p4_a27 JTF_NUMBER_TABLE
455 , p4_a28 JTF_VARCHAR2_TABLE_100
456 , p4_a29 JTF_NUMBER_TABLE
457 , x_return_status out nocopy VARCHAR2
458 , x_msg_count out nocopy NUMBER
459 , x_msg_data out nocopy VARCHAR2
460 , x_loading_status out nocopy VARCHAR2
461 )
462
463 as
464 ddp_notes_tbl cn_reasons_pub.notes_tbl;
465 ddindx binary_integer; indx binary_integer;
466 begin
467
468 -- copy data to the local IN or IN-OUT args, if any
469
470
471
472
473 cn_reasons_pub_w.rosetta_table_copy_in_p2(ddp_notes_tbl, p4_a0
474 , p4_a1
475 , p4_a2
476 , p4_a3
477 , p4_a4
478 , p4_a5
479 , p4_a6
480 , p4_a7
481 , p4_a8
482 , p4_a9
483 , p4_a10
484 , p4_a11
485 , p4_a12
486 , p4_a13
487 , p4_a14
491 , p4_a18
488 , p4_a15
489 , p4_a16
490 , p4_a17
492 , p4_a19
493 , p4_a20
494 , p4_a21
495 , p4_a22
496 , p4_a23
497 , p4_a24
498 , p4_a25
499 , p4_a26
500 , p4_a27
501 , p4_a28
502 , p4_a29
503 );
504
505
506
507
508
509 -- here's the delegated call to the old PL/SQL routine
510 cn_reasons_pub.manage_analyst_notes(p_api_version,
511 p_init_msg_list,
512 p_validation_level,
513 p_commit,
514 ddp_notes_tbl,
515 x_return_status,
516 x_msg_count,
517 x_msg_data,
518 x_loading_status);
519
520 -- copy data back from the local variables to OUT or IN-OUT args, if any
521
522
523
524
525
526
527
528
529 end;
530
531 procedure show_last_analyst_note(p_api_version NUMBER
532 , p_init_msg_list VARCHAR2
533 , p_validation_level VARCHAR2
534 , p_commit VARCHAR2
535 , p_payment_worksheet_id NUMBER
536 , p_table_name VARCHAR2
537 , p_lookup_type VARCHAR2
538 , x_return_status out nocopy VARCHAR2
539 , x_msg_count out nocopy NUMBER
540 , x_msg_data out nocopy VARCHAR2
541 , x_loading_status out nocopy VARCHAR2
542 , p11_a0 out nocopy JTF_NUMBER_TABLE
543 , p11_a1 out nocopy JTF_NUMBER_TABLE
544 , p11_a2 out nocopy JTF_VARCHAR2_TABLE_100
545 , p11_a3 out nocopy JTF_NUMBER_TABLE
546 , p11_a4 out nocopy JTF_VARCHAR2_TABLE_4000
547 , p11_a5 out nocopy JTF_VARCHAR2_TABLE_100
548 , p11_a6 out nocopy JTF_VARCHAR2_TABLE_100
549 , p11_a7 out nocopy JTF_VARCHAR2_TABLE_100
550 , p11_a8 out nocopy JTF_VARCHAR2_TABLE_100
551 , p11_a9 out nocopy JTF_VARCHAR2_TABLE_100
552 , p11_a10 out nocopy JTF_VARCHAR2_TABLE_100
553 , p11_a11 out nocopy JTF_VARCHAR2_TABLE_100
554 , p11_a12 out nocopy JTF_VARCHAR2_TABLE_100
555 , p11_a13 out nocopy JTF_VARCHAR2_TABLE_100
556 , p11_a14 out nocopy JTF_VARCHAR2_TABLE_100
557 , p11_a15 out nocopy JTF_VARCHAR2_TABLE_100
558 , p11_a16 out nocopy JTF_VARCHAR2_TABLE_100
559 , p11_a17 out nocopy JTF_VARCHAR2_TABLE_100
560 , p11_a18 out nocopy JTF_VARCHAR2_TABLE_100
561 , p11_a19 out nocopy JTF_VARCHAR2_TABLE_100
562 , p11_a20 out nocopy JTF_VARCHAR2_TABLE_100
563 , p11_a21 out nocopy JTF_VARCHAR2_TABLE_100
564 , p11_a22 out nocopy JTF_VARCHAR2_TABLE_100
565 , p11_a23 out nocopy JTF_VARCHAR2_TABLE_100
566 , p11_a24 out nocopy JTF_VARCHAR2_TABLE_100
567 , p11_a25 out nocopy JTF_VARCHAR2_TABLE_100
568 , p11_a26 out nocopy JTF_DATE_TABLE
569 , p11_a27 out nocopy JTF_NUMBER_TABLE
570 , p11_a28 out nocopy JTF_VARCHAR2_TABLE_100
571 , p11_a29 out nocopy JTF_NUMBER_TABLE
572 , x_notes_count out nocopy NUMBER
573 )
574
575 as
576 ddx_notes_tbl cn_reasons_pub.notes_tbl;
577 ddindx binary_integer; indx binary_integer;
578 begin
579
580 -- copy data to the local IN or IN-OUT args, if any
581
582
583
584
585
586
587
588
589
590
591
592
593
594 -- here's the delegated call to the old PL/SQL routine
595 cn_reasons_pub.show_last_analyst_note(p_api_version,
596 p_init_msg_list,
597 p_validation_level,
598 p_commit,
599 p_payment_worksheet_id,
600 p_table_name,
601 p_lookup_type,
602 x_return_status,
603 x_msg_count,
604 x_msg_data,
605 x_loading_status,
606 ddx_notes_tbl,
607 x_notes_count);
608
609 -- copy data back from the local variables to OUT or IN-OUT args, if any
610
611
612
613
614
615
616
617
618
619
620
621 cn_reasons_pub_w.rosetta_table_copy_out_p2(ddx_notes_tbl, p11_a0
622 , p11_a1
623 , p11_a2
624 , p11_a3
625 , p11_a4
626 , p11_a5
627 , p11_a6
628 , p11_a7
629 , p11_a8
630 , p11_a9
631 , p11_a10
632 , p11_a11
633 , p11_a12
634 , p11_a13
635 , p11_a14
636 , p11_a15
637 , p11_a16
638 , p11_a17
639 , p11_a18
640 , p11_a19
641 , p11_a20
642 , p11_a21
643 , p11_a22
644 , p11_a23
645 , p11_a24
646 , p11_a25
647 , p11_a26
648 , p11_a27
649 , p11_a28
650 , p11_a29
651 );
652
653 end;
654
655 end cn_reasons_pub_w;