Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LAMIVTL1

Package: Automated Lab Instruments

Routine: LAMIVTL1


Information

LAMIVTL1 ;DAL/HOAK 2nd Vitek literal verify rtn

Source Information

Source file <LAMIVTL1.m>

Entry Points

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 ;

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls