| [613] | 1 | GMRVBP4 ;HIRMFO/YH-CALL KYOCERA B/P GRAPH MACRO ;5/16/97
|
|---|
| 2 | ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
|
|---|
| 3 | EN3 ;CONTINUATION OF GMRVBP3
|
|---|
| 4 | CALL W !,"CALL BOX;"
|
|---|
| 5 | W !,"CALL DATE" S J(1)=1,J(2)=J(1)+9 D WRTCALL
|
|---|
| 6 | W !,"CALL TIME" S J(1)=17,J(2)=J(1)+9 D WRTCALL
|
|---|
| 7 | SYSG ;SYSTOLIC BP GRAPH
|
|---|
| 8 | W !,"CALL PLSG, "_^TMP($J,"GMRK","G226M")_", "_^("G226")_", "_^("G227")_", "_^("G228")_", "_^("G229")_", "_^("G230")_", "_^("G231")_", "_^("G232")_", "
|
|---|
| 9 | W ^TMP($J,"GMRK","G233")_", "_^("G234")_", "_^("G235")_";"
|
|---|
| 10 | W !,"CALL PLS1, "_^TMP($J,"GMRK","G226M")_", "_^("G226")_", '"_^("G1201")_"', "_^("G227")_", '"_^("G1202")_"', "_^("G228")_", '"_^("G1203")_"', "_^("G229")_", '"_^("G1204")_"', "
|
|---|
| 11 | W ^TMP($J,"GMRK","G230")_", '"_^("G1205")_"', "_^("G231")_", '"_^("G1206")_"', "_^("G232")_", '"_^("G1207")_"', "_^("G233")_", '"_^("G1208")_"', "_^("G234")_", '"_^("G1209")_"';"
|
|---|
| 12 | W !,"CALL PLS2, "_^TMP($J,"GMRK","G235")_", '"_^("G1210")_"';"
|
|---|
| 13 | ;DIASTOLIC B/P GRAPH
|
|---|
| 14 | W !,"CALL PLSG, "_^TMP($J,"GMRK","G210M")_", "_^("G210")_", "_^("G211")_", "_^("G212")_", "_^("G213")_", "_^("G214")_", "_^("G215")_", "_^("G216")_", "
|
|---|
| 15 | W ^TMP($J,"GMRK","G217")_", "_^("G218")_", "_^("G219")_";"
|
|---|
| 16 | W !,"CALL PLS1, "_^TMP($J,"GMRK","G210M")_", "_^("G210")_", '"_^("G1101")_"', "_^("G211")_", '"_^("G1102")_"', "_^("G212")_", '"_^("G1103")_"', "_^("G213")_", '"_^("G1104")_"', "_^("G214")_", '"_^("G1105")
|
|---|
| 17 | W "', "_^TMP($J,"GMRK","G215")_", '"_^("G1106")_"', "_^("G216")_", '"_^("G1107")_"', "_^("G217")_", '"_^("G1108")_"', "_^("G218")_", '"_^("G1109")_"';"
|
|---|
| 18 | W !,"CALL PLS2, "_^TMP($J,"GMRK","G219")_", '"_^("G1110")_"';"
|
|---|
| 19 | PULSE W !,"CALL PULS" S J(1)=98,J(2)=J(1)+9 D WRTCALL
|
|---|
| 20 | W !,"CALL PQU" S J(1)=1121,J(2)=J(1)+9 D WRTCALL
|
|---|
| 21 | W !,"CALL BP" S J(1)=130,J(2)=J(1)+9 D WRTCALL
|
|---|
| 22 | W !,"CALL BP3" S J(1)=1241,J(2)=J(1)+9 D WRTCALL
|
|---|
| 23 | W !,"CALL BPQUA" S J(1)=451,J(2)=J(1)+9 D WRTCALL
|
|---|
| 24 | W !,"CALL MEAN" S J(1)=1221,J(2)=J(1)+9 D WRTCALL
|
|---|
| 25 | W !,"CALL QUA, '"_$G(GLINE(1))_"';"
|
|---|
| 26 | W !,"CALL QU2, '"_$G(GLINE(2))_"';"
|
|---|
| 27 | W !,"CALL QU3, '"_$G(GLINE(3))_"';"
|
|---|
| 28 | W !,"CALL PID, """_^TMP($J,"GMRK","G194")_""", '"_^("G196")_"', '"_^("G197")_"', '"_^("G198")_"', '"_^("G199")_"', '"_^("G200")_"', '"_GMRDIV_"', '"_GSTRFIN_"';"
|
|---|
| 29 | W !,"RES; EXIT;"
|
|---|
| 30 | Q
|
|---|
| 31 | WRTCALL ;
|
|---|
| 32 | S I(1)="" F I=J(1):1:J(2) S I(1)=I(1)_", '"_^TMP($J,"GMRK","G"_I)_"'"
|
|---|
| 33 | W I(1)_";"
|
|---|
| 34 | Q
|
|---|
