Routine: LRTSTJAM

Information

LRTSTJAM ;DALOI/STAFF - JAM TESTS ONTO (OR OFF) ACCESSIONS ;10/25/11 12:29

Name	Comments	DBIA/ICR reference
EN	;
ADD	; I $G(LRAA),$G(LRAD),$G(LRAN) L -^LRO(68,LRAA,1,LRAD,1,LRAN)
ADD1	; ; If test added then check for automatic downloading
LRTSP	;
ADDTST	;
ADDURG	;
SETTST	; ; LRORDTYP=1(add)/2(reflex)^file #64.061 ien for code^if reflex parent test^if reflex parent NLT^
IDENT	;D LRACC^LRTSTOUT Q:LREND
FXID	;
END	;
CHK	; from LRTSTJAN
CHK1	;
UNLOCK	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"This is not a valid Accession number ",!,$C(7) Line Location: ADD1+8
Function Call: WRITE	Prompt: !?5,"Someone else is editing this entry ",!,$C(7) Line Location: ADD1+11
Function Call: WRITE	Prompt: !,PNM,?30,SSN Line Location: ADD1+13
Function Call: WRITE	Prompt: !!,"...process aborted",$C(7) Line Location: ADD1+16
Function Call: WRITE	Prompt: !,"TESTS ALREADY ON THE ACCESSION: " Line Location: ADD1+18
Function Call: WRITE	Prompt: !,?5,$P(^LAB(60,I,0),U,1) Line Location: ADD1+20
Function Call: WRITE	Prompt: ! Line Location: LRTSP+1
Function Call: WRITE	Prompt: ! Line Location: LRTSP+4
Function Call: WRITE	Prompt: ! Line Location: LRTSP+6
Function Call: WRITE	Prompt: !," ...OK" Line Location: ADDTST+6
Function Call: WRITE	Prompt: !,"The accession already has this test." Line Location: ADDTST+11
Function Call: WRITE	Prompt: !,"The accession already has this test." Line Location: ADDTST+12
Function Call: WRITE	Prompt: !,"That test normally belongs to accession area ",$P(^LRO(68,J,0),U),",",!,"are you sure" Line Location: ADDTST+16
Function Call: WRITE	Prompt: !,"URGENCY must be defined. Test not added." Line Location: ADDURG+3
Function Call: WRITE	Prompt: !," ...OK" Line Location: ADDURG+4
Function Call: READ	Variable: % Timeout: DTIME Line Location: FXID+4
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N': " Line Location: FXID+4
Function Call: WRITE	Prompt: !,$C(7),"CAN'T DO IT. The data has been approved for that log number." Line Location: CHK+1