--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRPTX12 132 printed Oct 16, 2024@18:57:07 Page 2
DGRPTX12 ; ;07/06/22
+1 SET X=DE(25)
SET DIC=DIE
+2 if ($TEXT(ADGRU^DGRUDD01)'="")
DO ADGRU^DGRUDD01(DA)
+3 SET X=DE(25)
SET DIIX=2_U_DIFLD
DO AUDIT^DIET