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:
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
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
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
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,
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
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,
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
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,
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
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
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
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,
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:
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
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:
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;