Routine: GMRGTGI2

Package	Total	Call Graph
General Medical Record - Generator	4	EN1^GMRGED3 (CHK,INFOSET)^GMRGTGI0 (DOWN,UP)^GMRGTGI1 EN2^GMRGTGIF
VA Fileman	4	^DIC (FILE,YN)^DICN ^DIE ^DIK

Package

Total

Call Graph

General Medical Record - Generator

EN1^GMRGED3 (CHK,INFOSET)^GMRGTGI0 (DOWN,UP)^GMRGTGI1 EN2^GMRGTGIF

VA Fileman

^DIC (FILE,YN)^DICN ^DIE ^DIK

Package	Total	Caller Graph
General Medical Record - Generator	1	GMRGTGIF

Package

Total

Caller Graph

General Medical Record - Generator

GMRGTGIF

Entry Points

Name	Comments	DBIA/ICR reference
TERM	; EDIT THE ENTRY
B
STDLFL
RSINAR
YNOK
EN1	; ENTRY FROM CHOOSING WHETHER TO EDIT THE TERM, EDIT THE SELECTION ; ADD A SELECTION OR DELETE A SELECTION. ; Y=$S(#:EDIT SEL.,"T"!"t":EDIT TERM,"A"!"a":ADD,#_@:DELETE)
ADD	; ADD SELECTIONS
SEL	; EDIT THE SELETION
DISPLAY	;
DELETE	; DELETE SELECTIONS

External References

Name	Field # of Occurrence
^DIC	TERM+8, ADD+4, YNOK+1
FILE^DICN	YNOK+5
YN^DICN	YNOK
^DIE	TERM+5, TERM+7, YNOK+4, STDLFL, DISPLAY+1
^DIK	DELETE+2
EN1^GMRGED3	TERM+3
CHK^GMRGTGI0	TERM+5
INFOSET^GMRGTGI0	TERM+8, YNOK+6, RSINAR, DISPLAY+2
DOWN^GMRGTGI1	SEL+1
UP^GMRGTGI1	B
EN2^GMRGTGIF	B

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"NO SELECTIONS!!" Line Location: EN1+3
Function Call: WRITE	Prompt: !?3,$C(7),"CHOOSE A NUMBER IN THE SELECTION LIST ABOVE PLEASE" Line Location: EN1+4
Function Call: WRITE	Prompt: !,"NAME: ",$P(GMRGINFO("TEXT"),U),"// (UNEDITABLE)" Line Location: TERM+1
Function Call: WRITE	Prompt: !?3,$C(7),$S(X="@":"CANNOT DELETE",1:"Answer must free text 3-60 characters") Line Location: TERM+4
Function Call: WRITE	Prompt: !,".changing '",$P(GMRGINFO("TEXT"),"^"),"' to '",GMRGT,"'" Line Location: TERM+5
Function Call: WRITE	Prompt: !!?3,$C(7),"You cannot add selections to an aggregate term which is of type 'TERM'" Line Location: ADD+1
Function Call: WRITE	Prompt: !?3,"If you want to add selections for this term, then first edit the TYPE",!?3,"of this term and change it to something other than 'TERM'." Line Location: ADD+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: ADD+3
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: ADD+6
Function Call: WRITE	Prompt: !?5,"Answer Yes if this is the record you meant to select, else answer No." Line Location: YNOK+0
Function Call: WRITE	Prompt: "." Line Location: YNOK+2
Function Call: WRITE	Prompt: !?3,$C(7),"Could not add this term to the selection list??" Line Location: YNOK+5
Function Call: WRITE	Prompt: "added" Line Location: YNOK+6
Function Call: WRITE	Prompt: "." Line Location: RSINAR+0
Function Call: WRITE	Prompt: "deleted" Line Location: RSINAR+0
Function Call: WRITE	Prompt: !!?3,$P(GMRGINFO("SEL",+Y),"^",3) Line Location: DISPLAY+1
Routine Call	DIE Line Location: TERM+5 TERM+7 YNOK+4 STDLFL DISPLAY+1
Routine Call	DIC Line Location: TERM+8 ADD+4 YNOK+1

FileNo	Call Tags
^GMRD(124.2 - [#124.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("XY"	ADD+3
^GMRD(124.2 - [#124.2]	YNOK+2, YNOK+3

Name	Line Occurrences
ADD	EN1+5, ADD+5, ADD+6, YNOK+1, YNOK+5
B	B+1
DELETE	EN1+5
DISPLAY	EN1+5
RSINAR	DELETE+2
SEL	EN1+5
STDLFL	DELETE+1
TERM	EN1+5, TERM+2
YNOK	YNOK

Name	Field # of Occurrence
^(0	YNOK+2*

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	YNOK*
>> D0	YNOK+5*
>> DA	TERM+5, TERM+7, TERM+8, YNOK+4, DELETE+2, STDLFL, DISPLAY+1
>> DA(1	YNOK+4, YNOK+5, YNOK+6, DELETE+2, STDLFL, RSINAR, DISPLAY+1*
DD	YNOK+5!
DIC	TERM+7!, TERM+8, ADD+4, ADD+5!, YNOK+1!, YNOK+5!
DIC("DR"	YNOK+1*
DIC("S"	ADD+4*
DIC(0	TERM+8, ADD+4, YNOK+1, YNOK+5
>> DIE	TERM+5, TERM+7, TERM+8, YNOK+4, STDLFL, DISPLAY+1*
>> DIK	DELETE+2*
DLAYGO	YNOK+1!, YNOK+5!
>> DR	TERM+5, TERM+7, YNOK+4, STDLFL, DISPLAY+1*
DTIME	ADD+3
>> DX	ADD+3*
>> DY	ADD+3*
>> GMRGDUP	TERM+5
GMRGINFO	TERM+5, TERM+7, TERM+8!, YNOK+2, YNOK+3, YNOK+4, YNOK+5, YNOK+6!, DELETE+2, STDLFL , RSINAR!, DISPLAY+1, DISPLAY+2!
GMRGINFO("CLAS"	TERM+1
GMRGINFO("SEL"	EN1+3, EN1+4, SEL+1, DELETE+2, STDLFL, DISPLAY+1
GMRGINFO("TEXT"	TERM+1, TERM+3, TERM+5
GMRGINFO("TYPE"	ADD+1
>> GMRGOUT	TERM+2, TERM+3, TERM+5, SEL+1, B+1, ADD+3, YNOK, DISPLAY+1
>> GMRGPK	DELETE+1
GMRGRASK	TERM+2!, TERM+3!, TERM+4, TERM+5
>> GMRGRT(0	DELETE+1
>> GMRGSEL	SEL+1*
>> GMRGT	TERM+5*
>> GMRGTX("@"	TERM+3*
>> GMRGTX(0	TERM+3*
>> GMRGTX(1	TERM+3*
>> GMRGUP	B*
>> GMRGX	ADD+3, YNOK, YNOK+1
>> GMRGZ	YNOK+3*, YNOK+4, YNOK+5
>> GMRGZ(0	YNOK+3*
>> I	ADD+5*
>> I(0	ADD+5*
U	TERM+1
>> X	TERM+3, TERM+4, TERM+5, TERM+8, ADD+3, ADD+5, ADD+6, YNOK, YNOK+1, YNOK+5
>> Y	EN1+3, EN1+4, EN1+5, TERM+5, TERM+8, SEL+1, YNOK, YNOK+1, YNOK+3, YNOK+5 , DELETE+2, STDLFL, DISPLAY+1, DISPLAY+2

Customize PDF page

Package: General Medical Record - Generator

Routine: GMRGTGI2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: