1: package body pv_prgm_contracts_pvt_w as
2: /* $Header: pvxwppcb.pls 120.0 2005/05/27 15:21:25 appldev noship $ */
3: rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4: rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5:
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_contracts_pvt.program_contracts_tbl_type, a0 JTF_NUMBER_TABLE
14: , a1 JTF_NUMBER_TABLE
15: , a2 JTF_NUMBER_TABLE
16: , a3 JTF_NUMBER_TABLE
17: , a4 JTF_DATE_TABLE
48: end loop;
49: end if;
50: end if;
51: end rosetta_table_copy_in_p2;
52: procedure rosetta_table_copy_out_p2(t pv_prgm_contracts_pvt.program_contracts_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
53: , a1 out nocopy JTF_NUMBER_TABLE
54: , a2 out nocopy JTF_NUMBER_TABLE
55: , a3 out nocopy JTF_NUMBER_TABLE
56: , a4 out nocopy JTF_DATE_TABLE
144: , x_program_contracts_id out nocopy NUMBER
145: )
146:
147: as
148: ddp_prgm_contracts_rec pv_prgm_contracts_pvt.prgm_contracts_rec_type;
149: ddindx binary_integer; indx binary_integer;
150: begin
151:
152: -- copy data to the local IN or IN-OUT args, if any
170: ddp_prgm_contracts_rec.member_type_code := p7_a10;
171:
172:
173: -- here's the delegated call to the old PL/SQL routine
174: pv_prgm_contracts_pvt.create_prgm_contracts(p_api_version_number,
175: p_init_msg_list,
176: p_commit,
177: p_validation_level,
178: x_return_status,
212: , p7_a10 VARCHAR2
213: )
214:
215: as
216: ddp_prgm_contracts_rec pv_prgm_contracts_pvt.prgm_contracts_rec_type;
217: ddindx binary_integer; indx binary_integer;
218: begin
219:
220: -- copy data to the local IN or IN-OUT args, if any
237: ddp_prgm_contracts_rec.object_version_number := p7_a9;
238: ddp_prgm_contracts_rec.member_type_code := p7_a10;
239:
240: -- here's the delegated call to the old PL/SQL routine
241: pv_prgm_contracts_pvt.update_prgm_contracts(p_api_version_number,
242: p_init_msg_list,
243: p_commit,
244: p_validation_level,
245: x_return_status,
277: , x_msg_data out nocopy VARCHAR2
278: )
279:
280: as
281: ddp_prgm_contracts_rec pv_prgm_contracts_pvt.prgm_contracts_rec_type;
282: ddindx binary_integer; indx binary_integer;
283: begin
284:
285: -- copy data to the local IN or IN-OUT args, if any
302:
303:
304:
305: -- here's the delegated call to the old PL/SQL routine
306: pv_prgm_contracts_pvt.validate_prgm_contracts(p_api_version_number,
307: p_init_msg_list,
308: p_validation_level,
309: ddp_prgm_contracts_rec,
310: p_validation_mode,
337: , x_return_status out nocopy VARCHAR2
338: )
339:
340: as
341: ddp_prgm_contracts_rec pv_prgm_contracts_pvt.prgm_contracts_rec_type;
342: ddindx binary_integer; indx binary_integer;
343: begin
344:
345: -- copy data to the local IN or IN-OUT args, if any
357:
358:
359:
360: -- here's the delegated call to the old PL/SQL routine
361: pv_prgm_contracts_pvt.check_items(ddp_prgm_contracts_rec,
362: p_validation_mode,
363: x_return_status);
364:
365: -- copy data back from the local variables to OUT or IN-OUT args, if any
386: , p_validation_mode VARCHAR2
387: )
388:
389: as
390: ddp_prgm_contracts_rec pv_prgm_contracts_pvt.prgm_contracts_rec_type;
391: ddindx binary_integer; indx binary_integer;
392: begin
393:
394: -- copy data to the local IN or IN-OUT args, if any
410: ddp_prgm_contracts_rec.member_type_code := p5_a10;
411:
412:
413: -- here's the delegated call to the old PL/SQL routine
414: pv_prgm_contracts_pvt.validate_rec(p_api_version_number,
415: p_init_msg_list,
416: x_return_status,
417: x_msg_count,
418: x_msg_data,
452: , p1_a10 out nocopy VARCHAR2
453: )
454:
455: as
456: ddp_prgm_contracts_rec pv_prgm_contracts_pvt.prgm_contracts_rec_type;
457: ddx_complete_rec pv_prgm_contracts_pvt.prgm_contracts_rec_type;
458: ddindx binary_integer; indx binary_integer;
459: begin
460:
453: )
454:
455: as
456: ddp_prgm_contracts_rec pv_prgm_contracts_pvt.prgm_contracts_rec_type;
457: ddx_complete_rec pv_prgm_contracts_pvt.prgm_contracts_rec_type;
458: ddindx binary_integer; indx binary_integer;
459: begin
460:
461: -- copy data to the local IN or IN-OUT args, if any
472: ddp_prgm_contracts_rec.member_type_code := p0_a10;
473:
474:
475: -- here's the delegated call to the old PL/SQL routine
476: pv_prgm_contracts_pvt.complete_rec(ddp_prgm_contracts_rec,
477: ddx_complete_rec);
478:
479: -- copy data back from the local variables to OUT or IN-OUT args, if any
480:
490: p1_a9 := ddx_complete_rec.object_version_number;
491: p1_a10 := ddx_complete_rec.member_type_code;
492: end;
493:
494: end pv_prgm_contracts_pvt_w;