1: package body amw_scope_pvt_w as
2: /* $Header: amwwscpb.pls 120.0 2005/05/31 21:35:35 appldev noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy amw_scope_pvt.sub_tbl_type, a0 JTF_VARCHAR2_TABLE_200
4: ) as
5: ddindx binary_integer; indx binary_integer;
1: package body amw_scope_pvt_w as
2: /* $Header: amwwscpb.pls 120.0 2005/05/31 21:35:35 appldev noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy amw_scope_pvt.sub_tbl_type, a0 JTF_VARCHAR2_TABLE_200
4: ) as
5: ddindx binary_integer; indx binary_integer;
6: begin
7: if a0 is not null and a0.count > 0 then
18: end loop;
19: end if;
20: end if;
21: end rosetta_table_copy_in_p1;
22: procedure rosetta_table_copy_out_p1(t amw_scope_pvt.sub_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_200
23: ) as
24: ddindx binary_integer; indx binary_integer;
25: begin
26: if t is null or t.count = 0 then
42: end if;
43: end if;
44: end rosetta_table_copy_out_p1;
45:
46: procedure rosetta_table_copy_in_p3(t out nocopy amw_scope_pvt.sub_new_tbl_type, a0 JTF_NUMBER_TABLE
47: ) as
48: ddindx binary_integer; indx binary_integer;
49: begin
50: if a0 is not null and a0.count > 0 then
61: end loop;
62: end if;
63: end if;
64: end rosetta_table_copy_in_p3;
65: procedure rosetta_table_copy_out_p3(t amw_scope_pvt.sub_new_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
66: ) as
67: ddindx binary_integer; indx binary_integer;
68: begin
69: if t is null or t.count = 0 then
85: end if;
86: end if;
87: end rosetta_table_copy_out_p3;
88:
89: procedure rosetta_table_copy_in_p5(t out nocopy amw_scope_pvt.lob_tbl_type, a0 JTF_VARCHAR2_TABLE_200
90: ) as
91: ddindx binary_integer; indx binary_integer;
92: begin
93: if a0 is not null and a0.count > 0 then
104: end loop;
105: end if;
106: end if;
107: end rosetta_table_copy_in_p5;
108: procedure rosetta_table_copy_out_p5(t amw_scope_pvt.lob_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_200
109: ) as
110: ddindx binary_integer; indx binary_integer;
111: begin
112: if t is null or t.count = 0 then
128: end if;
129: end if;
130: end rosetta_table_copy_out_p5;
131:
132: procedure rosetta_table_copy_in_p7(t out nocopy amw_scope_pvt.lob_new_tbl_type, a0 JTF_NUMBER_TABLE
133: ) as
134: ddindx binary_integer; indx binary_integer;
135: begin
136: if a0 is not null and a0.count > 0 then
147: end loop;
148: end if;
149: end if;
150: end rosetta_table_copy_in_p7;
151: procedure rosetta_table_copy_out_p7(t amw_scope_pvt.lob_new_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
152: ) as
153: ddindx binary_integer; indx binary_integer;
154: begin
155: if t is null or t.count = 0 then
171: end if;
172: end if;
173: end rosetta_table_copy_out_p7;
174:
175: procedure rosetta_table_copy_in_p9(t out nocopy amw_scope_pvt.org_tbl_type, a0 JTF_NUMBER_TABLE
176: ) as
177: ddindx binary_integer; indx binary_integer;
178: begin
179: if a0 is not null and a0.count > 0 then
190: end loop;
191: end if;
192: end if;
193: end rosetta_table_copy_in_p9;
194: procedure rosetta_table_copy_out_p9(t amw_scope_pvt.org_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
195: ) as
196: ddindx binary_integer; indx binary_integer;
197: begin
198: if t is null or t.count = 0 then
214: end if;
215: end if;
216: end rosetta_table_copy_out_p9;
217:
218: procedure rosetta_table_copy_in_p11(t out nocopy amw_scope_pvt.process_tbl_type, a0 JTF_NUMBER_TABLE
219: ) as
220: ddindx binary_integer; indx binary_integer;
221: begin
222: if a0 is not null and a0.count > 0 then
233: end loop;
234: end if;
235: end if;
236: end rosetta_table_copy_in_p11;
237: procedure rosetta_table_copy_out_p11(t amw_scope_pvt.process_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
238: ) as
239: ddindx binary_integer; indx binary_integer;
240: begin
241: if t is null or t.count = 0 then
257: end if;
258: end if;
259: end rosetta_table_copy_out_p11;
260:
261: procedure rosetta_table_copy_in_p13(t out nocopy amw_scope_pvt.proc_hier_tbl_type, a0 JTF_NUMBER_TABLE
262: , a1 JTF_NUMBER_TABLE
263: , a2 JTF_NUMBER_TABLE
264: , a3 JTF_NUMBER_TABLE
265: ) as
282: end loop;
283: end if;
284: end if;
285: end rosetta_table_copy_in_p13;
286: procedure rosetta_table_copy_out_p13(t amw_scope_pvt.proc_hier_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
287: , a1 out nocopy JTF_NUMBER_TABLE
288: , a2 out nocopy JTF_NUMBER_TABLE
289: , a3 out nocopy JTF_NUMBER_TABLE
290: ) as
339: , x_msg_data out nocopy VARCHAR2
340: )
341:
342: as
343: ddp_subsidiary_tbl amw_scope_pvt.sub_tbl_type;
344: ddp_lob_tbl amw_scope_pvt.lob_tbl_type;
345: ddp_org_tbl amw_scope_pvt.org_tbl_type;
346: ddp_process_tbl amw_scope_pvt.process_tbl_type;
347: ddindx binary_integer; indx binary_integer;
340: )
341:
342: as
343: ddp_subsidiary_tbl amw_scope_pvt.sub_tbl_type;
344: ddp_lob_tbl amw_scope_pvt.lob_tbl_type;
345: ddp_org_tbl amw_scope_pvt.org_tbl_type;
346: ddp_process_tbl amw_scope_pvt.process_tbl_type;
347: ddindx binary_integer; indx binary_integer;
348: begin
341:
342: as
343: ddp_subsidiary_tbl amw_scope_pvt.sub_tbl_type;
344: ddp_lob_tbl amw_scope_pvt.lob_tbl_type;
345: ddp_org_tbl amw_scope_pvt.org_tbl_type;
346: ddp_process_tbl amw_scope_pvt.process_tbl_type;
347: ddindx binary_integer; indx binary_integer;
348: begin
349:
342: as
343: ddp_subsidiary_tbl amw_scope_pvt.sub_tbl_type;
344: ddp_lob_tbl amw_scope_pvt.lob_tbl_type;
345: ddp_org_tbl amw_scope_pvt.org_tbl_type;
346: ddp_process_tbl amw_scope_pvt.process_tbl_type;
347: ddindx binary_integer; indx binary_integer;
348: begin
349:
350: -- copy data to the local IN or IN-OUT args, if any
355:
356:
357:
358:
359: amw_scope_pvt_w.rosetta_table_copy_in_p1(ddp_subsidiary_tbl, p8_a0
360: );
361:
362: amw_scope_pvt_w.rosetta_table_copy_in_p5(ddp_lob_tbl, p9_a0
363: );
358:
359: amw_scope_pvt_w.rosetta_table_copy_in_p1(ddp_subsidiary_tbl, p8_a0
360: );
361:
362: amw_scope_pvt_w.rosetta_table_copy_in_p5(ddp_lob_tbl, p9_a0
363: );
364:
365: amw_scope_pvt_w.rosetta_table_copy_in_p9(ddp_org_tbl, p10_a0
366: );
361:
362: amw_scope_pvt_w.rosetta_table_copy_in_p5(ddp_lob_tbl, p9_a0
363: );
364:
365: amw_scope_pvt_w.rosetta_table_copy_in_p9(ddp_org_tbl, p10_a0
366: );
367:
368: amw_scope_pvt_w.rosetta_table_copy_in_p11(ddp_process_tbl, p11_a0
369: );
364:
365: amw_scope_pvt_w.rosetta_table_copy_in_p9(ddp_org_tbl, p10_a0
366: );
367:
368: amw_scope_pvt_w.rosetta_table_copy_in_p11(ddp_process_tbl, p11_a0
369: );
370:
371:
372:
371:
372:
373:
374: -- here's the delegated call to the old PL/SQL routine
375: amw_scope_pvt.add_scope(p_api_version_number,
376: p_init_msg_list,
377: p_commit,
378: p_validation_level,
379: p_entity_id,
410: , p_entity_type VARCHAR2
411: )
412:
413: as
414: ddp_org_tbl amw_scope_pvt.org_tbl_type;
415: ddindx binary_integer; indx binary_integer;
416: begin
417:
418: -- copy data to the local IN or IN-OUT args, if any
415: ddindx binary_integer; indx binary_integer;
416: begin
417:
418: -- copy data to the local IN or IN-OUT args, if any
419: amw_scope_pvt_w.rosetta_table_copy_in_p9(ddp_org_tbl, p0_a0
420: );
421:
422:
423:
421:
422:
423:
424: -- here's the delegated call to the old PL/SQL routine
425: amw_scope_pvt.populate_custom_hierarchy(ddp_org_tbl,
426: p_entity_id,
427: p_entity_type);
428:
429: -- copy data back from the local variables to OUT or IN-OUT args, if any
437: , p3_a0 out nocopy JTF_NUMBER_TABLE
438: )
439:
440: as
441: ddp_org_tbl amw_scope_pvt.org_tbl_type;
442: ddp_org_new_tbl amw_scope_pvt.org_tbl_type;
443: ddindx binary_integer; indx binary_integer;
444: begin
445:
438: )
439:
440: as
441: ddp_org_tbl amw_scope_pvt.org_tbl_type;
442: ddp_org_new_tbl amw_scope_pvt.org_tbl_type;
443: ddindx binary_integer; indx binary_integer;
444: begin
445:
446: -- copy data to the local IN or IN-OUT args, if any
445:
446: -- copy data to the local IN or IN-OUT args, if any
447:
448:
449: amw_scope_pvt_w.rosetta_table_copy_in_p9(ddp_org_tbl, p2_a0
450: );
451:
452:
453: -- here's the delegated call to the old PL/SQL routine
450: );
451:
452:
453: -- here's the delegated call to the old PL/SQL routine
454: amw_scope_pvt.generate_organization_list(p_entity_id,
455: p_entity_type,
456: ddp_org_tbl,
457: ddp_org_new_tbl);
458:
459: -- copy data back from the local variables to OUT or IN-OUT args, if any
460:
461:
462:
463: amw_scope_pvt_w.rosetta_table_copy_out_p9(ddp_org_new_tbl, p3_a0
464: );
465: end;
466:
467: procedure generate_subsidiary_list(p_entity_id NUMBER
472: , p5_a0 out nocopy JTF_NUMBER_TABLE
473: )
474:
475: as
476: ddp_org_new_tbl amw_scope_pvt.org_tbl_type;
477: ddp_subsidiary_tbl amw_scope_pvt.sub_tbl_type;
478: ddp_sub_new_tbl amw_scope_pvt.sub_new_tbl_type;
479: ddindx binary_integer; indx binary_integer;
480: begin
473: )
474:
475: as
476: ddp_org_new_tbl amw_scope_pvt.org_tbl_type;
477: ddp_subsidiary_tbl amw_scope_pvt.sub_tbl_type;
478: ddp_sub_new_tbl amw_scope_pvt.sub_new_tbl_type;
479: ddindx binary_integer; indx binary_integer;
480: begin
481:
474:
475: as
476: ddp_org_new_tbl amw_scope_pvt.org_tbl_type;
477: ddp_subsidiary_tbl amw_scope_pvt.sub_tbl_type;
478: ddp_sub_new_tbl amw_scope_pvt.sub_new_tbl_type;
479: ddindx binary_integer; indx binary_integer;
480: begin
481:
482: -- copy data to the local IN or IN-OUT args, if any
481:
482: -- copy data to the local IN or IN-OUT args, if any
483:
484:
485: amw_scope_pvt_w.rosetta_table_copy_in_p9(ddp_org_new_tbl, p2_a0
486: );
487:
488: amw_scope_pvt_w.rosetta_table_copy_in_p1(ddp_subsidiary_tbl, p3_a0
489: );
484:
485: amw_scope_pvt_w.rosetta_table_copy_in_p9(ddp_org_new_tbl, p2_a0
486: );
487:
488: amw_scope_pvt_w.rosetta_table_copy_in_p1(ddp_subsidiary_tbl, p3_a0
489: );
490:
491:
492:
490:
491:
492:
493: -- here's the delegated call to the old PL/SQL routine
494: amw_scope_pvt.generate_subsidiary_list(p_entity_id,
495: p_entity_type,
496: ddp_org_new_tbl,
497: ddp_subsidiary_tbl,
498: p_sub_vs,
503:
504:
505:
506:
507: amw_scope_pvt_w.rosetta_table_copy_out_p3(ddp_sub_new_tbl, p5_a0
508: );
509: end;
510:
511: procedure generate_lob_list(p_entity_id NUMBER
518: , p7_a0 out nocopy JTF_NUMBER_TABLE
519: )
520:
521: as
522: ddp_org_new_tbl amw_scope_pvt.org_tbl_type;
523: ddp_subsidiary_tbl amw_scope_pvt.sub_tbl_type;
524: ddp_lob_tbl amw_scope_pvt.lob_tbl_type;
525: ddp_lob_new_tbl amw_scope_pvt.lob_new_tbl_type;
526: ddindx binary_integer; indx binary_integer;
519: )
520:
521: as
522: ddp_org_new_tbl amw_scope_pvt.org_tbl_type;
523: ddp_subsidiary_tbl amw_scope_pvt.sub_tbl_type;
524: ddp_lob_tbl amw_scope_pvt.lob_tbl_type;
525: ddp_lob_new_tbl amw_scope_pvt.lob_new_tbl_type;
526: ddindx binary_integer; indx binary_integer;
527: begin
520:
521: as
522: ddp_org_new_tbl amw_scope_pvt.org_tbl_type;
523: ddp_subsidiary_tbl amw_scope_pvt.sub_tbl_type;
524: ddp_lob_tbl amw_scope_pvt.lob_tbl_type;
525: ddp_lob_new_tbl amw_scope_pvt.lob_new_tbl_type;
526: ddindx binary_integer; indx binary_integer;
527: begin
528:
521: as
522: ddp_org_new_tbl amw_scope_pvt.org_tbl_type;
523: ddp_subsidiary_tbl amw_scope_pvt.sub_tbl_type;
524: ddp_lob_tbl amw_scope_pvt.lob_tbl_type;
525: ddp_lob_new_tbl amw_scope_pvt.lob_new_tbl_type;
526: ddindx binary_integer; indx binary_integer;
527: begin
528:
529: -- copy data to the local IN or IN-OUT args, if any
528:
529: -- copy data to the local IN or IN-OUT args, if any
530:
531:
532: amw_scope_pvt_w.rosetta_table_copy_in_p9(ddp_org_new_tbl, p2_a0
533: );
534:
535: amw_scope_pvt_w.rosetta_table_copy_in_p1(ddp_subsidiary_tbl, p3_a0
536: );
531:
532: amw_scope_pvt_w.rosetta_table_copy_in_p9(ddp_org_new_tbl, p2_a0
533: );
534:
535: amw_scope_pvt_w.rosetta_table_copy_in_p1(ddp_subsidiary_tbl, p3_a0
536: );
537:
538:
539: amw_scope_pvt_w.rosetta_table_copy_in_p5(ddp_lob_tbl, p5_a0
535: amw_scope_pvt_w.rosetta_table_copy_in_p1(ddp_subsidiary_tbl, p3_a0
536: );
537:
538:
539: amw_scope_pvt_w.rosetta_table_copy_in_p5(ddp_lob_tbl, p5_a0
540: );
541:
542:
543:
541:
542:
543:
544: -- here's the delegated call to the old PL/SQL routine
545: amw_scope_pvt.generate_lob_list(p_entity_id,
546: p_entity_type,
547: ddp_org_new_tbl,
548: ddp_subsidiary_tbl,
549: p_sub_vs,
558:
559:
560:
561:
562: amw_scope_pvt_w.rosetta_table_copy_out_p7(ddp_lob_new_tbl, p7_a0
563: );
564: end;
565:
566: procedure populate_process_hierarchy(p_api_version_number NUMBER
576: , x_msg_data out nocopy VARCHAR2
577: )
578:
579: as
580: ddp_org_tbl amw_scope_pvt.org_tbl_type;
581: ddp_process_tbl amw_scope_pvt.process_tbl_type;
582: ddindx binary_integer; indx binary_integer;
583: begin
584:
577: )
578:
579: as
580: ddp_org_tbl amw_scope_pvt.org_tbl_type;
581: ddp_process_tbl amw_scope_pvt.process_tbl_type;
582: ddindx binary_integer; indx binary_integer;
583: begin
584:
585: -- copy data to the local IN or IN-OUT args, if any
588:
589:
590:
591:
592: amw_scope_pvt_w.rosetta_table_copy_in_p9(ddp_org_tbl, p6_a0
593: );
594:
595: amw_scope_pvt_w.rosetta_table_copy_in_p11(ddp_process_tbl, p7_a0
596: );
591:
592: amw_scope_pvt_w.rosetta_table_copy_in_p9(ddp_org_tbl, p6_a0
593: );
594:
595: amw_scope_pvt_w.rosetta_table_copy_in_p11(ddp_process_tbl, p7_a0
596: );
597:
598:
599:
598:
599:
600:
601: -- here's the delegated call to the old PL/SQL routine
602: amw_scope_pvt.populate_process_hierarchy(p_api_version_number,
603: p_init_msg_list,
604: p_commit,
605: p_validation_level,
606: p_entity_type,
631: , p_mode VARCHAR2
632: )
633:
634: as
635: ddp_org_tbl amw_scope_pvt.org_tbl_type;
636: ddp_process_tbl amw_scope_pvt.process_tbl_type;
637: ddindx binary_integer; indx binary_integer;
638: begin
639:
632: )
633:
634: as
635: ddp_org_tbl amw_scope_pvt.org_tbl_type;
636: ddp_process_tbl amw_scope_pvt.process_tbl_type;
637: ddindx binary_integer; indx binary_integer;
638: begin
639:
640: -- copy data to the local IN or IN-OUT args, if any
639:
640: -- copy data to the local IN or IN-OUT args, if any
641:
642:
643: amw_scope_pvt_w.rosetta_table_copy_in_p9(ddp_org_tbl, p2_a0
644: );
645:
646: amw_scope_pvt_w.rosetta_table_copy_in_p11(ddp_process_tbl, p3_a0
647: );
642:
643: amw_scope_pvt_w.rosetta_table_copy_in_p9(ddp_org_tbl, p2_a0
644: );
645:
646: amw_scope_pvt_w.rosetta_table_copy_in_p11(ddp_process_tbl, p3_a0
647: );
648:
649:
650: -- here's the delegated call to the old PL/SQL routine
647: );
648:
649:
650: -- here's the delegated call to the old PL/SQL routine
651: amw_scope_pvt.populate_denormalized_tables(p_entity_type,
652: p_entity_id,
653: ddp_org_tbl,
654: ddp_process_tbl,
655: p_mode);
677: , x_msg_data out nocopy VARCHAR2
678: )
679:
680: as
681: ddp_proc_hier_tbl amw_scope_pvt.proc_hier_tbl_type;
682: ddindx binary_integer; indx binary_integer;
683: begin
684:
685: -- copy data to the local IN or IN-OUT args, if any
689:
690:
691:
692:
693: amw_scope_pvt_w.rosetta_table_copy_in_p13(ddp_proc_hier_tbl, p7_a0
694: , p7_a1
695: , p7_a2
696: , p7_a3
697: );
699:
700:
701:
702: -- here's the delegated call to the old PL/SQL routine
703: amw_scope_pvt.manage_processes(p_api_version_number,
704: p_init_msg_list,
705: p_commit,
706: p_validation_level,
707: p_entity_type,
724:
725:
726: end;
727:
728: end amw_scope_pvt_w;