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

DGRPTX9.m

Go to the documentation of this file.

DGRPTX9 ; ;07/06/22

 S X=DE(22),DIC=DIE

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

 S X=DE(22),DIC=DIE

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

 S X=DE(22),DIC=DIE

 D EVENT^IVMPLOG(DA)

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRPTX9   260     printed  Apr 09, 2024@21:37:55                                                                                                                                                                                                      Page 2

DGRPTX9   ; ;07/06/22

 +1        SET X=DE(22)

           SET DIC=DIE

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

               SET VAFCF=".05;"

               DO AVAFC^VAFCDD01(DA)

 +3        SET X=DE(22)

           SET DIC=DIE

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

               DO ADGRU^DGRUDD01(DA)

 +5        SET X=DE(22)

           SET DIC=DIE

 +6        DO EVENT^IVMPLOG(DA)

 +7        SET X=DE(22)

           SET DIIX=2_U_DIFLD

           DO AUDIT^DIET