- 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 Jan 18, 2025@03:00:12 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