Routine: LABERRP

Information

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

Source file <LABERRP.m>

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