GMVKPO3.m

GMVKPO3 ;HIOFO/YH,FT-KYOCERA PULSE OXIMETRY/RESP. GRAPH - MACRO 2 ;11/6/01  15:00

 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002

 ;

 ; This routine uses the following IAs:

 ; <None>

 ;

EN2 ;CONTINUATION OF GMVKPO2

PULSEG W !,"MCRO PLSG; SPD 0.03;MAP %1, %2; DAP 2.2, %3; DAP 3.8, %4; DAP 5.4, %5; DAP 7, %6; DAP 8.6, %7; DAP 10.2, %8; DAP 11.8, %9;"

 W !,"DAP 13.4, %10; DAP 15, %11;"

 W !,"ENDM;"

PULSE W !,"MCRO PULS;" S J=20.7 D WRTEXT^GMVBP2

 W !,"ENDM;"

POXL ;PULSE OX. L/MIN

 W !,"MCRO POXL;" S J=21.1 D WRTEXT^GMVBP2

 W !,"ENDM;"

POXP ;PULSE OX. %

 W !,"MCRO POXP;" S J=21.5 D WRTEXT^GMVBP2

 W !,"ENDM;"

POXM W !,"MCRO POXM;" S J=21.9 D WRTEXT^GMVBP2

 W !,"ENDM;"

 ;PULSE DATA

 W !,"MCRO NEWP;" S J=22.3 D WRTEXT^GMVBP2

 W !,"ENDM;"

PULSEQ W !,"MCRO PLQ;" S J=22.7 D WRTEXT^GMVBP2

 W !,"ENDM;"

RPG W !,"MCRO RPG; SPD 0.03; MAP %1, %2; DAP 1.8, %3; DAP 3.4, %4; DAP 5, %5; DAP 6.6, %6; DAP 8.2, %7; DAP 9.8, %8; DAP 11.4, %9;"

 W !,"DAP 13, %10; DAP 14.6, %11;"

 W !,"ENDM;"

RESP W !,"MCRO RSP;" S J=20.3 D WRTEXT^GMVBP2

 W !,"ENDM;"

PID W !,"MCRO PID; MAP -2,24.4; FONT 56; TEXT %1; MAP -2,24.7; TEXT %2; MAP 2.5,24.7; TEXT %3; MAP -2,25; TEXT %4; MAP 6,25; TEXT %5; MAP 6,25.3; TEXT %6; MAP -2,25.3; TEXT %7; MAP -2,25.6; TEXT %8;"

 W !,"ENDM;"

RS1 W !,"MCRO RS1; FONT 56; MAP %1,%2; TEXT %3; MAP 1.8,%4; TEXT %5; MAP 3.4,%6; TEXT %7; MAP 5,%8; TEXT %9; MAP 6.6,%10; TEXT %11; MAP 8.2,%12; TEXT %13; MAP 9.8,%14; TEXT %15; MAP 11.4,%16; TEXT %17; MAP 13,%18; TEXT %19;"

 W !,"ENDM;"

RS2 W !,"MCRO RS2; MAP 14.6,%1; TEXT %2;"

 W !,"ENDM;"

PLS1 W !,"MCRO PLS1; FONT 56; MAP %1,%2; TEXT %3; MAP 2.2,%4; TEXT %5; MAP 3.8,%6; TEXT %7; MAP 5.4,%8; TEXT %9; MAP 7,%10; TEXT %11; MAP 8.6,%12; TEXT %13; MAP 10.2,%14; TEXT %15; MAP 11.8,%16; TEXT %17; MAP 13.4,%18; TEXT %19;"

 W !,"ENDM;"

PLS2 W !,"MCRO PLS2; MAP 15,%1; TEXT %2;"

 W !,"ENDM;"

QUAL ;

 W !,"MCRO QUA; FONT 57; MAP -3,23.5; TEXT %1; ENDM;" W !,"MCRO QU2; MAP -2.5,23.8; TEXT %1; ENDM;"

 Q

GMVKPO3   ;HIOFO/YH,FT-KYOCERA PULSE OXIMETRY/RESP. GRAPH - MACRO 2 ;11/6/01  15:00

 +1       ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002

 +2       ;

 +3       ; This routine uses the following IAs:

 +4       ; <None>

 +5       ;

