source: WorldVistAEHR/trunk/r/GEN_MED_OTHER-GMV/GMVHB2.m@ 724

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

initial load of WorldVistAEHR

File size: 423 bytes
Line 
1GMVHB2 ;HIOFO/YH,FT-HP LASER B/P GRAPH - BOX DATA ;11/6/01 15:37
2 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
3 ;
4 ; This routine uses the following IAs:
5 ; <None>
6 ;
7EN1 ;PRINT DATE
8 W !,"SD1,277,2,1,4,9,5,1,6,5,7,4;SS;"
9 S J=19.5,J(1)=1 D WRTLN^GMVHG3
10 ;PRINT TIME
11 S J=19.1,J(1)=17 D WRTLN^GMVHG3
12 ;PRINT PULSE
13 S J=-0.4,J(1)=98 D WRTLN^GMVHG3
14 ;PRINT PULSE QUALIFIER
15 S J=-0.9,J(1)=1121 D WRTLN^GMVHG3
16 D EN1^GMVHB3
17 Q
Note: See TracBrowser for help on using the repository browser.