MCEO.m

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

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