AUTOPSY (32)    ACCESSION (68)

Name Value
AREA AUTOPSY
LR SUBSCRIPT AUTOPSY
CLEAN UP YEARLY
ACCESSION TRANSFORM YEARLY
ACC CODE S %DT="",X="T" D ^%DT S LRAD=$E(Y,1,3)_"0000" S LRAN=1+$S($D(^LRO(68,LRWLC,1,LRAD,1,0)):$P(^(0),"^",3),1:0) Q
PRINT ORDER 70
BYPASS ROLLOVER YES
ABBREVIATION AU
ASSOCIATED DIVISION
*LAB SECTION AUTOPSY PATHOLOGY
RESPONSIBLE OFFICIAL USER,ONE
LAB DIVISION ANATOMIC PATHOLOGY