Call Graph
MPIF002 ;CIOFOSF/CMC-UTILITY ROUTINE OF APIS ;JUL 12, 1996
Source file <MPIF002.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | COMPARE+6 |
| $$DFN2ICN^MPIF001 | CLEAN+5 |
| $$GETICN^MPIF001 | GETICNS+9, CLEAN+3 |
| $$MPINODE^MPIFAPI | GETDFNS+9, GETICNS+11 |
| GETDATA^MPIFQ0 | TWODFNS+4, TWODFNS+6 |
| EXC^RGHLLOG | MIMDQ+3 |
| START^RGHLLOG | MIMDQ+2 |
| STOP^RGHLLOG | MIMDQ+4 |
| TFL^VAFCTFU1 | COMPARE+5 |
| $$SITE^VASITE | CLEAN+3, COMPARE+8 |
| ADD^XDRDADDS | TWODFNS+8 |
| $$IEN^XUAF4 | COMPARE+6 |
| $$NNT^XUAF4 | GETCMORH+9 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | GETICNH+4, GETICNH+5, GETICNH+7, GETICNH+8, GETCMORH+4, GETCMORH+5, GETCMORH+7, GETCMORH+8, GETDFNS+7, GETDFNS+9 , TWODFNS+3, CLEAN+9* |
| ^DPT("ACMOR" | CLEAN+11! |
| ^DPT("AFICN" | CLEAN+11! |
| ^DPT("AICN" | GETDFNS+10*, GETICNS+11*, CLEAN+11! |
| ^DPT("AICNL" | CLEAN+11! |
| ^DPT("SSN" | GETDFNS+4, GETDFNS+6 |
| ^TMP("MPIFVQQ" | COMPARE+11, COMPARE+12 |
| Name | Line Occurrences |
|---|---|
| $$GETDFNS | GETICNS+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARR | CLEAN~, COMPARE+4~, COMPARE+5 |
| ARR( | COMPARE+6 |
| ARR("ST#" | COMPARE+6*, COMPARE+7, COMPARE+9, COMPARE+14 |
| ARR1 | TWODFNS+1~ |
| ARR2 | TWODFNS+1~ |
| CMOR | GETCMORH+3~, GETCMORH+8*, GETCMORH+9*, GETCMORH+10, CLEAN+2~, CLEAN+3*, CLEAN+7, CLEAN+8*, CLEAN+11 |
| CMORHA | GETCMORH~, GETCMORH+4*, GETCMORH+5*, GETCMORH+11*, GETCMORH+12* |
| CMORHA( | GETCMORH+10* |
| CNT | GETICNH+3~, GETICNH+6*, GETICNH+9*, GETICNH+10, GETICNH+11, GETCMORH+3~, GETCMORH+6*, GETCMORH+10*, GETCMORH+11, GETCMORH+12 , GETDFNS+3~, GETDFNS+5*, GETDFNS+8*, GETDFNS+12 |
| COMMON | COMPARE~, COMPARE+4*, COMPARE+11, COMPARE+14* |
| DFN | GETICNH~, GETICNH+4, GETICNH+5, GETICNH+7, GETICNH+8, GETCMORH~, GETCMORH+4, GETCMORH+5, GETCMORH+7, GETCMORH+8 , GETDFNS+3~, GETDFNS+5*, GETDFNS+6*, GETDFNS+7, GETDFNS+8, GETDFNS+9, GETDFNS+10, GETICNS+4~, GETICNS+8*, GETICNS+9 , GETICNS+11, CLEAN~, CLEAN+3, CLEAN+5, CLEAN+9, CLEAN+11, COMPARE~, COMPARE+5, MIMDQ~, MIMDQ+3 |
| DFN1 | TWODFNS~, TWODFNS+2, TWODFNS+3, TWODFNS+4, TWODFNS+5, TWODFNS+8 |
| DFN2 | TWODFNS~, TWODFNS+2, TWODFNS+3, TWODFNS+6, TWODFNS+7, TWODFNS+8 |
| DFNS | GETICNS+4~, GETICNS+6*, GETICNS+7, GETICNS+8 |
| FICN | CLEAN+2~, CLEAN+5*, CLEAN+11 |
| ICN | GETICNH+3~, GETICNH+8*, GETICNH+9, GETDFNS+9*, GETDFNS+10, GETICNS+4~, GETICNS+9*, GETICNS+10, GETICNS+11*, TWODFNS~ , CLEAN+2~, CLEAN+3*, CLEAN+6, CLEAN+7, CLEAN+11, MIMDQ~ |
| ICN2 | MIMDQ~ |
| ICNHA | GETICNH~, GETICNH+4*, GETICNH+5*, GETICNH+10*, GETICNH+11* |
| ICNHA( | GETICNH+9* |
| IEN | GETICNH+3~, GETICNH+6*, GETICNH+7*, GETICNH+8, GETCMORH+3~, GETCMORH+6*, GETCMORH+7*, GETCMORH+8, COMPARE+4~, COMPARE+6* , COMPARE+7*, COMPARE+8, COMPARE+9, COMPARE+10*, COMPARE+11*, COMPARE+12 |
| INDEX | COMPARE~, COMPARE+11, COMPARE+12 |
| LIST | GETDFNS+3~, GETDFNS+5*, GETDFNS+8*, GETDFNS+13, GETICNS+4~, GETICNS+5*, GETICNS+10*, GETICNS+12 |
| MORE | COMPARE~, COMPARE+4*, COMPARE+9* |
| MPIFD1 | TWODFNS+10! |
| MPIFD1(2 | TWODFNS+5 |
| MPIFD2 | TWODFNS+10! |
| MPIFD2(2 | TWODFNS+7 |
| MPIRETN | CLEAN~, CLEAN+6*, CLEAN+7*, CLEAN+12* |
| MSG | MIMDQ~, MIMDQ+3, MIMDQ+5 |
| NAME1 | TWODFNS+1~, TWODFNS+5* |
| NAME2 | TWODFNS+1~, TWODFNS+7* |
| NODE | GETDFNS+3~, GETDFNS+9*, GETICNS+4~, GETICNS+11* |
| RET | GETICNH+3~, GETICNH+6*, GETCMORH+3~, GETCMORH+6* |
| SSN | GETDFNS~, GETDFNS+4, GETDFNS+6, GETICNS~, GETICNS+6 |
| SSN1 | TWODFNS+1~, TWODFNS+5* |
| SSN2 | TWODFNS+1~, TWODFNS+7* |
| ST | COMPARE+4~, COMPARE+12*, COMPARE+13, COMPARE+14 |
| TEXT | TWODFNS+1~ |
| TYPE | COMPARE+4~ |
| >> XDRSLT1 | TWODFNS+8 |
| XX | GETICNS+4~, GETICNS+8* |
