MPIFQ0 ;ALB/RJS-QUERY HANDLER TOP LEVEL ; 10/28/20 8:38pm
Source file <MPIFQ0.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
INTACTV | ;Interactive standalone query
|
|
CIRNEXC | ; Exception Entry Point
|
|
VTQ | ||
JUMP | ||
INIPARS | ;
|
|
LOOP1 | ;
|
|
DECIDE | ;If no data in ^TMP that means the patient was not found in the MPI w/VTQ Query. So we go to A28 to add the patient to the MPI.
|
|
EXIT | ||
END | ||
UPDATE(DFN,ICN,CMOR) | ;
|
|
GETDATA(DIC,DA,MPIFAR,DR,EI) | ;
|
|
LOOP2 | ;
|
|
MSH | ;
|
|
MSA | ;
|
|
RDF | ;
|
|
QAK | ;**43 added check for potential matches
|
|
RDT | ;
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |