[Home] [Help]
PACKAGE BODY: APPS.OKL_AEH_PVT_W
Source
1 package body okl_aeh_pvt_w as
2 /* $Header: OKLIAEHB.pls 120.2 2005/12/02 12:57:39 dkagrawa 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_aeh_pvt.aeh_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_VARCHAR2_TABLE_100
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_VARCHAR2_TABLE_100
28 , a6 JTF_VARCHAR2_TABLE_100
29 , a7 JTF_DATE_TABLE
30 , a8 JTF_VARCHAR2_TABLE_100
31 , a9 JTF_VARCHAR2_TABLE_100
32 , a10 JTF_NUMBER_TABLE
33 , a11 JTF_NUMBER_TABLE
34 , a12 JTF_NUMBER_TABLE
35 , a13 JTF_NUMBER_TABLE
36 , a14 JTF_VARCHAR2_TABLE_800
37 , a15 JTF_VARCHAR2_TABLE_100
38 , a16 JTF_VARCHAR2_TABLE_100
39 , a17 JTF_VARCHAR2_TABLE_100
40 , a18 JTF_NUMBER_TABLE
41 , a19 JTF_NUMBER_TABLE
42 , a20 JTF_DATE_TABLE
43 , a21 JTF_NUMBER_TABLE
44 , a22 JTF_NUMBER_TABLE
45 , a23 JTF_DATE_TABLE
46 , a24 JTF_NUMBER_TABLE
47 , a25 JTF_DATE_TABLE
48 , a26 JTF_NUMBER_TABLE
49 ) as
50 ddindx binary_integer; indx binary_integer;
51 begin
52 if a0 is not null and a0.count > 0 then
53 if a0.count > 0 then
54 indx := a0.first;
55 ddindx := 1;
56 while true loop
57 t(ddindx).ae_header_id := rosetta_g_miss_num_map(a0(indx));
58 t(ddindx).post_to_gl_flag := a1(indx);
59 t(ddindx).set_of_books_id := rosetta_g_miss_num_map(a2(indx));
60 t(ddindx).org_id := rosetta_g_miss_num_map(a3(indx));
61 t(ddindx).accounting_event_id := rosetta_g_miss_num_map(a4(indx));
62 t(ddindx).ae_category := a5(indx);
63 t(ddindx).period_name := a6(indx);
64 t(ddindx).accounting_date := rosetta_g_miss_date_in_map(a7(indx));
65 t(ddindx).cross_currency_flag := a8(indx);
66 t(ddindx).gl_transfer_flag := a9(indx);
67 t(ddindx).gl_transfer_run_id := rosetta_g_miss_num_map(a10(indx));
68 t(ddindx).object_version_number := rosetta_g_miss_num_map(a11(indx));
69 t(ddindx).sequence_id := rosetta_g_miss_num_map(a12(indx));
70 t(ddindx).sequence_value := rosetta_g_miss_num_map(a13(indx));
71 t(ddindx).description := a14(indx);
72 t(ddindx).accounting_error_code := a15(indx);
73 t(ddindx).gl_transfer_error_code := a16(indx);
74 t(ddindx).gl_reversal_flag := a17(indx);
75 t(ddindx).program_id := rosetta_g_miss_num_map(a18(indx));
76 t(ddindx).program_application_id := rosetta_g_miss_num_map(a19(indx));
77 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a20(indx));
78 t(ddindx).request_id := rosetta_g_miss_num_map(a21(indx));
79 t(ddindx).created_by := rosetta_g_miss_num_map(a22(indx));
80 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a23(indx));
81 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a24(indx));
82 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a25(indx));
83 t(ddindx).last_update_login := rosetta_g_miss_num_map(a26(indx));
84 ddindx := ddindx+1;
85 if a0.last =indx
86 then exit;
87 end if;
88 indx := a0.next(indx);
89 end loop;
90 end if;
91 end if;
92 end rosetta_table_copy_in_p2;
93 procedure rosetta_table_copy_out_p2(t okl_aeh_pvt.aeh_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
94 , a1 out nocopy JTF_VARCHAR2_TABLE_100
95 , a2 out nocopy JTF_NUMBER_TABLE
96 , a3 out nocopy JTF_NUMBER_TABLE
97 , a4 out nocopy JTF_NUMBER_TABLE
98 , a5 out nocopy JTF_VARCHAR2_TABLE_100
99 , a6 out nocopy JTF_VARCHAR2_TABLE_100
100 , a7 out nocopy JTF_DATE_TABLE
101 , a8 out nocopy JTF_VARCHAR2_TABLE_100
102 , a9 out nocopy JTF_VARCHAR2_TABLE_100
103 , a10 out nocopy JTF_NUMBER_TABLE
104 , a11 out nocopy JTF_NUMBER_TABLE
105 , a12 out nocopy JTF_NUMBER_TABLE
106 , a13 out nocopy JTF_NUMBER_TABLE
107 , a14 out nocopy JTF_VARCHAR2_TABLE_800
108 , a15 out nocopy JTF_VARCHAR2_TABLE_100
109 , a16 out nocopy JTF_VARCHAR2_TABLE_100
110 , a17 out nocopy JTF_VARCHAR2_TABLE_100
111 , a18 out nocopy JTF_NUMBER_TABLE
112 , a19 out nocopy JTF_NUMBER_TABLE
113 , a20 out nocopy JTF_DATE_TABLE
114 , a21 out nocopy JTF_NUMBER_TABLE
115 , a22 out nocopy JTF_NUMBER_TABLE
116 , a23 out nocopy JTF_DATE_TABLE
117 , a24 out nocopy JTF_NUMBER_TABLE
118 , a25 out nocopy JTF_DATE_TABLE
119 , a26 out nocopy JTF_NUMBER_TABLE
120 ) as
121 ddindx binary_integer; indx binary_integer;
122 begin
123 if t is null or t.count = 0 then
124 a0 := JTF_NUMBER_TABLE();
125 a1 := JTF_VARCHAR2_TABLE_100();
126 a2 := JTF_NUMBER_TABLE();
127 a3 := JTF_NUMBER_TABLE();
128 a4 := JTF_NUMBER_TABLE();
129 a5 := JTF_VARCHAR2_TABLE_100();
130 a6 := JTF_VARCHAR2_TABLE_100();
131 a7 := JTF_DATE_TABLE();
132 a8 := JTF_VARCHAR2_TABLE_100();
133 a9 := JTF_VARCHAR2_TABLE_100();
134 a10 := JTF_NUMBER_TABLE();
135 a11 := JTF_NUMBER_TABLE();
136 a12 := JTF_NUMBER_TABLE();
137 a13 := JTF_NUMBER_TABLE();
138 a14 := JTF_VARCHAR2_TABLE_800();
139 a15 := JTF_VARCHAR2_TABLE_100();
140 a16 := JTF_VARCHAR2_TABLE_100();
141 a17 := JTF_VARCHAR2_TABLE_100();
142 a18 := JTF_NUMBER_TABLE();
143 a19 := JTF_NUMBER_TABLE();
144 a20 := JTF_DATE_TABLE();
145 a21 := JTF_NUMBER_TABLE();
146 a22 := JTF_NUMBER_TABLE();
147 a23 := JTF_DATE_TABLE();
148 a24 := JTF_NUMBER_TABLE();
149 a25 := JTF_DATE_TABLE();
150 a26 := JTF_NUMBER_TABLE();
151 else
152 a0 := JTF_NUMBER_TABLE();
153 a1 := JTF_VARCHAR2_TABLE_100();
154 a2 := JTF_NUMBER_TABLE();
155 a3 := JTF_NUMBER_TABLE();
156 a4 := JTF_NUMBER_TABLE();
157 a5 := JTF_VARCHAR2_TABLE_100();
158 a6 := JTF_VARCHAR2_TABLE_100();
159 a7 := JTF_DATE_TABLE();
160 a8 := JTF_VARCHAR2_TABLE_100();
161 a9 := JTF_VARCHAR2_TABLE_100();
162 a10 := JTF_NUMBER_TABLE();
163 a11 := JTF_NUMBER_TABLE();
164 a12 := JTF_NUMBER_TABLE();
165 a13 := JTF_NUMBER_TABLE();
166 a14 := JTF_VARCHAR2_TABLE_800();
167 a15 := JTF_VARCHAR2_TABLE_100();
168 a16 := JTF_VARCHAR2_TABLE_100();
169 a17 := JTF_VARCHAR2_TABLE_100();
170 a18 := JTF_NUMBER_TABLE();
171 a19 := JTF_NUMBER_TABLE();
172 a20 := JTF_DATE_TABLE();
173 a21 := JTF_NUMBER_TABLE();
174 a22 := JTF_NUMBER_TABLE();
175 a23 := JTF_DATE_TABLE();
176 a24 := JTF_NUMBER_TABLE();
177 a25 := JTF_DATE_TABLE();
178 a26 := JTF_NUMBER_TABLE();
179 if t.count > 0 then
180 a0.extend(t.count);
181 a1.extend(t.count);
182 a2.extend(t.count);
183 a3.extend(t.count);
184 a4.extend(t.count);
185 a5.extend(t.count);
186 a6.extend(t.count);
187 a7.extend(t.count);
188 a8.extend(t.count);
189 a9.extend(t.count);
190 a10.extend(t.count);
191 a11.extend(t.count);
192 a12.extend(t.count);
193 a13.extend(t.count);
194 a14.extend(t.count);
195 a15.extend(t.count);
196 a16.extend(t.count);
197 a17.extend(t.count);
198 a18.extend(t.count);
199 a19.extend(t.count);
200 a20.extend(t.count);
201 a21.extend(t.count);
202 a22.extend(t.count);
203 a23.extend(t.count);
204 a24.extend(t.count);
205 a25.extend(t.count);
206 a26.extend(t.count);
207 ddindx := t.first;
208 indx := 1;
209 while true loop
210 a0(indx) := rosetta_g_miss_num_map(t(ddindx).ae_header_id);
211 a1(indx) := t(ddindx).post_to_gl_flag;
212 a2(indx) := rosetta_g_miss_num_map(t(ddindx).set_of_books_id);
213 a3(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
214 a4(indx) := rosetta_g_miss_num_map(t(ddindx).accounting_event_id);
215 a5(indx) := t(ddindx).ae_category;
216 a6(indx) := t(ddindx).period_name;
217 a7(indx) := t(ddindx).accounting_date;
218 a8(indx) := t(ddindx).cross_currency_flag;
219 a9(indx) := t(ddindx).gl_transfer_flag;
220 a10(indx) := rosetta_g_miss_num_map(t(ddindx).gl_transfer_run_id);
221 a11(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
222 a12(indx) := rosetta_g_miss_num_map(t(ddindx).sequence_id);
223 a13(indx) := rosetta_g_miss_num_map(t(ddindx).sequence_value);
224 a14(indx) := t(ddindx).description;
225 a15(indx) := t(ddindx).accounting_error_code;
226 a16(indx) := t(ddindx).gl_transfer_error_code;
227 a17(indx) := t(ddindx).gl_reversal_flag;
228 a18(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
229 a19(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
230 a20(indx) := t(ddindx).program_update_date;
231 a21(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
232 a22(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
233 a23(indx) := t(ddindx).creation_date;
234 a24(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
235 a25(indx) := t(ddindx).last_update_date;
236 a26(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
237 indx := indx+1;
238 if t.last =ddindx
239 then exit;
240 end if;
241 ddindx := t.next(ddindx);
242 end loop;
243 end if;
244 end if;
245 end rosetta_table_copy_out_p2;
246
247 procedure rosetta_table_copy_in_p5(t out nocopy okl_aeh_pvt.aehv_tbl_type, a0 JTF_VARCHAR2_TABLE_100
248 , a1 JTF_NUMBER_TABLE
249 , a2 JTF_NUMBER_TABLE
250 , a3 JTF_NUMBER_TABLE
251 , a4 JTF_NUMBER_TABLE
252 , a5 JTF_NUMBER_TABLE
253 , a6 JTF_VARCHAR2_TABLE_100
254 , a7 JTF_NUMBER_TABLE
255 , a8 JTF_NUMBER_TABLE
256 , a9 JTF_VARCHAR2_TABLE_100
257 , a10 JTF_DATE_TABLE
258 , a11 JTF_VARCHAR2_TABLE_800
259 , a12 JTF_VARCHAR2_TABLE_100
260 , a13 JTF_VARCHAR2_TABLE_100
261 , a14 JTF_VARCHAR2_TABLE_100
262 , a15 JTF_VARCHAR2_TABLE_100
263 , a16 JTF_NUMBER_TABLE
264 , a17 JTF_VARCHAR2_TABLE_100
265 , a18 JTF_NUMBER_TABLE
266 , a19 JTF_NUMBER_TABLE
267 , a20 JTF_DATE_TABLE
268 , a21 JTF_NUMBER_TABLE
269 , a22 JTF_NUMBER_TABLE
270 , a23 JTF_DATE_TABLE
271 , a24 JTF_NUMBER_TABLE
272 , a25 JTF_DATE_TABLE
273 , a26 JTF_NUMBER_TABLE
274 ) as
275 ddindx binary_integer; indx binary_integer;
276 begin
277 if a0 is not null and a0.count > 0 then
278 if a0.count > 0 then
279 indx := a0.first;
280 ddindx := 1;
281 while true loop
282 t(ddindx).post_to_gl_flag := a0(indx);
283 t(ddindx).ae_header_id := rosetta_g_miss_num_map(a1(indx));
284 t(ddindx).object_version_number := rosetta_g_miss_num_map(a2(indx));
285 t(ddindx).accounting_event_id := rosetta_g_miss_num_map(a3(indx));
286 t(ddindx).set_of_books_id := rosetta_g_miss_num_map(a4(indx));
287 t(ddindx).org_id := rosetta_g_miss_num_map(a5(indx));
288 t(ddindx).ae_category := a6(indx);
289 t(ddindx).sequence_id := rosetta_g_miss_num_map(a7(indx));
290 t(ddindx).sequence_value := rosetta_g_miss_num_map(a8(indx));
291 t(ddindx).period_name := a9(indx);
292 t(ddindx).accounting_date := rosetta_g_miss_date_in_map(a10(indx));
293 t(ddindx).description := a11(indx);
294 t(ddindx).accounting_error_code := a12(indx);
295 t(ddindx).cross_currency_flag := a13(indx);
296 t(ddindx).gl_transfer_flag := a14(indx);
297 t(ddindx).gl_transfer_error_code := a15(indx);
298 t(ddindx).gl_transfer_run_id := rosetta_g_miss_num_map(a16(indx));
299 t(ddindx).gl_reversal_flag := a17(indx);
300 t(ddindx).program_id := rosetta_g_miss_num_map(a18(indx));
301 t(ddindx).program_application_id := rosetta_g_miss_num_map(a19(indx));
302 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a20(indx));
303 t(ddindx).request_id := rosetta_g_miss_num_map(a21(indx));
304 t(ddindx).created_by := rosetta_g_miss_num_map(a22(indx));
305 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a23(indx));
306 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a24(indx));
307 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a25(indx));
308 t(ddindx).last_update_login := rosetta_g_miss_num_map(a26(indx));
309 ddindx := ddindx+1;
310 if a0.last =indx
311 then exit;
312 end if;
313 indx := a0.next(indx);
314 end loop;
315 end if;
316 end if;
317 end rosetta_table_copy_in_p5;
318 procedure rosetta_table_copy_out_p5(t okl_aeh_pvt.aehv_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
319 , a1 out nocopy JTF_NUMBER_TABLE
320 , a2 out nocopy JTF_NUMBER_TABLE
321 , a3 out nocopy JTF_NUMBER_TABLE
322 , a4 out nocopy JTF_NUMBER_TABLE
323 , a5 out nocopy JTF_NUMBER_TABLE
324 , a6 out nocopy JTF_VARCHAR2_TABLE_100
325 , a7 out nocopy JTF_NUMBER_TABLE
326 , a8 out nocopy JTF_NUMBER_TABLE
327 , a9 out nocopy JTF_VARCHAR2_TABLE_100
328 , a10 out nocopy JTF_DATE_TABLE
329 , a11 out nocopy JTF_VARCHAR2_TABLE_800
330 , a12 out nocopy JTF_VARCHAR2_TABLE_100
331 , a13 out nocopy JTF_VARCHAR2_TABLE_100
332 , a14 out nocopy JTF_VARCHAR2_TABLE_100
333 , a15 out nocopy JTF_VARCHAR2_TABLE_100
334 , a16 out nocopy JTF_NUMBER_TABLE
335 , a17 out nocopy JTF_VARCHAR2_TABLE_100
336 , a18 out nocopy JTF_NUMBER_TABLE
337 , a19 out nocopy JTF_NUMBER_TABLE
338 , a20 out nocopy JTF_DATE_TABLE
339 , a21 out nocopy JTF_NUMBER_TABLE
340 , a22 out nocopy JTF_NUMBER_TABLE
341 , a23 out nocopy JTF_DATE_TABLE
342 , a24 out nocopy JTF_NUMBER_TABLE
343 , a25 out nocopy JTF_DATE_TABLE
344 , a26 out nocopy JTF_NUMBER_TABLE
345 ) as
346 ddindx binary_integer; indx binary_integer;
347 begin
348 if t is null or t.count = 0 then
349 a0 := JTF_VARCHAR2_TABLE_100();
350 a1 := JTF_NUMBER_TABLE();
351 a2 := JTF_NUMBER_TABLE();
352 a3 := JTF_NUMBER_TABLE();
353 a4 := JTF_NUMBER_TABLE();
354 a5 := JTF_NUMBER_TABLE();
355 a6 := JTF_VARCHAR2_TABLE_100();
356 a7 := JTF_NUMBER_TABLE();
357 a8 := JTF_NUMBER_TABLE();
358 a9 := JTF_VARCHAR2_TABLE_100();
359 a10 := JTF_DATE_TABLE();
360 a11 := JTF_VARCHAR2_TABLE_800();
361 a12 := JTF_VARCHAR2_TABLE_100();
362 a13 := JTF_VARCHAR2_TABLE_100();
363 a14 := JTF_VARCHAR2_TABLE_100();
364 a15 := JTF_VARCHAR2_TABLE_100();
365 a16 := JTF_NUMBER_TABLE();
366 a17 := JTF_VARCHAR2_TABLE_100();
367 a18 := JTF_NUMBER_TABLE();
368 a19 := JTF_NUMBER_TABLE();
369 a20 := JTF_DATE_TABLE();
370 a21 := JTF_NUMBER_TABLE();
371 a22 := JTF_NUMBER_TABLE();
372 a23 := JTF_DATE_TABLE();
373 a24 := JTF_NUMBER_TABLE();
374 a25 := JTF_DATE_TABLE();
375 a26 := JTF_NUMBER_TABLE();
376 else
377 a0 := JTF_VARCHAR2_TABLE_100();
378 a1 := JTF_NUMBER_TABLE();
379 a2 := JTF_NUMBER_TABLE();
380 a3 := JTF_NUMBER_TABLE();
381 a4 := JTF_NUMBER_TABLE();
382 a5 := JTF_NUMBER_TABLE();
383 a6 := JTF_VARCHAR2_TABLE_100();
384 a7 := JTF_NUMBER_TABLE();
385 a8 := JTF_NUMBER_TABLE();
386 a9 := JTF_VARCHAR2_TABLE_100();
387 a10 := JTF_DATE_TABLE();
388 a11 := JTF_VARCHAR2_TABLE_800();
389 a12 := JTF_VARCHAR2_TABLE_100();
390 a13 := JTF_VARCHAR2_TABLE_100();
391 a14 := JTF_VARCHAR2_TABLE_100();
392 a15 := JTF_VARCHAR2_TABLE_100();
393 a16 := JTF_NUMBER_TABLE();
394 a17 := JTF_VARCHAR2_TABLE_100();
395 a18 := JTF_NUMBER_TABLE();
396 a19 := JTF_NUMBER_TABLE();
397 a20 := JTF_DATE_TABLE();
398 a21 := JTF_NUMBER_TABLE();
399 a22 := JTF_NUMBER_TABLE();
400 a23 := JTF_DATE_TABLE();
401 a24 := JTF_NUMBER_TABLE();
402 a25 := JTF_DATE_TABLE();
403 a26 := JTF_NUMBER_TABLE();
404 if t.count > 0 then
405 a0.extend(t.count);
406 a1.extend(t.count);
407 a2.extend(t.count);
408 a3.extend(t.count);
409 a4.extend(t.count);
410 a5.extend(t.count);
411 a6.extend(t.count);
412 a7.extend(t.count);
413 a8.extend(t.count);
414 a9.extend(t.count);
415 a10.extend(t.count);
416 a11.extend(t.count);
417 a12.extend(t.count);
418 a13.extend(t.count);
419 a14.extend(t.count);
420 a15.extend(t.count);
421 a16.extend(t.count);
422 a17.extend(t.count);
423 a18.extend(t.count);
424 a19.extend(t.count);
425 a20.extend(t.count);
426 a21.extend(t.count);
427 a22.extend(t.count);
428 a23.extend(t.count);
429 a24.extend(t.count);
430 a25.extend(t.count);
431 a26.extend(t.count);
432 ddindx := t.first;
433 indx := 1;
434 while true loop
435 a0(indx) := t(ddindx).post_to_gl_flag;
436 a1(indx) := rosetta_g_miss_num_map(t(ddindx).ae_header_id);
437 a2(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
438 a3(indx) := rosetta_g_miss_num_map(t(ddindx).accounting_event_id);
439 a4(indx) := rosetta_g_miss_num_map(t(ddindx).set_of_books_id);
440 a5(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
441 a6(indx) := t(ddindx).ae_category;
442 a7(indx) := rosetta_g_miss_num_map(t(ddindx).sequence_id);
443 a8(indx) := rosetta_g_miss_num_map(t(ddindx).sequence_value);
444 a9(indx) := t(ddindx).period_name;
445 a10(indx) := t(ddindx).accounting_date;
446 a11(indx) := t(ddindx).description;
447 a12(indx) := t(ddindx).accounting_error_code;
448 a13(indx) := t(ddindx).cross_currency_flag;
449 a14(indx) := t(ddindx).gl_transfer_flag;
450 a15(indx) := t(ddindx).gl_transfer_error_code;
451 a16(indx) := rosetta_g_miss_num_map(t(ddindx).gl_transfer_run_id);
452 a17(indx) := t(ddindx).gl_reversal_flag;
453 a18(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
454 a19(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
455 a20(indx) := t(ddindx).program_update_date;
456 a21(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
457 a22(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
458 a23(indx) := t(ddindx).creation_date;
459 a24(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
460 a25(indx) := t(ddindx).last_update_date;
461 a26(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
462 indx := indx+1;
463 if t.last =ddindx
464 then exit;
465 end if;
466 ddindx := t.next(ddindx);
467 end loop;
468 end if;
469 end if;
470 end rosetta_table_copy_out_p5;
471
472 procedure rosetta_table_copy_in_p6(t out nocopy okl_aeh_pvt.ae_header_id_typ, a0 JTF_NUMBER_TABLE) 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) := rosetta_g_miss_num_map(a0(indx));
481 ddindx := ddindx+1;
482 if a0.last =indx
483 then exit;
484 end if;
485 indx := a0.next(indx);
486 end loop;
487 end if;
488 end if;
489 end rosetta_table_copy_in_p6;
490 procedure rosetta_table_copy_out_p6(t okl_aeh_pvt.ae_header_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
491 ddindx binary_integer; indx binary_integer;
492 begin
493 if t is null or t.count = 0 then
494 a0 := JTF_NUMBER_TABLE();
495 else
496 a0 := JTF_NUMBER_TABLE();
497 if t.count > 0 then
498 a0.extend(t.count);
499 ddindx := t.first;
500 indx := 1;
501 while true loop
502 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
503 indx := indx+1;
504 if t.last =ddindx
505 then exit;
506 end if;
507 ddindx := t.next(ddindx);
508 end loop;
509 end if;
510 end if;
511 end rosetta_table_copy_out_p6;
512
513 procedure rosetta_table_copy_in_p7(t out nocopy okl_aeh_pvt.post_to_gl_flag_typ, a0 JTF_VARCHAR2_TABLE_100) as
514 ddindx binary_integer; indx binary_integer;
515 begin
516 if a0 is not null and a0.count > 0 then
517 if a0.count > 0 then
518 indx := a0.first;
519 ddindx := 1;
520 while true loop
521 t(ddindx) := a0(indx);
522 ddindx := ddindx+1;
523 if a0.last =indx
524 then exit;
525 end if;
526 indx := a0.next(indx);
527 end loop;
528 end if;
529 end if;
530 end rosetta_table_copy_in_p7;
531 procedure rosetta_table_copy_out_p7(t okl_aeh_pvt.post_to_gl_flag_typ, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
532 ddindx binary_integer; indx binary_integer;
533 begin
534 if t is null or t.count = 0 then
535 a0 := JTF_VARCHAR2_TABLE_100();
536 else
537 a0 := JTF_VARCHAR2_TABLE_100();
538 if t.count > 0 then
539 a0.extend(t.count);
540 ddindx := t.first;
541 indx := 1;
542 while true loop
543 a0(indx) := t(ddindx);
544 indx := indx+1;
545 if t.last =ddindx
546 then exit;
547 end if;
548 ddindx := t.next(ddindx);
549 end loop;
550 end if;
551 end if;
552 end rosetta_table_copy_out_p7;
553
554 procedure rosetta_table_copy_in_p8(t out nocopy okl_aeh_pvt.set_of_books_id_typ, a0 JTF_NUMBER_TABLE) as
555 ddindx binary_integer; indx binary_integer;
556 begin
557 if a0 is not null and a0.count > 0 then
558 if a0.count > 0 then
559 indx := a0.first;
560 ddindx := 1;
561 while true loop
562 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
563 ddindx := ddindx+1;
564 if a0.last =indx
565 then exit;
566 end if;
567 indx := a0.next(indx);
568 end loop;
569 end if;
570 end if;
571 end rosetta_table_copy_in_p8;
572 procedure rosetta_table_copy_out_p8(t okl_aeh_pvt.set_of_books_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
573 ddindx binary_integer; indx binary_integer;
574 begin
575 if t is null or t.count = 0 then
576 a0 := JTF_NUMBER_TABLE();
577 else
578 a0 := JTF_NUMBER_TABLE();
579 if t.count > 0 then
580 a0.extend(t.count);
581 ddindx := t.first;
582 indx := 1;
583 while true loop
584 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
585 indx := indx+1;
586 if t.last =ddindx
587 then exit;
588 end if;
589 ddindx := t.next(ddindx);
590 end loop;
591 end if;
592 end if;
593 end rosetta_table_copy_out_p8;
594
595 procedure rosetta_table_copy_in_p9(t out nocopy okl_aeh_pvt.accounting_event_id_typ, a0 JTF_NUMBER_TABLE) as
596 ddindx binary_integer; indx binary_integer;
597 begin
598 if a0 is not null and a0.count > 0 then
599 if a0.count > 0 then
600 indx := a0.first;
601 ddindx := 1;
602 while true loop
603 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
604 ddindx := ddindx+1;
605 if a0.last =indx
606 then exit;
607 end if;
608 indx := a0.next(indx);
609 end loop;
610 end if;
611 end if;
612 end rosetta_table_copy_in_p9;
613 procedure rosetta_table_copy_out_p9(t okl_aeh_pvt.accounting_event_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
614 ddindx binary_integer; indx binary_integer;
615 begin
616 if t is null or t.count = 0 then
617 a0 := JTF_NUMBER_TABLE();
618 else
619 a0 := JTF_NUMBER_TABLE();
620 if t.count > 0 then
621 a0.extend(t.count);
622 ddindx := t.first;
623 indx := 1;
624 while true loop
625 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
626 indx := indx+1;
627 if t.last =ddindx
628 then exit;
629 end if;
630 ddindx := t.next(ddindx);
631 end loop;
632 end if;
633 end if;
634 end rosetta_table_copy_out_p9;
635
636 procedure rosetta_table_copy_in_p10(t out nocopy okl_aeh_pvt.object_version_number_typ, a0 JTF_NUMBER_TABLE) as
637 ddindx binary_integer; indx binary_integer;
638 begin
639 if a0 is not null and a0.count > 0 then
640 if a0.count > 0 then
641 indx := a0.first;
642 ddindx := 1;
643 while true loop
644 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
645 ddindx := ddindx+1;
646 if a0.last =indx
647 then exit;
648 end if;
649 indx := a0.next(indx);
650 end loop;
651 end if;
652 end if;
653 end rosetta_table_copy_in_p10;
654 procedure rosetta_table_copy_out_p10(t okl_aeh_pvt.object_version_number_typ, a0 out nocopy JTF_NUMBER_TABLE) as
655 ddindx binary_integer; indx binary_integer;
656 begin
657 if t is null or t.count = 0 then
658 a0 := JTF_NUMBER_TABLE();
659 else
660 a0 := JTF_NUMBER_TABLE();
661 if t.count > 0 then
662 a0.extend(t.count);
663 ddindx := t.first;
664 indx := 1;
665 while true loop
666 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
667 indx := indx+1;
668 if t.last =ddindx
669 then exit;
670 end if;
671 ddindx := t.next(ddindx);
672 end loop;
673 end if;
674 end if;
675 end rosetta_table_copy_out_p10;
676
677 procedure rosetta_table_copy_in_p11(t out nocopy okl_aeh_pvt.ae_category_typ, a0 JTF_VARCHAR2_TABLE_100) as
678 ddindx binary_integer; indx binary_integer;
679 begin
680 if a0 is not null and a0.count > 0 then
681 if a0.count > 0 then
682 indx := a0.first;
683 ddindx := 1;
684 while true loop
685 t(ddindx) := a0(indx);
686 ddindx := ddindx+1;
687 if a0.last =indx
688 then exit;
689 end if;
690 indx := a0.next(indx);
691 end loop;
692 end if;
693 end if;
694 end rosetta_table_copy_in_p11;
695 procedure rosetta_table_copy_out_p11(t okl_aeh_pvt.ae_category_typ, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
696 ddindx binary_integer; indx binary_integer;
697 begin
698 if t is null or t.count = 0 then
699 a0 := JTF_VARCHAR2_TABLE_100();
700 else
701 a0 := JTF_VARCHAR2_TABLE_100();
702 if t.count > 0 then
703 a0.extend(t.count);
704 ddindx := t.first;
705 indx := 1;
706 while true loop
707 a0(indx) := t(ddindx);
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_p11;
717
718 procedure rosetta_table_copy_in_p12(t out nocopy okl_aeh_pvt.period_name_typ, a0 JTF_VARCHAR2_TABLE_100) as
719 ddindx binary_integer; indx binary_integer;
720 begin
721 if a0 is not null and a0.count > 0 then
722 if a0.count > 0 then
723 indx := a0.first;
724 ddindx := 1;
725 while true loop
726 t(ddindx) := a0(indx);
727 ddindx := ddindx+1;
728 if a0.last =indx
729 then exit;
730 end if;
731 indx := a0.next(indx);
732 end loop;
733 end if;
734 end if;
735 end rosetta_table_copy_in_p12;
736 procedure rosetta_table_copy_out_p12(t okl_aeh_pvt.period_name_typ, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
737 ddindx binary_integer; indx binary_integer;
738 begin
739 if t is null or t.count = 0 then
740 a0 := JTF_VARCHAR2_TABLE_100();
741 else
742 a0 := JTF_VARCHAR2_TABLE_100();
743 if t.count > 0 then
744 a0.extend(t.count);
745 ddindx := t.first;
746 indx := 1;
747 while true loop
748 a0(indx) := t(ddindx);
749 indx := indx+1;
750 if t.last =ddindx
751 then exit;
752 end if;
753 ddindx := t.next(ddindx);
754 end loop;
755 end if;
756 end if;
757 end rosetta_table_copy_out_p12;
758
759 procedure rosetta_table_copy_in_p13(t out nocopy okl_aeh_pvt.accounting_date_typ, a0 JTF_DATE_TABLE) as
760 ddindx binary_integer; indx binary_integer;
761 begin
762 if a0 is not null and a0.count > 0 then
763 if a0.count > 0 then
764 indx := a0.first;
765 ddindx := 1;
766 while true loop
767 t(ddindx) := rosetta_g_miss_date_in_map(a0(indx));
768 ddindx := ddindx+1;
769 if a0.last =indx
770 then exit;
771 end if;
772 indx := a0.next(indx);
773 end loop;
774 end if;
775 end if;
776 end rosetta_table_copy_in_p13;
777 procedure rosetta_table_copy_out_p13(t okl_aeh_pvt.accounting_date_typ, a0 out nocopy JTF_DATE_TABLE) as
778 ddindx binary_integer; indx binary_integer;
779 begin
780 if t is null or t.count = 0 then
781 a0 := JTF_DATE_TABLE();
782 else
783 a0 := JTF_DATE_TABLE();
784 if t.count > 0 then
785 a0.extend(t.count);
786 ddindx := t.first;
787 indx := 1;
788 while true loop
789 a0(indx) := rosetta_g_miss_date_in_map(t(ddindx));
790 indx := indx+1;
791 if t.last =ddindx
792 then exit;
793 end if;
794 ddindx := t.next(ddindx);
795 end loop;
796 end if;
797 end if;
798 end rosetta_table_copy_out_p13;
799
800 procedure rosetta_table_copy_in_p14(t out nocopy okl_aeh_pvt.gl_transfer_run_id_typ, a0 JTF_NUMBER_TABLE) as
801 ddindx binary_integer; indx binary_integer;
802 begin
803 if a0 is not null and a0.count > 0 then
804 if a0.count > 0 then
805 indx := a0.first;
806 ddindx := 1;
807 while true loop
808 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
809 ddindx := ddindx+1;
810 if a0.last =indx
811 then exit;
812 end if;
813 indx := a0.next(indx);
814 end loop;
815 end if;
816 end if;
817 end rosetta_table_copy_in_p14;
818 procedure rosetta_table_copy_out_p14(t okl_aeh_pvt.gl_transfer_run_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
819 ddindx binary_integer; indx binary_integer;
820 begin
821 if t is null or t.count = 0 then
822 a0 := JTF_NUMBER_TABLE();
823 else
824 a0 := JTF_NUMBER_TABLE();
825 if t.count > 0 then
826 a0.extend(t.count);
827 ddindx := t.first;
828 indx := 1;
829 while true loop
830 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
831 indx := indx+1;
832 if t.last =ddindx
833 then exit;
834 end if;
835 ddindx := t.next(ddindx);
836 end loop;
837 end if;
838 end if;
839 end rosetta_table_copy_out_p14;
840
841 procedure rosetta_table_copy_in_p15(t out nocopy okl_aeh_pvt.cross_currency_flag_typ, a0 JTF_VARCHAR2_TABLE_100) as
842 ddindx binary_integer; indx binary_integer;
843 begin
844 if a0 is not null and a0.count > 0 then
845 if a0.count > 0 then
846 indx := a0.first;
847 ddindx := 1;
848 while true loop
849 t(ddindx) := a0(indx);
850 ddindx := ddindx+1;
851 if a0.last =indx
852 then exit;
853 end if;
854 indx := a0.next(indx);
855 end loop;
856 end if;
857 end if;
858 end rosetta_table_copy_in_p15;
859 procedure rosetta_table_copy_out_p15(t okl_aeh_pvt.cross_currency_flag_typ, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
860 ddindx binary_integer; indx binary_integer;
861 begin
862 if t is null or t.count = 0 then
863 a0 := JTF_VARCHAR2_TABLE_100();
864 else
865 a0 := JTF_VARCHAR2_TABLE_100();
866 if t.count > 0 then
867 a0.extend(t.count);
868 ddindx := t.first;
869 indx := 1;
870 while true loop
871 a0(indx) := t(ddindx);
872 indx := indx+1;
873 if t.last =ddindx
874 then exit;
875 end if;
876 ddindx := t.next(ddindx);
877 end loop;
878 end if;
879 end if;
880 end rosetta_table_copy_out_p15;
881
882 procedure rosetta_table_copy_in_p16(t out nocopy okl_aeh_pvt.gl_transfer_flag_typ, a0 JTF_VARCHAR2_TABLE_100) as
883 ddindx binary_integer; indx binary_integer;
884 begin
885 if a0 is not null and a0.count > 0 then
886 if a0.count > 0 then
887 indx := a0.first;
888 ddindx := 1;
889 while true loop
890 t(ddindx) := a0(indx);
891 ddindx := ddindx+1;
892 if a0.last =indx
893 then exit;
894 end if;
895 indx := a0.next(indx);
896 end loop;
897 end if;
898 end if;
899 end rosetta_table_copy_in_p16;
900 procedure rosetta_table_copy_out_p16(t okl_aeh_pvt.gl_transfer_flag_typ, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
901 ddindx binary_integer; indx binary_integer;
902 begin
903 if t is null or t.count = 0 then
904 a0 := JTF_VARCHAR2_TABLE_100();
905 else
906 a0 := JTF_VARCHAR2_TABLE_100();
907 if t.count > 0 then
908 a0.extend(t.count);
909 ddindx := t.first;
910 indx := 1;
911 while true loop
912 a0(indx) := t(ddindx);
913 indx := indx+1;
914 if t.last =ddindx
915 then exit;
916 end if;
917 ddindx := t.next(ddindx);
918 end loop;
919 end if;
920 end if;
921 end rosetta_table_copy_out_p16;
922
923 procedure rosetta_table_copy_in_p17(t out nocopy okl_aeh_pvt.sequence_id_typ, a0 JTF_NUMBER_TABLE) as
924 ddindx binary_integer; indx binary_integer;
925 begin
926 if a0 is not null and a0.count > 0 then
927 if a0.count > 0 then
928 indx := a0.first;
929 ddindx := 1;
930 while true loop
931 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
932 ddindx := ddindx+1;
933 if a0.last =indx
934 then exit;
935 end if;
936 indx := a0.next(indx);
937 end loop;
938 end if;
939 end if;
940 end rosetta_table_copy_in_p17;
941 procedure rosetta_table_copy_out_p17(t okl_aeh_pvt.sequence_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
942 ddindx binary_integer; indx binary_integer;
943 begin
944 if t is null or t.count = 0 then
945 a0 := JTF_NUMBER_TABLE();
946 else
947 a0 := JTF_NUMBER_TABLE();
948 if t.count > 0 then
949 a0.extend(t.count);
950 ddindx := t.first;
951 indx := 1;
952 while true loop
953 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
954 indx := indx+1;
955 if t.last =ddindx
956 then exit;
957 end if;
958 ddindx := t.next(ddindx);
959 end loop;
960 end if;
961 end if;
962 end rosetta_table_copy_out_p17;
963
964 procedure rosetta_table_copy_in_p18(t out nocopy okl_aeh_pvt.sequence_value_typ, a0 JTF_NUMBER_TABLE) as
965 ddindx binary_integer; indx binary_integer;
966 begin
967 if a0 is not null and a0.count > 0 then
968 if a0.count > 0 then
969 indx := a0.first;
970 ddindx := 1;
971 while true loop
972 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
973 ddindx := ddindx+1;
974 if a0.last =indx
975 then exit;
976 end if;
977 indx := a0.next(indx);
978 end loop;
979 end if;
980 end if;
981 end rosetta_table_copy_in_p18;
982 procedure rosetta_table_copy_out_p18(t okl_aeh_pvt.sequence_value_typ, a0 out nocopy JTF_NUMBER_TABLE) as
983 ddindx binary_integer; indx binary_integer;
984 begin
985 if t is null or t.count = 0 then
986 a0 := JTF_NUMBER_TABLE();
987 else
988 a0 := JTF_NUMBER_TABLE();
989 if t.count > 0 then
990 a0.extend(t.count);
991 ddindx := t.first;
992 indx := 1;
993 while true loop
994 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
995 indx := indx+1;
996 if t.last =ddindx
997 then exit;
998 end if;
999 ddindx := t.next(ddindx);
1000 end loop;
1001 end if;
1002 end if;
1003 end rosetta_table_copy_out_p18;
1004
1005 procedure rosetta_table_copy_in_p19(t out nocopy okl_aeh_pvt.description_typ, a0 JTF_VARCHAR2_TABLE_800) as
1006 ddindx binary_integer; indx binary_integer;
1007 begin
1008 if a0 is not null and a0.count > 0 then
1009 if a0.count > 0 then
1010 indx := a0.first;
1011 ddindx := 1;
1012 while true loop
1013 t(ddindx) := a0(indx);
1014 ddindx := ddindx+1;
1015 if a0.last =indx
1016 then exit;
1017 end if;
1018 indx := a0.next(indx);
1019 end loop;
1020 end if;
1021 end if;
1022 end rosetta_table_copy_in_p19;
1023 procedure rosetta_table_copy_out_p19(t okl_aeh_pvt.description_typ, a0 out nocopy JTF_VARCHAR2_TABLE_800) as
1024 ddindx binary_integer; indx binary_integer;
1025 begin
1026 if t is null or t.count = 0 then
1027 a0 := JTF_VARCHAR2_TABLE_800();
1028 else
1029 a0 := JTF_VARCHAR2_TABLE_800();
1030 if t.count > 0 then
1031 a0.extend(t.count);
1032 ddindx := t.first;
1033 indx := 1;
1034 while true loop
1035 a0(indx) := t(ddindx);
1036 indx := indx+1;
1037 if t.last =ddindx
1038 then exit;
1039 end if;
1040 ddindx := t.next(ddindx);
1041 end loop;
1042 end if;
1043 end if;
1044 end rosetta_table_copy_out_p19;
1045
1046 procedure rosetta_table_copy_in_p20(t out nocopy okl_aeh_pvt.accounting_error_code_typ, a0 JTF_VARCHAR2_TABLE_100) as
1047 ddindx binary_integer; indx binary_integer;
1048 begin
1049 if a0 is not null and a0.count > 0 then
1050 if a0.count > 0 then
1051 indx := a0.first;
1052 ddindx := 1;
1053 while true loop
1054 t(ddindx) := a0(indx);
1055 ddindx := ddindx+1;
1056 if a0.last =indx
1057 then exit;
1058 end if;
1059 indx := a0.next(indx);
1060 end loop;
1061 end if;
1062 end if;
1063 end rosetta_table_copy_in_p20;
1064 procedure rosetta_table_copy_out_p20(t okl_aeh_pvt.accounting_error_code_typ, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1065 ddindx binary_integer; indx binary_integer;
1066 begin
1067 if t is null or t.count = 0 then
1068 a0 := JTF_VARCHAR2_TABLE_100();
1069 else
1070 a0 := JTF_VARCHAR2_TABLE_100();
1071 if t.count > 0 then
1072 a0.extend(t.count);
1073 ddindx := t.first;
1074 indx := 1;
1075 while true loop
1076 a0(indx) := t(ddindx);
1077 indx := indx+1;
1078 if t.last =ddindx
1079 then exit;
1080 end if;
1081 ddindx := t.next(ddindx);
1082 end loop;
1083 end if;
1084 end if;
1085 end rosetta_table_copy_out_p20;
1086
1087 procedure rosetta_table_copy_in_p21(t out nocopy okl_aeh_pvt.gl_transfer_error_code_typ, a0 JTF_VARCHAR2_TABLE_100) as
1088 ddindx binary_integer; indx binary_integer;
1089 begin
1090 if a0 is not null and a0.count > 0 then
1091 if a0.count > 0 then
1092 indx := a0.first;
1093 ddindx := 1;
1094 while true loop
1095 t(ddindx) := a0(indx);
1096 ddindx := ddindx+1;
1097 if a0.last =indx
1098 then exit;
1099 end if;
1100 indx := a0.next(indx);
1101 end loop;
1102 end if;
1103 end if;
1104 end rosetta_table_copy_in_p21;
1105 procedure rosetta_table_copy_out_p21(t okl_aeh_pvt.gl_transfer_error_code_typ, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1106 ddindx binary_integer; indx binary_integer;
1107 begin
1108 if t is null or t.count = 0 then
1109 a0 := JTF_VARCHAR2_TABLE_100();
1110 else
1111 a0 := JTF_VARCHAR2_TABLE_100();
1112 if t.count > 0 then
1113 a0.extend(t.count);
1114 ddindx := t.first;
1115 indx := 1;
1116 while true loop
1117 a0(indx) := t(ddindx);
1118 indx := indx+1;
1119 if t.last =ddindx
1120 then exit;
1121 end if;
1122 ddindx := t.next(ddindx);
1123 end loop;
1124 end if;
1125 end if;
1126 end rosetta_table_copy_out_p21;
1127
1128 procedure rosetta_table_copy_in_p22(t out nocopy okl_aeh_pvt.gl_reversal_flag_typ, a0 JTF_VARCHAR2_TABLE_100) as
1129 ddindx binary_integer; indx binary_integer;
1130 begin
1131 if a0 is not null and a0.count > 0 then
1132 if a0.count > 0 then
1133 indx := a0.first;
1134 ddindx := 1;
1135 while true loop
1136 t(ddindx) := a0(indx);
1137 ddindx := ddindx+1;
1138 if a0.last =indx
1139 then exit;
1140 end if;
1141 indx := a0.next(indx);
1142 end loop;
1143 end if;
1144 end if;
1145 end rosetta_table_copy_in_p22;
1146 procedure rosetta_table_copy_out_p22(t okl_aeh_pvt.gl_reversal_flag_typ, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
1147 ddindx binary_integer; indx binary_integer;
1148 begin
1149 if t is null or t.count = 0 then
1150 a0 := JTF_VARCHAR2_TABLE_100();
1151 else
1152 a0 := JTF_VARCHAR2_TABLE_100();
1153 if t.count > 0 then
1154 a0.extend(t.count);
1155 ddindx := t.first;
1156 indx := 1;
1157 while true loop
1158 a0(indx) := t(ddindx);
1159 indx := indx+1;
1160 if t.last =ddindx
1161 then exit;
1162 end if;
1163 ddindx := t.next(ddindx);
1164 end loop;
1165 end if;
1166 end if;
1167 end rosetta_table_copy_out_p22;
1168
1169 procedure rosetta_table_copy_in_p23(t out nocopy okl_aeh_pvt.org_id_typ, a0 JTF_NUMBER_TABLE) as
1170 ddindx binary_integer; indx binary_integer;
1171 begin
1172 if a0 is not null and a0.count > 0 then
1173 if a0.count > 0 then
1174 indx := a0.first;
1175 ddindx := 1;
1176 while true loop
1177 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1178 ddindx := ddindx+1;
1179 if a0.last =indx
1180 then exit;
1181 end if;
1182 indx := a0.next(indx);
1183 end loop;
1184 end if;
1185 end if;
1186 end rosetta_table_copy_in_p23;
1187 procedure rosetta_table_copy_out_p23(t okl_aeh_pvt.org_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1188 ddindx binary_integer; indx binary_integer;
1189 begin
1190 if t is null or t.count = 0 then
1191 a0 := JTF_NUMBER_TABLE();
1192 else
1193 a0 := JTF_NUMBER_TABLE();
1194 if t.count > 0 then
1195 a0.extend(t.count);
1196 ddindx := t.first;
1197 indx := 1;
1198 while true loop
1199 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1200 indx := indx+1;
1201 if t.last =ddindx
1202 then exit;
1203 end if;
1204 ddindx := t.next(ddindx);
1205 end loop;
1206 end if;
1207 end if;
1208 end rosetta_table_copy_out_p23;
1209
1210 procedure rosetta_table_copy_in_p24(t out nocopy okl_aeh_pvt.program_id_typ, a0 JTF_NUMBER_TABLE) as
1211 ddindx binary_integer; indx binary_integer;
1212 begin
1213 if a0 is not null and a0.count > 0 then
1214 if a0.count > 0 then
1215 indx := a0.first;
1216 ddindx := 1;
1217 while true loop
1218 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1219 ddindx := ddindx+1;
1220 if a0.last =indx
1221 then exit;
1222 end if;
1223 indx := a0.next(indx);
1224 end loop;
1225 end if;
1226 end if;
1227 end rosetta_table_copy_in_p24;
1228 procedure rosetta_table_copy_out_p24(t okl_aeh_pvt.program_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1229 ddindx binary_integer; indx binary_integer;
1230 begin
1231 if t is null or t.count = 0 then
1232 a0 := JTF_NUMBER_TABLE();
1233 else
1234 a0 := JTF_NUMBER_TABLE();
1235 if t.count > 0 then
1236 a0.extend(t.count);
1237 ddindx := t.first;
1238 indx := 1;
1239 while true loop
1240 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1241 indx := indx+1;
1242 if t.last =ddindx
1243 then exit;
1244 end if;
1245 ddindx := t.next(ddindx);
1246 end loop;
1247 end if;
1248 end if;
1249 end rosetta_table_copy_out_p24;
1250
1251 procedure rosetta_table_copy_in_p25(t out nocopy okl_aeh_pvt.program_application_id_typ, a0 JTF_NUMBER_TABLE) as
1252 ddindx binary_integer; indx binary_integer;
1253 begin
1254 if a0 is not null and a0.count > 0 then
1255 if a0.count > 0 then
1256 indx := a0.first;
1257 ddindx := 1;
1258 while true loop
1259 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1260 ddindx := ddindx+1;
1261 if a0.last =indx
1262 then exit;
1263 end if;
1264 indx := a0.next(indx);
1265 end loop;
1266 end if;
1267 end if;
1268 end rosetta_table_copy_in_p25;
1269 procedure rosetta_table_copy_out_p25(t okl_aeh_pvt.program_application_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1270 ddindx binary_integer; indx binary_integer;
1271 begin
1272 if t is null or t.count = 0 then
1273 a0 := JTF_NUMBER_TABLE();
1274 else
1275 a0 := JTF_NUMBER_TABLE();
1276 if t.count > 0 then
1277 a0.extend(t.count);
1278 ddindx := t.first;
1279 indx := 1;
1280 while true loop
1281 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1282 indx := indx+1;
1283 if t.last =ddindx
1284 then exit;
1285 end if;
1286 ddindx := t.next(ddindx);
1287 end loop;
1288 end if;
1289 end if;
1290 end rosetta_table_copy_out_p25;
1291
1292 procedure rosetta_table_copy_in_p26(t out nocopy okl_aeh_pvt.program_update_date_typ, a0 JTF_DATE_TABLE) as
1293 ddindx binary_integer; indx binary_integer;
1294 begin
1295 if a0 is not null and a0.count > 0 then
1296 if a0.count > 0 then
1297 indx := a0.first;
1298 ddindx := 1;
1299 while true loop
1300 t(ddindx) := rosetta_g_miss_date_in_map(a0(indx));
1301 ddindx := ddindx+1;
1302 if a0.last =indx
1303 then exit;
1304 end if;
1305 indx := a0.next(indx);
1306 end loop;
1307 end if;
1308 end if;
1309 end rosetta_table_copy_in_p26;
1310 procedure rosetta_table_copy_out_p26(t okl_aeh_pvt.program_update_date_typ, a0 out nocopy JTF_DATE_TABLE) as
1311 ddindx binary_integer; indx binary_integer;
1312 begin
1313 if t is null or t.count = 0 then
1314 a0 := JTF_DATE_TABLE();
1315 else
1316 a0 := JTF_DATE_TABLE();
1317 if t.count > 0 then
1318 a0.extend(t.count);
1319 ddindx := t.first;
1320 indx := 1;
1321 while true loop
1322 a0(indx) := rosetta_g_miss_date_in_map(t(ddindx));
1323 indx := indx+1;
1324 if t.last =ddindx
1325 then exit;
1326 end if;
1327 ddindx := t.next(ddindx);
1328 end loop;
1329 end if;
1330 end if;
1331 end rosetta_table_copy_out_p26;
1332
1333 procedure rosetta_table_copy_in_p27(t out nocopy okl_aeh_pvt.request_id_typ, a0 JTF_NUMBER_TABLE) as
1334 ddindx binary_integer; indx binary_integer;
1335 begin
1336 if a0 is not null and a0.count > 0 then
1337 if a0.count > 0 then
1338 indx := a0.first;
1339 ddindx := 1;
1340 while true loop
1341 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1342 ddindx := ddindx+1;
1343 if a0.last =indx
1344 then exit;
1345 end if;
1346 indx := a0.next(indx);
1347 end loop;
1348 end if;
1349 end if;
1350 end rosetta_table_copy_in_p27;
1351 procedure rosetta_table_copy_out_p27(t okl_aeh_pvt.request_id_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1352 ddindx binary_integer; indx binary_integer;
1353 begin
1354 if t is null or t.count = 0 then
1355 a0 := JTF_NUMBER_TABLE();
1356 else
1357 a0 := JTF_NUMBER_TABLE();
1358 if t.count > 0 then
1359 a0.extend(t.count);
1360 ddindx := t.first;
1361 indx := 1;
1362 while true loop
1363 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1364 indx := indx+1;
1365 if t.last =ddindx
1366 then exit;
1367 end if;
1368 ddindx := t.next(ddindx);
1369 end loop;
1370 end if;
1371 end if;
1372 end rosetta_table_copy_out_p27;
1373
1374 procedure rosetta_table_copy_in_p28(t out nocopy okl_aeh_pvt.created_by_typ, a0 JTF_NUMBER_TABLE) as
1375 ddindx binary_integer; indx binary_integer;
1376 begin
1377 if a0 is not null and a0.count > 0 then
1378 if a0.count > 0 then
1379 indx := a0.first;
1380 ddindx := 1;
1381 while true loop
1382 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1383 ddindx := ddindx+1;
1384 if a0.last =indx
1385 then exit;
1386 end if;
1387 indx := a0.next(indx);
1388 end loop;
1389 end if;
1390 end if;
1391 end rosetta_table_copy_in_p28;
1392 procedure rosetta_table_copy_out_p28(t okl_aeh_pvt.created_by_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1393 ddindx binary_integer; indx binary_integer;
1394 begin
1395 if t is null or t.count = 0 then
1396 a0 := JTF_NUMBER_TABLE();
1397 else
1398 a0 := JTF_NUMBER_TABLE();
1399 if t.count > 0 then
1400 a0.extend(t.count);
1401 ddindx := t.first;
1402 indx := 1;
1403 while true loop
1404 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1405 indx := indx+1;
1406 if t.last =ddindx
1407 then exit;
1408 end if;
1409 ddindx := t.next(ddindx);
1410 end loop;
1411 end if;
1412 end if;
1413 end rosetta_table_copy_out_p28;
1414
1415 procedure rosetta_table_copy_in_p29(t out nocopy okl_aeh_pvt.creation_date_typ, a0 JTF_DATE_TABLE) as
1416 ddindx binary_integer; indx binary_integer;
1417 begin
1418 if a0 is not null and a0.count > 0 then
1419 if a0.count > 0 then
1420 indx := a0.first;
1421 ddindx := 1;
1422 while true loop
1423 t(ddindx) := rosetta_g_miss_date_in_map(a0(indx));
1424 ddindx := ddindx+1;
1425 if a0.last =indx
1426 then exit;
1427 end if;
1428 indx := a0.next(indx);
1429 end loop;
1430 end if;
1431 end if;
1432 end rosetta_table_copy_in_p29;
1433 procedure rosetta_table_copy_out_p29(t okl_aeh_pvt.creation_date_typ, a0 out nocopy JTF_DATE_TABLE) as
1434 ddindx binary_integer; indx binary_integer;
1435 begin
1436 if t is null or t.count = 0 then
1437 a0 := JTF_DATE_TABLE();
1438 else
1439 a0 := JTF_DATE_TABLE();
1440 if t.count > 0 then
1441 a0.extend(t.count);
1442 ddindx := t.first;
1443 indx := 1;
1444 while true loop
1445 a0(indx) := rosetta_g_miss_date_in_map(t(ddindx));
1446 indx := indx+1;
1447 if t.last =ddindx
1448 then exit;
1449 end if;
1450 ddindx := t.next(ddindx);
1451 end loop;
1452 end if;
1453 end if;
1454 end rosetta_table_copy_out_p29;
1455
1456 procedure rosetta_table_copy_in_p30(t out nocopy okl_aeh_pvt.last_updated_by_typ, a0 JTF_NUMBER_TABLE) as
1457 ddindx binary_integer; indx binary_integer;
1458 begin
1459 if a0 is not null and a0.count > 0 then
1460 if a0.count > 0 then
1461 indx := a0.first;
1462 ddindx := 1;
1463 while true loop
1464 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1465 ddindx := ddindx+1;
1466 if a0.last =indx
1467 then exit;
1468 end if;
1469 indx := a0.next(indx);
1470 end loop;
1471 end if;
1472 end if;
1473 end rosetta_table_copy_in_p30;
1474 procedure rosetta_table_copy_out_p30(t okl_aeh_pvt.last_updated_by_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1475 ddindx binary_integer; indx binary_integer;
1476 begin
1477 if t is null or t.count = 0 then
1478 a0 := JTF_NUMBER_TABLE();
1479 else
1480 a0 := JTF_NUMBER_TABLE();
1481 if t.count > 0 then
1482 a0.extend(t.count);
1483 ddindx := t.first;
1484 indx := 1;
1485 while true loop
1486 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1487 indx := indx+1;
1488 if t.last =ddindx
1489 then exit;
1490 end if;
1491 ddindx := t.next(ddindx);
1492 end loop;
1493 end if;
1494 end if;
1495 end rosetta_table_copy_out_p30;
1496
1497 procedure rosetta_table_copy_in_p31(t out nocopy okl_aeh_pvt.last_update_date_typ, a0 JTF_DATE_TABLE) as
1498 ddindx binary_integer; indx binary_integer;
1499 begin
1500 if a0 is not null and a0.count > 0 then
1501 if a0.count > 0 then
1502 indx := a0.first;
1503 ddindx := 1;
1504 while true loop
1505 t(ddindx) := rosetta_g_miss_date_in_map(a0(indx));
1506 ddindx := ddindx+1;
1507 if a0.last =indx
1508 then exit;
1509 end if;
1510 indx := a0.next(indx);
1511 end loop;
1512 end if;
1513 end if;
1514 end rosetta_table_copy_in_p31;
1515 procedure rosetta_table_copy_out_p31(t okl_aeh_pvt.last_update_date_typ, a0 out nocopy JTF_DATE_TABLE) as
1516 ddindx binary_integer; indx binary_integer;
1517 begin
1518 if t is null or t.count = 0 then
1519 a0 := JTF_DATE_TABLE();
1520 else
1521 a0 := JTF_DATE_TABLE();
1522 if t.count > 0 then
1523 a0.extend(t.count);
1524 ddindx := t.first;
1525 indx := 1;
1526 while true loop
1527 a0(indx) := rosetta_g_miss_date_in_map(t(ddindx));
1528 indx := indx+1;
1529 if t.last =ddindx
1530 then exit;
1531 end if;
1532 ddindx := t.next(ddindx);
1533 end loop;
1534 end if;
1535 end if;
1536 end rosetta_table_copy_out_p31;
1537
1538 procedure rosetta_table_copy_in_p32(t out nocopy okl_aeh_pvt.last_update_login_typ, a0 JTF_NUMBER_TABLE) as
1539 ddindx binary_integer; indx binary_integer;
1540 begin
1541 if a0 is not null and a0.count > 0 then
1542 if a0.count > 0 then
1543 indx := a0.first;
1544 ddindx := 1;
1545 while true loop
1546 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
1547 ddindx := ddindx+1;
1548 if a0.last =indx
1549 then exit;
1550 end if;
1551 indx := a0.next(indx);
1552 end loop;
1553 end if;
1554 end if;
1555 end rosetta_table_copy_in_p32;
1556 procedure rosetta_table_copy_out_p32(t okl_aeh_pvt.last_update_login_typ, a0 out nocopy JTF_NUMBER_TABLE) as
1557 ddindx binary_integer; indx binary_integer;
1558 begin
1559 if t is null or t.count = 0 then
1560 a0 := JTF_NUMBER_TABLE();
1561 else
1562 a0 := JTF_NUMBER_TABLE();
1563 if t.count > 0 then
1564 a0.extend(t.count);
1565 ddindx := t.first;
1566 indx := 1;
1567 while true loop
1568 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
1569 indx := indx+1;
1570 if t.last =ddindx
1571 then exit;
1572 end if;
1573 ddindx := t.next(ddindx);
1574 end loop;
1575 end if;
1576 end if;
1577 end rosetta_table_copy_out_p32;
1578
1579 procedure insert_row(p_api_version NUMBER
1580 , p_init_msg_list VARCHAR2
1581 , x_return_status out nocopy VARCHAR2
1582 , x_msg_count out nocopy NUMBER
1583 , x_msg_data out nocopy VARCHAR2
1584 , p6_a0 out nocopy VARCHAR2
1585 , p6_a1 out nocopy NUMBER
1586 , p6_a2 out nocopy NUMBER
1587 , p6_a3 out nocopy NUMBER
1588 , p6_a4 out nocopy NUMBER
1589 , p6_a5 out nocopy NUMBER
1590 , p6_a6 out nocopy VARCHAR2
1591 , p6_a7 out nocopy NUMBER
1592 , p6_a8 out nocopy NUMBER
1593 , p6_a9 out nocopy VARCHAR2
1594 , p6_a10 out nocopy DATE
1595 , p6_a11 out nocopy VARCHAR2
1596 , p6_a12 out nocopy VARCHAR2
1597 , p6_a13 out nocopy VARCHAR2
1598 , p6_a14 out nocopy VARCHAR2
1599 , p6_a15 out nocopy VARCHAR2
1600 , p6_a16 out nocopy NUMBER
1601 , p6_a17 out nocopy VARCHAR2
1602 , p6_a18 out nocopy NUMBER
1603 , p6_a19 out nocopy NUMBER
1604 , p6_a20 out nocopy DATE
1605 , p6_a21 out nocopy NUMBER
1606 , p6_a22 out nocopy NUMBER
1607 , p6_a23 out nocopy DATE
1608 , p6_a24 out nocopy NUMBER
1609 , p6_a25 out nocopy DATE
1610 , p6_a26 out nocopy NUMBER
1611 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
1612 , p5_a1 NUMBER := 0-1962.0724
1613 , p5_a2 NUMBER := 0-1962.0724
1614 , p5_a3 NUMBER := 0-1962.0724
1615 , p5_a4 NUMBER := 0-1962.0724
1616 , p5_a5 NUMBER := 0-1962.0724
1617 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1618 , p5_a7 NUMBER := 0-1962.0724
1619 , p5_a8 NUMBER := 0-1962.0724
1620 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1621 , p5_a10 DATE := fnd_api.g_miss_date
1622 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1623 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1624 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1625 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1626 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1627 , p5_a16 NUMBER := 0-1962.0724
1628 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1629 , p5_a18 NUMBER := 0-1962.0724
1630 , p5_a19 NUMBER := 0-1962.0724
1631 , p5_a20 DATE := fnd_api.g_miss_date
1632 , p5_a21 NUMBER := 0-1962.0724
1633 , p5_a22 NUMBER := 0-1962.0724
1634 , p5_a23 DATE := fnd_api.g_miss_date
1635 , p5_a24 NUMBER := 0-1962.0724
1636 , p5_a25 DATE := fnd_api.g_miss_date
1637 , p5_a26 NUMBER := 0-1962.0724
1638 )
1639
1640 as
1641 ddp_aehv_rec okl_aeh_pvt.aehv_rec_type;
1642 ddx_aehv_rec okl_aeh_pvt.aehv_rec_type;
1643 ddindx binary_integer; indx binary_integer;
1644 begin
1645
1646 -- copy data to the local IN or IN-OUT args, if any
1647
1648
1649
1650
1651
1652 ddp_aehv_rec.post_to_gl_flag := p5_a0;
1653 ddp_aehv_rec.ae_header_id := rosetta_g_miss_num_map(p5_a1);
1654 ddp_aehv_rec.object_version_number := rosetta_g_miss_num_map(p5_a2);
1655 ddp_aehv_rec.accounting_event_id := rosetta_g_miss_num_map(p5_a3);
1656 ddp_aehv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a4);
1657 ddp_aehv_rec.org_id := rosetta_g_miss_num_map(p5_a5);
1658 ddp_aehv_rec.ae_category := p5_a6;
1659 ddp_aehv_rec.sequence_id := rosetta_g_miss_num_map(p5_a7);
1660 ddp_aehv_rec.sequence_value := rosetta_g_miss_num_map(p5_a8);
1661 ddp_aehv_rec.period_name := p5_a9;
1662 ddp_aehv_rec.accounting_date := rosetta_g_miss_date_in_map(p5_a10);
1663 ddp_aehv_rec.description := p5_a11;
1664 ddp_aehv_rec.accounting_error_code := p5_a12;
1665 ddp_aehv_rec.cross_currency_flag := p5_a13;
1666 ddp_aehv_rec.gl_transfer_flag := p5_a14;
1667 ddp_aehv_rec.gl_transfer_error_code := p5_a15;
1668 ddp_aehv_rec.gl_transfer_run_id := rosetta_g_miss_num_map(p5_a16);
1669 ddp_aehv_rec.gl_reversal_flag := p5_a17;
1670 ddp_aehv_rec.program_id := rosetta_g_miss_num_map(p5_a18);
1671 ddp_aehv_rec.program_application_id := rosetta_g_miss_num_map(p5_a19);
1672 ddp_aehv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a20);
1673 ddp_aehv_rec.request_id := rosetta_g_miss_num_map(p5_a21);
1674 ddp_aehv_rec.created_by := rosetta_g_miss_num_map(p5_a22);
1675 ddp_aehv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a23);
1676 ddp_aehv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a24);
1677 ddp_aehv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a25);
1678 ddp_aehv_rec.last_update_login := rosetta_g_miss_num_map(p5_a26);
1679
1680
1681 -- here's the delegated call to the old PL/SQL routine
1682 okl_aeh_pvt.insert_row(p_api_version,
1683 p_init_msg_list,
1684 x_return_status,
1685 x_msg_count,
1686 x_msg_data,
1687 ddp_aehv_rec,
1688 ddx_aehv_rec);
1689
1690 -- copy data back from the local variables to OUT or IN-OUT args, if any
1691
1692
1693
1694
1695
1696
1697 p6_a0 := ddx_aehv_rec.post_to_gl_flag;
1698 p6_a1 := rosetta_g_miss_num_map(ddx_aehv_rec.ae_header_id);
1699 p6_a2 := rosetta_g_miss_num_map(ddx_aehv_rec.object_version_number);
1700 p6_a3 := rosetta_g_miss_num_map(ddx_aehv_rec.accounting_event_id);
1701 p6_a4 := rosetta_g_miss_num_map(ddx_aehv_rec.set_of_books_id);
1702 p6_a5 := rosetta_g_miss_num_map(ddx_aehv_rec.org_id);
1703 p6_a6 := ddx_aehv_rec.ae_category;
1704 p6_a7 := rosetta_g_miss_num_map(ddx_aehv_rec.sequence_id);
1705 p6_a8 := rosetta_g_miss_num_map(ddx_aehv_rec.sequence_value);
1706 p6_a9 := ddx_aehv_rec.period_name;
1707 p6_a10 := ddx_aehv_rec.accounting_date;
1708 p6_a11 := ddx_aehv_rec.description;
1709 p6_a12 := ddx_aehv_rec.accounting_error_code;
1710 p6_a13 := ddx_aehv_rec.cross_currency_flag;
1711 p6_a14 := ddx_aehv_rec.gl_transfer_flag;
1712 p6_a15 := ddx_aehv_rec.gl_transfer_error_code;
1713 p6_a16 := rosetta_g_miss_num_map(ddx_aehv_rec.gl_transfer_run_id);
1714 p6_a17 := ddx_aehv_rec.gl_reversal_flag;
1715 p6_a18 := rosetta_g_miss_num_map(ddx_aehv_rec.program_id);
1716 p6_a19 := rosetta_g_miss_num_map(ddx_aehv_rec.program_application_id);
1717 p6_a20 := ddx_aehv_rec.program_update_date;
1718 p6_a21 := rosetta_g_miss_num_map(ddx_aehv_rec.request_id);
1719 p6_a22 := rosetta_g_miss_num_map(ddx_aehv_rec.created_by);
1720 p6_a23 := ddx_aehv_rec.creation_date;
1721 p6_a24 := rosetta_g_miss_num_map(ddx_aehv_rec.last_updated_by);
1722 p6_a25 := ddx_aehv_rec.last_update_date;
1723 p6_a26 := rosetta_g_miss_num_map(ddx_aehv_rec.last_update_login);
1724 end;
1725
1726 procedure insert_row(p_api_version NUMBER
1727 , p_init_msg_list VARCHAR2
1728 , x_return_status out nocopy VARCHAR2
1729 , x_msg_count out nocopy NUMBER
1730 , x_msg_data out nocopy VARCHAR2
1731 , p5_a0 JTF_VARCHAR2_TABLE_100
1732 , p5_a1 JTF_NUMBER_TABLE
1733 , p5_a2 JTF_NUMBER_TABLE
1734 , p5_a3 JTF_NUMBER_TABLE
1735 , p5_a4 JTF_NUMBER_TABLE
1736 , p5_a5 JTF_NUMBER_TABLE
1737 , p5_a6 JTF_VARCHAR2_TABLE_100
1738 , p5_a7 JTF_NUMBER_TABLE
1739 , p5_a8 JTF_NUMBER_TABLE
1740 , p5_a9 JTF_VARCHAR2_TABLE_100
1741 , p5_a10 JTF_DATE_TABLE
1742 , p5_a11 JTF_VARCHAR2_TABLE_800
1743 , p5_a12 JTF_VARCHAR2_TABLE_100
1744 , p5_a13 JTF_VARCHAR2_TABLE_100
1745 , p5_a14 JTF_VARCHAR2_TABLE_100
1746 , p5_a15 JTF_VARCHAR2_TABLE_100
1747 , p5_a16 JTF_NUMBER_TABLE
1748 , p5_a17 JTF_VARCHAR2_TABLE_100
1749 , p5_a18 JTF_NUMBER_TABLE
1750 , p5_a19 JTF_NUMBER_TABLE
1751 , p5_a20 JTF_DATE_TABLE
1752 , p5_a21 JTF_NUMBER_TABLE
1753 , p5_a22 JTF_NUMBER_TABLE
1754 , p5_a23 JTF_DATE_TABLE
1755 , p5_a24 JTF_NUMBER_TABLE
1756 , p5_a25 JTF_DATE_TABLE
1757 , p5_a26 JTF_NUMBER_TABLE
1758 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_100
1759 , p6_a1 out nocopy JTF_NUMBER_TABLE
1760 , p6_a2 out nocopy JTF_NUMBER_TABLE
1761 , p6_a3 out nocopy JTF_NUMBER_TABLE
1762 , p6_a4 out nocopy JTF_NUMBER_TABLE
1763 , p6_a5 out nocopy JTF_NUMBER_TABLE
1764 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
1765 , p6_a7 out nocopy JTF_NUMBER_TABLE
1766 , p6_a8 out nocopy JTF_NUMBER_TABLE
1767 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
1768 , p6_a10 out nocopy JTF_DATE_TABLE
1769 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_800
1770 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
1771 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
1772 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
1773 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
1774 , p6_a16 out nocopy JTF_NUMBER_TABLE
1775 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_100
1776 , p6_a18 out nocopy JTF_NUMBER_TABLE
1777 , p6_a19 out nocopy JTF_NUMBER_TABLE
1778 , p6_a20 out nocopy JTF_DATE_TABLE
1779 , p6_a21 out nocopy JTF_NUMBER_TABLE
1780 , p6_a22 out nocopy JTF_NUMBER_TABLE
1781 , p6_a23 out nocopy JTF_DATE_TABLE
1782 , p6_a24 out nocopy JTF_NUMBER_TABLE
1783 , p6_a25 out nocopy JTF_DATE_TABLE
1784 , p6_a26 out nocopy JTF_NUMBER_TABLE
1785 )
1786
1787 as
1788 ddp_aehv_tbl okl_aeh_pvt.aehv_tbl_type;
1789 ddx_aehv_tbl okl_aeh_pvt.aehv_tbl_type;
1790 ddindx binary_integer; indx binary_integer;
1791 begin
1792
1793 -- copy data to the local IN or IN-OUT args, if any
1794
1795
1796
1797
1798
1799 okl_aeh_pvt_w.rosetta_table_copy_in_p5(ddp_aehv_tbl, p5_a0
1800 , p5_a1
1801 , p5_a2
1802 , p5_a3
1803 , p5_a4
1804 , p5_a5
1805 , p5_a6
1806 , p5_a7
1807 , p5_a8
1808 , p5_a9
1809 , p5_a10
1810 , p5_a11
1811 , p5_a12
1812 , p5_a13
1813 , p5_a14
1814 , p5_a15
1815 , p5_a16
1816 , p5_a17
1817 , p5_a18
1818 , p5_a19
1819 , p5_a20
1820 , p5_a21
1821 , p5_a22
1822 , p5_a23
1823 , p5_a24
1824 , p5_a25
1825 , p5_a26
1826 );
1827
1828
1829 -- here's the delegated call to the old PL/SQL routine
1830 okl_aeh_pvt.insert_row(p_api_version,
1831 p_init_msg_list,
1832 x_return_status,
1833 x_msg_count,
1834 x_msg_data,
1835 ddp_aehv_tbl,
1836 ddx_aehv_tbl);
1837
1838 -- copy data back from the local variables to OUT or IN-OUT args, if any
1839
1840
1841
1842
1843
1844
1845 okl_aeh_pvt_w.rosetta_table_copy_out_p5(ddx_aehv_tbl, p6_a0
1846 , p6_a1
1847 , p6_a2
1848 , p6_a3
1849 , p6_a4
1850 , p6_a5
1851 , p6_a6
1852 , p6_a7
1853 , p6_a8
1854 , p6_a9
1855 , p6_a10
1856 , p6_a11
1857 , p6_a12
1858 , p6_a13
1859 , p6_a14
1860 , p6_a15
1861 , p6_a16
1862 , p6_a17
1863 , p6_a18
1864 , p6_a19
1865 , p6_a20
1866 , p6_a21
1867 , p6_a22
1868 , p6_a23
1869 , p6_a24
1870 , p6_a25
1871 , p6_a26
1872 );
1873 end;
1874
1875 procedure insert_row_perf(p_api_version NUMBER
1876 , p_init_msg_list VARCHAR2
1877 , x_return_status out nocopy VARCHAR2
1878 , x_msg_count out nocopy NUMBER
1879 , x_msg_data out nocopy VARCHAR2
1880 , p5_a0 JTF_VARCHAR2_TABLE_100
1881 , p5_a1 JTF_NUMBER_TABLE
1882 , p5_a2 JTF_NUMBER_TABLE
1883 , p5_a3 JTF_NUMBER_TABLE
1884 , p5_a4 JTF_NUMBER_TABLE
1885 , p5_a5 JTF_NUMBER_TABLE
1886 , p5_a6 JTF_VARCHAR2_TABLE_100
1887 , p5_a7 JTF_NUMBER_TABLE
1888 , p5_a8 JTF_NUMBER_TABLE
1889 , p5_a9 JTF_VARCHAR2_TABLE_100
1890 , p5_a10 JTF_DATE_TABLE
1891 , p5_a11 JTF_VARCHAR2_TABLE_800
1892 , p5_a12 JTF_VARCHAR2_TABLE_100
1893 , p5_a13 JTF_VARCHAR2_TABLE_100
1894 , p5_a14 JTF_VARCHAR2_TABLE_100
1895 , p5_a15 JTF_VARCHAR2_TABLE_100
1896 , p5_a16 JTF_NUMBER_TABLE
1897 , p5_a17 JTF_VARCHAR2_TABLE_100
1898 , p5_a18 JTF_NUMBER_TABLE
1899 , p5_a19 JTF_NUMBER_TABLE
1900 , p5_a20 JTF_DATE_TABLE
1901 , p5_a21 JTF_NUMBER_TABLE
1902 , p5_a22 JTF_NUMBER_TABLE
1903 , p5_a23 JTF_DATE_TABLE
1904 , p5_a24 JTF_NUMBER_TABLE
1905 , p5_a25 JTF_DATE_TABLE
1906 , p5_a26 JTF_NUMBER_TABLE
1907 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_100
1908 , p6_a1 out nocopy JTF_NUMBER_TABLE
1909 , p6_a2 out nocopy JTF_NUMBER_TABLE
1910 , p6_a3 out nocopy JTF_NUMBER_TABLE
1911 , p6_a4 out nocopy JTF_NUMBER_TABLE
1912 , p6_a5 out nocopy JTF_NUMBER_TABLE
1913 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
1914 , p6_a7 out nocopy JTF_NUMBER_TABLE
1915 , p6_a8 out nocopy JTF_NUMBER_TABLE
1916 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
1917 , p6_a10 out nocopy JTF_DATE_TABLE
1918 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_800
1919 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
1920 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
1921 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
1922 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
1923 , p6_a16 out nocopy JTF_NUMBER_TABLE
1924 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_100
1925 , p6_a18 out nocopy JTF_NUMBER_TABLE
1926 , p6_a19 out nocopy JTF_NUMBER_TABLE
1927 , p6_a20 out nocopy JTF_DATE_TABLE
1928 , p6_a21 out nocopy JTF_NUMBER_TABLE
1929 , p6_a22 out nocopy JTF_NUMBER_TABLE
1930 , p6_a23 out nocopy JTF_DATE_TABLE
1931 , p6_a24 out nocopy JTF_NUMBER_TABLE
1932 , p6_a25 out nocopy JTF_DATE_TABLE
1933 , p6_a26 out nocopy JTF_NUMBER_TABLE
1934 )
1935
1936 as
1937 ddp_aehv_tbl okl_aeh_pvt.aehv_tbl_type;
1938 ddx_aehv_tbl okl_aeh_pvt.aehv_tbl_type;
1939 ddindx binary_integer; indx binary_integer;
1940 begin
1941
1942 -- copy data to the local IN or IN-OUT args, if any
1943
1944
1945
1946
1947
1948 okl_aeh_pvt_w.rosetta_table_copy_in_p5(ddp_aehv_tbl, p5_a0
1949 , p5_a1
1950 , p5_a2
1951 , p5_a3
1952 , p5_a4
1953 , p5_a5
1954 , p5_a6
1955 , p5_a7
1956 , p5_a8
1957 , p5_a9
1958 , p5_a10
1959 , p5_a11
1960 , p5_a12
1961 , p5_a13
1962 , p5_a14
1963 , p5_a15
1964 , p5_a16
1965 , p5_a17
1966 , p5_a18
1967 , p5_a19
1968 , p5_a20
1969 , p5_a21
1970 , p5_a22
1971 , p5_a23
1972 , p5_a24
1973 , p5_a25
1974 , p5_a26
1975 );
1976
1977
1978 -- here's the delegated call to the old PL/SQL routine
1979 okl_aeh_pvt.insert_row_perf(p_api_version,
1980 p_init_msg_list,
1981 x_return_status,
1982 x_msg_count,
1983 x_msg_data,
1984 ddp_aehv_tbl,
1985 ddx_aehv_tbl);
1986
1987 -- copy data back from the local variables to OUT or IN-OUT args, if any
1988
1989
1990
1991
1992
1993
1994 okl_aeh_pvt_w.rosetta_table_copy_out_p5(ddx_aehv_tbl, p6_a0
1995 , p6_a1
1996 , p6_a2
1997 , p6_a3
1998 , p6_a4
1999 , p6_a5
2000 , p6_a6
2001 , p6_a7
2002 , p6_a8
2003 , p6_a9
2004 , p6_a10
2005 , p6_a11
2006 , p6_a12
2007 , p6_a13
2008 , p6_a14
2009 , p6_a15
2010 , p6_a16
2011 , p6_a17
2012 , p6_a18
2013 , p6_a19
2014 , p6_a20
2015 , p6_a21
2016 , p6_a22
2017 , p6_a23
2018 , p6_a24
2019 , p6_a25
2020 , p6_a26
2021 );
2022 end;
2023
2024 procedure lock_row(p_api_version NUMBER
2025 , p_init_msg_list VARCHAR2
2026 , x_return_status out nocopy VARCHAR2
2027 , x_msg_count out nocopy NUMBER
2028 , x_msg_data out nocopy VARCHAR2
2029 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
2030 , p5_a1 NUMBER := 0-1962.0724
2031 , p5_a2 NUMBER := 0-1962.0724
2032 , p5_a3 NUMBER := 0-1962.0724
2033 , p5_a4 NUMBER := 0-1962.0724
2034 , p5_a5 NUMBER := 0-1962.0724
2035 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
2036 , p5_a7 NUMBER := 0-1962.0724
2037 , p5_a8 NUMBER := 0-1962.0724
2038 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
2039 , p5_a10 DATE := fnd_api.g_miss_date
2040 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
2041 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
2042 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2043 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2044 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2045 , p5_a16 NUMBER := 0-1962.0724
2046 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2047 , p5_a18 NUMBER := 0-1962.0724
2048 , p5_a19 NUMBER := 0-1962.0724
2049 , p5_a20 DATE := fnd_api.g_miss_date
2050 , p5_a21 NUMBER := 0-1962.0724
2051 , p5_a22 NUMBER := 0-1962.0724
2052 , p5_a23 DATE := fnd_api.g_miss_date
2053 , p5_a24 NUMBER := 0-1962.0724
2054 , p5_a25 DATE := fnd_api.g_miss_date
2055 , p5_a26 NUMBER := 0-1962.0724
2056 )
2057
2058 as
2059 ddp_aehv_rec okl_aeh_pvt.aehv_rec_type;
2060 ddindx binary_integer; indx binary_integer;
2061 begin
2062
2063 -- copy data to the local IN or IN-OUT args, if any
2064
2065
2066
2067
2068
2069 ddp_aehv_rec.post_to_gl_flag := p5_a0;
2070 ddp_aehv_rec.ae_header_id := rosetta_g_miss_num_map(p5_a1);
2071 ddp_aehv_rec.object_version_number := rosetta_g_miss_num_map(p5_a2);
2072 ddp_aehv_rec.accounting_event_id := rosetta_g_miss_num_map(p5_a3);
2073 ddp_aehv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a4);
2074 ddp_aehv_rec.org_id := rosetta_g_miss_num_map(p5_a5);
2075 ddp_aehv_rec.ae_category := p5_a6;
2076 ddp_aehv_rec.sequence_id := rosetta_g_miss_num_map(p5_a7);
2077 ddp_aehv_rec.sequence_value := rosetta_g_miss_num_map(p5_a8);
2078 ddp_aehv_rec.period_name := p5_a9;
2079 ddp_aehv_rec.accounting_date := rosetta_g_miss_date_in_map(p5_a10);
2080 ddp_aehv_rec.description := p5_a11;
2081 ddp_aehv_rec.accounting_error_code := p5_a12;
2082 ddp_aehv_rec.cross_currency_flag := p5_a13;
2083 ddp_aehv_rec.gl_transfer_flag := p5_a14;
2084 ddp_aehv_rec.gl_transfer_error_code := p5_a15;
2085 ddp_aehv_rec.gl_transfer_run_id := rosetta_g_miss_num_map(p5_a16);
2086 ddp_aehv_rec.gl_reversal_flag := p5_a17;
2087 ddp_aehv_rec.program_id := rosetta_g_miss_num_map(p5_a18);
2088 ddp_aehv_rec.program_application_id := rosetta_g_miss_num_map(p5_a19);
2089 ddp_aehv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a20);
2090 ddp_aehv_rec.request_id := rosetta_g_miss_num_map(p5_a21);
2091 ddp_aehv_rec.created_by := rosetta_g_miss_num_map(p5_a22);
2092 ddp_aehv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a23);
2093 ddp_aehv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a24);
2094 ddp_aehv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a25);
2095 ddp_aehv_rec.last_update_login := rosetta_g_miss_num_map(p5_a26);
2096
2097 -- here's the delegated call to the old PL/SQL routine
2098 okl_aeh_pvt.lock_row(p_api_version,
2099 p_init_msg_list,
2100 x_return_status,
2101 x_msg_count,
2102 x_msg_data,
2103 ddp_aehv_rec);
2104
2105 -- copy data back from the local variables to OUT or IN-OUT args, if any
2106
2107
2108
2109
2110
2111 end;
2112
2113 procedure lock_row(p_api_version NUMBER
2114 , p_init_msg_list VARCHAR2
2115 , x_return_status out nocopy VARCHAR2
2116 , x_msg_count out nocopy NUMBER
2117 , x_msg_data out nocopy VARCHAR2
2118 , p5_a0 JTF_VARCHAR2_TABLE_100
2119 , p5_a1 JTF_NUMBER_TABLE
2120 , p5_a2 JTF_NUMBER_TABLE
2121 , p5_a3 JTF_NUMBER_TABLE
2122 , p5_a4 JTF_NUMBER_TABLE
2123 , p5_a5 JTF_NUMBER_TABLE
2124 , p5_a6 JTF_VARCHAR2_TABLE_100
2125 , p5_a7 JTF_NUMBER_TABLE
2126 , p5_a8 JTF_NUMBER_TABLE
2127 , p5_a9 JTF_VARCHAR2_TABLE_100
2128 , p5_a10 JTF_DATE_TABLE
2129 , p5_a11 JTF_VARCHAR2_TABLE_800
2130 , p5_a12 JTF_VARCHAR2_TABLE_100
2131 , p5_a13 JTF_VARCHAR2_TABLE_100
2132 , p5_a14 JTF_VARCHAR2_TABLE_100
2133 , p5_a15 JTF_VARCHAR2_TABLE_100
2134 , p5_a16 JTF_NUMBER_TABLE
2135 , p5_a17 JTF_VARCHAR2_TABLE_100
2136 , p5_a18 JTF_NUMBER_TABLE
2137 , p5_a19 JTF_NUMBER_TABLE
2138 , p5_a20 JTF_DATE_TABLE
2139 , p5_a21 JTF_NUMBER_TABLE
2140 , p5_a22 JTF_NUMBER_TABLE
2141 , p5_a23 JTF_DATE_TABLE
2142 , p5_a24 JTF_NUMBER_TABLE
2143 , p5_a25 JTF_DATE_TABLE
2144 , p5_a26 JTF_NUMBER_TABLE
2145 )
2146
2147 as
2148 ddp_aehv_tbl okl_aeh_pvt.aehv_tbl_type;
2149 ddindx binary_integer; indx binary_integer;
2150 begin
2151
2152 -- copy data to the local IN or IN-OUT args, if any
2153
2154
2155
2156
2157
2158 okl_aeh_pvt_w.rosetta_table_copy_in_p5(ddp_aehv_tbl, p5_a0
2159 , p5_a1
2160 , p5_a2
2161 , p5_a3
2162 , p5_a4
2163 , p5_a5
2164 , p5_a6
2165 , p5_a7
2166 , p5_a8
2167 , p5_a9
2168 , p5_a10
2169 , p5_a11
2170 , p5_a12
2171 , p5_a13
2172 , p5_a14
2173 , p5_a15
2174 , p5_a16
2175 , p5_a17
2176 , p5_a18
2177 , p5_a19
2178 , p5_a20
2179 , p5_a21
2180 , p5_a22
2181 , p5_a23
2182 , p5_a24
2183 , p5_a25
2184 , p5_a26
2185 );
2186
2187 -- here's the delegated call to the old PL/SQL routine
2188 okl_aeh_pvt.lock_row(p_api_version,
2189 p_init_msg_list,
2190 x_return_status,
2191 x_msg_count,
2192 x_msg_data,
2193 ddp_aehv_tbl);
2194
2195 -- copy data back from the local variables to OUT or IN-OUT args, if any
2196
2197
2198
2199
2200
2201 end;
2202
2203 procedure update_row(p_api_version NUMBER
2204 , p_init_msg_list VARCHAR2
2205 , x_return_status out nocopy VARCHAR2
2206 , x_msg_count out nocopy NUMBER
2207 , x_msg_data out nocopy VARCHAR2
2208 , p6_a0 out nocopy VARCHAR2
2209 , p6_a1 out nocopy NUMBER
2210 , p6_a2 out nocopy NUMBER
2211 , p6_a3 out nocopy NUMBER
2212 , p6_a4 out nocopy NUMBER
2213 , p6_a5 out nocopy NUMBER
2214 , p6_a6 out nocopy VARCHAR2
2215 , p6_a7 out nocopy NUMBER
2216 , p6_a8 out nocopy NUMBER
2217 , p6_a9 out nocopy VARCHAR2
2218 , p6_a10 out nocopy DATE
2219 , p6_a11 out nocopy VARCHAR2
2220 , p6_a12 out nocopy VARCHAR2
2221 , p6_a13 out nocopy VARCHAR2
2222 , p6_a14 out nocopy VARCHAR2
2223 , p6_a15 out nocopy VARCHAR2
2224 , p6_a16 out nocopy NUMBER
2225 , p6_a17 out nocopy VARCHAR2
2226 , p6_a18 out nocopy NUMBER
2227 , p6_a19 out nocopy NUMBER
2228 , p6_a20 out nocopy DATE
2229 , p6_a21 out nocopy NUMBER
2230 , p6_a22 out nocopy NUMBER
2231 , p6_a23 out nocopy DATE
2232 , p6_a24 out nocopy NUMBER
2233 , p6_a25 out nocopy DATE
2234 , p6_a26 out nocopy NUMBER
2235 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
2236 , p5_a1 NUMBER := 0-1962.0724
2237 , p5_a2 NUMBER := 0-1962.0724
2238 , p5_a3 NUMBER := 0-1962.0724
2239 , p5_a4 NUMBER := 0-1962.0724
2240 , p5_a5 NUMBER := 0-1962.0724
2241 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
2242 , p5_a7 NUMBER := 0-1962.0724
2243 , p5_a8 NUMBER := 0-1962.0724
2244 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
2245 , p5_a10 DATE := fnd_api.g_miss_date
2246 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
2247 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
2248 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2249 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2250 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2251 , p5_a16 NUMBER := 0-1962.0724
2252 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2253 , p5_a18 NUMBER := 0-1962.0724
2254 , p5_a19 NUMBER := 0-1962.0724
2255 , p5_a20 DATE := fnd_api.g_miss_date
2256 , p5_a21 NUMBER := 0-1962.0724
2257 , p5_a22 NUMBER := 0-1962.0724
2258 , p5_a23 DATE := fnd_api.g_miss_date
2259 , p5_a24 NUMBER := 0-1962.0724
2260 , p5_a25 DATE := fnd_api.g_miss_date
2261 , p5_a26 NUMBER := 0-1962.0724
2262 )
2263
2264 as
2265 ddp_aehv_rec okl_aeh_pvt.aehv_rec_type;
2266 ddx_aehv_rec okl_aeh_pvt.aehv_rec_type;
2267 ddindx binary_integer; indx binary_integer;
2268 begin
2269
2270 -- copy data to the local IN or IN-OUT args, if any
2271
2272
2273
2274
2275
2276 ddp_aehv_rec.post_to_gl_flag := p5_a0;
2277 ddp_aehv_rec.ae_header_id := rosetta_g_miss_num_map(p5_a1);
2278 ddp_aehv_rec.object_version_number := rosetta_g_miss_num_map(p5_a2);
2279 ddp_aehv_rec.accounting_event_id := rosetta_g_miss_num_map(p5_a3);
2280 ddp_aehv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a4);
2281 ddp_aehv_rec.org_id := rosetta_g_miss_num_map(p5_a5);
2282 ddp_aehv_rec.ae_category := p5_a6;
2283 ddp_aehv_rec.sequence_id := rosetta_g_miss_num_map(p5_a7);
2284 ddp_aehv_rec.sequence_value := rosetta_g_miss_num_map(p5_a8);
2285 ddp_aehv_rec.period_name := p5_a9;
2286 ddp_aehv_rec.accounting_date := rosetta_g_miss_date_in_map(p5_a10);
2287 ddp_aehv_rec.description := p5_a11;
2288 ddp_aehv_rec.accounting_error_code := p5_a12;
2289 ddp_aehv_rec.cross_currency_flag := p5_a13;
2290 ddp_aehv_rec.gl_transfer_flag := p5_a14;
2291 ddp_aehv_rec.gl_transfer_error_code := p5_a15;
2292 ddp_aehv_rec.gl_transfer_run_id := rosetta_g_miss_num_map(p5_a16);
2293 ddp_aehv_rec.gl_reversal_flag := p5_a17;
2294 ddp_aehv_rec.program_id := rosetta_g_miss_num_map(p5_a18);
2295 ddp_aehv_rec.program_application_id := rosetta_g_miss_num_map(p5_a19);
2296 ddp_aehv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a20);
2297 ddp_aehv_rec.request_id := rosetta_g_miss_num_map(p5_a21);
2298 ddp_aehv_rec.created_by := rosetta_g_miss_num_map(p5_a22);
2299 ddp_aehv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a23);
2300 ddp_aehv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a24);
2301 ddp_aehv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a25);
2302 ddp_aehv_rec.last_update_login := rosetta_g_miss_num_map(p5_a26);
2303
2304
2305 -- here's the delegated call to the old PL/SQL routine
2306 okl_aeh_pvt.update_row(p_api_version,
2307 p_init_msg_list,
2308 x_return_status,
2309 x_msg_count,
2310 x_msg_data,
2311 ddp_aehv_rec,
2312 ddx_aehv_rec);
2313
2314 -- copy data back from the local variables to OUT or IN-OUT args, if any
2315
2316
2317
2318
2319
2320
2321 p6_a0 := ddx_aehv_rec.post_to_gl_flag;
2322 p6_a1 := rosetta_g_miss_num_map(ddx_aehv_rec.ae_header_id);
2323 p6_a2 := rosetta_g_miss_num_map(ddx_aehv_rec.object_version_number);
2324 p6_a3 := rosetta_g_miss_num_map(ddx_aehv_rec.accounting_event_id);
2325 p6_a4 := rosetta_g_miss_num_map(ddx_aehv_rec.set_of_books_id);
2326 p6_a5 := rosetta_g_miss_num_map(ddx_aehv_rec.org_id);
2327 p6_a6 := ddx_aehv_rec.ae_category;
2328 p6_a7 := rosetta_g_miss_num_map(ddx_aehv_rec.sequence_id);
2329 p6_a8 := rosetta_g_miss_num_map(ddx_aehv_rec.sequence_value);
2330 p6_a9 := ddx_aehv_rec.period_name;
2331 p6_a10 := ddx_aehv_rec.accounting_date;
2332 p6_a11 := ddx_aehv_rec.description;
2333 p6_a12 := ddx_aehv_rec.accounting_error_code;
2334 p6_a13 := ddx_aehv_rec.cross_currency_flag;
2335 p6_a14 := ddx_aehv_rec.gl_transfer_flag;
2336 p6_a15 := ddx_aehv_rec.gl_transfer_error_code;
2337 p6_a16 := rosetta_g_miss_num_map(ddx_aehv_rec.gl_transfer_run_id);
2338 p6_a17 := ddx_aehv_rec.gl_reversal_flag;
2339 p6_a18 := rosetta_g_miss_num_map(ddx_aehv_rec.program_id);
2340 p6_a19 := rosetta_g_miss_num_map(ddx_aehv_rec.program_application_id);
2341 p6_a20 := ddx_aehv_rec.program_update_date;
2342 p6_a21 := rosetta_g_miss_num_map(ddx_aehv_rec.request_id);
2343 p6_a22 := rosetta_g_miss_num_map(ddx_aehv_rec.created_by);
2344 p6_a23 := ddx_aehv_rec.creation_date;
2345 p6_a24 := rosetta_g_miss_num_map(ddx_aehv_rec.last_updated_by);
2346 p6_a25 := ddx_aehv_rec.last_update_date;
2347 p6_a26 := rosetta_g_miss_num_map(ddx_aehv_rec.last_update_login);
2348 end;
2349
2350 procedure update_row(p_api_version NUMBER
2351 , p_init_msg_list VARCHAR2
2352 , x_return_status out nocopy VARCHAR2
2353 , x_msg_count out nocopy NUMBER
2354 , x_msg_data out nocopy VARCHAR2
2355 , p5_a0 JTF_VARCHAR2_TABLE_100
2356 , p5_a1 JTF_NUMBER_TABLE
2357 , p5_a2 JTF_NUMBER_TABLE
2358 , p5_a3 JTF_NUMBER_TABLE
2359 , p5_a4 JTF_NUMBER_TABLE
2360 , p5_a5 JTF_NUMBER_TABLE
2361 , p5_a6 JTF_VARCHAR2_TABLE_100
2362 , p5_a7 JTF_NUMBER_TABLE
2363 , p5_a8 JTF_NUMBER_TABLE
2364 , p5_a9 JTF_VARCHAR2_TABLE_100
2365 , p5_a10 JTF_DATE_TABLE
2366 , p5_a11 JTF_VARCHAR2_TABLE_800
2367 , p5_a12 JTF_VARCHAR2_TABLE_100
2368 , p5_a13 JTF_VARCHAR2_TABLE_100
2369 , p5_a14 JTF_VARCHAR2_TABLE_100
2370 , p5_a15 JTF_VARCHAR2_TABLE_100
2371 , p5_a16 JTF_NUMBER_TABLE
2372 , p5_a17 JTF_VARCHAR2_TABLE_100
2373 , p5_a18 JTF_NUMBER_TABLE
2374 , p5_a19 JTF_NUMBER_TABLE
2375 , p5_a20 JTF_DATE_TABLE
2376 , p5_a21 JTF_NUMBER_TABLE
2377 , p5_a22 JTF_NUMBER_TABLE
2378 , p5_a23 JTF_DATE_TABLE
2379 , p5_a24 JTF_NUMBER_TABLE
2380 , p5_a25 JTF_DATE_TABLE
2381 , p5_a26 JTF_NUMBER_TABLE
2382 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_100
2383 , p6_a1 out nocopy JTF_NUMBER_TABLE
2384 , p6_a2 out nocopy JTF_NUMBER_TABLE
2385 , p6_a3 out nocopy JTF_NUMBER_TABLE
2386 , p6_a4 out nocopy JTF_NUMBER_TABLE
2387 , p6_a5 out nocopy JTF_NUMBER_TABLE
2388 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
2389 , p6_a7 out nocopy JTF_NUMBER_TABLE
2390 , p6_a8 out nocopy JTF_NUMBER_TABLE
2391 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
2392 , p6_a10 out nocopy JTF_DATE_TABLE
2393 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_800
2394 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
2395 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
2396 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
2397 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
2398 , p6_a16 out nocopy JTF_NUMBER_TABLE
2399 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_100
2400 , p6_a18 out nocopy JTF_NUMBER_TABLE
2401 , p6_a19 out nocopy JTF_NUMBER_TABLE
2402 , p6_a20 out nocopy JTF_DATE_TABLE
2403 , p6_a21 out nocopy JTF_NUMBER_TABLE
2404 , p6_a22 out nocopy JTF_NUMBER_TABLE
2405 , p6_a23 out nocopy JTF_DATE_TABLE
2406 , p6_a24 out nocopy JTF_NUMBER_TABLE
2407 , p6_a25 out nocopy JTF_DATE_TABLE
2408 , p6_a26 out nocopy JTF_NUMBER_TABLE
2409 )
2410
2411 as
2412 ddp_aehv_tbl okl_aeh_pvt.aehv_tbl_type;
2413 ddx_aehv_tbl okl_aeh_pvt.aehv_tbl_type;
2414 ddindx binary_integer; indx binary_integer;
2415 begin
2416
2417 -- copy data to the local IN or IN-OUT args, if any
2418
2419
2420
2421
2422
2423 okl_aeh_pvt_w.rosetta_table_copy_in_p5(ddp_aehv_tbl, p5_a0
2424 , p5_a1
2425 , p5_a2
2426 , p5_a3
2427 , p5_a4
2428 , p5_a5
2429 , p5_a6
2430 , p5_a7
2431 , p5_a8
2432 , p5_a9
2433 , p5_a10
2434 , p5_a11
2435 , p5_a12
2436 , p5_a13
2437 , p5_a14
2438 , p5_a15
2439 , p5_a16
2440 , p5_a17
2441 , p5_a18
2442 , p5_a19
2443 , p5_a20
2444 , p5_a21
2445 , p5_a22
2446 , p5_a23
2447 , p5_a24
2448 , p5_a25
2449 , p5_a26
2450 );
2451
2452
2453 -- here's the delegated call to the old PL/SQL routine
2454 okl_aeh_pvt.update_row(p_api_version,
2455 p_init_msg_list,
2456 x_return_status,
2457 x_msg_count,
2458 x_msg_data,
2459 ddp_aehv_tbl,
2460 ddx_aehv_tbl);
2461
2462 -- copy data back from the local variables to OUT or IN-OUT args, if any
2463
2464
2465
2466
2467
2468
2469 okl_aeh_pvt_w.rosetta_table_copy_out_p5(ddx_aehv_tbl, p6_a0
2470 , p6_a1
2471 , p6_a2
2472 , p6_a3
2473 , p6_a4
2474 , p6_a5
2475 , p6_a6
2476 , p6_a7
2477 , p6_a8
2478 , p6_a9
2479 , p6_a10
2480 , p6_a11
2481 , p6_a12
2482 , p6_a13
2483 , p6_a14
2484 , p6_a15
2485 , p6_a16
2486 , p6_a17
2487 , p6_a18
2488 , p6_a19
2489 , p6_a20
2490 , p6_a21
2491 , p6_a22
2492 , p6_a23
2493 , p6_a24
2494 , p6_a25
2495 , p6_a26
2496 );
2497 end;
2498
2499 procedure delete_row(p_api_version NUMBER
2500 , p_init_msg_list VARCHAR2
2501 , x_return_status out nocopy VARCHAR2
2502 , x_msg_count out nocopy NUMBER
2503 , x_msg_data out nocopy VARCHAR2
2504 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
2505 , p5_a1 NUMBER := 0-1962.0724
2506 , p5_a2 NUMBER := 0-1962.0724
2507 , p5_a3 NUMBER := 0-1962.0724
2508 , p5_a4 NUMBER := 0-1962.0724
2509 , p5_a5 NUMBER := 0-1962.0724
2510 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
2511 , p5_a7 NUMBER := 0-1962.0724
2512 , p5_a8 NUMBER := 0-1962.0724
2513 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
2514 , p5_a10 DATE := fnd_api.g_miss_date
2515 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
2516 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
2517 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2518 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2519 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2520 , p5_a16 NUMBER := 0-1962.0724
2521 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2522 , p5_a18 NUMBER := 0-1962.0724
2523 , p5_a19 NUMBER := 0-1962.0724
2524 , p5_a20 DATE := fnd_api.g_miss_date
2525 , p5_a21 NUMBER := 0-1962.0724
2526 , p5_a22 NUMBER := 0-1962.0724
2527 , p5_a23 DATE := fnd_api.g_miss_date
2528 , p5_a24 NUMBER := 0-1962.0724
2529 , p5_a25 DATE := fnd_api.g_miss_date
2530 , p5_a26 NUMBER := 0-1962.0724
2531 )
2532
2533 as
2534 ddp_aehv_rec okl_aeh_pvt.aehv_rec_type;
2535 ddindx binary_integer; indx binary_integer;
2536 begin
2537
2538 -- copy data to the local IN or IN-OUT args, if any
2539
2540
2541
2542
2543
2544 ddp_aehv_rec.post_to_gl_flag := p5_a0;
2545 ddp_aehv_rec.ae_header_id := rosetta_g_miss_num_map(p5_a1);
2546 ddp_aehv_rec.object_version_number := rosetta_g_miss_num_map(p5_a2);
2547 ddp_aehv_rec.accounting_event_id := rosetta_g_miss_num_map(p5_a3);
2548 ddp_aehv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a4);
2549 ddp_aehv_rec.org_id := rosetta_g_miss_num_map(p5_a5);
2550 ddp_aehv_rec.ae_category := p5_a6;
2551 ddp_aehv_rec.sequence_id := rosetta_g_miss_num_map(p5_a7);
2552 ddp_aehv_rec.sequence_value := rosetta_g_miss_num_map(p5_a8);
2553 ddp_aehv_rec.period_name := p5_a9;
2554 ddp_aehv_rec.accounting_date := rosetta_g_miss_date_in_map(p5_a10);
2555 ddp_aehv_rec.description := p5_a11;
2556 ddp_aehv_rec.accounting_error_code := p5_a12;
2557 ddp_aehv_rec.cross_currency_flag := p5_a13;
2558 ddp_aehv_rec.gl_transfer_flag := p5_a14;
2559 ddp_aehv_rec.gl_transfer_error_code := p5_a15;
2560 ddp_aehv_rec.gl_transfer_run_id := rosetta_g_miss_num_map(p5_a16);
2561 ddp_aehv_rec.gl_reversal_flag := p5_a17;
2562 ddp_aehv_rec.program_id := rosetta_g_miss_num_map(p5_a18);
2563 ddp_aehv_rec.program_application_id := rosetta_g_miss_num_map(p5_a19);
2564 ddp_aehv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a20);
2565 ddp_aehv_rec.request_id := rosetta_g_miss_num_map(p5_a21);
2566 ddp_aehv_rec.created_by := rosetta_g_miss_num_map(p5_a22);
2567 ddp_aehv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a23);
2568 ddp_aehv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a24);
2569 ddp_aehv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a25);
2570 ddp_aehv_rec.last_update_login := rosetta_g_miss_num_map(p5_a26);
2571
2572 -- here's the delegated call to the old PL/SQL routine
2573 okl_aeh_pvt.delete_row(p_api_version,
2574 p_init_msg_list,
2575 x_return_status,
2576 x_msg_count,
2577 x_msg_data,
2578 ddp_aehv_rec);
2579
2580 -- copy data back from the local variables to OUT or IN-OUT args, if any
2581
2582
2583
2584
2585
2586 end;
2587
2588 procedure delete_row(p_api_version NUMBER
2589 , p_init_msg_list VARCHAR2
2590 , x_return_status out nocopy VARCHAR2
2591 , x_msg_count out nocopy NUMBER
2592 , x_msg_data out nocopy VARCHAR2
2593 , p5_a0 JTF_VARCHAR2_TABLE_100
2594 , p5_a1 JTF_NUMBER_TABLE
2595 , p5_a2 JTF_NUMBER_TABLE
2596 , p5_a3 JTF_NUMBER_TABLE
2597 , p5_a4 JTF_NUMBER_TABLE
2598 , p5_a5 JTF_NUMBER_TABLE
2599 , p5_a6 JTF_VARCHAR2_TABLE_100
2600 , p5_a7 JTF_NUMBER_TABLE
2601 , p5_a8 JTF_NUMBER_TABLE
2602 , p5_a9 JTF_VARCHAR2_TABLE_100
2603 , p5_a10 JTF_DATE_TABLE
2604 , p5_a11 JTF_VARCHAR2_TABLE_800
2605 , p5_a12 JTF_VARCHAR2_TABLE_100
2606 , p5_a13 JTF_VARCHAR2_TABLE_100
2607 , p5_a14 JTF_VARCHAR2_TABLE_100
2608 , p5_a15 JTF_VARCHAR2_TABLE_100
2609 , p5_a16 JTF_NUMBER_TABLE
2610 , p5_a17 JTF_VARCHAR2_TABLE_100
2611 , p5_a18 JTF_NUMBER_TABLE
2612 , p5_a19 JTF_NUMBER_TABLE
2613 , p5_a20 JTF_DATE_TABLE
2614 , p5_a21 JTF_NUMBER_TABLE
2615 , p5_a22 JTF_NUMBER_TABLE
2616 , p5_a23 JTF_DATE_TABLE
2617 , p5_a24 JTF_NUMBER_TABLE
2618 , p5_a25 JTF_DATE_TABLE
2619 , p5_a26 JTF_NUMBER_TABLE
2620 )
2621
2622 as
2623 ddp_aehv_tbl okl_aeh_pvt.aehv_tbl_type;
2624 ddindx binary_integer; indx binary_integer;
2625 begin
2626
2627 -- copy data to the local IN or IN-OUT args, if any
2628
2629
2630
2631
2632
2633 okl_aeh_pvt_w.rosetta_table_copy_in_p5(ddp_aehv_tbl, p5_a0
2634 , p5_a1
2635 , p5_a2
2636 , p5_a3
2637 , p5_a4
2638 , p5_a5
2639 , p5_a6
2640 , p5_a7
2641 , p5_a8
2642 , p5_a9
2643 , p5_a10
2644 , p5_a11
2645 , p5_a12
2646 , p5_a13
2647 , p5_a14
2648 , p5_a15
2649 , p5_a16
2650 , p5_a17
2651 , p5_a18
2652 , p5_a19
2653 , p5_a20
2654 , p5_a21
2655 , p5_a22
2656 , p5_a23
2657 , p5_a24
2658 , p5_a25
2659 , p5_a26
2660 );
2661
2662 -- here's the delegated call to the old PL/SQL routine
2663 okl_aeh_pvt.delete_row(p_api_version,
2664 p_init_msg_list,
2665 x_return_status,
2666 x_msg_count,
2667 x_msg_data,
2668 ddp_aehv_tbl);
2669
2670 -- copy data back from the local variables to OUT or IN-OUT args, if any
2671
2672
2673
2674
2675
2676 end;
2677
2678 procedure validate_row(p_api_version NUMBER
2679 , p_init_msg_list VARCHAR2
2680 , x_return_status out nocopy VARCHAR2
2681 , x_msg_count out nocopy NUMBER
2682 , x_msg_data out nocopy VARCHAR2
2683 , p5_a0 VARCHAR2 := fnd_api.g_miss_char
2684 , p5_a1 NUMBER := 0-1962.0724
2685 , p5_a2 NUMBER := 0-1962.0724
2686 , p5_a3 NUMBER := 0-1962.0724
2687 , p5_a4 NUMBER := 0-1962.0724
2688 , p5_a5 NUMBER := 0-1962.0724
2689 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
2690 , p5_a7 NUMBER := 0-1962.0724
2691 , p5_a8 NUMBER := 0-1962.0724
2692 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
2693 , p5_a10 DATE := fnd_api.g_miss_date
2694 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
2695 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
2696 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2697 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2698 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2699 , p5_a16 NUMBER := 0-1962.0724
2700 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2701 , p5_a18 NUMBER := 0-1962.0724
2702 , p5_a19 NUMBER := 0-1962.0724
2703 , p5_a20 DATE := fnd_api.g_miss_date
2704 , p5_a21 NUMBER := 0-1962.0724
2705 , p5_a22 NUMBER := 0-1962.0724
2706 , p5_a23 DATE := fnd_api.g_miss_date
2707 , p5_a24 NUMBER := 0-1962.0724
2708 , p5_a25 DATE := fnd_api.g_miss_date
2709 , p5_a26 NUMBER := 0-1962.0724
2710 )
2711
2712 as
2713 ddp_aehv_rec okl_aeh_pvt.aehv_rec_type;
2714 ddindx binary_integer; indx binary_integer;
2715 begin
2716
2717 -- copy data to the local IN or IN-OUT args, if any
2718
2719
2720
2721
2722
2723 ddp_aehv_rec.post_to_gl_flag := p5_a0;
2724 ddp_aehv_rec.ae_header_id := rosetta_g_miss_num_map(p5_a1);
2725 ddp_aehv_rec.object_version_number := rosetta_g_miss_num_map(p5_a2);
2726 ddp_aehv_rec.accounting_event_id := rosetta_g_miss_num_map(p5_a3);
2727 ddp_aehv_rec.set_of_books_id := rosetta_g_miss_num_map(p5_a4);
2728 ddp_aehv_rec.org_id := rosetta_g_miss_num_map(p5_a5);
2729 ddp_aehv_rec.ae_category := p5_a6;
2730 ddp_aehv_rec.sequence_id := rosetta_g_miss_num_map(p5_a7);
2731 ddp_aehv_rec.sequence_value := rosetta_g_miss_num_map(p5_a8);
2732 ddp_aehv_rec.period_name := p5_a9;
2733 ddp_aehv_rec.accounting_date := rosetta_g_miss_date_in_map(p5_a10);
2734 ddp_aehv_rec.description := p5_a11;
2735 ddp_aehv_rec.accounting_error_code := p5_a12;
2736 ddp_aehv_rec.cross_currency_flag := p5_a13;
2737 ddp_aehv_rec.gl_transfer_flag := p5_a14;
2738 ddp_aehv_rec.gl_transfer_error_code := p5_a15;
2739 ddp_aehv_rec.gl_transfer_run_id := rosetta_g_miss_num_map(p5_a16);
2740 ddp_aehv_rec.gl_reversal_flag := p5_a17;
2741 ddp_aehv_rec.program_id := rosetta_g_miss_num_map(p5_a18);
2742 ddp_aehv_rec.program_application_id := rosetta_g_miss_num_map(p5_a19);
2743 ddp_aehv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a20);
2744 ddp_aehv_rec.request_id := rosetta_g_miss_num_map(p5_a21);
2745 ddp_aehv_rec.created_by := rosetta_g_miss_num_map(p5_a22);
2746 ddp_aehv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a23);
2747 ddp_aehv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a24);
2748 ddp_aehv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a25);
2749 ddp_aehv_rec.last_update_login := rosetta_g_miss_num_map(p5_a26);
2750
2751 -- here's the delegated call to the old PL/SQL routine
2752 okl_aeh_pvt.validate_row(p_api_version,
2753 p_init_msg_list,
2754 x_return_status,
2755 x_msg_count,
2756 x_msg_data,
2757 ddp_aehv_rec);
2758
2759 -- copy data back from the local variables to OUT or IN-OUT args, if any
2760
2761
2762
2763
2764
2765 end;
2766
2767 procedure validate_row(p_api_version NUMBER
2768 , p_init_msg_list VARCHAR2
2769 , x_return_status out nocopy VARCHAR2
2770 , x_msg_count out nocopy NUMBER
2771 , x_msg_data out nocopy VARCHAR2
2772 , p5_a0 JTF_VARCHAR2_TABLE_100
2773 , p5_a1 JTF_NUMBER_TABLE
2774 , p5_a2 JTF_NUMBER_TABLE
2775 , p5_a3 JTF_NUMBER_TABLE
2776 , p5_a4 JTF_NUMBER_TABLE
2777 , p5_a5 JTF_NUMBER_TABLE
2778 , p5_a6 JTF_VARCHAR2_TABLE_100
2779 , p5_a7 JTF_NUMBER_TABLE
2780 , p5_a8 JTF_NUMBER_TABLE
2781 , p5_a9 JTF_VARCHAR2_TABLE_100
2782 , p5_a10 JTF_DATE_TABLE
2783 , p5_a11 JTF_VARCHAR2_TABLE_800
2784 , p5_a12 JTF_VARCHAR2_TABLE_100
2785 , p5_a13 JTF_VARCHAR2_TABLE_100
2786 , p5_a14 JTF_VARCHAR2_TABLE_100
2787 , p5_a15 JTF_VARCHAR2_TABLE_100
2788 , p5_a16 JTF_NUMBER_TABLE
2789 , p5_a17 JTF_VARCHAR2_TABLE_100
2790 , p5_a18 JTF_NUMBER_TABLE
2791 , p5_a19 JTF_NUMBER_TABLE
2792 , p5_a20 JTF_DATE_TABLE
2793 , p5_a21 JTF_NUMBER_TABLE
2794 , p5_a22 JTF_NUMBER_TABLE
2795 , p5_a23 JTF_DATE_TABLE
2796 , p5_a24 JTF_NUMBER_TABLE
2797 , p5_a25 JTF_DATE_TABLE
2798 , p5_a26 JTF_NUMBER_TABLE
2799 )
2800
2801 as
2802 ddp_aehv_tbl okl_aeh_pvt.aehv_tbl_type;
2803 ddindx binary_integer; indx binary_integer;
2804 begin
2805
2806 -- copy data to the local IN or IN-OUT args, if any
2807
2808
2809
2810
2811
2812 okl_aeh_pvt_w.rosetta_table_copy_in_p5(ddp_aehv_tbl, p5_a0
2813 , p5_a1
2814 , p5_a2
2815 , p5_a3
2816 , p5_a4
2817 , p5_a5
2818 , p5_a6
2819 , p5_a7
2820 , p5_a8
2821 , p5_a9
2822 , p5_a10
2823 , p5_a11
2824 , p5_a12
2825 , p5_a13
2826 , p5_a14
2827 , p5_a15
2828 , p5_a16
2829 , p5_a17
2830 , p5_a18
2831 , p5_a19
2832 , p5_a20
2833 , p5_a21
2834 , p5_a22
2835 , p5_a23
2836 , p5_a24
2837 , p5_a25
2838 , p5_a26
2839 );
2840
2841 -- here's the delegated call to the old PL/SQL routine
2842 okl_aeh_pvt.validate_row(p_api_version,
2843 p_init_msg_list,
2844 x_return_status,
2845 x_msg_count,
2846 x_msg_data,
2847 ddp_aehv_tbl);
2848
2849 -- copy data back from the local variables to OUT or IN-OUT args, if any
2850
2851
2852
2853
2854
2855 end;
2856
2857 end okl_aeh_pvt_w;