[Home] [Help]
1: package body oe_globals_w as
2: /* $Header: OERSGLBB.pls 120.0 2005/06/01 01:06:52 appldev 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_p199(t out NOCOPY /* file.sql.39 change */ oe_globals.line_id_list, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: ) as
25: ddindx binary_integer; indx binary_integer;
26: begin
39: end loop;
40: end if;
41: end if;
42: end rosetta_table_copy_in_p199;
43: procedure rosetta_table_copy_out_p199(t oe_globals.line_id_list, a0 out NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
44: , a1 out NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
45: ) as
46: ddindx binary_integer; indx binary_integer;
47: begin
68: end if;
69: end if;
70: end rosetta_table_copy_out_p199;
71:
72: procedure rosetta_table_copy_in_p222(t out NOCOPY /* file.sql.39 change */ oe_globals.index_tbl_type, a0 JTF_NUMBER_TABLE) as
73: ddindx binary_integer; indx binary_integer;
74: begin
75: if a0 is not null and a0.count > 0 then
76: if a0.count > 0 then
86: end loop;
87: end if;
88: end if;
89: end rosetta_table_copy_in_p222;
90: procedure rosetta_table_copy_out_p222(t oe_globals.index_tbl_type, a0 out NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE) as
91: ddindx binary_integer; indx binary_integer;
92: begin
93: if t is null or t.count = 0 then
94: a0 := JTF_NUMBER_TABLE();
109: end if;
110: end if;
111: end rosetta_table_copy_out_p222;
112:
113: procedure rosetta_table_copy_in_p226(t out NOCOPY /* file.sql.39 change */ oe_globals.oe_audit_trail_history_tbl, a0 JTF_NUMBER_TABLE
114: , a1 JTF_NUMBER_TABLE
115: , a2 JTF_VARCHAR2_TABLE_100
116: ) as
117: ddindx binary_integer; indx binary_integer;
132: end loop;
133: end if;
134: end if;
135: end rosetta_table_copy_in_p226;
136: procedure rosetta_table_copy_out_p226(t oe_globals.oe_audit_trail_history_tbl, a0 out NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
137: , a1 out NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
138: , a2 out NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
139: ) as
140: ddindx binary_integer; indx binary_integer;
166: end if;
167: end if;
168: end rosetta_table_copy_out_p226;
169:
170: procedure rosetta_table_copy_in_p228(t out NOCOPY /* file.sql.39 change */ oe_globals.boolean_tbl_type, a0 JTF_NUMBER_TABLE) as
171: ddindx binary_integer; indx binary_integer;
172: begin
173: if a0 is not null and a0.count > 0 then
174: if a0.count > 0 then
189: end loop;
190: end if;
191: end if;
192: end rosetta_table_copy_in_p228;
193: procedure rosetta_table_copy_out_p228(t oe_globals.boolean_tbl_type, a0 out NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE) as
194: ddindx binary_integer; indx binary_integer;
195: begin
196: if t is null or t.count = 0 then
197: a0 := JTF_NUMBER_TABLE();
217: end if;
218: end if;
219: end rosetta_table_copy_out_p228;
220:
221: procedure rosetta_table_copy_in_p229(t out NOCOPY /* file.sql.39 change */ oe_globals.number_tbl_type, a0 JTF_NUMBER_TABLE) as
222: ddindx binary_integer; indx binary_integer;
223: begin
224: if a0 is not null and a0.count > 0 then
225: if a0.count > 0 then
235: end loop;
236: end if;
237: end if;
238: end rosetta_table_copy_in_p229;
239: procedure rosetta_table_copy_out_p229(t oe_globals.number_tbl_type, a0 out NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE) as
240: ddindx binary_integer; indx binary_integer;
241: begin
242: if t is null or t.count = 0 then
243: a0 := JTF_NUMBER_TABLE();
258: end if;
259: end if;
260: end rosetta_table_copy_out_p229;
261:
262: procedure rosetta_table_copy_in_p232(t out NOCOPY /* file.sql.39 change */ oe_globals.access_list, a0 JTF_VARCHAR2_TABLE_100) as
263: ddindx binary_integer; indx binary_integer;
264: begin
265: if a0 is not null and a0.count > 0 then
266: if a0.count > 0 then
276: end loop;
277: end if;
278: end if;
279: end rosetta_table_copy_in_p232;
280: procedure rosetta_table_copy_out_p232(t oe_globals.access_list, a0 out NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100) as
281: ddindx binary_integer; indx binary_integer;
282: begin
283: if t is null or t.count = 0 then
284: a0 := JTF_VARCHAR2_TABLE_100();
313: -- copy data to the local IN or IN-OUT args, if any
314:
315:
316: -- here's the delegated call to the old PL/SQL routine
317: ddrosetta_retval := oe_globals.equal(p_attribute1,
318: p_attribute2);
319:
320: -- copy data back from the local variables to OUT NOCOPY /* file.sql.39 change */ or IN-OUT args, if any
321: if ddrosetta_retval is null
340: -- copy data to the local IN or IN-OUT args, if any
341:
342:
343: -- here's the delegated call to the old PL/SQL routine
344: ddrosetta_retval := oe_globals.equal(p_attribute1,
345: p_attribute2);
346:
347: -- copy data back from the local variables to OUT NOCOPY /* file.sql.39 change */ or IN-OUT args, if any
348: if ddrosetta_retval is null
371:
372: ddp_attribute2 := rosetta_g_miss_date_in_map(p_attribute2);
373:
374: -- here's the delegated call to the old PL/SQL routine
375: ddrosetta_retval := oe_globals.equal(ddp_attribute1,
376: ddp_attribute2);
377:
378: -- copy data back from the local variables to OUT NOCOPY /* file.sql.39 change */ or IN-OUT args, if any
379: if ddrosetta_retval is null
384: end if;
385:
386: end;
387:
388: end oe_globals_w;