SEND OUT (18)    ACCESSION (68)

Name Value
AREA SEND OUT
LR SUBSCRIPT CHEM, HEM, TOX, RIA, SER, etc.
CLEAN UP QUARTERLY
ACCESSION TRANSFORM QUARTERLY
ACC CODE S %DT="",X="T" D ^%DT S LRAD=$E(Y,1,3)_"0000"+(($E(Y,4,5)-1)\3*300+100) S LRAN=1+$S($D(^LRO(68,LRWLC,1,LRAD,1,0)):$P(^(0),"^",4),1:0) Q
PRINT ORDER 52
ABBREVIATION SEND
ASSOCIATED DIVISION
*LAB SECTION CHEMISTRY
RESPONSIBLE OFFICIAL USER,ONE
LAB DIVISION CLINICAL PATHOLOGY