Routine: GMRVKPN2

Information

GMRVKPN2 ;HCIOFO/YH-KYOCERA KYOCERA PAIN CHART PRINT COMMANDS (PART 1) ;2/12/99

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"CALL BOX, '%';" Line Location: CALL+0
Function Call: WRITE	Prompt: !,"CALL DATE" Line Location: CALL+1
Function Call: WRITE	Prompt: !,"CALL TIME" Line Location: CALL+2
Function Call: WRITE	Prompt: !,"CALL RPG, "_^TMP($J,"GMRK","G50M")_", "_^("G50")_", "_^("G51")_", "_^("G52")_", "_^("G53")_", "_^("G54")_", "_^("G55")_", "_^("G56") Line Location: CALL+3
Function Call: WRITE	Prompt: ", "_^TMP($J,"GMRK","G57")_", "_^("G58")_", "_^("G59")_";" Line Location: CALL+4
Function Call: WRITE	Prompt: !,"CALL RS1, "_^TMP($J,"GMRK","G50M")_", "_^("G50")_", '"_^("G411")_"', "_^("G51")_", '"_^("G412")_"', "_^("G52")_", '"_^("G413")_"', "_^("G53")_", '"_^("G414")_"', "_^("G54")_", '"_^("G415")_"', "_^("G55")_", '"_^("G416")_"', " Line Location: CALL+5
Function Call: WRITE	Prompt: ^TMP($J,"GMRK","G56")_", '"_^("G417")_"', "_^("G57")_", '"_^("G418")_"', "_^("G58")_", '"_^("G419")_"';" Line Location: CALL+6
Function Call: WRITE	Prompt: !,"CALL RS2, "_^TMP($J,"GMRK","G59")_", '"_^("G420")_"';" Line Location: CALL+7
Function Call: WRITE	Prompt: !,"CALL RSP" Line Location: CALL+8
Function Call: WRITE	Prompt: !,"CALL PID, """_^TMP($J,"GMRK","G194")_""", '"_^("G196")_"', '"_^("G197")_"', '"_^("G198")_"', '"_^("G199")_"', '"_^("G200")_"', '"_GMRDIV_"', '"_GSTRFIN_"';" Line Location: CALL+9
Function Call: WRITE	Prompt: !,"RES; EXIT;" Line Location: CALL+10
Function Call: WRITE	Prompt: I(1)_";" Line Location: WRTCALL+1