BRNPREI.m

BRNPREI ; IHS/PHXAO/TMJ - CREATED BY XBBPI ON JAN 20, 2003 

 ;;2.0;RELEASE OF INFO SYSTEM;;APR 10, 2003

 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,90264)=S^S

 ;;^UTILITY("XBDSET",$J,900264.1)=S^S

 ;;^UTILITY("XBDSET",$J,90264.2)=S^S

 ;;^UTILITY("XBDSET",$J,90264.3)=S^S

BRNPREI   ; IHS/PHXAO/TMJ - CREATED BY XBBPI ON JAN 20, 2003 

 +1       ;;2.0;RELEASE OF INFO SYSTEM;;APR 10, 2003

 +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,90264)=S^S

 +2       ;;^UTILITY("XBDSET",$J,900264.1)=S^S

 +3       ;;^UTILITY("XBDSET",$J,90264.2)=S^S

 +4       ;;^UTILITY("XBDSET",$J,90264.3)=S^S