RGFIU ;ALB/CJM-MPI/PD NDBI MERGE UTILITY (CONTINUED) ;08/27/99
Source file <RGFIU.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 6 | $$GET1^DID (CHK,FILE,UPDATE)^DIE ($$IENS,CLEAN)^DILF $$EXTERNAL^DILFD $$GET1^DIQ ^DIR |
| Clinical Information Resource Network | 2 | ($$MPINODE,$$STATNUM,$$UPD)^RGFIU EXC^RGHLLOG |
| Master Patient Index VistA | 2 | ($$GETDFN,$$GETICN)^MPIF001 $$MPINODE^MPIFAPI |
| Health Level Seven | 1 | LINK^HLUTIL3 |
| Kernel | 1 | $$NNT^XUAF4 |
| Registration | 1 | $$QUERYTF^VAFCTFU1 |
| 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 |
|---|---|---|
| STATNUM(IEN) | ;
|
|
| UPD(FILE,RGDA,DATA,ERROR) | ;File data into an existing record.
; Input: ; FILE - File or sub-file number ; RGDA - New name for traditional DA array, with same meaning. ; Pass by reference. ; DATA - Data array to file (pass by reference) ; Format: DATA(<field #>)=<value> |
|
| GETFIELD(FILE,FIELD,RGDA,ERROR,EXT) | ;Get field value from an existing record.
; Input: ; FILE - File or sub-file number ; RGDA - New name for traditional DA array, with same meaning. ; Pass by reference. ; FIELD - Field for which value is needed ; EXT - (optional) If $G(EXT) then returns the external display form of the value ; Output: ; Function Value - field value in internal format,"" if an error was encountered ; ERROR - optional error message - if needed, pass by reference |
|
| DELETE(FILE,RGDA,ERROR) | ;Delete an existing record.
; Input: ; FILE - File or sub-file number ; RGDA - New name for traditional DA array, with same meaning. ; Pass by reference. |
|
| ADD(FILE,RGDA,DATA,ERROR,IEN) | ;
|
|
| TESTVAL(FILE,FIELD,VALUE) | ;
|
|
| GETLINK(INSTIEN) | ;
|
|
| ASKYESNO(PROMPT,DEFAULT) | ;
|
|
| EXC(RGEXC,RGERR,RGDFN,RGMSGID,RGSITE) | ;
|
|
| SSN(DFN) | ;
|
|
| NAME(DFN) | ;
|
|
| ICN(DFN) | ;Return patient ICN
|
|
| DFN(ICN) | ;Return patient IEN
|
|
| MPINODE(DFN) | ;
|
|
| GETALL(DFN,MPIDATA) | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DID | TESTVAL+12 |
| CHK^DIE | TESTVAL+13 |
| FILE^DIE | UPD+26 |
| UPDATE^DIE | ADD+36 |
| $$IENS^DILF | UPD+22, GETFIELD+17, ADD+31 |
| CLEAN^DILF | UPD+32, UPD+33, GETFIELD+24, GETFIELD+25, ADD+43 |
| $$EXTERNAL^DILFD | TESTVAL+9 |
| $$GET1^DIQ | GETFIELD+18 |
| ^DIR | ASKYESNO+12 |
| LINK^HLUTIL3 | GETLINK+11 |
| $$GETDFN^MPIF001 | DFN+3 |
| $$GETICN^MPIF001 | EXC+10, ICN+2 |
| $$MPINODE^MPIFAPI | MPINODE+2 |
| $$MPINODE^RGFIU | GETALL+21 |
| $$STATNUM^RGFIU | GETALL+22, GETALL+31 |
| $$UPD^RGFIU | DELETE+16 |
| EXC^RGHLLOG | EXC+13 |
| $$QUERYTF^VAFCTFU1 | GETALL+27 |
| $$NNT^XUAF4 | STATNUM+6 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4 - [#4] | STATNUM+5 |
| Name | Line Occurrences |
|---|---|
| $$GETFIELD | SSN+2, NAME+2 |
| $$NAME | EXC+12 |
| $$SSN | EXC+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | GETALL+26~ |
| ARRAY( | GETALL+29, GETALL+30 |
| DATA | UPD~, DELETE+14~, DELETE+16, ADD~ |
| DATA( | UPD+24, UPD+25, DELETE+15*, ADD+33, ADD+34 |
| DEFAULT | ASKYESNO~, ASKYESNO+11 |
| DFN | SSN~, SSN+2, NAME~, NAME+2, ICN~, ICN+2, MPINODE~, MPINODE+2, GETALL~, GETALL+21 |
| >> DIERR | UPD+27, UPD+32, GETFIELD+19, GETFIELD+24, ADD+37 |
| DIR | ASKYESNO+8~ |
| DIR("A" | ASKYESNO+10* |
| DIR("B" | ASKYESNO+11* |
| DIR(0 | ASKYESNO+9* |
| >> DIRUT | ASKYESNO+13 |
| DISPLAY | TESTVAL+5~, TESTVAL+9*, TESTVAL+10 |
| ERROR | UPD~, UPD+21*, UPD+28*, UPD+30*, GETFIELD~, GETFIELD+16*, GETFIELD+20*, GETFIELD+22*, DELETE~, DELETE+16 , ADD~, ADD+38*, ADD+42* |
| ERRORS | UPD+16~, GETFIELD+11~, ADD+23~ |
| ERRORS(1 | UPD+28, GETFIELD+20, ADD+38 |
| EXT | GETFIELD~, GETFIELD+18 |
| FDA | UPD+16~, GETFIELD+11~, ADD+23~ |
| FDA( | UPD+25*, ADD+34* |
| FIELD | UPD+16~, UPD+23*, UPD+24*, UPD+25, GETFIELD~, GETFIELD+18, ADD+23~, ADD+32*, ADD+33*, ADD+34 , TESTVAL~, TESTVAL+3, TESTVAL+9, TESTVAL+12, TESTVAL+13 |
| FILE | UPD~, UPD+25, GETFIELD~, GETFIELD+18, DELETE~, DELETE+16, ADD~, ADD+34, TESTVAL~, TESTVAL+3 , TESTVAL+9, TESTVAL+12, TESTVAL+13 |
| HLL | GETALL+16~ |
| I | GETLINK+5~, GETLINK+12*, GETLINK+13, GETALL+16~ |
| ICN | EXC+8~, EXC+10*, EXC+11*, EXC+12, DFN~, DFN+2*, DFN+3 |
| IEN | STATNUM~, STATNUM+4, STATNUM+5, STATNUM+6, ADD~, ADD+35, ADD+39*, ADD+41*, ADD+44, ADD+45 , GETALL+16~ |
| IENA | ADD+23~ |
| IENA(1 | ADD+35*, ADD+41 |
| IENS | UPD+16~, UPD+22*, UPD+25, GETFIELD+11~, GETFIELD+17*, GETFIELD+18, ADD+23~, ADD+31*, ADD+34 |
| INST | GETALL+16~ |
| INSTIEN | GETLINK~, GETLINK+3, GETLINK+11 |
| ITEM | GETALL+26~, GETALL+28*, GETALL+29*, GETALL+30 |
| LINK | GETLINK+5~, GETLINK+11, GETALL+16~ |
| LINK( | GETLINK+13 |
| LINK(0 | GETLINK+12 |
| LINKNAME | GETLINK+5~, GETLINK+6*, GETLINK+13*, GETLINK+14 |
| MPIDATA | GETALL~, GETALL+18! |
| MPIDATA("CHKSUM" | GETALL+22* |
| MPIDATA("CMOR" | GETALL+22* |
| MPIDATA("ICN" | GETALL+22*, GETALL+25, GETALL+27 |
| MPIDATA("LOC" | GETALL+22* |
| MPIDATA("SUB" | GETALL+22* |
| MPIDATA("TF" | GETALL+33*, GETALL+34*, GETALL+35* |
| NODE | MPINODE+1~, MPINODE+2*, MPINODE+3*, MPINODE+4, GETALL+16~, GETALL+21*, GETALL+22, GETALL+26~, GETALL+30*, GETALL+31 , GETALL+33, GETALL+34, GETALL+35 |
| PROMPT | ASKYESNO~, ASKYESNO+10 |
| RESULT | TESTVAL+5~, TESTVAL+13, ICN+1~, ICN+2*, ICN+3, ICN+4, DFN+1~, DFN+3*, DFN+4, DFN+5 |
| RGDA | UPD~, UPD+21, UPD+22, GETFIELD~, GETFIELD+16, GETFIELD+17, DELETE~, DELETE+16, ADD~, ADD+30* , ADD+31, ADD+44* |
| RGDFN | EXC~, EXC+9, EXC+10, EXC+12, EXC+13 |
| RGERR | EXC~, EXC+12*, EXC+13 |
| RGEXC | EXC~, EXC+13 |
| RGMSGID | EXC~, EXC+13 |
| RGSITE | EXC~, EXC+13 |
| STAT | GETALL+16~, GETALL+26~, GETALL+31*, GETALL+32, GETALL+33, GETALL+34, GETALL+35 |
| STATION | STATNUM+3~, STATNUM+6*, STATNUM+7 |
| VALID | TESTVAL+5~, TESTVAL+6*, TESTVAL+10*, TESTVAL+12, TESTVAL+13*, TESTVAL+14 |
| VALUE | GETFIELD+11~, GETFIELD+18*, GETFIELD+24, TESTVAL~, TESTVAL+9, TESTVAL+13 |
| Y | ASKYESNO+8~, ASKYESNO+14 |