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