Routine: BLRRLMP

Information

BLRRLMP ; cmi/anch/maw - BLR Read Reference Lab into ^INTHU ;

Source Information

Source file <BLRRLMP.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA Fileman	3	NOW^%DTC FILE^DICN ^DIR
Kernel	2	^%ZISC ($$LIST,$$MV,$$OPEN)^%ZISH
IHS Changes To Lab	1	($$LOG,$$LOGM)^BLRRLU
IHS Support HL7 Interfaces	1	$$CHK^BHLBCK
IHS VA Utilities	1	EN^XBVK

Entry Points

Name	Comments	DBIA/ICR reference
CRLF(BLRLST,RFLG)	;-- parse by carriage return line feed
LC(BLRLST,RFLG)	;-- parse specifically for labcorp
MOVE(DIR,FN,OPS,SDIR)	;-- move files to storage directory
CR(BLRLST,RFLG)	;-- parse message by CR only
EOJ	;-- kill variables and quit
REDO(BLRRLI)	; EP -- redo the import
STUFF	;-- stuff the information into ^INTHU
READ(BLRRLI)	;-- read the file in
MAIN	;-- this is the main routine driver
LIST(DIR,LST)	;-- get a list of files in the directory

External References

Name	Field # of Occurrence
NOW^%DTC	STUFF+1
^%ZISC	MAIN+1, LC+2, LC+15, CRLF+2, CRLF+14, CR+2, CR+17
$$LIST^%ZISH	READ+13, LIST+1
$$MV^%ZISH	MOVE+1
$$OPEN^%ZISH	LC+5, CRLF+5, CR+5
$$CHK^BHLBCK	MAIN+3
$$LOG^BLRRLU	LC+13, CRLF+12, CR+15
$$LOGM^BLRRLU	STUFF+13
FILE^DICN	STUFF+11
^DIR	REDO+16
EN^XBVK	EOJ+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Reference Lab not defined in BLR MASTER CONTROL File" Line Location: READ+5
Function Call: WRITE	Prompt: !!,"Now reading in reference lab file from directory "_BLRDIR Line Location: READ+12
Function Call: WRITE	Prompt: !,"Error Opening Device" Line Location: LC+6
Function Call: READ	Timeout: DTIME Variable: BLRT Line Location: LC+8
Function Call: WRITE	Prompt: !,"Error Opening Device" Line Location: CRLF+6
Function Call: READ	Timeout: DTIME Variable: BLRT Line Location: CRLF+8
Function Call: WRITE	Prompt: !,"Error Opening Device" Line Location: CR+6
Function Call: READ	Timeout: DTIME Variable: BLRT Line Location: CR+7
Function Call: WRITE	Prompt: !,"Reference Lab not defined in BLR MASTER CONTROL File" Line Location: REDO+5
Function Call: WRITE	Prompt: !,"No Files in the directory, goodbye" Line Location: REDO+12
Function Call: WRITE	Prompt: !,BLRLSDA_" - "_$G(BLRLST(BLRLSDA)) Line Location: REDO+14
Function Call: WRITE	Prompt: !!,"Now reading in reference lab file "_BLRFNM_" from directory "_BLRSDIR Line Location: REDO+23
Routine Call	DIR Line Location: REDO+16

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTSITE(1	READ+9, REDO+9
^BLRRL - [#9009026]	READ+6, READ+7, READ+8, READ+10, READ+16, REDO+6, REDO+7, REDO+8, REDO+10, REDO+25
^BLRRL($J	EOJ+2!
^BLRSITE - [#9009029]	READ+2, REDO+2
^INLHSCH	STUFF+17*
^INRHD("B"	STUFF+3
^INTHU - [#4001]	STUFF+15, STUFF+16
^TMP("BLRRL"	MAIN+2!, LC+10!, LC+11, LC+19!, CRLF+10, CRLF+18!, CR+12!, CR+13*, CR+21!, STUFF+14 , STUFF+15

Name	Line Occurrences
$$LIST	REDO+11
CR	READ+16, REDO+25
CRLF	READ+17, REDO+26
EOJ	MAIN+5, REDO+25, REDO+26
LC	READ+14, READ+15
MOVE	LC+18, CRLF+17, CR+20
READ	MAIN+4
STUFF	LC+10, LC+14, CRLF+13, CR+12, CR+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	STUFF+1
>> BLRDA	STUFF+14*, STUFF+15, STUFF+16
>> BLRDEST	STUFF+3*, STUFF+9
>> BLRDIR	READ+7, READ+12, READ+13, LC+5, LC+18, CRLF+5, CRLF+17, CR+5, CR+20, REDO+7
>> BLRDTM	STUFF+1*, STUFF+8
>> BLRFDA	LC+1, LC+3, CRLF+1, CRLF+3, CR+1*, CR+3
>> BLRFILES	REDO+25, REDO+26
>> BLRFILES(	REDO+21*
>> BLRFLI	REDO+19*, REDO+20, REDO+21
>> BLRFLST	READ+13, REDO+11, REDO+12, REDO+15, REDO+19
>> BLRFNM	LC+3, LC+4, LC+5, LC+13, LC+18, CRLF+3, CRLF+4, CRLF+5, CRLF+12, CRLF+17 , CR+3, CR+4, CR+5, CR+15, CR+20, STUFF+13, REDO+20, REDO+21, REDO+23
>> BLRFNMI	REDO+18*, REDO+19
>> BLRFST	READ+10, READ+13, REDO+10, REDO+11
>> BLRH	STUFF+2*, STUFF+17
>> BLRI	REDO+19*
>> BLRIO	STUFF+5*, STUFF+9
>> BLRLMSG	LC+13, CRLF+12, CR+15*
>> BLRLSDA	REDO+13*, REDO+14
>> BLRLSMSG	STUFF+13*
BLRLST	READ+13, READ+14, READ+15, READ+16, READ+17, LC~, CRLF~, CR~, REDO+24!, LIST+1
BLRLST(	LC+1, LC+3, CRLF+1, CRLF+3, CR+1, CR+3, REDO+13, REDO+14, REDO+20
BLRLST(""	LIST+2
>> BLRMVMSG	MOVE+1*
>> BLROPS	READ+9, LC+18, CRLF+17, CR+20, REDO+9
>> BLRPRIO	STUFF+6*, STUFF+10, STUFF+17
>> BLRRL	READ+2, READ+3, READ+6, READ+7, READ+8, READ+10, READ+16, REDO+2, REDO+3, REDO+6 , REDO+7, REDO+8, REDO+10, REDO+25
BLRRLI	READ~, READ+2, REDO~, REDO+2
>> BLRRLNM	READ+6, READ+14, READ+15, STUFF+3, REDO+6
>> BLRSDIR	READ+8, LC+18, CRLF+17, CR+20, REDO+8, REDO+11, REDO+23
>> BLRSTAT	STUFF+4*, STUFF+9
>> BLRT	LC+8, LC+9, LC+10, LC+11, CRLF+8, CRLF+9, CRLF+10, CR+7*, CR+9, CR+10 , CR+11, CR+12, CR+13
>> BLRUIF	STUFF+12*, STUFF+13, STUFF+15, STUFF+16, STUFF+17
>> BLRY	MAIN+3*
>> CNTR	LC+7, LC+10, LC+11, LC+12, CRLF+7, CRLF+10, CRLF+11, CR+8, CR+12, CR+13 , CR+14
DD	STUFF+7!
>> DIC	STUFF+8*
>> DIC("DR"	STUFF+9, STUFF+10
>> DIC(0	STUFF+8*
DIR	MOVE~, MOVE+1, LIST~, LIST+1
DIR("A"	REDO+15*
DIR(0	REDO+15*
>> DIRUT	REDO+17
DO	STUFF+7!
DTIME	LC+8, CRLF+8, CR+7
DUZ	LC+13, CRLF+12, CR+15
DUZ(2	MAIN+4
FN	MOVE~, MOVE+1
>> I	LC+8, CRLF+8, CR+7*
IO	LC+8, CRLF+8, CR+7
>> J	CR+10*, CR+11, CR+12, CR+13
LST	LIST~, LIST+1
OPS	MOVE~
RFLG	LC~, LC+16, CRLF~, CRLF+15, CR~, CR+18
SDIR	MOVE~, MOVE+1
U	READ+2, READ+6, READ+7, READ+8, READ+9, READ+10, READ+16, REDO+2, REDO+6, REDO+7 , REDO+8, REDO+9, REDO+10, REDO+25
>> X	STUFF+8*
>> Y	LC+5, LC+6, CRLF+5, CRLF+6, CR+5, CR+6, STUFF+12, REDO+18, LIST+1
>> ZTQUEUED	READ+4, READ+11, LC+6, LC+17, CRLF+6, CRLF+16, CR+6, CR+19, REDO+4, REDO+22

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRRLMP

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: