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

DGRPTX23.m

Go to the documentation of this file.

DGRPTX23 ; ;10/30/24

 S X=DG(DQ),DIC=DIE

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

 S X=DG(DQ),DIC=DIE

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

 I $D(DE(37))'[0!($G(^DD(DP,DIFLD,"AUDIT"))["y") S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRPTX23   267     printed  Dec 13, 2024@02:56:45                                                                                                                                                                                                     Page 2

DGRPTX23  ; ;10/30/24

 +1        SET X=DG(DQ)

           SET DIC=DIE

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

               SET VAFCF=".219;"

               DO AVAFC^VAFCDD01(DA)

 +3        SET X=DG(DQ)

           SET DIC=DIE

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

               DO ADGRU^DGRUDD01(DA)

 +5        IF $DATA(DE(37))'[0!($GET(^DD(DP,DIFLD,"AUDIT"))["y")

               SET X=DG(DQ)

               SET DIIX=3_U_DIFLD

               DO AUDIT^DIET