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