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

IBXST4.m

Go to the documentation of this file.

IBXST4 ; ;10/29/04

 S X=DG(DQ),DIC=DIE

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBXST4   80     printed  May 14, 2023@14:31:09                                                                                                                                                                                                        Page 2

IBXST4    ; ;10/29/04

 +1        SET X=DG(DQ)

           SET DIC=DIE

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