GMRVGR6.m

GMRVGR6 ;HIRMFO/YH-VITALS GRAPH KYOCERA PRINT COMMANDS (PART 2) ;3/15/99

 ;;4.0;Vitals/Measurements;**1,9**;Apr 25, 1997

EN4 ;CONTINUATION OF GMRVGR4

 W !,"CALL PULQ" S J(1)=1301,J(2)=J(1)+9 D WRTCALL^GMRVBP4

RESP W !,"CALL RESP" S J(1)=114,J(2)=J(1)+9 D WRTCALL^GMRVBP4

POX ;

 W !,"CALL POXD" S J(1)=1101,J(2)=J(1)+9 D WRTCALL^GMRVBP4

 W !,"CALL POXL" S J(1)=1131,J(2)=J(1)+9 D WRTCALL^GMRVBP4

 W !,"CALL POXP" S J(1)=1151,J(2)=J(1)+9 D WRTCALL^GMRVBP4

 W !,"CALL POXM" S J(1)=1171,J(2)=J(1)+9 D WRTCALL^GMRVBP4

BP W !,"CALL BP" S J(1)=130,J(2)=J(1)+9 D WRTCALL^GMRVBP4

 W !,"CALL BP3" S J(1)=1641,J(2)=J(1)+9 D WRTCALL^GMRVBP4

 W !,"CALL BPQUA" S J(1)=251,J(2)=J(1)+9 D WRTCALL^GMRVBP4

CG ;

 W !,"CALL CG" S J(1)=1251,J(2)=J(1)+9 D WRTCALL^GMRVBP4

 W !,"CALL CG2" S J(1)=1321,J(2)=J(1)+9 D WRTCALL^GMRVBP4

CVP ;

 W !,"CALL H2O" S J(1)=1201,J(2)=J(1)+9 D WRTCALL^GMRVBP4

 W !,"CALL HG" S J(1)=1231,J(2)=J(1)+9 D WRTCALL^GMRVBP4

 W !,"DAM;" D INTK1 W !,"RES; EXIT;"

 Q

INTK1 W !,"MCRO INTK;" S J=21.3 D WRTEXT^GMRVBP2

 W !,"ENDM;"

OUTP W !,"MCRO OUTP;" S J=21.7 D WRTEXT^GMRVBP2

 W !,"ENDM;"

 W !,"MCRO PAIN;" S J=22.1 D WRTEXT^GMRVBP2

 W !,"ENDM;"

 W !,"MCRO QU1; FONT 57; MAP -2.4,23.2; TEXT %1; ENDM;"

 W !,"MCRO QU2; MAP -2.4,23.5; TEXT %1; ENDM;"

 W !,"MCRO QU3; MAP -2.4,23.8; TEXT %1; ENDM;"

 W !,"MCRO QU4; MAP -2.4,24.1; TEXT %1; ENDM;"

 W !,"MCRO QU5; MAP -2.4,24.4; TEXT %1; ENDM;"

PID W !,"MCRO PID; FONT 56; MAP -1,24.7; TEXT %1; MAP -1,25; TEXT %2; MAP 3.5,25; TEXT %3; MAP -1,25.3; TEXT %4; MAP 7,25.9; TEXT %5; MAP 7,25.6; TEXT %6; MAP -1,25.6; TEXT %7; MAP -1,25.9; TEXT %8;"

 W !,"ENDM;"

INTK W !,"CALL INTK" S J(1)=146,J(2)=J(1)+9 D WRTCALL^GMRVBP4

 W !,"CALL OUTP" S J(1)=162,J(2)=J(1)+9 D WRTCALL^GMRVBP4

 W !,"CALL PAIN" S J(1)=1661,J(2)=J(1)+9 D WRTCALL^GMRVBP4

 W !,"CALL QU1, '"_$G(GLINE(1))_"';"

 W !,"CALL QU2, '"_$G(GLINE(2))_"';"

 W !,"CALL QU3, '"_$G(GLINE(3))_"';"

 W !,"CALL QU4, '"_$G(GLINE(4))_"';"

 ;W !,"CALL QU5, '"_$G(GLINE(5))_"';"

 W !,"CALL PID, '"_^TMP($J,"GMRK","G194")_"', '"_^("G196")_"', '"_^("G197")_"', '"_^("G198")_"', '"_^("G199")_"', '"_^("G200")_"', '"_GMRDIV_"', '"_GSTRFIN_"';"

 Q

GMRVGR6   ;HIRMFO/YH-VITALS GRAPH KYOCERA PRINT COMMANDS (PART 2) ;3/15/99

 +1       ;;4.0;Vitals/Measurements;**1,9**;Apr 25, 1997

EN4       ;CONTINUATION OF GMRVGR4

 +1        WRITE !,"CALL PULQ"

           SET J(1)=1301

           SET J(2)=J(1)+9

           DO WRTCALL^GMRVBP4

