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

TIUEDS8.m

Go to the documentation of this file.

TIUEDS8 ; ;02/28/13

 S X=DE(17),DIC=DIE

 K ^TIU(8925,"F",$E(X,1,30),DA)

TIUEDS8   ; ;02/28/13

 +1        SET X=DE(17)

           SET DIC=DIE

 +2        KILL ^TIU(8925,"F",$EXTRACT(X,1,30),DA)