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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVGR6 2179 printed Dec 13, 2024@01:56:35 Page 2
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
