DVBHCE3.m

DVBHCE3 ; ;07/06/22

 S X=DE(56),DIC=DIE

 K ^DPT("APOS",$E(X,1,30),DA)

 S X=DE(56),DIC=DIE

 ;

 S X=DE(56),DIC=DIE

 I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".323;" D AVAFC^VAFCDD01(DA)

 S X=DE(56),DIC=DIE

 D EVENT^IVMPLOG(DA)

 S X=DE(56),DIIX=2_U_DIFLD D AUDIT^DIET

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBHCE3   269     printed  Mar 13, 2025@21:03:02                                                                                                                                                                                                      Page 2

DVBHCE3   ; ;07/06/22

 +1        SET X=DE(56)

           SET DIC=DIE

 +2        KILL ^DPT("APOS",$EXTRACT(X,1,30),DA)

 +3        SET X=DE(56)

           SET DIC=DIE

 +4       ;

 +5        SET X=DE(56)

           SET DIC=DIE

 +6        IF ($TEXT(AVAFC^VAFCDD01)'="")

               SET VAFCF=".323;"

               DO AVAFC^VAFCDD01(DA)

 +7        SET X=DE(56)

           SET DIC=DIE

 +8        DO EVENT^IVMPLOG(DA)

 +9        SET X=DE(56)

           SET DIIX=2_U_DIFLD

           DO AUDIT^DIET