1: package body jtf_perz_ddf_pub_w as
2: /* $Header: jtfzwddb.pls 120.2 2005/11/02 23:00:25 skothe 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_p1(t OUT NOCOPY /* file.sql.39 change */ jtf_perz_ddf_pub.ddf_out_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_VARCHAR2_TABLE_100
51: end loop;
52: end if;
53: end if;
54: end rosetta_table_copy_in_p1;
55: procedure rosetta_table_copy_out_p1(t jtf_perz_ddf_pub.ddf_out_tbl_type, a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
56: , a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
57: , a2 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
58: , a3 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
59: , a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
164:
165:
166:
167: -- here's the delegated call to the old PL/SQL routine
168: jtf_perz_ddf_pub.save_data_default(p_api_version_number,
169: p_init_msg_list,
170: p_commit,
171: p_application_id,
172: p_profile_id,
227: , x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
228: , x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
229: )
230: as
231: ddx_ddf_out_tbl jtf_perz_ddf_pub.ddf_out_tbl_type;
232: ddindx binary_integer; indx binary_integer;
233: begin
234:
235: -- copy data to the local IN or IN-OUT args, if any
248:
249:
250:
251: -- here's the delegated call to the old PL/SQL routine
252: jtf_perz_ddf_pub.get_data_default(p_api_version_number,
253: p_init_msg_list,
254: p_application_id,
255: p_profile_id,
256: p_profile_name,
276:
277:
278:
279:
280: jtf_perz_ddf_pub_w.rosetta_table_copy_out_p1(ddx_ddf_out_tbl, p11_a0
281: , p11_a1
282: , p11_a2
283: , p11_a3
284: , p11_a4
290:
291:
292: end;
293:
294: end jtf_perz_ddf_pub_w;