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

APCZPREI.m

Go to the documentation of this file.
  1. APCZPREI ; IHS/TUCSON/LAB - CREATED BY XBBPI ON SEP 20,1995 ; 
  1.  ;;1.6;PCC DATA ENTRY;*4*;NOV 30, 1995
  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,9000010.18)=S^S