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

DGRPTX20.m

Go to the documentation of this file.

DGRPTX20 ; ;05/14/26

 S X=DE(34),DIC=DIE

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRPTX20   91     printed  May 25, 2026@13:00:39                                                                                                                                                                                                      Page 2

DGRPTX20  ; ;05/14/26

 +1        SET X=DE(34)

           SET DIC=DIE

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

               DO ADGRU^DGRUDD01(DA)