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