DGX5F3.m

DGX5F3 ; ;03/21/13

 S X=DG(DQ),DIC=DIE

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

 S X=DG(DQ),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)"

DGX5F3    ; ;03/21/13

 +1        SET X=DG(DQ)

           SET DIC=DIE

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

 +3        SET X=DG(DQ)

           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)"