GMRVKPN2 ;HCIOFO/YH-KYOCERA KYOCERA PAIN CHART PRINT COMMANDS (PART 1) ;2/12/99
;;4.0;Vitals/Measurements;**9**;Apr 25, 1997
EN3 ;CONTINUATION OF GMRVKPO3
CALL W !,"CALL BOX, '%';"
W !,"CALL DATE" S J(1)=1,J(2)=J(1)+9 D WRTCALL
W !,"CALL TIME" S J(1)=17,J(2)=J(1)+9 D WRTCALL
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
W !,"CALL PID, """_^TMP($J,"GMRK","G194")_""", '"_^("G196")_"', '"_^("G197")_"', '"_^("G198")_"', '"_^("G199")_"', '"_^("G200")_"', '"_GMRDIV_"', '"_GSTRFIN_"';"
W !,"RES; EXIT;"
Q
WRTCALL S I(1)="" F I=J(1):1:J(2) S I(1)=I(1)_", '"_^TMP($J,"GMRK","G"_I)_"'"
W I(1)_";"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVKPN2 1225 printed Jan 18, 2025@02:58:10 Page 2
GMRVKPN2 ;HCIOFO/YH-KYOCERA KYOCERA PAIN CHART PRINT COMMANDS (PART 1) ;2/12/99
+1 ;;4.0;Vitals/Measurements;**9**;Apr 25, 1997
EN3 ;CONTINUATION OF GMRVKPO3
CALL WRITE !,"CALL BOX, '%';"
+1 WRITE !,"CALL DATE"
SET J(1)=1
SET J(2)=J(1)+9
DO WRTCALL
+2 WRITE !,"CALL TIME"
SET J(1)=17
SET J(2)=J(1)+9
DO WRTCALL
+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
+9 WRITE !,"CALL PID, """_^TMP($JOB,"GMRK","G194")_""", '"_^("G196")_"', '"_^("G197")_"', '"_^("G198")_"', '"_^("G199")_"', '"_^("G200")_"', '"_GMRDIV_"', '"_GSTRFIN_"';"
+10 WRITE !,"RES; EXIT;"
+11 QUIT
WRTCALL SET I(1)=""
FOR I=J(1):1:J(2)
SET I(1)=I(1)_", '"_^TMP($JOB,"GMRK","G"_I)_"'"
+1 WRITE I(1)_";"
+2 QUIT
