Routine: BLSLX

Information

BLSLX ; IHS/CMI/LAB - BLS export data ; [ 02/20/2003 6:40 AM ]

Source Information

Source file <BLSLX.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
VA Fileman	4	(C,NOW)^%DTC ^DIE ^DIK ^DIR
Kernel	3	($$DEL,$$LIST,$$SEND)^%ZISH $$FMTE^XLFDT DE^XUSHSHP
IHS Support HL7 Interfaces	2	$$R01SS^BHLEVENT HFSA^BHLU
IHS Changes To Lab	1	$$ADDON^BLRUTIL
IHS Generic Interface System	1	($$DATE,$$HDATE)^INHUT
MailMan	1	^XMB

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Patient Care Component	1	APCDALVR

Entry Points

Name	Comments	DBIA/ICR reference
FAC(LOC)	;-- return the asufac code
EN(BLSX)	;EP - called from APCDALVR
LIST(DIR)	;-- get a list of files in the directory
NOW()	;-- return now in fm dt
BLST(DATE,DAYS)
CLEANUP	;EP -- cleanup files older than parameter days
EXPORT	;EP - loop through BLSLX and export message
RFILE	;EP - remove files from hfs
BUL(FTP,DIR,FNM)
DQ(DEQ)	;-- decrypt the password
SENDFILE(FNM,SDIR,IP,PASS)	;-- this will trigger a send via the sendto command, sendto.pl must exist
RESEND	;EP -- resend a file

External References

Name	Field # of Occurrence
C^%DTC	BLST+2
NOW^%DTC	NOW+1
$$DEL^%ZISH	CLEANUP+27, RFILE+20
$$LIST^%ZISH	LIST+1
$$SEND^%ZISH	SENDFILE+7
$$R01SS^BHLEVENT	EXPORT+4
HFSA^BHLU	EXPORT+24
$$ADDON^BLRUTIL	EN+2
^DIE	EXPORT+7
^DIK	CLEANUP+12
^DIR	RESEND+7, RFILE+7
$$DATE^INHUT	EXPORT+20
$$HDATE^INHUT	CLEANUP+18
$$FMTE^XLFDT	CLEANUP+5
^XMB	BUL+5
DE^XUSHSHP	DQ+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Generating HL7 messages for export" Line Location: EXPORT+1
Function Call: WRITE	Prompt: "." Line Location: EXPORT+6
Function Call: WRITE	Prompt: !!,"Now writing export file, this could take up to 5 minutes" Line Location: EXPORT+22
Function Call: WRITE	Prompt: !,"Export file "_BLSFNM_" in directory "_BLSDIR_" created" Line Location: EXPORT+26
Function Call: WRITE	Prompt: !,"Sending to IP Address "_BLSFTP Line Location: EXPORT+27
Function Call: WRITE	Prompt: !,"File "_BLSFNM_" sent to "_BLSFTP Line Location: EXPORT+30
Function Call: WRITE	Prompt: !,"No Files in the directory, goodbye" Line Location: RESEND+3
Function Call: WRITE	Prompt: !,BLSLSDA_" - "_$G(BLSFILES(BLSLSDA)) Line Location: RESEND+5
Function Call: WRITE	Prompt: !,"Sending export file "_BLSFNM_" in directory "_BLSDIR Line Location: RESEND+20
Function Call: WRITE	Prompt: !,"Sending to IP Address "_BLSFTP Line Location: RESEND+21
Function Call: WRITE	Prompt: !,"File "_BLSFNM_" sent to "_BLSFTP Line Location: RESEND+23
Function Call: WRITE	Prompt: !,"Now cleaning up export log file entries older than "_BLSTE Line Location: CLEANUP+7
Function Call: WRITE	Prompt: "." Line Location: CLEANUP+11
Function Call: WRITE	Prompt: !!,"Now cleaning up host files older than "_BLSTE Line Location: CLEANUP+13
Function Call: WRITE	Prompt: !,"Removing export file "_BLSFNM_" in directory "_BLSDIR Line Location: CLEANUP+21
Function Call: WRITE	Prompt: !,"File "_BLSFNM_" removed" Line Location: CLEANUP+28
Function Call: WRITE	Prompt: !,"No Files in the directory, goodbye" Line Location: RFILE+3
Function Call: WRITE	Prompt: !,BLSLSDA_" - "_$G(BLSFILES(BLSLSDA)) Line Location: RFILE+5
Function Call: WRITE	Prompt: !,"Removing export file "_BLSFNM_" in directory "_BLSDIR Line Location: RFILE+14
Function Call: WRITE	Prompt: !,"File "_BLSFNM_" removed" Line Location: RFILE+21
Routine Call	DIE Line Location: EXPORT+7
Routine Call	DIR Line Location: RESEND+7 RFILE+7

