Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: DVBAXA21

DVBAXA21.m

Go to the documentation of this file.

DVBAXA21 ; ;10/30/24

 S X=DG(DQ),DIC=DIE

 S X=DG(DQ),DIC=DIE

 D EVENT^IVMPLOG(DA)

 S X=DG(DQ),DIC=DIE

 D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBAXA21   159     printed  Nov 22, 2024@16:52:54                                                                                                                                                                                                     Page 2

DVBAXA21  ; ;10/30/24

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2       ;

 +3        SET X=DG(DQ)

           SET DIC=DIE

 +4        DO EVENT^IVMPLOG(DA)

 +5        SET X=DG(DQ)

           SET DIC=DIE

 +6        if ($TEXT(ADGRU^DGRUDD01)'="")

               DO ADGRU^DGRUDD01(DA)