- MCEO ;WISC/MLH-MED PROC EDIT, OE INTERFACE ;4/2/98 15:19
- ;;2.3;Medicine;**17,31**;09/13/1996
- ;
- IN ;
- N DA,DIC,DIE,DR
- S MCFILE1=MCFILE
- I '$D(MCOEON) D ORDER^MCPARAM
- IF $D(MCOEON) D ; order entry flag on
- . N MCFILE1
- . Q
- ;END IF
- ;
- S MCFILE=MCFILE1
- QUIT
- ;
- OUT ;
- N DONE
- IF $D(MCOEON) D I 1 ; order entry flag on
- . IF $D(^MCAR(MCFILE,MCARGDA)) D I 1 ; a record on file
- .. IF $D(DTOUT) D I 1 ; timeout
- ... S DONE=1
- ... Q
- .. ELSE Q
- .. ;END IF
- .. Q
- . ELSE S DONE=1 ; no record on file
- . ;END IF
- . ;
- . Q
- ;END IF
- ;
- D EN1^MCMAG ; imaging link
- QUIT
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCEO 652 printed Jan 18, 2025@03:16:13 Page 2
- MCEO ;WISC/MLH-MED PROC EDIT, OE INTERFACE ;4/2/98 15:19
- +1 ;;2.3;Medicine;**17,31**;09/13/1996
- +2 ;
- IN ;
- +1 NEW DA,DIC,DIE,DR
- +2 SET MCFILE1=MCFILE
- +3 IF '$DATA(MCOEON)
- DO ORDER^MCPARAM
- +4 ; order entry flag on
- IF $DATA(MCOEON)
- Begin DoDot:1
- +5 NEW MCFILE1
- +6 QUIT
- End DoDot:1
- +7 ;END IF
- +8 ;
- +9 SET MCFILE=MCFILE1
- +10 QUIT
- +11 ;
- OUT ;
- +1 NEW DONE
- +2 ; order entry flag on
- IF $DATA(MCOEON)
- Begin DoDot:1
- +3 ; a record on file
- IF $DATA(^MCAR(MCFILE,MCARGDA))
- Begin DoDot:2
- +4 ; timeout
- IF $DATA(DTOUT)
- Begin DoDot:3
- +5 SET DONE=1
- +6 QUIT
- End DoDot:3
- IF 1
- +7 IF '$TEST
- QUIT
- +8 ;END IF
- +9 QUIT
- End DoDot:2
- IF 1
- +10 ; no record on file
- IF '$TEST
- SET DONE=1
- +11 ;END IF
- +12 ;
- +13 QUIT
- End DoDot:1
- IF 1
- +14 ;END IF
- +15 ;
- +16 ; imaging link
- DO EN1^MCMAG
- +17 QUIT