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

ADGT043.m

Go to the documentation of this file.

ADGT043 ; ;04/08/09

 S X=DG(DQ),DIC=DIE

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

ADGT043   ; ;04/08/09

 +1        SET X=DG(DQ)

           SET DIC=DIE

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