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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: MPIFQUE3

Package: Master Patient Index VistA

Routine: MPIFQUE3


Information

MPIFQUE3 ;SF/TNV-Generate Batch message for comparison of CMOR score ;FEB 27, 1998

Source Information

Source file <MPIFQUE3.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Health Level Seven 4 (INIT,MSH)^HLFNC2  GENERATE^HLMA  CREATE^HLTF  LINK^HLUTIL3  
VA FileMan 4 ^%DT  NOW^%DTC  ^DIC  ^DIR  
Clinical Information Resource Network 2 (EXC,START,STOP)^RGHLLOG  CALC^RGVCCMR2  
Kernel 2 ^%ZTLOAD  $$NNT^XUAF4  
Registration 2 $$EN^VAFCPID  $$SITE^VASITE  
Master Patient Index VistA 1 $$MPINODE^MPIFAPI  

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
COMP ; Create a batch CMOR request for comparing the CMOR score with the owner
; of this patient. This will be for ALL CMOR SITES. (NOT ONE SITE)
TASK ; Task this job to run
KILL ; Clean up the partition
EN ; Entry point for CMOR Batch comparison. This should only be run after
; the initialization to the MPI has been completed.
HDR ; Create HL7 batch HEADER message to each of the CMOR site
INDV ; Create individual message of the HL7 ADT-A31 batch message
; EVN segment = event, date, CMOR score, requestor name
; PID segment = standard call
; NTE segment = Reason CMOR COMPARISON, site requested
SEND ; Send out the batch message
LOGIC ; This is where the dynamic address located.
; ** Routing logic field in Protocol file is being used
; instead of GET^HLSUB.
; For now, I have to hard set the receiving logical link, intercept
; the message before it send out, figure out the receiving Logical
; link from the MSH segment and let the Routing logic create the
; HLL("LINKS") array.
CLEAN ; Clean up the partition
LOG ; Log exception for non ICN but CMOR belong to someone else
STOP ; Stop/Restart the CMOR Comparison process
STATUS ; Where is the process right now?

External References

Name Field # of Occurrence
^%DT EN+40
NOW^%DTC EN+24, EN+52
^%ZTLOAD TASK+3
^DIC EN+7
^DIR COMP+5, STOP+3, STOP+8
INIT^HLFNC2 HDR+2, INDV+4
MSH^HLFNC2 INDV+9
GENERATE^HLMA SEND+2
CREATE^HLTF HDR+4
LINK^HLUTIL3 LOGIC+9
$$MPINODE^MPIFAPI EN+14, EN+35, INDV+14
EXC^RGHLLOG HDR+3, HDR+5, SEND+3, LOGIC+14, LOG+4
START^RGHLLOG EN+4, LOGIC+13
STOP^RGHLLOG EN+54, LOGIC+15
CALC^RGVCCMR2 EN+41
$$EN^VAFCPID INDV+18
$$SITE^VASITE EN+31, INDV+5, INDV+21
$$NNT^XUAF4 STATUS+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Task#, ",ZTSK," queued"
  • Line Location: TASK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+6
Function Call: WRITE
  • Prompt: !,"The CMOR Comparison process HAS NEVER been tasked"
  • Line Location: STATUS+2
Function Call: WRITE
  • Prompt: !,"The CMOR Comparison process has been tasked with task # ",$P($G(^RGSITE(991.8,1,"COMP")),"^",5),". The"
  • Line Location: STATUS+3
Function Call: WRITE
  • Prompt: !,"process ",$S(STATUS="R":"is currently running",STATUS="MS":"was manually stopped",STATUS="C":"has completed",1:"")
  • Line Location: STATUS+5
Function Call: WRITE
  • Prompt: " on ",Y
  • Line Location: STATUS+6
Routine Call
  • DIC
  • Line Location:
    • EN+7
Routine Call
  • DIR
  • Line Location:
    • COMP+5
    • STOP+3
    • STOP+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+24, STATUS+6
