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

ORBCMA2.m

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