GMVGR4.m

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

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