source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORBCMA2.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 365 bytes
Line 
1ORBCMA2 ;SLC/JDL API for BCMA V2.0 7/15/02 11:00AM
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**150**;Dec 17, 1997;
3EN(PSID) ;
4 N Y
5 S Y=""
6 I '+PSID Q Y
7 N OIIEN,OINM,INACT,IPMED,X0
8 S OIIEN=$O(^ORD(101.43,"ID",PSID,0))
9 I 'OIIEN Q Y
10 S X0=$G(^ORD(101.43,OIIEN,0))
11 S OINM=$P(X0,U)
12 S INACT=$G(^(.1))
13 S IPMED=$P($G(^("PS")),U,1)
14 S Y=OIIEN_U_OINM_U_INACT_U_IPMED
15 Q Y
Note: See TracBrowser for help on using the repository browser.