1: package body pv_pg_enrq_init_sources_pvt_w as
2: /* $Header: pvxwpeib.pls 115.1 2002/11/28 01:15:52 jkylee 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:
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_pg_enrq_init_sources_pvt.enrq_init_sources_tbl_type, a0 JTF_NUMBER_TABLE
14: , a1 JTF_NUMBER_TABLE
15: , a2 JTF_NUMBER_TABLE
16: , a3 JTF_NUMBER_TABLE
17: , a4 JTF_NUMBER_TABLE
46: end loop;
47: end if;
48: end if;
49: end rosetta_table_copy_in_p2;
50: procedure rosetta_table_copy_out_p2(t pv_pg_enrq_init_sources_pvt.enrq_init_sources_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
51: , a1 out nocopy JTF_NUMBER_TABLE
52: , a2 out nocopy JTF_NUMBER_TABLE
53: , a3 out nocopy JTF_NUMBER_TABLE
54: , a4 out nocopy JTF_NUMBER_TABLE
136: , x_initiation_source_id out nocopy NUMBER
137: )
138:
139: as
140: ddp_enrq_init_sources_rec pv_pg_enrq_init_sources_pvt.enrq_init_sources_rec_type;
141: ddindx binary_integer; indx binary_integer;
142: begin
143:
144: -- copy data to the local IN or IN-OUT args, if any
161: ddp_enrq_init_sources_rec.last_update_login := p7_a9;
162:
163:
164: -- here's the delegated call to the old PL/SQL routine
165: pv_pg_enrq_init_sources_pvt.create_pg_enrq_init_sources(p_api_version_number,
166: p_init_msg_list,
167: p_commit,
168: p_validation_level,
169: x_return_status,
202: , p7_a9 NUMBER
203: )
204:
205: as
206: ddp_enrq_init_sources_rec pv_pg_enrq_init_sources_pvt.enrq_init_sources_rec_type;
207: ddindx binary_integer; indx binary_integer;
208: begin
209:
210: -- copy data to the local IN or IN-OUT args, if any
226: ddp_enrq_init_sources_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a8);
227: ddp_enrq_init_sources_rec.last_update_login := p7_a9;
228:
229: -- here's the delegated call to the old PL/SQL routine
230: pv_pg_enrq_init_sources_pvt.update_pg_enrq_init_sources(p_api_version_number,
231: p_init_msg_list,
232: p_commit,
233: p_validation_level,
234: x_return_status,
265: , x_msg_data out nocopy VARCHAR2
266: )
267:
268: as
269: ddp_enrq_init_sources_rec pv_pg_enrq_init_sources_pvt.enrq_init_sources_rec_type;
270: ddindx binary_integer; indx binary_integer;
271: begin
272:
273: -- copy data to the local IN or IN-OUT args, if any
289:
290:
291:
292: -- here's the delegated call to the old PL/SQL routine
293: pv_pg_enrq_init_sources_pvt.validate_pg_init_src(p_api_version_number,
294: p_init_msg_list,
295: p_validation_level,
296: ddp_enrq_init_sources_rec,
297: p_validation_mode,
323: , x_return_status out nocopy VARCHAR2
324: )
325:
326: as
327: ddp_enrq_init_sources_rec pv_pg_enrq_init_sources_pvt.enrq_init_sources_rec_type;
328: ddindx binary_integer; indx binary_integer;
329: begin
330:
331: -- copy data to the local IN or IN-OUT args, if any
342:
343:
344:
345: -- here's the delegated call to the old PL/SQL routine
346: pv_pg_enrq_init_sources_pvt.check_init_src_items(ddp_enrq_init_sources_rec,
347: p_validation_mode,
348: x_return_status);
349:
350: -- copy data back from the local variables to OUT or IN-OUT args, if any
369: , p5_a9 NUMBER
370: )
371:
372: as
373: ddp_enrq_init_sources_rec pv_pg_enrq_init_sources_pvt.enrq_init_sources_rec_type;
374: ddindx binary_integer; indx binary_integer;
375: begin
376:
377: -- copy data to the local IN or IN-OUT args, if any
391: ddp_enrq_init_sources_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a8);
392: ddp_enrq_init_sources_rec.last_update_login := p5_a9;
393:
394: -- here's the delegated call to the old PL/SQL routine
395: pv_pg_enrq_init_sources_pvt.validate_init_src_rec(p_api_version_number,
396: p_init_msg_list,
397: x_return_status,
398: x_msg_count,
399: x_msg_data,
406:
407:
408: end;
409:
410: end pv_pg_enrq_init_sources_pvt_w;