- 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