Routine: LRTSTJAM

Package	Total	Call Graph
Lab Service	8	($$CHKINP,$$RFLX)^LRBEBA4 NEW^LROR6 ^LRPARAM (COMPTST,EXPLD)^LRTSTJM1 LRACC^LRTSTOUT EN^LRTSTSET ^LRWLST2 PT^LRX
VA Fileman	2	^DIC YN^DICN

Package

Total

Call Graph

Lab Service

($$CHKINP,$$RFLX)^LRBEBA4 NEW^LROR6 ^LRPARAM (COMPTST,EXPLD)^LRTSTJM1 LRACC^LRTSTOUT EN^LRTSTSET ^LRWLST2 PT^LRX

VA Fileman

^DIC YN^DICN

Package	Total	Caller Graph
Lab Service	5	LRADD TO ACC LRHYDEL LRTSTJM1 LRTSTOUT LRTSTSET
IHS Changes To Lab	4	BLRAG08 BLRMANP2 BLRRLTAR BLRRLTDR

Package

Total

Caller Graph

Lab Service

LRADD TO ACC LRHYDEL LRTSTJM1 LRTSTOUT LRTSTSET

IHS Changes To Lab

BLRAG08 BLRMANP2 BLRRLTAR BLRRLTDR

External References

Name	Field # of Occurrence
^DIC	LRTSP+3, ADDTST, ADDURG
YN^DICN	ADDTST, ADDTST+3, ADDURG
$$CHKINP^LRBEBA4	SETTST+1
$$RFLX^LRBEBA4	SETTST+2
NEW^LROR6	ADD+10
^LRPARAM	ADD+1
COMPTST^LRTSTJM1	ADDTST+4
EXPLD^LRTSTJM1	ADDTST+2, ADDTST+4
LRACC^LRTSTOUT	ADD+1, FXID
EN^LRTSTSET	SETTST+3
^LRWLST2	FXID+1
PT^LRX	ADD+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"This is not a valid Accession number ",!,$C(7) Line Location: ADD+2
Function Call: WRITE	Prompt: !?5,"Someone else is editing this entry ",!,$C(7) Line Location: ADD+3
Function Call: WRITE	Prompt: !,PNM,?30,SSN Line Location: ADD+4
Function Call: WRITE	Prompt: !,PNM,?30,HRCN Line Location: ADD+7
Function Call: WRITE	Prompt: !!,"...process aborted",$C(7) Line Location: ADD+10
Function Call: WRITE	Prompt: !,"TESTS ALREADY ON THE ACCESSION: " Line Location: ADD+11
Function Call: WRITE	Prompt: !,?5,$P(^LAB(60,I,0),U,1) Line Location: ADD+11
Function Call: WRITE	Prompt: ! Line Location: LRTSP+0
Function Call: WRITE	Prompt: ! Line Location: LRTSP+3
Function Call: WRITE	Prompt: ! Line Location: LRTSP+3
Function Call: WRITE	Prompt: !," ...OK" Line Location: ADDTST+0
Function Call: WRITE	Prompt: !,"The accession already has this test." Line Location: ADDTST+1
Function Call: WRITE	Prompt: !,"The accession already has this test." Line Location: ADDTST+2
Function Call: WRITE	Prompt: !,"URGENCY must be defined. Test not added." Condition for execution: Y<1 Line Location: ADDURG+0
Function Call: WRITE	Prompt: !," ...OK" Line Location: ADDURG+0
Function Call: READ	Timeout: DTIME Variable: % Line Location: FXID+3
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N': " Line Location: FXID+3
Function Call: WRITE	Prompt: !,$C(7),"CAN'T DO IT. The data has been approved for that log number." Line Location: CHK+1
Routine Call	DIC Line Location: LRTSP+3 ADDTST ADDURG

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	ADD+11, ADDTST+3, ADDTST+4, ADDTST+5
^LR - [#63]	ADD+7
^LRO(68 - [#68]	ADD, ADD+2, ADD+3, ADD+7, ADD+11, LRTSP+1, ADDTST+1, ADDTST+3, FXID+1, END , CHK1, CHK1+2
^LRO(69 - [#69]	CHK1+1
^XUSEC("LRSUPER"	ADDTST

Name	Line Occurrences
%	%
ADD	ADD+2, ADD+3, ADD+10, LRTSP+3, ADDTST, ADDTST+1, ADDTST+3, ADDURG+1
ADDTST	ADDTST+1, ADDTST+2, ADDTST+4, ADDURG
ADDURG	ADDURG+1
CHK1	CHK+1
END	ADD+1
FXID	FXID+1
SETTST	ADDTST+5

Name	Field # of Occurrence
^(	CHK1+2
^(0	ADD+7, CHK1+2
^(3	CHK1, CHK1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ADDTST, ADDTST+1, ADDTST+3, ADDURG, ADDURG+1, %, END+1!
%DT	END+2!
%H	END+2!
%X	END+2!
%Y	END+2!
A	END+1!
AGE	END+1!
D	END+3!
D0	END+3!
D1	END+3!
DA	LRTSP!*, LRTSP+3!, END+2!
DA(1	LRTSP*, FXID+1
DD	END+1!
DFN	ADD+7*, END+1!
DIC	LRTSP!, LRTSP+2, LRTSP+3!, ADDTST, ADDURG*, END+1!
DIC("A"	LRTSP, ADDTST!
DIC("B"	ADDURG*!
DIC("S"	LRTSP+1, ADDTST!
DIC(0	LRTSP+2, ADDTST
DIE	END+1!
DN	END+3!
DO	END+1!
DOB	END+1!
DR	END+1!
DTIME	%
DUZ	ADDTST
DUZ(2	ADDTST+3
HRCN	ADD+7, END+5!
I	ADD+11, ADDTST+1, ADDTST+3, ADDTST+5, END+1!
J	ADDTST+3*, END+2!
K	END+1!
LRAA	ADD, ADD+2, ADD+3, ADD+7, ADD+11, LRTSP+1, ADDTST+1, ADDTST+3, FXID+1, END , END+1!
LRACC	ADD+1!, FXID!
LRACD	END+1!
LRAD	ADD, ADD+2, ADD+3, ADD+7, ADD+11, LRTSP+1, ADDTST+1, END, END+1!
LRAN	ADD, ADD+1, ADD+2, ADD+3, ADD+7, ADD+11, LRTSP+1, ADDTST+1, FXID, END , END+1!, CHK1, CHK1+2
LRAODT	ADD+7*, END+3!
LRBED	END+2!
LRBERF	SETTST+2*, END+4!
LRBETN	END+4!
LRCCOM	END+1!
LRCS	END+2!
LRCSS	END+2!
LRDATE	END+3!
LRDFN	ADD+7*, SETTST+1, END+1!
LRDPF	ADD+7*, SETTST+1, END+1!
LRDTM	END+2!
LRDTO	END+2!
LREND	END+1!, CHK+1, CHK1, CHK1+1, CHK1+2*
LRFLG	ADDTST+5, ADDURG+1, END+3!
LRGVP	END+2!
LRIDENT	END+2!
LRIDT	END+1!
LRIOZERO	END+2!
LRLLOC	END+2!
LRLWC	END+2!
LRNATURE	ADD+1!, ADD+10!
LRNOP	END+2!
LRODT	ADD+7*, LRTSP, LRTSP+2, SETTST+1, END+1!, CHK1+1
LRONE	END+2!
LRORD	END+2!
LRORDTIM	END+2!
LROWLE	END+2!
LRPARAM	ADD+1!
LRPR	END+2!
LRRB	END+3!
LRSAMP	END+3!
LRSN	ADD+7*, LRTSP, LRTSP+2, END+1!, CHK1+1
LRSS	SETTST+1, END+1!
LRTNM	END+1!
LRTP	END+2!
LRTREA	END+3!
LRTS	ADDTST+1*, ADDTST+2, ADDTST+4, END+1!
LRTSAD	ADD+1!, END+3!
LRTSAD(1	ADD+11*, ADDTST+2
LRTSAD(2	ADDTST+4!*
LRTSN	END+2!
LRTSP	LRTSP+3*, END+3!
>> LRTST	CHK1+2*
LRTSUB	ADDTST+2, ADDTST+4, END+3!
>> LRTSURG	ADDTST+4*
LRUR	END+2!
LRURG	ADDTST+5, ADDURG+1, END+4!
LRUSNM	END+1!, END+2!
LRWDT1	FXID+1*, END+2!, CHK1, CHK1+2
>> LRWL1	CHK1, CHK1+2
LRWRD	END+1!
LRX	END+4!
LRXD	END+2!
PNM	ADD+7, END+1!
POP	END+2!
SEX	END+1!
SSN	END+1!
T	END+2!
U	ADD+2, ADD+7, ADD+11, LRTSP+1, LRTSP+3, ADDTST+3, ADDTST+4, ADDTST+5, CHK1, CHK1+1 , CHK1+2
VA	END+4!
X	ADD+7*, END+1!
Y	LRTSP+3, ADDTST, ADDTST+1, ADDTST+5*, ADDURG, ADDURG+1, END+1!
Z	END+1!

Customize PDF page

Package: Lab Service

Routine: LRTSTJAM

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: