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 |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BHLRLABS

Package: IHS Support HL7 Interfaces

Routine: BHLRLABS


Information

BHLRLABS ; cmi/anchorage/maw - BHL ORU/R01 Ref Lab inbound Lab Message ; 08 Nov 2005 11:41 AM

Source Information

Source file <BHLRLABS.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
IHS Changes To Lab 5 ^BLREVTQ  ($$GETIEN,SETVALS)^BLRFLTL  ORU^BLRHL7  ^BLRNFLTL  (INIT,JOB)^BLRPARAM  
IHS Support HL7 Interfaces 4 ^BHLFO  $$LZERO^BHLPID  (,EOJ)^BHLSETI  ($$CHKDOB,$$CHKPAT)^BHLU  
IHS VA Utilities 2 $$VAL^XBDIQ1  EN^XBVK  
VA Fileman 2 FILE^DICN  $$GET1^DIQ  
IHS Generic Interface System 1 $$HDATE^INHUT  
Kernel 1 $$FMTE^XLFDT  
MailMan 1 ^XMB  

Entry Points

Name Comments DBIA/ICR reference
PV1 ;-- pat the PV1 segment
MAP ;-- map the necessary incoming items to rpms
PRS ;-- parse the HL7 message array
NTEOBR(ODA,BHLSNGL) ;-- parse the NTE in the OBR segment
NTE ;-- parse the NTE segment
FILE ;-- file the data in BLRTXLOG
CPT ;-- let's build the cpt string
EOJ ;-- kill variables and quit
FILENTE ;-- file the NTE segments
OBX ;-- parse the OBX segment
TESTMAP ;
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
BUL ;-- file a bulletin if no test match

External References

