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 Oct 16, 2024@18:15:38 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
