Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: GMRVKPO4

Package: General Medical Record - Vitals

Routine: GMRVKPO4


Information

GMRVKPO4 ;HIRMFO/YH-GRAPH KYOCERA PRINT COMMANDS (PART 1) ;5/20/97

Source Information

Source file <GMRVKPO4.m>

Call Graph

Call Graph Total: 1

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
General Medical Record - Vitals 1 GMRVKPO0  

Entry Points

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

External References

Name Field # of Occurrence
WRTCALL^GMRVBP4 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All