DUZ (49)    EXECUTE CODE (62.07)

Name Value
NAME DUZ
EXECUTE CODE S (LRUSNM,LRUSI)="" Q:'$D(X) Q:'$D(^VA(200,+X,0)) S LRUSNM=$P(^(0),"^",1),LRUSI=$P(^(0),"^",2) Q
TYPE XECUTE
SUBSCRIPT NAME DUZ