RESP       WRITE !,"CALL RESP"

           SET J(1)=114

           SET J(2)=J(1)+9

           DO WRTCALL^GMRVBP4

POX       ;

 +1        WRITE !,"CALL POXD"

           SET J(1)=1101

           SET J(2)=J(1)+9

           DO WRTCALL^GMRVBP4

 +2        WRITE !,"CALL POXL"

           SET J(1)=1131

           SET J(2)=J(1)+9

           DO WRTCALL^GMRVBP4

 +3        WRITE !,"CALL POXP"

           SET J(1)=1151

           SET J(2)=J(1)+9

           DO WRTCALL^GMRVBP4

 +4        WRITE !,"CALL POXM"

           SET J(1)=1171

           SET J(2)=J(1)+9

           DO WRTCALL^GMRVBP4

BP         WRITE !,"CALL BP"

           SET J(1)=130

           SET J(2)=J(1)+9

           DO WRTCALL^GMRVBP4

 +1        WRITE !,"CALL BP3"

           SET J(1)=1641

           SET J(2)=J(1)+9

           DO WRTCALL^GMRVBP4

 +2        WRITE !,"CALL BPQUA"

           SET J(1)=251

           SET J(2)=J(1)+9

           DO WRTCALL^GMRVBP4

CG        ;

 +1        WRITE !,"CALL CG"

           SET J(1)=1251

           SET J(2)=J(1)+9

           DO WRTCALL^GMRVBP4

 +2        WRITE !,"CALL CG2"

           SET J(1)=1321

           SET J(2)=J(1)+9

           DO WRTCALL^GMRVBP4

CVP       ;

 +1        WRITE !,"CALL H2O"

           SET J(1)=1201

           SET J(2)=J(1)+9

           DO WRTCALL^GMRVBP4

 +2        WRITE !,"CALL HG"

           SET J(1)=1231

           SET J(2)=J(1)+9

           DO WRTCALL^GMRVBP4

 +3        WRITE !,"DAM;"

           DO INTK1

           WRITE !,"RES; EXIT;"

 +4        QUIT 

INTK1      WRITE !,"MCRO INTK;"

           SET J=21.3

           DO WRTEXT^GMRVBP2

 +1        WRITE !,"ENDM;"

OUTP       WRITE !,"MCRO OUTP;"

           SET J=21.7

           DO WRTEXT^GMRVBP2

 +1        WRITE !,"ENDM;"

 +2        WRITE !,"MCRO PAIN;"

           SET J=22.1

           DO WRTEXT^GMRVBP2

 +3        WRITE !,"ENDM;"

 +4        WRITE !,"MCRO QU1; FONT 57; MAP -2.4,23.2; TEXT %1; ENDM;"

 +5        WRITE !,"MCRO QU2; MAP -2.4,23.5; TEXT %1; ENDM;"

 +6        WRITE !,"MCRO QU3; MAP -2.4,23.8; TEXT %1; ENDM;"

 +7        WRITE !,"MCRO QU4; MAP -2.4,24.1; TEXT %1; ENDM;"

 +8        WRITE !,"MCRO QU5; MAP -2.4,24.4; TEXT %1; ENDM;"

PID        WRITE !,"MCRO PID; FONT 56; MAP -1,24.7; TEXT %1; MAP -1,25; TEXT %2; MAP 3.5,25; TEXT %3; MAP -1,25.3; TEXT %4; MAP 7,25.9; TEXT %5; MAP 7,25.6; TEXT %6; MAP -1,25.6; TEXT %7; MAP -1,25.9; TEXT %8;"

 +1        WRITE !,"ENDM;"

INTK       WRITE !,"CALL INTK"

           SET J(1)=146

           SET J(2)=J(1)+9

           DO WRTCALL^GMRVBP4

 +1        WRITE !,"CALL OUTP"

           SET J(1)=162

           SET J(2)=J(1)+9

           DO WRTCALL^GMRVBP4

 +2        WRITE !,"CALL PAIN"

           SET J(1)=1661

           SET J(2)=J(1)+9

           DO WRTCALL^GMRVBP4

 +3        WRITE !,"CALL QU1, '"_$GET(GLINE(1))_"';"

 +4        WRITE !,"CALL QU2, '"_$GET(GLINE(2))_"';"

 +5        WRITE !,"CALL QU3, '"_$GET(GLINE(3))_"';"

 +6        WRITE !,"CALL QU4, '"_$GET(GLINE(4))_"';"

 +7       ;W !,"CALL QU5, '"_$G(GLINE(5))_"';"

 +8        WRITE !,"CALL PID, '"_^TMP($JOB,"GMRK","G194")_"', '"_^("G196")_"', '"_^("G197")_"', '"_^("G198")_"', '"_^("G199")_"', '"_^("G200")_"', '"_GMRDIV_"', '"_GSTRFIN_"';"

 +9        QUIT