Routine: LR7OR3

Information

LR7OR3 ;slc/dcm - Get Lab TEST parameters ;8/11/97

Source file <LR7OR3.m>

Package	Total	Caller Graph
Order Entry Results Reporting	5	ORCDLR ORKLR2 ORWDLR ORWDLR32 ORWDXM2

Name	Comments	DBIA/ICR reference
COLL(TEST,Y)	;Get Collection Sample-Specimen data
SCOM(TEST,SAMP,TEXT)	;Get Ward Remarks (specimen) & put in TEXT aray	ICR #2428 Status: Active Usage: Controlled Subscription
URG(TEST,Y)	;Get Urgency params for TEST
DEFURG()	;Get default urgency for lab	ICR #2428 Status: Active Usage: Controlled Subscription
GCOM(TEST,TEXT)	;Get General Ward Instructions	ICR #2428 Status: Active Usage: Controlled Subscription
TEST(TEST,Y)	;Gets Lab Test ordering parameters from file 60	ICR #2428 Status: Active Usage: Controlled Subscription
GET(TEST)	;Get TEST ifn
SAMP(X)	;Build Collection Sample data

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	GET+2, GET+3, TEST+15, COLL+5, COLL+7, COLL+8, COLL+9, COLL+10, COLL+11, COLL+12 , URG+5, SCOM+4, SCOM+6, GCOM+2, GCOM+3
^LAB(61 - [#61]	COLL+10
^LAB(62 - [#62]	SAMP+6
^LAB(62.05 - [#62.05]	URG+6, URG+7
^LAB(62.07 - [#62.07]	COLL+6, SAMP+7
^LAB(69.9 - [#69.9]	DEFURG+1

Name	Field # of Occurrence
^(	COLL+7, COLL+8, COLL+10, COLL+12, URG+7
^(0	COLL+9, COLL+11, SAMP+6

Name	Field # of Occurrence
I	COLL+1~, COLL+5, COLL+7, COLL+8, COLL+10, COLL+12, URG+1~, URG+7*
J	COLL+1~, COLL+7, COLL+8
REQ	SAMP+5~, SAMP+7*, SAMP+8
SAMP	COLL+1~, SCOM~, SCOM+4
SPEC	COLL+1~
TEST	GET~, GET+1, GET+2, GET+3, GET+4, TEST~, TEST+13, TEST+14, TEST+15, TEST+16 , TEST+17, TEST+18, COLL~, COLL+2, COLL+3, COLL+4, COLL+5, COLL+7, COLL+8, COLL+9 , COLL+10, COLL+11, COLL+12, URG~, URG+2, URG+3, URG+4, URG+5, SCOM~, SCOM+4 , SCOM+6, GCOM~, GCOM+2, GCOM+3
TEXT	SCOM~, SCOM+6*, GCOM~
TEXT("GenWardInstructions"	GCOM+3*
U	DEFURG+1
URG	URG+1~
X	COLL+1~, COLL+7, COLL+10, COLL+12, URG+1~, SAMP~, SAMP+6, SAMP+7, SAMP+8, SCOM+3~ , SCOM+4, SCOM+5, SCOM+6
X0	TEST+12~, TEST+15, COLL+1~, COLL+5, COLL+6, COLL+11, COLL+12, COLL+13, URG+1~, URG+5* , URG+6, URG+7, SAMP+5~, SAMP+6*, SAMP+8
Y	TEST~, TEST+16, TEST+17, TEST+18, COLL~, URG~, SAMP+5~, SAMP+8*, SAMP+9
Y("CollSamp"	COLL+7, COLL+8, COLL+13*
Y("Default Co	llSamp" , COLL+9*
Y("Default Ur	gency" , URG+6*
Y("Lab CollSa	mp" , COLL+12, COLL+13
Y("ReqCom"	COLL+6*
Y("Specimens"	COLL+10*
Y("Unique Col	lSamp" , COLL+11*
Y("Urgencies"	URG+7*