[Home] [Help]
1: package body pv_attr_principal_pvt_w as
2: /* $Header: pvxwatpb.pls 120.0 2007/12/20 09:22:35 abnagapp 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 pv_attr_principal_pvt.attr_principal_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 pv_attr_principal_pvt.attr_principal_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_attr_principal_rec pv_attr_principal_pvt.attr_principal_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_attr_principal_rec.jtf_auth_principal_id := rosetta_g_miss_num_map(p7_a8);
162:
163:
164: -- here's the delegated call to the old PL/SQL routine
165: pv_attr_principal_pvt.create_attr_principal(p_api_version_number,
166: p_init_msg_list,
167: p_commit,
168: p_validation_level,
169: x_return_status,
202: , p7_a8 NUMBER := 0-1962.0724
203: )
204:
205: as
206: ddp_attr_principal_rec pv_attr_principal_pvt.attr_principal_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_attr_principal_rec.jtf_auth_principal_id := rosetta_g_miss_num_map(p7_a8);
227:
228:
229: -- here's the delegated call to the old PL/SQL routine
230: pv_attr_principal_pvt.update_attr_principal(p_api_version_number,
231: p_init_msg_list,
232: p_commit,
233: p_validation_level,
234: x_return_status,
266: , p4_a8 NUMBER := 0-1962.0724
267: )
268:
269: as
270: ddp_attr_principal_rec pv_attr_principal_pvt.attr_principal_rec_type;
271: ddindx binary_integer; indx binary_integer;
272: begin
273:
274: -- 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_attr_principal_pvt.validate_attr_principal(p_api_version_number,
294: p_init_msg_list,
295: p_validation_level,
296: p_validation_mode,
297: ddp_attr_principal_rec,
326: , p5_a8 NUMBER := 0-1962.0724
327: )
328:
329: as
330: ddp_attr_principal_rec pv_attr_principal_pvt.attr_principal_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
348: ddp_attr_principal_rec.jtf_auth_principal_id := rosetta_g_miss_num_map(p5_a8);
349:
350:
351: -- here's the delegated call to the old PL/SQL routine
352: pv_attr_principal_pvt.validate_attr_principal_rec(p_api_version_number,
353: p_init_msg_list,
354: x_return_status,
355: x_msg_count,
356: x_msg_data,
379: , p0_a8 NUMBER := 0-1962.0724
380: )
381:
382: as
383: ddp_attr_principal_rec pv_attr_principal_pvt.attr_principal_rec_type;
384: ddindx binary_integer; indx binary_integer;
385: begin
386:
387: -- copy data to the local IN or IN-OUT args, if any
397:
398:
399:
400: -- here's the delegated call to the old PL/SQL routine
401: pv_attr_principal_pvt.check_attr_principal_items(ddp_attr_principal_rec,
402: p_validation_mode,
403: x_return_status);
404:
405: -- copy data back from the local variables to OUT or IN-OUT args, if any
406:
407:
408: end;
409:
410: end pv_attr_principal_pvt_w;