GMVKPO4.m

GMVKPO4 ;HIOFO/YH,FT-GRAPH KYOCERA PRINT COMMANDS (PART 1) ;11/6/01  15:01

 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002

 ;

 ; This routine uses the following IAs:

 ; <None>

 ;

EN3 ;CONTINUATION OF GMVKPO3

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 RPG, "_^TMP($J,"GMRK","G50M")_", "_^("G50")_", "_^("G51")_", "_^("G52")_", "_^("G53")_", "_^("G54")_", "_^("G55")_", "_^("G56")

 W ", "_^TMP($J,"GMRK","G57")_", "_^("G58")_", "_^("G59")_";"

 W !,"CALL RS1, "_^TMP($J,"GMRK","G50M")_", "_^("G50")_", '"_^("G411")_"', "_^("G51")_", '"_^("G412")_"', "_^("G52")_", '"_^("G413")_"', "_^("G53")_", '"_^("G414")_"', "_^("G54")_", '"_^("G415")_"', "_^("G55")_", '"_^("G416")_"', "

 W ^TMP($J,"GMRK","G56")_", '"_^("G417")_"', "_^("G57")_", '"_^("G418")_"', "_^("G58")_", '"_^("G419")_"';"

 W !,"CALL RS2, "_^TMP($J,"GMRK","G59")_", '"_^("G420")_"';"

 W !,"CALL RSP" S J(1)=250,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")_", '"_^("G431")_"', "_^("G83")_", '"_^("G432")_"', "_^("G84")_", '"_^("G433")_"', "_^("G85")_", '"_^("G434")_"', "_^("G86")_", '"_^("G435")_"', "_^("G87")_", '"_^("G436")_"', "

 W ^TMP($J,"GMRK","G88")_", '"_^("G437")_"', "_^("G89")_", '"_^("G438")_"', "_^("G90")_", '"_^("G439")_"';"

 W !,"CALL PLS2, "_^TMP($J,"GMRK","G91")_", '"_^("G440")_"';"

 W !,"CALL PULS" S J(1)=282,J(2)=J(1)+9 D WRTCALL^GMVBP4

PO2Q ;

 W !,"CALL POXL" S J(1)=1431,J(2)=J(1)+9 D WRTCALL^GMVBP4

 W !,"CALL POXP" S J(1)=1451,J(2)=J(1)+9 D WRTCALL^GMVBP4

 W !,"CALL POXM" S J(1)=1471,J(2)=J(1)+9 D WRTCALL^GMVBP4

 W !,"CALL NEWP" S J(1)=311,J(2)=J(1)+9 D WRTCALL^GMVBP4

 W !,"CALL PLQ" S J(1)=331,J(2)=J(1)+9 D WRTCALL^GMVBP4

 W !,"CALL QUA, '"_$G(GLINE(1))_"';" W !,"CALL QU2, '"_$G(GLINE(2))_"';"

 W !,"CALL PID, """_^TMP($J,"GMRK","G194")_""", '"_^("G196")_"', '"_^("G197")_"', '"_^("G198")_"', '"_^("G199")_"', '"_^("G200")_"', '"_GMRDIV_"', '"_GSTRFIN_"';"

 W !,"RES; EXIT;"

 Q

GMVKPO4   ;HIOFO/YH,FT-GRAPH KYOCERA PRINT COMMANDS (PART 1) ;11/6/01  15:01

 +1       ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002

 +2       ;

 +3       ; This routine uses the following IAs:

 +4       ; <None>

 +5       ;

EN3       ;CONTINUATION OF GMVKPO3

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 RPG, "_^TMP($JOB,"GMRK","G50M")_", "_^("G50")_", "_^("G51")_", "_^("G52")_", "_^("G53")_", "_^("G54")_", "_^("G55")_", "_^("G56")

 +4        WRITE ", "_^TMP($JOB,"GMRK","G57")_", "_^("G58")_", "_^("G59")_";"

 +5        WRITE !,"CALL RS1, "_^TMP($JOB,"GMRK","G50M")_", "_^("G50")_", '"_^("G411")_"', "_^("G51")_", '"_^("G412")_"', "_^("G52")_", '"_^("G413")_"', "_^("G53")_", '"_^("G414")_"', "_^("G54")_", '"_^("G415")_"', "_^("G55")_", '"_^("G416")_"', "

 +6        WRITE ^TMP($JOB,"GMRK","G56")_", '"_^("G417")_"', "_^("G57")_", '"_^("G418")_"', "_^("G58")_", '"_^("G419")_"';"

 +7        WRITE !,"CALL RS2, "_^TMP($JOB,"GMRK","G59")_", '"_^("G420")_"';"

 +8        WRITE !,"CALL RSP"

           SET J(1)=250

           SET J(2)=J(1)+9

           DO WRTCALL^GMVBP4

 +9        WRITE !,"CALL PLSG, "_^TMP($JOB,"GMRK","G82M")_", "_^("G82")_", "_^("G83")_", "_^("G84")_", "_^("G85")_", "_^("G86")_", "_^("G87")_", "_^("G88")_", "

 +10       WRITE ^TMP($JOB,"GMRK","G89")_", "_^("G90")_", "_^("G91")_";"

 +11       WRITE !,"CALL PLS1, "_^TMP($JOB,"GMRK","G82M")_", "_^("G82")_", '"_^("G431")_"', "_^("G83")_", '"_^("G432")_"', "_^("G84")_", '"_^("G433")_"', "_^("G85")_", '"_^("G434")_"', "_^("G86")_", '"_^("G435")_"', "_^("G87")_", '"_^("G436")_"', "

 +12       WRITE ^TMP($JOB,"GMRK","G88")_", '"_^("G437")_"', "_^("G89")_", '"_^("G438")_"', "_^("G90")_", '"_^("G439")_"';"

 +13       WRITE !,"CALL PLS2, "_^TMP($JOB,"GMRK","G91")_", '"_^("G440")_"';"

 +14       WRITE !,"CALL PULS"

           SET J(1)=282

           SET J(2)=J(1)+9

           DO WRTCALL^GMVBP4

PO2Q      ;

 +1        WRITE !,"CALL POXL"

           SET J(1)=1431

           SET J(2)=J(1)+9

           DO WRTCALL^GMVBP4

 +2        WRITE !,"CALL POXP"

           SET J(1)=1451

           SET J(2)=J(1)+9

           DO WRTCALL^GMVBP4

 +3        WRITE !,"CALL POXM"

           SET J(1)=1471

           SET J(2)=J(1)+9

           DO WRTCALL^GMVBP4

 +4        WRITE !,"CALL NEWP"

           SET J(1)=311

           SET J(2)=J(1)+9

           DO WRTCALL^GMVBP4

 +5        WRITE !,"CALL PLQ"

           SET J(1)=331

           SET J(2)=J(1)+9

           DO WRTCALL^GMVBP4

 +6        WRITE !,"CALL QUA, '"_$GET(GLINE(1))_"';"

           WRITE !,"CALL QU2, '"_$GET(GLINE(2))_"';"

 +7        WRITE !,"CALL PID, """_^TMP($JOB,"GMRK","G194")_""", '"_^("G196")_"', '"_^("G197")_"', '"_^("G198")_"', '"_^("G199")_"', '"_^("G200")_"', '"_GMRDIV_"', '"_GSTRFIN_"';"

 +8        WRITE !,"RES; EXIT;"

 +9        QUIT