MPIF001 ;ALB/RJS/CMC-UTILITY ROUTINE OF APIS ; 10/28/20 8:35pm
Source file <MPIF001.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GETICN(DFN) | ; This function returns the ICN, including checksum for a given
; DFN or -1^error message ; INPUT: DFN - ien in Patient file |
|
EXIT1 | ;
|
|
GETDFN(ICN) | ; Returns DFN (ien Patient file) or -1^error message for a given ICN
; ICN - ICN for a given Patient in the Patient file |
|
EXIT2 | ;
|
|
ICNLC(DFN) | ;This API will return an ICN if one exists or create and return
; a Local ICN and update the appropriate fields if a Local was created ; DFN= Patient IEN ; Returns ICN (local or National including checksum) or -1^error msg |
|
CMOR2(DFN) | ; Returns CMOR Site Name or -1^error message
; DFN = Patient IEN |
|
CMORNAME(CIEN) | ; Returns CMOR site name or -1^error message
; CIEN - ien from Institution file |
|
GETVCCI(DFN) | ; Returns CMOR or -1^error message for a given patient
; DFN - ien of patient in Patient file |
|
EXIT3 | ;
|
|
CHANGE(DFN,VCCI) | ;
; ** This function is only to be used by approved packages ** |
|
REP | ||
EXIT4 | ;
|
|
SETICN(DFN,ICN,CHKSUM) | ;
; ** this function is to only be used by approved packages ** |
|
EXIT5 | ;
|
|
SETLOC(DFN,DELFLAG) | ;
; ** This function should be only used by approved packages ** |
|
EXIT6 | ;
|
|
IFLOCAL(DFN) | ; This function is used to see if a patient has a local ICN
; DFN - ien of patient in Patient file ; returned: 0 = patient does not exist, dfn is not defined or no MPI node OR Patient does not have a local ICN ; 1 = patient has a Local ICN assigned |
|
IFVCCI(DFN) | ; this function returns 1 if your facility is the CMOR for the given pt
; DFN - ien of patient in Patient file ; returns: 1 = your site in the CMOR for this patient ; -1 = your site is not the CMOR for this patient ; 0^ERROR MSG |
|
HL7CMOR(DFN,SEP) | ; This function returns the CMOR station number and institution name for
; the given patient. ; DFN = ien for patient in Patient file ; SEP = delimiter to separate station number and name ; returned: Station Number <sep> Institution name ; -1^error message |
|
EXIT7 | ;
|
|
ICN2DFN(ICN) | ; - This function will return a DFN based on the ICN entered
; **60 (elz) MVI_793 this is the new function to use the new single ; ICN field/cross-reference. The full ICN value must be passed in |
|
QICN2DFN | ;
|
|
DFN2ICN(DFN) | ; This function will return an ICN based on the DFN entered
; **60 (elz) MVI_793 this is the new function to use the new single ; ICN field. The full ICN value will be returned |
|
QDFN2ICN | ;
|
|
SETFICN(DFN,ICN) | ; - Set the Full ICN value
; ** this function is to only be used by approved packages ** |
|
QSETFICN | ;
|
|
LOCK | ;
|
|
UNLOCK | ;
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |