Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMVHG3

GMVHG3.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ; This routine uses the following IAs:
  1. ; <None>
  1. ;
  1. EN1 ;PRINT B/P QUALIFIERS
  1. S J=-4.3,J(1)=451 D WRTLN
  1. WT ;PRINT WEIGHT
  1. S J=-4.7,J(1)=34 D WRTLN
  1. WTKG S J=-5.1,J(1)=1201 D WRTLN
  1. BMI ;PRINT BODY MASS INDEX
  1. S J=-5.5,J(1)=1301 D WRTLN
  1. HT ;PRINT HEIGHT
  1. S J=-5.9,J(1)=471 D WRTLN
  1. HTCM S J=-6.3,J(1)=1101 D WRTLN
  1. CG ;PRINT CIRCUMFERENCE/GIRTH DATA
  1. S J=-6.7,J(1)=1551 D WRTLN
  1. CG2 S J=-7.1,J(1)=1621 D WRTLN
  1. CVP ;PRINT CVP IN CM H2O
  1. S J=-7.5,J(1)=1501 D WRTLN
  1. CVPHG ;PRINT CVP IN MM HG
  1. S J=-7.9,J(1)=1531 D WRTLN
  1. INTK ;PRINT INTAKE
  1. S J=-8.4,J(1)=146 D WRTLN
  1. OUTP ;PRINT OUTPUT AND PT ID
  1. D OUTP^GMVHG4
  1. Q
  1. WRTLN ;WRITE LINE
  1. 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)))_"#;"
  1. 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)))_"#;"
  1. W !,I(1) Q