MCEPROC.m

MCEPROC ;WISC/DCB-Printer driver ;12/13/93

 ;;2.3;Medicine;;09/13/1996

 N TEMP,MCTYPE

 S TEMP=$G(^MCAR(697.2,MCARP,0)) Q:MCARP=0

 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)

 I MCESKEY,MCESON S:$D(^XUSEC(MCESKEY,DUZ)) MCESSEC=1

 I MCFILE=699 S MCARCODE=$S($P(XQY0,U,1)["GI":"G",1:"P")

 S MCBS=$S(MCTYPE["B":1,1:0)

 I MCTYPE["P"!(MCTYPE["MFD") D PRINT Q

 D EDIT Q

EDIT ;

 S MCEBRIEF=$P(TEMP,U,11),MCEFULL=$P(TEMP,U,10) Q

PRINT ;

 S MCPRTRTN=$P(TEMP,U,5)_"^"_$P(TEMP,U,6) Q

KILLVAR ; Kill off the variables that was set by EDIT and PRINT.

 K MCARP,MCFILE,MCESON,MCESKEY,MCROUT,MCARCODE,MCTYPE

 K MCEBRIEF,MCEFULL,MCPBRIEF,MCPFULL,MCPRTRTN,MCBS

 Q

MCEPROC   ;WISC/DCB-Printer driver ;12/13/93

 +1       ;;2.3;Medicine;;09/13/1996

 +2        NEW TEMP,MCTYPE

 +3        SET TEMP=$GET(^MCAR(697.2,MCARP,0))

           IF MCARP=0

               QUIT 

 +4        SET MCARP=""

           SET MCARP=+$ORDER(^MCAR(697.2,"B",MCPRO,MCARP))

           SET MCTYPE=$EXTRACT($PIECE(XQY0,U,1),2,2)

           SET MCROUT=$PIECE(TEMP,U,8)

           SET MCFILE=+$PIECE($PIECE(TEMP,U,2),"MCAR(",2)

           SET MCESON=+$PIECE(TEMP,U,14)

           SET MCESSEC=0

           SET MCESKEY=$PIECE(TEMP,U,15)

 +5        IF MCESKEY

               IF MCESON

                   IF $DATA(^XUSEC(MCESKEY,DUZ))

                       SET MCESSEC=1

 +6        IF MCFILE=699

               SET MCARCODE=$SELECT($PIECE(XQY0,U,1)["GI":"G",1:"P")

 +7        SET MCBS=$SELECT(MCTYPE["B":1,1:0)

 +8        IF MCTYPE["P"!(MCTYPE["MFD")

               DO PRINT

               QUIT 

 +9        DO EDIT

           QUIT 

EDIT      ;

 +1        SET MCEBRIEF=$PIECE(TEMP,U,11)

           SET MCEFULL=$PIECE(TEMP,U,10)

           QUIT 

PRINT     ;

 +1        SET MCPRTRTN=$PIECE(TEMP,U,5)_"^"_$PIECE(TEMP,U,6)

           QUIT 

KILLVAR   ; Kill off the variables that was set by EDIT and PRINT.

 +1        KILL MCARP,MCFILE,MCESON,MCESKEY,MCROUT,MCARCODE,MCTYPE

 +2        KILL MCEBRIEF,MCEFULL,MCPBRIEF,MCPFULL,MCPRTRTN,MCBS

 +3        QUIT