1: package body ams_dm_target_pvt_w as
2: /* $Header: amswdtgb.pls 115.4 2003/09/15 12:44:54 rosharma 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 n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p3(t out nocopy ams_dm_target_pvt.dm_target_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_DATE_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_DATE_TABLE
26: , a4 JTF_NUMBER_TABLE
63: end loop;
64: end if;
65: end if;
66: end rosetta_table_copy_in_p3;
67: procedure rosetta_table_copy_out_p3(t ams_dm_target_pvt.dm_target_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
68: , a1 out nocopy JTF_DATE_TABLE
69: , a2 out nocopy JTF_NUMBER_TABLE
70: , a3 out nocopy JTF_DATE_TABLE
71: , a4 out nocopy JTF_NUMBER_TABLE
177: , p7_a13 NUMBER := 0-1962.0724
178: )
179:
180: as
181: ddp_dm_target_rec ams_dm_target_pvt.dm_target_rec_type;
182: ddindx binary_integer; indx binary_integer;
183: begin
184:
185: -- copy data to the local IN or IN-OUT args, if any
206: ddp_dm_target_rec.target_source_id := rosetta_g_miss_num_map(p7_a13);
207:
208:
209: -- here's the delegated call to the old PL/SQL routine
210: ams_dm_target_pvt.create_dmtarget(p_api_version_number,
211: p_init_msg_list,
212: p_commit,
213: p_validation_level,
214: x_return_status,
252: , p7_a13 NUMBER := 0-1962.0724
253: )
254:
255: as
256: ddp_dm_target_rec ams_dm_target_pvt.dm_target_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_dm_target_rec.target_source_id := rosetta_g_miss_num_map(p7_a13);
282:
283:
284: -- here's the delegated call to the old PL/SQL routine
285: ams_dm_target_pvt.update_dmtarget(p_api_version_number,
286: p_init_msg_list,
287: p_commit,
288: p_validation_level,
289: x_return_status,
326: , p3_a13 NUMBER := 0-1962.0724
327: )
328:
329: as
330: ddp_dm_target_rec ams_dm_target_pvt.dm_target_rec_type;
331: ddindx binary_integer; indx binary_integer;
332: begin
333:
334: -- 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: ams_dm_target_pvt.validate_dmtarget(p_api_version_number,
359: p_init_msg_list,
360: p_validation_level,
361: ddp_dm_target_rec,
362: p_validation_mode,
392: , p0_a13 NUMBER := 0-1962.0724
393: )
394:
395: as
396: ddp_dm_target_rec ams_dm_target_pvt.dm_target_rec_type;
397: ddindx binary_integer; indx binary_integer;
398: begin
399:
400: -- copy data to the local IN or IN-OUT args, if any
415:
416:
417:
418: -- here's the delegated call to the old PL/SQL routine
419: ams_dm_target_pvt.check_dm_target_items(ddp_dm_target_rec,
420: p_validation_mode,
421: x_return_status);
422:
423: -- copy data back from the local variables to OUT or IN-OUT args, if any
446: , p5_a13 NUMBER := 0-1962.0724
447: )
448:
449: as
450: ddp_dm_target_rec ams_dm_target_pvt.dm_target_rec_type;
451: ddindx binary_integer; indx binary_integer;
452: begin
453:
454: -- copy data to the local IN or IN-OUT args, if any
472: ddp_dm_target_rec.description := p5_a12;
473: ddp_dm_target_rec.target_source_id := rosetta_g_miss_num_map(p5_a13);
474:
475: -- here's the delegated call to the old PL/SQL routine
476: ams_dm_target_pvt.validate_dm_target_rec(p_api_version_number,
477: p_init_msg_list,
478: x_return_status,
479: x_msg_count,
480: x_msg_data,
487:
488:
489: end;
490:
491: end ams_dm_target_pvt_w;