[Home] [Help]
PACKAGE BODY: APPS.OKL_SEL_PVT_W
Source
1 package body okl_sel_pvt_w as
2 /* $Header: OKLISELB.pls 120.2 2005/06/24 03:14:44 hkpatel 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_sel_pvt.sel_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_DATE_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_VARCHAR2_TABLE_2000
28 , a6 JTF_VARCHAR2_TABLE_100
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_NUMBER_TABLE
31 , a9 JTF_NUMBER_TABLE
32 , a10 JTF_DATE_TABLE
33 , a11 JTF_NUMBER_TABLE
34 , a12 JTF_DATE_TABLE
35 , a13 JTF_NUMBER_TABLE
36 , a14 JTF_DATE_TABLE
37 , a15 JTF_NUMBER_TABLE
38 , a16 JTF_DATE_TABLE
39 , a17 JTF_NUMBER_TABLE
40 , a18 JTF_NUMBER_TABLE
41 , a19 JTF_NUMBER_TABLE
42 , a20 JTF_VARCHAR2_TABLE_100
43 , a21 JTF_VARCHAR2_TABLE_100
44 , a22 JTF_VARCHAR2_TABLE_100
45 , a23 JTF_DATE_TABLE
46 ) as
47 ddindx binary_integer; indx binary_integer;
48 begin
49 if a0 is not null and a0.count > 0 then
50 if a0.count > 0 then
51 indx := a0.first;
52 ddindx := 1;
53 while true loop
54 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
55 t(ddindx).stm_id := rosetta_g_miss_num_map(a1(indx));
56 t(ddindx).object_version_number := rosetta_g_miss_num_map(a2(indx));
57 t(ddindx).stream_element_date := rosetta_g_miss_date_in_map(a3(indx));
58 t(ddindx).amount := rosetta_g_miss_num_map(a4(indx));
59 t(ddindx).comments := a5(indx);
60 t(ddindx).accrued_yn := a6(indx);
61 t(ddindx).program_id := rosetta_g_miss_num_map(a7(indx));
62 t(ddindx).request_id := rosetta_g_miss_num_map(a8(indx));
63 t(ddindx).program_application_id := rosetta_g_miss_num_map(a9(indx));
64 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a10(indx));
65 t(ddindx).se_line_number := rosetta_g_miss_num_map(a11(indx));
66 t(ddindx).date_billed := rosetta_g_miss_date_in_map(a12(indx));
67 t(ddindx).created_by := rosetta_g_miss_num_map(a13(indx));
68 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a14(indx));
69 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a15(indx));
70 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a16(indx));
71 t(ddindx).last_update_login := rosetta_g_miss_num_map(a17(indx));
72 t(ddindx).sel_id := rosetta_g_miss_num_map(a18(indx));
73 t(ddindx).source_id := rosetta_g_miss_num_map(a19(indx));
74 t(ddindx).source_table := a20(indx);
75 t(ddindx).bill_adj_flag := a21(indx);
76 t(ddindx).accrual_adj_flag := a22(indx);
77 t(ddindx).date_disbursed := rosetta_g_miss_date_in_map(a23(indx));
78 ddindx := ddindx+1;
79 if a0.last =indx
80 then exit;
81 end if;
82 indx := a0.next(indx);
83 end loop;
84 end if;
85 end if;
86 end rosetta_table_copy_in_p2;
87 procedure rosetta_table_copy_out_p2(t okl_sel_pvt.sel_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
88 , a1 out nocopy JTF_NUMBER_TABLE
89 , a2 out nocopy JTF_NUMBER_TABLE
90 , a3 out nocopy JTF_DATE_TABLE
91 , a4 out nocopy JTF_NUMBER_TABLE
92 , a5 out nocopy JTF_VARCHAR2_TABLE_2000
93 , a6 out nocopy JTF_VARCHAR2_TABLE_100
94 , a7 out nocopy JTF_NUMBER_TABLE
95 , a8 out nocopy JTF_NUMBER_TABLE
96 , a9 out nocopy JTF_NUMBER_TABLE
97 , a10 out nocopy JTF_DATE_TABLE
98 , a11 out nocopy JTF_NUMBER_TABLE
99 , a12 out nocopy JTF_DATE_TABLE
100 , a13 out nocopy JTF_NUMBER_TABLE
101 , a14 out nocopy JTF_DATE_TABLE
102 , a15 out nocopy JTF_NUMBER_TABLE
103 , a16 out nocopy JTF_DATE_TABLE
104 , a17 out nocopy JTF_NUMBER_TABLE
105 , a18 out nocopy JTF_NUMBER_TABLE
106 , a19 out nocopy JTF_NUMBER_TABLE
107 , a20 out nocopy JTF_VARCHAR2_TABLE_100
108 , a21 out nocopy JTF_VARCHAR2_TABLE_100
109 , a22 out nocopy JTF_VARCHAR2_TABLE_100
110 , a23 out nocopy JTF_DATE_TABLE
111 ) as
112 ddindx binary_integer; indx binary_integer;
113 begin
114 if t is null or t.count = 0 then
115 a0 := JTF_NUMBER_TABLE();
116 a1 := JTF_NUMBER_TABLE();
117 a2 := JTF_NUMBER_TABLE();
118 a3 := JTF_DATE_TABLE();
119 a4 := JTF_NUMBER_TABLE();
120 a5 := JTF_VARCHAR2_TABLE_2000();
121 a6 := JTF_VARCHAR2_TABLE_100();
122 a7 := JTF_NUMBER_TABLE();
123 a8 := JTF_NUMBER_TABLE();
124 a9 := JTF_NUMBER_TABLE();
125 a10 := JTF_DATE_TABLE();
126 a11 := JTF_NUMBER_TABLE();
127 a12 := JTF_DATE_TABLE();
128 a13 := JTF_NUMBER_TABLE();
129 a14 := JTF_DATE_TABLE();
130 a15 := JTF_NUMBER_TABLE();
131 a16 := JTF_DATE_TABLE();
132 a17 := JTF_NUMBER_TABLE();
133 a18 := JTF_NUMBER_TABLE();
134 a19 := JTF_NUMBER_TABLE();
135 a20 := JTF_VARCHAR2_TABLE_100();
136 a21 := JTF_VARCHAR2_TABLE_100();
137 a22 := JTF_VARCHAR2_TABLE_100();
138 a23 := JTF_DATE_TABLE();
139 else
140 a0 := JTF_NUMBER_TABLE();
141 a1 := JTF_NUMBER_TABLE();
142 a2 := JTF_NUMBER_TABLE();
143 a3 := JTF_DATE_TABLE();
144 a4 := JTF_NUMBER_TABLE();
145 a5 := JTF_VARCHAR2_TABLE_2000();
146 a6 := JTF_VARCHAR2_TABLE_100();
147 a7 := JTF_NUMBER_TABLE();
148 a8 := JTF_NUMBER_TABLE();
149 a9 := JTF_NUMBER_TABLE();
150 a10 := JTF_DATE_TABLE();
151 a11 := JTF_NUMBER_TABLE();
152 a12 := JTF_DATE_TABLE();
153 a13 := JTF_NUMBER_TABLE();
154 a14 := JTF_DATE_TABLE();
155 a15 := JTF_NUMBER_TABLE();
156 a16 := JTF_DATE_TABLE();
157 a17 := JTF_NUMBER_TABLE();
158 a18 := JTF_NUMBER_TABLE();
159 a19 := JTF_NUMBER_TABLE();
160 a20 := JTF_VARCHAR2_TABLE_100();
161 a21 := JTF_VARCHAR2_TABLE_100();
162 a22 := JTF_VARCHAR2_TABLE_100();
163 a23 := JTF_DATE_TABLE();
164 if t.count > 0 then
165 a0.extend(t.count);
166 a1.extend(t.count);
167 a2.extend(t.count);
168 a3.extend(t.count);
169 a4.extend(t.count);
170 a5.extend(t.count);
171 a6.extend(t.count);
172 a7.extend(t.count);
173 a8.extend(t.count);
174 a9.extend(t.count);
175 a10.extend(t.count);
176 a11.extend(t.count);
177 a12.extend(t.count);
178 a13.extend(t.count);
179 a14.extend(t.count);
180 a15.extend(t.count);
181 a16.extend(t.count);
182 a17.extend(t.count);
183 a18.extend(t.count);
184 a19.extend(t.count);
185 a20.extend(t.count);
186 a21.extend(t.count);
187 a22.extend(t.count);
188 a23.extend(t.count);
189 ddindx := t.first;
190 indx := 1;
191 while true loop
192 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
193 a1(indx) := rosetta_g_miss_num_map(t(ddindx).stm_id);
194 a2(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
195 a3(indx) := t(ddindx).stream_element_date;
196 a4(indx) := rosetta_g_miss_num_map(t(ddindx).amount);
197 a5(indx) := t(ddindx).comments;
198 a6(indx) := t(ddindx).accrued_yn;
199 a7(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
200 a8(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
201 a9(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
202 a10(indx) := t(ddindx).program_update_date;
203 a11(indx) := rosetta_g_miss_num_map(t(ddindx).se_line_number);
204 a12(indx) := t(ddindx).date_billed;
205 a13(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
206 a14(indx) := t(ddindx).creation_date;
207 a15(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
208 a16(indx) := t(ddindx).last_update_date;
209 a17(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
210 a18(indx) := rosetta_g_miss_num_map(t(ddindx).sel_id);
211 a19(indx) := rosetta_g_miss_num_map(t(ddindx).source_id);
212 a20(indx) := t(ddindx).source_table;
213 a21(indx) := t(ddindx).bill_adj_flag;
214 a22(indx) := t(ddindx).accrual_adj_flag;
215 a23(indx) := t(ddindx).date_disbursed;
216 indx := indx+1;
217 if t.last =ddindx
218 then exit;
219 end if;
220 ddindx := t.next(ddindx);
221 end loop;
222 end if;
223 end if;
224 end rosetta_table_copy_out_p2;
225
226 procedure rosetta_table_copy_in_p5(t out nocopy okl_sel_pvt.selv_tbl_type, a0 JTF_NUMBER_TABLE
227 , a1 JTF_NUMBER_TABLE
228 , a2 JTF_NUMBER_TABLE
229 , a3 JTF_NUMBER_TABLE
230 , a4 JTF_VARCHAR2_TABLE_2000
231 , a5 JTF_VARCHAR2_TABLE_100
232 , a6 JTF_DATE_TABLE
233 , a7 JTF_NUMBER_TABLE
234 , a8 JTF_NUMBER_TABLE
235 , a9 JTF_NUMBER_TABLE
236 , a10 JTF_DATE_TABLE
237 , a11 JTF_NUMBER_TABLE
238 , a12 JTF_DATE_TABLE
239 , a13 JTF_NUMBER_TABLE
240 , a14 JTF_DATE_TABLE
241 , a15 JTF_NUMBER_TABLE
242 , a16 JTF_DATE_TABLE
243 , a17 JTF_NUMBER_TABLE
244 , a18 JTF_NUMBER_TABLE
245 , a19 JTF_NUMBER_TABLE
246 , a20 JTF_NUMBER_TABLE
247 , a21 JTF_VARCHAR2_TABLE_100
248 , a22 JTF_VARCHAR2_TABLE_100
249 , a23 JTF_VARCHAR2_TABLE_100
250 , a24 JTF_DATE_TABLE
251 ) as
252 ddindx binary_integer; indx binary_integer;
253 begin
254 if a0 is not null and a0.count > 0 then
255 if a0.count > 0 then
256 indx := a0.first;
257 ddindx := 1;
258 while true loop
259 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
260 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
261 t(ddindx).stm_id := rosetta_g_miss_num_map(a2(indx));
262 t(ddindx).amount := rosetta_g_miss_num_map(a3(indx));
263 t(ddindx).comments := a4(indx);
264 t(ddindx).accrued_yn := a5(indx);
265 t(ddindx).stream_element_date := rosetta_g_miss_date_in_map(a6(indx));
266 t(ddindx).program_id := rosetta_g_miss_num_map(a7(indx));
267 t(ddindx).request_id := rosetta_g_miss_num_map(a8(indx));
268 t(ddindx).program_application_id := rosetta_g_miss_num_map(a9(indx));
269 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a10(indx));
270 t(ddindx).se_line_number := rosetta_g_miss_num_map(a11(indx));
271 t(ddindx).date_billed := rosetta_g_miss_date_in_map(a12(indx));
272 t(ddindx).created_by := rosetta_g_miss_num_map(a13(indx));
273 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a14(indx));
274 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a15(indx));
275 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a16(indx));
276 t(ddindx).last_update_login := rosetta_g_miss_num_map(a17(indx));
277 t(ddindx).parent_index := rosetta_g_miss_num_map(a18(indx));
278 t(ddindx).sel_id := rosetta_g_miss_num_map(a19(indx));
279 t(ddindx).source_id := rosetta_g_miss_num_map(a20(indx));
280 t(ddindx).source_table := a21(indx);
281 t(ddindx).bill_adj_flag := a22(indx);
282 t(ddindx).accrual_adj_flag := a23(indx);
283 t(ddindx).date_disbursed := rosetta_g_miss_date_in_map(a24(indx));
284 ddindx := ddindx+1;
285 if a0.last =indx
286 then exit;
287 end if;
288 indx := a0.next(indx);
289 end loop;
290 end if;
291 end if;
292 end rosetta_table_copy_in_p5;
293 procedure rosetta_table_copy_out_p5(t okl_sel_pvt.selv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
294 , a1 out nocopy JTF_NUMBER_TABLE
295 , a2 out nocopy JTF_NUMBER_TABLE
296 , a3 out nocopy JTF_NUMBER_TABLE
297 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
298 , a5 out nocopy JTF_VARCHAR2_TABLE_100
299 , a6 out nocopy JTF_DATE_TABLE
300 , a7 out nocopy JTF_NUMBER_TABLE
301 , a8 out nocopy JTF_NUMBER_TABLE
302 , a9 out nocopy JTF_NUMBER_TABLE
303 , a10 out nocopy JTF_DATE_TABLE
304 , a11 out nocopy JTF_NUMBER_TABLE
305 , a12 out nocopy JTF_DATE_TABLE
306 , a13 out nocopy JTF_NUMBER_TABLE
307 , a14 out nocopy JTF_DATE_TABLE
308 , a15 out nocopy JTF_NUMBER_TABLE
309 , a16 out nocopy JTF_DATE_TABLE
310 , a17 out nocopy JTF_NUMBER_TABLE
311 , a18 out nocopy JTF_NUMBER_TABLE
312 , a19 out nocopy JTF_NUMBER_TABLE
313 , a20 out nocopy JTF_NUMBER_TABLE
314 , a21 out nocopy JTF_VARCHAR2_TABLE_100
315 , a22 out nocopy JTF_VARCHAR2_TABLE_100
316 , a23 out nocopy JTF_VARCHAR2_TABLE_100
317 , a24 out nocopy JTF_DATE_TABLE
318 ) as
319 ddindx binary_integer; indx binary_integer;
320 begin
321 if t is null or t.count = 0 then
322 a0 := JTF_NUMBER_TABLE();
323 a1 := JTF_NUMBER_TABLE();
324 a2 := JTF_NUMBER_TABLE();
325 a3 := JTF_NUMBER_TABLE();
326 a4 := JTF_VARCHAR2_TABLE_2000();
327 a5 := JTF_VARCHAR2_TABLE_100();
328 a6 := JTF_DATE_TABLE();
329 a7 := JTF_NUMBER_TABLE();
330 a8 := JTF_NUMBER_TABLE();
331 a9 := JTF_NUMBER_TABLE();
332 a10 := JTF_DATE_TABLE();
333 a11 := JTF_NUMBER_TABLE();
334 a12 := JTF_DATE_TABLE();
335 a13 := JTF_NUMBER_TABLE();
336 a14 := JTF_DATE_TABLE();
337 a15 := JTF_NUMBER_TABLE();
338 a16 := JTF_DATE_TABLE();
339 a17 := JTF_NUMBER_TABLE();
340 a18 := JTF_NUMBER_TABLE();
341 a19 := JTF_NUMBER_TABLE();
342 a20 := JTF_NUMBER_TABLE();
343 a21 := JTF_VARCHAR2_TABLE_100();
344 a22 := JTF_VARCHAR2_TABLE_100();
345 a23 := JTF_VARCHAR2_TABLE_100();
346 a24 := JTF_DATE_TABLE();
347 else
348 a0 := JTF_NUMBER_TABLE();
349 a1 := JTF_NUMBER_TABLE();
350 a2 := JTF_NUMBER_TABLE();
351 a3 := JTF_NUMBER_TABLE();
352 a4 := JTF_VARCHAR2_TABLE_2000();
353 a5 := JTF_VARCHAR2_TABLE_100();
354 a6 := JTF_DATE_TABLE();
355 a7 := JTF_NUMBER_TABLE();
356 a8 := JTF_NUMBER_TABLE();
357 a9 := JTF_NUMBER_TABLE();
358 a10 := JTF_DATE_TABLE();
359 a11 := JTF_NUMBER_TABLE();
360 a12 := JTF_DATE_TABLE();
361 a13 := JTF_NUMBER_TABLE();
362 a14 := JTF_DATE_TABLE();
363 a15 := JTF_NUMBER_TABLE();
364 a16 := JTF_DATE_TABLE();
365 a17 := JTF_NUMBER_TABLE();
366 a18 := JTF_NUMBER_TABLE();
367 a19 := JTF_NUMBER_TABLE();
368 a20 := JTF_NUMBER_TABLE();
369 a21 := JTF_VARCHAR2_TABLE_100();
370 a22 := JTF_VARCHAR2_TABLE_100();
371 a23 := JTF_VARCHAR2_TABLE_100();
372 a24 := JTF_DATE_TABLE();
373 if t.count > 0 then
374 a0.extend(t.count);
375 a1.extend(t.count);
376 a2.extend(t.count);
377 a3.extend(t.count);
378 a4.extend(t.count);
379 a5.extend(t.count);
380 a6.extend(t.count);
381 a7.extend(t.count);
382 a8.extend(t.count);
383 a9.extend(t.count);
384 a10.extend(t.count);
385 a11.extend(t.count);
386 a12.extend(t.count);
387 a13.extend(t.count);
388 a14.extend(t.count);
389 a15.extend(t.count);
390 a16.extend(t.count);
391 a17.extend(t.count);
392 a18.extend(t.count);
393 a19.extend(t.count);
394 a20.extend(t.count);
395 a21.extend(t.count);
396 a22.extend(t.count);
397 a23.extend(t.count);
398 a24.extend(t.count);
399 ddindx := t.first;
400 indx := 1;
401 while true loop
402 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
403 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
404 a2(indx) := rosetta_g_miss_num_map(t(ddindx).stm_id);
405 a3(indx) := rosetta_g_miss_num_map(t(ddindx).amount);
406 a4(indx) := t(ddindx).comments;
407 a5(indx) := t(ddindx).accrued_yn;
408 a6(indx) := t(ddindx).stream_element_date;
409 a7(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
410 a8(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
411 a9(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
412 a10(indx) := t(ddindx).program_update_date;
413 a11(indx) := rosetta_g_miss_num_map(t(ddindx).se_line_number);
414 a12(indx) := t(ddindx).date_billed;
415 a13(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
416 a14(indx) := t(ddindx).creation_date;
417 a15(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
418 a16(indx) := t(ddindx).last_update_date;
419 a17(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
420 a18(indx) := rosetta_g_miss_num_map(t(ddindx).parent_index);
421 a19(indx) := rosetta_g_miss_num_map(t(ddindx).sel_id);
422 a20(indx) := rosetta_g_miss_num_map(t(ddindx).source_id);
423 a21(indx) := t(ddindx).source_table;
424 a22(indx) := t(ddindx).bill_adj_flag;
425 a23(indx) := t(ddindx).accrual_adj_flag;
426 a24(indx) := t(ddindx).date_disbursed;
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 insert_row(p_api_version NUMBER
438 , p_init_msg_list VARCHAR2
439 , x_return_status out nocopy VARCHAR2
440 , x_msg_count out nocopy NUMBER
441 , x_msg_data out nocopy VARCHAR2
442 , p6_a0 out nocopy NUMBER
443 , p6_a1 out nocopy NUMBER
444 , p6_a2 out nocopy NUMBER
445 , p6_a3 out nocopy NUMBER
446 , p6_a4 out nocopy VARCHAR2
447 , p6_a5 out nocopy VARCHAR2
448 , p6_a6 out nocopy DATE
449 , p6_a7 out nocopy NUMBER
450 , p6_a8 out nocopy NUMBER
451 , p6_a9 out nocopy NUMBER
452 , p6_a10 out nocopy DATE
453 , p6_a11 out nocopy NUMBER
454 , p6_a12 out nocopy DATE
455 , p6_a13 out nocopy NUMBER
456 , p6_a14 out nocopy DATE
457 , p6_a15 out nocopy NUMBER
458 , p6_a16 out nocopy DATE
459 , p6_a17 out nocopy NUMBER
460 , p6_a18 out nocopy NUMBER
461 , p6_a19 out nocopy NUMBER
462 , p6_a20 out nocopy NUMBER
463 , p6_a21 out nocopy VARCHAR2
464 , p6_a22 out nocopy VARCHAR2
465 , p6_a23 out nocopy VARCHAR2
466 , p6_a24 out nocopy DATE
467 , p5_a0 NUMBER := 0-1962.0724
468 , p5_a1 NUMBER := 0-1962.0724
469 , p5_a2 NUMBER := 0-1962.0724
470 , p5_a3 NUMBER := 0-1962.0724
471 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
472 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
473 , p5_a6 DATE := fnd_api.g_miss_date
474 , p5_a7 NUMBER := 0-1962.0724
475 , p5_a8 NUMBER := 0-1962.0724
476 , p5_a9 NUMBER := 0-1962.0724
477 , p5_a10 DATE := fnd_api.g_miss_date
478 , p5_a11 NUMBER := 0-1962.0724
479 , p5_a12 DATE := fnd_api.g_miss_date
480 , p5_a13 NUMBER := 0-1962.0724
481 , p5_a14 DATE := fnd_api.g_miss_date
482 , p5_a15 NUMBER := 0-1962.0724
483 , p5_a16 DATE := fnd_api.g_miss_date
484 , p5_a17 NUMBER := 0-1962.0724
485 , p5_a18 NUMBER := 0-1962.0724
486 , p5_a19 NUMBER := 0-1962.0724
487 , p5_a20 NUMBER := 0-1962.0724
488 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
489 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
490 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
491 , p5_a24 DATE := fnd_api.g_miss_date
492 )
493
494 as
495 ddp_selv_rec okl_sel_pvt.selv_rec_type;
496 ddx_selv_rec okl_sel_pvt.selv_rec_type;
497 ddindx binary_integer; indx binary_integer;
498 begin
499
500 -- copy data to the local IN or IN-OUT args, if any
501
502
503
504
505
506 ddp_selv_rec.id := rosetta_g_miss_num_map(p5_a0);
507 ddp_selv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
508 ddp_selv_rec.stm_id := rosetta_g_miss_num_map(p5_a2);
509 ddp_selv_rec.amount := rosetta_g_miss_num_map(p5_a3);
510 ddp_selv_rec.comments := p5_a4;
511 ddp_selv_rec.accrued_yn := p5_a5;
512 ddp_selv_rec.stream_element_date := rosetta_g_miss_date_in_map(p5_a6);
513 ddp_selv_rec.program_id := rosetta_g_miss_num_map(p5_a7);
514 ddp_selv_rec.request_id := rosetta_g_miss_num_map(p5_a8);
515 ddp_selv_rec.program_application_id := rosetta_g_miss_num_map(p5_a9);
516 ddp_selv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
517 ddp_selv_rec.se_line_number := rosetta_g_miss_num_map(p5_a11);
518 ddp_selv_rec.date_billed := rosetta_g_miss_date_in_map(p5_a12);
519 ddp_selv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
520 ddp_selv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
521 ddp_selv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
522 ddp_selv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
523 ddp_selv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
524 ddp_selv_rec.parent_index := rosetta_g_miss_num_map(p5_a18);
525 ddp_selv_rec.sel_id := rosetta_g_miss_num_map(p5_a19);
526 ddp_selv_rec.source_id := rosetta_g_miss_num_map(p5_a20);
527 ddp_selv_rec.source_table := p5_a21;
528 ddp_selv_rec.bill_adj_flag := p5_a22;
529 ddp_selv_rec.accrual_adj_flag := p5_a23;
530 ddp_selv_rec.date_disbursed := rosetta_g_miss_date_in_map(p5_a24);
531
532
533 -- here's the delegated call to the old PL/SQL routine
534 okl_sel_pvt.insert_row(p_api_version,
535 p_init_msg_list,
536 x_return_status,
537 x_msg_count,
538 x_msg_data,
539 ddp_selv_rec,
540 ddx_selv_rec);
541
542 -- copy data back from the local variables to OUT or IN-OUT args, if any
543
544
545
546
547
548
549 p6_a0 := rosetta_g_miss_num_map(ddx_selv_rec.id);
550 p6_a1 := rosetta_g_miss_num_map(ddx_selv_rec.object_version_number);
551 p6_a2 := rosetta_g_miss_num_map(ddx_selv_rec.stm_id);
552 p6_a3 := rosetta_g_miss_num_map(ddx_selv_rec.amount);
553 p6_a4 := ddx_selv_rec.comments;
554 p6_a5 := ddx_selv_rec.accrued_yn;
555 p6_a6 := ddx_selv_rec.stream_element_date;
556 p6_a7 := rosetta_g_miss_num_map(ddx_selv_rec.program_id);
557 p6_a8 := rosetta_g_miss_num_map(ddx_selv_rec.request_id);
558 p6_a9 := rosetta_g_miss_num_map(ddx_selv_rec.program_application_id);
559 p6_a10 := ddx_selv_rec.program_update_date;
560 p6_a11 := rosetta_g_miss_num_map(ddx_selv_rec.se_line_number);
561 p6_a12 := ddx_selv_rec.date_billed;
562 p6_a13 := rosetta_g_miss_num_map(ddx_selv_rec.created_by);
563 p6_a14 := ddx_selv_rec.creation_date;
564 p6_a15 := rosetta_g_miss_num_map(ddx_selv_rec.last_updated_by);
565 p6_a16 := ddx_selv_rec.last_update_date;
566 p6_a17 := rosetta_g_miss_num_map(ddx_selv_rec.last_update_login);
567 p6_a18 := rosetta_g_miss_num_map(ddx_selv_rec.parent_index);
568 p6_a19 := rosetta_g_miss_num_map(ddx_selv_rec.sel_id);
569 p6_a20 := rosetta_g_miss_num_map(ddx_selv_rec.source_id);
570 p6_a21 := ddx_selv_rec.source_table;
571 p6_a22 := ddx_selv_rec.bill_adj_flag;
572 p6_a23 := ddx_selv_rec.accrual_adj_flag;
573 p6_a24 := ddx_selv_rec.date_disbursed;
574 end;
575
576 procedure insert_row(p_api_version NUMBER
577 , p_init_msg_list VARCHAR2
578 , x_return_status out nocopy VARCHAR2
579 , x_msg_count out nocopy NUMBER
580 , x_msg_data out nocopy VARCHAR2
581 , p5_a0 JTF_NUMBER_TABLE
582 , p5_a1 JTF_NUMBER_TABLE
583 , p5_a2 JTF_NUMBER_TABLE
584 , p5_a3 JTF_NUMBER_TABLE
585 , p5_a4 JTF_VARCHAR2_TABLE_2000
586 , p5_a5 JTF_VARCHAR2_TABLE_100
587 , p5_a6 JTF_DATE_TABLE
588 , p5_a7 JTF_NUMBER_TABLE
589 , p5_a8 JTF_NUMBER_TABLE
590 , p5_a9 JTF_NUMBER_TABLE
591 , p5_a10 JTF_DATE_TABLE
592 , p5_a11 JTF_NUMBER_TABLE
593 , p5_a12 JTF_DATE_TABLE
594 , p5_a13 JTF_NUMBER_TABLE
595 , p5_a14 JTF_DATE_TABLE
596 , p5_a15 JTF_NUMBER_TABLE
597 , p5_a16 JTF_DATE_TABLE
598 , p5_a17 JTF_NUMBER_TABLE
599 , p5_a18 JTF_NUMBER_TABLE
600 , p5_a19 JTF_NUMBER_TABLE
601 , p5_a20 JTF_NUMBER_TABLE
602 , p5_a21 JTF_VARCHAR2_TABLE_100
603 , p5_a22 JTF_VARCHAR2_TABLE_100
604 , p5_a23 JTF_VARCHAR2_TABLE_100
605 , p5_a24 JTF_DATE_TABLE
606 , p6_a0 out nocopy JTF_NUMBER_TABLE
607 , p6_a1 out nocopy JTF_NUMBER_TABLE
608 , p6_a2 out nocopy JTF_NUMBER_TABLE
609 , p6_a3 out nocopy JTF_NUMBER_TABLE
610 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_2000
611 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
612 , p6_a6 out nocopy JTF_DATE_TABLE
613 , p6_a7 out nocopy JTF_NUMBER_TABLE
614 , p6_a8 out nocopy JTF_NUMBER_TABLE
615 , p6_a9 out nocopy JTF_NUMBER_TABLE
616 , p6_a10 out nocopy JTF_DATE_TABLE
617 , p6_a11 out nocopy JTF_NUMBER_TABLE
618 , p6_a12 out nocopy JTF_DATE_TABLE
619 , p6_a13 out nocopy JTF_NUMBER_TABLE
620 , p6_a14 out nocopy JTF_DATE_TABLE
621 , p6_a15 out nocopy JTF_NUMBER_TABLE
622 , p6_a16 out nocopy JTF_DATE_TABLE
623 , p6_a17 out nocopy JTF_NUMBER_TABLE
624 , p6_a18 out nocopy JTF_NUMBER_TABLE
625 , p6_a19 out nocopy JTF_NUMBER_TABLE
626 , p6_a20 out nocopy JTF_NUMBER_TABLE
627 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_100
628 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_100
629 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_100
630 , p6_a24 out nocopy JTF_DATE_TABLE
631 )
632
633 as
634 ddp_selv_tbl okl_sel_pvt.selv_tbl_type;
635 ddx_selv_tbl okl_sel_pvt.selv_tbl_type;
636 ddindx binary_integer; indx binary_integer;
637 begin
638
639 -- copy data to the local IN or IN-OUT args, if any
640
641
642
643
644
645 okl_sel_pvt_w.rosetta_table_copy_in_p5(ddp_selv_tbl, p5_a0
646 , p5_a1
647 , p5_a2
648 , p5_a3
649 , p5_a4
650 , p5_a5
651 , p5_a6
652 , p5_a7
653 , p5_a8
654 , p5_a9
655 , p5_a10
656 , p5_a11
657 , p5_a12
658 , p5_a13
659 , p5_a14
660 , p5_a15
661 , p5_a16
662 , p5_a17
663 , p5_a18
664 , p5_a19
665 , p5_a20
666 , p5_a21
667 , p5_a22
668 , p5_a23
669 , p5_a24
670 );
671
672
673 -- here's the delegated call to the old PL/SQL routine
674 okl_sel_pvt.insert_row(p_api_version,
675 p_init_msg_list,
676 x_return_status,
677 x_msg_count,
678 x_msg_data,
679 ddp_selv_tbl,
680 ddx_selv_tbl);
681
682 -- copy data back from the local variables to OUT or IN-OUT args, if any
683
684
685
686
687
688
689 okl_sel_pvt_w.rosetta_table_copy_out_p5(ddx_selv_tbl, p6_a0
690 , p6_a1
691 , p6_a2
692 , p6_a3
693 , p6_a4
694 , p6_a5
695 , p6_a6
696 , p6_a7
697 , p6_a8
698 , p6_a9
699 , p6_a10
700 , p6_a11
701 , p6_a12
702 , p6_a13
703 , p6_a14
704 , p6_a15
705 , p6_a16
706 , p6_a17
707 , p6_a18
708 , p6_a19
709 , p6_a20
710 , p6_a21
711 , p6_a22
712 , p6_a23
713 , p6_a24
714 );
715 end;
716
717 procedure lock_row(p_api_version NUMBER
718 , p_init_msg_list VARCHAR2
719 , x_return_status out nocopy VARCHAR2
720 , x_msg_count out nocopy NUMBER
721 , x_msg_data out nocopy VARCHAR2
722 , p5_a0 NUMBER := 0-1962.0724
723 , p5_a1 NUMBER := 0-1962.0724
724 , p5_a2 NUMBER := 0-1962.0724
725 , p5_a3 NUMBER := 0-1962.0724
726 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
727 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
728 , p5_a6 DATE := fnd_api.g_miss_date
729 , p5_a7 NUMBER := 0-1962.0724
730 , p5_a8 NUMBER := 0-1962.0724
731 , p5_a9 NUMBER := 0-1962.0724
732 , p5_a10 DATE := fnd_api.g_miss_date
733 , p5_a11 NUMBER := 0-1962.0724
734 , p5_a12 DATE := fnd_api.g_miss_date
735 , p5_a13 NUMBER := 0-1962.0724
736 , p5_a14 DATE := fnd_api.g_miss_date
737 , p5_a15 NUMBER := 0-1962.0724
738 , p5_a16 DATE := fnd_api.g_miss_date
739 , p5_a17 NUMBER := 0-1962.0724
740 , p5_a18 NUMBER := 0-1962.0724
741 , p5_a19 NUMBER := 0-1962.0724
742 , p5_a20 NUMBER := 0-1962.0724
743 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
744 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
745 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
746 , p5_a24 DATE := fnd_api.g_miss_date
747 )
748
749 as
750 ddp_selv_rec okl_sel_pvt.selv_rec_type;
751 ddindx binary_integer; indx binary_integer;
752 begin
753
754 -- copy data to the local IN or IN-OUT args, if any
755
756
757
758
759
760 ddp_selv_rec.id := rosetta_g_miss_num_map(p5_a0);
761 ddp_selv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
762 ddp_selv_rec.stm_id := rosetta_g_miss_num_map(p5_a2);
763 ddp_selv_rec.amount := rosetta_g_miss_num_map(p5_a3);
764 ddp_selv_rec.comments := p5_a4;
765 ddp_selv_rec.accrued_yn := p5_a5;
766 ddp_selv_rec.stream_element_date := rosetta_g_miss_date_in_map(p5_a6);
767 ddp_selv_rec.program_id := rosetta_g_miss_num_map(p5_a7);
768 ddp_selv_rec.request_id := rosetta_g_miss_num_map(p5_a8);
769 ddp_selv_rec.program_application_id := rosetta_g_miss_num_map(p5_a9);
770 ddp_selv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
771 ddp_selv_rec.se_line_number := rosetta_g_miss_num_map(p5_a11);
772 ddp_selv_rec.date_billed := rosetta_g_miss_date_in_map(p5_a12);
773 ddp_selv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
774 ddp_selv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
775 ddp_selv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
776 ddp_selv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
777 ddp_selv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
778 ddp_selv_rec.parent_index := rosetta_g_miss_num_map(p5_a18);
779 ddp_selv_rec.sel_id := rosetta_g_miss_num_map(p5_a19);
780 ddp_selv_rec.source_id := rosetta_g_miss_num_map(p5_a20);
781 ddp_selv_rec.source_table := p5_a21;
782 ddp_selv_rec.bill_adj_flag := p5_a22;
783 ddp_selv_rec.accrual_adj_flag := p5_a23;
784 ddp_selv_rec.date_disbursed := rosetta_g_miss_date_in_map(p5_a24);
785
786 -- here's the delegated call to the old PL/SQL routine
787 okl_sel_pvt.lock_row(p_api_version,
788 p_init_msg_list,
789 x_return_status,
790 x_msg_count,
791 x_msg_data,
792 ddp_selv_rec);
793
794 -- copy data back from the local variables to OUT or IN-OUT args, if any
795
796
797
798
799
800 end;
801
802 procedure lock_row(p_api_version NUMBER
803 , p_init_msg_list VARCHAR2
804 , x_return_status out nocopy VARCHAR2
805 , x_msg_count out nocopy NUMBER
806 , x_msg_data out nocopy VARCHAR2
807 , p5_a0 JTF_NUMBER_TABLE
808 , p5_a1 JTF_NUMBER_TABLE
809 , p5_a2 JTF_NUMBER_TABLE
810 , p5_a3 JTF_NUMBER_TABLE
811 , p5_a4 JTF_VARCHAR2_TABLE_2000
812 , p5_a5 JTF_VARCHAR2_TABLE_100
813 , p5_a6 JTF_DATE_TABLE
814 , p5_a7 JTF_NUMBER_TABLE
815 , p5_a8 JTF_NUMBER_TABLE
816 , p5_a9 JTF_NUMBER_TABLE
817 , p5_a10 JTF_DATE_TABLE
818 , p5_a11 JTF_NUMBER_TABLE
819 , p5_a12 JTF_DATE_TABLE
820 , p5_a13 JTF_NUMBER_TABLE
821 , p5_a14 JTF_DATE_TABLE
822 , p5_a15 JTF_NUMBER_TABLE
823 , p5_a16 JTF_DATE_TABLE
824 , p5_a17 JTF_NUMBER_TABLE
825 , p5_a18 JTF_NUMBER_TABLE
826 , p5_a19 JTF_NUMBER_TABLE
827 , p5_a20 JTF_NUMBER_TABLE
828 , p5_a21 JTF_VARCHAR2_TABLE_100
829 , p5_a22 JTF_VARCHAR2_TABLE_100
830 , p5_a23 JTF_VARCHAR2_TABLE_100
831 , p5_a24 JTF_DATE_TABLE
832 )
833
834 as
835 ddp_selv_tbl okl_sel_pvt.selv_tbl_type;
836 ddindx binary_integer; indx binary_integer;
837 begin
838
839 -- copy data to the local IN or IN-OUT args, if any
840
841
842
843
844
845 okl_sel_pvt_w.rosetta_table_copy_in_p5(ddp_selv_tbl, p5_a0
846 , p5_a1
847 , p5_a2
848 , p5_a3
849 , p5_a4
850 , p5_a5
851 , p5_a6
852 , p5_a7
853 , p5_a8
854 , p5_a9
855 , p5_a10
856 , p5_a11
857 , p5_a12
858 , p5_a13
859 , p5_a14
860 , p5_a15
861 , p5_a16
862 , p5_a17
863 , p5_a18
864 , p5_a19
865 , p5_a20
866 , p5_a21
867 , p5_a22
868 , p5_a23
869 , p5_a24
870 );
871
872 -- here's the delegated call to the old PL/SQL routine
873 okl_sel_pvt.lock_row(p_api_version,
874 p_init_msg_list,
875 x_return_status,
876 x_msg_count,
877 x_msg_data,
878 ddp_selv_tbl);
879
880 -- copy data back from the local variables to OUT or IN-OUT args, if any
881
882
883
884
885
886 end;
887
888 procedure update_row(p_api_version NUMBER
889 , p_init_msg_list VARCHAR2
890 , x_return_status out nocopy VARCHAR2
891 , x_msg_count out nocopy NUMBER
892 , x_msg_data out nocopy VARCHAR2
893 , p6_a0 out nocopy NUMBER
894 , p6_a1 out nocopy NUMBER
895 , p6_a2 out nocopy NUMBER
896 , p6_a3 out nocopy NUMBER
897 , p6_a4 out nocopy VARCHAR2
898 , p6_a5 out nocopy VARCHAR2
899 , p6_a6 out nocopy DATE
900 , p6_a7 out nocopy NUMBER
901 , p6_a8 out nocopy NUMBER
902 , p6_a9 out nocopy NUMBER
903 , p6_a10 out nocopy DATE
904 , p6_a11 out nocopy NUMBER
905 , p6_a12 out nocopy DATE
906 , p6_a13 out nocopy NUMBER
907 , p6_a14 out nocopy DATE
908 , p6_a15 out nocopy NUMBER
909 , p6_a16 out nocopy DATE
910 , p6_a17 out nocopy NUMBER
911 , p6_a18 out nocopy NUMBER
912 , p6_a19 out nocopy NUMBER
913 , p6_a20 out nocopy NUMBER
914 , p6_a21 out nocopy VARCHAR2
915 , p6_a22 out nocopy VARCHAR2
916 , p6_a23 out nocopy VARCHAR2
917 , p6_a24 out nocopy DATE
918 , p5_a0 NUMBER := 0-1962.0724
919 , p5_a1 NUMBER := 0-1962.0724
920 , p5_a2 NUMBER := 0-1962.0724
921 , p5_a3 NUMBER := 0-1962.0724
922 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
923 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
924 , p5_a6 DATE := fnd_api.g_miss_date
925 , p5_a7 NUMBER := 0-1962.0724
926 , p5_a8 NUMBER := 0-1962.0724
927 , p5_a9 NUMBER := 0-1962.0724
928 , p5_a10 DATE := fnd_api.g_miss_date
929 , p5_a11 NUMBER := 0-1962.0724
930 , p5_a12 DATE := fnd_api.g_miss_date
931 , p5_a13 NUMBER := 0-1962.0724
932 , p5_a14 DATE := fnd_api.g_miss_date
933 , p5_a15 NUMBER := 0-1962.0724
934 , p5_a16 DATE := fnd_api.g_miss_date
935 , p5_a17 NUMBER := 0-1962.0724
936 , p5_a18 NUMBER := 0-1962.0724
937 , p5_a19 NUMBER := 0-1962.0724
938 , p5_a20 NUMBER := 0-1962.0724
939 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
940 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
941 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
942 , p5_a24 DATE := fnd_api.g_miss_date
943 )
944
945 as
946 ddp_selv_rec okl_sel_pvt.selv_rec_type;
947 ddx_selv_rec okl_sel_pvt.selv_rec_type;
948 ddindx binary_integer; indx binary_integer;
949 begin
950
951 -- copy data to the local IN or IN-OUT args, if any
952
953
954
955
956
957 ddp_selv_rec.id := rosetta_g_miss_num_map(p5_a0);
958 ddp_selv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
959 ddp_selv_rec.stm_id := rosetta_g_miss_num_map(p5_a2);
960 ddp_selv_rec.amount := rosetta_g_miss_num_map(p5_a3);
961 ddp_selv_rec.comments := p5_a4;
962 ddp_selv_rec.accrued_yn := p5_a5;
963 ddp_selv_rec.stream_element_date := rosetta_g_miss_date_in_map(p5_a6);
964 ddp_selv_rec.program_id := rosetta_g_miss_num_map(p5_a7);
965 ddp_selv_rec.request_id := rosetta_g_miss_num_map(p5_a8);
966 ddp_selv_rec.program_application_id := rosetta_g_miss_num_map(p5_a9);
967 ddp_selv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
968 ddp_selv_rec.se_line_number := rosetta_g_miss_num_map(p5_a11);
969 ddp_selv_rec.date_billed := rosetta_g_miss_date_in_map(p5_a12);
970 ddp_selv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
971 ddp_selv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
972 ddp_selv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
973 ddp_selv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
974 ddp_selv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
975 ddp_selv_rec.parent_index := rosetta_g_miss_num_map(p5_a18);
976 ddp_selv_rec.sel_id := rosetta_g_miss_num_map(p5_a19);
977 ddp_selv_rec.source_id := rosetta_g_miss_num_map(p5_a20);
978 ddp_selv_rec.source_table := p5_a21;
979 ddp_selv_rec.bill_adj_flag := p5_a22;
980 ddp_selv_rec.accrual_adj_flag := p5_a23;
981 ddp_selv_rec.date_disbursed := rosetta_g_miss_date_in_map(p5_a24);
982
983
984 -- here's the delegated call to the old PL/SQL routine
985 okl_sel_pvt.update_row(p_api_version,
986 p_init_msg_list,
987 x_return_status,
988 x_msg_count,
989 x_msg_data,
990 ddp_selv_rec,
991 ddx_selv_rec);
992
993 -- copy data back from the local variables to OUT or IN-OUT args, if any
994
995
996
997
998
999
1000 p6_a0 := rosetta_g_miss_num_map(ddx_selv_rec.id);
1001 p6_a1 := rosetta_g_miss_num_map(ddx_selv_rec.object_version_number);
1002 p6_a2 := rosetta_g_miss_num_map(ddx_selv_rec.stm_id);
1003 p6_a3 := rosetta_g_miss_num_map(ddx_selv_rec.amount);
1004 p6_a4 := ddx_selv_rec.comments;
1005 p6_a5 := ddx_selv_rec.accrued_yn;
1006 p6_a6 := ddx_selv_rec.stream_element_date;
1007 p6_a7 := rosetta_g_miss_num_map(ddx_selv_rec.program_id);
1008 p6_a8 := rosetta_g_miss_num_map(ddx_selv_rec.request_id);
1009 p6_a9 := rosetta_g_miss_num_map(ddx_selv_rec.program_application_id);
1010 p6_a10 := ddx_selv_rec.program_update_date;
1011 p6_a11 := rosetta_g_miss_num_map(ddx_selv_rec.se_line_number);
1012 p6_a12 := ddx_selv_rec.date_billed;
1013 p6_a13 := rosetta_g_miss_num_map(ddx_selv_rec.created_by);
1014 p6_a14 := ddx_selv_rec.creation_date;
1015 p6_a15 := rosetta_g_miss_num_map(ddx_selv_rec.last_updated_by);
1016 p6_a16 := ddx_selv_rec.last_update_date;
1017 p6_a17 := rosetta_g_miss_num_map(ddx_selv_rec.last_update_login);
1018 p6_a18 := rosetta_g_miss_num_map(ddx_selv_rec.parent_index);
1019 p6_a19 := rosetta_g_miss_num_map(ddx_selv_rec.sel_id);
1020 p6_a20 := rosetta_g_miss_num_map(ddx_selv_rec.source_id);
1021 p6_a21 := ddx_selv_rec.source_table;
1022 p6_a22 := ddx_selv_rec.bill_adj_flag;
1023 p6_a23 := ddx_selv_rec.accrual_adj_flag;
1024 p6_a24 := ddx_selv_rec.date_disbursed;
1025 end;
1026
1027 procedure update_row(p_api_version NUMBER
1028 , p_init_msg_list VARCHAR2
1029 , x_return_status out nocopy VARCHAR2
1030 , x_msg_count out nocopy NUMBER
1031 , x_msg_data out nocopy VARCHAR2
1032 , p5_a0 JTF_NUMBER_TABLE
1033 , p5_a1 JTF_NUMBER_TABLE
1034 , p5_a2 JTF_NUMBER_TABLE
1035 , p5_a3 JTF_NUMBER_TABLE
1036 , p5_a4 JTF_VARCHAR2_TABLE_2000
1037 , p5_a5 JTF_VARCHAR2_TABLE_100
1038 , p5_a6 JTF_DATE_TABLE
1039 , p5_a7 JTF_NUMBER_TABLE
1040 , p5_a8 JTF_NUMBER_TABLE
1041 , p5_a9 JTF_NUMBER_TABLE
1042 , p5_a10 JTF_DATE_TABLE
1043 , p5_a11 JTF_NUMBER_TABLE
1044 , p5_a12 JTF_DATE_TABLE
1045 , p5_a13 JTF_NUMBER_TABLE
1046 , p5_a14 JTF_DATE_TABLE
1047 , p5_a15 JTF_NUMBER_TABLE
1048 , p5_a16 JTF_DATE_TABLE
1049 , p5_a17 JTF_NUMBER_TABLE
1050 , p5_a18 JTF_NUMBER_TABLE
1051 , p5_a19 JTF_NUMBER_TABLE
1052 , p5_a20 JTF_NUMBER_TABLE
1053 , p5_a21 JTF_VARCHAR2_TABLE_100
1054 , p5_a22 JTF_VARCHAR2_TABLE_100
1055 , p5_a23 JTF_VARCHAR2_TABLE_100
1056 , p5_a24 JTF_DATE_TABLE
1057 , p6_a0 out nocopy JTF_NUMBER_TABLE
1058 , p6_a1 out nocopy JTF_NUMBER_TABLE
1059 , p6_a2 out nocopy JTF_NUMBER_TABLE
1060 , p6_a3 out nocopy JTF_NUMBER_TABLE
1061 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_2000
1062 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
1063 , p6_a6 out nocopy JTF_DATE_TABLE
1064 , p6_a7 out nocopy JTF_NUMBER_TABLE
1065 , p6_a8 out nocopy JTF_NUMBER_TABLE
1066 , p6_a9 out nocopy JTF_NUMBER_TABLE
1067 , p6_a10 out nocopy JTF_DATE_TABLE
1068 , p6_a11 out nocopy JTF_NUMBER_TABLE
1069 , p6_a12 out nocopy JTF_DATE_TABLE
1070 , p6_a13 out nocopy JTF_NUMBER_TABLE
1071 , p6_a14 out nocopy JTF_DATE_TABLE
1072 , p6_a15 out nocopy JTF_NUMBER_TABLE
1073 , p6_a16 out nocopy JTF_DATE_TABLE
1074 , p6_a17 out nocopy JTF_NUMBER_TABLE
1075 , p6_a18 out nocopy JTF_NUMBER_TABLE
1076 , p6_a19 out nocopy JTF_NUMBER_TABLE
1077 , p6_a20 out nocopy JTF_NUMBER_TABLE
1078 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_100
1079 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_100
1080 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_100
1081 , p6_a24 out nocopy JTF_DATE_TABLE
1082 )
1083
1084 as
1085 ddp_selv_tbl okl_sel_pvt.selv_tbl_type;
1086 ddx_selv_tbl okl_sel_pvt.selv_tbl_type;
1087 ddindx binary_integer; indx binary_integer;
1088 begin
1089
1090 -- copy data to the local IN or IN-OUT args, if any
1091
1092
1093
1094
1095
1096 okl_sel_pvt_w.rosetta_table_copy_in_p5(ddp_selv_tbl, p5_a0
1097 , p5_a1
1098 , p5_a2
1099 , p5_a3
1100 , p5_a4
1101 , p5_a5
1102 , p5_a6
1103 , p5_a7
1104 , p5_a8
1105 , p5_a9
1106 , p5_a10
1107 , p5_a11
1108 , p5_a12
1109 , p5_a13
1110 , p5_a14
1111 , p5_a15
1112 , p5_a16
1113 , p5_a17
1114 , p5_a18
1115 , p5_a19
1116 , p5_a20
1117 , p5_a21
1118 , p5_a22
1119 , p5_a23
1120 , p5_a24
1121 );
1122
1123
1124 -- here's the delegated call to the old PL/SQL routine
1125 okl_sel_pvt.update_row(p_api_version,
1126 p_init_msg_list,
1127 x_return_status,
1128 x_msg_count,
1129 x_msg_data,
1130 ddp_selv_tbl,
1131 ddx_selv_tbl);
1132
1133 -- copy data back from the local variables to OUT or IN-OUT args, if any
1134
1135
1136
1137
1138
1139
1140 okl_sel_pvt_w.rosetta_table_copy_out_p5(ddx_selv_tbl, p6_a0
1141 , p6_a1
1142 , p6_a2
1143 , p6_a3
1144 , p6_a4
1145 , p6_a5
1146 , p6_a6
1147 , p6_a7
1148 , p6_a8
1149 , p6_a9
1150 , p6_a10
1151 , p6_a11
1152 , p6_a12
1153 , p6_a13
1154 , p6_a14
1155 , p6_a15
1156 , p6_a16
1157 , p6_a17
1158 , p6_a18
1159 , p6_a19
1160 , p6_a20
1161 , p6_a21
1162 , p6_a22
1163 , p6_a23
1164 , p6_a24
1165 );
1166 end;
1167
1168 procedure delete_row(p_api_version NUMBER
1169 , p_init_msg_list VARCHAR2
1170 , x_return_status out nocopy VARCHAR2
1171 , x_msg_count out nocopy NUMBER
1172 , x_msg_data out nocopy VARCHAR2
1173 , p5_a0 NUMBER := 0-1962.0724
1174 , p5_a1 NUMBER := 0-1962.0724
1175 , p5_a2 NUMBER := 0-1962.0724
1176 , p5_a3 NUMBER := 0-1962.0724
1177 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1178 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1179 , p5_a6 DATE := fnd_api.g_miss_date
1180 , p5_a7 NUMBER := 0-1962.0724
1181 , p5_a8 NUMBER := 0-1962.0724
1182 , p5_a9 NUMBER := 0-1962.0724
1183 , p5_a10 DATE := fnd_api.g_miss_date
1184 , p5_a11 NUMBER := 0-1962.0724
1185 , p5_a12 DATE := fnd_api.g_miss_date
1186 , p5_a13 NUMBER := 0-1962.0724
1187 , p5_a14 DATE := fnd_api.g_miss_date
1188 , p5_a15 NUMBER := 0-1962.0724
1189 , p5_a16 DATE := fnd_api.g_miss_date
1190 , p5_a17 NUMBER := 0-1962.0724
1191 , p5_a18 NUMBER := 0-1962.0724
1192 , p5_a19 NUMBER := 0-1962.0724
1193 , p5_a20 NUMBER := 0-1962.0724
1194 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1195 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1196 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1197 , p5_a24 DATE := fnd_api.g_miss_date
1198 )
1199
1200 as
1201 ddp_selv_rec okl_sel_pvt.selv_rec_type;
1202 ddindx binary_integer; indx binary_integer;
1203 begin
1204
1205 -- copy data to the local IN or IN-OUT args, if any
1206
1207
1208
1209
1210
1211 ddp_selv_rec.id := rosetta_g_miss_num_map(p5_a0);
1212 ddp_selv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1213 ddp_selv_rec.stm_id := rosetta_g_miss_num_map(p5_a2);
1214 ddp_selv_rec.amount := rosetta_g_miss_num_map(p5_a3);
1215 ddp_selv_rec.comments := p5_a4;
1216 ddp_selv_rec.accrued_yn := p5_a5;
1217 ddp_selv_rec.stream_element_date := rosetta_g_miss_date_in_map(p5_a6);
1218 ddp_selv_rec.program_id := rosetta_g_miss_num_map(p5_a7);
1219 ddp_selv_rec.request_id := rosetta_g_miss_num_map(p5_a8);
1220 ddp_selv_rec.program_application_id := rosetta_g_miss_num_map(p5_a9);
1221 ddp_selv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
1222 ddp_selv_rec.se_line_number := rosetta_g_miss_num_map(p5_a11);
1223 ddp_selv_rec.date_billed := rosetta_g_miss_date_in_map(p5_a12);
1224 ddp_selv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
1225 ddp_selv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
1226 ddp_selv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
1227 ddp_selv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
1228 ddp_selv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
1229 ddp_selv_rec.parent_index := rosetta_g_miss_num_map(p5_a18);
1230 ddp_selv_rec.sel_id := rosetta_g_miss_num_map(p5_a19);
1231 ddp_selv_rec.source_id := rosetta_g_miss_num_map(p5_a20);
1232 ddp_selv_rec.source_table := p5_a21;
1233 ddp_selv_rec.bill_adj_flag := p5_a22;
1234 ddp_selv_rec.accrual_adj_flag := p5_a23;
1235 ddp_selv_rec.date_disbursed := rosetta_g_miss_date_in_map(p5_a24);
1236
1237 -- here's the delegated call to the old PL/SQL routine
1238 okl_sel_pvt.delete_row(p_api_version,
1239 p_init_msg_list,
1240 x_return_status,
1241 x_msg_count,
1242 x_msg_data,
1243 ddp_selv_rec);
1244
1245 -- copy data back from the local variables to OUT or IN-OUT args, if any
1246
1247
1248
1249
1250
1251 end;
1252
1253 procedure delete_row(p_api_version NUMBER
1254 , p_init_msg_list VARCHAR2
1255 , x_return_status out nocopy VARCHAR2
1256 , x_msg_count out nocopy NUMBER
1257 , x_msg_data out nocopy VARCHAR2
1258 , p5_a0 JTF_NUMBER_TABLE
1259 , p5_a1 JTF_NUMBER_TABLE
1260 , p5_a2 JTF_NUMBER_TABLE
1261 , p5_a3 JTF_NUMBER_TABLE
1262 , p5_a4 JTF_VARCHAR2_TABLE_2000
1263 , p5_a5 JTF_VARCHAR2_TABLE_100
1264 , p5_a6 JTF_DATE_TABLE
1265 , p5_a7 JTF_NUMBER_TABLE
1266 , p5_a8 JTF_NUMBER_TABLE
1267 , p5_a9 JTF_NUMBER_TABLE
1268 , p5_a10 JTF_DATE_TABLE
1269 , p5_a11 JTF_NUMBER_TABLE
1270 , p5_a12 JTF_DATE_TABLE
1271 , p5_a13 JTF_NUMBER_TABLE
1272 , p5_a14 JTF_DATE_TABLE
1273 , p5_a15 JTF_NUMBER_TABLE
1274 , p5_a16 JTF_DATE_TABLE
1275 , p5_a17 JTF_NUMBER_TABLE
1276 , p5_a18 JTF_NUMBER_TABLE
1277 , p5_a19 JTF_NUMBER_TABLE
1278 , p5_a20 JTF_NUMBER_TABLE
1279 , p5_a21 JTF_VARCHAR2_TABLE_100
1280 , p5_a22 JTF_VARCHAR2_TABLE_100
1281 , p5_a23 JTF_VARCHAR2_TABLE_100
1282 , p5_a24 JTF_DATE_TABLE
1283 )
1284
1285 as
1286 ddp_selv_tbl okl_sel_pvt.selv_tbl_type;
1287 ddindx binary_integer; indx binary_integer;
1288 begin
1289
1290 -- copy data to the local IN or IN-OUT args, if any
1291
1292
1293
1294
1295
1296 okl_sel_pvt_w.rosetta_table_copy_in_p5(ddp_selv_tbl, p5_a0
1297 , p5_a1
1298 , p5_a2
1299 , p5_a3
1300 , p5_a4
1301 , p5_a5
1302 , p5_a6
1303 , p5_a7
1304 , p5_a8
1305 , p5_a9
1306 , p5_a10
1307 , p5_a11
1308 , p5_a12
1309 , p5_a13
1310 , p5_a14
1311 , p5_a15
1312 , p5_a16
1313 , p5_a17
1314 , p5_a18
1315 , p5_a19
1316 , p5_a20
1317 , p5_a21
1318 , p5_a22
1319 , p5_a23
1320 , p5_a24
1321 );
1322
1323 -- here's the delegated call to the old PL/SQL routine
1324 okl_sel_pvt.delete_row(p_api_version,
1325 p_init_msg_list,
1326 x_return_status,
1327 x_msg_count,
1328 x_msg_data,
1329 ddp_selv_tbl);
1330
1331 -- copy data back from the local variables to OUT or IN-OUT args, if any
1332
1333
1334
1335
1336
1337 end;
1338
1339 procedure validate_row(p_api_version NUMBER
1340 , p_init_msg_list VARCHAR2
1341 , x_return_status out nocopy VARCHAR2
1342 , x_msg_count out nocopy NUMBER
1343 , x_msg_data out nocopy VARCHAR2
1344 , p5_a0 NUMBER := 0-1962.0724
1345 , p5_a1 NUMBER := 0-1962.0724
1346 , p5_a2 NUMBER := 0-1962.0724
1347 , p5_a3 NUMBER := 0-1962.0724
1348 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1349 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1350 , p5_a6 DATE := fnd_api.g_miss_date
1351 , p5_a7 NUMBER := 0-1962.0724
1352 , p5_a8 NUMBER := 0-1962.0724
1353 , p5_a9 NUMBER := 0-1962.0724
1354 , p5_a10 DATE := fnd_api.g_miss_date
1355 , p5_a11 NUMBER := 0-1962.0724
1356 , p5_a12 DATE := fnd_api.g_miss_date
1357 , p5_a13 NUMBER := 0-1962.0724
1358 , p5_a14 DATE := fnd_api.g_miss_date
1359 , p5_a15 NUMBER := 0-1962.0724
1360 , p5_a16 DATE := fnd_api.g_miss_date
1361 , p5_a17 NUMBER := 0-1962.0724
1362 , p5_a18 NUMBER := 0-1962.0724
1363 , p5_a19 NUMBER := 0-1962.0724
1364 , p5_a20 NUMBER := 0-1962.0724
1365 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1366 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1367 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1368 , p5_a24 DATE := fnd_api.g_miss_date
1369 )
1370
1371 as
1372 ddp_selv_rec okl_sel_pvt.selv_rec_type;
1373 ddindx binary_integer; indx binary_integer;
1374 begin
1375
1376 -- copy data to the local IN or IN-OUT args, if any
1377
1378
1379
1380
1381
1382 ddp_selv_rec.id := rosetta_g_miss_num_map(p5_a0);
1383 ddp_selv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
1384 ddp_selv_rec.stm_id := rosetta_g_miss_num_map(p5_a2);
1385 ddp_selv_rec.amount := rosetta_g_miss_num_map(p5_a3);
1386 ddp_selv_rec.comments := p5_a4;
1387 ddp_selv_rec.accrued_yn := p5_a5;
1388 ddp_selv_rec.stream_element_date := rosetta_g_miss_date_in_map(p5_a6);
1389 ddp_selv_rec.program_id := rosetta_g_miss_num_map(p5_a7);
1390 ddp_selv_rec.request_id := rosetta_g_miss_num_map(p5_a8);
1391 ddp_selv_rec.program_application_id := rosetta_g_miss_num_map(p5_a9);
1392 ddp_selv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a10);
1393 ddp_selv_rec.se_line_number := rosetta_g_miss_num_map(p5_a11);
1394 ddp_selv_rec.date_billed := rosetta_g_miss_date_in_map(p5_a12);
1395 ddp_selv_rec.created_by := rosetta_g_miss_num_map(p5_a13);
1396 ddp_selv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a14);
1397 ddp_selv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a15);
1398 ddp_selv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a16);
1399 ddp_selv_rec.last_update_login := rosetta_g_miss_num_map(p5_a17);
1400 ddp_selv_rec.parent_index := rosetta_g_miss_num_map(p5_a18);
1401 ddp_selv_rec.sel_id := rosetta_g_miss_num_map(p5_a19);
1402 ddp_selv_rec.source_id := rosetta_g_miss_num_map(p5_a20);
1403 ddp_selv_rec.source_table := p5_a21;
1404 ddp_selv_rec.bill_adj_flag := p5_a22;
1405 ddp_selv_rec.accrual_adj_flag := p5_a23;
1406 ddp_selv_rec.date_disbursed := rosetta_g_miss_date_in_map(p5_a24);
1407
1408 -- here's the delegated call to the old PL/SQL routine
1409 okl_sel_pvt.validate_row(p_api_version,
1410 p_init_msg_list,
1411 x_return_status,
1412 x_msg_count,
1413 x_msg_data,
1414 ddp_selv_rec);
1415
1416 -- copy data back from the local variables to OUT or IN-OUT args, if any
1417
1418
1419
1420
1421
1422 end;
1423
1424 procedure validate_row(p_api_version NUMBER
1425 , p_init_msg_list VARCHAR2
1426 , x_return_status out nocopy VARCHAR2
1427 , x_msg_count out nocopy NUMBER
1428 , x_msg_data out nocopy VARCHAR2
1429 , p5_a0 JTF_NUMBER_TABLE
1430 , p5_a1 JTF_NUMBER_TABLE
1431 , p5_a2 JTF_NUMBER_TABLE
1432 , p5_a3 JTF_NUMBER_TABLE
1433 , p5_a4 JTF_VARCHAR2_TABLE_2000
1434 , p5_a5 JTF_VARCHAR2_TABLE_100
1435 , p5_a6 JTF_DATE_TABLE
1436 , p5_a7 JTF_NUMBER_TABLE
1437 , p5_a8 JTF_NUMBER_TABLE
1438 , p5_a9 JTF_NUMBER_TABLE
1439 , p5_a10 JTF_DATE_TABLE
1440 , p5_a11 JTF_NUMBER_TABLE
1441 , p5_a12 JTF_DATE_TABLE
1442 , p5_a13 JTF_NUMBER_TABLE
1443 , p5_a14 JTF_DATE_TABLE
1444 , p5_a15 JTF_NUMBER_TABLE
1445 , p5_a16 JTF_DATE_TABLE
1446 , p5_a17 JTF_NUMBER_TABLE
1447 , p5_a18 JTF_NUMBER_TABLE
1448 , p5_a19 JTF_NUMBER_TABLE
1449 , p5_a20 JTF_NUMBER_TABLE
1450 , p5_a21 JTF_VARCHAR2_TABLE_100
1451 , p5_a22 JTF_VARCHAR2_TABLE_100
1452 , p5_a23 JTF_VARCHAR2_TABLE_100
1453 , p5_a24 JTF_DATE_TABLE
1454 )
1455
1456 as
1457 ddp_selv_tbl okl_sel_pvt.selv_tbl_type;
1458 ddindx binary_integer; indx binary_integer;
1459 begin
1460
1461 -- copy data to the local IN or IN-OUT args, if any
1462
1463
1464
1465
1466
1467 okl_sel_pvt_w.rosetta_table_copy_in_p5(ddp_selv_tbl, p5_a0
1468 , p5_a1
1469 , p5_a2
1470 , p5_a3
1471 , p5_a4
1472 , p5_a5
1473 , p5_a6
1474 , p5_a7
1475 , p5_a8
1476 , p5_a9
1477 , p5_a10
1478 , p5_a11
1479 , p5_a12
1480 , p5_a13
1481 , p5_a14
1482 , p5_a15
1483 , p5_a16
1484 , p5_a17
1485 , p5_a18
1486 , p5_a19
1487 , p5_a20
1488 , p5_a21
1489 , p5_a22
1490 , p5_a23
1491 , p5_a24
1492 );
1493
1494 -- here's the delegated call to the old PL/SQL routine
1495 okl_sel_pvt.validate_row(p_api_version,
1496 p_init_msg_list,
1497 x_return_status,
1498 x_msg_count,
1499 x_msg_data,
1500 ddp_selv_tbl);
1501
1502 -- copy data back from the local variables to OUT or IN-OUT args, if any
1503
1504
1505
1506
1507
1508 end;
1509
1510 end okl_sel_pvt_w;