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

BLRPOST1.m

Go to the documentation of this file.
  1. 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
  1. ;CLEAR OUT NON LR NAMESPACE GLOBAL
  1. N BLR
  1. F BLR="^TIMTEST" D
  1. . I $$KILLOK^ZIBGCHAR($P(BLR,U,2)) W !,$$ERR^ZIBGCHAR($$KILLOK^ZIBGCHAR($P(BLR,U,2)))_" "_BLR Q
  1. . W !,"KILLING "_BLR K @BLR
  1. Q