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

DGRPTX17.m

Go to the documentation of this file.

DGRPTX17 ; ;10/30/24

 S X=DE(31),DIC=DIE

 X "S DGXRF=.214 D ^DGDDC Q"

 S X=DE(31),DIC=DIE

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRPTX17   142     printed  Jan 29, 2026@15:55:08                                                                                                                                                                                                     Page 2

DGRPTX17  ; ;10/30/24

 +1        SET X=DE(31)

           SET DIC=DIE

 +2        XECUTE "S DGXRF=.214 D ^DGDDC Q"

 +3        SET X=DE(31)

           SET DIC=DIE

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

               DO ADGRU^DGRUDD01(DA)