Routine: GMRCT

Information

GMRCT ; SLC/DLT\JFR - Get DUZ's of users for notification to service ; 11/25/2000

Source Information

Source file <GMRCT.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Consult Request Tracking	1	(FINDPAR,TESTHELP)^GMRCAU
Order Entry Results Reporting	1	TEAMPROV^ORQPTQ1
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Consult Request Tracking	6	GMRC USER NOTIFICATION GMRCAU GMRCCP GMRCEDT2 GMRCNOTF GMRCP

Entry Points

Name	Comments	DBIA/ICR reference
LOC	;Find the patients location and match to location assignments
EN(GMRCSRV,USER,TEST)	;Get who is to be notified for alert action ; return them in array GMRCADUZ(DUZ)=""
TSTINTRO	; entry action for GMRC USER NOTIFICATION
NOTSERV(RECIP)	;set GMRCADUZ(RECIP)=all services they receive for
HIER(SERV)	;ask to see the hierarchy
TEAM1	;Get user DUZ's from Team pointed to in File
TEST	; called from GMRC NOTIF RECIPIENTS
LOC1	;Get user and/or team assigned to location
TEAM	;Loop through Teams to send all users notifications
ADMT	;Get notification recips from admin teams field (123.34)
ADMU	;Get notification recips from admin users field (123.33)
RECIP(GMRCSS,NOTNULL)	;gather recipients for GMRCSS

External References

Name	Field # of Occurrence
^DIR	TEST+5, TEST+10, HIER+5
FINDPAR^GMRCAU	EN+6, EN+17
TESTHELP^GMRCAU	HIER+6
TEAMPROV^ORQPTQ1	TEAM1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This user is a notification recipients for "_GMRCADUZ(GMRCUSR),! Line Location: TEST+14
Function Call: WRITE	Prompt: !! Line Location: TEST+17
Function Call: WRITE	Prompt: !!,"This user is not a notification recipient.",!! Line Location: TEST+18
Function Call: WRITE	Prompt: !,"This option will list how a given user became a notification recipient" Line Location: TSTINTRO+1
Function Call: WRITE	Prompt: !,"for a selected consult service. If the PROCESS PARENTS FOR NOTIFS field is" Line Location: TSTINTRO+2
Function Call: WRITE	Prompt: !,"set to YES, all the parents of the service will also be processed to" Line Location: TSTINTRO+3
Function Call: WRITE	Prompt: !,"determine if the user is a recipient via that service.",!! Line Location: TSTINTRO+4
Routine Call	DIR Line Location: TEST+5 TEST+10 HIER+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	LOC+2
^GMR(123.5 - [#123.5]	EN+4, EN+16, RECIP+2, RECIP+3, RECIP+4, RECIP+5, RECIP+6, LOC+4, LOC+5, LOC1+1 , LOC1+2, ADMU+4, ADMT+4, TEAM+1, NOTSERV+1, NOTSERV+2, TEST+15
^SC - [#44]	LOC+2

Label References

Name	Line Occurrences
$$NOTSERV	RECIP+2, LOC1+1, ADMU+5, TEAM1+6
ADMT	RECIP+6
ADMU	RECIP+5
EN	TEST+12
HIER	TEST+16
LOC	RECIP+4
LOC1	LOC+4, LOC+5
RECIP	EN+3, EN+12
TEAM	RECIP+3
TEAM1	LOC1+2, ADMT+5, TEAM+1
TEST	TEST+19

Naked Globals

Name	Field # of Occurrence
^(0	LOC1+1, LOC1+2
^(123	RECIP+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	TEST+2~, TEST+8~, HIER+1~
DIR("?"	TEST+4*
DIR("??"	TEST+5*
DIR("A"	TEST+3, TEST+9, HIER+3*
DIR("B"	HIER+4*
DIR(0	TEST+3, TEST+9, HIER+2*
DIROUT	TEST+2~
DIRUT	TEST+2~, TEST+6, TEST+10, HIER+1~
DTOUT	TEST+2~, HIER+1~
DUOUT	TEST+2~, HIER+1~
GMRCADUZ	TEST+1~
GMRCADUZ(	EN+3, EN+12, RECIP+2, LOC1+1, ADMU+5, TEAM1+5, TEAM1+6*, NOTSERV+1, NOTSERV+2, TEST+13 , TEST+14, TEST+15, TEST+16, TEST+18
GMRCER	RECIP+1~
GMRCHKD	EN+2~
GMRCHKD(	EN+5, EN+10, EN+14
GMRCHL	RECIP+1~, LOC+1, LOC+2, LOC+3*, LOC+5
>> GMRCHLI	LOC+3
GMRCLIS	EN+2~, EN+6
GMRCLIS(	EN+8, EN+9!, EN+10, EN+12, EN+14, EN+15*, EN+16, EN+17
GMRCLP	EN+2~, EN+7, EN+8, EN+9, EN+10, EN+12, EN+14, EN+15, EN+16, EN+17 , EN+18*
GMRCLST	RECIP+1~, TEAM1+1*, TEAM1+7!
GMRCLST(	TEAM1+3, TEAM1+5, TEAM1+6
GMRCLST(0	TEAM1+2
GMRCLST(1	TEAM1+2
GMRCNT	EN+2~, EN+5*, EN+6, EN+17
>> GMRCO	RECIP+4, LOC+2
GMRCQUIT	EN+2~, EN+8, EN+13*
GMRCSRV	EN~, EN+3, EN+4, EN+5, EN+6, TEST+1~, TEST+7*, TEST+12, TEST+15
GMRCSS	RECIP~, RECIP+2, RECIP+3, RECIP+4, RECIP+5, RECIP+6, LOC+4, LOC+5, LOC1+1, LOC1+2 , ADMU+4, ADMT+4, TEAM+1, NOTSERV+1, NOTSERV+2
GMRCSSI	RECIP+1~, LOC+4, LOC+5, LOC1+1, LOC1+2
GMRCTM	RECIP+1~, TEAM+1*
GMRCTMI	RECIP+1~, LOC1+2, ADMT+3~, ADMT+4, TEAM+1, TEAM1+1, TEAM1+5
GMRCU	RECIP+1~, TEAM1+3*, TEAM1+5, TEAM1+6
GMRCUSR	TEST+1~, TEST+11*, TEST+12, TEST+13, TEST+14, TEST+15, TEST+16, TEST+18
GMRCWL	RECIP+1~, LOC+1, LOC+2, LOC+3*, LOC+4
>> GMRCWLI	LOC+3
NOTNULL	RECIP~, RECIP+2, LOC1+1, ADMU+5, TEAM1+4, TEAM1+6
RECIP	ADMU+2~, ADMU+3, ADMU+4, ADMU+5, NOTSERV~, NOTSERV+1, NOTSERV+2
SERV	HIER~, HIER+6
TEST	EN~, EN+3, EN+12
U	EN+4, EN+9, EN+15, EN+16, TEAM1+5, NOTSERV+1, NOTSERV+2, TEST+15
USER	EN~, EN+3, EN+12
X	TEST+2~
Y	TEST+2~, TEST+7, TEST+11, HIER+6

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCT

Call Graph Total: 3

Caller Graph Total: 6