Routine: AGMPCHK

Package	Total	Call Graph
Patient Registration MPI	1	(CREATMSG,NOTIF)^AGMPIHLO
VA Fileman	1	^DIR

Package	Total	Caller Graph
Patient Registration MPI	2	AGMPHLBU AGMPIHLO

Entry Points

Name	Comments	DBIA/ICR reference
ISITERST	;Interactive Reset, user option
UPDMSGQ(PDFN,PDFN2,PMSGTYPE,PSITE)	;Add the needed entries to the AGMPCHKQ global
CENTRY(ID1,INST,VAL)	;Create an entry within the ^AGMPCHK global
GETINST(ID1,INST)	;Retrieve the institution associated with the Site from the ^AGMPCHK global
UPDATE	;Check to see if the information stored is the same as the information in the AGFAC and Institution Globals
SITELST	;Print out the current site information within the ^AGMPCHK global
SNDMSGQ(PSITE)	;Send the messages for the instituiton/site ID that is now VALID
UENTRY(INST,VAL,ID1)	;Update an entry within the ^AGMPCHK global
BUILD	;Create the Institution - Site Information globals entries
SITERST(RSID)	;Site Reset, mark Valid the SiteID that is sent in, 'ALL' is sent in then we loop through the AGMPCHK global marking all Valid
RENTRY(INST)	;Remove an entry within the ^AGMPCHK global

External References

