Routine: BLRRLU

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
VA Fileman	7	^%DT (C,NOW)^%DTC ^DIC FILE^DICN ^DIE (,ENALL)^DIK ^DIR
Kernel	2	($$DEL,$$LIST)^%ZISH ($$FMTE,$$HL7TFM)^XLFDT
IHS Changes To Lab	1	JOB^BLRPARAM
IHS Support HL7 Interfaces	1	COMPILE^BHLU

Package	Total	Caller Graph
IHS Changes To Lab	2	BLRRLMP BLRRLXP

Package

Total

Caller Graph

IHS Changes To Lab

BLRRLMP BLRRLXP

Entry Points

Name	Comments	DBIA/ICR reference
COPY(RL)	;-- copy existing BLRRL settings to BLRSITE
PRG(PSK)	;-- purge entries before this date
XREF	;-- reindex the UPIN index if not existent
QPASK	;-- queueable pask
EMC	;-- edit the master control file
LOG(FNM,TYP,USER)
NOW()	;-- get now
SITE	;EP - setup the site parameters in BLR MASTER CONTROL
PURGESM	;-- purge the shipping manifest over time
PORD	;-- purge the BLR REFERENCE LAB ORDER ACCESSION file
PURGE	; EP -- purge entries in storage directory
PASK()	;-- ask the purge date
BLST(DT,DAYS)	;-- return day to purge by
PURGELSM(START)	;-- purge the ledi shipping manifest over time
BEFORE(PD,PS)	;-- is the accession before the purge date
HOLD	;-- hold or release labs to pcc
LOGM(FNM,ENT)

External References

