| 1 | %INDX1 ;ISC/REL,GRK,RWF - ERROR ROUTINE ;1/9/95 15:19
|
|---|
| 2 | ;;7.3;TOOLKIT;;Apr 25, 1995
|
|---|
| 3 | A N %,%1
|
|---|
| 4 | S ERTX=LAB_$S(LABO:"+"_LABO,1:""),ERTX=$E(ERTX_" ",1,11),%1=$T(ERROR+ERR),ERTX=ERTX_" "_$S(ERR:$P(%1,";",4,9),1:ERR)
|
|---|
| 5 | I ERTX["|" F %=1:1 S ERTX=$P(ERTX,"|")_$S($D(ERR(%)):ERR(%),1:"??")_$P(ERTX,"|",%+1,99) Q:ERTX'["|"
|
|---|
| 6 | B I $P(%1,";",3)]"" D Q:%1]"" ;Don't flag kernel doing kernel.
|
|---|
| 7 | . S %1=$P(%1,";",3)
|
|---|
| 8 | . F Q:RTN[$P(%1,",") S %1=$P(%1,",",2,99) ;quit if RTN[%1 or null.
|
|---|
| 9 | . Q
|
|---|
| 10 | I ERR=17,$E(RTN)'="%",$E(LAB)="%" Q ;Don't flag %RTN w/o %.
|
|---|
| 11 | S %=$G(^UTILITY($J,1,RTN,"E",0))+1,^(0)=%,^(%)=ERTX Q
|
|---|
| 12 | ;
|
|---|
| 13 | E(ERR) ;
|
|---|
| 14 | G A Q
|
|---|
| 15 | ;
|
|---|
| 16 | ERROR ;
|
|---|
| 17 | 1 ;;;F - UNDEFINED COMMAND (rest of line not checked).
|
|---|
| 18 | 2 ;;;F - Non-standard (Undefined) 'Z' command.
|
|---|
| 19 | 3 ;;;F - Undefined Function.
|
|---|
| 20 | 4 ;;;F - Undefined Special Variable.
|
|---|
| 21 | 5 ;;;F - Unmatched Parenthesis.
|
|---|
| 22 | 6 ;;;F - Unmatched Quotation Marks.
|
|---|
| 23 | 7 ;;;F - ELSE Command followed by only one space.
|
|---|
| 24 | 8 ;;;F - FOR Command did not contain '='.
|
|---|
| 25 | 9 ;;;W - QUIT Command followed by only one space.
|
|---|
| 26 | 10 ;;;F - Unrecognized argument in SET command.
|
|---|
| 27 | 11 ;;;W - Invalid local variable name.
|
|---|
| 28 | 12 ;;;W - Invalid global variable name.
|
|---|
| 29 | 13 ;;;F - Blank(s) at end of line.
|
|---|
| 30 | 14 ;;;F - Missing LABEL, REFERENCED in this routine.
|
|---|
| 31 | 15 ;;;W - Duplicate label.
|
|---|
| 32 | 16 ;;;F - Error in pattern code.
|
|---|
| 33 | 17 ;;;W - First line tag NOT routine name.
|
|---|
| 34 | 18 ;;;W - Line contains a CONTROL (non-graphic) character.
|
|---|
| 35 | 19 ;;;S - Line is longer than 245 bytes.
|
|---|
| 36 | 20 ;;;S - View command used.
|
|---|
| 37 | 21 ;;;F - General Syntax Error.
|
|---|
| 38 | 22 ;;;S - Exclusive Kill.
|
|---|
| 39 | 23 ;;;S - Unargumented Kill.
|
|---|
| 40 | 24 ;;;S - Kill of an unsubscripted global.
|
|---|
| 41 | 25 ;;;S - Break command used.
|
|---|
| 42 | 26 ;;;S - Exclusive or Unargumented NEW command.
|
|---|
| 43 | 27 ;;;S - $View function used.
|
|---|
| 44 | 28 ;;;S - Non-standard $Z special variable used.
|
|---|
| 45 | 29 ;;ZIS;S - 'Close' command should be invoked through 'D ^%ZISC'.
|
|---|
| 46 | 30 ;;;S - TAG+OFFSET syntax.
|
|---|
| 47 | 31 ;;;S - Non-standard $Z function used.
|
|---|
| 48 | 32 ;;;S - 'HALT' command should be invoked through 'G ^XUSCLEAN'.
|
|---|
| 49 | 33 ;;;S - Read command doesn't have a timeout.
|
|---|
| 50 | 34 ;;ZIS;S - 'OPEN' command should be invoked through ^%ZIS.
|
|---|
| 51 | 35 ;;;S - Routine exceeds SACC maximum size of 5000 (|).
|
|---|
| 52 | 36 ;;ZTM;S - Should use 'TASKMAN' instead of 'JOB' command.
|
|---|
| 53 | 37 ;;;F - Tag is not valid.
|
|---|
| 54 | 38 ;;;F - Call to this MISSING LABEL (see INVOKED BY list).
|
|---|
| 55 | 39 ;;;S - Kill of a protected variable (|).
|
|---|
| 56 | 40 ;;;S - Space where a command should be.
|
|---|
| 57 | 41 ;;;S - Star or pound READ used.
|
|---|
| 58 | 42 ;;;F - Null line (no commands or comment).
|
|---|
| 59 | 43 ;;;F - Invalid or wrong number of arguments to a function.
|
|---|
| 60 | 44 ;;;S - Version number not found on 2nd line of routine.
|
|---|
| 61 | 45 ;;ZTM,ZTLO,ZIS;S - Set to a '%' global.
|
|---|
| 62 | 46 ;;;F - Quoted string not followed by a separator.
|
|---|
| 63 | 47 ;;;S - Lowercase command(s) used in line.
|
|---|
| 64 | 48 ;;;F - Missing argument to a command post-conditional.
|
|---|
| 65 | 49 ;;;F - Command missing an argument.
|
|---|
| 66 | 50 ;;ZTM;S - Extended reference.
|
|---|
| 67 | 51 ;;;F - Block structure mismatch.
|
|---|
| 68 | 52 ;;;F - Reference to routine '^|'. That isn't in this UCI.
|
|---|
| 69 | 53 ;;;F - Bad Number
|
|---|
