- 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
- 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