- BCHPREI ; IHS/TUCSON/LAB - CREATED BY XBBPI ON SEP 5,1995 ; [ 10/28/96 2:05 PM ]
- ;;1.0;IHS RPMS CHR SYSTEM;;OCT 28, 1996
- 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,90002)=S^S
- ;;^UTILITY("XBDSET",$J,90002.01)=S^S
- ;;^UTILITY("XBDSET",$J,90002.31)=S^S
- ;;^UTILITY("XBDSET",$J,90002.41)=S^S
- ;;^UTILITY("XBDSET",$J,90002.42)=S^S
- ;;^UTILITY("XBDSET",$J,90002.43)=S^S
- ;;^UTILITY("XBDSET",$J,90002.51)=S^S
- ;;^UTILITY("XBDSET",$J,90002.52)=S^S
- ;;^UTILITY("XBDSET",$J,90002.53)=S^S
- ;;^UTILITY("XBDSET",$J,90002.54)=S^S
- ;;^UTILITY("XBDSET",$J,90002.55)=S^S
- ;;^UTILITY("XBDSET",$J,90002.56)=S^S
- ;;^UTILITY("XBDSET",$J,90002.57)=S^S
- ;;^UTILITY("XBDSET",$J,90002.58)=S^S
- ;;^UTILITY("XBDSET",$J,90002.91)=S^S
- ;;^UTILITY("XBDSET",$J,90002.92)=S^S
- ;;^UTILITY("XBDSET",$J,90002.93)=S^S
- ;;^UTILITY("XBDSET",$J,90002.95)=S^S
- BCHPREI ; IHS/TUCSON/LAB - CREATED BY XBBPI ON SEP 5,1995 ; [ 10/28/96 2:05 PM ]
- +1 ;;1.0;IHS RPMS CHR SYSTEM;;OCT 28, 1996
- +2 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
- +3 KILL XBBPI,XBBPIX,XBBPIY
- DO EN2^XBKD
- Q QUIT
- +1 ;;^UTILITY("XBDSET",$J,90002)=S^S
- +2 ;;^UTILITY("XBDSET",$J,90002.01)=S^S
- +3 ;;^UTILITY("XBDSET",$J,90002.31)=S^S
- +4 ;;^UTILITY("XBDSET",$J,90002.41)=S^S
- +5 ;;^UTILITY("XBDSET",$J,90002.42)=S^S
- +6 ;;^UTILITY("XBDSET",$J,90002.43)=S^S
- +7 ;;^UTILITY("XBDSET",$J,90002.51)=S^S
- +8 ;;^UTILITY("XBDSET",$J,90002.52)=S^S
- +9 ;;^UTILITY("XBDSET",$J,90002.53)=S^S
- +10 ;;^UTILITY("XBDSET",$J,90002.54)=S^S
- +11 ;;^UTILITY("XBDSET",$J,90002.55)=S^S
- +12 ;;^UTILITY("XBDSET",$J,90002.56)=S^S
- +13 ;;^UTILITY("XBDSET",$J,90002.57)=S^S
- +14 ;;^UTILITY("XBDSET",$J,90002.58)=S^S
- +15 ;;^UTILITY("XBDSET",$J,90002.91)=S^S
- +16 ;;^UTILITY("XBDSET",$J,90002.92)=S^S
- +17 ;;^UTILITY("XBDSET",$J,90002.93)=S^S
- +18 ;;^UTILITY("XBDSET",$J,90002.95)=S^S