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

IBXEX2.m

Go to the documentation of this file.

IBXEX2 ; ;10/25/02

 S X=DE(13),DIC=DIE

 K ^IBA(354.1,"APRIOR",$E(X,1,30),DA)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBXEX2   80     printed  Apr 09, 2024@21:19:15                                                                                                                                                                                                        Page 2

IBXEX2    ; ;10/25/02

 +1        SET X=DE(13)

           SET DIC=DIE

 +2        KILL ^IBA(354.1,"APRIOR",$EXTRACT(X,1,30),DA)