; Select Imaging Type, if exists; code is from RAUTL7
; Prompts user to select Imaging Type(s).
; Creates ^TMP($J,"RA I-TYPE",Imaging Type name,Imaging Type IEN)=""
SELDATES
; Define RADTBEG and RADTEND
SELSORT
; select sort order
SELADMIN
; Setup ^TMP($J,"RA EITHER",ien file 50)
SELRADIO
; Setup ^TMP($J,"RA EITHER",ien file 50)
SETUP1
; Setup ^TMP($J,"DIV-IMG",Imaging Type IEN)=""
; based upon ^TMP($J,"RA D-TYPE",Division name)
; RACCESS "DIV-IMG"
; elements.