FileNo	Call Tags
^BLSLX - [#90221]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVLAB - [#9000010.09]	EN+3, EN+4, EN+6
^AUTTLOC - [#9999999.06]	FAC+1
^AUTTSITE(1	SENDFILE+1
^BLRSITE - [#9009029]	EXPORT+11, EXPORT+13, EXPORT+14, EXPORT+19, RESEND+1, RESEND+13, RESEND+14, RESEND+15, CLEANUP+1, CLEANUP+2 , RFILE+1, RFILE+13
^BLSELL - [#90222]	EN+8
^BLSLX - [#90221]	EN+9, EN+10*
^BLSLX("ADXP"	CLEANUP+8, CLEANUP+10
^BLSLX("AEXP"	EN+11*, EXPORT+2, EXPORT+3
^BLSLX("B"	EN+11*
^BLSLX(0	EN+12, EN+13*, EN+14
^INRHD("B"	EXPORT+9

Name	Line Occurrences
$$BLST	CLEANUP+4
$$DQ	EXPORT+15, EXPORT+16, RESEND+16, RESEND+17
$$FAC	EXPORT+20
$$LIST	RESEND+2, CLEANUP+14, RFILE+2
$$NOW	EXPORT+20
BUL	EXPORT+31, RESEND+24
SENDFILE	EXPORT+28, RESEND+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NOW+2
>> BLSCDA	CLEANUP+6, CLEANUP+8, CLEANUP+10
>> BLSCIEN	CLEANUP+9, CLEANUP+10, CLEANUP+12
>> BLSDA	EXPORT+2*, EXPORT+3
>> BLSDAYS	CLEANUP+2, CLEANUP+3, CLEANUP+4
>> BLSDEST	EXPORT+9*, EXPORT+10, EXPORT+24
>> BLSDIR	EXPORT+11, EXPORT+24, EXPORT+26, EXPORT+28, EXPORT+31, RESEND+1, RESEND+2, RESEND+20, RESEND+22, RESEND+24 , CLEANUP+1, CLEANUP+14, CLEANUP+21, CLEANUP+27, RFILE+1, RFILE+2, RFILE+14, RFILE+20
>> BLSERR	EXPORT+4*
>> BLSFDA	CLEANUP+16*, CLEANUP+17
>> BLSFDT	CLEANUP+18*, CLEANUP+19, CLEANUP+20
>> BLSFILES	LIST+1
>> BLSFILES(	RESEND+4, RESEND+5, RESEND+11, CLEANUP+16, CLEANUP+17, RFILE+4, RFILE+5, RFILE+11
>> BLSFILES(""	CLEANUP+15, LIST+2
>> BLSFLI	RESEND+10, RESEND+11, RFILE+10, RFILE+11
>> BLSFLST	RESEND+2, RESEND+3, RESEND+6, RESEND+10, CLEANUP+14, RFILE+2*, RFILE+3, RFILE+6, RFILE+10
>> BLSFNM	EXPORT+20, EXPORT+24, EXPORT+26, EXPORT+28, EXPORT+30, EXPORT+31, RESEND+11, RESEND+20, RESEND+22, RESEND+23 , RESEND+24, CLEANUP+17, CLEANUP+18, CLEANUP+21, CLEANUP+27, CLEANUP+28, RFILE+11, RFILE+14, RFILE+20, RFILE+21
>> BLSFNMI	RESEND+9, RESEND+10, RFILE+9, RFILE+10
>> BLSFTP	EXPORT+19, EXPORT+27, EXPORT+28, EXPORT+30, EXPORT+31, RESEND+13, RESEND+21, RESEND+22, RESEND+23, RESEND+24 , RFILE+13*
>> BLSI	RESEND+10, RFILE+10
>> BLSIEN	EXPORT+3*, EXPORT+4, EXPORT+7
>> BLSLL	EXPORT+15, EXPORT+17, RESEND+16, RESEND+18
>> BLSLLI	EXPORT+13, EXPORT+15, RESEND+14, RESEND+16
BLSLOINC	EN+5~, EN+6*, EN+7, EN+8
>> BLSLP	EXPORT+16, EXPORT+17, RESEND+17, RESEND+18
>> BLSLPI	EXPORT+14, EXPORT+16, RESEND+15, RESEND+17
>> BLSLSDA	RESEND+4, RESEND+5, RFILE+4, RFILE+5
>> BLSOPS	SENDFILE+1*
>> BLSPASS	EXPORT+17, EXPORT+18, EXPORT+28, RESEND+18, RESEND+19, RESEND+22
>> BLSRX	EN+9
>> BLST	CLEANUP+4*, CLEANUP+5, CLEANUP+8, CLEANUP+20
>> BLSTE	CLEANUP+5*, CLEANUP+7, CLEANUP+13
BLSX	EN~, EN+1, EN+3, EN+4, EN+6, EN+9, EN+10, EN+11, EN+13, EN+15!
>> DA	EXPORT+7, CLEANUP+12
DATE	BLST~, BLST+1
DAYS	BLST~, BLST+1
DEQ	DQ~, DQ+2
DIE	EXPORT+7*, EXPORT+8!
>> DIK	CLEANUP+12*
DIR	BUL~, BUL+3, LIST~, LIST+1
DIR("A"	RESEND+6, RFILE+6
DIR(0	RESEND+6, RFILE+6
>> DIRUT	RESEND+8, RFILE+8
DR	EXPORT+7*, EXPORT+8!
DT	EN+10, EN+11, EXPORT+7, CLEANUP+4
DUZ(2	EN+2, EXPORT+11, EXPORT+13, EXPORT+14, EXPORT+19, EXPORT+20, RESEND+1, RESEND+13, RESEND+14, RESEND+15 , CLEANUP+1, CLEANUP+2, RFILE+1, RFILE+13
FNM	BUL~, BUL+2, SENDFILE~, SENDFILE+7
FTP	BUL~, BUL+4
>> INHF	EXPORT+5
IP	SENDFILE~, SENDFILE+7
LOC	FAC~, FAC+1
PASS	SENDFILE~
>> RESULT	SENDFILE+7*
SDIR	SENDFILE~, SENDFILE+7
U	EN+4, EN+6, EN+9, EN+13, EXPORT+11, EXPORT+13, EXPORT+14, EXPORT+19, RESEND+1, RESEND+13 , RESEND+14, RESEND+15, CLEANUP+1, CLEANUP+2, RFILE+1, RFILE+13, SENDFILE+1, FAC+1
X	CLEANUP+27, CLEANUP+28, RFILE+20, RFILE+21, BLST+3, DQ+1~, DQ+2*, DQ+4
X1	BLST+1, DQ+1~, DQ+2
X2	BLST+1, DQ+1~, DQ+2
XMB	BUL+1*, BUL+6!
XMB(1	BUL+2*
XMB(2	BUL+3*
XMB(3	BUL+4*
>> Y	RESEND+9, RFILE+9, LIST+1*
>> ZTQUEUED	EXPORT+1, EXPORT+6, EXPORT+21, EXPORT+25, EXPORT+29

Customize PDF page

Package: IHS Lab LOINC Surveillance

Routine: BLSLX

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: