NAME	LRBLPLOGIN
DESCRIPTION	Log-in blood sample from a patient for blood bank tests and procedures.
CREATOR	USER,ONE
E ACTION PRESENT	YES
ENTRY ACTION	X ^%ZOSF("NBRK") D ^LRPARAM S LR("M")=1,X="BLOOD BANK" D ^LRUTL Q:Y=-1 S X="BLOOD BANK",DIC="^LAB(62.6,",DIC(0)="" D ^DIC Q:Y<1 W !?20,LRAA(4),! S LRQ=1,LRFLOG=Y D EN^LRBLPCS,^LRORD,V^LRU X ^%ZOSF("BRK")
MENU TEXT	Specimen log-in
OUT OF ORDER MESSAGE	out-of-order
PACKAGE	LAB SERVICE
TIMESTAMP	53738,70134
TYPE	action
UPPERCASE MENU TEXT	SPECIMEN LOG-IN