Routine: LRUTAD

Package	Total	Call Graph
Lab Service	2	(D,YN)^LRU EN1^LRUWLF
VA Fileman	1	^%DT

Package

Total

Call Graph

(D,YN)^LRU EN1^LRUWLF

^%DT

Name	Field # of Occurrence
^%DT	LRUTAD+5
D^LRU	LRUTAD+5, ASK+4, ASK+5
YN^LRU	LRUTAD+5, ASK+5
EN1^LRUWLF	ADD

Name	Line Occurrences
Function Call: WRITE	Prompt: LRAA(1)," TEST/PROCEDURE" Line Location: LRUTAD+4
Function Call: WRITE	Prompt: $S($D(LRDEL):" DELETION",1:" ADDITION") Line Location: LRUTAD+4
Function Call: WRITE	Prompt: !!,"For ",LRH(0)," OK " Line Location: LRUTAD+5
Function Call: READ	Prompt: "Enter A for Add or D for Delete ==> " Formatting: !! Timeout: DTIME Variable: X Line Location: WH+0
Function Call: READ	Prompt: "Select Accession Number: " Formatting: ! Timeout: DTIME Variable: LRAN Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7),!!,"Enter whole numbers only",!! Line Location: ASK+0
Function Call: WRITE	Prompt: " for ",LRH(0),! Line Location: ASK+1
Function Call: WRITE	Prompt: $C(7),!!,"Accession # ",LRAN," for ",LRH(0)," not in file",!! Line Location: ASK+2
Function Call: WRITE	Prompt: $C(7),!!,"NO SITE/SPECIMEN",!,"DELETE ACCESSION # AND REENTER",!! Line Location: ASK+6
Function Call: WRITE	Prompt: $C(7),!!,"There are NO tests to delete !!!" Line Location: LRDEL+0
Function Call: READ	Prompt: ": " Timeout: DTIME Variable: A("A") Line Location: LRDEL+1
Function Call: WRITE	Prompt: !!,"Delete by selecting a number from 1",$S(X=1:"",1:"-"_X) Line Location: LRDEL+1
Function Call: WRITE	Prompt: $C(7),!!,"Results entered for this test !! Cannot delete it !" Line Location: LRDEL+2
Function Call: READ	Prompt: " OK ? YES// " Timeout: DTIME Variable: N1 Line Location: LRDEL+3
Function Call: WRITE	Prompt: !,"Delete ",$P(^LAB(60,T(A("A")),0),U,1) Line Location: LRDEL+3
Function Call: WRITE	Prompt: !,$J(X,38),")",T,?41,$E($P(^(0),U,1),1,38) Line Location: L+0
Function Call: WRITE	Prompt: $C(7),!!,"Entry not in file",!! Line Location: BAD+0

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	ASK+3
^LAB(60 - [#60]	LRDEL+3, L
^LAB(61 - [#61]	ASK+4
^LR - [#63]	ASK+3
^LRO(68 - [#68]	ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, Z, LRDEL, LRDEL+2, LRDEL+4!*

Name	Line Occurrences
ASK	ASK, ASK+2, ASK+5, BAD
BAD	ASK+3
L	Z
LRDEL	LRDEL+3
WH	ADD, LRDEL, LRDEL+1, LRDEL+2, LRDEL+4

Name	Field # of Occurrence
^(	Z
^(0	ASK+3, ASK+4, ASK+6, Z, LRDEL, L
^(3	ASK+3, ASK+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRUTAD+5, ASK+5
>> %DT	LRUTAD+5*
>> A("A"	LRDEL+1*, LRDEL+2, LRDEL+3, LRDEL+4
DTIME	WH, ASK, LRDEL+1, LRDEL+3
>> LRAA	ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, Z, LRDEL, LRDEL+2, LRDEL+4
>> LRAA(1	LRUTAD+4
>> LRAD	LRUTAD+5*, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, Z, LRDEL, LRDEL+2, LRDEL+4
>> LRAN	ASK*, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, Z, LRDEL, LRDEL+2, LRDEL+4
LRDEL	LRUTAD+4, WH!*, ADD
>> LRDFN	ASK+3*
>> LRFNAM	ASK+3*
>> LRH(0	LRUTAD+5*, ASK+1, ASK+2
>> LRI	ASK+3*
>> LRP	ASK+4*
>> LRPF	ASK+3*, ASK+4, ASK+6
>> LRPFN	ASK+3*
>> LRSIT	ASK+4, ASK+5, ASK+6
>> LRSS	LRUTAD+4, WH, ASK+6
>> N	Z*
>> N1	LRDEL+3*
T	LRUTAD+4!, Z*, L
T(	Z*, LRDEL+2, LRDEL+3, LRDEL+4!, L
U	ASK, ASK+3, ASK+4, Z, LRDEL, LRDEL+2, LRDEL+3, LRDEL+4, L
>> X	WH, Z, ADD*, LRDEL+1, L
>> Y	LRUTAD+5, ASK+3, ASK+4, ASK+5*

Customize PDF page

Package: Lab Service

Routine: LRUTAD

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: