source:
WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXODIC.m
| Last change on this file was 613, checked in by , 15 years ago | |
|---|---|
| File size: 384 bytes | |
| Line | |
|---|---|
| 1 | OCXODIC ;SLC/RJS,CLA - FILMAN LOOKUP INTERFACE ;10/29/98 12:37 |
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997 |
| 3 | ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998 |
| 4 | ; |
| 5 | EN ; |
| 6 | Q |
| 7 | ; |
| 8 | ; |
| 9 | GETF0(X) N DIC,Y S DIC=1,DIC(0)="ZN" D ^DIC Q:(Y<1) "" Q Y(0) |
| 10 | ; |
| 11 | GETATT(OCXFILE,ATTR) ; |
| 12 | ; |
| 13 | N OCXTEMP S OCXTEMP="" |
| 14 | D FILE^DID(OCXFILE,"",ATTR,"OCXTEMP(1)") |
| 15 | ; |
| 16 | Q $G(OCXTEMP(1,ATTR)) |
| 17 | ; |
Note:
See TracBrowser
for help on using the repository browser.
