APCHPREI.m

APCHPREI ; IHS/TUCSON/LAB - CREATED BY XBBPI ON MAY 2,1997 ;  [ 06/24/97  2:42 PM ]

 ;;2.0;IHS RPMS/PCC Health Summary;;JUN 24, 1997

 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

 S DA=$O(^DIC(19,"B","APCHSTST",0)) I DA S DIK="^DIC(19," D ^DIK

 D ^APCHCOMM ;version 2 only

Q Q

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

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

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

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

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

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

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

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

APCHPREI  ; IHS/TUCSON/LAB - CREATED BY XBBPI ON MAY 2,1997 ;  [ 06/24/97  2:42 PM ]

 +1       ;;2.0;IHS RPMS/PCC Health Summary;;JUN 24, 1997

 +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

 +4        SET DA=$ORDER(^DIC(19,"B","APCHSTST",0))

           IF DA

               SET DIK="^DIC(19,"

               DO ^DIK

 +5       ;version 2 only

           DO ^APCHCOMM

Q          QUIT 

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

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

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

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

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

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

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

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