GMVBP3 ;HIOFO/YH,FT-DEFINE KYOCERA B/P GRAPH MACRO (CONT.) ;11/6/01 14:35
;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
;
;This routine uses the following IAs:
; <None>
;
EN2 ;CONTINUED FROM GMVBP2
PULSEG W !,"MCRO PLSG; FONT 57; 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.4 D WRTEXT^GMVBP2
W !,"ENDM;"
W !,"MCRO PQU;" S J=20.9 D WRTEXT^GMVBP2
W !,"ENDM;"
BP W !,"MCRO BP;" S J=21.4 D WRTEXT^GMVBP2
W !,"ENDM;"
BP3 W !,"MCRO BP3;" S J=21.9 D WRTEXT^GMVBP2
W !,"ENDM;"
BPQUA W !,"MCRO BPQUA;" S J=22.4 D WRTEXT^GMVBP2
W !,"ENDM;"
MAP W !,"MCRO MEAN;" S J=22.9 D WRTEXT^GMVBP2
W !,"ENDM;"
PID W !,"MCRO PID; MAP -1,24.6; FONT 56; TEXT %1; MAP -1,24.9; TEXT %2; MAP 3.5,24.9; TEXT %3; MAP -1,25.2; TEXT %4; MAP 7,25.5; TEXT %5; MAP 7,25.2; TEXT %6; MAP -1,25.5; TEXT %7; MAP -1,25.8; TEXT %8;"
W !,"ENDM;"
PLS1 W !,"MCRO PLS1; 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.7; TEXT %1; ENDM;" W !,"MCRO QU2; MAP -3,24; TEXT %1; ENDM;" W !,"MCRO QU3; MAP -3,24.3; TEXT %1; ENDM;"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMVBP3 1420 printed Nov 22, 2024@17:08:32 Page 2
GMVBP3 ;HIOFO/YH,FT-DEFINE KYOCERA B/P GRAPH MACRO (CONT.) ;11/6/01 14:35
+1 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
+2 ;
+3 ;This routine uses the following IAs:
+4 ; <None>
+5 ;
EN2 ;CONTINUED FROM GMVBP2
PULSEG WRITE !,"MCRO PLSG; FONT 57; 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.4
DO WRTEXT^GMVBP2
+1 WRITE !,"ENDM;"
+2 WRITE !,"MCRO PQU;"
SET J=20.9
DO WRTEXT^GMVBP2
+3 WRITE !,"ENDM;"
BP WRITE !,"MCRO BP;"
SET J=21.4
DO WRTEXT^GMVBP2
+1 WRITE !,"ENDM;"
BP3 WRITE !,"MCRO BP3;"
SET J=21.9
DO WRTEXT^GMVBP2
+1 WRITE !,"ENDM;"
BPQUA WRITE !,"MCRO BPQUA;"
SET J=22.4
DO WRTEXT^GMVBP2
+1 WRITE !,"ENDM;"
MAP WRITE !,"MCRO MEAN;"
SET J=22.9
DO WRTEXT^GMVBP2
+1 WRITE !,"ENDM;"
PID WRITE !,"MCRO PID; MAP -1,24.6; FONT 56; TEXT %1; MAP -1,24.9; TEXT %2; MAP 3.5,24.9; TEXT %3; MAP -1,25.2; TEXT %4; MAP 7,25.5; TEXT %5; MAP 7,25.2; TEXT %6; MAP -1,25.5; TEXT %7; MAP -1,25.8; TEXT %8;"
+1 WRITE !,"ENDM;"
PLS1 WRITE !,"MCRO PLS1; 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 WRITE !,"MCRO QUA; FONT 57; MAP -3,23.7; TEXT %1; ENDM;"
WRITE !,"MCRO QU2; MAP -3,24; TEXT %1; ENDM;"
WRITE !,"MCRO QU3; MAP -3,24.3; TEXT %1; ENDM;"
+1 QUIT
