DGPMX51 ; ;10/15/12
S X=DE(17),DIIX=2_U_DIFLD D AUDIT^DIET
+1 SET X=DE(17)
SET DIIX=2_U_DIFLD
DO AUDIT^DIET