source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCEPROC.m@ 623

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

initial load of WorldVistAEHR

File size: 789 bytes
Line 
1MCEPROC ;WISC/DCB-Printer driver ;12/13/93
2 ;;2.3;Medicine;;09/13/1996
3 N TEMP,MCTYPE
4 S TEMP=$G(^MCAR(697.2,MCARP,0)) Q:MCARP=0
5 S MCARP="",MCARP=+$O(^MCAR(697.2,"B",MCPRO,MCARP)),MCTYPE=$E($P(XQY0,U,1),2,2),MCROUT=$P(TEMP,U,8),MCFILE=+$P($P(TEMP,U,2),"MCAR(",2),MCESON=+$P(TEMP,U,14),MCESSEC=0,MCESKEY=$P(TEMP,U,15)
6 I MCESKEY,MCESON S:$D(^XUSEC(MCESKEY,DUZ)) MCESSEC=1
7 I MCFILE=699 S MCARCODE=$S($P(XQY0,U,1)["GI":"G",1:"P")
8 S MCBS=$S(MCTYPE["B":1,1:0)
9 I MCTYPE["P"!(MCTYPE["MFD") D PRINT Q
10 D EDIT Q
11EDIT ;
12 S MCEBRIEF=$P(TEMP,U,11),MCEFULL=$P(TEMP,U,10) Q
13PRINT ;
14 S MCPRTRTN=$P(TEMP,U,5)_"^"_$P(TEMP,U,6) Q
15KILLVAR ; Kill off the variables that was set by EDIT and PRINT.
16 K MCARP,MCFILE,MCESON,MCESKEY,MCROUT,MCARCODE,MCTYPE
17 K MCEBRIEF,MCEFULL,MCPBRIEF,MCPFULL,MCPRTRTN,MCBS
18 Q
Note: See TracBrowser for help on using the repository browser.