- 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