[Home] [Help]
PACKAGE BODY: APPS.PV_PG_ENRL_REQUESTS_PVT_W
Source
1 package body pv_pg_enrl_requests_pvt_w as
2 /* $Header: pvxwperb.pls 120.1 2005/10/24 08:31 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_enrl_requests_pvt.enrl_request_tbl_type, a0 JTF_NUMBER_TABLE
14 , a1 JTF_NUMBER_TABLE
15 , a2 JTF_NUMBER_TABLE
16 , a3 JTF_NUMBER_TABLE
17 , a4 JTF_NUMBER_TABLE
18 , a5 JTF_NUMBER_TABLE
19 , a6 JTF_VARCHAR2_TABLE_100
20 , a7 JTF_VARCHAR2_TABLE_100
21 , a8 JTF_DATE_TABLE
22 , a9 JTF_NUMBER_TABLE
23 , a10 JTF_VARCHAR2_TABLE_100
24 , a11 JTF_NUMBER_TABLE
25 , a12 JTF_DATE_TABLE
26 , a13 JTF_DATE_TABLE
27 , a14 JTF_VARCHAR2_TABLE_100
28 , a15 JTF_VARCHAR2_TABLE_100
29 , a16 JTF_VARCHAR2_TABLE_100
30 , a17 JTF_NUMBER_TABLE
31 , a18 JTF_DATE_TABLE
32 , a19 JTF_NUMBER_TABLE
33 , a20 JTF_DATE_TABLE
34 , a21 JTF_NUMBER_TABLE
35 , a22 JTF_NUMBER_TABLE
36 , a23 JTF_NUMBER_TABLE
37 , a24 JTF_NUMBER_TABLE
38 , a25 JTF_VARCHAR2_TABLE_100
39 , a26 JTF_NUMBER_TABLE
40 , a27 JTF_DATE_TABLE
41 , a28 JTF_NUMBER_TABLE
42 , a29 JTF_VARCHAR2_TABLE_300
43 , a30 JTF_VARCHAR2_TABLE_300
44 , a31 JTF_VARCHAR2_TABLE_300
45 , a32 JTF_VARCHAR2_TABLE_300
46 , a33 JTF_VARCHAR2_TABLE_300
47 , a34 JTF_VARCHAR2_TABLE_300
48 , a35 JTF_VARCHAR2_TABLE_300
49 , a36 JTF_VARCHAR2_TABLE_300
50 , a37 JTF_VARCHAR2_TABLE_300
51 , a38 JTF_VARCHAR2_TABLE_300
52 , a39 JTF_VARCHAR2_TABLE_300
53 , a40 JTF_VARCHAR2_TABLE_300
54 , a41 JTF_VARCHAR2_TABLE_300
55 , a42 JTF_VARCHAR2_TABLE_300
56 , a43 JTF_VARCHAR2_TABLE_300
57 ) as
58 ddindx binary_integer; indx binary_integer;
59 begin
60 if a0 is not null and a0.count > 0 then
61 if a0.count > 0 then
62 indx := a0.first;
63 ddindx := 1;
64 while true loop
65 t(ddindx).enrl_request_id := a0(indx);
66 t(ddindx).object_version_number := a1(indx);
67 t(ddindx).program_id := a2(indx);
68 t(ddindx).partner_id := a3(indx);
69 t(ddindx).custom_setup_id := a4(indx);
70 t(ddindx).requestor_resource_id := a5(indx);
71 t(ddindx).request_status_code := a6(indx);
72 t(ddindx).enrollment_type_code := a7(indx);
73 t(ddindx).request_submission_date := rosetta_g_miss_date_in_map(a8(indx));
74 t(ddindx).contract_id := a9(indx);
75 t(ddindx).request_initiated_by_code := a10(indx);
76 t(ddindx).invite_header_id := a11(indx);
77 t(ddindx).tentative_start_date := rosetta_g_miss_date_in_map(a12(indx));
78 t(ddindx).tentative_end_date := rosetta_g_miss_date_in_map(a13(indx));
79 t(ddindx).contract_status_code := a14(indx);
80 t(ddindx).payment_status_code := a15(indx);
81 t(ddindx).score_result_code := a16(indx);
82 t(ddindx).created_by := a17(indx);
83 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a18(indx));
84 t(ddindx).last_updated_by := a19(indx);
85 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a20(indx));
86 t(ddindx).last_update_login := a21(indx);
87 t(ddindx).order_header_id := a22(indx);
88 t(ddindx).membership_fee := a23(indx);
89 t(ddindx).dependent_program_id := a24(indx);
90 t(ddindx).trans_curr_code := a25(indx);
91 t(ddindx).contract_binding_contact_id := a26(indx);
92 t(ddindx).contract_signed_date := rosetta_g_miss_date_in_map(a27(indx));
93 t(ddindx).trxn_extension_id := a28(indx);
94 t(ddindx).attribute1 := a29(indx);
95 t(ddindx).attribute2 := a30(indx);
96 t(ddindx).attribute3 := a31(indx);
97 t(ddindx).attribute4 := a32(indx);
98 t(ddindx).attribute5 := a33(indx);
99 t(ddindx).attribute6 := a34(indx);
100 t(ddindx).attribute7 := a35(indx);
101 t(ddindx).attribute8 := a36(indx);
102 t(ddindx).attribute9 := a37(indx);
103 t(ddindx).attribute10 := a38(indx);
104 t(ddindx).attribute11 := a39(indx);
105 t(ddindx).attribute12 := a40(indx);
106 t(ddindx).attribute13 := a41(indx);
107 t(ddindx).attribute14 := a42(indx);
108 t(ddindx).attribute15 := a43(indx);
109 ddindx := ddindx+1;
110 if a0.last =indx
111 then exit;
112 end if;
113 indx := a0.next(indx);
114 end loop;
115 end if;
116 end if;
117 end rosetta_table_copy_in_p2;
118 procedure rosetta_table_copy_out_p2(t pv_pg_enrl_requests_pvt.enrl_request_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
119 , a1 out nocopy JTF_NUMBER_TABLE
120 , a2 out nocopy JTF_NUMBER_TABLE
121 , a3 out nocopy JTF_NUMBER_TABLE
122 , a4 out nocopy JTF_NUMBER_TABLE
123 , a5 out nocopy JTF_NUMBER_TABLE
124 , a6 out nocopy JTF_VARCHAR2_TABLE_100
125 , a7 out nocopy JTF_VARCHAR2_TABLE_100
126 , a8 out nocopy JTF_DATE_TABLE
127 , a9 out nocopy JTF_NUMBER_TABLE
128 , a10 out nocopy JTF_VARCHAR2_TABLE_100
129 , a11 out nocopy JTF_NUMBER_TABLE
130 , a12 out nocopy JTF_DATE_TABLE
131 , a13 out nocopy JTF_DATE_TABLE
132 , a14 out nocopy JTF_VARCHAR2_TABLE_100
133 , a15 out nocopy JTF_VARCHAR2_TABLE_100
134 , a16 out nocopy JTF_VARCHAR2_TABLE_100
135 , a17 out nocopy JTF_NUMBER_TABLE
136 , a18 out nocopy JTF_DATE_TABLE
137 , a19 out nocopy JTF_NUMBER_TABLE
138 , a20 out nocopy JTF_DATE_TABLE
139 , a21 out nocopy JTF_NUMBER_TABLE
140 , a22 out nocopy JTF_NUMBER_TABLE
141 , a23 out nocopy JTF_NUMBER_TABLE
142 , a24 out nocopy JTF_NUMBER_TABLE
143 , a25 out nocopy JTF_VARCHAR2_TABLE_100
144 , a26 out nocopy JTF_NUMBER_TABLE
145 , a27 out nocopy JTF_DATE_TABLE
146 , a28 out nocopy JTF_NUMBER_TABLE
147 , a29 out nocopy JTF_VARCHAR2_TABLE_300
148 , a30 out nocopy JTF_VARCHAR2_TABLE_300
149 , a31 out nocopy JTF_VARCHAR2_TABLE_300
150 , a32 out nocopy JTF_VARCHAR2_TABLE_300
151 , a33 out nocopy JTF_VARCHAR2_TABLE_300
152 , a34 out nocopy JTF_VARCHAR2_TABLE_300
153 , a35 out nocopy JTF_VARCHAR2_TABLE_300
154 , a36 out nocopy JTF_VARCHAR2_TABLE_300
155 , a37 out nocopy JTF_VARCHAR2_TABLE_300
156 , a38 out nocopy JTF_VARCHAR2_TABLE_300
157 , a39 out nocopy JTF_VARCHAR2_TABLE_300
158 , a40 out nocopy JTF_VARCHAR2_TABLE_300
159 , a41 out nocopy JTF_VARCHAR2_TABLE_300
160 , a42 out nocopy JTF_VARCHAR2_TABLE_300
161 , a43 out nocopy JTF_VARCHAR2_TABLE_300
162 ) as
163 ddindx binary_integer; indx binary_integer;
164 begin
165 if t is null or t.count = 0 then
166 a0 := JTF_NUMBER_TABLE();
167 a1 := JTF_NUMBER_TABLE();
168 a2 := JTF_NUMBER_TABLE();
169 a3 := JTF_NUMBER_TABLE();
170 a4 := JTF_NUMBER_TABLE();
171 a5 := JTF_NUMBER_TABLE();
172 a6 := JTF_VARCHAR2_TABLE_100();
173 a7 := JTF_VARCHAR2_TABLE_100();
174 a8 := JTF_DATE_TABLE();
175 a9 := JTF_NUMBER_TABLE();
176 a10 := JTF_VARCHAR2_TABLE_100();
177 a11 := JTF_NUMBER_TABLE();
178 a12 := JTF_DATE_TABLE();
179 a13 := JTF_DATE_TABLE();
180 a14 := JTF_VARCHAR2_TABLE_100();
181 a15 := JTF_VARCHAR2_TABLE_100();
182 a16 := JTF_VARCHAR2_TABLE_100();
183 a17 := JTF_NUMBER_TABLE();
184 a18 := JTF_DATE_TABLE();
185 a19 := JTF_NUMBER_TABLE();
186 a20 := JTF_DATE_TABLE();
187 a21 := JTF_NUMBER_TABLE();
188 a22 := JTF_NUMBER_TABLE();
189 a23 := JTF_NUMBER_TABLE();
190 a24 := JTF_NUMBER_TABLE();
191 a25 := JTF_VARCHAR2_TABLE_100();
192 a26 := JTF_NUMBER_TABLE();
193 a27 := JTF_DATE_TABLE();
194 a28 := JTF_NUMBER_TABLE();
195 a29 := JTF_VARCHAR2_TABLE_300();
196 a30 := JTF_VARCHAR2_TABLE_300();
197 a31 := JTF_VARCHAR2_TABLE_300();
198 a32 := JTF_VARCHAR2_TABLE_300();
199 a33 := JTF_VARCHAR2_TABLE_300();
200 a34 := JTF_VARCHAR2_TABLE_300();
201 a35 := JTF_VARCHAR2_TABLE_300();
202 a36 := JTF_VARCHAR2_TABLE_300();
203 a37 := JTF_VARCHAR2_TABLE_300();
204 a38 := JTF_VARCHAR2_TABLE_300();
205 a39 := JTF_VARCHAR2_TABLE_300();
206 a40 := JTF_VARCHAR2_TABLE_300();
207 a41 := JTF_VARCHAR2_TABLE_300();
208 a42 := JTF_VARCHAR2_TABLE_300();
209 a43 := JTF_VARCHAR2_TABLE_300();
210 else
211 a0 := JTF_NUMBER_TABLE();
212 a1 := JTF_NUMBER_TABLE();
213 a2 := JTF_NUMBER_TABLE();
214 a3 := JTF_NUMBER_TABLE();
215 a4 := JTF_NUMBER_TABLE();
216 a5 := JTF_NUMBER_TABLE();
217 a6 := JTF_VARCHAR2_TABLE_100();
218 a7 := JTF_VARCHAR2_TABLE_100();
219 a8 := JTF_DATE_TABLE();
220 a9 := JTF_NUMBER_TABLE();
221 a10 := JTF_VARCHAR2_TABLE_100();
222 a11 := JTF_NUMBER_TABLE();
223 a12 := JTF_DATE_TABLE();
224 a13 := JTF_DATE_TABLE();
225 a14 := JTF_VARCHAR2_TABLE_100();
226 a15 := JTF_VARCHAR2_TABLE_100();
227 a16 := JTF_VARCHAR2_TABLE_100();
228 a17 := JTF_NUMBER_TABLE();
229 a18 := JTF_DATE_TABLE();
230 a19 := JTF_NUMBER_TABLE();
231 a20 := JTF_DATE_TABLE();
232 a21 := JTF_NUMBER_TABLE();
233 a22 := JTF_NUMBER_TABLE();
234 a23 := JTF_NUMBER_TABLE();
235 a24 := JTF_NUMBER_TABLE();
236 a25 := JTF_VARCHAR2_TABLE_100();
237 a26 := JTF_NUMBER_TABLE();
238 a27 := JTF_DATE_TABLE();
239 a28 := JTF_NUMBER_TABLE();
240 a29 := JTF_VARCHAR2_TABLE_300();
241 a30 := JTF_VARCHAR2_TABLE_300();
242 a31 := JTF_VARCHAR2_TABLE_300();
243 a32 := JTF_VARCHAR2_TABLE_300();
244 a33 := JTF_VARCHAR2_TABLE_300();
245 a34 := JTF_VARCHAR2_TABLE_300();
246 a35 := JTF_VARCHAR2_TABLE_300();
247 a36 := JTF_VARCHAR2_TABLE_300();
248 a37 := JTF_VARCHAR2_TABLE_300();
249 a38 := JTF_VARCHAR2_TABLE_300();
250 a39 := JTF_VARCHAR2_TABLE_300();
251 a40 := JTF_VARCHAR2_TABLE_300();
252 a41 := JTF_VARCHAR2_TABLE_300();
253 a42 := JTF_VARCHAR2_TABLE_300();
254 a43 := JTF_VARCHAR2_TABLE_300();
255 if t.count > 0 then
256 a0.extend(t.count);
257 a1.extend(t.count);
258 a2.extend(t.count);
259 a3.extend(t.count);
260 a4.extend(t.count);
261 a5.extend(t.count);
262 a6.extend(t.count);
263 a7.extend(t.count);
264 a8.extend(t.count);
265 a9.extend(t.count);
266 a10.extend(t.count);
267 a11.extend(t.count);
268 a12.extend(t.count);
269 a13.extend(t.count);
270 a14.extend(t.count);
271 a15.extend(t.count);
272 a16.extend(t.count);
273 a17.extend(t.count);
274 a18.extend(t.count);
275 a19.extend(t.count);
276 a20.extend(t.count);
277 a21.extend(t.count);
278 a22.extend(t.count);
279 a23.extend(t.count);
280 a24.extend(t.count);
281 a25.extend(t.count);
282 a26.extend(t.count);
283 a27.extend(t.count);
284 a28.extend(t.count);
285 a29.extend(t.count);
286 a30.extend(t.count);
287 a31.extend(t.count);
288 a32.extend(t.count);
289 a33.extend(t.count);
290 a34.extend(t.count);
291 a35.extend(t.count);
292 a36.extend(t.count);
293 a37.extend(t.count);
294 a38.extend(t.count);
295 a39.extend(t.count);
296 a40.extend(t.count);
297 a41.extend(t.count);
298 a42.extend(t.count);
299 a43.extend(t.count);
300 ddindx := t.first;
301 indx := 1;
302 while true loop
303 a0(indx) := t(ddindx).enrl_request_id;
304 a1(indx) := t(ddindx).object_version_number;
305 a2(indx) := t(ddindx).program_id;
306 a3(indx) := t(ddindx).partner_id;
307 a4(indx) := t(ddindx).custom_setup_id;
308 a5(indx) := t(ddindx).requestor_resource_id;
309 a6(indx) := t(ddindx).request_status_code;
310 a7(indx) := t(ddindx).enrollment_type_code;
311 a8(indx) := t(ddindx).request_submission_date;
312 a9(indx) := t(ddindx).contract_id;
313 a10(indx) := t(ddindx).request_initiated_by_code;
314 a11(indx) := t(ddindx).invite_header_id;
315 a12(indx) := t(ddindx).tentative_start_date;
316 a13(indx) := t(ddindx).tentative_end_date;
317 a14(indx) := t(ddindx).contract_status_code;
318 a15(indx) := t(ddindx).payment_status_code;
319 a16(indx) := t(ddindx).score_result_code;
320 a17(indx) := t(ddindx).created_by;
321 a18(indx) := t(ddindx).creation_date;
322 a19(indx) := t(ddindx).last_updated_by;
323 a20(indx) := t(ddindx).last_update_date;
324 a21(indx) := t(ddindx).last_update_login;
325 a22(indx) := t(ddindx).order_header_id;
326 a23(indx) := t(ddindx).membership_fee;
327 a24(indx) := t(ddindx).dependent_program_id;
328 a25(indx) := t(ddindx).trans_curr_code;
329 a26(indx) := t(ddindx).contract_binding_contact_id;
330 a27(indx) := t(ddindx).contract_signed_date;
331 a28(indx) := t(ddindx).trxn_extension_id;
332 a29(indx) := t(ddindx).attribute1;
333 a30(indx) := t(ddindx).attribute2;
334 a31(indx) := t(ddindx).attribute3;
335 a32(indx) := t(ddindx).attribute4;
336 a33(indx) := t(ddindx).attribute5;
337 a34(indx) := t(ddindx).attribute6;
338 a35(indx) := t(ddindx).attribute7;
339 a36(indx) := t(ddindx).attribute8;
340 a37(indx) := t(ddindx).attribute9;
341 a38(indx) := t(ddindx).attribute10;
342 a39(indx) := t(ddindx).attribute11;
343 a40(indx) := t(ddindx).attribute12;
344 a41(indx) := t(ddindx).attribute13;
345 a42(indx) := t(ddindx).attribute14;
346 a43(indx) := t(ddindx).attribute15;
347 indx := indx+1;
348 if t.last =ddindx
349 then exit;
350 end if;
351 ddindx := t.next(ddindx);
352 end loop;
353 end if;
354 end if;
355 end rosetta_table_copy_out_p2;
356
357 procedure create_pg_enrl_requests(p_api_version_number NUMBER
358 , p_init_msg_list VARCHAR2
359 , p_commit VARCHAR2
360 , p_validation_level NUMBER
361 , x_return_status out nocopy VARCHAR2
362 , x_msg_count out nocopy NUMBER
363 , x_msg_data out nocopy VARCHAR2
364 , p7_a0 NUMBER
365 , p7_a1 NUMBER
366 , p7_a2 NUMBER
367 , p7_a3 NUMBER
368 , p7_a4 NUMBER
369 , p7_a5 NUMBER
370 , p7_a6 VARCHAR2
371 , p7_a7 VARCHAR2
372 , p7_a8 DATE
373 , p7_a9 NUMBER
374 , p7_a10 VARCHAR2
375 , p7_a11 NUMBER
376 , p7_a12 DATE
377 , p7_a13 DATE
378 , p7_a14 VARCHAR2
379 , p7_a15 VARCHAR2
380 , p7_a16 VARCHAR2
381 , p7_a17 NUMBER
382 , p7_a18 DATE
383 , p7_a19 NUMBER
384 , p7_a20 DATE
385 , p7_a21 NUMBER
386 , p7_a22 NUMBER
387 , p7_a23 NUMBER
388 , p7_a24 NUMBER
389 , p7_a25 VARCHAR2
390 , p7_a26 NUMBER
391 , p7_a27 DATE
392 , p7_a28 NUMBER
393 , p7_a29 VARCHAR2
394 , p7_a30 VARCHAR2
395 , p7_a31 VARCHAR2
396 , p7_a32 VARCHAR2
397 , p7_a33 VARCHAR2
398 , p7_a34 VARCHAR2
399 , p7_a35 VARCHAR2
400 , p7_a36 VARCHAR2
401 , p7_a37 VARCHAR2
402 , p7_a38 VARCHAR2
403 , p7_a39 VARCHAR2
404 , p7_a40 VARCHAR2
405 , p7_a41 VARCHAR2
406 , p7_a42 VARCHAR2
407 , p7_a43 VARCHAR2
408 , x_enrl_request_id out nocopy NUMBER
409 )
410
411 as
412 ddp_enrl_request_rec pv_pg_enrl_requests_pvt.enrl_request_rec_type;
413 ddindx binary_integer; indx binary_integer;
414 begin
415
416 -- copy data to the local IN or IN-OUT args, if any
417
418
419
420
421
422
423
424 ddp_enrl_request_rec.enrl_request_id := p7_a0;
425 ddp_enrl_request_rec.object_version_number := p7_a1;
426 ddp_enrl_request_rec.program_id := p7_a2;
427 ddp_enrl_request_rec.partner_id := p7_a3;
428 ddp_enrl_request_rec.custom_setup_id := p7_a4;
429 ddp_enrl_request_rec.requestor_resource_id := p7_a5;
430 ddp_enrl_request_rec.request_status_code := p7_a6;
431 ddp_enrl_request_rec.enrollment_type_code := p7_a7;
432 ddp_enrl_request_rec.request_submission_date := rosetta_g_miss_date_in_map(p7_a8);
433 ddp_enrl_request_rec.contract_id := p7_a9;
434 ddp_enrl_request_rec.request_initiated_by_code := p7_a10;
435 ddp_enrl_request_rec.invite_header_id := p7_a11;
436 ddp_enrl_request_rec.tentative_start_date := rosetta_g_miss_date_in_map(p7_a12);
437 ddp_enrl_request_rec.tentative_end_date := rosetta_g_miss_date_in_map(p7_a13);
438 ddp_enrl_request_rec.contract_status_code := p7_a14;
439 ddp_enrl_request_rec.payment_status_code := p7_a15;
440 ddp_enrl_request_rec.score_result_code := p7_a16;
441 ddp_enrl_request_rec.created_by := p7_a17;
442 ddp_enrl_request_rec.creation_date := rosetta_g_miss_date_in_map(p7_a18);
443 ddp_enrl_request_rec.last_updated_by := p7_a19;
444 ddp_enrl_request_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a20);
445 ddp_enrl_request_rec.last_update_login := p7_a21;
446 ddp_enrl_request_rec.order_header_id := p7_a22;
447 ddp_enrl_request_rec.membership_fee := p7_a23;
448 ddp_enrl_request_rec.dependent_program_id := p7_a24;
449 ddp_enrl_request_rec.trans_curr_code := p7_a25;
450 ddp_enrl_request_rec.contract_binding_contact_id := p7_a26;
451 ddp_enrl_request_rec.contract_signed_date := rosetta_g_miss_date_in_map(p7_a27);
452 ddp_enrl_request_rec.trxn_extension_id := p7_a28;
453 ddp_enrl_request_rec.attribute1 := p7_a29;
454 ddp_enrl_request_rec.attribute2 := p7_a30;
455 ddp_enrl_request_rec.attribute3 := p7_a31;
456 ddp_enrl_request_rec.attribute4 := p7_a32;
457 ddp_enrl_request_rec.attribute5 := p7_a33;
458 ddp_enrl_request_rec.attribute6 := p7_a34;
459 ddp_enrl_request_rec.attribute7 := p7_a35;
460 ddp_enrl_request_rec.attribute8 := p7_a36;
461 ddp_enrl_request_rec.attribute9 := p7_a37;
462 ddp_enrl_request_rec.attribute10 := p7_a38;
463 ddp_enrl_request_rec.attribute11 := p7_a39;
464 ddp_enrl_request_rec.attribute12 := p7_a40;
465 ddp_enrl_request_rec.attribute13 := p7_a41;
466 ddp_enrl_request_rec.attribute14 := p7_a42;
467 ddp_enrl_request_rec.attribute15 := p7_a43;
468
469
470 -- here's the delegated call to the old PL/SQL routine
471 pv_pg_enrl_requests_pvt.create_pg_enrl_requests(p_api_version_number,
472 p_init_msg_list,
473 p_commit,
474 p_validation_level,
475 x_return_status,
476 x_msg_count,
477 x_msg_data,
478 ddp_enrl_request_rec,
479 x_enrl_request_id);
480
481 -- copy data back from the local variables to OUT or IN-OUT args, if any
482
483
484
485
486
487
488
489
490 end;
491
492 procedure update_pg_enrl_requests(p_api_version_number NUMBER
493 , p_init_msg_list VARCHAR2
494 , p_commit VARCHAR2
495 , p_validation_level NUMBER
496 , x_return_status out nocopy VARCHAR2
497 , x_msg_count out nocopy NUMBER
498 , x_msg_data out nocopy VARCHAR2
499 , p7_a0 NUMBER
500 , p7_a1 NUMBER
501 , p7_a2 NUMBER
502 , p7_a3 NUMBER
503 , p7_a4 NUMBER
504 , p7_a5 NUMBER
505 , p7_a6 VARCHAR2
506 , p7_a7 VARCHAR2
507 , p7_a8 DATE
508 , p7_a9 NUMBER
509 , p7_a10 VARCHAR2
510 , p7_a11 NUMBER
511 , p7_a12 DATE
512 , p7_a13 DATE
513 , p7_a14 VARCHAR2
514 , p7_a15 VARCHAR2
515 , p7_a16 VARCHAR2
516 , p7_a17 NUMBER
517 , p7_a18 DATE
518 , p7_a19 NUMBER
519 , p7_a20 DATE
520 , p7_a21 NUMBER
521 , p7_a22 NUMBER
522 , p7_a23 NUMBER
523 , p7_a24 NUMBER
524 , p7_a25 VARCHAR2
525 , p7_a26 NUMBER
526 , p7_a27 DATE
527 , p7_a28 NUMBER
528 , p7_a29 VARCHAR2
529 , p7_a30 VARCHAR2
530 , p7_a31 VARCHAR2
531 , p7_a32 VARCHAR2
532 , p7_a33 VARCHAR2
533 , p7_a34 VARCHAR2
534 , p7_a35 VARCHAR2
535 , p7_a36 VARCHAR2
536 , p7_a37 VARCHAR2
537 , p7_a38 VARCHAR2
538 , p7_a39 VARCHAR2
539 , p7_a40 VARCHAR2
540 , p7_a41 VARCHAR2
541 , p7_a42 VARCHAR2
542 , p7_a43 VARCHAR2
543 )
544
545 as
546 ddp_enrl_request_rec pv_pg_enrl_requests_pvt.enrl_request_rec_type;
547 ddindx binary_integer; indx binary_integer;
548 begin
549
550 -- copy data to the local IN or IN-OUT args, if any
551
552
553
554
555
556
557
558 ddp_enrl_request_rec.enrl_request_id := p7_a0;
559 ddp_enrl_request_rec.object_version_number := p7_a1;
560 ddp_enrl_request_rec.program_id := p7_a2;
561 ddp_enrl_request_rec.partner_id := p7_a3;
562 ddp_enrl_request_rec.custom_setup_id := p7_a4;
563 ddp_enrl_request_rec.requestor_resource_id := p7_a5;
564 ddp_enrl_request_rec.request_status_code := p7_a6;
565 ddp_enrl_request_rec.enrollment_type_code := p7_a7;
566 ddp_enrl_request_rec.request_submission_date := rosetta_g_miss_date_in_map(p7_a8);
567 ddp_enrl_request_rec.contract_id := p7_a9;
568 ddp_enrl_request_rec.request_initiated_by_code := p7_a10;
569 ddp_enrl_request_rec.invite_header_id := p7_a11;
570 ddp_enrl_request_rec.tentative_start_date := rosetta_g_miss_date_in_map(p7_a12);
571 ddp_enrl_request_rec.tentative_end_date := rosetta_g_miss_date_in_map(p7_a13);
572 ddp_enrl_request_rec.contract_status_code := p7_a14;
573 ddp_enrl_request_rec.payment_status_code := p7_a15;
574 ddp_enrl_request_rec.score_result_code := p7_a16;
575 ddp_enrl_request_rec.created_by := p7_a17;
576 ddp_enrl_request_rec.creation_date := rosetta_g_miss_date_in_map(p7_a18);
577 ddp_enrl_request_rec.last_updated_by := p7_a19;
578 ddp_enrl_request_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a20);
579 ddp_enrl_request_rec.last_update_login := p7_a21;
580 ddp_enrl_request_rec.order_header_id := p7_a22;
581 ddp_enrl_request_rec.membership_fee := p7_a23;
582 ddp_enrl_request_rec.dependent_program_id := p7_a24;
583 ddp_enrl_request_rec.trans_curr_code := p7_a25;
584 ddp_enrl_request_rec.contract_binding_contact_id := p7_a26;
585 ddp_enrl_request_rec.contract_signed_date := rosetta_g_miss_date_in_map(p7_a27);
586 ddp_enrl_request_rec.trxn_extension_id := p7_a28;
587 ddp_enrl_request_rec.attribute1 := p7_a29;
588 ddp_enrl_request_rec.attribute2 := p7_a30;
589 ddp_enrl_request_rec.attribute3 := p7_a31;
590 ddp_enrl_request_rec.attribute4 := p7_a32;
591 ddp_enrl_request_rec.attribute5 := p7_a33;
592 ddp_enrl_request_rec.attribute6 := p7_a34;
593 ddp_enrl_request_rec.attribute7 := p7_a35;
594 ddp_enrl_request_rec.attribute8 := p7_a36;
595 ddp_enrl_request_rec.attribute9 := p7_a37;
596 ddp_enrl_request_rec.attribute10 := p7_a38;
597 ddp_enrl_request_rec.attribute11 := p7_a39;
598 ddp_enrl_request_rec.attribute12 := p7_a40;
599 ddp_enrl_request_rec.attribute13 := p7_a41;
600 ddp_enrl_request_rec.attribute14 := p7_a42;
601 ddp_enrl_request_rec.attribute15 := p7_a43;
602
603 -- here's the delegated call to the old PL/SQL routine
604 pv_pg_enrl_requests_pvt.update_pg_enrl_requests(p_api_version_number,
605 p_init_msg_list,
606 p_commit,
607 p_validation_level,
608 x_return_status,
609 x_msg_count,
610 x_msg_data,
611 ddp_enrl_request_rec);
612
613 -- copy data back from the local variables to OUT or IN-OUT args, if any
614
615
616
617
618
619
620
621 end;
622
623 procedure validate_pg_enrl_requests(p_api_version_number NUMBER
624 , p_init_msg_list VARCHAR2
625 , p_validation_level NUMBER
626 , p3_a0 NUMBER
627 , p3_a1 NUMBER
628 , p3_a2 NUMBER
629 , p3_a3 NUMBER
630 , p3_a4 NUMBER
631 , p3_a5 NUMBER
632 , p3_a6 VARCHAR2
633 , p3_a7 VARCHAR2
634 , p3_a8 DATE
635 , p3_a9 NUMBER
636 , p3_a10 VARCHAR2
637 , p3_a11 NUMBER
638 , p3_a12 DATE
639 , p3_a13 DATE
640 , p3_a14 VARCHAR2
641 , p3_a15 VARCHAR2
642 , p3_a16 VARCHAR2
643 , p3_a17 NUMBER
644 , p3_a18 DATE
645 , p3_a19 NUMBER
646 , p3_a20 DATE
647 , p3_a21 NUMBER
648 , p3_a22 NUMBER
649 , p3_a23 NUMBER
650 , p3_a24 NUMBER
651 , p3_a25 VARCHAR2
652 , p3_a26 NUMBER
653 , p3_a27 DATE
654 , p3_a28 NUMBER
655 , p3_a29 VARCHAR2
656 , p3_a30 VARCHAR2
657 , p3_a31 VARCHAR2
658 , p3_a32 VARCHAR2
659 , p3_a33 VARCHAR2
660 , p3_a34 VARCHAR2
661 , p3_a35 VARCHAR2
662 , p3_a36 VARCHAR2
663 , p3_a37 VARCHAR2
664 , p3_a38 VARCHAR2
665 , p3_a39 VARCHAR2
666 , p3_a40 VARCHAR2
667 , p3_a41 VARCHAR2
668 , p3_a42 VARCHAR2
669 , p3_a43 VARCHAR2
670 , p_validation_mode VARCHAR2
671 , x_return_status out nocopy VARCHAR2
672 , x_msg_count out nocopy NUMBER
673 , x_msg_data out nocopy VARCHAR2
674 )
675
676 as
677 ddp_enrl_request_rec pv_pg_enrl_requests_pvt.enrl_request_rec_type;
678 ddindx binary_integer; indx binary_integer;
679 begin
680
681 -- copy data to the local IN or IN-OUT args, if any
682
683
684
685 ddp_enrl_request_rec.enrl_request_id := p3_a0;
686 ddp_enrl_request_rec.object_version_number := p3_a1;
687 ddp_enrl_request_rec.program_id := p3_a2;
688 ddp_enrl_request_rec.partner_id := p3_a3;
689 ddp_enrl_request_rec.custom_setup_id := p3_a4;
690 ddp_enrl_request_rec.requestor_resource_id := p3_a5;
691 ddp_enrl_request_rec.request_status_code := p3_a6;
692 ddp_enrl_request_rec.enrollment_type_code := p3_a7;
693 ddp_enrl_request_rec.request_submission_date := rosetta_g_miss_date_in_map(p3_a8);
694 ddp_enrl_request_rec.contract_id := p3_a9;
695 ddp_enrl_request_rec.request_initiated_by_code := p3_a10;
696 ddp_enrl_request_rec.invite_header_id := p3_a11;
697 ddp_enrl_request_rec.tentative_start_date := rosetta_g_miss_date_in_map(p3_a12);
698 ddp_enrl_request_rec.tentative_end_date := rosetta_g_miss_date_in_map(p3_a13);
699 ddp_enrl_request_rec.contract_status_code := p3_a14;
700 ddp_enrl_request_rec.payment_status_code := p3_a15;
701 ddp_enrl_request_rec.score_result_code := p3_a16;
702 ddp_enrl_request_rec.created_by := p3_a17;
703 ddp_enrl_request_rec.creation_date := rosetta_g_miss_date_in_map(p3_a18);
704 ddp_enrl_request_rec.last_updated_by := p3_a19;
705 ddp_enrl_request_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a20);
706 ddp_enrl_request_rec.last_update_login := p3_a21;
707 ddp_enrl_request_rec.order_header_id := p3_a22;
708 ddp_enrl_request_rec.membership_fee := p3_a23;
709 ddp_enrl_request_rec.dependent_program_id := p3_a24;
710 ddp_enrl_request_rec.trans_curr_code := p3_a25;
711 ddp_enrl_request_rec.contract_binding_contact_id := p3_a26;
712 ddp_enrl_request_rec.contract_signed_date := rosetta_g_miss_date_in_map(p3_a27);
713 ddp_enrl_request_rec.trxn_extension_id := p3_a28;
714 ddp_enrl_request_rec.attribute1 := p3_a29;
715 ddp_enrl_request_rec.attribute2 := p3_a30;
716 ddp_enrl_request_rec.attribute3 := p3_a31;
717 ddp_enrl_request_rec.attribute4 := p3_a32;
718 ddp_enrl_request_rec.attribute5 := p3_a33;
719 ddp_enrl_request_rec.attribute6 := p3_a34;
720 ddp_enrl_request_rec.attribute7 := p3_a35;
721 ddp_enrl_request_rec.attribute8 := p3_a36;
722 ddp_enrl_request_rec.attribute9 := p3_a37;
723 ddp_enrl_request_rec.attribute10 := p3_a38;
724 ddp_enrl_request_rec.attribute11 := p3_a39;
725 ddp_enrl_request_rec.attribute12 := p3_a40;
726 ddp_enrl_request_rec.attribute13 := p3_a41;
727 ddp_enrl_request_rec.attribute14 := p3_a42;
728 ddp_enrl_request_rec.attribute15 := p3_a43;
729
730
731
732
733
734 -- here's the delegated call to the old PL/SQL routine
735 pv_pg_enrl_requests_pvt.validate_pg_enrl_requests(p_api_version_number,
736 p_init_msg_list,
737 p_validation_level,
738 ddp_enrl_request_rec,
739 p_validation_mode,
740 x_return_status,
741 x_msg_count,
742 x_msg_data);
743
744 -- copy data back from the local variables to OUT or IN-OUT args, if any
745
746
747
748
749
750
751
752 end;
753
754 procedure check_enrl_request_items(p0_a0 NUMBER
755 , p0_a1 NUMBER
756 , p0_a2 NUMBER
757 , p0_a3 NUMBER
758 , p0_a4 NUMBER
759 , p0_a5 NUMBER
760 , p0_a6 VARCHAR2
761 , p0_a7 VARCHAR2
762 , p0_a8 DATE
763 , p0_a9 NUMBER
764 , p0_a10 VARCHAR2
765 , p0_a11 NUMBER
766 , p0_a12 DATE
767 , p0_a13 DATE
768 , p0_a14 VARCHAR2
769 , p0_a15 VARCHAR2
770 , p0_a16 VARCHAR2
771 , p0_a17 NUMBER
772 , p0_a18 DATE
773 , p0_a19 NUMBER
774 , p0_a20 DATE
775 , p0_a21 NUMBER
776 , p0_a22 NUMBER
777 , p0_a23 NUMBER
778 , p0_a24 NUMBER
779 , p0_a25 VARCHAR2
780 , p0_a26 NUMBER
781 , p0_a27 DATE
782 , p0_a28 NUMBER
783 , p0_a29 VARCHAR2
784 , p0_a30 VARCHAR2
785 , p0_a31 VARCHAR2
786 , p0_a32 VARCHAR2
787 , p0_a33 VARCHAR2
788 , p0_a34 VARCHAR2
789 , p0_a35 VARCHAR2
790 , p0_a36 VARCHAR2
791 , p0_a37 VARCHAR2
792 , p0_a38 VARCHAR2
793 , p0_a39 VARCHAR2
794 , p0_a40 VARCHAR2
795 , p0_a41 VARCHAR2
796 , p0_a42 VARCHAR2
797 , p0_a43 VARCHAR2
798 , p_validation_mode VARCHAR2
799 , x_return_status out nocopy VARCHAR2
800 )
801
802 as
803 ddp_enrl_request_rec pv_pg_enrl_requests_pvt.enrl_request_rec_type;
804 ddindx binary_integer; indx binary_integer;
805 begin
806
807 -- copy data to the local IN or IN-OUT args, if any
808 ddp_enrl_request_rec.enrl_request_id := p0_a0;
809 ddp_enrl_request_rec.object_version_number := p0_a1;
810 ddp_enrl_request_rec.program_id := p0_a2;
811 ddp_enrl_request_rec.partner_id := p0_a3;
812 ddp_enrl_request_rec.custom_setup_id := p0_a4;
813 ddp_enrl_request_rec.requestor_resource_id := p0_a5;
814 ddp_enrl_request_rec.request_status_code := p0_a6;
815 ddp_enrl_request_rec.enrollment_type_code := p0_a7;
816 ddp_enrl_request_rec.request_submission_date := rosetta_g_miss_date_in_map(p0_a8);
817 ddp_enrl_request_rec.contract_id := p0_a9;
818 ddp_enrl_request_rec.request_initiated_by_code := p0_a10;
819 ddp_enrl_request_rec.invite_header_id := p0_a11;
820 ddp_enrl_request_rec.tentative_start_date := rosetta_g_miss_date_in_map(p0_a12);
821 ddp_enrl_request_rec.tentative_end_date := rosetta_g_miss_date_in_map(p0_a13);
822 ddp_enrl_request_rec.contract_status_code := p0_a14;
823 ddp_enrl_request_rec.payment_status_code := p0_a15;
824 ddp_enrl_request_rec.score_result_code := p0_a16;
825 ddp_enrl_request_rec.created_by := p0_a17;
826 ddp_enrl_request_rec.creation_date := rosetta_g_miss_date_in_map(p0_a18);
827 ddp_enrl_request_rec.last_updated_by := p0_a19;
828 ddp_enrl_request_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a20);
829 ddp_enrl_request_rec.last_update_login := p0_a21;
830 ddp_enrl_request_rec.order_header_id := p0_a22;
831 ddp_enrl_request_rec.membership_fee := p0_a23;
832 ddp_enrl_request_rec.dependent_program_id := p0_a24;
833 ddp_enrl_request_rec.trans_curr_code := p0_a25;
834 ddp_enrl_request_rec.contract_binding_contact_id := p0_a26;
835 ddp_enrl_request_rec.contract_signed_date := rosetta_g_miss_date_in_map(p0_a27);
836 ddp_enrl_request_rec.trxn_extension_id := p0_a28;
837 ddp_enrl_request_rec.attribute1 := p0_a29;
838 ddp_enrl_request_rec.attribute2 := p0_a30;
839 ddp_enrl_request_rec.attribute3 := p0_a31;
840 ddp_enrl_request_rec.attribute4 := p0_a32;
841 ddp_enrl_request_rec.attribute5 := p0_a33;
842 ddp_enrl_request_rec.attribute6 := p0_a34;
843 ddp_enrl_request_rec.attribute7 := p0_a35;
844 ddp_enrl_request_rec.attribute8 := p0_a36;
845 ddp_enrl_request_rec.attribute9 := p0_a37;
846 ddp_enrl_request_rec.attribute10 := p0_a38;
847 ddp_enrl_request_rec.attribute11 := p0_a39;
848 ddp_enrl_request_rec.attribute12 := p0_a40;
849 ddp_enrl_request_rec.attribute13 := p0_a41;
850 ddp_enrl_request_rec.attribute14 := p0_a42;
851 ddp_enrl_request_rec.attribute15 := p0_a43;
852
853
854
855 -- here's the delegated call to the old PL/SQL routine
856 pv_pg_enrl_requests_pvt.check_enrl_request_items(ddp_enrl_request_rec,
857 p_validation_mode,
858 x_return_status);
859
860 -- copy data back from the local variables to OUT or IN-OUT args, if any
861
862
863 end;
864
865 procedure validate_enrl_request_rec(p_api_version_number NUMBER
866 , p_init_msg_list VARCHAR2
867 , x_return_status out nocopy VARCHAR2
868 , x_msg_count out nocopy NUMBER
869 , x_msg_data out nocopy VARCHAR2
870 , p5_a0 NUMBER
871 , p5_a1 NUMBER
872 , p5_a2 NUMBER
873 , p5_a3 NUMBER
874 , p5_a4 NUMBER
875 , p5_a5 NUMBER
876 , p5_a6 VARCHAR2
877 , p5_a7 VARCHAR2
878 , p5_a8 DATE
879 , p5_a9 NUMBER
880 , p5_a10 VARCHAR2
881 , p5_a11 NUMBER
882 , p5_a12 DATE
883 , p5_a13 DATE
884 , p5_a14 VARCHAR2
885 , p5_a15 VARCHAR2
886 , p5_a16 VARCHAR2
887 , p5_a17 NUMBER
888 , p5_a18 DATE
889 , p5_a19 NUMBER
890 , p5_a20 DATE
891 , p5_a21 NUMBER
892 , p5_a22 NUMBER
893 , p5_a23 NUMBER
894 , p5_a24 NUMBER
895 , p5_a25 VARCHAR2
896 , p5_a26 NUMBER
897 , p5_a27 DATE
898 , p5_a28 NUMBER
899 , p5_a29 VARCHAR2
900 , p5_a30 VARCHAR2
901 , p5_a31 VARCHAR2
902 , p5_a32 VARCHAR2
903 , p5_a33 VARCHAR2
904 , p5_a34 VARCHAR2
905 , p5_a35 VARCHAR2
906 , p5_a36 VARCHAR2
907 , p5_a37 VARCHAR2
908 , p5_a38 VARCHAR2
909 , p5_a39 VARCHAR2
910 , p5_a40 VARCHAR2
911 , p5_a41 VARCHAR2
912 , p5_a42 VARCHAR2
913 , p5_a43 VARCHAR2
914 )
915
916 as
917 ddp_enrl_request_rec pv_pg_enrl_requests_pvt.enrl_request_rec_type;
918 ddindx binary_integer; indx binary_integer;
919 begin
920
921 -- copy data to the local IN or IN-OUT args, if any
922
923
924
925
926
927 ddp_enrl_request_rec.enrl_request_id := p5_a0;
928 ddp_enrl_request_rec.object_version_number := p5_a1;
929 ddp_enrl_request_rec.program_id := p5_a2;
930 ddp_enrl_request_rec.partner_id := p5_a3;
931 ddp_enrl_request_rec.custom_setup_id := p5_a4;
932 ddp_enrl_request_rec.requestor_resource_id := p5_a5;
933 ddp_enrl_request_rec.request_status_code := p5_a6;
934 ddp_enrl_request_rec.enrollment_type_code := p5_a7;
935 ddp_enrl_request_rec.request_submission_date := rosetta_g_miss_date_in_map(p5_a8);
936 ddp_enrl_request_rec.contract_id := p5_a9;
937 ddp_enrl_request_rec.request_initiated_by_code := p5_a10;
938 ddp_enrl_request_rec.invite_header_id := p5_a11;
939 ddp_enrl_request_rec.tentative_start_date := rosetta_g_miss_date_in_map(p5_a12);
940 ddp_enrl_request_rec.tentative_end_date := rosetta_g_miss_date_in_map(p5_a13);
941 ddp_enrl_request_rec.contract_status_code := p5_a14;
942 ddp_enrl_request_rec.payment_status_code := p5_a15;
943 ddp_enrl_request_rec.score_result_code := p5_a16;
944 ddp_enrl_request_rec.created_by := p5_a17;
945 ddp_enrl_request_rec.creation_date := rosetta_g_miss_date_in_map(p5_a18);
946 ddp_enrl_request_rec.last_updated_by := p5_a19;
947 ddp_enrl_request_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a20);
948 ddp_enrl_request_rec.last_update_login := p5_a21;
949 ddp_enrl_request_rec.order_header_id := p5_a22;
950 ddp_enrl_request_rec.membership_fee := p5_a23;
951 ddp_enrl_request_rec.dependent_program_id := p5_a24;
952 ddp_enrl_request_rec.trans_curr_code := p5_a25;
953 ddp_enrl_request_rec.contract_binding_contact_id := p5_a26;
954 ddp_enrl_request_rec.contract_signed_date := rosetta_g_miss_date_in_map(p5_a27);
955 ddp_enrl_request_rec.trxn_extension_id := p5_a28;
956 ddp_enrl_request_rec.attribute1 := p5_a29;
957 ddp_enrl_request_rec.attribute2 := p5_a30;
958 ddp_enrl_request_rec.attribute3 := p5_a31;
959 ddp_enrl_request_rec.attribute4 := p5_a32;
960 ddp_enrl_request_rec.attribute5 := p5_a33;
961 ddp_enrl_request_rec.attribute6 := p5_a34;
962 ddp_enrl_request_rec.attribute7 := p5_a35;
963 ddp_enrl_request_rec.attribute8 := p5_a36;
964 ddp_enrl_request_rec.attribute9 := p5_a37;
965 ddp_enrl_request_rec.attribute10 := p5_a38;
966 ddp_enrl_request_rec.attribute11 := p5_a39;
967 ddp_enrl_request_rec.attribute12 := p5_a40;
968 ddp_enrl_request_rec.attribute13 := p5_a41;
969 ddp_enrl_request_rec.attribute14 := p5_a42;
970 ddp_enrl_request_rec.attribute15 := p5_a43;
971
972 -- here's the delegated call to the old PL/SQL routine
973 pv_pg_enrl_requests_pvt.validate_enrl_request_rec(p_api_version_number,
974 p_init_msg_list,
975 x_return_status,
976 x_msg_count,
977 x_msg_data,
978 ddp_enrl_request_rec);
979
980 -- copy data back from the local variables to OUT or IN-OUT args, if any
981
982
983
984
985
986 end;
987
988 end pv_pg_enrl_requests_pvt_w;