ACRCSS2.m

ACRCSS2 ; COMPILED XREF FOR FILE #9002193 ; 09/30/09

 ; 

 I X'="" K ^ACRSS("B",$E(X,1,30),DA)

END G ^ACRCSS3

ACRCSS2   ; COMPILED XREF FOR FILE #9002193 ; 09/30/09

 +1       ; 

 +2        IF X'=""

               KILL ^ACRSS("B",$EXTRACT(X,1,30),DA)

END        GOTO ^ACRCSS3