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 ; ;05/14/26

 S X=DG(DQ),DIC=DIE

 D SET^DGREGDD1(DA,.218,.21,8,$E(X,1,5))

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRPTX23   85     printed  May 25, 2026@13:00:42                                                                                                                                                                                                      Page 2

DGRPTX23  ; ;05/14/26

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2        DO SET^DGREGDD1(DA,.218,.21,8,$EXTRACT(X,1,5))