Name Field # of Occurrence
^BHLFO MAIN+6
$$LZERO^BHLPID MAP+2
^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+38
ORU^BLRHL7 MAIN+5
^BLRNFLTL FILE+40
INIT^BLRPARAM FILE+36
JOB^BLRPARAM MAIN+13
FILE^DICN NTEOBR+14, FILENTE+7
$$GET1^DIQ PV1+13, PV1+14
$$HDATE^INHUT CHKPAT+8, OBR+10, OBR+12, OBR+14, 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+8, CPT+9
^BLRCPT("C" CPT+4
^BLRRL - [#9009026] CHKPAT+18, TESTMAP+4, CPT+1
^BLRRL("BTST" TESTMAP+1
^BLRSITE - [#9009029] MAIN+2, MAIN+5, FILE+13
^BLRTXLOG("AHL7" FILE+8
^BMS4(90230.2 PV1+10, PV1+12
^DD(9009022 NTEOBR+13, FILENTE+6
^SC - [#44] CHKPAT+19
^VA(200 - [#200] MAP+3, MAP+7, MAP+8

Label References

Name Line Occurrences
BUL OBR+19, OBX+19, OBX+22, OBX+27, FILE+5, FILE+6, FILE+17, FILE+18
CHKPAT MAIN+7
CPT OBR+20, OBX+21
EOJ MAIN+5, MAIN+12
FILE OBR+20, OBX+23
FILENTE NTE+8
MAP OBR+16
NTE OBX+25
NTEOBR OBR+21, OBR+22
OBR PRS+2
OBX OBR+25
PRS MAIN+10
PV1 PRS+1
RFL MAIN+11
SNDBUL MAIN+9
TESTMAP OBX+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BHL("OBX" OBR+20
>> BHL("ORC" MAP+1
BHLABN OBR+5!, OBX+5!, OBX+16*
>> BHLACC OBR+6*, OBR+7*, BUL+4
>> BHLBILL FILE+27*
BHLCCNT NTEOBR+1!, NTEOBR+2*, NTEOBR+6, NTEOBR+7, NTEOBR+9*, NTE+1*, NTE+5, NTE+6, NTE+7*, CPT+6*
, CPT+10*, CPT+11
BHLCDA FILENTE+1~, FILENTE+2*, FILENTE+3, CPT+8*
BHLCLT OBR+5!, OBR+17, OBX+5!, OBX+22, TESTMAP+4*, CPT+3, CPT+4, FILE+4, FILE+6, FILE+8
, FILE+18
BHLCLTE OBR+4!, OBR+9*, OBX+4!, OBX+7*, BUL+3
>> BHLCLTI TESTMAP+1*, TESTMAP+3, TESTMAP+4, FILE+5, FILE+17
BHLCMT OBR+21!, OBX+26!, FILENTE+8!
BHLCMT( NTEOBR+6*, NTEOBR+7*, NTE+5*, NTE+6*, FILENTE+2, FILENTE+3
>> BHLCPT CPT+9*, CPT+11
BHLCPTS OBR+20!, OBX+24!, CPT+7*, CPT+11*
>> BHLCTST CPT+4*, CPT+5, CPT+8, CPT+9
>> BHLDA CHKPAT+3*, CHKPAT+5, CHKPAT+7, CHKPAT+8, CHKPAT+9, CPT+9, RFL+1*, RFL+2
>> BHLDOB MAIN+9, CHKPAT+8*
BHLDTA PV1+6~, PV1+7*, PV1+8, PV1+10
BHLDTAI PV1+9~, PV1+10*, PV1+11, PV1+12, PV1+13, PV1+14
>> 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+8, CHKPAT+12, CHKPAT+15, OBR+18*
>> BHLERR("WARNING" OBR+24!, OBX+3, OBX+27, OBX+28!
>> BHLIEN RFL+2*, RFL+3
>> BHLIO FILE+25*
>> BHLLFLE FILE+31*
>> BHLLM FILE+24*
>> BHLLOC CHKPAT+18*, CHKPAT+19
>> BHLLOCE CHKPAT+19*
>> BHLLOE CHKPAT+16*, MAP+10*
>> BHLNDA NTEOBR+5*, NTEOBR+7, NTE+4*, NTE+6
>> BHLNM MAIN+9, CHKPAT+7*
>> BHLNOST MAIN+1*
>> BHLOBSDT OBR+10*, OBR+11, BUL+4
>> BHLODA OBR+3*, OBR+6, OBR+7, OBR+8, OBR+9, OBR+10, OBR+12, OBR+13, OBR+14, OBR+15
, OBR+20, OBR+21, OBR+22, NTEOBR+5, NTEOBR+7
>> BHLODT OBR+11*
>> BHLORDP OBR+13*, MAP+1*, MAP+2*, MAP+3
>> BHLORDPE MAP+8*
>> BHLORDPI MAP+3*, MAP+7*, MAP+8
BHLPAR OBR+4!, OBR+15*
>> BHLPAT CHKPAT+10*, CHKPAT+11, CHKPAT+13*, CHKPAT+14, MAP+9
BHLPCLN PV1+5!, PV1+12*
BHLPCLNE PV1+5!, PV1+13*
BHLPDA PV1+3~, PV1+4*, PV1+7
BHLPFTS PV1+5!, PV1+14*
>> BHLPHASE FILE+14*
>> BHLPNM MAP+9*
BHLPSEQ OBR+4!, OBR+20*, OBR+21, OBR+22, OBX+21, NTEOBR+12, NTEOBR+13, CPT+2
>> BHLQSIT FILE+11*, FILE+12, FILE+13
BHLR CHKPAT+1~, CHKPAT+2*, PV1+1~, PV1+2*, OBR+1~, OBR+2*, OBX+1~, OBX+2*, NTEOBR+3~, NTEOBR+4*
, NTE+2~, NTE+3*, SNDBUL+4~, SNDBUL+5*
BHLREFH OBR+4!, OBX+4!, OBX+15*, OBX+24!
BHLREFL OBR+4!, OBX+4!, OBX+12*, OBX+14*, OBX+24!
BHLREFR OBR+4!, OBX+4!, OBX+11*, OBX+12, OBX+13, OBX+14, OBX+15, OBX+24!
BHLRESDT OBR+5!, OBR+14*, OBX+5!, OBX+17*
>> BHLRL MAIN+2*, MAIN+3, CHKPAT+18, TESTMAP+1, TESTMAP+4, CPT+1
BHLRSLT OBR+4!, OBX+4!, OBX+8*, OBX+24!, FILE+2
BHLSEQ OBR+20, FILENTE+5, FILENTE+6, FILE+4!, FILE+16*, BUL+3
BHLSEQ( RFL+1, RFL+2
>> BHLSEX MAIN+9, CHKPAT+9*
BHLSNGL NTEOBR~, NTEOBR+10
BHLSPAR OBX+4!, OBX+18*
>> BHLSPC FILE+29*
>> BHLSPCE FILE+30*
>> BHLSPDT OBR+12*
>> BHLSRC FILE+28*
>> BHLSSTMP NTE+4, NTE+6
>> 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, PV1+4, PV1+7, OBR+3, OBR+6, OBR+7
, OBR+8, OBR+9, OBR+10, OBR+12, OBR+13, OBR+14, SNDBUL+6, SNDBUL+8
BHLTST OBR+4!, OBR+8*, OBX+4!, OBX+6*, OBX+19, TESTMAP+1, BUL+3
>> BHLUIF MAIN+5, MAIN+9, FILE+8
BHLUNIT OBR+5!, OBX+4!, OBX+5!, OBX+10*, OBX+24!
>> BHLXDA OBX+3*, OBX+6, OBX+7, OBX+8, OBX+10, OBX+11, OBX+16, OBX+17, OBX+18
BLR FILE+10!
>> BLRCMF FILE+14*
>> BLRERR FILE+14*
BLRF FILE+10!
BLRF(0 FILE+36
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*, FILE+35*
>> BLRXPCC FILE+15*
>> CS PV1+7, OBR+8, OBR+9, OBX+6, OBX+7
>> DA(1 NTEOBR+13*, FILENTE+6*
DD NTEOBR+11!, FILENTE+4!
DIC NTEOBR+11!, NTEOBR+12*, FILENTE+4!, FILENTE+5*
DIC("P" NTEOBR+13*, FILENTE+6*
DIC(0 NTEOBR+13*, FILENTE+6*
DO NTEOBR+11!, FILENTE+4!
DUZ(2 MAIN+2, MAIN+5, CHKPAT+10, CHKPAT+16, MAP+10
>> INV("NTE3" OBR+21, OBR+22, NTEOBR+5, NTEOBR+7
ODA NTEOBR~
>> PAT MAIN+9, CHKPAT+5*, CHKPAT+6*, CHKPAT+10
U MAIN+5, CHKPAT+18, CHKPAT+19, PV1+12, MAP+1, MAP+8, TESTMAP+4, CPT+1, CPT+9, 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 NTEOBR+7*, NTEOBR+8, NTE+6*, FILENTE+3*
>> 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 |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All