AUTPREI.m

AUTPREI ;IHS/DIRM/XBBPI - CREATED BY XBBPI ON NOV 01,1997 [ 03/04/98   8:10 AM ]

 ;;98.1;IHS DICTIONARIES (POINTERS);;MAR 04, 1998;Build 6

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

AUTPREI   ;IHS/DIRM/XBBPI - CREATED BY XBBPI ON NOV 01,1997 [ 03/04/98   8:10 AM ]

 +1       ;;98.1;IHS DICTIONARIES (POINTERS);;MAR 04, 1998;Build 6

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 +34      ;;^UTILITY("XBDSET",$J,9999999.36)=S^S

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

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

 +37      ;;^UTILITY("XBDSET",$J,9999999.39)=S^S

 +38      ;;^UTILITY("XBDSET",$J,9999999.41)=S^S

 +39      ;;^UTILITY("XBDSET",$J,9999999.42)=S^S

 +40      ;;^UTILITY("XBDSET",$J,9999999.43)=S^S

 +41      ;;^UTILITY("XBDSET",$J,9999999.44)=S^S

 +42      ;;^UTILITY("XBDSET",$J,9999999.45)=S^S

 +43      ;;^UTILITY("XBDSET",$J,9999999.46)=S^S

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

 +45      ;;^UTILITY("XBDSET",$J,9999999.48)=S^S

 +46      ;;^UTILITY("XBDSET",$J,9999999.49)=S^S

 +47      ;;^UTILITY("XBDSET",$J,9999999.51)=S^S

 +48      ;;^UTILITY("XBDSET",$J,9999999.52)=S^S

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

 +50      ;;^UTILITY("XBDSET",$J,9999999.55)=S^S

 +51      ;;^UTILITY("XBDSET",$J,9999999.56)=S^S

 +52      ;;^UTILITY("XBDSET",$J,9999999.57)=S^S

 +53      ;;^UTILITY("XBDSET",$J,9999999.58)=S^S

 +54      ;;^UTILITY("XBDSET",$J,9999999.59)=S^S

 +55      ;;^UTILITY("XBDSET",$J,9999999.591)=S^S

 +56      ;;^UTILITY("XBDSET",$J,9999999.61)=S^S

 +57      ;;^UTILITY("XBDSET",$J,9999999.62)=S^S

 +58      ;;^UTILITY("XBDSET",$J,9999999.63)=S^S

 +59      ;;^UTILITY("XBDSET",$J,9999999.64)=S^S

 +60      ;;^UTILITY("XBDSET",$J,9999999.65)=S^S

 +61      ;;^UTILITY("XBDSET",$J,9999999.66)=S^S

 +62      ;;^UTILITY("XBDSET",$J,9999999.67)=S^S

 +63      ;;^UTILITY("XBDSET",$J,9999999.68)=S^S

 +64      ;;^UTILITY("XBDSET",$J,9999999.69)=S^S

 +65      ;;^UTILITY("XBDSET",$J,9999999.71)=S^S

 +66      ;;^UTILITY("XBDSET",$J,9999999.72)=S^S

 +67      ;;^UTILITY("XBDSET",$J,9999999.74)=S^S

 +68      ;;^UTILITY("XBDSET",$J,9999999.75)=S^S

 +69      ;;^UTILITY("XBDSET",$J,9999999.76)=S^S

 +70      ;;^UTILITY("XBDSET",$J,9999999.77)=S^S

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

 +72      ;;^UTILITY("XBDSET",$J,9999999.79)=S^S

 +73      ;;^UTILITY("XBDSET",$J,9999999.81)=S^S

 +74      ;;^UTILITY("XBDSET",$J,9999999.82)=S^S

 +75      ;;^UTILITY("XBDSET",$J,9999999.87)=S^S