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

DGPTX42.m

Go to the documentation of this file.

DGPTX42 ; ;10/15/12

 S X=DE(25),DIC=DIE

 K ^DGPT(DA(1),"S","AO",$E(X,1,30),DA)

DGPTX42   ; ;10/15/12

 +1        SET X=DE(25)

           SET DIC=DIE

 +2        KILL ^DGPT(DA(1),"S","AO",$EXTRACT(X,1,30),DA)