GMVWT3.m

GMVWT3 ;HIOFO/YH,FT-KYOCERA WEIGHT GRAPH - MACRO (CONT.) ;11/6/01  14:50

 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002

 ;

 ; This routine uses the following IAs:

 ; <None>

 ;

EN2 ;

WTG 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;"

 W !,"DAP 13.2, %10; DAP 14.8, %11;"

 W !,"ENDM;"

PLS1 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;"

 W !,"ENDM;"

PLS2 W !,"MCRO PLS2; MAP 14.9,%1; TEXT %2;"

 W !,"ENDM;"

WTLB W !,"MCRO WTLB;" S J=18.4 D WRTEXT^GMVBP2

 W !,"ENDM;"

WTKG W !,"MCRO WTKG;" S J=18.9 D WRTEXT^GMVBP2

 W !,"ENDM;"

QUAL ;

 W !,"MCRO QUAL;" S J=19.4 D WRTEXT^GMVBP2

 W !,"ENDM;"

 W !,"MCRO BMI;" S J=19.9 D WRTEXT^GMVBP2

 W !,"ENDM;"

 W !,"MCRO ALLQ; FONT 57; MAP -3,22.3; TEXT %1; ENDM;" W !,"MCRO ALL2; MAP -3,22.7; TEXT %2; ENDM;"

PID 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;"

 W !,"ENDM;"

HTCM W !,"MCRO HTCM;" S J=20.9 D WRTEXT^GMVBP2

 W !,"ENDM;"

 W !,"MCRO HQ;" S J=21.4 D WRTEXT^GMVBP2

 W !,"ENDM;"

 Q

GMVWT3    ;HIOFO/YH,FT-KYOCERA WEIGHT GRAPH - MACRO (CONT.) ;11/6/01  14:50

 +1       ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002

 +2       ;

 +3       ; This routine uses the following IAs:

 +4       ; <None>

 +5       ;

EN2       ;

WTG        WRITE !,"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;"

 +1        WRITE !,"DAP 13.2, %10; DAP 14.8, %11;"

 +2        WRITE !,"ENDM;"

PLS1       WRITE !,"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;"

 +1        WRITE !,"ENDM;"

PLS2       WRITE !,"MCRO PLS2; MAP 14.9,%1; TEXT %2;"

 +1        WRITE !,"ENDM;"

WTLB       WRITE !,"MCRO WTLB;"

           SET J=18.4

           DO WRTEXT^GMVBP2

 +1        WRITE !,"ENDM;"

WTKG       WRITE !,"MCRO WTKG;"

           SET J=18.9

           DO WRTEXT^GMVBP2

 +1        WRITE !,"ENDM;"

QUAL      ;

 +1        WRITE !,"MCRO QUAL;"

           SET J=19.4

           DO WRTEXT^GMVBP2

 +2        WRITE !,"ENDM;"

 +3        WRITE !,"MCRO BMI;"

           SET J=19.9

           DO WRTEXT^GMVBP2

 +4        WRITE !,"ENDM;"

 +5        WRITE !,"MCRO ALLQ; FONT 57; MAP -3,22.3; TEXT %1; ENDM;"

           WRITE !,"MCRO ALL2; MAP -3,22.7; TEXT %2; ENDM;"

PID        WRITE !,"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;"

 +1        WRITE !,"ENDM;"

HTCM       WRITE !,"MCRO HTCM;"

           SET J=20.9

           DO WRTEXT^GMVBP2

 +1        WRITE !,"ENDM;"

 +2        WRITE !,"MCRO HQ;"

           SET J=21.4

           DO WRTEXT^GMVBP2

 +3        WRITE !,"ENDM;"

 +4        QUIT