Routine: GMRCEDT4

Package	Total	Call Graph
Consult Request Tracking	5	EXAC^GMRCADC INIT^GMRCEDIT EN^GMRCEDT1 $$EDRESOK^GMRCEDT2 $$PROVDX^GMRCUTL1
VA Fileman	5	EN^DDIOL (,$$FIND1)^DIC $$GET1^DIQ ^DIR EN^DIWE
Kernel	2	$$UP^XLFSTR EN^XQORM
DRG Grouper	1	$$STATCHK^ICDAPIU
Lexicon Utility	1	CONFIG^LEXSET

Package	Total	Caller Graph
Consult Request Tracking	2	GMRCEDT2 GMRCEDT5

Entry Points

Name	Comments	DBIA/ICR reference
EDITFLD(GMRCO)
01
VALIDPL(PL,REND)	; place still valid?
SETUP
VALIDUR(URG,REND,PROC)	;urgency still valid?
NOCHG()	;no changes made
LEXLKUP(GMRCX)
1	;edit Procedure
3	;edit urgency
2
5	;edit ATTN person
4	;edit place of CSLT
7	;edit Reason for Request
6	;edit prov. DX
8	;add comment
PDOK(GMRCDA)	;check validity of Prov. DX code for active status
DIFFRFR(SAVED)	;edited reason for req same as original?

External References

