------------------------------------------------------------------
--
--  NAME: LIST_ERROR_HANDLING - BODY
--  DISCREPANCY REPORTS:
------------------------------------------------------------------
-- file:  list_error_handling_b.ada
-- level: ma, mb, mc, 0a, 1a, 2a, 0b, 1b, 2b, 0c, 1c, 2c

with ERROR_HANDLING;
with GKS_TYPES;

procedure LIST_ERROR_HANDLING
   (ERROR_INDICATOR : in INTEGER;
   GKS_FUNCTION     : in STRING) is
begin

  ERROR_HANDLING (GKS_TYPES.ERROR_NUMBER (ERROR_INDICATOR), GKS_FUNCTION);

end LIST_ERROR_HANDLING;