- GMVHG3 ;HIOFO/YH,FT-HP LASER SF 511 GRAPH - ID ;11/6/01 15:09
- ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
- ;
- ; This routine uses the following IAs:
- ; <None>
- ;
- 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^GMVHG4
- 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[HGMVHG3 1003 printed Jan 18, 2025@03:00:24 Page 2
- GMVHG3 ;HIOFO/YH,FT-HP LASER SF 511 GRAPH - ID ;11/6/01 15:09
- +1 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
- +2 ;
- +3 ; This routine uses the following IAs:
- +4 ; <None>
- +5 ;
- 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^GMVHG4
- +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