| [613] | 1 | GMVHG3 ;HIOFO/YH,FT-HP LASER SF 511 GRAPH - ID ;11/6/01 15:09
|
|---|
| 2 | ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine uses the following IAs:
|
|---|
| 5 | ; <None>
|
|---|
| 6 | ;
|
|---|
| 7 | EN1 ;PRINT B/P QUALIFIERS
|
|---|
| 8 | S J=-4.3,J(1)=451 D WRTLN
|
|---|
| 9 | WT ;PRINT WEIGHT
|
|---|
| 10 | S J=-4.7,J(1)=34 D WRTLN
|
|---|
| 11 | WTKG S J=-5.1,J(1)=1201 D WRTLN
|
|---|
| 12 | BMI ;PRINT BODY MASS INDEX
|
|---|
| 13 | S J=-5.5,J(1)=1301 D WRTLN
|
|---|
| 14 | HT ;PRINT HEIGHT
|
|---|
| 15 | S J=-5.9,J(1)=471 D WRTLN
|
|---|
| 16 | HTCM S J=-6.3,J(1)=1101 D WRTLN
|
|---|
| 17 | CG ;PRINT CIRCUMFERENCE/GIRTH DATA
|
|---|
| 18 | S J=-6.7,J(1)=1551 D WRTLN
|
|---|
| 19 | CG2 S J=-7.1,J(1)=1621 D WRTLN
|
|---|
| 20 | CVP ;PRINT CVP IN CM H2O
|
|---|
| 21 | S J=-7.5,J(1)=1501 D WRTLN
|
|---|
| 22 | CVPHG ;PRINT CVP IN MM HG
|
|---|
| 23 | S J=-7.9,J(1)=1531 D WRTLN
|
|---|
| 24 | INTK ;PRINT INTAKE
|
|---|
| 25 | S J=-8.4,J(1)=146 D WRTLN
|
|---|
| 26 | OUTP ;PRINT OUTPUT AND PT ID
|
|---|
| 27 | D OUTP^GMVHG4
|
|---|
| 28 | Q
|
|---|
| 29 | WRTLN ;WRITE LINE
|
|---|
| 30 | 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)))_"#;"
|
|---|
| 31 | 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)))_"#;"
|
|---|
| 32 | W !,I(1) Q
|
|---|
