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