Routine: LRCAP

Package	Total	Call Graph
VA Fileman	2	^DIC YN^DICN
Lab Service	1	A^LRCAP2

Package

Total

Call Graph

^DIC YN^DICN

Name	Field # of Occurrence
^DIC	II+4
YN^DICN	LRCAP+7, NEWCAP+10
A^LRCAP2	II+7

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Change or exclude any tests from workload reporting" Line Location: LRCAP+7
Function Call: WRITE	Prompt: *7,!!,"This accession has already been processed into the AMIS/CAP file.",!,"You will need to use the MANUAL EDIT CAP option to make any changes." Line Location: LRCAP+8
Function Call: WRITE	Prompt: @IOF,!,"Listed below are the tests on this accession.",!,"Select the test for which you want to change the AMIS/CAP code." Line Location: NEWCAP+0
Function Call: WRITE	Prompt: !!?5,"TEST NAME",!?5,"---------" Line Location: NEWCAP+1
Function Call: WRITE	Prompt: @IOF,!,"You have selected the following AMIS/CAP codes for this accession: " Line Location: NEWCAP+7
Function Call: WRITE	Prompt: !!?5,"TEST NAME",?30,"AMIS/CAP CODE",!?5,"---------",?30,"-------------" Line Location: NEWCAP+8
Function Call: WRITE	Prompt: !?5,II1 Line Location: NEWCAP+9
Function Call: WRITE	Prompt: !!,"ALL OK" Line Location: NEWCAP+10
Function Call: WRITE	Prompt: !?5,$P(^(0),U) Line Location: II+0
Function Call: WRITE	Prompt: !!,*7,?5,"There are not any AMIS/CAP for this Order Number",! Line Location: II+1
Function Call: WRITE	Prompt: !!,"There are no AMIS/CAP codes setup for this test in file 60.",!,*7 Line Location: II+6
Function Call: READ	Prompt: "Press return to continue..." Formatting: ! Timeout: DTIME Variable: X Line Location: JJ+0
Function Call: WRITE	Prompt: ! Condition for execution: J>1 Line Location: JJ+0
Function Call: WRITE	Prompt: ?30,$P(^LAM($P(^(JJ,0),U,1),0),U,1)," ",$P(^(0),U,2) Line Location: JJ+0
Function Call: WRITE	Prompt: @IOF Line Location: JJ+0
Routine Call	DIC Line Location: II+4

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	LRCAP+3, NEWCAP+9, II, II+2, II+3, II+6
^LAM - [#64]	JJ, CLEAN+1
^LR - [#63]	LRCAP+2, LRCAP+5
^LRO(68 - [#68]	LRCAP+3, LRCAP+8, NEWCAP+9, II, II+2, JJ, CLEAN

Name	Line Occurrences
II	TESTS, II+6
JJ	NEWCAP+9
NEWCAP	LRCAP+9, NEWCAP+10
TESTS	NEWCAP+5

Name	Field # of Occurrence
^(	NEWCAP+9, II, JJ, CLEAN!, CLEAN+1!
^(0	NEWCAP+9, II, JJ

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LRCAP+7, LRCAP+8, LRCAP+9, LRCAP+10!, NEWCAP+10
DA	TESTS+1!
DA(2	II+2*
DA(3	II+2*
DA(4	II+2*
DIC	NEWCAP+5!, TESTS!, TESTS+1!, II+2*
DIC("A"	II+4*
DIC("B"	II+6!
DIC("S"	II+4*
DIC(0	II+2*
DIE	TESTS+1!
DR	TESTS+1!
DTIME	JJ
>> I	NEWCAP+2, NEWCAP+3, NEWCAP+4, CLEAN, CLEAN+1*
II	LRCAP+3, NEWCAP+2, NEWCAP+9, TESTS+1!, II, JJ
II1	NEWCAP+9*, TESTS+1!
IOF	NEWCAP, NEWCAP+7, JJ
J	NEWCAP+9, TESTS+1!, JJ, CLEAN, CLEAN+1
JJ	TESTS+1!, JJ*
>> K	CLEAN*
LRA	LRCAP+6!, LRCAP+10!, TESTS+1!
>> LRAA	LRCAP+3, LRCAP+8, NEWCAP+9, II, II+2, JJ
>> LRAD	LRCAP+3, LRCAP+8, NEWCAP+9, II, II+2, JJ
>> LRAN	LRCAP+3, LRCAP+8, NEWCAP+9, II, II+2, JJ
>> LRCAPUD	NEWCAP*
>> LRDFN	LRCAP+2, LRCAP+5
LRF	LRCAP+10!, NEWCAP, NEWCAP+1, NEWCAP+4, NEWCAP+5, NEWCAP+6, II+1, II+4
LRI	LRCAP+10!, TESTS+1!
>> LRIDT	LRCAP+2, LRCAP+5
LRIX	TESTS+1!
LRJ	TESTS+1!
LRLN	LRCAP+10!
>> LRM(	NEWCAP+3
LRMX	NEWCAP+2, NEWCAP+3, NEWCAP+6!, NEWCAP+11!
LRMX(	NEWCAP+2, NEWCAP+3, NEWCAP+4*
>> LRNAME(	NEWCAP+2
LRO	TESTS+1!, II+7*
>> LRPARAM	LRCAP+2, LRCAP+3
LRR	NEWCAP+1!, TESTS+1!
LRSITE	LRCAP+10!
>> LRSS	LRCAP+2, LRCAP+5
LRSUF	LRCAP+10!
LRSY	TESTS+1!, II+5*, II+6
LRT	LRCAP+10!
>> LRTEST(	NEWCAP+4
LRX1	TESTS+1!
LRXXX	LRCAP+5*, LRCAP+11!
LRY	LRCAP+10!
>> LRZZ	NEWCAP+5, II+6
U	LRCAP+2, LRCAP+3, NEWCAP+4, NEWCAP+9, II, JJ
X	LRCAP+5, LRCAP+10!, LRCAP+11, II+2, II+3, JJ
>> X1	II+2*, II+3
>> Y	LRCAP+5*, II+4, II+5
>> Z	LRCAP+2, LRCAP+3, LRCAP+4, NEWCAP+6, II*, II+1

Customize PDF page

Package: Lab Service

Routine: LRCAP

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: