[Home] [Help]
PACKAGE BODY: APPS.AHL_WF_MAPPING_PVT_W
Source
1 package body ahl_wf_mapping_pvt_w as
2 /* $Header: AHLWWFMB.pls 120.1 2006/05/02 07:23 sathapli noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p1(t out nocopy ahl_wf_mapping_pvt.wf_mapping_tbl, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_DATE_TABLE
19 , a3 JTF_NUMBER_TABLE
20 , a4 JTF_DATE_TABLE
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_VARCHAR2_TABLE_100
24 , a8 JTF_VARCHAR2_TABLE_100
25 , a9 JTF_VARCHAR2_TABLE_100
26 , a10 JTF_VARCHAR2_TABLE_100
27 , a11 JTF_VARCHAR2_TABLE_100
28 , a12 JTF_VARCHAR2_TABLE_100
29 , a13 JTF_VARCHAR2_TABLE_100
30 , a14 JTF_VARCHAR2_TABLE_100
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).wf_mapping_id := a0(indx);
40 t(ddindx).object_version_number := a1(indx);
41 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a2(indx));
42 t(ddindx).created_by := a3(indx);
43 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a4(indx));
44 t(ddindx).last_updated_by := a5(indx);
45 t(ddindx).last_update_login := a6(indx);
46 t(ddindx).active_flag := a7(indx);
47 t(ddindx).wf_process_name := a8(indx);
48 t(ddindx).wf_display_name := a9(indx);
49 t(ddindx).approval_object := a10(indx);
50 t(ddindx).item_type := a11(indx);
51 t(ddindx).application_usg_code := a12(indx);
52 t(ddindx).application_usg := a13(indx);
53 t(ddindx).operation_flag := a14(indx);
54 ddindx := ddindx+1;
55 if a0.last =indx
56 then exit;
57 end if;
58 indx := a0.next(indx);
59 end loop;
60 end if;
61 end if;
62 end rosetta_table_copy_in_p1;
63 procedure rosetta_table_copy_out_p1(t ahl_wf_mapping_pvt.wf_mapping_tbl, a0 out nocopy JTF_NUMBER_TABLE
64 , a1 out nocopy JTF_NUMBER_TABLE
65 , a2 out nocopy JTF_DATE_TABLE
66 , a3 out nocopy JTF_NUMBER_TABLE
67 , a4 out nocopy JTF_DATE_TABLE
68 , a5 out nocopy JTF_NUMBER_TABLE
69 , a6 out nocopy JTF_NUMBER_TABLE
70 , a7 out nocopy JTF_VARCHAR2_TABLE_100
71 , a8 out nocopy JTF_VARCHAR2_TABLE_100
72 , a9 out nocopy JTF_VARCHAR2_TABLE_100
73 , a10 out nocopy JTF_VARCHAR2_TABLE_100
74 , a11 out nocopy JTF_VARCHAR2_TABLE_100
75 , a12 out nocopy JTF_VARCHAR2_TABLE_100
76 , a13 out nocopy JTF_VARCHAR2_TABLE_100
77 , a14 out nocopy JTF_VARCHAR2_TABLE_100
78 ) as
79 ddindx binary_integer; indx binary_integer;
80 begin
81 if t is null or t.count = 0 then
82 a0 := JTF_NUMBER_TABLE();
83 a1 := JTF_NUMBER_TABLE();
84 a2 := JTF_DATE_TABLE();
85 a3 := JTF_NUMBER_TABLE();
86 a4 := JTF_DATE_TABLE();
87 a5 := JTF_NUMBER_TABLE();
88 a6 := JTF_NUMBER_TABLE();
89 a7 := JTF_VARCHAR2_TABLE_100();
90 a8 := JTF_VARCHAR2_TABLE_100();
91 a9 := JTF_VARCHAR2_TABLE_100();
92 a10 := JTF_VARCHAR2_TABLE_100();
93 a11 := JTF_VARCHAR2_TABLE_100();
94 a12 := JTF_VARCHAR2_TABLE_100();
95 a13 := JTF_VARCHAR2_TABLE_100();
96 a14 := JTF_VARCHAR2_TABLE_100();
97 else
98 a0 := JTF_NUMBER_TABLE();
99 a1 := JTF_NUMBER_TABLE();
100 a2 := JTF_DATE_TABLE();
101 a3 := JTF_NUMBER_TABLE();
102 a4 := JTF_DATE_TABLE();
103 a5 := JTF_NUMBER_TABLE();
104 a6 := JTF_NUMBER_TABLE();
105 a7 := JTF_VARCHAR2_TABLE_100();
106 a8 := JTF_VARCHAR2_TABLE_100();
107 a9 := JTF_VARCHAR2_TABLE_100();
108 a10 := JTF_VARCHAR2_TABLE_100();
109 a11 := JTF_VARCHAR2_TABLE_100();
110 a12 := JTF_VARCHAR2_TABLE_100();
111 a13 := JTF_VARCHAR2_TABLE_100();
112 a14 := JTF_VARCHAR2_TABLE_100();
113 if t.count > 0 then
114 a0.extend(t.count);
115 a1.extend(t.count);
116 a2.extend(t.count);
117 a3.extend(t.count);
118 a4.extend(t.count);
119 a5.extend(t.count);
120 a6.extend(t.count);
121 a7.extend(t.count);
122 a8.extend(t.count);
123 a9.extend(t.count);
124 a10.extend(t.count);
125 a11.extend(t.count);
126 a12.extend(t.count);
127 a13.extend(t.count);
128 a14.extend(t.count);
129 ddindx := t.first;
130 indx := 1;
131 while true loop
132 a0(indx) := t(ddindx).wf_mapping_id;
133 a1(indx) := t(ddindx).object_version_number;
134 a2(indx) := t(ddindx).creation_date;
135 a3(indx) := t(ddindx).created_by;
136 a4(indx) := t(ddindx).last_update_date;
137 a5(indx) := t(ddindx).last_updated_by;
138 a6(indx) := t(ddindx).last_update_login;
139 a7(indx) := t(ddindx).active_flag;
140 a8(indx) := t(ddindx).wf_process_name;
141 a9(indx) := t(ddindx).wf_display_name;
142 a10(indx) := t(ddindx).approval_object;
143 a11(indx) := t(ddindx).item_type;
144 a12(indx) := t(ddindx).application_usg_code;
145 a13(indx) := t(ddindx).application_usg;
146 a14(indx) := t(ddindx).operation_flag;
147 indx := indx+1;
148 if t.last =ddindx
149 then exit;
150 end if;
151 ddindx := t.next(ddindx);
152 end loop;
153 end if;
154 end if;
155 end rosetta_table_copy_out_p1;
156
157 procedure process_wf_mapping(p_api_version NUMBER
158 , p_init_msg_list VARCHAR2
159 , p_commit VARCHAR2
160 , p_validation_level NUMBER
161 , p4_a0 in out nocopy JTF_NUMBER_TABLE
162 , p4_a1 in out nocopy JTF_NUMBER_TABLE
163 , p4_a2 in out nocopy JTF_DATE_TABLE
164 , p4_a3 in out nocopy JTF_NUMBER_TABLE
165 , p4_a4 in out nocopy JTF_DATE_TABLE
166 , p4_a5 in out nocopy JTF_NUMBER_TABLE
167 , p4_a6 in out nocopy JTF_NUMBER_TABLE
168 , p4_a7 in out nocopy JTF_VARCHAR2_TABLE_100
169 , p4_a8 in out nocopy JTF_VARCHAR2_TABLE_100
170 , p4_a9 in out nocopy JTF_VARCHAR2_TABLE_100
171 , p4_a10 in out nocopy JTF_VARCHAR2_TABLE_100
172 , p4_a11 in out nocopy JTF_VARCHAR2_TABLE_100
173 , p4_a12 in out nocopy JTF_VARCHAR2_TABLE_100
174 , p4_a13 in out nocopy JTF_VARCHAR2_TABLE_100
175 , p4_a14 in out nocopy JTF_VARCHAR2_TABLE_100
176 , x_return_status out nocopy VARCHAR2
177 , x_msg_count out nocopy NUMBER
178 , x_msg_data out nocopy VARCHAR2
179 )
180
181 as
182 ddp_x_wf_mapping_tbl ahl_wf_mapping_pvt.wf_mapping_tbl;
183 ddindx binary_integer; indx binary_integer;
184 begin
185
186 -- copy data to the local IN or IN-OUT args, if any
187
188
189
190
191 ahl_wf_mapping_pvt_w.rosetta_table_copy_in_p1(ddp_x_wf_mapping_tbl, p4_a0
192 , p4_a1
193 , p4_a2
194 , p4_a3
195 , p4_a4
196 , p4_a5
197 , p4_a6
198 , p4_a7
199 , p4_a8
200 , p4_a9
201 , p4_a10
202 , p4_a11
203 , p4_a12
204 , p4_a13
205 , p4_a14
206 );
207
208
209
210
211 -- here's the delegated call to the old PL/SQL routine
212 ahl_wf_mapping_pvt.process_wf_mapping(p_api_version,
213 p_init_msg_list,
214 p_commit,
215 p_validation_level,
216 ddp_x_wf_mapping_tbl,
217 x_return_status,
218 x_msg_count,
219 x_msg_data);
220
221 -- copy data back from the local variables to OUT or IN-OUT args, if any
222
223
224
225
226 ahl_wf_mapping_pvt_w.rosetta_table_copy_out_p1(ddp_x_wf_mapping_tbl, p4_a0
227 , p4_a1
228 , p4_a2
229 , p4_a3
230 , p4_a4
231 , p4_a5
232 , p4_a6
233 , p4_a7
234 , p4_a8
235 , p4_a9
236 , p4_a10
237 , p4_a11
238 , p4_a12
239 , p4_a13
240 , p4_a14
241 );
242
243
244
245 end;
246
247 procedure create_wf_mapping(p_api_version NUMBER
248 , p_init_msg_list VARCHAR2
249 , p_commit VARCHAR2
250 , p_validation_level NUMBER
251 , p4_a0 NUMBER
252 , p4_a1 NUMBER
253 , p4_a2 DATE
254 , p4_a3 NUMBER
255 , p4_a4 DATE
256 , p4_a5 NUMBER
257 , p4_a6 NUMBER
258 , p4_a7 VARCHAR2
259 , p4_a8 VARCHAR2
260 , p4_a9 VARCHAR2
261 , p4_a10 VARCHAR2
262 , p4_a11 VARCHAR2
263 , p4_a12 VARCHAR2
264 , p4_a13 VARCHAR2
265 , p4_a14 VARCHAR2
266 , x_return_status out nocopy VARCHAR2
267 , x_msg_count out nocopy NUMBER
268 , x_msg_data out nocopy VARCHAR2
269 , x_wf_mapping_id out nocopy NUMBER
270 )
271
272 as
273 ddp_wf_mapping_rec ahl_wf_mapping_pvt.wf_mapping_rec_type;
274 ddindx binary_integer; indx binary_integer;
275 begin
276
277 -- copy data to the local IN or IN-OUT args, if any
278
279
280
281
282 ddp_wf_mapping_rec.wf_mapping_id := p4_a0;
283 ddp_wf_mapping_rec.object_version_number := p4_a1;
284 ddp_wf_mapping_rec.creation_date := rosetta_g_miss_date_in_map(p4_a2);
285 ddp_wf_mapping_rec.created_by := p4_a3;
286 ddp_wf_mapping_rec.last_update_date := rosetta_g_miss_date_in_map(p4_a4);
287 ddp_wf_mapping_rec.last_updated_by := p4_a5;
288 ddp_wf_mapping_rec.last_update_login := p4_a6;
289 ddp_wf_mapping_rec.active_flag := p4_a7;
290 ddp_wf_mapping_rec.wf_process_name := p4_a8;
291 ddp_wf_mapping_rec.wf_display_name := p4_a9;
292 ddp_wf_mapping_rec.approval_object := p4_a10;
293 ddp_wf_mapping_rec.item_type := p4_a11;
294 ddp_wf_mapping_rec.application_usg_code := p4_a12;
295 ddp_wf_mapping_rec.application_usg := p4_a13;
296 ddp_wf_mapping_rec.operation_flag := p4_a14;
297
298
299
300
301
302 -- here's the delegated call to the old PL/SQL routine
303 ahl_wf_mapping_pvt.create_wf_mapping(p_api_version,
304 p_init_msg_list,
305 p_commit,
306 p_validation_level,
307 ddp_wf_mapping_rec,
308 x_return_status,
309 x_msg_count,
310 x_msg_data,
311 x_wf_mapping_id);
312
313 -- copy data back from the local variables to OUT or IN-OUT args, if any
314
315
316
317
318
319
320
321
322 end;
323
324 procedure update_wf_mapping(p_api_version NUMBER
325 , p_init_msg_list VARCHAR2
326 , p_commit VARCHAR2
327 , p_validation_level NUMBER
328 , p4_a0 NUMBER
329 , p4_a1 NUMBER
330 , p4_a2 DATE
331 , p4_a3 NUMBER
332 , p4_a4 DATE
333 , p4_a5 NUMBER
334 , p4_a6 NUMBER
335 , p4_a7 VARCHAR2
336 , p4_a8 VARCHAR2
337 , p4_a9 VARCHAR2
338 , p4_a10 VARCHAR2
339 , p4_a11 VARCHAR2
340 , p4_a12 VARCHAR2
341 , p4_a13 VARCHAR2
342 , p4_a14 VARCHAR2
343 , x_return_status out nocopy VARCHAR2
344 , x_msg_count out nocopy NUMBER
345 , x_msg_data out nocopy VARCHAR2
346 )
347
348 as
349 ddp_wf_mapping_rec ahl_wf_mapping_pvt.wf_mapping_rec_type;
350 ddindx binary_integer; indx binary_integer;
351 begin
352
353 -- copy data to the local IN or IN-OUT args, if any
354
355
356
357
358 ddp_wf_mapping_rec.wf_mapping_id := p4_a0;
359 ddp_wf_mapping_rec.object_version_number := p4_a1;
360 ddp_wf_mapping_rec.creation_date := rosetta_g_miss_date_in_map(p4_a2);
361 ddp_wf_mapping_rec.created_by := p4_a3;
362 ddp_wf_mapping_rec.last_update_date := rosetta_g_miss_date_in_map(p4_a4);
363 ddp_wf_mapping_rec.last_updated_by := p4_a5;
364 ddp_wf_mapping_rec.last_update_login := p4_a6;
365 ddp_wf_mapping_rec.active_flag := p4_a7;
366 ddp_wf_mapping_rec.wf_process_name := p4_a8;
367 ddp_wf_mapping_rec.wf_display_name := p4_a9;
368 ddp_wf_mapping_rec.approval_object := p4_a10;
369 ddp_wf_mapping_rec.item_type := p4_a11;
370 ddp_wf_mapping_rec.application_usg_code := p4_a12;
371 ddp_wf_mapping_rec.application_usg := p4_a13;
372 ddp_wf_mapping_rec.operation_flag := p4_a14;
373
374
375
376
377 -- here's the delegated call to the old PL/SQL routine
378 ahl_wf_mapping_pvt.update_wf_mapping(p_api_version,
379 p_init_msg_list,
380 p_commit,
381 p_validation_level,
382 ddp_wf_mapping_rec,
383 x_return_status,
384 x_msg_count,
385 x_msg_data);
386
387 -- copy data back from the local variables to OUT or IN-OUT args, if any
388
389
390
391
392
393
394
395 end;
396
397 procedure validate_wf_mapping(p_api_version NUMBER
398 , p_init_msg_list VARCHAR2
399 , p_commit VARCHAR2
400 , p_validation_level NUMBER
401 , x_return_status out nocopy VARCHAR2
402 , x_msg_count out nocopy NUMBER
403 , x_msg_data out nocopy VARCHAR2
404 , p7_a0 NUMBER
405 , p7_a1 NUMBER
406 , p7_a2 DATE
407 , p7_a3 NUMBER
408 , p7_a4 DATE
409 , p7_a5 NUMBER
410 , p7_a6 NUMBER
411 , p7_a7 VARCHAR2
412 , p7_a8 VARCHAR2
413 , p7_a9 VARCHAR2
414 , p7_a10 VARCHAR2
415 , p7_a11 VARCHAR2
416 , p7_a12 VARCHAR2
417 , p7_a13 VARCHAR2
418 , p7_a14 VARCHAR2
419 )
420
421 as
422 ddp_wf_mapping_rec ahl_wf_mapping_pvt.wf_mapping_rec_type;
423 ddindx binary_integer; indx binary_integer;
424 begin
425
426 -- copy data to the local IN or IN-OUT args, if any
427
428
429
430
431
432
433
434 ddp_wf_mapping_rec.wf_mapping_id := p7_a0;
435 ddp_wf_mapping_rec.object_version_number := p7_a1;
436 ddp_wf_mapping_rec.creation_date := rosetta_g_miss_date_in_map(p7_a2);
437 ddp_wf_mapping_rec.created_by := p7_a3;
438 ddp_wf_mapping_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a4);
439 ddp_wf_mapping_rec.last_updated_by := p7_a5;
440 ddp_wf_mapping_rec.last_update_login := p7_a6;
441 ddp_wf_mapping_rec.active_flag := p7_a7;
442 ddp_wf_mapping_rec.wf_process_name := p7_a8;
446 ddp_wf_mapping_rec.application_usg_code := p7_a12;
443 ddp_wf_mapping_rec.wf_display_name := p7_a9;
444 ddp_wf_mapping_rec.approval_object := p7_a10;
445 ddp_wf_mapping_rec.item_type := p7_a11;
447 ddp_wf_mapping_rec.application_usg := p7_a13;
448 ddp_wf_mapping_rec.operation_flag := p7_a14;
449
450 -- here's the delegated call to the old PL/SQL routine
451 ahl_wf_mapping_pvt.validate_wf_mapping(p_api_version,
452 p_init_msg_list,
453 p_commit,
454 p_validation_level,
455 x_return_status,
456 x_msg_count,
457 x_msg_data,
458 ddp_wf_mapping_rec);
459
460 -- copy data back from the local variables to OUT or IN-OUT args, if any
461
462
463
464
465
466
467
468 end;
469
470 procedure check_wf_mapping_items(p0_a0 NUMBER
471 , p0_a1 NUMBER
472 , p0_a2 DATE
473 , p0_a3 NUMBER
474 , p0_a4 DATE
475 , p0_a5 NUMBER
476 , p0_a6 NUMBER
477 , p0_a7 VARCHAR2
478 , p0_a8 VARCHAR2
479 , p0_a9 VARCHAR2
480 , p0_a10 VARCHAR2
481 , p0_a11 VARCHAR2
482 , p0_a12 VARCHAR2
483 , p0_a13 VARCHAR2
484 , p0_a14 VARCHAR2
485 , p_validation_mode VARCHAR2
486 , x_return_status out nocopy VARCHAR2
487 )
488
489 as
490 ddp_wf_mapping_rec ahl_wf_mapping_pvt.wf_mapping_rec_type;
491 ddindx binary_integer; indx binary_integer;
492 begin
493
494 -- copy data to the local IN or IN-OUT args, if any
495 ddp_wf_mapping_rec.wf_mapping_id := p0_a0;
496 ddp_wf_mapping_rec.object_version_number := p0_a1;
497 ddp_wf_mapping_rec.creation_date := rosetta_g_miss_date_in_map(p0_a2);
498 ddp_wf_mapping_rec.created_by := p0_a3;
499 ddp_wf_mapping_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a4);
500 ddp_wf_mapping_rec.last_updated_by := p0_a5;
501 ddp_wf_mapping_rec.last_update_login := p0_a6;
502 ddp_wf_mapping_rec.active_flag := p0_a7;
503 ddp_wf_mapping_rec.wf_process_name := p0_a8;
504 ddp_wf_mapping_rec.wf_display_name := p0_a9;
505 ddp_wf_mapping_rec.approval_object := p0_a10;
506 ddp_wf_mapping_rec.item_type := p0_a11;
507 ddp_wf_mapping_rec.application_usg_code := p0_a12;
508 ddp_wf_mapping_rec.application_usg := p0_a13;
509 ddp_wf_mapping_rec.operation_flag := p0_a14;
510
511
512
513 -- here's the delegated call to the old PL/SQL routine
514 ahl_wf_mapping_pvt.check_wf_mapping_items(ddp_wf_mapping_rec,
515 p_validation_mode,
516 x_return_status);
517
518 -- copy data back from the local variables to OUT or IN-OUT args, if any
519
520
521 end;
522
523 procedure complete_wf_mapping_rec(p0_a0 NUMBER
524 , p0_a1 NUMBER
525 , p0_a2 DATE
526 , p0_a3 NUMBER
527 , p0_a4 DATE
528 , p0_a5 NUMBER
529 , p0_a6 NUMBER
530 , p0_a7 VARCHAR2
531 , p0_a8 VARCHAR2
532 , p0_a9 VARCHAR2
533 , p0_a10 VARCHAR2
534 , p0_a11 VARCHAR2
535 , p0_a12 VARCHAR2
536 , p0_a13 VARCHAR2
537 , p0_a14 VARCHAR2
538 , p1_a0 out nocopy NUMBER
539 , p1_a1 out nocopy NUMBER
540 , p1_a2 out nocopy DATE
541 , p1_a3 out nocopy NUMBER
542 , p1_a4 out nocopy DATE
543 , p1_a5 out nocopy NUMBER
544 , p1_a6 out nocopy NUMBER
545 , p1_a7 out nocopy VARCHAR2
546 , p1_a8 out nocopy VARCHAR2
547 , p1_a9 out nocopy VARCHAR2
548 , p1_a10 out nocopy VARCHAR2
549 , p1_a11 out nocopy VARCHAR2
550 , p1_a12 out nocopy VARCHAR2
551 , p1_a13 out nocopy VARCHAR2
552 , p1_a14 out nocopy VARCHAR2
553 )
554
555 as
556 ddp_wf_mapping_rec ahl_wf_mapping_pvt.wf_mapping_rec_type;
557 ddx_complete_rec ahl_wf_mapping_pvt.wf_mapping_rec_type;
558 ddindx binary_integer; indx binary_integer;
559 begin
560
561 -- copy data to the local IN or IN-OUT args, if any
562 ddp_wf_mapping_rec.wf_mapping_id := p0_a0;
563 ddp_wf_mapping_rec.object_version_number := p0_a1;
564 ddp_wf_mapping_rec.creation_date := rosetta_g_miss_date_in_map(p0_a2);
565 ddp_wf_mapping_rec.created_by := p0_a3;
566 ddp_wf_mapping_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a4);
567 ddp_wf_mapping_rec.last_updated_by := p0_a5;
568 ddp_wf_mapping_rec.last_update_login := p0_a6;
569 ddp_wf_mapping_rec.active_flag := p0_a7;
570 ddp_wf_mapping_rec.wf_process_name := p0_a8;
571 ddp_wf_mapping_rec.wf_display_name := p0_a9;
572 ddp_wf_mapping_rec.approval_object := p0_a10;
573 ddp_wf_mapping_rec.item_type := p0_a11;
574 ddp_wf_mapping_rec.application_usg_code := p0_a12;
575 ddp_wf_mapping_rec.application_usg := p0_a13;
576 ddp_wf_mapping_rec.operation_flag := p0_a14;
577
578
579 -- here's the delegated call to the old PL/SQL routine
580 ahl_wf_mapping_pvt.complete_wf_mapping_rec(ddp_wf_mapping_rec,
581 ddx_complete_rec);
582
583 -- copy data back from the local variables to OUT or IN-OUT args, if any
584
585 p1_a0 := ddx_complete_rec.wf_mapping_id;
586 p1_a1 := ddx_complete_rec.object_version_number;
587 p1_a2 := ddx_complete_rec.creation_date;
588 p1_a3 := ddx_complete_rec.created_by;
589 p1_a4 := ddx_complete_rec.last_update_date;
590 p1_a5 := ddx_complete_rec.last_updated_by;
591 p1_a6 := ddx_complete_rec.last_update_login;
592 p1_a7 := ddx_complete_rec.active_flag;
593 p1_a8 := ddx_complete_rec.wf_process_name;
594 p1_a9 := ddx_complete_rec.wf_display_name;
595 p1_a10 := ddx_complete_rec.approval_object;
596 p1_a11 := ddx_complete_rec.item_type;
597 p1_a12 := ddx_complete_rec.application_usg_code;
598 p1_a13 := ddx_complete_rec.application_usg;
599 p1_a14 := ddx_complete_rec.operation_flag;
600 end;
601
602 end ahl_wf_mapping_pvt_w;