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 |