Routine: LRTSTJAN

Information

LRTSTJAN ;VA/SLC/RWF,DCN-JAM TESTS ONTO (OR OFF) ACCESSIONS PART2 ;8/11/97

Package	Total	Call Graph
Lab Service	6	NEW^LR7OB1 $$VER^LR7OU1 DC^LRCENDE1 ^LRPARAM (CHG,END,FIX,FX2,SET)^LRTSTOUT ^LRWU4
Kernel	2	$$NOW^XLFDT $$CJ^XLFSTR
IHS Changes To Lab	1	^BLREVTQ
VA Fileman	1	^DIR

Package	Total	Caller Graph
Lab Service	2	LRDELOG LRNEWSTART

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

Name	Field # of Occurrence
^BLREVTQ	EN1+20
^DIR	EN1+4
NEW^LR7OB1	OE+3
$$VER^LR7OU1	OE+1
DC^LRCENDE1	OE+1
^LRPARAM	EN
CHG^LRTSTOUT	EN1+10
END^LRTSTOUT	END+4
FIX^LRTSTOUT	EN1+3
FX2^LRTSTOUT	EN1+11
SET^LRTSTOUT	EN1+15
^LRWU4	NEWSTART+3, LRACC
$$NOW^XLFDT	EN1+14
$$CJ^XLFSTR	DELOG+4, DELOG+5, DELOG+6, DELOG+7, DELOG+8

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,$$CJ^XLFSTR(" The ability to DELETE an entire ORDER/ACCESSION ",80) Line Location: DELOG+4
Function Call: WRITE	Prompt: $$CJ^XLFSTR("has been REPLACED. The test(s) will now be marked",80) Line Location: DELOG+5
Function Call: WRITE	Prompt: $$CJ^XLFSTR("as Not Performed and a reason for 'NP' will be stored",80) Line Location: DELOG+6
Function Call: WRITE	Prompt: $$CJ^XLFSTR("with each test. Accession numbers can't be reused",80) Line Location: DELOG+7
Function Call: WRITE	Prompt: $$CJ^XLFSTR("after it has been assigned to a specimen.",80) Line Location: DELOG+8
Function Call: WRITE	Prompt: !?5,"You are not authorized to change test status.",! Line Location: EN+1
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+18
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

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

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

Name	Field # of Occurrence
>> A	US+1*
AGE	END+2!
>> B	US+1*
>> BLRLOG	EN1+20
>> BLROPT	DELOG+2*, EN1+20
>> 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
HRCN	END+3!
I	END+2!, OE+3~
I(	OE+3*
IOF	DELOG+4, EN1+11, EN1+18
LRAA	EN1+14, EN1+16, END!, ULK+1, NEWSTART+1~, N1, N1+5, LRACC
LRACC	END!, NEWSTART+1~
LRACD	END!
LRACN	EN1+20, END!
LRACN0	END!
LRAD	EN1+14, EN1+16, END!, ULK+1, NEWSTART+1~, NEWSTART+3, N1, N1+5, LRACC
LRAN	EN1+14, EN1+16, END!, ULK+1, NEWSTART+1~
>> LRCM	OE+2
LRCOM	END!
LRDFN	EN1+8, EN1+17, END!, US+1
LRDOC	END!
LRDPF	END!
LREND	EN, EN1+2, EN1+3, EN1+11, END!, NEWSTART+1~, NEWSTART+2, LRACC*
LRF	END+1!
LRGCOM	END!, OE+2
LRI	END+1!
LRIDIV	END!, NEWSTART+1~
>> LRIDT	EN1+8, EN1+17, US+1
LRIFN	EN1+1~, EN1+6, EN1+8
LRJ	END+1!
>> LRLABKY	EN+1
LRLL	END!
LRMSTATI	END+1!, OE+3
LRNATURE	EN1+2!, END!, OE+2*, OE+3
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+3
LROOS	END!
LROS	END!
LROSD	END!
LROT	END!
LRPRAC	END!
LRRB	END!
LRROD	END!
LRSAMP	END!
LRSCNXB	EN+2!
LRSN	END!, OE+3
>> LRSS	EN1+8, EN1+17
LRTCOM	END!
LRTEST	END!
>> LRTNM	EN1+15*
LRTOTL	EN1+1~, EN1+6*, EN1+7, EN1+10
LRTREA	END!
>> LRTS	OE+1, OE+3
LRTSTN	END!
LRTSTS	EN1+13~, EN1+14*, EN1+15, END!
LRTT	END!
LRWDT1	END!
LRWL1	END!
LRWRD	END!
LRX	END!, NEWSTART+1~
>> ORIFN	OE+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