[Home] [Help]
PACKAGE BODY: APPS.OKL_SUBSIDY_PUB_W
Source
1 package body okl_subsidy_pub_w as
2 /* $Header: OKLUSUBB.pls 120.4 2005/10/30 04:50:55 appldev 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_subsidy(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 VARCHAR2
30 , p6_a3 out nocopy NUMBER
31 , p6_a4 out nocopy VARCHAR2
32 , p6_a5 out nocopy VARCHAR2
33 , p6_a6 out nocopy VARCHAR2
34 , p6_a7 out nocopy DATE
35 , p6_a8 out nocopy DATE
36 , p6_a9 out nocopy NUMBER
37 , p6_a10 out nocopy VARCHAR2
38 , p6_a11 out nocopy VARCHAR2
39 , p6_a12 out nocopy VARCHAR2
40 , p6_a13 out nocopy VARCHAR2
41 , p6_a14 out nocopy NUMBER
42 , p6_a15 out nocopy NUMBER
43 , p6_a16 out nocopy NUMBER
44 , p6_a17 out nocopy NUMBER
45 , p6_a18 out nocopy NUMBER
46 , p6_a19 out nocopy NUMBER
47 , p6_a20 out nocopy VARCHAR2
48 , p6_a21 out nocopy VARCHAR2
49 , p6_a22 out nocopy VARCHAR2
50 , p6_a23 out nocopy NUMBER
51 , p6_a24 out nocopy NUMBER
52 , p6_a25 out nocopy VARCHAR2
53 , p6_a26 out nocopy VARCHAR2
54 , p6_a27 out nocopy NUMBER
55 , p6_a28 out nocopy NUMBER
56 , p6_a29 out nocopy VARCHAR2
57 , p6_a30 out nocopy VARCHAR2
58 , p6_a31 out nocopy VARCHAR2
59 , p6_a32 out nocopy VARCHAR2
60 , p6_a33 out nocopy VARCHAR2
61 , p6_a34 out nocopy VARCHAR2
62 , p6_a35 out nocopy VARCHAR2
63 , p6_a36 out nocopy VARCHAR2
64 , p6_a37 out nocopy VARCHAR2
65 , p6_a38 out nocopy VARCHAR2
66 , p6_a39 out nocopy VARCHAR2
67 , p6_a40 out nocopy VARCHAR2
68 , p6_a41 out nocopy VARCHAR2
69 , p6_a42 out nocopy VARCHAR2
70 , p6_a43 out nocopy VARCHAR2
71 , p6_a44 out nocopy VARCHAR2
72 , p6_a45 out nocopy VARCHAR2
73 , p6_a46 out nocopy NUMBER
74 , p6_a47 out nocopy DATE
75 , p6_a48 out nocopy NUMBER
76 , p6_a49 out nocopy DATE
77 , p6_a50 out nocopy NUMBER
78 , p6_a51 out nocopy NUMBER
79 , p5_a0 NUMBER := 0-1962.0724
80 , p5_a1 NUMBER := 0-1962.0724
81 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
82 , p5_a3 NUMBER := 0-1962.0724
83 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
84 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
85 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
86 , p5_a7 DATE := fnd_api.g_miss_date
87 , p5_a8 DATE := fnd_api.g_miss_date
88 , p5_a9 NUMBER := 0-1962.0724
89 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
90 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
91 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
92 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
93 , p5_a14 NUMBER := 0-1962.0724
94 , p5_a15 NUMBER := 0-1962.0724
95 , p5_a16 NUMBER := 0-1962.0724
96 , p5_a17 NUMBER := 0-1962.0724
97 , p5_a18 NUMBER := 0-1962.0724
98 , p5_a19 NUMBER := 0-1962.0724
99 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
100 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
101 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
102 , p5_a23 NUMBER := 0-1962.0724
103 , p5_a24 NUMBER := 0-1962.0724
104 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
105 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
106 , p5_a27 NUMBER := 0-1962.0724
107 , p5_a28 NUMBER := 0-1962.0724
108 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
109 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
110 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
111 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
112 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
113 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
114 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
115 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
116 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
117 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
118 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
119 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
120 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
121 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
122 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
123 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
124 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
125 , p5_a46 NUMBER := 0-1962.0724
126 , p5_a47 DATE := fnd_api.g_miss_date
127 , p5_a48 NUMBER := 0-1962.0724
128 , p5_a49 DATE := fnd_api.g_miss_date
129 , p5_a50 NUMBER := 0-1962.0724
130 , p5_a51 NUMBER := 0-1962.0724
131 )
132
133 as
134 ddp_subv_rec okl_subsidy_pub.subv_rec_type;
135 ddx_subv_rec okl_subsidy_pub.subv_rec_type;
136 ddindx binary_integer; indx binary_integer;
137 begin
138
139 -- copy data to the local IN or IN-OUT args, if any
140
141
142
143
144
145 ddp_subv_rec.id := rosetta_g_miss_num_map(p5_a0);
146 ddp_subv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
147 ddp_subv_rec.sfwt_flag := p5_a2;
148 ddp_subv_rec.org_id := rosetta_g_miss_num_map(p5_a3);
149 ddp_subv_rec.name := p5_a4;
150 ddp_subv_rec.short_description := p5_a5;
151 ddp_subv_rec.description := p5_a6;
152 ddp_subv_rec.effective_from_date := rosetta_g_miss_date_in_map(p5_a7);
153 ddp_subv_rec.effective_to_date := rosetta_g_miss_date_in_map(p5_a8);
154 ddp_subv_rec.expire_after_days := rosetta_g_miss_num_map(p5_a9);
155 ddp_subv_rec.currency_code := p5_a10;
156 ddp_subv_rec.exclusive_yn := p5_a11;
157 ddp_subv_rec.applicable_to_release_yn := p5_a12;
158 ddp_subv_rec.subsidy_calc_basis := p5_a13;
159 ddp_subv_rec.amount := rosetta_g_miss_num_map(p5_a14);
160 ddp_subv_rec.percent := rosetta_g_miss_num_map(p5_a15);
161 ddp_subv_rec.formula_id := rosetta_g_miss_num_map(p5_a16);
162 ddp_subv_rec.rate_points := rosetta_g_miss_num_map(p5_a17);
163 ddp_subv_rec.maximum_term := rosetta_g_miss_num_map(p5_a18);
164 ddp_subv_rec.vendor_id := rosetta_g_miss_num_map(p5_a19);
165 ddp_subv_rec.accounting_method_code := p5_a20;
166 ddp_subv_rec.recourse_yn := p5_a21;
167 ddp_subv_rec.termination_refund_basis := p5_a22;
168 ddp_subv_rec.refund_formula_id := rosetta_g_miss_num_map(p5_a23);
169 ddp_subv_rec.stream_type_id := rosetta_g_miss_num_map(p5_a24);
170 ddp_subv_rec.receipt_method_code := p5_a25;
171 ddp_subv_rec.customer_visible_yn := p5_a26;
172 ddp_subv_rec.maximum_financed_amount := rosetta_g_miss_num_map(p5_a27);
173 ddp_subv_rec.maximum_subsidy_amount := rosetta_g_miss_num_map(p5_a28);
174 ddp_subv_rec.transfer_basis_code := p5_a29;
175 ddp_subv_rec.attribute_category := p5_a30;
176 ddp_subv_rec.attribute1 := p5_a31;
177 ddp_subv_rec.attribute2 := p5_a32;
178 ddp_subv_rec.attribute3 := p5_a33;
179 ddp_subv_rec.attribute4 := p5_a34;
180 ddp_subv_rec.attribute5 := p5_a35;
181 ddp_subv_rec.attribute6 := p5_a36;
182 ddp_subv_rec.attribute7 := p5_a37;
183 ddp_subv_rec.attribute8 := p5_a38;
184 ddp_subv_rec.attribute9 := p5_a39;
185 ddp_subv_rec.attribute10 := p5_a40;
186 ddp_subv_rec.attribute11 := p5_a41;
187 ddp_subv_rec.attribute12 := p5_a42;
188 ddp_subv_rec.attribute13 := p5_a43;
189 ddp_subv_rec.attribute14 := p5_a44;
190 ddp_subv_rec.attribute15 := p5_a45;
191 ddp_subv_rec.created_by := rosetta_g_miss_num_map(p5_a46);
192 ddp_subv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a47);
193 ddp_subv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a48);
194 ddp_subv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a49);
195 ddp_subv_rec.last_update_login := rosetta_g_miss_num_map(p5_a50);
196 ddp_subv_rec.subsidy_pool_id := rosetta_g_miss_num_map(p5_a51);
197
198
199 -- here's the delegated call to the old PL/SQL routine
200 okl_subsidy_pub.create_subsidy(p_api_version,
201 p_init_msg_list,
202 x_return_status,
203 x_msg_count,
204 x_msg_data,
205 ddp_subv_rec,
206 ddx_subv_rec);
207
208 -- copy data back from the local variables to OUT or IN-OUT args, if any
209
210
211
212
213
214
215 p6_a0 := rosetta_g_miss_num_map(ddx_subv_rec.id);
216 p6_a1 := rosetta_g_miss_num_map(ddx_subv_rec.object_version_number);
217 p6_a2 := ddx_subv_rec.sfwt_flag;
218 p6_a3 := rosetta_g_miss_num_map(ddx_subv_rec.org_id);
219 p6_a4 := ddx_subv_rec.name;
220 p6_a5 := ddx_subv_rec.short_description;
221 p6_a6 := ddx_subv_rec.description;
222 p6_a7 := ddx_subv_rec.effective_from_date;
223 p6_a8 := ddx_subv_rec.effective_to_date;
224 p6_a9 := rosetta_g_miss_num_map(ddx_subv_rec.expire_after_days);
225 p6_a10 := ddx_subv_rec.currency_code;
226 p6_a11 := ddx_subv_rec.exclusive_yn;
227 p6_a12 := ddx_subv_rec.applicable_to_release_yn;
228 p6_a13 := ddx_subv_rec.subsidy_calc_basis;
229 p6_a14 := rosetta_g_miss_num_map(ddx_subv_rec.amount);
230 p6_a15 := rosetta_g_miss_num_map(ddx_subv_rec.percent);
231 p6_a16 := rosetta_g_miss_num_map(ddx_subv_rec.formula_id);
232 p6_a17 := rosetta_g_miss_num_map(ddx_subv_rec.rate_points);
233 p6_a18 := rosetta_g_miss_num_map(ddx_subv_rec.maximum_term);
234 p6_a19 := rosetta_g_miss_num_map(ddx_subv_rec.vendor_id);
235 p6_a20 := ddx_subv_rec.accounting_method_code;
236 p6_a21 := ddx_subv_rec.recourse_yn;
237 p6_a22 := ddx_subv_rec.termination_refund_basis;
238 p6_a23 := rosetta_g_miss_num_map(ddx_subv_rec.refund_formula_id);
239 p6_a24 := rosetta_g_miss_num_map(ddx_subv_rec.stream_type_id);
240 p6_a25 := ddx_subv_rec.receipt_method_code;
241 p6_a26 := ddx_subv_rec.customer_visible_yn;
242 p6_a27 := rosetta_g_miss_num_map(ddx_subv_rec.maximum_financed_amount);
243 p6_a28 := rosetta_g_miss_num_map(ddx_subv_rec.maximum_subsidy_amount);
244 p6_a29 := ddx_subv_rec.transfer_basis_code;
245 p6_a30 := ddx_subv_rec.attribute_category;
246 p6_a31 := ddx_subv_rec.attribute1;
247 p6_a32 := ddx_subv_rec.attribute2;
248 p6_a33 := ddx_subv_rec.attribute3;
249 p6_a34 := ddx_subv_rec.attribute4;
250 p6_a35 := ddx_subv_rec.attribute5;
251 p6_a36 := ddx_subv_rec.attribute6;
252 p6_a37 := ddx_subv_rec.attribute7;
253 p6_a38 := ddx_subv_rec.attribute8;
254 p6_a39 := ddx_subv_rec.attribute9;
255 p6_a40 := ddx_subv_rec.attribute10;
256 p6_a41 := ddx_subv_rec.attribute11;
257 p6_a42 := ddx_subv_rec.attribute12;
258 p6_a43 := ddx_subv_rec.attribute13;
259 p6_a44 := ddx_subv_rec.attribute14;
260 p6_a45 := ddx_subv_rec.attribute15;
261 p6_a46 := rosetta_g_miss_num_map(ddx_subv_rec.created_by);
262 p6_a47 := ddx_subv_rec.creation_date;
263 p6_a48 := rosetta_g_miss_num_map(ddx_subv_rec.last_updated_by);
264 p6_a49 := ddx_subv_rec.last_update_date;
265 p6_a50 := rosetta_g_miss_num_map(ddx_subv_rec.last_update_login);
266 p6_a51 := rosetta_g_miss_num_map(ddx_subv_rec.subsidy_pool_id);
267 end;
268
269 procedure create_subsidy(p_api_version NUMBER
270 , p_init_msg_list VARCHAR2
271 , x_return_status out nocopy VARCHAR2
272 , x_msg_count out nocopy NUMBER
273 , x_msg_data out nocopy VARCHAR2
274 , p5_a0 JTF_NUMBER_TABLE
275 , p5_a1 JTF_NUMBER_TABLE
276 , p5_a2 JTF_VARCHAR2_TABLE_100
277 , p5_a3 JTF_NUMBER_TABLE
278 , p5_a4 JTF_VARCHAR2_TABLE_100
279 , p5_a5 JTF_VARCHAR2_TABLE_200
280 , p5_a6 JTF_VARCHAR2_TABLE_2000
281 , p5_a7 JTF_DATE_TABLE
282 , p5_a8 JTF_DATE_TABLE
283 , p5_a9 JTF_NUMBER_TABLE
284 , p5_a10 JTF_VARCHAR2_TABLE_100
285 , p5_a11 JTF_VARCHAR2_TABLE_100
286 , p5_a12 JTF_VARCHAR2_TABLE_100
287 , p5_a13 JTF_VARCHAR2_TABLE_100
288 , p5_a14 JTF_NUMBER_TABLE
289 , p5_a15 JTF_NUMBER_TABLE
290 , p5_a16 JTF_NUMBER_TABLE
291 , p5_a17 JTF_NUMBER_TABLE
292 , p5_a18 JTF_NUMBER_TABLE
293 , p5_a19 JTF_NUMBER_TABLE
294 , p5_a20 JTF_VARCHAR2_TABLE_100
295 , p5_a21 JTF_VARCHAR2_TABLE_100
296 , p5_a22 JTF_VARCHAR2_TABLE_100
297 , p5_a23 JTF_NUMBER_TABLE
298 , p5_a24 JTF_NUMBER_TABLE
299 , p5_a25 JTF_VARCHAR2_TABLE_100
300 , p5_a26 JTF_VARCHAR2_TABLE_100
301 , p5_a27 JTF_NUMBER_TABLE
302 , p5_a28 JTF_NUMBER_TABLE
303 , p5_a29 JTF_VARCHAR2_TABLE_100
304 , p5_a30 JTF_VARCHAR2_TABLE_100
305 , p5_a31 JTF_VARCHAR2_TABLE_500
306 , p5_a32 JTF_VARCHAR2_TABLE_500
307 , p5_a33 JTF_VARCHAR2_TABLE_500
308 , p5_a34 JTF_VARCHAR2_TABLE_500
309 , p5_a35 JTF_VARCHAR2_TABLE_500
310 , p5_a36 JTF_VARCHAR2_TABLE_500
311 , p5_a37 JTF_VARCHAR2_TABLE_500
312 , p5_a38 JTF_VARCHAR2_TABLE_500
313 , p5_a39 JTF_VARCHAR2_TABLE_500
314 , p5_a40 JTF_VARCHAR2_TABLE_500
315 , p5_a41 JTF_VARCHAR2_TABLE_500
316 , p5_a42 JTF_VARCHAR2_TABLE_500
317 , p5_a43 JTF_VARCHAR2_TABLE_100
318 , p5_a44 JTF_VARCHAR2_TABLE_500
319 , p5_a45 JTF_VARCHAR2_TABLE_500
320 , p5_a46 JTF_NUMBER_TABLE
321 , p5_a47 JTF_DATE_TABLE
322 , p5_a48 JTF_NUMBER_TABLE
323 , p5_a49 JTF_DATE_TABLE
324 , p5_a50 JTF_NUMBER_TABLE
325 , p5_a51 JTF_NUMBER_TABLE
326 , p6_a0 out nocopy JTF_NUMBER_TABLE
327 , p6_a1 out nocopy JTF_NUMBER_TABLE
328 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
329 , p6_a3 out nocopy JTF_NUMBER_TABLE
330 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
331 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
332 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_2000
333 , p6_a7 out nocopy JTF_DATE_TABLE
334 , p6_a8 out nocopy JTF_DATE_TABLE
335 , p6_a9 out nocopy JTF_NUMBER_TABLE
336 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
337 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
338 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
339 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
340 , p6_a14 out nocopy JTF_NUMBER_TABLE
341 , p6_a15 out nocopy JTF_NUMBER_TABLE
342 , p6_a16 out nocopy JTF_NUMBER_TABLE
343 , p6_a17 out nocopy JTF_NUMBER_TABLE
344 , p6_a18 out nocopy JTF_NUMBER_TABLE
345 , p6_a19 out nocopy JTF_NUMBER_TABLE
346 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
347 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_100
348 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_100
349 , p6_a23 out nocopy JTF_NUMBER_TABLE
350 , p6_a24 out nocopy JTF_NUMBER_TABLE
351 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_100
352 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_100
353 , p6_a27 out nocopy JTF_NUMBER_TABLE
354 , p6_a28 out nocopy JTF_NUMBER_TABLE
355 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_100
356 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_100
357 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
358 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
359 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
360 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
361 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_500
362 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_500
363 , p6_a37 out nocopy JTF_VARCHAR2_TABLE_500
364 , p6_a38 out nocopy JTF_VARCHAR2_TABLE_500
365 , p6_a39 out nocopy JTF_VARCHAR2_TABLE_500
366 , p6_a40 out nocopy JTF_VARCHAR2_TABLE_500
367 , p6_a41 out nocopy JTF_VARCHAR2_TABLE_500
368 , p6_a42 out nocopy JTF_VARCHAR2_TABLE_500
369 , p6_a43 out nocopy JTF_VARCHAR2_TABLE_100
370 , p6_a44 out nocopy JTF_VARCHAR2_TABLE_500
371 , p6_a45 out nocopy JTF_VARCHAR2_TABLE_500
372 , p6_a46 out nocopy JTF_NUMBER_TABLE
373 , p6_a47 out nocopy JTF_DATE_TABLE
374 , p6_a48 out nocopy JTF_NUMBER_TABLE
375 , p6_a49 out nocopy JTF_DATE_TABLE
376 , p6_a50 out nocopy JTF_NUMBER_TABLE
377 , p6_a51 out nocopy JTF_NUMBER_TABLE
378 )
379
380 as
381 ddp_subv_tbl okl_subsidy_pub.subv_tbl_type;
382 ddx_subv_tbl okl_subsidy_pub.subv_tbl_type;
383 ddindx binary_integer; indx binary_integer;
384 begin
385
386 -- copy data to the local IN or IN-OUT args, if any
387
388
389
390
391
392 okl_sub_pvt_w.rosetta_table_copy_in_p2(ddp_subv_tbl, p5_a0
393 , p5_a1
394 , p5_a2
395 , p5_a3
396 , p5_a4
397 , p5_a5
398 , p5_a6
399 , p5_a7
400 , p5_a8
401 , p5_a9
402 , p5_a10
403 , p5_a11
404 , p5_a12
405 , p5_a13
406 , p5_a14
407 , p5_a15
408 , p5_a16
409 , p5_a17
410 , p5_a18
411 , p5_a19
412 , p5_a20
413 , p5_a21
414 , p5_a22
415 , p5_a23
416 , p5_a24
417 , p5_a25
418 , p5_a26
419 , p5_a27
420 , p5_a28
421 , p5_a29
422 , p5_a30
423 , p5_a31
424 , p5_a32
425 , p5_a33
426 , p5_a34
427 , p5_a35
428 , p5_a36
429 , p5_a37
430 , p5_a38
431 , p5_a39
432 , p5_a40
433 , p5_a41
434 , p5_a42
435 , p5_a43
436 , p5_a44
437 , p5_a45
438 , p5_a46
439 , p5_a47
440 , p5_a48
441 , p5_a49
442 , p5_a50
443 , p5_a51
444 );
445
446
447 -- here's the delegated call to the old PL/SQL routine
448 okl_subsidy_pub.create_subsidy(p_api_version,
449 p_init_msg_list,
450 x_return_status,
451 x_msg_count,
452 x_msg_data,
453 ddp_subv_tbl,
454 ddx_subv_tbl);
455
456 -- copy data back from the local variables to OUT or IN-OUT args, if any
457
458
459
460
461
462
463 okl_sub_pvt_w.rosetta_table_copy_out_p2(ddx_subv_tbl, p6_a0
464 , p6_a1
465 , p6_a2
466 , p6_a3
467 , p6_a4
468 , p6_a5
469 , p6_a6
470 , p6_a7
471 , p6_a8
472 , p6_a9
473 , p6_a10
474 , p6_a11
475 , p6_a12
476 , p6_a13
477 , p6_a14
478 , p6_a15
479 , p6_a16
480 , p6_a17
481 , p6_a18
482 , p6_a19
483 , p6_a20
484 , p6_a21
485 , p6_a22
486 , p6_a23
487 , p6_a24
488 , p6_a25
489 , p6_a26
490 , p6_a27
491 , p6_a28
492 , p6_a29
493 , p6_a30
494 , p6_a31
495 , p6_a32
496 , p6_a33
497 , p6_a34
498 , p6_a35
499 , p6_a36
500 , p6_a37
501 , p6_a38
502 , p6_a39
503 , p6_a40
504 , p6_a41
505 , p6_a42
506 , p6_a43
507 , p6_a44
508 , p6_a45
509 , p6_a46
510 , p6_a47
511 , p6_a48
512 , p6_a49
513 , p6_a50
514 , p6_a51
515 );
516 end;
517
518 procedure update_subsidy(p_api_version NUMBER
519 , p_init_msg_list VARCHAR2
520 , x_return_status out nocopy VARCHAR2
521 , x_msg_count out nocopy NUMBER
522 , x_msg_data out nocopy VARCHAR2
523 , p6_a0 out nocopy NUMBER
524 , p6_a1 out nocopy NUMBER
525 , p6_a2 out nocopy VARCHAR2
526 , p6_a3 out nocopy NUMBER
527 , p6_a4 out nocopy VARCHAR2
528 , p6_a5 out nocopy VARCHAR2
529 , p6_a6 out nocopy VARCHAR2
530 , p6_a7 out nocopy DATE
531 , p6_a8 out nocopy DATE
532 , p6_a9 out nocopy NUMBER
533 , p6_a10 out nocopy VARCHAR2
534 , p6_a11 out nocopy VARCHAR2
535 , p6_a12 out nocopy VARCHAR2
536 , p6_a13 out nocopy VARCHAR2
537 , p6_a14 out nocopy NUMBER
538 , p6_a15 out nocopy NUMBER
539 , p6_a16 out nocopy NUMBER
540 , p6_a17 out nocopy NUMBER
541 , p6_a18 out nocopy NUMBER
542 , p6_a19 out nocopy NUMBER
543 , p6_a20 out nocopy VARCHAR2
544 , p6_a21 out nocopy VARCHAR2
545 , p6_a22 out nocopy VARCHAR2
546 , p6_a23 out nocopy NUMBER
547 , p6_a24 out nocopy NUMBER
548 , p6_a25 out nocopy VARCHAR2
549 , p6_a26 out nocopy VARCHAR2
550 , p6_a27 out nocopy NUMBER
551 , p6_a28 out nocopy NUMBER
552 , p6_a29 out nocopy VARCHAR2
553 , p6_a30 out nocopy VARCHAR2
554 , p6_a31 out nocopy VARCHAR2
555 , p6_a32 out nocopy VARCHAR2
556 , p6_a33 out nocopy VARCHAR2
557 , p6_a34 out nocopy VARCHAR2
558 , p6_a35 out nocopy VARCHAR2
559 , p6_a36 out nocopy VARCHAR2
560 , p6_a37 out nocopy VARCHAR2
561 , p6_a38 out nocopy VARCHAR2
562 , p6_a39 out nocopy VARCHAR2
563 , p6_a40 out nocopy VARCHAR2
564 , p6_a41 out nocopy VARCHAR2
565 , p6_a42 out nocopy VARCHAR2
566 , p6_a43 out nocopy VARCHAR2
567 , p6_a44 out nocopy VARCHAR2
568 , p6_a45 out nocopy VARCHAR2
569 , p6_a46 out nocopy NUMBER
570 , p6_a47 out nocopy DATE
571 , p6_a48 out nocopy NUMBER
572 , p6_a49 out nocopy DATE
573 , p6_a50 out nocopy NUMBER
574 , p6_a51 out nocopy NUMBER
575 , p5_a0 NUMBER := 0-1962.0724
576 , p5_a1 NUMBER := 0-1962.0724
577 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
578 , p5_a3 NUMBER := 0-1962.0724
579 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
580 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
581 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
582 , p5_a7 DATE := fnd_api.g_miss_date
583 , p5_a8 DATE := fnd_api.g_miss_date
584 , p5_a9 NUMBER := 0-1962.0724
585 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
586 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
587 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
588 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
589 , p5_a14 NUMBER := 0-1962.0724
590 , p5_a15 NUMBER := 0-1962.0724
591 , p5_a16 NUMBER := 0-1962.0724
592 , p5_a17 NUMBER := 0-1962.0724
593 , p5_a18 NUMBER := 0-1962.0724
594 , p5_a19 NUMBER := 0-1962.0724
595 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
596 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
597 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
598 , p5_a23 NUMBER := 0-1962.0724
599 , p5_a24 NUMBER := 0-1962.0724
600 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
601 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
602 , p5_a27 NUMBER := 0-1962.0724
603 , p5_a28 NUMBER := 0-1962.0724
604 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
605 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
606 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
607 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
608 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
609 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
610 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
611 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
612 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
613 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
614 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
615 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
616 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
617 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
618 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
619 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
620 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
621 , p5_a46 NUMBER := 0-1962.0724
622 , p5_a47 DATE := fnd_api.g_miss_date
623 , p5_a48 NUMBER := 0-1962.0724
624 , p5_a49 DATE := fnd_api.g_miss_date
625 , p5_a50 NUMBER := 0-1962.0724
626 , p5_a51 NUMBER := 0-1962.0724
627 )
628
629 as
630 ddp_subv_rec okl_subsidy_pub.subv_rec_type;
631 ddx_subv_rec okl_subsidy_pub.subv_rec_type;
632 ddindx binary_integer; indx binary_integer;
633 begin
634
635 -- copy data to the local IN or IN-OUT args, if any
636
637
638
639
640
641 ddp_subv_rec.id := rosetta_g_miss_num_map(p5_a0);
642 ddp_subv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
643 ddp_subv_rec.sfwt_flag := p5_a2;
644 ddp_subv_rec.org_id := rosetta_g_miss_num_map(p5_a3);
645 ddp_subv_rec.name := p5_a4;
646 ddp_subv_rec.short_description := p5_a5;
647 ddp_subv_rec.description := p5_a6;
648 ddp_subv_rec.effective_from_date := rosetta_g_miss_date_in_map(p5_a7);
649 ddp_subv_rec.effective_to_date := rosetta_g_miss_date_in_map(p5_a8);
650 ddp_subv_rec.expire_after_days := rosetta_g_miss_num_map(p5_a9);
651 ddp_subv_rec.currency_code := p5_a10;
652 ddp_subv_rec.exclusive_yn := p5_a11;
653 ddp_subv_rec.applicable_to_release_yn := p5_a12;
654 ddp_subv_rec.subsidy_calc_basis := p5_a13;
655 ddp_subv_rec.amount := rosetta_g_miss_num_map(p5_a14);
656 ddp_subv_rec.percent := rosetta_g_miss_num_map(p5_a15);
657 ddp_subv_rec.formula_id := rosetta_g_miss_num_map(p5_a16);
658 ddp_subv_rec.rate_points := rosetta_g_miss_num_map(p5_a17);
659 ddp_subv_rec.maximum_term := rosetta_g_miss_num_map(p5_a18);
660 ddp_subv_rec.vendor_id := rosetta_g_miss_num_map(p5_a19);
661 ddp_subv_rec.accounting_method_code := p5_a20;
662 ddp_subv_rec.recourse_yn := p5_a21;
663 ddp_subv_rec.termination_refund_basis := p5_a22;
664 ddp_subv_rec.refund_formula_id := rosetta_g_miss_num_map(p5_a23);
665 ddp_subv_rec.stream_type_id := rosetta_g_miss_num_map(p5_a24);
666 ddp_subv_rec.receipt_method_code := p5_a25;
667 ddp_subv_rec.customer_visible_yn := p5_a26;
668 ddp_subv_rec.maximum_financed_amount := rosetta_g_miss_num_map(p5_a27);
669 ddp_subv_rec.maximum_subsidy_amount := rosetta_g_miss_num_map(p5_a28);
670 ddp_subv_rec.transfer_basis_code := p5_a29;
671 ddp_subv_rec.attribute_category := p5_a30;
672 ddp_subv_rec.attribute1 := p5_a31;
673 ddp_subv_rec.attribute2 := p5_a32;
674 ddp_subv_rec.attribute3 := p5_a33;
675 ddp_subv_rec.attribute4 := p5_a34;
676 ddp_subv_rec.attribute5 := p5_a35;
677 ddp_subv_rec.attribute6 := p5_a36;
678 ddp_subv_rec.attribute7 := p5_a37;
679 ddp_subv_rec.attribute8 := p5_a38;
680 ddp_subv_rec.attribute9 := p5_a39;
681 ddp_subv_rec.attribute10 := p5_a40;
682 ddp_subv_rec.attribute11 := p5_a41;
683 ddp_subv_rec.attribute12 := p5_a42;
684 ddp_subv_rec.attribute13 := p5_a43;
685 ddp_subv_rec.attribute14 := p5_a44;
686 ddp_subv_rec.attribute15 := p5_a45;
687 ddp_subv_rec.created_by := rosetta_g_miss_num_map(p5_a46);
688 ddp_subv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a47);
689 ddp_subv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a48);
690 ddp_subv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a49);
691 ddp_subv_rec.last_update_login := rosetta_g_miss_num_map(p5_a50);
692 ddp_subv_rec.subsidy_pool_id := rosetta_g_miss_num_map(p5_a51);
693
694
695 -- here's the delegated call to the old PL/SQL routine
696 okl_subsidy_pub.update_subsidy(p_api_version,
697 p_init_msg_list,
698 x_return_status,
699 x_msg_count,
700 x_msg_data,
701 ddp_subv_rec,
702 ddx_subv_rec);
703
704 -- copy data back from the local variables to OUT or IN-OUT args, if any
705
706
707
708
709
710
711 p6_a0 := rosetta_g_miss_num_map(ddx_subv_rec.id);
712 p6_a1 := rosetta_g_miss_num_map(ddx_subv_rec.object_version_number);
713 p6_a2 := ddx_subv_rec.sfwt_flag;
714 p6_a3 := rosetta_g_miss_num_map(ddx_subv_rec.org_id);
715 p6_a4 := ddx_subv_rec.name;
716 p6_a5 := ddx_subv_rec.short_description;
717 p6_a6 := ddx_subv_rec.description;
718 p6_a7 := ddx_subv_rec.effective_from_date;
719 p6_a8 := ddx_subv_rec.effective_to_date;
720 p6_a9 := rosetta_g_miss_num_map(ddx_subv_rec.expire_after_days);
721 p6_a10 := ddx_subv_rec.currency_code;
722 p6_a11 := ddx_subv_rec.exclusive_yn;
723 p6_a12 := ddx_subv_rec.applicable_to_release_yn;
724 p6_a13 := ddx_subv_rec.subsidy_calc_basis;
725 p6_a14 := rosetta_g_miss_num_map(ddx_subv_rec.amount);
726 p6_a15 := rosetta_g_miss_num_map(ddx_subv_rec.percent);
727 p6_a16 := rosetta_g_miss_num_map(ddx_subv_rec.formula_id);
728 p6_a17 := rosetta_g_miss_num_map(ddx_subv_rec.rate_points);
729 p6_a18 := rosetta_g_miss_num_map(ddx_subv_rec.maximum_term);
730 p6_a19 := rosetta_g_miss_num_map(ddx_subv_rec.vendor_id);
731 p6_a20 := ddx_subv_rec.accounting_method_code;
732 p6_a21 := ddx_subv_rec.recourse_yn;
733 p6_a22 := ddx_subv_rec.termination_refund_basis;
734 p6_a23 := rosetta_g_miss_num_map(ddx_subv_rec.refund_formula_id);
735 p6_a24 := rosetta_g_miss_num_map(ddx_subv_rec.stream_type_id);
736 p6_a25 := ddx_subv_rec.receipt_method_code;
737 p6_a26 := ddx_subv_rec.customer_visible_yn;
738 p6_a27 := rosetta_g_miss_num_map(ddx_subv_rec.maximum_financed_amount);
739 p6_a28 := rosetta_g_miss_num_map(ddx_subv_rec.maximum_subsidy_amount);
740 p6_a29 := ddx_subv_rec.transfer_basis_code;
741 p6_a30 := ddx_subv_rec.attribute_category;
742 p6_a31 := ddx_subv_rec.attribute1;
743 p6_a32 := ddx_subv_rec.attribute2;
744 p6_a33 := ddx_subv_rec.attribute3;
745 p6_a34 := ddx_subv_rec.attribute4;
746 p6_a35 := ddx_subv_rec.attribute5;
747 p6_a36 := ddx_subv_rec.attribute6;
748 p6_a37 := ddx_subv_rec.attribute7;
749 p6_a38 := ddx_subv_rec.attribute8;
750 p6_a39 := ddx_subv_rec.attribute9;
751 p6_a40 := ddx_subv_rec.attribute10;
752 p6_a41 := ddx_subv_rec.attribute11;
753 p6_a42 := ddx_subv_rec.attribute12;
754 p6_a43 := ddx_subv_rec.attribute13;
755 p6_a44 := ddx_subv_rec.attribute14;
756 p6_a45 := ddx_subv_rec.attribute15;
757 p6_a46 := rosetta_g_miss_num_map(ddx_subv_rec.created_by);
758 p6_a47 := ddx_subv_rec.creation_date;
759 p6_a48 := rosetta_g_miss_num_map(ddx_subv_rec.last_updated_by);
760 p6_a49 := ddx_subv_rec.last_update_date;
761 p6_a50 := rosetta_g_miss_num_map(ddx_subv_rec.last_update_login);
762 p6_a51 := rosetta_g_miss_num_map(ddx_subv_rec.subsidy_pool_id);
763 end;
764
765 procedure update_subsidy(p_api_version NUMBER
766 , p_init_msg_list VARCHAR2
767 , x_return_status out nocopy VARCHAR2
768 , x_msg_count out nocopy NUMBER
769 , x_msg_data out nocopy VARCHAR2
770 , p5_a0 JTF_NUMBER_TABLE
771 , p5_a1 JTF_NUMBER_TABLE
772 , p5_a2 JTF_VARCHAR2_TABLE_100
773 , p5_a3 JTF_NUMBER_TABLE
774 , p5_a4 JTF_VARCHAR2_TABLE_100
775 , p5_a5 JTF_VARCHAR2_TABLE_200
776 , p5_a6 JTF_VARCHAR2_TABLE_2000
777 , p5_a7 JTF_DATE_TABLE
778 , p5_a8 JTF_DATE_TABLE
779 , p5_a9 JTF_NUMBER_TABLE
780 , p5_a10 JTF_VARCHAR2_TABLE_100
781 , p5_a11 JTF_VARCHAR2_TABLE_100
782 , p5_a12 JTF_VARCHAR2_TABLE_100
783 , p5_a13 JTF_VARCHAR2_TABLE_100
784 , p5_a14 JTF_NUMBER_TABLE
785 , p5_a15 JTF_NUMBER_TABLE
786 , p5_a16 JTF_NUMBER_TABLE
787 , p5_a17 JTF_NUMBER_TABLE
788 , p5_a18 JTF_NUMBER_TABLE
789 , p5_a19 JTF_NUMBER_TABLE
790 , p5_a20 JTF_VARCHAR2_TABLE_100
791 , p5_a21 JTF_VARCHAR2_TABLE_100
792 , p5_a22 JTF_VARCHAR2_TABLE_100
793 , p5_a23 JTF_NUMBER_TABLE
794 , p5_a24 JTF_NUMBER_TABLE
795 , p5_a25 JTF_VARCHAR2_TABLE_100
796 , p5_a26 JTF_VARCHAR2_TABLE_100
797 , p5_a27 JTF_NUMBER_TABLE
798 , p5_a28 JTF_NUMBER_TABLE
799 , p5_a29 JTF_VARCHAR2_TABLE_100
800 , p5_a30 JTF_VARCHAR2_TABLE_100
801 , p5_a31 JTF_VARCHAR2_TABLE_500
802 , p5_a32 JTF_VARCHAR2_TABLE_500
803 , p5_a33 JTF_VARCHAR2_TABLE_500
804 , p5_a34 JTF_VARCHAR2_TABLE_500
805 , p5_a35 JTF_VARCHAR2_TABLE_500
806 , p5_a36 JTF_VARCHAR2_TABLE_500
807 , p5_a37 JTF_VARCHAR2_TABLE_500
808 , p5_a38 JTF_VARCHAR2_TABLE_500
809 , p5_a39 JTF_VARCHAR2_TABLE_500
810 , p5_a40 JTF_VARCHAR2_TABLE_500
811 , p5_a41 JTF_VARCHAR2_TABLE_500
812 , p5_a42 JTF_VARCHAR2_TABLE_500
813 , p5_a43 JTF_VARCHAR2_TABLE_100
814 , p5_a44 JTF_VARCHAR2_TABLE_500
815 , p5_a45 JTF_VARCHAR2_TABLE_500
816 , p5_a46 JTF_NUMBER_TABLE
817 , p5_a47 JTF_DATE_TABLE
818 , p5_a48 JTF_NUMBER_TABLE
819 , p5_a49 JTF_DATE_TABLE
820 , p5_a50 JTF_NUMBER_TABLE
821 , p5_a51 JTF_NUMBER_TABLE
822 , p6_a0 out nocopy JTF_NUMBER_TABLE
823 , p6_a1 out nocopy JTF_NUMBER_TABLE
824 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
825 , p6_a3 out nocopy JTF_NUMBER_TABLE
826 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
827 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
828 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_2000
829 , p6_a7 out nocopy JTF_DATE_TABLE
830 , p6_a8 out nocopy JTF_DATE_TABLE
831 , p6_a9 out nocopy JTF_NUMBER_TABLE
832 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
833 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
834 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
835 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
836 , p6_a14 out nocopy JTF_NUMBER_TABLE
837 , p6_a15 out nocopy JTF_NUMBER_TABLE
838 , p6_a16 out nocopy JTF_NUMBER_TABLE
839 , p6_a17 out nocopy JTF_NUMBER_TABLE
840 , p6_a18 out nocopy JTF_NUMBER_TABLE
841 , p6_a19 out nocopy JTF_NUMBER_TABLE
842 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
843 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_100
844 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_100
845 , p6_a23 out nocopy JTF_NUMBER_TABLE
846 , p6_a24 out nocopy JTF_NUMBER_TABLE
847 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_100
848 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_100
849 , p6_a27 out nocopy JTF_NUMBER_TABLE
850 , p6_a28 out nocopy JTF_NUMBER_TABLE
851 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_100
852 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_100
853 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
854 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
855 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
856 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
857 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_500
858 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_500
859 , p6_a37 out nocopy JTF_VARCHAR2_TABLE_500
860 , p6_a38 out nocopy JTF_VARCHAR2_TABLE_500
861 , p6_a39 out nocopy JTF_VARCHAR2_TABLE_500
862 , p6_a40 out nocopy JTF_VARCHAR2_TABLE_500
863 , p6_a41 out nocopy JTF_VARCHAR2_TABLE_500
864 , p6_a42 out nocopy JTF_VARCHAR2_TABLE_500
865 , p6_a43 out nocopy JTF_VARCHAR2_TABLE_100
866 , p6_a44 out nocopy JTF_VARCHAR2_TABLE_500
867 , p6_a45 out nocopy JTF_VARCHAR2_TABLE_500
868 , p6_a46 out nocopy JTF_NUMBER_TABLE
869 , p6_a47 out nocopy JTF_DATE_TABLE
870 , p6_a48 out nocopy JTF_NUMBER_TABLE
871 , p6_a49 out nocopy JTF_DATE_TABLE
872 , p6_a50 out nocopy JTF_NUMBER_TABLE
873 , p6_a51 out nocopy JTF_NUMBER_TABLE
874 )
875
876 as
877 ddp_subv_tbl okl_subsidy_pub.subv_tbl_type;
878 ddx_subv_tbl okl_subsidy_pub.subv_tbl_type;
879 ddindx binary_integer; indx binary_integer;
880 begin
881
882 -- copy data to the local IN or IN-OUT args, if any
883
884
885
886
887
888 okl_sub_pvt_w.rosetta_table_copy_in_p2(ddp_subv_tbl, p5_a0
889 , p5_a1
890 , p5_a2
891 , p5_a3
892 , p5_a4
893 , p5_a5
894 , p5_a6
895 , p5_a7
896 , p5_a8
897 , p5_a9
898 , p5_a10
899 , p5_a11
900 , p5_a12
901 , p5_a13
902 , p5_a14
903 , p5_a15
904 , p5_a16
905 , p5_a17
906 , p5_a18
907 , p5_a19
908 , p5_a20
909 , p5_a21
910 , p5_a22
911 , p5_a23
912 , p5_a24
913 , p5_a25
914 , p5_a26
915 , p5_a27
916 , p5_a28
917 , p5_a29
918 , p5_a30
919 , p5_a31
920 , p5_a32
921 , p5_a33
922 , p5_a34
923 , p5_a35
924 , p5_a36
925 , p5_a37
926 , p5_a38
927 , p5_a39
928 , p5_a40
929 , p5_a41
930 , p5_a42
931 , p5_a43
932 , p5_a44
933 , p5_a45
934 , p5_a46
935 , p5_a47
936 , p5_a48
937 , p5_a49
938 , p5_a50
939 , p5_a51
940 );
941
942
943 -- here's the delegated call to the old PL/SQL routine
944 okl_subsidy_pub.update_subsidy(p_api_version,
945 p_init_msg_list,
946 x_return_status,
947 x_msg_count,
948 x_msg_data,
949 ddp_subv_tbl,
950 ddx_subv_tbl);
951
952 -- copy data back from the local variables to OUT or IN-OUT args, if any
953
954
955
956
957
958
959 okl_sub_pvt_w.rosetta_table_copy_out_p2(ddx_subv_tbl, p6_a0
960 , p6_a1
961 , p6_a2
962 , p6_a3
963 , p6_a4
964 , p6_a5
965 , p6_a6
966 , p6_a7
967 , p6_a8
968 , p6_a9
969 , p6_a10
970 , p6_a11
971 , p6_a12
972 , p6_a13
973 , p6_a14
974 , p6_a15
975 , p6_a16
976 , p6_a17
977 , p6_a18
978 , p6_a19
979 , p6_a20
980 , p6_a21
981 , p6_a22
982 , p6_a23
983 , p6_a24
984 , p6_a25
985 , p6_a26
986 , p6_a27
987 , p6_a28
988 , p6_a29
989 , p6_a30
990 , p6_a31
991 , p6_a32
992 , p6_a33
993 , p6_a34
994 , p6_a35
995 , p6_a36
996 , p6_a37
997 , p6_a38
998 , p6_a39
999 , p6_a40
1000 , p6_a41
1001 , p6_a42
1002 , p6_a43
1003 , p6_a44
1004 , p6_a45
1005 , p6_a46
1006 , p6_a47
1007 , p6_a48
1008 , p6_a49
1009 , p6_a50
1010 , p6_a51
1011 );
1012 end;
1013
1014 procedure delete_subsidy(p_api_version NUMBER
1015 , p_init_msg_list VARCHAR2
1016 , x_return_status out nocopy VARCHAR2
1017 , x_msg_count out nocopy NUMBER
1018 , x_msg_data out nocopy VARCHAR2
1019 , p5_a0 NUMBER := 0-1962.0724
1020 , p5_a1 NUMBER := 0-1962.0724
1021 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1022 , p5_a3 NUMBER := 0-1962.0724
1023 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1024 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1025 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1026 , p5_a7 DATE := fnd_api.g_miss_date
1027 , p5_a8 DATE := fnd_api.g_miss_date
1028 , p5_a9 NUMBER := 0-1962.0724
1029 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1030 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1031 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1032 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1033 , p5_a14 NUMBER := 0-1962.0724
1034 , p5_a15 NUMBER := 0-1962.0724
1035 , p5_a16 NUMBER := 0-1962.0724
1036 , p5_a17 NUMBER := 0-1962.0724
1037 , p5_a18 NUMBER := 0-1962.0724
1038 , p5_a19 NUMBER := 0-1962.0724
1039 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1040 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1041 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1042 , p5_a23 NUMBER := 0-1962.0724
1043 , p5_a24 NUMBER := 0-1962.0724
1044 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1045 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1046 , p5_a27 NUMBER := 0-1962.0724
1047 , p5_a28 NUMBER := 0-1962.0724
1048 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1049 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1050 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1051 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1052 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
1053 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
1054 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
1055 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
1056 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
1057 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
1058 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
1059 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
1060 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
1061 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
1062 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
1063 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
1064 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
1065 , p5_a46 NUMBER := 0-1962.0724
1066 , p5_a47 DATE := fnd_api.g_miss_date
1067 , p5_a48 NUMBER := 0-1962.0724
1068 , p5_a49 DATE := fnd_api.g_miss_date
1069 , p5_a50 NUMBER := 0-1962.0724
1070 , p5_a51 NUMBER := 0-1962.0724
1071 )
1072
1073 as
1074 ddp_subv_rec okl_subsidy_pub.subv_rec_type;
1075 ddindx binary_integer; indx binary_integer;
1076 begin
1077
1078 -- copy data to the local IN or IN-OUT args, if any
1079
1080
1081
1082
1083
1084 ddp_subv_rec.id := rosetta_g_miss_num_map(p5_a0);
1085 ddp_subv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1086 ddp_subv_rec.sfwt_flag := p5_a2;
1087 ddp_subv_rec.org_id := rosetta_g_miss_num_map(p5_a3);
1088 ddp_subv_rec.name := p5_a4;
1089 ddp_subv_rec.short_description := p5_a5;
1090 ddp_subv_rec.description := p5_a6;
1091 ddp_subv_rec.effective_from_date := rosetta_g_miss_date_in_map(p5_a7);
1092 ddp_subv_rec.effective_to_date := rosetta_g_miss_date_in_map(p5_a8);
1093 ddp_subv_rec.expire_after_days := rosetta_g_miss_num_map(p5_a9);
1094 ddp_subv_rec.currency_code := p5_a10;
1095 ddp_subv_rec.exclusive_yn := p5_a11;
1096 ddp_subv_rec.applicable_to_release_yn := p5_a12;
1097 ddp_subv_rec.subsidy_calc_basis := p5_a13;
1098 ddp_subv_rec.amount := rosetta_g_miss_num_map(p5_a14);
1099 ddp_subv_rec.percent := rosetta_g_miss_num_map(p5_a15);
1100 ddp_subv_rec.formula_id := rosetta_g_miss_num_map(p5_a16);
1101 ddp_subv_rec.rate_points := rosetta_g_miss_num_map(p5_a17);
1102 ddp_subv_rec.maximum_term := rosetta_g_miss_num_map(p5_a18);
1103 ddp_subv_rec.vendor_id := rosetta_g_miss_num_map(p5_a19);
1104 ddp_subv_rec.accounting_method_code := p5_a20;
1105 ddp_subv_rec.recourse_yn := p5_a21;
1106 ddp_subv_rec.termination_refund_basis := p5_a22;
1107 ddp_subv_rec.refund_formula_id := rosetta_g_miss_num_map(p5_a23);
1108 ddp_subv_rec.stream_type_id := rosetta_g_miss_num_map(p5_a24);
1109 ddp_subv_rec.receipt_method_code := p5_a25;
1110 ddp_subv_rec.customer_visible_yn := p5_a26;
1111 ddp_subv_rec.maximum_financed_amount := rosetta_g_miss_num_map(p5_a27);
1112 ddp_subv_rec.maximum_subsidy_amount := rosetta_g_miss_num_map(p5_a28);
1113 ddp_subv_rec.transfer_basis_code := p5_a29;
1114 ddp_subv_rec.attribute_category := p5_a30;
1115 ddp_subv_rec.attribute1 := p5_a31;
1116 ddp_subv_rec.attribute2 := p5_a32;
1117 ddp_subv_rec.attribute3 := p5_a33;
1118 ddp_subv_rec.attribute4 := p5_a34;
1119 ddp_subv_rec.attribute5 := p5_a35;
1120 ddp_subv_rec.attribute6 := p5_a36;
1121 ddp_subv_rec.attribute7 := p5_a37;
1122 ddp_subv_rec.attribute8 := p5_a38;
1123 ddp_subv_rec.attribute9 := p5_a39;
1124 ddp_subv_rec.attribute10 := p5_a40;
1125 ddp_subv_rec.attribute11 := p5_a41;
1126 ddp_subv_rec.attribute12 := p5_a42;
1127 ddp_subv_rec.attribute13 := p5_a43;
1128 ddp_subv_rec.attribute14 := p5_a44;
1129 ddp_subv_rec.attribute15 := p5_a45;
1130 ddp_subv_rec.created_by := rosetta_g_miss_num_map(p5_a46);
1131 ddp_subv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a47);
1132 ddp_subv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a48);
1133 ddp_subv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a49);
1134 ddp_subv_rec.last_update_login := rosetta_g_miss_num_map(p5_a50);
1135 ddp_subv_rec.subsidy_pool_id := rosetta_g_miss_num_map(p5_a51);
1136
1137 -- here's the delegated call to the old PL/SQL routine
1138 okl_subsidy_pub.delete_subsidy(p_api_version,
1139 p_init_msg_list,
1140 x_return_status,
1141 x_msg_count,
1142 x_msg_data,
1143 ddp_subv_rec);
1144
1145 -- copy data back from the local variables to OUT or IN-OUT args, if any
1146
1147
1148
1149
1150
1151 end;
1152
1153 procedure delete_subsidy(p_api_version NUMBER
1154 , p_init_msg_list VARCHAR2
1155 , x_return_status out nocopy VARCHAR2
1156 , x_msg_count out nocopy NUMBER
1157 , x_msg_data out nocopy VARCHAR2
1158 , p5_a0 JTF_NUMBER_TABLE
1159 , p5_a1 JTF_NUMBER_TABLE
1160 , p5_a2 JTF_VARCHAR2_TABLE_100
1161 , p5_a3 JTF_NUMBER_TABLE
1162 , p5_a4 JTF_VARCHAR2_TABLE_100
1163 , p5_a5 JTF_VARCHAR2_TABLE_200
1164 , p5_a6 JTF_VARCHAR2_TABLE_2000
1165 , p5_a7 JTF_DATE_TABLE
1166 , p5_a8 JTF_DATE_TABLE
1167 , p5_a9 JTF_NUMBER_TABLE
1168 , p5_a10 JTF_VARCHAR2_TABLE_100
1169 , p5_a11 JTF_VARCHAR2_TABLE_100
1170 , p5_a12 JTF_VARCHAR2_TABLE_100
1171 , p5_a13 JTF_VARCHAR2_TABLE_100
1172 , p5_a14 JTF_NUMBER_TABLE
1173 , p5_a15 JTF_NUMBER_TABLE
1174 , p5_a16 JTF_NUMBER_TABLE
1175 , p5_a17 JTF_NUMBER_TABLE
1176 , p5_a18 JTF_NUMBER_TABLE
1177 , p5_a19 JTF_NUMBER_TABLE
1178 , p5_a20 JTF_VARCHAR2_TABLE_100
1179 , p5_a21 JTF_VARCHAR2_TABLE_100
1180 , p5_a22 JTF_VARCHAR2_TABLE_100
1181 , p5_a23 JTF_NUMBER_TABLE
1182 , p5_a24 JTF_NUMBER_TABLE
1183 , p5_a25 JTF_VARCHAR2_TABLE_100
1184 , p5_a26 JTF_VARCHAR2_TABLE_100
1185 , p5_a27 JTF_NUMBER_TABLE
1186 , p5_a28 JTF_NUMBER_TABLE
1187 , p5_a29 JTF_VARCHAR2_TABLE_100
1188 , p5_a30 JTF_VARCHAR2_TABLE_100
1189 , p5_a31 JTF_VARCHAR2_TABLE_500
1190 , p5_a32 JTF_VARCHAR2_TABLE_500
1191 , p5_a33 JTF_VARCHAR2_TABLE_500
1192 , p5_a34 JTF_VARCHAR2_TABLE_500
1193 , p5_a35 JTF_VARCHAR2_TABLE_500
1194 , p5_a36 JTF_VARCHAR2_TABLE_500
1195 , p5_a37 JTF_VARCHAR2_TABLE_500
1196 , p5_a38 JTF_VARCHAR2_TABLE_500
1197 , p5_a39 JTF_VARCHAR2_TABLE_500
1198 , p5_a40 JTF_VARCHAR2_TABLE_500
1199 , p5_a41 JTF_VARCHAR2_TABLE_500
1200 , p5_a42 JTF_VARCHAR2_TABLE_500
1201 , p5_a43 JTF_VARCHAR2_TABLE_100
1202 , p5_a44 JTF_VARCHAR2_TABLE_500
1203 , p5_a45 JTF_VARCHAR2_TABLE_500
1204 , p5_a46 JTF_NUMBER_TABLE
1205 , p5_a47 JTF_DATE_TABLE
1206 , p5_a48 JTF_NUMBER_TABLE
1207 , p5_a49 JTF_DATE_TABLE
1208 , p5_a50 JTF_NUMBER_TABLE
1209 , p5_a51 JTF_NUMBER_TABLE
1210 )
1211
1212 as
1213 ddp_subv_tbl okl_subsidy_pub.subv_tbl_type;
1214 ddindx binary_integer; indx binary_integer;
1215 begin
1216
1217 -- copy data to the local IN or IN-OUT args, if any
1218
1219
1220
1221
1222
1223 okl_sub_pvt_w.rosetta_table_copy_in_p2(ddp_subv_tbl, p5_a0
1224 , p5_a1
1225 , p5_a2
1226 , p5_a3
1227 , p5_a4
1228 , p5_a5
1229 , p5_a6
1230 , p5_a7
1231 , p5_a8
1232 , p5_a9
1233 , p5_a10
1234 , p5_a11
1235 , p5_a12
1236 , p5_a13
1237 , p5_a14
1238 , p5_a15
1239 , p5_a16
1240 , p5_a17
1241 , p5_a18
1242 , p5_a19
1243 , p5_a20
1244 , p5_a21
1245 , p5_a22
1246 , p5_a23
1247 , p5_a24
1248 , p5_a25
1249 , p5_a26
1250 , p5_a27
1251 , p5_a28
1252 , p5_a29
1253 , p5_a30
1254 , p5_a31
1255 , p5_a32
1256 , p5_a33
1257 , p5_a34
1258 , p5_a35
1259 , p5_a36
1260 , p5_a37
1261 , p5_a38
1262 , p5_a39
1263 , p5_a40
1264 , p5_a41
1265 , p5_a42
1266 , p5_a43
1267 , p5_a44
1268 , p5_a45
1269 , p5_a46
1270 , p5_a47
1271 , p5_a48
1272 , p5_a49
1273 , p5_a50
1274 , p5_a51
1275 );
1276
1277 -- here's the delegated call to the old PL/SQL routine
1278 okl_subsidy_pub.delete_subsidy(p_api_version,
1279 p_init_msg_list,
1280 x_return_status,
1281 x_msg_count,
1282 x_msg_data,
1283 ddp_subv_tbl);
1284
1285 -- copy data back from the local variables to OUT or IN-OUT args, if any
1286
1287
1288
1289
1290
1291 end;
1292
1293 procedure lock_subsidy(p_api_version NUMBER
1294 , p_init_msg_list VARCHAR2
1295 , x_return_status out nocopy VARCHAR2
1296 , x_msg_count out nocopy NUMBER
1297 , x_msg_data out nocopy VARCHAR2
1298 , p5_a0 NUMBER := 0-1962.0724
1299 , p5_a1 NUMBER := 0-1962.0724
1300 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1301 , p5_a3 NUMBER := 0-1962.0724
1302 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1303 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1304 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1305 , p5_a7 DATE := fnd_api.g_miss_date
1306 , p5_a8 DATE := fnd_api.g_miss_date
1307 , p5_a9 NUMBER := 0-1962.0724
1308 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1309 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1310 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1311 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1312 , p5_a14 NUMBER := 0-1962.0724
1313 , p5_a15 NUMBER := 0-1962.0724
1314 , p5_a16 NUMBER := 0-1962.0724
1315 , p5_a17 NUMBER := 0-1962.0724
1316 , p5_a18 NUMBER := 0-1962.0724
1317 , p5_a19 NUMBER := 0-1962.0724
1318 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1319 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1320 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1321 , p5_a23 NUMBER := 0-1962.0724
1322 , p5_a24 NUMBER := 0-1962.0724
1323 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1324 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1325 , p5_a27 NUMBER := 0-1962.0724
1326 , p5_a28 NUMBER := 0-1962.0724
1327 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1328 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1329 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1330 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1331 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
1332 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
1333 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
1334 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
1335 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
1336 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
1337 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
1338 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
1339 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
1340 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
1341 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
1342 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
1343 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
1344 , p5_a46 NUMBER := 0-1962.0724
1345 , p5_a47 DATE := fnd_api.g_miss_date
1346 , p5_a48 NUMBER := 0-1962.0724
1347 , p5_a49 DATE := fnd_api.g_miss_date
1348 , p5_a50 NUMBER := 0-1962.0724
1349 , p5_a51 NUMBER := 0-1962.0724
1350 )
1351
1352 as
1353 ddp_subv_rec okl_subsidy_pub.subv_rec_type;
1354 ddindx binary_integer; indx binary_integer;
1355 begin
1356
1357 -- copy data to the local IN or IN-OUT args, if any
1358
1359
1360
1361
1362
1363 ddp_subv_rec.id := rosetta_g_miss_num_map(p5_a0);
1364 ddp_subv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1365 ddp_subv_rec.sfwt_flag := p5_a2;
1366 ddp_subv_rec.org_id := rosetta_g_miss_num_map(p5_a3);
1367 ddp_subv_rec.name := p5_a4;
1368 ddp_subv_rec.short_description := p5_a5;
1369 ddp_subv_rec.description := p5_a6;
1370 ddp_subv_rec.effective_from_date := rosetta_g_miss_date_in_map(p5_a7);
1371 ddp_subv_rec.effective_to_date := rosetta_g_miss_date_in_map(p5_a8);
1372 ddp_subv_rec.expire_after_days := rosetta_g_miss_num_map(p5_a9);
1373 ddp_subv_rec.currency_code := p5_a10;
1374 ddp_subv_rec.exclusive_yn := p5_a11;
1375 ddp_subv_rec.applicable_to_release_yn := p5_a12;
1376 ddp_subv_rec.subsidy_calc_basis := p5_a13;
1377 ddp_subv_rec.amount := rosetta_g_miss_num_map(p5_a14);
1378 ddp_subv_rec.percent := rosetta_g_miss_num_map(p5_a15);
1379 ddp_subv_rec.formula_id := rosetta_g_miss_num_map(p5_a16);
1380 ddp_subv_rec.rate_points := rosetta_g_miss_num_map(p5_a17);
1381 ddp_subv_rec.maximum_term := rosetta_g_miss_num_map(p5_a18);
1382 ddp_subv_rec.vendor_id := rosetta_g_miss_num_map(p5_a19);
1383 ddp_subv_rec.accounting_method_code := p5_a20;
1384 ddp_subv_rec.recourse_yn := p5_a21;
1385 ddp_subv_rec.termination_refund_basis := p5_a22;
1386 ddp_subv_rec.refund_formula_id := rosetta_g_miss_num_map(p5_a23);
1387 ddp_subv_rec.stream_type_id := rosetta_g_miss_num_map(p5_a24);
1388 ddp_subv_rec.receipt_method_code := p5_a25;
1389 ddp_subv_rec.customer_visible_yn := p5_a26;
1390 ddp_subv_rec.maximum_financed_amount := rosetta_g_miss_num_map(p5_a27);
1391 ddp_subv_rec.maximum_subsidy_amount := rosetta_g_miss_num_map(p5_a28);
1392 ddp_subv_rec.transfer_basis_code := p5_a29;
1393 ddp_subv_rec.attribute_category := p5_a30;
1394 ddp_subv_rec.attribute1 := p5_a31;
1395 ddp_subv_rec.attribute2 := p5_a32;
1396 ddp_subv_rec.attribute3 := p5_a33;
1397 ddp_subv_rec.attribute4 := p5_a34;
1398 ddp_subv_rec.attribute5 := p5_a35;
1399 ddp_subv_rec.attribute6 := p5_a36;
1400 ddp_subv_rec.attribute7 := p5_a37;
1401 ddp_subv_rec.attribute8 := p5_a38;
1402 ddp_subv_rec.attribute9 := p5_a39;
1403 ddp_subv_rec.attribute10 := p5_a40;
1404 ddp_subv_rec.attribute11 := p5_a41;
1405 ddp_subv_rec.attribute12 := p5_a42;
1406 ddp_subv_rec.attribute13 := p5_a43;
1407 ddp_subv_rec.attribute14 := p5_a44;
1408 ddp_subv_rec.attribute15 := p5_a45;
1409 ddp_subv_rec.created_by := rosetta_g_miss_num_map(p5_a46);
1410 ddp_subv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a47);
1411 ddp_subv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a48);
1412 ddp_subv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a49);
1413 ddp_subv_rec.last_update_login := rosetta_g_miss_num_map(p5_a50);
1414 ddp_subv_rec.subsidy_pool_id := rosetta_g_miss_num_map(p5_a51);
1415
1416 -- here's the delegated call to the old PL/SQL routine
1417 okl_subsidy_pub.lock_subsidy(p_api_version,
1418 p_init_msg_list,
1419 x_return_status,
1420 x_msg_count,
1421 x_msg_data,
1422 ddp_subv_rec);
1423
1424 -- copy data back from the local variables to OUT or IN-OUT args, if any
1425
1426
1427
1428
1429
1430 end;
1431
1432 procedure lock_subsidy(p_api_version NUMBER
1433 , p_init_msg_list VARCHAR2
1434 , x_return_status out nocopy VARCHAR2
1435 , x_msg_count out nocopy NUMBER
1436 , x_msg_data out nocopy VARCHAR2
1437 , p5_a0 JTF_NUMBER_TABLE
1438 , p5_a1 JTF_NUMBER_TABLE
1439 , p5_a2 JTF_VARCHAR2_TABLE_100
1440 , p5_a3 JTF_NUMBER_TABLE
1441 , p5_a4 JTF_VARCHAR2_TABLE_100
1442 , p5_a5 JTF_VARCHAR2_TABLE_200
1443 , p5_a6 JTF_VARCHAR2_TABLE_2000
1444 , p5_a7 JTF_DATE_TABLE
1445 , p5_a8 JTF_DATE_TABLE
1446 , p5_a9 JTF_NUMBER_TABLE
1447 , p5_a10 JTF_VARCHAR2_TABLE_100
1448 , p5_a11 JTF_VARCHAR2_TABLE_100
1449 , p5_a12 JTF_VARCHAR2_TABLE_100
1450 , p5_a13 JTF_VARCHAR2_TABLE_100
1451 , p5_a14 JTF_NUMBER_TABLE
1452 , p5_a15 JTF_NUMBER_TABLE
1453 , p5_a16 JTF_NUMBER_TABLE
1454 , p5_a17 JTF_NUMBER_TABLE
1455 , p5_a18 JTF_NUMBER_TABLE
1456 , p5_a19 JTF_NUMBER_TABLE
1457 , p5_a20 JTF_VARCHAR2_TABLE_100
1458 , p5_a21 JTF_VARCHAR2_TABLE_100
1459 , p5_a22 JTF_VARCHAR2_TABLE_100
1460 , p5_a23 JTF_NUMBER_TABLE
1461 , p5_a24 JTF_NUMBER_TABLE
1462 , p5_a25 JTF_VARCHAR2_TABLE_100
1463 , p5_a26 JTF_VARCHAR2_TABLE_100
1464 , p5_a27 JTF_NUMBER_TABLE
1465 , p5_a28 JTF_NUMBER_TABLE
1466 , p5_a29 JTF_VARCHAR2_TABLE_100
1467 , p5_a30 JTF_VARCHAR2_TABLE_100
1468 , p5_a31 JTF_VARCHAR2_TABLE_500
1469 , p5_a32 JTF_VARCHAR2_TABLE_500
1470 , p5_a33 JTF_VARCHAR2_TABLE_500
1471 , p5_a34 JTF_VARCHAR2_TABLE_500
1472 , p5_a35 JTF_VARCHAR2_TABLE_500
1473 , p5_a36 JTF_VARCHAR2_TABLE_500
1474 , p5_a37 JTF_VARCHAR2_TABLE_500
1475 , p5_a38 JTF_VARCHAR2_TABLE_500
1476 , p5_a39 JTF_VARCHAR2_TABLE_500
1477 , p5_a40 JTF_VARCHAR2_TABLE_500
1478 , p5_a41 JTF_VARCHAR2_TABLE_500
1479 , p5_a42 JTF_VARCHAR2_TABLE_500
1480 , p5_a43 JTF_VARCHAR2_TABLE_100
1481 , p5_a44 JTF_VARCHAR2_TABLE_500
1482 , p5_a45 JTF_VARCHAR2_TABLE_500
1483 , p5_a46 JTF_NUMBER_TABLE
1484 , p5_a47 JTF_DATE_TABLE
1485 , p5_a48 JTF_NUMBER_TABLE
1486 , p5_a49 JTF_DATE_TABLE
1487 , p5_a50 JTF_NUMBER_TABLE
1488 , p5_a51 JTF_NUMBER_TABLE
1489 )
1490
1491 as
1492 ddp_subv_tbl okl_subsidy_pub.subv_tbl_type;
1493 ddindx binary_integer; indx binary_integer;
1494 begin
1495
1496 -- copy data to the local IN or IN-OUT args, if any
1497
1498
1499
1500
1501
1502 okl_sub_pvt_w.rosetta_table_copy_in_p2(ddp_subv_tbl, p5_a0
1503 , p5_a1
1504 , p5_a2
1505 , p5_a3
1506 , p5_a4
1507 , p5_a5
1508 , p5_a6
1509 , p5_a7
1510 , p5_a8
1511 , p5_a9
1512 , p5_a10
1513 , p5_a11
1514 , p5_a12
1515 , p5_a13
1516 , p5_a14
1517 , p5_a15
1518 , p5_a16
1519 , p5_a17
1520 , p5_a18
1521 , p5_a19
1522 , p5_a20
1523 , p5_a21
1524 , p5_a22
1525 , p5_a23
1526 , p5_a24
1527 , p5_a25
1528 , p5_a26
1529 , p5_a27
1530 , p5_a28
1531 , p5_a29
1532 , p5_a30
1533 , p5_a31
1534 , p5_a32
1535 , p5_a33
1536 , p5_a34
1537 , p5_a35
1538 , p5_a36
1539 , p5_a37
1540 , p5_a38
1541 , p5_a39
1542 , p5_a40
1543 , p5_a41
1544 , p5_a42
1545 , p5_a43
1546 , p5_a44
1547 , p5_a45
1548 , p5_a46
1549 , p5_a47
1550 , p5_a48
1551 , p5_a49
1552 , p5_a50
1553 , p5_a51
1554 );
1555
1556 -- here's the delegated call to the old PL/SQL routine
1557 okl_subsidy_pub.lock_subsidy(p_api_version,
1558 p_init_msg_list,
1559 x_return_status,
1560 x_msg_count,
1561 x_msg_data,
1562 ddp_subv_tbl);
1563
1564 -- copy data back from the local variables to OUT or IN-OUT args, if any
1565
1566
1567
1568
1569
1570 end;
1571
1572 procedure validate_subsidy(p_api_version NUMBER
1573 , p_init_msg_list VARCHAR2
1574 , x_return_status out nocopy VARCHAR2
1575 , x_msg_count out nocopy NUMBER
1576 , x_msg_data out nocopy VARCHAR2
1577 , p5_a0 NUMBER := 0-1962.0724
1578 , p5_a1 NUMBER := 0-1962.0724
1579 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1580 , p5_a3 NUMBER := 0-1962.0724
1581 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1582 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1583 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1584 , p5_a7 DATE := fnd_api.g_miss_date
1585 , p5_a8 DATE := fnd_api.g_miss_date
1586 , p5_a9 NUMBER := 0-1962.0724
1587 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1588 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1589 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1590 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1591 , p5_a14 NUMBER := 0-1962.0724
1592 , p5_a15 NUMBER := 0-1962.0724
1593 , p5_a16 NUMBER := 0-1962.0724
1594 , p5_a17 NUMBER := 0-1962.0724
1595 , p5_a18 NUMBER := 0-1962.0724
1596 , p5_a19 NUMBER := 0-1962.0724
1597 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1598 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1599 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1600 , p5_a23 NUMBER := 0-1962.0724
1601 , p5_a24 NUMBER := 0-1962.0724
1602 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1603 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1604 , p5_a27 NUMBER := 0-1962.0724
1605 , p5_a28 NUMBER := 0-1962.0724
1606 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1607 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1608 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1609 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
1610 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
1611 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
1612 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
1613 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
1614 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
1615 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
1616 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
1617 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
1618 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
1619 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
1620 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
1621 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
1622 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
1623 , p5_a46 NUMBER := 0-1962.0724
1624 , p5_a47 DATE := fnd_api.g_miss_date
1625 , p5_a48 NUMBER := 0-1962.0724
1626 , p5_a49 DATE := fnd_api.g_miss_date
1627 , p5_a50 NUMBER := 0-1962.0724
1628 , p5_a51 NUMBER := 0-1962.0724
1629 )
1630
1631 as
1632 ddp_subv_rec okl_subsidy_pub.subv_rec_type;
1633 ddindx binary_integer; indx binary_integer;
1634 begin
1635
1636 -- copy data to the local IN or IN-OUT args, if any
1637
1638
1639
1640
1641
1642 ddp_subv_rec.id := rosetta_g_miss_num_map(p5_a0);
1643 ddp_subv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1644 ddp_subv_rec.sfwt_flag := p5_a2;
1645 ddp_subv_rec.org_id := rosetta_g_miss_num_map(p5_a3);
1646 ddp_subv_rec.name := p5_a4;
1647 ddp_subv_rec.short_description := p5_a5;
1648 ddp_subv_rec.description := p5_a6;
1649 ddp_subv_rec.effective_from_date := rosetta_g_miss_date_in_map(p5_a7);
1650 ddp_subv_rec.effective_to_date := rosetta_g_miss_date_in_map(p5_a8);
1651 ddp_subv_rec.expire_after_days := rosetta_g_miss_num_map(p5_a9);
1652 ddp_subv_rec.currency_code := p5_a10;
1653 ddp_subv_rec.exclusive_yn := p5_a11;
1654 ddp_subv_rec.applicable_to_release_yn := p5_a12;
1655 ddp_subv_rec.subsidy_calc_basis := p5_a13;
1656 ddp_subv_rec.amount := rosetta_g_miss_num_map(p5_a14);
1657 ddp_subv_rec.percent := rosetta_g_miss_num_map(p5_a15);
1658 ddp_subv_rec.formula_id := rosetta_g_miss_num_map(p5_a16);
1659 ddp_subv_rec.rate_points := rosetta_g_miss_num_map(p5_a17);
1660 ddp_subv_rec.maximum_term := rosetta_g_miss_num_map(p5_a18);
1661 ddp_subv_rec.vendor_id := rosetta_g_miss_num_map(p5_a19);
1662 ddp_subv_rec.accounting_method_code := p5_a20;
1663 ddp_subv_rec.recourse_yn := p5_a21;
1664 ddp_subv_rec.termination_refund_basis := p5_a22;
1665 ddp_subv_rec.refund_formula_id := rosetta_g_miss_num_map(p5_a23);
1666 ddp_subv_rec.stream_type_id := rosetta_g_miss_num_map(p5_a24);
1667 ddp_subv_rec.receipt_method_code := p5_a25;
1668 ddp_subv_rec.customer_visible_yn := p5_a26;
1669 ddp_subv_rec.maximum_financed_amount := rosetta_g_miss_num_map(p5_a27);
1670 ddp_subv_rec.maximum_subsidy_amount := rosetta_g_miss_num_map(p5_a28);
1671 ddp_subv_rec.transfer_basis_code := p5_a29;
1672 ddp_subv_rec.attribute_category := p5_a30;
1673 ddp_subv_rec.attribute1 := p5_a31;
1674 ddp_subv_rec.attribute2 := p5_a32;
1675 ddp_subv_rec.attribute3 := p5_a33;
1676 ddp_subv_rec.attribute4 := p5_a34;
1677 ddp_subv_rec.attribute5 := p5_a35;
1678 ddp_subv_rec.attribute6 := p5_a36;
1679 ddp_subv_rec.attribute7 := p5_a37;
1680 ddp_subv_rec.attribute8 := p5_a38;
1681 ddp_subv_rec.attribute9 := p5_a39;
1682 ddp_subv_rec.attribute10 := p5_a40;
1683 ddp_subv_rec.attribute11 := p5_a41;
1684 ddp_subv_rec.attribute12 := p5_a42;
1685 ddp_subv_rec.attribute13 := p5_a43;
1686 ddp_subv_rec.attribute14 := p5_a44;
1687 ddp_subv_rec.attribute15 := p5_a45;
1688 ddp_subv_rec.created_by := rosetta_g_miss_num_map(p5_a46);
1689 ddp_subv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a47);
1690 ddp_subv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a48);
1691 ddp_subv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a49);
1692 ddp_subv_rec.last_update_login := rosetta_g_miss_num_map(p5_a50);
1693 ddp_subv_rec.subsidy_pool_id := rosetta_g_miss_num_map(p5_a51);
1694
1695 -- here's the delegated call to the old PL/SQL routine
1696 okl_subsidy_pub.validate_subsidy(p_api_version,
1697 p_init_msg_list,
1698 x_return_status,
1699 x_msg_count,
1700 x_msg_data,
1701 ddp_subv_rec);
1702
1703 -- copy data back from the local variables to OUT or IN-OUT args, if any
1704
1705
1706
1707
1708
1709 end;
1710
1711 procedure validate_subsidy(p_api_version NUMBER
1712 , p_init_msg_list VARCHAR2
1713 , x_return_status out nocopy VARCHAR2
1714 , x_msg_count out nocopy NUMBER
1715 , x_msg_data out nocopy VARCHAR2
1716 , p5_a0 JTF_NUMBER_TABLE
1717 , p5_a1 JTF_NUMBER_TABLE
1718 , p5_a2 JTF_VARCHAR2_TABLE_100
1719 , p5_a3 JTF_NUMBER_TABLE
1720 , p5_a4 JTF_VARCHAR2_TABLE_100
1721 , p5_a5 JTF_VARCHAR2_TABLE_200
1722 , p5_a6 JTF_VARCHAR2_TABLE_2000
1723 , p5_a7 JTF_DATE_TABLE
1724 , p5_a8 JTF_DATE_TABLE
1725 , p5_a9 JTF_NUMBER_TABLE
1726 , p5_a10 JTF_VARCHAR2_TABLE_100
1727 , p5_a11 JTF_VARCHAR2_TABLE_100
1728 , p5_a12 JTF_VARCHAR2_TABLE_100
1729 , p5_a13 JTF_VARCHAR2_TABLE_100
1730 , p5_a14 JTF_NUMBER_TABLE
1731 , p5_a15 JTF_NUMBER_TABLE
1732 , p5_a16 JTF_NUMBER_TABLE
1733 , p5_a17 JTF_NUMBER_TABLE
1734 , p5_a18 JTF_NUMBER_TABLE
1735 , p5_a19 JTF_NUMBER_TABLE
1736 , p5_a20 JTF_VARCHAR2_TABLE_100
1737 , p5_a21 JTF_VARCHAR2_TABLE_100
1738 , p5_a22 JTF_VARCHAR2_TABLE_100
1739 , p5_a23 JTF_NUMBER_TABLE
1740 , p5_a24 JTF_NUMBER_TABLE
1741 , p5_a25 JTF_VARCHAR2_TABLE_100
1742 , p5_a26 JTF_VARCHAR2_TABLE_100
1743 , p5_a27 JTF_NUMBER_TABLE
1744 , p5_a28 JTF_NUMBER_TABLE
1745 , p5_a29 JTF_VARCHAR2_TABLE_100
1746 , p5_a30 JTF_VARCHAR2_TABLE_100
1747 , p5_a31 JTF_VARCHAR2_TABLE_500
1748 , p5_a32 JTF_VARCHAR2_TABLE_500
1749 , p5_a33 JTF_VARCHAR2_TABLE_500
1750 , p5_a34 JTF_VARCHAR2_TABLE_500
1751 , p5_a35 JTF_VARCHAR2_TABLE_500
1752 , p5_a36 JTF_VARCHAR2_TABLE_500
1753 , p5_a37 JTF_VARCHAR2_TABLE_500
1754 , p5_a38 JTF_VARCHAR2_TABLE_500
1755 , p5_a39 JTF_VARCHAR2_TABLE_500
1756 , p5_a40 JTF_VARCHAR2_TABLE_500
1757 , p5_a41 JTF_VARCHAR2_TABLE_500
1758 , p5_a42 JTF_VARCHAR2_TABLE_500
1759 , p5_a43 JTF_VARCHAR2_TABLE_100
1760 , p5_a44 JTF_VARCHAR2_TABLE_500
1761 , p5_a45 JTF_VARCHAR2_TABLE_500
1762 , p5_a46 JTF_NUMBER_TABLE
1763 , p5_a47 JTF_DATE_TABLE
1764 , p5_a48 JTF_NUMBER_TABLE
1765 , p5_a49 JTF_DATE_TABLE
1766 , p5_a50 JTF_NUMBER_TABLE
1767 , p5_a51 JTF_NUMBER_TABLE
1768 )
1769
1770 as
1771 ddp_subv_tbl okl_subsidy_pub.subv_tbl_type;
1772 ddindx binary_integer; indx binary_integer;
1773 begin
1774
1775 -- copy data to the local IN or IN-OUT args, if any
1776
1777
1778
1779
1780
1781 okl_sub_pvt_w.rosetta_table_copy_in_p2(ddp_subv_tbl, p5_a0
1782 , p5_a1
1783 , p5_a2
1784 , p5_a3
1785 , p5_a4
1786 , p5_a5
1787 , p5_a6
1788 , p5_a7
1789 , p5_a8
1790 , p5_a9
1791 , p5_a10
1792 , p5_a11
1793 , p5_a12
1794 , p5_a13
1795 , p5_a14
1796 , p5_a15
1797 , p5_a16
1798 , p5_a17
1799 , p5_a18
1800 , p5_a19
1801 , p5_a20
1802 , p5_a21
1803 , p5_a22
1804 , p5_a23
1805 , p5_a24
1806 , p5_a25
1807 , p5_a26
1808 , p5_a27
1809 , p5_a28
1810 , p5_a29
1811 , p5_a30
1812 , p5_a31
1813 , p5_a32
1814 , p5_a33
1815 , p5_a34
1816 , p5_a35
1817 , p5_a36
1818 , p5_a37
1819 , p5_a38
1820 , p5_a39
1821 , p5_a40
1822 , p5_a41
1823 , p5_a42
1824 , p5_a43
1825 , p5_a44
1826 , p5_a45
1827 , p5_a46
1828 , p5_a47
1829 , p5_a48
1830 , p5_a49
1831 , p5_a50
1832 , p5_a51
1833 );
1834
1835 -- here's the delegated call to the old PL/SQL routine
1836 okl_subsidy_pub.validate_subsidy(p_api_version,
1837 p_init_msg_list,
1838 x_return_status,
1839 x_msg_count,
1840 x_msg_data,
1841 ddp_subv_tbl);
1842
1843 -- copy data back from the local variables to OUT or IN-OUT args, if any
1844
1845
1846
1847
1848
1849 end;
1850
1851 procedure create_subsidy_criteria(p_api_version NUMBER
1852 , p_init_msg_list VARCHAR2
1853 , x_return_status out nocopy VARCHAR2
1854 , x_msg_count out nocopy NUMBER
1855 , x_msg_data out nocopy VARCHAR2
1856 , p6_a0 out nocopy NUMBER
1857 , p6_a1 out nocopy NUMBER
1858 , p6_a2 out nocopy NUMBER
1859 , p6_a3 out nocopy NUMBER
1860 , p6_a4 out nocopy NUMBER
1861 , p6_a5 out nocopy NUMBER
1862 , p6_a6 out nocopy VARCHAR2
1863 , p6_a7 out nocopy VARCHAR2
1864 , p6_a8 out nocopy NUMBER
1865 , p6_a9 out nocopy VARCHAR2
1866 , p6_a10 out nocopy VARCHAR2
1867 , p6_a11 out nocopy NUMBER
1868 , p6_a12 out nocopy NUMBER
1869 , p6_a13 out nocopy VARCHAR2
1870 , p6_a14 out nocopy VARCHAR2
1871 , p6_a15 out nocopy VARCHAR2
1872 , p6_a16 out nocopy VARCHAR2
1873 , p6_a17 out nocopy VARCHAR2
1874 , p6_a18 out nocopy VARCHAR2
1875 , p6_a19 out nocopy VARCHAR2
1876 , p6_a20 out nocopy VARCHAR2
1877 , p6_a21 out nocopy VARCHAR2
1878 , p6_a22 out nocopy VARCHAR2
1879 , p6_a23 out nocopy VARCHAR2
1880 , p6_a24 out nocopy VARCHAR2
1881 , p6_a25 out nocopy VARCHAR2
1882 , p6_a26 out nocopy VARCHAR2
1883 , p6_a27 out nocopy VARCHAR2
1884 , p6_a28 out nocopy VARCHAR2
1885 , p6_a29 out nocopy NUMBER
1886 , p6_a30 out nocopy DATE
1887 , p6_a31 out nocopy NUMBER
1888 , p6_a32 out nocopy DATE
1889 , p6_a33 out nocopy NUMBER
1890 , p5_a0 NUMBER := 0-1962.0724
1891 , p5_a1 NUMBER := 0-1962.0724
1892 , p5_a2 NUMBER := 0-1962.0724
1893 , p5_a3 NUMBER := 0-1962.0724
1894 , p5_a4 NUMBER := 0-1962.0724
1895 , p5_a5 NUMBER := 0-1962.0724
1896 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1897 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1898 , p5_a8 NUMBER := 0-1962.0724
1899 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1900 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1901 , p5_a11 NUMBER := 0-1962.0724
1902 , p5_a12 NUMBER := 0-1962.0724
1903 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1904 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1905 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1906 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1907 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1908 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1909 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1910 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1911 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1912 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1913 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1914 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1915 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1916 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
1917 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
1918 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1919 , p5_a29 NUMBER := 0-1962.0724
1920 , p5_a30 DATE := fnd_api.g_miss_date
1921 , p5_a31 NUMBER := 0-1962.0724
1922 , p5_a32 DATE := fnd_api.g_miss_date
1923 , p5_a33 NUMBER := 0-1962.0724
1924 )
1925
1926 as
1927 ddp_sucv_rec okl_subsidy_pub.sucv_rec_type;
1928 ddx_sucv_rec okl_subsidy_pub.sucv_rec_type;
1929 ddindx binary_integer; indx binary_integer;
1930 begin
1931
1932 -- copy data to the local IN or IN-OUT args, if any
1933
1934
1935
1936
1937
1938 ddp_sucv_rec.id := rosetta_g_miss_num_map(p5_a0);
1939 ddp_sucv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1940 ddp_sucv_rec.subsidy_id := rosetta_g_miss_num_map(p5_a2);
1941 ddp_sucv_rec.display_sequence := rosetta_g_miss_num_map(p5_a3);
1942 ddp_sucv_rec.inventory_item_id := rosetta_g_miss_num_map(p5_a4);
1943 ddp_sucv_rec.organization_id := rosetta_g_miss_num_map(p5_a5);
1944 ddp_sucv_rec.credit_classification_code := p5_a6;
1945 ddp_sucv_rec.sales_territory_code := p5_a7;
1946 ddp_sucv_rec.product_id := rosetta_g_miss_num_map(p5_a8);
1947 ddp_sucv_rec.industry_code_type := p5_a9;
1948 ddp_sucv_rec.industry_code := p5_a10;
1949 ddp_sucv_rec.maximum_financed_amount := rosetta_g_miss_num_map(p5_a11);
1950 ddp_sucv_rec.sales_territory_id := rosetta_g_miss_num_map(p5_a12);
1951 ddp_sucv_rec.attribute_category := p5_a13;
1952 ddp_sucv_rec.attribute1 := p5_a14;
1953 ddp_sucv_rec.attribute2 := p5_a15;
1954 ddp_sucv_rec.attribute3 := p5_a16;
1955 ddp_sucv_rec.attribute4 := p5_a17;
1956 ddp_sucv_rec.attribute5 := p5_a18;
1957 ddp_sucv_rec.attribute6 := p5_a19;
1958 ddp_sucv_rec.attribute7 := p5_a20;
1959 ddp_sucv_rec.attribute8 := p5_a21;
1960 ddp_sucv_rec.attribute9 := p5_a22;
1961 ddp_sucv_rec.attribute10 := p5_a23;
1962 ddp_sucv_rec.attribute11 := p5_a24;
1963 ddp_sucv_rec.attribute12 := p5_a25;
1964 ddp_sucv_rec.attribute13 := p5_a26;
1965 ddp_sucv_rec.attribute14 := p5_a27;
1966 ddp_sucv_rec.attribute15 := p5_a28;
1967 ddp_sucv_rec.created_by := rosetta_g_miss_num_map(p5_a29);
1968 ddp_sucv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a30);
1969 ddp_sucv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a31);
1970 ddp_sucv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a32);
1971 ddp_sucv_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
1972
1973
1974 -- here's the delegated call to the old PL/SQL routine
1975 okl_subsidy_pub.create_subsidy_criteria(p_api_version,
1976 p_init_msg_list,
1977 x_return_status,
1978 x_msg_count,
1979 x_msg_data,
1980 ddp_sucv_rec,
1981 ddx_sucv_rec);
1982
1983 -- copy data back from the local variables to OUT or IN-OUT args, if any
1984
1985
1986
1987
1988
1989
1990 p6_a0 := rosetta_g_miss_num_map(ddx_sucv_rec.id);
1991 p6_a1 := rosetta_g_miss_num_map(ddx_sucv_rec.object_version_number);
1992 p6_a2 := rosetta_g_miss_num_map(ddx_sucv_rec.subsidy_id);
1993 p6_a3 := rosetta_g_miss_num_map(ddx_sucv_rec.display_sequence);
1994 p6_a4 := rosetta_g_miss_num_map(ddx_sucv_rec.inventory_item_id);
1995 p6_a5 := rosetta_g_miss_num_map(ddx_sucv_rec.organization_id);
1996 p6_a6 := ddx_sucv_rec.credit_classification_code;
1997 p6_a7 := ddx_sucv_rec.sales_territory_code;
1998 p6_a8 := rosetta_g_miss_num_map(ddx_sucv_rec.product_id);
1999 p6_a9 := ddx_sucv_rec.industry_code_type;
2000 p6_a10 := ddx_sucv_rec.industry_code;
2001 p6_a11 := rosetta_g_miss_num_map(ddx_sucv_rec.maximum_financed_amount);
2002 p6_a12 := rosetta_g_miss_num_map(ddx_sucv_rec.sales_territory_id);
2003 p6_a13 := ddx_sucv_rec.attribute_category;
2004 p6_a14 := ddx_sucv_rec.attribute1;
2005 p6_a15 := ddx_sucv_rec.attribute2;
2006 p6_a16 := ddx_sucv_rec.attribute3;
2007 p6_a17 := ddx_sucv_rec.attribute4;
2008 p6_a18 := ddx_sucv_rec.attribute5;
2009 p6_a19 := ddx_sucv_rec.attribute6;
2010 p6_a20 := ddx_sucv_rec.attribute7;
2011 p6_a21 := ddx_sucv_rec.attribute8;
2012 p6_a22 := ddx_sucv_rec.attribute9;
2013 p6_a23 := ddx_sucv_rec.attribute10;
2014 p6_a24 := ddx_sucv_rec.attribute11;
2015 p6_a25 := ddx_sucv_rec.attribute12;
2016 p6_a26 := ddx_sucv_rec.attribute13;
2017 p6_a27 := ddx_sucv_rec.attribute14;
2018 p6_a28 := ddx_sucv_rec.attribute15;
2019 p6_a29 := rosetta_g_miss_num_map(ddx_sucv_rec.created_by);
2020 p6_a30 := ddx_sucv_rec.creation_date;
2021 p6_a31 := rosetta_g_miss_num_map(ddx_sucv_rec.last_updated_by);
2022 p6_a32 := ddx_sucv_rec.last_update_date;
2023 p6_a33 := rosetta_g_miss_num_map(ddx_sucv_rec.last_update_login);
2024 end;
2025
2026 procedure create_subsidy_criteria(p_api_version NUMBER
2027 , p_init_msg_list VARCHAR2
2028 , x_return_status out nocopy VARCHAR2
2029 , x_msg_count out nocopy NUMBER
2030 , x_msg_data out nocopy VARCHAR2
2031 , p5_a0 JTF_NUMBER_TABLE
2032 , p5_a1 JTF_NUMBER_TABLE
2033 , p5_a2 JTF_NUMBER_TABLE
2034 , p5_a3 JTF_NUMBER_TABLE
2035 , p5_a4 JTF_NUMBER_TABLE
2036 , p5_a5 JTF_NUMBER_TABLE
2037 , p5_a6 JTF_VARCHAR2_TABLE_100
2038 , p5_a7 JTF_VARCHAR2_TABLE_100
2039 , p5_a8 JTF_NUMBER_TABLE
2040 , p5_a9 JTF_VARCHAR2_TABLE_100
2041 , p5_a10 JTF_VARCHAR2_TABLE_100
2042 , p5_a11 JTF_NUMBER_TABLE
2043 , p5_a12 JTF_NUMBER_TABLE
2044 , p5_a13 JTF_VARCHAR2_TABLE_100
2045 , p5_a14 JTF_VARCHAR2_TABLE_500
2046 , p5_a15 JTF_VARCHAR2_TABLE_500
2047 , p5_a16 JTF_VARCHAR2_TABLE_500
2048 , p5_a17 JTF_VARCHAR2_TABLE_500
2049 , p5_a18 JTF_VARCHAR2_TABLE_500
2050 , p5_a19 JTF_VARCHAR2_TABLE_500
2051 , p5_a20 JTF_VARCHAR2_TABLE_500
2052 , p5_a21 JTF_VARCHAR2_TABLE_500
2053 , p5_a22 JTF_VARCHAR2_TABLE_500
2054 , p5_a23 JTF_VARCHAR2_TABLE_500
2055 , p5_a24 JTF_VARCHAR2_TABLE_500
2056 , p5_a25 JTF_VARCHAR2_TABLE_500
2057 , p5_a26 JTF_VARCHAR2_TABLE_500
2058 , p5_a27 JTF_VARCHAR2_TABLE_500
2059 , p5_a28 JTF_VARCHAR2_TABLE_500
2060 , p5_a29 JTF_NUMBER_TABLE
2061 , p5_a30 JTF_DATE_TABLE
2062 , p5_a31 JTF_NUMBER_TABLE
2063 , p5_a32 JTF_DATE_TABLE
2064 , p5_a33 JTF_NUMBER_TABLE
2065 , p6_a0 out nocopy JTF_NUMBER_TABLE
2066 , p6_a1 out nocopy JTF_NUMBER_TABLE
2067 , p6_a2 out nocopy JTF_NUMBER_TABLE
2068 , p6_a3 out nocopy JTF_NUMBER_TABLE
2069 , p6_a4 out nocopy JTF_NUMBER_TABLE
2070 , p6_a5 out nocopy JTF_NUMBER_TABLE
2071 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
2072 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
2073 , p6_a8 out nocopy JTF_NUMBER_TABLE
2074 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
2075 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
2076 , p6_a11 out nocopy JTF_NUMBER_TABLE
2077 , p6_a12 out nocopy JTF_NUMBER_TABLE
2078 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
2079 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
2080 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
2081 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
2082 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
2083 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
2084 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
2085 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
2086 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
2087 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
2088 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
2089 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
2090 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
2091 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
2092 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
2093 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
2094 , p6_a29 out nocopy JTF_NUMBER_TABLE
2095 , p6_a30 out nocopy JTF_DATE_TABLE
2096 , p6_a31 out nocopy JTF_NUMBER_TABLE
2097 , p6_a32 out nocopy JTF_DATE_TABLE
2098 , p6_a33 out nocopy JTF_NUMBER_TABLE
2099 )
2100
2101 as
2102 ddp_sucv_tbl okl_subsidy_pub.sucv_tbl_type;
2103 ddx_sucv_tbl okl_subsidy_pub.sucv_tbl_type;
2104 ddindx binary_integer; indx binary_integer;
2105 begin
2106
2107 -- copy data to the local IN or IN-OUT args, if any
2108
2109
2110
2111
2112
2113 okl_suc_pvt_w.rosetta_table_copy_in_p2(ddp_sucv_tbl, p5_a0
2114 , p5_a1
2115 , p5_a2
2116 , p5_a3
2117 , p5_a4
2118 , p5_a5
2119 , p5_a6
2120 , p5_a7
2121 , p5_a8
2122 , p5_a9
2123 , p5_a10
2124 , p5_a11
2125 , p5_a12
2126 , p5_a13
2127 , p5_a14
2128 , p5_a15
2129 , p5_a16
2130 , p5_a17
2131 , p5_a18
2132 , p5_a19
2133 , p5_a20
2134 , p5_a21
2135 , p5_a22
2136 , p5_a23
2137 , p5_a24
2138 , p5_a25
2139 , p5_a26
2140 , p5_a27
2141 , p5_a28
2142 , p5_a29
2143 , p5_a30
2144 , p5_a31
2145 , p5_a32
2146 , p5_a33
2147 );
2148
2149
2150 -- here's the delegated call to the old PL/SQL routine
2151 okl_subsidy_pub.create_subsidy_criteria(p_api_version,
2152 p_init_msg_list,
2153 x_return_status,
2154 x_msg_count,
2155 x_msg_data,
2156 ddp_sucv_tbl,
2157 ddx_sucv_tbl);
2158
2159 -- copy data back from the local variables to OUT or IN-OUT args, if any
2160
2161
2162
2163
2164
2165
2166 okl_suc_pvt_w.rosetta_table_copy_out_p2(ddx_sucv_tbl, p6_a0
2167 , p6_a1
2168 , p6_a2
2169 , p6_a3
2170 , p6_a4
2171 , p6_a5
2172 , p6_a6
2173 , p6_a7
2174 , p6_a8
2175 , p6_a9
2176 , p6_a10
2177 , p6_a11
2178 , p6_a12
2179 , p6_a13
2180 , p6_a14
2181 , p6_a15
2182 , p6_a16
2183 , p6_a17
2184 , p6_a18
2185 , p6_a19
2186 , p6_a20
2187 , p6_a21
2188 , p6_a22
2189 , p6_a23
2190 , p6_a24
2191 , p6_a25
2192 , p6_a26
2193 , p6_a27
2194 , p6_a28
2195 , p6_a29
2196 , p6_a30
2197 , p6_a31
2198 , p6_a32
2199 , p6_a33
2200 );
2201 end;
2202
2203 procedure update_subsidy_criteria(p_api_version NUMBER
2204 , p_init_msg_list VARCHAR2
2205 , x_return_status out nocopy VARCHAR2
2206 , x_msg_count out nocopy NUMBER
2207 , x_msg_data out nocopy VARCHAR2
2208 , p6_a0 out nocopy NUMBER
2209 , p6_a1 out nocopy NUMBER
2210 , p6_a2 out nocopy NUMBER
2211 , p6_a3 out nocopy NUMBER
2212 , p6_a4 out nocopy NUMBER
2213 , p6_a5 out nocopy NUMBER
2214 , p6_a6 out nocopy VARCHAR2
2215 , p6_a7 out nocopy VARCHAR2
2216 , p6_a8 out nocopy NUMBER
2217 , p6_a9 out nocopy VARCHAR2
2218 , p6_a10 out nocopy VARCHAR2
2219 , p6_a11 out nocopy NUMBER
2220 , p6_a12 out nocopy NUMBER
2221 , p6_a13 out nocopy VARCHAR2
2222 , p6_a14 out nocopy VARCHAR2
2223 , p6_a15 out nocopy VARCHAR2
2224 , p6_a16 out nocopy VARCHAR2
2225 , p6_a17 out nocopy VARCHAR2
2226 , p6_a18 out nocopy VARCHAR2
2227 , p6_a19 out nocopy VARCHAR2
2228 , p6_a20 out nocopy VARCHAR2
2229 , p6_a21 out nocopy VARCHAR2
2230 , p6_a22 out nocopy VARCHAR2
2231 , p6_a23 out nocopy VARCHAR2
2232 , p6_a24 out nocopy VARCHAR2
2233 , p6_a25 out nocopy VARCHAR2
2234 , p6_a26 out nocopy VARCHAR2
2235 , p6_a27 out nocopy VARCHAR2
2236 , p6_a28 out nocopy VARCHAR2
2237 , p6_a29 out nocopy NUMBER
2238 , p6_a30 out nocopy DATE
2239 , p6_a31 out nocopy NUMBER
2240 , p6_a32 out nocopy DATE
2241 , p6_a33 out nocopy NUMBER
2242 , p5_a0 NUMBER := 0-1962.0724
2243 , p5_a1 NUMBER := 0-1962.0724
2244 , p5_a2 NUMBER := 0-1962.0724
2245 , p5_a3 NUMBER := 0-1962.0724
2246 , p5_a4 NUMBER := 0-1962.0724
2247 , p5_a5 NUMBER := 0-1962.0724
2248 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
2249 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
2250 , p5_a8 NUMBER := 0-1962.0724
2251 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
2252 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
2253 , p5_a11 NUMBER := 0-1962.0724
2254 , p5_a12 NUMBER := 0-1962.0724
2255 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2256 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2257 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2258 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
2259 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2260 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
2261 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
2262 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
2263 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
2264 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
2265 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
2266 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
2267 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
2268 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
2269 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
2270 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
2271 , p5_a29 NUMBER := 0-1962.0724
2272 , p5_a30 DATE := fnd_api.g_miss_date
2273 , p5_a31 NUMBER := 0-1962.0724
2274 , p5_a32 DATE := fnd_api.g_miss_date
2275 , p5_a33 NUMBER := 0-1962.0724
2276 )
2277
2278 as
2279 ddp_sucv_rec okl_subsidy_pub.sucv_rec_type;
2280 ddx_sucv_rec okl_subsidy_pub.sucv_rec_type;
2281 ddindx binary_integer; indx binary_integer;
2282 begin
2283
2284 -- copy data to the local IN or IN-OUT args, if any
2285
2286
2287
2288
2289
2290 ddp_sucv_rec.id := rosetta_g_miss_num_map(p5_a0);
2291 ddp_sucv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
2292 ddp_sucv_rec.subsidy_id := rosetta_g_miss_num_map(p5_a2);
2293 ddp_sucv_rec.display_sequence := rosetta_g_miss_num_map(p5_a3);
2294 ddp_sucv_rec.inventory_item_id := rosetta_g_miss_num_map(p5_a4);
2295 ddp_sucv_rec.organization_id := rosetta_g_miss_num_map(p5_a5);
2296 ddp_sucv_rec.credit_classification_code := p5_a6;
2297 ddp_sucv_rec.sales_territory_code := p5_a7;
2298 ddp_sucv_rec.product_id := rosetta_g_miss_num_map(p5_a8);
2299 ddp_sucv_rec.industry_code_type := p5_a9;
2300 ddp_sucv_rec.industry_code := p5_a10;
2301 ddp_sucv_rec.maximum_financed_amount := rosetta_g_miss_num_map(p5_a11);
2302 ddp_sucv_rec.sales_territory_id := rosetta_g_miss_num_map(p5_a12);
2303 ddp_sucv_rec.attribute_category := p5_a13;
2304 ddp_sucv_rec.attribute1 := p5_a14;
2305 ddp_sucv_rec.attribute2 := p5_a15;
2306 ddp_sucv_rec.attribute3 := p5_a16;
2307 ddp_sucv_rec.attribute4 := p5_a17;
2308 ddp_sucv_rec.attribute5 := p5_a18;
2309 ddp_sucv_rec.attribute6 := p5_a19;
2310 ddp_sucv_rec.attribute7 := p5_a20;
2311 ddp_sucv_rec.attribute8 := p5_a21;
2312 ddp_sucv_rec.attribute9 := p5_a22;
2313 ddp_sucv_rec.attribute10 := p5_a23;
2314 ddp_sucv_rec.attribute11 := p5_a24;
2315 ddp_sucv_rec.attribute12 := p5_a25;
2316 ddp_sucv_rec.attribute13 := p5_a26;
2317 ddp_sucv_rec.attribute14 := p5_a27;
2318 ddp_sucv_rec.attribute15 := p5_a28;
2319 ddp_sucv_rec.created_by := rosetta_g_miss_num_map(p5_a29);
2320 ddp_sucv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a30);
2321 ddp_sucv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a31);
2322 ddp_sucv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a32);
2323 ddp_sucv_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
2324
2325
2326 -- here's the delegated call to the old PL/SQL routine
2327 okl_subsidy_pub.update_subsidy_criteria(p_api_version,
2328 p_init_msg_list,
2329 x_return_status,
2330 x_msg_count,
2331 x_msg_data,
2332 ddp_sucv_rec,
2333 ddx_sucv_rec);
2334
2335 -- copy data back from the local variables to OUT or IN-OUT args, if any
2336
2337
2338
2339
2340
2341
2342 p6_a0 := rosetta_g_miss_num_map(ddx_sucv_rec.id);
2343 p6_a1 := rosetta_g_miss_num_map(ddx_sucv_rec.object_version_number);
2344 p6_a2 := rosetta_g_miss_num_map(ddx_sucv_rec.subsidy_id);
2345 p6_a3 := rosetta_g_miss_num_map(ddx_sucv_rec.display_sequence);
2346 p6_a4 := rosetta_g_miss_num_map(ddx_sucv_rec.inventory_item_id);
2347 p6_a5 := rosetta_g_miss_num_map(ddx_sucv_rec.organization_id);
2348 p6_a6 := ddx_sucv_rec.credit_classification_code;
2349 p6_a7 := ddx_sucv_rec.sales_territory_code;
2350 p6_a8 := rosetta_g_miss_num_map(ddx_sucv_rec.product_id);
2351 p6_a9 := ddx_sucv_rec.industry_code_type;
2352 p6_a10 := ddx_sucv_rec.industry_code;
2353 p6_a11 := rosetta_g_miss_num_map(ddx_sucv_rec.maximum_financed_amount);
2354 p6_a12 := rosetta_g_miss_num_map(ddx_sucv_rec.sales_territory_id);
2355 p6_a13 := ddx_sucv_rec.attribute_category;
2356 p6_a14 := ddx_sucv_rec.attribute1;
2357 p6_a15 := ddx_sucv_rec.attribute2;
2358 p6_a16 := ddx_sucv_rec.attribute3;
2359 p6_a17 := ddx_sucv_rec.attribute4;
2360 p6_a18 := ddx_sucv_rec.attribute5;
2361 p6_a19 := ddx_sucv_rec.attribute6;
2362 p6_a20 := ddx_sucv_rec.attribute7;
2363 p6_a21 := ddx_sucv_rec.attribute8;
2364 p6_a22 := ddx_sucv_rec.attribute9;
2365 p6_a23 := ddx_sucv_rec.attribute10;
2366 p6_a24 := ddx_sucv_rec.attribute11;
2367 p6_a25 := ddx_sucv_rec.attribute12;
2368 p6_a26 := ddx_sucv_rec.attribute13;
2369 p6_a27 := ddx_sucv_rec.attribute14;
2370 p6_a28 := ddx_sucv_rec.attribute15;
2371 p6_a29 := rosetta_g_miss_num_map(ddx_sucv_rec.created_by);
2372 p6_a30 := ddx_sucv_rec.creation_date;
2373 p6_a31 := rosetta_g_miss_num_map(ddx_sucv_rec.last_updated_by);
2374 p6_a32 := ddx_sucv_rec.last_update_date;
2375 p6_a33 := rosetta_g_miss_num_map(ddx_sucv_rec.last_update_login);
2376 end;
2377
2378 procedure update_subsidy_criteria(p_api_version NUMBER
2379 , p_init_msg_list VARCHAR2
2380 , x_return_status out nocopy VARCHAR2
2381 , x_msg_count out nocopy NUMBER
2382 , x_msg_data out nocopy VARCHAR2
2383 , p5_a0 JTF_NUMBER_TABLE
2384 , p5_a1 JTF_NUMBER_TABLE
2385 , p5_a2 JTF_NUMBER_TABLE
2386 , p5_a3 JTF_NUMBER_TABLE
2387 , p5_a4 JTF_NUMBER_TABLE
2388 , p5_a5 JTF_NUMBER_TABLE
2389 , p5_a6 JTF_VARCHAR2_TABLE_100
2390 , p5_a7 JTF_VARCHAR2_TABLE_100
2391 , p5_a8 JTF_NUMBER_TABLE
2392 , p5_a9 JTF_VARCHAR2_TABLE_100
2393 , p5_a10 JTF_VARCHAR2_TABLE_100
2394 , p5_a11 JTF_NUMBER_TABLE
2395 , p5_a12 JTF_NUMBER_TABLE
2396 , p5_a13 JTF_VARCHAR2_TABLE_100
2397 , p5_a14 JTF_VARCHAR2_TABLE_500
2398 , p5_a15 JTF_VARCHAR2_TABLE_500
2399 , p5_a16 JTF_VARCHAR2_TABLE_500
2400 , p5_a17 JTF_VARCHAR2_TABLE_500
2401 , p5_a18 JTF_VARCHAR2_TABLE_500
2402 , p5_a19 JTF_VARCHAR2_TABLE_500
2403 , p5_a20 JTF_VARCHAR2_TABLE_500
2404 , p5_a21 JTF_VARCHAR2_TABLE_500
2405 , p5_a22 JTF_VARCHAR2_TABLE_500
2406 , p5_a23 JTF_VARCHAR2_TABLE_500
2407 , p5_a24 JTF_VARCHAR2_TABLE_500
2408 , p5_a25 JTF_VARCHAR2_TABLE_500
2409 , p5_a26 JTF_VARCHAR2_TABLE_500
2410 , p5_a27 JTF_VARCHAR2_TABLE_500
2411 , p5_a28 JTF_VARCHAR2_TABLE_500
2412 , p5_a29 JTF_NUMBER_TABLE
2413 , p5_a30 JTF_DATE_TABLE
2414 , p5_a31 JTF_NUMBER_TABLE
2415 , p5_a32 JTF_DATE_TABLE
2416 , p5_a33 JTF_NUMBER_TABLE
2417 , p6_a0 out nocopy JTF_NUMBER_TABLE
2418 , p6_a1 out nocopy JTF_NUMBER_TABLE
2419 , p6_a2 out nocopy JTF_NUMBER_TABLE
2420 , p6_a3 out nocopy JTF_NUMBER_TABLE
2421 , p6_a4 out nocopy JTF_NUMBER_TABLE
2422 , p6_a5 out nocopy JTF_NUMBER_TABLE
2423 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
2424 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
2425 , p6_a8 out nocopy JTF_NUMBER_TABLE
2426 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
2427 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
2428 , p6_a11 out nocopy JTF_NUMBER_TABLE
2429 , p6_a12 out nocopy JTF_NUMBER_TABLE
2430 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
2431 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
2432 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
2433 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
2434 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
2435 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
2436 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
2437 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
2438 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
2439 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
2440 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
2441 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
2442 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
2443 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
2444 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
2445 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
2446 , p6_a29 out nocopy JTF_NUMBER_TABLE
2447 , p6_a30 out nocopy JTF_DATE_TABLE
2448 , p6_a31 out nocopy JTF_NUMBER_TABLE
2449 , p6_a32 out nocopy JTF_DATE_TABLE
2450 , p6_a33 out nocopy JTF_NUMBER_TABLE
2451 )
2452
2453 as
2454 ddp_sucv_tbl okl_subsidy_pub.sucv_tbl_type;
2455 ddx_sucv_tbl okl_subsidy_pub.sucv_tbl_type;
2456 ddindx binary_integer; indx binary_integer;
2457 begin
2458
2459 -- copy data to the local IN or IN-OUT args, if any
2460
2461
2462
2463
2464
2465 okl_suc_pvt_w.rosetta_table_copy_in_p2(ddp_sucv_tbl, p5_a0
2466 , p5_a1
2467 , p5_a2
2468 , p5_a3
2469 , p5_a4
2470 , p5_a5
2471 , p5_a6
2472 , p5_a7
2473 , p5_a8
2474 , p5_a9
2475 , p5_a10
2476 , p5_a11
2477 , p5_a12
2478 , p5_a13
2479 , p5_a14
2480 , p5_a15
2481 , p5_a16
2482 , p5_a17
2483 , p5_a18
2484 , p5_a19
2485 , p5_a20
2486 , p5_a21
2487 , p5_a22
2488 , p5_a23
2489 , p5_a24
2490 , p5_a25
2491 , p5_a26
2492 , p5_a27
2493 , p5_a28
2494 , p5_a29
2495 , p5_a30
2496 , p5_a31
2497 , p5_a32
2498 , p5_a33
2499 );
2500
2501
2502 -- here's the delegated call to the old PL/SQL routine
2503 okl_subsidy_pub.update_subsidy_criteria(p_api_version,
2504 p_init_msg_list,
2505 x_return_status,
2506 x_msg_count,
2507 x_msg_data,
2508 ddp_sucv_tbl,
2509 ddx_sucv_tbl);
2510
2511 -- copy data back from the local variables to OUT or IN-OUT args, if any
2512
2513
2514
2515
2516
2517
2518 okl_suc_pvt_w.rosetta_table_copy_out_p2(ddx_sucv_tbl, p6_a0
2519 , p6_a1
2520 , p6_a2
2521 , p6_a3
2522 , p6_a4
2523 , p6_a5
2524 , p6_a6
2525 , p6_a7
2526 , p6_a8
2527 , p6_a9
2528 , p6_a10
2529 , p6_a11
2530 , p6_a12
2531 , p6_a13
2532 , p6_a14
2533 , p6_a15
2534 , p6_a16
2535 , p6_a17
2536 , p6_a18
2537 , p6_a19
2538 , p6_a20
2539 , p6_a21
2540 , p6_a22
2541 , p6_a23
2542 , p6_a24
2543 , p6_a25
2544 , p6_a26
2545 , p6_a27
2546 , p6_a28
2547 , p6_a29
2548 , p6_a30
2549 , p6_a31
2550 , p6_a32
2551 , p6_a33
2552 );
2553 end;
2554
2555 procedure delete_subsidy_criteria(p_api_version NUMBER
2556 , p_init_msg_list VARCHAR2
2557 , x_return_status out nocopy VARCHAR2
2558 , x_msg_count out nocopy NUMBER
2559 , x_msg_data out nocopy VARCHAR2
2560 , p5_a0 NUMBER := 0-1962.0724
2561 , p5_a1 NUMBER := 0-1962.0724
2562 , p5_a2 NUMBER := 0-1962.0724
2563 , p5_a3 NUMBER := 0-1962.0724
2564 , p5_a4 NUMBER := 0-1962.0724
2565 , p5_a5 NUMBER := 0-1962.0724
2566 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
2567 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
2568 , p5_a8 NUMBER := 0-1962.0724
2569 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
2570 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
2571 , p5_a11 NUMBER := 0-1962.0724
2572 , p5_a12 NUMBER := 0-1962.0724
2573 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2574 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2575 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2576 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
2577 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2578 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
2579 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
2580 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
2581 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
2582 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
2583 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
2584 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
2585 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
2586 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
2587 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
2588 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
2589 , p5_a29 NUMBER := 0-1962.0724
2590 , p5_a30 DATE := fnd_api.g_miss_date
2591 , p5_a31 NUMBER := 0-1962.0724
2592 , p5_a32 DATE := fnd_api.g_miss_date
2593 , p5_a33 NUMBER := 0-1962.0724
2594 )
2595
2596 as
2597 ddp_sucv_rec okl_subsidy_pub.sucv_rec_type;
2598 ddindx binary_integer; indx binary_integer;
2599 begin
2600
2601 -- copy data to the local IN or IN-OUT args, if any
2602
2603
2604
2605
2606
2607 ddp_sucv_rec.id := rosetta_g_miss_num_map(p5_a0);
2608 ddp_sucv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
2609 ddp_sucv_rec.subsidy_id := rosetta_g_miss_num_map(p5_a2);
2610 ddp_sucv_rec.display_sequence := rosetta_g_miss_num_map(p5_a3);
2611 ddp_sucv_rec.inventory_item_id := rosetta_g_miss_num_map(p5_a4);
2612 ddp_sucv_rec.organization_id := rosetta_g_miss_num_map(p5_a5);
2613 ddp_sucv_rec.credit_classification_code := p5_a6;
2614 ddp_sucv_rec.sales_territory_code := p5_a7;
2615 ddp_sucv_rec.product_id := rosetta_g_miss_num_map(p5_a8);
2616 ddp_sucv_rec.industry_code_type := p5_a9;
2617 ddp_sucv_rec.industry_code := p5_a10;
2618 ddp_sucv_rec.maximum_financed_amount := rosetta_g_miss_num_map(p5_a11);
2619 ddp_sucv_rec.sales_territory_id := rosetta_g_miss_num_map(p5_a12);
2620 ddp_sucv_rec.attribute_category := p5_a13;
2621 ddp_sucv_rec.attribute1 := p5_a14;
2622 ddp_sucv_rec.attribute2 := p5_a15;
2623 ddp_sucv_rec.attribute3 := p5_a16;
2624 ddp_sucv_rec.attribute4 := p5_a17;
2625 ddp_sucv_rec.attribute5 := p5_a18;
2626 ddp_sucv_rec.attribute6 := p5_a19;
2627 ddp_sucv_rec.attribute7 := p5_a20;
2628 ddp_sucv_rec.attribute8 := p5_a21;
2629 ddp_sucv_rec.attribute9 := p5_a22;
2630 ddp_sucv_rec.attribute10 := p5_a23;
2631 ddp_sucv_rec.attribute11 := p5_a24;
2632 ddp_sucv_rec.attribute12 := p5_a25;
2633 ddp_sucv_rec.attribute13 := p5_a26;
2634 ddp_sucv_rec.attribute14 := p5_a27;
2635 ddp_sucv_rec.attribute15 := p5_a28;
2636 ddp_sucv_rec.created_by := rosetta_g_miss_num_map(p5_a29);
2637 ddp_sucv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a30);
2638 ddp_sucv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a31);
2639 ddp_sucv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a32);
2640 ddp_sucv_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
2641
2642 -- here's the delegated call to the old PL/SQL routine
2643 okl_subsidy_pub.delete_subsidy_criteria(p_api_version,
2644 p_init_msg_list,
2645 x_return_status,
2646 x_msg_count,
2647 x_msg_data,
2648 ddp_sucv_rec);
2649
2650 -- copy data back from the local variables to OUT or IN-OUT args, if any
2651
2652
2653
2654
2655
2656 end;
2657
2658 procedure delete_subsidy_criteria(p_api_version NUMBER
2659 , p_init_msg_list VARCHAR2
2660 , x_return_status out nocopy VARCHAR2
2661 , x_msg_count out nocopy NUMBER
2662 , x_msg_data out nocopy VARCHAR2
2663 , p5_a0 JTF_NUMBER_TABLE
2664 , p5_a1 JTF_NUMBER_TABLE
2665 , p5_a2 JTF_NUMBER_TABLE
2666 , p5_a3 JTF_NUMBER_TABLE
2667 , p5_a4 JTF_NUMBER_TABLE
2668 , p5_a5 JTF_NUMBER_TABLE
2669 , p5_a6 JTF_VARCHAR2_TABLE_100
2670 , p5_a7 JTF_VARCHAR2_TABLE_100
2671 , p5_a8 JTF_NUMBER_TABLE
2672 , p5_a9 JTF_VARCHAR2_TABLE_100
2673 , p5_a10 JTF_VARCHAR2_TABLE_100
2674 , p5_a11 JTF_NUMBER_TABLE
2675 , p5_a12 JTF_NUMBER_TABLE
2676 , p5_a13 JTF_VARCHAR2_TABLE_100
2677 , p5_a14 JTF_VARCHAR2_TABLE_500
2678 , p5_a15 JTF_VARCHAR2_TABLE_500
2679 , p5_a16 JTF_VARCHAR2_TABLE_500
2680 , p5_a17 JTF_VARCHAR2_TABLE_500
2681 , p5_a18 JTF_VARCHAR2_TABLE_500
2682 , p5_a19 JTF_VARCHAR2_TABLE_500
2683 , p5_a20 JTF_VARCHAR2_TABLE_500
2684 , p5_a21 JTF_VARCHAR2_TABLE_500
2685 , p5_a22 JTF_VARCHAR2_TABLE_500
2686 , p5_a23 JTF_VARCHAR2_TABLE_500
2687 , p5_a24 JTF_VARCHAR2_TABLE_500
2688 , p5_a25 JTF_VARCHAR2_TABLE_500
2689 , p5_a26 JTF_VARCHAR2_TABLE_500
2690 , p5_a27 JTF_VARCHAR2_TABLE_500
2691 , p5_a28 JTF_VARCHAR2_TABLE_500
2692 , p5_a29 JTF_NUMBER_TABLE
2693 , p5_a30 JTF_DATE_TABLE
2694 , p5_a31 JTF_NUMBER_TABLE
2695 , p5_a32 JTF_DATE_TABLE
2696 , p5_a33 JTF_NUMBER_TABLE
2697 )
2698
2699 as
2700 ddp_sucv_tbl okl_subsidy_pub.sucv_tbl_type;
2701 ddindx binary_integer; indx binary_integer;
2702 begin
2703
2704 -- copy data to the local IN or IN-OUT args, if any
2705
2706
2707
2708
2709
2710 okl_suc_pvt_w.rosetta_table_copy_in_p2(ddp_sucv_tbl, p5_a0
2711 , p5_a1
2712 , p5_a2
2713 , p5_a3
2714 , p5_a4
2715 , p5_a5
2716 , p5_a6
2717 , p5_a7
2718 , p5_a8
2719 , p5_a9
2720 , p5_a10
2721 , p5_a11
2722 , p5_a12
2723 , p5_a13
2724 , p5_a14
2725 , p5_a15
2726 , p5_a16
2727 , p5_a17
2728 , p5_a18
2729 , p5_a19
2730 , p5_a20
2731 , p5_a21
2732 , p5_a22
2733 , p5_a23
2734 , p5_a24
2735 , p5_a25
2736 , p5_a26
2737 , p5_a27
2738 , p5_a28
2739 , p5_a29
2740 , p5_a30
2741 , p5_a31
2742 , p5_a32
2743 , p5_a33
2744 );
2745
2746 -- here's the delegated call to the old PL/SQL routine
2747 okl_subsidy_pub.delete_subsidy_criteria(p_api_version,
2748 p_init_msg_list,
2749 x_return_status,
2750 x_msg_count,
2751 x_msg_data,
2752 ddp_sucv_tbl);
2753
2754 -- copy data back from the local variables to OUT or IN-OUT args, if any
2755
2756
2757
2758
2759
2760 end;
2761
2762 procedure lock_subsidy_criteria(p_api_version NUMBER
2763 , p_init_msg_list VARCHAR2
2764 , x_return_status out nocopy VARCHAR2
2765 , x_msg_count out nocopy NUMBER
2766 , x_msg_data out nocopy VARCHAR2
2767 , p5_a0 NUMBER := 0-1962.0724
2768 , p5_a1 NUMBER := 0-1962.0724
2769 , p5_a2 NUMBER := 0-1962.0724
2770 , p5_a3 NUMBER := 0-1962.0724
2771 , p5_a4 NUMBER := 0-1962.0724
2772 , p5_a5 NUMBER := 0-1962.0724
2773 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
2774 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
2775 , p5_a8 NUMBER := 0-1962.0724
2776 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
2777 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
2778 , p5_a11 NUMBER := 0-1962.0724
2779 , p5_a12 NUMBER := 0-1962.0724
2780 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2781 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2782 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2783 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
2784 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2785 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
2786 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
2787 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
2788 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
2789 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
2790 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
2791 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
2792 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
2793 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
2794 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
2795 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
2796 , p5_a29 NUMBER := 0-1962.0724
2797 , p5_a30 DATE := fnd_api.g_miss_date
2798 , p5_a31 NUMBER := 0-1962.0724
2799 , p5_a32 DATE := fnd_api.g_miss_date
2800 , p5_a33 NUMBER := 0-1962.0724
2801 )
2802
2803 as
2804 ddp_sucv_rec okl_subsidy_pub.sucv_rec_type;
2805 ddindx binary_integer; indx binary_integer;
2806 begin
2807
2808 -- copy data to the local IN or IN-OUT args, if any
2809
2810
2811
2812
2813
2814 ddp_sucv_rec.id := rosetta_g_miss_num_map(p5_a0);
2815 ddp_sucv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
2816 ddp_sucv_rec.subsidy_id := rosetta_g_miss_num_map(p5_a2);
2817 ddp_sucv_rec.display_sequence := rosetta_g_miss_num_map(p5_a3);
2818 ddp_sucv_rec.inventory_item_id := rosetta_g_miss_num_map(p5_a4);
2819 ddp_sucv_rec.organization_id := rosetta_g_miss_num_map(p5_a5);
2820 ddp_sucv_rec.credit_classification_code := p5_a6;
2821 ddp_sucv_rec.sales_territory_code := p5_a7;
2822 ddp_sucv_rec.product_id := rosetta_g_miss_num_map(p5_a8);
2823 ddp_sucv_rec.industry_code_type := p5_a9;
2824 ddp_sucv_rec.industry_code := p5_a10;
2825 ddp_sucv_rec.maximum_financed_amount := rosetta_g_miss_num_map(p5_a11);
2826 ddp_sucv_rec.sales_territory_id := rosetta_g_miss_num_map(p5_a12);
2827 ddp_sucv_rec.attribute_category := p5_a13;
2828 ddp_sucv_rec.attribute1 := p5_a14;
2829 ddp_sucv_rec.attribute2 := p5_a15;
2830 ddp_sucv_rec.attribute3 := p5_a16;
2831 ddp_sucv_rec.attribute4 := p5_a17;
2832 ddp_sucv_rec.attribute5 := p5_a18;
2833 ddp_sucv_rec.attribute6 := p5_a19;
2834 ddp_sucv_rec.attribute7 := p5_a20;
2835 ddp_sucv_rec.attribute8 := p5_a21;
2836 ddp_sucv_rec.attribute9 := p5_a22;
2837 ddp_sucv_rec.attribute10 := p5_a23;
2838 ddp_sucv_rec.attribute11 := p5_a24;
2839 ddp_sucv_rec.attribute12 := p5_a25;
2840 ddp_sucv_rec.attribute13 := p5_a26;
2841 ddp_sucv_rec.attribute14 := p5_a27;
2842 ddp_sucv_rec.attribute15 := p5_a28;
2843 ddp_sucv_rec.created_by := rosetta_g_miss_num_map(p5_a29);
2844 ddp_sucv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a30);
2845 ddp_sucv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a31);
2846 ddp_sucv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a32);
2847 ddp_sucv_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
2848
2849 -- here's the delegated call to the old PL/SQL routine
2850 okl_subsidy_pub.lock_subsidy_criteria(p_api_version,
2851 p_init_msg_list,
2852 x_return_status,
2853 x_msg_count,
2854 x_msg_data,
2855 ddp_sucv_rec);
2856
2857 -- copy data back from the local variables to OUT or IN-OUT args, if any
2858
2859
2860
2861
2862
2863 end;
2864
2865 procedure lock_subsidy_criteria(p_api_version NUMBER
2866 , p_init_msg_list VARCHAR2
2867 , x_return_status out nocopy VARCHAR2
2868 , x_msg_count out nocopy NUMBER
2869 , x_msg_data out nocopy VARCHAR2
2870 , p5_a0 JTF_NUMBER_TABLE
2871 , p5_a1 JTF_NUMBER_TABLE
2872 , p5_a2 JTF_NUMBER_TABLE
2873 , p5_a3 JTF_NUMBER_TABLE
2874 , p5_a4 JTF_NUMBER_TABLE
2875 , p5_a5 JTF_NUMBER_TABLE
2876 , p5_a6 JTF_VARCHAR2_TABLE_100
2877 , p5_a7 JTF_VARCHAR2_TABLE_100
2878 , p5_a8 JTF_NUMBER_TABLE
2879 , p5_a9 JTF_VARCHAR2_TABLE_100
2880 , p5_a10 JTF_VARCHAR2_TABLE_100
2881 , p5_a11 JTF_NUMBER_TABLE
2882 , p5_a12 JTF_NUMBER_TABLE
2883 , p5_a13 JTF_VARCHAR2_TABLE_100
2884 , p5_a14 JTF_VARCHAR2_TABLE_500
2885 , p5_a15 JTF_VARCHAR2_TABLE_500
2886 , p5_a16 JTF_VARCHAR2_TABLE_500
2887 , p5_a17 JTF_VARCHAR2_TABLE_500
2888 , p5_a18 JTF_VARCHAR2_TABLE_500
2889 , p5_a19 JTF_VARCHAR2_TABLE_500
2890 , p5_a20 JTF_VARCHAR2_TABLE_500
2891 , p5_a21 JTF_VARCHAR2_TABLE_500
2892 , p5_a22 JTF_VARCHAR2_TABLE_500
2893 , p5_a23 JTF_VARCHAR2_TABLE_500
2894 , p5_a24 JTF_VARCHAR2_TABLE_500
2895 , p5_a25 JTF_VARCHAR2_TABLE_500
2896 , p5_a26 JTF_VARCHAR2_TABLE_500
2897 , p5_a27 JTF_VARCHAR2_TABLE_500
2898 , p5_a28 JTF_VARCHAR2_TABLE_500
2899 , p5_a29 JTF_NUMBER_TABLE
2900 , p5_a30 JTF_DATE_TABLE
2901 , p5_a31 JTF_NUMBER_TABLE
2902 , p5_a32 JTF_DATE_TABLE
2903 , p5_a33 JTF_NUMBER_TABLE
2904 )
2905
2906 as
2907 ddp_sucv_tbl okl_subsidy_pub.sucv_tbl_type;
2908 ddindx binary_integer; indx binary_integer;
2909 begin
2910
2911 -- copy data to the local IN or IN-OUT args, if any
2912
2913
2914
2915
2916
2917 okl_suc_pvt_w.rosetta_table_copy_in_p2(ddp_sucv_tbl, p5_a0
2918 , p5_a1
2919 , p5_a2
2920 , p5_a3
2921 , p5_a4
2922 , p5_a5
2923 , p5_a6
2924 , p5_a7
2925 , p5_a8
2926 , p5_a9
2927 , p5_a10
2928 , p5_a11
2929 , p5_a12
2930 , p5_a13
2931 , p5_a14
2932 , p5_a15
2933 , p5_a16
2934 , p5_a17
2935 , p5_a18
2936 , p5_a19
2937 , p5_a20
2938 , p5_a21
2939 , p5_a22
2940 , p5_a23
2941 , p5_a24
2942 , p5_a25
2943 , p5_a26
2944 , p5_a27
2945 , p5_a28
2946 , p5_a29
2947 , p5_a30
2948 , p5_a31
2949 , p5_a32
2950 , p5_a33
2951 );
2952
2953 -- here's the delegated call to the old PL/SQL routine
2954 okl_subsidy_pub.lock_subsidy_criteria(p_api_version,
2955 p_init_msg_list,
2956 x_return_status,
2957 x_msg_count,
2958 x_msg_data,
2959 ddp_sucv_tbl);
2960
2961 -- copy data back from the local variables to OUT or IN-OUT args, if any
2962
2963
2964
2965
2966
2967 end;
2968
2969 procedure validate_subsidy_criteria(p_api_version NUMBER
2970 , p_init_msg_list VARCHAR2
2971 , x_return_status out nocopy VARCHAR2
2972 , x_msg_count out nocopy NUMBER
2973 , x_msg_data out nocopy VARCHAR2
2974 , p5_a0 NUMBER := 0-1962.0724
2975 , p5_a1 NUMBER := 0-1962.0724
2976 , p5_a2 NUMBER := 0-1962.0724
2977 , p5_a3 NUMBER := 0-1962.0724
2978 , p5_a4 NUMBER := 0-1962.0724
2979 , p5_a5 NUMBER := 0-1962.0724
2980 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
2981 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
2982 , p5_a8 NUMBER := 0-1962.0724
2983 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
2984 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
2985 , p5_a11 NUMBER := 0-1962.0724
2986 , p5_a12 NUMBER := 0-1962.0724
2987 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2988 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2989 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2990 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
2991 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2992 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
2993 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
2994 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
2995 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
2996 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
2997 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
2998 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
2999 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
3000 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
3001 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
3002 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
3003 , p5_a29 NUMBER := 0-1962.0724
3004 , p5_a30 DATE := fnd_api.g_miss_date
3005 , p5_a31 NUMBER := 0-1962.0724
3006 , p5_a32 DATE := fnd_api.g_miss_date
3007 , p5_a33 NUMBER := 0-1962.0724
3008 )
3009
3010 as
3011 ddp_sucv_rec okl_subsidy_pub.sucv_rec_type;
3012 ddindx binary_integer; indx binary_integer;
3013 begin
3014
3015 -- copy data to the local IN or IN-OUT args, if any
3016
3017
3018
3019
3020
3021 ddp_sucv_rec.id := rosetta_g_miss_num_map(p5_a0);
3022 ddp_sucv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
3023 ddp_sucv_rec.subsidy_id := rosetta_g_miss_num_map(p5_a2);
3024 ddp_sucv_rec.display_sequence := rosetta_g_miss_num_map(p5_a3);
3025 ddp_sucv_rec.inventory_item_id := rosetta_g_miss_num_map(p5_a4);
3026 ddp_sucv_rec.organization_id := rosetta_g_miss_num_map(p5_a5);
3027 ddp_sucv_rec.credit_classification_code := p5_a6;
3028 ddp_sucv_rec.sales_territory_code := p5_a7;
3029 ddp_sucv_rec.product_id := rosetta_g_miss_num_map(p5_a8);
3030 ddp_sucv_rec.industry_code_type := p5_a9;
3031 ddp_sucv_rec.industry_code := p5_a10;
3032 ddp_sucv_rec.maximum_financed_amount := rosetta_g_miss_num_map(p5_a11);
3033 ddp_sucv_rec.sales_territory_id := rosetta_g_miss_num_map(p5_a12);
3034 ddp_sucv_rec.attribute_category := p5_a13;
3035 ddp_sucv_rec.attribute1 := p5_a14;
3036 ddp_sucv_rec.attribute2 := p5_a15;
3037 ddp_sucv_rec.attribute3 := p5_a16;
3038 ddp_sucv_rec.attribute4 := p5_a17;
3039 ddp_sucv_rec.attribute5 := p5_a18;
3040 ddp_sucv_rec.attribute6 := p5_a19;
3041 ddp_sucv_rec.attribute7 := p5_a20;
3042 ddp_sucv_rec.attribute8 := p5_a21;
3043 ddp_sucv_rec.attribute9 := p5_a22;
3044 ddp_sucv_rec.attribute10 := p5_a23;
3045 ddp_sucv_rec.attribute11 := p5_a24;
3046 ddp_sucv_rec.attribute12 := p5_a25;
3047 ddp_sucv_rec.attribute13 := p5_a26;
3048 ddp_sucv_rec.attribute14 := p5_a27;
3049 ddp_sucv_rec.attribute15 := p5_a28;
3050 ddp_sucv_rec.created_by := rosetta_g_miss_num_map(p5_a29);
3051 ddp_sucv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a30);
3052 ddp_sucv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a31);
3053 ddp_sucv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a32);
3054 ddp_sucv_rec.last_update_login := rosetta_g_miss_num_map(p5_a33);
3055
3056 -- here's the delegated call to the old PL/SQL routine
3057 okl_subsidy_pub.validate_subsidy_criteria(p_api_version,
3058 p_init_msg_list,
3059 x_return_status,
3060 x_msg_count,
3061 x_msg_data,
3062 ddp_sucv_rec);
3063
3064 -- copy data back from the local variables to OUT or IN-OUT args, if any
3065
3066
3067
3068
3069
3070 end;
3071
3072 procedure validate_subsidy_criteria(p_api_version NUMBER
3073 , p_init_msg_list VARCHAR2
3074 , x_return_status out nocopy VARCHAR2
3075 , x_msg_count out nocopy NUMBER
3076 , x_msg_data out nocopy VARCHAR2
3077 , p5_a0 JTF_NUMBER_TABLE
3078 , p5_a1 JTF_NUMBER_TABLE
3079 , p5_a2 JTF_NUMBER_TABLE
3080 , p5_a3 JTF_NUMBER_TABLE
3081 , p5_a4 JTF_NUMBER_TABLE
3082 , p5_a5 JTF_NUMBER_TABLE
3083 , p5_a6 JTF_VARCHAR2_TABLE_100
3084 , p5_a7 JTF_VARCHAR2_TABLE_100
3085 , p5_a8 JTF_NUMBER_TABLE
3086 , p5_a9 JTF_VARCHAR2_TABLE_100
3087 , p5_a10 JTF_VARCHAR2_TABLE_100
3088 , p5_a11 JTF_NUMBER_TABLE
3089 , p5_a12 JTF_NUMBER_TABLE
3090 , p5_a13 JTF_VARCHAR2_TABLE_100
3091 , p5_a14 JTF_VARCHAR2_TABLE_500
3092 , p5_a15 JTF_VARCHAR2_TABLE_500
3093 , p5_a16 JTF_VARCHAR2_TABLE_500
3094 , p5_a17 JTF_VARCHAR2_TABLE_500
3095 , p5_a18 JTF_VARCHAR2_TABLE_500
3096 , p5_a19 JTF_VARCHAR2_TABLE_500
3097 , p5_a20 JTF_VARCHAR2_TABLE_500
3098 , p5_a21 JTF_VARCHAR2_TABLE_500
3099 , p5_a22 JTF_VARCHAR2_TABLE_500
3100 , p5_a23 JTF_VARCHAR2_TABLE_500
3101 , p5_a24 JTF_VARCHAR2_TABLE_500
3102 , p5_a25 JTF_VARCHAR2_TABLE_500
3103 , p5_a26 JTF_VARCHAR2_TABLE_500
3104 , p5_a27 JTF_VARCHAR2_TABLE_500
3105 , p5_a28 JTF_VARCHAR2_TABLE_500
3106 , p5_a29 JTF_NUMBER_TABLE
3107 , p5_a30 JTF_DATE_TABLE
3108 , p5_a31 JTF_NUMBER_TABLE
3109 , p5_a32 JTF_DATE_TABLE
3110 , p5_a33 JTF_NUMBER_TABLE
3111 )
3112
3113 as
3114 ddp_sucv_tbl okl_subsidy_pub.sucv_tbl_type;
3115 ddindx binary_integer; indx binary_integer;
3116 begin
3117
3118 -- copy data to the local IN or IN-OUT args, if any
3119
3120
3121
3122
3123
3124 okl_suc_pvt_w.rosetta_table_copy_in_p2(ddp_sucv_tbl, p5_a0
3125 , p5_a1
3126 , p5_a2
3127 , p5_a3
3128 , p5_a4
3129 , p5_a5
3130 , p5_a6
3131 , p5_a7
3132 , p5_a8
3133 , p5_a9
3134 , p5_a10
3135 , p5_a11
3136 , p5_a12
3137 , p5_a13
3138 , p5_a14
3139 , p5_a15
3140 , p5_a16
3141 , p5_a17
3142 , p5_a18
3143 , p5_a19
3144 , p5_a20
3145 , p5_a21
3146 , p5_a22
3147 , p5_a23
3148 , p5_a24
3149 , p5_a25
3150 , p5_a26
3151 , p5_a27
3152 , p5_a28
3153 , p5_a29
3154 , p5_a30
3155 , p5_a31
3156 , p5_a32
3157 , p5_a33
3158 );
3159
3160 -- here's the delegated call to the old PL/SQL routine
3161 okl_subsidy_pub.validate_subsidy_criteria(p_api_version,
3162 p_init_msg_list,
3163 x_return_status,
3164 x_msg_count,
3165 x_msg_data,
3166 ddp_sucv_tbl);
3167
3168 -- copy data back from the local variables to OUT or IN-OUT args, if any
3169
3170
3171
3172
3173
3174 end;
3175
3176 end okl_subsidy_pub_w;