Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AQACPREI

AQACPREI.m

Go to the documentation of this file.
  1. AQACPREI ;CREATED BY AUBPI ON NOV 6,1989
  1. ;2.04
  1. 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
  1. K AUBPI,AUBPIX,AUBPIY D EN2^%AUKD
  1. Q Q
  1. ;;^UTILITY("AUDSET",$J,9002157)=S^S
  1. ;;^UTILITY("AUDSET",$J,9002159)=S^S
  1. ;;^UTILITY("AUDSET",$J,9002160.1)=S^S
  1. ;;^UTILITY("AUDSET",$J,9002160.2)=S^S
  1. ;;^UTILITY("AUDSET",$J,9002160.3)=S^S
  1. ;;^UTILITY("AUDSET",$J,9002160.4)=S^S
  1. ;;^UTILITY("AUDSET",$J,9002160.5)=S^S
  1. ;;^UTILITY("AUDSET",$J,9002160.6)=S^S
  1. ;;^UTILITY("AUDSET",$J,9002160.7)=S^S
  1. ;;^UTILITY("AUDSET",$J,9002160.8)=S^S