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 |