| [613] | 1 | GMVGR7 ;HIOFO/YH,FT-VITALS GRAPH KYOCERA DEFINE MACRO FOR PULSE OX./CG/CVP ;11/6/01 16:14
|
|---|
| 2 | ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine uses the following IAs:
|
|---|
| 5 | ; <None>
|
|---|
| 6 | ;
|
|---|
| 7 | EN1 ;CONTINUATION OF GMVGR3
|
|---|
| 8 | POXD W !,"MCRO POXD;" S J=14.9 D WRTEXT^GMVBP2
|
|---|
| 9 | W !,"ENDM;"
|
|---|
| 10 | POXL ;PULSE OX. L/MIN
|
|---|
| 11 | W !,"MCRO POXL;" S J=15.3 D WRTEXT^GMVBP2
|
|---|
| 12 | W !,"ENDM;"
|
|---|
| 13 | POXP ;PULSE OX. %
|
|---|
| 14 | W !,"MCRO POXP;" S J=15.7 D WRTEXT^GMVBP2
|
|---|
| 15 | W !,"ENDM;"
|
|---|
| 16 | POXM W !,"MCRO POXM;" S J=16.1 D WRTEXT^GMVBP2
|
|---|
| 17 | W !,"ENDM;"
|
|---|
| 18 | CG ;CIRCUMFERENCE/GIRTH
|
|---|
| 19 | W !,"MCRO CG;" S J=19.7 D WRTEXT^GMVBP2
|
|---|
| 20 | W !,"ENDM;"
|
|---|
| 21 | W !,"MCRO CG2;" S J=20.1 D WRTEXT^GMVBP2
|
|---|
| 22 | W !,"ENDM;"
|
|---|
| 23 | CVPH2O W !,"MCRO H2O;" S J=20.5 D WRTEXT^GMVBP2
|
|---|
| 24 | W !,"ENDM;"
|
|---|
| 25 | CVPHG W !,"MCRO HG;" S J=20.9 D WRTEXT^GMVBP2
|
|---|
| 26 | W !,"ENDM;"
|
|---|
| 27 | Q
|
|---|
| 28 | HT ;SET MACRO FOR BODY MASS INDEX AND HT
|
|---|
| 29 | W !,"MCRO BMI;" S J=18.5 D WRTEXT^GMVBP2
|
|---|
| 30 | W !,"ENDM;"
|
|---|
| 31 | W !,"MCRO HT;" S J=18.9 D WRTEXT^GMVBP2
|
|---|
| 32 | W !,"ENDM;"
|
|---|
| 33 | HTCM W !,"MCRO HTCM;" S J=19.3 D WRTEXT^GMVBP2
|
|---|
| 34 | W !,"ENDM;"
|
|---|
| 35 | 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;"
|
|---|
| 36 | W !,"DAP 13, %10; DAP 14.6, %11;"
|
|---|
| 37 | W !,"ENDM;" Q
|
|---|
