Routine: LAMIAUT1

Information

LAMIAUT1 ;SLC/FHS - CONTINUE MICRO AUTO INSTRUMENT PROGRAN VITEK ;7/23/90 11:06 ;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+1
Function Call: WRITE	Prompt: !,"ACC # (",LRAN,") " Line Location: PAT+1
Function Call: WRITE	Prompt: $$DTF^LRAFUNC1(LRCDT),!!?10,PNM," SSN: ",SSN," LOC: ",LRLLOC Line Location: PAT+1
Function Call: WRITE	Prompt: !?5,"Specimen: ",$S($D(^LAB(61,+LRSPEC,0)):$P(^(0),U),1:"Unknown")," Sample: ",$S($D(^LAB(62,+LRSAMP,0)):$P(^(0),U),1:"Unknown"),! Line Location: PAT+2
Function Call: WRITE	Prompt: !," Comment on Specimem " Line Location: PAT+3
Function Call: WRITE	Prompt: ?30,^(I,0),! Line Location: PAT+3
Function Call: WRITE	Prompt: !,"GRAM STAIN " Line Location: PAT+4
Function Call: WRITE	Prompt: ?15,^(I,0),! Line Location: PAT+4
Function Call: WRITE	Prompt: !,"Comment on Specimen : ",^(99) Line Location: PAT+5
Function Call: WRITE	Prompt: !,"Final report has been verified by microbiology supervisor.",$C(7),!,"If you proceed in editing, this report will need to be reverified." Line Location: RD1+1
Function Call: WRITE	Prompt: !,?20,"OK" Line Location: RD1+2
Function Call: WRITE	Prompt: !,"Enter 'Y' or 'N':" Line Location: RD1+2
Function Call: WRITE	Prompt: !!?7,$C(7),"Another User is Editing this Patient",!! Line Location: BB+4
Function Call: WRITE	Prompt: !,$C(7),?10,"No Organism for this Accession" Line Location: BB+6
Function Call: WRITE	Prompt: !?10,"NO ORGANISM TO DISPLAY " Line Location: DR+1