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

DGMTXC1.m

Go to the documentation of this file.

DGMTXC1 ; ;12/20/02

 S X=DG(DQ),DIC=DIE

 D:$G(DGMTYPT)<3 AUTOUPD^DGENA2(+$P(^DGMT(408.31,DA,0),U,2),2)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGMTXC1   106     printed  Apr 09, 2024@21:43:33                                                                                                                                                                                                      Page 2

DGMTXC1   ; ;12/20/02

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2        if $GET(DGMTYPT)<3

               DO AUTOUPD^DGENA2(+$PIECE(^DGMT(408.31,DA,0),U,2),2)