Routine: LRTSTJAN

Information

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

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