GMVGR4 ;HIOFO/YH,FT-VITALS GRAPH KYOCERA PRINT COMMANDS (PART 1) ;11/6/01 16:10
;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
;
; This routine uses the following IAs:
; <None>
;
EN3 ;CONTINUATION OF GMVGR3
CALL W !,"CALL BOX,'%';"
W !,"CALL DATE" S J(1)=1,J(2)=J(1)+9 D WRTCALL^GMVBP4
W !,"CALL TIME" S J(1)=17,J(2)=J(1)+9 D WRTCALL^GMVBP4
W !,"CALL WT" S J(1)=34,J(2)=J(1)+9 D WRTCALL^GMVBP4
W !,"CALL WTKG" S J(1)=311,J(2)=J(1)+9 D WRTCALL^GMVBP4
W !,"CALL BMI" S J(1)=331,J(2)=J(1)+9 D WRTCALL^GMVBP4
W !,"CALL HT" S J(1)=271,J(2)=J(1)+9 D WRTCALL^GMVBP4
W !,"CALL HTCM" S J(1)=291,J(2)=J(1)+9 D WRTCALL^GMVBP4
W !,"CALL TMPG, "_^TMP($J,"GMRK","G50M")_", "_^("G50")_", "_^("G51")_", "_^("G52")_", "_^("G53")_", "_^("G54")_", "_^("G55")_", "_^("G56")
W ", "_^TMP($J,"GMRK","G57")_", "_^("G58")_", "_^("G59")_";"
W !,"CALL TMP1, "_^TMP($J,"GMRK","G50M")_", "_^("G50")_", '"_^("G211")_"', "_^("G51")_", '"_^("G212")_"', "_^("G52")_", '"_^("G213")_"', "_^("G53")_", '"_^("G214")_"', "_^("G54")_", '"_^("G215")_"', "_^("G55")_", '"_^("G216")_"', "
W ^TMP($J,"GMRK","G56")_", '"_^("G217")_"', "_^("G57")_", '"_^("G218")_"', "_^("G58")_", '"_^("G219")_"';"
W !,"CALL TMP2, "_^TMP($J,"GMRK","G59")_", '"_^("G220")_"';"
W !,"CALL TEMP" S J(1)=66,J(2)=J(1)+9 D WRTCALL^GMVBP4
W !,"CALL PLSG, "_^TMP($J,"GMRK","G82M")_", "_^("G82")_", "_^("G83")_", "_^("G84")_", "_^("G85")_", "_^("G86")_", "_^("G87")_", "_^("G88")_", "
W ^TMP($J,"GMRK","G89")_", "_^("G90")_", "_^("G91")_";"
W !,"CALL PLS1, "_^TMP($J,"GMRK","G82M")_", "_^("G82")_", '"_^("G231")_"', "_^("G83")_", '"_^("G232")_"', "_^("G84")_", '"_^("G233")_"', "_^("G85")_", '"_^("G234")_"', "_^("G86")_", '"_^("G235")_"', "_^("G87")_", '"_^("G236")_"', "
W ^TMP($J,"GMRK","G88")_", '"_^("G237")_"', "_^("G89")_", '"_^("G238")_"', "_^("G90")_", '"_^("G239")_"';"
W !,"CALL PLS2, "_^TMP($J,"GMRK","G91")_", '"_^("G240")_"';"
W !,"CALL PULS" S J(1)=98,J(2)=J(1)+9 D WRTCALL^GMVBP4
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMVGR4 1978 printed Dec 13, 2024@01:58:59 Page 2
GMVGR4 ;HIOFO/YH,FT-VITALS GRAPH KYOCERA PRINT COMMANDS (PART 1) ;11/6/01 16:10
+1 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
+2 ;
+3 ; This routine uses the following IAs:
+4 ; <None>
+5 ;
EN3 ;CONTINUATION OF GMVGR3
CALL WRITE !,"CALL BOX,'%';"
+1 WRITE !,"CALL DATE"
SET J(1)=1
SET J(2)=J(1)+9
DO WRTCALL^GMVBP4
+2 WRITE !,"CALL TIME"
SET J(1)=17
SET J(2)=J(1)+9
DO WRTCALL^GMVBP4
+3 WRITE !,"CALL WT"
SET J(1)=34
SET J(2)=J(1)+9
DO WRTCALL^GMVBP4
+4 WRITE !,"CALL WTKG"
SET J(1)=311
SET J(2)=J(1)+9
DO WRTCALL^GMVBP4
+5 WRITE !,"CALL BMI"
SET J(1)=331
SET J(2)=J(1)+9
DO WRTCALL^GMVBP4
+6 WRITE !,"CALL HT"
SET J(1)=271
SET J(2)=J(1)+9
DO WRTCALL^GMVBP4
+7 WRITE !,"CALL HTCM"
SET J(1)=291
SET J(2)=J(1)+9
DO WRTCALL^GMVBP4
+8 WRITE !,"CALL TMPG, "_^TMP($JOB,"GMRK","G50M")_", "_^("G50")_", "_^("G51")_", "_^("G52")_", "_^("G53")_", "_^("G54")_", "_^("G55")_", "_^("G56")
+9 WRITE ", "_^TMP($JOB,"GMRK","G57")_", "_^("G58")_", "_^("G59")_";"
+10 WRITE !,"CALL TMP1, "_^TMP($JOB,"GMRK","G50M")_", "_^("G50")_", '"_^("G211")_"', "_^("G51")_", '"_^("G212")_"', "_^("G52")_", '"_^("G213")_"', "_^("G53")_", '"_^("G214")_"', "_^("G54")_", '"_^("G215")_"', "_^("G55")_", '"_^("G216")_"', "
+11 WRITE ^TMP($JOB,"GMRK","G56")_", '"_^("G217")_"', "_^("G57")_", '"_^("G218")_"', "_^("G58")_", '"_^("G219")_"';"
+12 WRITE !,"CALL TMP2, "_^TMP($JOB,"GMRK","G59")_", '"_^("G220")_"';"
+13 WRITE !,"CALL TEMP"
SET J(1)=66
SET J(2)=J(1)+9
DO WRTCALL^GMVBP4
+14 WRITE !,"CALL PLSG, "_^TMP($JOB,"GMRK","G82M")_", "_^("G82")_", "_^("G83")_", "_^("G84")_", "_^("G85")_", "_^("G86")_", "_^("G87")_", "_^("G88")_", "
+15 WRITE ^TMP($JOB,"GMRK","G89")_", "_^("G90")_", "_^("G91")_";"
+16 WRITE !,"CALL PLS1, "_^TMP($JOB,"GMRK","G82M")_", "_^("G82")_", '"_^("G231")_"', "_^("G83")_", '"_^("G232")_"', "_^("G84")_", '"_^("G233")_"', "_^("G85")_", '"_^("G234")_"', "_^("G86")_", '"_^("G235")_"', "_^("G87")_", '"_^("G236")_"', "
+17 WRITE ^TMP($JOB,"GMRK","G88")_", '"_^("G237")_"', "_^("G89")_", '"_^("G238")_"', "_^("G90")_", '"_^("G239")_"';"
+18 WRITE !,"CALL PLS2, "_^TMP($JOB,"GMRK","G91")_", '"_^("G240")_"';"
+19 WRITE !,"CALL PULS"
SET J(1)=98
SET J(2)=J(1)+9
DO WRTCALL^GMVBP4
+20 QUIT
