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 |