Routine: BHLU

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC ^DIC FILE^DICN ^DIE
IHS Generic Interface System	2	EN^INHSGZ ^INMPORT
Kernel	2	^%ZISC $$OPEN^%ZISH
IHS Support HL7 Interfaces	1	$$CHK^BHLBCK
IHS VA Utilities	1	$$VAL^XBDIQ1

Package

Total

Call Graph

VA Fileman

NOW^%DTC ^DIC FILE^DICN ^DIE

IHS Generic Interface System

EN^INHSGZ ^INMPORT

Kernel

^%ZISC $$OPEN^%ZISH

IHS Support HL7 Interfaces

$$CHK^BHLBCK

IHS VA Utilities

$$VAL^XBDIQ1

Package	Total	Caller Graph
IHS Support HL7 Interfaces	15	BHL3MS BHLCHRI BHLEVENT BHLIN1I BHLLPST BHLORCI BHLRLABI BHLRLABL BHLRLABN BHLRLABQ BHLRLABR BHLRLABS BHLRLABT BHLRLABU BHLZV1I
IHS Changes To Lab	4	BLRPRE34 BLRRLU BLRRLXP BLRRPOST
Data Warehouse Export System	3	BDW10P3 BDW10P4 BDW10P5
IHS Generic Interface System	2	INHSG INMPORT
IHS Immunizations Interface	1	BYIMPORT
IHS Lab LOINC Surveillance	1	BLSLX

Package

Total

Caller Graph

IHS Support HL7 Interfaces

BHL3MS BHLCHRI BHLEVENT BHLIN1I BHLLPST BHLORCI BHLRLABI BHLRLABL
BHLRLABN BHLRLABQ BHLRLABR BHLRLABS BHLRLABT BHLRLABU BHLZV1I

IHS Changes To Lab

BLRPRE34 BLRRLU BLRRLXP BLRRPOST

Data Warehouse Export System

BDW10P3 BDW10P4 BDW10P5

IHS Generic Interface System

INHSG INMPORT

IHS Immunizations Interface

BYIMPORT

IHS Lab LOINC Surveillance

BLSLX

Entry Points

Name	Comments	DBIA/ICR reference
LPINTHU(BHLUIEN)
ST(ST)	;-- transform into state
DIE	;-- generic DIE call from BHL package
CHAR	;-- set field sep and encoding characters for a message
MPORT	;EP - run the import package utility
FK	;EP - kill fileman variables
SENDFILE(FNM,SDIR,IP,PASS)	;EP - this will trigger a send via the sendto command, sendto.pl must exist
HFSRL(DEST,BHLHDIR,BHLHFNM)	;EP - export from this destination
CHARUP(BHLMIEN)	;EP - update field sep and enc chars for hl7
DIE4	;-- generic DIE call from BHL package
DIC(BHLFL,BHLVAL)	;EP - generic dic call
COMPILEP(NS)
EOJ	;-- kill variables and quit
COMPILE(MSG)
CHKDOB(BHLDOBC)
DIEM	;-- generic die call for multiples
HFSDW	;-- callable from Data Warehouse
RLINTHU(BHLUIEN)
HFS(BHLHFSN,BHLUIEN)
STUFFO(DEST,STOR)
HFSA(DEST,BHLHDIR,BHLHFNM)	;EP - export from this destination
CHKPAT(BHLPT,BHLDUZ)

External References

Name	Field # of Occurrence
NOW^%DTC	STUFFO+1
^%ZISC	HFS+11, HFSDW+10, HFSRL+9
$$OPEN^%ZISH	HFS+1, HFSDW+4, HFSRL+3
$$CHK^BHLBCK	HFSDW+2, HFSRL+2
^DIC	DIC+1, CHAR+3
FILE^DICN	STUFFO+11, STUFFO+19
^DIE	DIE+5, DIE4+5, DIEM+2
EN^INHSGZ	COMPILE+1, COMPILEP+5
^INMPORT	MPORT+8
$$VAL^XBDIQ1	ST+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: BHLXR Line Location: HFS+6
Function Call: WRITE	Prompt: BHLXR_"~" Line Location: HFS+7
Function Call: WRITE	Prompt: $P($G(^INTHU(BHLUIEN,3,BHLUDA,0)),"\|CR\|"),! Line Location: HFS+10
Function Call: WRITE	Prompt: $P($G(^INTHU(BHLUIEN,3,BHLUDA,0)),"\|CR\|"),! Line Location: LPINTHU+2
Function Call: WRITE	Prompt: $P($G(^INTHU(BHLUIEN,3,BHLUDA,0)),"\|CR\|"),$C(13,10) Line Location: RLINTHU+2
Function Call: WRITE	Prompt: $P($G(^INTHU(BHLUIEN,3,BHLUDA,0)),"\|CR\|"),$C(10) Line Location: RLINTHU+3
Function Call: WRITE	Prompt: $P($G(^INTHU(BHLUIEN,3,BHLUDA,0)),"\|CR\|"),! Line Location: RLINTHU+4
Function Call: WRITE	Prompt: !,"Global ^INXPORT missing, please restore and run MPORT^BHLU" Line Location: MPORT+2
Function Call: WRITE	Prompt: !,"Importing GIS "_$G(BHLIT)_" Supplement "_$G(BHLIPK) Line Location: MPORT+6
Function Call: WRITE	Prompt: ", developing site "_$G(BHLIST) Line Location: MPORT+7
Function Call: WRITE	Prompt: !,"Finished Importing GIS Supplement " Line Location: MPORT+9
Routine Call	DIE Line Location: DIE+5 DIE4+5 DIEM+2
Routine Call	DIC Line Location: DIC+1 CHAR+3

