MONTHLY (2)    EXECUTE CODE (62.07)

Name Value
NAME MONTHLY
EXECUTE CODE S %DT="",X="T" D ^%DT S LRAD=$E(Y,1,5)_"00" S LRAN=1+$S($D(^LRO(68,LRWLC,1,LRAD,1,0)):$P(^(0),"^",3),1:0) Q
PURGE CONTROL M
TYPE ACCESSION