source:
WorldVistAEHR/trunk/r/MEDICINE-MC/MCARGEO.m@
703
| Last change on this file since 703 was 613, checked in by , 15 years ago | |
|---|---|
| File size: 241 bytes | |
| Line | |
|---|---|
| 1 | MCARGEO ;WISC/MLH-GI ENTER/EDIT-ORDER ENTRY/IMAGING HOOKS ;5/2/96 12:44 |
| 2 | ;;2.3;Medicine;**31**;09/13/1996 |
| 3 | ORDER D:'$D(MCOEON) ORDER^MCPARAM Q:'$D(MCOEON) |
| 4 | Q |
| 5 | ORDER1 G IM:'$D(MCOEON) Q:'$D(^MCAR(MCFILE,MCARGDA)) Q:$D(DTOUT) |
| 6 | IM D EN1^MCMAG Q |
Note:
See TracBrowser
for help on using the repository browser.
