source: WorldVistAEHR/trunk/r/GEN_MED_OTHER-GMV/GMVHG3.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 971 bytes
RevLine 
[613]1GMVHG3 ;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 ;
7EN1 ;PRINT B/P QUALIFIERS
8 S J=-4.3,J(1)=451 D WRTLN
9WT ;PRINT WEIGHT
10 S J=-4.7,J(1)=34 D WRTLN
11WTKG S J=-5.1,J(1)=1201 D WRTLN
12BMI ;PRINT BODY MASS INDEX
13 S J=-5.5,J(1)=1301 D WRTLN
14HT ;PRINT HEIGHT
15 S J=-5.9,J(1)=471 D WRTLN
16HTCM S J=-6.3,J(1)=1101 D WRTLN
17CG ;PRINT CIRCUMFERENCE/GIRTH DATA
18 S J=-6.7,J(1)=1551 D WRTLN
19CG2 S J=-7.1,J(1)=1621 D WRTLN
20CVP ;PRINT CVP IN CM H2O
21 S J=-7.5,J(1)=1501 D WRTLN
22CVPHG ;PRINT CVP IN MM HG
23 S J=-7.9,J(1)=1531 D WRTLN
24INTK ;PRINT INTAKE
25 S J=-8.4,J(1)=146 D WRTLN
26OUTP ;PRINT OUTPUT AND PT ID
27 D OUTP^GMVHG4
28 Q
29WRTLN ;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
Note: See TracBrowser for help on using the repository browser.