Routine: RGADTUT

Package	Total	Call Graph
Health Level Seven	2	($$ACT,GET,UPD)^HLSUB LINK^HLUTIL3
Clinical Information Resource Network	1	(EXC,START,STOP)^RGHLLOG
Kernel	1	$$KSP^XUPARAM
Master Patient Index VistA	1	($$MPINODE,$$UPDATE)^MPIFAPI
Registration	1	FILE^VAFCTFU

Entry Points

Name	Comments	DBIA/ICR reference
SHARE(RGZSTR)	; determine if the patient is shared: ; a) If shared, return one to RGADT1 and call GENERATE^HLMA ; b) If not shared and the host facility is the CMOR, update ; host TFL record, do not call GENERATE^HLMA ; c) If not shared and the host facility is not the CMOR, add ; the CMOR to the subscription list, return one to RGADT1 ; and call GENERATE^HLMA
EXC(RGX)	; log an exception because:
TFL	; update the Treating Facility List file on: ; an exception -or- no subscribers CMOR data missing -or- ; "MPI" node missing -or- no subscribers & host is the CMOR ; Note: RGZSF is global in scope

Name	Line Occurrences
EXC	SHARE+38, SHARE+46, SHARE+55
TFL	SHARE+27, SHARE+30, SHARE+39, SHARE+47

Name	Field # of Occurrence
HLDT	SHARE+15~
HLINKP	SHARE+15~
HLINKX	SHARE+15~
>> RGSD101	TFL+5
RGX	EXC~, EXC+5
RGZ774	SHARE+34~, SHARE+42*, SHARE+43, SHARE+53
RGZARR	SHARE+52~
RGZARR(	SHARE+53*
RGZCMOR	SHARE+15~, SHARE+21*, SHARE+27, SHARE+30, SHARE+33, SHARE+35, SHARE+38
RGZDFN	SHARE+15~, SHARE+17*, SHARE+18, SHARE+46, SHARE+53, SHARE+55, EXC+5, TFL+6
RGZDT	SHARE+15~, SHARE+17*, TFL+6
RGZERR	SHARE+34~, SHARE+43, SHARE+52!, SHARE+53*, SHARE+55
RGZERR(0	SHARE+45
RGZEVR	TFL+4~, TFL+5, TFL+6
RGZEVT	SHARE+15~, SHARE+17*, TFL+4
RGZFLG	SHARE+15~, SHARE+23, SHARE+26, SHARE+50, SHARE+58
RGZHLL	SHARE+15~, SHARE+22
RGZHLL("LINKS"	SHARE+23
RGZLL	SHARE+34~, SHARE+35, SHARE+42*, SHARE+43, SHARE+46, SHARE+55
RGZLL(	SHARE+42
RGZLL(0	SHARE+37, SHARE+42
RGZMPI	SHARE+15~, SHARE+18*, SHARE+21
RGZSF	SHARE+16~, SHARE+18*, SHARE+30, SHARE+33, SHARE+38, TFL+6
RGZSTR	SHARE~, SHARE+17
RGZSUB	SHARE+16~, SHARE+21*, SHARE+22