1: package body cn_tsr_pvt_w as
2: /* $Header: cnwtsrb.pls 115.5 2002/11/25 22:32:35 nkodkani 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:
9: if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10: return d;
11: end;
12:
13: procedure rosetta_table_copy_in_p1(t out nocopy cn_tsr_pvt.tsr_tbl_type, a0 JTF_VARCHAR2_TABLE_100
14: , a1 JTF_VARCHAR2_TABLE_100
15: , a2 JTF_VARCHAR2_TABLE_100
16: , a3 JTF_VARCHAR2_TABLE_100
17: , a4 JTF_NUMBER_TABLE
38: end loop;
39: end if;
40: end if;
41: end rosetta_table_copy_in_p1;
42: procedure rosetta_table_copy_out_p1(t cn_tsr_pvt.tsr_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
43: , a1 out nocopy JTF_VARCHAR2_TABLE_100
44: , a2 out nocopy JTF_VARCHAR2_TABLE_100
45: , a3 out nocopy JTF_VARCHAR2_TABLE_100
46: , a4 out nocopy JTF_NUMBER_TABLE
112: )
113:
114: as
115: ddp_period_id date;
116: ddx_tsr_data cn_tsr_pvt.tsr_tbl_type;
117: ddindx binary_integer; indx binary_integer;
118: begin
119:
120: -- copy data to the local IN or IN-OUT args, if any
135:
136:
137:
138: -- here's the delegated call to the old PL/SQL routine
139: cn_tsr_pvt.get_tsr_data(p_api_version,
140: p_init_msg_list,
141: p_commit,
142: p_validation_level,
143: x_return_status,
166:
167:
168:
169:
170: cn_tsr_pvt_w.rosetta_table_copy_out_p1(ddx_tsr_data, p13_a0
171: , p13_a1
172: , p13_a2
173: , p13_a3
174: , p13_a4
177:
178:
179: end;
180:
181: end cn_tsr_pvt_w;