[Home] [Help]
PACKAGE BODY: APPS.PV_PRGM_BENEFITS_PVT_W
Source
1 package body pv_prgm_benefits_pvt_w as
2 /* $Header: pvxwppbb.pls 115.6 2003/11/07 06:13:58 ktsao 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
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_prgm_benefits_pvt.program_benefits_tbl_type, a0 JTF_NUMBER_TABLE
14 , a1 JTF_NUMBER_TABLE
15 , a2 JTF_VARCHAR2_TABLE_100
16 , a3 JTF_NUMBER_TABLE
17 , a4 JTF_VARCHAR2_TABLE_100
18 , a5 JTF_VARCHAR2_TABLE_100
19 , a6 JTF_NUMBER_TABLE
20 , a7 JTF_NUMBER_TABLE
21 , a8 JTF_DATE_TABLE
22 , a9 JTF_NUMBER_TABLE
23 , a10 JTF_NUMBER_TABLE
24 , a11 JTF_DATE_TABLE
25 ) as
26 ddindx binary_integer; indx binary_integer;
27 begin
28 if a0 is not null and a0.count > 0 then
29 if a0.count > 0 then
30 indx := a0.first;
31 ddindx := 1;
32 while true loop
33 t(ddindx).program_benefits_id := a0(indx);
34 t(ddindx).program_id := a1(indx);
35 t(ddindx).benefit_code := a2(indx);
36 t(ddindx).benefit_id := a3(indx);
37 t(ddindx).benefit_type_code := a4(indx);
38 t(ddindx).delete_flag := a5(indx);
39 t(ddindx).last_update_login := a6(indx);
40 t(ddindx).object_version_number := a7(indx);
41 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a8(indx));
42 t(ddindx).last_updated_by := a9(indx);
43 t(ddindx).created_by := a10(indx);
44 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a11(indx));
45 ddindx := ddindx+1;
46 if a0.last =indx
47 then exit;
48 end if;
49 indx := a0.next(indx);
50 end loop;
51 end if;
52 end if;
53 end rosetta_table_copy_in_p2;
54 procedure rosetta_table_copy_out_p2(t pv_prgm_benefits_pvt.program_benefits_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
55 , a1 out nocopy JTF_NUMBER_TABLE
56 , a2 out nocopy JTF_VARCHAR2_TABLE_100
57 , a3 out nocopy JTF_NUMBER_TABLE
58 , a4 out nocopy JTF_VARCHAR2_TABLE_100
59 , a5 out nocopy JTF_VARCHAR2_TABLE_100
60 , a6 out nocopy JTF_NUMBER_TABLE
61 , a7 out nocopy JTF_NUMBER_TABLE
62 , a8 out nocopy JTF_DATE_TABLE
63 , a9 out nocopy JTF_NUMBER_TABLE
64 , a10 out nocopy JTF_NUMBER_TABLE
65 , a11 out nocopy JTF_DATE_TABLE
66 ) as
67 ddindx binary_integer; indx binary_integer;
68 begin
69 if t is null or t.count = 0 then
70 a0 := JTF_NUMBER_TABLE();
71 a1 := JTF_NUMBER_TABLE();
72 a2 := JTF_VARCHAR2_TABLE_100();
73 a3 := JTF_NUMBER_TABLE();
74 a4 := JTF_VARCHAR2_TABLE_100();
75 a5 := JTF_VARCHAR2_TABLE_100();
76 a6 := JTF_NUMBER_TABLE();
77 a7 := JTF_NUMBER_TABLE();
78 a8 := JTF_DATE_TABLE();
79 a9 := JTF_NUMBER_TABLE();
80 a10 := JTF_NUMBER_TABLE();
81 a11 := JTF_DATE_TABLE();
82 else
83 a0 := JTF_NUMBER_TABLE();
84 a1 := JTF_NUMBER_TABLE();
85 a2 := JTF_VARCHAR2_TABLE_100();
86 a3 := JTF_NUMBER_TABLE();
87 a4 := JTF_VARCHAR2_TABLE_100();
88 a5 := JTF_VARCHAR2_TABLE_100();
89 a6 := JTF_NUMBER_TABLE();
90 a7 := JTF_NUMBER_TABLE();
91 a8 := JTF_DATE_TABLE();
92 a9 := JTF_NUMBER_TABLE();
93 a10 := JTF_NUMBER_TABLE();
94 a11 := JTF_DATE_TABLE();
95 if t.count > 0 then
96 a0.extend(t.count);
97 a1.extend(t.count);
98 a2.extend(t.count);
99 a3.extend(t.count);
100 a4.extend(t.count);
101 a5.extend(t.count);
102 a6.extend(t.count);
103 a7.extend(t.count);
104 a8.extend(t.count);
105 a9.extend(t.count);
106 a10.extend(t.count);
107 a11.extend(t.count);
108 ddindx := t.first;
109 indx := 1;
110 while true loop
111 a0(indx) := t(ddindx).program_benefits_id;
112 a1(indx) := t(ddindx).program_id;
113 a2(indx) := t(ddindx).benefit_code;
114 a3(indx) := t(ddindx).benefit_id;
115 a4(indx) := t(ddindx).benefit_type_code;
116 a5(indx) := t(ddindx).delete_flag;
117 a6(indx) := t(ddindx).last_update_login;
118 a7(indx) := t(ddindx).object_version_number;
119 a8(indx) := t(ddindx).last_update_date;
120 a9(indx) := t(ddindx).last_updated_by;
121 a10(indx) := t(ddindx).created_by;
122 a11(indx) := t(ddindx).creation_date;
123 indx := indx+1;
124 if t.last =ddindx
125 then exit;
126 end if;
127 ddindx := t.next(ddindx);
128 end loop;
129 end if;
130 end if;
131 end rosetta_table_copy_out_p2;
132
133 procedure create_prgm_benefits(p_api_version_number NUMBER
134 , p_init_msg_list VARCHAR2
135 , p_commit VARCHAR2
136 , p_validation_level NUMBER
137 , x_return_status out nocopy VARCHAR2
138 , x_msg_count out nocopy NUMBER
139 , x_msg_data out nocopy VARCHAR2
140 , p7_a0 NUMBER
141 , p7_a1 NUMBER
142 , p7_a2 VARCHAR2
143 , p7_a3 NUMBER
144 , p7_a4 VARCHAR2
145 , p7_a5 VARCHAR2
146 , p7_a6 NUMBER
147 , p7_a7 NUMBER
148 , p7_a8 DATE
149 , p7_a9 NUMBER
150 , p7_a10 NUMBER
151 , p7_a11 DATE
152 , x_program_benefits_id out nocopy NUMBER
153 )
154
155 as
156 ddp_prgm_benefits_rec pv_prgm_benefits_pvt.prgm_benefits_rec_type;
157 ddindx binary_integer; indx binary_integer;
158 begin
159
160 -- copy data to the local IN or IN-OUT args, if any
161
162
163
164
165
166
167
168 ddp_prgm_benefits_rec.program_benefits_id := p7_a0;
169 ddp_prgm_benefits_rec.program_id := p7_a1;
170 ddp_prgm_benefits_rec.benefit_code := p7_a2;
171 ddp_prgm_benefits_rec.benefit_id := p7_a3;
172 ddp_prgm_benefits_rec.benefit_type_code := p7_a4;
173 ddp_prgm_benefits_rec.delete_flag := p7_a5;
174 ddp_prgm_benefits_rec.last_update_login := p7_a6;
175 ddp_prgm_benefits_rec.object_version_number := p7_a7;
176 ddp_prgm_benefits_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a8);
177 ddp_prgm_benefits_rec.last_updated_by := p7_a9;
178 ddp_prgm_benefits_rec.created_by := p7_a10;
179 ddp_prgm_benefits_rec.creation_date := rosetta_g_miss_date_in_map(p7_a11);
180
181
182 -- here's the delegated call to the old PL/SQL routine
183 pv_prgm_benefits_pvt.create_prgm_benefits(p_api_version_number,
184 p_init_msg_list,
185 p_commit,
186 p_validation_level,
187 x_return_status,
188 x_msg_count,
189 x_msg_data,
190 ddp_prgm_benefits_rec,
191 x_program_benefits_id);
192
193 -- copy data back from the local variables to OUT or IN-OUT args, if any
194
195
196
197
198
199
200
201
202 end;
203
204 procedure update_prgm_benefits(p_api_version_number NUMBER
205 , p_init_msg_list VARCHAR2
206 , p_commit VARCHAR2
207 , p_validation_level NUMBER
208 , x_return_status out nocopy VARCHAR2
209 , x_msg_count out nocopy NUMBER
210 , x_msg_data out nocopy VARCHAR2
211 , p7_a0 NUMBER
212 , p7_a1 NUMBER
213 , p7_a2 VARCHAR2
214 , p7_a3 NUMBER
215 , p7_a4 VARCHAR2
216 , p7_a5 VARCHAR2
217 , p7_a6 NUMBER
218 , p7_a7 NUMBER
219 , p7_a8 DATE
220 , p7_a9 NUMBER
221 , p7_a10 NUMBER
222 , p7_a11 DATE
223 )
224
225 as
226 ddp_prgm_benefits_rec pv_prgm_benefits_pvt.prgm_benefits_rec_type;
227 ddindx binary_integer; indx binary_integer;
228 begin
229
230 -- copy data to the local IN or IN-OUT args, if any
231
232
233
234
235
236
237
238 ddp_prgm_benefits_rec.program_benefits_id := p7_a0;
239 ddp_prgm_benefits_rec.program_id := p7_a1;
240 ddp_prgm_benefits_rec.benefit_code := p7_a2;
241 ddp_prgm_benefits_rec.benefit_id := p7_a3;
242 ddp_prgm_benefits_rec.benefit_type_code := p7_a4;
243 ddp_prgm_benefits_rec.delete_flag := p7_a5;
244 ddp_prgm_benefits_rec.last_update_login := p7_a6;
245 ddp_prgm_benefits_rec.object_version_number := p7_a7;
246 ddp_prgm_benefits_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a8);
247 ddp_prgm_benefits_rec.last_updated_by := p7_a9;
248 ddp_prgm_benefits_rec.created_by := p7_a10;
249 ddp_prgm_benefits_rec.creation_date := rosetta_g_miss_date_in_map(p7_a11);
250
251 -- here's the delegated call to the old PL/SQL routine
252 pv_prgm_benefits_pvt.update_prgm_benefits(p_api_version_number,
253 p_init_msg_list,
254 p_commit,
255 p_validation_level,
256 x_return_status,
257 x_msg_count,
258 x_msg_data,
259 ddp_prgm_benefits_rec);
260
261 -- copy data back from the local variables to OUT or IN-OUT args, if any
262
263
264
265
266
267
268
269 end;
270
271 procedure validate_prgm_benefits(p_api_version_number NUMBER
272 , p_init_msg_list VARCHAR2
273 , p_validation_level NUMBER
274 , p3_a0 NUMBER
275 , p3_a1 NUMBER
276 , p3_a2 VARCHAR2
277 , p3_a3 NUMBER
278 , p3_a4 VARCHAR2
279 , p3_a5 VARCHAR2
280 , p3_a6 NUMBER
281 , p3_a7 NUMBER
282 , p3_a8 DATE
283 , p3_a9 NUMBER
284 , p3_a10 NUMBER
285 , p3_a11 DATE
286 , p_validation_mode VARCHAR2
287 , x_return_status out nocopy VARCHAR2
288 , x_msg_count out nocopy NUMBER
289 , x_msg_data out nocopy VARCHAR2
290 )
291
292 as
293 ddp_prgm_benefits_rec pv_prgm_benefits_pvt.prgm_benefits_rec_type;
294 ddindx binary_integer; indx binary_integer;
295 begin
296
297 -- copy data to the local IN or IN-OUT args, if any
298
299
300
301 ddp_prgm_benefits_rec.program_benefits_id := p3_a0;
302 ddp_prgm_benefits_rec.program_id := p3_a1;
303 ddp_prgm_benefits_rec.benefit_code := p3_a2;
304 ddp_prgm_benefits_rec.benefit_id := p3_a3;
305 ddp_prgm_benefits_rec.benefit_type_code := p3_a4;
306 ddp_prgm_benefits_rec.delete_flag := p3_a5;
307 ddp_prgm_benefits_rec.last_update_login := p3_a6;
308 ddp_prgm_benefits_rec.object_version_number := p3_a7;
309 ddp_prgm_benefits_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a8);
310 ddp_prgm_benefits_rec.last_updated_by := p3_a9;
311 ddp_prgm_benefits_rec.created_by := p3_a10;
312 ddp_prgm_benefits_rec.creation_date := rosetta_g_miss_date_in_map(p3_a11);
313
314
315
316
317
318 -- here's the delegated call to the old PL/SQL routine
319 pv_prgm_benefits_pvt.validate_prgm_benefits(p_api_version_number,
320 p_init_msg_list,
321 p_validation_level,
322 ddp_prgm_benefits_rec,
323 p_validation_mode,
324 x_return_status,
325 x_msg_count,
326 x_msg_data);
327
328 -- copy data back from the local variables to OUT or IN-OUT args, if any
329
330
331
332
333
334
335
336 end;
337
338 procedure check_items(p0_a0 NUMBER
339 , p0_a1 NUMBER
340 , p0_a2 VARCHAR2
341 , p0_a3 NUMBER
342 , p0_a4 VARCHAR2
343 , p0_a5 VARCHAR2
344 , p0_a6 NUMBER
345 , p0_a7 NUMBER
346 , p0_a8 DATE
347 , p0_a9 NUMBER
348 , p0_a10 NUMBER
349 , p0_a11 DATE
350 , p_validation_mode VARCHAR2
351 , x_return_status out nocopy VARCHAR2
352 )
353
354 as
355 ddp_prgm_benefits_rec pv_prgm_benefits_pvt.prgm_benefits_rec_type;
356 ddindx binary_integer; indx binary_integer;
357 begin
358
359 -- copy data to the local IN or IN-OUT args, if any
360 ddp_prgm_benefits_rec.program_benefits_id := p0_a0;
361 ddp_prgm_benefits_rec.program_id := p0_a1;
362 ddp_prgm_benefits_rec.benefit_code := p0_a2;
363 ddp_prgm_benefits_rec.benefit_id := p0_a3;
364 ddp_prgm_benefits_rec.benefit_type_code := p0_a4;
365 ddp_prgm_benefits_rec.delete_flag := p0_a5;
366 ddp_prgm_benefits_rec.last_update_login := p0_a6;
367 ddp_prgm_benefits_rec.object_version_number := p0_a7;
368 ddp_prgm_benefits_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a8);
369 ddp_prgm_benefits_rec.last_updated_by := p0_a9;
370 ddp_prgm_benefits_rec.created_by := p0_a10;
371 ddp_prgm_benefits_rec.creation_date := rosetta_g_miss_date_in_map(p0_a11);
372
373
374
375 -- here's the delegated call to the old PL/SQL routine
376 pv_prgm_benefits_pvt.check_items(ddp_prgm_benefits_rec,
377 p_validation_mode,
378 x_return_status);
379
380 -- copy data back from the local variables to OUT or IN-OUT args, if any
381
382
383 end;
384
385 procedure validate_rec(p_api_version_number NUMBER
386 , p_init_msg_list VARCHAR2
387 , x_return_status out nocopy VARCHAR2
388 , x_msg_count out nocopy NUMBER
389 , x_msg_data out nocopy VARCHAR2
390 , p5_a0 NUMBER
391 , p5_a1 NUMBER
392 , p5_a2 VARCHAR2
393 , p5_a3 NUMBER
394 , p5_a4 VARCHAR2
395 , p5_a5 VARCHAR2
396 , p5_a6 NUMBER
397 , p5_a7 NUMBER
398 , p5_a8 DATE
399 , p5_a9 NUMBER
400 , p5_a10 NUMBER
401 , p5_a11 DATE
402 , p_validation_mode VARCHAR2
403 )
404
405 as
406 ddp_prgm_benefits_rec pv_prgm_benefits_pvt.prgm_benefits_rec_type;
407 ddindx binary_integer; indx binary_integer;
408 begin
409
410 -- copy data to the local IN or IN-OUT args, if any
411
412
413
414
415
416 ddp_prgm_benefits_rec.program_benefits_id := p5_a0;
417 ddp_prgm_benefits_rec.program_id := p5_a1;
418 ddp_prgm_benefits_rec.benefit_code := p5_a2;
419 ddp_prgm_benefits_rec.benefit_id := p5_a3;
420 ddp_prgm_benefits_rec.benefit_type_code := p5_a4;
421 ddp_prgm_benefits_rec.delete_flag := p5_a5;
422 ddp_prgm_benefits_rec.last_update_login := p5_a6;
423 ddp_prgm_benefits_rec.object_version_number := p5_a7;
424 ddp_prgm_benefits_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
425 ddp_prgm_benefits_rec.last_updated_by := p5_a9;
426 ddp_prgm_benefits_rec.created_by := p5_a10;
427 ddp_prgm_benefits_rec.creation_date := rosetta_g_miss_date_in_map(p5_a11);
428
429
430 -- here's the delegated call to the old PL/SQL routine
431 pv_prgm_benefits_pvt.validate_rec(p_api_version_number,
432 p_init_msg_list,
433 x_return_status,
434 x_msg_count,
435 x_msg_data,
436 ddp_prgm_benefits_rec,
437 p_validation_mode);
438
439 -- copy data back from the local variables to OUT or IN-OUT args, if any
440
441
442
443
444
445
446 end;
447
448 procedure complete_rec(p0_a0 NUMBER
449 , p0_a1 NUMBER
450 , p0_a2 VARCHAR2
451 , p0_a3 NUMBER
452 , p0_a4 VARCHAR2
453 , p0_a5 VARCHAR2
454 , p0_a6 NUMBER
455 , p0_a7 NUMBER
456 , p0_a8 DATE
457 , p0_a9 NUMBER
458 , p0_a10 NUMBER
459 , p0_a11 DATE
460 , p1_a0 out nocopy NUMBER
461 , p1_a1 out nocopy NUMBER
462 , p1_a2 out nocopy VARCHAR2
463 , p1_a3 out nocopy NUMBER
464 , p1_a4 out nocopy VARCHAR2
465 , p1_a5 out nocopy VARCHAR2
466 , p1_a6 out nocopy NUMBER
467 , p1_a7 out nocopy NUMBER
468 , p1_a8 out nocopy DATE
469 , p1_a9 out nocopy NUMBER
470 , p1_a10 out nocopy NUMBER
471 , p1_a11 out nocopy DATE
472 )
473
474 as
475 ddp_prgm_benefits_rec pv_prgm_benefits_pvt.prgm_benefits_rec_type;
476 ddx_complete_rec pv_prgm_benefits_pvt.prgm_benefits_rec_type;
477 ddindx binary_integer; indx binary_integer;
478 begin
479
480 -- copy data to the local IN or IN-OUT args, if any
481 ddp_prgm_benefits_rec.program_benefits_id := p0_a0;
482 ddp_prgm_benefits_rec.program_id := p0_a1;
483 ddp_prgm_benefits_rec.benefit_code := p0_a2;
484 ddp_prgm_benefits_rec.benefit_id := p0_a3;
485 ddp_prgm_benefits_rec.benefit_type_code := p0_a4;
486 ddp_prgm_benefits_rec.delete_flag := p0_a5;
487 ddp_prgm_benefits_rec.last_update_login := p0_a6;
488 ddp_prgm_benefits_rec.object_version_number := p0_a7;
489 ddp_prgm_benefits_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a8);
490 ddp_prgm_benefits_rec.last_updated_by := p0_a9;
491 ddp_prgm_benefits_rec.created_by := p0_a10;
492 ddp_prgm_benefits_rec.creation_date := rosetta_g_miss_date_in_map(p0_a11);
493
494
495 -- here's the delegated call to the old PL/SQL routine
496 pv_prgm_benefits_pvt.complete_rec(ddp_prgm_benefits_rec,
497 ddx_complete_rec);
498
499 -- copy data back from the local variables to OUT or IN-OUT args, if any
500
501 p1_a0 := ddx_complete_rec.program_benefits_id;
502 p1_a1 := ddx_complete_rec.program_id;
503 p1_a2 := ddx_complete_rec.benefit_code;
504 p1_a3 := ddx_complete_rec.benefit_id;
505 p1_a4 := ddx_complete_rec.benefit_type_code;
506 p1_a5 := ddx_complete_rec.delete_flag;
507 p1_a6 := ddx_complete_rec.last_update_login;
508 p1_a7 := ddx_complete_rec.object_version_number;
509 p1_a8 := ddx_complete_rec.last_update_date;
510 p1_a9 := ddx_complete_rec.last_updated_by;
511 p1_a10 := ddx_complete_rec.created_by;
512 p1_a11 := ddx_complete_rec.creation_date;
513 end;
514
515 end pv_prgm_benefits_pvt_w;