[Home] [Help]
1: package body ams_dm_target_sources_pvt_w as
2: /* $Header: amswdtsb.pls 115.1 2004/06/16 12:27:38 rosharma 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:
18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p2(t out nocopy ams_dm_target_sources_pvt.target_source_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
53: end loop;
54: end if;
55: end if;
56: end rosetta_table_copy_in_p2;
57: procedure rosetta_table_copy_out_p2(t ams_dm_target_sources_pvt.target_source_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
58: , a1 out nocopy JTF_DATE_TABLE
59: , a2 out nocopy JTF_NUMBER_TABLE
60: , a3 out nocopy JTF_DATE_TABLE
61: , a4 out nocopy JTF_NUMBER_TABLE
137: , p7_a8 NUMBER := 0-1962.0724
138: )
139:
140: as
141: ddp_target_source_rec_type_rec ams_dm_target_sources_pvt.target_source_rec_type;
142: ddindx binary_integer; indx binary_integer;
143: begin
144:
145: -- copy data to the local IN or IN-OUT args, if any
161: ddp_target_source_rec_type_rec.data_source_id := rosetta_g_miss_num_map(p7_a8);
162:
163:
164: -- here's the delegated call to the old PL/SQL routine
165: ams_dm_target_sources_pvt.create_dm_target_sources(p_api_version_number,
166: p_init_msg_list,
167: p_commit,
168: p_validation_level,
169: x_return_status,
201: , p7_a8 NUMBER := 0-1962.0724
202: )
203:
204: as
205: ddp_target_source_rec_type_rec ams_dm_target_sources_pvt.target_source_rec_type;
206: ddindx binary_integer; indx binary_integer;
207: begin
208:
209: -- copy data to the local IN or IN-OUT args, if any
224: ddp_target_source_rec_type_rec.target_id := rosetta_g_miss_num_map(p7_a7);
225: ddp_target_source_rec_type_rec.data_source_id := rosetta_g_miss_num_map(p7_a8);
226:
227: -- here's the delegated call to the old PL/SQL routine
228: ams_dm_target_sources_pvt.update_dm_target_sources(p_api_version_number,
229: p_init_msg_list,
230: p_commit,
231: p_validation_level,
232: x_return_status,
262: , p3_a8 NUMBER := 0-1962.0724
263: )
264:
265: as
266: ddp_target_source_rec_type_rec ams_dm_target_sources_pvt.target_source_rec_type;
267: ddindx binary_integer; indx binary_integer;
268: begin
269:
270: -- copy data to the local IN or IN-OUT args, if any
285:
286:
287:
288: -- here's the delegated call to the old PL/SQL routine
289: ams_dm_target_sources_pvt.validate_dm_target_sources(p_api_version_number,
290: p_init_msg_list,
291: p_validation_level,
292: ddp_target_source_rec_type_rec,
293: p_validation_mode,
318: , p0_a8 NUMBER := 0-1962.0724
319: )
320:
321: as
322: ddp_target_source_rec_type_rec ams_dm_target_sources_pvt.target_source_rec_type;
323: ddindx binary_integer; indx binary_integer;
324: begin
325:
326: -- copy data to the local IN or IN-OUT args, if any
336:
337:
338:
339: -- here's the delegated call to the old PL/SQL routine
340: ams_dm_target_sources_pvt.check_target_source_items(ddp_target_source_rec_type_rec,
341: p_validation_mode,
342: x_return_status);
343:
344: -- copy data back from the local variables to OUT or IN-OUT args, if any
363: , p5_a8 NUMBER := 0-1962.0724
364: )
365:
366: as
367: ddp_target_source_rec_type_rec ams_dm_target_sources_pvt.target_source_rec_type;
368: ddindx binary_integer; indx binary_integer;
369: begin
370:
371: -- copy data to the local IN or IN-OUT args, if any
384: ddp_target_source_rec_type_rec.target_id := rosetta_g_miss_num_map(p5_a7);
385: ddp_target_source_rec_type_rec.data_source_id := rosetta_g_miss_num_map(p5_a8);
386:
387: -- here's the delegated call to the old PL/SQL routine
388: ams_dm_target_sources_pvt.validate_target_source_rec(p_api_version_number,
389: p_init_msg_list,
390: p_validation_mode,
391: x_return_status,
392: x_msg_count,
400:
401:
402: end;
403:
404: end ams_dm_target_sources_pvt_w;