;Call to generate the Radiology Report
; This call is called be various Imaging routines to get the Rad Report
; This call assumes the device is already open.
; New the variables that'll be defined in the call to RASET^RAUTL2
; For input RARPT, return string RET containing case
; subscript values for accessing ^RADPT
; Stole this code from john, don't tell him.
; * This subroutine may be called by other routines of the Radiology
; Imaging Workstation programs