FBCS ACCESS TO DGMTR    ICR (5383)

Check if patient is in a DOM
;  call to DOM checks if patient currently on a DOM ward
;                                     (called from EN)
;  call to DOM1 checks if patient on a DOM ward for a specific date
;    before call to DOM1 - N VAINDT,VADMVT,DGDOM,DGDOM1
;                          S VAINDT=specific date
;                          S DFN=Patient IEN
;                 output - DGDOM & DGDOM1 (defined and set to 1 if
;                          patient on a DOM ward for specific date)