29 lines
908 B
Mathematica
29 lines
908 B
Mathematica
GMRVHG3 ;HIRMFO/YH-HP LASER SF 511 GRAPH - ID ;5/5/97
|
|
;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
|
|
EN1 ;PRINT B/P QUALIFIERS
|
|
S J=-4.3,J(1)=451 D WRTLN
|
|
WT ;PRINT WEIGHT
|
|
S J=-4.7,J(1)=34 D WRTLN
|
|
WTKG S J=-5.1,J(1)=1201 D WRTLN
|
|
BMI ;PRINT BODY MASS INDEX
|
|
S J=-5.5,J(1)=1301 D WRTLN
|
|
HT ;PRINT HEIGHT
|
|
S J=-5.9,J(1)=471 D WRTLN
|
|
HTCM S J=-6.3,J(1)=1101 D WRTLN
|
|
CG ;PRINT CIRCUMFERENCE/GIRTH DATA
|
|
S J=-6.7,J(1)=1551 D WRTLN
|
|
CG2 S J=-7.1,J(1)=1621 D WRTLN
|
|
CVP ;PRINT CVP IN CM H2O
|
|
S J=-7.5,J(1)=1501 D WRTLN
|
|
CVPHG ;PRINT CVP IN MM HG
|
|
S J=-7.9,J(1)=1531 D WRTLN
|
|
INTK ;PRINT INTAKE
|
|
S J=-8.4,J(1)=146 D WRTLN
|
|
OUTP ;PRINT OUTPUT AND PT ID
|
|
D OUTP^GMRVHG4
|
|
Q
|
|
WRTLN ;WRITE LINE
|
|
S I(1)="" F I=1:1:5 S I(2)=I-1,I(1)=I(1)_"PA"_(1.6*I(2))_","_J_";LB"_^TMP($J,"GMRK","G"_(J(1)+I(2)))_"#;"
|
|
W !,I(1) S I(1)="" F I=6:1:10 S I(2)=I-1,I(1)=I(1)_"PA"_(1.6*I(2))_","_J_";LB"_^TMP($J,"GMRK","G"_(J(1)+I(2)))_"#;"
|
|
W !,I(1) Q
|