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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVHG3 936 printed Nov 22, 2024@17:06:53 Page 2
GMRVHG3 ;HIRMFO/YH-HP LASER SF 511 GRAPH - ID ;5/5/97
+1 ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
EN1 ;PRINT B/P QUALIFIERS
+1 SET J=-4.3
SET J(1)=451
DO WRTLN
WT ;PRINT WEIGHT
+1 SET J=-4.7
SET J(1)=34
DO WRTLN
WTKG SET J=-5.1
SET J(1)=1201
DO WRTLN
BMI ;PRINT BODY MASS INDEX
+1 SET J=-5.5
SET J(1)=1301
DO WRTLN
HT ;PRINT HEIGHT
+1 SET J=-5.9
SET J(1)=471
DO WRTLN
HTCM SET J=-6.3
SET J(1)=1101
DO WRTLN
CG ;PRINT CIRCUMFERENCE/GIRTH DATA
+1 SET J=-6.7
SET J(1)=1551
DO WRTLN
CG2 SET J=-7.1
SET J(1)=1621
DO WRTLN
CVP ;PRINT CVP IN CM H2O
+1 SET J=-7.5
SET J(1)=1501
DO WRTLN
CVPHG ;PRINT CVP IN MM HG
+1 SET J=-7.9
SET J(1)=1531
DO WRTLN
INTK ;PRINT INTAKE
+1 SET J=-8.4
SET J(1)=146
DO WRTLN
OUTP ;PRINT OUTPUT AND PT ID
+1 DO OUTP^GMRVHG4
+2 QUIT
WRTLN ;WRITE LINE
+1 SET I(1)=""
FOR I=1:1:5
SET I(2)=I-1
SET I(1)=I(1)_"PA"_(1.6*I(2))_","_J_";LB"_^TMP($JOB,"GMRK","G"_(J(1)+I(2)))_"#;"
+2 WRITE !,I(1)
SET I(1)=""
FOR I=6:1:10
SET I(2)=I-1
SET I(1)=I(1)_"PA"_(1.6*I(2))_","_J_";LB"_^TMP($JOB,"GMRK","G"_(J(1)+I(2)))_"#;"
+3 WRITE !,I(1)
QUIT
