--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBAXA19 356 printed Apr 09, 2024@20:57:57 Page 2
DVBAXA19 ; ;12/08/20
+1 SET X=DE(24)
SET DIC=DIE
+2 DO EVENT^IVMPLOG(DA)
+3 SET X=DE(24)
SET DIC=DIE
+4 SET IVMX=X
SET X="IVMPXFR"
XECUTE ^%ZOSF("TEST")
if $TEST
DO DPT^IVMPXFR
SET X=IVMX
KILL IVMX
+5 SET X=DE(24)
SET DIC=DIE
+6 IF ($TEXT(AVAFC^VAFCDD01)'="")
SET VAFCF=".132;"
DO AVAFC^VAFCDD01(DA)
+7 SET X=DE(24)
SET DIC=DIE
+8 if ($TEXT(ADGRU^DGRUDD01)'="")
DO ADGRU^DGRUDD01(DA)
+9 SET X=DE(24)
SET DIIX=2_U_DIFLD
DO AUDIT^DIET