Routine: ORWDRA32

Information

ORWDRA32 ; SLC/KCM/REV/JDL - Radiology calls to support windows [6/28/02] ;Oct 19, 2020@08:05:39

Name	Comments	DBIA/ICR reference
DEF(LST,PATID,EVTDIV,IMGTYP)	; Get dialog data for radiology
MODIFYR	; Get the modifiers (should be by imaging type)
SHORT	; from DEF, get short list of imaging quick orders
COMMPRO	; Get the common procedures
URGENCY	; Get the allowable urgencies and default
TRNSPRT	; Get the modes of transport
CATEGRY	; Get the categories of exam
SUBMIT	; Get the locations to which the request may be submitted
LAST7	; Get exams for the last 7 days
PROCMSG(ORY,IEN)	; return order message for a procedure
NXT()	; Increment index of LST
RADCOUNT()	;Number of procedures in a long list
RADLONG(Y,IMGTYP)	; Returns true if the procedures list should be a long list
RAORDITM(Y,FROM,DIR,IMGTYP)	; Return a subset of orderable items ; .Return Array, Starting Text, Direction, Cross Reference (S.xxx)
REQDET()	; Are "broad" procedures allowed for this division?
REQAPPR(IEN)	; does procedure require radiologist approval?
ISOLATN(Y,DFN)	;Is patient on isolation procedures?
APPROVAL(Y,DUMMY)	; RETURNS LIST OF RADIOLOGISTS WHO MAY APPROVE A ; PROCEDURE WHEN REQUIRED
IMTYPE(DGRP)	; return the mnemonic for the imaging type
IMTYPSEL(Y,DUMMY)	;return list of active imaging types
RADSRC(Y,SRCTYPE)	; return list of available contract/sharing/research sources
LOCTYPE(Y,ORLOC)	; Returns type of location (C,W)
RADURG(URGIEN)	;