Routine: LRSTUF1

Package	Total	Call Graph
Lab Service	6	^LRCAPV ^LREXPD (LRSTUFF,RANGE)^LRSTUF2 $$SELPL^LRVERA ADATE^LRWU (DUZ,PT)^LRX
VA Fileman	3	^%DT ^DIC YN^DICN

Package

Total

Call Graph

Lab Service

^LRCAPV ^LREXPD (LRSTUFF,RANGE)^LRSTUF2 $$SELPL^LRVERA ADATE^LRWU (DUZ,PT)^LRX

VA Fileman

^%DT ^DIC YN^DICN

Package	Total	Caller Graph
Lab Service	1	LRSTUF

Package

Total

Caller Graph

Lab Service

LRSTUF

Name	Field # of Occurrence
^%DT	LOOP+11
^DIC	LRSTUF1+3, TEST+1, L1
YN^DICN	L3+1
^LRCAPV	LRSTUF1+7
^LREXPD	TEST+5
LRSTUFF^LRSTUF2	LOOP+12
RANGE^LRSTUF2	LOOP+1
$$SELPL^LRVERA	LRSTUF1+4
ADATE^LRWU	DAT
DUZ^LRX	LOOP+8
PT^LRX	LOOP+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No way to put data in for that test." Line Location: TEST+9
Function Call: WRITE	Prompt: !,I,?5," ",$P(^DD(63.04,I,0),"^") Line Location: TEST+11
Function Call: WRITE	Prompt: !,"1 Automatically enter your entry.",!,"2 Prompt with your entry.",!,"3 Just Prompt." Line Location: L2+0
Function Call: READ	Prompt: "Choice: " Formatting: ! Timeout: DTIME Variable: X Line Location: L2+1
Function Call: WRITE	Prompt: !,"Enter a number between 1 and 3." Line Location: L2+1
Function Call: READ	Timeout: DTIME Variable: LRSTUFF Line Location: L3+0
Function Call: WRITE	Prompt: !,"What do you want entered?: " Line Location: L3+0
Function Call: WRITE	Prompt: !," What you enter will go through the input transform to be stored in the",!," field you have specified." Line Location: L3+0
Function Call: WRITE	Prompt: !,"Enter the accessions you wish to edit." Line Location: L3+3
Function Call: WRITE	Prompt: !,"Enter a string of numbers separated with , . ^ or space,",!,"or a range of numbers, e.g. 50-75. You may enter more than one line." Line Location: L3+4
Function Call: READ	Prompt: "Enter your selection(s) > " Formatting: ! Timeout: DTIME Variable: X Line Location: LOOP+0
Function Call: WRITE	Prompt: !,"Enter a string of numbers separated with , . ^ or space,",!,"or a range of numbers, e.g. 50-75. You may enter more than one line." Line Location: LOOP+0
Function Call: WRITE	Prompt: !,"Editing the following:" Line Location: LOOP+3
Function Call: WRITE	Prompt: !,"Acc #: ",LRAC,?15,PNM,?45,SSN Line Location: LOOP+3
Function Call: WRITE	Prompt: !,"Editing the following:" Line Location: LOOP+5
Function Call: WRITE	Prompt: !,"Acc #: ",LRAC,?15,PNM,?45,HRCN Line Location: LOOP+5
Function Call: READ	Timeout: DTIME Line Location: LOOP+9
Function Call: WRITE	Prompt: !,"NOT APPROVED" Line Location: LOOP+9
Routine Call	DIC Line Location: LRSTUF1+3 TEST+1 L1

FileNo	Call Tags
^LAB(60 - [#60]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(63.04	TEST+11, L3+1
^LAB(69.9 - [#69.9]	LOOP+10
^LR - [#63]	LOOP+5
^LRO(68 - [#68]	LRSTUF1+7, LOOP+5
^TMP("LR"	LRSTUF1+2!, TEST+2, TEST+4!, TEST+7, L3+2, LOOP+7!, LOOP+10*

Name	Line Occurrences
L2	TEST+8, L2+1
L3	L3, L3+1
LOOP	LOOP, LOOP+2
LREND	L1, LOOP+9, LOOP+13
TEST	L3+1

Name	Field # of Occurrence
^(	TEST+7
^(0	LOOP+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	L3+1*
>> %DT	LOOP+11*
A	TEST+6!, LOOP+7!
A(	TEST+7*, TEST+11, L3+2
A(0	TEST+8
>> A1	TEST+7*, TEST+8, TEST+9
>> D	LOOP+1*
>> DFN	LOOP+5*
DIC	LRSTUF1+3, TEST, L1*!, L3!
DIC("A"	TEST, L1
DIC("S"	L1*
DIC(0	LRSTUF1+3, TEST, L1*
>> DR	L3+2*
DTIME	L2+1, L3, LOOP, LOOP+9
DUZ	L3+2, LOOP+8
DUZ(2	LRSTUF1+4, LRSTUF1+6
>> HRCN	LOOP+5
>> I	TEST+7, TEST+10, TEST+11, LOOP+1, LOOP+10*
>> LRA	L3*
>> LRAA	LRSTUF1+3*, LRSTUF1+7, LOOP+5
LRAC	L3+3!, LOOP+1, LOOP+5
LRAC(	LOOP+1*, LOOP+5, LOOP+12
LRAC(0	LOOP+5
>> LRAD	LOOP+5
>> LRAN	LOOP+11, LOOP+12
>> LRDFN	LOOP+5*
>> LRDPF	LOOP+5*
LRDUZ	LRSTUF1+6~
LRDUZ(2	LRSTUF1+6*
>> LREND	LRSTUF1+7, LOOP+11*, LOOP+12
>> LRFFLG	TEST+8*
>> LRFLD	TEST+8, L1, L3+1, L3+2
>> LRINI	LOOP+9*
>> LRNOW	LOOP+11*
LRORD	TEST+4!, LOOP+7!
>> LROUTINE	LOOP+10*
>> LRPARAM	LRSTUF1+7
LRSB	LRSTUF1+2!
>> LRSS	LOOP+10*
LRSTUFF	L3!*, L3+1, L3+2
>> LRTEC	LOOP+11*
>> LRTEST	TEST+2*, TEST+8
>> LRTESTSV	TEST+8*
>> LRTN	LOOP+10*
LRTSTS	TEST+4!, LOOP+7!
>> LRUSI	LOOP+9, LOOP+11
M	LRSTUF1+2!
M(	TEST+7*, LOOP+10
>> PNM	LOOP+5
U	LRSTUF1+7, TEST+2, TEST+7, L3+1, LOOP+5, LOOP+10
>> X	LRSTUF1+4, LRSTUF1+5, LRSTUF1+6, TEST+7, L2+1, L3, L3+1, L3+2, LOOP, LOOP+1 , LOOP+2, LOOP+8, LOOP+11
>> Y	LRSTUF1+3, DAT, TEST+1, TEST+2, L1, LOOP+11
>> Y(0	TEST+2

Customize PDF page

Package: Lab Service

Routine: LRSTUF1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: