Routine: LRWRKS2

Information

LRWRKS2 ;SLC/RWF/MILW/JMC - WORK SHEET ACCESSION LIST PART 2 ;2/7/91 14:48 ;

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Kernel	1	^%ZISC
Lab Service	1	(ADD,DOC,PT)^LRX
VA FileMan	1	^%DT

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

Package	Total	Caller Graph
Lab Service	1	LRWRKS

Entry Points

Name	Comments	DBIA/ICR reference
ENT	;from LRWRKS
LINE	;
LP4
LP3	;
LP5
BLANK
HED	;
END

External References

Name	Field # of Occurrence
^%DT	HED+1
^%ZISC	END
ADD^LRX	LP4+1
DOC^LRX	LP4+3
PT^LRX	LP4+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,LRACC,?17,$E(PNM,1,19),?41,SSN(1) Line Location: LP4+5
Function Call: WRITE	Prompt: " Ver" Condition for execution: LRV Line Location: LP4+5
Function Call: WRITE	Prompt: ?61,LRURG(LRURG) Line Location: LP4+5
Function Call: WRITE	Prompt: !,LRUID,?17,LRCDT,?41,$E(LRDOC,1,18),?61,$E(LRLLOC,1,19) Line Location: LP4+6
Function Call: WRITE	Prompt: !?17,LRLINE,?61,LRSPEC,!?17 Line Location: LP3+1
Function Call: WRITE	Prompt: !?17,LRLINE,!?17 Condition for execution: $X>17 Line Location: LP3+2
Function Call: WRITE	Prompt: $P(LRTSTS(I),U,1) Line Location: LP3+2
Function Call: WRITE	Prompt: !?16,LRLINE,!?16 Condition for execution: $X>16 Line Location: LP3+3
Function Call: WRITE	Prompt: $P(LRTSTS(I),U,1) Line Location: LP3+3
Function Call: WRITE	Prompt: ", " Condition for execution: $X>17 Line Location: LP3+4
Function Call: WRITE	Prompt: !?17 Condition for execution: $L($P(LRTSTS(I),U,1))+$X>(IOM-4) Line Location: LP3+4
Function Call: WRITE	Prompt: $P(LRTSTS(I),U,1) Line Location: LP3+4
Function Call: WRITE	Prompt: !,LRLINE,$E(LRLINE,1,39) Line Location: LP3+5
Function Call: WRITE	Prompt: ?37,$J(^(L),8) Line Location: LP5+0
Function Call: WRITE	Prompt: !,LRLINE,$E(LRLINE,1,39) Line Location: BLANK+0
Function Call: WRITE	Prompt: !!,"LAB ONLY WORK-SHEET FOR Accession area ",$P(^LRO(68,LRAA,0),U,1),?60,LRDT0,"@"_T Line Location: HED+3
Function Call: WRITE	Prompt: !?5,"Uncompleted work only" Condition for execution: LRUNC Line Location: HED+3
Function Call: WRITE	Prompt: !,"Accession",?17,"Name",?41,"ID",?61,"Urgency",!,"UID",?17,"Collection Time",?41,"Doc",?61,"Loc" Line Location: HED+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	LINE+3
^LAB(61 - [#61]	LP4+2
^LR - [#63]	LP4+4, LP5
^LRO(68 - [#68]	LINE+1, LINE+3, LP4, LP4+1, LP4+2, HED+3

Label References

Name	Line Occurrences
BLANK	HED+6
HED	ENT+1
LINE	ENT+2

Naked Globals

Name	Field # of Occurrence
^(	LINE+3, LP4+2, LP5
^(0	LINE+1, LINE+3, LP4+2, LP4+4
^(3	LP4+2
^(5	LP4+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	HED+1*
>> DFN	LP4+4*
>> I	LP3+2, LP3+4, LP5
IOF	HED+2, END
IOM	LP3+4
IOSL	ENT+1, HED+2
IOST	END
>> J	LINE+3, LP3+2, LP3+4*
>> K	LINE+3*
>> L	LP5*
>> LRAA	LINE+1, LINE+3, LP4, LP4+1, LP4+2, HED+3
>> LRACC	LP4*, LP4+5
>> LRAD	LINE+1, LINE+3, LP4, LP4+1, LP4+2
>> LRAN	LINE+1, LINE+3, LP4, LP4+1, LP4+2
>> LRCDT	LP4+1*, LP4+6
>> LRDC	ENT+1, HED+2, HED+6*
>> LRDFN	LINE+1*, LP4+2, LP4+4, LP5
>> LRDOC	LP4+2*, LP4+3, LP4+6
>> LRDPF	LP4+4*
>> LRDT0	HED+3
>> LRIDT	LP4+2*, LP4+4, LP5
>> LRLINE	LP3+1, LP3+2, LP3+5, BLANK
>> LRLLOC	LP4+2, LP4+3, LP4+6
>> LRODNUM	LP4+2*
LRORD	LINE+2!, LINE+3
LRORD(	LINE+3*, LP3+2, LP3+4
>> LRSHORT	LP3+2, LP3+4
>> LRSPEC	LP4+2*, LP3+1
LRTEST	LINE+5!
LRTSTS	LINE+2!
LRTSTS(	LINE+3*, LP3+2, LP3+4, LP5
>> LRUID	LP4+1*, LP4+6
>> LRUNC	HED+3
>> LRURG	LINE+2, LINE+3, LP4+5
>> LRURG(	LP4+5
>> LRV	LP4+4*, LP4+5, LP5+1
>> PNM	LP4+5
>> SSN(1	LP4+5
>> T	HED+1*, HED+3
U	LINE+3, LP4+2, LP4+4, LP3+2, LP3+4, LP5, HED+3
>> X	LINE+3, LP4+3, HED+1*
>> Y	LP4+1*, HED+1

Customize PDF page

Package: Lab Service