- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMVKPO4 2245 printed Feb 18, 2025@23:25:53 Page 2
- 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