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

ADGT042.m

Go to the documentation of this file.

ADGT042 ; ;04/08/09

 S X=DE(20),DIC=DIE

 K ^ADGDS("CN",$P(^DIC(42,X,0),"^"),DA(1),DA)

ADGT042   ; ;04/08/09

 +1        SET X=DE(20)

           SET DIC=DIE

 +2        KILL ^ADGDS("CN",$PIECE(^DIC(42,X,0),"^"),DA(1),DA)