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

Package: IHS Support HL7 Interfaces

Routine: BHLEVENT


Information

BHLEVENT ; cmi/flag/maw - BHL Events ; [ 09/24/2004 12:39 PM ]

Source Information

Source file <BHLEVENT.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Generic Interface System 2 ^INHF  $$DATE^INHUT  
IHS Support HL7 Interfaces 2 CHK^BHLBCK  HFS^BHLU  
IHS VA Utilities 1 $$VALI^XBDIQ1  

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Data Warehouse Export System 9 BDW1BLR  BDW1VBL  BDW1VBL2  BDW1VBLR  BDWBHL1  BDWDDR  BDWRDR  BDWRDR2  
BDWREDO  
Comprehensive Diabetes Management 1 BCDMSNDR  
Contract Health Management Information System 1 ACHS278O  
IHS Accounts Receivable 1 BAR276  
IHS Lab LOINC Surveillance 1 BLSLX  
IHS Patient Registration 1 AGEVC  

Entry Points

Name Comments DBIA/ICR reference
ELGS(BHLPAT,BHLVST,INA)
837(BHLCLM,BHLSTOR)
BCDMMED(BHLVST,INA)
276(BHLINDA,BHLINA)
R01SS(BHLVLAB)
278(BHLDUZ2,BHLINDA,BHLINA)
DW1MRG(BHLPAT,INA) ;-- generate a reg update for dw1
DW1TRLR(FILENUM,FIEN)
MSG(BHLMVAR)
THREEM(BHLVST,BHLIP)
MFN(BHLMFL,BHLIEN)
A31(BHLPAT)
DW1A08(BHLVST)
EOJ ;-- kills variables
A04(BHLVST)
A03(BHLPAT,BHLDGPMC,BHLVAIN,BHLADT) ;PEP - this is a discharge event
BCDM(BHLVST,INA) ;-- generate a visit record for BCDM
A28(BHLPAT)
A01(BHLPAT,BHLDGPMC,BHLVAIN,BHLADT) ;PEP - this is an admit event
GIS ;-- the following are GIS calls by HL7 events
A08(BHLVST)
DW1HDR(FILENUM,FIEN)
O13(BHLVST)
DW1REG(BHLPAT,INA) ;-- generate a reg update for dw1
V04(BHLVST)
O01J(INDA) ;PEP - joslin event
O01(BHL) ;PEP - Order Message
A02(BHLPAT,BHLDGPMC,BHLVAIN,BHLADT) ;PEP - this is a transfer event
ELG(BHLPAT,BHLVST,INA)
R01(BHLVST)

External References

