MPIFDUP ;BIRM/CMC-RESOLVE DUP ACTION ;DEC 2, 2005
Source file <MPIFDUP.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
POT | ;EXCEPTION HANDLER CALLS HERE ;**53 MPIC_1853 The POT module is obsolete and is no longer being called.
|
|
EXC | ; Exception Entry Point
|
|
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 | ||
GETDATA(DIC,DA,MPIFAR,DR,EI) | ;
|
|
LOOP2 | ;
|
|
MSH | ;
|
|
MSA | ;
|
|
RDF | ;
|
|
QAK | ;**43 added check for potential matches
|
|
RDT | ;
|
|
RESEX(DFN,POT) | ;look for any pv reject (234) exceptions and resolve them for this DFN
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|