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

Package: Lab Service

Routine: LRMIV1


Information

LRMIV1 ;SLC/DLG - LAB ROUTINE DATA VERIFICATION ;2/25/03 22:44

Source Information

Source file <LRMIV1.m>

Entry Points

Name Comments DBIA/ICR reference
PAT
PAT1 ;
T1
T2
T3
T4
T5
T51
T6
WAIT
WAIT1
MOVE ;Move data into ^LR(LRDFN,"MI",LRIDT,3,

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Enter the accession number"
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !,?5,I
  • Line Location: PAT1+1
Function Call: READ
  • Formatting: !
  • Prompt: "What tray: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: T1+0
Function Call: WRITE
  • Prompt: !,"Enter a number"
  • Line Location: T1+0
Function Call: WRITE
  • Prompt: !,"Can't MANUALLY add to a SEQUENCE instrument data file."
  • Line Location: T1+2
Function Call: WRITE
  • Prompt: !,"Enter manually"
  • Line Location: T1+3
Function Call: READ
  • Formatting: !
  • Prompt: "What cup: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: T2+0
Function Call: WRITE
  • Prompt: !,"Enter a number"
  • Line Location: T2+0
Function Call: WRITE
  • Prompt: !,?5,I
  • Line Location: T2+2
Function Call: WRITE
  • Prompt: !,"No data for that accession."
  • 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
Function Call: WRITE
  • Prompt: ?25," ",PNM,?47," ",SSN
  • Line Location: T4+4
Function Call: WRITE
  • Prompt: !,"The Bact data has been approved, ADDING Data MAY change previous reported",!,"values. Are you sure you want to do this "
  • Line Location: T5+0
Function Call: WRITE
  • Prompt: !,"DATA NOT LOADED.",!
  • Line Location: T5+0
Function Call: WRITE
  • Prompt: !,"Enter YES to reload data. NO to not reload data."
  • Line Location: T5+1
Function Call: WRITE
  • Prompt: !!,"Data moved over"
  • Line Location: T5+6
Function Call: WRITE
  • Prompt: !,"DATA APPROVED BUT NOT VERIFIED",!
  • Line Location: T6+1
Function Call: WRITE
  • Prompt: !,"DATA APPROVED AND VERIFIED",!
  • Line Location: T6+2
Function Call: WRITE
  • Prompt: "DATA NOT APPROVED OR VERIFIED. "
  • Line Location: T6+3
Function Call: WRITE
  • Prompt: "INITIALS DO NOT MATCH."
  • Line Location: T6+4
Function Call: WRITE
  • Prompt: !,"Type ""^"" to skip "
  • Line Location: WAIT+0
Function Call: READ
  • Variable: X
  • Timeout: 10
  • Line Location: WAIT1+0

FileMan Files Accessed Via FileMan Db Call

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