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