source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCEO.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 619 bytes
RevLine 
[613]1MCEO ;WISC/MLH-MED PROC EDIT, OE INTERFACE ;4/2/98 15:19
2 ;;2.3;Medicine;**17,31**;09/13/1996
3 ;
4IN ;
5 N DA,DIC,DIE,DR
6 S MCFILE1=MCFILE
7 I '$D(MCOEON) D ORDER^MCPARAM
8 IF $D(MCOEON) D ; order entry flag on
9 . N MCFILE1
10 . Q
11 ;END IF
12 ;
13 S MCFILE=MCFILE1
14 QUIT
15 ;
16OUT ;
17 N DONE
18 IF $D(MCOEON) D I 1 ; order entry flag on
19 . IF $D(^MCAR(MCFILE,MCARGDA)) D I 1 ; a record on file
20 .. IF $D(DTOUT) D I 1 ; timeout
21 ... S DONE=1
22 ... Q
23 .. ELSE Q
24 .. ;END IF
25 .. Q
26 . ELSE S DONE=1 ; no record on file
27 . ;END IF
28 . ;
29 . Q
30 ;END IF
31 ;
32 D EN1^MCMAG ; imaging link
33 QUIT
Note: See TracBrowser for help on using the repository browser.