URGENCY (54)    EXECUTE CODE (62.07)

Name Value
NAME URGENCY
EXECUTE CODE K LRURG S LRURG(0)="ROUTINE" F I=0:0 S I=$O(^LAB(62.05,I)) Q:I<1 S LRURG(I)=$P(^(I,0),U,1)
TYPE XECUTE
SUBSCRIPT NAME URG