Routine: LRAUL

Package	Total	Call Graph
Lab Service	2	(B,D,L,S,SSN,V,YN)^LRU (BEG,END)^LRUTL
VA Fileman	2	^%DT ^DIC

Package

Total

Call Graph

(B,D,L,S,SSN,V,YN)^LRU (BEG,END)^LRUTL

^%DT ^DIC

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: !!?15,"1. "_LRAA(1)_" list by "_LRP,!?15,"2. "_LRAA(1)_" list by Senior Pathologist",!,"Select 1 or 2: " Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7)," Enter a '1' or a '2'." Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Print Topography and Morphology entries " Line Location: ASK+5
Function Call: WRITE	Prompt: !?16,B Line Location: PRT+4
Function Call: WRITE	Prompt: !?21,N Line Location: M+0
Function Call: WRITE	Prompt: !?16,B Line Location: WR+2
Function Call: WRITE	Prompt: !?21,N Line Location: MR+0
Function Call: WRITE	Prompt: @IOF,Y," ",LRQ(1),?(IOM-10),"Pg:",LRQ Line Location: H+0
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+2
Function Call: WRITE	Prompt: !,$J(LRE,3),?6,$J($P(Z,"^",6),4),?16 Line Location: H1+0
Function Call: WRITE	Prompt: Y,?31,$P(V,"^") Line Location: H1+0
Function Call: WRITE	Prompt: !?16,B Line Location: H2+0
Routine Call	DIC Line Location: LRAUL+5 ASK+2

Name	Line Occurrences (* Changed, ! Killed)
^DD(63	QUE
^DIC - [#1]	PRT+1
^LAB(61 - [#61]	PRT+4, WR+2
^LAB(61.1 - [#61.1]	M, MR
^LR - [#63]	QUE+1, W, W+1, PRT+1, PRT+4, M, SP, WR!, WR+1, WR+2 , MR
^LR("AAU"	W!
^VA(200 - [#200]	ASK+2

Name	Field # of Occurrence
>> %	ASK+5*
>> %DT	H*
>> B	PRT+4, WR+2, H2
>> DFN	PRT+1*
DIC	LRAUL+5!, ASK+2!
DIC("A"	LRAUL+5, ASK+2
DIC("S"	LRAUL+5*
DIC(0	LRAUL+5, ASK+2
DTIME	ASK
>> HRCN	PRT+1
IO	QUE
IOF	H
IOM	H
IOSL	W, PRT+4, M, WR, WR+2, MR
>> LR("%"	H+2
>> LRA	ASK+1, ASK+2, W+1, WR+1
>> LRAA	LRAUL+5*
>> LRAA(1	LRAUL+5*, ASK, QUE+2, H+2
>> LRB	ASK+2*, W+1, WR+1
>> LRB(1	ASK+3*, H+2
>> LRC	QUE+1*, W, SP, WR
>> LRDPF	PRT+1*
>> LRE	QUE, QUE+2, W+1, PRT+1, WR+1*, H1
>> LRI	SP*, WR, WR+1, WR+2, MR
>> LRLDT	ASK+4*, QUE+1
>> LRLST	H+2
>> LRO	QUE*, QUE+1, SP, WR
>> LRP	LRAUL+6, ASK, ASK+2, QUE+1, W, W+1, PRT+1, PRT+4, M, SP , WR, WR+1, WR+2, MR
>> LRQ	H*
>> LRQ(1	H
>> LRS	QUE*, PRT+3
>> LRSDT	ASK+4*, QUE+1
>> LRSS	LRAUL+5*, LRAUL+6, ASK+1, QUE, QUE+1, PRT+1, PRT+3, WR, WR+1, WR+2 , MR, H+2
>> LRSTR	H+2
>> LRV	ASK+5*, PRT+3, WR+1
>> M	M, MR
>> N	M, MR
>> POP	ASK+6
>> SSN	PRT+1*
>> T	PRT+4, M, WR+2, MR
U	LRAUL+5, ASK, ASK+1, ASK+2, QUE
>> V	PRT+1*, H1
>> X	ASK, ASK+1, ASK+2, ASK+3, PRT+1, PRT+3, H*
>> Y	LRAUL+5, ASK+1, ASK+2, ASK+4, PRT+1, DT, H, H1
>> Y(0	LRAUL+5
>> Z	W+1, PRT+1, PRT+3, WR+1, H1
>> ZTRTN	ASK+6*
>> ZTSK	ASK+6

Information

Name	Comments	DBIA/ICR reference
H1
END
H2
H
SP
M
PRT	;W !,$J(LRE,3),")",?6,$J($P(Z,"^",6),4),?16 S Y=+Z D DT W Y,?31 S X=^LR(LRP,0),Y=$P(X,"^",3),(LRDPF,X)=$P(X,"^",2),X=^DIC(X,0,"GL"),V=@(X_Y_",0)"),SSN=$P(V,"^",9) D SSN^LRU W $P(V,"^") W:LRSS="AU" ?62,SSN W:LRSS'="AU" " ",SSN
QUE
WR
W
MR
ASK
DT