Routine: ORWDLR32

Information

ORWDLR32 ; SLC/KCM/REV/JDL - Lab Calls; 6/28/2002

Name	Comments	DBIA/ICR reference
DEF(LST,ALOC,ADIV)	; procedure ; For Event Delay Order ; ALOC: Delay Event's default location ; ADIV: Delay Event's default division ; get dialog definition specific to lab
SHORT	; from DEF, get short list of lab quick orders
LCOLLTM	; get collection times
WCOLLTM	; get Ward Collect times
SENDTM	; get send patient times
COLLTYP	; Collection Types in effect for this division
INCDATE(ADATE)	; called from COLLTM, increments date nodes in .ADATE
DOWNAME(DOW)	; function ; Returns Day of Week name (DOW should be $H#7)
URGENCY	; return default urgency for lab
SCHED	; return list of schedules available for lab tests
COMMON	; return list of commonly ordered lab tests
LOAD(LST,TESTID)	; procedure ; Return sample, specimen, & urgency info about a lab test
ALLSAMP(LST)	; procedure ; returns all collection samples ; n^SampIEN^SampName^SpecPtr^TubeTop^^^LabCollect^^SpecName
ONESAMP(LST,IEN)	;Return data for one colelction sample ; n^SampIEN^SampName^SpecPtr^TubeTop^^^LabCollect^^SpecName
ONESPEC(LST,IEN)	;return one specimen
ABBSPEC(LST)	; procedure ; returns specimens with abbreviation (uses 'E' xref)
NXT()	; called by TESTINFO, increments ILST