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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORBCMA2 380 printed Dec 13, 2024@02:27:37 Page 2
ORBCMA2 ;SLC/JDL API for BCMA V2.0 7/15/02 11:00AM
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**150**;Dec 17, 1997;
EN(PSID) ;
+1 NEW Y
+2 SET Y=""
+3 IF '+PSID
QUIT Y
+4 NEW OIIEN,OINM,INACT,IPMED,X0
+5 SET OIIEN=$ORDER(^ORD(101.43,"ID",PSID,0))
+6 IF 'OIIEN
QUIT Y
+7 SET X0=$GET(^ORD(101.43,OIIEN,0))
+8 SET OINM=$PIECE(X0,U)
+9 SET INACT=$GET(^(.1))
+10 SET IPMED=$PIECE($GET(^("PS")),U,1)
+11 SET Y=OIIEN_U_OINM_U_INACT_U_IPMED
+12 QUIT Y
