[Home] [Help]
PACKAGE BODY: APPS.AMS_APPROVAL_DETAILS_PVT_W
Source
1 package body ams_approval_details_pvt_w as
2 /* $Header: amswapdb.pls 115.7 2002/12/29 08:28:52 vmodur ship $ */
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 function rosetta_g_miss_num_map(n number) return number as
7 b number := 0-1962.0724;
8 begin
9 if n=fnd_api.g_miss_num then return b; end if;
10 if n=b then return fnd_api.g_miss_num; end if;
11 return n;
12 end;
13
14 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
15 function rosetta_g_miss_date_in_map(d date) return date as
16 begin
17 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
18 return d;
19 end;
20
21 procedure rosetta_table_copy_in_p1(t OUT NOCOPY ams_approval_details_pvt.t_approval_id_table, a0 JTF_NUMBER_TABLE) as
22 ddindx binary_integer; indx binary_integer;
23 begin
24 if a0 is not null and a0.count > 0 then
25 if a0.count > 0 then
26 indx := a0.first;
27 ddindx := 1;
28 while true loop
29 t(ddindx) := a0(indx);
30 ddindx := ddindx+1;
31 if a0.last =indx
32 then exit;
33 end if;
34 indx := a0.next(indx);
35 end loop;
36 end if;
37 end if;
38 end rosetta_table_copy_in_p1;
39 procedure rosetta_table_copy_out_p1(t ams_approval_details_pvt.t_approval_id_table, a0 OUT NOCOPY JTF_NUMBER_TABLE) as
40 ddindx binary_integer; indx binary_integer;
41 begin
42 if t is null or t.count = 0 then
43 a0 := JTF_NUMBER_TABLE();
44 else
45 a0 := JTF_NUMBER_TABLE();
46 if t.count > 0 then
47 a0.extend(t.count);
48 ddindx := t.first;
49 indx := 1;
50 while true loop
51 a0(indx) := t(ddindx);
52 indx := indx+1;
53 if t.last =ddindx
54 then exit;
55 end if;
56 ddindx := t.next(ddindx);
57 end loop;
58 end if;
59 end if;
60 end rosetta_table_copy_out_p1;
61
62 procedure create_approval_details(p_api_version NUMBER
63 , p_init_msg_list VARCHAR2
64 , p_commit VARCHAR2
65 , p_validation_level NUMBER
66 , x_return_status OUT NOCOPY VARCHAR2
67 , x_msg_count OUT NOCOPY NUMBER
68 , x_msg_data OUT NOCOPY VARCHAR2
69 , p7_a0 DATE
70 , p7_a1 DATE
71 , p7_a2 NUMBER
72 , p7_a3 DATE
73 , p7_a4 NUMBER
74 , p7_a5 DATE
75 , p7_a6 NUMBER
76 , p7_a7 NUMBER
77 , p7_a8 NUMBER
78 , p7_a9 NUMBER
79 , p7_a10 NUMBER
80 , p7_a11 NUMBER
81 , p7_a12 NUMBER
82 , p7_a13 NUMBER
83 , p7_a14 VARCHAR2
84 , p7_a15 VARCHAR2
85 , p7_a16 VARCHAR2
86 , p7_a17 VARCHAR2
87 , p7_a18 NUMBER
88 , p7_a19 NUMBER
89 , p7_a20 VARCHAR2
90 , p7_a21 VARCHAR2
91 , p7_a22 VARCHAR2
92 , p7_a23 VARCHAR2
93 , p7_a24 VARCHAR2
94 , p7_a25 VARCHAR2
95 , x_approval_detail_id OUT NOCOPY NUMBER
96 )
97
98 as
99 ddp_approval_details_rec ams_approval_details_pvt.approval_details_rec_type;
100 ddindx binary_integer; indx binary_integer;
101 begin
102
103 -- copy data to the local IN or IN-OUT args, if any
104
105
106
107
108
109
110
111 ddp_approval_details_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a0);
112 ddp_approval_details_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a1);
113 ddp_approval_details_rec.approval_detail_id := p7_a2;
114 ddp_approval_details_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a3);
115 ddp_approval_details_rec.last_updated_by := p7_a4;
116 ddp_approval_details_rec.creation_date := rosetta_g_miss_date_in_map(p7_a5);
117 ddp_approval_details_rec.created_by := p7_a6;
118 ddp_approval_details_rec.last_update_login := p7_a7;
119 ddp_approval_details_rec.object_version_number := p7_a8;
120 ddp_approval_details_rec.security_group_id := p7_a9;
121 ddp_approval_details_rec.business_group_id := p7_a10;
122 ddp_approval_details_rec.business_unit_id := p7_a11;
123 ddp_approval_details_rec.organization_id := p7_a12;
124 ddp_approval_details_rec.custom_setup_id := p7_a13;
125 ddp_approval_details_rec.approval_object := p7_a14;
126 ddp_approval_details_rec.approval_object_type := p7_a15;
127 ddp_approval_details_rec.approval_type := p7_a16;
128 ddp_approval_details_rec.approval_priority := p7_a17;
129 ddp_approval_details_rec.approval_limit_to := p7_a18;
130 ddp_approval_details_rec.approval_limit_from := p7_a19;
131 ddp_approval_details_rec.seeded_flag := p7_a20;
132 ddp_approval_details_rec.active_flag := p7_a21;
133 ddp_approval_details_rec.currency_code := p7_a22;
134 ddp_approval_details_rec.user_country_code := p7_a23;
135 ddp_approval_details_rec.name := p7_a24;
136 ddp_approval_details_rec.description := p7_a25;
137
138
139 -- here's the delegated call to the old PL/SQL routine
140 ams_approval_details_pvt.create_approval_details(p_api_version,
141 p_init_msg_list,
142 p_commit,
143 p_validation_level,
144 x_return_status,
145 x_msg_count,
146 x_msg_data,
147 ddp_approval_details_rec,
148 x_approval_detail_id);
149
150 -- copy data back from the local variables to OUT or IN-OUT args, if any
151
152
153
154
155
156
157
158
159 end;
160
161 procedure update_approval_details(p_api_version NUMBER
162 , p_init_msg_list VARCHAR2
163 , p_commit VARCHAR2
164 , p_validation_level NUMBER
165 , x_return_status OUT NOCOPY VARCHAR2
166 , x_msg_count OUT NOCOPY NUMBER
167 , x_msg_data OUT NOCOPY VARCHAR2
168 , p7_a0 DATE
169 , p7_a1 DATE
170 , p7_a2 NUMBER
171 , p7_a3 DATE
172 , p7_a4 NUMBER
173 , p7_a5 DATE
174 , p7_a6 NUMBER
175 , p7_a7 NUMBER
176 , p7_a8 NUMBER
177 , p7_a9 NUMBER
178 , p7_a10 NUMBER
179 , p7_a11 NUMBER
180 , p7_a12 NUMBER
181 , p7_a13 NUMBER
182 , p7_a14 VARCHAR2
183 , p7_a15 VARCHAR2
184 , p7_a16 VARCHAR2
185 , p7_a17 VARCHAR2
186 , p7_a18 NUMBER
187 , p7_a19 NUMBER
188 , p7_a20 VARCHAR2
189 , p7_a21 VARCHAR2
190 , p7_a22 VARCHAR2
191 , p7_a23 VARCHAR2
192 , p7_a24 VARCHAR2
193 , p7_a25 VARCHAR2
194 )
195
196 as
197 ddp_approval_details_rec ams_approval_details_pvt.approval_details_rec_type;
198 ddindx binary_integer; indx binary_integer;
199 begin
200
201 -- copy data to the local IN or IN-OUT args, if any
202
203
204
205
206
207
208
209 ddp_approval_details_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a0);
210 ddp_approval_details_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a1);
211 ddp_approval_details_rec.approval_detail_id := p7_a2;
212 ddp_approval_details_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a3);
213 ddp_approval_details_rec.last_updated_by := p7_a4;
214 ddp_approval_details_rec.creation_date := rosetta_g_miss_date_in_map(p7_a5);
215 ddp_approval_details_rec.created_by := p7_a6;
216 ddp_approval_details_rec.last_update_login := p7_a7;
217 ddp_approval_details_rec.object_version_number := p7_a8;
218 ddp_approval_details_rec.security_group_id := p7_a9;
219 ddp_approval_details_rec.business_group_id := p7_a10;
220 ddp_approval_details_rec.business_unit_id := p7_a11;
221 ddp_approval_details_rec.organization_id := p7_a12;
222 ddp_approval_details_rec.custom_setup_id := p7_a13;
223 ddp_approval_details_rec.approval_object := p7_a14;
224 ddp_approval_details_rec.approval_object_type := p7_a15;
225 ddp_approval_details_rec.approval_type := p7_a16;
226 ddp_approval_details_rec.approval_priority := p7_a17;
227 ddp_approval_details_rec.approval_limit_to := p7_a18;
228 ddp_approval_details_rec.approval_limit_from := p7_a19;
229 ddp_approval_details_rec.seeded_flag := p7_a20;
230 ddp_approval_details_rec.active_flag := p7_a21;
231 ddp_approval_details_rec.currency_code := p7_a22;
232 ddp_approval_details_rec.user_country_code := p7_a23;
233 ddp_approval_details_rec.name := p7_a24;
234 ddp_approval_details_rec.description := p7_a25;
235
236 -- here's the delegated call to the old PL/SQL routine
237 ams_approval_details_pvt.update_approval_details(p_api_version,
238 p_init_msg_list,
239 p_commit,
240 p_validation_level,
241 x_return_status,
242 x_msg_count,
243 x_msg_data,
244 ddp_approval_details_rec);
245
246 -- copy data back from the local variables to OUT or IN-OUT args, if any
247
248
249
250
251
252
253
254 end;
255
256 procedure validate_approval_details(p_api_version NUMBER
257 , p_init_msg_list VARCHAR2
258 , p_commit VARCHAR2
259 , p_validation_level NUMBER
260 , x_return_status OUT NOCOPY VARCHAR2
261 , x_msg_count OUT NOCOPY NUMBER
262 , x_msg_data OUT NOCOPY VARCHAR2
263 , p7_a0 DATE
264 , p7_a1 DATE
265 , p7_a2 NUMBER
266 , p7_a3 DATE
267 , p7_a4 NUMBER
268 , p7_a5 DATE
269 , p7_a6 NUMBER
270 , p7_a7 NUMBER
271 , p7_a8 NUMBER
272 , p7_a9 NUMBER
273 , p7_a10 NUMBER
274 , p7_a11 NUMBER
275 , p7_a12 NUMBER
276 , p7_a13 NUMBER
277 , p7_a14 VARCHAR2
278 , p7_a15 VARCHAR2
279 , p7_a16 VARCHAR2
280 , p7_a17 VARCHAR2
281 , p7_a18 NUMBER
282 , p7_a19 NUMBER
283 , p7_a20 VARCHAR2
284 , p7_a21 VARCHAR2
285 , p7_a22 VARCHAR2
286 , p7_a23 VARCHAR2
287 , p7_a24 VARCHAR2
288 , p7_a25 VARCHAR2
289 )
290
291 as
292 ddp_approval_details_rec ams_approval_details_pvt.approval_details_rec_type;
293 ddindx binary_integer; indx binary_integer;
294 begin
295
296 -- copy data to the local IN or IN-OUT args, if any
297
298
299
300
301
302
303
304 ddp_approval_details_rec.start_date_active := rosetta_g_miss_date_in_map(p7_a0);
305 ddp_approval_details_rec.end_date_active := rosetta_g_miss_date_in_map(p7_a1);
306 ddp_approval_details_rec.approval_detail_id := p7_a2;
307 ddp_approval_details_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a3);
308 ddp_approval_details_rec.last_updated_by := p7_a4;
309 ddp_approval_details_rec.creation_date := rosetta_g_miss_date_in_map(p7_a5);
310 ddp_approval_details_rec.created_by := p7_a6;
311 ddp_approval_details_rec.last_update_login := p7_a7;
312 ddp_approval_details_rec.object_version_number := p7_a8;
313 ddp_approval_details_rec.security_group_id := p7_a9;
314 ddp_approval_details_rec.business_group_id := p7_a10;
315 ddp_approval_details_rec.business_unit_id := p7_a11;
316 ddp_approval_details_rec.organization_id := p7_a12;
317 ddp_approval_details_rec.custom_setup_id := p7_a13;
318 ddp_approval_details_rec.approval_object := p7_a14;
319 ddp_approval_details_rec.approval_object_type := p7_a15;
320 ddp_approval_details_rec.approval_type := p7_a16;
321 ddp_approval_details_rec.approval_priority := p7_a17;
322 ddp_approval_details_rec.approval_limit_to := p7_a18;
323 ddp_approval_details_rec.approval_limit_from := p7_a19;
324 ddp_approval_details_rec.seeded_flag := p7_a20;
325 ddp_approval_details_rec.active_flag := p7_a21;
326 ddp_approval_details_rec.currency_code := p7_a22;
327 ddp_approval_details_rec.user_country_code := p7_a23;
328 ddp_approval_details_rec.name := p7_a24;
329 ddp_approval_details_rec.description := p7_a25;
330
331 -- here's the delegated call to the old PL/SQL routine
335 p_validation_level,
332 ams_approval_details_pvt.validate_approval_details(p_api_version,
333 p_init_msg_list,
334 p_commit,
336 x_return_status,
337 x_msg_count,
338 x_msg_data,
339 ddp_approval_details_rec);
340
341 -- copy data back from the local variables to OUT or IN-OUT args, if any
342
343
344
345
346
347
348
349 end;
350
351 procedure check_approval_details_items(p0_a0 DATE
352 , p0_a1 DATE
353 , p0_a2 NUMBER
354 , p0_a3 DATE
355 , p0_a4 NUMBER
356 , p0_a5 DATE
357 , p0_a6 NUMBER
358 , p0_a7 NUMBER
359 , p0_a8 NUMBER
360 , p0_a9 NUMBER
361 , p0_a10 NUMBER
362 , p0_a11 NUMBER
363 , p0_a12 NUMBER
364 , p0_a13 NUMBER
365 , p0_a14 VARCHAR2
366 , p0_a15 VARCHAR2
367 , p0_a16 VARCHAR2
368 , p0_a17 VARCHAR2
369 , p0_a18 NUMBER
370 , p0_a19 NUMBER
371 , p0_a20 VARCHAR2
372 , p0_a21 VARCHAR2
373 , p0_a22 VARCHAR2
374 , p0_a23 VARCHAR2
375 , p0_a24 VARCHAR2
376 , p0_a25 VARCHAR2
377 , p_validation_mode VARCHAR2
378 , x_return_status OUT NOCOPY VARCHAR2
379 )
380
381 as
382 ddp_approval_details_rec ams_approval_details_pvt.approval_details_rec_type;
383 ddindx binary_integer; indx binary_integer;
384 begin
385
386 -- copy data to the local IN or IN-OUT args, if any
387 ddp_approval_details_rec.start_date_active := rosetta_g_miss_date_in_map(p0_a0);
388 ddp_approval_details_rec.end_date_active := rosetta_g_miss_date_in_map(p0_a1);
389 ddp_approval_details_rec.approval_detail_id := p0_a2;
390 ddp_approval_details_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a3);
391 ddp_approval_details_rec.last_updated_by := p0_a4;
392 ddp_approval_details_rec.creation_date := rosetta_g_miss_date_in_map(p0_a5);
393 ddp_approval_details_rec.created_by := p0_a6;
394 ddp_approval_details_rec.last_update_login := p0_a7;
395 ddp_approval_details_rec.object_version_number := p0_a8;
396 ddp_approval_details_rec.security_group_id := p0_a9;
397 ddp_approval_details_rec.business_group_id := p0_a10;
398 ddp_approval_details_rec.business_unit_id := p0_a11;
399 ddp_approval_details_rec.organization_id := p0_a12;
400 ddp_approval_details_rec.custom_setup_id := p0_a13;
401 ddp_approval_details_rec.approval_object := p0_a14;
402 ddp_approval_details_rec.approval_object_type := p0_a15;
403 ddp_approval_details_rec.approval_type := p0_a16;
404 ddp_approval_details_rec.approval_priority := p0_a17;
405 ddp_approval_details_rec.approval_limit_to := p0_a18;
406 ddp_approval_details_rec.approval_limit_from := p0_a19;
407 ddp_approval_details_rec.seeded_flag := p0_a20;
408 ddp_approval_details_rec.active_flag := p0_a21;
409 ddp_approval_details_rec.currency_code := p0_a22;
410 ddp_approval_details_rec.user_country_code := p0_a23;
411 ddp_approval_details_rec.name := p0_a24;
412 ddp_approval_details_rec.description := p0_a25;
413
414
415
416 -- here's the delegated call to the old PL/SQL routine
417 ams_approval_details_pvt.check_approval_details_items(ddp_approval_details_rec,
418 p_validation_mode,
419 x_return_status);
420
421 -- copy data back from the local variables to OUT or IN-OUT args, if any
422
423
424 end;
425
426 procedure check_approval_details_record(p0_a0 DATE
427 , p0_a1 DATE
428 , p0_a2 NUMBER
429 , p0_a3 DATE
430 , p0_a4 NUMBER
431 , p0_a5 DATE
432 , p0_a6 NUMBER
433 , p0_a7 NUMBER
434 , p0_a8 NUMBER
435 , p0_a9 NUMBER
436 , p0_a10 NUMBER
437 , p0_a11 NUMBER
438 , p0_a12 NUMBER
439 , p0_a13 NUMBER
440 , p0_a14 VARCHAR2
441 , p0_a15 VARCHAR2
442 , p0_a16 VARCHAR2
443 , p0_a17 VARCHAR2
444 , p0_a18 NUMBER
445 , p0_a19 NUMBER
446 , p0_a20 VARCHAR2
447 , p0_a21 VARCHAR2
448 , p0_a22 VARCHAR2
449 , p0_a23 VARCHAR2
450 , p0_a24 VARCHAR2
451 , p0_a25 VARCHAR2
452 , p1_a0 DATE
453 , p1_a1 DATE
454 , p1_a2 NUMBER
455 , p1_a3 DATE
456 , p1_a4 NUMBER
457 , p1_a5 DATE
458 , p1_a6 NUMBER
459 , p1_a7 NUMBER
460 , p1_a8 NUMBER
461 , p1_a9 NUMBER
462 , p1_a10 NUMBER
463 , p1_a11 NUMBER
464 , p1_a12 NUMBER
465 , p1_a13 NUMBER
466 , p1_a14 VARCHAR2
467 , p1_a15 VARCHAR2
468 , p1_a16 VARCHAR2
469 , p1_a17 VARCHAR2
470 , p1_a18 NUMBER
471 , p1_a19 NUMBER
472 , p1_a20 VARCHAR2
473 , p1_a21 VARCHAR2
474 , p1_a22 VARCHAR2
475 , p1_a23 VARCHAR2
476 , p1_a24 VARCHAR2
477 , p1_a25 VARCHAR2
478 , x_return_status OUT NOCOPY VARCHAR2
479 )
480
481 as
482 ddp_approval_details_rec ams_approval_details_pvt.approval_details_rec_type;
483 ddp_complete_rec ams_approval_details_pvt.approval_details_rec_type;
484 ddindx binary_integer; indx binary_integer;
485 begin
486
490 ddp_approval_details_rec.approval_detail_id := p0_a2;
487 -- copy data to the local IN or IN-OUT args, if any
488 ddp_approval_details_rec.start_date_active := rosetta_g_miss_date_in_map(p0_a0);
489 ddp_approval_details_rec.end_date_active := rosetta_g_miss_date_in_map(p0_a1);
491 ddp_approval_details_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a3);
492 ddp_approval_details_rec.last_updated_by := p0_a4;
493 ddp_approval_details_rec.creation_date := rosetta_g_miss_date_in_map(p0_a5);
494 ddp_approval_details_rec.created_by := p0_a6;
495 ddp_approval_details_rec.last_update_login := p0_a7;
496 ddp_approval_details_rec.object_version_number := p0_a8;
497 ddp_approval_details_rec.security_group_id := p0_a9;
498 ddp_approval_details_rec.business_group_id := p0_a10;
499 ddp_approval_details_rec.business_unit_id := p0_a11;
500 ddp_approval_details_rec.organization_id := p0_a12;
501 ddp_approval_details_rec.custom_setup_id := p0_a13;
502 ddp_approval_details_rec.approval_object := p0_a14;
503 ddp_approval_details_rec.approval_object_type := p0_a15;
504 ddp_approval_details_rec.approval_type := p0_a16;
505 ddp_approval_details_rec.approval_priority := p0_a17;
506 ddp_approval_details_rec.approval_limit_to := p0_a18;
507 ddp_approval_details_rec.approval_limit_from := p0_a19;
508 ddp_approval_details_rec.seeded_flag := p0_a20;
509 ddp_approval_details_rec.active_flag := p0_a21;
510 ddp_approval_details_rec.currency_code := p0_a22;
511 ddp_approval_details_rec.user_country_code := p0_a23;
512 ddp_approval_details_rec.name := p0_a24;
513 ddp_approval_details_rec.description := p0_a25;
514
515 ddp_complete_rec.start_date_active := rosetta_g_miss_date_in_map(p1_a0);
516 ddp_complete_rec.end_date_active := rosetta_g_miss_date_in_map(p1_a1);
517 ddp_complete_rec.approval_detail_id := p1_a2;
518 ddp_complete_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a3);
519 ddp_complete_rec.last_updated_by := p1_a4;
520 ddp_complete_rec.creation_date := rosetta_g_miss_date_in_map(p1_a5);
521 ddp_complete_rec.created_by := p1_a6;
522 ddp_complete_rec.last_update_login := p1_a7;
523 ddp_complete_rec.object_version_number := p1_a8;
524 ddp_complete_rec.security_group_id := p1_a9;
525 ddp_complete_rec.business_group_id := p1_a10;
526 ddp_complete_rec.business_unit_id := p1_a11;
527 ddp_complete_rec.organization_id := p1_a12;
528 ddp_complete_rec.custom_setup_id := p1_a13;
529 ddp_complete_rec.approval_object := p1_a14;
530 ddp_complete_rec.approval_object_type := p1_a15;
531 ddp_complete_rec.approval_type := p1_a16;
532 ddp_complete_rec.approval_priority := p1_a17;
533 ddp_complete_rec.approval_limit_to := p1_a18;
534 ddp_complete_rec.approval_limit_from := p1_a19;
535 ddp_complete_rec.seeded_flag := p1_a20;
536 ddp_complete_rec.active_flag := p1_a21;
537 ddp_complete_rec.currency_code := p1_a22;
538 ddp_complete_rec.user_country_code := p1_a23;
539 ddp_complete_rec.name := p1_a24;
540 ddp_complete_rec.description := p1_a25;
541
542
543 -- here's the delegated call to the old PL/SQL routine
544 ams_approval_details_pvt.check_approval_details_record(ddp_approval_details_rec,
545 ddp_complete_rec,
546 x_return_status);
547
548 -- copy data back from the local variables to OUT or IN-OUT args, if any
549
550
551 end;
552
553 procedure init_approval_details_rec(p0_a0 OUT NOCOPY DATE
554 , p0_a1 OUT NOCOPY DATE
555 , p0_a2 OUT NOCOPY NUMBER
556 , p0_a3 OUT NOCOPY DATE
557 , p0_a4 OUT NOCOPY NUMBER
558 , p0_a5 OUT NOCOPY DATE
559 , p0_a6 OUT NOCOPY NUMBER
560 , p0_a7 OUT NOCOPY NUMBER
561 , p0_a8 OUT NOCOPY NUMBER
562 , p0_a9 OUT NOCOPY NUMBER
563 , p0_a10 OUT NOCOPY NUMBER
564 , p0_a11 OUT NOCOPY NUMBER
565 , p0_a12 OUT NOCOPY NUMBER
566 , p0_a13 OUT NOCOPY NUMBER
567 , p0_a14 OUT NOCOPY VARCHAR2
568 , p0_a15 OUT NOCOPY VARCHAR2
569 , p0_a16 OUT NOCOPY VARCHAR2
570 , p0_a17 OUT NOCOPY VARCHAR2
571 , p0_a18 OUT NOCOPY NUMBER
572 , p0_a19 OUT NOCOPY NUMBER
573 , p0_a20 OUT NOCOPY VARCHAR2
574 , p0_a21 OUT NOCOPY VARCHAR2
575 , p0_a22 OUT NOCOPY VARCHAR2
576 , p0_a23 OUT NOCOPY VARCHAR2
577 , p0_a24 OUT NOCOPY VARCHAR2
578 , p0_a25 OUT NOCOPY VARCHAR2
579 )
580
581 as
582 ddx_approval_details_rec ams_approval_details_pvt.approval_details_rec_type;
583 ddindx binary_integer; indx binary_integer;
584 begin
585
586 -- copy data to the local IN or IN-OUT args, if any
587
588 -- here's the delegated call to the old PL/SQL routine
589 ams_approval_details_pvt.init_approval_details_rec(ddx_approval_details_rec);
590
591 -- copy data back from the local variables to OUT or IN-OUT args, if any
592 p0_a0 := ddx_approval_details_rec.start_date_active;
593 p0_a1 := ddx_approval_details_rec.end_date_active;
594 p0_a2 := ddx_approval_details_rec.approval_detail_id;
595 p0_a3 := ddx_approval_details_rec.last_update_date;
596 p0_a4 := ddx_approval_details_rec.last_updated_by;
597 p0_a5 := ddx_approval_details_rec.creation_date;
598 p0_a6 := ddx_approval_details_rec.created_by;
599 p0_a7 := ddx_approval_details_rec.last_update_login;
600 p0_a8 := ddx_approval_details_rec.object_version_number;
604 p0_a12 := ddx_approval_details_rec.organization_id;
601 p0_a9 := ddx_approval_details_rec.security_group_id;
602 p0_a10 := ddx_approval_details_rec.business_group_id;
603 p0_a11 := ddx_approval_details_rec.business_unit_id;
605 p0_a13 := ddx_approval_details_rec.custom_setup_id;
606 p0_a14 := ddx_approval_details_rec.approval_object;
607 p0_a15 := ddx_approval_details_rec.approval_object_type;
608 p0_a16 := ddx_approval_details_rec.approval_type;
609 p0_a17 := ddx_approval_details_rec.approval_priority;
610 p0_a18 := ddx_approval_details_rec.approval_limit_to;
611 p0_a19 := ddx_approval_details_rec.approval_limit_from;
612 p0_a20 := ddx_approval_details_rec.seeded_flag;
613 p0_a21 := ddx_approval_details_rec.active_flag;
614 p0_a22 := ddx_approval_details_rec.currency_code;
615 p0_a23 := ddx_approval_details_rec.user_country_code;
616 p0_a24 := ddx_approval_details_rec.name;
617 p0_a25 := ddx_approval_details_rec.description;
618 end;
619
620 procedure complete_approval_details_rec(p0_a0 DATE
621 , p0_a1 DATE
622 , p0_a2 NUMBER
623 , p0_a3 DATE
624 , p0_a4 NUMBER
625 , p0_a5 DATE
626 , p0_a6 NUMBER
627 , p0_a7 NUMBER
628 , p0_a8 NUMBER
629 , p0_a9 NUMBER
630 , p0_a10 NUMBER
631 , p0_a11 NUMBER
632 , p0_a12 NUMBER
633 , p0_a13 NUMBER
634 , p0_a14 VARCHAR2
635 , p0_a15 VARCHAR2
636 , p0_a16 VARCHAR2
637 , p0_a17 VARCHAR2
638 , p0_a18 NUMBER
639 , p0_a19 NUMBER
640 , p0_a20 VARCHAR2
641 , p0_a21 VARCHAR2
642 , p0_a22 VARCHAR2
643 , p0_a23 VARCHAR2
644 , p0_a24 VARCHAR2
645 , p0_a25 VARCHAR2
646 , p1_a0 OUT NOCOPY DATE
647 , p1_a1 OUT NOCOPY DATE
648 , p1_a2 OUT NOCOPY NUMBER
649 , p1_a3 OUT NOCOPY DATE
650 , p1_a4 OUT NOCOPY NUMBER
651 , p1_a5 OUT NOCOPY DATE
652 , p1_a6 OUT NOCOPY NUMBER
653 , p1_a7 OUT NOCOPY NUMBER
654 , p1_a8 OUT NOCOPY NUMBER
655 , p1_a9 OUT NOCOPY NUMBER
656 , p1_a10 OUT NOCOPY NUMBER
657 , p1_a11 OUT NOCOPY NUMBER
658 , p1_a12 OUT NOCOPY NUMBER
659 , p1_a13 OUT NOCOPY NUMBER
660 , p1_a14 OUT NOCOPY VARCHAR2
661 , p1_a15 OUT NOCOPY VARCHAR2
662 , p1_a16 OUT NOCOPY VARCHAR2
663 , p1_a17 OUT NOCOPY VARCHAR2
664 , p1_a18 OUT NOCOPY NUMBER
665 , p1_a19 OUT NOCOPY NUMBER
666 , p1_a20 OUT NOCOPY VARCHAR2
667 , p1_a21 OUT NOCOPY VARCHAR2
668 , p1_a22 OUT NOCOPY VARCHAR2
669 , p1_a23 OUT NOCOPY VARCHAR2
670 , p1_a24 OUT NOCOPY VARCHAR2
671 , p1_a25 OUT NOCOPY VARCHAR2
672 )
673
674 as
675 ddp_approval_details_rec ams_approval_details_pvt.approval_details_rec_type;
676 ddx_complete_rec ams_approval_details_pvt.approval_details_rec_type;
677 ddindx binary_integer; indx binary_integer;
678 begin
679
680 -- copy data to the local IN or IN-OUT args, if any
681 ddp_approval_details_rec.start_date_active := rosetta_g_miss_date_in_map(p0_a0);
682 ddp_approval_details_rec.end_date_active := rosetta_g_miss_date_in_map(p0_a1);
683 ddp_approval_details_rec.approval_detail_id := p0_a2;
684 ddp_approval_details_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a3);
685 ddp_approval_details_rec.last_updated_by := p0_a4;
686 ddp_approval_details_rec.creation_date := rosetta_g_miss_date_in_map(p0_a5);
687 ddp_approval_details_rec.created_by := p0_a6;
688 ddp_approval_details_rec.last_update_login := p0_a7;
689 ddp_approval_details_rec.object_version_number := p0_a8;
690 ddp_approval_details_rec.security_group_id := p0_a9;
691 ddp_approval_details_rec.business_group_id := p0_a10;
692 ddp_approval_details_rec.business_unit_id := p0_a11;
693 ddp_approval_details_rec.organization_id := p0_a12;
694 ddp_approval_details_rec.custom_setup_id := p0_a13;
695 ddp_approval_details_rec.approval_object := p0_a14;
696 ddp_approval_details_rec.approval_object_type := p0_a15;
697 ddp_approval_details_rec.approval_type := p0_a16;
698 ddp_approval_details_rec.approval_priority := p0_a17;
699 ddp_approval_details_rec.approval_limit_to := p0_a18;
700 ddp_approval_details_rec.approval_limit_from := p0_a19;
701 ddp_approval_details_rec.seeded_flag := p0_a20;
702 ddp_approval_details_rec.active_flag := p0_a21;
703 ddp_approval_details_rec.currency_code := p0_a22;
704 ddp_approval_details_rec.user_country_code := p0_a23;
705 ddp_approval_details_rec.name := p0_a24;
706 ddp_approval_details_rec.description := p0_a25;
707
708
709 -- here's the delegated call to the old PL/SQL routine
710 ams_approval_details_pvt.complete_approval_details_rec(ddp_approval_details_rec,
711 ddx_complete_rec);
712
713 -- copy data back from the local variables to OUT or IN-OUT args, if any
714
715 p1_a0 := ddx_complete_rec.start_date_active;
716 p1_a1 := ddx_complete_rec.end_date_active;
717 p1_a2 := ddx_complete_rec.approval_detail_id;
718 p1_a3 := ddx_complete_rec.last_update_date;
719 p1_a4 := ddx_complete_rec.last_updated_by;
720 p1_a5 := ddx_complete_rec.creation_date;
721 p1_a6 := ddx_complete_rec.created_by;
722 p1_a7 := ddx_complete_rec.last_update_login;
723 p1_a8 := ddx_complete_rec.object_version_number;
724 p1_a9 := ddx_complete_rec.security_group_id;
725 p1_a10 := ddx_complete_rec.business_group_id;
726 p1_a11 := ddx_complete_rec.business_unit_id;
727 p1_a12 := ddx_complete_rec.organization_id;
728 p1_a13 := ddx_complete_rec.custom_setup_id;
729 p1_a14 := ddx_complete_rec.approval_object;
730 p1_a15 := ddx_complete_rec.approval_object_type;
731 p1_a16 := ddx_complete_rec.approval_type;
732 p1_a17 := ddx_complete_rec.approval_priority;
733 p1_a18 := ddx_complete_rec.approval_limit_to;
734 p1_a19 := ddx_complete_rec.approval_limit_from;
735 p1_a20 := ddx_complete_rec.seeded_flag;
736 p1_a21 := ddx_complete_rec.active_flag;
737 p1_a22 := ddx_complete_rec.currency_code;
738 p1_a23 := ddx_complete_rec.user_country_code;
739 p1_a24 := ddx_complete_rec.name;
740 p1_a25 := ddx_complete_rec.description;
741 end;
742
743 end ams_approval_details_pvt_w;