BLRFCLEN.m

BLRFCLEN ; IHS/DIR/FJE - Cleans ALL LAB FILE DD'S FOR NEW INSTALL ;

 ;;5.2;BLR;;NOV 01, 1997

 ;

 W !!,"Improper Entry Point...Operation Cancelled...",!!

 Q

START ;ENTRY POINT FOR COMPLETE KILL OF LAB FILES/DATA

 K ^UTILITY("XBDSET",$J) F XBBPI=1:1 S XBBPIX=$P($T(Q+XBBPI),";;",2) Q:XBBPIX=""  S XBBPIY=$P(XBBPIX,"=",2,99),XBBPIX=$P(XBBPIX,"=",1) S @XBBPIX=XBBPIY

 K XBBPI,XBBPIX,XBBPIY D EN2^XBKD

Q Q

 ;;^UTILITY("XBDSET",$J,60)=D^D

 ;;^UTILITY("XBDSET",$J,60.999999)=D^D

 ;;^UTILITY("XBDSET",$J,61)=D^D

 ;;^UTILITY("XBDSET",$J,61.1)=D^D

 ;;^UTILITY("XBDSET",$J,61.2)=D^D

 ;;^UTILITY("XBDSET",$J,61.3)=D^D

 ;;^UTILITY("XBDSET",$J,61.4)=D^D

 ;;^UTILITY("XBDSET",$J,61.5)=D^D

 ;;^UTILITY("XBDSET",$J,61.6)=D^D

 ;;^UTILITY("XBDSET",$J,62)=D^D

 ;;^UTILITY("XBDSET",$J,62.05)=D^D

 ;;^UTILITY("XBDSET",$J,62.06)=D^D

 ;;^UTILITY("XBDSET",$J,62.07)=D^D

 ;;^UTILITY("XBDSET",$J,62.1)=D^D

 ;;^UTILITY("XBDSET",$J,62.2)=D^D

 ;;^UTILITY("XBDSET",$J,62.3)=D^D

 ;;^UTILITY("XBDSET",$J,62.4)=D^D

 ;;^UTILITY("XBDSET",$J,62.5)=D^D

 ;;^UTILITY("XBDSET",$J,62.55)=D^D

 ;;^UTILITY("XBDSET",$J,62.6)=D^D

 ;;^UTILITY("XBDSET",$J,63)=D^D

 ;;^UTILITY("XBDSET",$J,63.9999)=D^D

 ;;^UTILITY("XBDSET",$J,64)=D^D

 ;;^UTILITY("XBDSET",$J,64.03)=D^D

 ;;^UTILITY("XBDSET",$J,64.05)=D^D

 ;;^UTILITY("XBDSET",$J,64.1)=D^D

 ;;^UTILITY("XBDSET",$J,64.19999)=D^D

 ;;^UTILITY("XBDSET",$J,64.2)=D^D

 ;;^UTILITY("XBDSET",$J,64.21)=D^D

 ;;^UTILITY("XBDSET",$J,64.22)=D^D

 ;;^UTILITY("XBDSET",$J,64.3)=D^D

 ;;^UTILITY("XBDSET",$J,64.5)=D^D

 ;;^UTILITY("XBDSET",$J,64.6)=D^D

 ;;^UTILITY("XBDSET",$J,64.7)=D^D

 ;;^UTILITY("XBDSET",$J,65)=D^D

 ;;^UTILITY("XBDSET",$J,65.4)=D^D

 ;;^UTILITY("XBDSET",$J,65.5)=D^D

 ;;^UTILITY("XBDSET",$J,65.9)=D^D

 ;;^UTILITY("XBDSET",$J,65.9999)=D^D

 ;;^UTILITY("XBDSET",$J,66)=D^D

 ;;^UTILITY("XBDSET",$J,66.2)=D^D

 ;;^UTILITY("XBDSET",$J,66.5)=D^D

 ;;^UTILITY("XBDSET",$J,66.9)=D^D

 ;;^UTILITY("XBDSET",$J,67)=D^D

 ;;^UTILITY("XBDSET",$J,67.1)=D^D

 ;;^UTILITY("XBDSET",$J,67.2)=D^D

 ;;^UTILITY("XBDSET",$J,67.3)=D^D

 ;;^UTILITY("XBDSET",$J,67.4)=D^D

 ;;^UTILITY("XBDSET",$J,67.9)=D^D

 ;;^UTILITY("XBDSET",$J,67.99999)=D^D

 ;;^UTILITY("XBDSET",$J,68)=D^D

 ;;^UTILITY("XBDSET",$J,68.2)=D^D

 ;;^UTILITY("XBDSET",$J,68.4)=D^D

 ;;^UTILITY("XBDSET",$J,69)=D^D

 ;;^UTILITY("XBDSET",$J,69.1)=D^D

 ;;^UTILITY("XBDSET",$J,69.2)=D^D

 ;;^UTILITY("XBDSET",$J,69.9)=D^D

 ;;^UTILITY("XBDSET",$J,69.91)=D^D

 ;;^UTILITY("XBDSET",$J,95)=D^D

BLRFCLEN  ; IHS/DIR/FJE - Cleans ALL LAB FILE DD'S FOR NEW INSTALL ;

 +1       ;;5.2;BLR;;NOV 01, 1997

 +2       ;

 +3        WRITE !!,"Improper Entry Point...Operation Cancelled...",!!

 +4        QUIT 

