source:
WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORBCMA2.m
| Last change on this file was 613, checked in by , 15 years ago | |
|---|---|
| File size: 365 bytes | |
| Line | |
|---|---|
| 1 | ORBCMA2 ;SLC/JDL API for BCMA V2.0 7/15/02 11:00AM |
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**150**;Dec 17, 1997; |
| 3 | EN(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.
