------------------------------------------------------------------
--
--  NAME: ERROR_HANDLING - BODY
--  DISCREPANCY REPORTS:
------------------------------------------------------------------
-- file:  error_handling_b.ada
-- level: 0a, 1a, 2a, 0b, 1b, 2b, 0c, 1c, 2c


with ERROR_ROUTINES;
procedure ERROR_HANDLING
   (ERROR_INDICATOR : in ERROR_NUMBER;
   GKS_FUNCTION     : in STRING;
   ERROR_FILE       : in STRING := DEFAULT_ERROR_FILE) is

-- This procedure calls ERROR_LOGGING to write the error number and
-- the GKS function name detecting the error to the error file.
-- It then returns to the calling program (no exceptions are raised).
--
-- ERROR_INDICATOR - This is the error indicator.  Its numeric value
--    represents the type of error being logged.
-- GKS_FUNCTION - This is a string type.  Its value is the name of the
--    procedure in which the error being logged occurred.


begin

   ERROR_ROUTINES.ERROR_LOGGING (ERROR_INDICATOR, GKS_FUNCTION);

end ERROR_HANDLING;