[Home] [Help]
PACKAGE BODY: APPS.OKL_RCS_PVT_W
Source
1 package body okl_rcs_pvt_w as
2 /* $Header: OKLIRCSB.pls 120.2 2005/09/14 06:42:42 smadhava noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy okl_rcs_pvt.okl_rcsv_tbl, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_VARCHAR2_TABLE_100
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_VARCHAR2_TABLE_300
10 , a7 JTF_VARCHAR2_TABLE_2000
11 , a8 JTF_VARCHAR2_TABLE_100
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_DATE_TABLE
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_DATE_TABLE
16 , a13 JTF_NUMBER_TABLE
17 ) as
18 ddindx binary_integer; indx binary_integer;
19 begin
20 if a0 is not null and a0.count > 0 then
21 if a0.count > 0 then
22 indx := a0.first;
23 ddindx := 1;
24 while true loop
25 t(ddindx).resi_category_set_id := a0(indx);
26 t(ddindx).orig_resi_cat_set_id := a1(indx);
27 t(ddindx).object_version_number := a2(indx);
28 t(ddindx).org_id := a3(indx);
29 t(ddindx).source_code := a4(indx);
30 t(ddindx).sts_code := a5(indx);
31 t(ddindx).resi_cat_name := a6(indx);
32 t(ddindx).resi_cat_desc := a7(indx);
33 t(ddindx).sfwt_flag := a8(indx);
34 t(ddindx).created_by := a9(indx);
35 t(ddindx).creation_date := a10(indx);
36 t(ddindx).last_updated_by := a11(indx);
37 t(ddindx).last_update_date := a12(indx);
38 t(ddindx).last_update_login := a13(indx);
39 ddindx := ddindx+1;
40 if a0.last =indx
41 then exit;
42 end if;
43 indx := a0.next(indx);
44 end loop;
45 end if;
46 end if;
47 end rosetta_table_copy_in_p1;
48 procedure rosetta_table_copy_out_p1(t okl_rcs_pvt.okl_rcsv_tbl, a0 out nocopy JTF_NUMBER_TABLE
49 , a1 out nocopy JTF_NUMBER_TABLE
50 , a2 out nocopy JTF_NUMBER_TABLE
51 , a3 out nocopy JTF_NUMBER_TABLE
52 , a4 out nocopy JTF_VARCHAR2_TABLE_100
53 , a5 out nocopy JTF_VARCHAR2_TABLE_100
54 , a6 out nocopy JTF_VARCHAR2_TABLE_300
55 , a7 out nocopy JTF_VARCHAR2_TABLE_2000
56 , a8 out nocopy JTF_VARCHAR2_TABLE_100
57 , a9 out nocopy JTF_NUMBER_TABLE
58 , a10 out nocopy JTF_DATE_TABLE
59 , a11 out nocopy JTF_NUMBER_TABLE
60 , a12 out nocopy JTF_DATE_TABLE
61 , a13 out nocopy JTF_NUMBER_TABLE
62 ) as
63 ddindx binary_integer; indx binary_integer;
64 begin
65 if t is null or t.count = 0 then
66 a0 := JTF_NUMBER_TABLE();
67 a1 := JTF_NUMBER_TABLE();
68 a2 := JTF_NUMBER_TABLE();
69 a3 := JTF_NUMBER_TABLE();
70 a4 := JTF_VARCHAR2_TABLE_100();
71 a5 := JTF_VARCHAR2_TABLE_100();
72 a6 := JTF_VARCHAR2_TABLE_300();
73 a7 := JTF_VARCHAR2_TABLE_2000();
74 a8 := JTF_VARCHAR2_TABLE_100();
75 a9 := JTF_NUMBER_TABLE();
76 a10 := JTF_DATE_TABLE();
77 a11 := JTF_NUMBER_TABLE();
78 a12 := JTF_DATE_TABLE();
79 a13 := JTF_NUMBER_TABLE();
80 else
81 a0 := JTF_NUMBER_TABLE();
82 a1 := JTF_NUMBER_TABLE();
83 a2 := JTF_NUMBER_TABLE();
84 a3 := JTF_NUMBER_TABLE();
85 a4 := JTF_VARCHAR2_TABLE_100();
86 a5 := JTF_VARCHAR2_TABLE_100();
87 a6 := JTF_VARCHAR2_TABLE_300();
88 a7 := JTF_VARCHAR2_TABLE_2000();
89 a8 := JTF_VARCHAR2_TABLE_100();
90 a9 := JTF_NUMBER_TABLE();
91 a10 := JTF_DATE_TABLE();
92 a11 := JTF_NUMBER_TABLE();
93 a12 := JTF_DATE_TABLE();
94 a13 := JTF_NUMBER_TABLE();
95 if t.count > 0 then
96 a0.extend(t.count);
97 a1.extend(t.count);
98 a2.extend(t.count);
99 a3.extend(t.count);
100 a4.extend(t.count);
101 a5.extend(t.count);
102 a6.extend(t.count);
103 a7.extend(t.count);
104 a8.extend(t.count);
105 a9.extend(t.count);
106 a10.extend(t.count);
107 a11.extend(t.count);
108 a12.extend(t.count);
109 a13.extend(t.count);
110 ddindx := t.first;
111 indx := 1;
112 while true loop
113 a0(indx) := t(ddindx).resi_category_set_id;
114 a1(indx) := t(ddindx).orig_resi_cat_set_id;
115 a2(indx) := t(ddindx).object_version_number;
116 a3(indx) := t(ddindx).org_id;
117 a4(indx) := t(ddindx).source_code;
118 a5(indx) := t(ddindx).sts_code;
119 a6(indx) := t(ddindx).resi_cat_name;
120 a7(indx) := t(ddindx).resi_cat_desc;
121 a8(indx) := t(ddindx).sfwt_flag;
122 a9(indx) := t(ddindx).created_by;
123 a10(indx) := t(ddindx).creation_date;
124 a11(indx) := t(ddindx).last_updated_by;
125 a12(indx) := t(ddindx).last_update_date;
126 a13(indx) := t(ddindx).last_update_login;
127 indx := indx+1;
128 if t.last =ddindx
129 then exit;
130 end if;
131 ddindx := t.next(ddindx);
132 end loop;
133 end if;
134 end if;
135 end rosetta_table_copy_out_p1;
136
137 procedure rosetta_table_copy_in_p3(t out nocopy okl_rcs_pvt.okl_rcsb_tbl, a0 JTF_NUMBER_TABLE
138 , a1 JTF_VARCHAR2_TABLE_300
139 , a2 JTF_NUMBER_TABLE
140 , a3 JTF_NUMBER_TABLE
141 , a4 JTF_NUMBER_TABLE
142 , a5 JTF_VARCHAR2_TABLE_100
143 , a6 JTF_VARCHAR2_TABLE_100
144 , a7 JTF_NUMBER_TABLE
145 , a8 JTF_DATE_TABLE
146 , a9 JTF_NUMBER_TABLE
147 , a10 JTF_DATE_TABLE
148 , a11 JTF_NUMBER_TABLE
149 ) as
150 ddindx binary_integer; indx binary_integer;
151 begin
152 if a0 is not null and a0.count > 0 then
153 if a0.count > 0 then
154 indx := a0.first;
155 ddindx := 1;
156 while true loop
157 t(ddindx).resi_category_set_id := a0(indx);
158 t(ddindx).resi_cat_name := a1(indx);
159 t(ddindx).object_version_number := a2(indx);
160 t(ddindx).orig_resi_cat_set_id := a3(indx);
161 t(ddindx).org_id := a4(indx);
162 t(ddindx).source_code := a5(indx);
163 t(ddindx).sts_code := a6(indx);
164 t(ddindx).created_by := a7(indx);
165 t(ddindx).creation_date := a8(indx);
166 t(ddindx).last_updated_by := a9(indx);
167 t(ddindx).last_update_date := a10(indx);
168 t(ddindx).last_update_login := a11(indx);
169 ddindx := ddindx+1;
170 if a0.last =indx
171 then exit;
172 end if;
173 indx := a0.next(indx);
174 end loop;
175 end if;
176 end if;
177 end rosetta_table_copy_in_p3;
178 procedure rosetta_table_copy_out_p3(t okl_rcs_pvt.okl_rcsb_tbl, a0 out nocopy JTF_NUMBER_TABLE
179 , a1 out nocopy JTF_VARCHAR2_TABLE_300
180 , a2 out nocopy JTF_NUMBER_TABLE
181 , a3 out nocopy JTF_NUMBER_TABLE
182 , a4 out nocopy JTF_NUMBER_TABLE
183 , a5 out nocopy JTF_VARCHAR2_TABLE_100
184 , a6 out nocopy JTF_VARCHAR2_TABLE_100
185 , a7 out nocopy JTF_NUMBER_TABLE
186 , a8 out nocopy JTF_DATE_TABLE
187 , a9 out nocopy JTF_NUMBER_TABLE
188 , a10 out nocopy JTF_DATE_TABLE
189 , a11 out nocopy JTF_NUMBER_TABLE
190 ) as
191 ddindx binary_integer; indx binary_integer;
192 begin
193 if t is null or t.count = 0 then
194 a0 := JTF_NUMBER_TABLE();
195 a1 := JTF_VARCHAR2_TABLE_300();
196 a2 := JTF_NUMBER_TABLE();
197 a3 := JTF_NUMBER_TABLE();
198 a4 := JTF_NUMBER_TABLE();
199 a5 := JTF_VARCHAR2_TABLE_100();
200 a6 := JTF_VARCHAR2_TABLE_100();
201 a7 := JTF_NUMBER_TABLE();
202 a8 := JTF_DATE_TABLE();
203 a9 := JTF_NUMBER_TABLE();
204 a10 := JTF_DATE_TABLE();
205 a11 := JTF_NUMBER_TABLE();
206 else
207 a0 := JTF_NUMBER_TABLE();
208 a1 := JTF_VARCHAR2_TABLE_300();
209 a2 := JTF_NUMBER_TABLE();
210 a3 := JTF_NUMBER_TABLE();
211 a4 := JTF_NUMBER_TABLE();
212 a5 := JTF_VARCHAR2_TABLE_100();
213 a6 := JTF_VARCHAR2_TABLE_100();
214 a7 := JTF_NUMBER_TABLE();
215 a8 := JTF_DATE_TABLE();
216 a9 := JTF_NUMBER_TABLE();
217 a10 := JTF_DATE_TABLE();
218 a11 := JTF_NUMBER_TABLE();
219 if t.count > 0 then
220 a0.extend(t.count);
221 a1.extend(t.count);
222 a2.extend(t.count);
223 a3.extend(t.count);
224 a4.extend(t.count);
225 a5.extend(t.count);
226 a6.extend(t.count);
227 a7.extend(t.count);
228 a8.extend(t.count);
229 a9.extend(t.count);
230 a10.extend(t.count);
231 a11.extend(t.count);
232 ddindx := t.first;
233 indx := 1;
234 while true loop
235 a0(indx) := t(ddindx).resi_category_set_id;
236 a1(indx) := t(ddindx).resi_cat_name;
237 a2(indx) := t(ddindx).object_version_number;
238 a3(indx) := t(ddindx).orig_resi_cat_set_id;
239 a4(indx) := t(ddindx).org_id;
240 a5(indx) := t(ddindx).source_code;
241 a6(indx) := t(ddindx).sts_code;
242 a7(indx) := t(ddindx).created_by;
243 a8(indx) := t(ddindx).creation_date;
244 a9(indx) := t(ddindx).last_updated_by;
245 a10(indx) := t(ddindx).last_update_date;
246 a11(indx) := t(ddindx).last_update_login;
247 indx := indx+1;
248 if t.last =ddindx
249 then exit;
250 end if;
251 ddindx := t.next(ddindx);
252 end loop;
253 end if;
254 end if;
255 end rosetta_table_copy_out_p3;
256
257 procedure rosetta_table_copy_in_p5(t out nocopy okl_rcs_pvt.okl_rcstl_tbl, a0 JTF_NUMBER_TABLE
258 , a1 JTF_VARCHAR2_TABLE_100
259 , a2 JTF_VARCHAR2_TABLE_100
260 , a3 JTF_VARCHAR2_TABLE_100
261 , a4 JTF_NUMBER_TABLE
262 , a5 JTF_DATE_TABLE
263 , a6 JTF_NUMBER_TABLE
264 , a7 JTF_DATE_TABLE
265 , a8 JTF_NUMBER_TABLE
266 , a9 JTF_VARCHAR2_TABLE_2000
267 ) as
268 ddindx binary_integer; indx binary_integer;
269 begin
270 if a0 is not null and a0.count > 0 then
271 if a0.count > 0 then
272 indx := a0.first;
273 ddindx := 1;
274 while true loop
275 t(ddindx).resi_category_set_id := a0(indx);
276 t(ddindx).language := a1(indx);
277 t(ddindx).source_lang := a2(indx);
278 t(ddindx).sfwt_flag := a3(indx);
279 t(ddindx).created_by := a4(indx);
280 t(ddindx).creation_date := a5(indx);
281 t(ddindx).last_updated_by := a6(indx);
282 t(ddindx).last_update_date := a7(indx);
283 t(ddindx).last_update_login := a8(indx);
284 t(ddindx).resi_cat_desc := a9(indx);
285 ddindx := ddindx+1;
286 if a0.last =indx
287 then exit;
288 end if;
289 indx := a0.next(indx);
290 end loop;
291 end if;
292 end if;
293 end rosetta_table_copy_in_p5;
294 procedure rosetta_table_copy_out_p5(t okl_rcs_pvt.okl_rcstl_tbl, a0 out nocopy JTF_NUMBER_TABLE
295 , a1 out nocopy JTF_VARCHAR2_TABLE_100
296 , a2 out nocopy JTF_VARCHAR2_TABLE_100
297 , a3 out nocopy JTF_VARCHAR2_TABLE_100
298 , a4 out nocopy JTF_NUMBER_TABLE
299 , a5 out nocopy JTF_DATE_TABLE
300 , a6 out nocopy JTF_NUMBER_TABLE
301 , a7 out nocopy JTF_DATE_TABLE
302 , a8 out nocopy JTF_NUMBER_TABLE
303 , a9 out nocopy JTF_VARCHAR2_TABLE_2000
304 ) as
305 ddindx binary_integer; indx binary_integer;
306 begin
307 if t is null or t.count = 0 then
308 a0 := JTF_NUMBER_TABLE();
309 a1 := JTF_VARCHAR2_TABLE_100();
310 a2 := JTF_VARCHAR2_TABLE_100();
311 a3 := JTF_VARCHAR2_TABLE_100();
312 a4 := JTF_NUMBER_TABLE();
313 a5 := JTF_DATE_TABLE();
314 a6 := JTF_NUMBER_TABLE();
315 a7 := JTF_DATE_TABLE();
316 a8 := JTF_NUMBER_TABLE();
317 a9 := JTF_VARCHAR2_TABLE_2000();
318 else
319 a0 := JTF_NUMBER_TABLE();
320 a1 := JTF_VARCHAR2_TABLE_100();
321 a2 := JTF_VARCHAR2_TABLE_100();
322 a3 := JTF_VARCHAR2_TABLE_100();
323 a4 := JTF_NUMBER_TABLE();
324 a5 := JTF_DATE_TABLE();
325 a6 := JTF_NUMBER_TABLE();
326 a7 := JTF_DATE_TABLE();
327 a8 := JTF_NUMBER_TABLE();
328 a9 := JTF_VARCHAR2_TABLE_2000();
329 if t.count > 0 then
330 a0.extend(t.count);
331 a1.extend(t.count);
332 a2.extend(t.count);
333 a3.extend(t.count);
334 a4.extend(t.count);
335 a5.extend(t.count);
336 a6.extend(t.count);
337 a7.extend(t.count);
338 a8.extend(t.count);
339 a9.extend(t.count);
340 ddindx := t.first;
341 indx := 1;
342 while true loop
343 a0(indx) := t(ddindx).resi_category_set_id;
344 a1(indx) := t(ddindx).language;
345 a2(indx) := t(ddindx).source_lang;
346 a3(indx) := t(ddindx).sfwt_flag;
347 a4(indx) := t(ddindx).created_by;
348 a5(indx) := t(ddindx).creation_date;
349 a6(indx) := t(ddindx).last_updated_by;
350 a7(indx) := t(ddindx).last_update_date;
351 a8(indx) := t(ddindx).last_update_login;
352 a9(indx) := t(ddindx).resi_cat_desc;
353 indx := indx+1;
354 if t.last =ddindx
355 then exit;
356 end if;
357 ddindx := t.next(ddindx);
358 end loop;
359 end if;
360 end if;
361 end rosetta_table_copy_out_p5;
362
363 procedure insert_row(p_api_version NUMBER
364 , p_init_msg_list VARCHAR2
365 , x_return_status out nocopy VARCHAR2
366 , x_msg_count out nocopy NUMBER
367 , x_msg_data out nocopy VARCHAR2
368 , p5_a0 NUMBER
369 , p5_a1 NUMBER
370 , p5_a2 NUMBER
371 , p5_a3 NUMBER
372 , p5_a4 VARCHAR2
373 , p5_a5 VARCHAR2
374 , p5_a6 VARCHAR2
375 , p5_a7 VARCHAR2
376 , p5_a8 VARCHAR2
377 , p5_a9 NUMBER
378 , p5_a10 DATE
379 , p5_a11 NUMBER
380 , p5_a12 DATE
381 , p5_a13 NUMBER
382 , p6_a0 out nocopy NUMBER
383 , p6_a1 out nocopy NUMBER
384 , p6_a2 out nocopy NUMBER
385 , p6_a3 out nocopy NUMBER
386 , p6_a4 out nocopy VARCHAR2
387 , p6_a5 out nocopy VARCHAR2
388 , p6_a6 out nocopy VARCHAR2
389 , p6_a7 out nocopy VARCHAR2
390 , p6_a8 out nocopy VARCHAR2
391 , p6_a9 out nocopy NUMBER
392 , p6_a10 out nocopy DATE
393 , p6_a11 out nocopy NUMBER
394 , p6_a12 out nocopy DATE
395 , p6_a13 out nocopy NUMBER
396 )
397
398 as
399 ddp_rcsv_rec okl_rcs_pvt.okl_rcsv_rec;
400 ddx_rcsv_rec okl_rcs_pvt.okl_rcsv_rec;
401 ddindx binary_integer; indx binary_integer;
402 begin
403
404 -- copy data to the local IN or IN-OUT args, if any
405
406
407
408
409
410 ddp_rcsv_rec.resi_category_set_id := p5_a0;
411 ddp_rcsv_rec.orig_resi_cat_set_id := p5_a1;
412 ddp_rcsv_rec.object_version_number := p5_a2;
413 ddp_rcsv_rec.org_id := p5_a3;
414 ddp_rcsv_rec.source_code := p5_a4;
415 ddp_rcsv_rec.sts_code := p5_a5;
416 ddp_rcsv_rec.resi_cat_name := p5_a6;
417 ddp_rcsv_rec.resi_cat_desc := p5_a7;
418 ddp_rcsv_rec.sfwt_flag := p5_a8;
419 ddp_rcsv_rec.created_by := p5_a9;
420 ddp_rcsv_rec.creation_date := p5_a10;
421 ddp_rcsv_rec.last_updated_by := p5_a11;
422 ddp_rcsv_rec.last_update_date := p5_a12;
423 ddp_rcsv_rec.last_update_login := p5_a13;
424
425
426 -- here's the delegated call to the old PL/SQL routine
427 okl_rcs_pvt.insert_row(p_api_version,
428 p_init_msg_list,
429 x_return_status,
430 x_msg_count,
431 x_msg_data,
432 ddp_rcsv_rec,
433 ddx_rcsv_rec);
434
435 -- copy data back from the local variables to OUT or IN-OUT args, if any
436
437
438
439
440
441
442 p6_a0 := ddx_rcsv_rec.resi_category_set_id;
443 p6_a1 := ddx_rcsv_rec.orig_resi_cat_set_id;
444 p6_a2 := ddx_rcsv_rec.object_version_number;
445 p6_a3 := ddx_rcsv_rec.org_id;
446 p6_a4 := ddx_rcsv_rec.source_code;
447 p6_a5 := ddx_rcsv_rec.sts_code;
448 p6_a6 := ddx_rcsv_rec.resi_cat_name;
449 p6_a7 := ddx_rcsv_rec.resi_cat_desc;
450 p6_a8 := ddx_rcsv_rec.sfwt_flag;
451 p6_a9 := ddx_rcsv_rec.created_by;
452 p6_a10 := ddx_rcsv_rec.creation_date;
453 p6_a11 := ddx_rcsv_rec.last_updated_by;
454 p6_a12 := ddx_rcsv_rec.last_update_date;
455 p6_a13 := ddx_rcsv_rec.last_update_login;
456 end;
457
458 procedure insert_row(p_api_version NUMBER
459 , p_init_msg_list VARCHAR2
460 , x_return_status out nocopy VARCHAR2
461 , x_msg_count out nocopy NUMBER
462 , x_msg_data out nocopy VARCHAR2
463 , p5_a0 JTF_NUMBER_TABLE
464 , p5_a1 JTF_NUMBER_TABLE
465 , p5_a2 JTF_NUMBER_TABLE
466 , p5_a3 JTF_NUMBER_TABLE
467 , p5_a4 JTF_VARCHAR2_TABLE_100
468 , p5_a5 JTF_VARCHAR2_TABLE_100
469 , p5_a6 JTF_VARCHAR2_TABLE_300
470 , p5_a7 JTF_VARCHAR2_TABLE_2000
471 , p5_a8 JTF_VARCHAR2_TABLE_100
472 , p5_a9 JTF_NUMBER_TABLE
473 , p5_a10 JTF_DATE_TABLE
474 , p5_a11 JTF_NUMBER_TABLE
475 , p5_a12 JTF_DATE_TABLE
476 , p5_a13 JTF_NUMBER_TABLE
477 , p6_a0 out nocopy JTF_NUMBER_TABLE
478 , p6_a1 out nocopy JTF_NUMBER_TABLE
479 , p6_a2 out nocopy JTF_NUMBER_TABLE
480 , p6_a3 out nocopy JTF_NUMBER_TABLE
481 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
482 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
483 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_300
484 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_2000
485 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
486 , p6_a9 out nocopy JTF_NUMBER_TABLE
487 , p6_a10 out nocopy JTF_DATE_TABLE
488 , p6_a11 out nocopy JTF_NUMBER_TABLE
489 , p6_a12 out nocopy JTF_DATE_TABLE
490 , p6_a13 out nocopy JTF_NUMBER_TABLE
491 )
492
493 as
494 ddp_rcsv_tbl okl_rcs_pvt.okl_rcsv_tbl;
495 ddx_rcsv_tbl okl_rcs_pvt.okl_rcsv_tbl;
496 ddindx binary_integer; indx binary_integer;
497 begin
498
499 -- copy data to the local IN or IN-OUT args, if any
500
501
502
503
504
505 okl_rcs_pvt_w.rosetta_table_copy_in_p1(ddp_rcsv_tbl, p5_a0
506 , p5_a1
507 , p5_a2
508 , p5_a3
509 , p5_a4
510 , p5_a5
511 , p5_a6
512 , p5_a7
513 , p5_a8
514 , p5_a9
515 , p5_a10
516 , p5_a11
517 , p5_a12
518 , p5_a13
519 );
520
521
522 -- here's the delegated call to the old PL/SQL routine
523 okl_rcs_pvt.insert_row(p_api_version,
524 p_init_msg_list,
525 x_return_status,
526 x_msg_count,
527 x_msg_data,
528 ddp_rcsv_tbl,
529 ddx_rcsv_tbl);
530
531 -- copy data back from the local variables to OUT or IN-OUT args, if any
532
533
534
535
536
537
538 okl_rcs_pvt_w.rosetta_table_copy_out_p1(ddx_rcsv_tbl, p6_a0
539 , p6_a1
540 , p6_a2
541 , p6_a3
542 , p6_a4
543 , p6_a5
544 , p6_a6
545 , p6_a7
546 , p6_a8
547 , p6_a9
548 , p6_a10
549 , p6_a11
550 , p6_a12
551 , p6_a13
552 );
553 end;
554
555 procedure update_row(p_api_version NUMBER
556 , p_init_msg_list VARCHAR2
557 , x_return_status out nocopy VARCHAR2
558 , x_msg_count out nocopy NUMBER
559 , x_msg_data out nocopy VARCHAR2
560 , p5_a0 NUMBER
561 , p5_a1 NUMBER
562 , p5_a2 NUMBER
563 , p5_a3 NUMBER
564 , p5_a4 VARCHAR2
565 , p5_a5 VARCHAR2
566 , p5_a6 VARCHAR2
567 , p5_a7 VARCHAR2
568 , p5_a8 VARCHAR2
569 , p5_a9 NUMBER
570 , p5_a10 DATE
571 , p5_a11 NUMBER
572 , p5_a12 DATE
573 , p5_a13 NUMBER
574 , p6_a0 out nocopy NUMBER
575 , p6_a1 out nocopy NUMBER
576 , p6_a2 out nocopy NUMBER
577 , p6_a3 out nocopy NUMBER
578 , p6_a4 out nocopy VARCHAR2
579 , p6_a5 out nocopy VARCHAR2
580 , p6_a6 out nocopy VARCHAR2
581 , p6_a7 out nocopy VARCHAR2
582 , p6_a8 out nocopy VARCHAR2
583 , p6_a9 out nocopy NUMBER
584 , p6_a10 out nocopy DATE
585 , p6_a11 out nocopy NUMBER
586 , p6_a12 out nocopy DATE
587 , p6_a13 out nocopy NUMBER
588 )
589
590 as
591 ddp_rcsv_rec okl_rcs_pvt.okl_rcsv_rec;
592 ddx_rcsv_rec okl_rcs_pvt.okl_rcsv_rec;
593 ddindx binary_integer; indx binary_integer;
594 begin
595
596 -- copy data to the local IN or IN-OUT args, if any
597
598
599
600
601
602 ddp_rcsv_rec.resi_category_set_id := p5_a0;
603 ddp_rcsv_rec.orig_resi_cat_set_id := p5_a1;
604 ddp_rcsv_rec.object_version_number := p5_a2;
605 ddp_rcsv_rec.org_id := p5_a3;
606 ddp_rcsv_rec.source_code := p5_a4;
607 ddp_rcsv_rec.sts_code := p5_a5;
608 ddp_rcsv_rec.resi_cat_name := p5_a6;
609 ddp_rcsv_rec.resi_cat_desc := p5_a7;
610 ddp_rcsv_rec.sfwt_flag := p5_a8;
611 ddp_rcsv_rec.created_by := p5_a9;
612 ddp_rcsv_rec.creation_date := p5_a10;
613 ddp_rcsv_rec.last_updated_by := p5_a11;
614 ddp_rcsv_rec.last_update_date := p5_a12;
615 ddp_rcsv_rec.last_update_login := p5_a13;
616
617
618 -- here's the delegated call to the old PL/SQL routine
619 okl_rcs_pvt.update_row(p_api_version,
620 p_init_msg_list,
621 x_return_status,
622 x_msg_count,
623 x_msg_data,
624 ddp_rcsv_rec,
625 ddx_rcsv_rec);
626
627 -- copy data back from the local variables to OUT or IN-OUT args, if any
628
629
630
631
632
633
634 p6_a0 := ddx_rcsv_rec.resi_category_set_id;
635 p6_a1 := ddx_rcsv_rec.orig_resi_cat_set_id;
636 p6_a2 := ddx_rcsv_rec.object_version_number;
637 p6_a3 := ddx_rcsv_rec.org_id;
638 p6_a4 := ddx_rcsv_rec.source_code;
639 p6_a5 := ddx_rcsv_rec.sts_code;
640 p6_a6 := ddx_rcsv_rec.resi_cat_name;
641 p6_a7 := ddx_rcsv_rec.resi_cat_desc;
642 p6_a8 := ddx_rcsv_rec.sfwt_flag;
643 p6_a9 := ddx_rcsv_rec.created_by;
644 p6_a10 := ddx_rcsv_rec.creation_date;
645 p6_a11 := ddx_rcsv_rec.last_updated_by;
646 p6_a12 := ddx_rcsv_rec.last_update_date;
647 p6_a13 := ddx_rcsv_rec.last_update_login;
648 end;
649
650 procedure update_row(p_api_version NUMBER
651 , p_init_msg_list VARCHAR2
652 , x_return_status out nocopy VARCHAR2
653 , x_msg_count out nocopy NUMBER
654 , x_msg_data out nocopy VARCHAR2
655 , p5_a0 JTF_NUMBER_TABLE
656 , p5_a1 JTF_NUMBER_TABLE
657 , p5_a2 JTF_NUMBER_TABLE
658 , p5_a3 JTF_NUMBER_TABLE
659 , p5_a4 JTF_VARCHAR2_TABLE_100
660 , p5_a5 JTF_VARCHAR2_TABLE_100
661 , p5_a6 JTF_VARCHAR2_TABLE_300
662 , p5_a7 JTF_VARCHAR2_TABLE_2000
663 , p5_a8 JTF_VARCHAR2_TABLE_100
664 , p5_a9 JTF_NUMBER_TABLE
665 , p5_a10 JTF_DATE_TABLE
666 , p5_a11 JTF_NUMBER_TABLE
667 , p5_a12 JTF_DATE_TABLE
668 , p5_a13 JTF_NUMBER_TABLE
669 , p6_a0 out nocopy JTF_NUMBER_TABLE
670 , p6_a1 out nocopy JTF_NUMBER_TABLE
671 , p6_a2 out nocopy JTF_NUMBER_TABLE
672 , p6_a3 out nocopy JTF_NUMBER_TABLE
673 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
674 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
675 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_300
676 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_2000
677 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
678 , p6_a9 out nocopy JTF_NUMBER_TABLE
679 , p6_a10 out nocopy JTF_DATE_TABLE
680 , p6_a11 out nocopy JTF_NUMBER_TABLE
681 , p6_a12 out nocopy JTF_DATE_TABLE
682 , p6_a13 out nocopy JTF_NUMBER_TABLE
683 )
684
685 as
686 ddp_rcsv_tbl okl_rcs_pvt.okl_rcsv_tbl;
687 ddx_rcsv_tbl okl_rcs_pvt.okl_rcsv_tbl;
688 ddindx binary_integer; indx binary_integer;
689 begin
690
691 -- copy data to the local IN or IN-OUT args, if any
692
693
694
695
696
697 okl_rcs_pvt_w.rosetta_table_copy_in_p1(ddp_rcsv_tbl, p5_a0
698 , p5_a1
699 , p5_a2
700 , p5_a3
701 , p5_a4
702 , p5_a5
703 , p5_a6
704 , p5_a7
705 , p5_a8
706 , p5_a9
707 , p5_a10
708 , p5_a11
709 , p5_a12
710 , p5_a13
711 );
712
713
714 -- here's the delegated call to the old PL/SQL routine
715 okl_rcs_pvt.update_row(p_api_version,
716 p_init_msg_list,
717 x_return_status,
718 x_msg_count,
719 x_msg_data,
720 ddp_rcsv_tbl,
721 ddx_rcsv_tbl);
722
723 -- copy data back from the local variables to OUT or IN-OUT args, if any
724
725
726
727
728
729
730 okl_rcs_pvt_w.rosetta_table_copy_out_p1(ddx_rcsv_tbl, p6_a0
731 , p6_a1
732 , p6_a2
733 , p6_a3
734 , p6_a4
735 , p6_a5
736 , p6_a6
737 , p6_a7
738 , p6_a8
739 , p6_a9
740 , p6_a10
741 , p6_a11
742 , p6_a12
743 , p6_a13
744 );
745 end;
746
747 procedure delete_row(p_api_version NUMBER
748 , p_init_msg_list VARCHAR2
749 , x_return_status out nocopy VARCHAR2
750 , x_msg_count out nocopy NUMBER
751 , x_msg_data out nocopy VARCHAR2
752 , p5_a0 NUMBER
753 , p5_a1 NUMBER
754 , p5_a2 NUMBER
755 , p5_a3 NUMBER
756 , p5_a4 VARCHAR2
757 , p5_a5 VARCHAR2
758 , p5_a6 VARCHAR2
759 , p5_a7 VARCHAR2
760 , p5_a8 VARCHAR2
761 , p5_a9 NUMBER
762 , p5_a10 DATE
763 , p5_a11 NUMBER
764 , p5_a12 DATE
765 , p5_a13 NUMBER
766 )
767
768 as
769 ddp_rcsv_rec okl_rcs_pvt.okl_rcsv_rec;
770 ddindx binary_integer; indx binary_integer;
771 begin
772
773 -- copy data to the local IN or IN-OUT args, if any
774
775
776
777
778
779 ddp_rcsv_rec.resi_category_set_id := p5_a0;
780 ddp_rcsv_rec.orig_resi_cat_set_id := p5_a1;
781 ddp_rcsv_rec.object_version_number := p5_a2;
782 ddp_rcsv_rec.org_id := p5_a3;
783 ddp_rcsv_rec.source_code := p5_a4;
784 ddp_rcsv_rec.sts_code := p5_a5;
785 ddp_rcsv_rec.resi_cat_name := p5_a6;
786 ddp_rcsv_rec.resi_cat_desc := p5_a7;
787 ddp_rcsv_rec.sfwt_flag := p5_a8;
788 ddp_rcsv_rec.created_by := p5_a9;
789 ddp_rcsv_rec.creation_date := p5_a10;
790 ddp_rcsv_rec.last_updated_by := p5_a11;
791 ddp_rcsv_rec.last_update_date := p5_a12;
792 ddp_rcsv_rec.last_update_login := p5_a13;
793
794 -- here's the delegated call to the old PL/SQL routine
795 okl_rcs_pvt.delete_row(p_api_version,
796 p_init_msg_list,
797 x_return_status,
798 x_msg_count,
799 x_msg_data,
800 ddp_rcsv_rec);
801
802 -- copy data back from the local variables to OUT or IN-OUT args, if any
803
804
805
806
807
808 end;
809
810 procedure delete_row(p_api_version NUMBER
811 , p_init_msg_list VARCHAR2
812 , x_return_status out nocopy VARCHAR2
813 , x_msg_count out nocopy NUMBER
814 , x_msg_data out nocopy VARCHAR2
815 , p5_a0 JTF_NUMBER_TABLE
816 , p5_a1 JTF_NUMBER_TABLE
817 , p5_a2 JTF_NUMBER_TABLE
818 , p5_a3 JTF_NUMBER_TABLE
819 , p5_a4 JTF_VARCHAR2_TABLE_100
820 , p5_a5 JTF_VARCHAR2_TABLE_100
821 , p5_a6 JTF_VARCHAR2_TABLE_300
822 , p5_a7 JTF_VARCHAR2_TABLE_2000
823 , p5_a8 JTF_VARCHAR2_TABLE_100
824 , p5_a9 JTF_NUMBER_TABLE
825 , p5_a10 JTF_DATE_TABLE
826 , p5_a11 JTF_NUMBER_TABLE
827 , p5_a12 JTF_DATE_TABLE
828 , p5_a13 JTF_NUMBER_TABLE
829 )
830
831 as
832 ddp_rcsv_tbl okl_rcs_pvt.okl_rcsv_tbl;
833 ddindx binary_integer; indx binary_integer;
834 begin
835
836 -- copy data to the local IN or IN-OUT args, if any
837
838
839
840
841
842 okl_rcs_pvt_w.rosetta_table_copy_in_p1(ddp_rcsv_tbl, p5_a0
843 , p5_a1
844 , p5_a2
845 , p5_a3
846 , p5_a4
847 , p5_a5
848 , p5_a6
849 , p5_a7
850 , p5_a8
851 , p5_a9
852 , p5_a10
853 , p5_a11
854 , p5_a12
855 , p5_a13
856 );
857
858 -- here's the delegated call to the old PL/SQL routine
859 okl_rcs_pvt.delete_row(p_api_version,
860 p_init_msg_list,
861 x_return_status,
862 x_msg_count,
863 x_msg_data,
864 ddp_rcsv_tbl);
865
866 -- copy data back from the local variables to OUT or IN-OUT args, if any
867
868
869
870
871
872 end;
873
874 end okl_rcs_pvt_w;