source:
WorldVistAEHR/trunk/r/MEDICINE-MC/MCARGEO.m@
1080
Last change on this file since 1080 was 613, checked in by , 15 years ago | |
---|---|
File size: 241 bytes |
Rev | Line | |
---|---|---|
[613] | 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.