DGPMXAS1.m

DGPMXAS1 ; ;09/10/03

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

DGPMXAS1  ; ;09/10/03

 +1       ;;;;;;Build 21

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

               SET X=DG(DQ)

               SET DIIX=3_U_DIFLD

               DO AUDIT^DIE