Routine: GMVKPO4

Information

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

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
General Medical Record - Vitals	1	WRTCALL^GMVBP4

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
General Medical Record - Vitals	1	GMVKPO0

Entry Points

Name	Comments	DBIA/ICR reference
EN3	;CONTINUATION OF GMVKPO3
CALL
PO2Q	;

External References

Name	Field # of Occurrence
WRTCALL^GMVBP4	CALL+1, CALL+2, CALL+8, CALL+14, PO2Q+1, PO2Q+2, PO2Q+3, PO2Q+4, PO2Q+5

Interaction Calls

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 PLSG, "_^TMP($J,"GMRK","G82M")_", "_^("G82")_", "_^("G83")_", "_^("G84")_", "_^("G85")_", "_^("G86")_", "_^("G87")_", "_^("G88")_", " Line Location: CALL+9
Function Call: WRITE	Prompt: ^TMP($J,"GMRK","G89")_", "_^("G90")_", "_^("G91")_";" Line Location: CALL+10
Function Call: WRITE	Prompt: !,"CALL PLS1, "_^TMP($J,"GMRK","G82M")_", "_^("G82")_", '"_^("G431")_"', "_^("G83")_", '"_^("G432")_"', "_^("G84")_", '"_^("G433")_"', "_^("G85")_", '"_^("G434")_"', "_^("G86")_", '"_^("G435")_"', "_^("G87")_", '"_^("G436")_"', " Line Location: CALL+11
Function Call: WRITE	Prompt: ^TMP($J,"GMRK","G88")_", '"_^("G437")_"', "_^("G89")_", '"_^("G438")_"', "_^("G90")_", '"_^("G439")_"';" Line Location: CALL+12
Function Call: WRITE	Prompt: !,"CALL PLS2, "_^TMP($J,"GMRK","G91")_", '"_^("G440")_"';" Line Location: CALL+13
Function Call: WRITE	Prompt: !,"CALL PULS" Line Location: CALL+14
Function Call: WRITE	Prompt: !,"CALL POXL" Line Location: PO2Q+1
Function Call: WRITE	Prompt: !,"CALL POXP" Line Location: PO2Q+2
Function Call: WRITE	Prompt: !,"CALL POXM" Line Location: PO2Q+3
Function Call: WRITE	Prompt: !,"CALL NEWP" Line Location: PO2Q+4
Function Call: WRITE	Prompt: !,"CALL PLQ" Line Location: PO2Q+5
Function Call: WRITE	Prompt: !,"CALL QUA, '"_$G(GLINE(1))_"';" Line Location: PO2Q+6
Function Call: WRITE	Prompt: !,"CALL QU2, '"_$G(GLINE(2))_"';" Line Location: PO2Q+6
Function Call: WRITE	Prompt: !,"CALL PID, """_^TMP($J,"GMRK","G194")_""", '"_^("G196")_"', '"_^("G197")_"', '"_^("G198")_"', '"_^("G199")_"', '"_^("G200")_"', '"_GMRDIV_"', '"_GSTRFIN_"';" Line Location: PO2Q+7
Function Call: WRITE	Prompt: !,"RES; EXIT;" Line Location: PO2Q+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	CALL+3, CALL+4, CALL+5, CALL+6, CALL+7, CALL+9, CALL+10, CALL+11, CALL+12, CALL+13 , PO2Q+7

Naked Globals

Name	Field # of Occurrence
^("G196"	PO2Q+7
^("G197"	PO2Q+7
^("G198"	PO2Q+7
^("G199"	PO2Q+7
^("G200"	PO2Q+7
^("G411"	CALL+5
^("G412"	CALL+5
^("G413"	CALL+5
^("G414"	CALL+5
^("G415"	CALL+5
^("G416"	CALL+5
^("G417"	CALL+6
^("G418"	CALL+6
^("G419"	CALL+6
^("G420"	CALL+7
^("G431"	CALL+11
^("G432"	CALL+11
^("G433"	CALL+11
^("G434"	CALL+11
^("G435"	CALL+11
^("G436"	CALL+11
^("G437"	CALL+12
^("G438"	CALL+12
^("G439"	CALL+12
^("G440"	CALL+13
^("G50"	CALL+3, CALL+5
^("G51"	CALL+3, CALL+5
^("G52"	CALL+3, CALL+5
^("G53"	CALL+3, CALL+5
^("G54"	CALL+3, CALL+5
^("G55"	CALL+3, CALL+5
^("G56"	CALL+3
^("G57"	CALL+6
^("G58"	CALL+4, CALL+6
^("G59"	CALL+4
^("G82"	CALL+9, CALL+11
^("G83"	CALL+9, CALL+11
^("G84"	CALL+9, CALL+11
^("G85"	CALL+9, CALL+11
^("G86"	CALL+9, CALL+11
^("G87"	CALL+9, CALL+11
^("G88"	CALL+9
^("G89"	CALL+12
^("G90"	CALL+10, CALL+12
^("G91"	CALL+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> GLINE(1	PO2Q+6
>> GLINE(2	PO2Q+6
>> GMRDIV	PO2Q+7
>> GSTRFIN	PO2Q+7
>> J(1	CALL+1, CALL+2, CALL+8, CALL+14, PO2Q+1, PO2Q+2, PO2Q+3, PO2Q+4, PO2Q+5*
>> J(2	CALL+1, CALL+2, CALL+8, CALL+14, PO2Q+1, PO2Q+2, PO2Q+3, PO2Q+4, PO2Q+5*

Customize PDF page

Package: General Medical Record - Vitals