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

IBXST3.m

Go to the documentation of this file.

IBXST3 ; ;10/29/04

 S X=DE(19),DIC=DIE

 K ^DGCR(399,"ALEX",$E(X,1,30),DA)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBXST3   77     printed  Dec 13, 2024@02:32:43                                                                                                                                                                                                        Page 2

IBXST3    ; ;10/29/04

 +1        SET X=DE(19)

           SET DIC=DIE

 +2        KILL ^DGCR(399,"ALEX",$EXTRACT(X,1,30),DA)