Routine: GMRCAU

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC FIELD^DID $$GET1^DIQ ^DIR
Consult Request Tracking	3	LISTSRV^GMRCASV HIER^GMRCT REGDTM^GMRCU
Authorization Subscription	1	$$ISA^USRLM
Order Entry Results Reporting	1	TEAMPROV^ORQPTQ1

Package

Total

Call Graph

VA Fileman

NOW^%DTC FIELD^DID $$GET1^DIQ ^DIR

Consult Request Tracking

LISTSRV^GMRCASV HIER^GMRCT REGDTM^GMRCU

Authorization Subscription

$$ISA^USRLM

Order Entry Results Reporting

TEAMPROV^ORQPTQ1

Package	Total	Caller Graph
Consult Request Tracking	30	GMRC UPDATE AUTHORITY GMRCA1 GMRCAAC GMRCACMT GMRCACTM GMRCADC GMRCAFRD GMRCAR GMRCART GMRCASF GMRCASV GMRCCP GMRCDIS GMRCEDIT GMRCEDT2 GMRCGUIA GMRCGUIB GMRCGUIC GMRCGUIS GMRCHL7B GMRCHL7U GMRCIAC1 GMRCIACT GMRCILKP GMRCSLM1 GMRCT GMRCTIU GMRCTIU1 GMRCTIUE GMRCUTL1

Package

Total

Caller Graph

Consult Request Tracking

GMRC UPDATE AUTHORITY  GMRCA1  GMRCAAC  GMRCACMT  GMRCACTM  GMRCADC  GMRCAFRD  GMRCAR
GMRCART  GMRCASF  GMRCASV  GMRCCP  GMRCDIS  GMRCEDIT  GMRCEDT2  GMRCGUIA
GMRCGUIB  GMRCGUIC  GMRCGUIS  GMRCHL7B  GMRCHL7U  GMRCIAC1  GMRCIACT  GMRCILKP
GMRCSLM1  GMRCT  GMRCTIU  GMRCTIU1  GMRCTIUE  GMRCUTL1

Entry Points

Name	Comments	DBIA/ICR reference
VALEX
CHKTM(TEAM,PERS)	;checks for PERS in list of users on TEAM
RESOLUA(GMRCA)	;Determine if action has resolution info for clinician
TEAM(TYPE,SUBSC,USER)	;Check for the DUZ in the multiple of SUBSC
USR(SERV,USER)	; check USR classes for user
GETDT	;Get actual activity date
VALIDU(GMRCSS,GMRCUSR,GMRCIFC)	;Check to see if user is an update user
LOC(GMRCUPD)	;Check for the DUZ in the NOTIFICATION BY PT LOCATION multiple
RESOLUS(GMRCSTS)	;Determine status indicates the consult has a resolution
ORTX(GMRCO)	;Get the abbreviated text for alert displays
VALID(GMRCSER,GMRCO,GMRCUSER,GMRCTST,GMRCIFC)	;Get users update authority ; check GMRCSS and all parents for authority ; codes returned are same as $$VALIDU
SVC(GMRCO)	;Get abbreviated service text
COMPLETE(GMRCA)	;Determine if the action is a complete action (10,13,14)
PROC(GMRCO)	;Get abbreviated procedure text
LMTX(GMRCO)	;Get the text for list manager displays
BOTH(ADMN,UPD)	;return string with fields if testing
TSTINTRO	;entry action of GMRC UPDATE AUTHORITY option
GETPROV
TESTHELP(GMRCSVNM)	;wrapper for LISTSRV^GMRCASV
FINDPAR(SERV,ARCNT)
FIELD(GMRCFLD)	;return field name where became update user
TEST	;called from GMRC UPDATE AUTHORITY ; determines how a user gets update authority for a service

Name	Field # of Occurrence
NOW^%DTC	GETDT+2
FIELD^DID	FIELD+2
$$GET1^DIQ	PROC+3
^DIR	GETPROV+2, GETDT+3, TEST+7, TEST+12
LISTSRV^GMRCASV	TESTHELP+2
HIER^GMRCT	TEST+24
REGDTM^GMRCU	GETDT+2
TEAMPROV^ORQPTQ1	CHKTM+5
$$ISA^USRLM	USR+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: TEST+2
Function Call: WRITE	Prompt: !!,"This user has no update authority" Line Location: TEST+15
Function Call: WRITE	Prompt: !!,"This user is an update user for: ",$P(UPD,U,3) Line Location: TEST+17
Function Call: WRITE	Prompt: !!,"This user is an administrative user for: ",$P(UPD,U,3) Line Location: TEST+18
Function Call: WRITE	Prompt: !!,"This user is both and administrative and update user" Line Location: TEST+20
Function Call: WRITE	Prompt: " for: ",!,$P(UPD,U,3) Line Location: TEST+21
Function Call: WRITE	Prompt: !,"via the ",$P(UPD,U,2)," field",$S(+UPD=4:"(s).",1:".") Line Location: TEST+22
Function Call: WRITE	Prompt: ! Line Location: TEST+23
Function Call: WRITE	Prompt: !! Line Location: TEST+25
Function Call: WRITE	Prompt: !!,"This option will allow you to check a user's update authority for any given" Line Location: TSTINTRO+1
Function Call: WRITE	Prompt: !,"service in the consults hierarchy. If the PROCESS PARENTS FOR UPDATES field" Line Location: TSTINTRO+2
Function Call: WRITE	Prompt: !,"is set to YES, all ancestors of the selected service will be checked." Line Location: TSTINTRO+3
Function Call: WRITE	Prompt: !,"The type of update authority and the service to which they are assigned will" Line Location: TSTINTRO+4
Function Call: WRITE	Prompt: !,"be displayed.",!! Line Location: TSTINTRO+5
Routine Call	DIR Line Location: GETPROV+2 GETDT+3 TEST+7 TEST+12

