ACMPREI.m

ACMPREI ; IHS/TUCSON/TMJ - CREATED BY XBBPI ON MAY 1,1995 ;

 ;;2.0;ACM CASE MANAGEMENT SYSTEM;;JAN 10, 1996

 I $D(^DIC(9.4,"C","ACM")) S XBPKNSP="ACM" D ^XBPKDEL

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

ACMPREI   ; IHS/TUCSON/TMJ - CREATED BY XBBPI ON MAY 1,1995 ;

 +1       ;;2.0;ACM CASE MANAGEMENT SYSTEM;;JAN 10, 1996

 +2        IF $DATA(^DIC(9.4,"C","ACM"))

               SET XBPKNSP="ACM"

               DO ^XBPKDEL

 +3        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

 +4        KILL XBBPI,XBBPIX,XBBPIY

           DO EN2^XBKD

Q          QUIT 

 +1       ;;^UTILITY("XBDSET",$J,9002240)=S^S

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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