DBA Data[Home] [Help]

PACKAGE BODY: APPS.OKL_SETUP_TRXPARAMS_PUB_W

Source


1 package body okl_setup_trxparams_pub_w as
2   /* $Header: OKLUTXRB.pls 115.0 2004/07/02 02:38:45 sgorantl 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 
6   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7   function rosetta_g_miss_date_in_map(d date) return date as
8   begin
9     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10     return d;
11   end;
12 
13   function rosetta_g_miss_num_map(n number) return number as
14     a number := fnd_api.g_miss_num;
15     b number := 0-1962.0724;
16   begin
17     if n=a then return b; end if;
18     if n=b then return a; end if;
19     return n;
20   end;
21 
22   procedure create_trx_parm(p_api_version  NUMBER
23     , p_init_msg_list  VARCHAR2
24     , x_return_status out nocopy  VARCHAR2
25     , x_msg_count out nocopy  NUMBER
26     , x_msg_data out nocopy  VARCHAR2
27     , p6_a0 out nocopy  NUMBER
28     , p6_a1 out nocopy  NUMBER
29     , p6_a2 out nocopy  NUMBER
30     , p6_a3 out nocopy  VARCHAR2
31     , p6_a4 out nocopy  NUMBER
32     , p6_a5 out nocopy  NUMBER
33     , p6_a6 out nocopy  NUMBER
34     , p6_a7 out nocopy  NUMBER
35     , p6_a8 out nocopy  NUMBER
36     , p6_a9 out nocopy  NUMBER
37     , p6_a10 out nocopy  NUMBER
38     , p6_a11 out nocopy  DATE
39     , p6_a12 out nocopy  DATE
40     , p6_a13 out nocopy  NUMBER
41     , p5_a0  NUMBER := 0-1962.0724
42     , p5_a1  NUMBER := 0-1962.0724
43     , p5_a2  NUMBER := 0-1962.0724
44     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
45     , p5_a4  NUMBER := 0-1962.0724
46     , p5_a5  NUMBER := 0-1962.0724
47     , p5_a6  NUMBER := 0-1962.0724
48     , p5_a7  NUMBER := 0-1962.0724
49     , p5_a8  NUMBER := 0-1962.0724
50     , p5_a9  NUMBER := 0-1962.0724
51     , p5_a10  NUMBER := 0-1962.0724
52     , p5_a11  DATE := fnd_api.g_miss_date
53     , p5_a12  DATE := fnd_api.g_miss_date
54     , p5_a13  NUMBER := 0-1962.0724
55   )
56 
57   as
58     ddp_sxpv_rec okl_setup_trxparams_pub.sxpv_rec_type;
59     ddx_sxpv_rec okl_setup_trxparams_pub.sxpv_rec_type;
60     ddindx binary_integer; indx binary_integer;
61   begin
62 
63     -- copy data to the local IN or IN-OUT args, if any
64 
65 
66 
67 
68 
69     ddp_sxpv_rec.id := rosetta_g_miss_num_map(p5_a0);
70     ddp_sxpv_rec.index_number1 := rosetta_g_miss_num_map(p5_a1);
71     ddp_sxpv_rec.index_number2 := rosetta_g_miss_num_map(p5_a2);
72     ddp_sxpv_rec.value := p5_a3;
73     ddp_sxpv_rec.khr_id := rosetta_g_miss_num_map(p5_a4);
74     ddp_sxpv_rec.kle_id := rosetta_g_miss_num_map(p5_a5);
75     ddp_sxpv_rec.sif_id := rosetta_g_miss_num_map(p5_a6);
76     ddp_sxpv_rec.spp_id := rosetta_g_miss_num_map(p5_a7);
77     ddp_sxpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
78     ddp_sxpv_rec.created_by := rosetta_g_miss_num_map(p5_a9);
79     ddp_sxpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a10);
80     ddp_sxpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a11);
81     ddp_sxpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
82     ddp_sxpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
83 
84 
85     -- here's the delegated call to the old PL/SQL routine
86     okl_setup_trxparams_pub.create_trx_parm(p_api_version,
87       p_init_msg_list,
88       x_return_status,
89       x_msg_count,
90       x_msg_data,
91       ddp_sxpv_rec,
92       ddx_sxpv_rec);
93 
94     -- copy data back from the local variables to OUT or IN-OUT args, if any
95 
96 
97 
98 
99 
100 
101     p6_a0 := rosetta_g_miss_num_map(ddx_sxpv_rec.id);
102     p6_a1 := rosetta_g_miss_num_map(ddx_sxpv_rec.index_number1);
103     p6_a2 := rosetta_g_miss_num_map(ddx_sxpv_rec.index_number2);
104     p6_a3 := ddx_sxpv_rec.value;
105     p6_a4 := rosetta_g_miss_num_map(ddx_sxpv_rec.khr_id);
106     p6_a5 := rosetta_g_miss_num_map(ddx_sxpv_rec.kle_id);
107     p6_a6 := rosetta_g_miss_num_map(ddx_sxpv_rec.sif_id);
108     p6_a7 := rosetta_g_miss_num_map(ddx_sxpv_rec.spp_id);
109     p6_a8 := rosetta_g_miss_num_map(ddx_sxpv_rec.object_version_number);
110     p6_a9 := rosetta_g_miss_num_map(ddx_sxpv_rec.created_by);
111     p6_a10 := rosetta_g_miss_num_map(ddx_sxpv_rec.last_updated_by);
112     p6_a11 := ddx_sxpv_rec.creation_date;
113     p6_a12 := ddx_sxpv_rec.last_update_date;
114     p6_a13 := rosetta_g_miss_num_map(ddx_sxpv_rec.last_update_login);
115   end;
116 
117   procedure update_trx_parm(p_api_version  NUMBER
118     , p_init_msg_list  VARCHAR2
119     , x_return_status out nocopy  VARCHAR2
120     , x_msg_count out nocopy  NUMBER
121     , x_msg_data out nocopy  VARCHAR2
122     , p6_a0 out nocopy  NUMBER
123     , p6_a1 out nocopy  NUMBER
124     , p6_a2 out nocopy  NUMBER
125     , p6_a3 out nocopy  VARCHAR2
126     , p6_a4 out nocopy  NUMBER
127     , p6_a5 out nocopy  NUMBER
128     , p6_a6 out nocopy  NUMBER
129     , p6_a7 out nocopy  NUMBER
130     , p6_a8 out nocopy  NUMBER
131     , p6_a9 out nocopy  NUMBER
132     , p6_a10 out nocopy  NUMBER
133     , p6_a11 out nocopy  DATE
134     , p6_a12 out nocopy  DATE
135     , p6_a13 out nocopy  NUMBER
136     , p5_a0  NUMBER := 0-1962.0724
137     , p5_a1  NUMBER := 0-1962.0724
138     , p5_a2  NUMBER := 0-1962.0724
139     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
140     , p5_a4  NUMBER := 0-1962.0724
141     , p5_a5  NUMBER := 0-1962.0724
142     , p5_a6  NUMBER := 0-1962.0724
143     , p5_a7  NUMBER := 0-1962.0724
144     , p5_a8  NUMBER := 0-1962.0724
145     , p5_a9  NUMBER := 0-1962.0724
146     , p5_a10  NUMBER := 0-1962.0724
147     , p5_a11  DATE := fnd_api.g_miss_date
148     , p5_a12  DATE := fnd_api.g_miss_date
149     , p5_a13  NUMBER := 0-1962.0724
150   )
151 
152   as
153     ddp_sxpv_rec okl_setup_trxparams_pub.sxpv_rec_type;
154     ddx_sxpv_rec okl_setup_trxparams_pub.sxpv_rec_type;
155     ddindx binary_integer; indx binary_integer;
156   begin
157 
158     -- copy data to the local IN or IN-OUT args, if any
159 
160 
161 
162 
163 
164     ddp_sxpv_rec.id := rosetta_g_miss_num_map(p5_a0);
165     ddp_sxpv_rec.index_number1 := rosetta_g_miss_num_map(p5_a1);
166     ddp_sxpv_rec.index_number2 := rosetta_g_miss_num_map(p5_a2);
167     ddp_sxpv_rec.value := p5_a3;
168     ddp_sxpv_rec.khr_id := rosetta_g_miss_num_map(p5_a4);
169     ddp_sxpv_rec.kle_id := rosetta_g_miss_num_map(p5_a5);
170     ddp_sxpv_rec.sif_id := rosetta_g_miss_num_map(p5_a6);
171     ddp_sxpv_rec.spp_id := rosetta_g_miss_num_map(p5_a7);
172     ddp_sxpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
173     ddp_sxpv_rec.created_by := rosetta_g_miss_num_map(p5_a9);
174     ddp_sxpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a10);
175     ddp_sxpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a11);
176     ddp_sxpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
177     ddp_sxpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
178 
179 
180     -- here's the delegated call to the old PL/SQL routine
181     okl_setup_trxparams_pub.update_trx_parm(p_api_version,
182       p_init_msg_list,
183       x_return_status,
184       x_msg_count,
185       x_msg_data,
186       ddp_sxpv_rec,
187       ddx_sxpv_rec);
188 
189     -- copy data back from the local variables to OUT or IN-OUT args, if any
190 
191 
192 
193 
194 
195 
196     p6_a0 := rosetta_g_miss_num_map(ddx_sxpv_rec.id);
197     p6_a1 := rosetta_g_miss_num_map(ddx_sxpv_rec.index_number1);
198     p6_a2 := rosetta_g_miss_num_map(ddx_sxpv_rec.index_number2);
199     p6_a3 := ddx_sxpv_rec.value;
200     p6_a4 := rosetta_g_miss_num_map(ddx_sxpv_rec.khr_id);
201     p6_a5 := rosetta_g_miss_num_map(ddx_sxpv_rec.kle_id);
202     p6_a6 := rosetta_g_miss_num_map(ddx_sxpv_rec.sif_id);
203     p6_a7 := rosetta_g_miss_num_map(ddx_sxpv_rec.spp_id);
204     p6_a8 := rosetta_g_miss_num_map(ddx_sxpv_rec.object_version_number);
205     p6_a9 := rosetta_g_miss_num_map(ddx_sxpv_rec.created_by);
206     p6_a10 := rosetta_g_miss_num_map(ddx_sxpv_rec.last_updated_by);
207     p6_a11 := ddx_sxpv_rec.creation_date;
208     p6_a12 := ddx_sxpv_rec.last_update_date;
209     p6_a13 := rosetta_g_miss_num_map(ddx_sxpv_rec.last_update_login);
210   end;
211 
212   procedure create_trx_parm(p_api_version  NUMBER
213     , p_init_msg_list  VARCHAR2
214     , x_return_status out nocopy  VARCHAR2
215     , x_msg_count out nocopy  NUMBER
216     , x_msg_data out nocopy  VARCHAR2
217     , p5_a0 JTF_NUMBER_TABLE
218     , p5_a1 JTF_NUMBER_TABLE
219     , p5_a2 JTF_NUMBER_TABLE
220     , p5_a3 JTF_VARCHAR2_TABLE_300
221     , p5_a4 JTF_NUMBER_TABLE
222     , p5_a5 JTF_NUMBER_TABLE
223     , p5_a6 JTF_NUMBER_TABLE
224     , p5_a7 JTF_NUMBER_TABLE
225     , p5_a8 JTF_NUMBER_TABLE
226     , p5_a9 JTF_NUMBER_TABLE
227     , p5_a10 JTF_NUMBER_TABLE
228     , p5_a11 JTF_DATE_TABLE
229     , p5_a12 JTF_DATE_TABLE
230     , p5_a13 JTF_NUMBER_TABLE
231     , p6_a0 out nocopy JTF_NUMBER_TABLE
232     , p6_a1 out nocopy JTF_NUMBER_TABLE
233     , p6_a2 out nocopy JTF_NUMBER_TABLE
234     , p6_a3 out nocopy JTF_VARCHAR2_TABLE_300
235     , p6_a4 out nocopy JTF_NUMBER_TABLE
236     , p6_a5 out nocopy JTF_NUMBER_TABLE
237     , p6_a6 out nocopy JTF_NUMBER_TABLE
238     , p6_a7 out nocopy JTF_NUMBER_TABLE
239     , p6_a8 out nocopy JTF_NUMBER_TABLE
240     , p6_a9 out nocopy JTF_NUMBER_TABLE
241     , p6_a10 out nocopy JTF_NUMBER_TABLE
242     , p6_a11 out nocopy JTF_DATE_TABLE
243     , p6_a12 out nocopy JTF_DATE_TABLE
244     , p6_a13 out nocopy JTF_NUMBER_TABLE
245   )
246 
247   as
248     ddp_sxpv_tbl okl_setup_trxparams_pub.sxpv_tbl_type;
249     ddx_sxpv_tbl okl_setup_trxparams_pub.sxpv_tbl_type;
250     ddindx binary_integer; indx binary_integer;
251   begin
252 
253     -- copy data to the local IN or IN-OUT args, if any
254 
255 
256 
257 
258 
259     okl_sxp_pvt_w.rosetta_table_copy_in_p5(ddp_sxpv_tbl, p5_a0
260       , p5_a1
261       , p5_a2
262       , p5_a3
263       , p5_a4
264       , p5_a5
265       , p5_a6
266       , p5_a7
267       , p5_a8
268       , p5_a9
269       , p5_a10
270       , p5_a11
271       , p5_a12
272       , p5_a13
273       );
274 
275 
276     -- here's the delegated call to the old PL/SQL routine
277     okl_setup_trxparams_pub.create_trx_parm(p_api_version,
278       p_init_msg_list,
279       x_return_status,
280       x_msg_count,
281       x_msg_data,
282       ddp_sxpv_tbl,
283       ddx_sxpv_tbl);
284 
285     -- copy data back from the local variables to OUT or IN-OUT args, if any
286 
287 
288 
289 
290 
291 
292     okl_sxp_pvt_w.rosetta_table_copy_out_p5(ddx_sxpv_tbl, p6_a0
293       , p6_a1
294       , p6_a2
295       , p6_a3
296       , p6_a4
297       , p6_a5
298       , p6_a6
299       , p6_a7
300       , p6_a8
301       , p6_a9
302       , p6_a10
303       , p6_a11
304       , p6_a12
305       , p6_a13
306       );
307   end;
308 
309   procedure update_trx_parm(p_api_version  NUMBER
310     , p_init_msg_list  VARCHAR2
311     , x_return_status out nocopy  VARCHAR2
312     , x_msg_count out nocopy  NUMBER
313     , x_msg_data out nocopy  VARCHAR2
314     , p5_a0 JTF_NUMBER_TABLE
315     , p5_a1 JTF_NUMBER_TABLE
316     , p5_a2 JTF_NUMBER_TABLE
317     , p5_a3 JTF_VARCHAR2_TABLE_300
318     , p5_a4 JTF_NUMBER_TABLE
319     , p5_a5 JTF_NUMBER_TABLE
320     , p5_a6 JTF_NUMBER_TABLE
321     , p5_a7 JTF_NUMBER_TABLE
322     , p5_a8 JTF_NUMBER_TABLE
323     , p5_a9 JTF_NUMBER_TABLE
324     , p5_a10 JTF_NUMBER_TABLE
325     , p5_a11 JTF_DATE_TABLE
326     , p5_a12 JTF_DATE_TABLE
327     , p5_a13 JTF_NUMBER_TABLE
328     , p6_a0 out nocopy JTF_NUMBER_TABLE
329     , p6_a1 out nocopy JTF_NUMBER_TABLE
330     , p6_a2 out nocopy JTF_NUMBER_TABLE
331     , p6_a3 out nocopy JTF_VARCHAR2_TABLE_300
332     , p6_a4 out nocopy JTF_NUMBER_TABLE
333     , p6_a5 out nocopy JTF_NUMBER_TABLE
334     , p6_a6 out nocopy JTF_NUMBER_TABLE
335     , p6_a7 out nocopy JTF_NUMBER_TABLE
336     , p6_a8 out nocopy JTF_NUMBER_TABLE
337     , p6_a9 out nocopy JTF_NUMBER_TABLE
338     , p6_a10 out nocopy JTF_NUMBER_TABLE
339     , p6_a11 out nocopy JTF_DATE_TABLE
340     , p6_a12 out nocopy JTF_DATE_TABLE
341     , p6_a13 out nocopy JTF_NUMBER_TABLE
342   )
343 
344   as
345     ddp_sxpv_tbl okl_setup_trxparams_pub.sxpv_tbl_type;
346     ddx_sxpv_tbl okl_setup_trxparams_pub.sxpv_tbl_type;
347     ddindx binary_integer; indx binary_integer;
348   begin
349 
350     -- copy data to the local IN or IN-OUT args, if any
351 
352 
353 
354 
355 
356     okl_sxp_pvt_w.rosetta_table_copy_in_p5(ddp_sxpv_tbl, p5_a0
357       , p5_a1
358       , p5_a2
359       , p5_a3
360       , p5_a4
361       , p5_a5
362       , p5_a6
363       , p5_a7
364       , p5_a8
365       , p5_a9
366       , p5_a10
367       , p5_a11
368       , p5_a12
369       , p5_a13
370       );
371 
372 
373     -- here's the delegated call to the old PL/SQL routine
374     okl_setup_trxparams_pub.update_trx_parm(p_api_version,
375       p_init_msg_list,
376       x_return_status,
377       x_msg_count,
378       x_msg_data,
379       ddp_sxpv_tbl,
380       ddx_sxpv_tbl);
381 
382     -- copy data back from the local variables to OUT or IN-OUT args, if any
383 
384 
385 
386 
387 
388 
389     okl_sxp_pvt_w.rosetta_table_copy_out_p5(ddx_sxpv_tbl, p6_a0
390       , p6_a1
391       , p6_a2
392       , p6_a3
393       , p6_a4
394       , p6_a5
395       , p6_a6
396       , p6_a7
397       , p6_a8
398       , p6_a9
399       , p6_a10
400       , p6_a11
401       , p6_a12
402       , p6_a13
403       );
404   end;
405 
406   procedure delete_trx_parm(p_api_version  NUMBER
407     , p_init_msg_list  VARCHAR2
408     , x_return_status out nocopy  VARCHAR2
409     , x_msg_count out nocopy  NUMBER
410     , x_msg_data out nocopy  VARCHAR2
411     , p6_a0 out nocopy  NUMBER
412     , p6_a1 out nocopy  NUMBER
413     , p6_a2 out nocopy  NUMBER
414     , p6_a3 out nocopy  VARCHAR2
415     , p6_a4 out nocopy  NUMBER
416     , p6_a5 out nocopy  NUMBER
417     , p6_a6 out nocopy  NUMBER
418     , p6_a7 out nocopy  NUMBER
419     , p6_a8 out nocopy  NUMBER
423     , p6_a12 out nocopy  DATE
420     , p6_a9 out nocopy  NUMBER
421     , p6_a10 out nocopy  NUMBER
422     , p6_a11 out nocopy  DATE
424     , p6_a13 out nocopy  NUMBER
425     , p5_a0  NUMBER := 0-1962.0724
426     , p5_a1  NUMBER := 0-1962.0724
427     , p5_a2  NUMBER := 0-1962.0724
428     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
429     , p5_a4  NUMBER := 0-1962.0724
430     , p5_a5  NUMBER := 0-1962.0724
431     , p5_a6  NUMBER := 0-1962.0724
432     , p5_a7  NUMBER := 0-1962.0724
433     , p5_a8  NUMBER := 0-1962.0724
434     , p5_a9  NUMBER := 0-1962.0724
435     , p5_a10  NUMBER := 0-1962.0724
436     , p5_a11  DATE := fnd_api.g_miss_date
437     , p5_a12  DATE := fnd_api.g_miss_date
438     , p5_a13  NUMBER := 0-1962.0724
439   )
440 
441   as
442     ddp_sxpv_rec okl_setup_trxparams_pub.sxpv_rec_type;
443     ddx_sxpv_rec okl_setup_trxparams_pub.sxpv_rec_type;
444     ddindx binary_integer; indx binary_integer;
445   begin
446 
447     -- copy data to the local IN or IN-OUT args, if any
448 
449 
450 
451 
452 
453     ddp_sxpv_rec.id := rosetta_g_miss_num_map(p5_a0);
454     ddp_sxpv_rec.index_number1 := rosetta_g_miss_num_map(p5_a1);
455     ddp_sxpv_rec.index_number2 := rosetta_g_miss_num_map(p5_a2);
456     ddp_sxpv_rec.value := p5_a3;
457     ddp_sxpv_rec.khr_id := rosetta_g_miss_num_map(p5_a4);
458     ddp_sxpv_rec.kle_id := rosetta_g_miss_num_map(p5_a5);
459     ddp_sxpv_rec.sif_id := rosetta_g_miss_num_map(p5_a6);
460     ddp_sxpv_rec.spp_id := rosetta_g_miss_num_map(p5_a7);
461     ddp_sxpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
462     ddp_sxpv_rec.created_by := rosetta_g_miss_num_map(p5_a9);
463     ddp_sxpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a10);
464     ddp_sxpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a11);
465     ddp_sxpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
466     ddp_sxpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
467 
468 
469     -- here's the delegated call to the old PL/SQL routine
470     okl_setup_trxparams_pub.delete_trx_parm(p_api_version,
471       p_init_msg_list,
472       x_return_status,
473       x_msg_count,
474       x_msg_data,
475       ddp_sxpv_rec,
476       ddx_sxpv_rec);
477 
478     -- copy data back from the local variables to OUT or IN-OUT args, if any
479 
480 
481 
482 
483 
484 
485     p6_a0 := rosetta_g_miss_num_map(ddx_sxpv_rec.id);
486     p6_a1 := rosetta_g_miss_num_map(ddx_sxpv_rec.index_number1);
487     p6_a2 := rosetta_g_miss_num_map(ddx_sxpv_rec.index_number2);
488     p6_a3 := ddx_sxpv_rec.value;
489     p6_a4 := rosetta_g_miss_num_map(ddx_sxpv_rec.khr_id);
490     p6_a5 := rosetta_g_miss_num_map(ddx_sxpv_rec.kle_id);
491     p6_a6 := rosetta_g_miss_num_map(ddx_sxpv_rec.sif_id);
492     p6_a7 := rosetta_g_miss_num_map(ddx_sxpv_rec.spp_id);
493     p6_a8 := rosetta_g_miss_num_map(ddx_sxpv_rec.object_version_number);
494     p6_a9 := rosetta_g_miss_num_map(ddx_sxpv_rec.created_by);
495     p6_a10 := rosetta_g_miss_num_map(ddx_sxpv_rec.last_updated_by);
496     p6_a11 := ddx_sxpv_rec.creation_date;
497     p6_a12 := ddx_sxpv_rec.last_update_date;
498     p6_a13 := rosetta_g_miss_num_map(ddx_sxpv_rec.last_update_login);
499   end;
500 
501   procedure delete_trx_parm(p_api_version  NUMBER
502     , p_init_msg_list  VARCHAR2
503     , x_return_status out nocopy  VARCHAR2
504     , x_msg_count out nocopy  NUMBER
505     , x_msg_data out nocopy  VARCHAR2
506     , p5_a0 JTF_NUMBER_TABLE
507     , p5_a1 JTF_NUMBER_TABLE
508     , p5_a2 JTF_NUMBER_TABLE
509     , p5_a3 JTF_VARCHAR2_TABLE_300
510     , p5_a4 JTF_NUMBER_TABLE
511     , p5_a5 JTF_NUMBER_TABLE
512     , p5_a6 JTF_NUMBER_TABLE
513     , p5_a7 JTF_NUMBER_TABLE
514     , p5_a8 JTF_NUMBER_TABLE
515     , p5_a9 JTF_NUMBER_TABLE
516     , p5_a10 JTF_NUMBER_TABLE
517     , p5_a11 JTF_DATE_TABLE
518     , p5_a12 JTF_DATE_TABLE
519     , p5_a13 JTF_NUMBER_TABLE
520     , p6_a0 out nocopy JTF_NUMBER_TABLE
521     , p6_a1 out nocopy JTF_NUMBER_TABLE
522     , p6_a2 out nocopy JTF_NUMBER_TABLE
523     , p6_a3 out nocopy JTF_VARCHAR2_TABLE_300
524     , p6_a4 out nocopy JTF_NUMBER_TABLE
525     , p6_a5 out nocopy JTF_NUMBER_TABLE
526     , p6_a6 out nocopy JTF_NUMBER_TABLE
527     , p6_a7 out nocopy JTF_NUMBER_TABLE
528     , p6_a8 out nocopy JTF_NUMBER_TABLE
529     , p6_a9 out nocopy JTF_NUMBER_TABLE
530     , p6_a10 out nocopy JTF_NUMBER_TABLE
531     , p6_a11 out nocopy JTF_DATE_TABLE
532     , p6_a12 out nocopy JTF_DATE_TABLE
533     , p6_a13 out nocopy JTF_NUMBER_TABLE
534   )
535 
536   as
537     ddp_sxpv_tbl okl_setup_trxparams_pub.sxpv_tbl_type;
538     ddx_sxpv_tbl okl_setup_trxparams_pub.sxpv_tbl_type;
539     ddindx binary_integer; indx binary_integer;
540   begin
541 
542     -- copy data to the local IN or IN-OUT args, if any
543 
544 
545 
546 
547 
548     okl_sxp_pvt_w.rosetta_table_copy_in_p5(ddp_sxpv_tbl, p5_a0
549       , p5_a1
550       , p5_a2
551       , p5_a3
552       , p5_a4
553       , p5_a5
554       , p5_a6
555       , p5_a7
556       , p5_a8
557       , p5_a9
558       , p5_a10
559       , p5_a11
560       , p5_a12
561       , p5_a13
562       );
563 
564 
565     -- here's the delegated call to the old PL/SQL routine
566     okl_setup_trxparams_pub.delete_trx_parm(p_api_version,
567       p_init_msg_list,
568       x_return_status,
569       x_msg_count,
570       x_msg_data,
571       ddp_sxpv_tbl,
572       ddx_sxpv_tbl);
573 
574     -- copy data back from the local variables to OUT or IN-OUT args, if any
575 
576 
577 
581     okl_sxp_pvt_w.rosetta_table_copy_out_p5(ddx_sxpv_tbl, p6_a0
578 
579 
580 
582       , p6_a1
583       , p6_a2
584       , p6_a3
585       , p6_a4
586       , p6_a5
587       , p6_a6
588       , p6_a7
589       , p6_a8
590       , p6_a9
591       , p6_a10
592       , p6_a11
593       , p6_a12
594       , p6_a13
595       );
596   end;
597 
598   procedure create_trx_asset_parm(p_api_version  NUMBER
599     , p_init_msg_list  VARCHAR2
600     , x_return_status out nocopy  VARCHAR2
601     , x_msg_count out nocopy  NUMBER
602     , x_msg_data out nocopy  VARCHAR2
603     , p6_a0 out nocopy  NUMBER
604     , p6_a1 out nocopy  NUMBER
605     , p6_a2 out nocopy  NUMBER
606     , p6_a3 out nocopy  VARCHAR2
607     , p6_a4 out nocopy  NUMBER
608     , p6_a5 out nocopy  NUMBER
609     , p6_a6 out nocopy  NUMBER
610     , p6_a7 out nocopy  NUMBER
611     , p6_a8 out nocopy  NUMBER
612     , p6_a9 out nocopy  NUMBER
613     , p6_a10 out nocopy  NUMBER
614     , p6_a11 out nocopy  DATE
615     , p6_a12 out nocopy  DATE
616     , p6_a13 out nocopy  NUMBER
617     , p5_a0  NUMBER := 0-1962.0724
618     , p5_a1  NUMBER := 0-1962.0724
619     , p5_a2  NUMBER := 0-1962.0724
620     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
621     , p5_a4  NUMBER := 0-1962.0724
622     , p5_a5  NUMBER := 0-1962.0724
623     , p5_a6  NUMBER := 0-1962.0724
624     , p5_a7  NUMBER := 0-1962.0724
625     , p5_a8  NUMBER := 0-1962.0724
626     , p5_a9  NUMBER := 0-1962.0724
627     , p5_a10  NUMBER := 0-1962.0724
628     , p5_a11  DATE := fnd_api.g_miss_date
629     , p5_a12  DATE := fnd_api.g_miss_date
630     , p5_a13  NUMBER := 0-1962.0724
631   )
632 
633   as
634     ddp_sxpv_rec okl_setup_trxparams_pub.sxpv_rec_type;
635     ddx_sxpv_rec okl_setup_trxparams_pub.sxpv_rec_type;
636     ddindx binary_integer; indx binary_integer;
637   begin
638 
639     -- copy data to the local IN or IN-OUT args, if any
640 
641 
642 
643 
644 
645     ddp_sxpv_rec.id := rosetta_g_miss_num_map(p5_a0);
646     ddp_sxpv_rec.index_number1 := rosetta_g_miss_num_map(p5_a1);
647     ddp_sxpv_rec.index_number2 := rosetta_g_miss_num_map(p5_a2);
648     ddp_sxpv_rec.value := p5_a3;
649     ddp_sxpv_rec.khr_id := rosetta_g_miss_num_map(p5_a4);
650     ddp_sxpv_rec.kle_id := rosetta_g_miss_num_map(p5_a5);
651     ddp_sxpv_rec.sif_id := rosetta_g_miss_num_map(p5_a6);
652     ddp_sxpv_rec.spp_id := rosetta_g_miss_num_map(p5_a7);
653     ddp_sxpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
654     ddp_sxpv_rec.created_by := rosetta_g_miss_num_map(p5_a9);
655     ddp_sxpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a10);
656     ddp_sxpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a11);
657     ddp_sxpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
658     ddp_sxpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
659 
660 
661     -- here's the delegated call to the old PL/SQL routine
662     okl_setup_trxparams_pub.create_trx_asset_parm(p_api_version,
663       p_init_msg_list,
664       x_return_status,
665       x_msg_count,
666       x_msg_data,
667       ddp_sxpv_rec,
668       ddx_sxpv_rec);
669 
670     -- copy data back from the local variables to OUT or IN-OUT args, if any
671 
672 
673 
674 
675 
676 
677     p6_a0 := rosetta_g_miss_num_map(ddx_sxpv_rec.id);
678     p6_a1 := rosetta_g_miss_num_map(ddx_sxpv_rec.index_number1);
679     p6_a2 := rosetta_g_miss_num_map(ddx_sxpv_rec.index_number2);
680     p6_a3 := ddx_sxpv_rec.value;
681     p6_a4 := rosetta_g_miss_num_map(ddx_sxpv_rec.khr_id);
682     p6_a5 := rosetta_g_miss_num_map(ddx_sxpv_rec.kle_id);
683     p6_a6 := rosetta_g_miss_num_map(ddx_sxpv_rec.sif_id);
684     p6_a7 := rosetta_g_miss_num_map(ddx_sxpv_rec.spp_id);
685     p6_a8 := rosetta_g_miss_num_map(ddx_sxpv_rec.object_version_number);
686     p6_a9 := rosetta_g_miss_num_map(ddx_sxpv_rec.created_by);
687     p6_a10 := rosetta_g_miss_num_map(ddx_sxpv_rec.last_updated_by);
688     p6_a11 := ddx_sxpv_rec.creation_date;
689     p6_a12 := ddx_sxpv_rec.last_update_date;
690     p6_a13 := rosetta_g_miss_num_map(ddx_sxpv_rec.last_update_login);
691   end;
692 
693   procedure update_trx_asset_parm(p_api_version  NUMBER
694     , p_init_msg_list  VARCHAR2
695     , x_return_status out nocopy  VARCHAR2
696     , x_msg_count out nocopy  NUMBER
697     , x_msg_data out nocopy  VARCHAR2
698     , p6_a0 out nocopy  NUMBER
699     , p6_a1 out nocopy  NUMBER
700     , p6_a2 out nocopy  NUMBER
701     , p6_a3 out nocopy  VARCHAR2
702     , p6_a4 out nocopy  NUMBER
703     , p6_a5 out nocopy  NUMBER
704     , p6_a6 out nocopy  NUMBER
705     , p6_a7 out nocopy  NUMBER
706     , p6_a8 out nocopy  NUMBER
707     , p6_a9 out nocopy  NUMBER
708     , p6_a10 out nocopy  NUMBER
709     , p6_a11 out nocopy  DATE
710     , p6_a12 out nocopy  DATE
711     , p6_a13 out nocopy  NUMBER
712     , p5_a0  NUMBER := 0-1962.0724
713     , p5_a1  NUMBER := 0-1962.0724
714     , p5_a2  NUMBER := 0-1962.0724
715     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
716     , p5_a4  NUMBER := 0-1962.0724
717     , p5_a5  NUMBER := 0-1962.0724
718     , p5_a6  NUMBER := 0-1962.0724
719     , p5_a7  NUMBER := 0-1962.0724
720     , p5_a8  NUMBER := 0-1962.0724
721     , p5_a9  NUMBER := 0-1962.0724
722     , p5_a10  NUMBER := 0-1962.0724
723     , p5_a11  DATE := fnd_api.g_miss_date
724     , p5_a12  DATE := fnd_api.g_miss_date
725     , p5_a13  NUMBER := 0-1962.0724
726   )
727 
728   as
729     ddp_sxpv_rec okl_setup_trxparams_pub.sxpv_rec_type;
730     ddx_sxpv_rec okl_setup_trxparams_pub.sxpv_rec_type;
734     -- copy data to the local IN or IN-OUT args, if any
731     ddindx binary_integer; indx binary_integer;
732   begin
733 
735 
736 
737 
738 
739 
740     ddp_sxpv_rec.id := rosetta_g_miss_num_map(p5_a0);
741     ddp_sxpv_rec.index_number1 := rosetta_g_miss_num_map(p5_a1);
742     ddp_sxpv_rec.index_number2 := rosetta_g_miss_num_map(p5_a2);
743     ddp_sxpv_rec.value := p5_a3;
744     ddp_sxpv_rec.khr_id := rosetta_g_miss_num_map(p5_a4);
745     ddp_sxpv_rec.kle_id := rosetta_g_miss_num_map(p5_a5);
746     ddp_sxpv_rec.sif_id := rosetta_g_miss_num_map(p5_a6);
747     ddp_sxpv_rec.spp_id := rosetta_g_miss_num_map(p5_a7);
748     ddp_sxpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
749     ddp_sxpv_rec.created_by := rosetta_g_miss_num_map(p5_a9);
750     ddp_sxpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a10);
751     ddp_sxpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a11);
752     ddp_sxpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
753     ddp_sxpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
754 
755 
756     -- here's the delegated call to the old PL/SQL routine
757     okl_setup_trxparams_pub.update_trx_asset_parm(p_api_version,
758       p_init_msg_list,
759       x_return_status,
760       x_msg_count,
761       x_msg_data,
762       ddp_sxpv_rec,
763       ddx_sxpv_rec);
764 
765     -- copy data back from the local variables to OUT or IN-OUT args, if any
766 
767 
768 
769 
770 
771 
772     p6_a0 := rosetta_g_miss_num_map(ddx_sxpv_rec.id);
773     p6_a1 := rosetta_g_miss_num_map(ddx_sxpv_rec.index_number1);
774     p6_a2 := rosetta_g_miss_num_map(ddx_sxpv_rec.index_number2);
775     p6_a3 := ddx_sxpv_rec.value;
776     p6_a4 := rosetta_g_miss_num_map(ddx_sxpv_rec.khr_id);
777     p6_a5 := rosetta_g_miss_num_map(ddx_sxpv_rec.kle_id);
778     p6_a6 := rosetta_g_miss_num_map(ddx_sxpv_rec.sif_id);
779     p6_a7 := rosetta_g_miss_num_map(ddx_sxpv_rec.spp_id);
780     p6_a8 := rosetta_g_miss_num_map(ddx_sxpv_rec.object_version_number);
781     p6_a9 := rosetta_g_miss_num_map(ddx_sxpv_rec.created_by);
782     p6_a10 := rosetta_g_miss_num_map(ddx_sxpv_rec.last_updated_by);
783     p6_a11 := ddx_sxpv_rec.creation_date;
784     p6_a12 := ddx_sxpv_rec.last_update_date;
785     p6_a13 := rosetta_g_miss_num_map(ddx_sxpv_rec.last_update_login);
786   end;
787 
788   procedure create_trx_asset_parm(p_api_version  NUMBER
789     , p_init_msg_list  VARCHAR2
790     , x_return_status out nocopy  VARCHAR2
791     , x_msg_count out nocopy  NUMBER
792     , x_msg_data out nocopy  VARCHAR2
793     , p5_a0 JTF_NUMBER_TABLE
794     , p5_a1 JTF_NUMBER_TABLE
795     , p5_a2 JTF_NUMBER_TABLE
796     , p5_a3 JTF_VARCHAR2_TABLE_300
797     , p5_a4 JTF_NUMBER_TABLE
798     , p5_a5 JTF_NUMBER_TABLE
799     , p5_a6 JTF_NUMBER_TABLE
800     , p5_a7 JTF_NUMBER_TABLE
801     , p5_a8 JTF_NUMBER_TABLE
802     , p5_a9 JTF_NUMBER_TABLE
803     , p5_a10 JTF_NUMBER_TABLE
804     , p5_a11 JTF_DATE_TABLE
805     , p5_a12 JTF_DATE_TABLE
806     , p5_a13 JTF_NUMBER_TABLE
807     , p6_a0 out nocopy JTF_NUMBER_TABLE
808     , p6_a1 out nocopy JTF_NUMBER_TABLE
809     , p6_a2 out nocopy JTF_NUMBER_TABLE
810     , p6_a3 out nocopy JTF_VARCHAR2_TABLE_300
811     , p6_a4 out nocopy JTF_NUMBER_TABLE
812     , p6_a5 out nocopy JTF_NUMBER_TABLE
813     , p6_a6 out nocopy JTF_NUMBER_TABLE
814     , p6_a7 out nocopy JTF_NUMBER_TABLE
815     , p6_a8 out nocopy JTF_NUMBER_TABLE
816     , p6_a9 out nocopy JTF_NUMBER_TABLE
817     , p6_a10 out nocopy JTF_NUMBER_TABLE
818     , p6_a11 out nocopy JTF_DATE_TABLE
819     , p6_a12 out nocopy JTF_DATE_TABLE
820     , p6_a13 out nocopy JTF_NUMBER_TABLE
821   )
822 
823   as
824     ddp_sxpv_tbl okl_setup_trxparams_pub.sxpv_tbl_type;
825     ddx_sxpv_tbl okl_setup_trxparams_pub.sxpv_tbl_type;
826     ddindx binary_integer; indx binary_integer;
827   begin
828 
829     -- copy data to the local IN or IN-OUT args, if any
830 
831 
832 
833 
834 
835     okl_sxp_pvt_w.rosetta_table_copy_in_p5(ddp_sxpv_tbl, p5_a0
836       , p5_a1
837       , p5_a2
838       , p5_a3
839       , p5_a4
840       , p5_a5
841       , p5_a6
842       , p5_a7
843       , p5_a8
844       , p5_a9
845       , p5_a10
846       , p5_a11
847       , p5_a12
848       , p5_a13
849       );
850 
851 
852     -- here's the delegated call to the old PL/SQL routine
853     okl_setup_trxparams_pub.create_trx_asset_parm(p_api_version,
854       p_init_msg_list,
855       x_return_status,
856       x_msg_count,
857       x_msg_data,
858       ddp_sxpv_tbl,
859       ddx_sxpv_tbl);
860 
861     -- copy data back from the local variables to OUT or IN-OUT args, if any
862 
863 
864 
865 
866 
867 
868     okl_sxp_pvt_w.rosetta_table_copy_out_p5(ddx_sxpv_tbl, p6_a0
869       , p6_a1
870       , p6_a2
871       , p6_a3
872       , p6_a4
873       , p6_a5
874       , p6_a6
875       , p6_a7
876       , p6_a8
877       , p6_a9
878       , p6_a10
879       , p6_a11
880       , p6_a12
881       , p6_a13
882       );
883   end;
884 
885   procedure update_trx_asset_parm(p_api_version  NUMBER
886     , p_init_msg_list  VARCHAR2
887     , x_return_status out nocopy  VARCHAR2
888     , x_msg_count out nocopy  NUMBER
889     , x_msg_data out nocopy  VARCHAR2
890     , p5_a0 JTF_NUMBER_TABLE
891     , p5_a1 JTF_NUMBER_TABLE
892     , p5_a2 JTF_NUMBER_TABLE
893     , p5_a3 JTF_VARCHAR2_TABLE_300
894     , p5_a4 JTF_NUMBER_TABLE
895     , p5_a5 JTF_NUMBER_TABLE
896     , p5_a6 JTF_NUMBER_TABLE
897     , p5_a7 JTF_NUMBER_TABLE
898     , p5_a8 JTF_NUMBER_TABLE
899     , p5_a9 JTF_NUMBER_TABLE
900     , p5_a10 JTF_NUMBER_TABLE
901     , p5_a11 JTF_DATE_TABLE
902     , p5_a12 JTF_DATE_TABLE
903     , p5_a13 JTF_NUMBER_TABLE
904     , p6_a0 out nocopy JTF_NUMBER_TABLE
905     , p6_a1 out nocopy JTF_NUMBER_TABLE
906     , p6_a2 out nocopy JTF_NUMBER_TABLE
907     , p6_a3 out nocopy JTF_VARCHAR2_TABLE_300
908     , p6_a4 out nocopy JTF_NUMBER_TABLE
909     , p6_a5 out nocopy JTF_NUMBER_TABLE
910     , p6_a6 out nocopy JTF_NUMBER_TABLE
911     , p6_a7 out nocopy JTF_NUMBER_TABLE
912     , p6_a8 out nocopy JTF_NUMBER_TABLE
913     , p6_a9 out nocopy JTF_NUMBER_TABLE
914     , p6_a10 out nocopy JTF_NUMBER_TABLE
915     , p6_a11 out nocopy JTF_DATE_TABLE
916     , p6_a12 out nocopy JTF_DATE_TABLE
917     , p6_a13 out nocopy JTF_NUMBER_TABLE
918   )
919 
920   as
921     ddp_sxpv_tbl okl_setup_trxparams_pub.sxpv_tbl_type;
922     ddx_sxpv_tbl okl_setup_trxparams_pub.sxpv_tbl_type;
923     ddindx binary_integer; indx binary_integer;
924   begin
925 
926     -- copy data to the local IN or IN-OUT args, if any
927 
928 
929 
930 
931 
932     okl_sxp_pvt_w.rosetta_table_copy_in_p5(ddp_sxpv_tbl, p5_a0
933       , p5_a1
934       , p5_a2
935       , p5_a3
936       , p5_a4
937       , p5_a5
938       , p5_a6
939       , p5_a7
940       , p5_a8
941       , p5_a9
942       , p5_a10
943       , p5_a11
944       , p5_a12
945       , p5_a13
946       );
947 
948 
949     -- here's the delegated call to the old PL/SQL routine
950     okl_setup_trxparams_pub.update_trx_asset_parm(p_api_version,
951       p_init_msg_list,
952       x_return_status,
953       x_msg_count,
954       x_msg_data,
955       ddp_sxpv_tbl,
956       ddx_sxpv_tbl);
957 
958     -- copy data back from the local variables to OUT or IN-OUT args, if any
959 
960 
961 
962 
963 
964 
965     okl_sxp_pvt_w.rosetta_table_copy_out_p5(ddx_sxpv_tbl, p6_a0
966       , p6_a1
967       , p6_a2
968       , p6_a3
969       , p6_a4
970       , p6_a5
971       , p6_a6
972       , p6_a7
973       , p6_a8
974       , p6_a9
975       , p6_a10
976       , p6_a11
977       , p6_a12
978       , p6_a13
979       );
980   end;
981 
982 end okl_setup_trxparams_pub_w;