Routine: LRTSTSET

Information

LRTSTSET ;DALOI/STAFF - JAM TESTS ONTO (OR OFF) ACCESSIONS ; 19 Jun 2017 12:20 PM

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Lab Service	4	NEW^LR7OB1 DADD^LRBEBA31 ORUT^LRTSTJM1 CAP^LRWLST12
VA FileMan	2	FILE^DICN FILE^DIE
Kernel	1	$$HTE^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Lab Service	4	LR7OMERG LRPHSET2 LRTSTJAM LRTSTJM1

Entry Points

Name	Comments	DBIA/ICR reference
EN	; ; Called from LRTSTJAM, LRPHSET2
69	; Called by LR7OMERG
SETOR	;
B

External References

Name	Field # of Occurrence
FILE^DICN	EN+41
FILE^DIE	69+14
NEW^LR7OB1	SETOR+2
DADD^LRBEBA31	69+17
ORUT^LRTSTJM1	EN+25
CAP^LRWLST12	EN+10, EN+16
$$HTE^XLFDT	69+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,"Sorry This accession "_LRAN_" No longer exist" Line Location: EN+3
Function Call: WRITE	Prompt: !?10," Accession may have been deleted.",!,$C(7) Line Location: EN+4
Function Call: WRITE	Prompt: !?7,"Someone else is editing this order",!,$C(7) Line Location: EN+29
Function Call: WRITE	Prompt: !?5,$P(^LAB(60,LRTS,0),U,1)," ADDED" Line Location: B+1
Routine Call	DIE Line Location: 69+14

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	B+1
^LRO(68 - [#68]	EN+2, EN+6, EN+7, EN+8, EN+10, EN+12, EN+14, EN+15, EN+16, EN+23 , 69+4
^LRO(69 - [#69]	EN+23, EN+29, EN+36, EN+38, 69+16, 69+23, 69+24*, 69+26, SETOR+4

Naked Globals

Name	Field # of Occurrence
^(	69+23*
^(0	EN+6, EN+8, EN+14, 69+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EN+32!, 69+26!, SETOR+3!
DA(1	EN+39*
DA(2	EN+39*
DIC	EN+32!, EN+39*, 69+26!, SETOR+3!
DIC(0	EN+40*
DIE	EN+32!, 69+26!, SETOR+3!
>> DILOCKTM	EN+29
DINUM	EN+32!
DLAYGO	69+26!, SETOR+3!
DO	EN+32!
DR	EN+32!, 69+26!, SETOR+3!
DT	69+23
DUZ	69+23
I	69+2~, 69+13*
>> LRAA	EN+2, EN+6, EN+7, EN+8, EN+10, EN+12, EN+14, EN+15, EN+16, EN+23 , EN+25, 69+4, 69+7
>> LRACD	EN+12*, EN+13, EN+14, EN+15
>> LRAD	EN+2, EN+6, EN+7, EN+8, EN+12, EN+13, EN+15, EN+23, EN+25, 69+4
>> LRADL	EN+27*
>> LRAN	EN+2, EN+3, EN+6, EN+7, EN+8, EN+12, EN+14, EN+15, EN+23, EN+25 , 69+4, 69+8
>> LRAODT	69+6
LRBEFN	SETOR+3!
LRBERF	69+17, 69+18!, SETOR+3!
LRBETN	69+16*, 69+17, 69+18!
LRBEX	SETOR+3!
>> LRDFN	EN+25
LRDIE	69+2~
LRFDA	69+2~
LRFDA(1	69+5, 69+6, 69+7, 69+8, 69+9, 69+10, 69+12, 69+13
>> LRFLG	69+26
LRIENS	69+2~, 69+3*, 69+5, 69+6, 69+7, 69+8, 69+9, 69+10, 69+12, 69+13
>> LRNATURE	SETOR+2
>> LRODT	EN+22, EN+23, EN+25, EN+29, EN+36, EN+38, EN+39, 69+3, 69+16, 69+17 , 69+23, 69+24, 69+26, SETOR+2, SETOR+4
>> LRORDTYP	EN+25
>> LRPARAM	EN+10, EN+16
>> LRPHSET	B
>> LRSN	EN+22, EN+23, EN+25, EN+29, EN+36, EN+38, EN+39, 69+3, 69+16, 69+17 , 69+23, 69+24, 69+26, SETOR+2, SETOR+4
>> LRTS	EN+6, EN+7, EN+8, EN+12, EN+14, EN+15, EN+25, EN+36, EN+38, EN+40 , 69+17, SETOR+1, B+1
>> LRTSAD(1	EN+12*
>> LRTSP	69+15, 69+16
>> LRURG	EN+6, EN+14, EN+25, 69+5
LRXDA	69+3*, 69+17, 69+20, 69+23, 69+26!
LRXDA(3	69+4*, 69+11, 69+12, 69+13
LTS	SETOR+1~, SETOR+2
LTS(	SETOR+1*
>> MFLG	EN+21, 69+20
U	EN+6, EN+7, EN+8, EN+10, EN+14, EN+16, B+1
X	EN+40, 69+22~, 69+23
>> Y	EN+36*, 69+1, 69+3

Customize PDF page

Package: Lab Service