EN2       ;CONTINUATION OF GMVKPO2

PULSEG     WRITE !,"MCRO PLSG; SPD 0.03;MAP %1, %2; DAP 2.2, %3; DAP 3.8, %4; DAP 5.4, %5; DAP 7, %6; DAP 8.6, %7; DAP 10.2, %8; DAP 11.8, %9;"

 +1        WRITE !,"DAP 13.4, %10; DAP 15, %11;"

 +2        WRITE !,"ENDM;"

PULSE      WRITE !,"MCRO PULS;"

           SET J=20.7

           DO WRTEXT^GMVBP2

 +1        WRITE !,"ENDM;"

POXL      ;PULSE OX. L/MIN

 +1        WRITE !,"MCRO POXL;"

           SET J=21.1

           DO WRTEXT^GMVBP2

 +2        WRITE !,"ENDM;"

POXP      ;PULSE OX. %

 +1        WRITE !,"MCRO POXP;"

           SET J=21.5

           DO WRTEXT^GMVBP2

 +2        WRITE !,"ENDM;"

POXM       WRITE !,"MCRO POXM;"

           SET J=21.9

           DO WRTEXT^GMVBP2

 +1        WRITE !,"ENDM;"

 +2       ;PULSE DATA

 +3        WRITE !,"MCRO NEWP;"

           SET J=22.3

           DO WRTEXT^GMVBP2

 +4        WRITE !,"ENDM;"

PULSEQ     WRITE !,"MCRO PLQ;"

           SET J=22.7

           DO WRTEXT^GMVBP2

 +1        WRITE !,"ENDM;"

RPG        WRITE !,"MCRO RPG; SPD 0.03; MAP %1, %2; DAP 1.8, %3; DAP 3.4, %4; DAP 5, %5; DAP 6.6, %6; DAP 8.2, %7; DAP 9.8, %8; DAP 11.4, %9;"

 +1        WRITE !,"DAP 13, %10; DAP 14.6, %11;"

 +2        WRITE !,"ENDM;"

RESP       WRITE !,"MCRO RSP;"

           SET J=20.3

           DO WRTEXT^GMVBP2

 +1        WRITE !,"ENDM;"

PID        WRITE !,"MCRO PID; MAP -2,24.4; FONT 56; TEXT %1; MAP -2,24.7; TEXT %2; MAP 2.5,24.7; TEXT %3; MAP -2,25; TEXT %4; MAP 6,25; TEXT %5; MAP 6,25.3; TEXT %6; MAP -2,25.3; TEXT %7; MAP -2,25.6; TEXT %8;"

 +1        WRITE !,"ENDM;"

RS1        WRITE !,"MCRO RS1; FONT 56; MAP %1,%2; TEXT %3; MAP 1.8,%4; TEXT %5; MAP 3.4,%6; TEXT %7; MAP 5,%8; TEXT %9; MAP 6.6,%10; TEXT %11; MAP 8.2,%12; TEXT %13; MAP 9.8,%14; TEXT %15; MAP 11.4,%16; TEXT %17; MAP 13,%18; TEXT %19;"

 +1        WRITE !,"ENDM;"

RS2        WRITE !,"MCRO RS2; MAP 14.6,%1; TEXT %2;"

 +1        WRITE !,"ENDM;"

PLS1       WRITE !,"MCRO PLS1; FONT 56; MAP %1,%2; TEXT %3; MAP 2.2,%4; TEXT %5; MAP 3.8,%6; TEXT %7; MAP 5.4,%8; TEXT %9; MAP 7,%10; TEXT %11; MAP 8.6,%12; TEXT %13; MAP 10.2,%14; TEXT %15; MAP 11.8,%16; TEXT %17; MAP 13.4,%18; TEXT %19;"

 +1        WRITE !,"ENDM;"

PLS2       WRITE !,"MCRO PLS2; MAP 15,%1; TEXT %2;"

 +1        WRITE !,"ENDM;"

QUAL      ;

 +1        WRITE !,"MCRO QUA; FONT 57; MAP -3,23.5; TEXT %1; ENDM;"

           WRITE !,"MCRO QU2; MAP -2.5,23.8; TEXT %1; ENDM;"

 +2        QUIT