FileNo	Call Tags
^GMR(123.3 - [#123.3]	GET1^DIQ
^GMR(123.5 - [#123.5]	FIELD^DID

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	SVC+2, PROC+2
^GMR(123.5 - [#123.5]	SVC+3, VALID+7, VALID+10, VALID+21, VALID+22, FINDPAR+5, VALIDU+13, VALIDU+14, VALIDU+16, VALIDU+18 , VALIDU+19, VALIDU+26, VALIDU+32, VALIDU+42, LOC+3, LOC+5, TEAM+4, USR+2, USR+4, TEST+24

Label References

Name	Line Occurrences
$$BOTH	VALIDU+21, VALIDU+29, VALIDU+35, VALIDU+40, VALIDU+44
$$CHKTM	TEAM+5
$$FIELD	VALIDU+15, VALIDU+17, VALIDU+18, VALIDU+19, TEAM+6, USR+7
$$PROC	ORTX+4, LMTX+4
$$SVC	ORTX+3, LMTX+3
$$USR	VALIDU+38
$$VALID	TEST+14
$$VALIDU	VALID+6, VALID+17
FINDPAR	VALID+11, VALID+23
GETPROV	GETPROV+3
LOC	VALIDU+42
TEAM	VALIDU+27, VALIDU+33
TEST	TEST+28
VALEX	VALID+6, VALID+10, VALID+11, VALID+13

Name	Field # of Occurrence
^(	SVC+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GETDT+1!, GETDT+2
ADMN	BOTH~, BOTH+1
ARCNT	FINDPAR~, FINDPAR+6, FINDPAR+7*
DIR	GETPROV~, GETPROV+2!, GETDT+3!, TEST+4~, TEST+10~, TEST+27!, TESTHELP+1~
DIR("?"	TEST+6*
DIR("??"	TEST+7*
DIR("A"	GETPROV+1, GETDT+3, TEST+5, TEST+11
DIR("B"	GETDT+3*
DIR(0	GETPROV, GETDT+3, TEST+5, TEST+11
DIROUT	GETPROV+2, TEST+4~, TEST+27!
DIRUT	GETDT+3, GETDT+5!, TEST+4~, TEST+8, TEST+12, TEST+27!
DTOUT	GETPROV+2, TEST+4~, TEST+27!
DUOUT	GETDT+5!, TEST+4~, TEST+27!
DUZ	VALID+4, VALIDU+10, LOC+6, TEAM+3
FOUND	CHKTM+3~, CHKTM+8*, CHKTM+9
>> GETDT	GETDT+3
>> GETPROV	GETPROV+1
GMRC1	TEST+3~, TESTHELP+1~
GMRCA	COMPLETE~, COMPLETE+1, COMPLETE+2, RESOLUA~, RESOLUA+3, RESOLUA+4
GMRCAD	GETDT+2, GETDT+4!, GETDT+5, VALIDU+9~, VALIDU+12, VALIDU+19, VALIDU+21, VALIDU+29, VALIDU+31, VALIDU+33 , VALIDU+35, VALIDU+40, VALIDU+44, VALIDU+45, VALIDU+46
GMRCDG	TEST+3~, TESTHELP+1~
>> GMRCDT	GETDT+2*
GMRCFLD	FIELD~, FIELD+2
GMRCFLD("LABEL"	FIELD+3
GMRCHIT	TEAM+1~, TEAM+5*
GMRCHKD	VALID+3~
GMRCHKD(	VALID+8, VALID+15, VALID+18
GMRCIFC	VALID~, VALID+6, VALID+17, VALIDU~, VALIDU+13
GMRCL	LOC+1~, LOC+2, LOC+3, LOC+5
GMRCL(0	LOC+5*, LOC+6, LOC+7
GMRCLIS	VALID+3~, VALID+11
GMRCLIS(	VALID+13, VALID+14!, VALID+15, VALID+17, VALID+18, VALID+19, VALID+21, VALID+22, VALID+23, FINDPAR+6
GMRCLP	VALID+3~, VALID+12, VALID+13, VALID+14, VALID+15, VALID+17, VALID+18, VALID+19, VALID+21, VALID+22 , VALID+23, VALID+24*
GMRCLST	CHKTM+3~, CHKTM+4*, CHKTM+5
GMRCLST(	CHKTM+8
GMRCLST(1	CHKTM+6
GMRCNT	VALID+3~, VALID+8*, VALID+11, VALID+23
GMRCO	ORTX~, ORTX+3, ORTX+4, SVC~, SVC+2, PROC~, PROC+2, LMTX~, LMTX+3, LMTX+4 , VALID~
GMRCORNP	GETPROV!, GETPROV+3*
GMRCORTX	ORTX+2~, ORTX+5, ORTX+6, LMTX+2~, LMTX+5, LMTX+6
GMRCPROC	ORTX+2~, ORTX+4, ORTX+5, PROC+1~, PROC+2, PROC+3*, PROC+4
GMRCQIT	GETPROV+2, GETDT+1!, GETDT+3
GMRCQUIT	VALID+3~, VALID+13
GMRCREQ	LMTX+2~, LMTX+4*, LMTX+5
GMRCSER	VALID~, VALID+6, VALID+7, VALID+8, VALID+10, VALID+11
GMRCSRV	TEST+3~, TEST+9*, TEST+14, TEST+24, TEST+26!
GMRCSS	VALIDU~, VALIDU+11, VALIDU+13, VALIDU+14, VALIDU+16, VALIDU+18, VALIDU+19, VALIDU+26, VALIDU+32, VALIDU+38 , VALIDU+42, LOC+3, LOC+5, TEAM+4
GMRCSSNM	ORTX+2~, ORTX+3, ORTX+5, SVC+1~, SVC+2, SVC+3, SVC+4, LMTX+2~, LMTX+3, LMTX+5
GMRCSTS	RESOLUS~, RESOLUS+3*, RESOLUS+4
GMRCSVC	ORTX+2~, SVC+1~, SVC+2*, SVC+3, LMTX+2~
GMRCSVNM	TESTHELP~
GMRCTM	LOC+1~, LOC+7, TEAM+1~, TEAM+2, TEAM+4*, TEAM+5
GMRCTST	VALID~, VALID+7, VALID+21, BOTH+1, FIELD+1
GMRCUP	VALIDU+9~, VALIDU+12, VALIDU+14, VALIDU+15, VALIDU+16, VALIDU+17, VALIDU+18, VALIDU+21, VALIDU+25, VALIDU+27 , VALIDU+29, VALIDU+35, VALIDU+38*, VALIDU+40, VALIDU+42, VALIDU+44, VALIDU+45, VALIDU+46
GMRCUPD	VALIDU+9~, VALIDU+23, LOC~, LOC+3, LOC+6
GMRCUPDL	VALID+3~, VALID+6, VALID+7, VALID+11, VALID+13, VALID+17, VALID+20, VALID+21*, VALEX
GMRCUSER	VALID~, VALID+4*, VALID+6, VALID+17
GMRCUSR	VALIDU~, VALIDU+10, VALIDU+14, VALIDU+16, VALIDU+19, VALIDU+27, VALIDU+33, VALIDU+38, TEST+3~, TEST+13 , TEST+14, TEST+26!
ND	CHKTM+3~, CHKTM+7, CHKTM+8
NODE	VALIDU+25~*, VALIDU+26, VALIDU+27
PARENT	FINDPAR+3~, FINDPAR+4, FINDPAR+5, FINDPAR+6
PERS	CHKTM~, CHKTM+8
SERV	FINDPAR~, FINDPAR+5, USR~, USR+2, USR+4
SUBSC	TEAM~, TEAM+4, TEAM+6
TEAM	CHKTM~, CHKTM+5
TYPE	TEAM~, TEAM+4, TEAM+6*
U	SVC+3, VALID+7, VALID+10, VALID+14, VALID+19, VALID+21, VALID+22, VALIDU+13, VALIDU+18, BOTH+1 , TEST+17, TEST+18, TEST+21, TEST+22, TEST+23, TEST+24
UCLS	USR+1~, USR+3, USR+4, USR+5, USR+6
UPD	BOTH~, BOTH+1, USR+1~, USR+3, USR+4, USR+6, USR+7, USR+9, TEST+3~, TEST+14 , TEST+15, TEST+16, TEST+17, TEST+18, TEST+19, TEST+21, TEST+22, TEST+23, TEST+24, TEST+26!
USER	TEAM~, TEAM+3*, TEAM+5, USR~, USR+6
X	GETPROV+2, GETDT+2*, GETDT+4, GETDT+5!, TEST+4~, TEST+27!
Y	GETPROV+3, GETDT+4!, GETDT+5!, TEST+4~, TEST+9, TEST+13, TEST+27!

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCAU

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 30

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: