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 ; ;11/29/04

 S X=DE(12),DIC=DIE

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

IBXEX2    ; ;11/29/04

 +1        SET X=DE(12)

           SET DIC=DIE

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