source: WorldVistAEHR/trunk/r/GEN_MED_REC_VITALS-GMRV/GMRVWT3.m@ 1604

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1GMRVWT3 ;HIRMFO/YH-KYOCERA WEIGHT GRAPH - MACRO (CONT.) ;7/15/97
2 ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
3EN2 ;
4WTG W !,"MCRO WTG; SPD .04; MAP %1, %2; DAP 2, %3; DAP 3.6, %4; DAP 5.2, %5; DAP 6.8, %6; DAP 8.4, %7; DAP 10, %8; DAP 11.6, %9;"
5 W !,"DAP 13.2, %10; DAP 14.8, %11;"
6 W !,"ENDM;"
7PLS1 W !,"MCRO PLS1; FONT 57; MAP %1,%2; TEXT %3; MAP 2.1,%4; TEXT %5; MAP 3.7,%6; TEXT %7; MAP 5.3,%8; TEXT %9; MAP 6.9,%10; TEXT %11; MAP 8.5,%12; TEXT %13; MAP 10.1,%14; TEXT %15; MAP 11.7,%16; TEXT %17; MAP 13.3,%18; TEXT %19;"
8 W !,"ENDM;"
9PLS2 W !,"MCRO PLS2; MAP 14.9,%1; TEXT %2;"
10 W !,"ENDM;"
11WTLB W !,"MCRO WTLB;" S J=18.4 D WRTEXT^GMRVBP2
12 W !,"ENDM;"
13WTKG W !,"MCRO WTKG;" S J=18.9 D WRTEXT^GMRVBP2
14 W !,"ENDM;"
15QUAL ;
16 W !,"MCRO QUAL;" S J=19.4 D WRTEXT^GMRVBP2
17 W !,"ENDM;"
18 W !,"MCRO BMI;" S J=19.9 D WRTEXT^GMRVBP2
19 W !,"ENDM;"
20 W !,"MCRO ALLQ; FONT 57; MAP -3,22.3; TEXT %1; ENDM;" W !,"MCRO ALL2; MAP -3,22.7; TEXT %2; ENDM;"
21PID W !,"MCRO PID; MAP -1,24; FONT 56; TEXT %1; MAP -1,24.3; TEXT %2; MAP 3.5,24.3; TEXT %3; MAP -1,24.6; TEXT %4; MAP 7,24.9; TEXT %5; MAP 7,24.6; TEXT %6; MAP -1,24.9; TEXT %7; MAP -1,25.2; TEXT %8;"
22 W !,"ENDM;"
23HTCM W !,"MCRO HTCM;" S J=20.9 D WRTEXT^GMRVBP2
24 W !,"ENDM;"
25 W !,"MCRO HQ;" S J=21.4 D WRTEXT^GMRVBP2
26 W !,"ENDM;"
27 Q
Note: See TracBrowser for help on using the repository browser.