ORBCMA2.m

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

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