MPIFQUE3 ;SF/TNV-Generate Batch message for comparison of CMOR score ;FEB 27, 1998
Source file <MPIFQUE3.m>
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?
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | Classic Fileman Calls |