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

ADPTPREI.m

Go to the documentation of this file.
  1. ADPTPREI ;CREATED BY XBBPI ON OCT 17,1991
  1.  ;;92.1;VA PATIENT;;OCT 17, 1991
  1.  K ^UTILITY("XBDSET",$J) F XBBPI=1:1 S XBBPIX=$P($T(Q+XBBPI),";;",2) Q:XBBPIX=""  S XBBPIY=$P(XBBPIX,"=",2,99),XBBPIX=$P(XBBPIX,"=",1) S @XBBPIX=XBBPIY
  1.  K XBBPI,XBBPIX,XBBPIY D EN2^XBKD
  1. Q Q
  1.  ;;^UTILITY("XBDSET",$J,2)=S^S