source: FOIAVistA/trunk/r/GEN_MED_REC_VITALS-GMRV/GMRVGR6.m

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

initial load of FOIAVistA 6/30/08 version

File size: 2.1 KB
Line 
1GMRVGR6 ;HIRMFO/YH-VITALS GRAPH KYOCERA PRINT COMMANDS (PART 2) ;3/15/99
2 ;;4.0;Vitals/Measurements;**1,9**;Apr 25, 1997
3EN4 ;CONTINUATION OF GMRVGR4
4 W !,"CALL PULQ" S J(1)=1301,J(2)=J(1)+9 D WRTCALL^GMRVBP4
5RESP W !,"CALL RESP" S J(1)=114,J(2)=J(1)+9 D WRTCALL^GMRVBP4
6POX ;
7 W !,"CALL POXD" S J(1)=1101,J(2)=J(1)+9 D WRTCALL^GMRVBP4
8 W !,"CALL POXL" S J(1)=1131,J(2)=J(1)+9 D WRTCALL^GMRVBP4
9 W !,"CALL POXP" S J(1)=1151,J(2)=J(1)+9 D WRTCALL^GMRVBP4
10 W !,"CALL POXM" S J(1)=1171,J(2)=J(1)+9 D WRTCALL^GMRVBP4
11BP W !,"CALL BP" S J(1)=130,J(2)=J(1)+9 D WRTCALL^GMRVBP4
12 W !,"CALL BP3" S J(1)=1641,J(2)=J(1)+9 D WRTCALL^GMRVBP4
13 W !,"CALL BPQUA" S J(1)=251,J(2)=J(1)+9 D WRTCALL^GMRVBP4
14CG ;
15 W !,"CALL CG" S J(1)=1251,J(2)=J(1)+9 D WRTCALL^GMRVBP4
16 W !,"CALL CG2" S J(1)=1321,J(2)=J(1)+9 D WRTCALL^GMRVBP4
17CVP ;
18 W !,"CALL H2O" S J(1)=1201,J(2)=J(1)+9 D WRTCALL^GMRVBP4
19 W !,"CALL HG" S J(1)=1231,J(2)=J(1)+9 D WRTCALL^GMRVBP4
20 W !,"DAM;" D INTK1 W !,"RES; EXIT;"
21 Q
22INTK1 W !,"MCRO INTK;" S J=21.3 D WRTEXT^GMRVBP2
23 W !,"ENDM;"
24OUTP W !,"MCRO OUTP;" S J=21.7 D WRTEXT^GMRVBP2
25 W !,"ENDM;"
26 W !,"MCRO PAIN;" S J=22.1 D WRTEXT^GMRVBP2
27 W !,"ENDM;"
28 W !,"MCRO QU1; FONT 57; MAP -2.4,23.2; TEXT %1; ENDM;"
29 W !,"MCRO QU2; MAP -2.4,23.5; TEXT %1; ENDM;"
30 W !,"MCRO QU3; MAP -2.4,23.8; TEXT %1; ENDM;"
31 W !,"MCRO QU4; MAP -2.4,24.1; TEXT %1; ENDM;"
32 W !,"MCRO QU5; MAP -2.4,24.4; TEXT %1; ENDM;"
33PID W !,"MCRO PID; FONT 56; MAP -1,24.7; TEXT %1; MAP -1,25; TEXT %2; MAP 3.5,25; TEXT %3; MAP -1,25.3; TEXT %4; MAP 7,25.9; TEXT %5; MAP 7,25.6; TEXT %6; MAP -1,25.6; TEXT %7; MAP -1,25.9; TEXT %8;"
34 W !,"ENDM;"
35INTK W !,"CALL INTK" S J(1)=146,J(2)=J(1)+9 D WRTCALL^GMRVBP4
36 W !,"CALL OUTP" S J(1)=162,J(2)=J(1)+9 D WRTCALL^GMRVBP4
37 W !,"CALL PAIN" S J(1)=1661,J(2)=J(1)+9 D WRTCALL^GMRVBP4
38 W !,"CALL QU1, '"_$G(GLINE(1))_"';"
39 W !,"CALL QU2, '"_$G(GLINE(2))_"';"
40 W !,"CALL QU3, '"_$G(GLINE(3))_"';"
41 W !,"CALL QU4, '"_$G(GLINE(4))_"';"
42 ;W !,"CALL QU5, '"_$G(GLINE(5))_"';"
43 W !,"CALL PID, '"_^TMP($J,"GMRK","G194")_"', '"_^("G196")_"', '"_^("G197")_"', '"_^("G198")_"', '"_^("G199")_"', '"_^("G200")_"', '"_GMRDIV_"', '"_GSTRFIN_"';"
44 Q
Note: See TracBrowser for help on using the repository browser.