[Home] [Help]
PACKAGE BODY: APPS.OKL_SUBSIDY_POOL_PVT_W
Source
1 package body okl_subsidy_pool_pvt_w as
2 /* $Header: OKLESIPB.pls 120.1 2005/10/30 03:16:45 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_sub_pool(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 VARCHAR2
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 VARCHAR2
37 , p6_a10 out nocopy VARCHAR2
38 , p6_a11 out nocopy VARCHAR2
39 , p6_a12 out nocopy NUMBER
40 , p6_a13 out nocopy NUMBER
41 , p6_a14 out nocopy NUMBER
42 , p6_a15 out nocopy NUMBER
43 , p6_a16 out nocopy DATE
44 , p6_a17 out nocopy VARCHAR2
45 , p6_a18 out nocopy VARCHAR2
46 , p6_a19 out nocopy VARCHAR2
47 , p6_a20 out nocopy VARCHAR2
48 , p6_a21 out nocopy VARCHAR2
49 , p6_a22 out nocopy VARCHAR2
50 , p6_a23 out nocopy VARCHAR2
51 , p6_a24 out nocopy VARCHAR2
52 , p6_a25 out nocopy VARCHAR2
53 , p6_a26 out nocopy VARCHAR2
54 , p6_a27 out nocopy VARCHAR2
55 , p6_a28 out nocopy VARCHAR2
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 NUMBER
61 , p6_a34 out nocopy DATE
62 , p6_a35 out nocopy NUMBER
63 , p6_a36 out nocopy DATE
64 , p6_a37 out nocopy NUMBER
65 , p5_a0 NUMBER := 0-1962.0724
66 , p5_a1 NUMBER := 0-1962.0724
67 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
68 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
69 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
70 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
71 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
72 , p5_a7 DATE := fnd_api.g_miss_date
73 , p5_a8 DATE := fnd_api.g_miss_date
74 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
75 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
76 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
77 , p5_a12 NUMBER := 0-1962.0724
78 , p5_a13 NUMBER := 0-1962.0724
79 , p5_a14 NUMBER := 0-1962.0724
80 , p5_a15 NUMBER := 0-1962.0724
81 , p5_a16 DATE := fnd_api.g_miss_date
82 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
83 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
84 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
85 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
86 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
87 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
88 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
89 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
90 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
91 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
92 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
93 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
94 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
95 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
96 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
97 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
98 , p5_a33 NUMBER := 0-1962.0724
99 , p5_a34 DATE := fnd_api.g_miss_date
100 , p5_a35 NUMBER := 0-1962.0724
101 , p5_a36 DATE := fnd_api.g_miss_date
102 , p5_a37 NUMBER := 0-1962.0724
103 )
104
105 as
106 ddp_sub_pool_rec okl_subsidy_pool_pvt.subsidy_pool_rec;
107 ddx_sub_pool_rec okl_subsidy_pool_pvt.subsidy_pool_rec;
108 ddindx binary_integer; indx binary_integer;
109 begin
110
111 -- copy data to the local IN or IN-OUT args, if any
112
113
114
115
116
117 ddp_sub_pool_rec.id := rosetta_g_miss_num_map(p5_a0);
118 ddp_sub_pool_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
119 ddp_sub_pool_rec.sfwt_flag := p5_a2;
120 ddp_sub_pool_rec.pool_type_code := p5_a3;
121 ddp_sub_pool_rec.subsidy_pool_name := p5_a4;
122 ddp_sub_pool_rec.short_description := p5_a5;
123 ddp_sub_pool_rec.description := p5_a6;
124 ddp_sub_pool_rec.effective_from_date := rosetta_g_miss_date_in_map(p5_a7);
125 ddp_sub_pool_rec.effective_to_date := rosetta_g_miss_date_in_map(p5_a8);
126 ddp_sub_pool_rec.currency_code := p5_a9;
127 ddp_sub_pool_rec.currency_conversion_type := p5_a10;
128 ddp_sub_pool_rec.decision_status_code := p5_a11;
129 ddp_sub_pool_rec.subsidy_pool_id := rosetta_g_miss_num_map(p5_a12);
130 ddp_sub_pool_rec.reporting_pool_limit := rosetta_g_miss_num_map(p5_a13);
131 ddp_sub_pool_rec.total_budgets := rosetta_g_miss_num_map(p5_a14);
132 ddp_sub_pool_rec.total_subsidy_amount := rosetta_g_miss_num_map(p5_a15);
133 ddp_sub_pool_rec.decision_date := rosetta_g_miss_date_in_map(p5_a16);
134 ddp_sub_pool_rec.attribute_category := p5_a17;
135 ddp_sub_pool_rec.attribute1 := p5_a18;
136 ddp_sub_pool_rec.attribute2 := p5_a19;
137 ddp_sub_pool_rec.attribute3 := p5_a20;
138 ddp_sub_pool_rec.attribute4 := p5_a21;
139 ddp_sub_pool_rec.attribute5 := p5_a22;
140 ddp_sub_pool_rec.attribute6 := p5_a23;
141 ddp_sub_pool_rec.attribute7 := p5_a24;
142 ddp_sub_pool_rec.attribute8 := p5_a25;
143 ddp_sub_pool_rec.attribute9 := p5_a26;
144 ddp_sub_pool_rec.attribute10 := p5_a27;
145 ddp_sub_pool_rec.attribute11 := p5_a28;
146 ddp_sub_pool_rec.attribute12 := p5_a29;
147 ddp_sub_pool_rec.attribute13 := p5_a30;
148 ddp_sub_pool_rec.attribute14 := p5_a31;
149 ddp_sub_pool_rec.attribute15 := p5_a32;
150 ddp_sub_pool_rec.created_by := rosetta_g_miss_num_map(p5_a33);
151 ddp_sub_pool_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
152 ddp_sub_pool_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
153 ddp_sub_pool_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
154 ddp_sub_pool_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
155
156
157 -- here's the delegated call to the old PL/SQL routine
158 okl_subsidy_pool_pvt.create_sub_pool(p_api_version,
159 p_init_msg_list,
160 x_return_status,
161 x_msg_count,
162 x_msg_data,
163 ddp_sub_pool_rec,
164 ddx_sub_pool_rec);
165
166 -- copy data back from the local variables to OUT or IN-OUT args, if any
167
168
169
170
171
172
173 p6_a0 := rosetta_g_miss_num_map(ddx_sub_pool_rec.id);
174 p6_a1 := rosetta_g_miss_num_map(ddx_sub_pool_rec.object_version_number);
175 p6_a2 := ddx_sub_pool_rec.sfwt_flag;
176 p6_a3 := ddx_sub_pool_rec.pool_type_code;
177 p6_a4 := ddx_sub_pool_rec.subsidy_pool_name;
178 p6_a5 := ddx_sub_pool_rec.short_description;
179 p6_a6 := ddx_sub_pool_rec.description;
180 p6_a7 := ddx_sub_pool_rec.effective_from_date;
181 p6_a8 := ddx_sub_pool_rec.effective_to_date;
182 p6_a9 := ddx_sub_pool_rec.currency_code;
183 p6_a10 := ddx_sub_pool_rec.currency_conversion_type;
184 p6_a11 := ddx_sub_pool_rec.decision_status_code;
185 p6_a12 := rosetta_g_miss_num_map(ddx_sub_pool_rec.subsidy_pool_id);
186 p6_a13 := rosetta_g_miss_num_map(ddx_sub_pool_rec.reporting_pool_limit);
187 p6_a14 := rosetta_g_miss_num_map(ddx_sub_pool_rec.total_budgets);
188 p6_a15 := rosetta_g_miss_num_map(ddx_sub_pool_rec.total_subsidy_amount);
189 p6_a16 := ddx_sub_pool_rec.decision_date;
190 p6_a17 := ddx_sub_pool_rec.attribute_category;
191 p6_a18 := ddx_sub_pool_rec.attribute1;
192 p6_a19 := ddx_sub_pool_rec.attribute2;
193 p6_a20 := ddx_sub_pool_rec.attribute3;
194 p6_a21 := ddx_sub_pool_rec.attribute4;
195 p6_a22 := ddx_sub_pool_rec.attribute5;
196 p6_a23 := ddx_sub_pool_rec.attribute6;
197 p6_a24 := ddx_sub_pool_rec.attribute7;
198 p6_a25 := ddx_sub_pool_rec.attribute8;
199 p6_a26 := ddx_sub_pool_rec.attribute9;
200 p6_a27 := ddx_sub_pool_rec.attribute10;
201 p6_a28 := ddx_sub_pool_rec.attribute11;
202 p6_a29 := ddx_sub_pool_rec.attribute12;
203 p6_a30 := ddx_sub_pool_rec.attribute13;
204 p6_a31 := ddx_sub_pool_rec.attribute14;
205 p6_a32 := ddx_sub_pool_rec.attribute15;
206 p6_a33 := rosetta_g_miss_num_map(ddx_sub_pool_rec.created_by);
207 p6_a34 := ddx_sub_pool_rec.creation_date;
208 p6_a35 := rosetta_g_miss_num_map(ddx_sub_pool_rec.last_updated_by);
209 p6_a36 := ddx_sub_pool_rec.last_update_date;
210 p6_a37 := rosetta_g_miss_num_map(ddx_sub_pool_rec.last_update_login);
211 end;
212
213 procedure update_sub_pool(p_api_version NUMBER
214 , p_init_msg_list VARCHAR2
215 , x_return_status out nocopy VARCHAR2
216 , x_msg_count out nocopy NUMBER
217 , x_msg_data out nocopy VARCHAR2
218 , p6_a0 out nocopy NUMBER
219 , p6_a1 out nocopy NUMBER
220 , p6_a2 out nocopy VARCHAR2
221 , p6_a3 out nocopy VARCHAR2
222 , p6_a4 out nocopy VARCHAR2
223 , p6_a5 out nocopy VARCHAR2
224 , p6_a6 out nocopy VARCHAR2
225 , p6_a7 out nocopy DATE
226 , p6_a8 out nocopy DATE
227 , p6_a9 out nocopy VARCHAR2
228 , p6_a10 out nocopy VARCHAR2
229 , p6_a11 out nocopy VARCHAR2
230 , p6_a12 out nocopy NUMBER
231 , p6_a13 out nocopy NUMBER
232 , p6_a14 out nocopy NUMBER
233 , p6_a15 out nocopy NUMBER
234 , p6_a16 out nocopy DATE
235 , p6_a17 out nocopy VARCHAR2
236 , p6_a18 out nocopy VARCHAR2
237 , p6_a19 out nocopy VARCHAR2
238 , p6_a20 out nocopy VARCHAR2
239 , p6_a21 out nocopy VARCHAR2
240 , p6_a22 out nocopy VARCHAR2
241 , p6_a23 out nocopy VARCHAR2
242 , p6_a24 out nocopy VARCHAR2
243 , p6_a25 out nocopy VARCHAR2
244 , p6_a26 out nocopy VARCHAR2
245 , p6_a27 out nocopy VARCHAR2
246 , p6_a28 out nocopy VARCHAR2
247 , p6_a29 out nocopy VARCHAR2
248 , p6_a30 out nocopy VARCHAR2
249 , p6_a31 out nocopy VARCHAR2
250 , p6_a32 out nocopy VARCHAR2
251 , p6_a33 out nocopy NUMBER
252 , p6_a34 out nocopy DATE
253 , p6_a35 out nocopy NUMBER
254 , p6_a36 out nocopy DATE
255 , p6_a37 out nocopy NUMBER
256 , p5_a0 NUMBER := 0-1962.0724
257 , p5_a1 NUMBER := 0-1962.0724
258 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
259 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
260 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
261 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
262 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
263 , p5_a7 DATE := fnd_api.g_miss_date
264 , p5_a8 DATE := fnd_api.g_miss_date
265 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
266 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
267 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
268 , p5_a12 NUMBER := 0-1962.0724
269 , p5_a13 NUMBER := 0-1962.0724
270 , p5_a14 NUMBER := 0-1962.0724
271 , p5_a15 NUMBER := 0-1962.0724
272 , p5_a16 DATE := fnd_api.g_miss_date
273 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
274 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
275 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
276 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
277 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
278 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
279 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
280 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
281 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
282 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
283 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
284 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
285 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
286 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
287 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
288 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
289 , p5_a33 NUMBER := 0-1962.0724
290 , p5_a34 DATE := fnd_api.g_miss_date
291 , p5_a35 NUMBER := 0-1962.0724
292 , p5_a36 DATE := fnd_api.g_miss_date
293 , p5_a37 NUMBER := 0-1962.0724
294 )
295
296 as
297 ddp_sub_pool_rec okl_subsidy_pool_pvt.subsidy_pool_rec;
298 ddx_sub_pool_rec okl_subsidy_pool_pvt.subsidy_pool_rec;
299 ddindx binary_integer; indx binary_integer;
300 begin
301
302 -- copy data to the local IN or IN-OUT args, if any
303
304
305
306
307
308 ddp_sub_pool_rec.id := rosetta_g_miss_num_map(p5_a0);
309 ddp_sub_pool_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
310 ddp_sub_pool_rec.sfwt_flag := p5_a2;
311 ddp_sub_pool_rec.pool_type_code := p5_a3;
312 ddp_sub_pool_rec.subsidy_pool_name := p5_a4;
313 ddp_sub_pool_rec.short_description := p5_a5;
314 ddp_sub_pool_rec.description := p5_a6;
315 ddp_sub_pool_rec.effective_from_date := rosetta_g_miss_date_in_map(p5_a7);
316 ddp_sub_pool_rec.effective_to_date := rosetta_g_miss_date_in_map(p5_a8);
317 ddp_sub_pool_rec.currency_code := p5_a9;
318 ddp_sub_pool_rec.currency_conversion_type := p5_a10;
319 ddp_sub_pool_rec.decision_status_code := p5_a11;
320 ddp_sub_pool_rec.subsidy_pool_id := rosetta_g_miss_num_map(p5_a12);
321 ddp_sub_pool_rec.reporting_pool_limit := rosetta_g_miss_num_map(p5_a13);
322 ddp_sub_pool_rec.total_budgets := rosetta_g_miss_num_map(p5_a14);
323 ddp_sub_pool_rec.total_subsidy_amount := rosetta_g_miss_num_map(p5_a15);
324 ddp_sub_pool_rec.decision_date := rosetta_g_miss_date_in_map(p5_a16);
325 ddp_sub_pool_rec.attribute_category := p5_a17;
326 ddp_sub_pool_rec.attribute1 := p5_a18;
327 ddp_sub_pool_rec.attribute2 := p5_a19;
328 ddp_sub_pool_rec.attribute3 := p5_a20;
329 ddp_sub_pool_rec.attribute4 := p5_a21;
330 ddp_sub_pool_rec.attribute5 := p5_a22;
331 ddp_sub_pool_rec.attribute6 := p5_a23;
332 ddp_sub_pool_rec.attribute7 := p5_a24;
333 ddp_sub_pool_rec.attribute8 := p5_a25;
334 ddp_sub_pool_rec.attribute9 := p5_a26;
335 ddp_sub_pool_rec.attribute10 := p5_a27;
336 ddp_sub_pool_rec.attribute11 := p5_a28;
337 ddp_sub_pool_rec.attribute12 := p5_a29;
338 ddp_sub_pool_rec.attribute13 := p5_a30;
339 ddp_sub_pool_rec.attribute14 := p5_a31;
340 ddp_sub_pool_rec.attribute15 := p5_a32;
341 ddp_sub_pool_rec.created_by := rosetta_g_miss_num_map(p5_a33);
342 ddp_sub_pool_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
343 ddp_sub_pool_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
344 ddp_sub_pool_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
345 ddp_sub_pool_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
346
347
348 -- here's the delegated call to the old PL/SQL routine
349 okl_subsidy_pool_pvt.update_sub_pool(p_api_version,
350 p_init_msg_list,
351 x_return_status,
352 x_msg_count,
353 x_msg_data,
354 ddp_sub_pool_rec,
355 ddx_sub_pool_rec);
356
357 -- copy data back from the local variables to OUT or IN-OUT args, if any
358
359
360
361
362
363
364 p6_a0 := rosetta_g_miss_num_map(ddx_sub_pool_rec.id);
365 p6_a1 := rosetta_g_miss_num_map(ddx_sub_pool_rec.object_version_number);
366 p6_a2 := ddx_sub_pool_rec.sfwt_flag;
367 p6_a3 := ddx_sub_pool_rec.pool_type_code;
368 p6_a4 := ddx_sub_pool_rec.subsidy_pool_name;
369 p6_a5 := ddx_sub_pool_rec.short_description;
370 p6_a6 := ddx_sub_pool_rec.description;
371 p6_a7 := ddx_sub_pool_rec.effective_from_date;
372 p6_a8 := ddx_sub_pool_rec.effective_to_date;
373 p6_a9 := ddx_sub_pool_rec.currency_code;
374 p6_a10 := ddx_sub_pool_rec.currency_conversion_type;
375 p6_a11 := ddx_sub_pool_rec.decision_status_code;
376 p6_a12 := rosetta_g_miss_num_map(ddx_sub_pool_rec.subsidy_pool_id);
377 p6_a13 := rosetta_g_miss_num_map(ddx_sub_pool_rec.reporting_pool_limit);
378 p6_a14 := rosetta_g_miss_num_map(ddx_sub_pool_rec.total_budgets);
379 p6_a15 := rosetta_g_miss_num_map(ddx_sub_pool_rec.total_subsidy_amount);
380 p6_a16 := ddx_sub_pool_rec.decision_date;
381 p6_a17 := ddx_sub_pool_rec.attribute_category;
382 p6_a18 := ddx_sub_pool_rec.attribute1;
383 p6_a19 := ddx_sub_pool_rec.attribute2;
384 p6_a20 := ddx_sub_pool_rec.attribute3;
385 p6_a21 := ddx_sub_pool_rec.attribute4;
386 p6_a22 := ddx_sub_pool_rec.attribute5;
387 p6_a23 := ddx_sub_pool_rec.attribute6;
388 p6_a24 := ddx_sub_pool_rec.attribute7;
389 p6_a25 := ddx_sub_pool_rec.attribute8;
390 p6_a26 := ddx_sub_pool_rec.attribute9;
391 p6_a27 := ddx_sub_pool_rec.attribute10;
392 p6_a28 := ddx_sub_pool_rec.attribute11;
393 p6_a29 := ddx_sub_pool_rec.attribute12;
394 p6_a30 := ddx_sub_pool_rec.attribute13;
395 p6_a31 := ddx_sub_pool_rec.attribute14;
396 p6_a32 := ddx_sub_pool_rec.attribute15;
397 p6_a33 := rosetta_g_miss_num_map(ddx_sub_pool_rec.created_by);
398 p6_a34 := ddx_sub_pool_rec.creation_date;
399 p6_a35 := rosetta_g_miss_num_map(ddx_sub_pool_rec.last_updated_by);
400 p6_a36 := ddx_sub_pool_rec.last_update_date;
401 p6_a37 := rosetta_g_miss_num_map(ddx_sub_pool_rec.last_update_login);
402 end;
403
404 procedure validate_sub_pool(p_api_version NUMBER
405 , p_init_msg_list VARCHAR2
406 , x_return_status out nocopy VARCHAR2
407 , x_msg_count out nocopy NUMBER
408 , x_msg_data out nocopy VARCHAR2
409 , p5_a0 NUMBER := 0-1962.0724
410 , p5_a1 NUMBER := 0-1962.0724
411 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
412 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
413 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
414 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
415 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
416 , p5_a7 DATE := fnd_api.g_miss_date
417 , p5_a8 DATE := fnd_api.g_miss_date
418 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
419 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
420 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
421 , p5_a12 NUMBER := 0-1962.0724
422 , p5_a13 NUMBER := 0-1962.0724
423 , p5_a14 NUMBER := 0-1962.0724
424 , p5_a15 NUMBER := 0-1962.0724
425 , p5_a16 DATE := fnd_api.g_miss_date
426 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
427 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
428 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
429 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
430 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
431 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
432 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
433 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
434 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
435 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
436 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
437 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
438 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
439 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
440 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
441 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
442 , p5_a33 NUMBER := 0-1962.0724
443 , p5_a34 DATE := fnd_api.g_miss_date
444 , p5_a35 NUMBER := 0-1962.0724
445 , p5_a36 DATE := fnd_api.g_miss_date
446 , p5_a37 NUMBER := 0-1962.0724
447 )
448
449 as
450 ddp_sub_pool_rec okl_subsidy_pool_pvt.subsidy_pool_rec;
451 ddindx binary_integer; indx binary_integer;
452 begin
453
454 -- copy data to the local IN or IN-OUT args, if any
455
456
457
458
459
460 ddp_sub_pool_rec.id := rosetta_g_miss_num_map(p5_a0);
461 ddp_sub_pool_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
462 ddp_sub_pool_rec.sfwt_flag := p5_a2;
463 ddp_sub_pool_rec.pool_type_code := p5_a3;
464 ddp_sub_pool_rec.subsidy_pool_name := p5_a4;
465 ddp_sub_pool_rec.short_description := p5_a5;
466 ddp_sub_pool_rec.description := p5_a6;
467 ddp_sub_pool_rec.effective_from_date := rosetta_g_miss_date_in_map(p5_a7);
468 ddp_sub_pool_rec.effective_to_date := rosetta_g_miss_date_in_map(p5_a8);
469 ddp_sub_pool_rec.currency_code := p5_a9;
470 ddp_sub_pool_rec.currency_conversion_type := p5_a10;
471 ddp_sub_pool_rec.decision_status_code := p5_a11;
472 ddp_sub_pool_rec.subsidy_pool_id := rosetta_g_miss_num_map(p5_a12);
473 ddp_sub_pool_rec.reporting_pool_limit := rosetta_g_miss_num_map(p5_a13);
474 ddp_sub_pool_rec.total_budgets := rosetta_g_miss_num_map(p5_a14);
475 ddp_sub_pool_rec.total_subsidy_amount := rosetta_g_miss_num_map(p5_a15);
476 ddp_sub_pool_rec.decision_date := rosetta_g_miss_date_in_map(p5_a16);
477 ddp_sub_pool_rec.attribute_category := p5_a17;
478 ddp_sub_pool_rec.attribute1 := p5_a18;
479 ddp_sub_pool_rec.attribute2 := p5_a19;
480 ddp_sub_pool_rec.attribute3 := p5_a20;
481 ddp_sub_pool_rec.attribute4 := p5_a21;
482 ddp_sub_pool_rec.attribute5 := p5_a22;
483 ddp_sub_pool_rec.attribute6 := p5_a23;
484 ddp_sub_pool_rec.attribute7 := p5_a24;
485 ddp_sub_pool_rec.attribute8 := p5_a25;
486 ddp_sub_pool_rec.attribute9 := p5_a26;
487 ddp_sub_pool_rec.attribute10 := p5_a27;
488 ddp_sub_pool_rec.attribute11 := p5_a28;
489 ddp_sub_pool_rec.attribute12 := p5_a29;
490 ddp_sub_pool_rec.attribute13 := p5_a30;
491 ddp_sub_pool_rec.attribute14 := p5_a31;
492 ddp_sub_pool_rec.attribute15 := p5_a32;
493 ddp_sub_pool_rec.created_by := rosetta_g_miss_num_map(p5_a33);
494 ddp_sub_pool_rec.creation_date := rosetta_g_miss_date_in_map(p5_a34);
495 ddp_sub_pool_rec.last_updated_by := rosetta_g_miss_num_map(p5_a35);
496 ddp_sub_pool_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a36);
497 ddp_sub_pool_rec.last_update_login := rosetta_g_miss_num_map(p5_a37);
498
499 -- here's the delegated call to the old PL/SQL routine
500 okl_subsidy_pool_pvt.validate_sub_pool(p_api_version,
501 p_init_msg_list,
502 x_return_status,
503 x_msg_count,
504 x_msg_data,
505 ddp_sub_pool_rec);
506
507 -- copy data back from the local variables to OUT or IN-OUT args, if any
508
509
510
511
512
513 end;
514
515 end okl_subsidy_pool_pvt_w;