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 |  Caller Graph |  Entry Points |  External References |  Used in HL7 Interface |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: MPIFQUE4

Package: Master Patient Index VistA

Routine: MPIFQUE4


Information

MPIFQUE4 ;SF/TNV-Process the CMOR COMPARISON request ;FEB 25, 1998

Source Information

Source file <MPIFQUE4.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Health Level Seven 4 INIT^HLFNC2  GENERATE^HLMA  ($$ACT,GET,UPD)^HLSUB  LINK^HLUTIL3  
Kernel 4 (,$$S)^%ZTLOAD  $$NOW^XLFDT  ($$MAX,$$MIN)^XLFMTH  ($$IEN,$$LKUP,$$NNT,$$STA)^XUAF4  
Registration 4 $$EN^VAFCPID  FILE^VAFCTFU  $$QUERYTF^VAFCTFU1  $$SITE^VASITE  
Master Patient Index VistA 3 ($$CHANGE,$$GETDFN,$$GETVCCI)^MPIF001  ($$MPILINK,$$MPINODE,$$UPDATE)^MPIFAPI  $$IEN^MPIFNQ  
Clinical Information Resource Network 2 (EXC,START,STOP)^RGHLLOG  CALC^RGVCCMR2  
VA FileMan 2 ^%DT  NOW^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Kernel 1 ^ORD(101  
Master Patient Index VistA 1 MPIF CMOR COMPARISON CLIENT  

Entry Points

Name Comments DBIA/ICR reference
BEGIN ; Entry point for CMOR COMPARISON request to process.
; NO input or output variables
EN ; Background job to run for cmor comparison
MSH ; Process MSH segment
NTE ; Process NTE segment
PID ; Process PID segment
EVN ; Process EVN segment
PROCES ; Process one complete message (MSH,PID,EVN,NTE)
PERCENT(NUM1,NUM2) ; Calculate the percent difference 80% or more need for change
; of CMOR number
CHANGE ; Process the change CMOR request to the new CMOR site and Send out
; notification to the Subscriber list and MPI.
LINK ; Give back the TF list in HLL(LINKS") array for this patient
CLEAN ; Clean up the partition and ready for the next message
CHKSUB(DFN,FAC) ;check for an existing subscription if one does not exist add it
GETSCN(DFN) ;Return existing SCN or Activate a new subscription

External References

Name Field # of Occurrence
^%DT EVN+2, PROCES+3
NOW^%DTC BEGIN+4
^%ZTLOAD BEGIN+8
$$S^%ZTLOAD EN+6
INIT^HLFNC2 CHANGE+7
GENERATE^HLMA CHANGE+16
$$ACT^HLSUB GETSCN+6
GET^HLSUB CHKSUB+8
UPD^HLSUB CHKSUB+11
LINK^HLUTIL3 LINK+13, CHKSUB+9
$$CHANGE^MPIF001 CHANGE+4
$$GETDFN^MPIF001 LINK+4
$$GETVCCI^MPIF001 LINK+5
$$MPILINK^MPIFAPI LINK+17
$$MPINODE^MPIFAPI PID+7, PID+12, PROCES+9, GETSCN+4
$$UPDATE^MPIFAPI GETSCN+6
$$IEN^MPIFNQ PID+5
EXC^RGHLLOG NTE+3, NTE+5, PID+4, PID+6, CHANGE+3, CHANGE+5, CHANGE+8, CHANGE+17, LINK+15, LINK+18
, CHKSUB+12
START^RGHLLOG EN+4
STOP^RGHLLOG EN+14, CLEAN+1, CHKSUB+12
CALC^RGVCCMR2 PID+11, PROCES+8
$$EN^VAFCPID CHANGE+11
FILE^VAFCTFU LINK+6
$$QUERYTF^VAFCTFU1 LINK+7
$$SITE^VASITE CHANGE+5, LINK+12, CHKSUB+6
$$NOW^XLFDT CHKSUB+11
$$MAX^XLFMTH PERCENT+5, PERCENT+6
$$MIN^XLFMTH PERCENT+6
$$IEN^XUAF4 LINK+5
$$LKUP^XUAF4 CHANGE+2
$$NNT^XUAF4 CHANGE+14
$$STA^XUAF4 LINK+11

Used in HL7 Interface

HL7 Protocol Name Call Tags
MPIF CMOR COMPARISON CLIENT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCN(391.91 - [#391.91] LINK+6

Label References

Name Line Occurrences
$$GETSCN CHKSUB+7
$$PERCENT PROCES+5, PROCES+10
CHANGE PROCES+6, PROCES+11
CLEAN BEGIN+8, EN+6, PROCES+2, PROCES+7, PROCES+12
EVN EN+11
LINK CHANGE+9
MSH EN+8
NTE EN+9
PID EN+10
PROCES EN+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% BEGIN+5, BEGIN+9!
CHANGE CHANGE+2~, CHANGE+4*, CHANGE+5
CLIENT EN+13!, CHANGE+6*, LINK+16, LINK+19
CMOR PID+8*, CHANGE+14, LINK+1~, LINK+5*, CLEAN+2!
CNT LINK+9~*, LINK+16*
COUNT BEGIN+9!, EN+2~, EN+5*, EN+12, MSH+1*, NTE+1*, PID+2*, EVN+1*, CLEAN+3*
CST LINK+1~, LINK+5*, LINK+6
DFN PID+5*, PID+6, PID+7, PID+11, PID+12, EVN+3, PROCES+8, PROCES+9, CHANGE+3, CHANGE+4
, CHANGE+5, CHANGE+8, CHANGE+11, CHANGE+17, LINK+14, LINK+15, LINK+18, CLEAN+2!, CHKSUB~, CHKSUB+5
, CHKSUB+7, CHKSUB+12, GETSCN~, GETSCN+4, GETSCN+6
DIF PERCENT+2~, PERCENT+6*, PERCENT+7
ERROR EN+1!, EN+6, EN+12, EN+13!, NTE+3*, NTE+5*, PID+4*, PID+6*, EVN+3*, PROCES+2
, CHANGE+3*, CHANGE+5*, CHANGE+8*, LINK+9!, LINK+14*, LINK+15!
EVENT CLEAN+2!
FAC CHKSUB~, CHKSUB+4, CHKSUB+6, CHKSUB+9, CHKSUB+12
FLAG CHKSUB+3~, CHKSUB+10*, CHKSUB+11
>> HL CHANGE+7, CHANGE+8
>> HL("ECH" EN+3
>> HL("FS" EN+3, CHANGE+12, CHANGE+14
>> HL("MID" NTE+3, NTE+5, PID+4, CHANGE+3, CHANGE+5, CHKSUB+12
>> HLA("HLS" CHANGE+11*, CHANGE+12*, CHANGE+14*
HLER CHKSUB+3~, CHKSUB+11, CHKSUB+12
>> HLL("LINKS" LINK+16*, LINK+19*
>> HLMTIEN PID+6
>> HLNEXT EN+6
>> HLNODE EN+7
>> HLQUIT EN+6
ICN NTE+3, NTE+5, PID+3*, PID+4, PID+5, PID+6, CHANGE+3, LINK+4, LINK+7, CLEAN+2!
IEN BEGIN+2~, LINK+1~
IKI EN+2~
INDATE EVN+2*, EVN+3, CHANGE+12, CLEAN+2!
INSCORE EVN+4*, EVN+5*, PROCES+5, PROCES+6, PROCES+10, PROCES+11, CHANGE+12, CLEAN+2!
LIMIT PROCES+1~, PROCES+5*, PROCES+6, PROCES+10*, PROCES+11
LINE EN+2~, EN+7*, EN+8, EN+9, EN+10, EN+11, NTE+2, NTE+4, PID+3, EVN+2
, EVN+4
LOOP CHKSUB+3~, CHKSUB+10*
LP LINK+9~*, LINK+10*, LINK+11, LINK+13
MPICNT EN+1!, EN+5*, CHANGE+19*
MPIF CHKSUB+3~, CHKSUB+9
MPIF( CHKSUB+9
MPIF(0 CHKSUB+9
MPIFAN GETSCN+2~, GETSCN+6*
MPIFAR GETSCN+2~
MPIFAR( GETSCN+6*
MPIFFS EN+2~, EN+3*, EN+8, EN+9, EN+10, EN+11, NTE+2, NTE+4, PID+3, EVN+2
, EVN+4
MPIFHL LINK+9~, LINK+13!
MPIFHL( LINK+16
MPIFHL(0 LINK+14, LINK+16
MPIFLL CHKSUB+3~, CHKSUB+8
MPIFLL("LINKS" CHKSUB+10
MPIFLLI CHKSUB+3~, CHKSUB+9*
MPIFLLN CHKSUB+3~, CHKSUB+9*, CHKSUB+10, CHKSUB+11, CHKSUB+12
MPIFREAP EN+2~, EN+3*
MPIFSCN CHKSUB+3~, CHKSUB+7*, CHKSUB+8, CHKSUB+11, CHKSUB+12, GETSCN+4*, GETSCN+6*, GETSCN+7
MPIFSFS EN+2~, EN+3*
MPIFSITE CHANGE+2~*, CHANGE+3, CHANGE+4
MPII EN+2~, EN+6*
MPILINK LINK+1~, LINK+17*, LINK+18, LINK+19
MPITF LINK+1~
MPITF( LINK+10, LINK+11, LINK+13
NDATE EN+2~, PID+9*, PID+11, PID+12*, PROCES+4
NODE PID+1~, PID+7*, PID+8, PID+9, PID+12*
NUM1 PERCENT~, PERCENT+3*, PERCENT+5, PERCENT+6
NUM2 PERCENT~, PERCENT+4*, PERCENT+5, PERCENT+6
PARENT EN+2~
PID LINK+1~, LINK+4*, LINK+5, LINK+6
REASON NTE+4*, NTE+5, CLEAN+2!
RESLT CHANGE+15~, CHANGE+16, CHANGE+17
RESULT CHANGE+10!, CHANGE+18!
RGDFN PID+11~*, PROCES+8~*
RGL BEGIN+3!, BEGIN+9!, LINK+2!, CLEAN+2!
RGL(0 LINK+3*
RGLOG BEGIN+2~, EN+2~
SCORE PID+9*, PID+11, PID+12*, PROCES+5, PROCES+6, PROCES+9*, PROCES+10, PROCES+11, CLEAN+2!
SERVER EN+13!, CHANGE+6*, CHANGE+7, CHANGE+16
SITE NTE+2*, NTE+3, CHANGE+2, CHANGE+3, CHANGE+5, CHANGE+14, CLEAN+2!
STN LINK+9~, LINK+11*, LINK+12, LINK+14
SUB LINK+1~
U EN+2~, EN+5*, CHANGE+17, LINK+19
X EVN+2*, PROCES+3*, LINK+7*, CLEAN+2!
Y EVN+2, PROCES+4, CLEAN+2!
ZTDESC BEGIN+6*, BEGIN+9!
ZTDTH BEGIN+5*, BEGIN+9!
ZTIO BEGIN+5*, BEGIN+9!
>> ZTREQ EN+15*
ZTRTN BEGIN+5*, BEGIN+9!
ZTSAVE BEGIN+9!
ZTSAVE("HL*" BEGIN+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in HL7 Interface |  Global Variables Directly Accessed |  Label References |  Local Variables |  All