[Home] [Help]
PACKAGE BODY: APPS.PV_PARTNER_ACCESSES_PVT_W
Source
1 package body pv_partner_accesses_pvt_w as
2 /* $Header: pvxwprab.pls 120.1 2005/09/06 00:09 appldev ship $ */
3 procedure rosetta_table_copy_in_p2(t out nocopy pv_partner_accesses_pvt.partner_access_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_VARCHAR2_TABLE_100
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_DATE_TABLE
11 , a8 JTF_NUMBER_TABLE
12 , a9 JTF_DATE_TABLE
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_NUMBER_TABLE
16 , a13 JTF_NUMBER_TABLE
17 , a14 JTF_NUMBER_TABLE
18 , a15 JTF_NUMBER_TABLE
19 , a16 JTF_DATE_TABLE
20 , a17 JTF_VARCHAR2_TABLE_100
21 , a18 JTF_VARCHAR2_TABLE_200
22 , a19 JTF_VARCHAR2_TABLE_200
23 , a20 JTF_VARCHAR2_TABLE_200
24 , a21 JTF_VARCHAR2_TABLE_200
25 , a22 JTF_VARCHAR2_TABLE_200
26 , a23 JTF_VARCHAR2_TABLE_200
27 , a24 JTF_VARCHAR2_TABLE_200
28 , a25 JTF_VARCHAR2_TABLE_200
29 , a26 JTF_VARCHAR2_TABLE_200
30 , a27 JTF_VARCHAR2_TABLE_200
31 , a28 JTF_VARCHAR2_TABLE_200
32 , a29 JTF_VARCHAR2_TABLE_200
33 , a30 JTF_VARCHAR2_TABLE_200
34 , a31 JTF_VARCHAR2_TABLE_200
35 , a32 JTF_VARCHAR2_TABLE_200
36 ) as
37 ddindx binary_integer; indx binary_integer;
38 begin
39 if a0 is not null and a0.count > 0 then
40 if a0.count > 0 then
41 indx := a0.first;
42 ddindx := 1;
43 while true loop
44 t(ddindx).partner_access_id := a0(indx);
45 t(ddindx).partner_id := a1(indx);
46 t(ddindx).resource_id := a2(indx);
47 t(ddindx).keep_flag := a3(indx);
48 t(ddindx).created_by_tap_flag := a4(indx);
49 t(ddindx).access_type := a5(indx);
50 t(ddindx).vad_partner_id := a6(indx);
51 t(ddindx).last_update_date := a7(indx);
52 t(ddindx).last_updated_by := a8(indx);
53 t(ddindx).creation_date := a9(indx);
54 t(ddindx).created_by := a10(indx);
55 t(ddindx).last_update_login := a11(indx);
56 t(ddindx).object_version_number := a12(indx);
57 t(ddindx).request_id := a13(indx);
58 t(ddindx).program_application_id := a14(indx);
59 t(ddindx).program_id := a15(indx);
60 t(ddindx).program_update_date := a16(indx);
61 t(ddindx).attribute_category := a17(indx);
62 t(ddindx).attribute1 := a18(indx);
63 t(ddindx).attribute2 := a19(indx);
64 t(ddindx).attribute3 := a20(indx);
65 t(ddindx).attribute4 := a21(indx);
66 t(ddindx).attribute5 := a22(indx);
67 t(ddindx).attribute6 := a23(indx);
68 t(ddindx).attribute7 := a24(indx);
69 t(ddindx).attribute8 := a25(indx);
70 t(ddindx).attribute9 := a26(indx);
71 t(ddindx).attribute10 := a27(indx);
72 t(ddindx).attribute11 := a28(indx);
73 t(ddindx).attribute12 := a29(indx);
74 t(ddindx).attribute13 := a30(indx);
75 t(ddindx).attribute14 := a31(indx);
76 t(ddindx).attribute15 := a32(indx);
77 ddindx := ddindx+1;
78 if a0.last =indx
79 then exit;
80 end if;
81 indx := a0.next(indx);
82 end loop;
83 end if;
84 end if;
85 end rosetta_table_copy_in_p2;
86 procedure rosetta_table_copy_out_p2(t pv_partner_accesses_pvt.partner_access_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
87 , a1 out nocopy JTF_NUMBER_TABLE
88 , a2 out nocopy JTF_NUMBER_TABLE
89 , a3 out nocopy JTF_VARCHAR2_TABLE_100
90 , a4 out nocopy JTF_VARCHAR2_TABLE_100
91 , a5 out nocopy JTF_VARCHAR2_TABLE_100
92 , a6 out nocopy JTF_NUMBER_TABLE
93 , a7 out nocopy JTF_DATE_TABLE
94 , a8 out nocopy JTF_NUMBER_TABLE
95 , a9 out nocopy JTF_DATE_TABLE
96 , a10 out nocopy JTF_NUMBER_TABLE
97 , a11 out nocopy JTF_NUMBER_TABLE
98 , a12 out nocopy JTF_NUMBER_TABLE
99 , a13 out nocopy JTF_NUMBER_TABLE
100 , a14 out nocopy JTF_NUMBER_TABLE
101 , a15 out nocopy JTF_NUMBER_TABLE
102 , a16 out nocopy JTF_DATE_TABLE
103 , a17 out nocopy JTF_VARCHAR2_TABLE_100
104 , a18 out nocopy JTF_VARCHAR2_TABLE_200
105 , a19 out nocopy JTF_VARCHAR2_TABLE_200
106 , a20 out nocopy JTF_VARCHAR2_TABLE_200
107 , a21 out nocopy JTF_VARCHAR2_TABLE_200
108 , a22 out nocopy JTF_VARCHAR2_TABLE_200
109 , a23 out nocopy JTF_VARCHAR2_TABLE_200
110 , a24 out nocopy JTF_VARCHAR2_TABLE_200
111 , a25 out nocopy JTF_VARCHAR2_TABLE_200
112 , a26 out nocopy JTF_VARCHAR2_TABLE_200
113 , a27 out nocopy JTF_VARCHAR2_TABLE_200
114 , a28 out nocopy JTF_VARCHAR2_TABLE_200
115 , a29 out nocopy JTF_VARCHAR2_TABLE_200
116 , a30 out nocopy JTF_VARCHAR2_TABLE_200
117 , a31 out nocopy JTF_VARCHAR2_TABLE_200
118 , a32 out nocopy JTF_VARCHAR2_TABLE_200
119 ) as
120 ddindx binary_integer; indx binary_integer;
121 begin
122 if t is null or t.count = 0 then
123 a0 := JTF_NUMBER_TABLE();
124 a1 := JTF_NUMBER_TABLE();
125 a2 := JTF_NUMBER_TABLE();
126 a3 := JTF_VARCHAR2_TABLE_100();
127 a4 := JTF_VARCHAR2_TABLE_100();
128 a5 := JTF_VARCHAR2_TABLE_100();
129 a6 := JTF_NUMBER_TABLE();
130 a7 := JTF_DATE_TABLE();
131 a8 := JTF_NUMBER_TABLE();
132 a9 := JTF_DATE_TABLE();
133 a10 := JTF_NUMBER_TABLE();
134 a11 := JTF_NUMBER_TABLE();
135 a12 := JTF_NUMBER_TABLE();
136 a13 := JTF_NUMBER_TABLE();
137 a14 := JTF_NUMBER_TABLE();
138 a15 := JTF_NUMBER_TABLE();
139 a16 := JTF_DATE_TABLE();
140 a17 := JTF_VARCHAR2_TABLE_100();
141 a18 := JTF_VARCHAR2_TABLE_200();
142 a19 := JTF_VARCHAR2_TABLE_200();
143 a20 := JTF_VARCHAR2_TABLE_200();
144 a21 := JTF_VARCHAR2_TABLE_200();
145 a22 := JTF_VARCHAR2_TABLE_200();
146 a23 := JTF_VARCHAR2_TABLE_200();
147 a24 := JTF_VARCHAR2_TABLE_200();
148 a25 := JTF_VARCHAR2_TABLE_200();
149 a26 := JTF_VARCHAR2_TABLE_200();
150 a27 := JTF_VARCHAR2_TABLE_200();
151 a28 := JTF_VARCHAR2_TABLE_200();
152 a29 := JTF_VARCHAR2_TABLE_200();
153 a30 := JTF_VARCHAR2_TABLE_200();
154 a31 := JTF_VARCHAR2_TABLE_200();
155 a32 := JTF_VARCHAR2_TABLE_200();
156 else
157 a0 := JTF_NUMBER_TABLE();
158 a1 := JTF_NUMBER_TABLE();
159 a2 := JTF_NUMBER_TABLE();
160 a3 := JTF_VARCHAR2_TABLE_100();
161 a4 := JTF_VARCHAR2_TABLE_100();
162 a5 := JTF_VARCHAR2_TABLE_100();
163 a6 := JTF_NUMBER_TABLE();
164 a7 := JTF_DATE_TABLE();
165 a8 := JTF_NUMBER_TABLE();
166 a9 := JTF_DATE_TABLE();
167 a10 := JTF_NUMBER_TABLE();
168 a11 := JTF_NUMBER_TABLE();
169 a12 := JTF_NUMBER_TABLE();
170 a13 := JTF_NUMBER_TABLE();
171 a14 := JTF_NUMBER_TABLE();
172 a15 := JTF_NUMBER_TABLE();
173 a16 := JTF_DATE_TABLE();
174 a17 := JTF_VARCHAR2_TABLE_100();
175 a18 := JTF_VARCHAR2_TABLE_200();
176 a19 := JTF_VARCHAR2_TABLE_200();
177 a20 := JTF_VARCHAR2_TABLE_200();
178 a21 := JTF_VARCHAR2_TABLE_200();
179 a22 := JTF_VARCHAR2_TABLE_200();
180 a23 := JTF_VARCHAR2_TABLE_200();
181 a24 := JTF_VARCHAR2_TABLE_200();
182 a25 := JTF_VARCHAR2_TABLE_200();
183 a26 := JTF_VARCHAR2_TABLE_200();
184 a27 := JTF_VARCHAR2_TABLE_200();
185 a28 := JTF_VARCHAR2_TABLE_200();
186 a29 := JTF_VARCHAR2_TABLE_200();
187 a30 := JTF_VARCHAR2_TABLE_200();
188 a31 := JTF_VARCHAR2_TABLE_200();
189 a32 := JTF_VARCHAR2_TABLE_200();
190 if t.count > 0 then
191 a0.extend(t.count);
192 a1.extend(t.count);
193 a2.extend(t.count);
194 a3.extend(t.count);
195 a4.extend(t.count);
196 a5.extend(t.count);
197 a6.extend(t.count);
198 a7.extend(t.count);
199 a8.extend(t.count);
200 a9.extend(t.count);
201 a10.extend(t.count);
202 a11.extend(t.count);
203 a12.extend(t.count);
204 a13.extend(t.count);
205 a14.extend(t.count);
206 a15.extend(t.count);
207 a16.extend(t.count);
208 a17.extend(t.count);
209 a18.extend(t.count);
210 a19.extend(t.count);
211 a20.extend(t.count);
212 a21.extend(t.count);
213 a22.extend(t.count);
214 a23.extend(t.count);
215 a24.extend(t.count);
216 a25.extend(t.count);
217 a26.extend(t.count);
218 a27.extend(t.count);
219 a28.extend(t.count);
220 a29.extend(t.count);
221 a30.extend(t.count);
222 a31.extend(t.count);
223 a32.extend(t.count);
224 ddindx := t.first;
225 indx := 1;
226 while true loop
227 a0(indx) := t(ddindx).partner_access_id;
228 a1(indx) := t(ddindx).partner_id;
229 a2(indx) := t(ddindx).resource_id;
230 a3(indx) := t(ddindx).keep_flag;
231 a4(indx) := t(ddindx).created_by_tap_flag;
232 a5(indx) := t(ddindx).access_type;
233 a6(indx) := t(ddindx).vad_partner_id;
234 a7(indx) := t(ddindx).last_update_date;
235 a8(indx) := t(ddindx).last_updated_by;
236 a9(indx) := t(ddindx).creation_date;
237 a10(indx) := t(ddindx).created_by;
238 a11(indx) := t(ddindx).last_update_login;
239 a12(indx) := t(ddindx).object_version_number;
240 a13(indx) := t(ddindx).request_id;
241 a14(indx) := t(ddindx).program_application_id;
242 a15(indx) := t(ddindx).program_id;
243 a16(indx) := t(ddindx).program_update_date;
244 a17(indx) := t(ddindx).attribute_category;
245 a18(indx) := t(ddindx).attribute1;
246 a19(indx) := t(ddindx).attribute2;
247 a20(indx) := t(ddindx).attribute3;
248 a21(indx) := t(ddindx).attribute4;
249 a22(indx) := t(ddindx).attribute5;
250 a23(indx) := t(ddindx).attribute6;
251 a24(indx) := t(ddindx).attribute7;
252 a25(indx) := t(ddindx).attribute8;
253 a26(indx) := t(ddindx).attribute9;
254 a27(indx) := t(ddindx).attribute10;
255 a28(indx) := t(ddindx).attribute11;
256 a29(indx) := t(ddindx).attribute12;
257 a30(indx) := t(ddindx).attribute13;
258 a31(indx) := t(ddindx).attribute14;
259 a32(indx) := t(ddindx).attribute15;
260 indx := indx+1;
261 if t.last =ddindx
262 then exit;
263 end if;
264 ddindx := t.next(ddindx);
265 end loop;
266 end if;
267 end if;
268 end rosetta_table_copy_out_p2;
269
270 procedure create_partner_accesses(p_api_version_number NUMBER
271 , p_init_msg_list VARCHAR2
272 , p_commit VARCHAR2
273 , p_validation_level NUMBER
274 , x_return_status out nocopy VARCHAR2
275 , x_msg_count out nocopy NUMBER
276 , x_msg_data out nocopy VARCHAR2
277 , p7_a0 NUMBER
278 , p7_a1 NUMBER
279 , p7_a2 NUMBER
280 , p7_a3 VARCHAR2
281 , p7_a4 VARCHAR2
282 , p7_a5 VARCHAR2
283 , p7_a6 NUMBER
284 , p7_a7 DATE
285 , p7_a8 NUMBER
286 , p7_a9 DATE
287 , p7_a10 NUMBER
288 , p7_a11 NUMBER
289 , p7_a12 NUMBER
290 , p7_a13 NUMBER
291 , p7_a14 NUMBER
292 , p7_a15 NUMBER
293 , p7_a16 DATE
294 , p7_a17 VARCHAR2
295 , p7_a18 VARCHAR2
296 , p7_a19 VARCHAR2
297 , p7_a20 VARCHAR2
298 , p7_a21 VARCHAR2
299 , p7_a22 VARCHAR2
300 , p7_a23 VARCHAR2
301 , p7_a24 VARCHAR2
302 , p7_a25 VARCHAR2
303 , p7_a26 VARCHAR2
304 , p7_a27 VARCHAR2
305 , p7_a28 VARCHAR2
306 , p7_a29 VARCHAR2
307 , p7_a30 VARCHAR2
308 , p7_a31 VARCHAR2
309 , p7_a32 VARCHAR2
310 , x_partner_access_id out nocopy NUMBER
311 )
312
313 as
314 ddp_partner_access_rec pv_partner_accesses_pvt.partner_access_rec_type;
315 ddindx binary_integer; indx binary_integer;
316 begin
317
318 -- copy data to the local IN or IN-OUT args, if any
319
320
321
322
323
324
325
326 ddp_partner_access_rec.partner_access_id := p7_a0;
327 ddp_partner_access_rec.partner_id := p7_a1;
328 ddp_partner_access_rec.resource_id := p7_a2;
329 ddp_partner_access_rec.keep_flag := p7_a3;
330 ddp_partner_access_rec.created_by_tap_flag := p7_a4;
331 ddp_partner_access_rec.access_type := p7_a5;
332 ddp_partner_access_rec.vad_partner_id := p7_a6;
333 ddp_partner_access_rec.last_update_date := p7_a7;
334 ddp_partner_access_rec.last_updated_by := p7_a8;
335 ddp_partner_access_rec.creation_date := p7_a9;
336 ddp_partner_access_rec.created_by := p7_a10;
337 ddp_partner_access_rec.last_update_login := p7_a11;
338 ddp_partner_access_rec.object_version_number := p7_a12;
339 ddp_partner_access_rec.request_id := p7_a13;
340 ddp_partner_access_rec.program_application_id := p7_a14;
341 ddp_partner_access_rec.program_id := p7_a15;
342 ddp_partner_access_rec.program_update_date := p7_a16;
343 ddp_partner_access_rec.attribute_category := p7_a17;
344 ddp_partner_access_rec.attribute1 := p7_a18;
345 ddp_partner_access_rec.attribute2 := p7_a19;
346 ddp_partner_access_rec.attribute3 := p7_a20;
347 ddp_partner_access_rec.attribute4 := p7_a21;
348 ddp_partner_access_rec.attribute5 := p7_a22;
349 ddp_partner_access_rec.attribute6 := p7_a23;
350 ddp_partner_access_rec.attribute7 := p7_a24;
351 ddp_partner_access_rec.attribute8 := p7_a25;
352 ddp_partner_access_rec.attribute9 := p7_a26;
353 ddp_partner_access_rec.attribute10 := p7_a27;
354 ddp_partner_access_rec.attribute11 := p7_a28;
355 ddp_partner_access_rec.attribute12 := p7_a29;
356 ddp_partner_access_rec.attribute13 := p7_a30;
357 ddp_partner_access_rec.attribute14 := p7_a31;
358 ddp_partner_access_rec.attribute15 := p7_a32;
359
360
361 -- here's the delegated call to the old PL/SQL routine
362 pv_partner_accesses_pvt.create_partner_accesses(p_api_version_number,
363 p_init_msg_list,
364 p_commit,
365 p_validation_level,
366 x_return_status,
367 x_msg_count,
368 x_msg_data,
369 ddp_partner_access_rec,
370 x_partner_access_id);
371
372 -- copy data back from the local variables to OUT or IN-OUT args, if any
373
374
375
376
377
378
379
380
381 end;
382
383 procedure update_partner_accesses(p_api_version_number NUMBER
384 , p_init_msg_list VARCHAR2
385 , p_commit VARCHAR2
386 , p_validation_level NUMBER
387 , x_return_status out nocopy VARCHAR2
388 , x_msg_count out nocopy NUMBER
389 , x_msg_data out nocopy VARCHAR2
390 , p7_a0 NUMBER
391 , p7_a1 NUMBER
392 , p7_a2 NUMBER
393 , p7_a3 VARCHAR2
394 , p7_a4 VARCHAR2
395 , p7_a5 VARCHAR2
396 , p7_a6 NUMBER
397 , p7_a7 DATE
398 , p7_a8 NUMBER
399 , p7_a9 DATE
400 , p7_a10 NUMBER
401 , p7_a11 NUMBER
402 , p7_a12 NUMBER
403 , p7_a13 NUMBER
404 , p7_a14 NUMBER
405 , p7_a15 NUMBER
406 , p7_a16 DATE
407 , p7_a17 VARCHAR2
408 , p7_a18 VARCHAR2
409 , p7_a19 VARCHAR2
410 , p7_a20 VARCHAR2
411 , p7_a21 VARCHAR2
412 , p7_a22 VARCHAR2
413 , p7_a23 VARCHAR2
414 , p7_a24 VARCHAR2
415 , p7_a25 VARCHAR2
416 , p7_a26 VARCHAR2
417 , p7_a27 VARCHAR2
418 , p7_a28 VARCHAR2
419 , p7_a29 VARCHAR2
420 , p7_a30 VARCHAR2
421 , p7_a31 VARCHAR2
422 , p7_a32 VARCHAR2
423 )
424
425 as
426 ddp_partner_access_rec pv_partner_accesses_pvt.partner_access_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
432
433
434
435
436
437
438 ddp_partner_access_rec.partner_access_id := p7_a0;
439 ddp_partner_access_rec.partner_id := p7_a1;
440 ddp_partner_access_rec.resource_id := p7_a2;
441 ddp_partner_access_rec.keep_flag := p7_a3;
442 ddp_partner_access_rec.created_by_tap_flag := p7_a4;
443 ddp_partner_access_rec.access_type := p7_a5;
444 ddp_partner_access_rec.vad_partner_id := p7_a6;
445 ddp_partner_access_rec.last_update_date := p7_a7;
446 ddp_partner_access_rec.last_updated_by := p7_a8;
447 ddp_partner_access_rec.creation_date := p7_a9;
448 ddp_partner_access_rec.created_by := p7_a10;
449 ddp_partner_access_rec.last_update_login := p7_a11;
450 ddp_partner_access_rec.object_version_number := p7_a12;
451 ddp_partner_access_rec.request_id := p7_a13;
452 ddp_partner_access_rec.program_application_id := p7_a14;
453 ddp_partner_access_rec.program_id := p7_a15;
454 ddp_partner_access_rec.program_update_date := p7_a16;
455 ddp_partner_access_rec.attribute_category := p7_a17;
456 ddp_partner_access_rec.attribute1 := p7_a18;
457 ddp_partner_access_rec.attribute2 := p7_a19;
458 ddp_partner_access_rec.attribute3 := p7_a20;
459 ddp_partner_access_rec.attribute4 := p7_a21;
460 ddp_partner_access_rec.attribute5 := p7_a22;
461 ddp_partner_access_rec.attribute6 := p7_a23;
462 ddp_partner_access_rec.attribute7 := p7_a24;
463 ddp_partner_access_rec.attribute8 := p7_a25;
464 ddp_partner_access_rec.attribute9 := p7_a26;
465 ddp_partner_access_rec.attribute10 := p7_a27;
466 ddp_partner_access_rec.attribute11 := p7_a28;
467 ddp_partner_access_rec.attribute12 := p7_a29;
468 ddp_partner_access_rec.attribute13 := p7_a30;
469 ddp_partner_access_rec.attribute14 := p7_a31;
470 ddp_partner_access_rec.attribute15 := p7_a32;
471
472 -- here's the delegated call to the old PL/SQL routine
473 pv_partner_accesses_pvt.update_partner_accesses(p_api_version_number,
474 p_init_msg_list,
475 p_commit,
476 p_validation_level,
477 x_return_status,
478 x_msg_count,
479 x_msg_data,
480 ddp_partner_access_rec);
481
482 -- copy data back from the local variables to OUT or IN-OUT args, if any
483
484
485
486
487
488
489
490 end;
491
492 procedure validate_partner_accesses(p_api_version_number NUMBER
493 , p_init_msg_list VARCHAR2
494 , p_validation_level NUMBER
495 , p3_a0 NUMBER
496 , p3_a1 NUMBER
497 , p3_a2 NUMBER
498 , p3_a3 VARCHAR2
499 , p3_a4 VARCHAR2
500 , p3_a5 VARCHAR2
501 , p3_a6 NUMBER
502 , p3_a7 DATE
503 , p3_a8 NUMBER
504 , p3_a9 DATE
505 , p3_a10 NUMBER
506 , p3_a11 NUMBER
507 , p3_a12 NUMBER
508 , p3_a13 NUMBER
509 , p3_a14 NUMBER
510 , p3_a15 NUMBER
511 , p3_a16 DATE
512 , p3_a17 VARCHAR2
513 , p3_a18 VARCHAR2
514 , p3_a19 VARCHAR2
515 , p3_a20 VARCHAR2
516 , p3_a21 VARCHAR2
517 , p3_a22 VARCHAR2
518 , p3_a23 VARCHAR2
519 , p3_a24 VARCHAR2
520 , p3_a25 VARCHAR2
521 , p3_a26 VARCHAR2
522 , p3_a27 VARCHAR2
523 , p3_a28 VARCHAR2
524 , p3_a29 VARCHAR2
525 , p3_a30 VARCHAR2
526 , p3_a31 VARCHAR2
527 , p3_a32 VARCHAR2
528 , p_validation_mode VARCHAR2
529 , x_return_status out nocopy VARCHAR2
530 , x_msg_count out nocopy NUMBER
531 , x_msg_data out nocopy VARCHAR2
532 )
533
534 as
535 ddp_partner_access_rec pv_partner_accesses_pvt.partner_access_rec_type;
536 ddindx binary_integer; indx binary_integer;
537 begin
538
539 -- copy data to the local IN or IN-OUT args, if any
540
541
542
543 ddp_partner_access_rec.partner_access_id := p3_a0;
544 ddp_partner_access_rec.partner_id := p3_a1;
545 ddp_partner_access_rec.resource_id := p3_a2;
546 ddp_partner_access_rec.keep_flag := p3_a3;
547 ddp_partner_access_rec.created_by_tap_flag := p3_a4;
548 ddp_partner_access_rec.access_type := p3_a5;
549 ddp_partner_access_rec.vad_partner_id := p3_a6;
550 ddp_partner_access_rec.last_update_date := p3_a7;
551 ddp_partner_access_rec.last_updated_by := p3_a8;
552 ddp_partner_access_rec.creation_date := p3_a9;
553 ddp_partner_access_rec.created_by := p3_a10;
554 ddp_partner_access_rec.last_update_login := p3_a11;
555 ddp_partner_access_rec.object_version_number := p3_a12;
556 ddp_partner_access_rec.request_id := p3_a13;
557 ddp_partner_access_rec.program_application_id := p3_a14;
558 ddp_partner_access_rec.program_id := p3_a15;
559 ddp_partner_access_rec.program_update_date := p3_a16;
560 ddp_partner_access_rec.attribute_category := p3_a17;
561 ddp_partner_access_rec.attribute1 := p3_a18;
562 ddp_partner_access_rec.attribute2 := p3_a19;
563 ddp_partner_access_rec.attribute3 := p3_a20;
564 ddp_partner_access_rec.attribute4 := p3_a21;
565 ddp_partner_access_rec.attribute5 := p3_a22;
566 ddp_partner_access_rec.attribute6 := p3_a23;
567 ddp_partner_access_rec.attribute7 := p3_a24;
568 ddp_partner_access_rec.attribute8 := p3_a25;
569 ddp_partner_access_rec.attribute9 := p3_a26;
570 ddp_partner_access_rec.attribute10 := p3_a27;
571 ddp_partner_access_rec.attribute11 := p3_a28;
572 ddp_partner_access_rec.attribute12 := p3_a29;
573 ddp_partner_access_rec.attribute13 := p3_a30;
574 ddp_partner_access_rec.attribute14 := p3_a31;
575 ddp_partner_access_rec.attribute15 := p3_a32;
576
577
578
579
580
581 -- here's the delegated call to the old PL/SQL routine
582 pv_partner_accesses_pvt.validate_partner_accesses(p_api_version_number,
583 p_init_msg_list,
584 p_validation_level,
585 ddp_partner_access_rec,
586 p_validation_mode,
587 x_return_status,
588 x_msg_count,
589 x_msg_data);
590
591 -- copy data back from the local variables to OUT or IN-OUT args, if any
592
593
594
595
596
597
598
599 end;
600
601 procedure chk_partner_access_items(p0_a0 NUMBER
602 , p0_a1 NUMBER
603 , p0_a2 NUMBER
604 , p0_a3 VARCHAR2
605 , p0_a4 VARCHAR2
606 , p0_a5 VARCHAR2
607 , p0_a6 NUMBER
608 , p0_a7 DATE
609 , p0_a8 NUMBER
610 , p0_a9 DATE
611 , p0_a10 NUMBER
612 , p0_a11 NUMBER
613 , p0_a12 NUMBER
614 , p0_a13 NUMBER
615 , p0_a14 NUMBER
616 , p0_a15 NUMBER
617 , p0_a16 DATE
618 , p0_a17 VARCHAR2
619 , p0_a18 VARCHAR2
620 , p0_a19 VARCHAR2
621 , p0_a20 VARCHAR2
622 , p0_a21 VARCHAR2
623 , p0_a22 VARCHAR2
624 , p0_a23 VARCHAR2
625 , p0_a24 VARCHAR2
626 , p0_a25 VARCHAR2
627 , p0_a26 VARCHAR2
628 , p0_a27 VARCHAR2
629 , p0_a28 VARCHAR2
630 , p0_a29 VARCHAR2
631 , p0_a30 VARCHAR2
632 , p0_a31 VARCHAR2
633 , p0_a32 VARCHAR2
634 , p_validation_mode VARCHAR2
635 , x_return_status out nocopy VARCHAR2
636 )
637
638 as
639 ddp_partner_access_rec pv_partner_accesses_pvt.partner_access_rec_type;
640 ddindx binary_integer; indx binary_integer;
641 begin
642
643 -- copy data to the local IN or IN-OUT args, if any
644 ddp_partner_access_rec.partner_access_id := p0_a0;
645 ddp_partner_access_rec.partner_id := p0_a1;
646 ddp_partner_access_rec.resource_id := p0_a2;
647 ddp_partner_access_rec.keep_flag := p0_a3;
648 ddp_partner_access_rec.created_by_tap_flag := p0_a4;
649 ddp_partner_access_rec.access_type := p0_a5;
650 ddp_partner_access_rec.vad_partner_id := p0_a6;
651 ddp_partner_access_rec.last_update_date := p0_a7;
652 ddp_partner_access_rec.last_updated_by := p0_a8;
653 ddp_partner_access_rec.creation_date := p0_a9;
654 ddp_partner_access_rec.created_by := p0_a10;
655 ddp_partner_access_rec.last_update_login := p0_a11;
656 ddp_partner_access_rec.object_version_number := p0_a12;
657 ddp_partner_access_rec.request_id := p0_a13;
658 ddp_partner_access_rec.program_application_id := p0_a14;
659 ddp_partner_access_rec.program_id := p0_a15;
660 ddp_partner_access_rec.program_update_date := p0_a16;
661 ddp_partner_access_rec.attribute_category := p0_a17;
662 ddp_partner_access_rec.attribute1 := p0_a18;
663 ddp_partner_access_rec.attribute2 := p0_a19;
664 ddp_partner_access_rec.attribute3 := p0_a20;
665 ddp_partner_access_rec.attribute4 := p0_a21;
666 ddp_partner_access_rec.attribute5 := p0_a22;
667 ddp_partner_access_rec.attribute6 := p0_a23;
668 ddp_partner_access_rec.attribute7 := p0_a24;
669 ddp_partner_access_rec.attribute8 := p0_a25;
670 ddp_partner_access_rec.attribute9 := p0_a26;
671 ddp_partner_access_rec.attribute10 := p0_a27;
672 ddp_partner_access_rec.attribute11 := p0_a28;
673 ddp_partner_access_rec.attribute12 := p0_a29;
674 ddp_partner_access_rec.attribute13 := p0_a30;
675 ddp_partner_access_rec.attribute14 := p0_a31;
676 ddp_partner_access_rec.attribute15 := p0_a32;
677
678
679
680 -- here's the delegated call to the old PL/SQL routine
681 pv_partner_accesses_pvt.chk_partner_access_items(ddp_partner_access_rec,
682 p_validation_mode,
683 x_return_status);
684
685 -- copy data back from the local variables to OUT or IN-OUT args, if any
686
687
688 end;
689
690 procedure validate_partner_access_rec(p_api_version_number NUMBER
691 , p_init_msg_list VARCHAR2
692 , x_return_status out nocopy VARCHAR2
693 , x_msg_count out nocopy NUMBER
694 , x_msg_data out nocopy VARCHAR2
695 , p5_a0 NUMBER
696 , p5_a1 NUMBER
697 , p5_a2 NUMBER
698 , p5_a3 VARCHAR2
699 , p5_a4 VARCHAR2
700 , p5_a5 VARCHAR2
701 , p5_a6 NUMBER
702 , p5_a7 DATE
703 , p5_a8 NUMBER
704 , p5_a9 DATE
705 , p5_a10 NUMBER
706 , p5_a11 NUMBER
707 , p5_a12 NUMBER
708 , p5_a13 NUMBER
709 , p5_a14 NUMBER
710 , p5_a15 NUMBER
711 , p5_a16 DATE
712 , p5_a17 VARCHAR2
713 , p5_a18 VARCHAR2
714 , p5_a19 VARCHAR2
715 , p5_a20 VARCHAR2
716 , p5_a21 VARCHAR2
717 , p5_a22 VARCHAR2
718 , p5_a23 VARCHAR2
719 , p5_a24 VARCHAR2
720 , p5_a25 VARCHAR2
721 , p5_a26 VARCHAR2
722 , p5_a27 VARCHAR2
723 , p5_a28 VARCHAR2
724 , p5_a29 VARCHAR2
725 , p5_a30 VARCHAR2
726 , p5_a31 VARCHAR2
727 , p5_a32 VARCHAR2
728 )
729
730 as
731 ddp_partner_access_rec pv_partner_accesses_pvt.partner_access_rec_type;
732 ddindx binary_integer; indx binary_integer;
733 begin
734
735 -- copy data to the local IN or IN-OUT args, if any
736
737
738
739
740
741 ddp_partner_access_rec.partner_access_id := p5_a0;
742 ddp_partner_access_rec.partner_id := p5_a1;
743 ddp_partner_access_rec.resource_id := p5_a2;
744 ddp_partner_access_rec.keep_flag := p5_a3;
745 ddp_partner_access_rec.created_by_tap_flag := p5_a4;
746 ddp_partner_access_rec.access_type := p5_a5;
747 ddp_partner_access_rec.vad_partner_id := p5_a6;
748 ddp_partner_access_rec.last_update_date := p5_a7;
749 ddp_partner_access_rec.last_updated_by := p5_a8;
750 ddp_partner_access_rec.creation_date := p5_a9;
751 ddp_partner_access_rec.created_by := p5_a10;
752 ddp_partner_access_rec.last_update_login := p5_a11;
753 ddp_partner_access_rec.object_version_number := p5_a12;
754 ddp_partner_access_rec.request_id := p5_a13;
755 ddp_partner_access_rec.program_application_id := p5_a14;
756 ddp_partner_access_rec.program_id := p5_a15;
757 ddp_partner_access_rec.program_update_date := p5_a16;
758 ddp_partner_access_rec.attribute_category := p5_a17;
759 ddp_partner_access_rec.attribute1 := p5_a18;
760 ddp_partner_access_rec.attribute2 := p5_a19;
761 ddp_partner_access_rec.attribute3 := p5_a20;
762 ddp_partner_access_rec.attribute4 := p5_a21;
763 ddp_partner_access_rec.attribute5 := p5_a22;
764 ddp_partner_access_rec.attribute6 := p5_a23;
765 ddp_partner_access_rec.attribute7 := p5_a24;
766 ddp_partner_access_rec.attribute8 := p5_a25;
767 ddp_partner_access_rec.attribute9 := p5_a26;
768 ddp_partner_access_rec.attribute10 := p5_a27;
769 ddp_partner_access_rec.attribute11 := p5_a28;
770 ddp_partner_access_rec.attribute12 := p5_a29;
771 ddp_partner_access_rec.attribute13 := p5_a30;
772 ddp_partner_access_rec.attribute14 := p5_a31;
773 ddp_partner_access_rec.attribute15 := p5_a32;
774
775 -- here's the delegated call to the old PL/SQL routine
776 pv_partner_accesses_pvt.validate_partner_access_rec(p_api_version_number,
777 p_init_msg_list,
778 x_return_status,
779 x_msg_count,
780 x_msg_data,
781 ddp_partner_access_rec);
782
783 -- copy data back from the local variables to OUT or IN-OUT args, if any
784
785
786
787
788
789 end;
790
791 end pv_partner_accesses_pvt_w;