Routine: BLRRLXP

Information

BLRRLXP ; cmi/anch/maw - BLR Reference Lab Batch Export ;

Source file <BLRRLXP.m>

Package	Total	Call Graph
IHS Changes To Lab	1	($$LOG,$$LOGM)^BLRRLU
IHS Generic Interface System	1	$$DATE^INHUT
IHS Support HL7 Interfaces	1	(HFSRL,SENDFILE)^BHLU
VA Fileman	1	NOW^%DTC

Name	Comments	DBIA/ICR reference
PCHK(BLRSDA)	;EP - check to make sure parameters are set
HFS(BLRSDA)	;-- get the destination and call HFS filer
MAIN	;PEP - Main routine driver
FTP(RL,BLRFNM,BLRSDIR)	;-- send the file across to the sending machine
NOW()	;-- get now

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Writing file "_BLRTFNM_" to directory "_BLRDIR Line Location: HFS+14
Function Call: WRITE	Prompt: !,"Sending reference lab orders to IP "_BLRIP Line Location: FTP+7
Function Call: WRITE	Prompt: !,"Reference Lab not defined in BLR MASTER CONTROL file" Line Location: PCHK+3
Function Call: WRITE	Prompt: !,"Reference Lab file name prefix not defined" Line Location: PCHK+7
Function Call: WRITE	Prompt: !,"Reference Lab directory not defined" Line Location: PCHK+10
Function Call: WRITE	Prompt: !,"IP address not defined, file will be written to local host" Line Location: PCHK+12

Name	Line Occurrences (* Changed, ! Killed)
^BLRRL - [#9009026]	HFS+5, HFS+8, HFS+11, HFS+18, FTP+1, FTP+2, FTP+3, PCHK+5, PCHK+8, PCHK+11
^BLRSITE - [#9009029]	HFS+3, PCHK+1, PCHK+4
^INRHD("B"	HFS+6

Name	Field # of Occurrence
>> %	NOW+2
>> BHLUI	HFS+17
>> BHLUI(0	HFS+17
>> BLRDIR	HFS+11*, HFS+12, HFS+14, HFS+15, HFS+19
BLRFNM	FTP~, FTP+8
>> BLRIP	FTP+1*, FTP+7, FTP+8
>> BLRLLMSG	HFS+17*
>> BLRLMSG	HFS+16*, HFS+17
>> BLRPASS	FTP+3*, FTP+5, FTP+8
>> BLRQFLG	MAIN+2, PCHK+2, PCHK+6, PCHK+9*
>> BLRRL	HFS+3, HFS+4, HFS+5, HFS+8, HFS+11, HFS+18, HFS+19, PCHK+4, PCHK+5, PCHK+8 , PCHK+11
>> BLRRLDS	HFS+6*, HFS+7, HFS+15
>> BLRRLNM	HFS+5*, HFS+6
BLRSDA	HFS~, HFS+3, PCHK~, PCHK+1, PCHK+4
BLRSDIR	FTP~, FTP+8
>> BLRTFNM	HFS+10*, HFS+14, HFS+15, HFS+16, HFS+17
>> BLRTID	HFS+8*, HFS+9, HFS+10, HFS+19
>> BLRUPAS	FTP+4, FTP+5
>> BLRUSER	FTP+2*, FTP+4, FTP+5
DUZ	HFS+16
DUZ(2	MAIN+1, MAIN+3
RL	FTP~, FTP+1, FTP+2, FTP+3
U	HFS+3, HFS+5, HFS+8, HFS+11, HFS+18, FTP+1, FTP+2, FTP+3, PCHK+1, PCHK+4 , PCHK+5, PCHK+8, PCHK+11
>> ZTQUEUED	MAIN+1, HFS+1, HFS+13, FTP+6