source:
FOIAVistA/trunk/r/MEDICINE-MC/MCARGEO.m@
677
Last change on this file since 677 was 628, 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.