Name Field # of Occurrence
CHK^BHLBCK ELG+11, ELGS+11
HFS^BHLU ELG+16, ELGS+16
^INHF A01+8, A02+8, A03+8, A04+7, A08+7, A28+3, A31+3, O01+94, O01J+4, O13+6
, R01+8, R01SS+10, V04+5, MFN+5, ELG+6, ELGS+6, THREEM+6, 837+4, 276+3, 278+4
, DW1HDR+3, DW1TRLR+3, DW1REG+4, DW1A08+6, DW1MRG+5, BCDM+2, BCDMMED+6
$$DATE^INHUT O01+11, O01+32, O01+33
$$VALI^XBDIQ1 A01+2, A02+2, A03+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] 278+1, 278+2
^AUPNVLAB - [#9000010.09] R01+1, R01+3, R01SS+3, R01SS+5
^AUPNVSIT - [#9000010] A04+3, A08+3, O13+3, V04+2, THREEM+2, THREEM+3, DW1A08+2, BCDMMED+3
^BARECLST - [#90056.08] 276+1
^INTHPC("B" ELG+11, ELGS+11
^INTHU - [#4001] ELG+15, ELGS+15
^INTHU("AT" ELG+8, ELG+13, ELGS+9, ELGS+13

Label References

Name Line Occurrences
$$MSG A01+10, A02+10, A03+10, A04+2, A04+4, A04+9, A08+2, A08+4, A08+9, A28+5
, A31+5, O01+2, O01+95, O01J+1, O01J+6, O13+2, O13+8, R01+2, R01+4, R01+10
, R01SS+2, R01SS+4, R01SS+6, R01SS+12, V04+1, V04+7, MFN+2, MFN+6, ELG+3, ELG+7
, ELG+9, ELG+14, ELG+18, ELGS+3, ELGS+7, ELGS+8, ELGS+14, ELGS+18, THREEM+2, THREEM+8
, 837+2, 837+6, 276+1, 276+5, 278+1, 278+2, 278+6, DW1HDR+4, DW1TRLR+4, DW1REG+1
, DW1REG+6, DW1A08+1, DW1A08+3, DW1A08+8, DW1MRG+2, DW1MRG+7, BCDM+4, BCDMMED+2, BCDMMED+8
EOJ A01+9, A02+9, A03+9, A04+8, A08+8, A28+4, A31+4, O13+7, R01+9, R01SS+11
, V04+6, ELG+17, ELGS+17, THREEM+7, 837+5, 276+4, 278+5, DW1REG+5, DW1A08+7, DW1MRG+6
, BCDM+3, BCDMMED+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BHL O01~
BHL( O01+12, O01+14, O01+15, O01+16, O01+17, O01+18, O01+20, O01+21, O01+24, O01+26
, O01+27, O01+28, O01+29, O01+30, O01+31, O01+32, O01+33, O01+34, O01+35, O01+36
, O01+37, O01+38, O01+39, O01+40, O01+41, O01+42, O01+45, O01+46, O01+47, O01+51
, O01+53, O01+54, O01+55, O01+56, O01+60, O01+62, O01+63, O01+64
BHL("ALTDUZ2" O01+4
BHL("BILL TYP E" , O01+7, O01+8
BHL("CDT" O01+11, O01+69, O01+73, O01+77, O01+90
BHL("CLIENT" O01+6, O01+7, O01+8
BHL("COMMENT" O01+82, O01+84, O01+85, O01+86
BHL("INSTYP" O01+7
BHL("ORDP" O01+10, O01+74
BHL("PAT" O01+2, O01+3
BHL("RLE" O01+6, O01+8, O01+26, O01+71, O01+93
BHL("TCNM" O01+75, O01+76
BHL("UID" O01+9, O01+13, O01+72
BHLADT A01~, A02~, A03~, EOJ+1!
>> BHLCDA O01+60*, O01+61, O01+62, O01+63, O01+64, O01+65, O01+66, O01+67, O01+68, O01+69
, O01+70, O01+71, O01+82*, O01+83, O01+84, O01+85, O01+86, O01+87, O01+88, O01+89
, O01+90, O01+91, O01+92, O01+93
BHLCLM 837~, 837+2, 837+3
>> BHLCOM1 O01+62*, O01+65, O01+67, O01+84*, O01+88, O01+91
>> BHLCOM2 O01+63*, O01+65, O01+68, O01+85*, O01+89, O01+91
>> BHLCOM3 O01+64*, O01+70, O01+86*, O01+92
>> BHLDA O01+12*, O01+13, O01+14, O01+15, O01+16, O01+17, O01+18, O01+19, O01+20, O01+21
, O01+22, O01+24, O01+26, O01+27, O01+28, O01+29, O01+30, O01+31, O01+32, O01+33
, O01+34, O01+35, O01+36, O01+37, O01+38, O01+39, O01+40, O01+41, O01+42, O01+45
, O01+46, O01+47, O01+51, O01+53, O01+54, O01+55, O01+56, O01+58, O01+59, O01+60
, O01+62, O01+63, O01+64, O01+65, O01+66, O01+67, O01+68, O01+69, O01+70, O01+71
BHLDGPMC A01~, A01+2, A01+4, A01+5, A02~, A02+2, A02+4, A02+5, A03~, A03+2
, A03+4, A03+5, EOJ+1!
BHLDUZ2 278~, 278+1, 278+2
>> BHLFLNM ELG+15*, ELG+16, ELGS+15*, ELGS+16
BHLIEN MFN~, MFN+3, MFN+4
BHLINA 837+4, 276~, 276+3, 278~, 278+4
BHLINA("DEST" 276+3, 278+4
BHLINDA 276~, 276+1, 276+2, 278~, 278+2, 278+3
BHLIP THREEM~, THREEM+6
BHLMFL MFN~, MFN+4
>> BHLMSTD ELG+2*, ELGS+2*
BHLMVAR MSG~, MSG+1, MSG+2, MSG+3, MSG+4, MSG+5, MSG+6
BHLPAT A01~, A01+3, A02~, A02+3, A03~, A03+3, A04+3*, A04+4, A04+5, A08+3*
, A08+4, A08+5, A28~, A28+2, A31~, A31+2, O13+3*, O13+4, R01+3*, R01+4
, R01+5, R01SS+5*, R01SS+6, R01SS+7, V04+2*, V04+3, ELG~, ELG+3, ELG+4, ELGS~
, ELGS+3, ELGS+4, THREEM+3*, THREEM+4, DW1REG~, DW1REG+1, DW1REG+2, DW1A08+2*, DW1A08+3, DW1A08+4
, DW1MRG~, DW1MRG+2, DW1MRG+3, BCDMMED+3*, BCDMMED+4, EOJ+1!
>> BHLRMSG MSG+1*, MSG+2*, MSG+3*, MSG+4*, MSG+5*, MSG+6*, MSG+7
BHLSTOR 837~, 837+1
>> BHLUIF ELG+8*, ELG+10, ELG+13*, ELG+14, ELG+15, ELG+16, ELGS+9*, ELGS+10, ELGS+13*, ELGS+14
, ELGS+15, ELGS+16
BHLVAIN A01~, A02~, A03~, EOJ+1!
BHLVAIN(2 A01+6, A02+6, A03+6
BHLVAIN(3 A01+7, A02+7, A03+7
BHLVLAB R01+1, R01+3, R01+7, R01SS~, R01SS+2, R01SS+3, R01SS+5, R01SS+9
BHLVST A01+2*, A01+4, A02+2*, A02+4, A03+2*, A03+4, A04~, A04+2, A04+3, A04+6
, A08~, A08+2, A08+3, A08+6, O13~, O13+2, O13+3, O13+5, R01~, R01+1*
, R01+2, R01+6, R01SS+3*, R01SS+4, R01SS+8, V04~, V04+1, V04+2, V04+4, ELG~
, ELG+5, ELGS~, ELGS+5, THREEM~, THREEM+2, THREEM+3, THREEM+5, DW1A08~, DW1A08+1, DW1A08+2
, DW1A08+5, BCDM~, BCDM+1, BCDMMED~, BCDMMED+2, BCDMMED+3, BCDMMED+5, EOJ+1!
DGDA O01+50~, O01+51*, O01+52, O01+53, O01+54, O01+55, O01+56
DUZ(2 O01+4, O01J+3
FIEN DW1HDR~, DW1HDR+1, DW1TRLR~, DW1TRLR+1
FILENUM DW1HDR~, DW1HDR+2, DW1TRLR~, DW1TRLR+2
IDA O01+23~, O01+24*, O01+25, O01+26, O01+27, O01+28, O01+29, O01+30, O01+31, O01+32
, O01+33, O01+34, O01+35, O01+36, O01+37, O01+38, O01+39
INA A01+8, A02+8, A03+8, O01+1!, O01+94, O01J+4, ELG~, ELG+6, ELGS~, ELGS+6
, 837+4, DW1HDR+3, DW1TRLR+3, DW1REG~, DW1REG+3, DW1REG+4, DW1MRG~, DW1MRG+4, DW1MRG+5, BCDM~
, BCDM+2, BCDMMED~, BCDMMED+6
INA("ADMPHY" A01+6*, A02+6*, A03+6*
INA("BACKLOAD" DW1REG+3*, DW1MRG+4*
INA("DG13LABO" O01+53*, O01+55*
INA("DG14LABO" O01+54*, O01+56*
INA("DGPMCA" A01+5*, A02+5*, A03+5*
INA("DUZ2" O01+4*
INA("FILE" DW1HDR+2*, DW1TRLR+2*
INA("FTS" A01+7*, A02+7*, A03+7*
INA("GT13LABO" O01+40*, O01+45*
INA("GT15LABO" O01+41*, O01+46*
INA("GT16LABO" O01+42*, O01+47*
INA("IN111LABO" O01+31*
INA("IN112LABO" O01+32*
INA("IN113LABO" O01+33*
INA("IN115LABO" O01+34*
INA("IN116LABO" O01+35*
INA("IN117LABO" O01+36*
INA("IN119LABO" O01+37*
INA("IN136LABO" O01+38*
INA("IN13LABO" O01+26*
INA("IN147LABO" O01+39*
INA("IN14LABO" O01+27*
INA("IN15LABO" O01+28*
INA("IN17LABO" O01+29*
INA("IN18LABO" O01+30*
INA("OBR13LABO" O01+19*, O01+78*
INA("OBR15LABO" O01+20*
INA("OBR18LC" O01+21*
INA("OBR27LABO" O01+22*, O01+79*
INA("OBR4LABO" O01+16*, O01+75*
INA("OBR4LABOL" O01+17*, O01+76*
INA("OBR7LABO" O01+18*, O01+77*
INA("OBX14LABO" O01+69*, O01+90*
INA("OBX2LABOL" O01+66*, O01+87*
INA("OBX3LABLC3" O01+71*, O01+93*
INA("OBX3LABO" O01+65*, O01+91*
INA("OBX3LABOL1" O01+67*, O01+88*
INA("OBX3LABOL2" O01+68*, O01+89*
INA("OBX5LABO" O01+70*, O01+92*
INA("ORC11LABO" O01+11*, O01+14*, O01+73*
INA("ORC12LABO" O01+10*, O01+15*, O01+74*
INA("ORC2LABO" O01+9*, O01+13*, O01+72*
INA("PID20LABO" O01+7*, O01+8*
INA("SENDING FACILITY" , O01J+3*
INA("SF" O01+6*
INA("STORAGE" 837+1*
INDA A01+3*, A01+8, A02+3*, A02+8, A03+3*, A03+8, A04+5*, A04+7, A08+5*, A08+7
, A28+2*, A28+3, A31+2*, A31+3, O01+1!, O01+3*, O01+94, O01J~, O01J+1, O01J+4
, O13+4*, O13+6, R01+5*, R01+8, R01SS+7*, R01SS+10, V04+3*, V04+5, MFN+3*, MFN+5
, ELG+4*, ELG+6, ELGS+4*, ELGS+6, THREEM+4*, THREEM+6, 837+3*, 837+4, 276+2*, 276+3
, 278+3*, 278+4, DW1HDR+1*, DW1HDR+3, DW1TRLR+1*, DW1TRLR+3, DW1REG+2*, DW1REG+4, DW1A08+4*, DW1A08+6
, DW1MRG+3*, DW1MRG+5, BCDM+1*, BCDM+2, BCDMMED+4*, BCDMMED+6, EOJ+1!
INDA( R01+7*, R01SS+9*, MFN+4*
INDA("DG1" O01+52*
INDA("IN1" O01+25*
INDA("OBR" O01+59*, O01+81*
INDA("OBX" O01+61*, O01+83*
INDA("ORC" O01+58*, O01+80*
INDA(405 A01+4*, A02+4*, A03+4*
INDA(9000010 A01+4*, A02+4*, A03+4*, A04+6*, A08+6*, O13+5*, R01+6*, R01SS+8*, V04+4*, ELG+5*
, ELGS+5*, THREEM+5*, DW1A08+5*, BCDMMED+5*
>> INHF A01+10, A02+10, A03+10, A04+9, A08+9, A28+5, A31+5, O01+95, O01J+6, R01+10
, R01SS+12, MFN+6, ELG+7, ELG+8, ELG+9, ELG+13, ELG+18, ELGS+7, ELGS+8, ELGS+9
, ELGS+13, ELGS+18, THREEM+8, 837+6, 276+5, 278+6, DW1HDR+4, DW1TRLR+4, DW1REG+6, DW1A08+8
, DW1MRG+7, BCDM+4
U A01+6, A01+7, A02+6, A02+7, A03+6, A03+7, A04+3, A08+3, O01+16, O01+26
, O01+62, O01+63, O01+64, O01+65, O01+75, O01+84, O01+85, O01+86, O01+91, O13+3
, R01+1, R01+3, R01SS+3, R01SS+5, V04+2, ELG+15, ELGS+15, THREEM+3, DW1HDR+4, DW1TRLR+4
, DW1REG+6, DW1A08+2, DW1A08+8, DW1MRG+7, BCDM+4, BCDMMED+3, MSG+6
>> XPMFL MFN+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All