source: FOIAVistA/trunk/r/GEN_MED_OTHER-GMV/GMVHPO2.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: 740 bytes
Line 
1GMVHPO2 ;HIOFO/YH,FT-HP LASER PULSE OXIMETRY/RESP. GRAPH - BOX DATA ;11/6/01 15:20
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 W !,"SD1,277,2,1,4,8,5,1,6,5,7,4;SS"
13RESP ;PRINT RESPIRATION
14 S J=-0.3,J(1)=332 D WRTLN^GMVHG3
15POX ;PRINT PULSE OXIMETRY
16 S J=-0.7,J(1)=382 D WRTLN^GMVHG3
17LMIN ;PRINT L/MIN
18 S J=-1.1,J(1)=1431 D WRTLN^GMVHG3
19PCNT ;PRINT % DATA
20 S J=-1.5,J(1)=1451 D WRTLN^GMVHG3
21METHOD ;PRINT METHOD
22 S J=-1.9,J(1)=1471 D WRTLN^GMVHG3
23 ;PRINT PULSE
24 S J=-2.3,J(1)=511 D WRTLN^GMVHG3
25 ;PRINT QUALIFIER
26 S J=-2.7,J(1)=531 D WRTLN^GMVHG3
27 Q
Note: See TracBrowser for help on using the repository browser.