MPIF002 ;CIOFOSF/CMC-UTILITY ROUTINE OF APIS ;JUL 12, 1996
Source file <MPIF002.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETICNH(DFN,ICNHA) | ;Return all ICNs (including checksum) in ICN History for patient DFN
; DFN = IEN of patient in the Patient (#2) file ; ICNHA - array where ICN History will be returned. |
|
| GETCMORH(DFN,CMORHA) | ;Return all CMORs in CMOR History for patient DFN
; DFN = IEN of patient in the Patient (#2) file ; CMORHA - array where CMOR history will be returned |
|
| GETDFNS(SSN) | ; Find DFN for a given SSN - all if there are more than one
; SSN - SSN for patient attempted to be found in the Patient file (#2) ; Return - list of DFNs or -1^error msg |
|
| GETICNS(SSN) | ; Find all ICNs for a given SSN -- all if there are more than one
; patient with that SSN ; SSN - SSN for patient attempted to be found in the Patient file (#2) ; Returned is a list of ICNs for this SSN |
|
| TWODFNS(DFN1,DFN2,ICN) | ;Logging Exceptions when there are two DFNs trying to have the same ICN, which isn't allowed.
|
|
| CLEAN(DFN,ARR,MPIRETN) | ; clean up MPI data from DPT for "stub" records
; called from UPDATE^MPIFAPI |
|
| COMPARE(DFN,INDEX,COMMON,MORE) | ; Checking if TFs in common between CURRENT PT (DFN)
; and ^TMP("MPIFVQQ",$J,INDEX,"TF",ien) OR if patient is shared to exclude those with TYPE of OTHER ; INDEX is the selection entry ; COMMON is the value returned indicating if there are TFs in common |
|
| MIMDQ(ICN,ICN2,DFN,MSG) | ; while reviewing potential duplicates, site picked to link 2 patients together with TFs in common
; send exception to IMDQ team |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
