AVAPREI.m

AVAPREI ;RFD/DSM - CREATED BY XBBPI ON NOV 23,1992 

 ;;93.1;VA SUPPORT FILES;;FEB 02, 1993

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

AVAPREI   ;RFD/DSM - CREATED BY XBBPI ON NOV 23,1992 

 +1       ;;93.1;VA SUPPORT FILES;;FEB 02, 1993

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

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

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

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

 +5       ;;^UTILITY("XBDSET",$J,7)=S^S

 +6       ;;^UTILITY("XBDSET",$J,7.1)=S^S

 +7       ;;^UTILITY("XBDSET",$J,8)=S^S

 +8       ;;^UTILITY("XBDSET",$J,9.8)=S^S

 +9       ;;^UTILITY("XBDSET",$J,10)=S^S

 +10      ;;^UTILITY("XBDSET",$J,11)=S^S

 +11      ;;^UTILITY("XBDSET",$J,12)=S^S

 +12      ;;^UTILITY("XBDSET",$J,13)=S^S

 +13      ;;^UTILITY("XBDSET",$J,15)=S^S

 +14      ;;^UTILITY("XBDSET",$J,15.1)=S^S

 +15      ;;^UTILITY("XBDSET",$J,16)=S^S

 +16      ;;^UTILITY("XBDSET",$J,19)=S^S

 +17      ;;^UTILITY("XBDSET",$J,19.1)=S^S

 +18      ;;^UTILITY("XBDSET",$J,21)=S^S

 +19      ;;^UTILITY("XBDSET",$J,22)=S^S

 +20      ;;^UTILITY("XBDSET",$J,23)=S^S

 +21      ;;^UTILITY("XBDSET",$J,24)=S^S

 +22      ;;^UTILITY("XBDSET",$J,25)=S^S

 +23      ;;^UTILITY("XBDSET",$J,31)=S^S

 +24      ;;^UTILITY("XBDSET",$J,35)=S^S

 +25      ;;^UTILITY("XBDSET",$J,36)=S^S

 +26      ;;^UTILITY("XBDSET",$J,40.7)=S^S

 +27      ;;^UTILITY("XBDSET",$J,42.1)=S^S

 +28      ;;^UTILITY("XBDSET",$J,42.2)=S^S

 +29      ;;^UTILITY("XBDSET",$J,44)=S^S

 +30      ;;^UTILITY("XBDSET",$J,45.7)=S^S

 +31      ;;^UTILITY("XBDSET",$J,49)=S^S

 +32      ;;^UTILITY("XBDSET",$J,71)=S^S

 +33      ;;^UTILITY("XBDSET",$J,200)=S^S