Routine: LRWLST

Information

LRWLST ;FHS/DALOI - ACCESSION SETUP. LROE1,LRSTIK & LRFAST CALL HERE ; Aug 9, 2004

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Lab Service	3	NEW^LR7OB1 ^LRWLST1 (DT,PT)^LRX
Kernel	2	(T0,T1)^%ZOSV $$FMADD^XLFDT
VA FileMan	1	^DIC

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

Package	Total	Caller Graph
Lab Service	7	LRCONJAM LRFAST LRORDST LRPHITEM LRQCLOG LRSLOW LRVRPOC

Entry Points

Name	Comments	DBIA/ICR reference
LRAA	;
WL1	; ; LRDAA is used by POC interface to specify the POC accession area.
WL2	;
SET	;
FWL	;
EXP	;
PRESET	;
PR2	;
YN	;
UNDO	;Clean up ^LRO(69
OR	;from LRPHITEM

External References

Name	Field # of Occurrence
T0^%ZOSV	LRWLST+5
T1^%ZOSV	LRWLST+11
^DIC	FWL+16
NEW^LR7OB1	LRWLST+9, UNDO+8
^LRWLST1	LRWLST+7
DT^LRX	LRWLST+3
PT^LRX	PRESET+3
$$FMADD^XLFDT	PR2+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,LRNM," TO ",$P(^LRO(68,LRAA,0),U)," accessions","? Y//" Line Location: WL2+3
Function Call: WRITE	Prompt: !?10,"COMMON Accession Area ",$P($G(^LRO(68,+$G(LRPWL),0)),U),! Line Location: WL2+12
Function Call: WRITE	Prompt: !,$P(^LAB(60,LRPARENT,0),U)," does not have an appropriate accession area",! Line Location: FWL+8
Function Call: WRITE	Prompt: !,"NO ACCESSION AREA FOR ORDER NUMBER ",^LRO(69,LRODT,1,LRSN,.1)," TEST ",$P(^LAB(60,LRTSTS,0),U),! Line Location: FWL+11
Function Call: WRITE	Prompt: !,LRNM," does not have an appropriate accession area.",!,"ORDER # ",LRORD," IS NOT ACCESSIONED",! Line Location: FWL+12
Function Call: WRITE	Prompt: !,"For test: ",LRNM Line Location: FWL+13
Function Call: WRITE	Prompt: !,$C(7),"CAN'T DO IT. The data has been verified for that log number." Line Location: PR2+5
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N': " Line Location: YN+4
Routine Call	DIC Line Location: FWL+16

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(60 - [#60]	WL1+5, WL1+6, FWL+1, FWL+8, FWL+11, EXP+2
^LR - [#63]	PRESET+3, PRESET+5, PR2+2, PR2+5, PR2+6, PR2+7, PR2+11!
^LRO(68 - [#68]	WL2+2, WL2+3, WL2+5, WL2+6, WL2+8, WL2+9, WL2+12, PRESET+1!, PRESET+2, PRESET+3 , PRESET+4, PR2+8, PR2+9!, PR2+10!, PR2+11!
^LRO(69 - [#69]	LRWLST+6, LRWLST+9, LRAA+3, SET+1, SET+2, FWL+1, FWL+11, UNDO+2, UNDO+3, UNDO+6 , UNDO+7, UNDO+9*, OR+1
^TMP("LR"	LRWLST+10!, LRAA+1!, WL1+3, WL2+17, SET+3, FWL+1, FWL+5, FWL+6, EXP+2

Label References

Name	Line Occurrences
EXP	FWL+1
FWL	WL2+1, FWL+19
LRAA	LRWLST+7
SET	LRAA+5
UNDO	WL2+7, WL2+10, WL2+13, FWL+11, FWL+12
WL2	WL1+8, WL2+3
YN	WL2+3, YN+4

Naked Globals

Name	Field # of Occurrence
^(	LRAA+5, WL1+4, EXP+2, PR2+8, UNDO+7*
^(0	LRWLST+6, WL1+6, PRESET+3, PR2+6, UNDO+7, UNDO+9
^(1	LRWLST+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CONTROL	LRWLST+9*
>> DFN	PRESET+3*
DIC	LRWLST+10!, FWL+14!, FWL+15*, FWL+17!
DIC("S"	FWL+15*
DIC(0	FWL+15*
DT	UNDO+7
DTIME	YN+1
>> DTOUT	YN+2*
>> DUOUT	FWL+18
DUZ	UNDO+9
DUZ(2	WL1+6
I	LRWLST+10!, EXP+1, EXP+2
>> I5	SET+2, SET+3, EXP+2*
>> J	EXP+2, PR2+7
>> LRAA	WL1+6, WL2+1, WL2+2, WL2+3, WL2+5, WL2+6, WL2+8, WL2+9, WL2+16, WL2+17 , FWL+12, FWL+18, FWL+20*, PRESET+1, PRESET+2, PRESET+3, PRESET+4, PR2+8, PR2+9, PR2+10 , PR2+11
LRAAMSG	LRWLST+10!, LRAA+1!
LRAAMSG(	FWL+7, FWL+9*
>> LRAD	PRESET+1, PRESET+2, PRESET+3, PRESET+4, PR2+8, PR2+9, PR2+10, PR2+11
>> LRAN	PRESET+1, PRESET+2, PRESET+3, PRESET+4, PR2+8, PR2+9, PR2+10, PR2+11
LRBACK	LRWLST+10!, LRAA+5, WL1+4, SET+3, EXP+2
>> LRCDT	LRWLST+6, LRWLST+8, PR2+1, PR2+3*, PR2+4, PR2+6
>> LRDAA	WL1+6
>> LRDFN	PR2+2, PR2+6, PR2+7
>> LRDPF	PRESET+3*
>> LRDUZ(2	WL1+6
>> LREAL	LRWLST+6*, LRWLST+8, PR2+6
>> LREND	PRESET+3, PR2+5
>> LRIDIV	WL2+2*
>> LRIDT	PRESET+4*, PRESET+5, PR2+5, PR2+6, PR2+7, PR2+11
>> LRIFN	UNDO+2*, UNDO+3, UNDO+6, UNDO+7, UNDO+9
>> LRIX	LRAA+2, WL1+2, WL1+3*, WL1+4, WL2+17, FWL+1, FWL+5, FWL+6
>> LRKIL	LRWLST+4
>> LRLLOC	LRWLST+6*
>> LRNCWL	WL2+3, FWL+3, FWL+11, FWL+12
>> LRNIDT	PR2+1, PR2+2, PR2+4, PR2+6, PR2+7
LRNM	LRWLST+10!, WL1+7*, WL2+3, FWL+12, FWL+13
>> LROCN	PR2+8*, PR2+10
>> LRODT	LRWLST+6, LRWLST+9, LRAA+3, SET+1, SET+2, FWL+1, FWL+11, UNDO+2, UNDO+3, UNDO+6 , UNDO+7, UNDO+8, UNDO+9, OR+1
>> LROID	PR2+8*, PR2+9
>> LROLLOC	LRWLST+6*
>> LROLRDFN	PRESET+2*, PRESET+3, PRESET+5, PR2+5, PR2+6, PR2+7, PR2+11
>> LRORD	FWL+12
>> LRORDRR	SET+1, OR+1
LRORIFN	LRWLST+6, LRWLST+9, LRWLST+10!, LRAA+5, WL1+4*, SET+3, EXP+2
>> LROSN	PR2+8*
LRPARENT	FWL+4~, FWL+6*, FWL+7, FWL+8, FWL+9
>> LRPHSET	WL2+3, WL2+6, WL2+11, FWL+11
LRPWDT	LRWLST+2~
LRPWL	LRWLST+2~, WL2+8*, WL2+9, WL2+12
LRPWLE	LRWLST+2~
>> LRQUIET	WL2+10
>> LRSN	LRWLST+6, LRWLST+9, LRAA+3, SET+1, SET+2, FWL+1, FWL+11, UNDO+2, UNDO+3, UNDO+6 , UNDO+7, UNDO+8, UNDO+9, OR+1
>> LRSS	WL2+2*, WL2+17, PRESET+5, PR2+2, PR2+5, PR2+6, PR2+7, PR2+11
>> LRST	WL1+5*, WL1+7
LRTEST	FWL+4~, FWL+5*, FWL+7
LRTEST(	SET+1, OR+1
>> LRTN	LRAA+2, LRAA+3, LRAA+5, SET+1, SET+2, SET+3, OR+1
>> LRTSP	SET+3, EXP+2
LRTSTS	LRWLST+10!, LRAA+1!, LRAA+2, WL1+4, WL1+5, WL1+6, FWL+1, FWL+11, EXP+2, UNDO+2
LRTSTS(	WL2+17*
>> LRUNQ	WL1+7*, WL2+17
>> LRURG	WL1+4*, EXP+2
>> LRWL0	WL2+2*, WL2+15, WL2+17
>> LRWLC	WL2+15, WL2+16, WL2+17
LRX	LRAA+4~, LRAA+5*
>> PNM	PRESET+3
>> S5	LRAA+2, SET+2, SET+3, EXP+2*
>> SSN	PRESET+3
TST	UNDO+1~, UNDO+8
TST(	UNDO+6*
U	LRWLST+6, LRAA+5, WL1+6, WL1+7, WL2+2, WL2+3, WL2+5, WL2+6, WL2+8, WL2+9 , WL2+12, WL2+15, WL2+17, SET+3, FWL+1, FWL+5, FWL+6, FWL+8, FWL+11, PRESET+3 , PR2+5, PR2+6, PR2+8
X	LRWLST+6, WL1+4, WL2+3, PR2+8, YN+1, YN+3, UNDO+1~, UNDO+6, UNDO+7
>> XRT0	LRWLST+11
>> XRTL	LRWLST+5
>> XRTN	LRWLST+11*
>> Y	FWL+19, FWL+20

Marked Items

Name	Field # of Occurrence
$T(	LRWLST+11

Customize PDF page

Package: Lab Service