GMRVGR7 ;HIRMFO/YH-VITALS GRAPH KYOCERA DEFINE MACRO FOR PULSE OX./CG/CVP ;5/1/97
;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
EN1 ;CONTINUATION OF GMRVGR3
POXD W !,"MCRO POXD;" S J=14.9 D WRTEXT^GMRVBP2
W !,"ENDM;"
POXL ;PULSE OX. L/MIN
W !,"MCRO POXL;" S J=15.3 D WRTEXT^GMRVBP2
W !,"ENDM;"
POXP ;PULSE OX. %
W !,"MCRO POXP;" S J=15.7 D WRTEXT^GMRVBP2
W !,"ENDM;"
POXM W !,"MCRO POXM;" S J=16.1 D WRTEXT^GMRVBP2
W !,"ENDM;"
CG ;CIRCUMFERENCE/GIRTH
W !,"MCRO CG;" S J=19.7 D WRTEXT^GMRVBP2
W !,"ENDM;"
W !,"MCRO CG2;" S J=20.1 D WRTEXT^GMRVBP2
W !,"ENDM;"
CVPH2O W !,"MCRO H2O;" S J=20.5 D WRTEXT^GMRVBP2
W !,"ENDM;"
CVPHG W !,"MCRO HG;" S J=20.9 D WRTEXT^GMRVBP2
W !,"ENDM;"
Q
HT ;SET MACRO FOR BODY MASS INDEX AND HT
W !,"MCRO BMI;" S J=18.5 D WRTEXT^GMRVBP2
W !,"ENDM;"
W !,"MCRO HT;" S J=18.9 D WRTEXT^GMRVBP2
W !,"ENDM;"
HTCM W !,"MCRO HTCM;" S J=19.3 D WRTEXT^GMRVBP2
W !,"ENDM;"
TEMPG W !,"MCRO TMPG; MAP %1, %2; DAP 1.8, %3; DAP 3.4, %4; DAP 5, %5; DAP 6.6, %6; DAP 8.2, %7; DAP 9.8, %8; DAP 11.4, %9;"
W !,"DAP 13, %10; DAP 14.6, %11;"
W !,"ENDM;" Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVGR7 1114 printed Dec 13, 2024@01:56:36 Page 2
GMRVGR7 ;HIRMFO/YH-VITALS GRAPH KYOCERA DEFINE MACRO FOR PULSE OX./CG/CVP ;5/1/97
+1 ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
EN1 ;CONTINUATION OF GMRVGR3
POXD WRITE !,"MCRO POXD;"
SET J=14.9
DO WRTEXT^GMRVBP2
+1 WRITE !,"ENDM;"
POXL ;PULSE OX. L/MIN
+1 WRITE !,"MCRO POXL;"
SET J=15.3
DO WRTEXT^GMRVBP2
+2 WRITE !,"ENDM;"
POXP ;PULSE OX. %
+1 WRITE !,"MCRO POXP;"
SET J=15.7
DO WRTEXT^GMRVBP2
+2 WRITE !,"ENDM;"
POXM WRITE !,"MCRO POXM;"
SET J=16.1
DO WRTEXT^GMRVBP2
+1 WRITE !,"ENDM;"
CG ;CIRCUMFERENCE/GIRTH
+1 WRITE !,"MCRO CG;"
SET J=19.7
DO WRTEXT^GMRVBP2
+2 WRITE !,"ENDM;"
+3 WRITE !,"MCRO CG2;"
SET J=20.1
DO WRTEXT^GMRVBP2
+4 WRITE !,"ENDM;"
CVPH2O WRITE !,"MCRO H2O;"
SET J=20.5
DO WRTEXT^GMRVBP2
+1 WRITE !,"ENDM;"
CVPHG WRITE !,"MCRO HG;"
SET J=20.9
DO WRTEXT^GMRVBP2
+1 WRITE !,"ENDM;"
+2 QUIT
HT ;SET MACRO FOR BODY MASS INDEX AND HT
+1 WRITE !,"MCRO BMI;"
SET J=18.5
DO WRTEXT^GMRVBP2
+2 WRITE !,"ENDM;"
+3 WRITE !,"MCRO HT;"
SET J=18.9
DO WRTEXT^GMRVBP2
+4 WRITE !,"ENDM;"
HTCM WRITE !,"MCRO HTCM;"
SET J=19.3
DO WRTEXT^GMRVBP2
+1 WRITE !,"ENDM;"
TEMPG WRITE !,"MCRO TMPG; MAP %1, %2; DAP 1.8, %3; DAP 3.4, %4; DAP 5, %5; DAP 6.6, %6; DAP 8.2, %7; DAP 9.8, %8; DAP 11.4, %9;"
+1 WRITE !,"DAP 13, %10; DAP 14.6, %11;"
+2 WRITE !,"ENDM;"
QUIT
