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

Package: Lab Service

Routine: LRVRW


Information

LRVRW ;DALOI/STAFF - LAB ROUTINE DATA VERIFICATION BY WORKLIST ;06/24/10 16:53

Source Information

Source file <LRVRW.m>

Entry Points

Name Comments DBIA/ICR reference
1
L10 ;
YN
WLN ;
WLN2 ;
END ;
NEXT
NX2
LIST
STOP ;
ISEQ ;
FIND ;
T3
QUIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ACCESSION MISSING"
  • Line Location: L10+5
Function Call: WRITE
  • Prompt: !!,"Can't use. Entry has data from accession # ",$P(^(0),U,5),!,"Suggest you Clear instrument/worklist data."
  • Line Location: L10+7
Function Call: WRITE
  • Prompt: !?5," Error in Patient Lookup",!
  • Line Location: L10+10
Function Call: WRITE
  • Prompt: !,PNM,?40,SSN
  • Line Location: L10+11
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !,"Answer 'Y' or 'N': "
  • Line Location: YN+0
Function Call: READ
  • Variable: X3
  • Timeout: DTIME
  • Line Location: WLN+2
Function Call: WRITE
  • Prompt: !!!,"SEQUENCE #: ",LRCUP,"//"
  • Line Location: WLN+2
Function Call: WRITE
  • Prompt: !,"ENTER A VALID SEQUENCE NUMBER"
  • Line Location: WLN+3
Function Call: WRITE
  • Prompt: !,"SEQUENCE NUMBER DOESN'T EXIST"
  • Line Location: WLN+4
Function Call: READ
  • Variable: X2
  • Timeout: DTIME
  • Line Location: WLN2+1
Function Call: WRITE
  • Prompt: !!!,"TRAY: ",LRTRAY,"//"
  • Line Location: WLN2+1
Function Call: READ
  • Variable: X3
  • Timeout: DTIME
  • Line Location: WLN2+2
Function Call: WRITE
  • Prompt: " CUP: ",LRCUP,"//"
  • Line Location: WLN2+2
Function Call: WRITE
  • Prompt: !,"ENTER A VALID TRAY, CUP FROM THE LOAD/WORK LIST"
  • Line Location: WLN2+3
Function Call: WRITE
  • Prompt: !,"TRAY, CUP DOESN'T EXIST"
  • Line Location: WLN2+4
Function Call: WRITE
  • Prompt: !,"LAST IN LIST"
  • Line Location: NX2+1
Function Call: WRITE
  • Prompt: " the following tests: "
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !,?10,$P(LRTST(I),"^",1)
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !,?5,I
  • Line Location: FIND+3
Function Call: WRITE
  • Prompt: !,"No data for that tray & cup"
  • Line Location: T3+0
Function Call: READ
  • Formatting: !
  • Prompt: "Choose sequence number: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: T3+1
Function Call: WRITE
  • Prompt: !,"Enter a number"
  • Line Location: T3+1
Function Call: WRITE
  • Prompt: !,"No data there"
  • Line Location: T3+3
Info |  Source |  Entry Points |  Interaction Calls