[Home] [Help]
PACKAGE BODY: APPS.OKL_PCM_PVT_W
Source
1 package body okl_pcm_pvt_w as
2 /* $Header: OKLIPCMB.pls 120.0 2007/10/05 10:22:06 asawanka 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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 function rosetta_g_miss_num_map(n number) return number as
17 a number := fnd_api.g_miss_num;
18 b number := 0-1962.0724;
19 begin
20 if n=a then return b; end if;
21 if n=b then return a; end if;
22 return n;
23 end;
24
25 procedure rosetta_table_copy_in_p2(t out nocopy okl_pcm_pvt.pcm_tbl_type, a0 JTF_NUMBER_TABLE
26 , a1 JTF_NUMBER_TABLE
27 , a2 JTF_NUMBER_TABLE
28 , a3 JTF_NUMBER_TABLE
29 , a4 JTF_VARCHAR2_TABLE_100
30 , a5 JTF_NUMBER_TABLE
31 , a6 JTF_DATE_TABLE
32 , a7 JTF_NUMBER_TABLE
33 , a8 JTF_DATE_TABLE
34 , a9 JTF_NUMBER_TABLE
35 ) as
36 ddindx binary_integer; indx binary_integer;
37 begin
38 if a0 is not null and a0.count > 0 then
39 if a0.count > 0 then
40 indx := a0.first;
41 ddindx := 1;
42 while true loop
43 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
44 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
45 t(ddindx).org_id := rosetta_g_miss_num_map(a2(indx));
46 t(ddindx).receipt_method_id := rosetta_g_miss_num_map(a3(indx));
47 t(ddindx).payment_channel_code := a4(indx);
48 t(ddindx).created_by := rosetta_g_miss_num_map(a5(indx));
49 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a6(indx));
50 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a7(indx));
51 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a8(indx));
52 t(ddindx).last_update_login := rosetta_g_miss_num_map(a9(indx));
53 ddindx := ddindx+1;
54 if a0.last =indx
55 then exit;
56 end if;
57 indx := a0.next(indx);
58 end loop;
59 end if;
60 end if;
61 end rosetta_table_copy_in_p2;
62 procedure rosetta_table_copy_out_p2(t okl_pcm_pvt.pcm_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
63 , a1 out nocopy JTF_NUMBER_TABLE
64 , a2 out nocopy JTF_NUMBER_TABLE
65 , a3 out nocopy JTF_NUMBER_TABLE
66 , a4 out nocopy JTF_VARCHAR2_TABLE_100
67 , a5 out nocopy JTF_NUMBER_TABLE
68 , a6 out nocopy JTF_DATE_TABLE
69 , a7 out nocopy JTF_NUMBER_TABLE
70 , a8 out nocopy JTF_DATE_TABLE
71 , a9 out nocopy JTF_NUMBER_TABLE
72 ) as
73 ddindx binary_integer; indx binary_integer;
74 begin
75 if t is null or t.count = 0 then
76 a0 := JTF_NUMBER_TABLE();
77 a1 := JTF_NUMBER_TABLE();
78 a2 := JTF_NUMBER_TABLE();
79 a3 := JTF_NUMBER_TABLE();
80 a4 := JTF_VARCHAR2_TABLE_100();
81 a5 := JTF_NUMBER_TABLE();
82 a6 := JTF_DATE_TABLE();
83 a7 := JTF_NUMBER_TABLE();
84 a8 := JTF_DATE_TABLE();
85 a9 := JTF_NUMBER_TABLE();
86 else
87 a0 := JTF_NUMBER_TABLE();
88 a1 := JTF_NUMBER_TABLE();
89 a2 := JTF_NUMBER_TABLE();
90 a3 := JTF_NUMBER_TABLE();
91 a4 := JTF_VARCHAR2_TABLE_100();
92 a5 := JTF_NUMBER_TABLE();
93 a6 := JTF_DATE_TABLE();
94 a7 := JTF_NUMBER_TABLE();
95 a8 := JTF_DATE_TABLE();
96 a9 := JTF_NUMBER_TABLE();
97 if t.count > 0 then
98 a0.extend(t.count);
99 a1.extend(t.count);
100 a2.extend(t.count);
101 a3.extend(t.count);
102 a4.extend(t.count);
103 a5.extend(t.count);
104 a6.extend(t.count);
105 a7.extend(t.count);
106 a8.extend(t.count);
107 a9.extend(t.count);
108 ddindx := t.first;
109 indx := 1;
110 while true loop
111 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
112 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
113 a2(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
114 a3(indx) := rosetta_g_miss_num_map(t(ddindx).receipt_method_id);
115 a4(indx) := t(ddindx).payment_channel_code;
116 a5(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
117 a6(indx) := t(ddindx).creation_date;
118 a7(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
119 a8(indx) := t(ddindx).last_update_date;
120 a9(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
121 indx := indx+1;
122 if t.last =ddindx
123 then exit;
124 end if;
125 ddindx := t.next(ddindx);
126 end loop;
127 end if;
128 end if;
129 end rosetta_table_copy_out_p2;
130
131 procedure insert_row(p_api_version NUMBER
132 , p_init_msg_list VARCHAR2
133 , x_return_status out nocopy VARCHAR2
134 , x_msg_count out nocopy NUMBER
135 , x_msg_data out nocopy VARCHAR2
136 , p6_a0 out nocopy NUMBER
137 , p6_a1 out nocopy NUMBER
138 , p6_a2 out nocopy NUMBER
139 , p6_a3 out nocopy NUMBER
140 , p6_a4 out nocopy VARCHAR2
141 , p6_a5 out nocopy NUMBER
142 , p6_a6 out nocopy DATE
143 , p6_a7 out nocopy NUMBER
144 , p6_a8 out nocopy DATE
145 , p6_a9 out nocopy NUMBER
146 , p5_a0 NUMBER := 0-1962.0724
147 , p5_a1 NUMBER := 0-1962.0724
148 , p5_a2 NUMBER := 0-1962.0724
149 , p5_a3 NUMBER := 0-1962.0724
150 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
151 , p5_a5 NUMBER := 0-1962.0724
152 , p5_a6 DATE := fnd_api.g_miss_date
153 , p5_a7 NUMBER := 0-1962.0724
154 , p5_a8 DATE := fnd_api.g_miss_date
155 , p5_a9 NUMBER := 0-1962.0724
156 )
157
158 as
159 ddp_pcm_rec okl_pcm_pvt.pcm_rec_type;
160 ddx_pcm_rec okl_pcm_pvt.pcm_rec_type;
161 ddindx binary_integer; indx binary_integer;
162 begin
163
164 -- copy data to the local IN or IN-OUT args, if any
165
166
167
168
169
170 ddp_pcm_rec.id := rosetta_g_miss_num_map(p5_a0);
171 ddp_pcm_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
172 ddp_pcm_rec.org_id := rosetta_g_miss_num_map(p5_a2);
173 ddp_pcm_rec.receipt_method_id := rosetta_g_miss_num_map(p5_a3);
174 ddp_pcm_rec.payment_channel_code := p5_a4;
175 ddp_pcm_rec.created_by := rosetta_g_miss_num_map(p5_a5);
176 ddp_pcm_rec.creation_date := rosetta_g_miss_date_in_map(p5_a6);
177 ddp_pcm_rec.last_updated_by := rosetta_g_miss_num_map(p5_a7);
178 ddp_pcm_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
179 ddp_pcm_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
180
181
182 -- here's the delegated call to the old PL/SQL routine
183 okl_pcm_pvt.insert_row(p_api_version,
184 p_init_msg_list,
185 x_return_status,
186 x_msg_count,
187 x_msg_data,
188 ddp_pcm_rec,
189 ddx_pcm_rec);
190
191 -- copy data back from the local variables to OUT or IN-OUT args, if any
192
193
194
195
196
197
198 p6_a0 := rosetta_g_miss_num_map(ddx_pcm_rec.id);
199 p6_a1 := rosetta_g_miss_num_map(ddx_pcm_rec.object_version_number);
200 p6_a2 := rosetta_g_miss_num_map(ddx_pcm_rec.org_id);
201 p6_a3 := rosetta_g_miss_num_map(ddx_pcm_rec.receipt_method_id);
202 p6_a4 := ddx_pcm_rec.payment_channel_code;
203 p6_a5 := rosetta_g_miss_num_map(ddx_pcm_rec.created_by);
204 p6_a6 := ddx_pcm_rec.creation_date;
205 p6_a7 := rosetta_g_miss_num_map(ddx_pcm_rec.last_updated_by);
206 p6_a8 := ddx_pcm_rec.last_update_date;
207 p6_a9 := rosetta_g_miss_num_map(ddx_pcm_rec.last_update_login);
208 end;
209
210 procedure insert_row(p_api_version NUMBER
211 , p_init_msg_list VARCHAR2
212 , x_return_status out nocopy VARCHAR2
213 , x_msg_count out nocopy NUMBER
214 , x_msg_data out nocopy VARCHAR2
215 , p5_a0 JTF_NUMBER_TABLE
216 , p5_a1 JTF_NUMBER_TABLE
217 , p5_a2 JTF_NUMBER_TABLE
218 , p5_a3 JTF_NUMBER_TABLE
219 , p5_a4 JTF_VARCHAR2_TABLE_100
220 , p5_a5 JTF_NUMBER_TABLE
221 , p5_a6 JTF_DATE_TABLE
222 , p5_a7 JTF_NUMBER_TABLE
223 , p5_a8 JTF_DATE_TABLE
224 , p5_a9 JTF_NUMBER_TABLE
225 , p6_a0 out nocopy JTF_NUMBER_TABLE
226 , p6_a1 out nocopy JTF_NUMBER_TABLE
227 , p6_a2 out nocopy JTF_NUMBER_TABLE
228 , p6_a3 out nocopy JTF_NUMBER_TABLE
229 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
230 , p6_a5 out nocopy JTF_NUMBER_TABLE
231 , p6_a6 out nocopy JTF_DATE_TABLE
232 , p6_a7 out nocopy JTF_NUMBER_TABLE
233 , p6_a8 out nocopy JTF_DATE_TABLE
234 , p6_a9 out nocopy JTF_NUMBER_TABLE
235 )
236
237 as
238 ddp_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
239 ddx_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
240 ddindx binary_integer; indx binary_integer;
241 begin
242
243 -- copy data to the local IN or IN-OUT args, if any
244
245
246
247
248
249 okl_pcm_pvt_w.rosetta_table_copy_in_p2(ddp_pcm_tbl, p5_a0
250 , p5_a1
251 , p5_a2
252 , p5_a3
253 , p5_a4
254 , p5_a5
255 , p5_a6
256 , p5_a7
257 , p5_a8
258 , p5_a9
259 );
260
261
262 -- here's the delegated call to the old PL/SQL routine
263 okl_pcm_pvt.insert_row(p_api_version,
264 p_init_msg_list,
265 x_return_status,
266 x_msg_count,
267 x_msg_data,
268 ddp_pcm_tbl,
269 ddx_pcm_tbl);
270
271 -- copy data back from the local variables to OUT or IN-OUT args, if any
272
273
274
275
276
277
278 okl_pcm_pvt_w.rosetta_table_copy_out_p2(ddx_pcm_tbl, p6_a0
279 , p6_a1
280 , p6_a2
281 , p6_a3
282 , p6_a4
283 , p6_a5
284 , p6_a6
285 , p6_a7
286 , p6_a8
287 , p6_a9
288 );
289 end;
290
291 procedure lock_row(p_api_version NUMBER
292 , p_init_msg_list VARCHAR2
293 , x_return_status out nocopy VARCHAR2
294 , x_msg_count out nocopy NUMBER
295 , x_msg_data out nocopy VARCHAR2
296 , p5_a0 NUMBER := 0-1962.0724
297 , p5_a1 NUMBER := 0-1962.0724
298 , p5_a2 NUMBER := 0-1962.0724
299 , p5_a3 NUMBER := 0-1962.0724
300 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
301 , p5_a5 NUMBER := 0-1962.0724
302 , p5_a6 DATE := fnd_api.g_miss_date
303 , p5_a7 NUMBER := 0-1962.0724
304 , p5_a8 DATE := fnd_api.g_miss_date
305 , p5_a9 NUMBER := 0-1962.0724
306 )
307
308 as
309 ddp_pcm_rec okl_pcm_pvt.pcm_rec_type;
310 ddindx binary_integer; indx binary_integer;
311 begin
312
313 -- copy data to the local IN or IN-OUT args, if any
314
315
316
317
318
319 ddp_pcm_rec.id := rosetta_g_miss_num_map(p5_a0);
320 ddp_pcm_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
321 ddp_pcm_rec.org_id := rosetta_g_miss_num_map(p5_a2);
322 ddp_pcm_rec.receipt_method_id := rosetta_g_miss_num_map(p5_a3);
323 ddp_pcm_rec.payment_channel_code := p5_a4;
324 ddp_pcm_rec.created_by := rosetta_g_miss_num_map(p5_a5);
325 ddp_pcm_rec.creation_date := rosetta_g_miss_date_in_map(p5_a6);
326 ddp_pcm_rec.last_updated_by := rosetta_g_miss_num_map(p5_a7);
327 ddp_pcm_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
328 ddp_pcm_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
329
330 -- here's the delegated call to the old PL/SQL routine
331 okl_pcm_pvt.lock_row(p_api_version,
332 p_init_msg_list,
333 x_return_status,
334 x_msg_count,
335 x_msg_data,
336 ddp_pcm_rec);
337
338 -- copy data back from the local variables to OUT or IN-OUT args, if any
339
340
341
342
343
344 end;
345
346 procedure lock_row(p_api_version NUMBER
347 , p_init_msg_list VARCHAR2
348 , x_return_status out nocopy VARCHAR2
349 , x_msg_count out nocopy NUMBER
350 , x_msg_data out nocopy VARCHAR2
351 , p5_a0 JTF_NUMBER_TABLE
352 , p5_a1 JTF_NUMBER_TABLE
353 , p5_a2 JTF_NUMBER_TABLE
354 , p5_a3 JTF_NUMBER_TABLE
355 , p5_a4 JTF_VARCHAR2_TABLE_100
356 , p5_a5 JTF_NUMBER_TABLE
357 , p5_a6 JTF_DATE_TABLE
358 , p5_a7 JTF_NUMBER_TABLE
359 , p5_a8 JTF_DATE_TABLE
360 , p5_a9 JTF_NUMBER_TABLE
361 )
362
363 as
364 ddp_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
365 ddindx binary_integer; indx binary_integer;
366 begin
367
368 -- copy data to the local IN or IN-OUT args, if any
369
370
371
372
373
374 okl_pcm_pvt_w.rosetta_table_copy_in_p2(ddp_pcm_tbl, p5_a0
375 , p5_a1
376 , p5_a2
377 , p5_a3
378 , p5_a4
379 , p5_a5
380 , p5_a6
381 , p5_a7
382 , p5_a8
383 , p5_a9
384 );
385
386 -- here's the delegated call to the old PL/SQL routine
387 okl_pcm_pvt.lock_row(p_api_version,
388 p_init_msg_list,
389 x_return_status,
390 x_msg_count,
391 x_msg_data,
392 ddp_pcm_tbl);
393
394 -- copy data back from the local variables to OUT or IN-OUT args, if any
395
396
397
398
399
400 end;
401
402 procedure update_row(p_api_version NUMBER
403 , p_init_msg_list VARCHAR2
404 , x_return_status out nocopy VARCHAR2
405 , x_msg_count out nocopy NUMBER
406 , x_msg_data out nocopy VARCHAR2
407 , p6_a0 out nocopy NUMBER
408 , p6_a1 out nocopy NUMBER
409 , p6_a2 out nocopy NUMBER
410 , p6_a3 out nocopy NUMBER
411 , p6_a4 out nocopy VARCHAR2
412 , p6_a5 out nocopy NUMBER
413 , p6_a6 out nocopy DATE
414 , p6_a7 out nocopy NUMBER
415 , p6_a8 out nocopy DATE
416 , p6_a9 out nocopy NUMBER
417 , p5_a0 NUMBER := 0-1962.0724
418 , p5_a1 NUMBER := 0-1962.0724
419 , p5_a2 NUMBER := 0-1962.0724
420 , p5_a3 NUMBER := 0-1962.0724
421 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
422 , p5_a5 NUMBER := 0-1962.0724
423 , p5_a6 DATE := fnd_api.g_miss_date
424 , p5_a7 NUMBER := 0-1962.0724
425 , p5_a8 DATE := fnd_api.g_miss_date
426 , p5_a9 NUMBER := 0-1962.0724
427 )
428
429 as
430 ddp_pcm_rec okl_pcm_pvt.pcm_rec_type;
431 ddx_pcm_rec okl_pcm_pvt.pcm_rec_type;
432 ddindx binary_integer; indx binary_integer;
433 begin
434
435 -- copy data to the local IN or IN-OUT args, if any
436
437
438
439
440
441 ddp_pcm_rec.id := rosetta_g_miss_num_map(p5_a0);
442 ddp_pcm_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
443 ddp_pcm_rec.org_id := rosetta_g_miss_num_map(p5_a2);
444 ddp_pcm_rec.receipt_method_id := rosetta_g_miss_num_map(p5_a3);
445 ddp_pcm_rec.payment_channel_code := p5_a4;
446 ddp_pcm_rec.created_by := rosetta_g_miss_num_map(p5_a5);
447 ddp_pcm_rec.creation_date := rosetta_g_miss_date_in_map(p5_a6);
448 ddp_pcm_rec.last_updated_by := rosetta_g_miss_num_map(p5_a7);
449 ddp_pcm_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
450 ddp_pcm_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
451
452
453 -- here's the delegated call to the old PL/SQL routine
454 okl_pcm_pvt.update_row(p_api_version,
455 p_init_msg_list,
456 x_return_status,
457 x_msg_count,
458 x_msg_data,
459 ddp_pcm_rec,
460 ddx_pcm_rec);
461
462 -- copy data back from the local variables to OUT or IN-OUT args, if any
463
464
465
466
467
468
469 p6_a0 := rosetta_g_miss_num_map(ddx_pcm_rec.id);
470 p6_a1 := rosetta_g_miss_num_map(ddx_pcm_rec.object_version_number);
471 p6_a2 := rosetta_g_miss_num_map(ddx_pcm_rec.org_id);
472 p6_a3 := rosetta_g_miss_num_map(ddx_pcm_rec.receipt_method_id);
473 p6_a4 := ddx_pcm_rec.payment_channel_code;
474 p6_a5 := rosetta_g_miss_num_map(ddx_pcm_rec.created_by);
475 p6_a6 := ddx_pcm_rec.creation_date;
476 p6_a7 := rosetta_g_miss_num_map(ddx_pcm_rec.last_updated_by);
477 p6_a8 := ddx_pcm_rec.last_update_date;
478 p6_a9 := rosetta_g_miss_num_map(ddx_pcm_rec.last_update_login);
479 end;
480
481 procedure update_row(p_api_version NUMBER
482 , p_init_msg_list VARCHAR2
483 , x_return_status out nocopy VARCHAR2
484 , x_msg_count out nocopy NUMBER
485 , x_msg_data out nocopy VARCHAR2
486 , p5_a0 JTF_NUMBER_TABLE
487 , p5_a1 JTF_NUMBER_TABLE
488 , p5_a2 JTF_NUMBER_TABLE
489 , p5_a3 JTF_NUMBER_TABLE
490 , p5_a4 JTF_VARCHAR2_TABLE_100
491 , p5_a5 JTF_NUMBER_TABLE
492 , p5_a6 JTF_DATE_TABLE
493 , p5_a7 JTF_NUMBER_TABLE
494 , p5_a8 JTF_DATE_TABLE
495 , p5_a9 JTF_NUMBER_TABLE
496 , p6_a0 out nocopy JTF_NUMBER_TABLE
497 , p6_a1 out nocopy JTF_NUMBER_TABLE
498 , p6_a2 out nocopy JTF_NUMBER_TABLE
499 , p6_a3 out nocopy JTF_NUMBER_TABLE
500 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
501 , p6_a5 out nocopy JTF_NUMBER_TABLE
502 , p6_a6 out nocopy JTF_DATE_TABLE
503 , p6_a7 out nocopy JTF_NUMBER_TABLE
504 , p6_a8 out nocopy JTF_DATE_TABLE
505 , p6_a9 out nocopy JTF_NUMBER_TABLE
506 )
507
508 as
509 ddp_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
510 ddx_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
511 ddindx binary_integer; indx binary_integer;
512 begin
513
514 -- copy data to the local IN or IN-OUT args, if any
515
516
517
518
519
520 okl_pcm_pvt_w.rosetta_table_copy_in_p2(ddp_pcm_tbl, p5_a0
521 , p5_a1
522 , p5_a2
523 , p5_a3
524 , p5_a4
525 , p5_a5
526 , p5_a6
527 , p5_a7
528 , p5_a8
529 , p5_a9
530 );
531
532
533 -- here's the delegated call to the old PL/SQL routine
534 okl_pcm_pvt.update_row(p_api_version,
535 p_init_msg_list,
536 x_return_status,
537 x_msg_count,
538 x_msg_data,
539 ddp_pcm_tbl,
540 ddx_pcm_tbl);
541
542 -- copy data back from the local variables to OUT or IN-OUT args, if any
543
544
545
546
547
548
549 okl_pcm_pvt_w.rosetta_table_copy_out_p2(ddx_pcm_tbl, p6_a0
550 , p6_a1
551 , p6_a2
552 , p6_a3
553 , p6_a4
554 , p6_a5
555 , p6_a6
556 , p6_a7
557 , p6_a8
558 , p6_a9
559 );
560 end;
561
562 procedure delete_row(p_api_version NUMBER
563 , p_init_msg_list VARCHAR2
564 , x_return_status out nocopy VARCHAR2
565 , x_msg_count out nocopy NUMBER
566 , x_msg_data out nocopy VARCHAR2
567 , p5_a0 NUMBER := 0-1962.0724
568 , p5_a1 NUMBER := 0-1962.0724
569 , p5_a2 NUMBER := 0-1962.0724
570 , p5_a3 NUMBER := 0-1962.0724
571 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
572 , p5_a5 NUMBER := 0-1962.0724
573 , p5_a6 DATE := fnd_api.g_miss_date
574 , p5_a7 NUMBER := 0-1962.0724
575 , p5_a8 DATE := fnd_api.g_miss_date
576 , p5_a9 NUMBER := 0-1962.0724
577 )
578
579 as
580 ddp_pcm_rec okl_pcm_pvt.pcm_rec_type;
581 ddindx binary_integer; indx binary_integer;
582 begin
583
584 -- copy data to the local IN or IN-OUT args, if any
585
586
587
588
589
590 ddp_pcm_rec.id := rosetta_g_miss_num_map(p5_a0);
591 ddp_pcm_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
592 ddp_pcm_rec.org_id := rosetta_g_miss_num_map(p5_a2);
593 ddp_pcm_rec.receipt_method_id := rosetta_g_miss_num_map(p5_a3);
594 ddp_pcm_rec.payment_channel_code := p5_a4;
595 ddp_pcm_rec.created_by := rosetta_g_miss_num_map(p5_a5);
596 ddp_pcm_rec.creation_date := rosetta_g_miss_date_in_map(p5_a6);
597 ddp_pcm_rec.last_updated_by := rosetta_g_miss_num_map(p5_a7);
598 ddp_pcm_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
599 ddp_pcm_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
600
601 -- here's the delegated call to the old PL/SQL routine
602 okl_pcm_pvt.delete_row(p_api_version,
603 p_init_msg_list,
604 x_return_status,
605 x_msg_count,
606 x_msg_data,
607 ddp_pcm_rec);
608
609 -- copy data back from the local variables to OUT or IN-OUT args, if any
610
611
612
613
614
615 end;
616
617 procedure delete_row(p_api_version NUMBER
618 , p_init_msg_list VARCHAR2
619 , x_return_status out nocopy VARCHAR2
620 , x_msg_count out nocopy NUMBER
621 , x_msg_data out nocopy VARCHAR2
622 , p5_a0 JTF_NUMBER_TABLE
623 , p5_a1 JTF_NUMBER_TABLE
624 , p5_a2 JTF_NUMBER_TABLE
625 , p5_a3 JTF_NUMBER_TABLE
626 , p5_a4 JTF_VARCHAR2_TABLE_100
627 , p5_a5 JTF_NUMBER_TABLE
628 , p5_a6 JTF_DATE_TABLE
629 , p5_a7 JTF_NUMBER_TABLE
630 , p5_a8 JTF_DATE_TABLE
631 , p5_a9 JTF_NUMBER_TABLE
632 )
633
634 as
635 ddp_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
636 ddindx binary_integer; indx binary_integer;
637 begin
638
639 -- copy data to the local IN or IN-OUT args, if any
640
641
642
643
644
645 okl_pcm_pvt_w.rosetta_table_copy_in_p2(ddp_pcm_tbl, p5_a0
646 , p5_a1
647 , p5_a2
648 , p5_a3
649 , p5_a4
650 , p5_a5
651 , p5_a6
652 , p5_a7
653 , p5_a8
654 , p5_a9
655 );
656
657 -- here's the delegated call to the old PL/SQL routine
658 okl_pcm_pvt.delete_row(p_api_version,
659 p_init_msg_list,
660 x_return_status,
661 x_msg_count,
662 x_msg_data,
663 ddp_pcm_tbl);
664
665 -- copy data back from the local variables to OUT or IN-OUT args, if any
666
667
668
669
670
671 end;
672
673 procedure validate_row(p_api_version NUMBER
674 , p_init_msg_list VARCHAR2
675 , x_return_status out nocopy VARCHAR2
676 , x_msg_count out nocopy NUMBER
677 , x_msg_data out nocopy VARCHAR2
678 , p5_a0 NUMBER := 0-1962.0724
679 , p5_a1 NUMBER := 0-1962.0724
680 , p5_a2 NUMBER := 0-1962.0724
681 , p5_a3 NUMBER := 0-1962.0724
682 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
683 , p5_a5 NUMBER := 0-1962.0724
684 , p5_a6 DATE := fnd_api.g_miss_date
685 , p5_a7 NUMBER := 0-1962.0724
686 , p5_a8 DATE := fnd_api.g_miss_date
687 , p5_a9 NUMBER := 0-1962.0724
688 )
689
690 as
691 ddp_pcm_rec okl_pcm_pvt.pcm_rec_type;
692 ddindx binary_integer; indx binary_integer;
693 begin
694
695 -- copy data to the local IN or IN-OUT args, if any
696
697
698
699
700
701 ddp_pcm_rec.id := rosetta_g_miss_num_map(p5_a0);
702 ddp_pcm_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
703 ddp_pcm_rec.org_id := rosetta_g_miss_num_map(p5_a2);
704 ddp_pcm_rec.receipt_method_id := rosetta_g_miss_num_map(p5_a3);
705 ddp_pcm_rec.payment_channel_code := p5_a4;
706 ddp_pcm_rec.created_by := rosetta_g_miss_num_map(p5_a5);
707 ddp_pcm_rec.creation_date := rosetta_g_miss_date_in_map(p5_a6);
708 ddp_pcm_rec.last_updated_by := rosetta_g_miss_num_map(p5_a7);
709 ddp_pcm_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
710 ddp_pcm_rec.last_update_login := rosetta_g_miss_num_map(p5_a9);
711
712 -- here's the delegated call to the old PL/SQL routine
713 okl_pcm_pvt.validate_row(p_api_version,
714 p_init_msg_list,
715 x_return_status,
716 x_msg_count,
717 x_msg_data,
718 ddp_pcm_rec);
719
720 -- copy data back from the local variables to OUT or IN-OUT args, if any
721
722
723
724
725
726 end;
727
728 procedure validate_row(p_api_version NUMBER
729 , p_init_msg_list VARCHAR2
730 , x_return_status out nocopy VARCHAR2
731 , x_msg_count out nocopy NUMBER
732 , x_msg_data out nocopy VARCHAR2
733 , p5_a0 JTF_NUMBER_TABLE
734 , p5_a1 JTF_NUMBER_TABLE
735 , p5_a2 JTF_NUMBER_TABLE
736 , p5_a3 JTF_NUMBER_TABLE
737 , p5_a4 JTF_VARCHAR2_TABLE_100
738 , p5_a5 JTF_NUMBER_TABLE
739 , p5_a6 JTF_DATE_TABLE
740 , p5_a7 JTF_NUMBER_TABLE
741 , p5_a8 JTF_DATE_TABLE
742 , p5_a9 JTF_NUMBER_TABLE
743 )
744
745 as
746 ddp_pcm_tbl okl_pcm_pvt.pcm_tbl_type;
747 ddindx binary_integer; indx binary_integer;
748 begin
749
750 -- copy data to the local IN or IN-OUT args, if any
751
752
753
754
755
756 okl_pcm_pvt_w.rosetta_table_copy_in_p2(ddp_pcm_tbl, p5_a0
757 , p5_a1
758 , p5_a2
759 , p5_a3
760 , p5_a4
761 , p5_a5
762 , p5_a6
763 , p5_a7
764 , p5_a8
765 , p5_a9
766 );
767
768 -- here's the delegated call to the old PL/SQL routine
769 okl_pcm_pvt.validate_row(p_api_version,
770 p_init_msg_list,
771 x_return_status,
772 x_msg_count,
773 x_msg_data,
774 ddp_pcm_tbl);
775
776 -- copy data back from the local variables to OUT or IN-OUT args, if any
777
778
779
780
781
782 end;
783
784 end okl_pcm_pvt_w;