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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRVR

Package: Lab Service

Routine: LRVR


Information

LRVR ;DALOI/STAFF - LAB ROUTINE DATA VERIFICATION ;06/05/10 00:33

Source Information

Source file <LRVR.m>

Entry Points

Name Comments DBIA/ICR reference
DAT
L10 ;
YN
WLN ;
WLN2 ;
LW ;
QUIT
CLEAN ;
NEXT
LIST
EXPAND
SKPEX
STOP
INIT ;from LRVRW
CONT ;
REV ;
LRTM60(LRX) ; Calculate days back for delta check based on specimen collection date/time

Interaction Calls

Name Line Occurrences
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: WRITE
  • Prompt: !,"NOT ON FILE"
  • Line Location: WLN+9
Function Call: WRITE
  • Prompt: !?10,"No UID number for this accession",!
  • Line Location: WLN2+4
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN
  • Line Location: WLN2+5
Function Call: WRITE
  • Prompt: !,"ORDER #: ",LRCEN
  • Condition for execution: LRCEN
  • Line Location: WLN2+5
Function Call: WRITE
  • Prompt: !,">>>>ERROR - NO POINTER TO FILE #63 - PLEASE NOTIFY SYSTEM MANAGER^ <<<<<",!
  • Line Location: WLN2+24
Function Call: WRITE
  • Prompt: !,">>>>ERROR - NO ENTRY IN FILE #63 - PLEASE NOTIFY SYSTEM MANAGER<<^ <<<",!
  • Line Location: WLN2+25
Function Call: WRITE
  • Prompt: !,"This Order # has not been collected",$C(7)
  • Line Location: WLN2+27
Function Call: WRITE
  • Prompt: !,"You cannot verify an accession which has not been collected.",$C(7)
  • Line Location: WLN2+28
Function Call: WRITE
  • Prompt: !,"Enter range of accession numbers which might apply."
  • Line Location: LW+2
Function Call: WRITE
  • Prompt: !,"LAST IN WORK LIST"
  • Line Location: NEXT+0
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: !,"No profile defined."
  • Line Location: INIT+7
Function Call: WRITE
  • Prompt: !?10,$C(7),"Error in your DATABASE. There is not an accession area # ",LRAA,!!
  • Line Location: INIT+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(68.2 - [#68.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call