[Home] [Help]
PACKAGE BODY: APPS.OKL_SIB_PVT_W
Source
1 package body okl_sib_pvt_w as
2 /* $Header: OKLISIBB.pls 120.1 2005/10/30 04:00:56 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 rosetta_table_copy_in_p2(t out nocopy okl_sib_pvt.sibv_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_VARCHAR2_TABLE_100
25 , a3 JTF_VARCHAR2_TABLE_200
26 , a4 JTF_VARCHAR2_TABLE_100
27 , a5 JTF_DATE_TABLE
28 , a6 JTF_VARCHAR2_TABLE_100
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_NUMBER_TABLE
31 , a9 JTF_DATE_TABLE
32 , a10 JTF_VARCHAR2_TABLE_100
33 , a11 JTF_VARCHAR2_TABLE_500
34 , a12 JTF_VARCHAR2_TABLE_500
35 , a13 JTF_VARCHAR2_TABLE_500
36 , a14 JTF_VARCHAR2_TABLE_500
37 , a15 JTF_VARCHAR2_TABLE_500
38 , a16 JTF_VARCHAR2_TABLE_500
39 , a17 JTF_VARCHAR2_TABLE_500
40 , a18 JTF_VARCHAR2_TABLE_500
41 , a19 JTF_VARCHAR2_TABLE_500
42 , a20 JTF_VARCHAR2_TABLE_500
43 , a21 JTF_VARCHAR2_TABLE_500
44 , a22 JTF_VARCHAR2_TABLE_500
45 , a23 JTF_VARCHAR2_TABLE_500
46 , a24 JTF_VARCHAR2_TABLE_500
47 , a25 JTF_VARCHAR2_TABLE_500
48 , a26 JTF_NUMBER_TABLE
49 , a27 JTF_DATE_TABLE
50 , a28 JTF_NUMBER_TABLE
51 , a29 JTF_DATE_TABLE
52 , a30 JTF_NUMBER_TABLE
53 ) as
54 ddindx binary_integer; indx binary_integer;
55 begin
56 if a0 is not null and a0.count > 0 then
57 if a0.count > 0 then
58 indx := a0.first;
59 ddindx := 1;
60 while true loop
61 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
62 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
63 t(ddindx).sfwt_flag := a2(indx);
64 t(ddindx).note := a3(indx);
65 t(ddindx).budget_type_code := a4(indx);
66 t(ddindx).effective_from_date := rosetta_g_miss_date_in_map(a5(indx));
67 t(ddindx).decision_status_code := a6(indx);
68 t(ddindx).budget_amount := rosetta_g_miss_num_map(a7(indx));
69 t(ddindx).subsidy_pool_id := rosetta_g_miss_num_map(a8(indx));
70 t(ddindx).decision_date := rosetta_g_miss_date_in_map(a9(indx));
71 t(ddindx).attribute_category := a10(indx);
72 t(ddindx).attribute1 := a11(indx);
73 t(ddindx).attribute2 := a12(indx);
74 t(ddindx).attribute3 := a13(indx);
75 t(ddindx).attribute4 := a14(indx);
76 t(ddindx).attribute5 := a15(indx);
77 t(ddindx).attribute6 := a16(indx);
78 t(ddindx).attribute7 := a17(indx);
79 t(ddindx).attribute8 := a18(indx);
80 t(ddindx).attribute9 := a19(indx);
81 t(ddindx).attribute10 := a20(indx);
82 t(ddindx).attribute11 := a21(indx);
83 t(ddindx).attribute12 := a22(indx);
84 t(ddindx).attribute13 := a23(indx);
85 t(ddindx).attribute14 := a24(indx);
86 t(ddindx).attribute15 := a25(indx);
87 t(ddindx).created_by := rosetta_g_miss_num_map(a26(indx));
88 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a27(indx));
89 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a28(indx));
90 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a29(indx));
91 t(ddindx).last_update_login := rosetta_g_miss_num_map(a30(indx));
92 ddindx := ddindx+1;
93 if a0.last =indx
94 then exit;
95 end if;
96 indx := a0.next(indx);
97 end loop;
98 end if;
99 end if;
100 end rosetta_table_copy_in_p2;
101 procedure rosetta_table_copy_out_p2(t okl_sib_pvt.sibv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
102 , a1 out nocopy JTF_NUMBER_TABLE
103 , a2 out nocopy JTF_VARCHAR2_TABLE_100
104 , a3 out nocopy JTF_VARCHAR2_TABLE_200
105 , a4 out nocopy JTF_VARCHAR2_TABLE_100
106 , a5 out nocopy JTF_DATE_TABLE
107 , a6 out nocopy JTF_VARCHAR2_TABLE_100
108 , a7 out nocopy JTF_NUMBER_TABLE
109 , a8 out nocopy JTF_NUMBER_TABLE
110 , a9 out nocopy JTF_DATE_TABLE
111 , a10 out nocopy JTF_VARCHAR2_TABLE_100
112 , a11 out nocopy JTF_VARCHAR2_TABLE_500
113 , a12 out nocopy JTF_VARCHAR2_TABLE_500
114 , a13 out nocopy JTF_VARCHAR2_TABLE_500
115 , a14 out nocopy JTF_VARCHAR2_TABLE_500
116 , a15 out nocopy JTF_VARCHAR2_TABLE_500
117 , a16 out nocopy JTF_VARCHAR2_TABLE_500
118 , a17 out nocopy JTF_VARCHAR2_TABLE_500
119 , a18 out nocopy JTF_VARCHAR2_TABLE_500
120 , a19 out nocopy JTF_VARCHAR2_TABLE_500
121 , a20 out nocopy JTF_VARCHAR2_TABLE_500
122 , a21 out nocopy JTF_VARCHAR2_TABLE_500
123 , a22 out nocopy JTF_VARCHAR2_TABLE_500
124 , a23 out nocopy JTF_VARCHAR2_TABLE_500
125 , a24 out nocopy JTF_VARCHAR2_TABLE_500
126 , a25 out nocopy JTF_VARCHAR2_TABLE_500
127 , a26 out nocopy JTF_NUMBER_TABLE
128 , a27 out nocopy JTF_DATE_TABLE
129 , a28 out nocopy JTF_NUMBER_TABLE
130 , a29 out nocopy JTF_DATE_TABLE
131 , a30 out nocopy JTF_NUMBER_TABLE
132 ) as
133 ddindx binary_integer; indx binary_integer;
134 begin
135 if t is null or t.count = 0 then
136 a0 := JTF_NUMBER_TABLE();
137 a1 := JTF_NUMBER_TABLE();
138 a2 := JTF_VARCHAR2_TABLE_100();
139 a3 := JTF_VARCHAR2_TABLE_200();
140 a4 := JTF_VARCHAR2_TABLE_100();
141 a5 := JTF_DATE_TABLE();
142 a6 := JTF_VARCHAR2_TABLE_100();
143 a7 := JTF_NUMBER_TABLE();
144 a8 := JTF_NUMBER_TABLE();
145 a9 := JTF_DATE_TABLE();
146 a10 := JTF_VARCHAR2_TABLE_100();
147 a11 := JTF_VARCHAR2_TABLE_500();
148 a12 := JTF_VARCHAR2_TABLE_500();
149 a13 := JTF_VARCHAR2_TABLE_500();
150 a14 := JTF_VARCHAR2_TABLE_500();
151 a15 := JTF_VARCHAR2_TABLE_500();
152 a16 := JTF_VARCHAR2_TABLE_500();
153 a17 := JTF_VARCHAR2_TABLE_500();
154 a18 := JTF_VARCHAR2_TABLE_500();
155 a19 := JTF_VARCHAR2_TABLE_500();
156 a20 := JTF_VARCHAR2_TABLE_500();
157 a21 := JTF_VARCHAR2_TABLE_500();
158 a22 := JTF_VARCHAR2_TABLE_500();
159 a23 := JTF_VARCHAR2_TABLE_500();
160 a24 := JTF_VARCHAR2_TABLE_500();
161 a25 := JTF_VARCHAR2_TABLE_500();
162 a26 := JTF_NUMBER_TABLE();
163 a27 := JTF_DATE_TABLE();
164 a28 := JTF_NUMBER_TABLE();
165 a29 := JTF_DATE_TABLE();
166 a30 := JTF_NUMBER_TABLE();
167 else
168 a0 := JTF_NUMBER_TABLE();
169 a1 := JTF_NUMBER_TABLE();
170 a2 := JTF_VARCHAR2_TABLE_100();
171 a3 := JTF_VARCHAR2_TABLE_200();
172 a4 := JTF_VARCHAR2_TABLE_100();
173 a5 := JTF_DATE_TABLE();
174 a6 := JTF_VARCHAR2_TABLE_100();
175 a7 := JTF_NUMBER_TABLE();
176 a8 := JTF_NUMBER_TABLE();
177 a9 := JTF_DATE_TABLE();
178 a10 := JTF_VARCHAR2_TABLE_100();
179 a11 := JTF_VARCHAR2_TABLE_500();
180 a12 := JTF_VARCHAR2_TABLE_500();
181 a13 := JTF_VARCHAR2_TABLE_500();
182 a14 := JTF_VARCHAR2_TABLE_500();
183 a15 := JTF_VARCHAR2_TABLE_500();
184 a16 := JTF_VARCHAR2_TABLE_500();
185 a17 := JTF_VARCHAR2_TABLE_500();
186 a18 := JTF_VARCHAR2_TABLE_500();
187 a19 := JTF_VARCHAR2_TABLE_500();
188 a20 := JTF_VARCHAR2_TABLE_500();
189 a21 := JTF_VARCHAR2_TABLE_500();
190 a22 := JTF_VARCHAR2_TABLE_500();
191 a23 := JTF_VARCHAR2_TABLE_500();
192 a24 := JTF_VARCHAR2_TABLE_500();
193 a25 := JTF_VARCHAR2_TABLE_500();
194 a26 := JTF_NUMBER_TABLE();
195 a27 := JTF_DATE_TABLE();
196 a28 := JTF_NUMBER_TABLE();
197 a29 := JTF_DATE_TABLE();
198 a30 := JTF_NUMBER_TABLE();
199 if t.count > 0 then
200 a0.extend(t.count);
201 a1.extend(t.count);
202 a2.extend(t.count);
203 a3.extend(t.count);
204 a4.extend(t.count);
205 a5.extend(t.count);
206 a6.extend(t.count);
207 a7.extend(t.count);
208 a8.extend(t.count);
209 a9.extend(t.count);
210 a10.extend(t.count);
211 a11.extend(t.count);
212 a12.extend(t.count);
213 a13.extend(t.count);
214 a14.extend(t.count);
215 a15.extend(t.count);
216 a16.extend(t.count);
217 a17.extend(t.count);
218 a18.extend(t.count);
219 a19.extend(t.count);
220 a20.extend(t.count);
221 a21.extend(t.count);
222 a22.extend(t.count);
223 a23.extend(t.count);
224 a24.extend(t.count);
225 a25.extend(t.count);
226 a26.extend(t.count);
227 a27.extend(t.count);
228 a28.extend(t.count);
229 a29.extend(t.count);
230 a30.extend(t.count);
231 ddindx := t.first;
232 indx := 1;
233 while true loop
234 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
235 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
236 a2(indx) := t(ddindx).sfwt_flag;
237 a3(indx) := t(ddindx).note;
238 a4(indx) := t(ddindx).budget_type_code;
239 a5(indx) := t(ddindx).effective_from_date;
240 a6(indx) := t(ddindx).decision_status_code;
241 a7(indx) := rosetta_g_miss_num_map(t(ddindx).budget_amount);
242 a8(indx) := rosetta_g_miss_num_map(t(ddindx).subsidy_pool_id);
243 a9(indx) := t(ddindx).decision_date;
244 a10(indx) := t(ddindx).attribute_category;
245 a11(indx) := t(ddindx).attribute1;
246 a12(indx) := t(ddindx).attribute2;
247 a13(indx) := t(ddindx).attribute3;
248 a14(indx) := t(ddindx).attribute4;
249 a15(indx) := t(ddindx).attribute5;
250 a16(indx) := t(ddindx).attribute6;
251 a17(indx) := t(ddindx).attribute7;
252 a18(indx) := t(ddindx).attribute8;
253 a19(indx) := t(ddindx).attribute9;
254 a20(indx) := t(ddindx).attribute10;
255 a21(indx) := t(ddindx).attribute11;
256 a22(indx) := t(ddindx).attribute12;
257 a23(indx) := t(ddindx).attribute13;
258 a24(indx) := t(ddindx).attribute14;
259 a25(indx) := t(ddindx).attribute15;
260 a26(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
261 a27(indx) := t(ddindx).creation_date;
262 a28(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
263 a29(indx) := t(ddindx).last_update_date;
264 a30(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
265 indx := indx+1;
266 if t.last =ddindx
267 then exit;
268 end if;
269 ddindx := t.next(ddindx);
270 end loop;
271 end if;
272 end if;
273 end rosetta_table_copy_out_p2;
274
275 procedure rosetta_table_copy_in_p5(t out nocopy okl_sib_pvt.sib_tbl_type, a0 JTF_NUMBER_TABLE
276 , a1 JTF_NUMBER_TABLE
277 , a2 JTF_VARCHAR2_TABLE_100
278 , a3 JTF_DATE_TABLE
279 , a4 JTF_VARCHAR2_TABLE_100
280 , a5 JTF_NUMBER_TABLE
281 , a6 JTF_VARCHAR2_TABLE_200
282 , a7 JTF_NUMBER_TABLE
283 , a8 JTF_DATE_TABLE
284 , a9 JTF_VARCHAR2_TABLE_100
285 , a10 JTF_VARCHAR2_TABLE_500
286 , a11 JTF_VARCHAR2_TABLE_500
287 , a12 JTF_VARCHAR2_TABLE_500
288 , a13 JTF_VARCHAR2_TABLE_500
289 , a14 JTF_VARCHAR2_TABLE_500
290 , a15 JTF_VARCHAR2_TABLE_500
291 , a16 JTF_VARCHAR2_TABLE_500
292 , a17 JTF_VARCHAR2_TABLE_500
293 , a18 JTF_VARCHAR2_TABLE_500
294 , a19 JTF_VARCHAR2_TABLE_500
295 , a20 JTF_VARCHAR2_TABLE_500
296 , a21 JTF_VARCHAR2_TABLE_500
297 , a22 JTF_VARCHAR2_TABLE_500
298 , a23 JTF_VARCHAR2_TABLE_500
299 , a24 JTF_VARCHAR2_TABLE_500
300 , a25 JTF_NUMBER_TABLE
301 , a26 JTF_DATE_TABLE
302 , a27 JTF_NUMBER_TABLE
303 , a28 JTF_DATE_TABLE
304 , a29 JTF_NUMBER_TABLE
305 ) as
306 ddindx binary_integer; indx binary_integer;
307 begin
308 if a0 is not null and a0.count > 0 then
309 if a0.count > 0 then
310 indx := a0.first;
311 ddindx := 1;
312 while true loop
313 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
314 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
315 t(ddindx).budget_type_code := a2(indx);
316 t(ddindx).effective_from_date := rosetta_g_miss_date_in_map(a3(indx));
317 t(ddindx).decision_status_code := a4(indx);
318 t(ddindx).budget_amount := rosetta_g_miss_num_map(a5(indx));
319 t(ddindx).note := a6(indx);
320 t(ddindx).subsidy_pool_id := rosetta_g_miss_num_map(a7(indx));
321 t(ddindx).decision_date := rosetta_g_miss_date_in_map(a8(indx));
322 t(ddindx).attribute_category := a9(indx);
323 t(ddindx).attribute1 := a10(indx);
324 t(ddindx).attribute2 := a11(indx);
325 t(ddindx).attribute3 := a12(indx);
326 t(ddindx).attribute4 := a13(indx);
327 t(ddindx).attribute5 := a14(indx);
328 t(ddindx).attribute6 := a15(indx);
329 t(ddindx).attribute7 := a16(indx);
330 t(ddindx).attribute8 := a17(indx);
331 t(ddindx).attribute9 := a18(indx);
332 t(ddindx).attribute10 := a19(indx);
333 t(ddindx).attribute11 := a20(indx);
334 t(ddindx).attribute12 := a21(indx);
335 t(ddindx).attribute13 := a22(indx);
336 t(ddindx).attribute14 := a23(indx);
337 t(ddindx).attribute15 := a24(indx);
338 t(ddindx).created_by := rosetta_g_miss_num_map(a25(indx));
339 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a26(indx));
340 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a27(indx));
341 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a28(indx));
342 t(ddindx).last_update_login := rosetta_g_miss_num_map(a29(indx));
343 ddindx := ddindx+1;
344 if a0.last =indx
345 then exit;
346 end if;
347 indx := a0.next(indx);
348 end loop;
349 end if;
350 end if;
351 end rosetta_table_copy_in_p5;
352 procedure rosetta_table_copy_out_p5(t okl_sib_pvt.sib_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
353 , a1 out nocopy JTF_NUMBER_TABLE
354 , a2 out nocopy JTF_VARCHAR2_TABLE_100
355 , a3 out nocopy JTF_DATE_TABLE
356 , a4 out nocopy JTF_VARCHAR2_TABLE_100
357 , a5 out nocopy JTF_NUMBER_TABLE
358 , a6 out nocopy JTF_VARCHAR2_TABLE_200
359 , a7 out nocopy JTF_NUMBER_TABLE
360 , a8 out nocopy JTF_DATE_TABLE
361 , a9 out nocopy JTF_VARCHAR2_TABLE_100
362 , a10 out nocopy JTF_VARCHAR2_TABLE_500
363 , a11 out nocopy JTF_VARCHAR2_TABLE_500
364 , a12 out nocopy JTF_VARCHAR2_TABLE_500
365 , a13 out nocopy JTF_VARCHAR2_TABLE_500
366 , a14 out nocopy JTF_VARCHAR2_TABLE_500
367 , a15 out nocopy JTF_VARCHAR2_TABLE_500
368 , a16 out nocopy JTF_VARCHAR2_TABLE_500
369 , a17 out nocopy JTF_VARCHAR2_TABLE_500
370 , a18 out nocopy JTF_VARCHAR2_TABLE_500
371 , a19 out nocopy JTF_VARCHAR2_TABLE_500
372 , a20 out nocopy JTF_VARCHAR2_TABLE_500
373 , a21 out nocopy JTF_VARCHAR2_TABLE_500
374 , a22 out nocopy JTF_VARCHAR2_TABLE_500
375 , a23 out nocopy JTF_VARCHAR2_TABLE_500
376 , a24 out nocopy JTF_VARCHAR2_TABLE_500
377 , a25 out nocopy JTF_NUMBER_TABLE
378 , a26 out nocopy JTF_DATE_TABLE
379 , a27 out nocopy JTF_NUMBER_TABLE
380 , a28 out nocopy JTF_DATE_TABLE
381 , a29 out nocopy JTF_NUMBER_TABLE
382 ) as
383 ddindx binary_integer; indx binary_integer;
384 begin
385 if t is null or t.count = 0 then
386 a0 := JTF_NUMBER_TABLE();
387 a1 := JTF_NUMBER_TABLE();
388 a2 := JTF_VARCHAR2_TABLE_100();
389 a3 := JTF_DATE_TABLE();
390 a4 := JTF_VARCHAR2_TABLE_100();
391 a5 := JTF_NUMBER_TABLE();
392 a6 := JTF_VARCHAR2_TABLE_200();
393 a7 := JTF_NUMBER_TABLE();
394 a8 := JTF_DATE_TABLE();
395 a9 := JTF_VARCHAR2_TABLE_100();
396 a10 := JTF_VARCHAR2_TABLE_500();
397 a11 := JTF_VARCHAR2_TABLE_500();
398 a12 := JTF_VARCHAR2_TABLE_500();
399 a13 := JTF_VARCHAR2_TABLE_500();
400 a14 := JTF_VARCHAR2_TABLE_500();
401 a15 := JTF_VARCHAR2_TABLE_500();
402 a16 := JTF_VARCHAR2_TABLE_500();
403 a17 := JTF_VARCHAR2_TABLE_500();
404 a18 := JTF_VARCHAR2_TABLE_500();
405 a19 := JTF_VARCHAR2_TABLE_500();
406 a20 := JTF_VARCHAR2_TABLE_500();
407 a21 := JTF_VARCHAR2_TABLE_500();
408 a22 := JTF_VARCHAR2_TABLE_500();
412 a26 := JTF_DATE_TABLE();
409 a23 := JTF_VARCHAR2_TABLE_500();
410 a24 := JTF_VARCHAR2_TABLE_500();
411 a25 := JTF_NUMBER_TABLE();
413 a27 := JTF_NUMBER_TABLE();
414 a28 := JTF_DATE_TABLE();
415 a29 := JTF_NUMBER_TABLE();
416 else
417 a0 := JTF_NUMBER_TABLE();
418 a1 := JTF_NUMBER_TABLE();
419 a2 := JTF_VARCHAR2_TABLE_100();
420 a3 := JTF_DATE_TABLE();
421 a4 := JTF_VARCHAR2_TABLE_100();
422 a5 := JTF_NUMBER_TABLE();
423 a6 := JTF_VARCHAR2_TABLE_200();
424 a7 := JTF_NUMBER_TABLE();
425 a8 := JTF_DATE_TABLE();
426 a9 := JTF_VARCHAR2_TABLE_100();
427 a10 := JTF_VARCHAR2_TABLE_500();
428 a11 := JTF_VARCHAR2_TABLE_500();
429 a12 := JTF_VARCHAR2_TABLE_500();
430 a13 := JTF_VARCHAR2_TABLE_500();
431 a14 := JTF_VARCHAR2_TABLE_500();
432 a15 := JTF_VARCHAR2_TABLE_500();
433 a16 := JTF_VARCHAR2_TABLE_500();
434 a17 := JTF_VARCHAR2_TABLE_500();
435 a18 := JTF_VARCHAR2_TABLE_500();
436 a19 := JTF_VARCHAR2_TABLE_500();
437 a20 := JTF_VARCHAR2_TABLE_500();
438 a21 := JTF_VARCHAR2_TABLE_500();
439 a22 := JTF_VARCHAR2_TABLE_500();
440 a23 := JTF_VARCHAR2_TABLE_500();
441 a24 := JTF_VARCHAR2_TABLE_500();
442 a25 := JTF_NUMBER_TABLE();
443 a26 := JTF_DATE_TABLE();
444 a27 := JTF_NUMBER_TABLE();
445 a28 := JTF_DATE_TABLE();
446 a29 := JTF_NUMBER_TABLE();
447 if t.count > 0 then
448 a0.extend(t.count);
449 a1.extend(t.count);
450 a2.extend(t.count);
451 a3.extend(t.count);
452 a4.extend(t.count);
453 a5.extend(t.count);
454 a6.extend(t.count);
455 a7.extend(t.count);
456 a8.extend(t.count);
457 a9.extend(t.count);
458 a10.extend(t.count);
459 a11.extend(t.count);
460 a12.extend(t.count);
461 a13.extend(t.count);
462 a14.extend(t.count);
463 a15.extend(t.count);
464 a16.extend(t.count);
465 a17.extend(t.count);
466 a18.extend(t.count);
467 a19.extend(t.count);
468 a20.extend(t.count);
469 a21.extend(t.count);
470 a22.extend(t.count);
471 a23.extend(t.count);
472 a24.extend(t.count);
473 a25.extend(t.count);
474 a26.extend(t.count);
475 a27.extend(t.count);
476 a28.extend(t.count);
477 a29.extend(t.count);
478 ddindx := t.first;
479 indx := 1;
480 while true loop
481 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
482 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
483 a2(indx) := t(ddindx).budget_type_code;
484 a3(indx) := t(ddindx).effective_from_date;
485 a4(indx) := t(ddindx).decision_status_code;
486 a5(indx) := rosetta_g_miss_num_map(t(ddindx).budget_amount);
487 a6(indx) := t(ddindx).note;
488 a7(indx) := rosetta_g_miss_num_map(t(ddindx).subsidy_pool_id);
489 a8(indx) := t(ddindx).decision_date;
490 a9(indx) := t(ddindx).attribute_category;
491 a10(indx) := t(ddindx).attribute1;
492 a11(indx) := t(ddindx).attribute2;
493 a12(indx) := t(ddindx).attribute3;
494 a13(indx) := t(ddindx).attribute4;
495 a14(indx) := t(ddindx).attribute5;
496 a15(indx) := t(ddindx).attribute6;
497 a16(indx) := t(ddindx).attribute7;
498 a17(indx) := t(ddindx).attribute8;
499 a18(indx) := t(ddindx).attribute9;
500 a19(indx) := t(ddindx).attribute10;
501 a20(indx) := t(ddindx).attribute11;
502 a21(indx) := t(ddindx).attribute12;
503 a22(indx) := t(ddindx).attribute13;
504 a23(indx) := t(ddindx).attribute14;
505 a24(indx) := t(ddindx).attribute15;
506 a25(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
507 a26(indx) := t(ddindx).creation_date;
508 a27(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
509 a28(indx) := t(ddindx).last_update_date;
510 a29(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
511 indx := indx+1;
512 if t.last =ddindx
513 then exit;
514 end if;
515 ddindx := t.next(ddindx);
516 end loop;
517 end if;
518 end if;
519 end rosetta_table_copy_out_p5;
520
521 procedure rosetta_table_copy_in_p8(t out nocopy okl_sib_pvt.oklsubsidypoolbudgetstltbltype, a0 JTF_NUMBER_TABLE
522 , a1 JTF_VARCHAR2_TABLE_200
523 , a2 JTF_VARCHAR2_TABLE_100
524 , a3 JTF_VARCHAR2_TABLE_100
525 , a4 JTF_VARCHAR2_TABLE_100
526 , a5 JTF_NUMBER_TABLE
527 , a6 JTF_DATE_TABLE
528 , a7 JTF_NUMBER_TABLE
529 , a8 JTF_DATE_TABLE
530 , a9 JTF_NUMBER_TABLE
531 ) as
532 ddindx binary_integer; indx binary_integer;
533 begin
534 if a0 is not null and a0.count > 0 then
535 if a0.count > 0 then
536 indx := a0.first;
537 ddindx := 1;
538 while true loop
539 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
540 t(ddindx).note := a1(indx);
541 t(ddindx).language := a2(indx);
542 t(ddindx).source_lang := a3(indx);
543 t(ddindx).sfwt_flag := a4(indx);
544 t(ddindx).created_by := rosetta_g_miss_num_map(a5(indx));
545 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a6(indx));
546 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a7(indx));
547 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a8(indx));
551 then exit;
548 t(ddindx).last_update_login := rosetta_g_miss_num_map(a9(indx));
549 ddindx := ddindx+1;
550 if a0.last =indx
552 end if;
553 indx := a0.next(indx);
554 end loop;
555 end if;
556 end if;
557 end rosetta_table_copy_in_p8;
558 procedure rosetta_table_copy_out_p8(t okl_sib_pvt.oklsubsidypoolbudgetstltbltype, a0 out nocopy JTF_NUMBER_TABLE
559 , a1 out nocopy JTF_VARCHAR2_TABLE_200
560 , a2 out nocopy JTF_VARCHAR2_TABLE_100
561 , a3 out nocopy JTF_VARCHAR2_TABLE_100
562 , a4 out nocopy JTF_VARCHAR2_TABLE_100
563 , a5 out nocopy JTF_NUMBER_TABLE
564 , a6 out nocopy JTF_DATE_TABLE
565 , a7 out nocopy JTF_NUMBER_TABLE
566 , a8 out nocopy JTF_DATE_TABLE
567 , a9 out nocopy JTF_NUMBER_TABLE
568 ) as
569 ddindx binary_integer; indx binary_integer;
570 begin
571 if t is null or t.count = 0 then
572 a0 := JTF_NUMBER_TABLE();
573 a1 := JTF_VARCHAR2_TABLE_200();
574 a2 := JTF_VARCHAR2_TABLE_100();
575 a3 := JTF_VARCHAR2_TABLE_100();
576 a4 := JTF_VARCHAR2_TABLE_100();
577 a5 := JTF_NUMBER_TABLE();
578 a6 := JTF_DATE_TABLE();
579 a7 := JTF_NUMBER_TABLE();
580 a8 := JTF_DATE_TABLE();
581 a9 := JTF_NUMBER_TABLE();
582 else
583 a0 := JTF_NUMBER_TABLE();
584 a1 := JTF_VARCHAR2_TABLE_200();
585 a2 := JTF_VARCHAR2_TABLE_100();
586 a3 := JTF_VARCHAR2_TABLE_100();
587 a4 := JTF_VARCHAR2_TABLE_100();
588 a5 := JTF_NUMBER_TABLE();
589 a6 := JTF_DATE_TABLE();
590 a7 := JTF_NUMBER_TABLE();
591 a8 := JTF_DATE_TABLE();
592 a9 := JTF_NUMBER_TABLE();
593 if t.count > 0 then
594 a0.extend(t.count);
595 a1.extend(t.count);
596 a2.extend(t.count);
597 a3.extend(t.count);
598 a4.extend(t.count);
599 a5.extend(t.count);
600 a6.extend(t.count);
601 a7.extend(t.count);
602 a8.extend(t.count);
603 a9.extend(t.count);
604 ddindx := t.first;
605 indx := 1;
606 while true loop
607 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
608 a1(indx) := t(ddindx).note;
609 a2(indx) := t(ddindx).language;
610 a3(indx) := t(ddindx).source_lang;
611 a4(indx) := t(ddindx).sfwt_flag;
612 a5(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
613 a6(indx) := t(ddindx).creation_date;
614 a7(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
615 a8(indx) := t(ddindx).last_update_date;
616 a9(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
617 indx := indx+1;
618 if t.last =ddindx
619 then exit;
620 end if;
621 ddindx := t.next(ddindx);
622 end loop;
623 end if;
624 end if;
625 end rosetta_table_copy_out_p8;
626
627 procedure insert_row(p_api_version NUMBER
628 , p_init_msg_list VARCHAR2
629 , x_return_status out nocopy VARCHAR2
630 , x_msg_count out nocopy NUMBER
631 , x_msg_data out nocopy VARCHAR2
632 , p6_a0 out nocopy NUMBER
633 , p6_a1 out nocopy NUMBER
634 , p6_a2 out nocopy VARCHAR2
635 , p6_a3 out nocopy VARCHAR2
636 , p6_a4 out nocopy VARCHAR2
637 , p6_a5 out nocopy DATE
638 , p6_a6 out nocopy VARCHAR2
639 , p6_a7 out nocopy NUMBER
640 , p6_a8 out nocopy NUMBER
641 , p6_a9 out nocopy DATE
642 , p6_a10 out nocopy VARCHAR2
643 , p6_a11 out nocopy VARCHAR2
644 , p6_a12 out nocopy VARCHAR2
645 , p6_a13 out nocopy VARCHAR2
646 , p6_a14 out nocopy VARCHAR2
647 , p6_a15 out nocopy VARCHAR2
648 , p6_a16 out nocopy VARCHAR2
649 , p6_a17 out nocopy VARCHAR2
650 , p6_a18 out nocopy VARCHAR2
651 , p6_a19 out nocopy VARCHAR2
652 , p6_a20 out nocopy VARCHAR2
653 , p6_a21 out nocopy VARCHAR2
654 , p6_a22 out nocopy VARCHAR2
655 , p6_a23 out nocopy VARCHAR2
656 , p6_a24 out nocopy VARCHAR2
657 , p6_a25 out nocopy VARCHAR2
658 , p6_a26 out nocopy NUMBER
659 , p6_a27 out nocopy DATE
660 , p6_a28 out nocopy NUMBER
661 , p6_a29 out nocopy DATE
662 , p6_a30 out nocopy NUMBER
663 , p5_a0 NUMBER := 0-1962.0724
664 , p5_a1 NUMBER := 0-1962.0724
665 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
666 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
667 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
668 , p5_a5 DATE := fnd_api.g_miss_date
669 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
670 , p5_a7 NUMBER := 0-1962.0724
671 , p5_a8 NUMBER := 0-1962.0724
672 , p5_a9 DATE := fnd_api.g_miss_date
673 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
674 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
675 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
676 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
677 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
678 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
679 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
680 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
681 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
682 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
683 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
684 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
685 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
686 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
687 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
688 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
689 , p5_a26 NUMBER := 0-1962.0724
690 , p5_a27 DATE := fnd_api.g_miss_date
691 , p5_a28 NUMBER := 0-1962.0724
695
692 , p5_a29 DATE := fnd_api.g_miss_date
693 , p5_a30 NUMBER := 0-1962.0724
694 )
696 as
697 ddp_sibv_rec okl_sib_pvt.sibv_rec_type;
698 ddx_sibv_rec okl_sib_pvt.sibv_rec_type;
699 ddindx binary_integer; indx binary_integer;
700 begin
701
702 -- copy data to the local IN or IN-OUT args, if any
703
704
705
706
707
708 ddp_sibv_rec.id := rosetta_g_miss_num_map(p5_a0);
709 ddp_sibv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
710 ddp_sibv_rec.sfwt_flag := p5_a2;
711 ddp_sibv_rec.note := p5_a3;
712 ddp_sibv_rec.budget_type_code := p5_a4;
713 ddp_sibv_rec.effective_from_date := rosetta_g_miss_date_in_map(p5_a5);
714 ddp_sibv_rec.decision_status_code := p5_a6;
715 ddp_sibv_rec.budget_amount := rosetta_g_miss_num_map(p5_a7);
716 ddp_sibv_rec.subsidy_pool_id := rosetta_g_miss_num_map(p5_a8);
717 ddp_sibv_rec.decision_date := rosetta_g_miss_date_in_map(p5_a9);
718 ddp_sibv_rec.attribute_category := p5_a10;
719 ddp_sibv_rec.attribute1 := p5_a11;
720 ddp_sibv_rec.attribute2 := p5_a12;
721 ddp_sibv_rec.attribute3 := p5_a13;
722 ddp_sibv_rec.attribute4 := p5_a14;
723 ddp_sibv_rec.attribute5 := p5_a15;
724 ddp_sibv_rec.attribute6 := p5_a16;
725 ddp_sibv_rec.attribute7 := p5_a17;
726 ddp_sibv_rec.attribute8 := p5_a18;
727 ddp_sibv_rec.attribute9 := p5_a19;
728 ddp_sibv_rec.attribute10 := p5_a20;
729 ddp_sibv_rec.attribute11 := p5_a21;
730 ddp_sibv_rec.attribute12 := p5_a22;
731 ddp_sibv_rec.attribute13 := p5_a23;
732 ddp_sibv_rec.attribute14 := p5_a24;
733 ddp_sibv_rec.attribute15 := p5_a25;
734 ddp_sibv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
735 ddp_sibv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
736 ddp_sibv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
737 ddp_sibv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
738 ddp_sibv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
739
740
741 -- here's the delegated call to the old PL/SQL routine
742 okl_sib_pvt.insert_row(p_api_version,
743 p_init_msg_list,
744 x_return_status,
745 x_msg_count,
746 x_msg_data,
747 ddp_sibv_rec,
748 ddx_sibv_rec);
749
750 -- copy data back from the local variables to OUT or IN-OUT args, if any
751
752
753
754
755
756
757 p6_a0 := rosetta_g_miss_num_map(ddx_sibv_rec.id);
758 p6_a1 := rosetta_g_miss_num_map(ddx_sibv_rec.object_version_number);
759 p6_a2 := ddx_sibv_rec.sfwt_flag;
760 p6_a3 := ddx_sibv_rec.note;
761 p6_a4 := ddx_sibv_rec.budget_type_code;
762 p6_a5 := ddx_sibv_rec.effective_from_date;
763 p6_a6 := ddx_sibv_rec.decision_status_code;
764 p6_a7 := rosetta_g_miss_num_map(ddx_sibv_rec.budget_amount);
765 p6_a8 := rosetta_g_miss_num_map(ddx_sibv_rec.subsidy_pool_id);
766 p6_a9 := ddx_sibv_rec.decision_date;
767 p6_a10 := ddx_sibv_rec.attribute_category;
768 p6_a11 := ddx_sibv_rec.attribute1;
769 p6_a12 := ddx_sibv_rec.attribute2;
770 p6_a13 := ddx_sibv_rec.attribute3;
771 p6_a14 := ddx_sibv_rec.attribute4;
772 p6_a15 := ddx_sibv_rec.attribute5;
773 p6_a16 := ddx_sibv_rec.attribute6;
774 p6_a17 := ddx_sibv_rec.attribute7;
775 p6_a18 := ddx_sibv_rec.attribute8;
776 p6_a19 := ddx_sibv_rec.attribute9;
777 p6_a20 := ddx_sibv_rec.attribute10;
778 p6_a21 := ddx_sibv_rec.attribute11;
779 p6_a22 := ddx_sibv_rec.attribute12;
780 p6_a23 := ddx_sibv_rec.attribute13;
781 p6_a24 := ddx_sibv_rec.attribute14;
782 p6_a25 := ddx_sibv_rec.attribute15;
783 p6_a26 := rosetta_g_miss_num_map(ddx_sibv_rec.created_by);
784 p6_a27 := ddx_sibv_rec.creation_date;
785 p6_a28 := rosetta_g_miss_num_map(ddx_sibv_rec.last_updated_by);
786 p6_a29 := ddx_sibv_rec.last_update_date;
787 p6_a30 := rosetta_g_miss_num_map(ddx_sibv_rec.last_update_login);
788 end;
789
790 procedure insert_row(p_api_version NUMBER
791 , p_init_msg_list VARCHAR2
792 , x_return_status out nocopy VARCHAR2
793 , x_msg_count out nocopy NUMBER
794 , x_msg_data out nocopy VARCHAR2
795 , p5_a0 JTF_NUMBER_TABLE
796 , p5_a1 JTF_NUMBER_TABLE
797 , p5_a2 JTF_VARCHAR2_TABLE_100
798 , p5_a3 JTF_VARCHAR2_TABLE_200
799 , p5_a4 JTF_VARCHAR2_TABLE_100
800 , p5_a5 JTF_DATE_TABLE
801 , p5_a6 JTF_VARCHAR2_TABLE_100
802 , p5_a7 JTF_NUMBER_TABLE
803 , p5_a8 JTF_NUMBER_TABLE
804 , p5_a9 JTF_DATE_TABLE
805 , p5_a10 JTF_VARCHAR2_TABLE_100
806 , p5_a11 JTF_VARCHAR2_TABLE_500
807 , p5_a12 JTF_VARCHAR2_TABLE_500
808 , p5_a13 JTF_VARCHAR2_TABLE_500
809 , p5_a14 JTF_VARCHAR2_TABLE_500
810 , p5_a15 JTF_VARCHAR2_TABLE_500
811 , p5_a16 JTF_VARCHAR2_TABLE_500
812 , p5_a17 JTF_VARCHAR2_TABLE_500
813 , p5_a18 JTF_VARCHAR2_TABLE_500
814 , p5_a19 JTF_VARCHAR2_TABLE_500
815 , p5_a20 JTF_VARCHAR2_TABLE_500
816 , p5_a21 JTF_VARCHAR2_TABLE_500
817 , p5_a22 JTF_VARCHAR2_TABLE_500
818 , p5_a23 JTF_VARCHAR2_TABLE_500
819 , p5_a24 JTF_VARCHAR2_TABLE_500
820 , p5_a25 JTF_VARCHAR2_TABLE_500
821 , p5_a26 JTF_NUMBER_TABLE
822 , p5_a27 JTF_DATE_TABLE
823 , p5_a28 JTF_NUMBER_TABLE
824 , p5_a29 JTF_DATE_TABLE
825 , p5_a30 JTF_NUMBER_TABLE
826 , p6_a0 out nocopy JTF_NUMBER_TABLE
827 , p6_a1 out nocopy JTF_NUMBER_TABLE
828 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
829 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
830 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
831 , p6_a5 out nocopy JTF_DATE_TABLE
832 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
833 , p6_a7 out nocopy JTF_NUMBER_TABLE
837 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
834 , p6_a8 out nocopy JTF_NUMBER_TABLE
835 , p6_a9 out nocopy JTF_DATE_TABLE
836 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
838 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
839 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
840 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
841 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
842 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
843 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
844 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
845 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
846 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
847 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
848 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
849 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
850 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
851 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
852 , p6_a26 out nocopy JTF_NUMBER_TABLE
853 , p6_a27 out nocopy JTF_DATE_TABLE
854 , p6_a28 out nocopy JTF_NUMBER_TABLE
855 , p6_a29 out nocopy JTF_DATE_TABLE
856 , p6_a30 out nocopy JTF_NUMBER_TABLE
857 )
858
859 as
860 ddp_sibv_tbl okl_sib_pvt.sibv_tbl_type;
861 ddx_sibv_tbl okl_sib_pvt.sibv_tbl_type;
862 ddindx binary_integer; indx binary_integer;
863 begin
864
865 -- copy data to the local IN or IN-OUT args, if any
866
867
868
869
870
871 okl_sib_pvt_w.rosetta_table_copy_in_p2(ddp_sibv_tbl, p5_a0
872 , p5_a1
873 , p5_a2
874 , p5_a3
875 , p5_a4
876 , p5_a5
877 , p5_a6
878 , p5_a7
879 , p5_a8
880 , p5_a9
881 , p5_a10
882 , p5_a11
883 , p5_a12
884 , p5_a13
885 , p5_a14
886 , p5_a15
887 , p5_a16
888 , p5_a17
889 , p5_a18
890 , p5_a19
891 , p5_a20
892 , p5_a21
893 , p5_a22
894 , p5_a23
895 , p5_a24
896 , p5_a25
897 , p5_a26
898 , p5_a27
899 , p5_a28
900 , p5_a29
901 , p5_a30
902 );
903
904
905 -- here's the delegated call to the old PL/SQL routine
906 okl_sib_pvt.insert_row(p_api_version,
907 p_init_msg_list,
908 x_return_status,
909 x_msg_count,
910 x_msg_data,
911 ddp_sibv_tbl,
912 ddx_sibv_tbl);
913
914 -- copy data back from the local variables to OUT or IN-OUT args, if any
915
916
917
918
919
920
921 okl_sib_pvt_w.rosetta_table_copy_out_p2(ddx_sibv_tbl, p6_a0
922 , p6_a1
923 , p6_a2
924 , p6_a3
925 , p6_a4
926 , p6_a5
927 , p6_a6
928 , p6_a7
929 , p6_a8
930 , p6_a9
931 , p6_a10
932 , p6_a11
933 , p6_a12
934 , p6_a13
935 , p6_a14
936 , p6_a15
937 , p6_a16
938 , p6_a17
939 , p6_a18
940 , p6_a19
941 , p6_a20
942 , p6_a21
943 , p6_a22
944 , p6_a23
945 , p6_a24
946 , p6_a25
947 , p6_a26
948 , p6_a27
949 , p6_a28
950 , p6_a29
951 , p6_a30
952 );
953 end;
954
955 procedure lock_row(p_api_version NUMBER
956 , p_init_msg_list VARCHAR2
957 , x_return_status out nocopy VARCHAR2
958 , x_msg_count out nocopy NUMBER
959 , x_msg_data out nocopy VARCHAR2
960 , p5_a0 NUMBER := 0-1962.0724
961 , p5_a1 NUMBER := 0-1962.0724
962 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
963 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
964 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
965 , p5_a5 DATE := fnd_api.g_miss_date
966 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
967 , p5_a7 NUMBER := 0-1962.0724
968 , p5_a8 NUMBER := 0-1962.0724
969 , p5_a9 DATE := fnd_api.g_miss_date
970 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
971 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
972 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
973 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
974 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
975 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
976 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
977 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
978 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
979 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
980 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
981 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
982 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
983 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
984 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
985 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
986 , p5_a26 NUMBER := 0-1962.0724
987 , p5_a27 DATE := fnd_api.g_miss_date
988 , p5_a28 NUMBER := 0-1962.0724
989 , p5_a29 DATE := fnd_api.g_miss_date
990 , p5_a30 NUMBER := 0-1962.0724
991 )
992
993 as
994 ddp_sibv_rec okl_sib_pvt.sibv_rec_type;
995 ddindx binary_integer; indx binary_integer;
996 begin
997
998 -- copy data to the local IN or IN-OUT args, if any
999
1000
1001
1002
1003
1004 ddp_sibv_rec.id := rosetta_g_miss_num_map(p5_a0);
1005 ddp_sibv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1006 ddp_sibv_rec.sfwt_flag := p5_a2;
1007 ddp_sibv_rec.note := p5_a3;
1008 ddp_sibv_rec.budget_type_code := p5_a4;
1009 ddp_sibv_rec.effective_from_date := rosetta_g_miss_date_in_map(p5_a5);
1013 ddp_sibv_rec.decision_date := rosetta_g_miss_date_in_map(p5_a9);
1010 ddp_sibv_rec.decision_status_code := p5_a6;
1011 ddp_sibv_rec.budget_amount := rosetta_g_miss_num_map(p5_a7);
1012 ddp_sibv_rec.subsidy_pool_id := rosetta_g_miss_num_map(p5_a8);
1014 ddp_sibv_rec.attribute_category := p5_a10;
1015 ddp_sibv_rec.attribute1 := p5_a11;
1016 ddp_sibv_rec.attribute2 := p5_a12;
1017 ddp_sibv_rec.attribute3 := p5_a13;
1018 ddp_sibv_rec.attribute4 := p5_a14;
1019 ddp_sibv_rec.attribute5 := p5_a15;
1020 ddp_sibv_rec.attribute6 := p5_a16;
1021 ddp_sibv_rec.attribute7 := p5_a17;
1022 ddp_sibv_rec.attribute8 := p5_a18;
1023 ddp_sibv_rec.attribute9 := p5_a19;
1024 ddp_sibv_rec.attribute10 := p5_a20;
1025 ddp_sibv_rec.attribute11 := p5_a21;
1026 ddp_sibv_rec.attribute12 := p5_a22;
1027 ddp_sibv_rec.attribute13 := p5_a23;
1028 ddp_sibv_rec.attribute14 := p5_a24;
1029 ddp_sibv_rec.attribute15 := p5_a25;
1030 ddp_sibv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
1031 ddp_sibv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
1032 ddp_sibv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
1033 ddp_sibv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
1034 ddp_sibv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
1035
1036 -- here's the delegated call to the old PL/SQL routine
1037 okl_sib_pvt.lock_row(p_api_version,
1038 p_init_msg_list,
1039 x_return_status,
1040 x_msg_count,
1041 x_msg_data,
1042 ddp_sibv_rec);
1043
1044 -- copy data back from the local variables to OUT or IN-OUT args, if any
1045
1046
1047
1048
1049
1050 end;
1051
1052 procedure lock_row(p_api_version NUMBER
1053 , p_init_msg_list VARCHAR2
1054 , x_return_status out nocopy VARCHAR2
1055 , x_msg_count out nocopy NUMBER
1056 , x_msg_data out nocopy VARCHAR2
1057 , p5_a0 JTF_NUMBER_TABLE
1058 , p5_a1 JTF_NUMBER_TABLE
1059 , p5_a2 JTF_VARCHAR2_TABLE_100
1060 , p5_a3 JTF_VARCHAR2_TABLE_200
1061 , p5_a4 JTF_VARCHAR2_TABLE_100
1062 , p5_a5 JTF_DATE_TABLE
1063 , p5_a6 JTF_VARCHAR2_TABLE_100
1064 , p5_a7 JTF_NUMBER_TABLE
1065 , p5_a8 JTF_NUMBER_TABLE
1066 , p5_a9 JTF_DATE_TABLE
1067 , p5_a10 JTF_VARCHAR2_TABLE_100
1068 , p5_a11 JTF_VARCHAR2_TABLE_500
1069 , p5_a12 JTF_VARCHAR2_TABLE_500
1070 , p5_a13 JTF_VARCHAR2_TABLE_500
1071 , p5_a14 JTF_VARCHAR2_TABLE_500
1072 , p5_a15 JTF_VARCHAR2_TABLE_500
1073 , p5_a16 JTF_VARCHAR2_TABLE_500
1074 , p5_a17 JTF_VARCHAR2_TABLE_500
1075 , p5_a18 JTF_VARCHAR2_TABLE_500
1076 , p5_a19 JTF_VARCHAR2_TABLE_500
1077 , p5_a20 JTF_VARCHAR2_TABLE_500
1078 , p5_a21 JTF_VARCHAR2_TABLE_500
1079 , p5_a22 JTF_VARCHAR2_TABLE_500
1080 , p5_a23 JTF_VARCHAR2_TABLE_500
1081 , p5_a24 JTF_VARCHAR2_TABLE_500
1082 , p5_a25 JTF_VARCHAR2_TABLE_500
1083 , p5_a26 JTF_NUMBER_TABLE
1084 , p5_a27 JTF_DATE_TABLE
1085 , p5_a28 JTF_NUMBER_TABLE
1086 , p5_a29 JTF_DATE_TABLE
1087 , p5_a30 JTF_NUMBER_TABLE
1088 )
1089
1090 as
1091 ddp_sibv_tbl okl_sib_pvt.sibv_tbl_type;
1092 ddindx binary_integer; indx binary_integer;
1093 begin
1094
1095 -- copy data to the local IN or IN-OUT args, if any
1096
1097
1098
1099
1100
1101 okl_sib_pvt_w.rosetta_table_copy_in_p2(ddp_sibv_tbl, p5_a0
1102 , p5_a1
1103 , p5_a2
1104 , p5_a3
1105 , p5_a4
1106 , p5_a5
1107 , p5_a6
1108 , p5_a7
1109 , p5_a8
1110 , p5_a9
1111 , p5_a10
1112 , p5_a11
1113 , p5_a12
1114 , p5_a13
1115 , p5_a14
1116 , p5_a15
1117 , p5_a16
1118 , p5_a17
1119 , p5_a18
1120 , p5_a19
1121 , p5_a20
1122 , p5_a21
1123 , p5_a22
1124 , p5_a23
1125 , p5_a24
1126 , p5_a25
1127 , p5_a26
1128 , p5_a27
1129 , p5_a28
1130 , p5_a29
1131 , p5_a30
1132 );
1133
1134 -- here's the delegated call to the old PL/SQL routine
1135 okl_sib_pvt.lock_row(p_api_version,
1136 p_init_msg_list,
1137 x_return_status,
1138 x_msg_count,
1139 x_msg_data,
1140 ddp_sibv_tbl);
1141
1142 -- copy data back from the local variables to OUT or IN-OUT args, if any
1143
1144
1145
1146
1147
1148 end;
1149
1150 procedure update_row(p_api_version NUMBER
1151 , p_init_msg_list VARCHAR2
1152 , x_return_status out nocopy VARCHAR2
1153 , x_msg_count out nocopy NUMBER
1154 , x_msg_data out nocopy VARCHAR2
1155 , p6_a0 out nocopy NUMBER
1156 , p6_a1 out nocopy NUMBER
1157 , p6_a2 out nocopy VARCHAR2
1158 , p6_a3 out nocopy VARCHAR2
1159 , p6_a4 out nocopy VARCHAR2
1160 , p6_a5 out nocopy DATE
1161 , p6_a6 out nocopy VARCHAR2
1162 , p6_a7 out nocopy NUMBER
1163 , p6_a8 out nocopy NUMBER
1164 , p6_a9 out nocopy DATE
1165 , p6_a10 out nocopy VARCHAR2
1166 , p6_a11 out nocopy VARCHAR2
1167 , p6_a12 out nocopy VARCHAR2
1168 , p6_a13 out nocopy VARCHAR2
1169 , p6_a14 out nocopy VARCHAR2
1170 , p6_a15 out nocopy VARCHAR2
1171 , p6_a16 out nocopy VARCHAR2
1172 , p6_a17 out nocopy VARCHAR2
1173 , p6_a18 out nocopy VARCHAR2
1174 , p6_a19 out nocopy VARCHAR2
1175 , p6_a20 out nocopy VARCHAR2
1176 , p6_a21 out nocopy VARCHAR2
1177 , p6_a22 out nocopy VARCHAR2
1178 , p6_a23 out nocopy VARCHAR2
1182 , p6_a27 out nocopy DATE
1179 , p6_a24 out nocopy VARCHAR2
1180 , p6_a25 out nocopy VARCHAR2
1181 , p6_a26 out nocopy NUMBER
1183 , p6_a28 out nocopy NUMBER
1184 , p6_a29 out nocopy DATE
1185 , p6_a30 out nocopy NUMBER
1186 , p5_a0 NUMBER := 0-1962.0724
1187 , p5_a1 NUMBER := 0-1962.0724
1188 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1189 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1190 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1191 , p5_a5 DATE := fnd_api.g_miss_date
1192 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1193 , p5_a7 NUMBER := 0-1962.0724
1194 , p5_a8 NUMBER := 0-1962.0724
1195 , p5_a9 DATE := fnd_api.g_miss_date
1196 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1197 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1198 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1199 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1200 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1201 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1202 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1203 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1204 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1205 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1206 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1207 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1208 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1209 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1210 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1211 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1212 , p5_a26 NUMBER := 0-1962.0724
1213 , p5_a27 DATE := fnd_api.g_miss_date
1214 , p5_a28 NUMBER := 0-1962.0724
1215 , p5_a29 DATE := fnd_api.g_miss_date
1216 , p5_a30 NUMBER := 0-1962.0724
1217 )
1218
1219 as
1220 ddp_sibv_rec okl_sib_pvt.sibv_rec_type;
1221 ddx_sibv_rec okl_sib_pvt.sibv_rec_type;
1222 ddindx binary_integer; indx binary_integer;
1223 begin
1224
1225 -- copy data to the local IN or IN-OUT args, if any
1226
1227
1228
1229
1230
1231 ddp_sibv_rec.id := rosetta_g_miss_num_map(p5_a0);
1232 ddp_sibv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1233 ddp_sibv_rec.sfwt_flag := p5_a2;
1234 ddp_sibv_rec.note := p5_a3;
1235 ddp_sibv_rec.budget_type_code := p5_a4;
1236 ddp_sibv_rec.effective_from_date := rosetta_g_miss_date_in_map(p5_a5);
1237 ddp_sibv_rec.decision_status_code := p5_a6;
1238 ddp_sibv_rec.budget_amount := rosetta_g_miss_num_map(p5_a7);
1239 ddp_sibv_rec.subsidy_pool_id := rosetta_g_miss_num_map(p5_a8);
1240 ddp_sibv_rec.decision_date := rosetta_g_miss_date_in_map(p5_a9);
1241 ddp_sibv_rec.attribute_category := p5_a10;
1242 ddp_sibv_rec.attribute1 := p5_a11;
1243 ddp_sibv_rec.attribute2 := p5_a12;
1244 ddp_sibv_rec.attribute3 := p5_a13;
1245 ddp_sibv_rec.attribute4 := p5_a14;
1246 ddp_sibv_rec.attribute5 := p5_a15;
1247 ddp_sibv_rec.attribute6 := p5_a16;
1248 ddp_sibv_rec.attribute7 := p5_a17;
1249 ddp_sibv_rec.attribute8 := p5_a18;
1250 ddp_sibv_rec.attribute9 := p5_a19;
1251 ddp_sibv_rec.attribute10 := p5_a20;
1252 ddp_sibv_rec.attribute11 := p5_a21;
1253 ddp_sibv_rec.attribute12 := p5_a22;
1254 ddp_sibv_rec.attribute13 := p5_a23;
1255 ddp_sibv_rec.attribute14 := p5_a24;
1256 ddp_sibv_rec.attribute15 := p5_a25;
1257 ddp_sibv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
1258 ddp_sibv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
1259 ddp_sibv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
1260 ddp_sibv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
1261 ddp_sibv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
1262
1263
1264 -- here's the delegated call to the old PL/SQL routine
1265 okl_sib_pvt.update_row(p_api_version,
1266 p_init_msg_list,
1267 x_return_status,
1268 x_msg_count,
1269 x_msg_data,
1270 ddp_sibv_rec,
1271 ddx_sibv_rec);
1272
1273 -- copy data back from the local variables to OUT or IN-OUT args, if any
1274
1275
1276
1277
1278
1279
1280 p6_a0 := rosetta_g_miss_num_map(ddx_sibv_rec.id);
1281 p6_a1 := rosetta_g_miss_num_map(ddx_sibv_rec.object_version_number);
1282 p6_a2 := ddx_sibv_rec.sfwt_flag;
1283 p6_a3 := ddx_sibv_rec.note;
1284 p6_a4 := ddx_sibv_rec.budget_type_code;
1285 p6_a5 := ddx_sibv_rec.effective_from_date;
1286 p6_a6 := ddx_sibv_rec.decision_status_code;
1287 p6_a7 := rosetta_g_miss_num_map(ddx_sibv_rec.budget_amount);
1288 p6_a8 := rosetta_g_miss_num_map(ddx_sibv_rec.subsidy_pool_id);
1289 p6_a9 := ddx_sibv_rec.decision_date;
1290 p6_a10 := ddx_sibv_rec.attribute_category;
1291 p6_a11 := ddx_sibv_rec.attribute1;
1292 p6_a12 := ddx_sibv_rec.attribute2;
1293 p6_a13 := ddx_sibv_rec.attribute3;
1294 p6_a14 := ddx_sibv_rec.attribute4;
1295 p6_a15 := ddx_sibv_rec.attribute5;
1296 p6_a16 := ddx_sibv_rec.attribute6;
1297 p6_a17 := ddx_sibv_rec.attribute7;
1298 p6_a18 := ddx_sibv_rec.attribute8;
1299 p6_a19 := ddx_sibv_rec.attribute9;
1300 p6_a20 := ddx_sibv_rec.attribute10;
1301 p6_a21 := ddx_sibv_rec.attribute11;
1302 p6_a22 := ddx_sibv_rec.attribute12;
1303 p6_a23 := ddx_sibv_rec.attribute13;
1304 p6_a24 := ddx_sibv_rec.attribute14;
1305 p6_a25 := ddx_sibv_rec.attribute15;
1306 p6_a26 := rosetta_g_miss_num_map(ddx_sibv_rec.created_by);
1307 p6_a27 := ddx_sibv_rec.creation_date;
1308 p6_a28 := rosetta_g_miss_num_map(ddx_sibv_rec.last_updated_by);
1309 p6_a29 := ddx_sibv_rec.last_update_date;
1310 p6_a30 := rosetta_g_miss_num_map(ddx_sibv_rec.last_update_login);
1311 end;
1312
1313 procedure update_row(p_api_version NUMBER
1314 , p_init_msg_list VARCHAR2
1315 , x_return_status out nocopy VARCHAR2
1319 , p5_a1 JTF_NUMBER_TABLE
1316 , x_msg_count out nocopy NUMBER
1317 , x_msg_data out nocopy VARCHAR2
1318 , p5_a0 JTF_NUMBER_TABLE
1320 , p5_a2 JTF_VARCHAR2_TABLE_100
1321 , p5_a3 JTF_VARCHAR2_TABLE_200
1322 , p5_a4 JTF_VARCHAR2_TABLE_100
1323 , p5_a5 JTF_DATE_TABLE
1324 , p5_a6 JTF_VARCHAR2_TABLE_100
1325 , p5_a7 JTF_NUMBER_TABLE
1326 , p5_a8 JTF_NUMBER_TABLE
1327 , p5_a9 JTF_DATE_TABLE
1328 , p5_a10 JTF_VARCHAR2_TABLE_100
1329 , p5_a11 JTF_VARCHAR2_TABLE_500
1330 , p5_a12 JTF_VARCHAR2_TABLE_500
1331 , p5_a13 JTF_VARCHAR2_TABLE_500
1332 , p5_a14 JTF_VARCHAR2_TABLE_500
1333 , p5_a15 JTF_VARCHAR2_TABLE_500
1334 , p5_a16 JTF_VARCHAR2_TABLE_500
1335 , p5_a17 JTF_VARCHAR2_TABLE_500
1336 , p5_a18 JTF_VARCHAR2_TABLE_500
1337 , p5_a19 JTF_VARCHAR2_TABLE_500
1338 , p5_a20 JTF_VARCHAR2_TABLE_500
1339 , p5_a21 JTF_VARCHAR2_TABLE_500
1340 , p5_a22 JTF_VARCHAR2_TABLE_500
1341 , p5_a23 JTF_VARCHAR2_TABLE_500
1342 , p5_a24 JTF_VARCHAR2_TABLE_500
1343 , p5_a25 JTF_VARCHAR2_TABLE_500
1344 , p5_a26 JTF_NUMBER_TABLE
1345 , p5_a27 JTF_DATE_TABLE
1346 , p5_a28 JTF_NUMBER_TABLE
1347 , p5_a29 JTF_DATE_TABLE
1348 , p5_a30 JTF_NUMBER_TABLE
1349 , p6_a0 out nocopy JTF_NUMBER_TABLE
1350 , p6_a1 out nocopy JTF_NUMBER_TABLE
1351 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
1352 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_200
1353 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
1354 , p6_a5 out nocopy JTF_DATE_TABLE
1355 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
1356 , p6_a7 out nocopy JTF_NUMBER_TABLE
1357 , p6_a8 out nocopy JTF_NUMBER_TABLE
1358 , p6_a9 out nocopy JTF_DATE_TABLE
1359 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
1360 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
1361 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
1362 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
1363 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
1364 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1365 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1366 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1367 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1368 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1369 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1370 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1371 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1372 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1373 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1374 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1375 , p6_a26 out nocopy JTF_NUMBER_TABLE
1376 , p6_a27 out nocopy JTF_DATE_TABLE
1377 , p6_a28 out nocopy JTF_NUMBER_TABLE
1378 , p6_a29 out nocopy JTF_DATE_TABLE
1379 , p6_a30 out nocopy JTF_NUMBER_TABLE
1380 )
1381
1382 as
1383 ddp_sibv_tbl okl_sib_pvt.sibv_tbl_type;
1384 ddx_sibv_tbl okl_sib_pvt.sibv_tbl_type;
1385 ddindx binary_integer; indx binary_integer;
1386 begin
1387
1388 -- copy data to the local IN or IN-OUT args, if any
1389
1390
1391
1392
1393
1394 okl_sib_pvt_w.rosetta_table_copy_in_p2(ddp_sibv_tbl, p5_a0
1395 , p5_a1
1396 , p5_a2
1397 , p5_a3
1398 , p5_a4
1399 , p5_a5
1400 , p5_a6
1401 , p5_a7
1402 , p5_a8
1403 , p5_a9
1404 , p5_a10
1405 , p5_a11
1406 , p5_a12
1407 , p5_a13
1408 , p5_a14
1409 , p5_a15
1410 , p5_a16
1411 , p5_a17
1412 , p5_a18
1413 , p5_a19
1414 , p5_a20
1415 , p5_a21
1416 , p5_a22
1417 , p5_a23
1418 , p5_a24
1419 , p5_a25
1420 , p5_a26
1421 , p5_a27
1422 , p5_a28
1423 , p5_a29
1424 , p5_a30
1425 );
1426
1427
1428 -- here's the delegated call to the old PL/SQL routine
1429 okl_sib_pvt.update_row(p_api_version,
1430 p_init_msg_list,
1431 x_return_status,
1432 x_msg_count,
1433 x_msg_data,
1434 ddp_sibv_tbl,
1435 ddx_sibv_tbl);
1436
1437 -- copy data back from the local variables to OUT or IN-OUT args, if any
1438
1439
1440
1441
1442
1443
1444 okl_sib_pvt_w.rosetta_table_copy_out_p2(ddx_sibv_tbl, p6_a0
1445 , p6_a1
1446 , p6_a2
1447 , p6_a3
1448 , p6_a4
1449 , p6_a5
1450 , p6_a6
1451 , p6_a7
1452 , p6_a8
1453 , p6_a9
1454 , p6_a10
1455 , p6_a11
1456 , p6_a12
1457 , p6_a13
1458 , p6_a14
1459 , p6_a15
1460 , p6_a16
1461 , p6_a17
1462 , p6_a18
1463 , p6_a19
1464 , p6_a20
1465 , p6_a21
1466 , p6_a22
1467 , p6_a23
1468 , p6_a24
1469 , p6_a25
1470 , p6_a26
1471 , p6_a27
1472 , p6_a28
1473 , p6_a29
1474 , p6_a30
1475 );
1476 end;
1477
1478 procedure delete_row(p_api_version NUMBER
1479 , p_init_msg_list VARCHAR2
1480 , x_return_status out nocopy VARCHAR2
1481 , x_msg_count out nocopy NUMBER
1482 , x_msg_data out nocopy VARCHAR2
1483 , p5_a0 NUMBER := 0-1962.0724
1484 , p5_a1 NUMBER := 0-1962.0724
1485 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1486 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1487 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1488 , p5_a5 DATE := fnd_api.g_miss_date
1489 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1490 , p5_a7 NUMBER := 0-1962.0724
1491 , p5_a8 NUMBER := 0-1962.0724
1495 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1492 , p5_a9 DATE := fnd_api.g_miss_date
1493 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1494 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1496 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1497 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1498 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1499 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1500 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1501 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1502 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1503 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1504 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1505 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1506 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1507 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1508 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1509 , p5_a26 NUMBER := 0-1962.0724
1510 , p5_a27 DATE := fnd_api.g_miss_date
1511 , p5_a28 NUMBER := 0-1962.0724
1512 , p5_a29 DATE := fnd_api.g_miss_date
1513 , p5_a30 NUMBER := 0-1962.0724
1514 )
1515
1516 as
1517 ddp_sibv_rec okl_sib_pvt.sibv_rec_type;
1518 ddindx binary_integer; indx binary_integer;
1519 begin
1520
1521 -- copy data to the local IN or IN-OUT args, if any
1522
1523
1524
1525
1526
1527 ddp_sibv_rec.id := rosetta_g_miss_num_map(p5_a0);
1528 ddp_sibv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1529 ddp_sibv_rec.sfwt_flag := p5_a2;
1530 ddp_sibv_rec.note := p5_a3;
1531 ddp_sibv_rec.budget_type_code := p5_a4;
1532 ddp_sibv_rec.effective_from_date := rosetta_g_miss_date_in_map(p5_a5);
1533 ddp_sibv_rec.decision_status_code := p5_a6;
1534 ddp_sibv_rec.budget_amount := rosetta_g_miss_num_map(p5_a7);
1535 ddp_sibv_rec.subsidy_pool_id := rosetta_g_miss_num_map(p5_a8);
1536 ddp_sibv_rec.decision_date := rosetta_g_miss_date_in_map(p5_a9);
1537 ddp_sibv_rec.attribute_category := p5_a10;
1538 ddp_sibv_rec.attribute1 := p5_a11;
1539 ddp_sibv_rec.attribute2 := p5_a12;
1540 ddp_sibv_rec.attribute3 := p5_a13;
1541 ddp_sibv_rec.attribute4 := p5_a14;
1542 ddp_sibv_rec.attribute5 := p5_a15;
1543 ddp_sibv_rec.attribute6 := p5_a16;
1544 ddp_sibv_rec.attribute7 := p5_a17;
1545 ddp_sibv_rec.attribute8 := p5_a18;
1546 ddp_sibv_rec.attribute9 := p5_a19;
1547 ddp_sibv_rec.attribute10 := p5_a20;
1548 ddp_sibv_rec.attribute11 := p5_a21;
1549 ddp_sibv_rec.attribute12 := p5_a22;
1550 ddp_sibv_rec.attribute13 := p5_a23;
1551 ddp_sibv_rec.attribute14 := p5_a24;
1552 ddp_sibv_rec.attribute15 := p5_a25;
1553 ddp_sibv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
1554 ddp_sibv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
1555 ddp_sibv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
1556 ddp_sibv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
1557 ddp_sibv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
1558
1559 -- here's the delegated call to the old PL/SQL routine
1560 okl_sib_pvt.delete_row(p_api_version,
1561 p_init_msg_list,
1562 x_return_status,
1563 x_msg_count,
1564 x_msg_data,
1565 ddp_sibv_rec);
1566
1567 -- copy data back from the local variables to OUT or IN-OUT args, if any
1568
1569
1570
1571
1572
1573 end;
1574
1575 procedure delete_row(p_api_version NUMBER
1576 , p_init_msg_list VARCHAR2
1577 , x_return_status out nocopy VARCHAR2
1578 , x_msg_count out nocopy NUMBER
1579 , x_msg_data out nocopy VARCHAR2
1580 , p5_a0 JTF_NUMBER_TABLE
1581 , p5_a1 JTF_NUMBER_TABLE
1582 , p5_a2 JTF_VARCHAR2_TABLE_100
1583 , p5_a3 JTF_VARCHAR2_TABLE_200
1584 , p5_a4 JTF_VARCHAR2_TABLE_100
1585 , p5_a5 JTF_DATE_TABLE
1586 , p5_a6 JTF_VARCHAR2_TABLE_100
1587 , p5_a7 JTF_NUMBER_TABLE
1588 , p5_a8 JTF_NUMBER_TABLE
1589 , p5_a9 JTF_DATE_TABLE
1590 , p5_a10 JTF_VARCHAR2_TABLE_100
1591 , p5_a11 JTF_VARCHAR2_TABLE_500
1592 , p5_a12 JTF_VARCHAR2_TABLE_500
1593 , p5_a13 JTF_VARCHAR2_TABLE_500
1594 , p5_a14 JTF_VARCHAR2_TABLE_500
1595 , p5_a15 JTF_VARCHAR2_TABLE_500
1596 , p5_a16 JTF_VARCHAR2_TABLE_500
1597 , p5_a17 JTF_VARCHAR2_TABLE_500
1598 , p5_a18 JTF_VARCHAR2_TABLE_500
1599 , p5_a19 JTF_VARCHAR2_TABLE_500
1600 , p5_a20 JTF_VARCHAR2_TABLE_500
1601 , p5_a21 JTF_VARCHAR2_TABLE_500
1602 , p5_a22 JTF_VARCHAR2_TABLE_500
1603 , p5_a23 JTF_VARCHAR2_TABLE_500
1604 , p5_a24 JTF_VARCHAR2_TABLE_500
1605 , p5_a25 JTF_VARCHAR2_TABLE_500
1606 , p5_a26 JTF_NUMBER_TABLE
1607 , p5_a27 JTF_DATE_TABLE
1608 , p5_a28 JTF_NUMBER_TABLE
1609 , p5_a29 JTF_DATE_TABLE
1610 , p5_a30 JTF_NUMBER_TABLE
1611 )
1612
1613 as
1614 ddp_sibv_tbl okl_sib_pvt.sibv_tbl_type;
1615 ddindx binary_integer; indx binary_integer;
1616 begin
1617
1618 -- copy data to the local IN or IN-OUT args, if any
1619
1620
1621
1622
1623
1624 okl_sib_pvt_w.rosetta_table_copy_in_p2(ddp_sibv_tbl, p5_a0
1625 , p5_a1
1626 , p5_a2
1627 , p5_a3
1628 , p5_a4
1629 , p5_a5
1630 , p5_a6
1631 , p5_a7
1632 , p5_a8
1633 , p5_a9
1634 , p5_a10
1635 , p5_a11
1636 , p5_a12
1637 , p5_a13
1638 , p5_a14
1639 , p5_a15
1640 , p5_a16
1641 , p5_a17
1642 , p5_a18
1643 , p5_a19
1644 , p5_a20
1645 , p5_a21
1646 , p5_a22
1647 , p5_a23
1648 , p5_a24
1649 , p5_a25
1650 , p5_a26
1651 , p5_a27
1652 , p5_a28
1656
1653 , p5_a29
1654 , p5_a30
1655 );
1657 -- here's the delegated call to the old PL/SQL routine
1658 okl_sib_pvt.delete_row(p_api_version,
1659 p_init_msg_list,
1660 x_return_status,
1661 x_msg_count,
1662 x_msg_data,
1663 ddp_sibv_tbl);
1664
1665 -- copy data back from the local variables to OUT or IN-OUT args, if any
1666
1667
1668
1669
1670
1671 end;
1672
1673 procedure validate_row(p_api_version NUMBER
1674 , p_init_msg_list VARCHAR2
1675 , x_return_status out nocopy VARCHAR2
1676 , x_msg_count out nocopy NUMBER
1677 , x_msg_data out nocopy VARCHAR2
1678 , p5_a0 NUMBER := 0-1962.0724
1679 , p5_a1 NUMBER := 0-1962.0724
1680 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1681 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1682 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1683 , p5_a5 DATE := fnd_api.g_miss_date
1684 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1685 , p5_a7 NUMBER := 0-1962.0724
1686 , p5_a8 NUMBER := 0-1962.0724
1687 , p5_a9 DATE := fnd_api.g_miss_date
1688 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1689 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1690 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1691 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1692 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1693 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1694 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1695 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1696 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1697 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1698 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1699 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1700 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1701 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1702 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1703 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
1704 , p5_a26 NUMBER := 0-1962.0724
1705 , p5_a27 DATE := fnd_api.g_miss_date
1706 , p5_a28 NUMBER := 0-1962.0724
1707 , p5_a29 DATE := fnd_api.g_miss_date
1708 , p5_a30 NUMBER := 0-1962.0724
1709 )
1710
1711 as
1712 ddp_sibv_rec okl_sib_pvt.sibv_rec_type;
1713 ddindx binary_integer; indx binary_integer;
1714 begin
1715
1716 -- copy data to the local IN or IN-OUT args, if any
1717
1718
1719
1720
1721
1722 ddp_sibv_rec.id := rosetta_g_miss_num_map(p5_a0);
1723 ddp_sibv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1724 ddp_sibv_rec.sfwt_flag := p5_a2;
1725 ddp_sibv_rec.note := p5_a3;
1726 ddp_sibv_rec.budget_type_code := p5_a4;
1727 ddp_sibv_rec.effective_from_date := rosetta_g_miss_date_in_map(p5_a5);
1728 ddp_sibv_rec.decision_status_code := p5_a6;
1729 ddp_sibv_rec.budget_amount := rosetta_g_miss_num_map(p5_a7);
1730 ddp_sibv_rec.subsidy_pool_id := rosetta_g_miss_num_map(p5_a8);
1731 ddp_sibv_rec.decision_date := rosetta_g_miss_date_in_map(p5_a9);
1732 ddp_sibv_rec.attribute_category := p5_a10;
1733 ddp_sibv_rec.attribute1 := p5_a11;
1734 ddp_sibv_rec.attribute2 := p5_a12;
1735 ddp_sibv_rec.attribute3 := p5_a13;
1736 ddp_sibv_rec.attribute4 := p5_a14;
1737 ddp_sibv_rec.attribute5 := p5_a15;
1738 ddp_sibv_rec.attribute6 := p5_a16;
1739 ddp_sibv_rec.attribute7 := p5_a17;
1740 ddp_sibv_rec.attribute8 := p5_a18;
1741 ddp_sibv_rec.attribute9 := p5_a19;
1742 ddp_sibv_rec.attribute10 := p5_a20;
1743 ddp_sibv_rec.attribute11 := p5_a21;
1744 ddp_sibv_rec.attribute12 := p5_a22;
1745 ddp_sibv_rec.attribute13 := p5_a23;
1746 ddp_sibv_rec.attribute14 := p5_a24;
1747 ddp_sibv_rec.attribute15 := p5_a25;
1748 ddp_sibv_rec.created_by := rosetta_g_miss_num_map(p5_a26);
1749 ddp_sibv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a27);
1750 ddp_sibv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a28);
1751 ddp_sibv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a29);
1752 ddp_sibv_rec.last_update_login := rosetta_g_miss_num_map(p5_a30);
1753
1754 -- here's the delegated call to the old PL/SQL routine
1755 okl_sib_pvt.validate_row(p_api_version,
1756 p_init_msg_list,
1757 x_return_status,
1758 x_msg_count,
1759 x_msg_data,
1760 ddp_sibv_rec);
1761
1762 -- copy data back from the local variables to OUT or IN-OUT args, if any
1763
1764
1765
1766
1767
1768 end;
1769
1770 procedure validate_row(p_api_version NUMBER
1771 , p_init_msg_list VARCHAR2
1772 , x_return_status out nocopy VARCHAR2
1773 , x_msg_count out nocopy NUMBER
1774 , x_msg_data out nocopy VARCHAR2
1775 , p5_a0 JTF_NUMBER_TABLE
1776 , p5_a1 JTF_NUMBER_TABLE
1777 , p5_a2 JTF_VARCHAR2_TABLE_100
1778 , p5_a3 JTF_VARCHAR2_TABLE_200
1779 , p5_a4 JTF_VARCHAR2_TABLE_100
1780 , p5_a5 JTF_DATE_TABLE
1781 , p5_a6 JTF_VARCHAR2_TABLE_100
1782 , p5_a7 JTF_NUMBER_TABLE
1783 , p5_a8 JTF_NUMBER_TABLE
1784 , p5_a9 JTF_DATE_TABLE
1785 , p5_a10 JTF_VARCHAR2_TABLE_100
1786 , p5_a11 JTF_VARCHAR2_TABLE_500
1787 , p5_a12 JTF_VARCHAR2_TABLE_500
1788 , p5_a13 JTF_VARCHAR2_TABLE_500
1789 , p5_a14 JTF_VARCHAR2_TABLE_500
1790 , p5_a15 JTF_VARCHAR2_TABLE_500
1791 , p5_a16 JTF_VARCHAR2_TABLE_500
1792 , p5_a17 JTF_VARCHAR2_TABLE_500
1793 , p5_a18 JTF_VARCHAR2_TABLE_500
1794 , p5_a19 JTF_VARCHAR2_TABLE_500
1795 , p5_a20 JTF_VARCHAR2_TABLE_500
1796 , p5_a21 JTF_VARCHAR2_TABLE_500
1797 , p5_a22 JTF_VARCHAR2_TABLE_500
1798 , p5_a23 JTF_VARCHAR2_TABLE_500
1799 , p5_a24 JTF_VARCHAR2_TABLE_500
1800 , p5_a25 JTF_VARCHAR2_TABLE_500
1801 , p5_a26 JTF_NUMBER_TABLE
1802 , p5_a27 JTF_DATE_TABLE
1803 , p5_a28 JTF_NUMBER_TABLE
1804 , p5_a29 JTF_DATE_TABLE
1805 , p5_a30 JTF_NUMBER_TABLE
1806 )
1807
1808 as
1809 ddp_sibv_tbl okl_sib_pvt.sibv_tbl_type;
1810 ddindx binary_integer; indx binary_integer;
1811 begin
1812
1813 -- copy data to the local IN or IN-OUT args, if any
1814
1815
1816
1817
1818
1819 okl_sib_pvt_w.rosetta_table_copy_in_p2(ddp_sibv_tbl, p5_a0
1820 , p5_a1
1821 , p5_a2
1822 , p5_a3
1823 , p5_a4
1824 , p5_a5
1825 , p5_a6
1826 , p5_a7
1827 , p5_a8
1828 , p5_a9
1829 , p5_a10
1830 , p5_a11
1831 , p5_a12
1832 , p5_a13
1833 , p5_a14
1834 , p5_a15
1835 , p5_a16
1836 , p5_a17
1837 , p5_a18
1838 , p5_a19
1839 , p5_a20
1840 , p5_a21
1841 , p5_a22
1842 , p5_a23
1843 , p5_a24
1844 , p5_a25
1845 , p5_a26
1846 , p5_a27
1847 , p5_a28
1848 , p5_a29
1849 , p5_a30
1850 );
1851
1852 -- here's the delegated call to the old PL/SQL routine
1853 okl_sib_pvt.validate_row(p_api_version,
1854 p_init_msg_list,
1855 x_return_status,
1856 x_msg_count,
1857 x_msg_data,
1858 ddp_sibv_tbl);
1859
1860 -- copy data back from the local variables to OUT or IN-OUT args, if any
1861
1862
1863
1864
1865
1866 end;
1867
1868 end okl_sib_pvt_w;