BCHPREI.m

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