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 |
Rev | Line | |
---|---|---|
[613] | 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.