PROCEDURE (ram$disuv) display_user_validation, disuv (
  output, o: file = $output
  status)

  ADMINISTER_VALIDATIONS
    display_user output= output
  END_ADMINISTER_VALIDATIONS

PROCEND display_user_validation
