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: BHLRLABQ

Package: IHS Support HL7 Interfaces

Routine: BHLRLABQ


Information

BHLRLABQ ; cmi/anchorage/maw - BHL ORU/R01 Ref Lab inbound Lab Message ;

Source Information

Source file <BHLRLABQ.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 IS00016J  

Entry Points

Name Comments DBIA/ICR reference
PRS ;-- parse the HL7 message array
BUL ;-- file a bulletin if no test match
NTE ;-- parse the NTE segment
FILE ;-- file the data in BLRTXLOG
CPT ;-- let's build the cpt string
MAP(BHLTYPC) ;-- map the necessary incoming items to rpms
EOJ ;-- kill variables and quit
OBX ;-- parse the OBX segment
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) ;-- fire a generic bulletin
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+13
$$CHKPAT^BHLU CHKPAT+10
^BLREVTQ RFL+3
$$GETIEN^BLRFLTL FILE+16
SETVALS^BLRFLTL FILE+37
ORU^BLRHL7 MAIN+5
^BLRNFLTL FILE+39
INIT^BLRPARAM FILE+35
JOB^BLRPARAM MAIN+14
FILE^DICN NTE+9
$$HDATE^INHUT CHKPAT+8, OBR+11, OBR+13, OBR+15, OBX+17, SNDBUL+6
$$VAL^XBDIQ1 MAP+9
EN^XBVK EOJ+1
$$FMTE^XLFDT BUL+4, SNDBUL+2, SNDBUL+7
^XMB BUL+5, SNDBUL+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTSITE(1 FILE+11
^BLRCPT - [#9009021] CPT+10, CPT+11
^BLRCPT("C" CPT+6
^BLRRL - [#9009026] CHKPAT+18, TESTMAP+4, TESTMAP+5, CPT+2
^BLRRL("BTST" TESTMAP+3
^BLRSITE - [#9009029] MAIN+2, MAIN+5, FILE+13
^BLRSITE("ACCT" MSH+3
^BLRTXLOG("AHL7" FILE+8
^DD(9009022 NTE+8
^SC - [#44] CHKPAT+19
^VA(200 - [#200] MAP+2, MAP+5, MAP+7, MAP+8

Label References

Name Line Occurrences
BUL OBR+20, OBX+21, OBX+26, FILE+5, FILE+6, FILE+17, FILE+18
CHKPAT MAIN+8
CPT OBR+21, OBX+20
EOJ MAIN+5, MAIN+13
FILE OBR+21, OBX+22
MAP OBR+17
MSH MAIN+7
NTE OBX+24
OBR PRS+1
OBX OBR+24
PRS MAIN+11
RFL MAIN+12
SNDBUL MAIN+10
TESTMAP OBX+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BHL("OBX" OBR+21
BHLABN OBR+5!, OBX+5!, OBX+16*
>> BHLACC OBR+8*, BUL+4
>> BHLACT MSH+2*, MSH+3
>> BHLBILL FILE+27*
>> BHLCCNT CPT+8*, CPT+12*, CPT+13
>> BHLCDA CPT+10*
BHLCLT OBR+5!, OBR+18, OBX+5!, OBX+21, TESTMAP+2!, TESTMAP+4*, TESTMAP+5*, CPT+5, CPT+6, FILE+4
, FILE+6, FILE+8, FILE+18
BHLCLTE OBR+4!, OBR+10*, OBX+4!, OBX+7*, BUL+3
BHLCLTI TESTMAP+2!, TESTMAP+4*, TESTMAP+5*, FILE+5, FILE+17
BHLCMT OBX+25!
BHLCMT( NTE+4*, NTE+5*
>> BHLCPT CPT+11*, CPT+13
BHLCPTS OBR+21!, OBX+23!, CPT+9*, CPT+13*
>> BHLCTST CPT+6*, CPT+7, CPT+10, CPT+11
>> BHLDA CHKPAT+3*, CHKPAT+5, CHKPAT+7, CHKPAT+8, CHKPAT+9, CPT+11, RFL+1*, RFL+2
>> BHLDOB MAIN+10, CHKPAT+8*
>> BHLDUZ2 CHKPAT+10, CHKPAT+16, MSH+1*, MSH+3*, MSH+4*, MAP+10
>> BHLERCD CHKPAT+11*, CHKPAT+14*, FILE+5*, FILE+6*, FILE+17*, FILE+18*
>> BHLERR CHKPAT+11, CHKPAT+14, FILE+5, FILE+6, FILE+17, FILE+18
>> BHLERR("FATAL" MAIN+9, CHKPAT+12, CHKPAT+15, OBR+19*
>> BHLERR("WARNING" OBR+23!, OBX+3, OBX+26, OBX+27!
>> BHLIEN RFL+2*, RFL+3
BHLIO CPT+1!, CPT+3*, FILE+25*
>> BHLLFLE FILE+31*
>> BHLLM FILE+24*
>> BHLLOC CHKPAT+18*, CHKPAT+19
>> BHLLOCE CHKPAT+19*
>> BHLLOE CHKPAT+16*, MAP+10*
>> BHLNDA NTE+3*, NTE+4, NTE+5
>> BHLNM MAIN+10, CHKPAT+7*
>> BHLNOST MAIN+1*
>> BHLOBSDT OBR+11*, OBR+12, BUL+4
>> BHLODA OBR+3*, OBR+8, OBR+9, OBR+10, OBR+11, OBR+13, OBR+14, OBR+15, OBR+16, OBR+21
>> BHLODT OBR+12*
>> BHLORDP OBR+14*, MAP+1, MAP+2, MAP+4, MAP+5
>> BHLORDPE MAP+8*
>> BHLORDPI MAP+2*, MAP+4, MAP+5*, MAP+7*, MAP+8
BHLPAR OBR+4!, OBR+16*
>> BHLPAT CHKPAT+10*, CHKPAT+11, CHKPAT+13*, CHKPAT+14, MAP+9
>> BHLPHASE FILE+14*
>> BHLPNM MAP+9*
BHLPSEQ OBR+4!, OBR+21*, OBX+20, CPT+4
>> BHLQSIT FILE+11*, FILE+12, FILE+13
BHLR CHKPAT+1~, CHKPAT+2*, OBR+1~, OBR+2*, OBX+1~, OBX+2*, NTE+1~, NTE+2*, SNDBUL+4~, SNDBUL+5*
>> BHLRAF MSH+2
BHLREFH OBR+4!, OBX+4!, OBX+15*, OBX+23!
BHLREFL OBR+4!, OBX+4!, OBX+12*, OBX+14*, OBX+23!
BHLREFR OBR+4!, OBX+4!, OBX+11*, OBX+12, OBX+13, OBX+14, OBX+15, OBX+23!
BHLRESDT OBR+5!, OBR+15*, OBX+5!, OBX+17*
>> BHLRL MAIN+2*, MAIN+3, CHKPAT+18, TESTMAP+3, TESTMAP+4, TESTMAP+5, CPT+2
BHLRSLT OBR+4!, OBX+4!, OBX+8*, OBX+23!, FILE+2
BHLSEQ OBR+21, NTE+7, NTE+8, FILE+4!, FILE+16*, BUL+3
BHLSEQ( RFL+1, RFL+2
>> BHLSEX MAIN+10, CHKPAT+9*
BHLSPAR OBX+4!, OBX+18*
>> BHLSPC FILE+29*
>> BHLSPCE FILE+30*
>> BHLSPDT OBR+13*
>> BHLSRC FILE+28*
>> BHLSSTMP NTE+3, NTE+5
>> BHLSTAT FILE+26*
>> BHLSTMP OBX+3, OBX+6, OBX+7, OBX+8, OBX+10, OBX+11, OBX+16, OBX+17
>> BHLTMP CHKPAT+3, CHKPAT+5, CHKPAT+7, CHKPAT+8, CHKPAT+9, OBR+3, OBR+8, OBR+9, OBR+10, OBR+11
, OBR+13, OBR+14, OBR+15, SNDBUL+6, SNDBUL+8
BHLTST OBR+4!, OBR+9*, OBX+4!, OBX+6*, TESTMAP+3, BUL+3
BHLTYPC MAP~, TESTMAP+4, TESTMAP+5
>> BHLUIF MAIN+5, MAIN+10, FILE+8
BHLUNIT OBR+5!, OBX+4!, OBX+5!, OBX+10*, OBX+23!
>> BHLXDA OBX+3*, OBX+6, OBX+7, OBX+8, OBX+10, OBX+11, OBX+16, OBX+17, OBX+18
BHLZDA TESTMAP+1~, TESTMAP+3*, TESTMAP+4, TESTMAP+5
BLR FILE+10!
>> BLRCMF FILE+14*
>> BLRERR FILE+14*
BLRF FILE+10!
BLRF(0 FILE+35
BLRFDA FILE+10!
>> BLRLINK FILE+14*
>> BLRODTM FILE+14*, FILE+16
>> BLRPCC FILE+13*
>> BLRSEQ FILE+14*, FILE+16
>> BLRTEST1 FILE+14*, FILE+16
>> BLRVARS 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*, FILE+32*, FILE+33*, FILE+34*
>> BLRXPCC FILE+15*
>> CS OBR+9, OBR+10, OBX+6, OBX+7
>> 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
>> PAT MAIN+10, CHKPAT+5*, CHKPAT+6*, CHKPAT+10
U MAIN+5, CHKPAT+18, CHKPAT+19, MAP+8, TESTMAP+4, TESTMAP+5, CPT+2, CPT+11, FILE+11, FILE+13
>> UIF BUL+3
VAR SNDBUL~, SNDBUL+1
VAR1 SNDBUL~, SNDBUL+1
VAR2 SNDBUL~, SNDBUL+1
VAR3 SNDBUL~, SNDBUL+2
VAR4 SNDBUL~, SNDBUL+2
VAR5 SNDBUL+4~, SNDBUL+6*, SNDBUL+7*, SNDBUL+9
VAR6 SNDBUL+4~, SNDBUL+8*, SNDBUL+9
>> X NTE+5*
>> XMB BUL+2*, SNDBUL+1*
>> XMB(1 BUL+3*, SNDBUL+1*
>> XMB(2 BUL+3*, SNDBUL+1*
>> XMB(3 BUL+3*, SNDBUL+1*
>> XMB(4 BUL+3*, SNDBUL+2*
>> XMB(5 BUL+4*, SNDBUL+2*
>> XMB(6 BUL+4*, SNDBUL+9*
>> XMB(7 SNDBUL+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All