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

DINIT008.m

Go to the documentation of this file. 
  1. DINIT008 ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 3/30/99  10:41:48
  1.  ;;22.0;VA FileMan;;Mar 30, 1999
  1.  ;Per VHA Directive 10-93-142, this routine should not be modified.
  1.  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
  1. Q Q
  1.  ;;^UTILITY(U,$J,.84,501,1,1,0)
  1.  ;;=A search of the data dictionary reveals that the field name or number
  1.  ;;^UTILITY(U,$J,.84,501,1,2,0)
  1.  ;;=passed does not exist in the specified file.
  1.  ;;^UTILITY(U,$J,.84,501,2,0)
  1.  ;;=^^1^1^2940214^^
  1.  ;;^UTILITY(U,$J,.84,501,2,1,0)
  1.  ;;=File #|FILE| does not contain a field |1|.
  1.  ;;^UTILITY(U,$J,.84,501,3,0)
  1.  ;;=^.845^3^3
  1.  ;;^UTILITY(U,$J,.84,501,3,1,0)
  1.  ;;=1^Field name or number.
  1.  ;;^UTILITY(U,$J,.84,501,3,2,0)
  1.  ;;=FILE^File number.
  1.  ;;^UTILITY(U,$J,.84,501,3,3,0)
  1.  ;;=FIELD^Field number.
  1.  ;;^UTILITY(U,$J,.84,502,0)
  1.  ;;=502^1^y^5
  1.  ;;^UTILITY(U,$J,.84,502,1,0)
  1.  ;;=^^3^3^2940715^
  1.  ;;^UTILITY(U,$J,.84,502,1,1,0)
  1.  ;;=The field has been identified, but some key part of its definition is
  1.  ;;^UTILITY(U,$J,.84,502,1,2,0)
  1.  ;;=missing or corrupted. ^DD(file#,field#,0) may not be defined. Some key
  1.  ;;^UTILITY(U,$J,.84,502,1,3,0)
  1.  ;;=piece of that node may be missing.
  1.  ;;^UTILITY(U,$J,.84,502,2,0)
  1.  ;;=^^1^1^2940715^
  1.  ;;^UTILITY(U,$J,.84,502,2,1,0)
  1.  ;;=Field# |FIELD| in file# |FILE| has a corrupted definition.
  1.  ;;^UTILITY(U,$J,.84,502,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,502,3,1,0)
  1.  ;;=FILE^File #.
  1.  ;;^UTILITY(U,$J,.84,502,3,2,0)
  1.  ;;=FIELD^Field #.
  1.  ;;^UTILITY(U,$J,.84,505,0)
  1.  ;;=505^1^y^5
  1.  ;;^UTILITY(U,$J,.84,505,1,0)
  1.  ;;=^^2^2^2931110^^
  1.  ;;^UTILITY(U,$J,.84,505,1,1,0)
  1.  ;;=The field name passed is ambiguous.  It cannot be determined to which field
  1.  ;;^UTILITY(U,$J,.84,505,1,2,0)
  1.  ;;=in the file it refers.
  1.  ;;^UTILITY(U,$J,.84,505,2,0)
  1.  ;;=^^1^1^2931116^^
  1.  ;;^UTILITY(U,$J,.84,505,2,1,0)
  1.  ;;=There is more than one field named '|1|' in File #|FILE|.
  1.  ;;^UTILITY(U,$J,.84,505,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,505,3,1,0)
  1.  ;;=1^Field name.
  1.  ;;^UTILITY(U,$J,.84,505,3,2,0)
  1.  ;;=FILE^File #.
  1.  ;;^UTILITY(U,$J,.84,510,0)
  1.  ;;=510^1^y^5
  1.  ;;^UTILITY(U,$J,.84,510,1,0)
  1.  ;;=^^2^2^2940214^^^^
  1.  ;;^UTILITY(U,$J,.84,510,1,1,0)
  1.  ;;=For some reason, the data type for the specified field cannot be determined.
  1.  ;;^UTILITY(U,$J,.84,510,1,2,0)
  1.  ;;=This may mean that the data dictionary is corrupted.
  1.  ;;^UTILITY(U,$J,.84,510,2,0)
  1.  ;;=^^1^1^2940214^^
  1.  ;;^UTILITY(U,$J,.84,510,2,1,0)
  1.  ;;=The data type for Field #|FIELD| in File #|FILE| cannot be determined.
  1.  ;;^UTILITY(U,$J,.84,510,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,510,3,1,0)
  1.  ;;=FIELD^Field number.
  1.  ;;^UTILITY(U,$J,.84,510,3,2,0)
  1.  ;;=FILE^File number.
  1.  ;;^UTILITY(U,$J,.84,520,0)
  1.  ;;=520^1^y^5
  1.  ;;^UTILITY(U,$J,.84,520,1,0)
  1.  ;;=^^3^3^2931110^^
  1.  ;;^UTILITY(U,$J,.84,520,1,1,0)
  1.  ;;=An incorrect kind of field is being processed.  For example, filing is 
  1.  ;;^UTILITY(U,$J,.84,520,1,2,0)
  1.  ;;=being attempted for a computed field or validation for a word
  1.  ;;^UTILITY(U,$J,.84,520,1,3,0)
  1.  ;;=processing field.
  1.  ;;^UTILITY(U,$J,.84,520,2,0)
  1.  ;;=^^1^1^2931110^^
  1.  ;;^UTILITY(U,$J,.84,520,2,1,0)
  1.  ;;=A |1| field cannot be processed by this utility.
  1.  ;;^UTILITY(U,$J,.84,520,3,0)
  1.  ;;=^.845^3^3
  1.  ;;^UTILITY(U,$J,.84,520,3,1,0)
  1.  ;;=1^Data type or other field characteristic (e.g., .001, DINUMed).
  1.  ;;^UTILITY(U,$J,.84,520,3,2,0)
  1.  ;;=FILE^File #.
  1.  ;;^UTILITY(U,$J,.84,520,3,3,0)
  1.  ;;=FIELD^Field #.
  1.  ;;^UTILITY(U,$J,.84,520,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,520,5,1,0)
  1.  ;;=DIE^FILE
  1.  ;;^UTILITY(U,$J,.84,525,0)
  1.  ;;=525^1^y
  1.  ;;^UTILITY(U,$J,.84,525,1,0)
  1.  ;;=^^2^2^2950317^
  1.  ;;^UTILITY(U,$J,.84,525,1,1,0)
  1.  ;;=It is indicated that a subfile is involved (for example, by choosing a
  1.  ;;^UTILITY(U,$J,.84,525,1,2,0)
  1.  ;;=multiple field's field number), but no fields from the subfile are chosen.
  1.  ;;^UTILITY(U,$J,.84,525,2,0)
  1.  ;;=^^1^1^2950317^
  1.  ;;^UTILITY(U,$J,.84,525,2,1,0)
  1.  ;;=No fields are specified for subfile #|FILE|.
  1.  ;;^UTILITY(U,$J,.84,525,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,525,3,1,0)
  1.  ;;=FILE^Subfile #.
  1.  ;;^UTILITY(U,$J,.84,537,0)
  1.  ;;=537^1^y^5
  1.  ;;^UTILITY(U,$J,.84,537,1,0)
  1.  ;;=^^7^7^2940213^
  1.  ;;^UTILITY(U,$J,.84,537,1,1,0)
  1.  ;;=This error means that a certain field in a certain file has a data type of
  1.  ;;^UTILITY(U,$J,.84,537,1,2,0)
  1.  ;;=pointer, but something is wrong with the rest of the DD info needed to
  1.  ;;^UTILITY(U,$J,.84,537,1,3,0)
  1.  ;;=make that pointer work. For example, perhaps the number of the pointed to
  1.  ;;^UTILITY(U,$J,.84,537,1,4,0)
  1.  ;;=file, which should follow the P in the second ^-piece of the field
  1.  ;;^UTILITY(U,$J,.84,537,1,5,0)
  1.  ;;=descriptor node, is missing. Another problem would be if the global root
  1.  ;;^UTILITY(U,$J,.84,537,1,6,0)
  1.  ;;=of the pointed to file were missing from the field's definition; that
  1.  ;;^UTILITY(U,$J,.84,537,1,7,0)
  1.  ;;=should be found in the third ^-piece of the field descriptor.
  1.  ;;^UTILITY(U,$J,.84,537,2,0)
  1.  ;;=^^1^1^2940213^
  1.  ;;^UTILITY(U,$J,.84,537,2,1,0)
  1.  ;;=Field #|FIELD| in File #|FILE| has a corrupted pointer definition.
  1.  ;;^UTILITY(U,$J,.84,537,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,537,3,1,0)
  1.  ;;=FILE^File #.
  1.  ;;^UTILITY(U,$J,.84,537,3,2,0)
  1.  ;;=FIELD^Field #.
  1.  ;;^UTILITY(U,$J,.84,601,0)
  1.  ;;=601^1^^5
  1.  ;;^UTILITY(U,$J,.84,601,1,0)
  1.  ;;=^^1^1^2940426^
  1.  ;;^UTILITY(U,$J,.84,601,1,1,0)
  1.  ;;=The entry identified by FILE and IENS does not exist in the database.
  1.  ;;^UTILITY(U,$J,.84,601,2,0)
  1.  ;;=^^1^1^2940426^^
  1.  ;;^UTILITY(U,$J,.84,601,2,1,0)
  1.  ;;=The entry does not exist.
  1.  ;;^UTILITY(U,$J,.84,601,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,601,3,1,0)
  1.  ;;=FILE^File or subfile #. (external only)
  1.  ;;^UTILITY(U,$J,.84,601,3,2,0)
  1.  ;;=IENS^IEN string (external only)
  1.  ;;^UTILITY(U,$J,.84,602,0)
  1.  ;;=602^1^^5
  1.  ;;^UTILITY(U,$J,.84,602,1,0)
  1.  ;;=^^1^1^2931109^
  1.  ;;^UTILITY(U,$J,.84,602,1,1,0)
  1.  ;;=There is a -9 node for the entry; therefore, the entry cannot be accessed.
  1.  ;;^UTILITY(U,$J,.84,602,2,0)
  1.  ;;=^^1^1^2931109^
  1.  ;;^UTILITY(U,$J,.84,602,2,1,0)
  1.  ;;=The entry is not available for editing.
  1.  ;;^UTILITY(U,$J,.84,602,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,602,3,1,0)
  1.  ;;=FILE^File or subfile #. (external only)
  1.  ;;^UTILITY(U,$J,.84,602,3,2,0)
  1.  ;;=IENS^IEN string. (external only)
  1.  ;;^UTILITY(U,$J,.84,603,0)
  1.  ;;=603^1^y^5
  1.  ;;^UTILITY(U,$J,.84,603,1,0)
  1.  ;;=^^2^2^2940214^
  1.  ;;^UTILITY(U,$J,.84,603,1,1,0)
  1.  ;;=A specific entry in a specific file lacks a value for a required field.
  1.  ;;^UTILITY(U,$J,.84,603,1,2,0)
  1.  ;;=This error message returns which field is missing.
  1.  ;;^UTILITY(U,$J,.84,603,2,0)
  1.  ;;=^^1^1^2940214^
  1.  ;;^UTILITY(U,$J,.84,603,2,1,0)
  1.  ;;=Entry #|1| in File #|FILE| lacks the required Field #|FIELD|.
  1.  ;;^UTILITY(U,$J,.84,603,3,0)
  1.  ;;=^.845^3^3
  1.  ;;^UTILITY(U,$J,.84,603,3,1,0)
  1.  ;;=1^Entry #.
  1.  ;;^UTILITY(U,$J,.84,603,3,2,0)
  1.  ;;=FILE^File #.
  1.  ;;^UTILITY(U,$J,.84,603,3,3,0)
  1.  ;;=FIELD^Field #.