[Home] [Help]
PACKAGE BODY: APPS.OKS_ENTITLEMENTS_WEB_W
Source
1 package body oks_entitlements_web_w as
2 /* $Header: OKSWENWB.pls 120.0 2005/05/25 18:33:56 appldev noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 procedure rosetta_table_copy_in_p19(t out nocopy oks_entitlements_web.output_tbl_contract, a0 JTF_VARCHAR2_TABLE_200
14 , a1 JTF_VARCHAR2_TABLE_200
15 , a2 JTF_VARCHAR2_TABLE_100
16 , a3 JTF_VARCHAR2_TABLE_100
17 , a4 JTF_VARCHAR2_TABLE_100
18 , a5 JTF_VARCHAR2_TABLE_100
19 , a6 JTF_VARCHAR2_TABLE_300
20 , a7 JTF_VARCHAR2_TABLE_2000
21 , a8 JTF_DATE_TABLE
22 , a9 JTF_DATE_TABLE
23 , a10 JTF_DATE_TABLE
24 , a11 JTF_NUMBER_TABLE
25 , a12 JTF_VARCHAR2_TABLE_100
26 ) as
27 ddindx binary_integer; indx binary_integer;
28 begin
29 if a0 is not null and a0.count > 0 then
30 if a0.count > 0 then
31 indx := a0.first;
32 ddindx := 1;
33 while true loop
34 t(ddindx).contract_number := a0(indx);
35 t(ddindx).contract_number_modifier := a1(indx);
36 t(ddindx).contract_category := a2(indx);
37 t(ddindx).contract_category_meaning := a3(indx);
38 t(ddindx).contract_status_code := a4(indx);
39 t(ddindx).contract_status_meaning := a5(indx);
40 t(ddindx).known_as := a6(indx);
41 t(ddindx).short_description := a7(indx);
42 t(ddindx).start_date := rosetta_g_miss_date_in_map(a8(indx));
43 t(ddindx).end_date := rosetta_g_miss_date_in_map(a9(indx));
44 t(ddindx).date_terminated := rosetta_g_miss_date_in_map(a10(indx));
45 t(ddindx).contract_amount := a11(indx);
46 t(ddindx).amount_code := a12(indx);
47 ddindx := ddindx+1;
48 if a0.last =indx
49 then exit;
50 end if;
51 indx := a0.next(indx);
52 end loop;
53 end if;
54 end if;
55 end rosetta_table_copy_in_p19;
56 procedure rosetta_table_copy_out_p19(t oks_entitlements_web.output_tbl_contract, a0 out nocopy JTF_VARCHAR2_TABLE_200
57 , a1 out nocopy JTF_VARCHAR2_TABLE_200
58 , a2 out nocopy JTF_VARCHAR2_TABLE_100
59 , a3 out nocopy JTF_VARCHAR2_TABLE_100
60 , a4 out nocopy JTF_VARCHAR2_TABLE_100
61 , a5 out nocopy JTF_VARCHAR2_TABLE_100
62 , a6 out nocopy JTF_VARCHAR2_TABLE_300
63 , a7 out nocopy JTF_VARCHAR2_TABLE_2000
64 , a8 out nocopy JTF_DATE_TABLE
65 , a9 out nocopy JTF_DATE_TABLE
66 , a10 out nocopy JTF_DATE_TABLE
67 , a11 out nocopy JTF_NUMBER_TABLE
68 , a12 out nocopy JTF_VARCHAR2_TABLE_100
69 ) as
70 ddindx binary_integer; indx binary_integer;
71 begin
72 if t is null or t.count = 0 then
73 a0 := JTF_VARCHAR2_TABLE_200();
74 a1 := JTF_VARCHAR2_TABLE_200();
75 a2 := JTF_VARCHAR2_TABLE_100();
76 a3 := JTF_VARCHAR2_TABLE_100();
77 a4 := JTF_VARCHAR2_TABLE_100();
78 a5 := JTF_VARCHAR2_TABLE_100();
79 a6 := JTF_VARCHAR2_TABLE_300();
80 a7 := JTF_VARCHAR2_TABLE_2000();
81 a8 := JTF_DATE_TABLE();
82 a9 := JTF_DATE_TABLE();
83 a10 := JTF_DATE_TABLE();
84 a11 := JTF_NUMBER_TABLE();
85 a12 := JTF_VARCHAR2_TABLE_100();
86 else
87 a0 := JTF_VARCHAR2_TABLE_200();
88 a1 := JTF_VARCHAR2_TABLE_200();
89 a2 := JTF_VARCHAR2_TABLE_100();
90 a3 := JTF_VARCHAR2_TABLE_100();
91 a4 := JTF_VARCHAR2_TABLE_100();
92 a5 := JTF_VARCHAR2_TABLE_100();
93 a6 := JTF_VARCHAR2_TABLE_300();
94 a7 := JTF_VARCHAR2_TABLE_2000();
95 a8 := JTF_DATE_TABLE();
96 a9 := JTF_DATE_TABLE();
97 a10 := JTF_DATE_TABLE();
98 a11 := JTF_NUMBER_TABLE();
99 a12 := JTF_VARCHAR2_TABLE_100();
100 if t.count > 0 then
101 a0.extend(t.count);
102 a1.extend(t.count);
103 a2.extend(t.count);
104 a3.extend(t.count);
105 a4.extend(t.count);
106 a5.extend(t.count);
107 a6.extend(t.count);
108 a7.extend(t.count);
109 a8.extend(t.count);
110 a9.extend(t.count);
111 a10.extend(t.count);
112 a11.extend(t.count);
113 a12.extend(t.count);
114 ddindx := t.first;
115 indx := 1;
116 while true loop
117 a0(indx) := t(ddindx).contract_number;
118 a1(indx) := t(ddindx).contract_number_modifier;
119 a2(indx) := t(ddindx).contract_category;
120 a3(indx) := t(ddindx).contract_category_meaning;
121 a4(indx) := t(ddindx).contract_status_code;
122 a5(indx) := t(ddindx).contract_status_meaning;
123 a6(indx) := t(ddindx).known_as;
124 a7(indx) := t(ddindx).short_description;
125 a8(indx) := t(ddindx).start_date;
126 a9(indx) := t(ddindx).end_date;
127 a10(indx) := t(ddindx).date_terminated;
128 a11(indx) := t(ddindx).contract_amount;
129 a12(indx) := t(ddindx).amount_code;
130 indx := indx+1;
131 if t.last =ddindx
132 then exit;
133 end if;
134 ddindx := t.next(ddindx);
135 end loop;
136 end if;
137 end if;
138 end rosetta_table_copy_out_p19;
139
140 procedure rosetta_table_copy_in_p21(t out nocopy oks_entitlements_web.account_all_id_tbl_type, a0 JTF_NUMBER_TABLE
141 ) as
142 ddindx binary_integer; indx binary_integer;
143 begin
144 if a0 is not null and a0.count > 0 then
145 if a0.count > 0 then
146 indx := a0.first;
147 ddindx := 1;
148 while true loop
149 t(ddindx).id := a0(indx);
150 ddindx := ddindx+1;
151 if a0.last =indx
152 then exit;
153 end if;
154 indx := a0.next(indx);
155 end loop;
156 end if;
157 end if;
158 end rosetta_table_copy_in_p21;
159 procedure rosetta_table_copy_out_p21(t oks_entitlements_web.account_all_id_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
160 ) as
161 ddindx binary_integer; indx binary_integer;
162 begin
163 if t is null or t.count = 0 then
164 a0 := JTF_NUMBER_TABLE();
165 else
166 a0 := JTF_NUMBER_TABLE();
167 if t.count > 0 then
168 a0.extend(t.count);
169 ddindx := t.first;
170 indx := 1;
171 while true loop
172 a0(indx) := t(ddindx).id;
173 indx := indx+1;
174 if t.last =ddindx
175 then exit;
176 end if;
177 ddindx := t.next(ddindx);
178 end loop;
179 end if;
180 end if;
181 end rosetta_table_copy_out_p21;
182
183 procedure rosetta_table_copy_in_p23(t out nocopy oks_entitlements_web.party_sites_tbl_type, a0 JTF_NUMBER_TABLE
184 , a1 JTF_VARCHAR2_TABLE_100
185 , a2 JTF_VARCHAR2_TABLE_300
186 , a3 JTF_VARCHAR2_TABLE_300
187 ) as
188 ddindx binary_integer; indx binary_integer;
189 begin
190 if a0 is not null and a0.count > 0 then
191 if a0.count > 0 then
192 indx := a0.first;
193 ddindx := 1;
194 while true loop
195 t(ddindx).id1 := a0(indx);
196 t(ddindx).id2 := a1(indx);
197 t(ddindx).name := a2(indx);
198 t(ddindx).description := a3(indx);
199 ddindx := ddindx+1;
200 if a0.last =indx
201 then exit;
202 end if;
203 indx := a0.next(indx);
204 end loop;
205 end if;
206 end if;
207 end rosetta_table_copy_in_p23;
208 procedure rosetta_table_copy_out_p23(t oks_entitlements_web.party_sites_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
209 , a1 out nocopy JTF_VARCHAR2_TABLE_100
210 , a2 out nocopy JTF_VARCHAR2_TABLE_300
211 , a3 out nocopy JTF_VARCHAR2_TABLE_300
212 ) as
213 ddindx binary_integer; indx binary_integer;
214 begin
215 if t is null or t.count = 0 then
216 a0 := JTF_NUMBER_TABLE();
217 a1 := JTF_VARCHAR2_TABLE_100();
218 a2 := JTF_VARCHAR2_TABLE_300();
219 a3 := JTF_VARCHAR2_TABLE_300();
220 else
221 a0 := JTF_NUMBER_TABLE();
222 a1 := JTF_VARCHAR2_TABLE_100();
223 a2 := JTF_VARCHAR2_TABLE_300();
224 a3 := JTF_VARCHAR2_TABLE_300();
225 if t.count > 0 then
226 a0.extend(t.count);
227 a1.extend(t.count);
228 a2.extend(t.count);
229 a3.extend(t.count);
230 ddindx := t.first;
231 indx := 1;
232 while true loop
233 a0(indx) := t(ddindx).id1;
234 a1(indx) := t(ddindx).id2;
235 a2(indx) := t(ddindx).name;
236 a3(indx) := t(ddindx).description;
237 indx := indx+1;
238 if t.last =ddindx
239 then exit;
240 end if;
241 ddindx := t.next(ddindx);
242 end loop;
243 end if;
244 end if;
245 end rosetta_table_copy_out_p23;
246
247 procedure rosetta_table_copy_in_p25(t out nocopy oks_entitlements_web.party_items_tbl_type, a0 JTF_NUMBER_TABLE
248 , a1 JTF_NUMBER_TABLE
249 , a2 JTF_VARCHAR2_TABLE_300
250 , a3 JTF_VARCHAR2_TABLE_300
251 ) as
252 ddindx binary_integer; indx binary_integer;
253 begin
254 if a0 is not null and a0.count > 0 then
255 if a0.count > 0 then
256 indx := a0.first;
257 ddindx := 1;
258 while true loop
259 t(ddindx).id1 := a0(indx);
260 t(ddindx).id2 := a1(indx);
261 t(ddindx).name := a2(indx);
262 t(ddindx).description := a3(indx);
263 ddindx := ddindx+1;
264 if a0.last =indx
265 then exit;
266 end if;
267 indx := a0.next(indx);
268 end loop;
269 end if;
270 end if;
271 end rosetta_table_copy_in_p25;
272 procedure rosetta_table_copy_out_p25(t oks_entitlements_web.party_items_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
273 , a1 out nocopy JTF_NUMBER_TABLE
274 , a2 out nocopy JTF_VARCHAR2_TABLE_300
275 , a3 out nocopy JTF_VARCHAR2_TABLE_300
276 ) as
277 ddindx binary_integer; indx binary_integer;
278 begin
279 if t is null or t.count = 0 then
280 a0 := JTF_NUMBER_TABLE();
281 a1 := JTF_NUMBER_TABLE();
282 a2 := JTF_VARCHAR2_TABLE_300();
283 a3 := JTF_VARCHAR2_TABLE_300();
284 else
285 a0 := JTF_NUMBER_TABLE();
286 a1 := JTF_NUMBER_TABLE();
287 a2 := JTF_VARCHAR2_TABLE_300();
288 a3 := JTF_VARCHAR2_TABLE_300();
289 if t.count > 0 then
290 a0.extend(t.count);
291 a1.extend(t.count);
292 a2.extend(t.count);
293 a3.extend(t.count);
294 ddindx := t.first;
295 indx := 1;
296 while true loop
297 a0(indx) := t(ddindx).id1;
298 a1(indx) := t(ddindx).id2;
299 a2(indx) := t(ddindx).name;
300 a3(indx) := t(ddindx).description;
301 indx := indx+1;
302 if t.last =ddindx
303 then exit;
304 end if;
305 ddindx := t.next(ddindx);
306 end loop;
307 end if;
308 end if;
309 end rosetta_table_copy_out_p25;
310
311 procedure rosetta_table_copy_in_p27(t out nocopy oks_entitlements_web.party_systems_tbl_type, a0 JTF_NUMBER_TABLE
312 , a1 JTF_VARCHAR2_TABLE_100
313 , a2 JTF_VARCHAR2_TABLE_300
314 , a3 JTF_VARCHAR2_TABLE_300
315 ) as
316 ddindx binary_integer; indx binary_integer;
317 begin
318 if a0 is not null and a0.count > 0 then
319 if a0.count > 0 then
320 indx := a0.first;
321 ddindx := 1;
322 while true loop
323 t(ddindx).id1 := a0(indx);
324 t(ddindx).id2 := a1(indx);
325 t(ddindx).name := a2(indx);
326 t(ddindx).description := a3(indx);
327 ddindx := ddindx+1;
328 if a0.last =indx
329 then exit;
330 end if;
331 indx := a0.next(indx);
332 end loop;
333 end if;
334 end if;
335 end rosetta_table_copy_in_p27;
336 procedure rosetta_table_copy_out_p27(t oks_entitlements_web.party_systems_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
337 , a1 out nocopy JTF_VARCHAR2_TABLE_100
338 , a2 out nocopy JTF_VARCHAR2_TABLE_300
339 , a3 out nocopy JTF_VARCHAR2_TABLE_300
340 ) as
341 ddindx binary_integer; indx binary_integer;
342 begin
343 if t is null or t.count = 0 then
344 a0 := JTF_NUMBER_TABLE();
345 a1 := JTF_VARCHAR2_TABLE_100();
346 a2 := JTF_VARCHAR2_TABLE_300();
347 a3 := JTF_VARCHAR2_TABLE_300();
348 else
349 a0 := JTF_NUMBER_TABLE();
350 a1 := JTF_VARCHAR2_TABLE_100();
351 a2 := JTF_VARCHAR2_TABLE_300();
352 a3 := JTF_VARCHAR2_TABLE_300();
353 if t.count > 0 then
354 a0.extend(t.count);
355 a1.extend(t.count);
356 a2.extend(t.count);
357 a3.extend(t.count);
358 ddindx := t.first;
359 indx := 1;
360 while true loop
361 a0(indx) := t(ddindx).id1;
362 a1(indx) := t(ddindx).id2;
363 a2(indx) := t(ddindx).name;
364 a3(indx) := t(ddindx).description;
365 indx := indx+1;
366 if t.last =ddindx
367 then exit;
368 end if;
369 ddindx := t.next(ddindx);
370 end loop;
371 end if;
372 end if;
373 end rosetta_table_copy_out_p27;
374
375 procedure rosetta_table_copy_in_p29(t out nocopy oks_entitlements_web.party_products_tbl_type, a0 JTF_NUMBER_TABLE
376 , a1 JTF_VARCHAR2_TABLE_100
377 , a2 JTF_VARCHAR2_TABLE_300
378 , a3 JTF_VARCHAR2_TABLE_300
379 ) as
380 ddindx binary_integer; indx binary_integer;
381 begin
382 if a0 is not null and a0.count > 0 then
383 if a0.count > 0 then
384 indx := a0.first;
385 ddindx := 1;
386 while true loop
387 t(ddindx).id1 := a0(indx);
388 t(ddindx).id2 := a1(indx);
389 t(ddindx).name := a2(indx);
390 t(ddindx).description := a3(indx);
391 ddindx := ddindx+1;
392 if a0.last =indx
393 then exit;
394 end if;
395 indx := a0.next(indx);
396 end loop;
397 end if;
398 end if;
399 end rosetta_table_copy_in_p29;
400 procedure rosetta_table_copy_out_p29(t oks_entitlements_web.party_products_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
401 , a1 out nocopy JTF_VARCHAR2_TABLE_100
402 , a2 out nocopy JTF_VARCHAR2_TABLE_300
403 , a3 out nocopy JTF_VARCHAR2_TABLE_300
404 ) as
405 ddindx binary_integer; indx binary_integer;
406 begin
407 if t is null or t.count = 0 then
408 a0 := JTF_NUMBER_TABLE();
409 a1 := JTF_VARCHAR2_TABLE_100();
410 a2 := JTF_VARCHAR2_TABLE_300();
411 a3 := JTF_VARCHAR2_TABLE_300();
412 else
413 a0 := JTF_NUMBER_TABLE();
414 a1 := JTF_VARCHAR2_TABLE_100();
415 a2 := JTF_VARCHAR2_TABLE_300();
416 a3 := JTF_VARCHAR2_TABLE_300();
417 if t.count > 0 then
418 a0.extend(t.count);
419 a1.extend(t.count);
420 a2.extend(t.count);
421 a3.extend(t.count);
422 ddindx := t.first;
423 indx := 1;
424 while true loop
425 a0(indx) := t(ddindx).id1;
426 a1(indx) := t(ddindx).id2;
427 a2(indx) := t(ddindx).name;
428 a3(indx) := t(ddindx).description;
429 indx := indx+1;
430 if t.last =ddindx
431 then exit;
432 end if;
433 ddindx := t.next(ddindx);
434 end loop;
435 end if;
436 end if;
437 end rosetta_table_copy_out_p29;
438
439 procedure rosetta_table_copy_in_p31(t out nocopy oks_entitlements_web.contract_cat_tbl_type, a0 JTF_VARCHAR2_TABLE_100
440 , a1 JTF_VARCHAR2_TABLE_100
441 ) as
442 ddindx binary_integer; indx binary_integer;
443 begin
444 if a0 is not null and a0.count > 0 then
445 if a0.count > 0 then
446 indx := a0.first;
447 ddindx := 1;
448 while true loop
449 t(ddindx).contract_cat_code := a0(indx);
450 t(ddindx).contract_cat_meaning := a1(indx);
451 ddindx := ddindx+1;
452 if a0.last =indx
453 then exit;
454 end if;
455 indx := a0.next(indx);
456 end loop;
457 end if;
458 end if;
459 end rosetta_table_copy_in_p31;
460 procedure rosetta_table_copy_out_p31(t oks_entitlements_web.contract_cat_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
461 , a1 out nocopy JTF_VARCHAR2_TABLE_100
462 ) as
463 ddindx binary_integer; indx binary_integer;
464 begin
465 if t is null or t.count = 0 then
466 a0 := JTF_VARCHAR2_TABLE_100();
467 a1 := JTF_VARCHAR2_TABLE_100();
468 else
469 a0 := JTF_VARCHAR2_TABLE_100();
470 a1 := JTF_VARCHAR2_TABLE_100();
471 if t.count > 0 then
472 a0.extend(t.count);
473 a1.extend(t.count);
474 ddindx := t.first;
475 indx := 1;
476 while true loop
477 a0(indx) := t(ddindx).contract_cat_code;
478 a1(indx) := t(ddindx).contract_cat_meaning;
479 indx := indx+1;
480 if t.last =ddindx
481 then exit;
482 end if;
483 ddindx := t.next(ddindx);
484 end loop;
485 end if;
486 end if;
487 end rosetta_table_copy_out_p31;
488
489 procedure rosetta_table_copy_in_p33(t out nocopy oks_entitlements_web.contract_status_tbl_type, a0 JTF_VARCHAR2_TABLE_100
490 , a1 JTF_VARCHAR2_TABLE_100
491 ) as
492 ddindx binary_integer; indx binary_integer;
493 begin
494 if a0 is not null and a0.count > 0 then
495 if a0.count > 0 then
496 indx := a0.first;
497 ddindx := 1;
498 while true loop
499 t(ddindx).contract_status_code := a0(indx);
500 t(ddindx).contract_status_meaning := a1(indx);
501 ddindx := ddindx+1;
502 if a0.last =indx
503 then exit;
504 end if;
505 indx := a0.next(indx);
506 end loop;
507 end if;
508 end if;
509 end rosetta_table_copy_in_p33;
510 procedure rosetta_table_copy_out_p33(t oks_entitlements_web.contract_status_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
511 , a1 out nocopy JTF_VARCHAR2_TABLE_100
512 ) as
513 ddindx binary_integer; indx binary_integer;
514 begin
515 if t is null or t.count = 0 then
516 a0 := JTF_VARCHAR2_TABLE_100();
517 a1 := JTF_VARCHAR2_TABLE_100();
518 else
519 a0 := JTF_VARCHAR2_TABLE_100();
520 a1 := JTF_VARCHAR2_TABLE_100();
521 if t.count > 0 then
522 a0.extend(t.count);
523 a1.extend(t.count);
524 ddindx := t.first;
525 indx := 1;
526 while true loop
527 a0(indx) := t(ddindx).contract_status_code;
528 a1(indx) := t(ddindx).contract_status_meaning;
529 indx := indx+1;
530 if t.last =ddindx
531 then exit;
532 end if;
533 ddindx := t.next(ddindx);
534 end loop;
535 end if;
536 end if;
537 end rosetta_table_copy_out_p33;
538
539 procedure rosetta_table_copy_in_p37(t out nocopy oks_entitlements_web.party_tbl_type, a0 JTF_NUMBER_TABLE
540 , a1 JTF_VARCHAR2_TABLE_100
541 , a2 JTF_VARCHAR2_TABLE_100
542 , a3 JTF_VARCHAR2_TABLE_400
543 , a4 JTF_VARCHAR2_TABLE_100
544 , a5 JTF_VARCHAR2_TABLE_100
545 , a6 JTF_VARCHAR2_TABLE_100
546 ) as
547 ddindx binary_integer; indx binary_integer;
548 begin
549 if a0 is not null and a0.count > 0 then
550 if a0.count > 0 then
551 indx := a0.first;
552 ddindx := 1;
553 while true loop
554 t(ddindx).header_id := a0(indx);
555 t(ddindx).rle_code := a1(indx);
556 t(ddindx).party_role := a2(indx);
557 t(ddindx).party_name := a3(indx);
558 t(ddindx).party_number := a4(indx);
559 t(ddindx).gsa_flag := a5(indx);
560 t(ddindx).bill_profile := a6(indx);
561 ddindx := ddindx+1;
562 if a0.last =indx
563 then exit;
564 end if;
565 indx := a0.next(indx);
566 end loop;
567 end if;
568 end if;
569 end rosetta_table_copy_in_p37;
570 procedure rosetta_table_copy_out_p37(t oks_entitlements_web.party_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
571 , a1 out nocopy JTF_VARCHAR2_TABLE_100
572 , a2 out nocopy JTF_VARCHAR2_TABLE_100
573 , a3 out nocopy JTF_VARCHAR2_TABLE_400
574 , a4 out nocopy JTF_VARCHAR2_TABLE_100
575 , a5 out nocopy JTF_VARCHAR2_TABLE_100
576 , a6 out nocopy JTF_VARCHAR2_TABLE_100
577 ) as
578 ddindx binary_integer; indx binary_integer;
579 begin
580 if t is null or t.count = 0 then
581 a0 := JTF_NUMBER_TABLE();
582 a1 := JTF_VARCHAR2_TABLE_100();
583 a2 := JTF_VARCHAR2_TABLE_100();
584 a3 := JTF_VARCHAR2_TABLE_400();
585 a4 := JTF_VARCHAR2_TABLE_100();
586 a5 := JTF_VARCHAR2_TABLE_100();
587 a6 := JTF_VARCHAR2_TABLE_100();
588 else
589 a0 := JTF_NUMBER_TABLE();
590 a1 := JTF_VARCHAR2_TABLE_100();
591 a2 := JTF_VARCHAR2_TABLE_100();
592 a3 := JTF_VARCHAR2_TABLE_400();
593 a4 := JTF_VARCHAR2_TABLE_100();
594 a5 := JTF_VARCHAR2_TABLE_100();
595 a6 := JTF_VARCHAR2_TABLE_100();
596 if t.count > 0 then
597 a0.extend(t.count);
598 a1.extend(t.count);
599 a2.extend(t.count);
600 a3.extend(t.count);
601 a4.extend(t.count);
602 a5.extend(t.count);
603 a6.extend(t.count);
604 ddindx := t.first;
605 indx := 1;
606 while true loop
607 a0(indx) := t(ddindx).header_id;
608 a1(indx) := t(ddindx).rle_code;
609 a2(indx) := t(ddindx).party_role;
610 a3(indx) := t(ddindx).party_name;
611 a4(indx) := t(ddindx).party_number;
612 a5(indx) := t(ddindx).gsa_flag;
613 a6(indx) := t(ddindx).bill_profile;
614 indx := indx+1;
615 if t.last =ddindx
616 then exit;
617 end if;
618 ddindx := t.next(ddindx);
619 end loop;
620 end if;
621 end if;
622 end rosetta_table_copy_out_p37;
623
624 procedure rosetta_table_copy_in_p39(t out nocopy oks_entitlements_web.line_tbl_type, a0 JTF_NUMBER_TABLE
625 , a1 JTF_NUMBER_TABLE
626 , a2 JTF_DATE_TABLE
627 , a3 JTF_DATE_TABLE
628 , a4 JTF_VARCHAR2_TABLE_100
629 , a5 JTF_VARCHAR2_TABLE_100
630 , a6 JTF_VARCHAR2_TABLE_200
631 , a7 JTF_VARCHAR2_TABLE_300
632 , a8 JTF_VARCHAR2_TABLE_500
633 , a9 JTF_VARCHAR2_TABLE_500
634 , a10 JTF_VARCHAR2_TABLE_2000
635 , a11 JTF_VARCHAR2_TABLE_400
636 , a12 JTF_VARCHAR2_TABLE_400
637 , a13 JTF_NUMBER_TABLE
638 , a14 JTF_NUMBER_TABLE
639 , a15 JTF_VARCHAR2_TABLE_200
640 , a16 JTF_VARCHAR2_TABLE_100
641 , a17 JTF_VARCHAR2_TABLE_400
642 , a18 JTF_VARCHAR2_TABLE_300
643 , a19 JTF_VARCHAR2_TABLE_100
644 , a20 JTF_VARCHAR2_TABLE_100
645 , a21 JTF_VARCHAR2_TABLE_400
646 , a22 JTF_VARCHAR2_TABLE_300
647 , a23 JTF_VARCHAR2_TABLE_100
648 ) as
649 ddindx binary_integer; indx binary_integer;
650 begin
651 if a0 is not null and a0.count > 0 then
652 if a0.count > 0 then
653 indx := a0.first;
654 ddindx := 1;
655 while true loop
656 t(ddindx).header_id := a0(indx);
657 t(ddindx).line_id := a1(indx);
658 t(ddindx).start_date := rosetta_g_miss_date_in_map(a2(indx));
659 t(ddindx).end_date := rosetta_g_miss_date_in_map(a3(indx));
660 t(ddindx).exemption := a4(indx);
661 t(ddindx).line_type := a5(indx);
662 t(ddindx).line_number := a6(indx);
663 t(ddindx).line_name := a7(indx);
664 t(ddindx).line_description := a8(indx);
665 t(ddindx).inv_print_flag := a9(indx);
666 t(ddindx).invoice_text := a10(indx);
667 t(ddindx).account_name := a11(indx);
668 t(ddindx).account_desc := a12(indx);
669 t(ddindx).account_number := a13(indx);
670 t(ddindx).quantity := a14(indx);
671 t(ddindx).coverage_name := a15(indx);
672 t(ddindx).bill_to_site := a16(indx);
673 t(ddindx).bill_to_address := a17(indx);
674 t(ddindx).bill_to_city_state_zip := a18(indx);
675 t(ddindx).bill_to_country := a19(indx);
676 t(ddindx).ship_to_site := a20(indx);
677 t(ddindx).ship_to_address := a21(indx);
678 t(ddindx).ship_to_city_state_zip := a22(indx);
679 t(ddindx).ship_to_country := a23(indx);
680 ddindx := ddindx+1;
681 if a0.last =indx
682 then exit;
683 end if;
684 indx := a0.next(indx);
685 end loop;
686 end if;
687 end if;
688 end rosetta_table_copy_in_p39;
689 procedure rosetta_table_copy_out_p39(t oks_entitlements_web.line_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
690 , a1 out nocopy JTF_NUMBER_TABLE
691 , a2 out nocopy JTF_DATE_TABLE
692 , a3 out nocopy JTF_DATE_TABLE
693 , a4 out nocopy JTF_VARCHAR2_TABLE_100
694 , a5 out nocopy JTF_VARCHAR2_TABLE_100
695 , a6 out nocopy JTF_VARCHAR2_TABLE_200
696 , a7 out nocopy JTF_VARCHAR2_TABLE_300
697 , a8 out nocopy JTF_VARCHAR2_TABLE_500
698 , a9 out nocopy JTF_VARCHAR2_TABLE_500
699 , a10 out nocopy JTF_VARCHAR2_TABLE_2000
700 , a11 out nocopy JTF_VARCHAR2_TABLE_400
701 , a12 out nocopy JTF_VARCHAR2_TABLE_400
702 , a13 out nocopy JTF_NUMBER_TABLE
703 , a14 out nocopy JTF_NUMBER_TABLE
704 , a15 out nocopy JTF_VARCHAR2_TABLE_200
705 , a16 out nocopy JTF_VARCHAR2_TABLE_100
706 , a17 out nocopy JTF_VARCHAR2_TABLE_400
707 , a18 out nocopy JTF_VARCHAR2_TABLE_300
708 , a19 out nocopy JTF_VARCHAR2_TABLE_100
709 , a20 out nocopy JTF_VARCHAR2_TABLE_100
710 , a21 out nocopy JTF_VARCHAR2_TABLE_400
711 , a22 out nocopy JTF_VARCHAR2_TABLE_300
712 , a23 out nocopy JTF_VARCHAR2_TABLE_100
713 ) as
714 ddindx binary_integer; indx binary_integer;
715 begin
716 if t is null or t.count = 0 then
717 a0 := JTF_NUMBER_TABLE();
718 a1 := JTF_NUMBER_TABLE();
719 a2 := JTF_DATE_TABLE();
720 a3 := JTF_DATE_TABLE();
721 a4 := JTF_VARCHAR2_TABLE_100();
722 a5 := JTF_VARCHAR2_TABLE_100();
723 a6 := JTF_VARCHAR2_TABLE_200();
724 a7 := JTF_VARCHAR2_TABLE_300();
725 a8 := JTF_VARCHAR2_TABLE_500();
726 a9 := JTF_VARCHAR2_TABLE_500();
727 a10 := JTF_VARCHAR2_TABLE_2000();
728 a11 := JTF_VARCHAR2_TABLE_400();
729 a12 := JTF_VARCHAR2_TABLE_400();
730 a13 := JTF_NUMBER_TABLE();
731 a14 := JTF_NUMBER_TABLE();
732 a15 := JTF_VARCHAR2_TABLE_200();
733 a16 := JTF_VARCHAR2_TABLE_100();
734 a17 := JTF_VARCHAR2_TABLE_400();
735 a18 := JTF_VARCHAR2_TABLE_300();
736 a19 := JTF_VARCHAR2_TABLE_100();
737 a20 := JTF_VARCHAR2_TABLE_100();
738 a21 := JTF_VARCHAR2_TABLE_400();
739 a22 := JTF_VARCHAR2_TABLE_300();
740 a23 := JTF_VARCHAR2_TABLE_100();
741 else
742 a0 := JTF_NUMBER_TABLE();
743 a1 := JTF_NUMBER_TABLE();
744 a2 := JTF_DATE_TABLE();
745 a3 := JTF_DATE_TABLE();
746 a4 := JTF_VARCHAR2_TABLE_100();
747 a5 := JTF_VARCHAR2_TABLE_100();
748 a6 := JTF_VARCHAR2_TABLE_200();
749 a7 := JTF_VARCHAR2_TABLE_300();
750 a8 := JTF_VARCHAR2_TABLE_500();
751 a9 := JTF_VARCHAR2_TABLE_500();
752 a10 := JTF_VARCHAR2_TABLE_2000();
753 a11 := JTF_VARCHAR2_TABLE_400();
754 a12 := JTF_VARCHAR2_TABLE_400();
755 a13 := JTF_NUMBER_TABLE();
756 a14 := JTF_NUMBER_TABLE();
757 a15 := JTF_VARCHAR2_TABLE_200();
758 a16 := JTF_VARCHAR2_TABLE_100();
759 a17 := JTF_VARCHAR2_TABLE_400();
760 a18 := JTF_VARCHAR2_TABLE_300();
761 a19 := JTF_VARCHAR2_TABLE_100();
762 a20 := JTF_VARCHAR2_TABLE_100();
763 a21 := JTF_VARCHAR2_TABLE_400();
764 a22 := JTF_VARCHAR2_TABLE_300();
765 a23 := JTF_VARCHAR2_TABLE_100();
766 if t.count > 0 then
767 a0.extend(t.count);
768 a1.extend(t.count);
769 a2.extend(t.count);
770 a3.extend(t.count);
771 a4.extend(t.count);
772 a5.extend(t.count);
773 a6.extend(t.count);
774 a7.extend(t.count);
775 a8.extend(t.count);
776 a9.extend(t.count);
777 a10.extend(t.count);
778 a11.extend(t.count);
779 a12.extend(t.count);
780 a13.extend(t.count);
781 a14.extend(t.count);
782 a15.extend(t.count);
783 a16.extend(t.count);
784 a17.extend(t.count);
785 a18.extend(t.count);
786 a19.extend(t.count);
787 a20.extend(t.count);
788 a21.extend(t.count);
789 a22.extend(t.count);
790 a23.extend(t.count);
791 ddindx := t.first;
792 indx := 1;
793 while true loop
794 a0(indx) := t(ddindx).header_id;
795 a1(indx) := t(ddindx).line_id;
796 a2(indx) := t(ddindx).start_date;
797 a3(indx) := t(ddindx).end_date;
798 a4(indx) := t(ddindx).exemption;
799 a5(indx) := t(ddindx).line_type;
800 a6(indx) := t(ddindx).line_number;
801 a7(indx) := t(ddindx).line_name;
802 a8(indx) := t(ddindx).line_description;
803 a9(indx) := t(ddindx).inv_print_flag;
804 a10(indx) := t(ddindx).invoice_text;
805 a11(indx) := t(ddindx).account_name;
806 a12(indx) := t(ddindx).account_desc;
807 a13(indx) := t(ddindx).account_number;
808 a14(indx) := t(ddindx).quantity;
809 a15(indx) := t(ddindx).coverage_name;
810 a16(indx) := t(ddindx).bill_to_site;
811 a17(indx) := t(ddindx).bill_to_address;
812 a18(indx) := t(ddindx).bill_to_city_state_zip;
813 a19(indx) := t(ddindx).bill_to_country;
814 a20(indx) := t(ddindx).ship_to_site;
815 a21(indx) := t(ddindx).ship_to_address;
816 a22(indx) := t(ddindx).ship_to_city_state_zip;
817 a23(indx) := t(ddindx).ship_to_country;
818 indx := indx+1;
819 if t.last =ddindx
820 then exit;
821 end if;
822 ddindx := t.next(ddindx);
823 end loop;
824 end if;
825 end if;
826 end rosetta_table_copy_out_p39;
827
828 procedure rosetta_table_copy_in_p41(t out nocopy oks_entitlements_web.party_contact_tbl_type, a0 JTF_NUMBER_TABLE
829 , a1 JTF_VARCHAR2_TABLE_100
830 , a2 JTF_VARCHAR2_TABLE_100
831 , a3 JTF_VARCHAR2_TABLE_100
832 , a4 JTF_DATE_TABLE
833 , a5 JTF_DATE_TABLE
834 , a6 JTF_VARCHAR2_TABLE_400
835 , a7 JTF_VARCHAR2_TABLE_100
836 , a8 JTF_VARCHAR2_TABLE_100
837 ) as
838 ddindx binary_integer; indx binary_integer;
839 begin
840 if a0 is not null and a0.count > 0 then
841 if a0.count > 0 then
842 indx := a0.first;
843 ddindx := 1;
844 while true loop
845 t(ddindx).header_id := a0(indx);
846 t(ddindx).rle_code := a1(indx);
847 t(ddindx).owner_table_id := a2(indx);
848 t(ddindx).contact_role := a3(indx);
849 t(ddindx).start_date := rosetta_g_miss_date_in_map(a4(indx));
850 t(ddindx).end_date := rosetta_g_miss_date_in_map(a5(indx));
851 t(ddindx).contact_name := a6(indx);
852 t(ddindx).primary_email := a7(indx);
853 t(ddindx).contact_id := a8(indx);
854 ddindx := ddindx+1;
855 if a0.last =indx
856 then exit;
857 end if;
858 indx := a0.next(indx);
859 end loop;
860 end if;
861 end if;
862 end rosetta_table_copy_in_p41;
863 procedure rosetta_table_copy_out_p41(t oks_entitlements_web.party_contact_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
864 , a1 out nocopy JTF_VARCHAR2_TABLE_100
865 , a2 out nocopy JTF_VARCHAR2_TABLE_100
866 , a3 out nocopy JTF_VARCHAR2_TABLE_100
867 , a4 out nocopy JTF_DATE_TABLE
868 , a5 out nocopy JTF_DATE_TABLE
869 , a6 out nocopy JTF_VARCHAR2_TABLE_400
870 , a7 out nocopy JTF_VARCHAR2_TABLE_100
871 , a8 out nocopy JTF_VARCHAR2_TABLE_100
872 ) as
873 ddindx binary_integer; indx binary_integer;
874 begin
875 if t is null or t.count = 0 then
876 a0 := JTF_NUMBER_TABLE();
877 a1 := JTF_VARCHAR2_TABLE_100();
878 a2 := JTF_VARCHAR2_TABLE_100();
879 a3 := JTF_VARCHAR2_TABLE_100();
880 a4 := JTF_DATE_TABLE();
881 a5 := JTF_DATE_TABLE();
882 a6 := JTF_VARCHAR2_TABLE_400();
883 a7 := JTF_VARCHAR2_TABLE_100();
884 a8 := JTF_VARCHAR2_TABLE_100();
885 else
886 a0 := JTF_NUMBER_TABLE();
887 a1 := JTF_VARCHAR2_TABLE_100();
888 a2 := JTF_VARCHAR2_TABLE_100();
889 a3 := JTF_VARCHAR2_TABLE_100();
890 a4 := JTF_DATE_TABLE();
891 a5 := JTF_DATE_TABLE();
892 a6 := JTF_VARCHAR2_TABLE_400();
893 a7 := JTF_VARCHAR2_TABLE_100();
894 a8 := JTF_VARCHAR2_TABLE_100();
895 if t.count > 0 then
896 a0.extend(t.count);
897 a1.extend(t.count);
898 a2.extend(t.count);
899 a3.extend(t.count);
900 a4.extend(t.count);
901 a5.extend(t.count);
902 a6.extend(t.count);
903 a7.extend(t.count);
904 a8.extend(t.count);
905 ddindx := t.first;
906 indx := 1;
907 while true loop
908 a0(indx) := t(ddindx).header_id;
909 a1(indx) := t(ddindx).rle_code;
910 a2(indx) := t(ddindx).owner_table_id;
911 a3(indx) := t(ddindx).contact_role;
912 a4(indx) := t(ddindx).start_date;
913 a5(indx) := t(ddindx).end_date;
914 a6(indx) := t(ddindx).contact_name;
915 a7(indx) := t(ddindx).primary_email;
916 a8(indx) := t(ddindx).contact_id;
917 indx := indx+1;
918 if t.last =ddindx
919 then exit;
920 end if;
921 ddindx := t.next(ddindx);
922 end loop;
923 end if;
924 end if;
925 end rosetta_table_copy_out_p41;
926
927 procedure rosetta_table_copy_in_p43(t out nocopy oks_entitlements_web.pty_cntct_dtls_tbl_type, a0 JTF_VARCHAR2_TABLE_100
928 , a1 JTF_VARCHAR2_TABLE_100
929 , a2 JTF_VARCHAR2_TABLE_2000
930 , a3 JTF_VARCHAR2_TABLE_100
931 , a4 JTF_VARCHAR2_TABLE_100
932 , a5 JTF_VARCHAR2_TABLE_100
933 , a6 JTF_VARCHAR2_TABLE_100
934 , a7 JTF_VARCHAR2_TABLE_100
935 ) as
936 ddindx binary_integer; indx binary_integer;
937 begin
938 if a0 is not null and a0.count > 0 then
939 if a0.count > 0 then
940 indx := a0.first;
941 ddindx := 1;
942 while true loop
943 t(ddindx).owner_table_id := a0(indx);
944 t(ddindx).contact_type := a1(indx);
945 t(ddindx).email_address := a2(indx);
946 t(ddindx).phone_type := a3(indx);
947 t(ddindx).phone_country_cd := a4(indx);
948 t(ddindx).phone_area_cd := a5(indx);
949 t(ddindx).phone_number := a6(indx);
950 t(ddindx).phone_extension := a7(indx);
951 ddindx := ddindx+1;
952 if a0.last =indx
953 then exit;
954 end if;
955 indx := a0.next(indx);
956 end loop;
957 end if;
958 end if;
959 end rosetta_table_copy_in_p43;
960 procedure rosetta_table_copy_out_p43(t oks_entitlements_web.pty_cntct_dtls_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
961 , a1 out nocopy JTF_VARCHAR2_TABLE_100
962 , a2 out nocopy JTF_VARCHAR2_TABLE_2000
963 , a3 out nocopy JTF_VARCHAR2_TABLE_100
964 , a4 out nocopy JTF_VARCHAR2_TABLE_100
965 , a5 out nocopy JTF_VARCHAR2_TABLE_100
966 , a6 out nocopy JTF_VARCHAR2_TABLE_100
967 , a7 out nocopy JTF_VARCHAR2_TABLE_100
968 ) as
969 ddindx binary_integer; indx binary_integer;
970 begin
971 if t is null or t.count = 0 then
972 a0 := JTF_VARCHAR2_TABLE_100();
973 a1 := JTF_VARCHAR2_TABLE_100();
974 a2 := JTF_VARCHAR2_TABLE_2000();
975 a3 := JTF_VARCHAR2_TABLE_100();
976 a4 := JTF_VARCHAR2_TABLE_100();
977 a5 := JTF_VARCHAR2_TABLE_100();
978 a6 := JTF_VARCHAR2_TABLE_100();
979 a7 := JTF_VARCHAR2_TABLE_100();
980 else
981 a0 := JTF_VARCHAR2_TABLE_100();
982 a1 := JTF_VARCHAR2_TABLE_100();
983 a2 := JTF_VARCHAR2_TABLE_2000();
984 a3 := JTF_VARCHAR2_TABLE_100();
985 a4 := JTF_VARCHAR2_TABLE_100();
986 a5 := JTF_VARCHAR2_TABLE_100();
987 a6 := JTF_VARCHAR2_TABLE_100();
988 a7 := JTF_VARCHAR2_TABLE_100();
989 if t.count > 0 then
990 a0.extend(t.count);
991 a1.extend(t.count);
992 a2.extend(t.count);
993 a3.extend(t.count);
994 a4.extend(t.count);
995 a5.extend(t.count);
996 a6.extend(t.count);
997 a7.extend(t.count);
998 ddindx := t.first;
999 indx := 1;
1000 while true loop
1001 a0(indx) := t(ddindx).owner_table_id;
1002 a1(indx) := t(ddindx).contact_type;
1003 a2(indx) := t(ddindx).email_address;
1004 a3(indx) := t(ddindx).phone_type;
1005 a4(indx) := t(ddindx).phone_country_cd;
1006 a5(indx) := t(ddindx).phone_area_cd;
1007 a6(indx) := t(ddindx).phone_number;
1008 a7(indx) := t(ddindx).phone_extension;
1009 indx := indx+1;
1010 if t.last =ddindx
1011 then exit;
1012 end if;
1013 ddindx := t.next(ddindx);
1014 end loop;
1015 end if;
1016 end if;
1017 end rosetta_table_copy_out_p43;
1018
1019 procedure rosetta_table_copy_in_p46(t out nocopy oks_entitlements_web.covered_level_tbl_type, a0 JTF_VARCHAR2_TABLE_500
1020 , a1 JTF_VARCHAR2_TABLE_500
1021 , a2 JTF_VARCHAR2_TABLE_500
1022 , a3 JTF_DATE_TABLE
1023 , a4 JTF_DATE_TABLE
1024 , a5 JTF_NUMBER_TABLE
1025 , a6 JTF_VARCHAR2_TABLE_500
1026 , a7 JTF_VARCHAR2_TABLE_500
1027 , a8 JTF_VARCHAR2_TABLE_500
1028 ) as
1029 ddindx binary_integer; indx binary_integer;
1030 begin
1031 if a0 is not null and a0.count > 0 then
1032 if a0.count > 0 then
1033 indx := a0.first;
1034 ddindx := 1;
1035 while true loop
1036 t(ddindx).line_number := a0(indx);
1037 t(ddindx).covered_level := a1(indx);
1038 t(ddindx).name := a2(indx);
1039 t(ddindx).start_date := rosetta_g_miss_date_in_map(a3(indx));
1040 t(ddindx).end_date := rosetta_g_miss_date_in_map(a4(indx));
1041 t(ddindx).duration := a5(indx);
1042 t(ddindx).period := a6(indx);
1043 t(ddindx).terminated := a7(indx);
1044 t(ddindx).renewal_type := a8(indx);
1045 ddindx := ddindx+1;
1046 if a0.last =indx
1047 then exit;
1048 end if;
1049 indx := a0.next(indx);
1050 end loop;
1051 end if;
1052 end if;
1053 end rosetta_table_copy_in_p46;
1054 procedure rosetta_table_copy_out_p46(t oks_entitlements_web.covered_level_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_500
1055 , a1 out nocopy JTF_VARCHAR2_TABLE_500
1056 , a2 out nocopy JTF_VARCHAR2_TABLE_500
1057 , a3 out nocopy JTF_DATE_TABLE
1058 , a4 out nocopy JTF_DATE_TABLE
1059 , a5 out nocopy JTF_NUMBER_TABLE
1060 , a6 out nocopy JTF_VARCHAR2_TABLE_500
1061 , a7 out nocopy JTF_VARCHAR2_TABLE_500
1062 , a8 out nocopy JTF_VARCHAR2_TABLE_500
1063 ) as
1064 ddindx binary_integer; indx binary_integer;
1065 begin
1066 if t is null or t.count = 0 then
1067 a0 := JTF_VARCHAR2_TABLE_500();
1068 a1 := JTF_VARCHAR2_TABLE_500();
1069 a2 := JTF_VARCHAR2_TABLE_500();
1070 a3 := JTF_DATE_TABLE();
1071 a4 := JTF_DATE_TABLE();
1072 a5 := JTF_NUMBER_TABLE();
1073 a6 := JTF_VARCHAR2_TABLE_500();
1074 a7 := JTF_VARCHAR2_TABLE_500();
1075 a8 := JTF_VARCHAR2_TABLE_500();
1076 else
1077 a0 := JTF_VARCHAR2_TABLE_500();
1078 a1 := JTF_VARCHAR2_TABLE_500();
1079 a2 := JTF_VARCHAR2_TABLE_500();
1080 a3 := JTF_DATE_TABLE();
1081 a4 := JTF_DATE_TABLE();
1082 a5 := JTF_NUMBER_TABLE();
1083 a6 := JTF_VARCHAR2_TABLE_500();
1084 a7 := JTF_VARCHAR2_TABLE_500();
1085 a8 := JTF_VARCHAR2_TABLE_500();
1086 if t.count > 0 then
1087 a0.extend(t.count);
1088 a1.extend(t.count);
1089 a2.extend(t.count);
1090 a3.extend(t.count);
1091 a4.extend(t.count);
1092 a5.extend(t.count);
1093 a6.extend(t.count);
1094 a7.extend(t.count);
1095 a8.extend(t.count);
1096 ddindx := t.first;
1097 indx := 1;
1098 while true loop
1099 a0(indx) := t(ddindx).line_number;
1100 a1(indx) := t(ddindx).covered_level;
1101 a2(indx) := t(ddindx).name;
1102 a3(indx) := t(ddindx).start_date;
1103 a4(indx) := t(ddindx).end_date;
1104 a5(indx) := t(ddindx).duration;
1105 a6(indx) := t(ddindx).period;
1106 a7(indx) := t(ddindx).terminated;
1107 a8(indx) := t(ddindx).renewal_type;
1108 indx := indx+1;
1109 if t.last =ddindx
1110 then exit;
1111 end if;
1112 ddindx := t.next(ddindx);
1113 end loop;
1114 end if;
1115 end if;
1116 end rosetta_table_copy_out_p46;
1117
1118 procedure rosetta_table_copy_in_p48(t out nocopy oks_entitlements_web.cust_contacts_tbl_type, a0 JTF_VARCHAR2_TABLE_500
1119 , a1 JTF_VARCHAR2_TABLE_500
1120 , a2 JTF_VARCHAR2_TABLE_500
1121 , a3 JTF_DATE_TABLE
1122 , a4 JTF_DATE_TABLE
1123 ) as
1124 ddindx binary_integer; indx binary_integer;
1125 begin
1126 if a0 is not null and a0.count > 0 then
1127 if a0.count > 0 then
1128 indx := a0.first;
1129 ddindx := 1;
1130 while true loop
1131 t(ddindx).cust_contacts_role := a0(indx);
1132 t(ddindx).cust_contacts_address := a1(indx);
1133 t(ddindx).cust_contacts_name := a2(indx);
1134 t(ddindx).cust_contacts_start_date := rosetta_g_miss_date_in_map(a3(indx));
1135 t(ddindx).cust_contacts_end_date := rosetta_g_miss_date_in_map(a4(indx));
1136 ddindx := ddindx+1;
1137 if a0.last =indx
1138 then exit;
1139 end if;
1140 indx := a0.next(indx);
1141 end loop;
1142 end if;
1143 end if;
1144 end rosetta_table_copy_in_p48;
1145 procedure rosetta_table_copy_out_p48(t oks_entitlements_web.cust_contacts_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_500
1146 , a1 out nocopy JTF_VARCHAR2_TABLE_500
1147 , a2 out nocopy JTF_VARCHAR2_TABLE_500
1148 , a3 out nocopy JTF_DATE_TABLE
1149 , a4 out nocopy JTF_DATE_TABLE
1150 ) as
1151 ddindx binary_integer; indx binary_integer;
1152 begin
1153 if t is null or t.count = 0 then
1154 a0 := JTF_VARCHAR2_TABLE_500();
1155 a1 := JTF_VARCHAR2_TABLE_500();
1156 a2 := JTF_VARCHAR2_TABLE_500();
1157 a3 := JTF_DATE_TABLE();
1158 a4 := JTF_DATE_TABLE();
1159 else
1160 a0 := JTF_VARCHAR2_TABLE_500();
1161 a1 := JTF_VARCHAR2_TABLE_500();
1162 a2 := JTF_VARCHAR2_TABLE_500();
1163 a3 := JTF_DATE_TABLE();
1164 a4 := JTF_DATE_TABLE();
1165 if t.count > 0 then
1166 a0.extend(t.count);
1167 a1.extend(t.count);
1168 a2.extend(t.count);
1169 a3.extend(t.count);
1170 a4.extend(t.count);
1171 ddindx := t.first;
1172 indx := 1;
1173 while true loop
1174 a0(indx) := t(ddindx).cust_contacts_role;
1175 a1(indx) := t(ddindx).cust_contacts_address;
1176 a2(indx) := t(ddindx).cust_contacts_name;
1177 a3(indx) := t(ddindx).cust_contacts_start_date;
1178 a4(indx) := t(ddindx).cust_contacts_end_date;
1179 indx := indx+1;
1180 if t.last =ddindx
1181 then exit;
1182 end if;
1183 ddindx := t.next(ddindx);
1184 end loop;
1185 end if;
1186 end if;
1187 end rosetta_table_copy_out_p48;
1188
1189 procedure rosetta_table_copy_in_p51(t out nocopy oks_entitlements_web.bus_proc_tbl_type, a0 JTF_NUMBER_TABLE
1190 , a1 JTF_NUMBER_TABLE
1191 , a2 JTF_VARCHAR2_TABLE_500
1192 , a3 JTF_VARCHAR2_TABLE_500
1193 , a4 JTF_VARCHAR2_TABLE_500
1194 , a5 JTF_VARCHAR2_TABLE_500
1195 ) as
1196 ddindx binary_integer; indx binary_integer;
1197 begin
1198 if a0 is not null and a0.count > 0 then
1199 if a0.count > 0 then
1200 indx := a0.first;
1201 ddindx := 1;
1202 while true loop
1203 t(ddindx).bus_proc_id := a0(indx);
1204 t(ddindx).bus_proc_offset_duration := a1(indx);
1205 t(ddindx).bus_proc_name := a2(indx);
1206 t(ddindx).bus_proc_offset_period := a3(indx);
1207 t(ddindx).bus_proc_discount := a4(indx);
1208 t(ddindx).bus_proc_price_list := a5(indx);
1209 ddindx := ddindx+1;
1210 if a0.last =indx
1211 then exit;
1212 end if;
1213 indx := a0.next(indx);
1214 end loop;
1215 end if;
1216 end if;
1217 end rosetta_table_copy_in_p51;
1218 procedure rosetta_table_copy_out_p51(t oks_entitlements_web.bus_proc_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
1219 , a1 out nocopy JTF_NUMBER_TABLE
1220 , a2 out nocopy JTF_VARCHAR2_TABLE_500
1221 , a3 out nocopy JTF_VARCHAR2_TABLE_500
1222 , a4 out nocopy JTF_VARCHAR2_TABLE_500
1223 , a5 out nocopy JTF_VARCHAR2_TABLE_500
1224 ) as
1225 ddindx binary_integer; indx binary_integer;
1226 begin
1227 if t is null or t.count = 0 then
1228 a0 := JTF_NUMBER_TABLE();
1229 a1 := JTF_NUMBER_TABLE();
1230 a2 := JTF_VARCHAR2_TABLE_500();
1231 a3 := JTF_VARCHAR2_TABLE_500();
1232 a4 := JTF_VARCHAR2_TABLE_500();
1233 a5 := JTF_VARCHAR2_TABLE_500();
1234 else
1235 a0 := JTF_NUMBER_TABLE();
1236 a1 := JTF_NUMBER_TABLE();
1237 a2 := JTF_VARCHAR2_TABLE_500();
1238 a3 := JTF_VARCHAR2_TABLE_500();
1239 a4 := JTF_VARCHAR2_TABLE_500();
1240 a5 := JTF_VARCHAR2_TABLE_500();
1241 if t.count > 0 then
1242 a0.extend(t.count);
1243 a1.extend(t.count);
1244 a2.extend(t.count);
1245 a3.extend(t.count);
1246 a4.extend(t.count);
1247 a5.extend(t.count);
1248 ddindx := t.first;
1249 indx := 1;
1250 while true loop
1251 a0(indx) := t(ddindx).bus_proc_id;
1252 a1(indx) := t(ddindx).bus_proc_offset_duration;
1253 a2(indx) := t(ddindx).bus_proc_name;
1254 a3(indx) := t(ddindx).bus_proc_offset_period;
1255 a4(indx) := t(ddindx).bus_proc_discount;
1256 a5(indx) := t(ddindx).bus_proc_price_list;
1257 indx := indx+1;
1258 if t.last =ddindx
1259 then exit;
1260 end if;
1261 ddindx := t.next(ddindx);
1262 end loop;
1263 end if;
1264 end if;
1265 end rosetta_table_copy_out_p51;
1266
1267 procedure rosetta_table_copy_in_p54(t out nocopy oks_entitlements_web.coverage_times_tbl_type, a0 JTF_VARCHAR2_TABLE_100
1268 , a1 JTF_VARCHAR2_TABLE_100
1269 , a2 JTF_VARCHAR2_TABLE_100
1270 ) as
1271 ddindx binary_integer; indx binary_integer;
1272 begin
1273 if a0 is not null and a0.count > 0 then
1274 if a0.count > 0 then
1275 indx := a0.first;
1276 ddindx := 1;
1277 while true loop
1278 t(ddindx).day_of_week := a0(indx);
1279 t(ddindx).start_time := a1(indx);
1280 t(ddindx).end_time := a2(indx);
1281 ddindx := ddindx+1;
1282 if a0.last =indx
1283 then exit;
1284 end if;
1285 indx := a0.next(indx);
1286 end loop;
1287 end if;
1288 end if;
1289 end rosetta_table_copy_in_p54;
1290 procedure rosetta_table_copy_out_p54(t oks_entitlements_web.coverage_times_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
1291 , a1 out nocopy JTF_VARCHAR2_TABLE_100
1292 , a2 out nocopy JTF_VARCHAR2_TABLE_100
1293 ) as
1294 ddindx binary_integer; indx binary_integer;
1295 begin
1296 if t is null or t.count = 0 then
1297 a0 := JTF_VARCHAR2_TABLE_100();
1298 a1 := JTF_VARCHAR2_TABLE_100();
1299 a2 := JTF_VARCHAR2_TABLE_100();
1300 else
1301 a0 := JTF_VARCHAR2_TABLE_100();
1302 a1 := JTF_VARCHAR2_TABLE_100();
1303 a2 := JTF_VARCHAR2_TABLE_100();
1304 if t.count > 0 then
1305 a0.extend(t.count);
1306 a1.extend(t.count);
1307 a2.extend(t.count);
1308 ddindx := t.first;
1309 indx := 1;
1310 while true loop
1311 a0(indx) := t(ddindx).day_of_week;
1312 a1(indx) := t(ddindx).start_time;
1313 a2(indx) := t(ddindx).end_time;
1314 indx := indx+1;
1315 if t.last =ddindx
1316 then exit;
1317 end if;
1318 ddindx := t.next(ddindx);
1319 end loop;
1320 end if;
1321 end if;
1322 end rosetta_table_copy_out_p54;
1323
1324 procedure rosetta_table_copy_in_p56(t out nocopy oks_entitlements_web.reaction_times_tbl_type, a0 JTF_VARCHAR2_TABLE_500
1325 , a1 JTF_VARCHAR2_TABLE_500
1326 , a2 JTF_VARCHAR2_TABLE_100
1327 , a3 JTF_VARCHAR2_TABLE_100
1328 , a4 JTF_VARCHAR2_TABLE_100
1329 , a5 JTF_VARCHAR2_TABLE_100
1330 , a6 JTF_VARCHAR2_TABLE_100
1331 , a7 JTF_VARCHAR2_TABLE_100
1332 , a8 JTF_VARCHAR2_TABLE_100
1333 , a9 JTF_VARCHAR2_TABLE_100
1334 , a10 JTF_VARCHAR2_TABLE_100
1335 ) as
1336 ddindx binary_integer; indx binary_integer;
1337 begin
1338 if a0 is not null and a0.count > 0 then
1339 if a0.count > 0 then
1340 indx := a0.first;
1341 ddindx := 1;
1342 while true loop
1343 t(ddindx).name := a0(indx);
1344 t(ddindx).severity := a1(indx);
1345 t(ddindx).work_thru_yn := a2(indx);
1346 t(ddindx).active_yn := a3(indx);
1347 t(ddindx).sun := a4(indx);
1348 t(ddindx).mon := a5(indx);
1349 t(ddindx).tue := a6(indx);
1350 t(ddindx).wed := a7(indx);
1351 t(ddindx).thr := a8(indx);
1352 t(ddindx).fri := a9(indx);
1353 t(ddindx).sat := a10(indx);
1354 ddindx := ddindx+1;
1355 if a0.last =indx
1356 then exit;
1357 end if;
1358 indx := a0.next(indx);
1359 end loop;
1360 end if;
1361 end if;
1362 end rosetta_table_copy_in_p56;
1363 procedure rosetta_table_copy_out_p56(t oks_entitlements_web.reaction_times_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_500
1364 , a1 out nocopy JTF_VARCHAR2_TABLE_500
1365 , a2 out nocopy JTF_VARCHAR2_TABLE_100
1366 , a3 out nocopy JTF_VARCHAR2_TABLE_100
1367 , a4 out nocopy JTF_VARCHAR2_TABLE_100
1368 , a5 out nocopy JTF_VARCHAR2_TABLE_100
1369 , a6 out nocopy JTF_VARCHAR2_TABLE_100
1370 , a7 out nocopy JTF_VARCHAR2_TABLE_100
1371 , a8 out nocopy JTF_VARCHAR2_TABLE_100
1372 , a9 out nocopy JTF_VARCHAR2_TABLE_100
1373 , a10 out nocopy JTF_VARCHAR2_TABLE_100
1374 ) as
1375 ddindx binary_integer; indx binary_integer;
1376 begin
1377 if t is null or t.count = 0 then
1378 a0 := JTF_VARCHAR2_TABLE_500();
1379 a1 := JTF_VARCHAR2_TABLE_500();
1380 a2 := JTF_VARCHAR2_TABLE_100();
1381 a3 := JTF_VARCHAR2_TABLE_100();
1382 a4 := JTF_VARCHAR2_TABLE_100();
1383 a5 := JTF_VARCHAR2_TABLE_100();
1384 a6 := JTF_VARCHAR2_TABLE_100();
1385 a7 := JTF_VARCHAR2_TABLE_100();
1386 a8 := JTF_VARCHAR2_TABLE_100();
1387 a9 := JTF_VARCHAR2_TABLE_100();
1388 a10 := JTF_VARCHAR2_TABLE_100();
1389 else
1390 a0 := JTF_VARCHAR2_TABLE_500();
1391 a1 := JTF_VARCHAR2_TABLE_500();
1392 a2 := JTF_VARCHAR2_TABLE_100();
1393 a3 := JTF_VARCHAR2_TABLE_100();
1394 a4 := JTF_VARCHAR2_TABLE_100();
1395 a5 := JTF_VARCHAR2_TABLE_100();
1396 a6 := JTF_VARCHAR2_TABLE_100();
1397 a7 := JTF_VARCHAR2_TABLE_100();
1398 a8 := JTF_VARCHAR2_TABLE_100();
1399 a9 := JTF_VARCHAR2_TABLE_100();
1400 a10 := JTF_VARCHAR2_TABLE_100();
1401 if t.count > 0 then
1402 a0.extend(t.count);
1403 a1.extend(t.count);
1404 a2.extend(t.count);
1405 a3.extend(t.count);
1406 a4.extend(t.count);
1407 a5.extend(t.count);
1408 a6.extend(t.count);
1409 a7.extend(t.count);
1410 a8.extend(t.count);
1411 a9.extend(t.count);
1412 a10.extend(t.count);
1413 ddindx := t.first;
1414 indx := 1;
1415 while true loop
1416 a0(indx) := t(ddindx).name;
1417 a1(indx) := t(ddindx).severity;
1418 a2(indx) := t(ddindx).work_thru_yn;
1419 a3(indx) := t(ddindx).active_yn;
1420 a4(indx) := t(ddindx).sun;
1421 a5(indx) := t(ddindx).mon;
1422 a6(indx) := t(ddindx).tue;
1423 a7(indx) := t(ddindx).wed;
1424 a8(indx) := t(ddindx).thr;
1425 a9(indx) := t(ddindx).fri;
1426 a10(indx) := t(ddindx).sat;
1427 indx := indx+1;
1428 if t.last =ddindx
1429 then exit;
1430 end if;
1431 ddindx := t.next(ddindx);
1432 end loop;
1433 end if;
1434 end if;
1435 end rosetta_table_copy_out_p56;
1436
1437 procedure rosetta_table_copy_in_p58(t out nocopy oks_entitlements_web.resolution_times_tbl_type, a0 JTF_VARCHAR2_TABLE_500
1438 , a1 JTF_VARCHAR2_TABLE_500
1439 , a2 JTF_VARCHAR2_TABLE_100
1440 , a3 JTF_VARCHAR2_TABLE_100
1441 , a4 JTF_VARCHAR2_TABLE_100
1442 , a5 JTF_VARCHAR2_TABLE_100
1443 , a6 JTF_VARCHAR2_TABLE_100
1444 , a7 JTF_VARCHAR2_TABLE_100
1445 , a8 JTF_VARCHAR2_TABLE_100
1446 , a9 JTF_VARCHAR2_TABLE_100
1447 , a10 JTF_VARCHAR2_TABLE_100
1448 ) as
1449 ddindx binary_integer; indx binary_integer;
1450 begin
1451 if a0 is not null and a0.count > 0 then
1452 if a0.count > 0 then
1453 indx := a0.first;
1454 ddindx := 1;
1455 while true loop
1456 t(ddindx).name := a0(indx);
1457 t(ddindx).severity := a1(indx);
1458 t(ddindx).work_thru_yn := a2(indx);
1459 t(ddindx).active_yn := a3(indx);
1460 t(ddindx).sun := a4(indx);
1461 t(ddindx).mon := a5(indx);
1462 t(ddindx).tue := a6(indx);
1463 t(ddindx).wed := a7(indx);
1464 t(ddindx).thr := a8(indx);
1465 t(ddindx).fri := a9(indx);
1466 t(ddindx).sat := a10(indx);
1467 ddindx := ddindx+1;
1468 if a0.last =indx
1469 then exit;
1470 end if;
1471 indx := a0.next(indx);
1472 end loop;
1473 end if;
1474 end if;
1475 end rosetta_table_copy_in_p58;
1476 procedure rosetta_table_copy_out_p58(t oks_entitlements_web.resolution_times_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_500
1477 , a1 out nocopy JTF_VARCHAR2_TABLE_500
1478 , a2 out nocopy JTF_VARCHAR2_TABLE_100
1479 , a3 out nocopy JTF_VARCHAR2_TABLE_100
1480 , a4 out nocopy JTF_VARCHAR2_TABLE_100
1481 , a5 out nocopy JTF_VARCHAR2_TABLE_100
1482 , a6 out nocopy JTF_VARCHAR2_TABLE_100
1483 , a7 out nocopy JTF_VARCHAR2_TABLE_100
1484 , a8 out nocopy JTF_VARCHAR2_TABLE_100
1485 , a9 out nocopy JTF_VARCHAR2_TABLE_100
1486 , a10 out nocopy JTF_VARCHAR2_TABLE_100
1487 ) as
1488 ddindx binary_integer; indx binary_integer;
1489 begin
1490 if t is null or t.count = 0 then
1491 a0 := JTF_VARCHAR2_TABLE_500();
1492 a1 := JTF_VARCHAR2_TABLE_500();
1493 a2 := JTF_VARCHAR2_TABLE_100();
1494 a3 := JTF_VARCHAR2_TABLE_100();
1495 a4 := JTF_VARCHAR2_TABLE_100();
1496 a5 := JTF_VARCHAR2_TABLE_100();
1497 a6 := JTF_VARCHAR2_TABLE_100();
1498 a7 := JTF_VARCHAR2_TABLE_100();
1499 a8 := JTF_VARCHAR2_TABLE_100();
1500 a9 := JTF_VARCHAR2_TABLE_100();
1501 a10 := JTF_VARCHAR2_TABLE_100();
1502 else
1503 a0 := JTF_VARCHAR2_TABLE_500();
1504 a1 := JTF_VARCHAR2_TABLE_500();
1505 a2 := JTF_VARCHAR2_TABLE_100();
1506 a3 := JTF_VARCHAR2_TABLE_100();
1507 a4 := JTF_VARCHAR2_TABLE_100();
1508 a5 := JTF_VARCHAR2_TABLE_100();
1509 a6 := JTF_VARCHAR2_TABLE_100();
1510 a7 := JTF_VARCHAR2_TABLE_100();
1511 a8 := JTF_VARCHAR2_TABLE_100();
1512 a9 := JTF_VARCHAR2_TABLE_100();
1513 a10 := JTF_VARCHAR2_TABLE_100();
1514 if t.count > 0 then
1515 a0.extend(t.count);
1516 a1.extend(t.count);
1517 a2.extend(t.count);
1518 a3.extend(t.count);
1519 a4.extend(t.count);
1520 a5.extend(t.count);
1521 a6.extend(t.count);
1522 a7.extend(t.count);
1523 a8.extend(t.count);
1524 a9.extend(t.count);
1525 a10.extend(t.count);
1526 ddindx := t.first;
1527 indx := 1;
1528 while true loop
1529 a0(indx) := t(ddindx).name;
1530 a1(indx) := t(ddindx).severity;
1531 a2(indx) := t(ddindx).work_thru_yn;
1532 a3(indx) := t(ddindx).active_yn;
1533 a4(indx) := t(ddindx).sun;
1534 a5(indx) := t(ddindx).mon;
1535 a6(indx) := t(ddindx).tue;
1536 a7(indx) := t(ddindx).wed;
1537 a8(indx) := t(ddindx).thr;
1538 a9(indx) := t(ddindx).fri;
1539 a10(indx) := t(ddindx).sat;
1540 indx := indx+1;
1541 if t.last =ddindx
1542 then exit;
1543 end if;
1544 ddindx := t.next(ddindx);
1545 end loop;
1546 end if;
1547 end if;
1548 end rosetta_table_copy_out_p58;
1549
1550 procedure rosetta_table_copy_in_p60(t out nocopy oks_entitlements_web.pref_resource_tbl_type, a0 JTF_VARCHAR2_TABLE_100
1551 , a1 JTF_VARCHAR2_TABLE_400
1552 ) as
1553 ddindx binary_integer; indx binary_integer;
1554 begin
1555 if a0 is not null and a0.count > 0 then
1556 if a0.count > 0 then
1557 indx := a0.first;
1558 ddindx := 1;
1559 while true loop
1560 t(ddindx).resource_type := a0(indx);
1561 t(ddindx).name := a1(indx);
1562 ddindx := ddindx+1;
1563 if a0.last =indx
1564 then exit;
1565 end if;
1566 indx := a0.next(indx);
1567 end loop;
1568 end if;
1569 end if;
1570 end rosetta_table_copy_in_p60;
1571 procedure rosetta_table_copy_out_p60(t oks_entitlements_web.pref_resource_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
1572 , a1 out nocopy JTF_VARCHAR2_TABLE_400
1573 ) as
1574 ddindx binary_integer; indx binary_integer;
1575 begin
1576 if t is null or t.count = 0 then
1577 a0 := JTF_VARCHAR2_TABLE_100();
1578 a1 := JTF_VARCHAR2_TABLE_400();
1579 else
1580 a0 := JTF_VARCHAR2_TABLE_100();
1581 a1 := JTF_VARCHAR2_TABLE_400();
1582 if t.count > 0 then
1583 a0.extend(t.count);
1584 a1.extend(t.count);
1585 ddindx := t.first;
1586 indx := 1;
1587 while true loop
1588 a0(indx) := t(ddindx).resource_type;
1589 a1(indx) := t(ddindx).name;
1590 indx := indx+1;
1591 if t.last =ddindx
1592 then exit;
1593 end if;
1594 ddindx := t.next(ddindx);
1595 end loop;
1596 end if;
1597 end if;
1598 end rosetta_table_copy_out_p60;
1599
1600 procedure rosetta_table_copy_in_p62(t out nocopy oks_entitlements_web.bus_proc_bil_typ_tbl_type, a0 JTF_VARCHAR2_TABLE_500
1601 , a1 JTF_VARCHAR2_TABLE_500
1602 , a2 JTF_VARCHAR2_TABLE_500
1603 , a3 JTF_VARCHAR2_TABLE_500
1604 , a4 JTF_VARCHAR2_TABLE_100
1605 , a5 JTF_VARCHAR2_TABLE_500
1606 , a6 JTF_VARCHAR2_TABLE_500
1607 ) as
1608 ddindx binary_integer; indx binary_integer;
1609 begin
1610 if a0 is not null and a0.count > 0 then
1611 if a0.count > 0 then
1612 indx := a0.first;
1613 ddindx := 1;
1614 while true loop
1615 t(ddindx).bill_type := a0(indx);
1616 t(ddindx).max_amount := a1(indx);
1617 t(ddindx).per_covered := a2(indx);
1618 t(ddindx).billing_rate := a3(indx);
1619 t(ddindx).unit_of_measure := a4(indx);
1620 t(ddindx).flat_rate := a5(indx);
1621 t(ddindx).per_over_list_price := a6(indx);
1622 ddindx := ddindx+1;
1623 if a0.last =indx
1624 then exit;
1625 end if;
1626 indx := a0.next(indx);
1627 end loop;
1628 end if;
1629 end if;
1630 end rosetta_table_copy_in_p62;
1631 procedure rosetta_table_copy_out_p62(t oks_entitlements_web.bus_proc_bil_typ_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_500
1632 , a1 out nocopy JTF_VARCHAR2_TABLE_500
1633 , a2 out nocopy JTF_VARCHAR2_TABLE_500
1634 , a3 out nocopy JTF_VARCHAR2_TABLE_500
1635 , a4 out nocopy JTF_VARCHAR2_TABLE_100
1636 , a5 out nocopy JTF_VARCHAR2_TABLE_500
1637 , a6 out nocopy JTF_VARCHAR2_TABLE_500
1638 ) as
1639 ddindx binary_integer; indx binary_integer;
1640 begin
1641 if t is null or t.count = 0 then
1642 a0 := JTF_VARCHAR2_TABLE_500();
1643 a1 := JTF_VARCHAR2_TABLE_500();
1644 a2 := JTF_VARCHAR2_TABLE_500();
1645 a3 := JTF_VARCHAR2_TABLE_500();
1646 a4 := JTF_VARCHAR2_TABLE_100();
1647 a5 := JTF_VARCHAR2_TABLE_500();
1648 a6 := JTF_VARCHAR2_TABLE_500();
1649 else
1650 a0 := JTF_VARCHAR2_TABLE_500();
1651 a1 := JTF_VARCHAR2_TABLE_500();
1652 a2 := JTF_VARCHAR2_TABLE_500();
1653 a3 := JTF_VARCHAR2_TABLE_500();
1654 a4 := JTF_VARCHAR2_TABLE_100();
1655 a5 := JTF_VARCHAR2_TABLE_500();
1656 a6 := JTF_VARCHAR2_TABLE_500();
1657 if t.count > 0 then
1658 a0.extend(t.count);
1659 a1.extend(t.count);
1660 a2.extend(t.count);
1661 a3.extend(t.count);
1662 a4.extend(t.count);
1663 a5.extend(t.count);
1664 a6.extend(t.count);
1665 ddindx := t.first;
1666 indx := 1;
1667 while true loop
1668 a0(indx) := t(ddindx).bill_type;
1669 a1(indx) := t(ddindx).max_amount;
1670 a2(indx) := t(ddindx).per_covered;
1671 a3(indx) := t(ddindx).billing_rate;
1672 a4(indx) := t(ddindx).unit_of_measure;
1673 a5(indx) := t(ddindx).flat_rate;
1674 a6(indx) := t(ddindx).per_over_list_price;
1675 indx := indx+1;
1676 if t.last =ddindx
1677 then exit;
1678 end if;
1679 ddindx := t.next(ddindx);
1680 end loop;
1681 end if;
1682 end if;
1683 end rosetta_table_copy_out_p62;
1684
1685 procedure rosetta_table_copy_in_p65(t out nocopy oks_entitlements_web.covered_prods_tbl_type, a0 JTF_VARCHAR2_TABLE_500
1686 , a1 JTF_VARCHAR2_TABLE_500
1687 , a2 JTF_VARCHAR2_TABLE_2000
1688 , a3 JTF_VARCHAR2_TABLE_500
1689 , a4 JTF_VARCHAR2_TABLE_500
1690 , a5 JTF_VARCHAR2_TABLE_500
1691 , a6 JTF_VARCHAR2_TABLE_500
1692 , a7 JTF_VARCHAR2_TABLE_500
1693 , a8 JTF_VARCHAR2_TABLE_500
1694 , a9 JTF_VARCHAR2_TABLE_500
1695 , a10 JTF_VARCHAR2_TABLE_500
1696 , a11 JTF_VARCHAR2_TABLE_500
1697 , a12 JTF_VARCHAR2_TABLE_500
1698 , a13 JTF_VARCHAR2_TABLE_500
1699 , a14 JTF_VARCHAR2_TABLE_500
1700 , a15 JTF_VARCHAR2_TABLE_2000
1701 , a16 JTF_VARCHAR2_TABLE_2000
1702 ) as
1703 ddindx binary_integer; indx binary_integer;
1704 begin
1705 if a0 is not null and a0.count > 0 then
1706 if a0.count > 0 then
1707 indx := a0.first;
1708 ddindx := 1;
1709 while true loop
1710 t(ddindx).covered_prod_id := a0(indx);
1711 t(ddindx).covered_prod_line_number := a1(indx);
1712 t(ddindx).covered_prod_invoice_text := a2(indx);
1713 t(ddindx).covered_prod_line_ref := a3(indx);
1714 t(ddindx).covered_prod_rate_fixed := a4(indx);
1715 t(ddindx).covered_prod_rate_minimum := a5(indx);
1716 t(ddindx).covered_prod_rate_default := a6(indx);
1717 t(ddindx).covered_prod_uom := a7(indx);
1718 t(ddindx).covered_prod_period := a8(indx);
1719 t(ddindx).covered_prod_amcv := a9(indx);
1720 t(ddindx).covered_prod_level_yn := a10(indx);
1721 t(ddindx).covered_prod_reading := a11(indx);
1722 t(ddindx).covered_prod_net_reading := a12(indx);
1723 t(ddindx).covered_prod_price := a13(indx);
1724 t(ddindx).covered_prod_name := a14(indx);
1725 t(ddindx).covered_prod_description := a15(indx);
1726 t(ddindx).covered_prod_details := a16(indx);
1727 ddindx := ddindx+1;
1728 if a0.last =indx
1729 then exit;
1730 end if;
1731 indx := a0.next(indx);
1732 end loop;
1733 end if;
1734 end if;
1735 end rosetta_table_copy_in_p65;
1736 procedure rosetta_table_copy_out_p65(t oks_entitlements_web.covered_prods_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_500
1737 , a1 out nocopy JTF_VARCHAR2_TABLE_500
1738 , a2 out nocopy JTF_VARCHAR2_TABLE_2000
1739 , a3 out nocopy JTF_VARCHAR2_TABLE_500
1740 , a4 out nocopy JTF_VARCHAR2_TABLE_500
1741 , a5 out nocopy JTF_VARCHAR2_TABLE_500
1742 , a6 out nocopy JTF_VARCHAR2_TABLE_500
1743 , a7 out nocopy JTF_VARCHAR2_TABLE_500
1744 , a8 out nocopy JTF_VARCHAR2_TABLE_500
1745 , a9 out nocopy JTF_VARCHAR2_TABLE_500
1746 , a10 out nocopy JTF_VARCHAR2_TABLE_500
1747 , a11 out nocopy JTF_VARCHAR2_TABLE_500
1748 , a12 out nocopy JTF_VARCHAR2_TABLE_500
1749 , a13 out nocopy JTF_VARCHAR2_TABLE_500
1750 , a14 out nocopy JTF_VARCHAR2_TABLE_500
1751 , a15 out nocopy JTF_VARCHAR2_TABLE_2000
1752 , a16 out nocopy JTF_VARCHAR2_TABLE_2000
1753 ) as
1754 ddindx binary_integer; indx binary_integer;
1755 begin
1756 if t is null or t.count = 0 then
1757 a0 := JTF_VARCHAR2_TABLE_500();
1758 a1 := JTF_VARCHAR2_TABLE_500();
1759 a2 := JTF_VARCHAR2_TABLE_2000();
1760 a3 := JTF_VARCHAR2_TABLE_500();
1761 a4 := JTF_VARCHAR2_TABLE_500();
1762 a5 := JTF_VARCHAR2_TABLE_500();
1763 a6 := JTF_VARCHAR2_TABLE_500();
1764 a7 := JTF_VARCHAR2_TABLE_500();
1765 a8 := JTF_VARCHAR2_TABLE_500();
1766 a9 := JTF_VARCHAR2_TABLE_500();
1767 a10 := JTF_VARCHAR2_TABLE_500();
1768 a11 := JTF_VARCHAR2_TABLE_500();
1769 a12 := JTF_VARCHAR2_TABLE_500();
1770 a13 := JTF_VARCHAR2_TABLE_500();
1771 a14 := JTF_VARCHAR2_TABLE_500();
1772 a15 := JTF_VARCHAR2_TABLE_2000();
1773 a16 := JTF_VARCHAR2_TABLE_2000();
1774 else
1775 a0 := JTF_VARCHAR2_TABLE_500();
1776 a1 := JTF_VARCHAR2_TABLE_500();
1777 a2 := JTF_VARCHAR2_TABLE_2000();
1778 a3 := JTF_VARCHAR2_TABLE_500();
1779 a4 := JTF_VARCHAR2_TABLE_500();
1780 a5 := JTF_VARCHAR2_TABLE_500();
1781 a6 := JTF_VARCHAR2_TABLE_500();
1782 a7 := JTF_VARCHAR2_TABLE_500();
1783 a8 := JTF_VARCHAR2_TABLE_500();
1784 a9 := JTF_VARCHAR2_TABLE_500();
1785 a10 := JTF_VARCHAR2_TABLE_500();
1786 a11 := JTF_VARCHAR2_TABLE_500();
1787 a12 := JTF_VARCHAR2_TABLE_500();
1788 a13 := JTF_VARCHAR2_TABLE_500();
1789 a14 := JTF_VARCHAR2_TABLE_500();
1790 a15 := JTF_VARCHAR2_TABLE_2000();
1791 a16 := JTF_VARCHAR2_TABLE_2000();
1792 if t.count > 0 then
1793 a0.extend(t.count);
1794 a1.extend(t.count);
1795 a2.extend(t.count);
1796 a3.extend(t.count);
1797 a4.extend(t.count);
1798 a5.extend(t.count);
1799 a6.extend(t.count);
1800 a7.extend(t.count);
1801 a8.extend(t.count);
1802 a9.extend(t.count);
1803 a10.extend(t.count);
1804 a11.extend(t.count);
1805 a12.extend(t.count);
1806 a13.extend(t.count);
1807 a14.extend(t.count);
1808 a15.extend(t.count);
1809 a16.extend(t.count);
1810 ddindx := t.first;
1811 indx := 1;
1812 while true loop
1813 a0(indx) := t(ddindx).covered_prod_id;
1814 a1(indx) := t(ddindx).covered_prod_line_number;
1815 a2(indx) := t(ddindx).covered_prod_invoice_text;
1816 a3(indx) := t(ddindx).covered_prod_line_ref;
1817 a4(indx) := t(ddindx).covered_prod_rate_fixed;
1818 a5(indx) := t(ddindx).covered_prod_rate_minimum;
1819 a6(indx) := t(ddindx).covered_prod_rate_default;
1820 a7(indx) := t(ddindx).covered_prod_uom;
1821 a8(indx) := t(ddindx).covered_prod_period;
1822 a9(indx) := t(ddindx).covered_prod_amcv;
1823 a10(indx) := t(ddindx).covered_prod_level_yn;
1824 a11(indx) := t(ddindx).covered_prod_reading;
1825 a12(indx) := t(ddindx).covered_prod_net_reading;
1826 a13(indx) := t(ddindx).covered_prod_price;
1827 a14(indx) := t(ddindx).covered_prod_name;
1828 a15(indx) := t(ddindx).covered_prod_description;
1829 a16(indx) := t(ddindx).covered_prod_details;
1830 indx := indx+1;
1831 if t.last =ddindx
1832 then exit;
1833 end if;
1834 ddindx := t.next(ddindx);
1835 end loop;
1836 end if;
1837 end if;
1838 end rosetta_table_copy_out_p65;
1839
1840 procedure rosetta_table_copy_in_p67(t out nocopy oks_entitlements_web.counter_tbl_type, a0 JTF_VARCHAR2_TABLE_500
1841 , a1 JTF_VARCHAR2_TABLE_500
1842 , a2 JTF_VARCHAR2_TABLE_500
1843 , a3 JTF_VARCHAR2_TABLE_500
1844 , a4 JTF_VARCHAR2_TABLE_500
1845 ) as
1846 ddindx binary_integer; indx binary_integer;
1847 begin
1848 if a0 is not null and a0.count > 0 then
1849 if a0.count > 0 then
1850 indx := a0.first;
1851 ddindx := 1;
1852 while true loop
1853 t(ddindx).counter_type := a0(indx);
1854 t(ddindx).counter_uom_code := a1(indx);
1855 t(ddindx).counter_name := a2(indx);
1856 t(ddindx).counter_time_stamp := a3(indx);
1857 t(ddindx).counter_net_reading := a4(indx);
1858 ddindx := ddindx+1;
1859 if a0.last =indx
1860 then exit;
1861 end if;
1862 indx := a0.next(indx);
1863 end loop;
1864 end if;
1865 end if;
1866 end rosetta_table_copy_in_p67;
1867 procedure rosetta_table_copy_out_p67(t oks_entitlements_web.counter_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_500
1868 , a1 out nocopy JTF_VARCHAR2_TABLE_500
1869 , a2 out nocopy JTF_VARCHAR2_TABLE_500
1870 , a3 out nocopy JTF_VARCHAR2_TABLE_500
1871 , a4 out nocopy JTF_VARCHAR2_TABLE_500
1872 ) as
1873 ddindx binary_integer; indx binary_integer;
1874 begin
1875 if t is null or t.count = 0 then
1876 a0 := JTF_VARCHAR2_TABLE_500();
1877 a1 := JTF_VARCHAR2_TABLE_500();
1878 a2 := JTF_VARCHAR2_TABLE_500();
1879 a3 := JTF_VARCHAR2_TABLE_500();
1880 a4 := JTF_VARCHAR2_TABLE_500();
1881 else
1882 a0 := JTF_VARCHAR2_TABLE_500();
1883 a1 := JTF_VARCHAR2_TABLE_500();
1884 a2 := JTF_VARCHAR2_TABLE_500();
1885 a3 := JTF_VARCHAR2_TABLE_500();
1886 a4 := JTF_VARCHAR2_TABLE_500();
1887 if t.count > 0 then
1888 a0.extend(t.count);
1889 a1.extend(t.count);
1890 a2.extend(t.count);
1891 a3.extend(t.count);
1892 a4.extend(t.count);
1893 ddindx := t.first;
1894 indx := 1;
1895 while true loop
1896 a0(indx) := t(ddindx).counter_type;
1897 a1(indx) := t(ddindx).counter_uom_code;
1898 a2(indx) := t(ddindx).counter_name;
1899 a3(indx) := t(ddindx).counter_time_stamp;
1900 a4(indx) := t(ddindx).counter_net_reading;
1901 indx := indx+1;
1902 if t.last =ddindx
1903 then exit;
1904 end if;
1905 ddindx := t.next(ddindx);
1906 end loop;
1907 end if;
1908 end if;
1909 end rosetta_table_copy_out_p67;
1910
1911 procedure simple_srch_rslts(p_contract_party_id NUMBER
1912 , p_account_id VARCHAR2
1913 , x_return_status out nocopy VARCHAR2
1914 , x_msg_count out nocopy NUMBER
1915 , x_msg_data out nocopy VARCHAR2
1916 , p5_a0 out nocopy JTF_VARCHAR2_TABLE_200
1917 , p5_a1 out nocopy JTF_VARCHAR2_TABLE_200
1918 , p5_a2 out nocopy JTF_VARCHAR2_TABLE_100
1919 , p5_a3 out nocopy JTF_VARCHAR2_TABLE_100
1920 , p5_a4 out nocopy JTF_VARCHAR2_TABLE_100
1921 , p5_a5 out nocopy JTF_VARCHAR2_TABLE_100
1922 , p5_a6 out nocopy JTF_VARCHAR2_TABLE_300
1923 , p5_a7 out nocopy JTF_VARCHAR2_TABLE_2000
1924 , p5_a8 out nocopy JTF_DATE_TABLE
1925 , p5_a9 out nocopy JTF_DATE_TABLE
1926 , p5_a10 out nocopy JTF_DATE_TABLE
1927 , p5_a11 out nocopy JTF_NUMBER_TABLE
1928 , p5_a12 out nocopy JTF_VARCHAR2_TABLE_100
1929 )
1930
1931 as
1932 ddx_contract_tbl oks_entitlements_web.output_tbl_contract;
1933 ddindx binary_integer; indx binary_integer;
1934 begin
1935
1936 -- copy data to the local IN or IN-OUT args, if any
1937
1938
1939
1940
1941
1942
1943 -- here's the delegated call to the old PL/SQL routine
1944 oks_entitlements_web.simple_srch_rslts(p_contract_party_id,
1945 p_account_id,
1946 x_return_status,
1947 x_msg_count,
1948 x_msg_data,
1949 ddx_contract_tbl);
1950
1951 -- copy data back from the local variables to OUT or IN-OUT args, if any
1952
1953
1954
1955
1956
1957 oks_entitlements_web_w.rosetta_table_copy_out_p19(ddx_contract_tbl, p5_a0
1958 , p5_a1
1959 , p5_a2
1960 , p5_a3
1961 , p5_a4
1962 , p5_a5
1963 , p5_a6
1964 , p5_a7
1965 , p5_a8
1966 , p5_a9
1967 , p5_a10
1968 , p5_a11
1969 , p5_a12
1970 );
1971 end;
1972
1973 procedure cntrct_srch_rslts(p_contract_number VARCHAR2
1974 , p_contract_status_code VARCHAR2
1975 , p_start_date_from date
1976 , p_start_date_to date
1977 , p_end_date_from date
1978 , p_end_date_to date
1979 , p_date_terminated_from date
1980 , p_date_terminated_to date
1981 , p_contract_party_id NUMBER
1982 , p_covlvl_site_id NUMBER
1983 , p_covlvl_site_name VARCHAR2
1984 , p_covlvl_system_id NUMBER
1985 , p_covlvl_system_name VARCHAR2
1986 , p_covlvl_product_id NUMBER
1987 , p_covlvl_product_name VARCHAR2
1988 , p_covlvl_item_id NUMBER
1989 , p_covlvl_item_name VARCHAR2
1990 , p_entitlement_check_yn VARCHAR2
1991 , p_account_check_all VARCHAR2
1992 , p_account_id VARCHAR2
1993 , p_covlvl_party_id VARCHAR2
1994 , p21_a0 JTF_NUMBER_TABLE
1995 , x_return_status out nocopy VARCHAR2
1996 , x_msg_count out nocopy NUMBER
1997 , x_msg_data out nocopy VARCHAR2
1998 , p25_a0 out nocopy JTF_VARCHAR2_TABLE_200
1999 , p25_a1 out nocopy JTF_VARCHAR2_TABLE_200
2000 , p25_a2 out nocopy JTF_VARCHAR2_TABLE_100
2001 , p25_a3 out nocopy JTF_VARCHAR2_TABLE_100
2002 , p25_a4 out nocopy JTF_VARCHAR2_TABLE_100
2003 , p25_a5 out nocopy JTF_VARCHAR2_TABLE_100
2004 , p25_a6 out nocopy JTF_VARCHAR2_TABLE_300
2005 , p25_a7 out nocopy JTF_VARCHAR2_TABLE_2000
2006 , p25_a8 out nocopy JTF_DATE_TABLE
2007 , p25_a9 out nocopy JTF_DATE_TABLE
2008 , p25_a10 out nocopy JTF_DATE_TABLE
2009 , p25_a11 out nocopy JTF_NUMBER_TABLE
2010 , p25_a12 out nocopy JTF_VARCHAR2_TABLE_100
2011 )
2012
2013 as
2014 ddp_start_date_from date;
2015 ddp_start_date_to date;
2016 ddp_end_date_from date;
2017 ddp_end_date_to date;
2018 ddp_date_terminated_from date;
2019 ddp_date_terminated_to date;
2020 ddp_account_all_id oks_entitlements_web.account_all_id_tbl_type;
2021 ddx_contract_tbl oks_entitlements_web.output_tbl_contract;
2022 ddindx binary_integer; indx binary_integer;
2023 begin
2024
2025 -- copy data to the local IN or IN-OUT args, if any
2026
2027
2028 ddp_start_date_from := rosetta_g_miss_date_in_map(p_start_date_from);
2029
2030 ddp_start_date_to := rosetta_g_miss_date_in_map(p_start_date_to);
2031
2032 ddp_end_date_from := rosetta_g_miss_date_in_map(p_end_date_from);
2033
2034 ddp_end_date_to := rosetta_g_miss_date_in_map(p_end_date_to);
2035
2036 ddp_date_terminated_from := rosetta_g_miss_date_in_map(p_date_terminated_from);
2037
2038 ddp_date_terminated_to := rosetta_g_miss_date_in_map(p_date_terminated_to);
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053 oks_entitlements_web_w.rosetta_table_copy_in_p21(ddp_account_all_id, p21_a0
2054 );
2055
2056
2057
2058
2059
2060 -- here's the delegated call to the old PL/SQL routine
2061 oks_entitlements_web.cntrct_srch_rslts(p_contract_number,
2062 p_contract_status_code,
2063 ddp_start_date_from,
2064 ddp_start_date_to,
2065 ddp_end_date_from,
2066 ddp_end_date_to,
2067 ddp_date_terminated_from,
2068 ddp_date_terminated_to,
2069 p_contract_party_id,
2070 p_covlvl_site_id,
2071 p_covlvl_site_name,
2072 p_covlvl_system_id,
2073 p_covlvl_system_name,
2074 p_covlvl_product_id,
2075 p_covlvl_product_name,
2076 p_covlvl_item_id,
2077 p_covlvl_item_name,
2078 p_entitlement_check_yn,
2079 p_account_check_all,
2080 p_account_id,
2081 p_covlvl_party_id,
2082 ddp_account_all_id,
2083 x_return_status,
2084 x_msg_count,
2085 x_msg_data,
2086 ddx_contract_tbl);
2087
2088 -- copy data back from the local variables to OUT or IN-OUT args, if any
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114 oks_entitlements_web_w.rosetta_table_copy_out_p19(ddx_contract_tbl, p25_a0
2115 , p25_a1
2116 , p25_a2
2117 , p25_a3
2118 , p25_a4
2119 , p25_a5
2120 , p25_a6
2121 , p25_a7
2122 , p25_a8
2123 , p25_a9
2124 , p25_a10
2125 , p25_a11
2126 , p25_a12
2127 );
2128 end;
2129
2130 procedure party_sites(p_party_id_arg VARCHAR2
2131 , p_site_name_arg VARCHAR2
2132 , x_return_status out nocopy VARCHAR2
2133 , p3_a0 out nocopy JTF_NUMBER_TABLE
2134 , p3_a1 out nocopy JTF_VARCHAR2_TABLE_100
2135 , p3_a2 out nocopy JTF_VARCHAR2_TABLE_300
2136 , p3_a3 out nocopy JTF_VARCHAR2_TABLE_300
2137 )
2138
2139 as
2140 ddx_party_sites_tbl_type oks_entitlements_web.party_sites_tbl_type;
2141 ddindx binary_integer; indx binary_integer;
2142 begin
2143
2144 -- copy data to the local IN or IN-OUT args, if any
2145
2146
2147
2148
2149 -- here's the delegated call to the old PL/SQL routine
2150 oks_entitlements_web.party_sites(p_party_id_arg,
2151 p_site_name_arg,
2152 x_return_status,
2153 ddx_party_sites_tbl_type);
2154
2155 -- copy data back from the local variables to OUT or IN-OUT args, if any
2156
2157
2158
2159 oks_entitlements_web_w.rosetta_table_copy_out_p23(ddx_party_sites_tbl_type, p3_a0
2160 , p3_a1
2161 , p3_a2
2162 , p3_a3
2163 );
2164 end;
2165
2166 function duration_period(p_start_date date
2167 , p_end_date date
2168 ) return number
2169
2170 as
2171 ddp_start_date date;
2172 ddp_end_date date;
2173 ddindx binary_integer; indx binary_integer;
2174 ddrosetta_retval number;
2175 begin
2176
2177 -- copy data to the local IN or IN-OUT args, if any
2178 ddp_start_date := rosetta_g_miss_date_in_map(p_start_date);
2179
2180 ddp_end_date := rosetta_g_miss_date_in_map(p_end_date);
2181
2182 -- here's the delegated call to the old PL/SQL routine
2183 ddrosetta_retval := oks_entitlements_web.duration_period(ddp_start_date,
2184 ddp_end_date);
2185
2186 -- copy data back from the local variables to OUT or IN-OUT args, if any
2187
2188
2189 return ddrosetta_retval;
2190 end;
2191
2192 function duration_unit(p_start_date date
2193 , p_end_date date
2194 ) return varchar2
2195
2196 as
2197 ddp_start_date date;
2198 ddp_end_date date;
2199 ddindx binary_integer; indx binary_integer;
2200 ddrosetta_retval varchar2(4000);
2201 begin
2202
2203 -- copy data to the local IN or IN-OUT args, if any
2204 ddp_start_date := rosetta_g_miss_date_in_map(p_start_date);
2205
2206 ddp_end_date := rosetta_g_miss_date_in_map(p_end_date);
2207
2208 -- here's the delegated call to the old PL/SQL routine
2209 ddrosetta_retval := oks_entitlements_web.duration_unit(ddp_start_date,
2210 ddp_end_date);
2211
2212 -- copy data back from the local variables to OUT or IN-OUT args, if any
2213
2214
2215 return ddrosetta_retval;
2216 end;
2217
2218 procedure party_items(p_party_id_arg VARCHAR2
2219 , p_item_name_arg VARCHAR2
2220 , x_return_status out nocopy VARCHAR2
2221 , p3_a0 out nocopy JTF_NUMBER_TABLE
2222 , p3_a1 out nocopy JTF_NUMBER_TABLE
2223 , p3_a2 out nocopy JTF_VARCHAR2_TABLE_300
2224 , p3_a3 out nocopy JTF_VARCHAR2_TABLE_300
2225 )
2226
2227 as
2228 ddx_party_items_tbl_type oks_entitlements_web.party_items_tbl_type;
2229 ddindx binary_integer; indx binary_integer;
2230 begin
2231
2232 -- copy data to the local IN or IN-OUT args, if any
2233
2234
2235
2236
2237 -- here's the delegated call to the old PL/SQL routine
2238 oks_entitlements_web.party_items(p_party_id_arg,
2239 p_item_name_arg,
2240 x_return_status,
2241 ddx_party_items_tbl_type);
2242
2243 -- copy data back from the local variables to OUT or IN-OUT args, if any
2244
2245
2246
2247 oks_entitlements_web_w.rosetta_table_copy_out_p25(ddx_party_items_tbl_type, p3_a0
2248 , p3_a1
2249 , p3_a2
2250 , p3_a3
2251 );
2252 end;
2253
2254 procedure party_systems(p_party_id_arg VARCHAR2
2255 , p1_a0 JTF_NUMBER_TABLE
2256 , p_system_name_arg VARCHAR2
2257 , x_return_status out nocopy VARCHAR2
2258 , p4_a0 out nocopy JTF_NUMBER_TABLE
2259 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_100
2260 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_300
2261 , p4_a3 out nocopy JTF_VARCHAR2_TABLE_300
2262 )
2263
2264 as
2265 ddp_account_id_all oks_entitlements_web.account_all_id_tbl_type;
2266 ddx_party_systems_tbl_type oks_entitlements_web.party_systems_tbl_type;
2267 ddindx binary_integer; indx binary_integer;
2268 begin
2269
2270 -- copy data to the local IN or IN-OUT args, if any
2271
2272 oks_entitlements_web_w.rosetta_table_copy_in_p21(ddp_account_id_all, p1_a0
2273 );
2274
2275
2276
2277
2278 -- here's the delegated call to the old PL/SQL routine
2279 oks_entitlements_web.party_systems(p_party_id_arg,
2280 ddp_account_id_all,
2281 p_system_name_arg,
2282 x_return_status,
2283 ddx_party_systems_tbl_type);
2284
2285 -- copy data back from the local variables to OUT or IN-OUT args, if any
2286
2287
2288
2289
2290 oks_entitlements_web_w.rosetta_table_copy_out_p27(ddx_party_systems_tbl_type, p4_a0
2291 , p4_a1
2292 , p4_a2
2293 , p4_a3
2294 );
2295 end;
2296
2297 procedure party_products(p_party_id_arg VARCHAR2
2298 , p1_a0 JTF_NUMBER_TABLE
2299 , p_product_name_arg VARCHAR2
2300 , x_return_status out nocopy VARCHAR2
2301 , p4_a0 out nocopy JTF_NUMBER_TABLE
2302 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_100
2303 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_300
2304 , p4_a3 out nocopy JTF_VARCHAR2_TABLE_300
2305 )
2306
2307 as
2308 ddp_account_id_all oks_entitlements_web.account_all_id_tbl_type;
2309 ddx_party_products_tbl_type oks_entitlements_web.party_products_tbl_type;
2310 ddindx binary_integer; indx binary_integer;
2311 begin
2312
2313 -- copy data to the local IN or IN-OUT args, if any
2314
2315 oks_entitlements_web_w.rosetta_table_copy_in_p21(ddp_account_id_all, p1_a0
2316 );
2317
2318
2319
2320
2321 -- here's the delegated call to the old PL/SQL routine
2322 oks_entitlements_web.party_products(p_party_id_arg,
2323 ddp_account_id_all,
2324 p_product_name_arg,
2325 x_return_status,
2326 ddx_party_products_tbl_type);
2327
2328 -- copy data back from the local variables to OUT or IN-OUT args, if any
2329
2330
2331
2332
2333 oks_entitlements_web_w.rosetta_table_copy_out_p29(ddx_party_products_tbl_type, p4_a0
2334 , p4_a1
2335 , p4_a2
2336 , p4_a3
2337 );
2338 end;
2339
2340 procedure adv_search_overview(p_party_id_arg VARCHAR2
2341 , x_return_status out nocopy VARCHAR2
2342 , x_party_name out nocopy VARCHAR2
2343 , p3_a0 out nocopy JTF_VARCHAR2_TABLE_100
2344 , p3_a1 out nocopy JTF_VARCHAR2_TABLE_100
2345 , p4_a0 out nocopy JTF_VARCHAR2_TABLE_100
2346 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_100
2347 )
2348
2349 as
2350 ddx_contract_cat_tbl_type oks_entitlements_web.contract_cat_tbl_type;
2351 ddx_contract_status_tbl_type oks_entitlements_web.contract_status_tbl_type;
2352 ddindx binary_integer; indx binary_integer;
2353 begin
2354
2355 -- copy data to the local IN or IN-OUT args, if any
2356
2357
2358
2359
2360
2361 -- here's the delegated call to the old PL/SQL routine
2362 oks_entitlements_web.adv_search_overview(p_party_id_arg,
2363 x_return_status,
2364 x_party_name,
2365 ddx_contract_cat_tbl_type,
2366 ddx_contract_status_tbl_type);
2367
2368 -- copy data back from the local variables to OUT or IN-OUT args, if any
2369
2370
2371
2372 oks_entitlements_web_w.rosetta_table_copy_out_p31(ddx_contract_cat_tbl_type, p3_a0
2373 , p3_a1
2374 );
2375
2376 oks_entitlements_web_w.rosetta_table_copy_out_p33(ddx_contract_status_tbl_type, p4_a0
2377 , p4_a1
2378 );
2379 end;
2380
2381 procedure contract_number_overview(p_contract_number_arg VARCHAR2
2382 , p_contract_modifier_arg VARCHAR2
2383 , x_return_status out nocopy VARCHAR2
2384 , p3_a0 out nocopy NUMBER
2385 , p3_a1 out nocopy VARCHAR2
2386 , p3_a2 out nocopy VARCHAR2
2387 , p3_a3 out nocopy VARCHAR2
2388 , p3_a4 out nocopy VARCHAR2
2389 , p3_a5 out nocopy VARCHAR2
2390 , p3_a6 out nocopy NUMBER
2391 , p3_a7 out nocopy VARCHAR2
2392 , p3_a8 out nocopy VARCHAR2
2393 , p3_a9 out nocopy VARCHAR2
2394 , p3_a10 out nocopy VARCHAR2
2395 , p3_a11 out nocopy VARCHAR2
2396 , p3_a12 out nocopy NUMBER
2397 , p3_a13 out nocopy DATE
2398 , p3_a14 out nocopy DATE
2399 , p3_a15 out nocopy NUMBER
2400 , p3_a16 out nocopy VARCHAR2
2401 , p4_a0 out nocopy NUMBER
2402 , p4_a1 out nocopy VARCHAR2
2403 , p4_a2 out nocopy VARCHAR2
2404 , p4_a3 out nocopy VARCHAR2
2405 , p4_a4 out nocopy VARCHAR2
2406 , p4_a5 out nocopy VARCHAR2
2407 , p4_a6 out nocopy VARCHAR2
2408 , p4_a7 out nocopy VARCHAR2
2409 , p4_a8 out nocopy VARCHAR2
2410 , p4_a9 out nocopy VARCHAR2
2411 , p4_a10 out nocopy VARCHAR2
2412 , p5_a0 out nocopy JTF_NUMBER_TABLE
2413 , p5_a1 out nocopy JTF_VARCHAR2_TABLE_100
2414 , p5_a2 out nocopy JTF_VARCHAR2_TABLE_100
2415 , p5_a3 out nocopy JTF_VARCHAR2_TABLE_400
2416 , p5_a4 out nocopy JTF_VARCHAR2_TABLE_100
2417 , p5_a5 out nocopy JTF_VARCHAR2_TABLE_100
2418 , p5_a6 out nocopy JTF_VARCHAR2_TABLE_100
2419 , p6_a0 out nocopy JTF_NUMBER_TABLE
2420 , p6_a1 out nocopy JTF_NUMBER_TABLE
2421 , p6_a2 out nocopy JTF_DATE_TABLE
2422 , p6_a3 out nocopy JTF_DATE_TABLE
2423 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
2424 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
2425 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_200
2426 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_300
2427 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
2428 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
2429 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_2000
2430 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_400
2431 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_400
2432 , p6_a13 out nocopy JTF_NUMBER_TABLE
2433 , p6_a14 out nocopy JTF_NUMBER_TABLE
2434 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_200
2435 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
2436 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_400
2437 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_300
2438 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
2439 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
2440 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_400
2441 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_300
2442 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_100
2443 )
2444
2445 as
2446 ddx_hdr_rec_type oks_entitlements_web.hdr_rec_type;
2447 ddx_hdr_addr_rec_type oks_entitlements_web.hdr_addr_rec_type;
2448 ddx_party_tbl_type oks_entitlements_web.party_tbl_type;
2449 ddx_line_tbl_type oks_entitlements_web.line_tbl_type;
2450 ddindx binary_integer; indx binary_integer;
2451 begin
2452
2453 -- copy data to the local IN or IN-OUT args, if any
2454
2455
2456
2457
2458
2459
2460
2461 -- here's the delegated call to the old PL/SQL routine
2462 oks_entitlements_web.contract_number_overview(p_contract_number_arg,
2463 p_contract_modifier_arg,
2464 x_return_status,
2465 ddx_hdr_rec_type,
2466 ddx_hdr_addr_rec_type,
2467 ddx_party_tbl_type,
2468 ddx_line_tbl_type);
2469
2470 -- copy data back from the local variables to OUT or IN-OUT args, if any
2471
2472
2473
2474 p3_a0 := ddx_hdr_rec_type.header_id;
2475 p3_a1 := ddx_hdr_rec_type.contract_number;
2476 p3_a2 := ddx_hdr_rec_type.modifier;
2477 p3_a3 := ddx_hdr_rec_type.version;
2478 p3_a4 := ddx_hdr_rec_type.known_as;
2479 p3_a5 := ddx_hdr_rec_type.short_description;
2480 p3_a6 := ddx_hdr_rec_type.contract_amount;
2481 p3_a7 := ddx_hdr_rec_type.currency_code;
2482 p3_a8 := ddx_hdr_rec_type.sts_code;
2483 p3_a9 := ddx_hdr_rec_type.status;
2484 p3_a10 := ddx_hdr_rec_type.scs_code;
2485 p3_a11 := ddx_hdr_rec_type.scs_category;
2486 p3_a12 := ddx_hdr_rec_type.order_number;
2487 p3_a13 := ddx_hdr_rec_type.start_date;
2488 p3_a14 := ddx_hdr_rec_type.end_date;
2489 p3_a15 := ddx_hdr_rec_type.duration;
2490 p3_a16 := ddx_hdr_rec_type.period_code;
2491
2492 p4_a0 := ddx_hdr_addr_rec_type.header_id;
2493 p4_a1 := ddx_hdr_addr_rec_type.bill_to_customer;
2494 p4_a2 := ddx_hdr_addr_rec_type.bill_to_site;
2495 p4_a3 := ddx_hdr_addr_rec_type.bill_to_address;
2496 p4_a4 := ddx_hdr_addr_rec_type.bill_to_city_state_zip;
2497 p4_a5 := ddx_hdr_addr_rec_type.bill_to_country;
2498 p4_a6 := ddx_hdr_addr_rec_type.ship_to_customer;
2499 p4_a7 := ddx_hdr_addr_rec_type.ship_to_site;
2500 p4_a8 := ddx_hdr_addr_rec_type.ship_to_address;
2501 p4_a9 := ddx_hdr_addr_rec_type.ship_to_city_state_zip;
2502 p4_a10 := ddx_hdr_addr_rec_type.ship_to_country;
2503
2504 oks_entitlements_web_w.rosetta_table_copy_out_p37(ddx_party_tbl_type, p5_a0
2505 , p5_a1
2506 , p5_a2
2507 , p5_a3
2508 , p5_a4
2509 , p5_a5
2510 , p5_a6
2511 );
2512
2513 oks_entitlements_web_w.rosetta_table_copy_out_p39(ddx_line_tbl_type, p6_a0
2514 , p6_a1
2515 , p6_a2
2516 , p6_a3
2517 , p6_a4
2518 , p6_a5
2519 , p6_a6
2520 , p6_a7
2521 , p6_a8
2522 , p6_a9
2523 , p6_a10
2524 , p6_a11
2525 , p6_a12
2526 , p6_a13
2527 , p6_a14
2528 , p6_a15
2529 , p6_a16
2530 , p6_a17
2531 , p6_a18
2532 , p6_a19
2533 , p6_a20
2534 , p6_a21
2535 , p6_a22
2536 , p6_a23
2537 );
2538 end;
2539
2540 procedure contract_overview(p_contract_id_arg VARCHAR2
2541 , x_return_status out nocopy VARCHAR2
2542 , p2_a0 out nocopy NUMBER
2543 , p2_a1 out nocopy VARCHAR2
2544 , p2_a2 out nocopy VARCHAR2
2545 , p2_a3 out nocopy VARCHAR2
2546 , p2_a4 out nocopy VARCHAR2
2547 , p2_a5 out nocopy VARCHAR2
2548 , p2_a6 out nocopy NUMBER
2549 , p2_a7 out nocopy VARCHAR2
2550 , p2_a8 out nocopy VARCHAR2
2551 , p2_a9 out nocopy VARCHAR2
2552 , p2_a10 out nocopy VARCHAR2
2553 , p2_a11 out nocopy VARCHAR2
2554 , p2_a12 out nocopy NUMBER
2555 , p2_a13 out nocopy DATE
2556 , p2_a14 out nocopy DATE
2557 , p2_a15 out nocopy NUMBER
2558 , p2_a16 out nocopy VARCHAR2
2559 , p3_a0 out nocopy NUMBER
2560 , p3_a1 out nocopy VARCHAR2
2561 , p3_a2 out nocopy VARCHAR2
2562 , p3_a3 out nocopy VARCHAR2
2563 , p3_a4 out nocopy VARCHAR2
2564 , p3_a5 out nocopy VARCHAR2
2565 , p3_a6 out nocopy VARCHAR2
2566 , p3_a7 out nocopy VARCHAR2
2567 , p3_a8 out nocopy VARCHAR2
2568 , p3_a9 out nocopy VARCHAR2
2569 , p3_a10 out nocopy VARCHAR2
2570 , p4_a0 out nocopy JTF_NUMBER_TABLE
2571 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_100
2572 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_100
2573 , p4_a3 out nocopy JTF_VARCHAR2_TABLE_400
2574 , p4_a4 out nocopy JTF_VARCHAR2_TABLE_100
2575 , p4_a5 out nocopy JTF_VARCHAR2_TABLE_100
2576 , p4_a6 out nocopy JTF_VARCHAR2_TABLE_100
2577 , p5_a0 out nocopy JTF_NUMBER_TABLE
2578 , p5_a1 out nocopy JTF_NUMBER_TABLE
2579 , p5_a2 out nocopy JTF_DATE_TABLE
2580 , p5_a3 out nocopy JTF_DATE_TABLE
2581 , p5_a4 out nocopy JTF_VARCHAR2_TABLE_100
2582 , p5_a5 out nocopy JTF_VARCHAR2_TABLE_100
2583 , p5_a6 out nocopy JTF_VARCHAR2_TABLE_200
2584 , p5_a7 out nocopy JTF_VARCHAR2_TABLE_300
2585 , p5_a8 out nocopy JTF_VARCHAR2_TABLE_500
2586 , p5_a9 out nocopy JTF_VARCHAR2_TABLE_500
2587 , p5_a10 out nocopy JTF_VARCHAR2_TABLE_2000
2588 , p5_a11 out nocopy JTF_VARCHAR2_TABLE_400
2589 , p5_a12 out nocopy JTF_VARCHAR2_TABLE_400
2590 , p5_a13 out nocopy JTF_NUMBER_TABLE
2591 , p5_a14 out nocopy JTF_NUMBER_TABLE
2592 , p5_a15 out nocopy JTF_VARCHAR2_TABLE_200
2593 , p5_a16 out nocopy JTF_VARCHAR2_TABLE_100
2594 , p5_a17 out nocopy JTF_VARCHAR2_TABLE_400
2595 , p5_a18 out nocopy JTF_VARCHAR2_TABLE_300
2596 , p5_a19 out nocopy JTF_VARCHAR2_TABLE_100
2597 , p5_a20 out nocopy JTF_VARCHAR2_TABLE_100
2598 , p5_a21 out nocopy JTF_VARCHAR2_TABLE_400
2599 , p5_a22 out nocopy JTF_VARCHAR2_TABLE_300
2600 , p5_a23 out nocopy JTF_VARCHAR2_TABLE_100
2601 )
2602
2603 as
2604 ddx_hdr_rec_type oks_entitlements_web.hdr_rec_type;
2605 ddx_hdr_addr_rec_type oks_entitlements_web.hdr_addr_rec_type;
2606 ddx_party_tbl_type oks_entitlements_web.party_tbl_type;
2607 ddx_line_tbl_type oks_entitlements_web.line_tbl_type;
2608 ddindx binary_integer; indx binary_integer;
2609 begin
2610
2611 -- copy data to the local IN or IN-OUT args, if any
2612
2613
2614
2615
2616
2617
2618 -- here's the delegated call to the old PL/SQL routine
2619 oks_entitlements_web.contract_overview(p_contract_id_arg,
2620 x_return_status,
2621 ddx_hdr_rec_type,
2622 ddx_hdr_addr_rec_type,
2623 ddx_party_tbl_type,
2624 ddx_line_tbl_type);
2625
2626 -- copy data back from the local variables to OUT or IN-OUT args, if any
2627
2628
2629 p2_a0 := ddx_hdr_rec_type.header_id;
2630 p2_a1 := ddx_hdr_rec_type.contract_number;
2631 p2_a2 := ddx_hdr_rec_type.modifier;
2632 p2_a3 := ddx_hdr_rec_type.version;
2633 p2_a4 := ddx_hdr_rec_type.known_as;
2634 p2_a5 := ddx_hdr_rec_type.short_description;
2635 p2_a6 := ddx_hdr_rec_type.contract_amount;
2636 p2_a7 := ddx_hdr_rec_type.currency_code;
2637 p2_a8 := ddx_hdr_rec_type.sts_code;
2638 p2_a9 := ddx_hdr_rec_type.status;
2639 p2_a10 := ddx_hdr_rec_type.scs_code;
2640 p2_a11 := ddx_hdr_rec_type.scs_category;
2641 p2_a12 := ddx_hdr_rec_type.order_number;
2642 p2_a13 := ddx_hdr_rec_type.start_date;
2643 p2_a14 := ddx_hdr_rec_type.end_date;
2644 p2_a15 := ddx_hdr_rec_type.duration;
2645 p2_a16 := ddx_hdr_rec_type.period_code;
2646
2647 p3_a0 := ddx_hdr_addr_rec_type.header_id;
2648 p3_a1 := ddx_hdr_addr_rec_type.bill_to_customer;
2649 p3_a2 := ddx_hdr_addr_rec_type.bill_to_site;
2650 p3_a3 := ddx_hdr_addr_rec_type.bill_to_address;
2651 p3_a4 := ddx_hdr_addr_rec_type.bill_to_city_state_zip;
2652 p3_a5 := ddx_hdr_addr_rec_type.bill_to_country;
2653 p3_a6 := ddx_hdr_addr_rec_type.ship_to_customer;
2654 p3_a7 := ddx_hdr_addr_rec_type.ship_to_site;
2655 p3_a8 := ddx_hdr_addr_rec_type.ship_to_address;
2656 p3_a9 := ddx_hdr_addr_rec_type.ship_to_city_state_zip;
2657 p3_a10 := ddx_hdr_addr_rec_type.ship_to_country;
2658
2659 oks_entitlements_web_w.rosetta_table_copy_out_p37(ddx_party_tbl_type, p4_a0
2660 , p4_a1
2661 , p4_a2
2662 , p4_a3
2663 , p4_a4
2664 , p4_a5
2665 , p4_a6
2666 );
2667
2668 oks_entitlements_web_w.rosetta_table_copy_out_p39(ddx_line_tbl_type, p5_a0
2669 , p5_a1
2670 , p5_a2
2671 , p5_a3
2672 , p5_a4
2673 , p5_a5
2674 , p5_a6
2675 , p5_a7
2676 , p5_a8
2677 , p5_a9
2678 , p5_a10
2679 , p5_a11
2680 , p5_a12
2681 , p5_a13
2682 , p5_a14
2683 , p5_a15
2684 , p5_a16
2685 , p5_a17
2686 , p5_a18
2687 , p5_a19
2688 , p5_a20
2689 , p5_a21
2690 , p5_a22
2691 , p5_a23
2692 );
2693 end;
2694
2695 procedure party_overview(p_contract_id_arg VARCHAR2
2696 , p_party_rle_code_arg VARCHAR2
2697 , x_return_status out nocopy VARCHAR2
2698 , p3_a0 out nocopy JTF_NUMBER_TABLE
2699 , p3_a1 out nocopy JTF_VARCHAR2_TABLE_100
2700 , p3_a2 out nocopy JTF_VARCHAR2_TABLE_100
2701 , p3_a3 out nocopy JTF_VARCHAR2_TABLE_100
2702 , p3_a4 out nocopy JTF_DATE_TABLE
2703 , p3_a5 out nocopy JTF_DATE_TABLE
2704 , p3_a6 out nocopy JTF_VARCHAR2_TABLE_400
2705 , p3_a7 out nocopy JTF_VARCHAR2_TABLE_100
2706 , p3_a8 out nocopy JTF_VARCHAR2_TABLE_100
2707 )
2708
2709 as
2710 ddx_party_contact_tbl_type oks_entitlements_web.party_contact_tbl_type;
2711 ddindx binary_integer; indx binary_integer;
2712 begin
2713
2714 -- copy data to the local IN or IN-OUT args, if any
2715
2716
2717
2718
2719 -- here's the delegated call to the old PL/SQL routine
2720 oks_entitlements_web.party_overview(p_contract_id_arg,
2721 p_party_rle_code_arg,
2722 x_return_status,
2723 ddx_party_contact_tbl_type);
2724
2725 -- copy data back from the local variables to OUT or IN-OUT args, if any
2726
2727
2728
2729 oks_entitlements_web_w.rosetta_table_copy_out_p41(ddx_party_contact_tbl_type, p3_a0
2730 , p3_a1
2731 , p3_a2
2732 , p3_a3
2733 , p3_a4
2734 , p3_a5
2735 , p3_a6
2736 , p3_a7
2737 , p3_a8
2738 );
2739 end;
2740
2741 procedure party_contacts_overview(p_contact_id_arg VARCHAR2
2742 , x_return_status out nocopy VARCHAR2
2743 , p2_a0 out nocopy JTF_VARCHAR2_TABLE_100
2744 , p2_a1 out nocopy JTF_VARCHAR2_TABLE_100
2745 , p2_a2 out nocopy JTF_VARCHAR2_TABLE_2000
2746 , p2_a3 out nocopy JTF_VARCHAR2_TABLE_100
2747 , p2_a4 out nocopy JTF_VARCHAR2_TABLE_100
2748 , p2_a5 out nocopy JTF_VARCHAR2_TABLE_100
2749 , p2_a6 out nocopy JTF_VARCHAR2_TABLE_100
2750 , p2_a7 out nocopy JTF_VARCHAR2_TABLE_100
2751 )
2752
2753 as
2754 ddx_pty_cntct_dtls_tbl_type oks_entitlements_web.pty_cntct_dtls_tbl_type;
2755 ddindx binary_integer; indx binary_integer;
2756 begin
2757
2758 -- copy data to the local IN or IN-OUT args, if any
2759
2760
2761
2762 -- here's the delegated call to the old PL/SQL routine
2763 oks_entitlements_web.party_contacts_overview(p_contact_id_arg,
2764 x_return_status,
2765 ddx_pty_cntct_dtls_tbl_type);
2766
2767 -- copy data back from the local variables to OUT or IN-OUT args, if any
2768
2769
2770 oks_entitlements_web_w.rosetta_table_copy_out_p43(ddx_pty_cntct_dtls_tbl_type, p2_a0
2771 , p2_a1
2772 , p2_a2
2773 , p2_a3
2774 , p2_a4
2775 , p2_a5
2776 , p2_a6
2777 , p2_a7
2778 );
2779 end;
2780
2781 procedure line_overview(p_line_id_arg VARCHAR2
2782 , x_return_status out nocopy VARCHAR2
2783 , p2_a0 out nocopy VARCHAR2
2784 , p2_a1 out nocopy NUMBER
2785 , p2_a2 out nocopy VARCHAR2
2786 , p2_a3 out nocopy VARCHAR2
2787 , p2_a4 out nocopy VARCHAR2
2788 , p2_a5 out nocopy VARCHAR2
2789 , p2_a6 out nocopy VARCHAR2
2790 , p2_a7 out nocopy VARCHAR2
2791 , p2_a8 out nocopy VARCHAR2
2792 , p2_a9 out nocopy NUMBER
2793 , p2_a10 out nocopy VARCHAR2
2794 , p2_a11 out nocopy VARCHAR2
2795 , p2_a12 out nocopy DATE
2796 , p2_a13 out nocopy DATE
2797 , p2_a14 out nocopy VARCHAR2
2798 , p2_a15 out nocopy VARCHAR2
2799 , p2_a16 out nocopy NUMBER
2800 , p2_a17 out nocopy VARCHAR2
2801 , p2_a18 out nocopy VARCHAR2
2802 , p2_a19 out nocopy VARCHAR2
2803 , p2_a20 out nocopy DATE
2804 , p2_a21 out nocopy DATE
2805 , p2_a22 out nocopy VARCHAR2
2806 , p2_a23 out nocopy VARCHAR2
2807 , p3_a0 out nocopy JTF_VARCHAR2_TABLE_500
2808 , p3_a1 out nocopy JTF_VARCHAR2_TABLE_500
2809 , p3_a2 out nocopy JTF_VARCHAR2_TABLE_500
2810 , p3_a3 out nocopy JTF_DATE_TABLE
2811 , p3_a4 out nocopy JTF_DATE_TABLE
2812 , p3_a5 out nocopy JTF_NUMBER_TABLE
2813 , p3_a6 out nocopy JTF_VARCHAR2_TABLE_500
2814 , p3_a7 out nocopy JTF_VARCHAR2_TABLE_500
2815 , p3_a8 out nocopy JTF_VARCHAR2_TABLE_500
2816 , p4_a0 out nocopy JTF_VARCHAR2_TABLE_500
2817 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_500
2818 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_500
2819 , p4_a3 out nocopy JTF_DATE_TABLE
2820 , p4_a4 out nocopy JTF_DATE_TABLE
2821 )
2822
2823 as
2824 ddx_line_hdr_rec_type oks_entitlements_web.line_hdr_rec_type;
2825 ddx_covered_level_tbl_type oks_entitlements_web.covered_level_tbl_type;
2826 ddx_cust_contacts_tbl_type oks_entitlements_web.cust_contacts_tbl_type;
2827 ddindx binary_integer; indx binary_integer;
2828 begin
2829
2830 -- copy data to the local IN or IN-OUT args, if any
2831
2832
2833
2834
2835
2836 -- here's the delegated call to the old PL/SQL routine
2837 oks_entitlements_web.line_overview(p_line_id_arg,
2838 x_return_status,
2839 ddx_line_hdr_rec_type,
2840 ddx_covered_level_tbl_type,
2841 ddx_cust_contacts_tbl_type);
2842
2843 -- copy data back from the local variables to OUT or IN-OUT args, if any
2844
2845
2846 p2_a0 := ddx_line_hdr_rec_type.renewal_type;
2847 p2_a1 := ddx_line_hdr_rec_type.line_amount;
2848 p2_a2 := ddx_line_hdr_rec_type.line_amount_denomination;
2849 p2_a3 := ddx_line_hdr_rec_type.invoice_text;
2850 p2_a4 := ddx_line_hdr_rec_type.invoice_print_flag;
2851 p2_a5 := ddx_line_hdr_rec_type.tax_status_code;
2852 p2_a6 := ddx_line_hdr_rec_type.tax_status;
2853 p2_a7 := ddx_line_hdr_rec_type.tax_exempt_code;
2854 p2_a8 := ddx_line_hdr_rec_type.tax_code;
2855 p2_a9 := ddx_line_hdr_rec_type.coverage_id;
2856 p2_a10 := ddx_line_hdr_rec_type.coverage_name;
2857 p2_a11 := ddx_line_hdr_rec_type.coverage_description;
2858 p2_a12 := ddx_line_hdr_rec_type.coverage_start_date;
2859 p2_a13 := ddx_line_hdr_rec_type.coverage_end_date;
2860 p2_a14 := ddx_line_hdr_rec_type.coverage_warranty_yn;
2861 p2_a15 := ddx_line_hdr_rec_type.coverage_type;
2862 p2_a16 := ddx_line_hdr_rec_type.exception_cov_id;
2863 p2_a17 := ddx_line_hdr_rec_type.exception_cov_line_id;
2864 p2_a18 := ddx_line_hdr_rec_type.exception_cov_name;
2865 p2_a19 := ddx_line_hdr_rec_type.exception_cov_description;
2866 p2_a20 := ddx_line_hdr_rec_type.exception_cov_start_date;
2867 p2_a21 := ddx_line_hdr_rec_type.exception_cov_end_date;
2868 p2_a22 := ddx_line_hdr_rec_type.exception_cov_warranty_yn;
2869 p2_a23 := ddx_line_hdr_rec_type.exception_cov_type;
2870
2871 oks_entitlements_web_w.rosetta_table_copy_out_p46(ddx_covered_level_tbl_type, p3_a0
2872 , p3_a1
2873 , p3_a2
2874 , p3_a3
2875 , p3_a4
2876 , p3_a5
2877 , p3_a6
2878 , p3_a7
2879 , p3_a8
2880 );
2881
2882 oks_entitlements_web_w.rosetta_table_copy_out_p48(ddx_cust_contacts_tbl_type, p4_a0
2883 , p4_a1
2884 , p4_a2
2885 , p4_a3
2886 , p4_a4
2887 );
2888 end;
2889
2890 procedure coverage_overview(p_coverage_id_arg VARCHAR2
2891 , p_contract_id_arg VARCHAR2
2892 , x_return_status out nocopy VARCHAR2
2893 , p3_a0 out nocopy NUMBER
2894 , p3_a1 out nocopy VARCHAR2
2895 , p3_a2 out nocopy VARCHAR2
2896 , p3_a3 out nocopy VARCHAR2
2897 , p4_a0 out nocopy JTF_NUMBER_TABLE
2898 , p4_a1 out nocopy JTF_NUMBER_TABLE
2899 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_500
2900 , p4_a3 out nocopy JTF_VARCHAR2_TABLE_500
2901 , p4_a4 out nocopy JTF_VARCHAR2_TABLE_500
2902 , p4_a5 out nocopy JTF_VARCHAR2_TABLE_500
2903 )
2904
2905 as
2906 ddx_coverage_rec_type oks_entitlements_web.coverage_rec_type;
2907 ddx_bus_proc_tbl_type oks_entitlements_web.bus_proc_tbl_type;
2908 ddindx binary_integer; indx binary_integer;
2909 begin
2910
2911 -- copy data to the local IN or IN-OUT args, if any
2912
2913
2914
2915
2916
2917 -- here's the delegated call to the old PL/SQL routine
2918 oks_entitlements_web.coverage_overview(p_coverage_id_arg,
2919 p_contract_id_arg,
2920 x_return_status,
2921 ddx_coverage_rec_type,
2922 ddx_bus_proc_tbl_type);
2923
2924 -- copy data back from the local variables to OUT or IN-OUT args, if any
2925
2926
2927
2928 p3_a0 := ddx_coverage_rec_type.coverage_billing_offset;
2929 p3_a1 := ddx_coverage_rec_type.coverage_wrrnty_inheritance;
2930 p3_a2 := ddx_coverage_rec_type.transfer_allowed;
2931 p3_a3 := ddx_coverage_rec_type.free_upgrade;
2932
2933 oks_entitlements_web_w.rosetta_table_copy_out_p51(ddx_bus_proc_tbl_type, p4_a0
2934 , p4_a1
2935 , p4_a2
2936 , p4_a3
2937 , p4_a4
2938 , p4_a5
2939 );
2940 end;
2941
2942 procedure bus_proc_overview(p_bus_proc_id_arg VARCHAR2
2943 , p_contract_id_arg VARCHAR2
2944 , x_return_status out nocopy VARCHAR2
2945 , p3_a0 out nocopy VARCHAR2
2946 , p4_a0 out nocopy JTF_VARCHAR2_TABLE_100
2947 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_100
2948 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_100
2949 , p5_a0 out nocopy JTF_VARCHAR2_TABLE_500
2950 , p5_a1 out nocopy JTF_VARCHAR2_TABLE_500
2951 , p5_a2 out nocopy JTF_VARCHAR2_TABLE_100
2952 , p5_a3 out nocopy JTF_VARCHAR2_TABLE_100
2953 , p5_a4 out nocopy JTF_VARCHAR2_TABLE_100
2954 , p5_a5 out nocopy JTF_VARCHAR2_TABLE_100
2955 , p5_a6 out nocopy JTF_VARCHAR2_TABLE_100
2956 , p5_a7 out nocopy JTF_VARCHAR2_TABLE_100
2957 , p5_a8 out nocopy JTF_VARCHAR2_TABLE_100
2958 , p5_a9 out nocopy JTF_VARCHAR2_TABLE_100
2959 , p5_a10 out nocopy JTF_VARCHAR2_TABLE_100
2960 , p6_a0 out nocopy JTF_VARCHAR2_TABLE_500
2961 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_500
2962 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
2963 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
2964 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
2965 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
2966 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
2967 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
2968 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
2969 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
2970 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
2971 , p7_a0 out nocopy JTF_VARCHAR2_TABLE_100
2972 , p7_a1 out nocopy JTF_VARCHAR2_TABLE_400
2973 , p8_a0 out nocopy JTF_VARCHAR2_TABLE_500
2974 , p8_a1 out nocopy JTF_VARCHAR2_TABLE_500
2975 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_500
2976 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_500
2977 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
2978 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_500
2979 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_500
2980 )
2981
2982 as
2983 ddx_bus_proc_hdr_rec_type oks_entitlements_web.bus_proc_hdr_rec_type;
2984 ddx_coverage_times_tbl_type oks_entitlements_web.coverage_times_tbl_type;
2985 ddx_reaction_times_tbl_type oks_entitlements_web.reaction_times_tbl_type;
2986 ddx_resolution_times_tbl_type oks_entitlements_web.resolution_times_tbl_type;
2987 ddx_pref_resource_tbl_type oks_entitlements_web.pref_resource_tbl_type;
2988 ddx_bus_proc_bil_typ_tbl_type oks_entitlements_web.bus_proc_bil_typ_tbl_type;
2989 ddindx binary_integer; indx binary_integer;
2990 begin
2991
2992 -- copy data to the local IN or IN-OUT args, if any
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002 -- here's the delegated call to the old PL/SQL routine
3003 oks_entitlements_web.bus_proc_overview(p_bus_proc_id_arg,
3004 p_contract_id_arg,
3005 x_return_status,
3006 ddx_bus_proc_hdr_rec_type,
3007 ddx_coverage_times_tbl_type,
3008 ddx_reaction_times_tbl_type,
3009 ddx_resolution_times_tbl_type,
3010 ddx_pref_resource_tbl_type,
3011 ddx_bus_proc_bil_typ_tbl_type);
3012
3013 -- copy data back from the local variables to OUT or IN-OUT args, if any
3014
3015
3016
3017 p3_a0 := ddx_bus_proc_hdr_rec_type.bus_proc_hdr_time_zone;
3018
3019 oks_entitlements_web_w.rosetta_table_copy_out_p54(ddx_coverage_times_tbl_type, p4_a0
3020 , p4_a1
3021 , p4_a2
3022 );
3023
3024 oks_entitlements_web_w.rosetta_table_copy_out_p56(ddx_reaction_times_tbl_type, p5_a0
3025 , p5_a1
3026 , p5_a2
3027 , p5_a3
3028 , p5_a4
3029 , p5_a5
3030 , p5_a6
3031 , p5_a7
3032 , p5_a8
3033 , p5_a9
3034 , p5_a10
3035 );
3036
3037 oks_entitlements_web_w.rosetta_table_copy_out_p58(ddx_resolution_times_tbl_type, p6_a0
3038 , p6_a1
3039 , p6_a2
3040 , p6_a3
3041 , p6_a4
3042 , p6_a5
3043 , p6_a6
3044 , p6_a7
3045 , p6_a8
3046 , p6_a9
3047 , p6_a10
3048 );
3049
3050 oks_entitlements_web_w.rosetta_table_copy_out_p60(ddx_pref_resource_tbl_type, p7_a0
3051 , p7_a1
3052 );
3053
3054 oks_entitlements_web_w.rosetta_table_copy_out_p62(ddx_bus_proc_bil_typ_tbl_type, p8_a0
3055 , p8_a1
3056 , p8_a2
3057 , p8_a3
3058 , p8_a4
3059 , p8_a5
3060 , p8_a6
3061 );
3062 end;
3063
3064 procedure usage_overview(p_line_id_arg VARCHAR2
3065 , x_return_status out nocopy VARCHAR2
3066 , p2_a0 out nocopy VARCHAR2
3067 , p2_a1 out nocopy VARCHAR2
3068 , p2_a2 out nocopy VARCHAR2
3069 , p2_a3 out nocopy VARCHAR2
3070 , p2_a4 out nocopy VARCHAR2
3071 , p2_a5 out nocopy VARCHAR2
3072 , p2_a6 out nocopy VARCHAR2
3073 , p2_a7 out nocopy VARCHAR2
3074 , p2_a8 out nocopy NUMBER
3075 , p3_a0 out nocopy JTF_VARCHAR2_TABLE_500
3076 , p3_a1 out nocopy JTF_VARCHAR2_TABLE_500
3077 , p3_a2 out nocopy JTF_VARCHAR2_TABLE_2000
3078 , p3_a3 out nocopy JTF_VARCHAR2_TABLE_500
3079 , p3_a4 out nocopy JTF_VARCHAR2_TABLE_500
3080 , p3_a5 out nocopy JTF_VARCHAR2_TABLE_500
3081 , p3_a6 out nocopy JTF_VARCHAR2_TABLE_500
3082 , p3_a7 out nocopy JTF_VARCHAR2_TABLE_500
3083 , p3_a8 out nocopy JTF_VARCHAR2_TABLE_500
3084 , p3_a9 out nocopy JTF_VARCHAR2_TABLE_500
3085 , p3_a10 out nocopy JTF_VARCHAR2_TABLE_500
3086 , p3_a11 out nocopy JTF_VARCHAR2_TABLE_500
3087 , p3_a12 out nocopy JTF_VARCHAR2_TABLE_500
3088 , p3_a13 out nocopy JTF_VARCHAR2_TABLE_500
3089 , p3_a14 out nocopy JTF_VARCHAR2_TABLE_500
3090 , p3_a15 out nocopy JTF_VARCHAR2_TABLE_2000
3091 , p3_a16 out nocopy JTF_VARCHAR2_TABLE_2000
3092 )
3093
3094 as
3095 ddx_usage_hdr_rec_type oks_entitlements_web.usage_hdr_rec_type;
3096 ddx_covered_prods_tbl_type oks_entitlements_web.covered_prods_tbl_type;
3097 ddindx binary_integer; indx binary_integer;
3098 begin
3099
3100 -- copy data to the local IN or IN-OUT args, if any
3101
3102
3103
3104
3105 -- here's the delegated call to the old PL/SQL routine
3106 oks_entitlements_web.usage_overview(p_line_id_arg,
3107 x_return_status,
3108 ddx_usage_hdr_rec_type,
3109 ddx_covered_prods_tbl_type);
3110
3111 -- copy data back from the local variables to OUT or IN-OUT args, if any
3112
3113
3114 p2_a0 := ddx_usage_hdr_rec_type.usage_avg_allowed;
3115 p2_a1 := ddx_usage_hdr_rec_type.usage_avg_interval;
3116 p2_a2 := ddx_usage_hdr_rec_type.usage_avg_settlement_allowed;
3117 p2_a3 := ddx_usage_hdr_rec_type.usage_type;
3118 p2_a4 := ddx_usage_hdr_rec_type.usage_invoice_text;
3119 p2_a5 := ddx_usage_hdr_rec_type.usage_invoice_print_flag;
3120 p2_a6 := ddx_usage_hdr_rec_type.usage_tax_code;
3121 p2_a7 := ddx_usage_hdr_rec_type.usage_tax_status;
3122 p2_a8 := ddx_usage_hdr_rec_type.usage_amount;
3123
3124 oks_entitlements_web_w.rosetta_table_copy_out_p65(ddx_covered_prods_tbl_type, p3_a0
3125 , p3_a1
3126 , p3_a2
3127 , p3_a3
3128 , p3_a4
3129 , p3_a5
3130 , p3_a6
3131 , p3_a7
3132 , p3_a8
3133 , p3_a9
3134 , p3_a10
3135 , p3_a11
3136 , p3_a12
3137 , p3_a13
3138 , p3_a14
3139 , p3_a15
3140 , p3_a16
3141 );
3142 end;
3143
3144 procedure product_overview(p_covered_prod_id_arg VARCHAR2
3145 , x_return_status out nocopy VARCHAR2
3146 , p2_a0 out nocopy JTF_VARCHAR2_TABLE_500
3147 , p2_a1 out nocopy JTF_VARCHAR2_TABLE_500
3148 , p2_a2 out nocopy JTF_VARCHAR2_TABLE_500
3149 , p2_a3 out nocopy JTF_VARCHAR2_TABLE_500
3150 , p2_a4 out nocopy JTF_VARCHAR2_TABLE_500
3151 )
3152
3153 as
3154 ddx_counter_tbl_type oks_entitlements_web.counter_tbl_type;
3155 ddindx binary_integer; indx binary_integer;
3156 begin
3157
3158 -- copy data to the local IN or IN-OUT args, if any
3159
3160
3161
3162 -- here's the delegated call to the old PL/SQL routine
3163 oks_entitlements_web.product_overview(p_covered_prod_id_arg,
3164 x_return_status,
3165 ddx_counter_tbl_type);
3166
3167 -- copy data back from the local variables to OUT or IN-OUT args, if any
3168
3169
3170 oks_entitlements_web_w.rosetta_table_copy_out_p67(ddx_counter_tbl_type, p2_a0
3171 , p2_a1
3172 , p2_a2
3173 , p2_a3
3174 , p2_a4
3175 );
3176 end;
3177
3178 end oks_entitlements_web_w;