DGX5F2.m

DGX5F2 ; ;03/21/13

 S X=DE(29),DIC=DIE

 K ^DGPT(DA(1),"M","AC",$E(X,1,30),DA)

 S X=DE(29),DIC=DIE

 X "N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"

DGX5F2    ; ;03/21/13

 +1        SET X=DE(29)

           SET DIC=DIE

 +2        KILL ^DGPT(DA(1),"M","AC",$EXTRACT(X,1,30),DA)

 +3        SET X=DE(29)

           SET DIC=DIE

 +4        XECUTE "N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"