Routine: LAMIVTL1

Information

LAMIVTL1 ;DAL/HOAK 2nd Vitek literal verify rtn

Name	Comments	DBIA/ICR reference
INIT	;
CONTROL	;
SETUP	; ; Set up variables for PROCESSING
EN	; From LAMIAUT0 BY FHS
PAT	;
EXP	; From LAMIAUT4 BY FHS
V9	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: CONTROL+1
Function Call: WRITE	Prompt: !,"ACC # (",LRAN,") " Line Location: PAT+2
Function Call: WRITE	Prompt: $$DTF^LRAFUNC1(LRCDT),!!?10,PNM," SSN: ",SSN," LOC: ",LRLLOC Line Location: PAT+3
Function Call: WRITE	Prompt: !?5,"Specimen: " Line Location: PAT+4
Function Call: WRITE	Prompt: $S($D(^LAB(61,+LRSPEC,0)):$P(^(0),U),1:"Unknown") Line Location: PAT+5
Function Call: WRITE	Prompt: " Sample: ",$S($D(^LAB(62,+LRSAMP,0)):$P(^(0),U),1:"Unknown"),! Line Location: PAT+6
Function Call: WRITE	Prompt: !," Comment on Specimem " Line Location: PAT+8
Function Call: WRITE	Prompt: ?30,^(I,0),! Line Location: PAT+10
Function Call: WRITE	Prompt: !,"GRAM STAIN " Line Location: PAT+12
Function Call: WRITE	Prompt: ?15,^(I,0),! Line Location: PAT+14
Function Call: WRITE	Prompt: !,"Comment on Specimen : ",^(99) Line Location: PAT+15
Function Call: WRITE	Prompt: !!?10,"Is this the correct patient/specimen? " Line Location: PAT+17
Function Call: WRITE	Prompt: !!,PNM," ",SSN,!,LRACCN Line Location: EXP+3
Function Call: WRITE	Prompt: !!?5,$P(^LAB(61,LRSPEC,0),U)," ",$P(^LAB(62,LRSAMP,0),U),! Line Location: EXP+5
Function Call: WRITE	Prompt: !,I," ",LRNAME(I) Line Location: EXP+21
Function Call: WRITE	Prompt: ?25," verified" Line Location: EXP+22
Function Call: WRITE	Prompt: ! Line Location: V9+1
Function Call: WRITE	Prompt: !!?7,"Incorrect test number ",$C(7) Line Location: V9+10