- 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 Jan 18, 2025@03:28:47 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