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 | |
---|
1 | GMRVHB2 ;HIRMFO/YH-HP LASER B/P GRAPH - BOX DATA ;5/15/97
|
---|
2 | ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
|
---|
3 | EN1 ;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.