378: -- Here is the list of routines called by each mode:
379: -- 1) Modes SH, FF:
380: -- GL_FLATTEN_SEG_VAL_HIERARCHIES.Flatten_Seg_Val_Hier
381: -- GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set
382: -- GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table
383: -- 2) Mode LV:
384: -- GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa
385: -- 3) Mode LH:
386: -- GL_FLATTEN_LEDGER_HIERARCHIES.Flatten_Ledger_Hier
384: -- GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa
385: -- 3) Mode LH:
386: -- GL_FLATTEN_LEDGER_HIERARCHIES.Flatten_Ledger_Hier
387: -- GL_FLATTEN_LEDGER_SETS.Fix_Implicit_Sets
388: -- GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets
389: -- 4) Mode LS:
390: -- GL_FLATTEN_LEDGER_SETS.Fix_Explicit_Sets
391: -- GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table
392: -- 5) Mode VS:
387: -- GL_FLATTEN_LEDGER_SETS.Fix_Implicit_Sets
388: -- GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets
389: -- 4) Mode LS:
390: -- GL_FLATTEN_LEDGER_SETS.Fix_Explicit_Sets
391: -- GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table
392: -- 5) Mode VS:
393: -- GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa
394: -- GL_FLATTEN_LEDGER_SETS.Fix_Explicit_Sets
395: -- GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table
391: -- GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table
392: -- 5) Mode VS:
393: -- GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa
394: -- GL_FLATTEN_LEDGER_SETS.Fix_Explicit_Sets
395: -- GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table
396: -- 6) Mode AS:
397: -- GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets
398: -- 7) Mode VH:
399: -- GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa
393: -- GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa
394: -- GL_FLATTEN_LEDGER_SETS.Fix_Explicit_Sets
395: -- GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table
396: -- 6) Mode AS:
397: -- GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets
398: -- 7) Mode VH:
399: -- GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa
400: -- GL_FLATTEN_LEDGER_HIERARCHIES.Flatten_Ledger_Hier
401: -- GL_FLATTEN_LEDGER_SETS.Fix_Implicit_Sets
398: -- 7) Mode VH:
399: -- GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa
400: -- GL_FLATTEN_LEDGER_HIERARCHIES.Flatten_Ledger_Hier
401: -- GL_FLATTEN_LEDGER_SETS.Fix_Implicit_Sets
402: -- GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets
403:
404: IF (GLSTFL_OP_MODE IN ('SH', 'FF')) THEN
405:
406: -- Call routine to fix value set and segment value hierarchies first.
428: RAISE GLSTFL_fatal_err;
429: END IF;
430:
431: -- Call routine to fix GL_ACCESS_SET_ASSIGNMENTS
432: ret_val := GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table;
433:
434: IF (NOT ret_val) THEN
435: RAISE GLSTFL_fatal_err;
436: END IF;
468: -- END IF;
469: -- END IF;
470:
471: -- Call routine to fix implicit access sets
472: -- ret_val := GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets
473: -- (Any_Ledger_Hier_Changes => cont_processing);
474:
475: -- IF (NOT ret_val) THEN
476: -- RAISE GLSTFL_fatal_err;
486: RAISE GLSTFL_fatal_err;
487: END IF;
488:
489: -- Call routine to fix GL_ACCESS_SET_ASSIGNMENTS
490: ret_val := GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table;
491:
492: IF (NOT ret_val) THEN
493: RAISE GLSTFL_fatal_err;
494: END IF;
502: RAISE GLSTFL_fatal_err;
503: END IF;
504:
505: -- Call routine to fix GL_ACCESS_SET_ASSIGNMENTS
506: ret_val := GL_FLATTEN_ACCESS_SETS.Fix_Flattened_Table;
507:
508: IF (NOT ret_val) THEN
509: RAISE GLSTFL_fatal_err;
510: END IF;
518:
519: ELSIF (GLSTFL_OP_MODE = 'AS') THEN
520:
521: -- Call routine to fix explicit access sets
522: ret_val := GL_FLATTEN_ACCESS_SETS.Fix_Explicit_Sets;
523:
524: IF (NOT ret_val) THEN
525: RAISE GLSTFL_fatal_err;
526: END IF;
580: -- END IF;
581:
582: /*------------------------------------------------------------------+
583: | Added the following assignment after removing the ledger |
584: | hierarchy calls from the GL_FLATTEN_ACCESS_SETS package |
585: +------------------------------------------------------------------*/
586: cont_processing := TRUE;
587:
588: -- Call routine to fix implicit access sets
585: +------------------------------------------------------------------*/
586: cont_processing := TRUE;
587:
588: -- Call routine to fix implicit access sets
589: ret_val := GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets
590: (Any_Ledger_Hier_Changes => cont_processing);
591:
592: IF (NOT ret_val) THEN
593: RAISE GLSTFL_fatal_err;
808: -- GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Coa
809: -- 3) Mode LH:
810: -- GL_FLATTEN_LEDGER_HIERARCHIES.Clean_Up
811: -- GL_FLATTEN_LEDGER_SETS.Clean_Up_Implicit_Sets
812: -- GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa
813: -- 4) Mode LS:
814: -- GL_FLATTEN_LEDGER_SETS.Clean_Up_Explicit_Sets
815: -- GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa
816: -- 5) Mode VS:
811: -- GL_FLATTEN_LEDGER_SETS.Clean_Up_Implicit_Sets
812: -- GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa
813: -- 4) Mode LS:
814: -- GL_FLATTEN_LEDGER_SETS.Clean_Up_Explicit_Sets
815: -- GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa
816: -- 5) Mode VS:
817: -- GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Coa
818: -- GL_FLATTEN_LEDGER_SETS.Clean_Up_Explicit_Sets
819: -- GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa
815: -- GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa
816: -- 5) Mode VS:
817: -- GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Coa
818: -- GL_FLATTEN_LEDGER_SETS.Clean_Up_Explicit_Sets
819: -- GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa
820: -- 6) Mode AS:
821: -- GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa
822: -- 7) Mode VH:
823: -- GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Coa
817: -- GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Coa
818: -- GL_FLATTEN_LEDGER_SETS.Clean_Up_Explicit_Sets
819: -- GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa
820: -- 6) Mode AS:
821: -- GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa
822: -- 7) Mode VH:
823: -- GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Coa
824: -- GL_FLATTEN_LEDGER_HIERARCHIES.Clean_Up
825: -- GL_FLATTEN_LEDGER_SETS.Clean_Up_Implicit_Sets
822: -- 7) Mode VH:
823: -- GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Coa
824: -- GL_FLATTEN_LEDGER_HIERARCHIES.Clean_Up
825: -- GL_FLATTEN_LEDGER_SETS.Clean_Up_Implicit_Sets
826: -- GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa
827:
828: IF (GLSTFL_OP_MODE IN ('SH', 'FF')) THEN
829:
830: -- Call routine to clean up value set and
867: -- RAISE GLSTFL_fatal_err;
868: -- END IF;
869:
870: -- Call routine to clean up access assignments
871: -- ret_val := GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa;
872:
873: -- IF (NOT ret_val) THEN
874: -- RAISE GLSTFL_fatal_err;
875: -- END IF;
883: RAISE GLSTFL_fatal_err;
884: END IF;
885:
886: -- Call routine to clean up access assignments
887: ret_val := GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa;
888:
889: IF (NOT ret_val) THEN
890: RAISE GLSTFL_fatal_err;
891: END IF;
899: RAISE GLSTFL_fatal_err;
900: END IF;
901:
902: -- Call routine to clean up access assignments
903: ret_val := GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa;
904:
905: IF (NOT ret_val) THEN
906: RAISE GLSTFL_fatal_err;
907: END IF;
916:
917: ELSIF (GLSTFL_OP_MODE = 'AS') THEN
918:
919: -- Call routine to clean up access assignments
920: ret_val := GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa;
921:
922: IF (NOT ret_val) THEN
923: RAISE GLSTFL_fatal_err;
924: END IF;
949: -- RAISE GLSTFL_fatal_err;
950: -- END IF;
951:
952: -- Call routine to clean up access assignments
953: ret_val := GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa;
954:
955: IF (NOT ret_val) THEN
956: RAISE GLSTFL_fatal_err;
957: END IF;