ORBCMA2 ;SLC/JDL API for BCMA V2.0 7/15/02 11:00AM
 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**150**;Dec 17, 1997; 
EN(PSID) ;
 N Y
 S Y=""
 I '+PSID Q Y
 N OIIEN,OINM,INACT,IPMED,X0
 S OIIEN=$O(^ORD(101.43,"ID",PSID,0))
 I 'OIIEN Q Y
 S X0=$G(^ORD(101.43,OIIEN,0))
 S OINM=$P(X0,U)
 S INACT=$G(^(.1))
 S IPMED=$P($G(^("PS")),U,1)
 S Y=OIIEN_U_OINM_U_INACT_U_IPMED
 Q Y