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

Package: Automated Lab Instruments

Routine: LABERRP


Information

LABERRP ; SLC/FHS - PRINT OUT LA("ERR" ERROR TRAP

Source Information

Source file <LABERRP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
SEL ;
ZTSK ;
END ;
QUE ;
WAIT ;
LEN0 ;
SHOW ;
LIST ;
L1
L2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"There is no data in File ",!!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!?25,"There "_$S(LAERR=1:"is ",1:"are "),$P(LAERR0,U,4)," error"_$S(LAERR=1:"",1:"s")_" in the file"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!?5,"The last entry (# ",+LAERR0,") is for ",LANM," instrument "
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !?10,^("ZE"),!
  • Line Location: EN+4
Function Call: READ
  • Formatting: !?10
  • Prompt: "Enter Error Number "
  • Variable: LEN
  • Timeout: DTIME
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !!,"Global is corrupeted ",!
  • Line Location: SEL+3
Function Call: READ
  • Formatting: !!?10
  • Prompt: " Enter Variable or '?' for listing "
  • Variable: A
  • Timeout: DTIME
  • Line Location: ZTSK+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !?10,"ER # ",LEN,?20,"Instrument ",A
  • Line Location: QUE+3
Function Call: READ
  • Formatting: !!?10
  • Prompt: "Press return to continue '^' to stop "
  • Variable: R
  • Timeout: DTIME
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: @IOF,!!?10,"Instrument ",$P(LEN0,U,5),?45,"Time : ",Y
  • Line Location: LEN0+1
Function Call: WRITE
  • Prompt: !,"Device : ",$P(LEN0,U,2),?20,"UCI : ",$P(LEN0,U,8),?40,"TASK # : ",$P(LEN0,U,9)
  • Line Location: LEN0+2
Function Call: WRITE
  • Prompt: !," $ZE : ",^LA("ERR",LEN,"ZE"),!,"$ZR : ",^("ZR")
  • Line Location: LEN0+3
Function Call: WRITE
  • Prompt: !,A_" = "_^(AZ)
  • Line Location: SHOW+1
Info |  Source |  Entry Points |  Interaction Calls