Routine: LRACFR

Information

LRACFR ;MILW/JMC- Lab cumulative print fileroom patients ;2/20/91 08:33 ;

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD SETUP^XQALERT
VA FileMan	3	^%DT (,H,YMD)^%DTC ^DIR
Lab Service	1	ENT^LRAC1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Lab Service	2	LRAC MANUAL FILEROON CUM LRTASK CUM FILEROOM

Entry Points

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

External References

Name	Field # of Occurrence
^%DT	CLOCK+11
^%DTC	CLOCK+14
H^%DTC	CLOCK+17
YMD^%DTC	CLOCK+17
^%ZIS	CLOCK+31
^%ZISC	CLOCK+35
^%ZTLOAD	EN+12, CLOCK+34
^DIR	EN+9
ENT^LRAC1	DQ+2
SETUP^XQALERT	CLOCK+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"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: " ...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+31

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(64.5 - [#64.5]	CLOCK+6, CLOCK+7, CLOCK+8, CLOCK+9, CLOCK+10, CLOCK+27, CLOCK+28, DQ+1, DQ+3, CHECK+2 , CHECK+6, CHECK+7
^LAC("LRAC" - [#64.7]	CLOCK+6, CLOCK+23
^LAC($J	CLOCK+5!
^LRO(69 - [#69]	CLOCK+19, CLOCK+21, CLOCK+23*
^XUSEC("LRLIASON"	CLOCK+3

Label References

Name	Line Occurrences
CHECK	EN+2, CLOCK+1
END	EN+2, EN+13, CLOCK+1, CLOCK+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	CLOCK+11*, END+2!
%H	CLOCK+17*, END+2!
%ZIS	CLOCK+31*, END+2!
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+17, CLOCK+32, END+2!
IOF	EN+1
IOP	CLOCK+31*, CLOCK+35!
LRBOT	CLOCK+10*, END+3!
LRCVT	CLOCK+16*, CLOCK+17, END+3!
LRDFN	CLOCK+22, CLOCK+23, END+3!
LRDT	CLOCK+8*, CLOCK+14, CLOCK+23, DQ+1, END+3!
LREND	CHECK+12, 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!
LRFRDT	DQ+1*, DQ+3, DQ+5!
LRLDT	CLOCK+8, CLOCK+14, CLOCK+17, CLOCK+19, CLOCK+21, CLOCK+23, END+3!
LRLLOC	CLOCK+18, CLOCK+19, CLOCK+21, CLOCK+23, END+3!
LRNM	END+3!
LRPERM	CLOCK+10*, END+3!
LRRE	CLOCK+10*, END+3!
LRRP	CHECK+13, END+3!
LRRP(	EN+5, CHECK+11*
LRRPTN	EN+4, EN+5, CLOCK+26, CLOCK+27, CLOCK+28, DQ+1, CHECK+1~, CHECK+5, CHECK+6, CHECK+7 , CHECK+11, END+3!
LRX	CHECK+1~, CHECK+5!, END+3!
LRX(	CLOCK+28, CLOCK+29, CLOCK+31, CHECK+7, CHECK+8
LRX(0	CLOCK+28, CLOCK+29, CHECK+2, CHECK+3, CHECK+7*, CHECK+9, CHECK+10, CHECK+11, CHECK+12
LRX(6	CHECK+2*, CHECK+4
LRXLR	CLOCK+10*, END+3!
LRYDT	CLOCK+11*, END+3!
PNM	CLOCK+20, CLOCK+21, CLOCK+23, END+2!
>> POP	CLOCK+31
U	EN+2, EN+5, CLOCK+8, CLOCK+10, CLOCK+23, CLOCK+29, CLOCK+31, DQ+1, DQ+3, CHECK+3 , CHECK+4, CHECK+8, CHECK+9, CHECK+10, CHECK+12, CHECK+13
X	CLOCK+11, CLOCK+15, CLOCK+16, CLOCK+17, END+2!
X1	CLOCK+14*, END+2!
X2	CLOCK+14*, END+2!
XQA	CLOCK+3!, CLOCK+4
XQA(	CLOCK+3*
>> XQAMSG	CLOCK+2*
Y	EN+10, CLOCK+3*, CLOCK+11, END+2!
Z	END+2!
>> ZTDESC	EN+11, CLOCK+33
>> ZTDTH	CLOCK+33*
ZTIO	EN+11*, CLOCK+25~
>> ZTQUEUED	DQ+4, END+1
>> ZTREQ	DQ+4, END+1
>> ZTRTN	EN+11, CLOCK+33
>> ZTSAVE(	CLOCK+32*
ZTSK	EN+12, CLOCK+34!

Customize PDF page

Package: Lab Service