- ACDPREI ;IHS/ADC/EDE/KML - created by XBBPI on 3/24/97;
- ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
- 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,9002170)=S^S
- ;;^UTILITY("XBDSET",$J,9002170.1)=S^S
- ;;^UTILITY("XBDSET",$J,9002170.11)=S^S
- ;;^UTILITY("XBDSET",$J,9002170.2)=S^S
- ;;^UTILITY("XBDSET",$J,9002170.3)=S^S
- ;;^UTILITY("XBDSET",$J,9002170.4)=S^S
- ;;^UTILITY("XBDSET",$J,9002170.5)=S^S
- ;;^UTILITY("XBDSET",$J,9002170.6)=S^S
- ;;^UTILITY("XBDSET",$J,9002170.7)=S^S
- ;;^UTILITY("XBDSET",$J,9002170.8)=S^S
- ;;^UTILITY("XBDSET",$J,9002170.9)=S^S
- ;;^UTILITY("XBDSET",$J,9002171)=S^S
- ;;^UTILITY("XBDSET",$J,9002171.2)=S^S
- ;;^UTILITY("XBDSET",$J,9002171.3)=S^S
- ;;^UTILITY("XBDSET",$J,9002171.8)=S^S
- ;;^UTILITY("XBDSET",$J,9002172)=S^S
- ;;^UTILITY("XBDSET",$J,9002172.1)=S^S
- ;;^UTILITY("XBDSET",$J,9002172.7)=S^S
- ;;^UTILITY("XBDSET",$J,9002172.8)=S^S
- ;;^UTILITY("XBDSET",$J,9002172.9)=S^S
- ;;^UTILITY("XBDSET",$J,9002173)=S^S
- ;;^UTILITY("XBDSET",$J,9002173.4)=S^S
- ;;^UTILITY("XBDSET",$J,9002173.5)=S^S
- ;;^UTILITY("XBDSET",$J,9002173.6)=S^S
- ;;^UTILITY("XBDSET",$J,9002173.8)=S^S
- ;;^UTILITY("XBDSET",$J,9002174)=S^S
- ;;^UTILITY("XBDSET",$J,9002174.1)=S^S
- ;;^UTILITY("XBDSET",$J,9002174.2)=S^S
- ;;^UTILITY("XBDSET",$J,9002174.3)=S^S
- ;;^UTILITY("XBDSET",$J,9002174.4)=S^S
- ;;^UTILITY("XBDSET",$J,9002174.6)=S^S
- ;;^UTILITY("XBDSET",$J,9002174.7)=S^S
- ;;^UTILITY("XBDSET",$J,9002174.8)=S^S
- ;;^UTILITY("XBDSET",$J,9002174.9)=S^S
- ACDPREI ;IHS/ADC/EDE/KML - created by XBBPI on 3/24/97;
- +1 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
- +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,9002170)=S^S
- +2 ;;^UTILITY("XBDSET",$J,9002170.1)=S^S
- +3 ;;^UTILITY("XBDSET",$J,9002170.11)=S^S
- +4 ;;^UTILITY("XBDSET",$J,9002170.2)=S^S
- +5 ;;^UTILITY("XBDSET",$J,9002170.3)=S^S
- +6 ;;^UTILITY("XBDSET",$J,9002170.4)=S^S
- +7 ;;^UTILITY("XBDSET",$J,9002170.5)=S^S
- +8 ;;^UTILITY("XBDSET",$J,9002170.6)=S^S
- +9 ;;^UTILITY("XBDSET",$J,9002170.7)=S^S
- +10 ;;^UTILITY("XBDSET",$J,9002170.8)=S^S
- +11 ;;^UTILITY("XBDSET",$J,9002170.9)=S^S
- +12 ;;^UTILITY("XBDSET",$J,9002171)=S^S
- +13 ;;^UTILITY("XBDSET",$J,9002171.2)=S^S
- +14 ;;^UTILITY("XBDSET",$J,9002171.3)=S^S
- +15 ;;^UTILITY("XBDSET",$J,9002171.8)=S^S
- +16 ;;^UTILITY("XBDSET",$J,9002172)=S^S
- +17 ;;^UTILITY("XBDSET",$J,9002172.1)=S^S
- +18 ;;^UTILITY("XBDSET",$J,9002172.7)=S^S
- +19 ;;^UTILITY("XBDSET",$J,9002172.8)=S^S
- +20 ;;^UTILITY("XBDSET",$J,9002172.9)=S^S
- +21 ;;^UTILITY("XBDSET",$J,9002173)=S^S
- +22 ;;^UTILITY("XBDSET",$J,9002173.4)=S^S
- +23 ;;^UTILITY("XBDSET",$J,9002173.5)=S^S
- +24 ;;^UTILITY("XBDSET",$J,9002173.6)=S^S
- +25 ;;^UTILITY("XBDSET",$J,9002173.8)=S^S
- +26 ;;^UTILITY("XBDSET",$J,9002174)=S^S
- +27 ;;^UTILITY("XBDSET",$J,9002174.1)=S^S
- +28 ;;^UTILITY("XBDSET",$J,9002174.2)=S^S
- +29 ;;^UTILITY("XBDSET",$J,9002174.3)=S^S
- +30 ;;^UTILITY("XBDSET",$J,9002174.4)=S^S
- +31 ;;^UTILITY("XBDSET",$J,9002174.6)=S^S
- +32 ;;^UTILITY("XBDSET",$J,9002174.7)=S^S
- +33 ;;^UTILITY("XBDSET",$J,9002174.8)=S^S
- +34 ;;^UTILITY("XBDSET",$J,9002174.9)=S^S