; test code to find 'Diagnostic Code' for
; descendents and adopted procedures. Called from RAO7CMP.
; 'RAOIFN'-> ien of file 75.1
; 'RADFN' -> ien of the Rad/Nuc Med Patient
; 'RADTI' -> inverse date of the registered exam
BRKOUT
; Breakout the 'MSH', 'ORC' & 'PID' segments.
; Called from: RAO7RON & RAO7RCH
XAMDT(RADFN)
;Return exam date/time for interpreted non-cancelled case. The