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