Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BHLRLABL

Package: IHS Support HL7 Interfaces

Routine: BHLRLABL


Information

BHLRLABL ; cmi/anchorage/maw - BHL ORU/R01 Ref Lab inbound Lab Message ; [ 02/28/2005 3:40 PM ]

Source Information

Source file <BHLRLABL.m>

Call Graph

Call Graph Total: 14

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  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Generic Interface System 1 IS00017J  

Entry Points

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 ;

External References

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

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> 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+3, 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All