XUMFH ;CIOFO-SF/RAM - Master File HL7 Msg Handler ;11/16/05
Source file <XUMFH.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
LOC | ; -- Location Identification segment
|
|
ZFT | ; -- VHA Facility Type segment
|
|
MSH | ; -- MSH segment
|
|
MSA | ; -- MSA segment
|
|
QRD | ; -- QRD segment
|
|
MFE | ; -- MFE segment
|
|
MFI | ; -- MFI segment
|
|
VAL2() | ; -- parse component
|
|
INIT | ; -- initialize
|
|
EXIT | ; -- cleanup, and quit
|
|
ARRAY | ; -- query data stored in array (not filed)
|
|
SUBFILE | ; -- process subfile record
|
|
SUBCOMP | ; -- subcomponents
|
|
ZIN | ; -- VHA Institution segment
|
|
REPLY | ; -- master file response
|
|
ZZZ | ; -- get [Z...] segment(s)
|
|
MAIN | ; -- entry point
|
|
PROCESS | ; -- pull message text
|
|
ZL7 | ; -- Generic Master File
|
|
EM1 | ;
|
|
VALUE() | ; -- parse segment
|
|
EM(ERROR,ERR) | ; -- error message
|
Name | Field # of Occurrence |
---|---|
$$FIND1^DIC | MFE+13 |
FILE^DIE | ZZZ+54 |
UPDATE^DIE | ZZZ+36, SUBFILE+17, SUBFILE+25 |
$$ROOT^DILFD | QRD+26, REPLY+12 |
$$IEN^XUMF | MFE+13 |
CDSYS^XUMF | ZZZ+43 |
NPI^XUMF | ZZZ+23 |
EM^XUMFHM | EM+2 |
EM1^XUMFHM | EM1+2 |
MAIN^XUMFI | REPLY+19 |
$$DTYP^XUMFP | ZZZ+34, ZZZ+49, SUBFILE+10, SUBCOMP+10 |
$$MFI^XUMFP | MFI+8 |
MAIN^XUMFP | MFE+18, REPLY+18 |
SEGPRSE^XUMFXHL7 | ZZZ+9 |
SEQPRSE^XUMFXHL7 | VAL2+4 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(4 - [#4] | ZZZ+11 |
^TMP("DIERR" | INIT+2!, EXIT+4! |
^TMP("DILIST" | INIT+2!, EXIT+4! |
^TMP("HLA" | INIT+3!, EXIT+4! |
^TMP("HLS" | INIT+3!, EXIT+4! |
^TMP("XUMF ARRAY" | QRD+31!, ARRAY+8*, ARRAY+10* |
^TMP("XUMF ERROR" | INIT+3!, EXIT+2! |
^TMP("XUMF MFS" | ZZZ+14, ZZZ+22, ZZZ+25, ZZZ+27, ZZZ+30, ZZZ+45, ZZZ+59, SUBFILE+4, SUBFILE+5, SUBFILE+6 , SUBFILE+12, SUBFILE+13, SUBCOMP+3, SUBCOMP+4, SUBCOMP+5 |
Name | Line Occurrences |
---|---|
$$VAL2 | ZZZ+33, ZZZ+48, SUBFILE+9, SUBCOMP+8 |
@( | PROCESS+4, ZZZ+15, ZZZ+60 |
ARRAY | ZZZ+5 |
EM | MSA+8, QRD+11, QRD+15, MFI+7, MFI+11, MFE+8, MFE+16, ZZZ+12, ZZZ+38, ZZZ+56 , SUBFILE+19, SUBFILE+27, ARRAY+3, REPLY+11 |
EM1 | EXIT+2 |
EXIT | MAIN+6 |
INIT | MAIN+6 |
PROCESS | MAIN+6 |
REPLY | MAIN+6 |
SUBCOMP | ZZZ+26 |
SUBFILE | ZZZ+44 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ALL | MAIN+3~, QRD+18*, QRD+19 |
ARRAY | MAIN+2~, INIT+5*, QRD+17*, QRD+21, QRD+22, QRD+31, MFE+5, ZZZ+5 |
CDSYS | MAIN+4~, MFE+11*, MFE+13, ZZZ+11, ZZZ+43 |
CNT | MAIN+2~, INIT+5* |
CODE | MSA+2~, MSA+4*, MSA+6 |
ERR | MAIN+2~, MSA+7, MSA+8, QRD+11, QRD+15, MFI+7, MFI+11, MFE+8, MFE+14, MFE+16 , MFE+17!, ZZZ+7~, ZZZ+12, ZZZ+37, ZZZ+38, ZZZ+39!, ZZZ+55, ZZZ+56, ZZZ+57!, SUBFILE+2~ , SUBFILE+18, SUBFILE+19, SUBFILE+20!, SUBFILE+26, SUBFILE+27, SUBFILE+28!, ARRAY+3, ARRAY+4, REPLY+11, EM~ , EM+2 |
ERRCNT | MAIN+4~, INIT+5* |
ERROR | MAIN+2~, INIT+5*, MSA+7*, MSA+8, QRD+2, QRD+10*, QRD+11, QRD+14*, QRD+15, MFI+2 , MFI+6*, MFI+7, MFI+10*, MFI+11, MFE+2, MFE+18, ZZZ+2, ARRAY+4*, REPLY+10*, REPLY+11 , REPLY+18, REPLY+19, EM~, EM+2 |
FDA | ZZZ+7~, ZZZ+29~, ZZZ+52*, SUBFILE+15~, SUBFILE+23~ |
FDA( | ZZZ+35*, ZZZ+50*, SUBFILE+16*, SUBFILE+24*, SUBCOMP+11* |
FDA1 | ZZZ+7~, ZZZ+52 |
FDA1( | SUBFILE+30*, SUBFILE+32* |
FIELD | ZZZ+7~, ZZZ+27*, ZZZ+28, ZZZ+30, ZZZ+35, ZZZ+44, ZZZ+45, ZZZ+50, SUBFILE+2~, SUBFILE+5* , SUBFILE+32, SUBCOMP+4*, SUBCOMP+5, SUBCOMP+11 |
GROUP | MAIN+3~, QRD+19*, QRD+21, QRD+22 |
HDT | MAIN+3~ |
>> HL("ECH" | INIT+6 |
>> HL("FS" | INIT+6 |
>> HL("MTN" | QRD+23, REPLY+2, REPLY+3, REPLY+4, REPLY+8 |
HLCS | MAIN+2~, INIT+6*, QRD+26, QRD+27, QRD+28, MFE+7, MFE+10, MFE+13, ZZZ+34, ZZZ+43 , ZZZ+49, SUBFILE+10, ARRAY+2, ARRAY+10, REPLY+12, REPLY+13, REPLY+14 |
HLFS | MAIN+2~, INIT+6*, PROCESS+3, PROCESS+4, MSA+4, MSA+7, QRD+6, QRD+7, QRD+8, QRD+12 , MFI+5, MFI+8, MFE+5, ZZZ+19 |
>> HLNEXT | PROCESS+2 |
>> HLNODE | PROCESS+3, PROCESS+4, MSA+4, MSA+7, QRD+6, QRD+7, QRD+8, QRD+12, MFI+5, MFI+8 , MFE+5, MFE+8, ZZZ+19, ARRAY+3, ARRAY+8, ARRAY+10 |
>> HLQUIT | PROCESS+2 |
HLRESLTA | MAIN+2~ |
HLSCS | MAIN+4~, INIT+6*, SUBCOMP+9, SUBCOMP+10 |
I | MAIN+2~, QRD+6* |
IDX98 | MAIN+4~, ARRAY+7*, ARRAY+8 |
IEN | MAIN+2~, QRD+27*, QRD+28*, MFE+13*, MFE+14*, MFE+15, MFE+18, ZZZ+3, ZZZ+11, ZZZ+20 , ZZZ+62!, SUBFILE+15~, SUBFILE+23~, REPLY+13*, REPLY+14*, REPLY+16*, REPLY+18, REPLY+19 |
IEN(1 | SUBFILE+21, SUBFILE+29 |
IEN1 | ZZZ+29~, ZZZ+41 |
IEN1(1 | ZZZ+42, ZZZ+43 |
IENS | ZZZ+7~, ZZZ+20*, ZZZ+35, ZZZ+42*, ZZZ+50, SUBFILE+16, SUBFILE+21, SUBFILE+24, SUBFILE+29, SUBCOMP+11 |
IENS1 | SUBFILE+2~, SUBFILE+21*, SUBFILE+29*, SUBFILE+30, SUBFILE+31*, SUBFILE+32 |
IFN | MAIN+2~, QRD+25*, QRD+26, MFI+3, MFI+8*, MFI+9, MFE+13, MFE+18, ZZZ+11, ZZZ+23 , ZZZ+35, ZZZ+50, SUBFILE+2~, SUBFILE+4*, SUBFILE+16, SUBFILE+24, SUBFILE+30, SUBFILE+32, SUBCOMP+11, ARRAY+6 , REPLY+9*, REPLY+12, REPLY+16*, REPLY+18, REPLY+19 |
KEY | MAIN+3~, MFE+5*, MFE+7, MFE+10, MFE+13, MFE+14, ZZZ+12, ZZZ+43, ARRAY+2, ARRAY+10 |
KEY1 | SUBFILE+2~ |
MID | MAIN+3~ |
MKEY | SUBFILE+2~, SUBFILE+13*, SUBFILE+24, SUBFILE+30 |
MTPE | MAIN+2~ |
MULT | ZZZ+7~, SUBFILE+12*, SUBFILE+14, SUBFILE+22, SUBFILE+31 |
MULT( | SUBFILE+21*, SUBFILE+29*, SUBFILE+31 |
PARAM | MAIN+3~, MFE+18, REPLY+18, REPLY+19 |
PARAM( | QRD+6* |
PARAM("CDSYS" | QRD+29* |
POST | ZZZ+7~, ZZZ+59*, ZZZ+60 |
PRE | ZZZ+7~, ZZZ+14*, ZZZ+15 |
QID | MAIN+4~, QRD+7*, QRD+17 |
QRD | MAIN+3~, QRD+4*, QRD+6 |
REASON | MAIN+3~ |
ROOT | MAIN+3~, QRD+26*, QRD+27, REPLY+12*, REPLY+13 |
SEG | MAIN+3~, ZZZ+19*, ZZZ+22, ZZZ+25, ZZZ+27, ZZZ+30, ZZZ+45, SUBFILE+4, SUBFILE+5, SUBFILE+6 , SUBFILE+12, SUBFILE+13, SUBCOMP+3, SUBCOMP+4, SUBCOMP+5 |
SEQ | ZZZ+7~, ZZZ+21*, ZZZ+22*, ZZZ+23, ZZZ+24, ZZZ+25, ZZZ+27, ZZZ+30, ZZZ+32, ZZZ+45 , ZZZ+47, SUBFILE+4, SUBFILE+5, SUBFILE+6, SUBFILE+8, SUBFILE+12, SUBFILE+13, SUBFILE+14, SUBFILE+21, SUBFILE+29 , SUBFILE+31, SUBCOMP+3, SUBCOMP+4, SUBCOMP+5, SUBCOMP+7 |
SEQ1 | ZZZ+7~, ZZZ+24* |
SEQ2 | ZZZ+7~, ZZZ+24*, ZZZ+32, ZZZ+33, ZZZ+47, ZZZ+48, SUBFILE+8, SUBFILE+9, VAL2+6, SUBCOMP+7 |
SEQ3 | ZZZ+7~, ZZZ+25*, ZZZ+26, SUBCOMP+2*, SUBCOMP+3*, SUBCOMP+4, SUBCOMP+5, SUBCOMP+9 |
TYP | ZZZ+30*, ZZZ+34, ZZZ+45*, ZZZ+49, SUBFILE+2~, SUBFILE+6*, SUBFILE+10, SUBCOMP+5*, SUBCOMP+10 |
TYPE | MAIN+2~, INIT+5*, QRD+21*, QRD+22*, QRD+23*, MFE+18, REPLY+6*, REPLY+18, REPLY+19 |
U | MSA+7, ARRAY+4 |
VALUE | MAIN+3~, ZZZ+32*, ZZZ+33*, ZZZ+34*, ZZZ+35, ZZZ+47*, ZZZ+48*, ZZZ+49*, ZZZ+50, SUBFILE+8* , SUBFILE+9*, SUBFILE+10*, SUBFILE+14, SUBFILE+16, SUBFILE+32, SUBCOMP+7*, SUBCOMP+8*, SUBCOMP+9*, SUBCOMP+10*, SUBCOMP+11 |
WHAT | MAIN+4~, QRD+12*, QRD+13, QRD+25, REPLY+9 |
WHO | MAIN+4~, QRD+8*, QRD+9, QRD+18, QRD+19, QRD+26, QRD+27, QRD+28, REPLY+12, REPLY+13 , REPLY+14 |
X | MAIN+2~ |
XREF | MAIN+3~, QRD+26*, QRD+27, QRD+29, MFE+10*, MFE+11, MFE+13, REPLY+12*, REPLY+13 |
XUMF | ZZZ+7~, ZZZ+17* |
XUMFSEQ | ZZZ+7~ |
XUMFSEQ( | ZZZ+32, ZZZ+47, SUBFILE+8, SUBCOMP+7 |
XUMFSEQ(2 | ZZZ+11 |
XXX | VAL2+2~ |
XXX(1 | VAL2+6 |