Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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?

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call