GMVHG3.m

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

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