1: PACKAGE BODY OKL_LA_TRADEIN_PVT_W as
2: /* $Header: OKLETRIB.pls 120.0 2005/11/12 00:57:30 smereddy 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_p6(t out nocopy okl_la_tradein_pvt.tradein_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_VARCHAR2_TABLE_200
25: , a3 JTF_NUMBER_TABLE
26: ) as
43: end loop;
44: end if;
45: end if;
46: end rosetta_table_copy_in_p6;
47: procedure rosetta_table_copy_out_p6(t okl_la_tradein_pvt.tradein_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
48: , a1 out nocopy JTF_NUMBER_TABLE
49: , a2 out nocopy JTF_VARCHAR2_TABLE_200
50: , a3 out nocopy JTF_NUMBER_TABLE
51: ) as
82: end if;
83: end if;
84: end rosetta_table_copy_out_p6;
85:
86: procedure rosetta_table_copy_in_p8(t out nocopy okl_la_tradein_pvt.asset_tbl_type, a0 JTF_NUMBER_TABLE
87: , a1 JTF_NUMBER_TABLE
88: , a2 JTF_VARCHAR2_TABLE_100
89: ) as
90: ddindx binary_integer; indx binary_integer;
105: end loop;
106: end if;
107: end if;
108: end rosetta_table_copy_in_p8;
109: procedure rosetta_table_copy_out_p8(t okl_la_tradein_pvt.asset_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
110: , a1 out nocopy JTF_NUMBER_TABLE
111: , a2 out nocopy JTF_VARCHAR2_TABLE_100
112: ) as
113: ddindx binary_integer; indx binary_integer;
156: , p6_a3 NUMBER := 0-1962.0724
157: )
158:
159: as
160: ddp_tradein_rec okl_la_tradein_pvt.tradein_rec_type;
161: ddx_tradein_rec okl_la_tradein_pvt.tradein_rec_type;
162: ddindx binary_integer; indx binary_integer;
163: begin
164:
157: )
158:
159: as
160: ddp_tradein_rec okl_la_tradein_pvt.tradein_rec_type;
161: ddx_tradein_rec okl_la_tradein_pvt.tradein_rec_type;
162: ddindx binary_integer; indx binary_integer;
163: begin
164:
165: -- copy data to the local IN or IN-OUT args, if any
175: ddp_tradein_rec.tradein_amount := rosetta_g_miss_num_map(p6_a3);
176:
177:
178: -- here's the delegated call to the old PL/SQL routine
179: okl_la_tradein_pvt.create_tradein(p_api_version,
180: p_init_msg_list,
181: x_return_status,
182: x_msg_count,
183: x_msg_data,
215: , p7_a3 out nocopy JTF_NUMBER_TABLE
216: )
217:
218: as
219: ddp_tradein_tbl okl_la_tradein_pvt.tradein_tbl_type;
220: ddx_tradein_tbl okl_la_tradein_pvt.tradein_tbl_type;
221: ddindx binary_integer; indx binary_integer;
222: begin
223:
216: )
217:
218: as
219: ddp_tradein_tbl okl_la_tradein_pvt.tradein_tbl_type;
220: ddx_tradein_tbl okl_la_tradein_pvt.tradein_tbl_type;
221: ddindx binary_integer; indx binary_integer;
222: begin
223:
224: -- copy data to the local IN or IN-OUT args, if any
227:
228:
229:
230:
231: okl_la_tradein_pvt_w.rosetta_table_copy_in_p6(ddp_tradein_tbl, p6_a0
232: , p6_a1
233: , p6_a2
234: , p6_a3
235: );
235: );
236:
237:
238: -- here's the delegated call to the old PL/SQL routine
239: okl_la_tradein_pvt.create_tradein(p_api_version,
240: p_init_msg_list,
241: x_return_status,
242: x_msg_count,
243: x_msg_data,
252:
253:
254:
255:
256: okl_la_tradein_pvt_w.rosetta_table_copy_out_p6(ddx_tradein_tbl, p7_a0
257: , p7_a1
258: , p7_a2
259: , p7_a3
260: );
276: , p6_a3 NUMBER := 0-1962.0724
277: )
278:
279: as
280: ddp_tradein_rec okl_la_tradein_pvt.tradein_rec_type;
281: ddx_tradein_rec okl_la_tradein_pvt.tradein_rec_type;
282: ddindx binary_integer; indx binary_integer;
283: begin
284:
277: )
278:
279: as
280: ddp_tradein_rec okl_la_tradein_pvt.tradein_rec_type;
281: ddx_tradein_rec okl_la_tradein_pvt.tradein_rec_type;
282: ddindx binary_integer; indx binary_integer;
283: begin
284:
285: -- copy data to the local IN or IN-OUT args, if any
295: ddp_tradein_rec.tradein_amount := rosetta_g_miss_num_map(p6_a3);
296:
297:
298: -- here's the delegated call to the old PL/SQL routine
299: okl_la_tradein_pvt.delete_tradein(p_api_version,
300: p_init_msg_list,
301: x_return_status,
302: x_msg_count,
303: x_msg_data,
335: , p7_a3 out nocopy JTF_NUMBER_TABLE
336: )
337:
338: as
339: ddp_tradein_tbl okl_la_tradein_pvt.tradein_tbl_type;
340: ddx_tradein_tbl okl_la_tradein_pvt.tradein_tbl_type;
341: ddindx binary_integer; indx binary_integer;
342: begin
343:
336: )
337:
338: as
339: ddp_tradein_tbl okl_la_tradein_pvt.tradein_tbl_type;
340: ddx_tradein_tbl okl_la_tradein_pvt.tradein_tbl_type;
341: ddindx binary_integer; indx binary_integer;
342: begin
343:
344: -- copy data to the local IN or IN-OUT args, if any
347:
348:
349:
350:
351: okl_la_tradein_pvt_w.rosetta_table_copy_in_p6(ddp_tradein_tbl, p6_a0
352: , p6_a1
353: , p6_a2
354: , p6_a3
355: );
355: );
356:
357:
358: -- here's the delegated call to the old PL/SQL routine
359: okl_la_tradein_pvt.delete_tradein(p_api_version,
360: p_init_msg_list,
361: x_return_status,
362: x_msg_count,
363: x_msg_data,
372:
373:
374:
375:
376: okl_la_tradein_pvt_w.rosetta_table_copy_out_p6(ddx_tradein_tbl, p7_a0
377: , p7_a1
378: , p7_a2
379: , p7_a3
380: );
407:
408:
409:
410: -- here's the delegated call to the old PL/SQL routine
411: okl_la_tradein_pvt.update_contract(p_api_version,
412: p_init_msg_list,
413: x_return_status,
414: x_msg_count,
415: x_msg_data,
428:
429:
430: end;
431:
432: end okl_la_tradein_pvt_w;