[Home] [Help]
PACKAGE BODY: APPS.PV_PARTNER_PROGRAM_PVT_W
Source
1 package body pv_partner_program_pvt_w as
2 /* $Header: pvxwprgb.pls 120.1 2008/03/10 05:56:30 hekkiral ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p2(t out nocopy pv_partner_program_pvt.partner_program_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_NUMBER_TABLE
19 , a3 JTF_VARCHAR2_TABLE_100
20 , a4 JTF_NUMBER_TABLE
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_DATE_TABLE
23 , a7 JTF_DATE_TABLE
24 , a8 JTF_DATE_TABLE
25 , a9 JTF_NUMBER_TABLE
26 , a10 JTF_NUMBER_TABLE
27 , a11 JTF_VARCHAR2_TABLE_100
28 , a12 JTF_NUMBER_TABLE
29 , a13 JTF_NUMBER_TABLE
30 , a14 JTF_VARCHAR2_TABLE_100
31 , a15 JTF_VARCHAR2_TABLE_100
32 , a16 JTF_NUMBER_TABLE
33 , a17 JTF_NUMBER_TABLE
34 , a18 JTF_NUMBER_TABLE
35 , a19 JTF_NUMBER_TABLE
36 , a20 JTF_VARCHAR2_TABLE_100
37 , a21 JTF_VARCHAR2_TABLE_100
38 , a22 JTF_VARCHAR2_TABLE_100
39 , a23 JTF_VARCHAR2_TABLE_100
40 , a24 JTF_VARCHAR2_TABLE_100
41 , a25 JTF_VARCHAR2_TABLE_100
42 , a26 JTF_VARCHAR2_TABLE_100
43 , a27 JTF_VARCHAR2_TABLE_100
44 , a28 JTF_NUMBER_TABLE
45 , a29 JTF_VARCHAR2_TABLE_100
46 , a30 JTF_VARCHAR2_TABLE_100
47 , a31 JTF_VARCHAR2_TABLE_200
48 , a32 JTF_VARCHAR2_TABLE_200
49 , a33 JTF_VARCHAR2_TABLE_200
50 , a34 JTF_VARCHAR2_TABLE_200
51 , a35 JTF_VARCHAR2_TABLE_200
52 , a36 JTF_VARCHAR2_TABLE_200
53 , a37 JTF_VARCHAR2_TABLE_200
54 , a38 JTF_VARCHAR2_TABLE_200
55 , a39 JTF_VARCHAR2_TABLE_200
56 , a40 JTF_VARCHAR2_TABLE_200
57 , a41 JTF_VARCHAR2_TABLE_200
58 , a42 JTF_VARCHAR2_TABLE_200
59 , a43 JTF_VARCHAR2_TABLE_200
60 , a44 JTF_VARCHAR2_TABLE_200
61 , a45 JTF_VARCHAR2_TABLE_200
62 , a46 JTF_DATE_TABLE
63 , a47 JTF_NUMBER_TABLE
64 , a48 JTF_DATE_TABLE
65 , a49 JTF_NUMBER_TABLE
66 , a50 JTF_NUMBER_TABLE
67 , a51 JTF_NUMBER_TABLE
68 , a52 JTF_VARCHAR2_TABLE_100
69 , a53 JTF_VARCHAR2_TABLE_300
70 , a54 JTF_VARCHAR2_TABLE_100
71 , a55 JTF_VARCHAR2_TABLE_200
72 , a56 JTF_VARCHAR2_TABLE_1600
73 , a57 JTF_VARCHAR2_TABLE_1600
74 , a58 JTF_NUMBER_TABLE
75 ) as
76 ddindx binary_integer; indx binary_integer;
77 begin
78 if a0 is not null and a0.count > 0 then
79 if a0.count > 0 then
80 indx := a0.first;
81 ddindx := 1;
82 while true loop
83 t(ddindx).program_id := a0(indx);
84 t(ddindx).program_type_id := a1(indx);
85 t(ddindx).custom_setup_id := a2(indx);
86 t(ddindx).program_level_code := a3(indx);
87 t(ddindx).program_parent_id := a4(indx);
88 t(ddindx).program_owner_resource_id := a5(indx);
89 t(ddindx).program_start_date := rosetta_g_miss_date_in_map(a6(indx));
90 t(ddindx).program_end_date := rosetta_g_miss_date_in_map(a7(indx));
91 t(ddindx).allow_enrl_until_date := rosetta_g_miss_date_in_map(a8(indx));
92 t(ddindx).citem_version_id := a9(indx);
93 t(ddindx).membership_valid_period := a10(indx);
94 t(ddindx).membership_period_unit := a11(indx);
95 t(ddindx).process_rule_id := a12(indx);
96 t(ddindx).prereq_process_rule_id := a13(indx);
97 t(ddindx).program_status_code := a14(indx);
98 t(ddindx).submit_child_nodes := a15(indx);
99 t(ddindx).inventory_item_id := a16(indx);
100 t(ddindx).inventory_item_org_id := a17(indx);
101 t(ddindx).bus_user_resp_id := a18(indx);
102 t(ddindx).admin_resp_id := a19(indx);
103 t(ddindx).no_fee_flag := a20(indx);
104 t(ddindx).vad_invite_allow_flag := a21(indx);
105 t(ddindx).global_mmbr_reqd_flag := a22(indx);
106 t(ddindx).waive_subsidiary_fee_flag := a23(indx);
107 t(ddindx).qsnr_ttl_all_page_dsp_flag := a24(indx);
108 t(ddindx).qsnr_hdr_all_page_dsp_flag := a25(indx);
109 t(ddindx).qsnr_ftr_all_page_dsp_flag := a26(indx);
110 t(ddindx).allow_enrl_wout_chklst_flag := a27(indx);
111 t(ddindx).user_status_id := a28(indx);
112 t(ddindx).enabled_flag := a29(indx);
113 t(ddindx).attribute_category := a30(indx);
114 t(ddindx).attribute1 := a31(indx);
115 t(ddindx).attribute2 := a32(indx);
116 t(ddindx).attribute3 := a33(indx);
117 t(ddindx).attribute4 := a34(indx);
118 t(ddindx).attribute5 := a35(indx);
119 t(ddindx).attribute6 := a36(indx);
120 t(ddindx).attribute7 := a37(indx);
121 t(ddindx).attribute8 := a38(indx);
122 t(ddindx).attribute9 := a39(indx);
123 t(ddindx).attribute10 := a40(indx);
124 t(ddindx).attribute11 := a41(indx);
125 t(ddindx).attribute12 := a42(indx);
126 t(ddindx).attribute13 := a43(indx);
127 t(ddindx).attribute14 := a44(indx);
128 t(ddindx).attribute15 := a45(indx);
129 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a46(indx));
130 t(ddindx).last_updated_by := a47(indx);
131 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a48(indx));
132 t(ddindx).created_by := a49(indx);
133 t(ddindx).last_update_login := a50(indx);
134 t(ddindx).object_version_number := a51(indx);
135 t(ddindx).program_name := a52(indx);
136 t(ddindx).program_description := a53(indx);
137 t(ddindx).source_lang := a54(indx);
138 t(ddindx).qsnr_title := a55(indx);
139 t(ddindx).qsnr_header := a56(indx);
140 t(ddindx).qsnr_footer := a57(indx);
141 t(ddindx).membership_fees := a58(indx);
142 ddindx := ddindx+1;
143 if a0.last =indx
144 then exit;
145 end if;
146 indx := a0.next(indx);
147 end loop;
148 end if;
149 end if;
150 end rosetta_table_copy_in_p2;
151 procedure rosetta_table_copy_out_p2(t pv_partner_program_pvt.partner_program_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
152 , a1 out nocopy JTF_NUMBER_TABLE
153 , a2 out nocopy JTF_NUMBER_TABLE
154 , a3 out nocopy JTF_VARCHAR2_TABLE_100
155 , a4 out nocopy JTF_NUMBER_TABLE
156 , a5 out nocopy JTF_NUMBER_TABLE
157 , a6 out nocopy JTF_DATE_TABLE
158 , a7 out nocopy JTF_DATE_TABLE
159 , a8 out nocopy JTF_DATE_TABLE
160 , a9 out nocopy JTF_NUMBER_TABLE
161 , a10 out nocopy JTF_NUMBER_TABLE
162 , a11 out nocopy JTF_VARCHAR2_TABLE_100
163 , a12 out nocopy JTF_NUMBER_TABLE
164 , a13 out nocopy JTF_NUMBER_TABLE
165 , a14 out nocopy JTF_VARCHAR2_TABLE_100
166 , a15 out nocopy JTF_VARCHAR2_TABLE_100
167 , a16 out nocopy JTF_NUMBER_TABLE
168 , a17 out nocopy JTF_NUMBER_TABLE
169 , a18 out nocopy JTF_NUMBER_TABLE
170 , a19 out nocopy JTF_NUMBER_TABLE
171 , a20 out nocopy JTF_VARCHAR2_TABLE_100
172 , a21 out nocopy JTF_VARCHAR2_TABLE_100
173 , a22 out nocopy JTF_VARCHAR2_TABLE_100
174 , a23 out nocopy JTF_VARCHAR2_TABLE_100
175 , a24 out nocopy JTF_VARCHAR2_TABLE_100
176 , a25 out nocopy JTF_VARCHAR2_TABLE_100
177 , a26 out nocopy JTF_VARCHAR2_TABLE_100
178 , a27 out nocopy JTF_VARCHAR2_TABLE_100
179 , a28 out nocopy JTF_NUMBER_TABLE
180 , a29 out nocopy JTF_VARCHAR2_TABLE_100
181 , a30 out nocopy JTF_VARCHAR2_TABLE_100
182 , a31 out nocopy JTF_VARCHAR2_TABLE_200
183 , a32 out nocopy JTF_VARCHAR2_TABLE_200
184 , a33 out nocopy JTF_VARCHAR2_TABLE_200
185 , a34 out nocopy JTF_VARCHAR2_TABLE_200
186 , a35 out nocopy JTF_VARCHAR2_TABLE_200
187 , a36 out nocopy JTF_VARCHAR2_TABLE_200
188 , a37 out nocopy JTF_VARCHAR2_TABLE_200
189 , a38 out nocopy JTF_VARCHAR2_TABLE_200
190 , a39 out nocopy JTF_VARCHAR2_TABLE_200
191 , a40 out nocopy JTF_VARCHAR2_TABLE_200
192 , a41 out nocopy JTF_VARCHAR2_TABLE_200
193 , a42 out nocopy JTF_VARCHAR2_TABLE_200
194 , a43 out nocopy JTF_VARCHAR2_TABLE_200
195 , a44 out nocopy JTF_VARCHAR2_TABLE_200
196 , a45 out nocopy JTF_VARCHAR2_TABLE_200
197 , a46 out nocopy JTF_DATE_TABLE
198 , a47 out nocopy JTF_NUMBER_TABLE
199 , a48 out nocopy JTF_DATE_TABLE
200 , a49 out nocopy JTF_NUMBER_TABLE
201 , a50 out nocopy JTF_NUMBER_TABLE
202 , a51 out nocopy JTF_NUMBER_TABLE
203 , a52 out nocopy JTF_VARCHAR2_TABLE_100
204 , a53 out nocopy JTF_VARCHAR2_TABLE_300
205 , a54 out nocopy JTF_VARCHAR2_TABLE_100
206 , a55 out nocopy JTF_VARCHAR2_TABLE_200
207 , a56 out nocopy JTF_VARCHAR2_TABLE_1600
208 , a57 out nocopy JTF_VARCHAR2_TABLE_1600
209 , a58 out nocopy JTF_NUMBER_TABLE
210 ) as
211 ddindx binary_integer; indx binary_integer;
212 begin
213 if t is null or t.count = 0 then
214 a0 := JTF_NUMBER_TABLE();
215 a1 := JTF_NUMBER_TABLE();
216 a2 := JTF_NUMBER_TABLE();
217 a3 := JTF_VARCHAR2_TABLE_100();
218 a4 := JTF_NUMBER_TABLE();
219 a5 := JTF_NUMBER_TABLE();
220 a6 := JTF_DATE_TABLE();
221 a7 := JTF_DATE_TABLE();
222 a8 := JTF_DATE_TABLE();
223 a9 := JTF_NUMBER_TABLE();
224 a10 := JTF_NUMBER_TABLE();
225 a11 := JTF_VARCHAR2_TABLE_100();
226 a12 := JTF_NUMBER_TABLE();
227 a13 := JTF_NUMBER_TABLE();
228 a14 := JTF_VARCHAR2_TABLE_100();
229 a15 := JTF_VARCHAR2_TABLE_100();
230 a16 := JTF_NUMBER_TABLE();
231 a17 := JTF_NUMBER_TABLE();
232 a18 := JTF_NUMBER_TABLE();
233 a19 := JTF_NUMBER_TABLE();
234 a20 := JTF_VARCHAR2_TABLE_100();
235 a21 := JTF_VARCHAR2_TABLE_100();
236 a22 := JTF_VARCHAR2_TABLE_100();
237 a23 := JTF_VARCHAR2_TABLE_100();
238 a24 := JTF_VARCHAR2_TABLE_100();
239 a25 := JTF_VARCHAR2_TABLE_100();
240 a26 := JTF_VARCHAR2_TABLE_100();
241 a27 := JTF_VARCHAR2_TABLE_100();
242 a28 := JTF_NUMBER_TABLE();
243 a29 := JTF_VARCHAR2_TABLE_100();
244 a30 := JTF_VARCHAR2_TABLE_100();
245 a31 := JTF_VARCHAR2_TABLE_200();
246 a32 := JTF_VARCHAR2_TABLE_200();
247 a33 := JTF_VARCHAR2_TABLE_200();
248 a34 := JTF_VARCHAR2_TABLE_200();
249 a35 := JTF_VARCHAR2_TABLE_200();
250 a36 := JTF_VARCHAR2_TABLE_200();
251 a37 := JTF_VARCHAR2_TABLE_200();
252 a38 := JTF_VARCHAR2_TABLE_200();
253 a39 := JTF_VARCHAR2_TABLE_200();
254 a40 := JTF_VARCHAR2_TABLE_200();
255 a41 := JTF_VARCHAR2_TABLE_200();
256 a42 := JTF_VARCHAR2_TABLE_200();
257 a43 := JTF_VARCHAR2_TABLE_200();
258 a44 := JTF_VARCHAR2_TABLE_200();
259 a45 := JTF_VARCHAR2_TABLE_200();
260 a46 := JTF_DATE_TABLE();
261 a47 := JTF_NUMBER_TABLE();
262 a48 := JTF_DATE_TABLE();
263 a49 := JTF_NUMBER_TABLE();
264 a50 := JTF_NUMBER_TABLE();
265 a51 := JTF_NUMBER_TABLE();
266 a52 := JTF_VARCHAR2_TABLE_100();
267 a53 := JTF_VARCHAR2_TABLE_300();
268 a54 := JTF_VARCHAR2_TABLE_100();
269 a55 := JTF_VARCHAR2_TABLE_200();
270 a56 := JTF_VARCHAR2_TABLE_1600();
271 a57 := JTF_VARCHAR2_TABLE_1600();
272 a58 := JTF_NUMBER_TABLE();
273 else
274 a0 := JTF_NUMBER_TABLE();
275 a1 := JTF_NUMBER_TABLE();
276 a2 := JTF_NUMBER_TABLE();
277 a3 := JTF_VARCHAR2_TABLE_100();
278 a4 := JTF_NUMBER_TABLE();
279 a5 := JTF_NUMBER_TABLE();
280 a6 := JTF_DATE_TABLE();
281 a7 := JTF_DATE_TABLE();
282 a8 := JTF_DATE_TABLE();
283 a9 := JTF_NUMBER_TABLE();
284 a10 := JTF_NUMBER_TABLE();
285 a11 := JTF_VARCHAR2_TABLE_100();
286 a12 := JTF_NUMBER_TABLE();
287 a13 := JTF_NUMBER_TABLE();
288 a14 := JTF_VARCHAR2_TABLE_100();
289 a15 := JTF_VARCHAR2_TABLE_100();
290 a16 := JTF_NUMBER_TABLE();
291 a17 := JTF_NUMBER_TABLE();
292 a18 := JTF_NUMBER_TABLE();
293 a19 := JTF_NUMBER_TABLE();
294 a20 := JTF_VARCHAR2_TABLE_100();
295 a21 := JTF_VARCHAR2_TABLE_100();
296 a22 := JTF_VARCHAR2_TABLE_100();
297 a23 := JTF_VARCHAR2_TABLE_100();
298 a24 := JTF_VARCHAR2_TABLE_100();
299 a25 := JTF_VARCHAR2_TABLE_100();
300 a26 := JTF_VARCHAR2_TABLE_100();
301 a27 := JTF_VARCHAR2_TABLE_100();
302 a28 := JTF_NUMBER_TABLE();
303 a29 := JTF_VARCHAR2_TABLE_100();
304 a30 := JTF_VARCHAR2_TABLE_100();
305 a31 := JTF_VARCHAR2_TABLE_200();
306 a32 := JTF_VARCHAR2_TABLE_200();
307 a33 := JTF_VARCHAR2_TABLE_200();
308 a34 := JTF_VARCHAR2_TABLE_200();
309 a35 := JTF_VARCHAR2_TABLE_200();
310 a36 := JTF_VARCHAR2_TABLE_200();
311 a37 := JTF_VARCHAR2_TABLE_200();
312 a38 := JTF_VARCHAR2_TABLE_200();
313 a39 := JTF_VARCHAR2_TABLE_200();
314 a40 := JTF_VARCHAR2_TABLE_200();
315 a41 := JTF_VARCHAR2_TABLE_200();
316 a42 := JTF_VARCHAR2_TABLE_200();
317 a43 := JTF_VARCHAR2_TABLE_200();
318 a44 := JTF_VARCHAR2_TABLE_200();
319 a45 := JTF_VARCHAR2_TABLE_200();
320 a46 := JTF_DATE_TABLE();
321 a47 := JTF_NUMBER_TABLE();
322 a48 := JTF_DATE_TABLE();
323 a49 := JTF_NUMBER_TABLE();
324 a50 := JTF_NUMBER_TABLE();
325 a51 := JTF_NUMBER_TABLE();
326 a52 := JTF_VARCHAR2_TABLE_100();
327 a53 := JTF_VARCHAR2_TABLE_300();
328 a54 := JTF_VARCHAR2_TABLE_100();
329 a55 := JTF_VARCHAR2_TABLE_200();
330 a56 := JTF_VARCHAR2_TABLE_1600();
331 a57 := JTF_VARCHAR2_TABLE_1600();
332 a58 := JTF_NUMBER_TABLE();
333 if t.count > 0 then
334 a0.extend(t.count);
335 a1.extend(t.count);
336 a2.extend(t.count);
337 a3.extend(t.count);
338 a4.extend(t.count);
339 a5.extend(t.count);
340 a6.extend(t.count);
341 a7.extend(t.count);
342 a8.extend(t.count);
343 a9.extend(t.count);
344 a10.extend(t.count);
345 a11.extend(t.count);
346 a12.extend(t.count);
347 a13.extend(t.count);
348 a14.extend(t.count);
349 a15.extend(t.count);
350 a16.extend(t.count);
351 a17.extend(t.count);
352 a18.extend(t.count);
353 a19.extend(t.count);
354 a20.extend(t.count);
355 a21.extend(t.count);
356 a22.extend(t.count);
357 a23.extend(t.count);
358 a24.extend(t.count);
359 a25.extend(t.count);
360 a26.extend(t.count);
361 a27.extend(t.count);
362 a28.extend(t.count);
363 a29.extend(t.count);
364 a30.extend(t.count);
365 a31.extend(t.count);
366 a32.extend(t.count);
367 a33.extend(t.count);
368 a34.extend(t.count);
369 a35.extend(t.count);
370 a36.extend(t.count);
371 a37.extend(t.count);
372 a38.extend(t.count);
373 a39.extend(t.count);
374 a40.extend(t.count);
375 a41.extend(t.count);
376 a42.extend(t.count);
377 a43.extend(t.count);
378 a44.extend(t.count);
379 a45.extend(t.count);
380 a46.extend(t.count);
381 a47.extend(t.count);
382 a48.extend(t.count);
383 a49.extend(t.count);
384 a50.extend(t.count);
385 a51.extend(t.count);
386 a52.extend(t.count);
387 a53.extend(t.count);
388 a54.extend(t.count);
389 a55.extend(t.count);
390 a56.extend(t.count);
391 a57.extend(t.count);
392 a58.extend(t.count);
393 ddindx := t.first;
394 indx := 1;
395 while true loop
396 a0(indx) := t(ddindx).program_id;
397 a1(indx) := t(ddindx).program_type_id;
398 a2(indx) := t(ddindx).custom_setup_id;
399 a3(indx) := t(ddindx).program_level_code;
400 a4(indx) := t(ddindx).program_parent_id;
401 a5(indx) := t(ddindx).program_owner_resource_id;
402 a6(indx) := t(ddindx).program_start_date;
403 a7(indx) := t(ddindx).program_end_date;
404 a8(indx) := t(ddindx).allow_enrl_until_date;
405 a9(indx) := t(ddindx).citem_version_id;
406 a10(indx) := t(ddindx).membership_valid_period;
407 a11(indx) := t(ddindx).membership_period_unit;
408 a12(indx) := t(ddindx).process_rule_id;
409 a13(indx) := t(ddindx).prereq_process_rule_id;
410 a14(indx) := t(ddindx).program_status_code;
411 a15(indx) := t(ddindx).submit_child_nodes;
412 a16(indx) := t(ddindx).inventory_item_id;
413 a17(indx) := t(ddindx).inventory_item_org_id;
414 a18(indx) := t(ddindx).bus_user_resp_id;
415 a19(indx) := t(ddindx).admin_resp_id;
416 a20(indx) := t(ddindx).no_fee_flag;
417 a21(indx) := t(ddindx).vad_invite_allow_flag;
418 a22(indx) := t(ddindx).global_mmbr_reqd_flag;
419 a23(indx) := t(ddindx).waive_subsidiary_fee_flag;
420 a24(indx) := t(ddindx).qsnr_ttl_all_page_dsp_flag;
421 a25(indx) := t(ddindx).qsnr_hdr_all_page_dsp_flag;
422 a26(indx) := t(ddindx).qsnr_ftr_all_page_dsp_flag;
423 a27(indx) := t(ddindx).allow_enrl_wout_chklst_flag;
424 a28(indx) := t(ddindx).user_status_id;
425 a29(indx) := t(ddindx).enabled_flag;
426 a30(indx) := t(ddindx).attribute_category;
427 a31(indx) := t(ddindx).attribute1;
428 a32(indx) := t(ddindx).attribute2;
429 a33(indx) := t(ddindx).attribute3;
430 a34(indx) := t(ddindx).attribute4;
431 a35(indx) := t(ddindx).attribute5;
432 a36(indx) := t(ddindx).attribute6;
433 a37(indx) := t(ddindx).attribute7;
434 a38(indx) := t(ddindx).attribute8;
435 a39(indx) := t(ddindx).attribute9;
436 a40(indx) := t(ddindx).attribute10;
437 a41(indx) := t(ddindx).attribute11;
438 a42(indx) := t(ddindx).attribute12;
439 a43(indx) := t(ddindx).attribute13;
440 a44(indx) := t(ddindx).attribute14;
441 a45(indx) := t(ddindx).attribute15;
442 a46(indx) := t(ddindx).last_update_date;
443 a47(indx) := t(ddindx).last_updated_by;
444 a48(indx) := t(ddindx).creation_date;
445 a49(indx) := t(ddindx).created_by;
446 a50(indx) := t(ddindx).last_update_login;
447 a51(indx) := t(ddindx).object_version_number;
448 a52(indx) := t(ddindx).program_name;
449 a53(indx) := t(ddindx).program_description;
450 a54(indx) := t(ddindx).source_lang;
451 a55(indx) := t(ddindx).qsnr_title;
452 a56(indx) := t(ddindx).qsnr_header;
453 a57(indx) := t(ddindx).qsnr_footer;
454 a58(indx) := t(ddindx).membership_fees;
455 indx := indx+1;
456 if t.last =ddindx
457 then exit;
458 end if;
459 ddindx := t.next(ddindx);
460 end loop;
461 end if;
462 end if;
463 end rosetta_table_copy_out_p2;
464
465 procedure create_partner_program(p_api_version_number NUMBER
466 , p_init_msg_list VARCHAR2
467 , p_commit VARCHAR2
468 , p_validation_level NUMBER
469 , p4_a0 NUMBER
470 , p4_a1 NUMBER
471 , p4_a2 NUMBER
472 , p4_a3 VARCHAR2
473 , p4_a4 NUMBER
474 , p4_a5 NUMBER
475 , p4_a6 DATE
476 , p4_a7 DATE
477 , p4_a8 DATE
478 , p4_a9 NUMBER
479 , p4_a10 NUMBER
480 , p4_a11 VARCHAR2
481 , p4_a12 NUMBER
482 , p4_a13 NUMBER
483 , p4_a14 VARCHAR2
484 , p4_a15 VARCHAR2
485 , p4_a16 NUMBER
486 , p4_a17 NUMBER
487 , p4_a18 NUMBER
488 , p4_a19 NUMBER
489 , p4_a20 VARCHAR2
490 , p4_a21 VARCHAR2
491 , p4_a22 VARCHAR2
492 , p4_a23 VARCHAR2
493 , p4_a24 VARCHAR2
494 , p4_a25 VARCHAR2
495 , p4_a26 VARCHAR2
496 , p4_a27 VARCHAR2
497 , p4_a28 NUMBER
498 , p4_a29 VARCHAR2
499 , p4_a30 VARCHAR2
500 , p4_a31 VARCHAR2
501 , p4_a32 VARCHAR2
502 , p4_a33 VARCHAR2
503 , p4_a34 VARCHAR2
504 , p4_a35 VARCHAR2
505 , p4_a36 VARCHAR2
506 , p4_a37 VARCHAR2
507 , p4_a38 VARCHAR2
508 , p4_a39 VARCHAR2
509 , p4_a40 VARCHAR2
510 , p4_a41 VARCHAR2
511 , p4_a42 VARCHAR2
512 , p4_a43 VARCHAR2
513 , p4_a44 VARCHAR2
514 , p4_a45 VARCHAR2
515 , p4_a46 DATE
516 , p4_a47 NUMBER
517 , p4_a48 DATE
518 , p4_a49 NUMBER
519 , p4_a50 NUMBER
520 , p4_a51 NUMBER
521 , p4_a52 VARCHAR2
522 , p4_a53 VARCHAR2
523 , p4_a54 VARCHAR2
524 , p4_a55 VARCHAR2
525 , p4_a56 VARCHAR2
526 , p4_a57 VARCHAR2
527 , p4_a58 NUMBER
528 , p_identity_resource_id NUMBER
529 , x_return_status out nocopy VARCHAR2
530 , x_msg_count out nocopy NUMBER
531 , x_msg_data out nocopy VARCHAR2
532 , x_program_id out nocopy NUMBER
533 )
534
535 as
536 ddp_ptr_prgm_rec pv_partner_program_pvt.ptr_prgm_rec_type;
537 ddindx binary_integer; indx binary_integer;
538 begin
539
540 -- copy data to the local IN or IN-OUT args, if any
541
542
543
544
545 ddp_ptr_prgm_rec.program_id := p4_a0;
546 ddp_ptr_prgm_rec.program_type_id := p4_a1;
547 ddp_ptr_prgm_rec.custom_setup_id := p4_a2;
548 ddp_ptr_prgm_rec.program_level_code := p4_a3;
549 ddp_ptr_prgm_rec.program_parent_id := p4_a4;
550 ddp_ptr_prgm_rec.program_owner_resource_id := p4_a5;
551 ddp_ptr_prgm_rec.program_start_date := rosetta_g_miss_date_in_map(p4_a6);
552 ddp_ptr_prgm_rec.program_end_date := rosetta_g_miss_date_in_map(p4_a7);
553 ddp_ptr_prgm_rec.allow_enrl_until_date := rosetta_g_miss_date_in_map(p4_a8);
554 ddp_ptr_prgm_rec.citem_version_id := p4_a9;
555 ddp_ptr_prgm_rec.membership_valid_period := p4_a10;
556 ddp_ptr_prgm_rec.membership_period_unit := p4_a11;
557 ddp_ptr_prgm_rec.process_rule_id := p4_a12;
558 ddp_ptr_prgm_rec.prereq_process_rule_id := p4_a13;
559 ddp_ptr_prgm_rec.program_status_code := p4_a14;
560 ddp_ptr_prgm_rec.submit_child_nodes := p4_a15;
561 ddp_ptr_prgm_rec.inventory_item_id := p4_a16;
562 ddp_ptr_prgm_rec.inventory_item_org_id := p4_a17;
563 ddp_ptr_prgm_rec.bus_user_resp_id := p4_a18;
564 ddp_ptr_prgm_rec.admin_resp_id := p4_a19;
565 ddp_ptr_prgm_rec.no_fee_flag := p4_a20;
566 ddp_ptr_prgm_rec.vad_invite_allow_flag := p4_a21;
567 ddp_ptr_prgm_rec.global_mmbr_reqd_flag := p4_a22;
568 ddp_ptr_prgm_rec.waive_subsidiary_fee_flag := p4_a23;
569 ddp_ptr_prgm_rec.qsnr_ttl_all_page_dsp_flag := p4_a24;
570 ddp_ptr_prgm_rec.qsnr_hdr_all_page_dsp_flag := p4_a25;
571 ddp_ptr_prgm_rec.qsnr_ftr_all_page_dsp_flag := p4_a26;
572 ddp_ptr_prgm_rec.allow_enrl_wout_chklst_flag := p4_a27;
573 ddp_ptr_prgm_rec.user_status_id := p4_a28;
574 ddp_ptr_prgm_rec.enabled_flag := p4_a29;
575 ddp_ptr_prgm_rec.attribute_category := p4_a30;
576 ddp_ptr_prgm_rec.attribute1 := p4_a31;
577 ddp_ptr_prgm_rec.attribute2 := p4_a32;
578 ddp_ptr_prgm_rec.attribute3 := p4_a33;
579 ddp_ptr_prgm_rec.attribute4 := p4_a34;
580 ddp_ptr_prgm_rec.attribute5 := p4_a35;
581 ddp_ptr_prgm_rec.attribute6 := p4_a36;
582 ddp_ptr_prgm_rec.attribute7 := p4_a37;
583 ddp_ptr_prgm_rec.attribute8 := p4_a38;
584 ddp_ptr_prgm_rec.attribute9 := p4_a39;
585 ddp_ptr_prgm_rec.attribute10 := p4_a40;
586 ddp_ptr_prgm_rec.attribute11 := p4_a41;
587 ddp_ptr_prgm_rec.attribute12 := p4_a42;
588 ddp_ptr_prgm_rec.attribute13 := p4_a43;
589 ddp_ptr_prgm_rec.attribute14 := p4_a44;
590 ddp_ptr_prgm_rec.attribute15 := p4_a45;
591 ddp_ptr_prgm_rec.last_update_date := rosetta_g_miss_date_in_map(p4_a46);
592 ddp_ptr_prgm_rec.last_updated_by := p4_a47;
593 ddp_ptr_prgm_rec.creation_date := rosetta_g_miss_date_in_map(p4_a48);
594 ddp_ptr_prgm_rec.created_by := p4_a49;
595 ddp_ptr_prgm_rec.last_update_login := p4_a50;
596 ddp_ptr_prgm_rec.object_version_number := p4_a51;
597 ddp_ptr_prgm_rec.program_name := p4_a52;
598 ddp_ptr_prgm_rec.program_description := p4_a53;
599 ddp_ptr_prgm_rec.source_lang := p4_a54;
600 ddp_ptr_prgm_rec.qsnr_title := p4_a55;
601 ddp_ptr_prgm_rec.qsnr_header := p4_a56;
602 ddp_ptr_prgm_rec.qsnr_footer := p4_a57;
603 ddp_ptr_prgm_rec.membership_fees := p4_a58;
604
605
606
607
608
609
610 -- here's the delegated call to the old PL/SQL routine
611 pv_partner_program_pvt.create_partner_program(p_api_version_number,
612 p_init_msg_list,
613 p_commit,
614 p_validation_level,
615 ddp_ptr_prgm_rec,
616 p_identity_resource_id,
617 x_return_status,
618 x_msg_count,
619 x_msg_data,
620 x_program_id);
621
622 -- copy data back from the local variables to OUT or IN-OUT args, if any
623
624
625
626
627
628
629
630
631
632 end;
633
634 procedure update_partner_program(p_api_version_number NUMBER
635 , p_init_msg_list VARCHAR2
636 , p_commit VARCHAR2
637 , p_validation_level NUMBER
638 , x_return_status out nocopy VARCHAR2
639 , x_msg_count out nocopy NUMBER
640 , x_msg_data out nocopy VARCHAR2
641 , p7_a0 NUMBER
642 , p7_a1 NUMBER
643 , p7_a2 NUMBER
644 , p7_a3 VARCHAR2
645 , p7_a4 NUMBER
646 , p7_a5 NUMBER
647 , p7_a6 DATE
648 , p7_a7 DATE
649 , p7_a8 DATE
650 , p7_a9 NUMBER
651 , p7_a10 NUMBER
652 , p7_a11 VARCHAR2
653 , p7_a12 NUMBER
654 , p7_a13 NUMBER
655 , p7_a14 VARCHAR2
656 , p7_a15 VARCHAR2
657 , p7_a16 NUMBER
658 , p7_a17 NUMBER
659 , p7_a18 NUMBER
660 , p7_a19 NUMBER
661 , p7_a20 VARCHAR2
662 , p7_a21 VARCHAR2
663 , p7_a22 VARCHAR2
664 , p7_a23 VARCHAR2
665 , p7_a24 VARCHAR2
666 , p7_a25 VARCHAR2
667 , p7_a26 VARCHAR2
668 , p7_a27 VARCHAR2
669 , p7_a28 NUMBER
670 , p7_a29 VARCHAR2
671 , p7_a30 VARCHAR2
672 , p7_a31 VARCHAR2
673 , p7_a32 VARCHAR2
674 , p7_a33 VARCHAR2
675 , p7_a34 VARCHAR2
676 , p7_a35 VARCHAR2
677 , p7_a36 VARCHAR2
678 , p7_a37 VARCHAR2
679 , p7_a38 VARCHAR2
680 , p7_a39 VARCHAR2
681 , p7_a40 VARCHAR2
682 , p7_a41 VARCHAR2
683 , p7_a42 VARCHAR2
684 , p7_a43 VARCHAR2
685 , p7_a44 VARCHAR2
686 , p7_a45 VARCHAR2
687 , p7_a46 DATE
688 , p7_a47 NUMBER
689 , p7_a48 DATE
690 , p7_a49 NUMBER
691 , p7_a50 NUMBER
692 , p7_a51 NUMBER
693 , p7_a52 VARCHAR2
694 , p7_a53 VARCHAR2
695 , p7_a54 VARCHAR2
696 , p7_a55 VARCHAR2
697 , p7_a56 VARCHAR2
698 , p7_a57 VARCHAR2
699 , p7_a58 NUMBER
700 )
701
702 as
703 ddp_ptr_prgm_rec pv_partner_program_pvt.ptr_prgm_rec_type;
704 ddindx binary_integer; indx binary_integer;
705 begin
706
707 -- copy data to the local IN or IN-OUT args, if any
708
709
710
711
712
713
714
715 ddp_ptr_prgm_rec.program_id := p7_a0;
716 ddp_ptr_prgm_rec.program_type_id := p7_a1;
717 ddp_ptr_prgm_rec.custom_setup_id := p7_a2;
718 ddp_ptr_prgm_rec.program_level_code := p7_a3;
719 ddp_ptr_prgm_rec.program_parent_id := p7_a4;
720 ddp_ptr_prgm_rec.program_owner_resource_id := p7_a5;
721 ddp_ptr_prgm_rec.program_start_date := rosetta_g_miss_date_in_map(p7_a6);
722 ddp_ptr_prgm_rec.program_end_date := rosetta_g_miss_date_in_map(p7_a7);
723 ddp_ptr_prgm_rec.allow_enrl_until_date := rosetta_g_miss_date_in_map(p7_a8);
724 ddp_ptr_prgm_rec.citem_version_id := p7_a9;
725 ddp_ptr_prgm_rec.membership_valid_period := p7_a10;
726 ddp_ptr_prgm_rec.membership_period_unit := p7_a11;
727 ddp_ptr_prgm_rec.process_rule_id := p7_a12;
728 ddp_ptr_prgm_rec.prereq_process_rule_id := p7_a13;
729 ddp_ptr_prgm_rec.program_status_code := p7_a14;
730 ddp_ptr_prgm_rec.submit_child_nodes := p7_a15;
731 ddp_ptr_prgm_rec.inventory_item_id := p7_a16;
732 ddp_ptr_prgm_rec.inventory_item_org_id := p7_a17;
733 ddp_ptr_prgm_rec.bus_user_resp_id := p7_a18;
734 ddp_ptr_prgm_rec.admin_resp_id := p7_a19;
735 ddp_ptr_prgm_rec.no_fee_flag := p7_a20;
736 ddp_ptr_prgm_rec.vad_invite_allow_flag := p7_a21;
737 ddp_ptr_prgm_rec.global_mmbr_reqd_flag := p7_a22;
738 ddp_ptr_prgm_rec.waive_subsidiary_fee_flag := p7_a23;
739 ddp_ptr_prgm_rec.qsnr_ttl_all_page_dsp_flag := p7_a24;
740 ddp_ptr_prgm_rec.qsnr_hdr_all_page_dsp_flag := p7_a25;
741 ddp_ptr_prgm_rec.qsnr_ftr_all_page_dsp_flag := p7_a26;
742 ddp_ptr_prgm_rec.allow_enrl_wout_chklst_flag := p7_a27;
743 ddp_ptr_prgm_rec.user_status_id := p7_a28;
744 ddp_ptr_prgm_rec.enabled_flag := p7_a29;
745 ddp_ptr_prgm_rec.attribute_category := p7_a30;
746 ddp_ptr_prgm_rec.attribute1 := p7_a31;
747 ddp_ptr_prgm_rec.attribute2 := p7_a32;
748 ddp_ptr_prgm_rec.attribute3 := p7_a33;
749 ddp_ptr_prgm_rec.attribute4 := p7_a34;
750 ddp_ptr_prgm_rec.attribute5 := p7_a35;
751 ddp_ptr_prgm_rec.attribute6 := p7_a36;
752 ddp_ptr_prgm_rec.attribute7 := p7_a37;
753 ddp_ptr_prgm_rec.attribute8 := p7_a38;
754 ddp_ptr_prgm_rec.attribute9 := p7_a39;
755 ddp_ptr_prgm_rec.attribute10 := p7_a40;
756 ddp_ptr_prgm_rec.attribute11 := p7_a41;
757 ddp_ptr_prgm_rec.attribute12 := p7_a42;
758 ddp_ptr_prgm_rec.attribute13 := p7_a43;
759 ddp_ptr_prgm_rec.attribute14 := p7_a44;
760 ddp_ptr_prgm_rec.attribute15 := p7_a45;
761 ddp_ptr_prgm_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a46);
762 ddp_ptr_prgm_rec.last_updated_by := p7_a47;
763 ddp_ptr_prgm_rec.creation_date := rosetta_g_miss_date_in_map(p7_a48);
764 ddp_ptr_prgm_rec.created_by := p7_a49;
765 ddp_ptr_prgm_rec.last_update_login := p7_a50;
766 ddp_ptr_prgm_rec.object_version_number := p7_a51;
767 ddp_ptr_prgm_rec.program_name := p7_a52;
768 ddp_ptr_prgm_rec.program_description := p7_a53;
769 ddp_ptr_prgm_rec.source_lang := p7_a54;
770 ddp_ptr_prgm_rec.qsnr_title := p7_a55;
771 ddp_ptr_prgm_rec.qsnr_header := p7_a56;
772 ddp_ptr_prgm_rec.qsnr_footer := p7_a57;
773 ddp_ptr_prgm_rec.membership_fees := p7_a58;
774
775 -- here's the delegated call to the old PL/SQL routine
776 pv_partner_program_pvt.update_partner_program(p_api_version_number,
777 p_init_msg_list,
778 p_commit,
779 p_validation_level,
780 x_return_status,
781 x_msg_count,
782 x_msg_data,
783 ddp_ptr_prgm_rec);
784
785 -- copy data back from the local variables to OUT or IN-OUT args, if any
786
787
788
789
790
791
792
793 end;
794
795 procedure validate_partner_program(p_api_version_number NUMBER
796 , p_init_msg_list VARCHAR2
797 , p_validation_level NUMBER
798 , p3_a0 NUMBER
799 , p3_a1 NUMBER
800 , p3_a2 NUMBER
801 , p3_a3 VARCHAR2
802 , p3_a4 NUMBER
803 , p3_a5 NUMBER
804 , p3_a6 DATE
805 , p3_a7 DATE
806 , p3_a8 DATE
807 , p3_a9 NUMBER
808 , p3_a10 NUMBER
809 , p3_a11 VARCHAR2
810 , p3_a12 NUMBER
811 , p3_a13 NUMBER
812 , p3_a14 VARCHAR2
813 , p3_a15 VARCHAR2
814 , p3_a16 NUMBER
815 , p3_a17 NUMBER
816 , p3_a18 NUMBER
817 , p3_a19 NUMBER
818 , p3_a20 VARCHAR2
819 , p3_a21 VARCHAR2
820 , p3_a22 VARCHAR2
821 , p3_a23 VARCHAR2
822 , p3_a24 VARCHAR2
823 , p3_a25 VARCHAR2
824 , p3_a26 VARCHAR2
825 , p3_a27 VARCHAR2
826 , p3_a28 NUMBER
827 , p3_a29 VARCHAR2
828 , p3_a30 VARCHAR2
829 , p3_a31 VARCHAR2
830 , p3_a32 VARCHAR2
831 , p3_a33 VARCHAR2
832 , p3_a34 VARCHAR2
833 , p3_a35 VARCHAR2
834 , p3_a36 VARCHAR2
835 , p3_a37 VARCHAR2
836 , p3_a38 VARCHAR2
837 , p3_a39 VARCHAR2
838 , p3_a40 VARCHAR2
839 , p3_a41 VARCHAR2
840 , p3_a42 VARCHAR2
841 , p3_a43 VARCHAR2
842 , p3_a44 VARCHAR2
843 , p3_a45 VARCHAR2
844 , p3_a46 DATE
845 , p3_a47 NUMBER
846 , p3_a48 DATE
847 , p3_a49 NUMBER
848 , p3_a50 NUMBER
849 , p3_a51 NUMBER
850 , p3_a52 VARCHAR2
851 , p3_a53 VARCHAR2
852 , p3_a54 VARCHAR2
853 , p3_a55 VARCHAR2
854 , p3_a56 VARCHAR2
855 , p3_a57 VARCHAR2
856 , p3_a58 NUMBER
857 , p_validation_mode VARCHAR2
858 , x_return_status out nocopy VARCHAR2
859 , x_msg_count out nocopy NUMBER
860 , x_msg_data out nocopy VARCHAR2
861 )
862
863 as
864 ddp_ptr_prgm_rec pv_partner_program_pvt.ptr_prgm_rec_type;
865 ddindx binary_integer; indx binary_integer;
866 begin
867
868 -- copy data to the local IN or IN-OUT args, if any
869
870
871
872 ddp_ptr_prgm_rec.program_id := p3_a0;
873 ddp_ptr_prgm_rec.program_type_id := p3_a1;
874 ddp_ptr_prgm_rec.custom_setup_id := p3_a2;
875 ddp_ptr_prgm_rec.program_level_code := p3_a3;
876 ddp_ptr_prgm_rec.program_parent_id := p3_a4;
877 ddp_ptr_prgm_rec.program_owner_resource_id := p3_a5;
878 ddp_ptr_prgm_rec.program_start_date := rosetta_g_miss_date_in_map(p3_a6);
879 ddp_ptr_prgm_rec.program_end_date := rosetta_g_miss_date_in_map(p3_a7);
880 ddp_ptr_prgm_rec.allow_enrl_until_date := rosetta_g_miss_date_in_map(p3_a8);
881 ddp_ptr_prgm_rec.citem_version_id := p3_a9;
882 ddp_ptr_prgm_rec.membership_valid_period := p3_a10;
883 ddp_ptr_prgm_rec.membership_period_unit := p3_a11;
884 ddp_ptr_prgm_rec.process_rule_id := p3_a12;
885 ddp_ptr_prgm_rec.prereq_process_rule_id := p3_a13;
886 ddp_ptr_prgm_rec.program_status_code := p3_a14;
887 ddp_ptr_prgm_rec.submit_child_nodes := p3_a15;
888 ddp_ptr_prgm_rec.inventory_item_id := p3_a16;
889 ddp_ptr_prgm_rec.inventory_item_org_id := p3_a17;
890 ddp_ptr_prgm_rec.bus_user_resp_id := p3_a18;
891 ddp_ptr_prgm_rec.admin_resp_id := p3_a19;
892 ddp_ptr_prgm_rec.no_fee_flag := p3_a20;
893 ddp_ptr_prgm_rec.vad_invite_allow_flag := p3_a21;
894 ddp_ptr_prgm_rec.global_mmbr_reqd_flag := p3_a22;
895 ddp_ptr_prgm_rec.waive_subsidiary_fee_flag := p3_a23;
896 ddp_ptr_prgm_rec.qsnr_ttl_all_page_dsp_flag := p3_a24;
897 ddp_ptr_prgm_rec.qsnr_hdr_all_page_dsp_flag := p3_a25;
898 ddp_ptr_prgm_rec.qsnr_ftr_all_page_dsp_flag := p3_a26;
899 ddp_ptr_prgm_rec.allow_enrl_wout_chklst_flag := p3_a27;
900 ddp_ptr_prgm_rec.user_status_id := p3_a28;
901 ddp_ptr_prgm_rec.enabled_flag := p3_a29;
902 ddp_ptr_prgm_rec.attribute_category := p3_a30;
903 ddp_ptr_prgm_rec.attribute1 := p3_a31;
904 ddp_ptr_prgm_rec.attribute2 := p3_a32;
905 ddp_ptr_prgm_rec.attribute3 := p3_a33;
906 ddp_ptr_prgm_rec.attribute4 := p3_a34;
907 ddp_ptr_prgm_rec.attribute5 := p3_a35;
908 ddp_ptr_prgm_rec.attribute6 := p3_a36;
909 ddp_ptr_prgm_rec.attribute7 := p3_a37;
910 ddp_ptr_prgm_rec.attribute8 := p3_a38;
911 ddp_ptr_prgm_rec.attribute9 := p3_a39;
912 ddp_ptr_prgm_rec.attribute10 := p3_a40;
913 ddp_ptr_prgm_rec.attribute11 := p3_a41;
914 ddp_ptr_prgm_rec.attribute12 := p3_a42;
915 ddp_ptr_prgm_rec.attribute13 := p3_a43;
916 ddp_ptr_prgm_rec.attribute14 := p3_a44;
917 ddp_ptr_prgm_rec.attribute15 := p3_a45;
918 ddp_ptr_prgm_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a46);
919 ddp_ptr_prgm_rec.last_updated_by := p3_a47;
920 ddp_ptr_prgm_rec.creation_date := rosetta_g_miss_date_in_map(p3_a48);
921 ddp_ptr_prgm_rec.created_by := p3_a49;
922 ddp_ptr_prgm_rec.last_update_login := p3_a50;
923 ddp_ptr_prgm_rec.object_version_number := p3_a51;
924 ddp_ptr_prgm_rec.program_name := p3_a52;
925 ddp_ptr_prgm_rec.program_description := p3_a53;
926 ddp_ptr_prgm_rec.source_lang := p3_a54;
927 ddp_ptr_prgm_rec.qsnr_title := p3_a55;
928 ddp_ptr_prgm_rec.qsnr_header := p3_a56;
929 ddp_ptr_prgm_rec.qsnr_footer := p3_a57;
930 ddp_ptr_prgm_rec.membership_fees := p3_a58;
931
932
933
934
935
936 -- here's the delegated call to the old PL/SQL routine
937 pv_partner_program_pvt.validate_partner_program(p_api_version_number,
938 p_init_msg_list,
939 p_validation_level,
940 ddp_ptr_prgm_rec,
941 p_validation_mode,
942 x_return_status,
943 x_msg_count,
944 x_msg_data);
945
946 -- copy data back from the local variables to OUT or IN-OUT args, if any
947
948
949
950
951
952
953
954 end;
955
956 procedure check_items(p0_a0 NUMBER
957 , p0_a1 NUMBER
958 , p0_a2 NUMBER
959 , p0_a3 VARCHAR2
960 , p0_a4 NUMBER
961 , p0_a5 NUMBER
962 , p0_a6 DATE
963 , p0_a7 DATE
964 , p0_a8 DATE
965 , p0_a9 NUMBER
966 , p0_a10 NUMBER
967 , p0_a11 VARCHAR2
968 , p0_a12 NUMBER
969 , p0_a13 NUMBER
970 , p0_a14 VARCHAR2
971 , p0_a15 VARCHAR2
972 , p0_a16 NUMBER
973 , p0_a17 NUMBER
974 , p0_a18 NUMBER
975 , p0_a19 NUMBER
976 , p0_a20 VARCHAR2
977 , p0_a21 VARCHAR2
978 , p0_a22 VARCHAR2
979 , p0_a23 VARCHAR2
980 , p0_a24 VARCHAR2
981 , p0_a25 VARCHAR2
982 , p0_a26 VARCHAR2
983 , p0_a27 VARCHAR2
984 , p0_a28 NUMBER
985 , p0_a29 VARCHAR2
986 , p0_a30 VARCHAR2
987 , p0_a31 VARCHAR2
988 , p0_a32 VARCHAR2
989 , p0_a33 VARCHAR2
990 , p0_a34 VARCHAR2
991 , p0_a35 VARCHAR2
992 , p0_a36 VARCHAR2
993 , p0_a37 VARCHAR2
994 , p0_a38 VARCHAR2
995 , p0_a39 VARCHAR2
996 , p0_a40 VARCHAR2
997 , p0_a41 VARCHAR2
998 , p0_a42 VARCHAR2
999 , p0_a43 VARCHAR2
1000 , p0_a44 VARCHAR2
1001 , p0_a45 VARCHAR2
1002 , p0_a46 DATE
1003 , p0_a47 NUMBER
1004 , p0_a48 DATE
1005 , p0_a49 NUMBER
1006 , p0_a50 NUMBER
1007 , p0_a51 NUMBER
1008 , p0_a52 VARCHAR2
1009 , p0_a53 VARCHAR2
1010 , p0_a54 VARCHAR2
1011 , p0_a55 VARCHAR2
1012 , p0_a56 VARCHAR2
1013 , p0_a57 VARCHAR2
1014 , p0_a58 NUMBER
1015 , p_validation_mode VARCHAR2
1016 , x_return_status out nocopy VARCHAR2
1017 )
1018
1019 as
1020 ddp_ptr_prgm_rec pv_partner_program_pvt.ptr_prgm_rec_type;
1021 ddindx binary_integer; indx binary_integer;
1022 begin
1023
1024 -- copy data to the local IN or IN-OUT args, if any
1025 ddp_ptr_prgm_rec.program_id := p0_a0;
1026 ddp_ptr_prgm_rec.program_type_id := p0_a1;
1027 ddp_ptr_prgm_rec.custom_setup_id := p0_a2;
1028 ddp_ptr_prgm_rec.program_level_code := p0_a3;
1029 ddp_ptr_prgm_rec.program_parent_id := p0_a4;
1030 ddp_ptr_prgm_rec.program_owner_resource_id := p0_a5;
1031 ddp_ptr_prgm_rec.program_start_date := rosetta_g_miss_date_in_map(p0_a6);
1032 ddp_ptr_prgm_rec.program_end_date := rosetta_g_miss_date_in_map(p0_a7);
1033 ddp_ptr_prgm_rec.allow_enrl_until_date := rosetta_g_miss_date_in_map(p0_a8);
1034 ddp_ptr_prgm_rec.citem_version_id := p0_a9;
1035 ddp_ptr_prgm_rec.membership_valid_period := p0_a10;
1036 ddp_ptr_prgm_rec.membership_period_unit := p0_a11;
1037 ddp_ptr_prgm_rec.process_rule_id := p0_a12;
1038 ddp_ptr_prgm_rec.prereq_process_rule_id := p0_a13;
1039 ddp_ptr_prgm_rec.program_status_code := p0_a14;
1040 ddp_ptr_prgm_rec.submit_child_nodes := p0_a15;
1041 ddp_ptr_prgm_rec.inventory_item_id := p0_a16;
1042 ddp_ptr_prgm_rec.inventory_item_org_id := p0_a17;
1043 ddp_ptr_prgm_rec.bus_user_resp_id := p0_a18;
1044 ddp_ptr_prgm_rec.admin_resp_id := p0_a19;
1045 ddp_ptr_prgm_rec.no_fee_flag := p0_a20;
1046 ddp_ptr_prgm_rec.vad_invite_allow_flag := p0_a21;
1047 ddp_ptr_prgm_rec.global_mmbr_reqd_flag := p0_a22;
1048 ddp_ptr_prgm_rec.waive_subsidiary_fee_flag := p0_a23;
1049 ddp_ptr_prgm_rec.qsnr_ttl_all_page_dsp_flag := p0_a24;
1050 ddp_ptr_prgm_rec.qsnr_hdr_all_page_dsp_flag := p0_a25;
1051 ddp_ptr_prgm_rec.qsnr_ftr_all_page_dsp_flag := p0_a26;
1052 ddp_ptr_prgm_rec.allow_enrl_wout_chklst_flag := p0_a27;
1053 ddp_ptr_prgm_rec.user_status_id := p0_a28;
1054 ddp_ptr_prgm_rec.enabled_flag := p0_a29;
1055 ddp_ptr_prgm_rec.attribute_category := p0_a30;
1056 ddp_ptr_prgm_rec.attribute1 := p0_a31;
1057 ddp_ptr_prgm_rec.attribute2 := p0_a32;
1058 ddp_ptr_prgm_rec.attribute3 := p0_a33;
1059 ddp_ptr_prgm_rec.attribute4 := p0_a34;
1060 ddp_ptr_prgm_rec.attribute5 := p0_a35;
1061 ddp_ptr_prgm_rec.attribute6 := p0_a36;
1062 ddp_ptr_prgm_rec.attribute7 := p0_a37;
1063 ddp_ptr_prgm_rec.attribute8 := p0_a38;
1064 ddp_ptr_prgm_rec.attribute9 := p0_a39;
1065 ddp_ptr_prgm_rec.attribute10 := p0_a40;
1066 ddp_ptr_prgm_rec.attribute11 := p0_a41;
1067 ddp_ptr_prgm_rec.attribute12 := p0_a42;
1068 ddp_ptr_prgm_rec.attribute13 := p0_a43;
1069 ddp_ptr_prgm_rec.attribute14 := p0_a44;
1070 ddp_ptr_prgm_rec.attribute15 := p0_a45;
1071 ddp_ptr_prgm_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a46);
1072 ddp_ptr_prgm_rec.last_updated_by := p0_a47;
1073 ddp_ptr_prgm_rec.creation_date := rosetta_g_miss_date_in_map(p0_a48);
1074 ddp_ptr_prgm_rec.created_by := p0_a49;
1075 ddp_ptr_prgm_rec.last_update_login := p0_a50;
1076 ddp_ptr_prgm_rec.object_version_number := p0_a51;
1077 ddp_ptr_prgm_rec.program_name := p0_a52;
1078 ddp_ptr_prgm_rec.program_description := p0_a53;
1079 ddp_ptr_prgm_rec.source_lang := p0_a54;
1080 ddp_ptr_prgm_rec.qsnr_title := p0_a55;
1081 ddp_ptr_prgm_rec.qsnr_header := p0_a56;
1082 ddp_ptr_prgm_rec.qsnr_footer := p0_a57;
1083 ddp_ptr_prgm_rec.membership_fees := p0_a58;
1084
1085
1086
1087 -- here's the delegated call to the old PL/SQL routine
1088 pv_partner_program_pvt.check_items(ddp_ptr_prgm_rec,
1089 p_validation_mode,
1090 x_return_status);
1091
1092 -- copy data back from the local variables to OUT or IN-OUT args, if any
1093
1094
1095 end;
1096
1097 procedure validate_rec(p_api_version_number NUMBER
1098 , p_init_msg_list VARCHAR2
1099 , x_return_status out nocopy VARCHAR2
1100 , x_msg_count out nocopy NUMBER
1101 , x_msg_data out nocopy VARCHAR2
1102 , p5_a0 NUMBER
1103 , p5_a1 NUMBER
1104 , p5_a2 NUMBER
1105 , p5_a3 VARCHAR2
1106 , p5_a4 NUMBER
1107 , p5_a5 NUMBER
1108 , p5_a6 DATE
1109 , p5_a7 DATE
1110 , p5_a8 DATE
1111 , p5_a9 NUMBER
1112 , p5_a10 NUMBER
1113 , p5_a11 VARCHAR2
1114 , p5_a12 NUMBER
1115 , p5_a13 NUMBER
1116 , p5_a14 VARCHAR2
1117 , p5_a15 VARCHAR2
1118 , p5_a16 NUMBER
1119 , p5_a17 NUMBER
1120 , p5_a18 NUMBER
1121 , p5_a19 NUMBER
1122 , p5_a20 VARCHAR2
1123 , p5_a21 VARCHAR2
1124 , p5_a22 VARCHAR2
1125 , p5_a23 VARCHAR2
1126 , p5_a24 VARCHAR2
1127 , p5_a25 VARCHAR2
1128 , p5_a26 VARCHAR2
1129 , p5_a27 VARCHAR2
1130 , p5_a28 NUMBER
1131 , p5_a29 VARCHAR2
1132 , p5_a30 VARCHAR2
1133 , p5_a31 VARCHAR2
1134 , p5_a32 VARCHAR2
1135 , p5_a33 VARCHAR2
1136 , p5_a34 VARCHAR2
1137 , p5_a35 VARCHAR2
1138 , p5_a36 VARCHAR2
1139 , p5_a37 VARCHAR2
1140 , p5_a38 VARCHAR2
1141 , p5_a39 VARCHAR2
1142 , p5_a40 VARCHAR2
1143 , p5_a41 VARCHAR2
1144 , p5_a42 VARCHAR2
1145 , p5_a43 VARCHAR2
1146 , p5_a44 VARCHAR2
1147 , p5_a45 VARCHAR2
1148 , p5_a46 DATE
1149 , p5_a47 NUMBER
1150 , p5_a48 DATE
1151 , p5_a49 NUMBER
1152 , p5_a50 NUMBER
1153 , p5_a51 NUMBER
1154 , p5_a52 VARCHAR2
1155 , p5_a53 VARCHAR2
1156 , p5_a54 VARCHAR2
1157 , p5_a55 VARCHAR2
1158 , p5_a56 VARCHAR2
1159 , p5_a57 VARCHAR2
1160 , p5_a58 NUMBER
1161 , p_validation_mode VARCHAR2
1162 )
1163
1164 as
1165 ddp_ptr_prgm_rec pv_partner_program_pvt.ptr_prgm_rec_type;
1166 ddindx binary_integer; indx binary_integer;
1167 begin
1168
1169 -- copy data to the local IN or IN-OUT args, if any
1170
1171
1172
1173
1174
1175 ddp_ptr_prgm_rec.program_id := p5_a0;
1176 ddp_ptr_prgm_rec.program_type_id := p5_a1;
1177 ddp_ptr_prgm_rec.custom_setup_id := p5_a2;
1178 ddp_ptr_prgm_rec.program_level_code := p5_a3;
1179 ddp_ptr_prgm_rec.program_parent_id := p5_a4;
1180 ddp_ptr_prgm_rec.program_owner_resource_id := p5_a5;
1181 ddp_ptr_prgm_rec.program_start_date := rosetta_g_miss_date_in_map(p5_a6);
1182 ddp_ptr_prgm_rec.program_end_date := rosetta_g_miss_date_in_map(p5_a7);
1183 ddp_ptr_prgm_rec.allow_enrl_until_date := rosetta_g_miss_date_in_map(p5_a8);
1184 ddp_ptr_prgm_rec.citem_version_id := p5_a9;
1185 ddp_ptr_prgm_rec.membership_valid_period := p5_a10;
1186 ddp_ptr_prgm_rec.membership_period_unit := p5_a11;
1187 ddp_ptr_prgm_rec.process_rule_id := p5_a12;
1188 ddp_ptr_prgm_rec.prereq_process_rule_id := p5_a13;
1189 ddp_ptr_prgm_rec.program_status_code := p5_a14;
1190 ddp_ptr_prgm_rec.submit_child_nodes := p5_a15;
1191 ddp_ptr_prgm_rec.inventory_item_id := p5_a16;
1192 ddp_ptr_prgm_rec.inventory_item_org_id := p5_a17;
1193 ddp_ptr_prgm_rec.bus_user_resp_id := p5_a18;
1194 ddp_ptr_prgm_rec.admin_resp_id := p5_a19;
1195 ddp_ptr_prgm_rec.no_fee_flag := p5_a20;
1196 ddp_ptr_prgm_rec.vad_invite_allow_flag := p5_a21;
1197 ddp_ptr_prgm_rec.global_mmbr_reqd_flag := p5_a22;
1198 ddp_ptr_prgm_rec.waive_subsidiary_fee_flag := p5_a23;
1199 ddp_ptr_prgm_rec.qsnr_ttl_all_page_dsp_flag := p5_a24;
1200 ddp_ptr_prgm_rec.qsnr_hdr_all_page_dsp_flag := p5_a25;
1201 ddp_ptr_prgm_rec.qsnr_ftr_all_page_dsp_flag := p5_a26;
1202 ddp_ptr_prgm_rec.allow_enrl_wout_chklst_flag := p5_a27;
1203 ddp_ptr_prgm_rec.user_status_id := p5_a28;
1204 ddp_ptr_prgm_rec.enabled_flag := p5_a29;
1205 ddp_ptr_prgm_rec.attribute_category := p5_a30;
1206 ddp_ptr_prgm_rec.attribute1 := p5_a31;
1207 ddp_ptr_prgm_rec.attribute2 := p5_a32;
1208 ddp_ptr_prgm_rec.attribute3 := p5_a33;
1209 ddp_ptr_prgm_rec.attribute4 := p5_a34;
1210 ddp_ptr_prgm_rec.attribute5 := p5_a35;
1211 ddp_ptr_prgm_rec.attribute6 := p5_a36;
1212 ddp_ptr_prgm_rec.attribute7 := p5_a37;
1213 ddp_ptr_prgm_rec.attribute8 := p5_a38;
1214 ddp_ptr_prgm_rec.attribute9 := p5_a39;
1215 ddp_ptr_prgm_rec.attribute10 := p5_a40;
1216 ddp_ptr_prgm_rec.attribute11 := p5_a41;
1217 ddp_ptr_prgm_rec.attribute12 := p5_a42;
1218 ddp_ptr_prgm_rec.attribute13 := p5_a43;
1219 ddp_ptr_prgm_rec.attribute14 := p5_a44;
1220 ddp_ptr_prgm_rec.attribute15 := p5_a45;
1221 ddp_ptr_prgm_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a46);
1222 ddp_ptr_prgm_rec.last_updated_by := p5_a47;
1223 ddp_ptr_prgm_rec.creation_date := rosetta_g_miss_date_in_map(p5_a48);
1224 ddp_ptr_prgm_rec.created_by := p5_a49;
1225 ddp_ptr_prgm_rec.last_update_login := p5_a50;
1226 ddp_ptr_prgm_rec.object_version_number := p5_a51;
1227 ddp_ptr_prgm_rec.program_name := p5_a52;
1228 ddp_ptr_prgm_rec.program_description := p5_a53;
1229 ddp_ptr_prgm_rec.source_lang := p5_a54;
1230 ddp_ptr_prgm_rec.qsnr_title := p5_a55;
1231 ddp_ptr_prgm_rec.qsnr_header := p5_a56;
1232 ddp_ptr_prgm_rec.qsnr_footer := p5_a57;
1233 ddp_ptr_prgm_rec.membership_fees := p5_a58;
1234
1235
1236 -- here's the delegated call to the old PL/SQL routine
1237 pv_partner_program_pvt.validate_rec(p_api_version_number,
1238 p_init_msg_list,
1239 x_return_status,
1240 x_msg_count,
1241 x_msg_data,
1242 ddp_ptr_prgm_rec,
1243 p_validation_mode);
1244
1245 -- copy data back from the local variables to OUT or IN-OUT args, if any
1246
1247
1248
1249
1250
1251
1252 end;
1253
1254 procedure complete_rec(p0_a0 NUMBER
1255 , p0_a1 NUMBER
1256 , p0_a2 NUMBER
1257 , p0_a3 VARCHAR2
1258 , p0_a4 NUMBER
1259 , p0_a5 NUMBER
1260 , p0_a6 DATE
1261 , p0_a7 DATE
1262 , p0_a8 DATE
1263 , p0_a9 NUMBER
1264 , p0_a10 NUMBER
1265 , p0_a11 VARCHAR2
1266 , p0_a12 NUMBER
1267 , p0_a13 NUMBER
1268 , p0_a14 VARCHAR2
1269 , p0_a15 VARCHAR2
1270 , p0_a16 NUMBER
1271 , p0_a17 NUMBER
1272 , p0_a18 NUMBER
1273 , p0_a19 NUMBER
1274 , p0_a20 VARCHAR2
1275 , p0_a21 VARCHAR2
1276 , p0_a22 VARCHAR2
1277 , p0_a23 VARCHAR2
1278 , p0_a24 VARCHAR2
1279 , p0_a25 VARCHAR2
1280 , p0_a26 VARCHAR2
1281 , p0_a27 VARCHAR2
1282 , p0_a28 NUMBER
1283 , p0_a29 VARCHAR2
1284 , p0_a30 VARCHAR2
1285 , p0_a31 VARCHAR2
1286 , p0_a32 VARCHAR2
1287 , p0_a33 VARCHAR2
1288 , p0_a34 VARCHAR2
1289 , p0_a35 VARCHAR2
1290 , p0_a36 VARCHAR2
1291 , p0_a37 VARCHAR2
1292 , p0_a38 VARCHAR2
1293 , p0_a39 VARCHAR2
1294 , p0_a40 VARCHAR2
1295 , p0_a41 VARCHAR2
1296 , p0_a42 VARCHAR2
1297 , p0_a43 VARCHAR2
1298 , p0_a44 VARCHAR2
1299 , p0_a45 VARCHAR2
1300 , p0_a46 DATE
1301 , p0_a47 NUMBER
1302 , p0_a48 DATE
1303 , p0_a49 NUMBER
1304 , p0_a50 NUMBER
1305 , p0_a51 NUMBER
1306 , p0_a52 VARCHAR2
1307 , p0_a53 VARCHAR2
1308 , p0_a54 VARCHAR2
1309 , p0_a55 VARCHAR2
1310 , p0_a56 VARCHAR2
1311 , p0_a57 VARCHAR2
1312 , p0_a58 NUMBER
1313 , p1_a0 out nocopy NUMBER
1314 , p1_a1 out nocopy NUMBER
1315 , p1_a2 out nocopy NUMBER
1316 , p1_a3 out nocopy VARCHAR2
1317 , p1_a4 out nocopy NUMBER
1318 , p1_a5 out nocopy NUMBER
1319 , p1_a6 out nocopy DATE
1320 , p1_a7 out nocopy DATE
1321 , p1_a8 out nocopy DATE
1322 , p1_a9 out nocopy NUMBER
1323 , p1_a10 out nocopy NUMBER
1324 , p1_a11 out nocopy VARCHAR2
1325 , p1_a12 out nocopy NUMBER
1326 , p1_a13 out nocopy NUMBER
1327 , p1_a14 out nocopy VARCHAR2
1328 , p1_a15 out nocopy VARCHAR2
1329 , p1_a16 out nocopy NUMBER
1330 , p1_a17 out nocopy NUMBER
1331 , p1_a18 out nocopy NUMBER
1332 , p1_a19 out nocopy NUMBER
1333 , p1_a20 out nocopy VARCHAR2
1334 , p1_a21 out nocopy VARCHAR2
1335 , p1_a22 out nocopy VARCHAR2
1336 , p1_a23 out nocopy VARCHAR2
1337 , p1_a24 out nocopy VARCHAR2
1338 , p1_a25 out nocopy VARCHAR2
1339 , p1_a26 out nocopy VARCHAR2
1340 , p1_a27 out nocopy VARCHAR2
1341 , p1_a28 out nocopy NUMBER
1342 , p1_a29 out nocopy VARCHAR2
1343 , p1_a30 out nocopy VARCHAR2
1344 , p1_a31 out nocopy VARCHAR2
1345 , p1_a32 out nocopy VARCHAR2
1346 , p1_a33 out nocopy VARCHAR2
1347 , p1_a34 out nocopy VARCHAR2
1348 , p1_a35 out nocopy VARCHAR2
1349 , p1_a36 out nocopy VARCHAR2
1350 , p1_a37 out nocopy VARCHAR2
1351 , p1_a38 out nocopy VARCHAR2
1352 , p1_a39 out nocopy VARCHAR2
1353 , p1_a40 out nocopy VARCHAR2
1354 , p1_a41 out nocopy VARCHAR2
1355 , p1_a42 out nocopy VARCHAR2
1356 , p1_a43 out nocopy VARCHAR2
1357 , p1_a44 out nocopy VARCHAR2
1358 , p1_a45 out nocopy VARCHAR2
1359 , p1_a46 out nocopy DATE
1360 , p1_a47 out nocopy NUMBER
1361 , p1_a48 out nocopy DATE
1362 , p1_a49 out nocopy NUMBER
1363 , p1_a50 out nocopy NUMBER
1364 , p1_a51 out nocopy NUMBER
1365 , p1_a52 out nocopy VARCHAR2
1366 , p1_a53 out nocopy VARCHAR2
1367 , p1_a54 out nocopy VARCHAR2
1368 , p1_a55 out nocopy VARCHAR2
1369 , p1_a56 out nocopy VARCHAR2
1370 , p1_a57 out nocopy VARCHAR2
1371 , p1_a58 out nocopy NUMBER
1372 )
1373
1374 as
1375 ddp_ptr_prgm_rec pv_partner_program_pvt.ptr_prgm_rec_type;
1376 ddx_complete_rec pv_partner_program_pvt.ptr_prgm_rec_type;
1377 ddindx binary_integer; indx binary_integer;
1378 begin
1379
1380 -- copy data to the local IN or IN-OUT args, if any
1381 ddp_ptr_prgm_rec.program_id := p0_a0;
1382 ddp_ptr_prgm_rec.program_type_id := p0_a1;
1383 ddp_ptr_prgm_rec.custom_setup_id := p0_a2;
1384 ddp_ptr_prgm_rec.program_level_code := p0_a3;
1385 ddp_ptr_prgm_rec.program_parent_id := p0_a4;
1386 ddp_ptr_prgm_rec.program_owner_resource_id := p0_a5;
1387 ddp_ptr_prgm_rec.program_start_date := rosetta_g_miss_date_in_map(p0_a6);
1388 ddp_ptr_prgm_rec.program_end_date := rosetta_g_miss_date_in_map(p0_a7);
1389 ddp_ptr_prgm_rec.allow_enrl_until_date := rosetta_g_miss_date_in_map(p0_a8);
1390 ddp_ptr_prgm_rec.citem_version_id := p0_a9;
1391 ddp_ptr_prgm_rec.membership_valid_period := p0_a10;
1392 ddp_ptr_prgm_rec.membership_period_unit := p0_a11;
1393 ddp_ptr_prgm_rec.process_rule_id := p0_a12;
1394 ddp_ptr_prgm_rec.prereq_process_rule_id := p0_a13;
1395 ddp_ptr_prgm_rec.program_status_code := p0_a14;
1396 ddp_ptr_prgm_rec.submit_child_nodes := p0_a15;
1397 ddp_ptr_prgm_rec.inventory_item_id := p0_a16;
1398 ddp_ptr_prgm_rec.inventory_item_org_id := p0_a17;
1399 ddp_ptr_prgm_rec.bus_user_resp_id := p0_a18;
1400 ddp_ptr_prgm_rec.admin_resp_id := p0_a19;
1401 ddp_ptr_prgm_rec.no_fee_flag := p0_a20;
1402 ddp_ptr_prgm_rec.vad_invite_allow_flag := p0_a21;
1403 ddp_ptr_prgm_rec.global_mmbr_reqd_flag := p0_a22;
1404 ddp_ptr_prgm_rec.waive_subsidiary_fee_flag := p0_a23;
1405 ddp_ptr_prgm_rec.qsnr_ttl_all_page_dsp_flag := p0_a24;
1406 ddp_ptr_prgm_rec.qsnr_hdr_all_page_dsp_flag := p0_a25;
1407 ddp_ptr_prgm_rec.qsnr_ftr_all_page_dsp_flag := p0_a26;
1408 ddp_ptr_prgm_rec.allow_enrl_wout_chklst_flag := p0_a27;
1409 ddp_ptr_prgm_rec.user_status_id := p0_a28;
1410 ddp_ptr_prgm_rec.enabled_flag := p0_a29;
1411 ddp_ptr_prgm_rec.attribute_category := p0_a30;
1412 ddp_ptr_prgm_rec.attribute1 := p0_a31;
1413 ddp_ptr_prgm_rec.attribute2 := p0_a32;
1414 ddp_ptr_prgm_rec.attribute3 := p0_a33;
1415 ddp_ptr_prgm_rec.attribute4 := p0_a34;
1416 ddp_ptr_prgm_rec.attribute5 := p0_a35;
1417 ddp_ptr_prgm_rec.attribute6 := p0_a36;
1418 ddp_ptr_prgm_rec.attribute7 := p0_a37;
1419 ddp_ptr_prgm_rec.attribute8 := p0_a38;
1420 ddp_ptr_prgm_rec.attribute9 := p0_a39;
1421 ddp_ptr_prgm_rec.attribute10 := p0_a40;
1422 ddp_ptr_prgm_rec.attribute11 := p0_a41;
1423 ddp_ptr_prgm_rec.attribute12 := p0_a42;
1424 ddp_ptr_prgm_rec.attribute13 := p0_a43;
1425 ddp_ptr_prgm_rec.attribute14 := p0_a44;
1426 ddp_ptr_prgm_rec.attribute15 := p0_a45;
1427 ddp_ptr_prgm_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a46);
1428 ddp_ptr_prgm_rec.last_updated_by := p0_a47;
1429 ddp_ptr_prgm_rec.creation_date := rosetta_g_miss_date_in_map(p0_a48);
1430 ddp_ptr_prgm_rec.created_by := p0_a49;
1431 ddp_ptr_prgm_rec.last_update_login := p0_a50;
1432 ddp_ptr_prgm_rec.object_version_number := p0_a51;
1433 ddp_ptr_prgm_rec.program_name := p0_a52;
1434 ddp_ptr_prgm_rec.program_description := p0_a53;
1435 ddp_ptr_prgm_rec.source_lang := p0_a54;
1436 ddp_ptr_prgm_rec.qsnr_title := p0_a55;
1437 ddp_ptr_prgm_rec.qsnr_header := p0_a56;
1438 ddp_ptr_prgm_rec.qsnr_footer := p0_a57;
1439 ddp_ptr_prgm_rec.membership_fees := p0_a58;
1440
1441
1442 -- here's the delegated call to the old PL/SQL routine
1443 pv_partner_program_pvt.complete_rec(ddp_ptr_prgm_rec,
1444 ddx_complete_rec);
1445
1446 -- copy data back from the local variables to OUT or IN-OUT args, if any
1447
1448 p1_a0 := ddx_complete_rec.program_id;
1449 p1_a1 := ddx_complete_rec.program_type_id;
1450 p1_a2 := ddx_complete_rec.custom_setup_id;
1451 p1_a3 := ddx_complete_rec.program_level_code;
1452 p1_a4 := ddx_complete_rec.program_parent_id;
1453 p1_a5 := ddx_complete_rec.program_owner_resource_id;
1454 p1_a6 := ddx_complete_rec.program_start_date;
1455 p1_a7 := ddx_complete_rec.program_end_date;
1456 p1_a8 := ddx_complete_rec.allow_enrl_until_date;
1457 p1_a9 := ddx_complete_rec.citem_version_id;
1458 p1_a10 := ddx_complete_rec.membership_valid_period;
1459 p1_a11 := ddx_complete_rec.membership_period_unit;
1460 p1_a12 := ddx_complete_rec.process_rule_id;
1461 p1_a13 := ddx_complete_rec.prereq_process_rule_id;
1462 p1_a14 := ddx_complete_rec.program_status_code;
1463 p1_a15 := ddx_complete_rec.submit_child_nodes;
1464 p1_a16 := ddx_complete_rec.inventory_item_id;
1465 p1_a17 := ddx_complete_rec.inventory_item_org_id;
1466 p1_a18 := ddx_complete_rec.bus_user_resp_id;
1467 p1_a19 := ddx_complete_rec.admin_resp_id;
1468 p1_a20 := ddx_complete_rec.no_fee_flag;
1469 p1_a21 := ddx_complete_rec.vad_invite_allow_flag;
1470 p1_a22 := ddx_complete_rec.global_mmbr_reqd_flag;
1471 p1_a23 := ddx_complete_rec.waive_subsidiary_fee_flag;
1472 p1_a24 := ddx_complete_rec.qsnr_ttl_all_page_dsp_flag;
1473 p1_a25 := ddx_complete_rec.qsnr_hdr_all_page_dsp_flag;
1474 p1_a26 := ddx_complete_rec.qsnr_ftr_all_page_dsp_flag;
1475 p1_a27 := ddx_complete_rec.allow_enrl_wout_chklst_flag;
1476 p1_a28 := ddx_complete_rec.user_status_id;
1477 p1_a29 := ddx_complete_rec.enabled_flag;
1478 p1_a30 := ddx_complete_rec.attribute_category;
1479 p1_a31 := ddx_complete_rec.attribute1;
1480 p1_a32 := ddx_complete_rec.attribute2;
1481 p1_a33 := ddx_complete_rec.attribute3;
1482 p1_a34 := ddx_complete_rec.attribute4;
1483 p1_a35 := ddx_complete_rec.attribute5;
1484 p1_a36 := ddx_complete_rec.attribute6;
1485 p1_a37 := ddx_complete_rec.attribute7;
1486 p1_a38 := ddx_complete_rec.attribute8;
1487 p1_a39 := ddx_complete_rec.attribute9;
1488 p1_a40 := ddx_complete_rec.attribute10;
1489 p1_a41 := ddx_complete_rec.attribute11;
1490 p1_a42 := ddx_complete_rec.attribute12;
1491 p1_a43 := ddx_complete_rec.attribute13;
1492 p1_a44 := ddx_complete_rec.attribute14;
1493 p1_a45 := ddx_complete_rec.attribute15;
1494 p1_a46 := ddx_complete_rec.last_update_date;
1495 p1_a47 := ddx_complete_rec.last_updated_by;
1496 p1_a48 := ddx_complete_rec.creation_date;
1497 p1_a49 := ddx_complete_rec.created_by;
1498 p1_a50 := ddx_complete_rec.last_update_login;
1499 p1_a51 := ddx_complete_rec.object_version_number;
1500 p1_a52 := ddx_complete_rec.program_name;
1501 p1_a53 := ddx_complete_rec.program_description;
1502 p1_a54 := ddx_complete_rec.source_lang;
1503 p1_a55 := ddx_complete_rec.qsnr_title;
1504 p1_a56 := ddx_complete_rec.qsnr_header;
1505 p1_a57 := ddx_complete_rec.qsnr_footer;
1506 p1_a58 := ddx_complete_rec.membership_fees;
1507 end;
1508
1509 procedure create_pricelist_line(p0_a0 NUMBER
1510 , p0_a1 NUMBER
1511 , p0_a2 NUMBER
1512 , p0_a3 VARCHAR2
1513 , p0_a4 NUMBER
1514 , p0_a5 NUMBER
1515 , p0_a6 DATE
1516 , p0_a7 DATE
1517 , p0_a8 DATE
1518 , p0_a9 NUMBER
1519 , p0_a10 NUMBER
1520 , p0_a11 VARCHAR2
1521 , p0_a12 NUMBER
1522 , p0_a13 NUMBER
1523 , p0_a14 VARCHAR2
1524 , p0_a15 VARCHAR2
1525 , p0_a16 NUMBER
1526 , p0_a17 NUMBER
1527 , p0_a18 NUMBER
1528 , p0_a19 NUMBER
1529 , p0_a20 VARCHAR2
1530 , p0_a21 VARCHAR2
1531 , p0_a22 VARCHAR2
1532 , p0_a23 VARCHAR2
1533 , p0_a24 VARCHAR2
1534 , p0_a25 VARCHAR2
1535 , p0_a26 VARCHAR2
1536 , p0_a27 VARCHAR2
1537 , p0_a28 NUMBER
1538 , p0_a29 VARCHAR2
1539 , p0_a30 VARCHAR2
1540 , p0_a31 VARCHAR2
1541 , p0_a32 VARCHAR2
1542 , p0_a33 VARCHAR2
1543 , p0_a34 VARCHAR2
1544 , p0_a35 VARCHAR2
1545 , p0_a36 VARCHAR2
1546 , p0_a37 VARCHAR2
1547 , p0_a38 VARCHAR2
1548 , p0_a39 VARCHAR2
1549 , p0_a40 VARCHAR2
1550 , p0_a41 VARCHAR2
1551 , p0_a42 VARCHAR2
1552 , p0_a43 VARCHAR2
1553 , p0_a44 VARCHAR2
1554 , p0_a45 VARCHAR2
1555 , p0_a46 DATE
1556 , p0_a47 NUMBER
1557 , p0_a48 DATE
1558 , p0_a49 NUMBER
1559 , p0_a50 NUMBER
1560 , p0_a51 NUMBER
1561 , p0_a52 VARCHAR2
1562 , p0_a53 VARCHAR2
1563 , p0_a54 VARCHAR2
1564 , p0_a55 VARCHAR2
1565 , p0_a56 VARCHAR2
1566 , p0_a57 VARCHAR2
1567 , p0_a58 NUMBER
1568 , p_inventory_item_id NUMBER
1569 , p_operation VARCHAR2
1570 , p_list_header_id NUMBER
1571 , p_pricing_attribute_id NUMBER
1572 , x_return_status out nocopy VARCHAR2
1573 , x_pricelist_line_id out nocopy NUMBER
1574 , x_msg_count out nocopy NUMBER
1575 , x_msg_data out nocopy VARCHAR2
1576 )
1577
1578 as
1579 ddp_ptr_prgm_rec pv_partner_program_pvt.ptr_prgm_rec_type;
1580 ddindx binary_integer; indx binary_integer;
1581 begin
1582
1583 -- copy data to the local IN or IN-OUT args, if any
1584 ddp_ptr_prgm_rec.program_id := p0_a0;
1585 ddp_ptr_prgm_rec.program_type_id := p0_a1;
1586 ddp_ptr_prgm_rec.custom_setup_id := p0_a2;
1587 ddp_ptr_prgm_rec.program_level_code := p0_a3;
1588 ddp_ptr_prgm_rec.program_parent_id := p0_a4;
1589 ddp_ptr_prgm_rec.program_owner_resource_id := p0_a5;
1590 ddp_ptr_prgm_rec.program_start_date := rosetta_g_miss_date_in_map(p0_a6);
1591 ddp_ptr_prgm_rec.program_end_date := rosetta_g_miss_date_in_map(p0_a7);
1592 ddp_ptr_prgm_rec.allow_enrl_until_date := rosetta_g_miss_date_in_map(p0_a8);
1593 ddp_ptr_prgm_rec.citem_version_id := p0_a9;
1594 ddp_ptr_prgm_rec.membership_valid_period := p0_a10;
1595 ddp_ptr_prgm_rec.membership_period_unit := p0_a11;
1596 ddp_ptr_prgm_rec.process_rule_id := p0_a12;
1597 ddp_ptr_prgm_rec.prereq_process_rule_id := p0_a13;
1598 ddp_ptr_prgm_rec.program_status_code := p0_a14;
1599 ddp_ptr_prgm_rec.submit_child_nodes := p0_a15;
1600 ddp_ptr_prgm_rec.inventory_item_id := p0_a16;
1601 ddp_ptr_prgm_rec.inventory_item_org_id := p0_a17;
1602 ddp_ptr_prgm_rec.bus_user_resp_id := p0_a18;
1603 ddp_ptr_prgm_rec.admin_resp_id := p0_a19;
1604 ddp_ptr_prgm_rec.no_fee_flag := p0_a20;
1605 ddp_ptr_prgm_rec.vad_invite_allow_flag := p0_a21;
1606 ddp_ptr_prgm_rec.global_mmbr_reqd_flag := p0_a22;
1607 ddp_ptr_prgm_rec.waive_subsidiary_fee_flag := p0_a23;
1608 ddp_ptr_prgm_rec.qsnr_ttl_all_page_dsp_flag := p0_a24;
1609 ddp_ptr_prgm_rec.qsnr_hdr_all_page_dsp_flag := p0_a25;
1610 ddp_ptr_prgm_rec.qsnr_ftr_all_page_dsp_flag := p0_a26;
1611 ddp_ptr_prgm_rec.allow_enrl_wout_chklst_flag := p0_a27;
1612 ddp_ptr_prgm_rec.user_status_id := p0_a28;
1613 ddp_ptr_prgm_rec.enabled_flag := p0_a29;
1614 ddp_ptr_prgm_rec.attribute_category := p0_a30;
1615 ddp_ptr_prgm_rec.attribute1 := p0_a31;
1616 ddp_ptr_prgm_rec.attribute2 := p0_a32;
1617 ddp_ptr_prgm_rec.attribute3 := p0_a33;
1618 ddp_ptr_prgm_rec.attribute4 := p0_a34;
1619 ddp_ptr_prgm_rec.attribute5 := p0_a35;
1620 ddp_ptr_prgm_rec.attribute6 := p0_a36;
1621 ddp_ptr_prgm_rec.attribute7 := p0_a37;
1622 ddp_ptr_prgm_rec.attribute8 := p0_a38;
1623 ddp_ptr_prgm_rec.attribute9 := p0_a39;
1624 ddp_ptr_prgm_rec.attribute10 := p0_a40;
1625 ddp_ptr_prgm_rec.attribute11 := p0_a41;
1626 ddp_ptr_prgm_rec.attribute12 := p0_a42;
1627 ddp_ptr_prgm_rec.attribute13 := p0_a43;
1628 ddp_ptr_prgm_rec.attribute14 := p0_a44;
1629 ddp_ptr_prgm_rec.attribute15 := p0_a45;
1630 ddp_ptr_prgm_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a46);
1631 ddp_ptr_prgm_rec.last_updated_by := p0_a47;
1632 ddp_ptr_prgm_rec.creation_date := rosetta_g_miss_date_in_map(p0_a48);
1633 ddp_ptr_prgm_rec.created_by := p0_a49;
1634 ddp_ptr_prgm_rec.last_update_login := p0_a50;
1635 ddp_ptr_prgm_rec.object_version_number := p0_a51;
1636 ddp_ptr_prgm_rec.program_name := p0_a52;
1637 ddp_ptr_prgm_rec.program_description := p0_a53;
1638 ddp_ptr_prgm_rec.source_lang := p0_a54;
1639 ddp_ptr_prgm_rec.qsnr_title := p0_a55;
1640 ddp_ptr_prgm_rec.qsnr_header := p0_a56;
1641 ddp_ptr_prgm_rec.qsnr_footer := p0_a57;
1642 ddp_ptr_prgm_rec.membership_fees := p0_a58;
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652 -- here's the delegated call to the old PL/SQL routine
1653 pv_partner_program_pvt.create_pricelist_line(ddp_ptr_prgm_rec,
1654 p_inventory_item_id,
1655 p_operation,
1656 p_list_header_id,
1657 p_pricing_attribute_id,
1658 x_return_status,
1659 x_pricelist_line_id,
1660 x_msg_count,
1661 x_msg_data);
1662
1663 -- copy data back from the local variables to OUT or IN-OUT args, if any
1664
1665
1666
1667
1668
1669
1670
1671
1672 end;
1673
1674 procedure copy_program(p_api_version_number NUMBER
1675 , p_init_msg_list VARCHAR2
1676 , p_commit VARCHAR2
1677 , p_validation_level NUMBER
1678 , x_return_status out nocopy VARCHAR2
1679 , x_msg_count out nocopy NUMBER
1680 , x_msg_data out nocopy VARCHAR2
1681 , p_source_object_id NUMBER
1682 , p_attributes_table JTF_VARCHAR2_TABLE_100
1683 , p9_a0 JTF_VARCHAR2_TABLE_100
1684 , p9_a1 JTF_VARCHAR2_TABLE_4000
1685 , x_new_object_id out nocopy NUMBER
1686 , x_custom_setup_id out nocopy NUMBER
1687 )
1688
1689 as
1690 ddp_attributes_table ams_cpyutility_pvt.copy_attributes_table_type;
1691 ddp_copy_columns_table ams_cpyutility_pvt.copy_columns_table_type;
1692 ddindx binary_integer; indx binary_integer;
1693 begin
1694
1695 -- copy data to the local IN or IN-OUT args, if any
1696
1697
1698
1699
1700
1701
1702
1703
1704 ams_cpyutility_pvt_w.rosetta_table_copy_in_p0(ddp_attributes_table, p_attributes_table);
1705
1706 ams_cpyutility_pvt_w.rosetta_table_copy_in_p2(ddp_copy_columns_table, p9_a0
1707 , p9_a1
1708 );
1709
1710
1711
1712 -- here's the delegated call to the old PL/SQL routine
1713 pv_partner_program_pvt.copy_program(p_api_version_number,
1714 p_init_msg_list,
1715 p_commit,
1716 p_validation_level,
1717 x_return_status,
1718 x_msg_count,
1719 x_msg_data,
1720 p_source_object_id,
1721 ddp_attributes_table,
1722 ddp_copy_columns_table,
1723 x_new_object_id,
1724 x_custom_setup_id);
1725
1726 -- copy data back from the local variables to OUT or IN-OUT args, if any
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738 end;
1739
1740 end pv_partner_program_pvt_w;