Routine: LRLISTE

Information

LRLISTE ;SLC/RWF/CJS/DALISC/FHS/JBM/DRH - LAB RESULTS LIST, EXTENDED ;2/19/91 10:39

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Lab Service	5	EN^LRDIQ CHKDAT^LRLSTWRL DATE^LRWU LRAN^LRWU3 DEM^LRX
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA FileMan	2	^DIC YN^DICN

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: 1

Package	Total	Caller Graph
Lab Service	1	LRLISTE

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
C
ALL
C2	;
L10
L20
L22
L23
L26
L28
PR
PR1
END
HDR
HD1
LINECHK	;
PAGECHK	;
RANGE
DQ

External References

Name	Field # of Occurrence
^%ZIS	ALL+1
^%ZISC	END
^%ZTLOAD	ALL+2
^DIC	EN+4
YN^DICN	ALL
EN^LRDIQ	PR1+6, PR1+13
CHKDAT^LRLSTWRL	EN+4
DATE^LRWU	EN+1
LRAN^LRWU3	RANGE+1
DEM^LRX	L23+1, PR1
$$FMTE^XLFDT	EN+2, HD1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Summary List (Supervisers') >>> NOT FOR WARD USE <<<",! Line Location: EN+1
Function Call: READ	Timeout: DTIME Line Location: C+0
Function Call: WRITE	Prompt: !!?5,"Do you wish to see all tests including Common Accessions " Line Location: ALL+0
Function Call: WRITE	Prompt: !!,"END OF REPORT",! Line Location: L10+3
Function Call: WRITE	Prompt: !,LRDASH,!!,PNM,?40,SSN," ",LRAA(LRAA,1)," ACC: ",$S($D(^LRO(68,LRAA(LRAA),1,LRAD,1,LRAN,.2)):^(.2),1:"no acc") Line Location: PR1+3
Function Call: WRITE	Prompt: !,"Person placing order: ",LRINT Line Location: PR1+4
Function Call: WRITE	Prompt: !,?40,$S($D(^LRO(68,LRAA(LRAA),1,LRAD,1,LRAN,.1)):" ORD: "_^(.1),1:"") Line Location: PR1+8
Function Call: WRITE	Prompt: !," ACCESSION #: ",LRAN," >>>>ERROR PLEASE NOTIFY SYSTEM MANAGER<<<<<",! Line Location: PR1+9
Function Call: WRITE	Prompt: ! Line Location: PR1+13
Function Call: WRITE	Prompt: @IOF,!,"SUMMARY LIST (SUPERVISORS') FOR DATE: ",LRRDT,?(IOM-12),"PAGE: ",LRRPG,! Line Location: HD1+0
Function Call: WRITE	Prompt: " >> NOT FOR WARD USE <<" Line Location: HD1+1
Function Call: WRITE	Prompt: ?40,"Report for date: ",$$FMTE^XLFDT(LRAD,1) Condition for execution: $L(LRRDT)=4 Line Location: HD1+1
Function Call: WRITE	Prompt: ! Line Location: HD1+1
Function Call: WRITE	Prompt: !,"ACCESSION AREA(S) :" Line Location: HD1+2
Function Call: WRITE	Prompt: LRAA(ZZ,1)," " Line Location: HD1+2
Function Call: WRITE	Prompt: !,LRDASH(2) Line Location: HD1+3
Function Call: READ	Formatting: ! Prompt: "(L)ONG OR (S)HORT LISTING: S//" Variable: X Timeout: DTIME Line Location: RANGE+0
Function Call: WRITE	Prompt: !?5,"Long listing shows verified results where short list does not",! Line Location: RANGE+0
Routine Call	%ZIS Line Location: ALL+1
Routine Call	DIC Line Location: EN+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LRO(68 - [#68]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61 - [#61]	PR1+12
^LR - [#63]	L23+1, PR1, PR1+9, PR1+10
^LRO(68 - [#68]	L10, L10+1, L22, L23, L23+1, PR, PR1+3, PR1+5, PR1+8
^LRO(69 - [#69]	PR1+4
^TMP($J	EN+1!, L10, L10+1, L10+2, L20+2, L23+1*, L26, L28, END!
^VA(200 - [#200]	PR1+4

Label References

Name	Line Occurrences
ALL	ALL
C	C
C2	DQ
EN	EN+5
END	EN+1, C, ALL, ALL+1, ALL+2, C2+1, L10+2, L10+3, L20+3
HD1	HDR
HDR	C2+1, PR1+1, PAGECHK+1
L10	C2+1
L20	C2+1
L22	L20
L23	L22
L26	L20+2
L28	L26
LINECHK	PR1+2, PR1+3, PR1+4, PR1+6, PR1+7, PR1+12, PR1+13
PAGECHK	LINECHK+1
PR	L10+2, L28
PR1	PR
RANGE	C+1, RANGE

Naked Globals

Name	Field # of Occurrence
^(	L10+1, PR1+3, PR1+8
^(0	L23+1, PR, PR1, PR1+4
^(3	L23+1, PR

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ALL*
%H	END!
>> %ZIS	ALL+1*
C1	END!
D0	END!
DA	PR1+6!, PR1+13, END!
DA(1	PR1+6*
DA(2	PR1+6*
DA(3	PR1+6*
>> DFN	L23+1, PR1
DIC	EN+3, EN+5!, PR1+6, PR1+13*, END+1!
DIC("A"	EN+4*
DIC(0	EN+3*
DICS	END!
DL	END!
>> DOB	L23+1
DR	PR1+6!, PR1+13
DSC	END!
DTIME	C, RANGE
DTOUT	L10+2, L20+2, L26, L28, PR1+6, END+1!
DUOUT	L10+2, L20+2, L26, L28, PR1+6, END+1!, LINECHK+3
DX	END!
DX(0	LINECHK+2
IO	C2+1, DQ
IO("Q"	ALL+2, END!
IOF	HD1
IOM	EN+3, C2+1, HD1
ION	ALL+2
IOSL	PR1+1, PR1+3, PR1+4, PR1+8, PR1+12, PR1+13, HD1+5, PAGECHK+1
IOST	PR1+1, LINECHK+1, PAGECHK+1
>> J	EN+4*
L	L10, L10+1, END!
LAST	END!
LRAA	L10, L10+1, L10+2, L20, L22, L23, L23+1, L26*, L28, PR , PR1+3, PR1+5, PR1+6, PR1+8, PR1+9, PR1+10, PR1+13, END!
LRAA(	EN+4*, L10, L10+1, L22, L23, L23+1, PR, PR1+3, PR1+5, PR1+6 , PR1+8, HD1+2
LRAD	EN+2*, L10, L10+1, L22, L23, L23+1, PR, PR1+3, PR1+5, PR1+6 , PR1+8, END!, HD1+1
LRALL	ALL*, L10, L10+1, L23, END!
>> LRAN	L10+2, L22, L23, L23+1, L28*, PR, PR1+3, PR1+5, PR1+6, PR1+8 , PR1+9
LRCP	PR1+10, PR1+11, PR1+12, END+1!
LRDASH	EN+3*, PR1+3, END!
LRDASH(2	EN+3, C2+1, HD1+3
LRDATE	END!
>> LRDFN	L23+1, PR, PR1, PR1+9, PR1+10, PR1+13
>> LRDPF	L23+1, PR1
LRDX	END!
LREDT	END!
LREND	PR1, PR1+2, PR1+3, PR1+4, PR1+6, PR1+7, PR1+12, PR1+13, END!, LINECHK+3*
LRFAN	L10, L10+1, L22, END!
>> LRIDT	PR*, PR1+9, PR1+10, PR1+13
LRIN	END!
LRINT	PR, PR1+4, END!
LRLAN	L10, L10+1, L22, END!
LRLINE	END!
LRLONG	PR1+5, PR1+13, END!, RANGE*
LRNL	EN+3, EN+4, EN+5, L10, L10+1, L20, END!, HD1+2
>> LRODT	PR*, PR1+4
LRPNM	L20+1, L20+2, L26, L28, END!
LRRDT	EN+2*, END!, HD1, HD1+1
LRRPG	END!, HDR, HD1, HD1+4
LRSET	END!
LRSP	PR1+12*, END!
LRSS	END!
LRSS(	EN+4*, PR1+9, PR1+10, PR1+13
LRWDTL	END!
LRX	C*, C2+1, PR1, END!
>> PNM	L20+2*, L23+1, PR1+3
POP	ALL+1, END!
>> S	PR1+3, PR1+4, PR1+8, PR1+12, PR1+13, HD1+5
>> SSN	L20+2*, L23+1, PR1+3
U	EN+4, L20+2, L23+1, PR, PR1, PR1+4, PR1+12
>> X	RANGE*
>> Y	EN+1, EN+2, EN+4
>> Y(0	EN+4
ZTDESC	ALL+2*, END!
ZTIO	ALL+2*, END!
>> ZTQUEUED	DQ
>> ZTREQ	DQ*
ZTRTN	ALL+2*, END!
ZTSAVE	END!
ZTSAVE("LR*"	ALL+2*
ZTSK	END!
>> ZZ	HD1+2*

Customize PDF page

Package: Lab Service