GMVGR7.m

GMVGR7 ;HIOFO/YH,FT-VITALS GRAPH KYOCERA DEFINE MACRO FOR PULSE OX./CG/CVP ;11/6/01  16:14

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

 ;

 ; This routine uses the following IAs:

 ; <None>

 ;

EN1 ;CONTINUATION OF GMVGR3

POXD W !,"MCRO POXD;" S J=14.9 D WRTEXT^GMVBP2

 W !,"ENDM;"

POXL ;PULSE OX. L/MIN

 W !,"MCRO POXL;" S J=15.3 D WRTEXT^GMVBP2

 W !,"ENDM;"

POXP ;PULSE OX. %

 W !,"MCRO POXP;" S J=15.7 D WRTEXT^GMVBP2

 W !,"ENDM;"

POXM W !,"MCRO POXM;" S J=16.1 D WRTEXT^GMVBP2

 W !,"ENDM;"

CG ;CIRCUMFERENCE/GIRTH

 W !,"MCRO CG;" S J=19.7 D WRTEXT^GMVBP2

 W !,"ENDM;"

 W !,"MCRO CG2;" S J=20.1 D WRTEXT^GMVBP2

 W !,"ENDM;"

CVPH2O W !,"MCRO H2O;" S J=20.5 D WRTEXT^GMVBP2

 W !,"ENDM;"

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

 W !,"ENDM;"

 Q

HT ;SET MACRO FOR BODY MASS INDEX AND HT

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

 W !,"ENDM;"

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

 W !,"ENDM;"

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

 W !,"ENDM;"

TEMPG W !,"MCRO TMPG; MAP %1, %2; DAP 1.8, %3; DAP 3.4, %4; DAP 5, %5; DAP 6.6, %6; DAP 8.2, %7; DAP 9.8, %8; DAP 11.4, %9;"

 W !,"DAP 13, %10; DAP 14.6, %11;"

 W !,"ENDM;" Q

GMVGR7    ;HIOFO/YH,FT-VITALS GRAPH KYOCERA DEFINE MACRO FOR PULSE OX./CG/CVP ;11/6/01  16:14

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

 +2       ;

 +3       ; This routine uses the following IAs:

 +4       ; <None>

 +5       ;

EN1       ;CONTINUATION OF GMVGR3

POXD       WRITE !,"MCRO POXD;"

           SET J=14.9

           DO WRTEXT^GMVBP2

 +1        WRITE !,"ENDM;"

POXL      ;PULSE OX. L/MIN

 +1        WRITE !,"MCRO POXL;"

           SET J=15.3

           DO WRTEXT^GMVBP2

 +2        WRITE !,"ENDM;"

POXP      ;PULSE OX. %

 +1        WRITE !,"MCRO POXP;"

           SET J=15.7

           DO WRTEXT^GMVBP2

 +2        WRITE !,"ENDM;"

POXM       WRITE !,"MCRO POXM;"

           SET J=16.1

           DO WRTEXT^GMVBP2

 +1        WRITE !,"ENDM;"

CG        ;CIRCUMFERENCE/GIRTH

 +1        WRITE !,"MCRO CG;"

           SET J=19.7

           DO WRTEXT^GMVBP2

 +2        WRITE !,"ENDM;"

 +3        WRITE !,"MCRO CG2;"

           SET J=20.1

           DO WRTEXT^GMVBP2

 +4        WRITE !,"ENDM;"

CVPH2O     WRITE !,"MCRO H2O;"

           SET J=20.5

           DO WRTEXT^GMVBP2

 +1        WRITE !,"ENDM;"

CVPHG      WRITE !,"MCRO HG;"

           SET J=20.9

           DO WRTEXT^GMVBP2

 +1        WRITE !,"ENDM;"

 +2        QUIT 

HT        ;SET MACRO FOR BODY MASS INDEX AND HT

 +1        WRITE !,"MCRO BMI;"

           SET J=18.5

           DO WRTEXT^GMVBP2

 +2        WRITE !,"ENDM;"

 +3        WRITE !,"MCRO HT;"

           SET J=18.9

           DO WRTEXT^GMVBP2

 +4        WRITE !,"ENDM;"

HTCM       WRITE !,"MCRO HTCM;"

           SET J=19.3

           DO WRTEXT^GMVBP2

 +1        WRITE !,"ENDM;"

TEMPG      WRITE !,"MCRO TMPG; MAP %1, %2; DAP 1.8, %3; DAP 3.4, %4; DAP 5, %5; DAP 6.6, %6; DAP 8.2, %7; DAP 9.8, %8; DAP 11.4, %9;"

 +1        WRITE !,"DAP 13, %10; DAP 14.6, %11;"

 +2        WRITE !,"ENDM;"

           QUIT