Name	Field # of Occurrence
EN^DDIOL	PDOK+6
^DIC	LEXLKUP+5
$$FIND1^DIC	3+2, 3+4, 3+5, 4+2, VALIDPL+4, VALIDUR+6
$$GET1^DIQ	SETUP+4, SETUP+8, SETUP+10, 01+9, 5+3
^DIR	EDITFLD+10, 01+15, 2+4, 5+6, 6+9, 6+22
EN^DIWE	7+6, 8+7
EXAC^GMRCADC	EDITFLD+5, EDITFLD+7, 7+14
INIT^GMRCEDIT	EDITFLD+17
EN^GMRCEDT1	EDITFLD+17
$$EDRESOK^GMRCEDT2	EDITFLD+6
$$PROVDX^GMRCUTL1	6+2
$$STATCHK^ICDAPIU	PDOK+3
CONFIG^LEXSET	LEXLKUP+3
$$UP^XLFSTR	4+2
EN^XQORM	3+10, 4+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Only one SERVICE can perform this procedure.",! Line Location: 01+5
Function Call: WRITE	Prompt: !,$$NOCHG,! Line Location: 01+16
Function Call: WRITE	Prompt: !,$C(7),"The procedure associated with a request may not be changed." Line Location: 1+1
Function Call: WRITE	Prompt: !,"Place a new request if a different procedure is desired" Line Location: 1+2
Function Call: WRITE	Prompt: !,$$NOCHG,! Line Location: 2+4
Function Call: WRITE	Prompt: $C(7),!!,"The urgency of this request is no longer valid.",! Line Location: 2+9
Function Call: WRITE	Prompt: !,$C(7),"Unable to change the way service is rendered.",! Line Location: 2+13
Function Call: WRITE	Prompt: $C(7),!!,"The Place of Consultation is no longer valid.",! Line Location: 2+17
Function Call: WRITE	Prompt: !,$C(7),"Unable to change the way service is rendered.",! Line Location: 2+20
Function Call: WRITE	Prompt: !,$C(7),"Unable to change urgency." Line Location: 3+6
Function Call: WRITE	Prompt: !,?5,"<DELETED>",! Line Location: 5+9
Function Call: WRITE	Prompt: !,?5,"<DELETED>",! Line Location: 6+10
Function Call: WRITE	Prompt: !,?5,"<DELETED>",! Line Location: 6+24
Function Call: WRITE	Prompt: !,"Leading space not allowed, no change." Line Location: 6+26
Function Call: WRITE	Prompt: !,"Prov. DX required. No change." Line Location: 6+28
Function Call: WRITE	Prompt: !,"No change." Line Location: 6+29
Function Call: WRITE	Prompt: !,"No change." Line Location: 6+31
Function Call: WRITE	Prompt: !,?5,"<DELETED>",! Line Location: 6+32
Function Call: WRITE	Prompt: !,"Editing Reason for Request:",! Line Location: 7+5
Function Call: WRITE	Prompt: !,"An unsaved comment exists. You may edit this comment.",! Line Location: 8+3
Function Call: WRITE	Prompt: !,"Adding new comment:",! Line Location: 8+6
Routine Call	DIC Line Location: 3+2 3+4 3+5 4+2 VALIDPL+4 VALIDUR+6
Routine Call	DIC Line Location: LEXLKUP+5
Routine Call	DIR Line Location: EDITFLD+10 01+15 2+4 5+6 6+9 6+22

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ORD(101 - [#101]	FIND1^DIC, GET1^DIQ
^GMR(123.3 - [#123.3]	GET1^DIQ
^GMR(123.5 - [#123.5]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^LEX(757.01 - [#757.01]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	EDITFLD+4, SETUP+2, SETUP+4, SETUP+6, SETUP+8, SETUP+10, 5+3, 6+2, 6+7, 6+17 , 6+29, 6+30, 7+3, DIFFRFR+3, DIFFRFR+9, PDOK+2, PDOK+3
^GMR(123.3 - [#123.3]	01+3
^GMR(123.5 - [#123.5]	SETUP+2
^ORD(101 - [#101]	VALIDPL+5, VALIDUR+7
^TMP("GMRCED"	7+2, 7+3*, 7+9!, 7+11, 7+15!, 8+2, 8+8!, DIFFRFR+2, DIFFRFR+3, DIFFRFR+4 , DIFFRFR+5, DIFFRFR+8, DIFFRFR+9
^TMP("GMRCEDSV"	7+2*, 7+7, 7+8!, 7+10!, DIFFRFR+2, DIFFRFR+5

Label References

Name	Line Occurrences
$$DIFFRFR	7+7
$$LEXLKUP	6+27
$$NOCHG	01+16, 2+4
$$PDOK	EDITFLD+8
$$VALIDPL	2+15, 2+19
$$VALIDUR	2+7, 2+12
3	2+11
4	2+18
@(	EDITFLD+15
SETUP	EDITFLD+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHGIO	2+8~
CHGREND	2+11, 2+16~, 2+18, 3+9, 4+5
DIC	6+1~, LEXLKUP+2~, LEXLKUP+4, 7+1~, 7+4, 8+1~, 8+5*
DIC("B"	LEXLKUP+4*
DIC(0	LEXLKUP+4*
DIFF	DIFFRFR+1~, DIFFRFR+2, DIFFRFR+3, DIFFRFR+4, DIFFRFR+6, DIFFRFR+8, DIFFRFR+9, DIFFRFR+11
DIR	EDITFLD+2~, 01+1~, 2+1~, 5+1~, 6+1~, 6+13~
DIR("?"	6+19*
DIR("??"	01+14*
DIR("A"	EDITFLD+9, 01+11, 2+3, 5+2, 6+4, 6+20
DIR("B"	01+9, 01+10, 2+2, 5+3, 5+4, 5+5!, 5+7, 6+6, 6+7, 6+8! , 6+9, 6+15, 6+16, 6+17, 6+18!, 6+25
DIR("S"	01+12, 01+13
DIR(0	EDITFLD+9, 01+6, 2+2, 5+2, 6+4, 6+5, 6+21*
DIROUT	EDITFLD+16!
DIRUT	EDITFLD+10, EDITFLD+16!
DIWEPSE	8+1~, 8+4*
DIWESUB	7+1~, 7+4, 8+1~, 8+5
DT	LEXLKUP+3, PDOK+3
DTOUT	EDITFLD+16!, 01+15, 2+4, 5+6, 6+9, 6+13~, 6+23, LEXLKUP+2~, LEXLKUP+6
DUOUT	EDITFLD+16!, 01+15, 2+4, 5+6, 6+9, 6+13~, 6+23, LEXLKUP+2~, LEXLKUP+6
DWLW	7+1~, 7+6, 8+1~, 8+7
DWPK	7+1~, 7+6, 8+1~, 8+7
GMRCDA	PDOK~, PDOK+2, PDOK+3
>> GMRCED(1	SETUP+3
>> GMRCED(2	SETUP+5, 2+24*
>> GMRCED(3	SETUP+7, 2+10, 2+14, 2+23, 3+13*
>> GMRCED(4	SETUP+9, 2+18, 2+21, 4+9
>> GMRCED(5	5+4, 5+8*, 5+9
>> GMRCED(6	6+6, 6+11, 6+14, 6+15, 6+16, 6+24, 6+33*
>> GMRCED3	2+10*, 2+14, 2+23
GMRCED4	2+1~, 2+18*, 2+21
GMRCED5	2+1~
>> GMRCEDT(1	SETUP+1, 01+17*
GMRCMSG	EDITFLD+3~, EDITFLD+5, EDITFLD+6, EDITFLD+7, 7+12~, 7+13*, 7+14
GMRCO	EDITFLD~, EDITFLD+4, EDITFLD+6, EDITFLD+8, EDITFLD+17, SETUP+2, SETUP+4, SETUP+6, SETUP+8, SETUP+10 , 5+3, 6+2, 6+7, 6+17, 6+29, 6+30, 7+3, DIFFRFR+3, DIFFRFR+9
GMRCPL	EDITFLD+2~, SETUP+9, SETUP+10, 2+15, 2+18, 2+19, 2+21, 4+5, 4+8, 4+9
GMRCPLSV	2+1~, 2+18*, 2+21
GMRCPROC	EDITFLD+2~, SETUP+3, SETUP+4, 01+2, 01+3, 01+13, 2+7, 2+12, 3+4
GMRCREND	EDITFLD+2~, SETUP+5, SETUP+6, 2+2, 2+5, 2+8~, 2+16~, 2+24*, 3+2, 4+2
>> GMRCRSUB	EDITFLD+4
GMRCSS	EDITFLD+2~, SETUP+1, SETUP+2, 01+8, 01+10, 01+16, 01+17*
GMRCTAG	EDITFLD+3~, EDITFLD+13*, EDITFLD+15
GMRCURG	EDITFLD+2~, SETUP+7, SETUP+8, 2+7, 2+10, 2+12, 2+14, 2+22, 3+9, 3+12 , 3+13*
GMRCURSV	2+1~, 2+10*, 2+14, 2+22
GMRCX	EDITFLD+2~, EDITFLD+13*, LEXLKUP~, LEXLKUP+4
GMRCY	EDITFLD+2~, EDITFLD+12*, EDITFLD+13
I	01+1~, 01+3~, 01+4, DIFFRFR+1~, DIFFRFR+4, DIFFRFR+5, DIFFRFR+8*, DIFFRFR+9
MSG	PDOK+1~, PDOK+4, PDOK+5, PDOK+6
PL	VALIDPL~, VALIDPL+5
PLMENU	VALIDPL+1~, VALIDPL+2, VALIDPL+3, VALIDPL+4*, VALIDPL+5
PRMPT	6+1~, 6+2*, 6+3, 6+5, 6+12, 6+21, 6+28
PROC	VALIDUR~, VALIDUR+3
PROCSERV	01+1~, 01+2, 01+3, 01+4, 01+5, 01+7
PROCSERV(	01+4*, 01+8
PROCSERV(0	01+9
REND	VALIDPL~, VALIDPL+2, VALIDUR~, VALIDUR+2
RENDED	2+1~, 2+5*, 2+6, 2+7, 2+8, 2+12, 2+14!, 2+15, 2+16, 2+19 , 2+21!, 2+24
SAVED	DIFFRFR~, DIFFRFR+2, DIFFRFR+3, DIFFRFR+4, DIFFRFR+8
U	EDITFLD+7, SETUP+2, SETUP+4, SETUP+6, SETUP+8, SETUP+10, 01+10, 2+2, 2+5, 3+2 , 3+9, 3+12, 3+13, 4+2, 4+5, 4+8, 4+9, 5+3, 5+4, 5+7 , 6+2, 6+3, 6+5, 6+6, 6+12, 6+15, 6+16, 6+21, 6+28, 6+30 , LEXLKUP+7, DIFFRFR+2, DIFFRFR+3, VALIDPL+2, VALIDUR+2
URG	VALIDUR~, VALIDUR+7
URMENU	VALIDUR+1~, VALIDUR+3, VALIDUR+4, VALIDUR+5, VALIDUR+6, VALIDUR+7
VAL	6+13~, 6+27*, 6+28, 6+29, 6+30, 6+32, 6+33
X	EDITFLD+2~, 01+1~, 2+1~, 3+1~, 4+1~, 5+1~, 6+1~, 6+13~, LEXLKUP+2~, LEXLKUP+4*
XQORM	3+1~, 3+7, 4+1~, 4+3
XQORM("A"	3+7, 4+4
XQORM("B"	3+9, 4+5
XQORM("NO^^"	4+4*
XQORM("^^NO"	3+8*
XQORM(0	3+7, 4+4
Y	EDITFLD+2~, EDITFLD+11, EDITFLD+12, 01+1~, 01+16, 01+17, 2+1~, 2+5, 3+1~, 3+2* , 3+3, 3+4, 3+5, 3+6, 3+7, 3+11, 4+1~, 4+2*, 4+3, 4+7 , 5+1~, 5+7, 5+8, 6+1~, 6+9, 6+10, 6+11, 6+13~, 6+24, 6+25 , 6+26, 6+27, LEXLKUP+2~, LEXLKUP+6, LEXLKUP+7
Y(0	2+5
Y(1	3+12, 3+13, 4+8, 4+9, LEXLKUP+7

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCEDT4

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: