Routine: GMRGED5

Package	Total	Call Graph
General Medical Record - Generator	3	EN1^GMRGED3 EN1^GMRGRUT2 EN1^GMRGUTL
VA Fileman	1	YN^DICN

Package

Total

Call Graph

General Medical Record - Generator

EN1^GMRGED3 EN1^GMRGRUT2 EN1^GMRGUTL

VA Fileman

YN^DICN

Package	Total	Caller Graph
General Medical Record - Generator	2	GMRGED2 GMRGED9

Package

Total

Caller Graph

General Medical Record - Generator

GMRGED2 GMRGED9

Name	Field # of Occurrence
YN^DICN	YNAP, YNAT
EN1^GMRGED3	APTXED+1, EDTX+1
EN1^GMRGRUT2	APPR+1, EDTX
EN1^GMRGUTL	SAT, STDAT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"APPENDED TEXT for '" Line Location: APPR+1
Function Call: WRITE	Prompt: "'" Line Location: APPR+1
Function Call: WRITE	Prompt: ! Line Location: APTXED+1
Function Call: READ	Timeout: DTIME Variable: GMRGTX(0) Line Location: APTXED+2
Function Call: WRITE	Prompt: !,"Appended Text: ",$S($L(GMRGTX(0)):GMRGTX(0)_"// ",1:"") Line Location: APTXED+2
Function Call: WRITE	Prompt: !?4,$C(7),"WANT TO DELETE" Line Location: YNAP+0
Function Call: WRITE	Prompt: $C(7)," ??" Condition for execution: %=2 Line Location: YNAP+0
Function Call: WRITE	Prompt: !?8,$C(7),"Answer Yes if you want to delete the appended text, else answer No" Line Location: YNAP+1
Function Call: WRITE	Prompt: !?4,$C(7),"LINE TOO LONG??" Line Location: APTX0+0
Function Call: WRITE	Prompt: !?4,$C(7),$S(GMRGTX(0)?1"?".E:"ANSWER WITH FREE TEXT",1:"ANSWER CANNOT CONTAIN THE CIRCUMFLEX '^' CHARACTER") Line Location: APTX0+1
Function Call: READ	Prompt: "Press return to continue " Formatting: ! Timeout: DTIME Variable: X Line Location: ADDITION+1
Function Call: WRITE	Prompt: !!,"ADDITIONAL TEXT",!,$E(GMRGLIN("*"),1,15) Line Location: ADDITION+2
Function Call: WRITE	Prompt: !!,"Additional Text for " Line Location: EDTX+0
Function Call: READ	Timeout: DTIME Variable: GMRGTX Line Location: EDTX+2
Function Call: WRITE	Prompt: ": ",$S($L(GMRGTX):GMRGTX_"// ",1:"") Line Location: EDTX+2
Function Call: WRITE	Prompt: !?4,$C(7),"WANT TO DELETE" Line Location: YNAT+0
Function Call: WRITE	Prompt: $C(7)," ??" Condition for execution: %=2 Line Location: YNAT+0
Function Call: WRITE	Prompt: !?6,$C(7),"Answer Yes if you wish to delete the additional text, else answer No." Line Location: YNAT+1
Function Call: WRITE	Prompt: !,$C(7),"ANSWER MUST BE 1-245 CHARACTERS IN LENGTH" Line Location: STDAT+0

Name	Line Occurrences (* Changed, ! Killed)
^GMR(124.3 - [#124.3]	SAT, ADDITION+3, EDTX, STDAT+1
^TMP($J	SAT+1*

Name	Line Occurrences
APPR	APPEND+2
APTX0	APTXED+1, APTXED+2, YNAP+1
APTXED	APPR+2, YNAP+1, APTX0, APTX0+1
EDTX	YNAT+1, STDAT
STDAT	EDTX+1, EDTX+2, YNAT+1
YNAP	YNAP+1
YNAT	YNAT+1

Name	Field # of Occurrence
^("ADD"	ADDITION+3
^(0	EDTX

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	YNAP, YNAP+1, YNAT, YNAT+1
>> DA	SAT, STDAT+1
>> DA(1	SAT, STDAT+1
DTIME	APTXED+2, ADDITION+1, EDTX+2
GMRGAT	SAT!, STDAT+1
>> GMRGLIN("*"	ADDITION+2
>> GMRGLVL	SAT+1
>> GMRGOUT	SAT, SAT+1, APTXED+2, YNAP, ADDITION+1, EDTX+2, YNAT*
>> GMRGPDA	SAT, ADDITION+3, EDTX, STDAT+1
>> GMRGPRC	APPEND+1, ADDITION+3, EDTX, STDAT+1
>> GMRGPRC(0	APPEND+1, SAT*, SAT+1, APPR+1
>> GMRGSLVL	SAT+1
>> GMRGTERM(0	ADDITION+1
>> GMRGTLVL	SAT+1
>> GMRGTX	APPEND+1, APPEND+3, SAT, SAT+1, APPR+2, APTX0, ADDITION+3, EDTX+1, EDTX+2, YNAT* , STDAT*, STDAT+1
>> GMRGTX("@"	APTXED+1, EDTX+1
>> GMRGTX("ACTION"	APPEND+1*, APPEND+2, APPEND+3
>> GMRGTX("OL"	APPEND+1, SAT, SAT+1, ADDITION+3, EDTX+2, YNAT, STDAT, STDAT+1
>> GMRGTX("OLD"	APPR+2*, APTXED+2, YNAP, APTX0, APTX0+1
>> GMRGTX(0	APPR+2, APTXED+1, APTXED+2, YNAP, APTX0, APTX0+1, EDTX+1
>> GMRGTX(1	APTXED+1, EDTX+1
>> GMRGXPRT	APPR+1, EDTX
>> GMRGXPRT(0	APPR+1, EDTX
>> GMRGXPRT(1	APPR+1, EDTX
>> GMRGY	SAT, STDAT+1
GMRGZ	SAT!, STDAT+1
IOM	APPR+1, EDTX
>> X	SAT, ADDITION+1, STDAT+1*

Customize PDF page

Package: General Medical Record - Generator

Routine: GMRGED5

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
EDTX
APTX0
STDAT
APTXED	;
APPR	;
ADDITION	;
APPEND	; EDIT APPENDED TEXT FOR THE SELECTED ENTRY.
YNAT
YNAP
SAT