- MCARGEO ;WISC/MLH-GI ENTER/EDIT-ORDER ENTRY/IMAGING HOOKS ;5/2/96 12:44
- ;;2.3;Medicine;**31**;09/13/1996
- ORDER D:'$D(MCOEON) ORDER^MCPARAM Q:'$D(MCOEON)
- Q
- ORDER1 G IM:'$D(MCOEON) Q:'$D(^MCAR(MCFILE,MCARGDA)) Q:$D(DTOUT)
- IM D EN1^MCMAG Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCARGEO 247 printed Jan 18, 2025@03:14:08 Page 2
- MCARGEO ;WISC/MLH-GI ENTER/EDIT-ORDER ENTRY/IMAGING HOOKS ;5/2/96 12:44
- +1 ;;2.3;Medicine;**31**;09/13/1996
- ORDER if '$DATA(MCOEON)
- DO ORDER^MCPARAM
- if '$DATA(MCOEON)
- QUIT
- +1 QUIT
- ORDER1 if '$DATA(MCOEON)
- GOTO IM
- if '$DATA(^MCAR(MCFILE,MCARGDA))
- QUIT
- if $DATA(DTOUT)
- QUIT
- IM DO EN1^MCMAG
- QUIT