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

TIUEDS2.m

Go to the documentation of this file.

TIUEDS2 ; ;04/07/16

 S X=DG(DQ),DIC=DIE

 S ^TIU(8925,"FIX",$E(X,1,30),DA)=""

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUEDS2   80     printed  Nov 22, 2024@17:50:03                                                                                                                                                                                                       Page 2

TIUEDS2   ; ;04/07/16

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2        SET ^TIU(8925,"FIX",$EXTRACT(X,1,30),DA)=""