Routine: AQACPREI

AQACPREI ;CREATED BY AUBPI ON NOV 6,1989

 ;2.04

 K ^UTILITY("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^%AUKD

Q Q

 ;;^UTILITY("AUDSET",$J,9002157)=S^S

 ;;^UTILITY("AUDSET",$J,9002159)=S^S

 ;;^UTILITY("AUDSET",$J,9002160.1)=S^S

 ;;^UTILITY("AUDSET",$J,9002160.2)=S^S

 ;;^UTILITY("AUDSET",$J,9002160.3)=S^S

 ;;^UTILITY("AUDSET",$J,9002160.4)=S^S

 ;;^UTILITY("AUDSET",$J,9002160.5)=S^S

 ;;^UTILITY("AUDSET",$J,9002160.6)=S^S

 ;;^UTILITY("AUDSET",$J,9002160.7)=S^S

 ;;^UTILITY("AUDSET",$J,9002160.8)=S^S

AQACPREI  ;CREATED BY AUBPI ON NOV 6,1989

 +1       ;2.04

 +2        KILL ^UTILITY("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^%AUKD

Q          QUIT

 +1       ;;^UTILITY("AUDSET",$J,9002157)=S^S

 +2       ;;^UTILITY("AUDSET",$J,9002159)=S^S

 +3       ;;^UTILITY("AUDSET",$J,9002160.1)=S^S

 +4       ;;^UTILITY("AUDSET",$J,9002160.2)=S^S

 +5       ;;^UTILITY("AUDSET",$J,9002160.3)=S^S

 +6       ;;^UTILITY("AUDSET",$J,9002160.4)=S^S

 +7       ;;^UTILITY("AUDSET",$J,9002160.5)=S^S

 +8       ;;^UTILITY("AUDSET",$J,9002160.6)=S^S

 +9       ;;^UTILITY("AUDSET",$J,9002160.7)=S^S

 +10      ;;^UTILITY("AUDSET",$J,9002160.8)=S^S

AQACPREI.m