Routine: LRLIST

Package	Total	Call Graph
Lab Service	6	$$DDDATE^LRAFUNC1 EN^LRDIQ CHKDAT^LRLSTWRL DATE^LRWU LRAN^LRWU3 (DASH,DEM)^LRX
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
VA Fileman	4	^%DT ^DIC YN^DICN ^DIR
IHS Changes To Lab	1	$$ISPIMS^BLRUTIL

Package	Total	Caller Graph
Lab Service	1	LR SUP SUMMARY

Entry Points

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

External References

Name	Field # of Occurrence
^%DT	DQ+2
^%ZIS	ALL+1
^%ZISC	END
^%ZTLOAD	ALL+2
$$ISPIMS^BLRUTIL	END+13
^DIC	EN+3
YN^DICN	ALL
^DIR	C+1, INST+1, RANGE+3
$$DDDATE^LRAFUNC1	EN+2, DQ+3
EN^LRDIQ	PR1+20, PR1+21
CHKDAT^LRLSTWRL	EN+3
DATE^LRWU	EN+1, EN+5
LRAN^LRWU3	RANGE+6
DASH^LRX	PR1+6
DEM^LRX	L23+4, PR1
$$FMTE^XLFDT	HD1+1
$$NOW^XLFDT	HD1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Summary List (Supervisors') >>> NOT FOR WARD USE <<<",! Line Location: LRLIST+3
Function Call: WRITE	Prompt: !!?5,"Do you wish to see all tests including Common Accessions " Line Location: ALL+0
Function Call: WRITE	Prompt: !! Line Location: L10+3
Function Call: WRITE	Prompt: "END OF REPORT",! Line Location: L10+4
Function Call: WRITE	Prompt: !! Line Location: L20+6
Function Call: WRITE	Prompt: !,"END OF REPORT",! Line Location: L20+7
Function Call: WRITE	Prompt: !!?10," Accession ",LRAN," deleted ",!!,$C(7) Line Location: PR+1
Function Call: WRITE	Prompt: @IOF Line Location: PR1+1
Function Call: WRITE	Prompt: @IOF Line Location: PR1+2
Function Call: WRITE	Prompt: !!,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+4
Function Call: WRITE	Prompt: !!,PNM,?40,HRCN,!,LRAA(LRAA,1)," ACC: ",$S($D(^LRO(68,+LRAA(LRAA),1,LRAD,1,LRAN,.2)):^(.2),1:"no acc") Line Location: PR1+6
Function Call: WRITE	Prompt: ?45,$S($D(^LRO(68,+LRAA(LRAA),1,LRAD,1,LRAN,.1)):" ORDER #: "_^(.1),1:"") Line Location: PR1+8
Function Call: WRITE	Prompt: !,"Person placing order: ",LRINT Line Location: PR1+9
Function Call: WRITE	Prompt: !," ACCESSION #: ",LRAN," HAS AN ERROR NOTIFY SYSTEM MANAGER >>> ",!! Line Location: PR1+17
Function Call: WRITE	Prompt: !," ACCESSION #: ",LRAN," >>>>ERROR PLEASE NOTIFY SYSTEM MANAGER<<<<<",! Line Location: PR1+18
Function Call: WRITE	Prompt: ! Line Location: PR1+19
Function Call: WRITE	Prompt: @IOF Line Location: TOF+1
Function Call: WRITE	Prompt: @IOF Line Location: TOF+2
Function Call: WRITE	Prompt: ! Line Location: END+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="P-" Line Location: END+0
Function Call: WRITE	Prompt: !,"88888" Line Location: HDR+0
Function Call: WRITE	Prompt: "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($S(LRDATE>0:LRDATE,1:$$NOW^XLFDT),"D") Condition for execution: $L(LRRDT)=4 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: !,"Collecting Site(s) " Line Location: HD1+3
Function Call: WRITE	Prompt: $P(^DIC(4,ZZ,0),U)," / " Line Location: HD1+3
Function Call: WRITE	Prompt: !,LREQ Line Location: HD1+4
Routine Call	DIC Line Location: EN+3
Routine Call	DIR Line Location: C+1 INST+1 RANGE+3
Routine Call	%ZIS Line Location: ALL+1

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)
^DIC(4 - [#4]	HD1+3
^LR - [#63]	L23+4, PR+5, PR1, PR1+18
^LRO(68 - [#68]	EN+3, EN+5, L10, L10+1, L22, L23, L23+1, L23+4, PR+1, PR+2 , PR+3, PR+4, PR1+6, PR1+8, PR1+10, PR1+12
^LRO(69 - [#69]	PR1+9
^TMP("LR"	EN!, L10, L10+1, L10+2, L20+4, L23+4*, L26, L28, END+8!
^VA(200 - [#200]	PR1+9, PR1+14

Label References

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

Naked Globals

Name	Field # of Occurrence
^(	L10+1, PR+5, PR1+6, PR1+8, PR1+13
^(0	L23+4, PR+4, PR1, PR1+9
^(3	L23+4, PR+4
^(4	PR1+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ALL*
>> %DT	DQ+2*
>> %DT("A"	EN+5*
%H	END+8!
>> %ZIS	ALL+1*
A	END+1!
AGE	END+1!
C1	END+9!
D0	END+9!
D1	END+1!
DA	PR1+19*, END+9!
DFN	L23+4, PR1, END+1!
DIC	EN+1, EN+4!, PR1+19, END+1!
DIC("A"	EN+3*
DIC(0	EN+1*
DICS	END+9!
DIR	C!, INST!, INST+2!, END+1!, RANGE!, RANGE+3!
DIR("?"	RANGE+1, RANGE+2
DIR("A"	C, INST, INST+1*
DIR("B"	RANGE*
DIR(0	C, INST, RANGE*
DIRUT	C!, C+1, C+3, INST+2!, L10+2, L10+3, L20, L20+4, L20+6, L22 , L26, L28, PR1+20, PR1+21, END+3!, HDR, HDR+1, RANGE!, RANGE+4
DL	END+9!
DOB	L23+4, END+1!
DR	PR1+19, PR1+21, END+1!
DSC	END+9!
DTOUT	C+1, C+3, L10+2, L10+3, L20, L20+4, L20+6, L22, L26, L28 , PR1+20, PR1+21, END+3!, HDR, HDR+1, RANGE+4
DUOUT	C+1, C+3, L10+2, L10+3, L20, L20+4, L20+6, L22, L26, L28 , PR1+20, PR1+21, END+3!, HDR, HDR+1, RANGE+4
DX	C2!, END+9!
DX(0	C2, C2+1, C2+2*, PR1+3, PR1+16, PR1+20, PR1+21, TOF
HRCN	L20+4*, L23+4, PR1+6, END+6!
>> I	PR+5*
IO	C2+3, DQ
IO("Q"	ALL+2, END+10!
IOF	END, HDR+2
IOM	C2, HD1
ION	ALL+2
IOST	C2+1, C2+2, END, HDR+2
LAST	END+9!
LR	END+3!
LRAA	EN!, L10, L10+1, L10+2, L20, L22, L23, L23+1, L23+4, L26* , L28, PR+1, PR+2, PR+3, PR+4, PR1+6, PR1+8, PR1+10, PR1+12, PR1+17 , PR1+18, PR1+19, END+9!
LRAA(	EN+3*, L10, L10+1, L22, L23, L23+1, L23+4, PR+1, PR+2, PR+3 , PR+4, PR1+6, PR1+8, PR1+10, PR1+12, HD1+2
LRAA(1	EN+5, TST*
LRAD	EN+1, L10, L10+1, L22, L23, L23+1, L23+4, PR+1, PR+2, PR+3 , PR+4, PR1+6, PR1+8, PR1+10, PR1+12, END+9!, DQ+2, DQ+3
LRALL	ALL, L10, L10+1, L23, END+9!, TST
LRAN	L10+2, L22, L23, L23+1, L23+4, L28*, PR+1, PR+2, PR+3, PR+4 , PR1+6, PR1+8, PR1+10, PR1+12, PR1+17, PR1+18, END+1!
LRDATE	EN+5, PR+4, PR+5, END+8!, HD1+1, DQ+6
>> LRDBUG	HDR
LRDFN	L23+4, PR+4, PR+5, PR1, PR1+18, PR1+19, END+3!
LRDPF	L23+4, PR1, END+3!
LRDX	END+9!
LREDT	END+9!
LREND	EN+5, END+9!
LREQ	C2*, END+4!, END+6!, HD1+4
LRFAN	L10, L10+1, L22, END+9!, DQ+4*
LRIDT	PR+4*, PR+5, PR1+18, PR1+19, END+3!
LRIN	PR1+11, PR1+12, PR1+13, PR1+14*, PR1+15, END+10!
LRINST	INST+1*, L23+1, PR+2, END+1!
LRINST(	INST+1*, L23+1, PR+2, HD1+3
LRINST(0	HD1+3
LRINT	PR+4, PR1+9, END+10!
LRL	L10, L10+1, END+9!
LRLAN	L10, L10+1, L22, END+10!, DQ+5*
LRLINE	END+10!
LRLONG	PR1+19, PR1+21, END+8!, RANGE, RANGE+5, DQ+1*
LRNG1	END+2!
LRNG11	END+2!
LRNG12	END+2!
LRNG2	END+2!
LRNG3	END+2!
LRNG4	END+2!
LRNG5	END+2!
LRNL	EN+1, EN+3, EN+4, L10, L10+1, L20, END+10!, HD1+2, TST*
LRODT	PR+4*, PR1+9, END+3!
LRPNM	L20+1, L20+4, L26, L28, END+8!
LRPRAC	END+3!
LRRB	END+3!
LRRDT	EN+2, END+10!, HD1, HD1+1, DQ+3
LRRPG	END+10!, HDR+2, HD1, HD1+5
LRSET	PR+5*, PR+6, END+10!
LRSS	END+10!
LRSS(	EN+3*, PR1+17, PR1+18, PR1+19
LRSS(1	TST*
LRTREA	END+3!
LRWDTL	END+10!
LRWRD	END+3!
LRX	C+2, C2+3, END+10!, DQ+4
PNM	L20+4*, L23+4, PR1+6, END+3!
POP	ALL+1, END+10!
S	C2, L10, L20, L22, L26, L28, PR1+3, PR1+16, PR1+20, PR1+21 , TOF, END+1!, HDR, HDR+1, HD1+4
SEX	END+1!
SSN	END+4!, END+6!
T	END+1!
U	EN+3, EN+5, INST+1, INST+2, L20+4, L23+1, L23+4, PR+2, PR+4, PR1 , PR1+9, PR1+13, PR1+14, HD1+3
VA	END+4!, END+6!
>> X	DQ+2*
>> Y	EN+1, EN+2, EN+3, EN+5, C+2, INST+1, INST+2, RANGE+5, DQ+2
ZTDESC	ALL+2*, END+8!
ZTIO	ALL+2*, END+8!
>> ZTQUEUED	DQ
>> ZTREQ	DQ*
ZTRTN	ALL+2*, END+8!
ZTSAVE	END+8!
ZTSAVE("LR*"	ALL+2*
ZTSK	END+8!
ZZ	END+1!, HD1+2, HD1+3
ZZY	END+1!

Customize PDF page

Package: Lab Service

Routine: LRLIST

Information

Source Information

Call Graph

Call Graph Total: 15

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

Naked Globals

Local Variables

Legend: