APSPPREI.m

APSPPREI ; IHS/DSD/ENM - CREATED BY AUBPI ON JUL 12,1990 ;  [ 09/03/97   1:30 PM ]

 ;;6.0;IHS PHARMACY MODIFICATIONS;;09/03/97

 K ^TMP("AUDSET",$J) F AUBPI=1:1 S AUBPIX=$P($T(Q+AUBPI),";;",2) Q:AUBPIX=""  S AUBPIY=$P(AUBPIX,"=",2,99),AUBPIX=$P(AUBPIX,"=",1) S @AUBPIX=AUBPIY

 K AUBPI,AUBPIX,AUBPIY D EN2^XBKD

Q Q

 ;;^TMP("AUDSET",$J,1800009)=S^S

 ;;^TMP("AUDSET",$J,9009031)=S^S

 ;;^TMP("AUDSET",$J,9009031.1)=S^S

 ;;^TMP("AUDSET",$J,9009031.2)=S^S

 ;;^TMP("AUDSET",$J,9009031.3)=S^S

 ;;^TMP("AUDSET",$J,9009032)=S^S

 ;;^TMP("AUDSET",$J,9009032.1)=S^S

 ;;^TMP("AUDSET",$J,9009032.2)=S^S

 ;;^TMP("AUDSET",$J,9009032.3)=S^S

 ;;^TMP("AUDSET",$J,9009032.4)=S^S

 ;;^TMP("AUDSET",$J,9009032.5)=S^S

 ;;^TMP("AUDSET",$J,9009032.6)=S^S

 ;;^TMP("AUDSET",$J,9009032.7)=S^S

APSPPREI  ; IHS/DSD/ENM - CREATED BY AUBPI ON JUL 12,1990 ;  [ 09/03/97   1:30 PM ]

 +1       ;;6.0;IHS PHARMACY MODIFICATIONS;;09/03/97

 +2        KILL ^TMP("AUDSET",$JOB)

           FOR AUBPI=1:1

               SET AUBPIX=$PIECE($TEXT(Q+AUBPI),";;",2)

               IF AUBPIX=""

                   QUIT 

               SET AUBPIY=$PIECE(AUBPIX,"=",2,99)

               SET AUBPIX=$PIECE(AUBPIX,"=",1)

               SET @AUBPIX=AUBPIY

 +3        KILL AUBPI,AUBPIX,AUBPIY

           DO EN2^XBKD

Q          QUIT 

 +1       ;;^TMP("AUDSET",$J,1800009)=S^S

 +2       ;;^TMP("AUDSET",$J,9009031)=S^S

 +3       ;;^TMP("AUDSET",$J,9009031.1)=S^S

 +4       ;;^TMP("AUDSET",$J,9009031.2)=S^S

 +5       ;;^TMP("AUDSET",$J,9009031.3)=S^S

 +6       ;;^TMP("AUDSET",$J,9009032)=S^S

 +7       ;;^TMP("AUDSET",$J,9009032.1)=S^S

 +8       ;;^TMP("AUDSET",$J,9009032.2)=S^S

 +9       ;;^TMP("AUDSET",$J,9009032.3)=S^S

 +10      ;;^TMP("AUDSET",$J,9009032.4)=S^S

 +11      ;;^TMP("AUDSET",$J,9009032.5)=S^S

 +12      ;;^TMP("AUDSET",$J,9009032.6)=S^S

 +13      ;;^TMP("AUDSET",$J,9009032.7)=S^S