Routine: LRTSTSET

Package	Total	Call Graph
Lab Service	6	NEW^LR7OB1 $$VER^LR7OU1 DADD^LRBEBA31 OT^LROR6 ADDTST^LRTSTJAM CAP^LRWLST12
IHS Changes To Lab	4	^BLRALAF ADDTST^BLRDIAG ^BLREVTQ $$ADDON^BLRUTIL
VA Fileman	2	^DIC (,UPDATE)^DIE
Automated Lab Instruments	1	EN^LA7ADL
Kernel	1	($$DT,$$FMTE,$$HTFM,$$NOW)^XLFDT
Order Entry Results Reporting	1	FILE^ORX

Package

Total

Call Graph

Lab Service

NEW^LR7OB1 $$VER^LR7OU1 DADD^LRBEBA31 OT^LROR6 ADDTST^LRTSTJAM CAP^LRWLST12

IHS Changes To Lab

^BLRALAF ADDTST^BLRDIAG ^BLREVTQ $$ADDON^BLRUTIL

VA Fileman

^DIC (,UPDATE)^DIE

Automated Lab Instruments

EN^LA7ADL

Kernel

($$DT,$$FMTE,$$HTFM,$$NOW)^XLFDT

Order Entry Results Reporting

FILE^ORX

Package	Total	Caller Graph
Lab Service	3	LR7OMERG LRPHSET2 LRTSTJAM

Package

Total

Caller Graph

Lab Service

LR7OMERG LRPHSET2 LRTSTJAM

Name	Comments	DBIA/ICR reference
69
SETOR	; EP
EN	;
B	; Q:$D(LRPHSET) W !?5,$P(^LAB(60,LRTS,0),U,1)," ADDED" K DIC("B") Q:$D(LRTSAD(2)) G ADDTST^LRTSTJAM
TRYAGAIN	; EP

External References

Name	Field # of Occurrence
^BLRALAF	B+5
ADDTST^BLRDIAG	69+17
^BLREVTQ	B+7
$$ADDON^BLRUTIL	B+5
^DIC	EN+11
^DIE	69+6
UPDATE^DIE	TRYAGAIN+4
EN^LA7ADL	EN+5
NEW^LR7OB1	SETOR+16
$$VER^LR7OU1	SETOR+1
DADD^LRBEBA31	69+9
OT^LROR6	SETOR+2
ADDTST^LRTSTJAM	EN+1, B+7
CAP^LRWLST12	EN+3, EN+7
FILE^ORX	SETOR+12
$$DT^XLFDT	TRYAGAIN+16
$$FMTE^XLFDT	69+13
$$HTFM^XLFDT	TRYAGAIN+16
$$NOW^XLFDT	69+13

