377: --
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:
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
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
396: -- 6) Mode AS:
397: -- GL_FLATTEN_ACCESS_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
402: -- GL_FLATTEN_ACCESS_SETS.Fix_Implicit_Sets
403:
421: GL_MESSAGE.Write_Log(msg_name => 'FLAT0015',
422: token_num => 0);
423: END IF;
424:
425: ret_val := GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set;
426:
427: IF (NOT ret_val) THEN
428: RAISE GLSTFL_fatal_err;
429: END IF;
438:
439: ELSIF (GLSTFL_OP_MODE = 'LV') THEN
440:
441: -- Call routine to fix ledger/segment value assignments
442: ret_val := GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa;
443:
444: IF (NOT ret_val) THEN
445: RAISE GLSTFL_fatal_err;
446: END IF;
509: RAISE GLSTFL_fatal_err;
510: END IF;
511:
512: -- Call routine to fix ledger/segment value assignments
513: ret_val := GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa;
514:
515: IF (NOT ret_val) THEN
516: RAISE GLSTFL_fatal_err;
517: END IF;
593: RAISE GLSTFL_fatal_err;
594: END IF;
595:
596: -- Call routine to fix ledger/segment value assignments
597: ret_val := GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa;
598:
599: IF (NOT ret_val) THEN
600: RAISE GLSTFL_fatal_err;
601: END IF;
802: --
803: -- Here is the list of routines called by each mode:
804: -- 1) Modes SH, FF:
805: -- GL_FLATTEN_SEG_VAL_HIERARCHIES.Clean_Up
806: -- GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Value_Set
807: -- 2) Mode LV:
808: -- GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Coa
809: -- 3) Mode LH:
810: -- GL_FLATTEN_LEDGER_HIERARCHIES.Clean_Up
804: -- 1) Modes SH, FF:
805: -- GL_FLATTEN_SEG_VAL_HIERARCHIES.Clean_Up
806: -- GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Value_Set
807: -- 2) Mode LV:
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:
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
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
826: -- GL_FLATTEN_ACCESS_SETS.Clean_Up_By_Coa
827:
835: RAISE GLSTFL_fatal_err;
836: END IF;
837:
838: -- Call routine to clean up ledger/segment value assignments
839: ret_val := GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Value_Set;
840:
841: IF (NOT ret_val) THEN
842: RAISE GLSTFL_fatal_err;
843: END IF;
844:
845: ELSIF (GLSTFL_OP_MODE = 'LV') THEN
846:
847: -- Call routine to clean up ledger/segment value assignments
848: ret_val := GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Coa;
849:
850: IF (NOT ret_val) THEN
851: RAISE GLSTFL_fatal_err;
852: END IF;
906: RAISE GLSTFL_fatal_err;
907: END IF;
908:
909: -- Call routine to clean up ledger/segment value assignments
910: ret_val := GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Coa;
911:
912: IF (NOT ret_val) THEN
913: RAISE GLSTFL_fatal_err;
914: END IF;
928: -- This is the combination of both modes LV and LH.
929: -- So this mode will do the work of those 2 modes combined.
930:
931: -- Call routine to clean up ledger/segment value assignments
932: ret_val := GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Coa;
933:
934: IF (NOT ret_val) THEN
935: RAISE GLSTFL_fatal_err;
936: END IF;