[Home] [Help]
1: package body pv_ge_hist_log_pvt_w as
2: /* $Header: pvxwghlb.pls 115.4 2003/08/08 23:57:49 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:
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_ge_hist_log_pvt.ge_hist_log_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
56: end loop;
57: end if;
58: end if;
59: end rosetta_table_copy_in_p2;
60: procedure rosetta_table_copy_out_p2(t pv_ge_hist_log_pvt.ge_hist_log_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
61: , a1 out nocopy JTF_NUMBER_TABLE
62: , a2 out nocopy JTF_VARCHAR2_TABLE_100
63: , a3 out nocopy JTF_NUMBER_TABLE
64: , a4 out nocopy JTF_VARCHAR2_TABLE_100
176: , x_entity_history_log_id out nocopy NUMBER
177: )
178:
179: as
180: ddp_ge_hist_log_rec pv_ge_hist_log_pvt.ge_hist_log_rec_type;
181: ddindx binary_integer; indx binary_integer;
182: begin
183:
184: -- copy data to the local IN or IN-OUT args, if any
206: ddp_ge_hist_log_rec.comments := p7_a14;
207:
208:
209: -- here's the delegated call to the old PL/SQL routine
210: pv_ge_hist_log_pvt.create_ge_hist_log(p_api_version_number,
211: p_init_msg_list,
212: p_commit,
213: p_validation_level,
214: x_return_status,
252: , p7_a14 VARCHAR2
253: )
254:
255: as
256: ddp_ge_hist_log_rec pv_ge_hist_log_pvt.ge_hist_log_rec_type;
257: ddindx binary_integer; indx binary_integer;
258: begin
259:
260: -- copy data to the local IN or IN-OUT args, if any
281: ddp_ge_hist_log_rec.interaction_level := p7_a13;
282: ddp_ge_hist_log_rec.comments := p7_a14;
283:
284: -- here's the delegated call to the old PL/SQL routine
285: pv_ge_hist_log_pvt.update_ge_hist_log(p_api_version_number,
286: p_init_msg_list,
287: p_commit,
288: p_validation_level,
289: x_return_status,
325: , x_msg_data out nocopy VARCHAR2
326: )
327:
328: as
329: ddp_ge_hist_log_rec pv_ge_hist_log_pvt.ge_hist_log_rec_type;
330: ddindx binary_integer; indx binary_integer;
331: begin
332:
333: -- copy data to the local IN or IN-OUT args, if any
354:
355:
356:
357: -- here's the delegated call to the old PL/SQL routine
358: pv_ge_hist_log_pvt.validate_ge_hist_log(p_api_version_number,
359: p_init_msg_list,
360: p_validation_level,
361: ddp_ge_hist_log_rec,
362: p_validation_mode,
393: , x_return_status out nocopy VARCHAR2
394: )
395:
396: as
397: ddp_ge_hist_log_rec pv_ge_hist_log_pvt.ge_hist_log_rec_type;
398: ddindx binary_integer; indx binary_integer;
399: begin
400:
401: -- copy data to the local IN or IN-OUT args, if any
417:
418:
419:
420: -- here's the delegated call to the old PL/SQL routine
421: pv_ge_hist_log_pvt.check_ge_hist_log_items(ddp_ge_hist_log_rec,
422: p_validation_mode,
423: x_return_status);
424:
425: -- copy data back from the local variables to OUT or IN-OUT args, if any
449: , p5_a14 VARCHAR2
450: )
451:
452: as
453: ddp_ge_hist_log_rec pv_ge_hist_log_pvt.ge_hist_log_rec_type;
454: ddindx binary_integer; indx binary_integer;
455: begin
456:
457: -- copy data to the local IN or IN-OUT args, if any
476: ddp_ge_hist_log_rec.interaction_level := p5_a13;
477: ddp_ge_hist_log_rec.comments := p5_a14;
478:
479: -- here's the delegated call to the old PL/SQL routine
480: pv_ge_hist_log_pvt.validate_ge_hist_log_rec(p_api_version_number,
481: p_init_msg_list,
482: x_return_status,
483: x_msg_count,
484: x_msg_data,
491:
492:
493: end;
494:
495: end pv_ge_hist_log_pvt_w;