GMRVGR3 ;HIRMFO/YH-VITALS GRAPH KYOCERA DEFINE MACRO (PART 2) ;5/1/97
;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
EN2 ;CONTINUATION OF GMRVGR2
TEMP W !,"FONT 56; MCRO TEMP;" S J=13.3 D WRTEXT^GMRVBP2
W !,"ENDM;"
PULSEG W !,"MCRO PLSG; MAP %1, %2; DAP 2.2, %3; DAP 3.8, %4; DAP 5.4, %5; DAP 7.0, %6; DAP 8.6, %7; DAP 10.2, %8; DAP 11.8, %9;"
W !,"DAP 13.4, %10; DAP 15, %11;"
W !,"ENDM;"
PULSE ;PULSE DATA
W !,"MCRO PULS;" S J=13.7 D WRTEXT^GMRVBP2
W !,"ENDM;"
PULSEQ ;PULSE QUALIFIERS
W !,"MCRO PULQ;" S J=14.1 D WRTEXT^GMRVBP2
W !,"ENDM;"
RESP W !,"MCRO RESP;" S J=14.5 D WRTEXT^GMRVBP2
W !,"ENDM;"
BP W !,"MCRO BP;" S J=16.5 D WRTEXT^GMRVBP2
W !,"ENDM;"
BP3 W !,"MCRO BP3;" S J=16.9 D WRTEXT^GMRVBP2
W !,"ENDM;"
BPQUA W !,"MCRO BPQUA;" S J=17.3 D WRTEXT^GMRVBP2
W !,"ENDM;"
TMP1 W !,"MCRO TMP1; FONT 56; MAP %1,%2; TEXT %3; MAP 1.8,%4; TEXT %5; MAP 3.4,%6; TEXT %7; MAP 5,%8; TEXT %9; MAP 6.6,%10; TEXT %11; MAP 8.2,%12; TEXT %13; MAP 9.8,%14; TEXT %15; MAP 11.4,%16; TEXT %17; MAP 13,%18; TEXT %19;"
W !,"ENDM;"
TMP2 W !,"MCRO TMP2; MAP 14.6,%1; TEXT %2;"
W !,"ENDM;"
PLS1 W !,"MCRO PLS1; FONT 56; MAP %1,%2; TEXT %3; MAP 2.2,%4; TEXT %5; MAP 3.8,%6; TEXT %7; MAP 5.4,%8; TEXT %9; MAP 7,%10; TEXT %11; MAP 8.6,%12; TEXT %13; MAP 10.2,%14; TEXT %15; MAP 11.8,%16; TEXT %17; MAP 13.4,%18; TEXT %19;"
W !,"ENDM;"
PLS2 W !,"MCRO PLS2; MAP 15,%1; TEXT %2; FONT 56;"
W !,"ENDM;"
D EN1^GMRVGR7
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVGR3 1443 printed Dec 13, 2024@01:56:32 Page 2
GMRVGR3 ;HIRMFO/YH-VITALS GRAPH KYOCERA DEFINE MACRO (PART 2) ;5/1/97
+1 ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
EN2 ;CONTINUATION OF GMRVGR2
TEMP WRITE !,"FONT 56; MCRO TEMP;"
SET J=13.3
DO WRTEXT^GMRVBP2
+1 WRITE !,"ENDM;"
PULSEG WRITE !,"MCRO PLSG; MAP %1, %2; DAP 2.2, %3; DAP 3.8, %4; DAP 5.4, %5; DAP 7.0, %6; DAP 8.6, %7; DAP 10.2, %8; DAP 11.8, %9;"
+1 WRITE !,"DAP 13.4, %10; DAP 15, %11;"
+2 WRITE !,"ENDM;"
PULSE ;PULSE DATA
+1 WRITE !,"MCRO PULS;"
SET J=13.7
DO WRTEXT^GMRVBP2
+2 WRITE !,"ENDM;"
PULSEQ ;PULSE QUALIFIERS
+1 WRITE !,"MCRO PULQ;"
SET J=14.1
DO WRTEXT^GMRVBP2
+2 WRITE !,"ENDM;"
RESP WRITE !,"MCRO RESP;"
SET J=14.5
DO WRTEXT^GMRVBP2
+1 WRITE !,"ENDM;"
BP WRITE !,"MCRO BP;"
SET J=16.5
DO WRTEXT^GMRVBP2
+1 WRITE !,"ENDM;"
BP3 WRITE !,"MCRO BP3;"
SET J=16.9
DO WRTEXT^GMRVBP2
+1 WRITE !,"ENDM;"
BPQUA WRITE !,"MCRO BPQUA;"
SET J=17.3
DO WRTEXT^GMRVBP2
+1 WRITE !,"ENDM;"
TMP1 WRITE !,"MCRO TMP1; FONT 56; MAP %1,%2; TEXT %3; MAP 1.8,%4; TEXT %5; MAP 3.4,%6; TEXT %7; MAP 5,%8; TEXT %9; MAP 6.6,%10; TEXT %11; MAP 8.2,%12; TEXT %13; MAP 9.8,%14; TEXT %15; MAP 11.4,%16; TEXT %17; MAP 13,%18; TEXT %19;"
+1 WRITE !,"ENDM;"
TMP2 WRITE !,"MCRO TMP2; MAP 14.6,%1; TEXT %2;"
+1 WRITE !,"ENDM;"
PLS1 WRITE !,"MCRO PLS1; FONT 56; MAP %1,%2; TEXT %3; MAP 2.2,%4; TEXT %5; MAP 3.8,%6; TEXT %7; MAP 5.4,%8; TEXT %9; MAP 7,%10; TEXT %11; MAP 8.6,%12; TEXT %13; MAP 10.2,%14; TEXT %15; MAP 11.8,%16; TEXT %17; MAP 13.4,%18; TEXT %19;"
+1 WRITE !,"ENDM;"
PLS2 WRITE !,"MCRO PLS2; MAP 15,%1; TEXT %2; FONT 56;"
+1 WRITE !,"ENDM;"
+2 DO EN1^GMRVGR7
+3 QUIT
