Routine: GMRGTGI1

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

Package

Total

Call Graph

General Medical Record - Generator

FITLINE^GMRGRUT1 INFOSET^GMRGTGI0

VA Fileman

YN^DICN

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

Package

Total

Caller Graph

General Medical Record - Generator

GMRGTGI2 GMRGTGIF

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

Name	Field # of Occurrence
YN^DICN	LKDQ, LKUQ
FITLINE^GMRGRUT1	DISP+10, DISP+11
INFOSET^GMRGTGI0	CNTD, CNTU+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	Timeout: DTIME Variable: Y 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

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

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

Local Variables

>>	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, CNTU, CNTU+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*

Customize PDF page

Package: General Medical Record - Generator

Routine: GMRGTGI1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: