[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;