source: WorldVistAEHR/trunk/r/GEN_MED_OTHER-GMV/GMVHW2.m@ 1806

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

initial load of WorldVistAEHR

File size: 1015 bytes
Line 
1GMVHW2 ;HIOFO/YH,FT-HP LASER WEIGHT CHART - BOX DATA ;11/6/01 15:23
2 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
3 ;
4 ; This routine uses the following IAs:
5 ; <None>
6 ;
7EN1 ;PRINT DATE
8 W !,"SD1,277,2,1,4,9,5,1,6,5,7,4;SS;"
9 S J=17.5,J(1)=1 D WRTLN^GMVHG3
10 ;PRINT TIME
11 S J=17.1,J(1)=17 D WRTLN^GMVHG3
12 W !,"SD1,277,2,1,4,8,5,1,6,5,7,4;SS"
13LB ;PRINT WEIGHT IN LB
14 S J=-.4,J(1)=101 D WRTLN^GMVHG3
15KG ;PRINT WEIGHT IN KG
16 S J=-.9,J(1)=121 D WRTLN^GMVHG3
17QUAL ;PRINT WEIGHT QUALIFIER
18 S J=-1.4,J(1)=181 D WRTLN^GMVHG3
19BMI ;BODY MASS INDEX
20 S J=-1.9,J(1)=211 D WRTLN^GMVHG3
21HT ;PRINT HEIGHT
22 S J=-2.4,J(1)=301 D WRTLN^GMVHG3
23HTCM ;HEIGHT IN CM
24 S J=-2.9,J(1)=321 D WRTLN^GMVHG3
25HTQ ;HEIGHT QUALIFIER
26 S J=-3.4,J(1)=341 D WRTLN^GMVHG3
27PTID ;PRINT PATIENT ID
28 W !,"SD1,277,2,1,4,9,5,1,6,5,7,4;SS;PA-1,-5.6;LB"_GMVNM_"#;PA-1,-5.9;LB"_GMVDOB_" "_GMVGEN_"#;"
29 W !,"PA-1,-6.2;LB"_GMVWRD_"#;PA7,-6.2;LB"_GMVRMBD_"#;PA7,-6.5;LB"_^TMP($J,"GMRK","G199")_"#;"
30 W !,"PA-1,-6.5;LB"_GMRDIV_"#;"
31 W !,"PA-1,-6.8;LB"_GSTRFIN_"#;" Q
Note: See TracBrowser for help on using the repository browser.