Name	Field # of Occurrence
CREATMSG^AGMPIHLO	SNDMSGQ+12, SNDMSGQ+16, SNDMSGQ+18
NOTIF^AGMPIHLO	UENTRY+5, UPDMSGQ+3, UPDMSGQ+4, UPDMSGQ+5, UPDMSGQ+6
^DIR	ISITERST+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The Build process for the AGMPCHK global is already completed, please use the Update option!" Line Location: BUILD+2
Function Call: WRITE	Prompt: !,"There is no site information to display" Line Location: SITELST+2
Function Call: WRITE	Prompt: !,"Inst",TB,"Site ID",TB,"OLD Site ID",TB,"Status" Line Location: SITELST+5
Function Call: WRITE	Prompt: !,RESULT Line Location: SITERST+24
Function Call: WRITE	Prompt: !,"There was an Error in processing the messages for Site "_PSITE Line Location: SNDMSGQ+26
Routine Call	DIR Line Location: ISITERST+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGFAC - [#9009061]	BUILD+5, BUILD+6, UPDATE+6, UPDATE+7
^AGMPCHK	ISITERST+1, ISITERST+4, SITERST+1, SITERST+6, SITERST+15, SITERST+18, SITERST+25, UPDATE+4, UPDATE+13, UENTRY+1* , UENTRY+2, UENTRY+4, UENTRY+6, CENTRY+1, CENTRY+2, CENTRY+3, RENTRY+1!, GETINST+4, GETINST+5, SITELST+6 , SITELST+8, SITELST+9, SITELST+10, ISITERST+11, ISITERST+13, ISITERST+14, SITERST+9, SITERST+10, SITERST+18, UPDATE+8 , UPDATE+10, UPDATE+11, UPDATE+12
^AGMPCHK(0	BUILD+2, BUILD+3, CENTRY+4, RENTRY+2*, SITELST+2, UPDATE+3
^AGMPCHKQ(	UPDMSGQ+1, UPDMSGQ+2, UPDMSGQ+5, UPDMSGQ+6, UPDMSGQ+7, UPDMSGQ+8, UPDMSGQ+9, UPDMSGQ+10, UPDMSGQ+11, UPDMSGQ+12 , UPDMSGQ+13, SNDMSGQ+2, SNDMSGQ+9, SNDMSGQ+10, SNDMSGQ+11, SNDMSGQ+13, SNDMSGQ+14, SNDMSGQ+15, SNDMSGQ+17!, SNDMSGQ+20 , SNDMSGQ+22!, SNDMSGQ+24!
^DIC(4 - [#4]	BUILD+7, SITERST+12, UPDATE+9
^DPT - [#2]	UPDMSGQ+5, UPDMSGQ+6

Label References

Name	Line Occurrences
CENTRY	BUILD+8, UPDATE+10
GETINST	SITERST+14
RENTRY	UPDATE+8
SITERST	ISITERST+16
SNDMSGQ	SITERST+11, SITERST+21
UENTRY	SITERST+12, SITERST+22, UPDATE+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGMPCHKFLG	SNDMSGQ+1~, SNDMSGQ+3*, SNDMSGQ+27!
DEXEC	SNDMSGQ+1~
DIR	ISITERST+5~
DIR("A"	ISITERST+9*
DIR(0	ISITERST+8, ISITERST+10, ISITERST+14*
DIROUT	ISITERST+5~
DIRUT	ISITERST+5~
DTOUT	ISITERST+5~
DUOUT	ISITERST+5~
DUZ(2	SNDMSGQ+5, SNDMSGQ+6, SNDMSGQ+28
ID1	UENTRY~, UENTRY+2, UENTRY+5, UENTRY+6, CENTRY~, CENTRY+1, CENTRY+2, GETINST~, GETINST+5
INST	BUILD+1~, BUILD+4, BUILD+5, BUILD+6, BUILD+7, BUILD+8, UENTRY~, UENTRY+1, UENTRY+2, UENTRY+4 , UENTRY+5, UENTRY+6, CENTRY~, CENTRY+1, CENTRY+2, CENTRY+3, RENTRY~, RENTRY+1, GETINST~, GETINST+3* , GETINST+5, SITELST+3, SITELST+6, SITELST+7, SITELST+8, SITELST+9, SITELST+10, ISITERST+5~, ISITERST+6, ISITERST+11* , ISITERST+13, ISITERST+14, SITERST+4~, SITERST+7, SITERST+9, SITERST+10, SITERST+11, SITERST+12, SITERST+14, SITERST+15 , SITERST+18, SITERST+21, SITERST+22, UPDATE+1~, UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+9, UPDATE+10 , UPDATE+11, UPDATE+12
INTS	SITELST+1~
PDFN	UPDMSGQ~, UPDMSGQ+1, UPDMSGQ+2, UPDMSGQ+3, UPDMSGQ+4, UPDMSGQ+5, UPDMSGQ+6, UPDMSGQ+7, UPDMSGQ+8, UPDMSGQ+9 , UPDMSGQ+10, UPDMSGQ+11, UPDMSGQ+12, UPDMSGQ+13
PDFN2	UPDMSGQ~, UPDMSGQ+3, UPDMSGQ+5, UPDMSGQ+6, UPDMSGQ+9
PMSGTYPE	UPDMSGQ~, UPDMSGQ+2
PSITE	UPDMSGQ~, UPDMSGQ+1, UPDMSGQ+2, UPDMSGQ+5, UPDMSGQ+6, UPDMSGQ+7, UPDMSGQ+8, UPDMSGQ+9, UPDMSGQ+10, UPDMSGQ+11 , UPDMSGQ+12, UPDMSGQ+13, SNDMSGQ~, SNDMSGQ+2, SNDMSGQ+6, SNDMSGQ+9, SNDMSGQ+10, SNDMSGQ+11, SNDMSGQ+13, SNDMSGQ+14 , SNDMSGQ+15, SNDMSGQ+17, SNDMSGQ+20, SNDMSGQ+22, SNDMSGQ+24, SNDMSGQ+25, SNDMSGQ+26
RESULT	SITERST+4~, SITERST+8, SITERST+13, SITERST+16, SITERST+17, SITERST+19, SITERST+20, SITERST+23, SITERST+24
RSID	SITERST~, SITERST+5*, SITERST+6, SITERST+14, SITERST+16, SITERST+19, SITERST+22, SITERST+23
SDUZ2	SNDMSGQ+1~, SNDMSGQ+5*, SNDMSGQ+28
SID	BUILD+1~, BUILD+7*, BUILD+8
SNDC	SNDMSGQ+1~, SNDMSGQ+7, SNDMSGQ+10, SNDMSGQ+19*, SNDMSGQ+23, SNDMSGQ+26
SUCCESS	SNDMSGQ+1~, SNDMSGQ+4*, SNDMSGQ+12, SNDMSGQ+13, SNDMSGQ+16, SNDMSGQ+17, SNDMSGQ+18, SNDMSGQ+19, SNDMSGQ+21
TB	SITELST+1~, SITELST+4*, SITELST+5
TC	ISITERST+5~, ISITERST+7, ISITERST+12, ISITERST+14
TDFN	SNDMSGQ+1~, SNDMSGQ+8, SNDMSGQ+9, SNDMSGQ+10, SNDMSGQ+11, SNDMSGQ+12, SNDMSGQ+13, SNDMSGQ+14, SNDMSGQ+18, SNDMSGQ+20 , SNDMSGQ+22
TDFN2	SNDMSGQ+1~, SNDMSGQ+14*, SNDMSGQ+15, SNDMSGQ+16, SNDMSGQ+17, SNDMSGQ+18
TID	ISITERST+5~, ISITERST+13*, ISITERST+14
TINST	GETINST+1~, GETINST+2, GETINST+4, GETINST+5
U	BUILD+6, BUILD+7, SITERST+12, UPDATE+7, UPDATE+9
USID	UPDATE+1~, UPDATE+9*, UPDATE+10, UPDATE+11, UPDATE+12
VAL	UENTRY~, UENTRY+1, UENTRY+3, CENTRY~, CENTRY+3
X	ISITERST+5~
Y	ISITERST+5~, ISITERST+16
Y(0	ISITERST+16

Customize PDF page

Package: Patient Registration MPI

Routine: AGMPCHK

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: