[Home] [Help]
PACKAGE BODY: APPS.OKL_ACC_GROUP_PUB_W
Source
1 package body okl_acc_group_pub_w as
2 /* $Header: OKLUAGCB.pls 120.1 2005/07/07 13:34:15 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 create_acc_group(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p6_a0 JTF_NUMBER_TABLE
28 , p6_a1 JTF_NUMBER_TABLE
29 , p6_a2 JTF_NUMBER_TABLE
30 , p6_a3 JTF_NUMBER_TABLE
31 , p6_a4 JTF_DATE_TABLE
32 , p6_a5 JTF_NUMBER_TABLE
33 , p6_a6 JTF_NUMBER_TABLE
34 , p6_a7 JTF_DATE_TABLE
35 , p6_a8 JTF_NUMBER_TABLE
36 , p6_a9 JTF_DATE_TABLE
37 , p6_a10 JTF_NUMBER_TABLE
38 , p7_a0 out nocopy NUMBER
39 , p7_a1 out nocopy NUMBER
40 , p7_a2 out nocopy NUMBER
41 , p7_a3 out nocopy VARCHAR2
42 , p7_a4 out nocopy NUMBER
43 , p7_a5 out nocopy NUMBER
44 , p7_a6 out nocopy NUMBER
45 , p7_a7 out nocopy DATE
46 , p7_a8 out nocopy NUMBER
47 , p7_a9 out nocopy DATE
48 , p7_a10 out nocopy NUMBER
49 , p8_a0 out nocopy JTF_NUMBER_TABLE
50 , p8_a1 out nocopy JTF_NUMBER_TABLE
51 , p8_a2 out nocopy JTF_NUMBER_TABLE
52 , p8_a3 out nocopy JTF_NUMBER_TABLE
53 , p8_a4 out nocopy JTF_DATE_TABLE
54 , p8_a5 out nocopy JTF_NUMBER_TABLE
55 , p8_a6 out nocopy JTF_NUMBER_TABLE
56 , p8_a7 out nocopy JTF_DATE_TABLE
57 , p8_a8 out nocopy JTF_NUMBER_TABLE
58 , p8_a9 out nocopy JTF_DATE_TABLE
59 , p8_a10 out nocopy JTF_NUMBER_TABLE
60 , p5_a0 NUMBER := 0-1962.0724
61 , p5_a1 NUMBER := 0-1962.0724
62 , p5_a2 NUMBER := 0-1962.0724
63 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
64 , p5_a4 NUMBER := 0-1962.0724
65 , p5_a5 NUMBER := 0-1962.0724
66 , p5_a6 NUMBER := 0-1962.0724
67 , p5_a7 DATE := fnd_api.g_miss_date
68 , p5_a8 NUMBER := 0-1962.0724
69 , p5_a9 DATE := fnd_api.g_miss_date
70 , p5_a10 NUMBER := 0-1962.0724
71 )
72
73 as
74 ddp_agcv_rec okl_acc_group_pub.agcv_rec_type;
75 ddp_agbv_tbl okl_acc_group_pub.agbv_tbl_type;
76 ddx_agcv_rec okl_acc_group_pub.agcv_rec_type;
77 ddx_agbv_tbl okl_acc_group_pub.agbv_tbl_type;
78 ddindx binary_integer; indx binary_integer;
79 begin
80
81 -- copy data to the local IN or IN-OUT args, if any
82
83
84
85
86
87 ddp_agcv_rec.id := rosetta_g_miss_num_map(p5_a0);
88 ddp_agcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
89 ddp_agcv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a2);
90 ddp_agcv_rec.acc_group_code := p5_a3;
91 ddp_agcv_rec.org_id := rosetta_g_miss_num_map(p5_a4);
92 ddp_agcv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a5);
93 ddp_agcv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
94 ddp_agcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
95 ddp_agcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
96 ddp_agcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
97 ddp_agcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
98
99 okl_agb_pvt_w.rosetta_table_copy_in_p5(ddp_agbv_tbl, p6_a0
100 , p6_a1
101 , p6_a2
102 , p6_a3
103 , p6_a4
104 , p6_a5
105 , p6_a6
106 , p6_a7
107 , p6_a8
108 , p6_a9
109 , p6_a10
110 );
111
112
113
114 -- here's the delegated call to the old PL/SQL routine
115 okl_acc_group_pub.create_acc_group(p_api_version,
116 p_init_msg_list,
117 x_return_status,
118 x_msg_count,
119 x_msg_data,
120 ddp_agcv_rec,
121 ddp_agbv_tbl,
122 ddx_agcv_rec,
123 ddx_agbv_tbl);
124
125 -- copy data back from the local variables to OUT or IN-OUT args, if any
126
127
128
129
130
131
132
133 p7_a0 := rosetta_g_miss_num_map(ddx_agcv_rec.id);
134 p7_a1 := rosetta_g_miss_num_map(ddx_agcv_rec.object_version_number);
135 p7_a2 := rosetta_g_miss_num_map(ddx_agcv_rec.code_combination_id);
136 p7_a3 := ddx_agcv_rec.acc_group_code;
137 p7_a4 := rosetta_g_miss_num_map(ddx_agcv_rec.org_id);
138 p7_a5 := rosetta_g_miss_num_map(ddx_agcv_rec.set_of_books_id);
139 p7_a6 := rosetta_g_miss_num_map(ddx_agcv_rec.created_by);
140 p7_a7 := ddx_agcv_rec.creation_date;
141 p7_a8 := rosetta_g_miss_num_map(ddx_agcv_rec.last_updated_by);
142 p7_a9 := ddx_agcv_rec.last_update_date;
143 p7_a10 := rosetta_g_miss_num_map(ddx_agcv_rec.last_update_login);
144
145 okl_agb_pvt_w.rosetta_table_copy_out_p5(ddx_agbv_tbl, p8_a0
146 , p8_a1
147 , p8_a2
148 , p8_a3
149 , p8_a4
150 , p8_a5
151 , p8_a6
152 , p8_a7
153 , p8_a8
154 , p8_a9
155 , p8_a10
156 );
157 end;
158
159 procedure update_acc_group(p_api_version NUMBER
160 , p_init_msg_list VARCHAR2
161 , x_return_status out nocopy VARCHAR2
162 , x_msg_count out nocopy NUMBER
163 , x_msg_data out nocopy VARCHAR2
164 , p6_a0 JTF_NUMBER_TABLE
165 , p6_a1 JTF_NUMBER_TABLE
166 , p6_a2 JTF_NUMBER_TABLE
167 , p6_a3 JTF_NUMBER_TABLE
168 , p6_a4 JTF_DATE_TABLE
169 , p6_a5 JTF_NUMBER_TABLE
170 , p6_a6 JTF_NUMBER_TABLE
171 , p6_a7 JTF_DATE_TABLE
172 , p6_a8 JTF_NUMBER_TABLE
173 , p6_a9 JTF_DATE_TABLE
174 , p6_a10 JTF_NUMBER_TABLE
175 , p7_a0 out nocopy NUMBER
176 , p7_a1 out nocopy NUMBER
177 , p7_a2 out nocopy NUMBER
178 , p7_a3 out nocopy VARCHAR2
179 , p7_a4 out nocopy NUMBER
180 , p7_a5 out nocopy NUMBER
181 , p7_a6 out nocopy NUMBER
182 , p7_a7 out nocopy DATE
183 , p7_a8 out nocopy NUMBER
184 , p7_a9 out nocopy DATE
185 , p7_a10 out nocopy NUMBER
186 , p8_a0 out nocopy JTF_NUMBER_TABLE
187 , p8_a1 out nocopy JTF_NUMBER_TABLE
188 , p8_a2 out nocopy JTF_NUMBER_TABLE
189 , p8_a3 out nocopy JTF_NUMBER_TABLE
190 , p8_a4 out nocopy JTF_DATE_TABLE
191 , p8_a5 out nocopy JTF_NUMBER_TABLE
192 , p8_a6 out nocopy JTF_NUMBER_TABLE
193 , p8_a7 out nocopy JTF_DATE_TABLE
194 , p8_a8 out nocopy JTF_NUMBER_TABLE
195 , p8_a9 out nocopy JTF_DATE_TABLE
196 , p8_a10 out nocopy JTF_NUMBER_TABLE
197 , p5_a0 NUMBER := 0-1962.0724
198 , p5_a1 NUMBER := 0-1962.0724
199 , p5_a2 NUMBER := 0-1962.0724
200 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
201 , p5_a4 NUMBER := 0-1962.0724
202 , p5_a5 NUMBER := 0-1962.0724
203 , p5_a6 NUMBER := 0-1962.0724
204 , p5_a7 DATE := fnd_api.g_miss_date
205 , p5_a8 NUMBER := 0-1962.0724
206 , p5_a9 DATE := fnd_api.g_miss_date
207 , p5_a10 NUMBER := 0-1962.0724
208 )
209
210 as
211 ddp_agcv_rec okl_acc_group_pub.agcv_rec_type;
212 ddp_agbv_tbl okl_acc_group_pub.agbv_tbl_type;
213 ddx_agcv_rec okl_acc_group_pub.agcv_rec_type;
214 ddx_agbv_tbl okl_acc_group_pub.agbv_tbl_type;
215 ddindx binary_integer; indx binary_integer;
216 begin
217
218 -- copy data to the local IN or IN-OUT args, if any
219
220
221
222
223
224 ddp_agcv_rec.id := rosetta_g_miss_num_map(p5_a0);
225 ddp_agcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
226 ddp_agcv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a2);
227 ddp_agcv_rec.acc_group_code := p5_a3;
228 ddp_agcv_rec.org_id := rosetta_g_miss_num_map(p5_a4);
229 ddp_agcv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a5);
230 ddp_agcv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
231 ddp_agcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
232 ddp_agcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
233 ddp_agcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
234 ddp_agcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
235
236 okl_agb_pvt_w.rosetta_table_copy_in_p5(ddp_agbv_tbl, p6_a0
237 , p6_a1
238 , p6_a2
239 , p6_a3
240 , p6_a4
241 , p6_a5
242 , p6_a6
243 , p6_a7
244 , p6_a8
245 , p6_a9
246 , p6_a10
247 );
248
249
250
251 -- here's the delegated call to the old PL/SQL routine
252 okl_acc_group_pub.update_acc_group(p_api_version,
253 p_init_msg_list,
254 x_return_status,
255 x_msg_count,
256 x_msg_data,
257 ddp_agcv_rec,
258 ddp_agbv_tbl,
259 ddx_agcv_rec,
260 ddx_agbv_tbl);
261
262 -- copy data back from the local variables to OUT or IN-OUT args, if any
263
264
265
266
267
268
269
270 p7_a0 := rosetta_g_miss_num_map(ddx_agcv_rec.id);
271 p7_a1 := rosetta_g_miss_num_map(ddx_agcv_rec.object_version_number);
272 p7_a2 := rosetta_g_miss_num_map(ddx_agcv_rec.code_combination_id);
273 p7_a3 := ddx_agcv_rec.acc_group_code;
274 p7_a4 := rosetta_g_miss_num_map(ddx_agcv_rec.org_id);
275 p7_a5 := rosetta_g_miss_num_map(ddx_agcv_rec.set_of_books_id);
276 p7_a6 := rosetta_g_miss_num_map(ddx_agcv_rec.created_by);
277 p7_a7 := ddx_agcv_rec.creation_date;
278 p7_a8 := rosetta_g_miss_num_map(ddx_agcv_rec.last_updated_by);
279 p7_a9 := ddx_agcv_rec.last_update_date;
280 p7_a10 := rosetta_g_miss_num_map(ddx_agcv_rec.last_update_login);
281
282 okl_agb_pvt_w.rosetta_table_copy_out_p5(ddx_agbv_tbl, p8_a0
283 , p8_a1
284 , p8_a2
285 , p8_a3
286 , p8_a4
287 , p8_a5
288 , p8_a6
289 , p8_a7
290 , p8_a8
291 , p8_a9
292 , p8_a10
293 );
294 end;
295
296 procedure validate_acc_group(p_api_version NUMBER
297 , p_init_msg_list VARCHAR2
298 , x_return_status out nocopy VARCHAR2
299 , x_msg_count out nocopy NUMBER
300 , x_msg_data out nocopy VARCHAR2
301 , p6_a0 JTF_NUMBER_TABLE
302 , p6_a1 JTF_NUMBER_TABLE
303 , p6_a2 JTF_NUMBER_TABLE
304 , p6_a3 JTF_NUMBER_TABLE
305 , p6_a4 JTF_DATE_TABLE
306 , p6_a5 JTF_NUMBER_TABLE
307 , p6_a6 JTF_NUMBER_TABLE
308 , p6_a7 JTF_DATE_TABLE
309 , p6_a8 JTF_NUMBER_TABLE
310 , p6_a9 JTF_DATE_TABLE
311 , p6_a10 JTF_NUMBER_TABLE
312 , p5_a0 NUMBER := 0-1962.0724
313 , p5_a1 NUMBER := 0-1962.0724
314 , p5_a2 NUMBER := 0-1962.0724
315 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
316 , p5_a4 NUMBER := 0-1962.0724
317 , p5_a5 NUMBER := 0-1962.0724
318 , p5_a6 NUMBER := 0-1962.0724
319 , p5_a7 DATE := fnd_api.g_miss_date
320 , p5_a8 NUMBER := 0-1962.0724
321 , p5_a9 DATE := fnd_api.g_miss_date
322 , p5_a10 NUMBER := 0-1962.0724
323 )
324
325 as
326 ddp_agcv_rec okl_acc_group_pub.agcv_rec_type;
327 ddp_agbv_tbl okl_acc_group_pub.agbv_tbl_type;
328 ddindx binary_integer; indx binary_integer;
329 begin
330
331 -- copy data to the local IN or IN-OUT args, if any
332
333
334
335
336
337 ddp_agcv_rec.id := rosetta_g_miss_num_map(p5_a0);
338 ddp_agcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
339 ddp_agcv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a2);
340 ddp_agcv_rec.acc_group_code := p5_a3;
341 ddp_agcv_rec.org_id := rosetta_g_miss_num_map(p5_a4);
342 ddp_agcv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a5);
343 ddp_agcv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
344 ddp_agcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
345 ddp_agcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
346 ddp_agcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
347 ddp_agcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
348
349 okl_agb_pvt_w.rosetta_table_copy_in_p5(ddp_agbv_tbl, p6_a0
350 , p6_a1
351 , p6_a2
352 , p6_a3
353 , p6_a4
354 , p6_a5
355 , p6_a6
356 , p6_a7
357 , p6_a8
358 , p6_a9
359 , p6_a10
360 );
361
362 -- here's the delegated call to the old PL/SQL routine
363 okl_acc_group_pub.validate_acc_group(p_api_version,
364 p_init_msg_list,
365 x_return_status,
366 x_msg_count,
367 x_msg_data,
368 ddp_agcv_rec,
369 ddp_agbv_tbl);
370
371 -- copy data back from the local variables to OUT or IN-OUT args, if any
372
373
374
375
376
377
378 end;
379
380 procedure create_acc_ccid(p_api_version NUMBER
381 , p_init_msg_list VARCHAR2
382 , x_return_status out nocopy VARCHAR2
383 , x_msg_count out nocopy NUMBER
384 , x_msg_data out nocopy VARCHAR2
385 , p5_a0 JTF_NUMBER_TABLE
386 , p5_a1 JTF_NUMBER_TABLE
387 , p5_a2 JTF_NUMBER_TABLE
388 , p5_a3 JTF_VARCHAR2_TABLE_100
389 , p5_a4 JTF_NUMBER_TABLE
390 , p5_a5 JTF_NUMBER_TABLE
391 , p5_a6 JTF_NUMBER_TABLE
392 , p5_a7 JTF_DATE_TABLE
393 , p5_a8 JTF_NUMBER_TABLE
394 , p5_a9 JTF_DATE_TABLE
395 , p5_a10 JTF_NUMBER_TABLE
396 , p6_a0 out nocopy JTF_NUMBER_TABLE
397 , p6_a1 out nocopy JTF_NUMBER_TABLE
398 , p6_a2 out nocopy JTF_NUMBER_TABLE
399 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
400 , p6_a4 out nocopy JTF_NUMBER_TABLE
401 , p6_a5 out nocopy JTF_NUMBER_TABLE
402 , p6_a6 out nocopy JTF_NUMBER_TABLE
403 , p6_a7 out nocopy JTF_DATE_TABLE
404 , p6_a8 out nocopy JTF_NUMBER_TABLE
405 , p6_a9 out nocopy JTF_DATE_TABLE
406 , p6_a10 out nocopy JTF_NUMBER_TABLE
407 )
408
409 as
410 ddp_agcv_tbl okl_acc_group_pub.agcv_tbl_type;
411 ddx_agcv_tbl okl_acc_group_pub.agcv_tbl_type;
412 ddindx binary_integer; indx binary_integer;
413 begin
414
415 -- copy data to the local IN or IN-OUT args, if any
416
417
418
419
420
421 okl_agc_pvt_w.rosetta_table_copy_in_p5(ddp_agcv_tbl, p5_a0
422 , p5_a1
423 , p5_a2
424 , p5_a3
425 , p5_a4
426 , p5_a5
427 , p5_a6
428 , p5_a7
429 , p5_a8
430 , p5_a9
431 , p5_a10
432 );
433
434
435 -- here's the delegated call to the old PL/SQL routine
436 okl_acc_group_pub.create_acc_ccid(p_api_version,
437 p_init_msg_list,
438 x_return_status,
439 x_msg_count,
440 x_msg_data,
441 ddp_agcv_tbl,
442 ddx_agcv_tbl);
443
444 -- copy data back from the local variables to OUT or IN-OUT args, if any
445
446
447
448
449
450
451 okl_agc_pvt_w.rosetta_table_copy_out_p5(ddx_agcv_tbl, p6_a0
452 , p6_a1
453 , p6_a2
454 , p6_a3
455 , p6_a4
456 , p6_a5
457 , p6_a6
458 , p6_a7
459 , p6_a8
460 , p6_a9
461 , p6_a10
462 );
463 end;
464
465 procedure create_acc_ccid(p_api_version NUMBER
466 , p_init_msg_list VARCHAR2
467 , x_return_status out nocopy VARCHAR2
468 , x_msg_count out nocopy NUMBER
469 , x_msg_data out nocopy VARCHAR2
470 , p6_a0 out nocopy NUMBER
471 , p6_a1 out nocopy NUMBER
472 , p6_a2 out nocopy NUMBER
473 , p6_a3 out nocopy VARCHAR2
474 , p6_a4 out nocopy NUMBER
475 , p6_a5 out nocopy NUMBER
476 , p6_a6 out nocopy NUMBER
477 , p6_a7 out nocopy DATE
478 , p6_a8 out nocopy NUMBER
479 , p6_a9 out nocopy DATE
480 , p6_a10 out nocopy NUMBER
481 , p5_a0 NUMBER := 0-1962.0724
482 , p5_a1 NUMBER := 0-1962.0724
483 , p5_a2 NUMBER := 0-1962.0724
484 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
485 , p5_a4 NUMBER := 0-1962.0724
486 , p5_a5 NUMBER := 0-1962.0724
487 , p5_a6 NUMBER := 0-1962.0724
488 , p5_a7 DATE := fnd_api.g_miss_date
489 , p5_a8 NUMBER := 0-1962.0724
490 , p5_a9 DATE := fnd_api.g_miss_date
491 , p5_a10 NUMBER := 0-1962.0724
492 )
493
494 as
495 ddp_agcv_rec okl_acc_group_pub.agcv_rec_type;
496 ddx_agcv_rec okl_acc_group_pub.agcv_rec_type;
497 ddindx binary_integer; indx binary_integer;
498 begin
499
500 -- copy data to the local IN or IN-OUT args, if any
501
502
503
504
505
506 ddp_agcv_rec.id := rosetta_g_miss_num_map(p5_a0);
507 ddp_agcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
508 ddp_agcv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a2);
509 ddp_agcv_rec.acc_group_code := p5_a3;
510 ddp_agcv_rec.org_id := rosetta_g_miss_num_map(p5_a4);
511 ddp_agcv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a5);
512 ddp_agcv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
513 ddp_agcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
514 ddp_agcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
515 ddp_agcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
516 ddp_agcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
517
518
519 -- here's the delegated call to the old PL/SQL routine
520 okl_acc_group_pub.create_acc_ccid(p_api_version,
521 p_init_msg_list,
522 x_return_status,
523 x_msg_count,
524 x_msg_data,
525 ddp_agcv_rec,
526 ddx_agcv_rec);
527
528 -- copy data back from the local variables to OUT or IN-OUT args, if any
529
530
531
532
533
534
535 p6_a0 := rosetta_g_miss_num_map(ddx_agcv_rec.id);
536 p6_a1 := rosetta_g_miss_num_map(ddx_agcv_rec.object_version_number);
537 p6_a2 := rosetta_g_miss_num_map(ddx_agcv_rec.code_combination_id);
538 p6_a3 := ddx_agcv_rec.acc_group_code;
539 p6_a4 := rosetta_g_miss_num_map(ddx_agcv_rec.org_id);
540 p6_a5 := rosetta_g_miss_num_map(ddx_agcv_rec.set_of_books_id);
541 p6_a6 := rosetta_g_miss_num_map(ddx_agcv_rec.created_by);
542 p6_a7 := ddx_agcv_rec.creation_date;
543 p6_a8 := rosetta_g_miss_num_map(ddx_agcv_rec.last_updated_by);
544 p6_a9 := ddx_agcv_rec.last_update_date;
545 p6_a10 := rosetta_g_miss_num_map(ddx_agcv_rec.last_update_login);
546 end;
547
548 procedure lock_acc_ccid(p_api_version NUMBER
549 , p_init_msg_list VARCHAR2
550 , x_return_status out nocopy VARCHAR2
551 , x_msg_count out nocopy NUMBER
552 , x_msg_data out nocopy VARCHAR2
553 , p5_a0 JTF_NUMBER_TABLE
554 , p5_a1 JTF_NUMBER_TABLE
555 , p5_a2 JTF_NUMBER_TABLE
556 , p5_a3 JTF_VARCHAR2_TABLE_100
557 , p5_a4 JTF_NUMBER_TABLE
558 , p5_a5 JTF_NUMBER_TABLE
559 , p5_a6 JTF_NUMBER_TABLE
560 , p5_a7 JTF_DATE_TABLE
561 , p5_a8 JTF_NUMBER_TABLE
562 , p5_a9 JTF_DATE_TABLE
563 , p5_a10 JTF_NUMBER_TABLE
564 )
565
566 as
567 ddp_agcv_tbl okl_acc_group_pub.agcv_tbl_type;
568 ddindx binary_integer; indx binary_integer;
569 begin
570
571 -- copy data to the local IN or IN-OUT args, if any
572
573
574
575
576
577 okl_agc_pvt_w.rosetta_table_copy_in_p5(ddp_agcv_tbl, p5_a0
578 , p5_a1
579 , p5_a2
580 , p5_a3
581 , p5_a4
582 , p5_a5
583 , p5_a6
584 , p5_a7
585 , p5_a8
586 , p5_a9
587 , p5_a10
588 );
589
590 -- here's the delegated call to the old PL/SQL routine
591 okl_acc_group_pub.lock_acc_ccid(p_api_version,
592 p_init_msg_list,
593 x_return_status,
594 x_msg_count,
595 x_msg_data,
596 ddp_agcv_tbl);
597
598 -- copy data back from the local variables to OUT or IN-OUT args, if any
599
600
601
602
603
604 end;
605
606 procedure lock_acc_ccid(p_api_version NUMBER
607 , p_init_msg_list VARCHAR2
608 , x_return_status out nocopy VARCHAR2
609 , x_msg_count out nocopy NUMBER
610 , x_msg_data out nocopy VARCHAR2
611 , p5_a0 NUMBER := 0-1962.0724
612 , p5_a1 NUMBER := 0-1962.0724
613 , p5_a2 NUMBER := 0-1962.0724
614 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
615 , p5_a4 NUMBER := 0-1962.0724
616 , p5_a5 NUMBER := 0-1962.0724
617 , p5_a6 NUMBER := 0-1962.0724
618 , p5_a7 DATE := fnd_api.g_miss_date
619 , p5_a8 NUMBER := 0-1962.0724
620 , p5_a9 DATE := fnd_api.g_miss_date
621 , p5_a10 NUMBER := 0-1962.0724
622 )
623
624 as
625 ddp_agcv_rec okl_acc_group_pub.agcv_rec_type;
626 ddindx binary_integer; indx binary_integer;
627 begin
628
629 -- copy data to the local IN or IN-OUT args, if any
630
631
632
633
634
635 ddp_agcv_rec.id := rosetta_g_miss_num_map(p5_a0);
636 ddp_agcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
637 ddp_agcv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a2);
638 ddp_agcv_rec.acc_group_code := p5_a3;
639 ddp_agcv_rec.org_id := rosetta_g_miss_num_map(p5_a4);
640 ddp_agcv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a5);
641 ddp_agcv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
642 ddp_agcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
643 ddp_agcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
644 ddp_agcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
645 ddp_agcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
646
647 -- here's the delegated call to the old PL/SQL routine
648 okl_acc_group_pub.lock_acc_ccid(p_api_version,
649 p_init_msg_list,
650 x_return_status,
651 x_msg_count,
652 x_msg_data,
653 ddp_agcv_rec);
654
655 -- copy data back from the local variables to OUT or IN-OUT args, if any
656
657
658
659
660
661 end;
662
663 procedure update_acc_ccid(p_api_version NUMBER
664 , p_init_msg_list VARCHAR2
665 , x_return_status out nocopy VARCHAR2
666 , x_msg_count out nocopy NUMBER
667 , x_msg_data out nocopy VARCHAR2
668 , p5_a0 JTF_NUMBER_TABLE
669 , p5_a1 JTF_NUMBER_TABLE
670 , p5_a2 JTF_NUMBER_TABLE
671 , p5_a3 JTF_VARCHAR2_TABLE_100
672 , p5_a4 JTF_NUMBER_TABLE
673 , p5_a5 JTF_NUMBER_TABLE
674 , p5_a6 JTF_NUMBER_TABLE
675 , p5_a7 JTF_DATE_TABLE
676 , p5_a8 JTF_NUMBER_TABLE
677 , p5_a9 JTF_DATE_TABLE
678 , p5_a10 JTF_NUMBER_TABLE
679 , p6_a0 out nocopy JTF_NUMBER_TABLE
680 , p6_a1 out nocopy JTF_NUMBER_TABLE
681 , p6_a2 out nocopy JTF_NUMBER_TABLE
682 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
683 , p6_a4 out nocopy JTF_NUMBER_TABLE
684 , p6_a5 out nocopy JTF_NUMBER_TABLE
685 , p6_a6 out nocopy JTF_NUMBER_TABLE
686 , p6_a7 out nocopy JTF_DATE_TABLE
687 , p6_a8 out nocopy JTF_NUMBER_TABLE
688 , p6_a9 out nocopy JTF_DATE_TABLE
689 , p6_a10 out nocopy JTF_NUMBER_TABLE
690 )
691
692 as
693 ddp_agcv_tbl okl_acc_group_pub.agcv_tbl_type;
694 ddx_agcv_tbl okl_acc_group_pub.agcv_tbl_type;
695 ddindx binary_integer; indx binary_integer;
696 begin
697
698 -- copy data to the local IN or IN-OUT args, if any
699
700
701
702
703
704 okl_agc_pvt_w.rosetta_table_copy_in_p5(ddp_agcv_tbl, p5_a0
705 , p5_a1
706 , p5_a2
707 , p5_a3
708 , p5_a4
709 , p5_a5
710 , p5_a6
711 , p5_a7
712 , p5_a8
713 , p5_a9
714 , p5_a10
715 );
716
717
718 -- here's the delegated call to the old PL/SQL routine
719 okl_acc_group_pub.update_acc_ccid(p_api_version,
720 p_init_msg_list,
721 x_return_status,
722 x_msg_count,
723 x_msg_data,
724 ddp_agcv_tbl,
725 ddx_agcv_tbl);
726
727 -- copy data back from the local variables to OUT or IN-OUT args, if any
728
729
730
731
732
733
734 okl_agc_pvt_w.rosetta_table_copy_out_p5(ddx_agcv_tbl, p6_a0
735 , p6_a1
736 , p6_a2
737 , p6_a3
738 , p6_a4
739 , p6_a5
740 , p6_a6
741 , p6_a7
742 , p6_a8
743 , p6_a9
744 , p6_a10
745 );
746 end;
747
748 procedure update_acc_ccid(p_api_version NUMBER
749 , p_init_msg_list VARCHAR2
750 , x_return_status out nocopy VARCHAR2
751 , x_msg_count out nocopy NUMBER
752 , x_msg_data out nocopy VARCHAR2
753 , p6_a0 out nocopy NUMBER
754 , p6_a1 out nocopy NUMBER
755 , p6_a2 out nocopy NUMBER
756 , p6_a3 out nocopy VARCHAR2
757 , p6_a4 out nocopy NUMBER
758 , p6_a5 out nocopy NUMBER
759 , p6_a6 out nocopy NUMBER
760 , p6_a7 out nocopy DATE
761 , p6_a8 out nocopy NUMBER
762 , p6_a9 out nocopy DATE
763 , p6_a10 out nocopy NUMBER
764 , p5_a0 NUMBER := 0-1962.0724
765 , p5_a1 NUMBER := 0-1962.0724
766 , p5_a2 NUMBER := 0-1962.0724
767 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
768 , p5_a4 NUMBER := 0-1962.0724
769 , p5_a5 NUMBER := 0-1962.0724
770 , p5_a6 NUMBER := 0-1962.0724
771 , p5_a7 DATE := fnd_api.g_miss_date
772 , p5_a8 NUMBER := 0-1962.0724
773 , p5_a9 DATE := fnd_api.g_miss_date
774 , p5_a10 NUMBER := 0-1962.0724
775 )
776
777 as
778 ddp_agcv_rec okl_acc_group_pub.agcv_rec_type;
779 ddx_agcv_rec okl_acc_group_pub.agcv_rec_type;
780 ddindx binary_integer; indx binary_integer;
781 begin
782
783 -- copy data to the local IN or IN-OUT args, if any
784
785
786
787
788
789 ddp_agcv_rec.id := rosetta_g_miss_num_map(p5_a0);
790 ddp_agcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
791 ddp_agcv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a2);
792 ddp_agcv_rec.acc_group_code := p5_a3;
793 ddp_agcv_rec.org_id := rosetta_g_miss_num_map(p5_a4);
794 ddp_agcv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a5);
795 ddp_agcv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
796 ddp_agcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
797 ddp_agcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
798 ddp_agcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
799 ddp_agcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
800
801
802 -- here's the delegated call to the old PL/SQL routine
803 okl_acc_group_pub.update_acc_ccid(p_api_version,
804 p_init_msg_list,
805 x_return_status,
806 x_msg_count,
807 x_msg_data,
808 ddp_agcv_rec,
809 ddx_agcv_rec);
810
811 -- copy data back from the local variables to OUT or IN-OUT args, if any
812
813
814
815
816
817
818 p6_a0 := rosetta_g_miss_num_map(ddx_agcv_rec.id);
819 p6_a1 := rosetta_g_miss_num_map(ddx_agcv_rec.object_version_number);
820 p6_a2 := rosetta_g_miss_num_map(ddx_agcv_rec.code_combination_id);
821 p6_a3 := ddx_agcv_rec.acc_group_code;
822 p6_a4 := rosetta_g_miss_num_map(ddx_agcv_rec.org_id);
823 p6_a5 := rosetta_g_miss_num_map(ddx_agcv_rec.set_of_books_id);
824 p6_a6 := rosetta_g_miss_num_map(ddx_agcv_rec.created_by);
825 p6_a7 := ddx_agcv_rec.creation_date;
826 p6_a8 := rosetta_g_miss_num_map(ddx_agcv_rec.last_updated_by);
827 p6_a9 := ddx_agcv_rec.last_update_date;
828 p6_a10 := rosetta_g_miss_num_map(ddx_agcv_rec.last_update_login);
829 end;
830
831 procedure delete_acc_ccid(p_api_version NUMBER
832 , p_init_msg_list VARCHAR2
833 , x_return_status out nocopy VARCHAR2
834 , x_msg_count out nocopy NUMBER
835 , x_msg_data out nocopy VARCHAR2
836 , p5_a0 JTF_NUMBER_TABLE
837 , p5_a1 JTF_NUMBER_TABLE
838 , p5_a2 JTF_NUMBER_TABLE
839 , p5_a3 JTF_VARCHAR2_TABLE_100
840 , p5_a4 JTF_NUMBER_TABLE
841 , p5_a5 JTF_NUMBER_TABLE
842 , p5_a6 JTF_NUMBER_TABLE
843 , p5_a7 JTF_DATE_TABLE
844 , p5_a8 JTF_NUMBER_TABLE
845 , p5_a9 JTF_DATE_TABLE
846 , p5_a10 JTF_NUMBER_TABLE
847 )
848
849 as
850 ddp_agcv_tbl okl_acc_group_pub.agcv_tbl_type;
851 ddindx binary_integer; indx binary_integer;
852 begin
853
854 -- copy data to the local IN or IN-OUT args, if any
855
856
857
858
859
860 okl_agc_pvt_w.rosetta_table_copy_in_p5(ddp_agcv_tbl, p5_a0
861 , p5_a1
862 , p5_a2
863 , p5_a3
864 , p5_a4
865 , p5_a5
866 , p5_a6
867 , p5_a7
868 , p5_a8
869 , p5_a9
870 , p5_a10
871 );
872
873 -- here's the delegated call to the old PL/SQL routine
874 okl_acc_group_pub.delete_acc_ccid(p_api_version,
875 p_init_msg_list,
876 x_return_status,
877 x_msg_count,
878 x_msg_data,
879 ddp_agcv_tbl);
880
881 -- copy data back from the local variables to OUT or IN-OUT args, if any
882
883
884
885
886
887 end;
888
889 procedure delete_acc_ccid(p_api_version NUMBER
890 , p_init_msg_list VARCHAR2
891 , x_return_status out nocopy VARCHAR2
892 , x_msg_count out nocopy NUMBER
893 , x_msg_data out nocopy VARCHAR2
894 , p5_a0 NUMBER := 0-1962.0724
895 , p5_a1 NUMBER := 0-1962.0724
896 , p5_a2 NUMBER := 0-1962.0724
897 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
898 , p5_a4 NUMBER := 0-1962.0724
899 , p5_a5 NUMBER := 0-1962.0724
900 , p5_a6 NUMBER := 0-1962.0724
901 , p5_a7 DATE := fnd_api.g_miss_date
902 , p5_a8 NUMBER := 0-1962.0724
903 , p5_a9 DATE := fnd_api.g_miss_date
904 , p5_a10 NUMBER := 0-1962.0724
905 )
906
907 as
908 ddp_agcv_rec okl_acc_group_pub.agcv_rec_type;
909 ddindx binary_integer; indx binary_integer;
910 begin
911
912 -- copy data to the local IN or IN-OUT args, if any
913
914
915
916
917
918 ddp_agcv_rec.id := rosetta_g_miss_num_map(p5_a0);
919 ddp_agcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
920 ddp_agcv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a2);
921 ddp_agcv_rec.acc_group_code := p5_a3;
922 ddp_agcv_rec.org_id := rosetta_g_miss_num_map(p5_a4);
923 ddp_agcv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a5);
924 ddp_agcv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
925 ddp_agcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
926 ddp_agcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
927 ddp_agcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
928 ddp_agcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
929
930 -- here's the delegated call to the old PL/SQL routine
931 okl_acc_group_pub.delete_acc_ccid(p_api_version,
932 p_init_msg_list,
933 x_return_status,
934 x_msg_count,
935 x_msg_data,
936 ddp_agcv_rec);
937
938 -- copy data back from the local variables to OUT or IN-OUT args, if any
939
940
941
942
943
944 end;
945
946 procedure validate_acc_ccid(p_api_version NUMBER
947 , p_init_msg_list VARCHAR2
948 , x_return_status out nocopy VARCHAR2
949 , x_msg_count out nocopy NUMBER
950 , x_msg_data out nocopy VARCHAR2
951 , p5_a0 JTF_NUMBER_TABLE
952 , p5_a1 JTF_NUMBER_TABLE
953 , p5_a2 JTF_NUMBER_TABLE
954 , p5_a3 JTF_VARCHAR2_TABLE_100
955 , p5_a4 JTF_NUMBER_TABLE
956 , p5_a5 JTF_NUMBER_TABLE
957 , p5_a6 JTF_NUMBER_TABLE
958 , p5_a7 JTF_DATE_TABLE
959 , p5_a8 JTF_NUMBER_TABLE
960 , p5_a9 JTF_DATE_TABLE
961 , p5_a10 JTF_NUMBER_TABLE
962 )
963
964 as
965 ddp_agcv_tbl okl_acc_group_pub.agcv_tbl_type;
966 ddindx binary_integer; indx binary_integer;
967 begin
968
969 -- copy data to the local IN or IN-OUT args, if any
970
971
972
973
974
975 okl_agc_pvt_w.rosetta_table_copy_in_p5(ddp_agcv_tbl, p5_a0
976 , p5_a1
977 , p5_a2
978 , p5_a3
979 , p5_a4
980 , p5_a5
981 , p5_a6
982 , p5_a7
983 , p5_a8
984 , p5_a9
985 , p5_a10
986 );
987
988 -- here's the delegated call to the old PL/SQL routine
989 okl_acc_group_pub.validate_acc_ccid(p_api_version,
990 p_init_msg_list,
991 x_return_status,
992 x_msg_count,
993 x_msg_data,
994 ddp_agcv_tbl);
995
996 -- copy data back from the local variables to OUT or IN-OUT args, if any
997
998
999
1000
1001
1002 end;
1003
1004 procedure validate_acc_ccid(p_api_version NUMBER
1005 , p_init_msg_list VARCHAR2
1006 , x_return_status out nocopy VARCHAR2
1007 , x_msg_count out nocopy NUMBER
1008 , x_msg_data out nocopy VARCHAR2
1009 , p5_a0 NUMBER := 0-1962.0724
1010 , p5_a1 NUMBER := 0-1962.0724
1011 , p5_a2 NUMBER := 0-1962.0724
1012 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1013 , p5_a4 NUMBER := 0-1962.0724
1014 , p5_a5 NUMBER := 0-1962.0724
1015 , p5_a6 NUMBER := 0-1962.0724
1016 , p5_a7 DATE := fnd_api.g_miss_date
1017 , p5_a8 NUMBER := 0-1962.0724
1018 , p5_a9 DATE := fnd_api.g_miss_date
1019 , p5_a10 NUMBER := 0-1962.0724
1020 )
1021
1022 as
1023 ddp_agcv_rec okl_acc_group_pub.agcv_rec_type;
1024 ddindx binary_integer; indx binary_integer;
1025 begin
1026
1027 -- copy data to the local IN or IN-OUT args, if any
1028
1029
1030
1031
1032
1033 ddp_agcv_rec.id := rosetta_g_miss_num_map(p5_a0);
1034 ddp_agcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1035 ddp_agcv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a2);
1036 ddp_agcv_rec.acc_group_code := p5_a3;
1037 ddp_agcv_rec.org_id := rosetta_g_miss_num_map(p5_a4);
1038 ddp_agcv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a5);
1039 ddp_agcv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
1040 ddp_agcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
1041 ddp_agcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
1042 ddp_agcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
1043 ddp_agcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
1044
1045 -- here's the delegated call to the old PL/SQL routine
1046 okl_acc_group_pub.validate_acc_ccid(p_api_version,
1047 p_init_msg_list,
1048 x_return_status,
1049 x_msg_count,
1050 x_msg_data,
1051 ddp_agcv_rec);
1052
1053 -- copy data back from the local variables to OUT or IN-OUT args, if any
1054
1055
1056
1057
1058
1059 end;
1060
1061 procedure create_acc_bal(p_api_version NUMBER
1062 , p_init_msg_list VARCHAR2
1063 , x_return_status out nocopy VARCHAR2
1064 , x_msg_count out nocopy NUMBER
1065 , x_msg_data out nocopy VARCHAR2
1066 , p5_a0 JTF_NUMBER_TABLE
1067 , p5_a1 JTF_NUMBER_TABLE
1068 , p5_a2 JTF_NUMBER_TABLE
1069 , p5_a3 JTF_NUMBER_TABLE
1070 , p5_a4 JTF_DATE_TABLE
1071 , p5_a5 JTF_NUMBER_TABLE
1072 , p5_a6 JTF_NUMBER_TABLE
1073 , p5_a7 JTF_DATE_TABLE
1074 , p5_a8 JTF_NUMBER_TABLE
1075 , p5_a9 JTF_DATE_TABLE
1076 , p5_a10 JTF_NUMBER_TABLE
1077 , p6_a0 out nocopy JTF_NUMBER_TABLE
1078 , p6_a1 out nocopy JTF_NUMBER_TABLE
1079 , p6_a2 out nocopy JTF_NUMBER_TABLE
1080 , p6_a3 out nocopy JTF_NUMBER_TABLE
1081 , p6_a4 out nocopy JTF_DATE_TABLE
1082 , p6_a5 out nocopy JTF_NUMBER_TABLE
1083 , p6_a6 out nocopy JTF_NUMBER_TABLE
1084 , p6_a7 out nocopy JTF_DATE_TABLE
1085 , p6_a8 out nocopy JTF_NUMBER_TABLE
1086 , p6_a9 out nocopy JTF_DATE_TABLE
1087 , p6_a10 out nocopy JTF_NUMBER_TABLE
1088 )
1089
1090 as
1091 ddp_agbv_tbl okl_acc_group_pub.agbv_tbl_type;
1092 ddx_agbv_tbl okl_acc_group_pub.agbv_tbl_type;
1093 ddindx binary_integer; indx binary_integer;
1094 begin
1095
1096 -- copy data to the local IN or IN-OUT args, if any
1097
1098
1099
1100
1101
1102 okl_agb_pvt_w.rosetta_table_copy_in_p5(ddp_agbv_tbl, p5_a0
1103 , p5_a1
1104 , p5_a2
1105 , p5_a3
1106 , p5_a4
1107 , p5_a5
1108 , p5_a6
1109 , p5_a7
1110 , p5_a8
1111 , p5_a9
1112 , p5_a10
1113 );
1114
1115
1116 -- here's the delegated call to the old PL/SQL routine
1117 okl_acc_group_pub.create_acc_bal(p_api_version,
1118 p_init_msg_list,
1119 x_return_status,
1120 x_msg_count,
1121 x_msg_data,
1122 ddp_agbv_tbl,
1123 ddx_agbv_tbl);
1124
1125 -- copy data back from the local variables to OUT or IN-OUT args, if any
1126
1127
1128
1129
1130
1131
1132 okl_agb_pvt_w.rosetta_table_copy_out_p5(ddx_agbv_tbl, p6_a0
1133 , p6_a1
1134 , p6_a2
1135 , p6_a3
1136 , p6_a4
1137 , p6_a5
1138 , p6_a6
1139 , p6_a7
1140 , p6_a8
1141 , p6_a9
1142 , p6_a10
1143 );
1144 end;
1145
1146 procedure create_acc_bal(p_api_version NUMBER
1147 , p_init_msg_list VARCHAR2
1148 , x_return_status out nocopy VARCHAR2
1149 , x_msg_count out nocopy NUMBER
1150 , x_msg_data out nocopy VARCHAR2
1151 , p6_a0 out nocopy NUMBER
1152 , p6_a1 out nocopy NUMBER
1153 , p6_a2 out nocopy NUMBER
1154 , p6_a3 out nocopy NUMBER
1155 , p6_a4 out nocopy DATE
1156 , p6_a5 out nocopy NUMBER
1157 , p6_a6 out nocopy NUMBER
1158 , p6_a7 out nocopy DATE
1159 , p6_a8 out nocopy NUMBER
1160 , p6_a9 out nocopy DATE
1161 , p6_a10 out nocopy NUMBER
1162 , p5_a0 NUMBER := 0-1962.0724
1163 , p5_a1 NUMBER := 0-1962.0724
1164 , p5_a2 NUMBER := 0-1962.0724
1165 , p5_a3 NUMBER := 0-1962.0724
1166 , p5_a4 DATE := fnd_api.g_miss_date
1167 , p5_a5 NUMBER := 0-1962.0724
1168 , p5_a6 NUMBER := 0-1962.0724
1169 , p5_a7 DATE := fnd_api.g_miss_date
1170 , p5_a8 NUMBER := 0-1962.0724
1171 , p5_a9 DATE := fnd_api.g_miss_date
1172 , p5_a10 NUMBER := 0-1962.0724
1173 )
1174
1175 as
1176 ddp_agbv_rec okl_acc_group_pub.agbv_rec_type;
1177 ddx_agbv_rec okl_acc_group_pub.agbv_rec_type;
1178 ddindx binary_integer; indx binary_integer;
1179 begin
1180
1181 -- copy data to the local IN or IN-OUT args, if any
1182
1183
1184
1185
1186
1187 ddp_agbv_rec.id := rosetta_g_miss_num_map(p5_a0);
1188 ddp_agbv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1189 ddp_agbv_rec.acc_group_id := rosetta_g_miss_num_map(p5_a2);
1190 ddp_agbv_rec.khr_id := rosetta_g_miss_num_map(p5_a3);
1191 ddp_agbv_rec.date_balance := rosetta_g_miss_date_in_map(p5_a4);
1192 ddp_agbv_rec.amount := rosetta_g_miss_num_map(p5_a5);
1193 ddp_agbv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
1194 ddp_agbv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
1195 ddp_agbv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
1196 ddp_agbv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
1197 ddp_agbv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
1198
1199
1200 -- here's the delegated call to the old PL/SQL routine
1201 okl_acc_group_pub.create_acc_bal(p_api_version,
1202 p_init_msg_list,
1203 x_return_status,
1204 x_msg_count,
1205 x_msg_data,
1206 ddp_agbv_rec,
1207 ddx_agbv_rec);
1208
1209 -- copy data back from the local variables to OUT or IN-OUT args, if any
1210
1211
1212
1213
1214
1215
1216 p6_a0 := rosetta_g_miss_num_map(ddx_agbv_rec.id);
1217 p6_a1 := rosetta_g_miss_num_map(ddx_agbv_rec.object_version_number);
1218 p6_a2 := rosetta_g_miss_num_map(ddx_agbv_rec.acc_group_id);
1219 p6_a3 := rosetta_g_miss_num_map(ddx_agbv_rec.khr_id);
1220 p6_a4 := ddx_agbv_rec.date_balance;
1221 p6_a5 := rosetta_g_miss_num_map(ddx_agbv_rec.amount);
1222 p6_a6 := rosetta_g_miss_num_map(ddx_agbv_rec.created_by);
1223 p6_a7 := ddx_agbv_rec.creation_date;
1224 p6_a8 := rosetta_g_miss_num_map(ddx_agbv_rec.last_updated_by);
1225 p6_a9 := ddx_agbv_rec.last_update_date;
1226 p6_a10 := rosetta_g_miss_num_map(ddx_agbv_rec.last_update_login);
1227 end;
1228
1229 procedure lock_acc_bal(p_api_version NUMBER
1230 , p_init_msg_list VARCHAR2
1231 , x_return_status out nocopy VARCHAR2
1232 , x_msg_count out nocopy NUMBER
1233 , x_msg_data out nocopy VARCHAR2
1234 , p5_a0 JTF_NUMBER_TABLE
1235 , p5_a1 JTF_NUMBER_TABLE
1236 , p5_a2 JTF_NUMBER_TABLE
1237 , p5_a3 JTF_NUMBER_TABLE
1238 , p5_a4 JTF_DATE_TABLE
1239 , p5_a5 JTF_NUMBER_TABLE
1240 , p5_a6 JTF_NUMBER_TABLE
1241 , p5_a7 JTF_DATE_TABLE
1242 , p5_a8 JTF_NUMBER_TABLE
1243 , p5_a9 JTF_DATE_TABLE
1244 , p5_a10 JTF_NUMBER_TABLE
1245 )
1246
1247 as
1248 ddp_agbv_tbl okl_acc_group_pub.agbv_tbl_type;
1249 ddindx binary_integer; indx binary_integer;
1250 begin
1251
1252 -- copy data to the local IN or IN-OUT args, if any
1253
1254
1255
1256
1257
1258 okl_agb_pvt_w.rosetta_table_copy_in_p5(ddp_agbv_tbl, p5_a0
1259 , p5_a1
1260 , p5_a2
1261 , p5_a3
1262 , p5_a4
1263 , p5_a5
1264 , p5_a6
1265 , p5_a7
1266 , p5_a8
1267 , p5_a9
1268 , p5_a10
1269 );
1270
1271 -- here's the delegated call to the old PL/SQL routine
1272 okl_acc_group_pub.lock_acc_bal(p_api_version,
1273 p_init_msg_list,
1274 x_return_status,
1275 x_msg_count,
1276 x_msg_data,
1277 ddp_agbv_tbl);
1278
1279 -- copy data back from the local variables to OUT or IN-OUT args, if any
1280
1281
1282
1283
1284
1285 end;
1286
1287 procedure lock_acc_bal(p_api_version NUMBER
1288 , p_init_msg_list VARCHAR2
1289 , x_return_status out nocopy VARCHAR2
1290 , x_msg_count out nocopy NUMBER
1291 , x_msg_data out nocopy VARCHAR2
1292 , p5_a0 NUMBER := 0-1962.0724
1293 , p5_a1 NUMBER := 0-1962.0724
1294 , p5_a2 NUMBER := 0-1962.0724
1295 , p5_a3 NUMBER := 0-1962.0724
1296 , p5_a4 DATE := fnd_api.g_miss_date
1297 , p5_a5 NUMBER := 0-1962.0724
1298 , p5_a6 NUMBER := 0-1962.0724
1299 , p5_a7 DATE := fnd_api.g_miss_date
1300 , p5_a8 NUMBER := 0-1962.0724
1301 , p5_a9 DATE := fnd_api.g_miss_date
1302 , p5_a10 NUMBER := 0-1962.0724
1303 )
1304
1305 as
1306 ddp_agbv_rec okl_acc_group_pub.agbv_rec_type;
1307 ddindx binary_integer; indx binary_integer;
1308 begin
1309
1310 -- copy data to the local IN or IN-OUT args, if any
1311
1312
1313
1314
1315
1316 ddp_agbv_rec.id := rosetta_g_miss_num_map(p5_a0);
1317 ddp_agbv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1318 ddp_agbv_rec.acc_group_id := rosetta_g_miss_num_map(p5_a2);
1319 ddp_agbv_rec.khr_id := rosetta_g_miss_num_map(p5_a3);
1320 ddp_agbv_rec.date_balance := rosetta_g_miss_date_in_map(p5_a4);
1321 ddp_agbv_rec.amount := rosetta_g_miss_num_map(p5_a5);
1322 ddp_agbv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
1323 ddp_agbv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
1324 ddp_agbv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
1325 ddp_agbv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
1326 ddp_agbv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
1327
1328 -- here's the delegated call to the old PL/SQL routine
1329 okl_acc_group_pub.lock_acc_bal(p_api_version,
1330 p_init_msg_list,
1331 x_return_status,
1332 x_msg_count,
1333 x_msg_data,
1334 ddp_agbv_rec);
1335
1336 -- copy data back from the local variables to OUT or IN-OUT args, if any
1337
1338
1339
1340
1341
1342 end;
1343
1344 procedure update_acc_bal(p_api_version NUMBER
1345 , p_init_msg_list VARCHAR2
1346 , x_return_status out nocopy VARCHAR2
1347 , x_msg_count out nocopy NUMBER
1348 , x_msg_data out nocopy VARCHAR2
1349 , p5_a0 JTF_NUMBER_TABLE
1350 , p5_a1 JTF_NUMBER_TABLE
1351 , p5_a2 JTF_NUMBER_TABLE
1352 , p5_a3 JTF_NUMBER_TABLE
1353 , p5_a4 JTF_DATE_TABLE
1354 , p5_a5 JTF_NUMBER_TABLE
1355 , p5_a6 JTF_NUMBER_TABLE
1356 , p5_a7 JTF_DATE_TABLE
1357 , p5_a8 JTF_NUMBER_TABLE
1358 , p5_a9 JTF_DATE_TABLE
1359 , p5_a10 JTF_NUMBER_TABLE
1360 , p6_a0 out nocopy JTF_NUMBER_TABLE
1361 , p6_a1 out nocopy JTF_NUMBER_TABLE
1362 , p6_a2 out nocopy JTF_NUMBER_TABLE
1363 , p6_a3 out nocopy JTF_NUMBER_TABLE
1364 , p6_a4 out nocopy JTF_DATE_TABLE
1365 , p6_a5 out nocopy JTF_NUMBER_TABLE
1366 , p6_a6 out nocopy JTF_NUMBER_TABLE
1367 , p6_a7 out nocopy JTF_DATE_TABLE
1368 , p6_a8 out nocopy JTF_NUMBER_TABLE
1369 , p6_a9 out nocopy JTF_DATE_TABLE
1370 , p6_a10 out nocopy JTF_NUMBER_TABLE
1371 )
1372
1373 as
1374 ddp_agbv_tbl okl_acc_group_pub.agbv_tbl_type;
1375 ddx_agbv_tbl okl_acc_group_pub.agbv_tbl_type;
1376 ddindx binary_integer; indx binary_integer;
1377 begin
1378
1379 -- copy data to the local IN or IN-OUT args, if any
1380
1381
1382
1383
1384
1385 okl_agb_pvt_w.rosetta_table_copy_in_p5(ddp_agbv_tbl, p5_a0
1386 , p5_a1
1387 , p5_a2
1388 , p5_a3
1389 , p5_a4
1390 , p5_a5
1391 , p5_a6
1392 , p5_a7
1393 , p5_a8
1394 , p5_a9
1395 , p5_a10
1396 );
1397
1398
1399 -- here's the delegated call to the old PL/SQL routine
1400 okl_acc_group_pub.update_acc_bal(p_api_version,
1401 p_init_msg_list,
1402 x_return_status,
1403 x_msg_count,
1404 x_msg_data,
1405 ddp_agbv_tbl,
1406 ddx_agbv_tbl);
1407
1408 -- copy data back from the local variables to OUT or IN-OUT args, if any
1409
1410
1411
1412
1413
1414
1415 okl_agb_pvt_w.rosetta_table_copy_out_p5(ddx_agbv_tbl, p6_a0
1416 , p6_a1
1417 , p6_a2
1418 , p6_a3
1419 , p6_a4
1420 , p6_a5
1421 , p6_a6
1422 , p6_a7
1423 , p6_a8
1424 , p6_a9
1425 , p6_a10
1426 );
1427 end;
1428
1429 procedure update_acc_bal(p_api_version NUMBER
1430 , p_init_msg_list VARCHAR2
1431 , x_return_status out nocopy VARCHAR2
1432 , x_msg_count out nocopy NUMBER
1433 , x_msg_data out nocopy VARCHAR2
1434 , p6_a0 out nocopy NUMBER
1435 , p6_a1 out nocopy NUMBER
1436 , p6_a2 out nocopy NUMBER
1437 , p6_a3 out nocopy NUMBER
1438 , p6_a4 out nocopy DATE
1439 , p6_a5 out nocopy NUMBER
1440 , p6_a6 out nocopy NUMBER
1441 , p6_a7 out nocopy DATE
1442 , p6_a8 out nocopy NUMBER
1443 , p6_a9 out nocopy DATE
1444 , p6_a10 out nocopy NUMBER
1445 , p5_a0 NUMBER := 0-1962.0724
1446 , p5_a1 NUMBER := 0-1962.0724
1447 , p5_a2 NUMBER := 0-1962.0724
1448 , p5_a3 NUMBER := 0-1962.0724
1449 , p5_a4 DATE := fnd_api.g_miss_date
1450 , p5_a5 NUMBER := 0-1962.0724
1451 , p5_a6 NUMBER := 0-1962.0724
1452 , p5_a7 DATE := fnd_api.g_miss_date
1453 , p5_a8 NUMBER := 0-1962.0724
1454 , p5_a9 DATE := fnd_api.g_miss_date
1455 , p5_a10 NUMBER := 0-1962.0724
1456 )
1457
1458 as
1459 ddp_agbv_rec okl_acc_group_pub.agbv_rec_type;
1460 ddx_agbv_rec okl_acc_group_pub.agbv_rec_type;
1461 ddindx binary_integer; indx binary_integer;
1462 begin
1463
1464 -- copy data to the local IN or IN-OUT args, if any
1465
1466
1467
1468
1469
1470 ddp_agbv_rec.id := rosetta_g_miss_num_map(p5_a0);
1471 ddp_agbv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1472 ddp_agbv_rec.acc_group_id := rosetta_g_miss_num_map(p5_a2);
1473 ddp_agbv_rec.khr_id := rosetta_g_miss_num_map(p5_a3);
1474 ddp_agbv_rec.date_balance := rosetta_g_miss_date_in_map(p5_a4);
1475 ddp_agbv_rec.amount := rosetta_g_miss_num_map(p5_a5);
1476 ddp_agbv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
1477 ddp_agbv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
1478 ddp_agbv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
1479 ddp_agbv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
1480 ddp_agbv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
1481
1482
1483 -- here's the delegated call to the old PL/SQL routine
1484 okl_acc_group_pub.update_acc_bal(p_api_version,
1485 p_init_msg_list,
1486 x_return_status,
1487 x_msg_count,
1488 x_msg_data,
1489 ddp_agbv_rec,
1490 ddx_agbv_rec);
1491
1492 -- copy data back from the local variables to OUT or IN-OUT args, if any
1493
1494
1495
1496
1497
1498
1499 p6_a0 := rosetta_g_miss_num_map(ddx_agbv_rec.id);
1500 p6_a1 := rosetta_g_miss_num_map(ddx_agbv_rec.object_version_number);
1501 p6_a2 := rosetta_g_miss_num_map(ddx_agbv_rec.acc_group_id);
1502 p6_a3 := rosetta_g_miss_num_map(ddx_agbv_rec.khr_id);
1503 p6_a4 := ddx_agbv_rec.date_balance;
1504 p6_a5 := rosetta_g_miss_num_map(ddx_agbv_rec.amount);
1505 p6_a6 := rosetta_g_miss_num_map(ddx_agbv_rec.created_by);
1506 p6_a7 := ddx_agbv_rec.creation_date;
1507 p6_a8 := rosetta_g_miss_num_map(ddx_agbv_rec.last_updated_by);
1508 p6_a9 := ddx_agbv_rec.last_update_date;
1509 p6_a10 := rosetta_g_miss_num_map(ddx_agbv_rec.last_update_login);
1510 end;
1511
1512 procedure delete_acc_bal(p_api_version NUMBER
1513 , p_init_msg_list VARCHAR2
1514 , x_return_status out nocopy VARCHAR2
1515 , x_msg_count out nocopy NUMBER
1516 , x_msg_data out nocopy VARCHAR2
1517 , p5_a0 JTF_NUMBER_TABLE
1518 , p5_a1 JTF_NUMBER_TABLE
1519 , p5_a2 JTF_NUMBER_TABLE
1520 , p5_a3 JTF_NUMBER_TABLE
1521 , p5_a4 JTF_DATE_TABLE
1522 , p5_a5 JTF_NUMBER_TABLE
1523 , p5_a6 JTF_NUMBER_TABLE
1524 , p5_a7 JTF_DATE_TABLE
1525 , p5_a8 JTF_NUMBER_TABLE
1526 , p5_a9 JTF_DATE_TABLE
1527 , p5_a10 JTF_NUMBER_TABLE
1528 )
1529
1530 as
1531 ddp_agbv_tbl okl_acc_group_pub.agbv_tbl_type;
1532 ddindx binary_integer; indx binary_integer;
1533 begin
1534
1535 -- copy data to the local IN or IN-OUT args, if any
1536
1537
1538
1539
1540
1541 okl_agb_pvt_w.rosetta_table_copy_in_p5(ddp_agbv_tbl, p5_a0
1542 , p5_a1
1543 , p5_a2
1544 , p5_a3
1545 , p5_a4
1546 , p5_a5
1547 , p5_a6
1548 , p5_a7
1549 , p5_a8
1550 , p5_a9
1551 , p5_a10
1552 );
1553
1554 -- here's the delegated call to the old PL/SQL routine
1555 okl_acc_group_pub.delete_acc_bal(p_api_version,
1556 p_init_msg_list,
1557 x_return_status,
1558 x_msg_count,
1559 x_msg_data,
1560 ddp_agbv_tbl);
1561
1562 -- copy data back from the local variables to OUT or IN-OUT args, if any
1563
1564
1565
1566
1567
1568 end;
1569
1570 procedure delete_acc_bal(p_api_version NUMBER
1571 , p_init_msg_list VARCHAR2
1572 , x_return_status out nocopy VARCHAR2
1573 , x_msg_count out nocopy NUMBER
1574 , x_msg_data out nocopy VARCHAR2
1575 , p5_a0 NUMBER := 0-1962.0724
1576 , p5_a1 NUMBER := 0-1962.0724
1577 , p5_a2 NUMBER := 0-1962.0724
1578 , p5_a3 NUMBER := 0-1962.0724
1579 , p5_a4 DATE := fnd_api.g_miss_date
1580 , p5_a5 NUMBER := 0-1962.0724
1581 , p5_a6 NUMBER := 0-1962.0724
1582 , p5_a7 DATE := fnd_api.g_miss_date
1583 , p5_a8 NUMBER := 0-1962.0724
1584 , p5_a9 DATE := fnd_api.g_miss_date
1585 , p5_a10 NUMBER := 0-1962.0724
1586 )
1587
1588 as
1589 ddp_agbv_rec okl_acc_group_pub.agbv_rec_type;
1590 ddindx binary_integer; indx binary_integer;
1591 begin
1592
1593 -- copy data to the local IN or IN-OUT args, if any
1594
1595
1596
1597
1598
1599 ddp_agbv_rec.id := rosetta_g_miss_num_map(p5_a0);
1600 ddp_agbv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1601 ddp_agbv_rec.acc_group_id := rosetta_g_miss_num_map(p5_a2);
1602 ddp_agbv_rec.khr_id := rosetta_g_miss_num_map(p5_a3);
1603 ddp_agbv_rec.date_balance := rosetta_g_miss_date_in_map(p5_a4);
1604 ddp_agbv_rec.amount := rosetta_g_miss_num_map(p5_a5);
1605 ddp_agbv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
1606 ddp_agbv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
1607 ddp_agbv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
1608 ddp_agbv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
1609 ddp_agbv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
1610
1611 -- here's the delegated call to the old PL/SQL routine
1612 okl_acc_group_pub.delete_acc_bal(p_api_version,
1613 p_init_msg_list,
1614 x_return_status,
1615 x_msg_count,
1616 x_msg_data,
1617 ddp_agbv_rec);
1618
1619 -- copy data back from the local variables to OUT or IN-OUT args, if any
1620
1621
1622
1623
1624
1625 end;
1626
1627 procedure validate_acc_bal(p_api_version NUMBER
1628 , p_init_msg_list VARCHAR2
1629 , x_return_status out nocopy VARCHAR2
1630 , x_msg_count out nocopy NUMBER
1631 , x_msg_data out nocopy VARCHAR2
1632 , p5_a0 JTF_NUMBER_TABLE
1633 , p5_a1 JTF_NUMBER_TABLE
1634 , p5_a2 JTF_NUMBER_TABLE
1635 , p5_a3 JTF_NUMBER_TABLE
1636 , p5_a4 JTF_DATE_TABLE
1637 , p5_a5 JTF_NUMBER_TABLE
1638 , p5_a6 JTF_NUMBER_TABLE
1639 , p5_a7 JTF_DATE_TABLE
1640 , p5_a8 JTF_NUMBER_TABLE
1641 , p5_a9 JTF_DATE_TABLE
1642 , p5_a10 JTF_NUMBER_TABLE
1643 )
1644
1645 as
1646 ddp_agbv_tbl okl_acc_group_pub.agbv_tbl_type;
1647 ddindx binary_integer; indx binary_integer;
1648 begin
1649
1650 -- copy data to the local IN or IN-OUT args, if any
1651
1652
1653
1654
1655
1656 okl_agb_pvt_w.rosetta_table_copy_in_p5(ddp_agbv_tbl, p5_a0
1657 , p5_a1
1658 , p5_a2
1659 , p5_a3
1660 , p5_a4
1661 , p5_a5
1662 , p5_a6
1663 , p5_a7
1664 , p5_a8
1665 , p5_a9
1666 , p5_a10
1667 );
1668
1669 -- here's the delegated call to the old PL/SQL routine
1670 okl_acc_group_pub.validate_acc_bal(p_api_version,
1671 p_init_msg_list,
1672 x_return_status,
1673 x_msg_count,
1674 x_msg_data,
1675 ddp_agbv_tbl);
1676
1677 -- copy data back from the local variables to OUT or IN-OUT args, if any
1678
1679
1680
1681
1682
1683 end;
1684
1685 procedure validate_acc_bal(p_api_version NUMBER
1686 , p_init_msg_list VARCHAR2
1687 , x_return_status out nocopy VARCHAR2
1688 , x_msg_count out nocopy NUMBER
1689 , x_msg_data out nocopy VARCHAR2
1690 , p5_a0 NUMBER := 0-1962.0724
1691 , p5_a1 NUMBER := 0-1962.0724
1692 , p5_a2 NUMBER := 0-1962.0724
1693 , p5_a3 NUMBER := 0-1962.0724
1694 , p5_a4 DATE := fnd_api.g_miss_date
1695 , p5_a5 NUMBER := 0-1962.0724
1696 , p5_a6 NUMBER := 0-1962.0724
1697 , p5_a7 DATE := fnd_api.g_miss_date
1698 , p5_a8 NUMBER := 0-1962.0724
1699 , p5_a9 DATE := fnd_api.g_miss_date
1700 , p5_a10 NUMBER := 0-1962.0724
1701 )
1702
1703 as
1704 ddp_agbv_rec okl_acc_group_pub.agbv_rec_type;
1705 ddindx binary_integer; indx binary_integer;
1706 begin
1707
1708 -- copy data to the local IN or IN-OUT args, if any
1709
1710
1711
1712
1713
1714 ddp_agbv_rec.id := rosetta_g_miss_num_map(p5_a0);
1715 ddp_agbv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1716 ddp_agbv_rec.acc_group_id := rosetta_g_miss_num_map(p5_a2);
1717 ddp_agbv_rec.khr_id := rosetta_g_miss_num_map(p5_a3);
1718 ddp_agbv_rec.date_balance := rosetta_g_miss_date_in_map(p5_a4);
1719 ddp_agbv_rec.amount := rosetta_g_miss_num_map(p5_a5);
1720 ddp_agbv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
1721 ddp_agbv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
1722 ddp_agbv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
1723 ddp_agbv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
1724 ddp_agbv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
1725
1726 -- here's the delegated call to the old PL/SQL routine
1727 okl_acc_group_pub.validate_acc_bal(p_api_version,
1728 p_init_msg_list,
1729 x_return_status,
1730 x_msg_count,
1731 x_msg_data,
1732 ddp_agbv_rec);
1733
1734 -- copy data back from the local variables to OUT or IN-OUT args, if any
1735
1736
1737
1738
1739
1740 end;
1741
1742 end okl_acc_group_pub_w;