| [628] | 1 | MCEPROC ;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
|
|---|
| 11 | EDIT ;
|
|---|
| 12 | S MCEBRIEF=$P(TEMP,U,11),MCEFULL=$P(TEMP,U,10) Q
|
|---|
| 13 | PRINT ;
|
|---|
| 14 | S MCPRTRTN=$P(TEMP,U,5)_"^"_$P(TEMP,U,6) Q
|
|---|
| 15 | KILLVAR ; 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
|
|---|
