[Home] [Help]
PACKAGE BODY: APPS.AMS_OA_CUST_SETUP_PVT_W
Source
1 package body ams_oa_cust_setup_pvt_w as
2 /* $Header: amsacusb.pls 115.0 2003/09/15 16:20:59 vanbukum noship $ */
3 procedure create_cust_setup(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , p_commit VARCHAR2
6 , p_validation_level NUMBER
7 , x_return_status out nocopy VARCHAR2
8 , x_msg_count out nocopy NUMBER
9 , x_msg_data out nocopy VARCHAR2
10 , p7_a0 NUMBER
11 , p7_a1 DATE
12 , p7_a2 NUMBER
13 , p7_a3 DATE
14 , p7_a4 NUMBER
15 , p7_a5 NUMBER
16 , p7_a6 NUMBER
17 , p7_a7 VARCHAR2
18 , p7_a8 NUMBER
19 , p7_a9 VARCHAR2
20 , p7_a10 VARCHAR2
21 , p7_a11 VARCHAR2
22 , p7_a12 VARCHAR2
23 , p7_a13 VARCHAR2
24 , p7_a14 VARCHAR2
25 , p7_a15 VARCHAR2
26 , p7_a16 NUMBER
27 , x_cust_setup_id out nocopy NUMBER
28 )
29
30 as
31 ddp_cust_setup_rec ams_cust_setup_pvt.cust_setup_rec_type;
32 ddindx binary_integer; indx binary_integer;
33 begin
34
35 -- copy data to the local IN or IN-OUT args, if any
36
37
38
39
40
41
42
43 ddp_cust_setup_rec.custom_setup_id := p7_a0;
44 ddp_cust_setup_rec.last_update_date := p7_a1;
45 ddp_cust_setup_rec.last_updated_by := p7_a2;
46 ddp_cust_setup_rec.creation_date := p7_a3;
47 ddp_cust_setup_rec.created_by := p7_a4;
48 ddp_cust_setup_rec.last_update_login := p7_a5;
49 ddp_cust_setup_rec.object_version_number := p7_a6;
50 ddp_cust_setup_rec.activity_type_code := p7_a7;
51 ddp_cust_setup_rec.media_id := p7_a8;
52 ddp_cust_setup_rec.enabled_flag := p7_a9;
53 ddp_cust_setup_rec.allow_essential_grouping := p7_a10;
54 ddp_cust_setup_rec.usage := p7_a11;
55 ddp_cust_setup_rec.object_type := p7_a12;
56 ddp_cust_setup_rec.source_code_suffix := p7_a13;
57 ddp_cust_setup_rec.setup_name := p7_a14;
58 ddp_cust_setup_rec.description := p7_a15;
59 ddp_cust_setup_rec.application_id := p7_a16;
60
61
62 -- here's the delegated call to the old PL/SQL routine
63 ams_cust_setup_pvt.create_cust_setup(p_api_version,
64 p_init_msg_list,
65 p_commit,
66 p_validation_level,
67 x_return_status,
68 x_msg_count,
69 x_msg_data,
70 ddp_cust_setup_rec,
71 x_cust_setup_id);
72
73 -- copy data back from the local variables to OUT or IN-OUT args, if any
74
75
76
77
78
79
80
81
82 end;
83
84 procedure update_cust_setup(p_api_version NUMBER
85 , p_init_msg_list VARCHAR2
86 , p_commit VARCHAR2
87 , p_validation_level NUMBER
88 , x_return_status out nocopy VARCHAR2
89 , x_msg_count out nocopy NUMBER
90 , x_msg_data out nocopy VARCHAR2
91 , p7_a0 NUMBER
92 , p7_a1 DATE
93 , p7_a2 NUMBER
94 , p7_a3 DATE
95 , p7_a4 NUMBER
96 , p7_a5 NUMBER
97 , p7_a6 NUMBER
98 , p7_a7 VARCHAR2
99 , p7_a8 NUMBER
100 , p7_a9 VARCHAR2
101 , p7_a10 VARCHAR2
102 , p7_a11 VARCHAR2
103 , p7_a12 VARCHAR2
104 , p7_a13 VARCHAR2
105 , p7_a14 VARCHAR2
106 , p7_a15 VARCHAR2
107 , p7_a16 NUMBER
108 )
109
110 as
111 ddp_cust_setup_rec ams_cust_setup_pvt.cust_setup_rec_type;
112 ddindx binary_integer; indx binary_integer;
113 begin
114
115 -- copy data to the local IN or IN-OUT args, if any
116
117
118
119
120
121
122
123 ddp_cust_setup_rec.custom_setup_id := p7_a0;
124 ddp_cust_setup_rec.last_update_date := p7_a1;
125 ddp_cust_setup_rec.last_updated_by := p7_a2;
126 ddp_cust_setup_rec.creation_date := p7_a3;
127 ddp_cust_setup_rec.created_by := p7_a4;
128 ddp_cust_setup_rec.last_update_login := p7_a5;
129 ddp_cust_setup_rec.object_version_number := p7_a6;
130 ddp_cust_setup_rec.activity_type_code := p7_a7;
131 ddp_cust_setup_rec.media_id := p7_a8;
132 ddp_cust_setup_rec.enabled_flag := p7_a9;
133 ddp_cust_setup_rec.allow_essential_grouping := p7_a10;
134 ddp_cust_setup_rec.usage := p7_a11;
135 ddp_cust_setup_rec.object_type := p7_a12;
136 ddp_cust_setup_rec.source_code_suffix := p7_a13;
137 ddp_cust_setup_rec.setup_name := p7_a14;
138 ddp_cust_setup_rec.description := p7_a15;
139 ddp_cust_setup_rec.application_id := p7_a16;
140
141 -- here's the delegated call to the old PL/SQL routine
142 ams_cust_setup_pvt.update_cust_setup(p_api_version,
143 p_init_msg_list,
144 p_commit,
145 p_validation_level,
146 x_return_status,
147 x_msg_count,
148 x_msg_data,
149 ddp_cust_setup_rec);
150
151 -- copy data back from the local variables to OUT or IN-OUT args, if any
152
153
154
155
156
157
158
159 end;
160
161 procedure validate_cust_setup(p_api_version NUMBER
162 , p_init_msg_list VARCHAR2
163 , p_validation_level NUMBER
164 , x_return_status out nocopy VARCHAR2
165 , x_msg_count out nocopy NUMBER
166 , x_msg_data out nocopy VARCHAR2
167 , p6_a0 NUMBER
168 , p6_a1 DATE
169 , p6_a2 NUMBER
170 , p6_a3 DATE
171 , p6_a4 NUMBER
172 , p6_a5 NUMBER
173 , p6_a6 NUMBER
174 , p6_a7 VARCHAR2
175 , p6_a8 NUMBER
176 , p6_a9 VARCHAR2
177 , p6_a10 VARCHAR2
178 , p6_a11 VARCHAR2
179 , p6_a12 VARCHAR2
180 , p6_a13 VARCHAR2
181 , p6_a14 VARCHAR2
182 , p6_a15 VARCHAR2
183 , p6_a16 NUMBER
184 )
185
186 as
187 ddp_cust_setup_rec ams_cust_setup_pvt.cust_setup_rec_type;
188 ddindx binary_integer; indx binary_integer;
189 begin
190
191 -- copy data to the local IN or IN-OUT args, if any
192
193
194
195
196
197
198 ddp_cust_setup_rec.custom_setup_id := p6_a0;
199 ddp_cust_setup_rec.last_update_date := p6_a1;
200 ddp_cust_setup_rec.last_updated_by := p6_a2;
201 ddp_cust_setup_rec.creation_date := p6_a3;
202 ddp_cust_setup_rec.created_by := p6_a4;
203 ddp_cust_setup_rec.last_update_login := p6_a5;
204 ddp_cust_setup_rec.object_version_number := p6_a6;
205 ddp_cust_setup_rec.activity_type_code := p6_a7;
206 ddp_cust_setup_rec.media_id := p6_a8;
207 ddp_cust_setup_rec.enabled_flag := p6_a9;
208 ddp_cust_setup_rec.allow_essential_grouping := p6_a10;
209 ddp_cust_setup_rec.usage := p6_a11;
210 ddp_cust_setup_rec.object_type := p6_a12;
211 ddp_cust_setup_rec.source_code_suffix := p6_a13;
212 ddp_cust_setup_rec.setup_name := p6_a14;
213 ddp_cust_setup_rec.description := p6_a15;
214 ddp_cust_setup_rec.application_id := p6_a16;
215
216 -- here's the delegated call to the old PL/SQL routine
217 ams_cust_setup_pvt.validate_cust_setup(p_api_version,
218 p_init_msg_list,
219 p_validation_level,
220 x_return_status,
221 x_msg_count,
222 x_msg_data,
223 ddp_cust_setup_rec);
224
225 -- copy data back from the local variables to OUT or IN-OUT args, if any
226
227
228
229
230
231
232 end;
233
234 procedure check_items(p_validation_mode VARCHAR2
235 , x_return_status out nocopy VARCHAR2
236 , p2_a0 NUMBER
237 , p2_a1 DATE
238 , p2_a2 NUMBER
239 , p2_a3 DATE
240 , p2_a4 NUMBER
241 , p2_a5 NUMBER
242 , p2_a6 NUMBER
243 , p2_a7 VARCHAR2
244 , p2_a8 NUMBER
245 , p2_a9 VARCHAR2
246 , p2_a10 VARCHAR2
247 , p2_a11 VARCHAR2
248 , p2_a12 VARCHAR2
249 , p2_a13 VARCHAR2
250 , p2_a14 VARCHAR2
251 , p2_a15 VARCHAR2
252 , p2_a16 NUMBER
253 )
254
255 as
256 ddp_cust_setup_rec ams_cust_setup_pvt.cust_setup_rec_type;
257 ddindx binary_integer; indx binary_integer;
258 begin
259
260 -- copy data to the local IN or IN-OUT args, if any
261
262
263 ddp_cust_setup_rec.custom_setup_id := p2_a0;
264 ddp_cust_setup_rec.last_update_date := p2_a1;
265 ddp_cust_setup_rec.last_updated_by := p2_a2;
266 ddp_cust_setup_rec.creation_date := p2_a3;
267 ddp_cust_setup_rec.created_by := p2_a4;
268 ddp_cust_setup_rec.last_update_login := p2_a5;
269 ddp_cust_setup_rec.object_version_number := p2_a6;
270 ddp_cust_setup_rec.activity_type_code := p2_a7;
271 ddp_cust_setup_rec.media_id := p2_a8;
272 ddp_cust_setup_rec.enabled_flag := p2_a9;
273 ddp_cust_setup_rec.allow_essential_grouping := p2_a10;
274 ddp_cust_setup_rec.usage := p2_a11;
275 ddp_cust_setup_rec.object_type := p2_a12;
276 ddp_cust_setup_rec.source_code_suffix := p2_a13;
277 ddp_cust_setup_rec.setup_name := p2_a14;
278 ddp_cust_setup_rec.description := p2_a15;
279 ddp_cust_setup_rec.application_id := p2_a16;
280
281 -- here's the delegated call to the old PL/SQL routine
282 ams_cust_setup_pvt.check_items(p_validation_mode,
283 x_return_status,
284 ddp_cust_setup_rec);
285
286 -- copy data back from the local variables to OUT or IN-OUT args, if any
287
288
289 end;
290
291 procedure check_cust_setup_req_items(p_validation_mode VARCHAR2
292 , p1_a0 NUMBER
293 , p1_a1 DATE
294 , p1_a2 NUMBER
295 , p1_a3 DATE
296 , p1_a4 NUMBER
297 , p1_a5 NUMBER
298 , p1_a6 NUMBER
299 , p1_a7 VARCHAR2
300 , p1_a8 NUMBER
301 , p1_a9 VARCHAR2
302 , p1_a10 VARCHAR2
303 , p1_a11 VARCHAR2
304 , p1_a12 VARCHAR2
305 , p1_a13 VARCHAR2
306 , p1_a14 VARCHAR2
307 , p1_a15 VARCHAR2
308 , p1_a16 NUMBER
309 , x_return_status out nocopy VARCHAR2
310 )
311
312 as
313 ddp_cust_setup_rec ams_cust_setup_pvt.cust_setup_rec_type;
314 ddindx binary_integer; indx binary_integer;
315 begin
316
317 -- copy data to the local IN or IN-OUT args, if any
318
319 ddp_cust_setup_rec.custom_setup_id := p1_a0;
320 ddp_cust_setup_rec.last_update_date := p1_a1;
321 ddp_cust_setup_rec.last_updated_by := p1_a2;
322 ddp_cust_setup_rec.creation_date := p1_a3;
323 ddp_cust_setup_rec.created_by := p1_a4;
324 ddp_cust_setup_rec.last_update_login := p1_a5;
325 ddp_cust_setup_rec.object_version_number := p1_a6;
326 ddp_cust_setup_rec.activity_type_code := p1_a7;
327 ddp_cust_setup_rec.media_id := p1_a8;
328 ddp_cust_setup_rec.enabled_flag := p1_a9;
329 ddp_cust_setup_rec.allow_essential_grouping := p1_a10;
330 ddp_cust_setup_rec.usage := p1_a11;
331 ddp_cust_setup_rec.object_type := p1_a12;
332 ddp_cust_setup_rec.source_code_suffix := p1_a13;
333 ddp_cust_setup_rec.setup_name := p1_a14;
334 ddp_cust_setup_rec.description := p1_a15;
335 ddp_cust_setup_rec.application_id := p1_a16;
336
337
338 -- here's the delegated call to the old PL/SQL routine
339 ams_cust_setup_pvt.check_cust_setup_req_items(p_validation_mode,
340 ddp_cust_setup_rec,
341 x_return_status);
342
343 -- copy data back from the local variables to OUT or IN-OUT args, if any
344
345
346 end;
347
348 procedure check_cust_setup_uk_items(p_validation_mode VARCHAR2
349 , p1_a0 NUMBER
350 , p1_a1 DATE
351 , p1_a2 NUMBER
352 , p1_a3 DATE
353 , p1_a4 NUMBER
354 , p1_a5 NUMBER
355 , p1_a6 NUMBER
356 , p1_a7 VARCHAR2
357 , p1_a8 NUMBER
358 , p1_a9 VARCHAR2
359 , p1_a10 VARCHAR2
360 , p1_a11 VARCHAR2
361 , p1_a12 VARCHAR2
362 , p1_a13 VARCHAR2
363 , p1_a14 VARCHAR2
364 , p1_a15 VARCHAR2
365 , p1_a16 NUMBER
366 , x_return_status out nocopy VARCHAR2
367 )
368
369 as
370 ddp_cust_setup_rec ams_cust_setup_pvt.cust_setup_rec_type;
371 ddindx binary_integer; indx binary_integer;
372 begin
373
374 -- copy data to the local IN or IN-OUT args, if any
375
376 ddp_cust_setup_rec.custom_setup_id := p1_a0;
377 ddp_cust_setup_rec.last_update_date := p1_a1;
378 ddp_cust_setup_rec.last_updated_by := p1_a2;
379 ddp_cust_setup_rec.creation_date := p1_a3;
380 ddp_cust_setup_rec.created_by := p1_a4;
381 ddp_cust_setup_rec.last_update_login := p1_a5;
382 ddp_cust_setup_rec.object_version_number := p1_a6;
383 ddp_cust_setup_rec.activity_type_code := p1_a7;
384 ddp_cust_setup_rec.media_id := p1_a8;
385 ddp_cust_setup_rec.enabled_flag := p1_a9;
386 ddp_cust_setup_rec.allow_essential_grouping := p1_a10;
387 ddp_cust_setup_rec.usage := p1_a11;
388 ddp_cust_setup_rec.object_type := p1_a12;
389 ddp_cust_setup_rec.source_code_suffix := p1_a13;
390 ddp_cust_setup_rec.setup_name := p1_a14;
391 ddp_cust_setup_rec.description := p1_a15;
392 ddp_cust_setup_rec.application_id := p1_a16;
393
394
395 -- here's the delegated call to the old PL/SQL routine
396 ams_cust_setup_pvt.check_cust_setup_uk_items(p_validation_mode,
397 ddp_cust_setup_rec,
398 x_return_status);
399
400 -- copy data back from the local variables to OUT or IN-OUT args, if any
401
402
403 end;
404
405 procedure check_cust_setup_fk_items(p0_a0 NUMBER
406 , p0_a1 DATE
407 , p0_a2 NUMBER
408 , p0_a3 DATE
409 , p0_a4 NUMBER
410 , p0_a5 NUMBER
411 , p0_a6 NUMBER
412 , p0_a7 VARCHAR2
413 , p0_a8 NUMBER
414 , p0_a9 VARCHAR2
415 , p0_a10 VARCHAR2
416 , p0_a11 VARCHAR2
417 , p0_a12 VARCHAR2
418 , p0_a13 VARCHAR2
419 , p0_a14 VARCHAR2
420 , p0_a15 VARCHAR2
421 , p0_a16 NUMBER
422 , x_return_status out nocopy VARCHAR2
423 )
424
425 as
426 ddp_cust_setup_rec ams_cust_setup_pvt.cust_setup_rec_type;
427 ddindx binary_integer; indx binary_integer;
428 begin
429
430 -- copy data to the local IN or IN-OUT args, if any
431 ddp_cust_setup_rec.custom_setup_id := p0_a0;
432 ddp_cust_setup_rec.last_update_date := p0_a1;
433 ddp_cust_setup_rec.last_updated_by := p0_a2;
434 ddp_cust_setup_rec.creation_date := p0_a3;
435 ddp_cust_setup_rec.created_by := p0_a4;
436 ddp_cust_setup_rec.last_update_login := p0_a5;
437 ddp_cust_setup_rec.object_version_number := p0_a6;
438 ddp_cust_setup_rec.activity_type_code := p0_a7;
439 ddp_cust_setup_rec.media_id := p0_a8;
440 ddp_cust_setup_rec.enabled_flag := p0_a9;
441 ddp_cust_setup_rec.allow_essential_grouping := p0_a10;
442 ddp_cust_setup_rec.usage := p0_a11;
443 ddp_cust_setup_rec.object_type := p0_a12;
444 ddp_cust_setup_rec.source_code_suffix := p0_a13;
445 ddp_cust_setup_rec.setup_name := p0_a14;
446 ddp_cust_setup_rec.description := p0_a15;
447 ddp_cust_setup_rec.application_id := p0_a16;
448
449
450 -- here's the delegated call to the old PL/SQL routine
451 ams_cust_setup_pvt.check_cust_setup_fk_items(ddp_cust_setup_rec,
452 x_return_status);
453
454 -- copy data back from the local variables to OUT or IN-OUT args, if any
455
456 end;
457
458 procedure check_cust_setup_flag_items(p0_a0 NUMBER
459 , p0_a1 DATE
460 , p0_a2 NUMBER
461 , p0_a3 DATE
462 , p0_a4 NUMBER
463 , p0_a5 NUMBER
464 , p0_a6 NUMBER
465 , p0_a7 VARCHAR2
466 , p0_a8 NUMBER
467 , p0_a9 VARCHAR2
468 , p0_a10 VARCHAR2
469 , p0_a11 VARCHAR2
470 , p0_a12 VARCHAR2
471 , p0_a13 VARCHAR2
472 , p0_a14 VARCHAR2
473 , p0_a15 VARCHAR2
474 , p0_a16 NUMBER
475 , x_return_status out nocopy VARCHAR2
476 )
477
478 as
479 ddp_cust_setup_rec ams_cust_setup_pvt.cust_setup_rec_type;
480 ddindx binary_integer; indx binary_integer;
481 begin
482
483 -- copy data to the local IN or IN-OUT args, if any
484 ddp_cust_setup_rec.custom_setup_id := p0_a0;
485 ddp_cust_setup_rec.last_update_date := p0_a1;
486 ddp_cust_setup_rec.last_updated_by := p0_a2;
487 ddp_cust_setup_rec.creation_date := p0_a3;
488 ddp_cust_setup_rec.created_by := p0_a4;
489 ddp_cust_setup_rec.last_update_login := p0_a5;
490 ddp_cust_setup_rec.object_version_number := p0_a6;
491 ddp_cust_setup_rec.activity_type_code := p0_a7;
492 ddp_cust_setup_rec.media_id := p0_a8;
493 ddp_cust_setup_rec.enabled_flag := p0_a9;
494 ddp_cust_setup_rec.allow_essential_grouping := p0_a10;
495 ddp_cust_setup_rec.usage := p0_a11;
496 ddp_cust_setup_rec.object_type := p0_a12;
497 ddp_cust_setup_rec.source_code_suffix := p0_a13;
498 ddp_cust_setup_rec.setup_name := p0_a14;
499 ddp_cust_setup_rec.description := p0_a15;
500 ddp_cust_setup_rec.application_id := p0_a16;
501
502
503 -- here's the delegated call to the old PL/SQL routine
504 ams_cust_setup_pvt.check_cust_setup_flag_items(ddp_cust_setup_rec,
505 x_return_status);
506
507 -- copy data back from the local variables to OUT or IN-OUT args, if any
508
509 end;
510
511 procedure complete_cust_setup_rec(p0_a0 NUMBER
512 , p0_a1 DATE
513 , p0_a2 NUMBER
514 , p0_a3 DATE
515 , p0_a4 NUMBER
516 , p0_a5 NUMBER
517 , p0_a6 NUMBER
518 , p0_a7 VARCHAR2
519 , p0_a8 NUMBER
520 , p0_a9 VARCHAR2
521 , p0_a10 VARCHAR2
522 , p0_a11 VARCHAR2
523 , p0_a12 VARCHAR2
524 , p0_a13 VARCHAR2
525 , p0_a14 VARCHAR2
526 , p0_a15 VARCHAR2
527 , p0_a16 NUMBER
528 , p1_a0 out nocopy NUMBER
529 , p1_a1 out nocopy DATE
530 , p1_a2 out nocopy NUMBER
531 , p1_a3 out nocopy DATE
532 , p1_a4 out nocopy NUMBER
533 , p1_a5 out nocopy NUMBER
534 , p1_a6 out nocopy NUMBER
535 , p1_a7 out nocopy VARCHAR2
536 , p1_a8 out nocopy NUMBER
537 , p1_a9 out nocopy VARCHAR2
538 , p1_a10 out nocopy VARCHAR2
539 , p1_a11 out nocopy VARCHAR2
540 , p1_a12 out nocopy VARCHAR2
541 , p1_a13 out nocopy VARCHAR2
542 , p1_a14 out nocopy VARCHAR2
543 , p1_a15 out nocopy VARCHAR2
544 , p1_a16 out nocopy NUMBER
545 )
546
547 as
548 ddp_cust_setup_rec ams_cust_setup_pvt.cust_setup_rec_type;
549 ddx_complete_rec ams_cust_setup_pvt.cust_setup_rec_type;
550 ddindx binary_integer; indx binary_integer;
551 begin
552
553 -- copy data to the local IN or IN-OUT args, if any
554 ddp_cust_setup_rec.custom_setup_id := p0_a0;
555 ddp_cust_setup_rec.last_update_date := p0_a1;
556 ddp_cust_setup_rec.last_updated_by := p0_a2;
557 ddp_cust_setup_rec.creation_date := p0_a3;
558 ddp_cust_setup_rec.created_by := p0_a4;
559 ddp_cust_setup_rec.last_update_login := p0_a5;
560 ddp_cust_setup_rec.object_version_number := p0_a6;
561 ddp_cust_setup_rec.activity_type_code := p0_a7;
562 ddp_cust_setup_rec.media_id := p0_a8;
563 ddp_cust_setup_rec.enabled_flag := p0_a9;
564 ddp_cust_setup_rec.allow_essential_grouping := p0_a10;
565 ddp_cust_setup_rec.usage := p0_a11;
566 ddp_cust_setup_rec.object_type := p0_a12;
567 ddp_cust_setup_rec.source_code_suffix := p0_a13;
568 ddp_cust_setup_rec.setup_name := p0_a14;
569 ddp_cust_setup_rec.description := p0_a15;
570 ddp_cust_setup_rec.application_id := p0_a16;
571
572
573 -- here's the delegated call to the old PL/SQL routine
574 ams_cust_setup_pvt.complete_cust_setup_rec(ddp_cust_setup_rec,
575 ddx_complete_rec);
576
577 -- copy data back from the local variables to OUT or IN-OUT args, if any
578
579 p1_a0 := ddx_complete_rec.custom_setup_id;
580 p1_a1 := ddx_complete_rec.last_update_date;
581 p1_a2 := ddx_complete_rec.last_updated_by;
582 p1_a3 := ddx_complete_rec.creation_date;
583 p1_a4 := ddx_complete_rec.created_by;
584 p1_a5 := ddx_complete_rec.last_update_login;
585 p1_a6 := ddx_complete_rec.object_version_number;
586 p1_a7 := ddx_complete_rec.activity_type_code;
587 p1_a8 := ddx_complete_rec.media_id;
588 p1_a9 := ddx_complete_rec.enabled_flag;
589 p1_a10 := ddx_complete_rec.allow_essential_grouping;
590 p1_a11 := ddx_complete_rec.usage;
591 p1_a12 := ddx_complete_rec.object_type;
592 p1_a13 := ddx_complete_rec.source_code_suffix;
593 p1_a14 := ddx_complete_rec.setup_name;
594 p1_a15 := ddx_complete_rec.description;
595 p1_a16 := ddx_complete_rec.application_id;
596 end;
597
598 procedure init_rec(p0_a0 out nocopy NUMBER
599 , p0_a1 out nocopy DATE
600 , p0_a2 out nocopy NUMBER
601 , p0_a3 out nocopy DATE
602 , p0_a4 out nocopy NUMBER
603 , p0_a5 out nocopy NUMBER
604 , p0_a6 out nocopy NUMBER
605 , p0_a7 out nocopy VARCHAR2
606 , p0_a8 out nocopy NUMBER
607 , p0_a9 out nocopy VARCHAR2
608 , p0_a10 out nocopy VARCHAR2
609 , p0_a11 out nocopy VARCHAR2
610 , p0_a12 out nocopy VARCHAR2
611 , p0_a13 out nocopy VARCHAR2
612 , p0_a14 out nocopy VARCHAR2
613 , p0_a15 out nocopy VARCHAR2
614 , p0_a16 out nocopy NUMBER
615 )
616
617 as
618 ddx_cust_setup_rec ams_cust_setup_pvt.cust_setup_rec_type;
619 ddindx binary_integer; indx binary_integer;
620 begin
621
622 -- copy data to the local IN or IN-OUT args, if any
623
624 -- here's the delegated call to the old PL/SQL routine
625 ams_cust_setup_pvt.init_rec(ddx_cust_setup_rec);
626
627 -- copy data back from the local variables to OUT or IN-OUT args, if any
628 p0_a0 := ddx_cust_setup_rec.custom_setup_id;
629 p0_a1 := ddx_cust_setup_rec.last_update_date;
630 p0_a2 := ddx_cust_setup_rec.last_updated_by;
631 p0_a3 := ddx_cust_setup_rec.creation_date;
632 p0_a4 := ddx_cust_setup_rec.created_by;
633 p0_a5 := ddx_cust_setup_rec.last_update_login;
634 p0_a6 := ddx_cust_setup_rec.object_version_number;
635 p0_a7 := ddx_cust_setup_rec.activity_type_code;
636 p0_a8 := ddx_cust_setup_rec.media_id;
637 p0_a9 := ddx_cust_setup_rec.enabled_flag;
638 p0_a10 := ddx_cust_setup_rec.allow_essential_grouping;
639 p0_a11 := ddx_cust_setup_rec.usage;
640 p0_a12 := ddx_cust_setup_rec.object_type;
641 p0_a13 := ddx_cust_setup_rec.source_code_suffix;
642 p0_a14 := ddx_cust_setup_rec.setup_name;
643 p0_a15 := ddx_cust_setup_rec.description;
644 p0_a16 := ddx_cust_setup_rec.application_id;
645 end;
646
647 end ams_oa_cust_setup_pvt_w;