Routine: LRWRKLST

Information

LRWRKLST ;DALOI/CJS/DRH-LONG ACCESSION LIST ; 13-Oct-2017 14:04 ; MKK

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Lab Service	6	$$STATUS^LREVENT (CHKPAGE,LST1)^LRWRKLS1 ADATE^LRWU (LRAN,STAR)^LRWU3 ^LRWU4 URG^LRX
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
VA Fileman	3	^DIC $$GET1^DIQ ^DIR
IHS Changes To Lab	1	$$ISPIMS^BLRUTIL

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Lab Service	4	LR LOOKUP ACCESSION LRACC1 LRMIACC1 LRVR

Entry Points

Name	Comments	DBIA/ICR reference
LREND	; ; D KVAR^VADPT
TESTS	;
EN	;
REF	; if referred test, display status and manifest
AC	;
SINGLE	;
PHD	;
HED	;
LST	;
ENT	;
W	;from LRVER, LRVR
TD	; Check tests on accession to determine if meets criteria to display. ; If incomplete only (LRUNC=1) and complete date then skip ; If not specific test selected (LRTSE=file #60 ien) then skip ; Otherwise set LRTST array with file #60 ien.
TS2	;

External References

Name	Field # of Occurrence
^%ZIS	W+23
^%ZISC	W+24, W+30, ENT+23
^%ZTLOAD	W+30
$$ISPIMS^BLRUTIL	LREND+4
^DIC	LRWRKLST+16, W+14
$$GET1^DIQ	TS2+15
^DIR	W+9, W+19
$$STATUS^LREVENT	REF+7
CHKPAGE^LRWRKLS1	TESTS+3, TS2+2
LST1^LRWRKLS1	LST+1, SINGLE+11
ADATE^LRWU	PHD+3
LRAN^LRWU3	PHD+4
STAR^LRWU3	LRWRKLST+20
^LRWU4	SINGLE+8
URG^LRX	ENT+9, SINGLE+4
$$FMTE^XLFDT	LRWRKLST+12, TS2+34
$$NOW^XLFDT	LRWRKLST+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Task ",$S($G(ZTSK):ZTSK,1:"NOT")," Queued" Line Location: W+31
Function Call: WRITE	Prompt: !,$P(^(1),U,6) Line Location: TESTS+16
Function Call: WRITE	Prompt: !,"ALL COMPLETED",!! Line Location: TESTS+23
Function Call: WRITE	Prompt: !," TEST: ",$P($G(^LAB(60,+LRXXX,0),"deleted test"),"^") Line Location: TS2+6
Function Call: WRITE	Prompt: ?40,$S($D(LRURG(LRURG)):LRURG(LRURG),1:"") Line Location: TS2+9
Function Call: WRITE	Prompt: ?40," ",$S($D(LRURG(LRURG)):LRURG(LRURG),1:"") Line Location: TS2+12
Function Call: WRITE	Prompt: ?TAB,"TECH: ",TECH Line Location: TS2+18
Function Call: WRITE	Prompt: !,?8,"TECH: ",TECH Line Location: TS2+19
Function Call: WRITE	Prompt: !?3,": "_^(I,0) Line Location: TS2+30
Function Call: WRITE	Prompt: !," COMPLETED: ",$$FMTE^XLFDT($P(LRXXX,U,5),"5MZ") Line Location: TS2+34
Function Call: WRITE	Prompt: !,?5,"REFERRAL STATUS: "_$P(LREVNT,"^")_" ("_$P(LREVNT,"^",2)_")" Line Location: REF+9
Function Call: WRITE	Prompt: !,?8,"SHIPPING MANIFEST: "_$P(LREVNT,"^",3) Line Location: REF+10
Function Call: WRITE	Prompt: @IOF,!,"LONG FORM",?30,"NOT FOR WARD USE",! Line Location: HED+1
Function Call: WRITE	Prompt: "Accession Area: ",LRNAME,?40,LRDT,!! Line Location: HED+2
Function Call: WRITE	Prompt: !,"Doesn't exist." Line Location: SINGLE+10
Function Call: WRITE	Prompt: ! Line Location: SINGLE+12
Routine Call	DIC Line Location: LRWRKLST+16 W+14
Routine Call	DIR Line Location: W+9 W+19
Routine Call	%ZIS Line Location: W+23

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^LAB(60 - [#60]	Classic Fileman Calls
^LRO(68 - [#68]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	TS2+6
^LAB(61 - [#61]	TESTS+9
^LAB(62 - [#62]	TESTS+10
^LAHM(62.8 - [#62.8]	REF+6
^LRO(68 - [#68]	LRWRKLST+20, W+3, W+6, ENT+14, ENT+21, TD+7, TD+8, TD+10, TD+11, TD+12 , TESTS+6, TESTS+8, TESTS+22, TS2+5, REF+4, AC+4, AC+6, AC+7, SINGLE+10
^LRO(68.2 - [#68.2]	TS2+23
^LRO(69 - [#69]	TESTS+15, TESTS+16, TS2+25, TS2+27, TS2+28, TS2+30

Label References

Name	Line Occurrences
@(	LREND+4
AC	ENT+21
HED	ENT+9, LST+1
LREND	LRWRKLST+9, LRWRKLST+17, LRWRKLST+21, LRWRKLST+24, W+3, W+10, W+20, W+24, W+32, ENT+23 , SINGLE+14
LST	ENT+17, AC+10
PHD	LRWRKLST+23
REF	TS2+32
TD	ENT+15, AC+8, SINGLE+11
TESTS	ENT+17, AC+10, SINGLE+11
TS2	TESTS+20

Naked Globals

Name	Field # of Occurrence
^(	TS2+30
^(0	TD+8, TESTS+8
^(1	TESTS+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LREND+6!
%DT	LREND+6!
%T	W+28~
%ZIS	W+23*, LREND+6!
AGE	LREND+7!
DFN	LREND+7!
DIC	LRWRKLST+15, W+12~, W+13, LREND+7!, LREND+9!
DIC("S"	LRWRKLST+8, LRWRKLST+10*
DIC(0	LRWRKLST+15, W+13
DIR	W+2~, W+17!, LREND+7!
DIR("A"	W+8, W+18
DIR("B"	W+8, W+18
DIR(0	W+8, W+18
DIROUT	W+2~
DIRUT	W+2~, W+10, W+20, LREND+7!
DOB	LREND+7!
DTOUT	W+2~, LREND+7!
DUOUT	LREND+7!
HRCN	LREND+15!
I	TS2+26~, TS2+29, TS2+30
IO	ENT+8
IO("Q"	W+27, W+32!
IOF	HED+1
IOM	TS2+17
IOSL	LST+1
IOST	LST+1
K	LREND+7!
LAST	LRWRKLST+20, LREND+7!
LN	TESTS+13, TESTS+16, TESTS+24, TS2+7, TS2+19, TS2+20, TS2+34, REF+11, HED+3*, LREND+7!
LRA	LREND+7!
LRAA	LRWRKLST+16*, LRWRKLST+17, LRWRKLST+20, W+3, W+6, ENT+14, ENT+21, TD+7, TD+8, TD+10 , TD+11, TD+12, TESTS+6, TESTS+8, TESTS+22, TS2+5, REF+4, AC+4, AC+6, AC+7 , LREND+9!, SINGLE+10
LRACC	LREND+8!, SINGLE+2~, SINGLE+8*
LRACO	LREND+9!
LRAD	W+3, ENT+14, ENT+21*, TD+7, TD+8, TD+10, TD+11, TD+12, TESTS+6, TESTS+8 , TESTS+22, TS2+5, REF+4, AC+4, AC+6, AC+7, LREND+9!, SINGLE+10
LRAN	ENT+13, ENT+14, TD+7, TD+8, TD+10, TD+11, TD+12, TESTS+6, TESTS+8, TESTS+22 , TS2+5, REF+4, AC+5, AC+6, AC+7, LREND+10!, SINGLE+9, SINGLE+10
LRB	LREND+11!
LRCE	LREND+10!
LRDAT	TD+8*, TESTS+15, TESTS+16, TS2+25, TS2+27, TS2+28, TS2+30, LREND+9!
LRDFN	LREND+12!
LRDICS	LRWRKLST+5~, LRWRKLST+8*, LRWRKLST+10
LRDLA	LREND+8!
LRDLC	LREND+8!
LRDPF	LREND+10!
LRDT	LRWRKLST+12*, HED+2, LREND+11!
LRDTO	LREND+10!
LRDX	LREND+8!
LREDT	LREND+12!
LREND	LRWRKLST+14, LRWRKLST+21, LRWRKLST+24, ENT+5, ENT+15, ENT+16, TD+7, TD+15, TESTS+4, TS2+3 , PHD+1, PHD+2, PHD+3, AC+1, AC+8, AC+9, LREND+11!, SINGLE+2~, SINGLE+6, SINGLE+7 , SINGLE+9*
LREVNT	REF+2~, REF+7*, REF+8, REF+9, REF+10
LRFAN	ENT+13, LREND+11!
LRI	TD+9, TD+10, TD+11, TD+12, TD+13, TESTS+19, TESTS+20, TS2+5, TS2+25, TS2+27 , LREND+8!
LRIX	LREND+11!
LRLAN	ENT+14, LREND+11!
LRLAST	LRWRKLST+20*, AC+4, LREND+10!
LRLLOC	LREND+12!
LRLO69	TESTS+15*, TESTS+16, LREND+8!
LRMAN	REF+2~, REF+5, REF+6, REF+7
LRNAC	TESTS+18!, TESTS+22, TS2+35*, LREND+10!
LRNAME	LRWRKLST+16, W+6, HED+2, LREND+11!
LRPRAC	LREND+10!
LRSAMP	TESTS+8*, TESTS+10, LREND+8!
LRSDT	LREND+12!
LRSN	TD+8*, TESTS+15, TESTS+16, TS2+25, TS2+27, TS2+28, TS2+30, LREND+10!
LRSPEC	TESTS+8*, TESTS+9, LREND+8!
LRSTAR	LRWRKLST+23, W+3, ENT+12, ENT+20, AC+3, LREND+10!
LRSTOP	ENT+5, ENT+14, ENT+21, TESTS+4, TS2+3, AC+1, AC+4, AC+6, LREND+12!, SINGLE+2~ , SINGLE+6, SINGLE+7
LRTK	AC+3, AC+4, AC+6, LREND+12!
LRTSE	W+5, W+15, TD+11, LREND+11!, SINGLE+2~, SINGLE+7*
LRTST	ENT+2~, TD+5!, TD+15, LREND+11!
LRTST(	TD+13*, TESTS+20
LRUID	REF+2~, REF+4*, REF+7
LRUNC	W+5, W+21, TD+12, LREND+9!, SINGLE+2~, SINGLE+7*
LRURG	TS2+5*, TS2+12, LREND+9!, SINGLE+2~
LRURG(	TS2+12
LRWDTL	ENT+21, LREND+12!
LRWRD	LREND+9!
LRXXX	TS2+5*, TS2+6, TS2+13, TS2+15, TS2+23, TS2+34, REF+5, REF+7, LREND+10!
PNM	LREND+13!
POP	W+24, LREND+12!
S1	TESTS+1~, TESTS+9*, TESTS+12
S2	TESTS+1~, TESTS+10*, TESTS+12
SEX	LREND+13!
SSN	LREND+13!
TAB	TS2+14~, TS2+17*, TS2+18
TECH	TS2+14~, TS2+15*, TS2+16, TS2+18, TS2+19
TECHLEN	TS2+14~, TS2+16*, TS2+17
U	LRWRKLST+16, LRWRKLST+20, W+6, TD+8, TESTS+8, TESTS+9, TESTS+10, TESTS+16, TESTS+22, TS2+5 , TS2+13, TS2+15, TS2+23, TS2+34, PHD+2*
X	W+12~, TS2+26~, TS2+27*, TS2+28, TS2+30, LREND+13!
X1	LREND+13!
X2	LREND+13!
Y	LRWRKLST+16, W+11, W+12~, W+15, W+21, LREND+13!
Z	LREND+13!
ZTDESC	W+28~, W+29*
ZTIO	W+28~
>> ZTQUEUED	ENT+4
>> ZTREQ	ENT+4*
ZTRTN	W+28~, W+29*
ZTSAVE	W+28~
ZTSAVE("LR*"	W+29*
ZTSK	W+28~, W+31, LREND+13!

Customize PDF page

Package: Lab Service

Routine: LRWRKLST

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: