BLRPOST1.m

BLRPOST1 ;;IHS/ITSC/TPF - FORCE COMPARE OF SYSTEM TO TRANSPORT GLOBAL [ 10/15/2002  11:33 AM ]

 ;;5.2;LR;**1014**;OCT 9, 2002

 ;CLEAR OUT NON LR NAMESPACE GLOBAL

 N BLR

 F BLR="^TIMTEST" D

 . I $$KILLOK^ZIBGCHAR($P(BLR,U,2)) W !,$$ERR^ZIBGCHAR($$KILLOK^ZIBGCHAR($P(BLR,U,2)))_"  "_BLR Q

 . W !,"KILLING "_BLR K @BLR

 Q

BLRPOST1  ;;IHS/ITSC/TPF - FORCE COMPARE OF SYSTEM TO TRANSPORT GLOBAL [ 10/15/2002  11:33 AM ]

 +1       ;;5.2;LR;**1014**;OCT 9, 2002

 +2       ;CLEAR OUT NON LR NAMESPACE GLOBAL

 +3        NEW BLR

 +4        FOR BLR="^TIMTEST"

               Begin DoDot:1

 +5                IF $$KILLOK^ZIBGCHAR($PIECE(BLR,U,2))

                       WRITE !,$$ERR^ZIBGCHAR($$KILLOK^ZIBGCHAR($PIECE(BLR,U,2)))_"  "_BLR

                       QUIT 

 +6                WRITE !,"KILLING "_BLR

                   KILL @BLR

               End DoDot:1

 +7        QUIT