source: FOIAVistA/trunk/r/GEN_MED_REC_VITALS-GMRV/GMRVHB2.m@ 1742

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

initial load of FOIAVistA 6/30/08 version

File size: 365 bytes
Line 
1GMRVHB2 ;HIRMFO/YH-HP LASER B/P GRAPH - BOX DATA ;5/15/97
2 ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
3EN1 ;PRINT DATE
4 W !,"SD1,277,2,1,4,9,5,1,6,5,7,4;SS;"
5 S J=19.5,J(1)=1 D WRTLN^GMRVHG3
6 ;PRINT TIME
7 S J=19.1,J(1)=17 D WRTLN^GMRVHG3
8 ;PRINT PULSE
9 S J=-0.4,J(1)=98 D WRTLN^GMRVHG3
10 ;PRINT PULSE QUALIFIER
11 S J=-0.9,J(1)=1121 D WRTLN^GMRVHG3
12 D EN1^GMRVHB3
13 Q
Note: See TracBrowser for help on using the repository browser.