^DPT - [#2] EN+36, LOG+2, STATUS+9, STATUS+10
^DPT("ACMOR" EN+16, EN+29, EN+33
^RGSITE(991.8 - [#991.8] COMP+7, TASK+4*, EN+12, EN+13, EN+14, EN+17, EN+21, EN+25*, EN+26*, EN+27*
, EN+42*, EN+45, EN+50*, EN+51*, EN+52*, STOP+1, STOP+5, STOP+9*, STATUS+2, STATUS+3
, STATUS+4, STATUS+6, STATUS+7
^TMP("HLS" EN+46, HDR+1!, INDV+12*, INDV+16*, INDV+18*, INDV+21*
^XTMP("HLS" CLEAN+2!
^XTMP("RGVCCMR" EN+23*

Label References

Name Line Occurrences
CLEAN EN+53
HDR EN+32, EN+44
INDV EN+43
LOG EN+37
SEND EN+44, EN+45, EN+46
TASK STOP+4

Naked Globals

Name Field # of Occurrence
^("COMP" COMP+7*, EN+13*, EN+21*, EN+50*
^(0 LOG+2, STATUS+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+25, EN+52, CLEAN+1!
CALDT EN+28~, EN+38*, EN+39*, EN+41
CMOR EN+15*, EN+16, EN+17, EN+18, EN+19!, STATUS+10*, STATUS+11*, STATUS+12
DFN EN+34*, EN+35, EN+36, EN+41, EN+42, INDV+14, INDV+18, CLEAN+1!, LOG+2, LOG+4
DIC EN+5~, EN+6*
DIC(0 EN+6*
DIR COMP+5!, COMP+6!, KILL+1!
DIR("A" COMP+4*, STOP+2*, STOP+7*
DIR("B" COMP+5*, STOP+3*, STOP+8*
DIR(0 COMP+5*, STOP+3*, STOP+8*
DIRUT COMP+3~, COMP+5
DTNOW EN+2~, EN+24*
DUZ EN+6
HL HDR+2, HDR+3!, INDV+4, INDV+9
HL("FS" INDV+16, INDV+21, LOGIC+18
HL("SAF" INDV+5*
HLDT HDR+4, HDR+5!
HLDT1 HDR+4, HDR+5!
>> HLL("LINKS" LOGIC+18*
HLMID HDR+4, HDR+5!, INDV+8
IEN STATUS+1~, STATUS+7*, STATUS+8, STATUS+9, STATUS+10
INSTITU LOGIC+10*, LOGIC+11, LOGIC+12, LOGIC+14, LOGIC+18, LOGIC+19!
LINCOUNT EN+2~, HDR+6*, INDV+11*, INDV+12, INDV+13*, INDV+16, INDV+17*, INDV+18, INDV+19*, INDV+21
MPI EN+2~, INDV+9, INDV+12
MPIID INDV+8*, INDV+9, CLEAN+1!
MPILOOP EN+2~, EN+3*, EN+17*, EN+18*, EN+33*, EN+34
MPINAME EN+8*, EN+9*, INDV+16, CLEAN+1!
MPISTOP EN+3*, EN+30, EN+33, EN+45*, EN+50, HDR+3*, HDR+5*, SEND+3*, CLEAN+1!
MSGCOUNT EN+2~, EN+44, HDR+7*, INDV+8, INDV+22*
MTIEN EN+2~, HDR+4, HDR+5, SEND+2
NAME LOG+1~, LOG+2*, LOG+3, STATUS+1~, STATUS+9*, STATUS+12
NODE EN+2~, EN+14*, EN+15, EN+28~, EN+35*, EN+37, EN+38, INDV+10~, INDV+14*, INDV+15
, INDV+16
RESLT SEND+1~, SEND+2, SEND+3, LOGIC+7~, LOGIC+8!, LOGIC+16*, LOGIC+17
RGDFN EN+28~, EN+41*
RGL LOGIC+8!, LOGIC+9, LOGIC+19!
RGL( LOGIC+12, LOGIC+18
RGL(0 LOGIC+10
RGLOG EN+2~, LOG+1~
SITE EN+2~, EN+3*, EN+16*, EN+18*, EN+29*, EN+31, EN+33, LOGIC+9
SSN LOG+1~, LOG+2*, LOG+3, STATUS+1~, STATUS+9*, STATUS+12
STATUS STATUS+1~, STATUS+4*, STATUS+5, STATUS+6
TEXT LOG+1~, LOG+3*, LOG+4
U TASK+4, EN+2~, EN+3*, EN+12, EN+13, EN+14, EN+15, EN+17, EN+21, EN+25
, EN+26, EN+27, EN+42, EN+45, EN+50, EN+51, EN+52, INDV+16, INDV+21, SEND+3
X EN+5~, EN+6*, EN+24, EN+40*, CLEAN+1!
XMCHAN LOG+2*, LOG+5!
Y COMP+6, KILL+1!, EN+5~, EN+8, EN+9, EN+24*, EN+41, CLEAN+1!, STOP+4, STOP+9
, STATUS+1~, STATUS+6*
Y(0 EN+9
ZTDESC TASK+2*, KILL+1!
ZTIO TASK+1*, KILL+1!
ZTRTN TASK+1*, KILL+1!
ZTSAVE KILL+1!
ZTSAVE("DUZ" TASK+1*
ZTSK TASK+4, KILL+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All