source: FOIAVistA/trunk/r/GEN_MED_OTHER-GMV/GMVGR7.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1GMVGR7 ;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 ;
7EN1 ;CONTINUATION OF GMVGR3
8POXD W !,"MCRO POXD;" S J=14.9 D WRTEXT^GMVBP2
9 W !,"ENDM;"
10POXL ;PULSE OX. L/MIN
11 W !,"MCRO POXL;" S J=15.3 D WRTEXT^GMVBP2
12 W !,"ENDM;"
13POXP ;PULSE OX. %
14 W !,"MCRO POXP;" S J=15.7 D WRTEXT^GMVBP2
15 W !,"ENDM;"
16POXM W !,"MCRO POXM;" S J=16.1 D WRTEXT^GMVBP2
17 W !,"ENDM;"
18CG ;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;"
23CVPH2O W !,"MCRO H2O;" S J=20.5 D WRTEXT^GMVBP2
24 W !,"ENDM;"
25CVPHG W !,"MCRO HG;" S J=20.9 D WRTEXT^GMVBP2
26 W !,"ENDM;"
27 Q
28HT ;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;"
33HTCM W !,"MCRO HTCM;" S J=19.3 D WRTEXT^GMVBP2
34 W !,"ENDM;"
35TEMPG 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
Note: See TracBrowser for help on using the repository browser.