LREPI1 ;VA/DALOI/SED - EMERGING PATHOGENS HL7 BUILDER ; 5/9/98
Source file <LREPI1.m>
| Package | Total | Call Graph | 
|---|---|---|
| Health Level Seven | 1 | $$HLDATE^HLFNC | 
| Kernel | 1 | $$UP^XLFSTR | 
| Lab Service | 1 | CY^LREPI1A | 
| VA Fileman | 1 | $$GET1^DID | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| CH | ;BUILD HL7 MSG FOR CH SUBSCRIPT | |
| ANTI3 | ||
| SITECD | ;Determine the HL7 Speciman code from the Site and return LRCODE | |
| SEC12 | ; | |
| MI | ;TO BUILD INITIAL OBR SEGMENT FOR MICRO | |
| SEC3 | ;BUILD SUSCEPTIBILTY FOR ORGANISMS | |
| EN(LRDFN,SS,IVDT,SEQ) | ;Entry to build the HL7 Segment | |
| CY | ||
| EXIT | ;KILL THEN EXIT | |
| MIORG | ;TO BUILD ORGANISM OBX SEGMENT FOR MICRO | |
| ANTI12 | ||
| TYPE | ;DETERMINES THE CORRECT NLT CODE TO USE | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DD(63.39 | ANTI12+5, ANTI12+8 | 
| ^LAB(60 - [#60] | CH+19, CH+21, CH+24, CH+25, CH+26, CH+27, CH+32 | 
| ^LAB(61 - [#61] | SITECD+3, SITECD+4, CH+12, MI+9, SEC3+17, SEC12+16 | 
| ^LAB(61.2 - [#61.2] | MIORG+8, MIORG+15 | 
| ^LAB(62.06 - [#62.06] | SEC3+7, ANTI3+3, ANTI3+6, ANTI3+8, ANTI3+9 | 
| ^LAB(64.061 - [#64.061] | SITECD+5, SITECD+6, SITECD+7 | 
| ^LAB(95.3 - [#95.3] | CH+35 | 
| ^LAM - [#64] | CH+28, CH+29, CH+30, ANTI3+10 | 
| ^LR - [#63] | CH+2, CH+6, CH+8, CH+10, CH+16, CH+17, MI+1, MI+6, MI+7, MI+12 , MI+14, MIORG+1, MIORG+2, MIORG+4, MIORG+5, MIORG+7, SEC3+2, SEC3+3, SEC3+6, SEC3+8 , SEC3+15, ANTI3+2, ANTI3+4, ANTI3+12, ANTI3+13, SEC12+2, SEC12+3, SEC12+6, SEC12+7, SEC12+14 , ANTI12+2, ANTI12+3, ANTI12+11, ANTI12+12 | 
| ^TMP("HL7" | EN+6!, CH+13*, CH+41*, MI+10*, MIORG+16*, SEC3+18*, ANTI3+14*, SEC12+17*, ANTI12+13* | 
| ^TMP($J | CH+22 | 
| Name | Line Occurrences | 
|---|---|
| @( | EN+10, MI+14 | 
| MIORG | MI+12 | 
| SITECD | CH+11, MI+8, SEC3+16, SEC12+15 | 
| TYPE | MI+12, MI+14 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| CNT | EN+8*, EXIT+1!, CH+13, CH+41*, MI+10, MIORG+16*, SEC3+18*, ANTI3+14*, SEC12+17*, ANTI12+13* | 
| >> HLFS | CH+4, CH+5, CH+6, CH+7, CH+12, CH+13, CH+23, CH+32, CH+36, CH+37 , CH+38, CH+39, CH+40, CH+41, MI+3, MI+4, MI+5, MI+6, MI+9, MI+10 , MIORG+10, MIORG+11, MIORG+12, MIORG+13, MIORG+14, MIORG+15, MIORG+16, SEC3+11, SEC3+12, SEC3+13 , SEC3+14, SEC3+17, SEC3+18, ANTI3+7, ANTI3+11, ANTI3+12, ANTI3+13, ANTI3+14, SEC12+10, SEC12+11 , SEC12+12, SEC12+13, SEC12+16, SEC12+17, ANTI12+9, ANTI12+10, ANTI12+11, ANTI12+12, ANTI12+13 | 
| IND | EXIT+1!, CH+15*, CH+16*, CH+17, CH+19, CH+21 | 
| IVDT | EN~, EN+9, CH+2, CH+6, CH+7, CH+8, CH+10, CH+16, CH+17, MI+1 , MI+5, MI+6, MI+7, MI+12, MI+14, MIORG+1, MIORG+2, MIORG+4, MIORG+5, MIORG+7 , SEC3+2, SEC3+3, SEC3+6, SEC3+8, SEC3+14, SEC3+15, ANTI3+2, ANTI3+4, ANTI3+12, ANTI3+13 , SEC12+2, SEC12+3, SEC12+6, SEC12+7, SEC12+13, SEC12+14, ANTI12+2, ANTI12+3, ANTI12+11, ANTI12+12 | 
| LRAND | EXIT+1!, SEC3+5*, SEC3+6*, SEC3+7, SEC3+8, ANTI3+1*, ANTI3+2*, ANTI3+3, ANTI3+4, ANTI3+6 , ANTI3+12, ANTI3+13, SEC12+5*, SEC12+6*, SEC12+7, ANTI12+1*, ANTI12+2*, ANTI12+3, ANTI12+5, ANTI12+10 , ANTI12+11, ANTI12+12 | 
| LRANDFG | SEC3+5*, SEC3+8*, SEC3+9, SEC3+10!, SEC12+5*, SEC12+7*, SEC12+8, SEC12+9! | 
| LRANT | EXIT+1!, ANTI3+6*, ANTI3+8, ANTI3+9, ANTI12+6*, ANTI12+8*, ANTI12+10 | 
| LRCODE | EXIT+2!, SITECD+1*, SITECD+3*, SITECD+7*, CH+12, MI+9, SEC3+17, SEC12+16 | 
| >> LRCS | CH+5, CH+12, CH+27, CH+29, CH+30, CH+31, CH+32, CH+36, MI+4, MI+9 , TYPE+1, TYPE+2, TYPE+3, TYPE+4, TYPE+5, MIORG+15, SEC3+12, SEC3+13, SEC3+17, ANTI3+8 , ANTI3+10, SEC12+11, SEC12+12, SEC12+16, ANTI12+10 | 
| LRDATA | EXIT+1!, CH+3!, CH+4*, CH+5*, CH+6*, CH+7*, CH+12*, CH+13, CH+20!, CH+23* , CH+32*, CH+36*, CH+37*, CH+38*, CH+39*, CH+40*, CH+41, MI+2!, MI+3*, MI+4* , MI+5*, MI+6*, MI+9*, MI+10, MIORG+9!, MIORG+10*, MIORG+11*, MIORG+12*, MIORG+13*, MIORG+14* , MIORG+15*, MIORG+16, SEC3+10!, SEC3+11*, SEC3+12*, SEC3+13*, SEC3+14*, SEC3+17*, SEC3+18, ANTI3+5! , ANTI3+7*, ANTI3+11*, ANTI3+12*, ANTI3+13*, ANTI3+14, SEC12+9!, SEC12+10*, SEC12+11*, SEC12+12*, SEC12+13* , SEC12+16*, SEC12+17, ANTI12+4!, ANTI12+9*, ANTI12+10*, ANTI12+11*, ANTI12+12*, ANTI12+13 | 
| LRDFN | EN~, EN+9, CH+2, CH+6, CH+8, CH+10, CH+16, CH+17, MI+1, MI+6 , MI+7, MI+12, MI+14, MIORG+1, MIORG+2, MIORG+4, MIORG+5, MIORG+7, SEC3+2, SEC3+3 , SEC3+6, SEC3+8, SEC3+15, ANTI3+2, ANTI3+4, ANTI3+12, ANTI3+13, SEC12+2, SEC12+3, SEC12+6 , SEC12+7, SEC12+14, ANTI12+2, ANTI12+3, ANTI12+11, ANTI12+12 | 
| LRES | EXIT+1!, CH+17*, CH+18, CH+34, CH+37 | 
| >> LRFILE | ANTI12+6* | 
| LRFLD | EXIT+2!, ANTI12+6* | 
| LRINLT | EXIT+1!, CH+27*, CH+28, CH+29, CH+30 | 
| >> LRIPT | SITECD+4*, SITECD+5, SITECD+6, SITECD+7 | 
| LRLNCNAM | CH+34*, CH+35*, CH+36, CH+42! | 
| LRLOINC | CH+34*, CH+35, CH+36, CH+42! | 
| >> LRNLT | CH+27*, CH+29*, CH+30*, CH+31*, CH+32 | 
| LRNT | EXIT+1!, ANTI12+5*, ANTI12+6, ANTI12+8 | 
| >> LRPATH | CH+22 | 
| LRRDTE | EXIT+1!, CH+8*, CH+9*, CH+39, CH+40, MIORG+3*, MIORG+4*, MIORG+5*, MIORG+6*, MIORG+13 | 
| LRREF | EXIT+1!, CH+25*, CH+26*, CH+38 | 
| LRTST | EXIT+1!, CH+21*, CH+22, CH+24, CH+25, CH+26, CH+27, CH+32 | 
| LRUNIT | EXIT+1!, CH+24*, CH+38 | 
| ND | EXIT+2!, MI+12*, MI+14*, TYPE+1, TYPE+2, TYPE+3, TYPE+4, TYPE+5, MIORG+1, MIORG+2 , MIORG+4, MIORG+5, MIORG+7, SEC3+2, SEC3+3, SEC3+6, SEC3+8, ANTI3+2, ANTI3+4, ANTI3+12 , ANTI3+13, SEC12+2, SEC12+3, SEC12+6, SEC12+7, ANTI12+2, ANTI12+3, ANTI12+11, ANTI12+12 | 
| NLT | EXIT+2!, ANTI3+8*, ANTI3+10*, ANTI3+11 | 
| NLTP | EXIT+2!, ANTI3+9*, ANTI3+10 | 
| ORGNB | EXIT+2!, MIORG+1*, MIORG+2, MIORG+7, MIORG+10, MIORG+12, SEC3+2*, SEC3+3, SEC3+6, SEC3+8 , SEC3+13, ANTI3+2, ANTI3+4, ANTI3+12, ANTI3+13, SEC12+2*, SEC12+3, SEC12+6, SEC12+7, SEC12+12 , ANTI12+2, ANTI12+3, ANTI12+11, ANTI12+12 | 
| ORGPT | EXIT+2!, MIORG+7*, MIORG+8, MIORG+15 | 
| SEQ | EN~, EN+7*, EXIT+3, CH+4, MI+3, SEC3+10*, SEC3+11, SEC12+9*, SEC12+10 | 
| SEQX | EXIT+2!, CH+15*, CH+23, CH+41*, ANTI3+1*, ANTI3+7, ANTI3+14*, ANTI12+1*, ANTI12+9, ANTI12+13* | 
| SITE | EXIT+2!, SITECD+2, SITECD+3, SITECD+4, CH+10*, CH+12, CH+24, CH+25, CH+26, MI+7* , MI+9, SEC3+15*, SEC3+17, SEC12+14*, SEC12+16 | 
| SS | EN~, EN+9, EN+10, CH+2, CH+6, CH+8, CH+10, MI+1, MI+6, MI+7 , MI+12, MI+14, MIORG+1, MIORG+2, MIORG+4, MIORG+5, MIORG+7, SEC3+2, SEC3+3, SEC3+6 , SEC3+8, SEC3+15, ANTI3+2, ANTI3+4, ANTI3+12, ANTI3+13, SEC12+2, SEC12+3, SEC12+6, SEC12+7 , SEC12+14, ANTI12+2, ANTI12+3, ANTI12+11, ANTI12+12 | 
| TYPE | EXIT+2!, TYPE+1*, TYPE+2*, TYPE+3*, TYPE+4*, TYPE+5*, MIORG+11, SEC3+13, SEC12+12 | 
| U | SITECD+3, SITECD+4, SITECD+6, SITECD+7, CH+6, CH+8, CH+10, CH+12, CH+24, CH+25 , CH+26, CH+29, CH+30, CH+32, CH+34, CH+35, CH+37, MI+6, MI+7, MI+9 , MIORG+4, MIORG+5, MIORG+7, MIORG+15, SEC3+8, SEC3+15, SEC3+17, ANTI3+4, ANTI3+8, ANTI3+10 , ANTI3+12, ANTI3+13, SEC12+7, SEC12+14, SEC12+16, ANTI12+3, ANTI12+8, ANTI12+11, ANTI12+12 | 
| Name | Field # of Occurrence | 
|---|---|
| $T(@SS | EN+10 |