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