; This module contains two subroutines called from AUMDO1B
; (COMMON and DSPSTAT) becuase AUMDO1B got too big after the
; dictionary change in 92.2 distribution.
; Added to new fields to the ICD file dictionaries:
; - DATE LAST UPDATE
; - UPDATE CYCLE #
; COMMON sub-rtn adds these to the DR string
DSPSTAT
; ENTRY POINT from EN+7^AUMDO1B to display status of icd code
COMMON
; ENTRY POINT from EN+5^AUMDO1B-update common fields to each ICD file
; process the INACTIVE FLAG and DATE fields