Routine: LRWRKLS1

Package	Total	Call Graph
VA Fileman	3	$$GET1^DID $$GET1^DIQ ^DIR
Kernel	2	$$S^%ZTLOAD ($$FMTE,$$HTE)^XLFDT
Lab Service	2	PRAC^LR7OMERG (DASH,PT)^LRX

Package	Total	Caller Graph
Lab Service	2	LRHYLS1 LRWRKLST

Entry Points

Name	Comments	DBIA/ICR reference
LEDI	; print LEDI information
CHKPAGE	; ; Check if task and user wants to stop task.
TSTCOM	; Display test comments
LST1	;from LRWRKLST

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	CHKPAGE+2
$$GET1^DID	LEDI+9, LEDI+10, LEDI+15
$$GET1^DIQ	LST1+50, LST1+57, LST1+64, TSTCOM+13, LEDI+6, LEDI+13
^DIR	CHKPAGE+11
PRAC^LR7OMERG	LST1+62
DASH^LRX	LST1+17
PT^LRX	LST1+7
$$FMTE^XLFDT	LST1+13, LST1+14, LST1+15, LST1+30, LST1+44
$$HTE^XLFDT	CHKPAGE+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LST1+17
Function Call: WRITE	Prompt: !,"ACCESSION: ",LRACC,?40,"PATIENT: ",PNM Line Location: LST1+23
Function Call: WRITE	Prompt: !," ORDER #: ",LRCE,?43,"HRCN: ",HRCN,! Line Location: LST1+26
Function Call: WRITE	Prompt: ?44,"DOB: ",$$FMTE^XLFDT(DOB,"5MZ") Line Location: LST1+30
Function Call: WRITE	Prompt: !," LOCATION: ",$E($P(LRDX,"^",7),1,19) Line Location: LST1+31
Function Call: WRITE	Prompt: ?40,"ORDERED: ",$$FMTE^XLFDT(DTTORD,"5MZ"),! Line Location: LST1+44
Function Call: WRITE	Prompt: !," PROVIDER: ",LRX Line Location: LST1+52
Function Call: WRITE	Prompt: !," ACCESSION PERSON: ",$$GET1^DIQ(68.02,LRAN_","_LRAD_","_LRAA,"LOG-IN PERSON") Line Location: LST1+57
Function Call: WRITE	Prompt: !?11,$$GET1^DIQ(200,PR_",",.01) Line Location: LST1+64
Function Call: WRITE	Prompt: !," Order Comment:" Line Location: LST1+75
Function Call: WRITE	Prompt: !?11,^(I,0) Line Location: LST1+77
Function Call: WRITE	Prompt: !," CANCELED TEST: ",$P($G(^LAB(60,+LRX,0),"UNKNOWN"),"^") Line Location: TSTCOM+11
Function Call: WRITE	Prompt: " "_$E($P($G(^LAB(62.05,+$P(LRX,"^",2),0),"ROUTINE"),"^"),1,15) Line Location: TSTCOM+12
Function Call: WRITE	Prompt: " by: "_$$GET1^DIQ(200,+$P(LRX,"^",11)_",",.01) Line Location: TSTCOM+13
Function Call: WRITE	Prompt: !?3,": "_LRY Line Location: TSTCOM+17
Function Call: WRITE	Prompt: !," Accession Comment: ",LRACO Line Location: TSTCOM+20
Function Call: WRITE	Prompt: ! Line Location: TSTCOM+22
Function Call: WRITE	Prompt: !!,"* Report requested to stop by TaskMan *" Line Location: CHKPAGE+4
Function Call: WRITE	Prompt: !,"* Task #",$G(ZTQUEUED,"UNKNOWN")," stopped at ",$$HTE^XLFDT($H)," *" Line Location: CHKPAGE+5
Function Call: WRITE	Prompt: ! Line Location: CHKPAGE+14
Function Call: WRITE	Prompt: !! Line Location: LEDI+8
Function Call: WRITE	Prompt: $J($$GET1^DID(68.02,16.2,"","LABEL")_": ",17),$E(LRX,1,20) Line Location: LEDI+9
Function Call: WRITE	Prompt: ?40,$$GET1^DID(68.02,16.4,"","LABEL"),": ",LRUID Line Location: LEDI+10
Function Call: WRITE	Prompt: !,$J($$GET1^DID(68.02,16.1,"","LABEL")_": ",17),$E(LRX,1,20) Line Location: LEDI+15
Routine Call	DIR Line Location: CHKPAGE+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
68.02	GET1^DID, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	TSTCOM+11
^LAB(62.05 - [#62.05]	TSTCOM+12
^LR - [#63]	LST1+4, LST1+6
^LRO(68 - [#68]	LST1+3, LST1+10, LST1+12, LST1+28, LEDI+4
^LRO(69 - [#69]	LST1+37, LST1+39, LST1+41, LST1+74, LST1+77, TSTCOM+8, TSTCOM+9, TSTCOM+15, TSTCOM+16

Label References

Name	Line Occurrences
CHKPAGE	LST1+1, LST1+20, LST1+66, LST1+77, TSTCOM+18
LEDI	LST1+70

Naked Globals

Name	Field # of Occurrence
^(	LST1+3, LST1+77
^(0	LST1+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	LST1+6*
DIR	CHKPAGE+9!
DIR(0	CHKPAGE+10*
>> DIRUT	CHKPAGE+12
>> DOB	LST1+30
DTTORD	LST1+36~, LST1+41*, LST1+42, LST1+44
FMDTORD	LST1+36~, LST1+37*, LST1+38, LST1+39, LST1+41
>> HRCN	LST1+26
>> I	LST1+76, LST1+77
IOSL	CHKPAGE+8
IOST	CHKPAGE+7
>> LN	LST1+19, LST1+54, LST1+58, LST1+64, LST1+75, LST1+77, TSTCOM+14, TSTCOM+18, TSTCOM+20, TSTCOM+22 , CHKPAGE+8, CHKPAGE+13, LEDI+11, LEDI+16*
>> LRAA	LST1+3, LST1+10, LST1+12, LST1+28, LST1+57, LST1+62, LEDI+4
>> LRACC	LST1+3*, LST1+23
>> LRACO	LST1+9, LST1+12, TSTCOM+20
>> LRAD	LST1+3, LST1+10, LST1+12, LST1+28, LST1+57, LST1+62, LEDI+4
>> LRAN	LST1+3, LST1+10, LST1+12, LST1+28, LST1+57, LST1+62, LEDI+4
>> LRCE	LST1+3*, LST1+26, LST1+35, LST1+37, LST1+39
>> LRDLA	LST1+9, LST1+14, LST1+53
>> LRDLC	LST1+9, LST1+13, LST1+47
>> LRDPF	LST1+6*
>> LRDTO	LST1+15*
>> LRDX	LST1+3*, LST1+4, LST1+6, LST1+15, LST1+31, LST1+46, LST1+49, LST1+73, TSTCOM+22
>> LREND	CHKPAGE+12*
LRI	TSTCOM+2~, TSTCOM+7, TSTCOM+8, TSTCOM+9, TSTCOM+15, TSTCOM+16
LRI(2	TSTCOM+14, TSTCOM+15, TSTCOM+16
LRIENS	LEDI+2~, LEDI+4*, LEDI+6, LEDI+13
LRORDIEN	LST1+36~, LST1+39*, LST1+40, LST1+41
>> LRPRAC	LST1+49*, LST1+50, LST1+51
>> LRSTOP	LST1+2, LST1+21, LST1+67, LST1+77, TSTCOM+4, TSTCOM+15, CHKPAGE+3, CHKPAGE+7, CHKPAGE+12
LRUID	LEDI+2~, LEDI+6*, LEDI+7, LEDI+10
LRX	LST1+49, LST1+50, LST1+51, LST1+52, TSTCOM+2~, TSTCOM+9, TSTCOM+10, TSTCOM+11, TSTCOM+12, TSTCOM+13 , LEDI+2~, LEDI+6, LEDI+7, LEDI+9, LEDI+13, LEDI+14, LEDI+15
LRY	LST1+11~, LST1+12, LST1+13, LST1+14, TSTCOM+2~, TSTCOM+16, TSTCOM+17, LEDI+2~, LEDI+4*, LEDI+6
>> PNM	LST1+23
PR	LST1+61~, LST1+63, LST1+64
PRAC	LST1+61~, LST1+62
PRAC(	LST1+64
U	LST1+6, LST1+12, LST1+46, LST1+73, TSTCOM+22
>> X	LST1+28*, LST1+29
>> X1	LST1+73*, LST1+74, LST1+77, TSTCOM+8, TSTCOM+9, TSTCOM+15, TSTCOM+16
>> X2	LST1+73*, LST1+74, LST1+77, TSTCOM+8, TSTCOM+9, TSTCOM+15, TSTCOM+16
>> ZTQUEUED	CHKPAGE+2, CHKPAGE+5, CHKPAGE+7
>> ZTSTOP	CHKPAGE+3*

Customize PDF page

Package: Lab Service

Routine: LRWRKLS1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: