Routine: GMRGED3

Package	Total	Call Graph
VA Fileman	1	YN^DICN

Package

Total

Call Graph

VA Fileman

YN^DICN

Package	Total	Caller Graph
General Medical Record - Generator	5	GMRGED1 GMRGED4 GMRGED5 GMRGED6 GMRGTGI2

Package

Total

Caller Graph

General Medical Record - Generator

GMRGED1 GMRGED4 GMRGED5 GMRGED6 GMRGTGI2

Entry Points

Name	Comments	DBIA/ICR reference
PROMPT	;
REPHLP
STXT	;
REPLACE
EN1	; REPLACE/WITH TEXT GMRGTX(0)=TEXT TO BE EDITED, GMRGTX(1)=1 FOR ; INTERNAL TEXT, 0 FOR OTHER KINDS
RANGE
STXT1	;
DEL	; DELETE EXISTING TEXT
VALTXT	;
VALIDATE	; VALIDATE USER SELECTION ENTRY
VAL0	; VALIDATION CONT.
WITH
VAL1	;

Name	Field # of Occurrence
YN^DICN	DEL+3

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: GMRG1 Line Location: REPLACE+0
Function Call: WRITE	Prompt: ! Line Location: REPLACE+0
Function Call: WRITE	Prompt: ! Line Location: REPLACE+1
Function Call: WRITE	Prompt: ! Line Location: REPLACE+4
Function Call: WRITE	Prompt: ! Line Location: REPLACE+5
Function Call: WRITE	Prompt: !!?5,"At the ""Replace"" prompt, enter exactly the text you want to replace.",!?5,"You may also enter ""..."" to replace the entire text, ""...(text)"" to",!?5,"replace from the beginning through ""(text)"", or ""(text)..."" to replace" Line Location: REPHLP+0
Function Call: WRITE	Prompt: !?5,"from ""(text)"" through the end.",!?5,"At the ""With"" prompt, enter the new text.",!?10 Line Location: REPHLP+1
Function Call: READ	Timeout: DTIME Variable: GMRG4 Line Location: WITH+0
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: WITH+1
Function Call: WRITE	Prompt: !,$C(7),"CANNOT DELETE!!" Line Location: DEL+1
Function Call: WRITE	Prompt: !?5,$C(7),"If you delete bracketed text, the original default will become the",!?5,"the new value." Line Location: DEL+2
Function Call: WRITE	Prompt: !?6,"Answer Yes if you wish to delete this text, else answer No." Line Location: DEL+3
Function Call: WRITE	Prompt: "Select: " Line Location: PROMPT+1
Function Call: WRITE	Prompt: "Select at least ",$P(GMRGTERM(0),"^",6),": " Line Location: PROMPT+2
Function Call: WRITE	Prompt: "Select up to ",$P(GMRGTERM(0),"^",7),": " Line Location: PROMPT+3
Function Call: WRITE	Prompt: "Select at least ",$P(GMRGTERM(0),"^",6),", but no more than ",$P(GMRGTERM(0),"^",7),": " Line Location: PROMPT+4
Function Call: WRITE	Prompt: "Select only ",$P(GMRGTERM(0),"^",6),": " Line Location: PROMPT+5

Name	Line Occurrences
DEL	REPLACE+1, WITH+1, DEL+3
RANGE	REPLACE+2
REPHLP	REPLACE, WITH
REPLACE	REPLACE, REPLACE+1, REPLACE+4, REPLACE+5
STXT	VALTXT+3
STXT1	VALTXT+5
VAL0	VALIDATE+1
VAL1	VAL0+6
VALTXT	VAL0+7
WITH	REPLACE+4, WITH

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEL+3*
DTIME	REPLACE, WITH
>> GMRG1	REPLACE, REPLACE+1, REPLACE+2, REPLACE+3, WITH+1, RANGE, RANGE+1, VALIDATE+1*
>> GMRG10	VAL1+3*
>> GMRG11	VALTXT+2, VALTXT+3, VALTXT+4, STXT+1, STXT1+1
>> GMRG12	VALTXT+2, VALTXT+3, VALTXT+6*, VALTXT+7, STXT+1, STXT+3
>> GMRG13	VALTXT+2, VALTXT+3, VALTXT+5*, STXT+1, STXT+2, STXT1+1, STXT1+2
>> GMRG14	VALTXT+2, VALTXT+3, VALTXT+6, STXT+1*
>> GMRG2	REPLACE+3, VALIDATE+1, VAL0+1, VAL0+2, VAL0+4, VAL0+5, VAL0+6, VAL0+7, VAL1+1, VAL1+2 , VAL1+3, VALTXT+1, VALTXT+2, VALTXT+3, VALTXT+5, VALTXT+6, VALTXT+8*, VALTXT+9, STXT1+1, STXT1+2
>> GMRG3	REPLACE+3, REPLACE+4, VAL0+1, VAL0+2*, VAL0+3, VAL1+2, VAL1+3
GMRG4	WITH*, WITH+1, VALTXT+2!
GMRG4(	VALTXT+5, STXT+2, STXT+3, STXT1+1, STXT1+2
GMRG4("A"	VALTXT+6, VALTXT+8, STXT1+2*
GMRG4("I"	VALTXT+6, VALTXT+8, STXT1+1*
>> GMRG5	RANGE, VAL0+1, VAL0+2*, VAL0+3, VAL0+4, VAL0+7
>> GMRG5(0	RANGE*, RANGE+1
>> GMRG6	RANGE+1, VALTXT+3, VALTXT+5, VALTXT+6, VALTXT+8*, STXT1+1, STXT1+2
>> GMRG6(0	RANGE+1*
>> GMRG7	RANGE*, RANGE+1
>> GMRG8	RANGE+1*
>> GMRGOOD	VALIDATE+1, VAL0+3, VAL0+4, VAL0+8, VAL1+2, VAL1+3, VALTXT+1, VALTXT+7*
>> GMRGOUT	REPLACE, REPLACE+1, REPLACE+4, WITH, WITH+1, WITH+2, DEL+3*
>> GMRGQUSL(	VAL1+3, VALTXT+9
>> GMRGQUSL("A"	VAL1+1*
>> GMRGS	VALIDATE+1
>> GMRGSEL(	VAL1+3, VALTXT+2, VALTXT+6
>> GMRGSTAR(1	VAL1+2, VALTXT+1
>> GMRGTERM(0	PROMPT+1, PROMPT+2, PROMPT+3, PROMPT+4, PROMPT+5
>> GMRGTX("@"	DEL+1
>> GMRGTX(0	REPLACE, REPLACE+1, REPLACE+3, REPLACE+4, WITH+1, WITH+2, RANGE, RANGE+1, DEL+3
>> GMRGTX(1	DEL+2
>> GMRGTX(2	WITH+1*, WITH+2

Customize PDF page

Package: General Medical Record - Generator

Routine: GMRGED3

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: