APCZPREI.m

APCZPREI ; IHS/TUCSON/LAB - CREATED BY XBBPI ON SEP 20,1995 ; 

 ;;1.6;PCC DATA ENTRY;*4*;NOV 30, 1995

 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

 K XBBPI,XBBPIX,XBBPIY D EN2^XBKD

Q Q

 ;;^UTILITY("XBDSET",$J,9000010.18)=S^S