- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMVGR7 1170 printed Mar 13, 2025@21:03:48 Page 2
- 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
