©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BHLRLABI ; cmi/anchorage/maw - BHL ORU/R01 Ref Lab inbound Lab Message ;
Source file <BHLRLABI.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Changes To Lab | 5 | ^BLREVTQ ($$GETIEN,SETVALS)^BLRFLTL ORU^BLRHL7 ^BLRNFLTL (INIT,JOB)^BLRPARAM |
| IHS Support HL7 Interfaces | 3 | ^BHLFO (,EOJ)^BHLSETI ($$CHKDOB,$$CHKPAT)^BHLU |
| IHS VA Utilities | 2 | $$VAL^XBDIQ1 EN^XBVK |
| IHS Generic Interface System | 1 | $$HDATE^INHUT |
| MailMan | 1 | ^XMB |
| VA Fileman | 1 | ^DIC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAP | ;-- map the necessary incoming items to rpms
|
|
| PRS | ;-- parse the HL7 message array
|
|
| OBR | ;-- parse the OBR segment
|
|
| FILE | ;-- file the data in BLRTXLOG
|
|
| CPT | ;-- let's build the cpt string
|
|
| EOJ | ;-- kill variables and quit
|
|
| OBX | ;-- parse the OBX segment
|
|
| TESTMAP | ;
|
|
| CHKPAT | ;-- lookup the patient by chart
|
|
| MAIN | ;EP -- this is the main routine driver
|
|
| NTE | ;-- parse the NTE segment
|
|
| RFL | ;-- set the refile node in BLRSITE
|
|
| BUL | ;-- file a bulletin if no test match
|
| Name | Field # of Occurrence |
|---|---|
| ^BHLFO | MAIN+6 |
| ^BHLSETI | MAIN+3 |
| EOJ^BHLSETI | EOJ+2 |
| $$CHKDOB^BHLU | CHKPAT+10 |
| $$CHKPAT^BHLU | CHKPAT+7 |
| ^BLREVTQ | RFL+3 |
| $$GETIEN^BLRFLTL | FILE+8 |
| SETVALS^BLRFLTL | FILE+26 |
| ORU^BLRHL7 | MAIN+5 |
| ^BLRNFLTL | FILE+28 |
| INIT^BLRPARAM | FILE+24 |
| JOB^BLRPARAM | MAIN+12 |
| ^DIC | NTE+9 |
| $$HDATE^INHUT | CHKPAT+5, OBR+8, OBR+9, OBR+11, OBX+13 |
| $$VAL^XBDIQ1 | MAP+4 |
| EN^XBVK | EOJ+1 |
| ^XMB | BUL+3 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUTTSITE(1 | FILE+3 |
| ^BLRCPT - [#9009021] | CPT+7, CPT+8 |
| ^BLRCPT("C" | CPT+3 |
| ^BLRRL - [#9009026] | TESTMAP+3 |
| ^BLRRL("BTST" | TESTMAP+1 |
| ^BLRSITE - [#9009029] | MAIN+1, MAIN+5, FILE+5 |
| ^DD(9009022 | NTE+8 |
| ^DIC(6 - [#6] | MAP+3 |
| ^VA(200 - [#200] | MAP+2 |
| Name | Line Occurrences |
|---|---|
| BUL | OBR+15, OBX+21 |
| CHKPAT | MAIN+7 |
| CPT | OBR+14, OBX+16 |
| EOJ | MAIN+5, MAIN+11 |
| FILE | OBR+14, OBX+17 |
| MAP | OBR+13 |
| NTE | OBX+19 |
| OBR | PRS+1 |
| OBX | OBR+17 |
| PRS | MAIN+9 |
| RFL | MAIN+10 |
| TESTMAP | OBX+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> BHL("OBX" | OBR+14 |
| >> BHLABN | OBX+12* |
| >> BHLACC | OBR+5* |
| >> BHLBILL | FILE+17* |
| >> BHLCCNT | CPT+5*, CPT+9*, CPT+10 |
| >> BHLCDA | CPT+7* |
| >> BHLCLT | TESTMAP+3*, TESTMAP+4, CPT+2, CPT+3 |
| BHLCLTE | OBR+4!, OBR+7*, OBX+4!, OBX+6*, BUL+2 |
| >> BHLCLTI | TESTMAP+1*, TESTMAP+2, TESTMAP+3 |
| BHLCMT | OBX+20! |
| BHLCMT( | NTE+4*, NTE+5* |
| >> BHLCPT | CPT+8*, CPT+10 |
| BHLCPTS | OBR+14!, OBX+18!, CPT+6*, CPT+10* |
| >> BHLCTST | CPT+3*, CPT+4, CPT+7, CPT+8 |
| >> BHLDA | CHKPAT+3*, CHKPAT+4, CHKPAT+5, CHKPAT+6, CPT+8, RFL+1*, RFL+2 |
| >> BHLDOB | CHKPAT+5* |
| >> BHLERCD | CHKPAT+8*, CHKPAT+11*, TESTMAP+2*, TESTMAP+4* |
| >> BHLERR | CHKPAT+8, CHKPAT+11, TESTMAP+2, TESTMAP+4 |
| >> BHLERR("FATAL" | MAIN+8, CHKPAT+9, CHKPAT+12 |
| >> BHLERR("WARNING" | OBR+15, OBR+16!, OBX+3, OBX+21, OBX+22! |
| >> BHLIEN | RFL+2*, RFL+3 |
| >> BHLIO | FILE+15* |
| >> BHLLFLE | FILE+21* |
| >> BHLLM | FILE+14* |
| >> BHLLOE | CHKPAT+13*, MAP+5* |
| >> BHLNDA | NTE+3*, NTE+4, NTE+5 |
| >> BHLNOST | MAIN+3* |
| >> BHLOBSDT | OBR+8* |
| >> BHLODA | OBR+3*, OBR+5, OBR+6, OBR+7, OBR+8, OBR+9, OBR+10, OBR+11, OBR+12, OBR+14 |
| >> BHLORDP | OBR+10*, MAP+2, MAP+3 |
| >> BHLORDPE | MAP+3* |
| >> BHLORDPI | MAP+1, MAP+2* |
| BHLPAR | OBR+4!, OBR+12* |
| >> BHLPAT | CHKPAT+7*, CHKPAT+8, CHKPAT+10*, CHKPAT+11, MAP+4 |
| >> BHLPHASE | FILE+6* |
| >> BHLPNM | MAP+4* |
| BHLPSEQ | OBR+4!, OBR+14*, OBX+16, CPT+1 |
| >> BHLQSIT | FILE+3*, FILE+4, FILE+5 |
| BHLR | CHKPAT+1~, CHKPAT+2*, OBR+1~, OBR+2*, OBX+1~, OBX+2*, NTE+1~, NTE+2* |
| >> BHLREFH | OBX+11* |
| >> BHLREFL | OBX+10* |
| >> BHLREFR | OBX+9*, OBX+10, OBX+11 |
| >> BHLRESDT | OBR+11*, OBX+13* |
| >> BHLRL | MAIN+1*, MAIN+2, TESTMAP+1, TESTMAP+3 |
| >> BHLRSLT | OBX+7* |
| >> BHLSEQ | OBR+14, NTE+7, NTE+8, FILE+8*, BUL+2 |
| >> BHLSEQ( | RFL+1, RFL+2 |
| >> BHLSEX | CHKPAT+6* |
| BHLSPAR | OBX+4!, OBX+14* |
| >> BHLSPC | FILE+19* |
| >> BHLSPCE | FILE+20* |
| >> BHLSPDT | OBR+9* |
| >> BHLSRC | FILE+18* |
| >> BHLSSTMP | NTE+3, NTE+5 |
| >> BHLSTAT | FILE+16* |
| >> BHLSTMP | OBX+3, OBX+5, OBX+6, OBX+7, OBX+8, OBX+9, OBX+12, OBX+13 |
| >> BHLTMP | CHKPAT+3, CHKPAT+4, CHKPAT+5, CHKPAT+6, OBR+3, OBR+5, OBR+6, OBR+7, OBR+8, OBR+9 , OBR+10, OBR+11 |
| BHLTST | OBR+4!, OBR+6*, OBX+4!, OBX+5*, TESTMAP+1, BUL+2 |
| >> BHLUIF | MAIN+5 |
| >> BHLUNIT | OBX+8* |
| >> BHLXDA | OBX+3*, OBX+5, OBX+6, OBX+7, OBX+8, OBX+9, OBX+12, OBX+13, OBX+14 |
| BLR | FILE+2! |
| >> BLRCMF | FILE+6* |
| >> BLRERR | FILE+6* |
| BLRF | FILE+2! |
| BLRF(0 | FILE+24 |
| BLRFDA | FILE+2! |
| >> BLRLINK | FILE+6* |
| >> BLRODTM | FILE+6*, FILE+8 |
| >> BLRPCC | FILE+5* |
| >> BLRSEQ | FILE+6*, FILE+8 |
| >> BLRTEST1 | FILE+6*, FILE+8 |
| >> BLRVARS | FILE+9*, FILE+10*, FILE+11*, FILE+12*, FILE+13*, FILE+14*, FILE+15*, FILE+16*, FILE+17*, FILE+18* , FILE+19*, FILE+20*, FILE+21*, FILE+22*, FILE+23* |
| >> BLRXPCC | FILE+7* |
| >> CS | OBR+6, OBR+7, OBX+5, OBX+6 |
| >> DA(1 | NTE+8* |
| DIC | NTE+6!, NTE+7* |
| DIC("P" | NTE+8* |
| DIC(0 | NTE+8* |
| DUZ(2 | MAIN+1, MAIN+5, CHKPAT+7, CHKPAT+13, MAP+5 |
| >> PAT | CHKPAT+4*, CHKPAT+7 |
| U | MAIN+5, MAP+3, TESTMAP+3, CPT+8, FILE+3, FILE+5 |
| >> X | NTE+5* |
| >> XMB | BUL+1* |
| >> XMB(1 | BUL+2* |
| >> XMB(2 | BUL+2* |
| >> XMB(3 | BUL+2* |