DGPMX52.m

DGPMX52 ; ;10/15/12

 I $D(DE(17))'[0!(^DD(DP,DIFLD,"AUDIT")'="e") S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET

DGPMX52   ; ;10/15/12

 +1        IF $DATA(DE(17))'[0!(^DD(DP,DIFLD,"AUDIT")'="e")

               SET X=DG(DQ)

               SET DIIX=3_U_DIFLD

               DO AUDIT^DIET