Routine: LRTSTJAN

Information

LRTSTJAN ;SLC/RWF/DCN - JAM TESTS ONTO (OR OFF) ACCESSIONS PART2 ;02/28/12 19:53

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Lab Service	4	NEW^LR7OB1 ^LRPARAM (CHG,END,FIX,FX2,LEDICHK,LEDISET,SET)^LRTSTOUT ^LRWU4
Kernel	2	$$NOW^XLFDT $$CJ^XLFSTR
VA FileMan	1	^DIR

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: 2

Package	Total	Caller Graph
Lab Service	2	LRDELOG LRNEWSTART

Entry Points

Name	Comments	DBIA/ICR reference
DELOG	;This tag is no longer available - Routine LRTSTOUT replaces this call.
EN	;
EN1	;
END
ULK	;Unlock ^LRO(68,
NEWSTART	;Set new starting accession #
N1
US	;ck if units selected
OE	;
LRACC

Name	Field # of Occurrence
^DIR	EN1+4
NEW^LR7OB1	OE+2
^LRPARAM	EN+1
CHG^LRTSTOUT	EN1+10
END^LRTSTOUT	END+3
FIX^LRTSTOUT	EN1+3
FX2^LRTSTOUT	EN1+11
LEDICHK^LRTSTOUT	EN1+17
LEDISET^LRTSTOUT	EN1+18
SET^LRTSTOUT	EN1+16
^LRWU4	NEWSTART+3, LRACC
$$NOW^XLFDT	EN1+14
$$CJ^XLFSTR	DELOG+1, DELOG+2, DELOG+3, DELOG+4, DELOG+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,$$CJ^XLFSTR(" The ability to DELETE an entire ORDER/ACCESSION ",IOM) Line Location: DELOG+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("has been REPLACED. The test(s) will now be marked",IOM) Line Location: DELOG+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("as Not Performed and a reason for 'NP' will be stored",IOM) Line Location: DELOG+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("with each test. Accession numbers can't be reused",IOM) Line Location: DELOG+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("after it has been assigned to a specimen.",IOM) Line Location: DELOG+5
Function Call: WRITE	Prompt: !?5,"You are not authorized to change test status.",! Line Location: EN+2
Function Call: WRITE	Prompt: ! Line Location: EN1+4
Function Call: WRITE	Prompt: !!! Line Location: EN1+9
Function Call: WRITE	Prompt: !!! Line Location: EN1+10
Function Call: WRITE	Prompt: @IOF Line Location: EN1+11
Function Call: WRITE	Prompt: @IOF,!!,"All accessioned test(s) changed",!! Line Location: EN1+21
Function Call: WRITE	Prompt: !,"Must be whole number between 1 and 999999, accession remains unchanged." Line Location: N1+4
Routine Call	DIR Line Location: EN1+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	EN1+15
^LR - [#63]	EN1+8*, EN1+20, US+1
^LRO(68 - [#68]	EN1+14, EN1+19, ULK+1, N1, N1+5*

Label References

Name	Line Occurrences
EN1	EN1+3, EN1+5, EN1+10, EN1+11, EN1+22
END	EN+1, EN+2, EN1+3, EN1+11, EN1+22
N1	N1+4
NEWSTART	N1, N1+2, N1+6

Naked Globals

Name	Field # of Occurrence
^(	EN1+14, US+1
^(0	EN1+14, EN1+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	US+1*
AGE	END+2!
>> B	US+1*
>> C	US+1*
DA	END+2!
DA(1	LRACC*
DA(2	LRACC*
DFN	END+2!
DIC	END+2!
DIR	EN1+4!
DIR("A"	EN1+4*
DIR("B"	EN1+4*
DIR(0	EN1+4*
>> DIRUT	EN1+5
DOB	END+2!
DR	END+2!
DTIME	N1+1
I	END+2!, OE+2~
I(	OE+2*
IOF	DELOG+1, EN1+11, EN1+21
IOM	DELOG+1, DELOG+2, DELOG+3, DELOG+4, DELOG+5
LRAA	EN1+14, EN1+19, END!, ULK+1, NEWSTART+1~, N1, N1+5, LRACC
LRACC	END!, NEWSTART+1~
LRACD	END!
LRACN	END!
LRACN0	END!
LRAD	EN1+14, EN1+19, END!, ULK+1, NEWSTART+1~, NEWSTART+3, N1, N1+5, LRACC
LRAN	EN1+14, EN1+19, END!, ULK+1, NEWSTART+1~
>> LRCM	OE+1
LRCOM	END!
LRDFN	EN1+8, EN1+20, END!, US+1
LRDOC	END!
LRDPF	END!
LREND	EN+1, EN1+2, EN1+3, EN1+11, END!, NEWSTART+1~, NEWSTART+2, LRACC*
LRF	END+1!
LRGCOM	END!, OE+1
LRI	END+1!
LRIDIV	END!, NEWSTART+1~
>> LRIDT	EN1+8, EN1+20, US+1
LRIFN	EN1+1~, EN1+6, EN1+8
LRJ	END+1!
>> LRLABKY	EN+2
LRLL	END!
LRMSTATI	END+1!, OE+2
LRNATURE	EN1+2!, END!, OE+1*, OE+2
LRNEW	NEWSTART+1~, N1+1, N1+2, N1+3!, N1+4, N1+5
>> LRNOP	EN1+2*, EN1+3
>> LRNOW	EN1+14*
LROD0	END!
LROD1	END!
LROD3	END!
LRODT	END!, OE+2
LROOS	END!
LROS	END!
LROSD	END!
LROT	END!
LROTA	EN1+13~, EN1+18
LRPRAC	END!
LRRB	END!
LRROD	END!
LRSAMP	END!
LRSCNXB	EN+3!
LRSN	END!, OE+2
>> LRSS	EN1+8, EN1+20
LRTCOM	END!
LRTEST	END!
>> LRTNM	EN1+15*
LRTOTL	EN1+1~, EN1+6*, EN1+7, EN1+10
LRTREA	END!
>> LRTS	OE+2
LRTSTN	END!
LRTSTS	EN1+13~, EN1+14*, EN1+15, END!
LRTT	END!
LRWDT1	END!
LRWL1	END!
LRWRD	END!
LRX	END!, NEWSTART+1~
PNM	END+2!
SEX	END+2!
SSN	END+2!
U	EN1+8, EN1+14, EN1+15, N1+5
VA	END+2!
VA200	END+2!
VADM	END+2!
VAERR	END+2!
VAIN	END+2!
X	END+2!
X1	END+2!
X2	END+2!
X3	END+2!
X4	END+2!
>> Y	EN1+6

Customize PDF page

Package: Lab Service