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