Routine: LRWLST

Select the objects that you wish to see in the downloaded PDF

Info
Source
Entry Points
Interaction Calls
FileMan Files Accessed Via FileMan Db Call

Information

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

Source file <LRWLST.m>

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

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