MCAREO ;WISC/MLH-ENTER/EDIT CARDIAC PROCEDURES-ORDER ENTRY HOOKS ;8/3/92 08:59
;;2.3;Medicine;**31**;09/13/1996
;
ORDER ;INITIALIZE ORDER ENTRY
D:'$D(MCOEON) ORDER^MCPARAM Q:'$D(MCOEON)
Q
;
ORDER1 ;COMPLETE ORDER ENTRY
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[HMCAREO 312 printed Dec 13, 2024@02:12:52 Page 2
MCAREO ;WISC/MLH-ENTER/EDIT CARDIAC PROCEDURES-ORDER ENTRY HOOKS ;8/3/92 08:59
+1 ;;2.3;Medicine;**31**;09/13/1996
+2 ;
ORDER ;INITIALIZE ORDER ENTRY
+1 if '$DATA(MCOEON)
DO ORDER^MCPARAM
if '$DATA(MCOEON)
QUIT
+2 QUIT
+3 ;
ORDER1 ;COMPLETE ORDER ENTRY
+1 if '$DATA(MCOEON)
GOTO IM
if '$DATA(^MCAR(MCFILE,MCARGDA))
QUIT
if $DATA(DTOUT)
QUIT
IM DO EN1^MCMAG
QUIT
