Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MCEO

MCEO.m

Go to the documentation of this file.
  1. MCEO ;WISC/MLH-MED PROC EDIT, OE INTERFACE ;4/2/98 15:19
  1. ;;2.3;Medicine;**17,31**;09/13/1996
  1. ;
  1. IN ;
  1. N DA,DIC,DIE,DR
  1. S MCFILE1=MCFILE
  1. I '$D(MCOEON) D ORDER^MCPARAM
  1. IF $D(MCOEON) D ; order entry flag on
  1. . N MCFILE1
  1. . Q
  1. ;END IF
  1. ;
  1. S MCFILE=MCFILE1
  1. QUIT
  1. ;
  1. OUT ;
  1. N DONE
  1. IF $D(MCOEON) D I 1 ; order entry flag on
  1. . IF $D(^MCAR(MCFILE,MCARGDA)) D I 1 ; a record on file
  1. .. IF $D(DTOUT) D I 1 ; timeout
  1. ... S DONE=1
  1. ... Q
  1. .. ELSE Q
  1. .. ;END IF
  1. .. Q
  1. . ELSE S DONE=1 ; no record on file
  1. . ;END IF
  1. . ;
  1. . Q
  1. ;END IF
  1. ;
  1. D EN1^MCMAG ; imaging link
  1. QUIT