FileNo	Call Tags
^INTHU - [#4001]	Classic Fileman Calls
^INTHL7M - [#4011]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT("D"	CHKPAT+2, CHKPAT+3
^AUTTSITE(1	SENDFILE+1
^DD(4001	STUFFO+16
^DPT - [#2]	CHKDOB+1, CHKDOB+3
^INLHDEST(	HFSDW+3, HFSDW+6, HFSDW+7, HFSDW+9!, HFSRL+5, HFSRL+6, HFSRL+8!, STUFFO+21*
^INRHD("B"	STUFFO+3
^INTHL7M - [#4011]	CHARUP+1, CHARUP+2, CHARUP+3, CHARUP+4*
^INTHL7M("B"	COMPILEP+1, COMPILEP+3
^INTHU - [#4001]	HFS+4, HFS+5, HFS+9, HFS+10, LPINTHU+1, LPINTHU+2, RLINTHU+1, RLINTHU+4, STUFFO+20!
^INXPORT(	MPORT+4, MPORT+5
^INXPORT(""	MPORT+1, MPORT+3

Name	Line Occurrences
CHARUP	CHAR+6
LPINTHU	HFSDW+8
RLINTHU	HFSRL+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	STUFFO+1
>> BHL("MSG"	CHAR+5*, CHAR+6
>> BHLDOB	CHKDOB+2
>> BHLDOB2	CHKDOB+1*, CHKDOB+2
BHLDOBC	CHKDOB~, CHKDOB+1, CHKDOB+3, CHKDOB+5
BHLDUZ	CHKPAT~, CHKPAT+1*, CHKPAT+3
>> BHLEFL	DIE+6, DIE4+6, DIEM+3*
>> BHLERCD	DIE+6, DIE4+6, DIEM+3, CHKDOB+2, CHKDOB+4*
>> BHLERR	DIE+6, DIE4+6, DIEM+3, CHKDOB+2, CHKDOB+4
BHLFL	DIE+4, DIE+6, DIE4+4, DIE4+6, DIEM+1, DIC~, DIC+1
>> BHLFL2	DIEM+3
>> BHLFLD	DIE+4, DIE4+4, DIEM+1, DIEM+3*
>> BHLH	HFSDW+6, HFSDW+7, HFSDW+9, HFSRL+5, HFSRL+6, HFSRL+8
BHLHDIR	HFSA~, HFSDW+4, HFSRL~, HFSRL+3
BHLHFNM	HFSA~, HFSDW+4, HFSRL~, HFSRL+3
BHLHFSN	HFS~, HFS+1
BHLIPK	MPORT+5*, MPORT+6, MPORT+10!
BHLIST	MPORT+4*, MPORT+5, MPORT+7, MPORT+10!
BHLIT	MPORT+3*, MPORT+4, MPORT+5, MPORT+6, MPORT+10!
>> BHLJOB	HFSDW+1, HFSDW+2, HFSRL+1, HFSRL+2
BHLMIEN	CHARUP~, CHARUP+1, CHARUP+2, CHARUP+3, CHARUP+4
>> BHLMSTD	HFS+1, HFS+3, HFS+8
>> BHLNDA	COMPILEP+1*, COMPILEP+2, COMPILEP+3
>> BHLNIEN	COMPILEP+3*, COMPILEP+4
>> BHLOPS	SENDFILE+1*, SENDFILE+3, SENDFILE+5
>> BHLPAT	CHKPAT+2, CHKPAT+3, CHKPAT+4, CHKDOB+2, CHKDOB+4, CHKDOB+5, CHKDOB+6
BHLPT	CHKPAT~, CHKPAT+2, CHKPAT+3
>> BHLSEND	SENDFILE+3, SENDFILE+4, SENDFILE+5, SENDFILE+7
>> BHLSEX	CHKDOB+4
>> BHLSEX2	CHKDOB+3*, CHKDOB+4
>> BHLU	HFSDW+7, HFSDW+8, HFSDW+9, HFSRL+6, HFSRL+7, HFSRL+8
>> BHLUDA	HFS+4, HFS+5, HFS+9, HFS+10, LPINTHU+1, LPINTHU+2, RLINTHU+1, RLINTHU+4
BHLUIEN	HFS~, HFS+4, HFS+5, HFS+9, HFS+10, LPINTHU~, LPINTHU+1, LPINTHU+2, RLINTHU~, RLINTHU+1 , RLINTHU+4
BHLVAL	DIE+2, DIE+3, DIE+4, DIE4+2, DIE4+3, DIE4+4, DIEM+1, DIC~, DIC+1
>> BHLVAL2	DIEM+1
>> BHLX	DIE+4, DIE4+4, DIEM+1
>> BHLXDA	CHKPAT+2, CHKPAT+3, STUFFO+13, STUFFO+17
>> BHLXDEST	STUFFO+3*, STUFFO+9, STUFFO+21
>> BHLXDTM	STUFFO+1*, STUFFO+8
>> BHLXH	STUFFO+2*, STUFFO+21
>> BHLXIO	STUFFO+5*, STUFFO+9
>> BHLXPRIO	STUFFO+6*, STUFFO+10, STUFFO+21
>> BHLXR	HFS+5*, HFS+6, HFS+7
>> BHLXSTAT	STUFFO+4*, STUFFO+9
>> BHLXUIF	STUFFO+12*, STUFFO+15, STUFFO+17, STUFFO+20, STUFFO+21
>> BHLY	DIC+2, DIC+3, HFSDW+2, HFSRL+2*
>> BHLYDA	CHKPAT+3*
>> DA	DIE+4, DIE4+4, DIEM+1*
>> DA(1	DIEM+1, STUFFO+17
DD	FK+1!, STUFFO+7!, STUFFO+14!
DEST	HFSA~, HFSDW+3, HFSDW+6, HFSDW+7, HFSDW+9, HFSRL~, HFSRL+5, HFSRL+6, HFSRL+8, STUFFO~ , STUFFO+3
DIC	DIC+1, FK+1!, CHAR+1, STUFFO+8, STUFFO+14!, STUFFO+15
DIC("A"	CHAR+2*
DIC("DR"	STUFFO+9, STUFFO+10
DIC("P"	STUFFO+16*
DIC(0	DIC+1, CHAR+1, STUFFO+8, STUFFO+15
DIE	DIE+1!, DIE+4, DIE+7!, DIE4+1!, DIE4+4, DIE4+7!, DIEM+1*, DIEM+4!, FK+1!
DIR	FK+1!
DO	FK+1!, STUFFO+7!, STUFFO+14!
DR	DIE+1!, DIE+4, DIE+7!, DIE4+1!, DIE4+4, DIE4+7!, DIEM+1*, DIEM+4!, FK+1!
DUZ(2	CHKPAT+1
FNM	SENDFILE~, SENDFILE+3, SENDFILE+5
>> INGALL	COMPILE+1, COMPILEP+4
IO	HFS+2, LPINTHU+2, RLINTHU+4
IP	SENDFILE~, SENDFILE+3, SENDFILE+5
MSG	COMPILE~, COMPILE+1
NS	COMPILEP~, COMPILEP+2
>> NST	ST+2*, ST+3
PASS	SENDFILE~, SENDFILE+2, SENDFILE+5
SDIR	SENDFILE~, SENDFILE+3, SENDFILE+5
ST	ST~, ST+1, ST+2
STOR	STUFFO~, STUFFO+13, STUFFO+17
U	CHKDOB+1, CHKDOB+3, CHARUP+1, CHARUP+4, SENDFILE+1
>> X	DIC+1, SENDFILE+4, SENDFILE+7, STUFFO+8, STUFFO+17*, STUFFO+18
Y	DIE+6, DIE4+6, DIEM+3, DIC+2, FK+1!, CHAR+4, CHAR+5, COMPILE+1, COMPILEP+4, HFS+1* , HFSDW+4, HFSDW+5, HFSRL+3, HFSRL+4, STUFFO+12

Customize PDF page

Package: IHS Support HL7 Interfaces

Routine: BHLU

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 26

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: