©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
BHLRLABT ; cmi/anchorage/maw - BHL ORU/R01 Ref Lab inbound Lab Message ; [ 02/28/2005 3:40 PM ]
Source file <BHLRLABT.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 |
| Kernel | 1 | $$FMTE^XLFDT |
| MailMan | 1 | ^XMB |
| VA Fileman | 1 | FILE^DICN |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OBX | ;-- parse the OBX segment
|
|
| BUL | ;-- file a bulletin if no test match
|
|
| NTEOBR | ;-- nte obr segment
|
|
| NTE | ;-- parse the NTE segment
|
|
| FILE | ;-- file the data in BLRTXLOG
|
|
| RORC | ;-- remove orc segments from messge
|
|
| CPT | ;-- let's build the cpt string
|
|
| MAP(BHLTYPC) | ;-- map the necessary incoming items to rpms
|
|
| EOJ | ;-- kill variables and quit
|
|
| PRS | ;-- parse the HL7 message array
|
|
| MSH | ;-- get data out of MSH
|
|
| CHKPAT | ;-- lookup the patient by chart
|
|
| MAIN | ;EP -- this is the main routine driver
|
|
| OBR | ;-- parse the OBR segment
|
|
| SNDBUL(VAR,VAR1,VAR2,VAR3,VAR4) | ||
| RFL | ;-- set the refile node in BLRSITE
|
|
| TESTMAP | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^BHLFO | MAIN+6 |
| ^BHLSETI | MAIN+1 |
| EOJ^BHLSETI | EOJ+2 |
| $$CHKDOB^BHLU | CHKPAT+11 |
| $$CHKPAT^BHLU | CHKPAT+8 |
| ^BLREVTQ | RFL+3 |
| $$GETIEN^BLRFLTL | FILE+15 |
| SETVALS^BLRFLTL | FILE+34 |
| ORU^BLRHL7 | MAIN+5 |
| ^BLRNFLTL | FILE+36 |
| INIT^BLRPARAM | FILE+32 |
| JOB^BLRPARAM | MAIN+15 |
| FILE^DICN | NTE+9 |
| $$HDATE^INHUT | CHKPAT+6, OBR+10, OBR+11, OBR+13, OBX+15, SNDBUL+5 |
| $$VAL^XBDIQ1 | MAP+8 |
| EN^XBVK | EOJ+1 |
| $$FMTE^XLFDT | BUL+4, SNDBUL+2, SNDBUL+6 |
| ^XMB | BUL+5, SNDBUL+9 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUTTSITE(1 | FILE+10 |
| ^BHLTMP($J | RORC+9*, RORC+12, RORC+13 |
| ^BLRCPT - [#9009021] | CPT+10, CPT+11 |
| ^BLRCPT("C" | CPT+6 |
| ^BLRRL - [#9009026] | TESTMAP+4, TESTMAP+5, CPT+2 |
| ^BLRRL("BTST" | TESTMAP+3 |
| ^BLRSITE - [#9009029] | MAIN+2, MAIN+5, CHKPAT+15, FILE+12 |
| ^BLRSITE("ACCT" | MSH+3 |
| ^BLRTXLOG("AHL7" | FILE+8 |
| ^DD(9009022 | NTE+8 |
| ^INTHU - [#4001] | RORC+3, RORC+5, RORC+6!, RORC+9, RORC+10!, RORC+13* |
| ^SC - [#44] | CHKPAT+16 |
| ^VA(200 - [#200] | MAP+2, MAP+4, MAP+6, MAP+7 |
| Name | Line Occurrences |
|---|---|
| BUL | OBR+18, OBR+21, OBX+19, OBX+24, FILE+5, FILE+6 |
| CHKPAT | MAIN+8 |
| CPT | OBR+19, OBR+23, OBX+18 |
| EOJ | MAIN+5, MAIN+14 |
| FILE | OBR+19, OBR+23, OBX+20 |
| MAP | OBR+15 |
| MSH | MAIN+7 |
| NTE | OBX+22 |
| NTEOBR | OBR+20, OBR+24 |
| OBR | PRS+1 |
| OBX | OBR+25 |
| PRS | MAIN+12 |
| RFL | MAIN+13 |
| SNDBUL | MAIN+10 |
| TESTMAP | OBX+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BAR6 | SNDBUL+3~ |
| >> BHL("NTE" | OBR+20, OBR+24 |
| >> BHL("OBX" | OBR+19, OBR+23, OBR+24 |
| >> BHLABN | OBX+14* |
| >> BHLACC | OBR+5*, OBR+6*, OBR+7*, BUL+4 |
| >> BHLACT | MSH+2*, MSH+3 |
| >> BHLBILL | FILE+24* |
| >> BHLCCNT | CPT+8*, CPT+12*, CPT+13 |
| >> BHLCDA | CPT+10* |
| BHLCLT | OBR+16, OBX+19, TESTMAP+2!, TESTMAP+4*, TESTMAP+5*, CPT+5, CPT+6, FILE+4, FILE+6, FILE+8 |
| BHLCLTE | OBR+4!, OBR+9*, OBX+4!, OBX+6*, BUL+2 |
| BHLCLTI | TESTMAP+2!, TESTMAP+4*, TESTMAP+5*, FILE+5 |
| BHLCMT | OBX+23! |
| BHLCMT( | NTE+4*, NTE+5* |
| BHLCNT | RORC+1~, RORC+2*, RORC+4*, RORC+7*, RORC+9 |
| >> BHLCPT | CPT+11*, CPT+13 |
| BHLCPTS | OBR+19!, OBR+23!, OBX+21!, CPT+9*, CPT+13* |
| >> BHLCTST | CPT+6*, CPT+7, CPT+10, CPT+11 |
| >> BHLDA | CHKPAT+3*, CHKPAT+4, CHKPAT+5, CHKPAT+6, CHKPAT+7, CPT+11, RFL+1*, RFL+2 |
| >> BHLDOB | MAIN+10, CHKPAT+6* |
| >> BHLDUZ2 | MSH+1*, MSH+3*, MSH+4*, CHKPAT+8, CHKPAT+14, CHKPAT+15 |
| >> BHLERCD | CHKPAT+9*, CHKPAT+12*, FILE+5*, FILE+6* |
| >> BHLERR | CHKPAT+9, CHKPAT+12, FILE+5, FILE+6 |
| >> BHLERR("FATAL" | MAIN+9, CHKPAT+10, CHKPAT+13, OBR+17* |
| >> BHLERR("WARNING" | OBR+21, OBR+22!, OBX+3, OBX+24, OBX+25! |
| BHLFLG | RORC+1~, RORC+2*, RORC+8* |
| >> BHLIEN | RFL+2*, RFL+3 |
| BHLIO | CPT+1!, CPT+3*, FILE+22* |
| >> BHLLFLE | FILE+28* |
| >> BHLLM | FILE+21* |
| >> BHLLOC | CHKPAT+15*, CHKPAT+16 |
| >> BHLLOCE | CHKPAT+16* |
| >> BHLLOE | CHKPAT+14*, MAP+9* |
| >> BHLNDA | NTE+3*, NTE+4, NTE+5 |
| >> BHLNM | MAIN+10, CHKPAT+5* |
| >> BHLNOST | MAIN+1* |
| >> BHLOBSDT | OBR+10*, BUL+4 |
| >> BHLODA | OBR+3*, OBR+5, OBR+6, OBR+8, OBR+9, OBR+10, OBR+11, OBR+12, OBR+13, OBR+14 , OBR+19, OBR+20, OBR+23, OBR+24 |
| >> BHLORDP | OBR+12*, MAP+1, MAP+2, MAP+4 |
| >> BHLORDPE | MAP+7* |
| >> BHLORDPI | MAP+2*, MAP+3, MAP+4*, MAP+6*, MAP+7 |
| BHLPAR | OBR+4!, OBR+14* |
| >> BHLPAT | CHKPAT+8*, CHKPAT+9, CHKPAT+11*, CHKPAT+12, MAP+8 |
| >> BHLPHASE | FILE+13* |
| >> BHLPNM | MAP+8* |
| BHLPSEQ | OBR+4!, OBR+19*, OBR+20, OBR+24*, OBX+18, CPT+4 |
| >> BHLQSIT | FILE+10*, FILE+11, FILE+12 |
| BHLR | CHKPAT+1~, CHKPAT+2*, OBR+1~, OBR+2*, OBX+1~, OBX+2*, NTE+1~, NTE+2*, SNDBUL+3~, SNDBUL+4* |
| >> BHLRAF | MSH+2 |
| BHLRDA | RORC+1~, RORC+3*, RORC+5, RORC+6, RORC+9, RORC+10 |
| BHLREFH | OBX+13*, OBX+21! |
| BHLREFL | OBX+10*, OBX+12*, OBX+21! |
| BHLREFR | OBX+9*, OBX+10, OBX+11, OBX+12, OBX+13, OBX+21! |
| >> BHLRESDT | OBR+13*, OBX+15* |
| >> BHLRL | MAIN+2*, MAIN+3, TESTMAP+3, TESTMAP+4, TESTMAP+5, CPT+2 |
| BHLRSLT | OBX+7*, OBX+21!, FILE+3 |
| BHLSAF | MAIN+11! |
| BHLSEQ | OBR+19, OBR+24, NTE+7, NTE+8, FILE+4!, FILE+15*, BUL+2 |
| BHLSEQ( | RFL+1, RFL+2 |
| >> BHLSEX | MAIN+10, CHKPAT+7* |
| BHLSPAR | OBX+4!, OBX+16* |
| >> BHLSPC | FILE+26* |
| >> BHLSPCE | FILE+27* |
| >> BHLSPDT | OBR+11* |
| >> BHLSRC | FILE+25* |
| >> BHLSSTMP | NTE+3, NTE+5 |
| >> BHLSTAT | FILE+23* |
| >> BHLSTMP | OBX+3, OBX+5, OBX+6, OBX+7, OBX+8, OBX+9, OBX+14, OBX+15 |
| BHLTDA | RORC+11~, RORC+12*, RORC+13 |
| >> BHLTMP | CHKPAT+3, CHKPAT+4, CHKPAT+5, CHKPAT+6, CHKPAT+7, OBR+3, OBR+5, OBR+6, OBR+8, OBR+9 , OBR+10, OBR+11, OBR+12, OBR+13, SNDBUL+5, SNDBUL+7 |
| BHLTST | OBR+4!, OBR+8*, OBX+4!, OBX+5*, TESTMAP+3, BUL+2 |
| BHLTYPC | MAP~, TESTMAP+4, TESTMAP+5 |
| >> BHLUIF | MAIN+5, MAIN+10, FILE+8 |
| BHLUNIT | OBX+8*, OBX+21! |
| >> BHLXDA | OBX+3*, OBX+5, OBX+6, OBX+7, OBX+8, OBX+9, OBX+14, OBX+15, OBX+16 |
| BHLZDA | TESTMAP+1~, TESTMAP+3*, TESTMAP+4, TESTMAP+5 |
| BLR | FILE+2! |
| >> BLRCMF | FILE+13* |
| >> BLRERR | FILE+13* |
| BLRF | FILE+2! |
| BLRF(0 | FILE+32 |
| BLRFDA | FILE+2! |
| >> BLRLINK | FILE+13* |
| >> BLRODTM | FILE+13*, FILE+15 |
| >> BLRPCC | FILE+12* |
| >> BLRSEQ | FILE+13*, FILE+15 |
| >> BLRTEST1 | FILE+13*, FILE+15 |
| >> BLRVARS | FILE+16*, FILE+17*, FILE+18*, FILE+19*, FILE+20*, FILE+21*, FILE+22*, FILE+23*, FILE+24*, FILE+25* , FILE+26*, FILE+27*, FILE+28*, FILE+29*, FILE+30*, FILE+31* |
| >> BLRXPCC | FILE+14* |
| >> CS | OBR+8, OBR+9, OBR+12, OBX+5, OBX+6 |
| >> DA(1 | NTE+8* |
| DD | NTE+6! |
| DIC | NTE+6!, NTE+7* |
| DIC("P" | NTE+8* |
| DIC(0 | NTE+8* |
| DO | NTE+6! |
| DUZ(2 | MAIN+2, MAIN+5, MSH+1, MSH+4, MAP+9 |
| >> PAT | MAIN+10, CHKPAT+4*, CHKPAT+8 |
| U | MAIN+5, CHKPAT+15, CHKPAT+16, OBR+7, MAP+7, TESTMAP+4, TESTMAP+5, CPT+2, CPT+11, FILE+10 , FILE+12 |
| >> UIF | BUL+3, RORC+3, RORC+5, RORC+6, RORC+9, RORC+10, RORC+12, RORC+13 |
| VAR | SNDBUL~, SNDBUL+1 |
| VAR1 | SNDBUL~, SNDBUL+1 |
| VAR2 | SNDBUL~, SNDBUL+1 |
| VAR3 | SNDBUL~, SNDBUL+2 |
| VAR4 | SNDBUL~, SNDBUL+2 |
| VAR5 | SNDBUL+3~, SNDBUL+5*, SNDBUL+6*, SNDBUL+8 |
| >> VAR6 | SNDBUL+7*, SNDBUL+8 |
| >> X | NTE+5* |
| >> XMB | BUL+1*, SNDBUL+1* |
| >> XMB(1 | BUL+2*, SNDBUL+1* |
| >> XMB(2 | BUL+2*, SNDBUL+1* |
| >> XMB(3 | BUL+2*, SNDBUL+1* |
| >> XMB(4 | BUL+3*, SNDBUL+2* |
| >> XMB(5 | BUL+4*, SNDBUL+2* |
| >> XMB(6 | BUL+4*, SNDBUL+8* |
| >> XMB(7 | SNDBUL+8* |