Routine: BHLCHRI

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC ^DIC FILE^DICN ^DIE ^DIR
IHS Support HL7 Interfaces	2	$$CHK^BHLBCK COMPILE^BHLU
Kernel	2	^%ZISC ($$LIST,$$MV,$$OPEN)^%ZISH
IHS VA Utilities	1	EN^XBVK

Entry Points

Name	Comments	DBIA/ICR reference
REDO(BHLRLI)	;EP - redo the import
MOVE(DIR,FN,OPS,SDIR)	;-- move files to storage directory
EOJ	;-- kill variables and quit
LOG(FNM,TYP,USER)
NOW()	;-- get now
SITE	;EP - setup the site parameters in BHL HL7 PARAMETER file
READ(BHLCHRI)	;-- read the file in
CRLF(BHLLST,RFLG)	;-- parse by carriage return line feed
STUFF	;-- stuff the information into ^INTHU
CR(BHLLST,RFLG)	;-- parse message by CR only
LC(BHLLST,RFLG)	;-- parse
MAIN	;-- this is the main routine driver
LIST(DIR,LST)	;-- get a list of files in the directory
LOGM(FNM,ENT)

External References

Name	Field # of Occurrence
NOW^%DTC	STUFF+1, NOW+1
^%ZISC	MAIN+2, LC+2, LC+14, CRLF+2, CRLF+13, CR+2, CR+16
$$LIST^%ZISH	READ+16, LIST+1
$$MV^%ZISH	MOVE+1
$$OPEN^%ZISH	LC+4, CRLF+4, CR+4
$$CHK^BHLBCK	MAIN+4
COMPILE^BHLU	SITE+14
^DIC	SITE+5
FILE^DICN	STUFF+11, LOG+11, LOGM+8, LOGM+15
^DIE	LOG+4, SITE+9
^DIR	REDO+19
EN^XBVK	EOJ+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"CHR Parameters not Defined in BCH SITE PARAMETER File" Line Location: READ+12
Function Call: WRITE	Prompt: !!,"Now reading in CHR file from directory "_BHLDIR Line Location: READ+15
Function Call: WRITE	Prompt: !,"Error Opening Device" Line Location: LC+5
Function Call: READ	Timeout: DTIME Variable: BHLT Line Location: LC+7
Function Call: WRITE	Prompt: !,"Error Opening Device" Line Location: CRLF+5
Function Call: READ	Timeout: DTIME Variable: BHLT Line Location: CRLF+7
Function Call: WRITE	Prompt: !,"Error Opening Device" Line Location: CR+5
Function Call: READ	Timeout: DTIME Variable: BHLT Line Location: CR+6
Function Call: WRITE	Prompt: !,"CHR Parameters not Defined in BCH SITE PARAMETER File" Line Location: REDO+12
Function Call: WRITE	Prompt: !,"No Files in the directory, goodbye" Line Location: REDO+15
Function Call: WRITE	Prompt: !,BHLLSDA_" - "_$G(BHLLST(BHLLSDA)) Line Location: REDO+17
Function Call: WRITE	Prompt: !!,"Now reading in CHR file "_BHLFNM_" from directory "_BHLSDIR Line Location: REDO+26
Function Call: WRITE	Prompt: !,"Now setting up CHR HL7 lab parameters.." Line Location: SITE+2
Function Call: WRITE	Prompt: !!,"Now activating CHR Interface.." Line Location: SITE+13
Routine Call	DIE Line Location: LOG+4 SITE+9
Routine Call	DIC Line Location: SITE+5
Routine Call	DIR Line Location: REDO+19

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^INTHU - [#4001]	Classic Fileman Calls
^BCHSITE - [#90002.31]	Classic Fileman Calls
^BCHLOG - [#90002.99]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BCHLOG("B"	LOG+1, LOG+2, LOGM+1
^BCHSITE - [#90002.31]	READ+6, READ+8, REDO+6, REDO+8
^BCHSITE("B"	READ+3, REDO+3
^BHLRL($J	EOJ+2!
^DD(90002.99	LOGM+7, LOGM+14
^INLHSCH	STUFF+18*
^INRHD("B"	STUFF+3
^INTHL7M("B"	SITE+11
^INTHU - [#4001]	STUFF+15, STUFF+16
^TMP("BHLRL"	MAIN+3!, LC+9!, LC+10, LC+15!, CRLF+9, CRLF+14!, CR+11!, CR+12*, CR+17!, STUFF+14 , STUFF+15

Label References

Name	Line Occurrences
$$LIST	REDO+14
$$LOG	LC+12, CRLF+11, CR+14
$$LOGM	STUFF+13
$$NOW	LOG+3, LOG+9
CR	REDO+28
EOJ	MAIN+6, REDO+28
LC	READ+18
READ	MAIN+5
STUFF	LC+9, LC+13, CRLF+12, CR+11, CR+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	STUFF+1, NOW+2
>> BHLCHR	READ+3, READ+4, READ+5, READ+6, READ+8, REDO+3, REDO+4, REDO+5, REDO+6, REDO+8
BHLCHRI	READ~, READ+3, REDO+3
>> BHLDA	STUFF+14*, STUFF+15, STUFF+16
>> BHLDEST	STUFF+3*, STUFF+9
BHLDIR	READ+2~, READ+6, READ+7, READ+15, READ+16, LC+4, CRLF+4, CR+4, REDO+2~, REDO+6 , REDO+7, REDO+14
>> BHLDTM	STUFF+1*, STUFF+8
>> BHLFDA	LC+1, LC+3, CRLF+1, CRLF+3, CR+1*, CR+3
>> BHLFILES	REDO+28
>> BHLFILES(	REDO+24*
BHLFLG	READ+2~, READ+4, READ+7, READ+9, READ+10, REDO+2~, REDO+4, REDO+7, REDO+9, REDO+10
>> BHLFLI	REDO+22*, REDO+23, REDO+24
BHLFLST	READ+2~, READ+16, REDO+2~, REDO+14, REDO+15, REDO+18, REDO+22
>> BHLFNM	LC+3, LC+4, LC+12, CRLF+3, CRLF+4, CRLF+11, CR+3, CR+4, CR+14, STUFF+13 , REDO+23, REDO+24, REDO+26
>> BHLFNMI	REDO+21*, REDO+22
BHLFST	READ+2~, READ+8, READ+9, READ+13, READ+16, REDO+2~, REDO+8, REDO+9, REDO+13, REDO+14
>> BHLH	STUFF+2*, STUFF+18
>> BHLI	REDO+22*
>> BHLIO	STUFF+5*, STUFF+9
>> BHLLDA	LOGM+10*, LOGM+13
>> BHLLGI	LOG+1, LOG+2, LOG+3, LOGM+1, LOGM+2, LOGM+5, LOGM+12
>> BHLLLGI	LOGM+3, LOGM+9, LOGM+16, LOGM+17
>> BHLLMSG	LC+12, CRLF+11, CR+14*
>> BHLLSDA	REDO+16*, REDO+17
>> BHLLSMSG	STUFF+13*
BHLLST	READ+2~, READ+16, READ+18, LC~, CRLF~, CR~, REDO+2~, REDO+27!, LIST+1
BHLLST(	LC+1, LC+3, CRLF+1, CRLF+3, CR+1, CR+3, REDO+16, REDO+17, REDO+23
BHLLST(""	LIST+2
>> BHLMSG	SITE+11*, SITE+12, SITE+14
>> BHLMVMSG	MOVE+1*
>> BHLPRIO	STUFF+6*, STUFF+10, STUFF+18
BHLRL	SITE+1~, SITE+6*, SITE+7, SITE+8
BHLRLI	REDO~
>> BHLSDIR	REDO+26
>> BHLSTAT	STUFF+4*, STUFF+9
>> BHLT	LC+7, LC+8, LC+9, LC+10, CRLF+7, CRLF+8, CRLF+9, CR+6*, CR+8, CR+9 , CR+10, CR+11, CR+12
>> BHLUIF	STUFF+12*, STUFF+13, STUFF+15, STUFF+16, STUFF+18
BHLY	MAIN+1~, MAIN+4*
>> CNTR	LC+6, LC+9, LC+10, LC+11, CRLF+6, CRLF+9, CRLF+10, CR+7, CR+11, CR+12 , CR+13
DA	LOG+3, SITE+8, SITE+10!
DA(1	LOGM+5, LOGM+6, LOGM+12, LOGM+13
DD	STUFF+7!, LOG+7!, LOGM+4!, LOGM+11!
DIC	STUFF+8, LOG+7!, LOG+8, LOG+12!, LOGM+4!, LOGM+6, LOGM+11!, LOGM+13, SITE+3*, SITE+8 , SITE+10!
DIC("A"	SITE+4*
DIC("DR"	STUFF+9, STUFF+10, LOG+9*
DIC("P"	LOGM+7, LOGM+14
DIC(0	STUFF+8, LOG+8, LOGM+6, LOGM+13, SITE+3*
DIE	LOG+3, LOG+5!, SITE+8, SITE+10!
DIR	MOVE~, MOVE+1, LIST~, LIST+1
DIR("A"	REDO+18*
DIR(0	REDO+18*
>> DIRUT	REDO+20
DO	STUFF+7!, LOG+7!, LOGM+4!, LOGM+11!
DR	LOG+3, SITE+8, SITE+10!
DTIME	LC+7, CRLF+7, CR+6
DUZ	LC+12, CRLF+11, CR+14
DUZ(2	MAIN+5
ENT	LOGM~, LOGM+3, LOGM+6
ENT(	LOGM+10
ENT(""	LOGM+3
FN	MOVE~, MOVE+1
FNM	LOG~, LOG+1, LOG+2, LOG+10, LOGM~, LOGM+1
>> I	LC+7, CRLF+7, CR+6*
IO	LC+7, CRLF+7, CR+6
>> J	CR+9*, CR+10, CR+11, CR+12
LST	LIST~, LIST+1
OPS	MOVE~
RFLG	LC~, CRLF~, CR~
SDIR	MOVE~, MOVE+1
TYP	LOG~
U	READ+6, READ+8, REDO+6, REDO+8, LOGM+7, LOGM+14
USER	LOG~, LOG+3, LOG+9
>> X	STUFF+8, LOG+10, LOGM+6, LOGM+13
>> Y	LC+4, LC+5, CRLF+4, CRLF+5, CR+4, CR+5, STUFF+12, REDO+21, LIST+1, LOG+13 , LOGM+9, LOGM+16, SITE+6
>> ZTQUEUED	READ+11, READ+14, LC+5, CRLF+5, CR+5, REDO+11, REDO+25

Customize PDF page

Package: IHS Support HL7 Interfaces

Routine: BHLCHRI

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: