[Home] [Help]
PACKAGE BODY: APPS.AHL_SB_RULES_PVT_W
Source
1 package body ahl_sb_rules_pvt_w as
2 /* $Header: AHLWSBRB.pls 120.0.12020000.2 2012/12/14 06:28:47 shnatu noship $ */
3 procedure rosetta_table_copy_in_p4(t out nocopy ahl_sb_rules_pvt.sb_rule_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_DATE_TABLE
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_DATE_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_VARCHAR2_TABLE_100
12 , a9 JTF_NUMBER_TABLE
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_NUMBER_TABLE
16 , a13 JTF_DATE_TABLE
17 , a14 JTF_DATE_TABLE
18 , a15 JTF_NUMBER_TABLE
19 , a16 JTF_VARCHAR2_TABLE_100
20 , a17 JTF_VARCHAR2_TABLE_200
21 , a18 JTF_VARCHAR2_TABLE_200
22 , a19 JTF_VARCHAR2_TABLE_200
23 , a20 JTF_VARCHAR2_TABLE_200
24 , a21 JTF_VARCHAR2_TABLE_200
25 , a22 JTF_VARCHAR2_TABLE_200
26 , a23 JTF_VARCHAR2_TABLE_200
27 , a24 JTF_VARCHAR2_TABLE_200
28 , a25 JTF_VARCHAR2_TABLE_200
29 , a26 JTF_VARCHAR2_TABLE_200
30 , a27 JTF_VARCHAR2_TABLE_200
31 , a28 JTF_VARCHAR2_TABLE_200
32 , a29 JTF_VARCHAR2_TABLE_200
33 , a30 JTF_VARCHAR2_TABLE_200
34 , a31 JTF_VARCHAR2_TABLE_200
35 ) as
36 ddindx binary_integer; indx binary_integer;
37 begin
38 if a0 is not null and a0.count > 0 then
39 if a0.count > 0 then
40 indx := a0.first;
41 ddindx := 1;
42 while true loop
43 t(ddindx).rule_id := a0(indx);
44 t(ddindx).operation_flag := a1(indx);
45 t(ddindx).object_version_number := a2(indx);
46 t(ddindx).last_update_date := a3(indx);
47 t(ddindx).last_updated_by := a4(indx);
48 t(ddindx).creation_date := a5(indx);
49 t(ddindx).created_by := a6(indx);
50 t(ddindx).last_update_login := a7(indx);
51 t(ddindx).rule_name := a8(indx);
52 t(ddindx).mr_header_id := a9(indx);
53 t(ddindx).mc_header_id := a10(indx);
54 t(ddindx).relationship_id := a11(indx);
55 t(ddindx).rule_sequence := a12(indx);
56 t(ddindx).active_start_date := a13(indx);
57 t(ddindx).active_end_date := a14(indx);
58 t(ddindx).security_group_id := a15(indx);
59 t(ddindx).attribute_category := a16(indx);
60 t(ddindx).attribute1 := a17(indx);
61 t(ddindx).attribute2 := a18(indx);
62 t(ddindx).attribute3 := a19(indx);
63 t(ddindx).attribute4 := a20(indx);
64 t(ddindx).attribute5 := a21(indx);
65 t(ddindx).attribute6 := a22(indx);
66 t(ddindx).attribute7 := a23(indx);
67 t(ddindx).attribute8 := a24(indx);
68 t(ddindx).attribute9 := a25(indx);
69 t(ddindx).attribute10 := a26(indx);
70 t(ddindx).attribute11 := a27(indx);
71 t(ddindx).attribute12 := a28(indx);
72 t(ddindx).attribute13 := a29(indx);
73 t(ddindx).attribute14 := a30(indx);
74 t(ddindx).attribute15 := a31(indx);
75 ddindx := ddindx+1;
76 if a0.last =indx
77 then exit;
78 end if;
79 indx := a0.next(indx);
80 end loop;
81 end if;
82 end if;
83 end rosetta_table_copy_in_p4;
84 procedure rosetta_table_copy_out_p4(t ahl_sb_rules_pvt.sb_rule_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
85 , a1 out nocopy JTF_VARCHAR2_TABLE_100
86 , a2 out nocopy JTF_NUMBER_TABLE
87 , a3 out nocopy JTF_DATE_TABLE
88 , a4 out nocopy JTF_NUMBER_TABLE
89 , a5 out nocopy JTF_DATE_TABLE
90 , a6 out nocopy JTF_NUMBER_TABLE
91 , a7 out nocopy JTF_NUMBER_TABLE
92 , a8 out nocopy JTF_VARCHAR2_TABLE_100
93 , a9 out nocopy JTF_NUMBER_TABLE
94 , a10 out nocopy JTF_NUMBER_TABLE
95 , a11 out nocopy JTF_NUMBER_TABLE
96 , a12 out nocopy JTF_NUMBER_TABLE
97 , a13 out nocopy JTF_DATE_TABLE
98 , a14 out nocopy JTF_DATE_TABLE
99 , a15 out nocopy JTF_NUMBER_TABLE
100 , a16 out nocopy JTF_VARCHAR2_TABLE_100
101 , a17 out nocopy JTF_VARCHAR2_TABLE_200
102 , a18 out nocopy JTF_VARCHAR2_TABLE_200
103 , a19 out nocopy JTF_VARCHAR2_TABLE_200
104 , a20 out nocopy JTF_VARCHAR2_TABLE_200
105 , a21 out nocopy JTF_VARCHAR2_TABLE_200
106 , a22 out nocopy JTF_VARCHAR2_TABLE_200
107 , a23 out nocopy JTF_VARCHAR2_TABLE_200
108 , a24 out nocopy JTF_VARCHAR2_TABLE_200
109 , a25 out nocopy JTF_VARCHAR2_TABLE_200
110 , a26 out nocopy JTF_VARCHAR2_TABLE_200
111 , a27 out nocopy JTF_VARCHAR2_TABLE_200
112 , a28 out nocopy JTF_VARCHAR2_TABLE_200
113 , a29 out nocopy JTF_VARCHAR2_TABLE_200
114 , a30 out nocopy JTF_VARCHAR2_TABLE_200
115 , a31 out nocopy JTF_VARCHAR2_TABLE_200
116 ) as
117 ddindx binary_integer; indx binary_integer;
118 begin
119 if t is null or t.count = 0 then
120 a0 := JTF_NUMBER_TABLE();
121 a1 := JTF_VARCHAR2_TABLE_100();
122 a2 := JTF_NUMBER_TABLE();
123 a3 := JTF_DATE_TABLE();
124 a4 := JTF_NUMBER_TABLE();
125 a5 := JTF_DATE_TABLE();
126 a6 := JTF_NUMBER_TABLE();
127 a7 := JTF_NUMBER_TABLE();
128 a8 := JTF_VARCHAR2_TABLE_100();
129 a9 := JTF_NUMBER_TABLE();
130 a10 := JTF_NUMBER_TABLE();
131 a11 := JTF_NUMBER_TABLE();
132 a12 := JTF_NUMBER_TABLE();
133 a13 := JTF_DATE_TABLE();
134 a14 := JTF_DATE_TABLE();
135 a15 := JTF_NUMBER_TABLE();
136 a16 := JTF_VARCHAR2_TABLE_100();
137 a17 := JTF_VARCHAR2_TABLE_200();
138 a18 := JTF_VARCHAR2_TABLE_200();
139 a19 := JTF_VARCHAR2_TABLE_200();
140 a20 := JTF_VARCHAR2_TABLE_200();
141 a21 := JTF_VARCHAR2_TABLE_200();
142 a22 := JTF_VARCHAR2_TABLE_200();
143 a23 := JTF_VARCHAR2_TABLE_200();
144 a24 := JTF_VARCHAR2_TABLE_200();
145 a25 := JTF_VARCHAR2_TABLE_200();
146 a26 := JTF_VARCHAR2_TABLE_200();
147 a27 := JTF_VARCHAR2_TABLE_200();
148 a28 := JTF_VARCHAR2_TABLE_200();
149 a29 := JTF_VARCHAR2_TABLE_200();
150 a30 := JTF_VARCHAR2_TABLE_200();
151 a31 := JTF_VARCHAR2_TABLE_200();
152 else
153 a0 := JTF_NUMBER_TABLE();
154 a1 := JTF_VARCHAR2_TABLE_100();
155 a2 := JTF_NUMBER_TABLE();
156 a3 := JTF_DATE_TABLE();
157 a4 := JTF_NUMBER_TABLE();
158 a5 := JTF_DATE_TABLE();
159 a6 := JTF_NUMBER_TABLE();
160 a7 := JTF_NUMBER_TABLE();
161 a8 := JTF_VARCHAR2_TABLE_100();
162 a9 := JTF_NUMBER_TABLE();
163 a10 := JTF_NUMBER_TABLE();
164 a11 := JTF_NUMBER_TABLE();
165 a12 := JTF_NUMBER_TABLE();
166 a13 := JTF_DATE_TABLE();
167 a14 := JTF_DATE_TABLE();
168 a15 := JTF_NUMBER_TABLE();
169 a16 := JTF_VARCHAR2_TABLE_100();
170 a17 := JTF_VARCHAR2_TABLE_200();
171 a18 := JTF_VARCHAR2_TABLE_200();
172 a19 := JTF_VARCHAR2_TABLE_200();
173 a20 := JTF_VARCHAR2_TABLE_200();
174 a21 := JTF_VARCHAR2_TABLE_200();
175 a22 := JTF_VARCHAR2_TABLE_200();
176 a23 := JTF_VARCHAR2_TABLE_200();
177 a24 := JTF_VARCHAR2_TABLE_200();
178 a25 := JTF_VARCHAR2_TABLE_200();
179 a26 := JTF_VARCHAR2_TABLE_200();
180 a27 := JTF_VARCHAR2_TABLE_200();
181 a28 := JTF_VARCHAR2_TABLE_200();
182 a29 := JTF_VARCHAR2_TABLE_200();
183 a30 := JTF_VARCHAR2_TABLE_200();
184 a31 := JTF_VARCHAR2_TABLE_200();
185 if t.count > 0 then
186 a0.extend(t.count);
187 a1.extend(t.count);
188 a2.extend(t.count);
189 a3.extend(t.count);
190 a4.extend(t.count);
191 a5.extend(t.count);
192 a6.extend(t.count);
193 a7.extend(t.count);
194 a8.extend(t.count);
195 a9.extend(t.count);
196 a10.extend(t.count);
197 a11.extend(t.count);
198 a12.extend(t.count);
199 a13.extend(t.count);
200 a14.extend(t.count);
201 a15.extend(t.count);
202 a16.extend(t.count);
203 a17.extend(t.count);
204 a18.extend(t.count);
205 a19.extend(t.count);
206 a20.extend(t.count);
207 a21.extend(t.count);
208 a22.extend(t.count);
209 a23.extend(t.count);
210 a24.extend(t.count);
211 a25.extend(t.count);
212 a26.extend(t.count);
213 a27.extend(t.count);
214 a28.extend(t.count);
215 a29.extend(t.count);
216 a30.extend(t.count);
217 a31.extend(t.count);
218 ddindx := t.first;
219 indx := 1;
220 while true loop
221 a0(indx) := t(ddindx).rule_id;
222 a1(indx) := t(ddindx).operation_flag;
223 a2(indx) := t(ddindx).object_version_number;
224 a3(indx) := t(ddindx).last_update_date;
225 a4(indx) := t(ddindx).last_updated_by;
226 a5(indx) := t(ddindx).creation_date;
227 a6(indx) := t(ddindx).created_by;
228 a7(indx) := t(ddindx).last_update_login;
229 a8(indx) := t(ddindx).rule_name;
230 a9(indx) := t(ddindx).mr_header_id;
231 a10(indx) := t(ddindx).mc_header_id;
232 a11(indx) := t(ddindx).relationship_id;
233 a12(indx) := t(ddindx).rule_sequence;
234 a13(indx) := t(ddindx).active_start_date;
235 a14(indx) := t(ddindx).active_end_date;
236 a15(indx) := t(ddindx).security_group_id;
237 a16(indx) := t(ddindx).attribute_category;
238 a17(indx) := t(ddindx).attribute1;
239 a18(indx) := t(ddindx).attribute2;
240 a19(indx) := t(ddindx).attribute3;
241 a20(indx) := t(ddindx).attribute4;
242 a21(indx) := t(ddindx).attribute5;
243 a22(indx) := t(ddindx).attribute6;
244 a23(indx) := t(ddindx).attribute7;
245 a24(indx) := t(ddindx).attribute8;
246 a25(indx) := t(ddindx).attribute9;
247 a26(indx) := t(ddindx).attribute10;
248 a27(indx) := t(ddindx).attribute11;
249 a28(indx) := t(ddindx).attribute12;
250 a29(indx) := t(ddindx).attribute13;
251 a30(indx) := t(ddindx).attribute14;
252 a31(indx) := t(ddindx).attribute15;
253 indx := indx+1;
254 if t.last =ddindx
255 then exit;
256 end if;
257 ddindx := t.next(ddindx);
258 end loop;
259 end if;
260 end if;
261 end rosetta_table_copy_out_p4;
262
263 procedure rosetta_table_copy_in_p6(t out nocopy ahl_sb_rules_pvt.sb_rule_items_tbl_type, a0 JTF_NUMBER_TABLE
264 , a1 JTF_VARCHAR2_TABLE_100
265 , a2 JTF_NUMBER_TABLE
266 , a3 JTF_DATE_TABLE
267 , a4 JTF_NUMBER_TABLE
268 , a5 JTF_DATE_TABLE
269 , a6 JTF_NUMBER_TABLE
270 , a7 JTF_NUMBER_TABLE
271 , a8 JTF_NUMBER_TABLE
272 , a9 JTF_NUMBER_TABLE
273 , a10 JTF_NUMBER_TABLE
274 , a11 JTF_VARCHAR2_TABLE_100
275 , a12 JTF_NUMBER_TABLE
276 , a13 JTF_VARCHAR2_TABLE_100
277 , a14 JTF_VARCHAR2_TABLE_200
278 , a15 JTF_VARCHAR2_TABLE_200
279 , a16 JTF_VARCHAR2_TABLE_200
280 , a17 JTF_VARCHAR2_TABLE_200
281 , a18 JTF_VARCHAR2_TABLE_200
282 , a19 JTF_VARCHAR2_TABLE_200
283 , a20 JTF_VARCHAR2_TABLE_200
284 , a21 JTF_VARCHAR2_TABLE_200
285 , a22 JTF_VARCHAR2_TABLE_200
286 , a23 JTF_VARCHAR2_TABLE_200
287 , a24 JTF_VARCHAR2_TABLE_200
288 , a25 JTF_VARCHAR2_TABLE_200
289 , a26 JTF_VARCHAR2_TABLE_200
290 , a27 JTF_VARCHAR2_TABLE_200
291 , a28 JTF_VARCHAR2_TABLE_200
292 ) as
293 ddindx binary_integer; indx binary_integer;
294 begin
295 if a0 is not null and a0.count > 0 then
296 if a0.count > 0 then
297 indx := a0.first;
298 ddindx := 1;
299 while true loop
300 t(ddindx).rule_association_id := a0(indx);
301 t(ddindx).operation_flag := a1(indx);
302 t(ddindx).object_version_number := a2(indx);
303 t(ddindx).last_update_date := a3(indx);
304 t(ddindx).last_updated_by := a4(indx);
305 t(ddindx).creation_date := a5(indx);
306 t(ddindx).created_by := a6(indx);
307 t(ddindx).last_update_login := a7(indx);
308 t(ddindx).rule_id := a8(indx);
309 t(ddindx).item_group_id := a9(indx);
310 t(ddindx).item_association_id := a10(indx);
311 t(ddindx).sub_config_item := a11(indx);
312 t(ddindx).security_group_id := a12(indx);
313 t(ddindx).attribute_category := a13(indx);
314 t(ddindx).attribute1 := a14(indx);
315 t(ddindx).attribute2 := a15(indx);
316 t(ddindx).attribute3 := a16(indx);
317 t(ddindx).attribute4 := a17(indx);
318 t(ddindx).attribute5 := a18(indx);
319 t(ddindx).attribute6 := a19(indx);
320 t(ddindx).attribute7 := a20(indx);
321 t(ddindx).attribute8 := a21(indx);
322 t(ddindx).attribute9 := a22(indx);
323 t(ddindx).attribute10 := a23(indx);
324 t(ddindx).attribute11 := a24(indx);
325 t(ddindx).attribute12 := a25(indx);
326 t(ddindx).attribute13 := a26(indx);
327 t(ddindx).attribute14 := a27(indx);
328 t(ddindx).attribute15 := a28(indx);
329 ddindx := ddindx+1;
330 if a0.last =indx
331 then exit;
332 end if;
333 indx := a0.next(indx);
334 end loop;
335 end if;
336 end if;
337 end rosetta_table_copy_in_p6;
338 procedure rosetta_table_copy_out_p6(t ahl_sb_rules_pvt.sb_rule_items_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
339 , a1 out nocopy JTF_VARCHAR2_TABLE_100
340 , a2 out nocopy JTF_NUMBER_TABLE
341 , a3 out nocopy JTF_DATE_TABLE
342 , a4 out nocopy JTF_NUMBER_TABLE
343 , a5 out nocopy JTF_DATE_TABLE
344 , a6 out nocopy JTF_NUMBER_TABLE
345 , a7 out nocopy JTF_NUMBER_TABLE
346 , a8 out nocopy JTF_NUMBER_TABLE
347 , a9 out nocopy JTF_NUMBER_TABLE
348 , a10 out nocopy JTF_NUMBER_TABLE
349 , a11 out nocopy JTF_VARCHAR2_TABLE_100
350 , a12 out nocopy JTF_NUMBER_TABLE
351 , a13 out nocopy JTF_VARCHAR2_TABLE_100
352 , a14 out nocopy JTF_VARCHAR2_TABLE_200
353 , a15 out nocopy JTF_VARCHAR2_TABLE_200
354 , a16 out nocopy JTF_VARCHAR2_TABLE_200
355 , a17 out nocopy JTF_VARCHAR2_TABLE_200
356 , a18 out nocopy JTF_VARCHAR2_TABLE_200
357 , a19 out nocopy JTF_VARCHAR2_TABLE_200
358 , a20 out nocopy JTF_VARCHAR2_TABLE_200
359 , a21 out nocopy JTF_VARCHAR2_TABLE_200
360 , a22 out nocopy JTF_VARCHAR2_TABLE_200
361 , a23 out nocopy JTF_VARCHAR2_TABLE_200
362 , a24 out nocopy JTF_VARCHAR2_TABLE_200
363 , a25 out nocopy JTF_VARCHAR2_TABLE_200
364 , a26 out nocopy JTF_VARCHAR2_TABLE_200
365 , a27 out nocopy JTF_VARCHAR2_TABLE_200
366 , a28 out nocopy JTF_VARCHAR2_TABLE_200
367 ) as
368 ddindx binary_integer; indx binary_integer;
369 begin
370 if t is null or t.count = 0 then
371 a0 := JTF_NUMBER_TABLE();
372 a1 := JTF_VARCHAR2_TABLE_100();
373 a2 := JTF_NUMBER_TABLE();
374 a3 := JTF_DATE_TABLE();
375 a4 := JTF_NUMBER_TABLE();
376 a5 := JTF_DATE_TABLE();
377 a6 := JTF_NUMBER_TABLE();
378 a7 := JTF_NUMBER_TABLE();
379 a8 := JTF_NUMBER_TABLE();
380 a9 := JTF_NUMBER_TABLE();
381 a10 := JTF_NUMBER_TABLE();
382 a11 := JTF_VARCHAR2_TABLE_100();
383 a12 := JTF_NUMBER_TABLE();
384 a13 := JTF_VARCHAR2_TABLE_100();
385 a14 := JTF_VARCHAR2_TABLE_200();
386 a15 := JTF_VARCHAR2_TABLE_200();
387 a16 := JTF_VARCHAR2_TABLE_200();
388 a17 := JTF_VARCHAR2_TABLE_200();
389 a18 := JTF_VARCHAR2_TABLE_200();
390 a19 := JTF_VARCHAR2_TABLE_200();
391 a20 := JTF_VARCHAR2_TABLE_200();
392 a21 := JTF_VARCHAR2_TABLE_200();
393 a22 := JTF_VARCHAR2_TABLE_200();
394 a23 := JTF_VARCHAR2_TABLE_200();
395 a24 := JTF_VARCHAR2_TABLE_200();
396 a25 := JTF_VARCHAR2_TABLE_200();
397 a26 := JTF_VARCHAR2_TABLE_200();
398 a27 := JTF_VARCHAR2_TABLE_200();
399 a28 := JTF_VARCHAR2_TABLE_200();
400 else
401 a0 := JTF_NUMBER_TABLE();
402 a1 := JTF_VARCHAR2_TABLE_100();
403 a2 := JTF_NUMBER_TABLE();
404 a3 := JTF_DATE_TABLE();
405 a4 := JTF_NUMBER_TABLE();
406 a5 := JTF_DATE_TABLE();
407 a6 := JTF_NUMBER_TABLE();
408 a7 := JTF_NUMBER_TABLE();
409 a8 := JTF_NUMBER_TABLE();
410 a9 := JTF_NUMBER_TABLE();
411 a10 := JTF_NUMBER_TABLE();
412 a11 := JTF_VARCHAR2_TABLE_100();
413 a12 := JTF_NUMBER_TABLE();
414 a13 := JTF_VARCHAR2_TABLE_100();
415 a14 := JTF_VARCHAR2_TABLE_200();
416 a15 := JTF_VARCHAR2_TABLE_200();
417 a16 := JTF_VARCHAR2_TABLE_200();
421 a20 := JTF_VARCHAR2_TABLE_200();
418 a17 := JTF_VARCHAR2_TABLE_200();
419 a18 := JTF_VARCHAR2_TABLE_200();
420 a19 := JTF_VARCHAR2_TABLE_200();
422 a21 := JTF_VARCHAR2_TABLE_200();
423 a22 := JTF_VARCHAR2_TABLE_200();
424 a23 := JTF_VARCHAR2_TABLE_200();
425 a24 := JTF_VARCHAR2_TABLE_200();
426 a25 := JTF_VARCHAR2_TABLE_200();
427 a26 := JTF_VARCHAR2_TABLE_200();
428 a27 := JTF_VARCHAR2_TABLE_200();
429 a28 := JTF_VARCHAR2_TABLE_200();
430 if t.count > 0 then
431 a0.extend(t.count);
432 a1.extend(t.count);
433 a2.extend(t.count);
434 a3.extend(t.count);
435 a4.extend(t.count);
436 a5.extend(t.count);
437 a6.extend(t.count);
438 a7.extend(t.count);
439 a8.extend(t.count);
440 a9.extend(t.count);
441 a10.extend(t.count);
442 a11.extend(t.count);
443 a12.extend(t.count);
444 a13.extend(t.count);
445 a14.extend(t.count);
446 a15.extend(t.count);
447 a16.extend(t.count);
448 a17.extend(t.count);
449 a18.extend(t.count);
450 a19.extend(t.count);
451 a20.extend(t.count);
452 a21.extend(t.count);
453 a22.extend(t.count);
454 a23.extend(t.count);
455 a24.extend(t.count);
456 a25.extend(t.count);
457 a26.extend(t.count);
458 a27.extend(t.count);
459 a28.extend(t.count);
460 ddindx := t.first;
461 indx := 1;
462 while true loop
463 a0(indx) := t(ddindx).rule_association_id;
464 a1(indx) := t(ddindx).operation_flag;
465 a2(indx) := t(ddindx).object_version_number;
466 a3(indx) := t(ddindx).last_update_date;
467 a4(indx) := t(ddindx).last_updated_by;
468 a5(indx) := t(ddindx).creation_date;
469 a6(indx) := t(ddindx).created_by;
470 a7(indx) := t(ddindx).last_update_login;
471 a8(indx) := t(ddindx).rule_id;
472 a9(indx) := t(ddindx).item_group_id;
473 a10(indx) := t(ddindx).item_association_id;
474 a11(indx) := t(ddindx).sub_config_item;
475 a12(indx) := t(ddindx).security_group_id;
476 a13(indx) := t(ddindx).attribute_category;
477 a14(indx) := t(ddindx).attribute1;
478 a15(indx) := t(ddindx).attribute2;
479 a16(indx) := t(ddindx).attribute3;
480 a17(indx) := t(ddindx).attribute4;
481 a18(indx) := t(ddindx).attribute5;
482 a19(indx) := t(ddindx).attribute6;
483 a20(indx) := t(ddindx).attribute7;
484 a21(indx) := t(ddindx).attribute8;
485 a22(indx) := t(ddindx).attribute9;
486 a23(indx) := t(ddindx).attribute10;
487 a24(indx) := t(ddindx).attribute11;
488 a25(indx) := t(ddindx).attribute12;
489 a26(indx) := t(ddindx).attribute13;
490 a27(indx) := t(ddindx).attribute14;
491 a28(indx) := t(ddindx).attribute15;
492 indx := indx+1;
493 if t.last =ddindx
494 then exit;
495 end if;
496 ddindx := t.next(ddindx);
497 end loop;
498 end if;
499 end if;
500 end rosetta_table_copy_out_p6;
501
502 procedure rosetta_table_copy_in_p7(t out nocopy ahl_sb_rules_pvt.violated_inst_tbl_type, a0 JTF_NUMBER_TABLE) as
503 ddindx binary_integer; indx binary_integer;
504 begin
505 if a0 is not null and a0.count > 0 then
506 if a0.count > 0 then
507 indx := a0.first;
508 ddindx := 1;
509 while true loop
510 t(ddindx) := a0(indx);
511 ddindx := ddindx+1;
512 if a0.last =indx
513 then exit;
514 end if;
515 indx := a0.next(indx);
516 end loop;
517 end if;
518 end if;
519 end rosetta_table_copy_in_p7;
520 procedure rosetta_table_copy_out_p7(t ahl_sb_rules_pvt.violated_inst_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
521 ddindx binary_integer; indx binary_integer;
522 begin
523 if t is null or t.count = 0 then
524 a0 := JTF_NUMBER_TABLE();
525 else
526 a0 := JTF_NUMBER_TABLE();
527 if t.count > 0 then
528 a0.extend(t.count);
529 ddindx := t.first;
530 indx := 1;
531 while true loop
532 a0(indx) := t(ddindx);
533 indx := indx+1;
534 if t.last =ddindx
535 then exit;
536 end if;
537 ddindx := t.next(ddindx);
538 end loop;
539 end if;
540 end if;
541 end rosetta_table_copy_out_p7;
542
543 procedure rosetta_table_copy_in_p8(t out nocopy ahl_sb_rules_pvt.affected_mc_tbl_type, a0 JTF_NUMBER_TABLE) as
544 ddindx binary_integer; indx binary_integer;
545 begin
546 if a0 is not null and a0.count > 0 then
547 if a0.count > 0 then
548 indx := a0.first;
549 ddindx := 1;
550 while true loop
551 t(ddindx) := a0(indx);
552 ddindx := ddindx+1;
553 if a0.last =indx
554 then exit;
555 end if;
556 indx := a0.next(indx);
557 end loop;
558 end if;
559 end if;
560 end rosetta_table_copy_in_p8;
561 procedure rosetta_table_copy_out_p8(t ahl_sb_rules_pvt.affected_mc_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
562 ddindx binary_integer; indx binary_integer;
563 begin
564 if t is null or t.count = 0 then
565 a0 := JTF_NUMBER_TABLE();
566 else
567 a0 := JTF_NUMBER_TABLE();
568 if t.count > 0 then
572 while true loop
569 a0.extend(t.count);
570 ddindx := t.first;
571 indx := 1;
573 a0(indx) := t(ddindx);
574 indx := indx+1;
575 if t.last =ddindx
576 then exit;
577 end if;
578 ddindx := t.next(ddindx);
579 end loop;
580 end if;
581 end if;
582 end rosetta_table_copy_out_p8;
583
584 procedure check_unit_completeness(p_api_version NUMBER
585 , p_init_msg_list VARCHAR2
586 , p_validation_level NUMBER
587 , p_module_type VARCHAR2
588 , p_uc_header_id NUMBER
589 , p_visit_id NUMBER
590 , p_x_erring_rules_tbl in out nocopy JTF_VARCHAR2_TABLE_2000
591 , x_return_status out nocopy VARCHAR2
592 , x_msg_count out nocopy NUMBER
593 , x_msg_data out nocopy VARCHAR2
594 )
595
596 as
597 ddp_x_erring_rules_tbl ahl_uc_validation_pub.error_tbl_type;
598 ddindx binary_integer; indx binary_integer;
599 begin
600
601 -- copy data to the local IN or IN-OUT args, if any
602
603
604
605
606
607
608 ahl_uc_validation_pub_w.rosetta_table_copy_in_p0(ddp_x_erring_rules_tbl, p_x_erring_rules_tbl);
609
610
611
612
613 -- here's the delegated call to the old PL/SQL routine
614 ahl_sb_rules_pvt.check_unit_completeness(p_api_version,
615 p_init_msg_list,
616 p_validation_level,
617 p_module_type,
618 p_uc_header_id,
619 p_visit_id,
620 ddp_x_erring_rules_tbl,
621 x_return_status,
622 x_msg_count,
623 x_msg_data);
624
625 -- copy data back from the local variables to OUT or IN-OUT args, if any
626
627
628
629
630
631
632 ahl_uc_validation_pub_w.rosetta_table_copy_out_p0(ddp_x_erring_rules_tbl, p_x_erring_rules_tbl);
633
634
635
636 end;
637
638 procedure check_inst_completeness(p_api_version NUMBER
639 , p_init_msg_list VARCHAR2
640 , p_validation_level NUMBER
641 , p_module_type VARCHAR2
642 , p_csi_instance_id NUMBER
643 , p_x_erring_rules_tbl in out nocopy JTF_VARCHAR2_TABLE_2000
644 , x_return_status out nocopy VARCHAR2
645 , x_msg_count out nocopy NUMBER
646 , x_msg_data out nocopy VARCHAR2
647 )
648
649 as
650 ddp_x_erring_rules_tbl ahl_uc_validation_pub.error_tbl_type;
651 ddindx binary_integer; indx binary_integer;
652 begin
653
654 -- copy data to the local IN or IN-OUT args, if any
655
656
657
658
659
660 ahl_uc_validation_pub_w.rosetta_table_copy_in_p0(ddp_x_erring_rules_tbl, p_x_erring_rules_tbl);
661
662
663
664
665 -- here's the delegated call to the old PL/SQL routine
666 ahl_sb_rules_pvt.check_inst_completeness(p_api_version,
667 p_init_msg_list,
668 p_validation_level,
669 p_module_type,
670 p_csi_instance_id,
671 ddp_x_erring_rules_tbl,
672 x_return_status,
673 x_msg_count,
674 x_msg_data);
675
676 -- copy data back from the local variables to OUT or IN-OUT args, if any
677
678
679
680
681
682 ahl_uc_validation_pub_w.rosetta_table_copy_out_p0(ddp_x_erring_rules_tbl, p_x_erring_rules_tbl);
683
684
685
686 end;
687
688 procedure get_violated_instances(p_api_version NUMBER
689 , p_init_msg_list VARCHAR2
690 , p_validation_level NUMBER
691 , p_module_type VARCHAR2
692 , p_uc_header_id NUMBER
693 , x_violated_inst_tbl out nocopy JTF_NUMBER_TABLE
694 , x_return_status out nocopy VARCHAR2
695 , x_msg_count out nocopy NUMBER
696 , x_msg_data out nocopy VARCHAR2
697 )
698
699 as
700 ddx_violated_inst_tbl ahl_sb_rules_pvt.violated_inst_tbl_type;
701 ddindx binary_integer; indx binary_integer;
702 begin
703
704 -- copy data to the local IN or IN-OUT args, if any
705
706
707
708
709
710
711
712
713
714 -- here's the delegated call to the old PL/SQL routine
715 ahl_sb_rules_pvt.get_violated_instances(p_api_version,
716 p_init_msg_list,
717 p_validation_level,
718 p_module_type,
719 p_uc_header_id,
720 ddx_violated_inst_tbl,
721 x_return_status,
722 x_msg_count,
723 x_msg_data);
724
725 -- copy data back from the local variables to OUT or IN-OUT args, if any
726
727
728
729
730
731 ahl_sb_rules_pvt_w.rosetta_table_copy_out_p7(ddx_violated_inst_tbl, x_violated_inst_tbl);
732
733
734
735 end;
736
737 procedure get_affected_mc(p_api_version NUMBER
738 , p_init_msg_list VARCHAR2
739 , p_validation_level NUMBER
740 , p_module_type VARCHAR2
741 , p_mr_header_id NUMBER
742 , x_affected_mc_tbl out nocopy JTF_NUMBER_TABLE
743 , x_return_status out nocopy VARCHAR2
744 , x_msg_count out nocopy NUMBER
745 , x_msg_data out nocopy VARCHAR2
746 )
747
748 as
749 ddx_affected_mc_tbl ahl_sb_rules_pvt.affected_mc_tbl_type;
750 ddindx binary_integer; indx binary_integer;
751 begin
752
753 -- copy data to the local IN or IN-OUT args, if any
754
755
756
757
758
759
760
761
762
763 -- here's the delegated call to the old PL/SQL routine
764 ahl_sb_rules_pvt.get_affected_mc(p_api_version,
765 p_init_msg_list,
766 p_validation_level,
767 p_module_type,
768 p_mr_header_id,
769 ddx_affected_mc_tbl,
770 x_return_status,
771 x_msg_count,
772 x_msg_data);
773
774 -- copy data back from the local variables to OUT or IN-OUT args, if any
775
776
777
778
779
780 ahl_sb_rules_pvt_w.rosetta_table_copy_out_p8(ddx_affected_mc_tbl, x_affected_mc_tbl);
781
782
783
784 end;
785
786 end ahl_sb_rules_pvt_w;