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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: GMRGTGI1

Package: General Medical Record - Generator

Routine: GMRGTGI1


Information

GMRGTGI1 ;HIRMFO/RM-PRIME DOCUMENT EDIT (cont.) ;9/1/95

Source Information

Source file <GMRGTGI1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
General Medical Record - Generator 2 FITLINE^GMRGRUT1  INFOSET^GMRGTGI0  
VA FileMan 1 YN^DICN  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
General Medical Record - Generator 2 GMRGTGI2  GMRGTGIF  

Entry Points

Name Comments DBIA/ICR reference
DISP ; DISPLAY CHARACTERISTICS OF THIS TERM
PRTCHC ; LIST SELECTION AND ADD TO THE GMRGSEL ARRAY
DOWN ; GO DOWN A LEVEL INTO THE CARE PLAN
LKDQ
CNTD
UP ; GO UP A LEVEL IN THE CARE PLAN
LKUQ
CNTU

External References

Name Field # of Occurrence
YN^DICN LKDQLKUQ
FITLINE^GMRGRUT1 DISP+10, DISP+11
INFOSET^GMRGTGI0 CNTDCNTU+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P(GMRGINFO("TEXT"),"^")
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !?3,"Classification: "_$P(GMRGINFO("CLAS"),"^",2)_" "
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: "Output Format: "_$S(GMRGINFO("FORM")="B":"BRIEF TABULAR",GMRGINFO("FORM")="T":"TABULAR",1:"SENTENCE")
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !?3,"Type of Term: ",$S(GMRGINFO("TYPE")=2:"FRAME",1:"TERM")
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: ?25,"Ask Additional Text: ",$S(GMRGINFO("ADD"):"YES",1:"NO")
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !?3,$S(GMRGINFO("MIN")'="":"Minimum number of selections: "_+GMRGINFO("MIN")_" ",1:""),$S(GMRGINFO("MAX")'="":"Maximum number of selections: "_+GMRGINFO("MAX"),1:"")
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !?3,$S(GMRGINFO("SPLIT")'="":"Split Screen: "_$S(GMRGINFO("SPLIT"):"YES",1:"NO")_" ",1:""),$S(GMRGINFO("TTOP")'="":"Text on top: "_$S(GMRGINFO("TTOP"):"YES",1:"NO"),1:"")
  • Line Location: DISP+9
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: PRTCHC+1
Function Call: WRITE
  • Prompt: !,$C(7),"ANOTHER TERMINAL IS EDITING THIS ENTRY",!,"Do you wish to wait for this entry"
  • Line Location: LKDQ+0
Function Call: WRITE
  • Prompt: !?3,"If you think that the person editing this entry is only doing so",!?3,"temporarily, and you will be able to continue answer Yes, else answer No."
  • Line Location: LKDQ+1
Function Call: WRITE
  • Prompt: !,$C(7),"ANOTHER TERMINAL IS EDITING THIS ENTRY",!,"Do you wish to wait for this entry"
  • Line Location: LKUQ+0
Function Call: WRITE
  • Prompt: !?3,"If you think that the person editing this entry is only doing so",!?3,"temporarily, and you will be able to continue answer Yes, else answer No."
  • Line Location: LKUQ+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMRD(124.2 - [#124.2] DOWN+2, LKDQ+2, CNTDUP+1, LKUQ+2, CNTU
^TMP($J DOWN+1*, UP+1, LKUQ+2, CNTUCNTU+2!

Label References

Name Line Occurrences
CNTD DOWN+2
CNTU UP+1
LKDQ LKDQ+1, LKDQ+2
LKUQ LKUQ+1, LKUQ+2
PRTCHC DISP+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LKDQ*, LKDQ+1, LKDQ+2, LKUQ*, LKUQ+1, LKUQ+2
DTIME PRTCHC+1
>> GMRG1 DISP+10*, DISP+11*
GMRGINFO DOWN+1, CNTD!*, CNTU!*
GMRGINFO("ADD" DISP+6
GMRGINFO("CLAS" DISP+2
GMRGINFO("FORM" DISP+3, DISP+4
GMRGINFO("LEAD" DISP+10
GMRGINFO("MAX" DISP+7
GMRGINFO("MIN" DISP+7
GMRGINFO("SEL" DISP+12, PRTCHC+2
GMRGINFO("SMES" DISP+8
GMRGINFO("SPLIT" DISP+9
GMRGINFO("TEXT" DISP+1
GMRGINFO("TRAIL" DISP+11
GMRGINFO("TTOP" DISP+9
GMRGINFO("TYPE" DISP+5
>> GMRGL DISP+10*, DISP+11*
>> GMRGLEN DISP+10*, DISP+11*
>> GMRGLEVL DOWN+1*, UP+1, LKUQ+2, CNTUCNTU+2*
>> GMRGNOL DOWN+2*, LKDQ+2*, UP+1*, LKUQ+2*
>> GMRGOUT DISP+12, DISP+13*, PRTCHC+1*, PRTCHC+2, LKDQ+2*, LKUQ+2*
>> GMRGPLN DISP+10*, DISP+11*
>> GMRGPLN(0 DISP+10, DISP+11
>> GMRGPLN(1 DISP+10, DISP+11
>> GMRGSEL DOWN+2, LKDQ+2, CNTD
>> GMRGW DISP+12*, PRTCHC+1, PRTCHC+2
IOM DISP+10, DISP+11
>> Y PRTCHC+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All