Routine: LRCAP2

Information

LRCAP2 ;SLC/DCM- STUFF AMIS/CAP IN LAM GLOBAL CONT.; 6/23/87 12:41 ;9/1/89 15:19 ;

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRCAP

Entry Points

Name	Comments	DBIA/ICR reference
A	;from LRCAP
SET
HELP
EDIT	;
A3
ADD	;
DEL	;
A4
JJ
HELP1
KILL

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: EDIT+1
Function Call: WRITE	Prompt: !,"(A)dd or (D)elete code: " Line Location: EDIT+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: ADD+1
Function Call: WRITE	Prompt: !,"Select codes to add: " Line Location: ADD+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: DEL+1
Function Call: WRITE	Prompt: !,"Select codes to delete: " Line Location: DEL+1
Function Call: WRITE	Prompt: !!,"For test ~ "_$S($D(^LAB(60,LRSY,.1)):$P(^(.1),U),1:$P(^LAB(60,LRSY,0),U))_" ~ select from:",! Line Location: KILL+4
Function Call: WRITE	Prompt: !,"The Amis/Cap codes currently captured for this test are: " Line Location: A3+0
Function Call: WRITE	Prompt: !!,?5,"TEST NAME",?30,"AMIS/CAP CODE",!?5,"---------",?30,"-------------" Line Location: A3+1
Function Call: WRITE	Prompt: !?5,II1 Line Location: A3+2
Function Call: WRITE	Prompt: ! Line Location: A3+3
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: !,LRI,?4,$E($P(LRA(LRI),"^",2)_" "_$P(LRA(LRI),"^",3),1,35) Line Location: A4+0
Function Call: WRITE	Prompt: ?40,LRI+1,?44,$E($P(LRA(LRI+1),"^",2)_" "_$P(LRA(LRI+1),"^",3),1,35) Line Location: A4+0
Function Call: WRITE	Prompt: !!?20," * Indicates Default Amis/Cap Codes ",! Line Location: A4+1
Function Call: WRITE	Prompt: !!?15,"Enter an 'A' to add or 'D' to delete",!! Line Location: HELP+0
Function Call: WRITE	Prompt: !,"Choose one (or more, separated by commas)" Line Location: HELP1+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	A+1, KILL+4, A3+2
^LAM - [#64]	A+1, JJ
^LRO(68 - [#68]	ADD+2, SET, SET+1, DEL+2, KILL, KILL+1!, KILL+2*, A3+2, JJ

Label References

Name	Line Occurrences
@(	EDIT+1
A3	A+2, ADD+3, DEL+3, HELP
A4	A+2, ADD+3, DEL+3, HELP
ADD	ADD+1
DEL	DEL+1
EDIT	A+2, ADD+1, ADD+3, DEL+1, DEL+3, HELP
HELP1	ADD+1, DEL+1
JJ	A3+2
KILL	DEL+2
SET	ADD+2

Naked Globals

Name	Field # of Occurrence
^(	A+1, KILL+4, JJ
^(0	ADD+2, SET+1, KILL+2*, A3+2, JJ

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	A4*
DTIME	EDIT+1, ADD+1, DEL+1
>> I	ADD+2, DEL+2
II	A+3!
>> II1	A3+2*
J	A+3!, JJ*
JJ	A+3!, JJ*
LRA	A+1!
LRA(	A+1*, SET, KILL, A4
>> LRAA	ADD+2, SET, SET+1, DEL+2, KILL, KILL+1, KILL+2, A3+2, JJ
>> LRAD	ADD+2, SET, SET+1, DEL+2, KILL, KILL+1, KILL+2, A3+2, JJ
>> LRAN	ADD+2, SET, SET+1, DEL+2, KILL, KILL+1, KILL+2, A3+2, JJ
LRCCD	A+3!, ADD+2, SET, DEL+2, KILL
LRCCDE	A+3!, SET, SET+1, KILL, KILL+1
LRCNT	A+3!, ADD+2, SET+1, DEL+2, KILL+1, KILL+2
LRENTRY	A+3!, ADD+2, SET, SET+1
>> LRI	A+1, A4
LRIEN	A+3!, KILL*, KILL+1
>> LRSY	A+1, ADD+2, SET+1, DEL+2, KILL, KILL+1, KILL+2, KILL+4, A3+2, JJ
U	ADD+2, SET+1, DEL+2, KILL+1, KILL+2, KILL+4, A3+2, JJ
>> X	A+1, EDIT+1, ADD+1, ADD+2, DEL+1, DEL+2
>> X1	A+1*

Customize PDF page

Package: Lab Service

Routine: LRCAP2

Information

Source Information

Caller Graph

Caller Graph Total: 1

Entry Points

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: