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 |