Interaction Calls

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	SETOR+3
^LAB(60 - [#60]	EN+11, SETOR+8, SETOR+10, B+7
^LAB(61 - [#61]	SETOR+7
^LAB(62 - [#62]	SETOR+7
^LAB(62.05 - [#62.05]	SETOR+9
^LAB(69.9 - [#69.9]	SETOR+10, SETOR+11
^LR - [#63]	SETOR+3
^LRO(68 - [#68]	EN+1, EN+2, EN+3, EN+4, EN+5, EN+6, EN+7, 69+1, B+5
^LRO(69 - [#69]	EN+8, 69+8, 69+14, 69+15, 69+19, SETOR+3, SETOR+6, SETOR+13, SETOR+17
^ORD(100.99 - [#100.99]	SETOR+2
^SC("C"	SETOR+6
^XTMP("LRTSTSET"	TRYAGAIN+12, TRYAGAIN+13, TRYAGAIN+14, TRYAGAIN+15, TRYAGAIN+16*

Name	Line Occurrences
TRYAGAIN	EN+13

Name	Field # of Occurrence
^(	69+14*, SETOR+3, SETOR+6
^(0	EN+2, EN+3, EN+6, 69+14, SETOR+6, SETOR+7, SETOR+10
^(1	SETOR+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BLRLOG	B+7
>> BLROPT	B+4*, B+7
>> BLROPT(0	B+4*
DA	EN+9!, 69+2, 69+19!, SETOR+11, SETOR+17!
DA(1	EN+10*
DA(2	EN+10*
DIC	EN+9!, EN+10*, 69+2, 69+19!, SETOR+17!
DIC("B"	B+7!
DIC(0	EN+11*
DIE	EN+9!, 69+2*, 69+19!, SETOR+17!
DLAYGO	EN+11*, 69+19!, SETOR+17!
DR	EN+9!, 69+2, 69+4, 69+5*, 69+19!, SETOR+17!
DT	69+14
DUZ	69+14
DUZ(2	B+5
ERRS	TRYAGAIN+1~, TRYAGAIN+5
FDA	TRYAGAIN+1~, TRYAGAIN+13
FDA(	TRYAGAIN+3*
IENARRAY	TRYAGAIN+1~, TRYAGAIN+14
IENARRAY(1	TRYAGAIN+7
IENS	TRYAGAIN+1~, TRYAGAIN+2*, TRYAGAIN+3
>> LRAA	EN+1, EN+2, EN+3, EN+4, EN+5, EN+6, EN+7, 69+1, B+5, B+7
>> LRACD	EN+4*, EN+6, EN+7
>> LRAD	EN+1, EN+2, EN+3, EN+4, EN+5, EN+6, EN+7, 69+1, B+5, B+7
>> LRAN	EN+1, EN+2, EN+3, EN+4, EN+5, EN+6, EN+7, 69+1, B+5, B+7
LRBEFN	SETOR+17!
LRBERF	69+9, 69+10!, SETOR+17!
LRBETN	69+8*, 69+9, 69+10!
LRBEX	SETOR+17!
LRFLG	69+19, SETOR+14!
>> LRIDT	B+5*
LRLB	SETOR+3*, SETOR+9, SETOR+14!
>> LRNATURE	SETOR+2*, SETOR+16
>> LRODT	EN+8, EN+10, 69+8, 69+9, 69+14, 69+15, 69+17, 69+19, SETOR+3, SETOR+6 , SETOR+11, SETOR+13, SETOR+16, SETOR+17, B+7, TRYAGAIN+2, TRYAGAIN+12, TRYAGAIN+13, TRYAGAIN+14, TRYAGAIN+15
LRORSAMP	SETOR+5*, SETOR+7, SETOR+14!
LRORSPEC	SETOR+6*, SETOR+7, SETOR+14!
LRORTYPE	SETOR+5*, SETOR+9, SETOR+14!
>> LRPARAM	EN+3, EN+7
>> LRPHSET	B+3
>> LRSN	EN+8, EN+10, 69+8, 69+9, 69+14, 69+15, 69+17, 69+19, SETOR+3, SETOR+6 , SETOR+11, SETOR+13, SETOR+16, SETOR+17, B+7, TRYAGAIN+2, TRYAGAIN+12, TRYAGAIN+13, TRYAGAIN+14, TRYAGAIN+15
>> LRSS	B+5*
>> LRTS	EN+2, EN+3, EN+4, EN+6, EN+7, EN+11, 69+9, 69+17, SETOR+8, SETOR+15 , B+7, TRYAGAIN+3, TRYAGAIN+7, TRYAGAIN+12, TRYAGAIN+13, TRYAGAIN+14, TRYAGAIN+15
>> LRTSAD(1	EN+4*
>> LRTSAD(2	B+7
>> LRTSP	EN+2, 69+7, 69+8
>> LRURG	EN+2, EN+6, SETOR+9
LRXDA	EN+9!, 69+2*, 69+9, 69+11, 69+14, 69+19!, SETOR+1, SETOR+6, SETOR+11, SETOR+13 , SETOR+14!
LRXDA(3	69+1*, 69+3, 69+5
LTS	SETOR+15~, SETOR+16
LTS(	SETOR+15*
>> NOW	TRYAGAIN+11*, TRYAGAIN+12, TRYAGAIN+13, TRYAGAIN+14, TRYAGAIN+15
>> OREPDUZ	SETOR+4*
>> ORIFN	SETOR+13
>> ORIT	SETOR+6*, SETOR+10
>> ORL	SETOR+5, SETOR+6
>> ORLOG	SETOR+4*
>> ORNATR	SETOR+2, SETOR+4
>> ORNP	SETOR+5*
>> ORPCL	SETOR+10, SETOR+11
>> ORPK	SETOR+11*
>> ORPURG	SETOR+10*
>> ORSTRT	SETOR+6*
>> ORSTS	SETOR+10*
>> ORTO	SETOR+10*
>> ORTX(1	SETOR+8, SETOR+9
>> ORVP	SETOR+3*
U	EN+2, EN+3, EN+6, EN+7, 69+3, 69+5, B+4, B+5, B+7
X	EN+11, 69+12~, 69+14, SETOR+3, SETOR+4, SETOR+5, SETOR+6, SETOR+7*, SETOR+8
>> X1	SETOR+3*, SETOR+6
>> XQY0	B+4
Y	EN+13, 69, 69+2, 69+12~, 69+13, 69+14, SETOR+7, SETOR+8, TRYAGAIN+5, TRYAGAIN+7 , TRYAGAIN+15

Customize PDF page

Package: Lab Service

Routine: LRTSTSET

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: