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

APSPPREI.m

Go to the documentation of this file.
  1. 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
  1. 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
  1. K AUBPI,AUBPIX,AUBPIY D EN2^XBKD
  1. Q Q
  1. ;;^TMP("AUDSET",$J,1800009)=S^S
  1. ;;^TMP("AUDSET",$J,9009031)=S^S
  1. ;;^TMP("AUDSET",$J,9009031.1)=S^S
  1. ;;^TMP("AUDSET",$J,9009031.2)=S^S
  1. ;;^TMP("AUDSET",$J,9009031.3)=S^S
  1. ;;^TMP("AUDSET",$J,9009032)=S^S
  1. ;;^TMP("AUDSET",$J,9009032.1)=S^S
  1. ;;^TMP("AUDSET",$J,9009032.2)=S^S
  1. ;;^TMP("AUDSET",$J,9009032.3)=S^S
  1. ;;^TMP("AUDSET",$J,9009032.4)=S^S
  1. ;;^TMP("AUDSET",$J,9009032.5)=S^S
  1. ;;^TMP("AUDSET",$J,9009032.6)=S^S
  1. ;;^TMP("AUDSET",$J,9009032.7)=S^S