Routine: LRFAC

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD SETUP^XQALERT
VA Fileman	2	^%DT ^DIR
Lab Service	1	ENT^LRAC1

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point from menu option to manually task file room cumulative.
END	; Clean up time.
CLOCK	; Task fileroom patients cumulative to appropiate devices.
ALERT	;Send Alert Messages to LRLIASON mail group
CHECK	; Check File 64.5 for proper setup.
DQ	; Queued entry point to actually print fileroom reports

External References

Name	Field # of Occurrence
^%DT	CLOCK+13
^%ZIS	CLOCK+34
^%ZISC	CLOCK+38, END+1
^%ZTLOAD	EN+12, CLOCK+37
^DIR	EN+9
ENT^LRAC1	DQ+2
SETUP^XQALERT	ALERT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?20,"Checking File #64.5, LAB REPORTS FILE" Line Location: EN+1
Function Call: WRITE	Prompt: !!,$C(7),$P(LRERR,U,2),!! Line Location: EN+2
Function Call: WRITE	Prompt: !,"File Setup ...OK",!!,"Will schedule report(s):" Line Location: EN+3
Function Call: WRITE	Prompt: ?25,$P(LRRP(LRRPTN),U),! Line Location: EN+5
Function Call: WRITE	Prompt: !,"Request ",$S($D(ZTSK):"",1:"NOT "),"Queued" Line Location: EN+12
Function Call: WRITE	Prompt: !,"Task #",ZTSK Condition for execution: $D(ZTSK) Line Location: EN+12
Routine Call	DIR Line Location: EN+9
Routine Call	%ZIS Line Location: CLOCK+34

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(64.5 - [#64.5]	CLOCK+5, CLOCK+6, CLOCK+10, CLOCK+11, CLOCK+12, CLOCK+25, CLOCK+26, CLOCK+30, CLOCK+31, DQ+1 , CHECK+2, CHECK+6, CHECK+7
^LAC("LRAC" - [#64.7]	CLOCK+5, CLOCK+24
^LAC($J	CLOCK+4!
^LRO(69 - [#69]	CLOCK+18, CLOCK+20, CLOCK+22, CLOCK+24*
^XUSEC("LRLIASON"	ALERT+1

Label References

Name	Line Occurrences
ALERT	CLOCK+3, CLOCK+8
CHECK	EN+2, CLOCK+1
END	EN+2, EN+13, CLOCK+1, CLOCK+9, CLOCK+39

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	CLOCK+13*, END+2!
%H	END+2!
%ZIS	CLOCK+34*, END+2!
CNT	CLOCK+6*, END+3!
DA	END+2!
DIR	EN+6!, EN+9!, END+2!
DIR("?"	EN+8*
DIR("A"	EN+7*
DIR("B"	EN+7*
DIR(0	EN+7*
DIRUT	END+2!
I	CLOCK+35*, END+2!
IOF	EN+1
IOP	CLOCK+34*, CLOCK+38!
LRBOT	CLOCK+12*, END+3!
LRCVT	END+3!
LRDFN	CLOCK+23, CLOCK+24, END+3!
LRDT	CLOCK+10*, CLOCK+11, CLOCK+18, CLOCK+24, CLOCK+25, END+3!
LREND	END+3!
LRERR	EN+2, CLOCK+1, CHECK+2, CHECK+3, CHECK+4, CHECK+6, CHECK+9, CHECK+10, CHECK+12, CHECK+13* , END+3!
LRLDT	CLOCK+11, CLOCK+17, CLOCK+18, CLOCK+20, CLOCK+22, CLOCK+24, CLOCK+25, END+3!
LRLLOC	CLOCK+19, CLOCK+20, CLOCK+22, CLOCK+24, END+3!
LRNM	END+3!
LRPERM	CLOCK+12*, END+3!
LRRE	CLOCK+12*, END+3!
LRRP	CHECK+13, END+3!
LRRP(	EN+5, CHECK+11*
LRRPTN	EN+4, EN+5, CLOCK+29, CLOCK+30, CLOCK+31, DQ+1, CHECK+1~, CHECK+5, CHECK+6, CHECK+7 , CHECK+11, END+3!
LRX	CHECK+1~, CHECK+5!, END+3!
LRX(	CLOCK+31, CLOCK+32, CLOCK+34, CHECK+7, CHECK+8
LRX(0	CLOCK+31, CLOCK+32, CHECK+2, CHECK+3, CHECK+7*, CHECK+9, CHECK+10, CHECK+11, CHECK+12
LRX(6	CHECK+2*, CHECK+4
LRXLR	CLOCK+12*, END+3!
LRYDT	CLOCK+13*, END+3!
PNM	CLOCK+21, CLOCK+22, CLOCK+24, END+2!
>> POP	CLOCK+34
U	EN+2, EN+5, CLOCK+10, CLOCK+11, CLOCK+12, CLOCK+24, CLOCK+25, CLOCK+32, CLOCK+34, DQ+1 , CHECK+3, CHECK+4, CHECK+8, CHECK+9, CHECK+10, CHECK+12, CHECK+13
X	CLOCK+13*, END+2!
X1	END+2!
X2	END+2!
XQ1	END+4!
>> XQA	ALERT+2
>> XQA(	ALERT+1*
XQAMSG	CLOCK+2, CLOCK+4!, CLOCK+7, CLOCK+9, END+4!, ALERT+1
XQXFLG	END+4!
Y	EN+10, CLOCK+13, END+2!, ALERT+1~*
Z	END+2!
>> ZTDESC	EN+11, CLOCK+36
>> ZTDTH	CLOCK+36*
ZTIO	EN+11*, CLOCK+28~
>> ZTQUEUED	DQ+3, END+1
>> ZTREQ	DQ+3, END+1
>> ZTRTN	EN+11, CLOCK+36
>> ZTSAVE(	CLOCK+35*
ZTSK	EN+12, CLOCK+37!

Customize PDF page

Package: Lab Service

Routine: LRFAC

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: