[Home] [Help]
1: package body ams_template_res_pvt_w as
2: /* $Header: amswptrb.pls 115.2 2002/11/15 21:04:39 abhola 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 d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19: return d;
20: end;
21:
22: procedure rosetta_table_copy_in_p3(t OUT NOCOPY ams_template_res_pvt.template_res_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_DATE_TABLE
26: , a4 JTF_NUMBER_TABLE
55: end loop;
56: end if;
57: end if;
58: end rosetta_table_copy_in_p3;
59: procedure rosetta_table_copy_out_p3(t ams_template_res_pvt.template_res_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
60: , a1 OUT NOCOPY JTF_NUMBER_TABLE
61: , a2 OUT NOCOPY JTF_NUMBER_TABLE
62: , a3 OUT NOCOPY JTF_DATE_TABLE
63: , a4 OUT NOCOPY JTF_NUMBER_TABLE
144: , p7_a8 NUMBER := 0-1962.0724
145: , p7_a9 NUMBER := 0-1962.0724
146: )
147: as
148: ddp_template_res_rec ams_template_res_pvt.template_res_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
169: ddp_template_res_rec.security_group_id := rosetta_g_miss_num_map(p7_a9);
170:
171:
172: -- here's the delegated call to the old PL/SQL routine
173: ams_template_res_pvt.create_template_res(p_api_version_number,
174: p_init_msg_list,
175: p_commit,
176: p_validation_level,
177: x_return_status,
209: , p7_a8 NUMBER := 0-1962.0724
210: , p7_a9 NUMBER := 0-1962.0724
211: )
212: as
213: ddp_template_res_rec ams_template_res_pvt.template_res_rec_type;
214: ddindx binary_integer; indx binary_integer;
215: begin
216:
217: -- copy data to the local IN or IN-OUT args, if any
233: ddp_template_res_rec.last_update_login := rosetta_g_miss_num_map(p7_a8);
234: ddp_template_res_rec.security_group_id := rosetta_g_miss_num_map(p7_a9);
235:
236: -- here's the delegated call to the old PL/SQL routine
237: ams_template_res_pvt.update_template_res(p_api_version_number,
238: p_init_msg_list,
239: p_commit,
240: p_validation_level,
241: x_return_status,
271: , p3_a8 NUMBER := 0-1962.0724
272: , p3_a9 NUMBER := 0-1962.0724
273: )
274: as
275: ddp_template_res_rec ams_template_res_pvt.template_res_rec_type;
276: ddindx binary_integer; indx binary_integer;
277: begin
278:
279: -- copy data to the local IN or IN-OUT args, if any
295:
296:
297:
298: -- here's the delegated call to the old PL/SQL routine
299: ams_template_res_pvt.validate_template_res(p_api_version_number,
300: p_init_msg_list,
301: p_validation_level,
302: ddp_template_res_rec,
303: p_validation_mode,
328: , p0_a8 NUMBER := 0-1962.0724
329: , p0_a9 NUMBER := 0-1962.0724
330: )
331: as
332: ddp_template_res_rec ams_template_res_pvt.template_res_rec_type;
333: ddindx binary_integer; indx binary_integer;
334: begin
335:
336: -- copy data to the local IN or IN-OUT args, if any
347:
348:
349:
350: -- here's the delegated call to the old PL/SQL routine
351: ams_template_res_pvt.check_template_res_items(ddp_template_res_rec,
352: p_validation_mode,
353: x_return_status);
354:
355: -- copy data back from the local OUT or IN-OUT args, if any
373: , p5_a8 NUMBER := 0-1962.0724
374: , p5_a9 NUMBER := 0-1962.0724
375: )
376: as
377: ddp_template_res_rec ams_template_res_pvt.template_res_rec_type;
378: ddindx binary_integer; indx binary_integer;
379: begin
380:
381: -- copy data to the local IN or IN-OUT args, if any
395: ddp_template_res_rec.last_update_login := rosetta_g_miss_num_map(p5_a8);
396: ddp_template_res_rec.security_group_id := rosetta_g_miss_num_map(p5_a9);
397:
398: -- here's the delegated call to the old PL/SQL routine
399: ams_template_res_pvt.validate_template_res_rec(p_api_version_number,
400: p_init_msg_list,
401: x_return_status,
402: x_msg_count,
403: x_msg_data,
410:
411:
412: end;
413:
414: end ams_template_res_pvt_w;