Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XINDX1

XINDX1.m

Go to the documentation of this file.
  1. XINDX1 ;ISC/REL,GRK,RWF - ERROR ROUTINE ;08/05/08 13:59
  1. ;;7.3;TOOLKIT;**20,61,66,68,110,121,128,133,140,149,151,153**;Apr 25, 1995;Build 3
  1. ; Per VHA Directive 2004-038, this routine should not be modified.
  1. G A
  1. E(ERR) ;
  1. A N %,%1 ;TXT is the line of the error.
  1. S ERTX=LAB_$S(LABO:"+"_LABO,1:"")_$C(9),%1=$T(ERROR+ERR),ERTX=ERTX_$S(ERR:$P(%1,";",4,9),1:ERR) ;p110
  1. I ERTX["|" F %=1:1 S ERTX=$P(ERTX,"|")_$S($D(ERR(%)):ERR(%),1:"??")_$P(ERTX,"|",%+1,99) Q:ERTX'["|"
  1. ;check exclude rtn list
  1. B I $P(%1,";",3)]"" D Q:%1]"" ;Don't flag kernel doing kernel.
  1. . S %1=$P(%1,";",3)
  1. . F S %=$P(%1,",") Q:$E(RTN,1,$L(%))=% S %1=$P(%1,",",2,99) ;RTN must begins with %1, instead of contains ;p151
  1. . Q
  1. I ERR=17,$E(RTN)'="%",$E(LAB)="%" Q ;Don't flag %RTN w/o %.
  1. ;Global is Error Line,tab,error tag,tab,error text
  1. S %=$G(^UTILITY($J,1,RTN,"E",0))+1,^(0)=%,^(%)=TXT_$C(9)_ERTX
  1. Q
  1. ;p149 change error 65 from S to W
  1. ;p153 add error 66 - ICR reference
  1. ;F = Fatal, S = Standard, W = Warning, I = Info
  1. ;;exclude rtn;error text
  1. ERROR ;
  1. 1 ;;;F - UNDEFINED COMMAND (rest of line not checked).
  1. 2 ;;X,Z,DI,DD,KMP;F - Non-standard (Undefined) 'Z' command.
  1. 3 ;;X,Z,DI,DD,KMP;F - Undefined Function.
  1. 4 ;;;F - Undefined Special Variable.
  1. 5 ;;;F - Unmatched Parenthesis.
  1. 6 ;;;F - Unmatched Quotation Marks.
  1. 7 ;;;F - ELSE Command followed by only one space.
  1. 8 ;;;F - FOR Command did not contain '='.
  1. 9 ;;;I - QUIT Command followed by only one space.
  1. 10 ;;;F - Unrecognized argument in SET command.
  1. 11 ;;;W - Invalid local variable name.
  1. 12 ;;;W - Invalid global variable name.
  1. 13 ;;;W - Blank(s) at end of line.
  1. 14 ;;;F - Call to missing label '|' in this routine.
  1. 15 ;;;W - Duplicate label. (M57)
  1. 16 ;;;F - Error in pattern code.
  1. 17 ;;Z;W - First line label NOT routine name.
  1. 18 ;;;W - Line contains a CONTROL (non-graphic) character.
  1. 19 ;;;S - Line is longer than 245 bytes.
  1. 20 ;;X,Z,DI,DD,KMP;S - View command used.
  1. 21 ;;;F - General Syntax Error.
  1. 22 ;;X,Z,DI,DD,KMP;S - Exclusive Kill.
  1. 23 ;;X,Z,DI,DD,KMP;S - Unargumented Kill.
  1. 24 ;;;S - Kill of an unsubscripted global.
  1. 25 ;;;S - Break command used.
  1. 26 ;;X,Z,DI,DD,KMP;S - Exclusive or Unargumented NEW command.
  1. 27 ;;X,Z,DI,DD,KMP;S - $View function used.
  1. 28 ;;X,Z,DI,DD,KMP;S - Non-standard $Z special variable used.
  1. 29 ;;X,Z,DI,DD,KMP;S - 'Close' command should be invoked through 'D ^%ZISC'.
  1. 30 ;;;S - LABEL+OFFSET syntax.
  1. 31 ;;X,Z,DI,DD,KMP;S - Non-standard $Z function used.
  1. 32 ;;X,Z,DI,DD,KMP;S - 'HALT' command should be invoked through 'G ^XUSCLEAN'.
  1. 33 ;;X,Z,DI,DD,KMP;S - Read command doesn't have a timeout.
  1. 34 ;;X,Z,DI,DD,KMP;S - 'OPEN' command should be invoked through ^%ZIS.
  1. 35 ;;;S - Routine exceeds SACC maximum size of 20000 (|).
  1. 36 ;;X,Z,DI,DD,KMP;S - Should use 'TASKMAN' instead of 'JOB' command.
  1. 37 ;;;F - Label is not valid.
  1. 38 ;;;F - Call to this |
  1. 39 ;;X,Z,DI;S - Kill of a protected variable (|).
  1. 40 ;;;S - Space where a command should be.
  1. 41 ;;X,Z,DI,DD,KMP;I - Star or pound READ used.
  1. 42 ;;;W - Null line (no commands or comment).
  1. 43 ;;;F - Invalid or wrong number of arguments to a function.
  1. 44 ;;;S - 2nd line of routine violates the SAC.
  1. 45 ;;X,Z,DI,DD,KMP;S - Set to a '%' global.
  1. 46 ;;;F - Quoted string not followed by a separator.
  1. 47 ;;;S - Lowercase command(s) used in line.
  1. 48 ;;;F - Missing argument to a command post-conditional.
  1. 49 ;;;F - Command missing an argument.
  1. 50 ;;Z;S - Extended reference.
  1. 51 ;;;F - Block structure mismatch.
  1. 52 ;;;F - Reference to routine '^|'. That isn't in this UCI.
  1. 53 ;;;F - Bad Number.
  1. 54 ;;X,Z,DI,DD,KMP;S - Access to SSVN's or $SYSTEM restricted to Kernel.
  1. 55 ;;;S - Violates VA programming standards.
  1. 56 ;;;S - Patch number '|' missing from second line.
  1. 57 ;;;S - Lower/Mixed case Variable name used.
  1. 58 ;;;S - Routine code exceeds SACC maximum size of 15000 (|).
  1. 59 ;;;F - Bad WRITE syntax.
  1. 60 ;;X,Z,DI,DD,KMP;S - Lock missing Timeout.
  1. 61 ;;X,Z,DI,DD,KMP;S - Non-Incremental Lock.
  1. 62 ;;;S - First line of routine violates the SAC.
  1. 63 ;;;F - GO or DO mismatch from block structure (M45).
  1. 64 ;;;F - Cache Object doesn't exist.
  1. 65 ;;X,Z,DI,DD,KMP;W - Vendor specific code is restricted.]
  1. 66 ;;;S - Incorrect format for ICR Reference