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