Routine: GMRCACMT

Information

GMRCACMT ;SLC/DLT,DCM,MA,JFR - Comment Action and alerting ;8/19/03 07:27

Source Information

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Consult Request Tracking	3	EXAC^GMRCADC ($$ORTX,$$VALID)^GMRCAU (AUDIT,MSG,STATUS)^GMRCP
VA Fileman	2	^DIC ^DIR
Kernel	1	$$NOW^XLFDT
Registration	1	FULL^VALM1

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Consult Request Tracking	3	GMRCA1 GMRCASF GMRCTIUE

Entry Points

Name	Comments	DBIA/ICR reference
END	;kill off variables and exit
COMMENT(GMRCO)	;Add a comment without changing the status
NAMELIST(GMRCP,GMRCOLD,GMRCDELR)	;manage the list of recipients
READ(GMRC0,GMRCA,GMRCB,GMRCH,GMRCL)	;read logic
WHOTO	;Get the users who should receive an alert
NAMEHELP	;Help for the recipient list logic
SENDMSG(NOTIF,GMRCO,GMRCATM)	;Send the alert
PROCALRT(GMRCORTX,GMRCDELR,ACTION,GMRCO)	;Process alert for comments
ANDTO	;Ask for additional recipients

Name	Field # of Occurrence
^DIC	NAMELIST+17
^DIR	READ+17
EXAC^GMRCADC	COMMENT+9
$$ORTX^GMRCAU	SENDMSG+10
$$VALID^GMRCAU	WHOTO+5
AUDIT^GMRCP	COMMENT+4
MSG^GMRCP	SENDMSG+11
STATUS^GMRCP	COMMENT+19
FULL^VALM1	COMMENT+2
$$NOW^XLFDT	COMMENT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The ordering provider for this inter-facility consult will" Line Location: COMMENT+13
Function Call: WRITE	Prompt: " automatically be ",!,"notified.",! Line Location: COMMENT+14
Function Call: WRITE	Prompt: !,"Processing Alerts..." Line Location: SENDMSG+3
Function Call: WRITE	Prompt: !,"Service update users will be notified.",! Line Location: WHOTO+8
Function Call: WRITE	Prompt: !,"Requesting provider will be notified.",! Line Location: WHOTO+11
Function Call: WRITE	Prompt: !,"Requesting provider and service update users will be notified.",! Line Location: WHOTO+14
Function Call: WRITE	Prompt: " already in the list." Line Location: NAMELIST+23
Function Call: WRITE	Prompt: " added to the list." Line Location: NAMELIST+24
Function Call: WRITE	Prompt: " can't delete this name from the list." Line Location: NAMELIST+27
Function Call: WRITE	Prompt: " not currently in the list." Line Location: NAMELIST+28
Function Call: WRITE	Prompt: " deleted from the list." Line Location: NAMELIST+29
Function Call: WRITE	Prompt: " Name not found." Line Location: NAMELIST+31
Function Call: WRITE	Prompt: ! Line Location: READ+16
Function Call: WRITE	Prompt: !,"Enter the name of the user to send the alert to," Line Location: NAMEHELP+2
Function Call: WRITE	Prompt: !," or put a '-' in front of a name to delete from the list." Line Location: NAMEHELP+3
Function Call: WRITE	Prompt: ! Line Location: NAMEHELP+4
Function Call: WRITE	Prompt: !," Example:" Line Location: NAMEHELP+5
Function Call: WRITE	Prompt: !," SMITH,FRED -> to add Fred to the list." Line Location: NAMEHELP+6
Function Call: WRITE	Prompt: !," -SMITH,FRED -> to delete Fred from the list." Line Location: NAMEHELP+7
Function Call: WRITE	Prompt: !,"Already selected: " Line Location: NAMEHELP+8
Function Call: WRITE	Prompt: ! Line Location: NAMEHELP+9
Function Call: WRITE	Prompt: ! Line Location: NAMEHELP+13
Routine Call	DIC Line Location: NAMELIST+17
Routine Call	DIR Line Location: READ+17

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	COMMENT+4, COMMENT+12, SENDMSG+4, SENDMSG+8, WHOTO+4, WHOTO+5
^TMP("GMRC"	END+4
^VA(200 - [#200]	NAMEHELP+11

Name	Line Occurrences
$$READ	NAMELIST+12
END	COMMENT+9, COMMENT+20
NAMELIST	ANDTO+1
PROCALRT	COMMENT+15
SENDMSG	PROCALRT+12
WHOTO	PROCALRT+6

Name	Field # of Occurrence
^("MENU"	END+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	PROCALRT~, PROCALRT+10
DIC	NAMELIST+7~, NAMELIST+17*
DIC(0	NAMELIST+17*
DIR	READ+10~
DIR("?"	READ+15*
DIR("A"	READ+13*
DIR("B"	READ+14*
DIR(0	READ+12*
DIROUT	END+2, END+3!, READ+10~, READ+18
DIRUT	END+3!, READ+10~, READ+18
DTOUT	END+2, END+3!, READ+10~, READ+18
DUOUT	END+3!, READ+10~, READ+18
DUZ	WHOTO+5, WHOTO+6, WHOTO+9
GMRC	END+1!
GMRC0	READ~, READ+11, READ+12
GMRCA	COMMENT+1~, COMMENT+4*, END+1!, READ~, READ+13
>> GMRCAD	COMMENT+3*
GMRCADD	NAMELIST+7~, NAMELIST+14, NAMELIST+15, NAMELIST+22, NAMELIST+26
GMRCADUZ	PROCALRT+2~, SENDMSG+2*, SENDMSG+11, ANDTO+1
GMRCADUZ(	WHOTO+10, WHOTO+13
GMRCALT	PROCALRT+9~
GMRCANS	PROCALRT+2~, WHOTO+3~
GMRCATM	SENDMSG~, SENDMSG+11
GMRCB	READ~, READ+14
GMRCDELR	PROCALRT~, ANDTO+1, NAMELIST~, NAMELIST+10
GMRCDFN	SENDMSG+1~, SENDMSG+4*, SENDMSG+11
GMRCDR	COMMENT+17~, COMMENT+18*
GMRCDUZ	NAMELIST+7~, NAMEHELP+1~, NAMEHELP+10*, NAMEHELP+11, NAMEHELP+12
GMRCERMS	COMMENT+9, END+1!
GMRCERR	COMMENT+9, END+1!
GMRCH	READ~, READ+15
GMRCL	READ~, READ+16
GMRCLINE	READ+10~, READ+16*
GMRCMSG	COMMENT+9*, END+1!
GMRCNEW	NAMELIST+7~, NAMELIST+9*, NAMELIST+33
GMRCNEW(	NAMELIST+23, NAMELIST+24*, NAMELIST+28, NAMELIST+29!, NAMEHELP+10
>> GMRCNOW	COMMENT+3*
GMRCNT	NAMELIST+7~, NAMELIST+11, NAMELIST+12, NAMELIST+24, NAMELIST+29*
GMRCO	COMMENT~, COMMENT+4, COMMENT+12, COMMENT+15, PROCALRT~, PROCALRT+12, SENDMSG~, SENDMSG+4, SENDMSG+8, SENDMSG+10 , SENDMSG+11, END+1!, WHOTO+4, WHOTO+5
GMRCOLD	NAMELIST~, NAMELIST+9, NAMELIST+10!, NAMELIST+33
GMRCOLD(	NAMELIST+27, NAMEHELP+12
GMRCOM	COMMENT+4*, COMMENT+11, END+1!
GMRCORTX	PROCALRT~, SENDMSG+5, SENDMSG+8, SENDMSG+9, SENDMSG+10*, SENDMSG+11, END+1!
GMRCP	NAMELIST~, NAMELIST+12
>> GMRCPROV	COMMENT+4*
GMRCQ	NAMELIST+7~
GMRCQIT	COMMENT+1!, PROCALRT+2~, END+2*
GMRCQUT	COMMENT+1!, END+1!
GMRCRP	WHOTO+3~, WHOTO+4*, WHOTO+6, WHOTO+9, WHOTO+10, WHOTO+13
GMRCSTS	COMMENT+17~, COMMENT+18*
GMRCTM	PROCALRT+2~, PROCALRT+12, WHOTO+7, WHOTO+12, WHOTO+13
GMRCUPD	WHOTO+3~, WHOTO+5*, WHOTO+9, WHOTO+12
GMRCUSER	NAMELIST+7~, NAMELIST+11, NAMELIST+12, NAMELIST+13, NAMELIST+14*, NAMELIST+17, NAMELIST+31
GMRCUT	END+1!
>> IOBM	COMMENT+2
>> IOSTBM	COMMENT+2
>> IOTM	COMMENT+2
NOTIF	PROCALRT+2~, PROCALRT+10*, PROCALRT+12, SENDMSG~, SENDMSG+11
TXT	SENDMSG+6~, SENDMSG+7*, SENDMSG+8, SENDMSG+9
U	COMMENT+12, SENDMSG+8, WHOTO+4, WHOTO+5, NAMELIST+11, NAMELIST+13, READ+11, READ+18, NAMEHELP+11
X	NAMELIST+7~, NAMELIST+17*
>> XQORM("HIJACK"	END+4*
Y	NAMELIST+7~, NAMELIST+19, NAMELIST+23, NAMELIST+24, NAMELIST+27, NAMELIST+28, NAMELIST+29, READ+19

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCACMT

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: