[Home] [Help]
PACKAGE BODY: APPS.OKL_SUBSIDY_POOL_BUDGET_PVT_W
Source
1 package body okl_subsidy_pool_budget_pvt_w as
2 /* $Header: OKLESIBB.pls 120.1 2005/10/30 03:16:42 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_budget_line(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p5_a0 JTF_NUMBER_TABLE
28 , p5_a1 JTF_NUMBER_TABLE
29 , p5_a2 JTF_VARCHAR2_TABLE_100
30 , p5_a3 JTF_VARCHAR2_TABLE_200
31 , p5_a4 JTF_VARCHAR2_TABLE_100
32 , p5_a5 JTF_DATE_TABLE
33 , p5_a6 JTF_VARCHAR2_TABLE_100
34 , p5_a7 JTF_NUMBER_TABLE
35 , p5_a8 JTF_NUMBER_TABLE
36 , p5_a9 JTF_DATE_TABLE
37 , p5_a10 JTF_VARCHAR2_TABLE_100
38 , p5_a11 JTF_VARCHAR2_TABLE_500
39 , p5_a12 JTF_VARCHAR2_TABLE_500
40 , p5_a13 JTF_VARCHAR2_TABLE_500
41 , p5_a14 JTF_VARCHAR2_TABLE_500
42 , p5_a15 JTF_VARCHAR2_TABLE_500
43 , p5_a16 JTF_VARCHAR2_TABLE_500
44 , p5_a17 JTF_VARCHAR2_TABLE_500
45 , p5_a18 JTF_VARCHAR2_TABLE_500
46 , p5_a19 JTF_VARCHAR2_TABLE_500
47 , p5_a20 JTF_VARCHAR2_TABLE_500
48 , p5_a21 JTF_VARCHAR2_TABLE_500
49 , p5_a22 JTF_VARCHAR2_TABLE_500
50 , p5_a23 JTF_VARCHAR2_TABLE_500
51 , p5_a24 JTF_VARCHAR2_TABLE_500
52 , p5_a25 JTF_VARCHAR2_TABLE_500
53 , p5_a26 JTF_NUMBER_TABLE
54 , p5_a27 JTF_DATE_TABLE
55 , p5_a28 JTF_NUMBER_TABLE
56 , p5_a29 JTF_DATE_TABLE
57 , p5_a30 JTF_NUMBER_TABLE
58 , p6_a0 out nocopy JTF_NUMBER_TABLE
59 , p6_a1 out nocopy JTF_NUMBER_TABLE
60 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
61 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
62 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
63 , p6_a5 out nocopy JTF_DATE_TABLE
64 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
65 , p6_a7 out nocopy JTF_NUMBER_TABLE
66 , p6_a8 out nocopy JTF_NUMBER_TABLE
67 , p6_a9 out nocopy JTF_DATE_TABLE
68 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
69 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
70 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
71 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
72 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
73 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
74 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
75 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
76 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
77 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
78 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
79 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
80 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
81 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
82 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
83 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
84 , p6_a26 out nocopy JTF_NUMBER_TABLE
85 , p6_a27 out nocopy JTF_DATE_TABLE
86 , p6_a28 out nocopy JTF_NUMBER_TABLE
87 , p6_a29 out nocopy JTF_DATE_TABLE
88 , p6_a30 out nocopy JTF_NUMBER_TABLE
89 )
90
91 as
92 ddp_budget_line_tbl okl_subsidy_pool_budget_pvt.budget_line_tbl;
93 ddx_budget_line_tbl okl_subsidy_pool_budget_pvt.budget_line_tbl;
94 ddindx binary_integer; indx binary_integer;
95 begin
96
97 -- copy data to the local IN or IN-OUT args, if any
98
99
100
101
102
103 okl_sib_pvt_w.rosetta_table_copy_in_p2(ddp_budget_line_tbl, p5_a0
104 , p5_a1
105 , p5_a2
106 , p5_a3
107 , p5_a4
108 , p5_a5
109 , p5_a6
110 , p5_a7
111 , p5_a8
112 , p5_a9
113 , p5_a10
114 , p5_a11
115 , p5_a12
116 , p5_a13
117 , p5_a14
118 , p5_a15
119 , p5_a16
120 , p5_a17
121 , p5_a18
122 , p5_a19
123 , p5_a20
124 , p5_a21
125 , p5_a22
126 , p5_a23
127 , p5_a24
128 , p5_a25
129 , p5_a26
130 , p5_a27
131 , p5_a28
132 , p5_a29
133 , p5_a30
134 );
135
136
137 -- here's the delegated call to the old PL/SQL routine
138 okl_subsidy_pool_budget_pvt.create_budget_line(p_api_version,
139 p_init_msg_list,
140 x_return_status,
141 x_msg_count,
142 x_msg_data,
143 ddp_budget_line_tbl,
144 ddx_budget_line_tbl);
145
146 -- copy data back from the local variables to OUT or IN-OUT args, if any
147
148
149
150
151
152
153 okl_sib_pvt_w.rosetta_table_copy_out_p2(ddx_budget_line_tbl, p6_a0
154 , p6_a1
155 , p6_a2
156 , p6_a3
157 , p6_a4
158 , p6_a5
159 , p6_a6
160 , p6_a7
161 , p6_a8
162 , p6_a9
163 , p6_a10
164 , p6_a11
165 , p6_a12
166 , p6_a13
167 , p6_a14
168 , p6_a15
169 , p6_a16
170 , p6_a17
171 , p6_a18
172 , p6_a19
173 , p6_a20
174 , p6_a21
175 , p6_a22
176 , p6_a23
177 , p6_a24
178 , p6_a25
179 , p6_a26
180 , p6_a27
181 , p6_a28
182 , p6_a29
183 , p6_a30
184 );
185 end;
186
187 procedure update_budget_line(p_api_version NUMBER
188 , p_init_msg_list VARCHAR2
189 , x_return_status out nocopy VARCHAR2
190 , x_msg_count out nocopy NUMBER
191 , x_msg_data out nocopy VARCHAR2
192 , p5_a0 JTF_NUMBER_TABLE
193 , p5_a1 JTF_NUMBER_TABLE
194 , p5_a2 JTF_VARCHAR2_TABLE_100
195 , p5_a3 JTF_VARCHAR2_TABLE_200
196 , p5_a4 JTF_VARCHAR2_TABLE_100
197 , p5_a5 JTF_DATE_TABLE
198 , p5_a6 JTF_VARCHAR2_TABLE_100
199 , p5_a7 JTF_NUMBER_TABLE
200 , p5_a8 JTF_NUMBER_TABLE
201 , p5_a9 JTF_DATE_TABLE
202 , p5_a10 JTF_VARCHAR2_TABLE_100
203 , p5_a11 JTF_VARCHAR2_TABLE_500
204 , p5_a12 JTF_VARCHAR2_TABLE_500
205 , p5_a13 JTF_VARCHAR2_TABLE_500
206 , p5_a14 JTF_VARCHAR2_TABLE_500
207 , p5_a15 JTF_VARCHAR2_TABLE_500
208 , p5_a16 JTF_VARCHAR2_TABLE_500
209 , p5_a17 JTF_VARCHAR2_TABLE_500
210 , p5_a18 JTF_VARCHAR2_TABLE_500
211 , p5_a19 JTF_VARCHAR2_TABLE_500
212 , p5_a20 JTF_VARCHAR2_TABLE_500
213 , p5_a21 JTF_VARCHAR2_TABLE_500
214 , p5_a22 JTF_VARCHAR2_TABLE_500
215 , p5_a23 JTF_VARCHAR2_TABLE_500
216 , p5_a24 JTF_VARCHAR2_TABLE_500
217 , p5_a25 JTF_VARCHAR2_TABLE_500
218 , p5_a26 JTF_NUMBER_TABLE
219 , p5_a27 JTF_DATE_TABLE
220 , p5_a28 JTF_NUMBER_TABLE
221 , p5_a29 JTF_DATE_TABLE
222 , p5_a30 JTF_NUMBER_TABLE
223 , p6_a0 out nocopy JTF_NUMBER_TABLE
224 , p6_a1 out nocopy JTF_NUMBER_TABLE
225 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
226 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
227 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
228 , p6_a5 out nocopy JTF_DATE_TABLE
229 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
230 , p6_a7 out nocopy JTF_NUMBER_TABLE
231 , p6_a8 out nocopy JTF_NUMBER_TABLE
232 , p6_a9 out nocopy JTF_DATE_TABLE
233 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
234 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
235 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
236 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
237 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
238 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
239 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
240 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
241 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
242 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
243 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
244 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
245 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
246 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
247 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
248 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
249 , p6_a26 out nocopy JTF_NUMBER_TABLE
250 , p6_a27 out nocopy JTF_DATE_TABLE
251 , p6_a28 out nocopy JTF_NUMBER_TABLE
252 , p6_a29 out nocopy JTF_DATE_TABLE
253 , p6_a30 out nocopy JTF_NUMBER_TABLE
254 )
255
256 as
257 ddp_budget_line_tbl okl_subsidy_pool_budget_pvt.budget_line_tbl;
258 ddx_budget_line_tbl okl_subsidy_pool_budget_pvt.budget_line_tbl;
259 ddindx binary_integer; indx binary_integer;
260 begin
261
262 -- copy data to the local IN or IN-OUT args, if any
263
264
265
266
267
268 okl_sib_pvt_w.rosetta_table_copy_in_p2(ddp_budget_line_tbl, p5_a0
269 , p5_a1
270 , p5_a2
271 , p5_a3
272 , p5_a4
273 , p5_a5
274 , p5_a6
275 , p5_a7
276 , p5_a8
277 , p5_a9
278 , p5_a10
279 , p5_a11
280 , p5_a12
281 , p5_a13
282 , p5_a14
283 , p5_a15
284 , p5_a16
285 , p5_a17
286 , p5_a18
287 , p5_a19
288 , p5_a20
289 , p5_a21
290 , p5_a22
291 , p5_a23
292 , p5_a24
293 , p5_a25
294 , p5_a26
295 , p5_a27
296 , p5_a28
297 , p5_a29
298 , p5_a30
299 );
300
301
302 -- here's the delegated call to the old PL/SQL routine
303 okl_subsidy_pool_budget_pvt.update_budget_line(p_api_version,
304 p_init_msg_list,
305 x_return_status,
306 x_msg_count,
307 x_msg_data,
308 ddp_budget_line_tbl,
309 ddx_budget_line_tbl);
310
311 -- copy data back from the local variables to OUT or IN-OUT args, if any
312
313
314
315
316
317
318 okl_sib_pvt_w.rosetta_table_copy_out_p2(ddx_budget_line_tbl, p6_a0
319 , p6_a1
320 , p6_a2
321 , p6_a3
322 , p6_a4
323 , p6_a5
324 , p6_a6
325 , p6_a7
326 , p6_a8
327 , p6_a9
328 , p6_a10
329 , p6_a11
330 , p6_a12
331 , p6_a13
332 , p6_a14
333 , p6_a15
334 , p6_a16
335 , p6_a17
336 , p6_a18
337 , p6_a19
338 , p6_a20
339 , p6_a21
340 , p6_a22
341 , p6_a23
342 , p6_a24
343 , p6_a25
344 , p6_a26
345 , p6_a27
346 , p6_a28
347 , p6_a29
348 , p6_a30
349 );
350 end;
351
352 procedure validate_budget_line(p_api_version NUMBER
353 , p_init_msg_list VARCHAR2
354 , x_return_status out nocopy VARCHAR2
355 , x_msg_count out nocopy NUMBER
356 , x_msg_data out nocopy VARCHAR2
357 , p5_a0 JTF_NUMBER_TABLE
358 , p5_a1 JTF_NUMBER_TABLE
359 , p5_a2 JTF_VARCHAR2_TABLE_100
360 , p5_a3 JTF_VARCHAR2_TABLE_200
361 , p5_a4 JTF_VARCHAR2_TABLE_100
362 , p5_a5 JTF_DATE_TABLE
363 , p5_a6 JTF_VARCHAR2_TABLE_100
364 , p5_a7 JTF_NUMBER_TABLE
365 , p5_a8 JTF_NUMBER_TABLE
366 , p5_a9 JTF_DATE_TABLE
367 , p5_a10 JTF_VARCHAR2_TABLE_100
368 , p5_a11 JTF_VARCHAR2_TABLE_500
369 , p5_a12 JTF_VARCHAR2_TABLE_500
370 , p5_a13 JTF_VARCHAR2_TABLE_500
371 , p5_a14 JTF_VARCHAR2_TABLE_500
372 , p5_a15 JTF_VARCHAR2_TABLE_500
373 , p5_a16 JTF_VARCHAR2_TABLE_500
374 , p5_a17 JTF_VARCHAR2_TABLE_500
375 , p5_a18 JTF_VARCHAR2_TABLE_500
376 , p5_a19 JTF_VARCHAR2_TABLE_500
377 , p5_a20 JTF_VARCHAR2_TABLE_500
378 , p5_a21 JTF_VARCHAR2_TABLE_500
379 , p5_a22 JTF_VARCHAR2_TABLE_500
380 , p5_a23 JTF_VARCHAR2_TABLE_500
381 , p5_a24 JTF_VARCHAR2_TABLE_500
382 , p5_a25 JTF_VARCHAR2_TABLE_500
383 , p5_a26 JTF_NUMBER_TABLE
384 , p5_a27 JTF_DATE_TABLE
385 , p5_a28 JTF_NUMBER_TABLE
386 , p5_a29 JTF_DATE_TABLE
387 , p5_a30 JTF_NUMBER_TABLE
388 )
389
390 as
391 ddp_budget_line_tbl okl_subsidy_pool_budget_pvt.budget_line_tbl;
392 ddindx binary_integer; indx binary_integer;
393 begin
394
395 -- copy data to the local IN or IN-OUT args, if any
396
397
398
399
400
401 okl_sib_pvt_w.rosetta_table_copy_in_p2(ddp_budget_line_tbl, p5_a0
402 , p5_a1
403 , p5_a2
404 , p5_a3
405 , p5_a4
406 , p5_a5
407 , p5_a6
408 , p5_a7
409 , p5_a8
410 , p5_a9
411 , p5_a10
412 , p5_a11
413 , p5_a12
414 , p5_a13
415 , p5_a14
416 , p5_a15
417 , p5_a16
418 , p5_a17
419 , p5_a18
420 , p5_a19
421 , p5_a20
422 , p5_a21
423 , p5_a22
424 , p5_a23
425 , p5_a24
426 , p5_a25
427 , p5_a26
428 , p5_a27
429 , p5_a28
430 , p5_a29
431 , p5_a30
432 );
433
434 -- here's the delegated call to the old PL/SQL routine
435 okl_subsidy_pool_budget_pvt.validate_budget_line(p_api_version,
436 p_init_msg_list,
437 x_return_status,
438 x_msg_count,
439 x_msg_data,
440 ddp_budget_line_tbl);
441
442 -- copy data back from the local variables to OUT or IN-OUT args, if any
443
444
445
446
447
448 end;
449
450 end okl_subsidy_pool_budget_pvt_w;