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

ASDT013.m

Go to the documentation of this file.

ASDT013 ; ;06/30/03

 S X=DE(13),DIC=DIE

 K ^SC("ALTP",$E(X,1,30),DA)

ASDT013   ; ;06/30/03

 +1        SET X=DE(13)

           SET DIC=DIE

 +2        KILL ^SC("ALTP",$EXTRACT(X,1,30),DA)