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

Package: Automated Lab Instruments

Routine: LAMIAUT4


Information

LAMIAUT4 ;SLC/FHS - EDIT OR VERIFY MICRO AUTO INSTRUMENTS ;05/02/13

Source Information

Source file <LAMIAUT4.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
EXP ;Get the list of tests for this ACC.
V9
L10
EDIT
EDIT1
EDIT2
VER ;
VER1 ;
HLP

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Line Location: EN+1
Function Call: READ
  • Formatting: !
  • Prompt: "Approve for release by entering your initials: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,$C(7)," NOT APPROVED "
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!,PNM," ",SSN,!,LRACCN
  • Line Location: EXP+1
Function Call: WRITE
  • Prompt: !!?5,$P(^LAB(61,LRSPEC,0),U)," ",$P(^LAB(62,LRSAMP,0),U),!
  • Line Location: EXP+1
Function Call: WRITE
  • Prompt: !,I," ",LRNAME(I)
  • Line Location: EXP+4
Function Call: WRITE
  • Prompt: ?25," verified"
  • Line Location: EXP+4
Function Call: READ
  • Formatting: !!
  • Prompt: "TEST #(s) (or ""ALL""): "
  • Variable: X
  • Timeout: DTIME
  • Line Location: V9+0
Function Call: WRITE
  • Prompt: !,"Enter for example 1,2,5-9."
  • Line Location: V9+1
Function Call: WRITE
  • Prompt: !!?7,"Incorrect test number ",$C(7)
  • Line Location: V9+2
Function Call: WRITE
  • Prompt: !?7,"Edit ? ",!
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: !?3,"(",I,") ",LRNAME(I)
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: !?3,"(",I,") ",LRNAME(I)
  • Line Location: EDIT+0
Function Call: READ
  • Formatting: !!
  • Prompt: "TEST #(s) (or ""ALL""): "
  • Variable: X
  • Timeout: DTIME
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !?7,"Enter for example 1,2,5-9 ",!
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !!?7,"Incorrect number ",$C(7),!
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: $C(7),!?7,"NO EDIT CODE FOR ",LRNAME(T1)
  • Line Location: EDIT2+0
Function Call: WRITE
  • Prompt: $C(7),!?7,"EDIT CODE IS MISSING FOR ",LRNAME(T1)
  • Line Location: EDIT2+1
Function Call: WRITE
  • Prompt: !!?7,"Editing ",LRNAME(T1),!!
  • Line Location: EDIT2+3
Function Call: WRITE
  • Prompt: !,"NO TEST DEFINED ",!!,$C(7)
  • Line Location: EDIT2+4
Function Call: WRITE
  • Prompt: !,"Final report has been verified by micro supervisor,",$C(7),!,"If you proceed in editing, the report will be reprinted"
  • Line Location: VER+3
Function Call: WRITE
  • Prompt: !?10,"OK"
  • Line Location: VER+4
Function Call: WRITE
  • Prompt: !," Enter 'Y' or 'N' : "
  • Line Location: VER+4
Function Call: WRITE
  • Prompt: !
  • Line Location: VER1+3
Function Call: WRITE
  • Prompt: !!?10,"ENTER",?20,"'E' TO EDIT ENTIRE ACCESSION. ",!?20,"'C' TO EDIT COMMENT",!?20,"'O' TO EDIT ORGANISM "
  • Line Location: HLP+0
Function Call: WRITE
  • Prompt: !?20,"'^' OR '@' WILL DELETE TRANSFERRED DATA ",!
  • Line Location: HLP+1
Info |  Source |  Entry Points |  Interaction Calls