- GMRVHG2 ;HIRMFO/YH-HP LASER SF 511 GRAPH - BOX DATA ;5/5/97
- ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
- EN1 ;PRINT DATE
- W !,"SD1,277,2,1,4,9,5,1,6,0,7,4;SS;"
- S J=12.5,J(1)=1 D WRTLN^GMRVHG3
- TIME ;PRINT TIME
- S J=12.1,J(1)=17 D WRTLN^GMRVHG3
- TEMP ;PRINT TEMPERATURE
- W !,"SD1,277,2,1,4,8,5,1,6,3,7,4;SS;"
- S J=-0.3,J(1)=66 D WRTLN^GMRVHG3
- PULSE ;PRINT PULSE
- S J=-0.7,J(1)=98 D WRTLN^GMRVHG3
- PQUAL ;PRINT PULSE QUALIFIER
- S J=-1.1,J(1)=1601 D WRTLN^GMRVHG3
- RESP ;PRINT RESPIRATION
- S J=-1.5,J(1)=114 D WRTLN^GMRVHG3
- POX ;PRINT PULSE OX. DATA
- S J=-1.9,J(1)=1401 D WRTLN^GMRVHG3
- LMIN ;PRINT O2 L/MIN
- S J=-2.3,J(1)=1431 D WRTLN^GMRVHG3
- PCNT ;PRINT O2 %
- S J=-2.7,J(1)=1451 D WRTLN^GMRVHG3
- METHOD ;PRINT METHOD
- S J=-3.1,J(1)=1471 D WRTLN^GMRVHG3
- BP ;PRINT B/P
- S J=-3.5,J(1)=130 D WRTLN^GMRVHG3
- BP2 S J=-3.9,J(1)=1641 D WRTLN^GMRVHG3
- D EN1^GMRVHG3
- Q
- GMRVHG2 ;HIRMFO/YH-HP LASER SF 511 GRAPH - BOX DATA ;5/5/97
- +1 ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
- EN1 ;PRINT DATE
- +1 WRITE !,"SD1,277,2,1,4,9,5,1,6,0,7,4;SS;"
- +2 SET J=12.5
- SET J(1)=1
- DO WRTLN^GMRVHG3
- TIME ;PRINT TIME
- +1 SET J=12.1
- SET J(1)=17
- DO WRTLN^GMRVHG3
- TEMP ;PRINT TEMPERATURE
- +1 WRITE !,"SD1,277,2,1,4,8,5,1,6,3,7,4;SS;"
- +2 SET J=-0.3
- SET J(1)=66
- DO WRTLN^GMRVHG3
- PULSE ;PRINT PULSE
- +1 SET J=-0.7
- SET J(1)=98
- DO WRTLN^GMRVHG3
- PQUAL ;PRINT PULSE QUALIFIER
- +1 SET J=-1.1
- SET J(1)=1601
- DO WRTLN^GMRVHG3
- RESP ;PRINT RESPIRATION
- +1 SET J=-1.5
- SET J(1)=114
- DO WRTLN^GMRVHG3
- POX ;PRINT PULSE OX. DATA
- +1 SET J=-1.9
- SET J(1)=1401
- DO WRTLN^GMRVHG3
- LMIN ;PRINT O2 L/MIN
- +1 SET J=-2.3
- SET J(1)=1431
- DO WRTLN^GMRVHG3
- PCNT ;PRINT O2 %
- +1 SET J=-2.7
- SET J(1)=1451
- DO WRTLN^GMRVHG3
- METHOD ;PRINT METHOD
- +1 SET J=-3.1
- SET J(1)=1471
- DO WRTLN^GMRVHG3
- BP ;PRINT B/P
- +1 SET J=-3.5
- SET J(1)=130
- DO WRTLN^GMRVHG3
- BP2 SET J=-3.9
- SET J(1)=1641
- DO WRTLN^GMRVHG3
- +1 DO EN1^GMRVHG3
- +2 QUIT