START     ;ENTRY POINT FOR COMPLETE KILL OF LAB FILES/DATA

 +1        KILL ^UTILITY("XBDSET",$JOB)

           FOR XBBPI=1:1

               SET XBBPIX=$PIECE($TEXT(Q+XBBPI),";;",2)

               IF XBBPIX=""

                   QUIT 

               SET XBBPIY=$PIECE(XBBPIX,"=",2,99)

               SET XBBPIX=$PIECE(XBBPIX,"=",1)

               SET @XBBPIX=XBBPIY

 +2        KILL XBBPI,XBBPIX,XBBPIY

           DO EN2^XBKD

Q          QUIT 

 +1       ;;^UTILITY("XBDSET",$J,60)=D^D

 +2       ;;^UTILITY("XBDSET",$J,60.999999)=D^D

 +3       ;;^UTILITY("XBDSET",$J,61)=D^D

 +4       ;;^UTILITY("XBDSET",$J,61.1)=D^D

 +5       ;;^UTILITY("XBDSET",$J,61.2)=D^D

 +6       ;;^UTILITY("XBDSET",$J,61.3)=D^D

 +7       ;;^UTILITY("XBDSET",$J,61.4)=D^D

 +8       ;;^UTILITY("XBDSET",$J,61.5)=D^D

 +9       ;;^UTILITY("XBDSET",$J,61.6)=D^D

 +10      ;;^UTILITY("XBDSET",$J,62)=D^D

 +11      ;;^UTILITY("XBDSET",$J,62.05)=D^D

 +12      ;;^UTILITY("XBDSET",$J,62.06)=D^D

 +13      ;;^UTILITY("XBDSET",$J,62.07)=D^D

 +14      ;;^UTILITY("XBDSET",$J,62.1)=D^D

 +15      ;;^UTILITY("XBDSET",$J,62.2)=D^D

 +16      ;;^UTILITY("XBDSET",$J,62.3)=D^D

 +17      ;;^UTILITY("XBDSET",$J,62.4)=D^D

 +18      ;;^UTILITY("XBDSET",$J,62.5)=D^D

 +19      ;;^UTILITY("XBDSET",$J,62.55)=D^D

 +20      ;;^UTILITY("XBDSET",$J,62.6)=D^D

 +21      ;;^UTILITY("XBDSET",$J,63)=D^D

 +22      ;;^UTILITY("XBDSET",$J,63.9999)=D^D

 +23      ;;^UTILITY("XBDSET",$J,64)=D^D

 +24      ;;^UTILITY("XBDSET",$J,64.03)=D^D

 +25      ;;^UTILITY("XBDSET",$J,64.05)=D^D

 +26      ;;^UTILITY("XBDSET",$J,64.1)=D^D

 +27      ;;^UTILITY("XBDSET",$J,64.19999)=D^D

 +28      ;;^UTILITY("XBDSET",$J,64.2)=D^D

 +29      ;;^UTILITY("XBDSET",$J,64.21)=D^D

 +30      ;;^UTILITY("XBDSET",$J,64.22)=D^D

 +31      ;;^UTILITY("XBDSET",$J,64.3)=D^D

 +32      ;;^UTILITY("XBDSET",$J,64.5)=D^D

 +33      ;;^UTILITY("XBDSET",$J,64.6)=D^D

 +34      ;;^UTILITY("XBDSET",$J,64.7)=D^D

 +35      ;;^UTILITY("XBDSET",$J,65)=D^D

 +36      ;;^UTILITY("XBDSET",$J,65.4)=D^D

 +37      ;;^UTILITY("XBDSET",$J,65.5)=D^D

 +38      ;;^UTILITY("XBDSET",$J,65.9)=D^D

 +39      ;;^UTILITY("XBDSET",$J,65.9999)=D^D

 +40      ;;^UTILITY("XBDSET",$J,66)=D^D

 +41      ;;^UTILITY("XBDSET",$J,66.2)=D^D

 +42      ;;^UTILITY("XBDSET",$J,66.5)=D^D

 +43      ;;^UTILITY("XBDSET",$J,66.9)=D^D

 +44      ;;^UTILITY("XBDSET",$J,67)=D^D

 +45      ;;^UTILITY("XBDSET",$J,67.1)=D^D

 +46      ;;^UTILITY("XBDSET",$J,67.2)=D^D

 +47      ;;^UTILITY("XBDSET",$J,67.3)=D^D

 +48      ;;^UTILITY("XBDSET",$J,67.4)=D^D

 +49      ;;^UTILITY("XBDSET",$J,67.9)=D^D

 +50      ;;^UTILITY("XBDSET",$J,67.99999)=D^D

 +51      ;;^UTILITY("XBDSET",$J,68)=D^D

 +52      ;;^UTILITY("XBDSET",$J,68.2)=D^D

 +53      ;;^UTILITY("XBDSET",$J,68.4)=D^D

 +54      ;;^UTILITY("XBDSET",$J,69)=D^D

 +55      ;;^UTILITY("XBDSET",$J,69.1)=D^D

 +56      ;;^UTILITY("XBDSET",$J,69.2)=D^D

 +57      ;;^UTILITY("XBDSET",$J,69.9)=D^D

 +58      ;;^UTILITY("XBDSET",$J,69.91)=D^D

 +59      ;;^UTILITY("XBDSET",$J,95)=D^D