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 |