Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Label References |  Local Variables |  All
Print Page as PDF
Routine: RGADTUT

Package: Clinical Information Resource Network

Routine: RGADTUT


Information

RGADTUT ;HIRMFO/GJC-utility; determine pat. subscriptions (A01/A03) ;09/21/99

Source Information

Source file <RGADTUT.m>

Call Graph

Call Graph

Call Graph Total: 6

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

External References

Name Field # of Occurrence
$$ACT^HLSUB SHARE+42
GET^HLSUB SHARE+22
UPD^HLSUB SHARE+43
LINK^HLUTIL3 SHARE+35
$$MPINODE^MPIFAPI SHARE+18
$$UPDATE^MPIFAPI SHARE+53
EXC^RGHLLOG EXC+5
START^RGHLLOG EXC+5
STOP^RGHLLOG EXC+5
FILE^VAFCTFU TFL+6
$$KSP^XUPARAM SHARE+18

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
Info |  Source |  Call Graph |  Entry Points |  External References |  Label References |  Local Variables |  All