; This subroutine will delete corrupted "AO" cross-
; reference data from the Rad/Nuc Med Patient file.
; Only the "AO" cross-reference will be deleted. Data
; in the Rad/Nuc Med Patient file and the Rad/Nuc Med
; Orders file will remain intact.
TIMOUT
; This subroutine will delete the '*Timeout After How
; Many Second' field from the Imaging Type (79.2) file.
; All data associated with this field will be deleted.
TCOMNTS
; This subroutine will delete the Transfer Comment field (150)
; and all associated data from the Examinations Sub-Field (70.03)
VERSION
;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
DISTQ
; This subroutine will delete the following fields from the
; Report Distribution (74.4) file: Hospital Division (5)
; Imaging Location (7), Patient (9) and SSN (10). All data
; associated with these fields will be deleted.
NUMLIN
; This subroutine will delete the Number Of Lines field (12)
; and all associated data in the Rad/Nuc Med Reports file (74)