Name	Field # of Occurrence
^%DT	PASK+3
C^%DTC	PURGESM+11, BLST+1
NOW^%DTC	NOW+1
$$DEL^%ZISH	PURGE+33
$$LIST^%ZISH	PURGE+21
COMPILE^BHLU	SITE+41
JOB^BLRPARAM	HOLD+5
^DIC	SITE+5, SITE+21, EMC+4
FILE^DICN	SITE+36, LOG+11, LOGM+8, LOGM+15
^DIE	SITE+17, SITE+24, SITE+39, EMC+7, HOLD+3, LOG+4
^DIK	PURGE+19, PURGESM+18, PURGELSM+10, PRG+6
ENALL^DIK	XREF+4
^DIR	PURGESM+6
$$FMTE^XLFDT	PURGE+11
$$HL7TFM^XLFDT	PURGELSM+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Now setting up reference lab parameters.." Line Location: SITE+2
Function Call: WRITE	Prompt: !!,"Now setting up GIS HL7 Message Parameters.." Line Location: SITE+13
Function Call: WRITE	Prompt: !!,"Now setting up Lab HL7 Message Parameter File.." Line Location: SITE+26
Function Call: WRITE	Prompt: !!,"Error creating entry in LAHM(62.48" Line Location: SITE+30
Function Call: WRITE	Prompt: !!,"Error creating entry in LAHM(62.48" Line Location: SITE+37
Function Call: WRITE	Prompt: !!,"Now activating Reference Lab Interface.." Line Location: SITE+40
Function Call: WRITE	Prompt: !,"Now copying existing settings in BLR REFERENCE LAB file to each division in the BLR MASTER CONTROL FILE" Line Location: COPY+2
Function Call: WRITE	Prompt: !!,"No reference lab defined in BLR MASTER CONTROL file" Line Location: PURGE+3
Function Call: WRITE	Prompt: !!,"No storage directory to remove files from" Line Location: PURGE+7
Function Call: WRITE	Prompt: !,"Now cleaning up import/export log file entries older than "_BLRTE Line Location: PURGE+13
Function Call: WRITE	Prompt: "." Line Location: PURGE+17
Function Call: WRITE	Prompt: !!,"Now cleaning up host files older than "_BLRTE Line Location: PURGE+20
Function Call: WRITE	Prompt: !!,"No host files to remove" Line Location: PURGE+24
Function Call: WRITE	Prompt: !,"Removing export file "_BLRFNM_" in directory "_BLRSDIR Line Location: PURGE+28
Function Call: WRITE	Prompt: !,"File "_BLRFNM_" removed" Line Location: PURGE+35
Function Call: WRITE	Prompt: !,"Reindexing UPIN cross reference, stand by..." Line Location: XREF+2
Function Call: WRITE	Prompt: "." Line Location: PRG+5
Routine Call	DIE Line Location: SITE+17 SITE+24 SITE+39 EMC+7 HOLD+3 LOG+4
Routine Call	DIC Line Location: SITE+5 SITE+21 EMC+4
Routine Call	DIR Line Location: PURGESM+6

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^INTHL7M - [#4011]	Classic Fileman Calls
^LAHM(62.48 - [#62.48]	Classic Fileman Calls
^LAHM(62.8 - [#62.8]	Classic Fileman Calls
^BLRRL - [#9009026]	Classic Fileman Calls
^BLRRLG - [#9009026.1]	Classic Fileman Calls
^BLRSHPM - [#9009026.2]	Classic Fileman Calls
^BLRRLO - [#9009026.3]	Classic Fileman Calls
^BLRSITE - [#9009029]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRRL - [#9009026]	SITE+8, HOLD+4, PURGE+4, PURGE+5, PURGE+8
^BLRRLG - [#9009026.1]	PURGE+18
^BLRRLG("B"	LOG+1, LOG+2, LOGM+1
^BLRRLG("BDT"	PURGE+14, PURGE+16
^BLRRLO("ACC"	PRG+2, PRG+3
^BLRSHPM - [#9009026.2]	PURGESM+15, PURGESM+16, PURGESM+17
^BLRSITE - [#9009029]	SITE+12, COPY+1, HOLD+1, PURGE+1, PURGESM+13
^DD(62.48	SITE+33
^DD(9009026.1	LOGM+7, LOGM+14
^INTHL7M - [#4011]	SITE+34
^INTHL7M("B"	SITE+14
^LAHM(62.48 - [#62.48]	SITE+27, SITE+29
^LAHM(62.8 - [#62.8]	PURGELSM+2, PURGELSM+6, PURGELSM+8, PURGELSM+9
^LRO(68 - [#68]	BEFORE+2, BEFORE+6
^VA(200 - [#200]	XREF+1

Name	Line Occurrences
$$BEFORE	PRG+4
$$BLST	PURGE+10, QPASK+2
$$NOW	LOG+3, LOG+9
$$PASK	PORD+2
COPY	SITE+12
PRG	PORD+4, QPASK+3
PURGELSM	PURGESM+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NOW+2
%DT	PASK+1!, PASK+2*
%DT("A"	PASK+2*
AA	BEFORE+1~, BEFORE+3*, BEFORE+6
AD	BEFORE+1~, BEFORE+4*, BEFORE+6
AN	BEFORE+1~, BEFORE+5*, BEFORE+6
>> BLRCDA	PURGE+12, PURGE+14, PURGE+16
>> BLRCIEN	PURGE+15, PURGE+16, PURGE+18, PURGE+19
BLRDA	PURGELSM+1~, PURGELSM+2*, PURGELSM+3, PURGELSM+6
BLRDAYS	PURGE+8, PURGESM+1~, PURGESM+2, PURGESM+8, PURGESM+9*, PURGESM+10
>> BLRDMSG	PURGE+33*
BLREXP	COPY+3~
>> BLRFDA	PURGE+25*, PURGE+26
>> BLRFILES	PURGE+21
>> BLRFILES(	PURGE+18*, PURGE+25, PURGE+26
>> BLRFILES(""	PURGE+22
>> BLRFLST	PURGE+21*
>> BLRFNM	PURGE+26*, PURGE+28, PURGE+33, PURGE+35
>> BLRHM	SITE+29*, SITE+30, SITE+31, SITE+38
>> BLRHOLD	HOLD+4*
BLRIDT	PURGELSM+1~, PURGELSM+3, PURGELSM+4, PURGELSM+5
BLRIEN	PURGELSM+1~, PURGELSM+6*, PURGELSM+8, PURGELSM+9, PURGELSM+10
>> BLRLDA	LOGM+10*, LOGM+13
>> BLRLGI	LOG+1, LOG+2, LOG+3, LOGM+1, LOGM+2, LOGM+5, LOGM+12
>> BLRLLGI	LOGM+3, LOGM+9, LOGM+16, LOGM+17
>> BLRMSG	SITE+14*, SITE+15, SITE+16, SITE+34, SITE+41
BLRPRG	PURGELSM+1~, PURGELSM+7, PURGELSM+8, PURGELSM+9*, PURGELSM+10
>> BLRRID	SITE+34*, SITE+35
>> BLRRL	SITE+6, SITE+7, SITE+8, SITE+12, SITE+23, HOLD+1, HOLD+2, HOLD+4, PURGE+1*, PURGE+2 , PURGE+4, PURGE+5, PURGE+8
BLRRLDA	PURGESM+14~, PURGESM+15*, PURGESM+16, PURGESM+17, PURGESM+18
>> BLRRLE	SITE+8*, SITE+14, SITE+27, SITE+29
>> BLRSDIR	PURGE+4*, PURGE+6, PURGE+21, PURGE+28, PURGE+33
>> BLRSFL	PURGE+5*, PURGE+21
BLRST	PURGELSM+1~
BLRSTART	PURGESM+1~, PURGESM+12*, PURGESM+13, PURGESM+16, PURGESM+17
>> BLRT	PURGE+10*, PURGE+14
>> BLRTE	PURGE+11*, PURGE+13, PURGE+20
>> BLSDAYS	PURGE+9*, PURGE+10
>> BLST	PURGE+11
DA	SITE+11!, SITE+16, SITE+18!, SITE+23, SITE+25!, SITE+38, EMC+1!, EMC+6, EMC+8!, HOLD+2* , PURGE+19, PURGESM+18, PURGELSM+10, LOG+3, PORD+5!, PRG+6*, QPASK+4!
DA(1	SITE+31, SITE+32, LOGM+5, LOGM+6, LOGM+12*, LOGM+13
DAYS	BLST~, BLST+1
DD	SITE+28!, LOG+7!, LOGM+4!, LOGM+11!
DIC	SITE+3, SITE+11!, SITE+19, SITE+23, SITE+25!, SITE+28!, SITE+32, EMC+2, EMC+6, EMC+8! , LOG+7!, LOG+8, LOG+12!, LOGM+4!, LOGM+6, LOGM+11!, LOGM+13*
DIC("A"	SITE+4, SITE+20, EMC+3*
DIC("DR"	LOG+9*
DIC("P"	SITE+33, LOGM+7, LOGM+14*
DIC(0	SITE+3, SITE+19, SITE+32, EMC+2, LOG+8, LOGM+6, LOGM+13*
DIE	SITE+11!, SITE+16, SITE+18!, SITE+23, SITE+25!, SITE+38, EMC+1!, EMC+6, EMC+8!, HOLD+2* , LOG+3*, LOG+5!
DIK	PURGE+19, PURGESM+18, PURGELSM+10, XREF+3, PORD+5!, PRG+6*, QPASK+4!
DIK(1	XREF+3*
DIR	PURGESM+3!
DIR("A"	PURGESM+4*
DIR("B"	PURGESM+5*
DIR(0	PURGESM+4*
>> DIRUT	PURGESM+7
DO	SITE+28!, LOG+7!, LOGM+4!, LOGM+11!
DR	SITE+11!, SITE+16, SITE+18!, SITE+23, SITE+25!, SITE+38, EMC+1!, EMC+6, EMC+8!, HOLD+2* , LOG+3*
DT	PURGE+10, PURGESM+10, BLST~, BLST+1, QPASK+2
DUZ(2	SITE+12, COPY+1, HOLD+1, PURGE+1, PURGESM+13
ENT	LOGM~, LOGM+3, LOGM+6
ENT(	LOGM+10
ENT(""	LOGM+3
FNM	LOG~, LOG+1, LOG+2, LOG+10, LOGM~, LOGM+1
OD	BEFORE+1~, BEFORE+6*, BEFORE+7
PASK	PORD+1~, PORD+2, PORD+3, PORD+4, QPASK+1~, QPASK+2, QPASK+3
PD	BEFORE~, BEFORE+2
PDA	PRG+1~, PRG+2*, PRG+3, PRG+4
PIEN	PRG+1~, PRG+3*, PRG+6
PS	BEFORE~, BEFORE+7
PSK	PRG~, PRG+4
RL	COPY~
RT	BEFORE+1~, BEFORE+2*, BEFORE+3, BEFORE+4, BEFORE+5
START	PURGELSM~, PURGELSM+5
TYP	LOG~, LOG+9
U	SITE+8, SITE+33, SITE+34, COPY+1, HOLD+1, HOLD+4, PURGE+1, PURGE+4, PURGE+5, PURGE+8 , PURGE+18, PURGESM+13, PURGESM+16, PURGESM+17, PURGELSM+8, PURGELSM+9, LOGM+7, LOGM+14, BEFORE+6
USER	LOG~, LOG+3, LOG+9
>> X	SITE+35, PURGESM+12, LOG+10, LOGM+6, LOGM+13, BLST+2
>> X1	PURGESM+10, BLST+1
>> X2	PURGESM+10, BLST+1
Y	SITE+6, SITE+22, SITE+23, SITE+37, EMC+5, EMC+6, PURGESM+7!, PURGESM+8, LOG+13, LOGM+9 , LOGM+16, PASK+4, PASK+5
>> ZTQUEUED	PURGE+2, PURGE+6, PURGE+23, PURGE+27, PURGE+34, PURGESM+2, PRG+5

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRRLU

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: