| 1 | GMVGR6 ;HIOFO/YH,FT-VITALS GRAPH KYOCERA PRINT COMMANDS (PART 2) ;11/6/01 16:13
|
|---|
| 2 | ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine uses the following IAs:
|
|---|
| 5 | ; <None>
|
|---|
| 6 | ;
|
|---|
| 7 | EN4 ;CONTINUATION OF GMVGR4
|
|---|
| 8 | W !,"CALL PULQ" S J(1)=1301,J(2)=J(1)+9 D WRTCALL^GMVBP4
|
|---|
| 9 | RESP W !,"CALL RESP" S J(1)=114,J(2)=J(1)+9 D WRTCALL^GMVBP4
|
|---|
| 10 | POX ;
|
|---|
| 11 | W !,"CALL POXD" S J(1)=1101,J(2)=J(1)+9 D WRTCALL^GMVBP4
|
|---|
| 12 | W !,"CALL POXL" S J(1)=1131,J(2)=J(1)+9 D WRTCALL^GMVBP4
|
|---|
| 13 | W !,"CALL POXP" S J(1)=1151,J(2)=J(1)+9 D WRTCALL^GMVBP4
|
|---|
| 14 | W !,"CALL POXM" S J(1)=1171,J(2)=J(1)+9 D WRTCALL^GMVBP4
|
|---|
| 15 | BP W !,"CALL BP" S J(1)=130,J(2)=J(1)+9 D WRTCALL^GMVBP4
|
|---|
| 16 | W !,"CALL BP3" S J(1)=1641,J(2)=J(1)+9 D WRTCALL^GMVBP4
|
|---|
| 17 | W !,"CALL BPQUA" S J(1)=251,J(2)=J(1)+9 D WRTCALL^GMVBP4
|
|---|
| 18 | CG ;
|
|---|
| 19 | W !,"CALL CG" S J(1)=1251,J(2)=J(1)+9 D WRTCALL^GMVBP4
|
|---|
| 20 | W !,"CALL CG2" S J(1)=1321,J(2)=J(1)+9 D WRTCALL^GMVBP4
|
|---|
| 21 | CVP ;
|
|---|
| 22 | W !,"CALL H2O" S J(1)=1201,J(2)=J(1)+9 D WRTCALL^GMVBP4
|
|---|
| 23 | W !,"CALL HG" S J(1)=1231,J(2)=J(1)+9 D WRTCALL^GMVBP4
|
|---|
| 24 | W !,"DAM;" D INTK1 W !,"RES; EXIT;"
|
|---|
| 25 | Q
|
|---|
| 26 | INTK1 W !,"MCRO INTK;" S J=21.3 D WRTEXT^GMVBP2
|
|---|
| 27 | W !,"ENDM;"
|
|---|
| 28 | OUTP W !,"MCRO OUTP;" S J=21.7 D WRTEXT^GMVBP2
|
|---|
| 29 | W !,"ENDM;"
|
|---|
| 30 | W !,"MCRO PAIN;" S J=22.1 D WRTEXT^GMVBP2
|
|---|
| 31 | W !,"ENDM;"
|
|---|
| 32 | W !,"MCRO QU1; FONT 57; MAP -2.4,23.2; TEXT %1; ENDM;"
|
|---|
| 33 | W !,"MCRO QU2; MAP -2.4,23.5; TEXT %1; ENDM;"
|
|---|
| 34 | W !,"MCRO QU3; MAP -2.4,23.8; TEXT %1; ENDM;"
|
|---|
| 35 | W !,"MCRO QU4; MAP -2.4,24.1; TEXT %1; ENDM;"
|
|---|
| 36 | W !,"MCRO QU5; MAP -2.4,24.4; TEXT %1; ENDM;"
|
|---|
| 37 | PID 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;"
|
|---|
| 38 | W !,"ENDM;"
|
|---|
| 39 | INTK W !,"CALL INTK" S J(1)=146,J(2)=J(1)+9 D WRTCALL^GMVBP4
|
|---|
| 40 | W !,"CALL OUTP" S J(1)=162,J(2)=J(1)+9 D WRTCALL^GMVBP4
|
|---|
| 41 | W !,"CALL PAIN" S J(1)=1661,J(2)=J(1)+9 D WRTCALL^GMVBP4
|
|---|
| 42 | W !,"CALL QU1, '"_$G(GLINE(1))_"';"
|
|---|
| 43 | W !,"CALL QU2, '"_$G(GLINE(2))_"';"
|
|---|
| 44 | W !,"CALL QU3, '"_$G(GLINE(3))_"';"
|
|---|
| 45 | W !,"CALL QU4, '"_$G(GLINE(4))_"';"
|
|---|
| 46 | ;W !,"CALL QU5, '"_$G(GLINE(5))_"';"
|
|---|
| 47 | W !,"CALL PID, '"_^TMP($J,"GMRK","G194")_"', '"_^("G196")_"', '"_^("G197")_"', '"_^("G198")_"', '"_^("G199")_"', '"_^("G200")_"', '"_GMRDIV_"', '"_GSTRFIN_"';"
|
|---|
| 48 | Q
|
|---|
