1: package body csp_req_line_details_pvt_w as
2: /* $Header: csprqldpvtwb.pls 120.1 2010/12/07 06:20:45 hhaugeru 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: rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
12: if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13: return d;
14: end;
15:
16: procedure rosetta_table_copy_in_p3(t out nocopy csp_req_line_details_pvt.req_line_details_tbl_type, a0 JTF_NUMBER_TABLE
17: , a1 JTF_NUMBER_TABLE
18: , a2 JTF_NUMBER_TABLE
19: , a3 JTF_DATE_TABLE
20: , a4 JTF_NUMBER_TABLE
47: end loop;
48: end if;
49: end if;
50: end rosetta_table_copy_in_p3;
51: procedure rosetta_table_copy_out_p3(t csp_req_line_details_pvt.req_line_details_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
52: , a1 out nocopy JTF_NUMBER_TABLE
53: , a2 out nocopy JTF_NUMBER_TABLE
54: , a3 out nocopy JTF_DATE_TABLE
55: , a4 out nocopy JTF_NUMBER_TABLE
139: , x_msg_data out nocopy VARCHAR2
140: )
141:
142: as
143: ddp_req_line_details_tbl csp_req_line_details_pvt.req_line_details_tbl_type;
144: ddx_req_line_details_tbl csp_req_line_details_pvt.req_line_details_tbl_type;
145: ddindx binary_integer; indx binary_integer;
146: begin
147:
140: )
141:
142: as
143: ddp_req_line_details_tbl csp_req_line_details_pvt.req_line_details_tbl_type;
144: ddx_req_line_details_tbl csp_req_line_details_pvt.req_line_details_tbl_type;
145: ddindx binary_integer; indx binary_integer;
146: begin
147:
148: -- copy data to the local IN or IN-OUT args, if any
149:
150:
151:
152:
153: csp_req_line_details_pvt_w.rosetta_table_copy_in_p3(ddp_req_line_details_tbl, p4_a0
154: , p4_a1
155: , p4_a2
156: , p4_a3
157: , p4_a4
165:
166:
167:
168: -- here's the delegated call to the old PL/SQL routine
169: csp_req_line_details_pvt.create_req_line_details(p_api_version_number,
170: p_init_msg_list,
171: p_commit,
172: p_validation_level,
173: ddp_req_line_details_tbl,
181:
182:
183:
184:
185: csp_req_line_details_pvt_w.rosetta_table_copy_out_p3(ddx_req_line_details_tbl, p5_a0
186: , p5_a1
187: , p5_a2
188: , p5_a3
189: , p5_a4
215: , x_msg_data out nocopy VARCHAR2
216: )
217:
218: as
219: ddp_req_line_details_tbl csp_req_line_details_pvt.req_line_details_tbl_type;
220: ddindx binary_integer; indx binary_integer;
221: begin
222:
223: -- copy data to the local IN or IN-OUT args, if any
224:
225:
226:
227:
228: csp_req_line_details_pvt_w.rosetta_table_copy_in_p3(ddp_req_line_details_tbl, p4_a0
229: , p4_a1
230: , p4_a2
231: , p4_a3
232: , p4_a4
239:
240:
241:
242: -- here's the delegated call to the old PL/SQL routine
243: csp_req_line_details_pvt.update_req_line_details(p_api_version_number,
244: p_init_msg_list,
245: p_commit,
246: p_validation_level,
247: ddp_req_line_details_tbl,
277: , x_msg_data out nocopy VARCHAR2
278: )
279:
280: as
281: ddp_req_line_details_tbl csp_req_line_details_pvt.req_line_details_tbl_type;
282: ddindx binary_integer; indx binary_integer;
283: begin
284:
285: -- copy data to the local IN or IN-OUT args, if any
286:
287:
288:
289:
290: csp_req_line_details_pvt_w.rosetta_table_copy_in_p3(ddp_req_line_details_tbl, p4_a0
291: , p4_a1
292: , p4_a2
293: , p4_a3
294: , p4_a4
301:
302:
303:
304: -- here's the delegated call to the old PL/SQL routine
305: csp_req_line_details_pvt.delete_req_line_details(p_api_version_number,
306: p_init_msg_list,
307: p_commit,
308: p_validation_level,
309: ddp_req_line_details_tbl,
320:
321:
322: end;
323:
324: end csp_req_line_details_pvt_w;