DINIT008 ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;3/30/99 10:41:48
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
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
Q Q
;;^UTILITY(U,$J,.84,501,1,1,0)
;;=A search of the data dictionary reveals that the field name or number
;;^UTILITY(U,$J,.84,501,1,2,0)
;;=passed does not exist in the specified file.
;;^UTILITY(U,$J,.84,501,2,0)
;;=^^1^1^2940214^^
;;^UTILITY(U,$J,.84,501,2,1,0)
;;=File #|FILE| does not contain a field |1|.
;;^UTILITY(U,$J,.84,501,3,0)
;;=^.845^3^3
;;^UTILITY(U,$J,.84,501,3,1,0)
;;=1^Field name or number.
;;^UTILITY(U,$J,.84,501,3,2,0)
;;=FILE^File number.
;;^UTILITY(U,$J,.84,501,3,3,0)
;;=FIELD^Field number.
;;^UTILITY(U,$J,.84,502,0)
;;=502^1^y^5
;;^UTILITY(U,$J,.84,502,1,0)
;;=^^3^3^2940715^
;;^UTILITY(U,$J,.84,502,1,1,0)
;;=The field has been identified, but some key part of its definition is
;;^UTILITY(U,$J,.84,502,1,2,0)
;;=missing or corrupted. ^DD(file#,field#,0) may not be defined. Some key
;;^UTILITY(U,$J,.84,502,1,3,0)
;;=piece of that node may be missing.
;;^UTILITY(U,$J,.84,502,2,0)
;;=^^1^1^2940715^
;;^UTILITY(U,$J,.84,502,2,1,0)
;;=Field# |FIELD| in file# |FILE| has a corrupted definition.
;;^UTILITY(U,$J,.84,502,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,502,3,1,0)
;;=FILE^File #.
;;^UTILITY(U,$J,.84,502,3,2,0)
;;=FIELD^Field #.
;;^UTILITY(U,$J,.84,505,0)
;;=505^1^y^5
;;^UTILITY(U,$J,.84,505,1,0)
;;=^^2^2^2931110^^
;;^UTILITY(U,$J,.84,505,1,1,0)
;;=The field name passed is ambiguous. It cannot be determined to which field
;;^UTILITY(U,$J,.84,505,1,2,0)
;;=in the file it refers.
;;^UTILITY(U,$J,.84,505,2,0)
;;=^^1^1^2931116^^
;;^UTILITY(U,$J,.84,505,2,1,0)
;;=There is more than one field named '|1|' in File #|FILE|.
;;^UTILITY(U,$J,.84,505,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,505,3,1,0)
;;=1^Field name.
;;^UTILITY(U,$J,.84,505,3,2,0)
;;=FILE^File #.
;;^UTILITY(U,$J,.84,510,0)
;;=510^1^y^5
;;^UTILITY(U,$J,.84,510,1,0)
;;=^^2^2^2940214^^^^
;;^UTILITY(U,$J,.84,510,1,1,0)
;;=For some reason, the data type for the specified field cannot be determined.
;;^UTILITY(U,$J,.84,510,1,2,0)
;;=This may mean that the data dictionary is corrupted.
;;^UTILITY(U,$J,.84,510,2,0)
;;=^^1^1^2940214^^
;;^UTILITY(U,$J,.84,510,2,1,0)
;;=The data type for Field #|FIELD| in File #|FILE| cannot be determined.
;;^UTILITY(U,$J,.84,510,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,510,3,1,0)
;;=FIELD^Field number.
;;^UTILITY(U,$J,.84,510,3,2,0)
;;=FILE^File number.
;;^UTILITY(U,$J,.84,520,0)
;;=520^1^y^5
;;^UTILITY(U,$J,.84,520,1,0)
;;=^^3^3^2931110^^
;;^UTILITY(U,$J,.84,520,1,1,0)
;;=An incorrect kind of field is being processed. For example, filing is
;;^UTILITY(U,$J,.84,520,1,2,0)
;;=being attempted for a computed field or validation for a word
;;^UTILITY(U,$J,.84,520,1,3,0)
;;=processing field.
;;^UTILITY(U,$J,.84,520,2,0)
;;=^^1^1^2931110^^
;;^UTILITY(U,$J,.84,520,2,1,0)
;;=A |1| field cannot be processed by this utility.
;;^UTILITY(U,$J,.84,520,3,0)
;;=^.845^3^3
;;^UTILITY(U,$J,.84,520,3,1,0)
;;=1^Data type or other field characteristic (e.g., .001, DINUMed).
;;^UTILITY(U,$J,.84,520,3,2,0)
;;=FILE^File #.
;;^UTILITY(U,$J,.84,520,3,3,0)
;;=FIELD^Field #.
;;^UTILITY(U,$J,.84,520,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,520,5,1,0)
;;=DIE^FILE
;;^UTILITY(U,$J,.84,525,0)
;;=525^1^y
;;^UTILITY(U,$J,.84,525,1,0)
;;=^^2^2^2950317^
;;^UTILITY(U,$J,.84,525,1,1,0)
;;=It is indicated that a subfile is involved (for example, by choosing a
;;^UTILITY(U,$J,.84,525,1,2,0)
;;=multiple field's field number), but no fields from the subfile are chosen.
;;^UTILITY(U,$J,.84,525,2,0)
;;=^^1^1^2950317^
;;^UTILITY(U,$J,.84,525,2,1,0)
;;=No fields are specified for subfile #|FILE|.
;;^UTILITY(U,$J,.84,525,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,525,3,1,0)
;;=FILE^Subfile #.
;;^UTILITY(U,$J,.84,537,0)
;;=537^1^y^5
;;^UTILITY(U,$J,.84,537,1,0)
;;=^^7^7^2940213^
;;^UTILITY(U,$J,.84,537,1,1,0)
;;=This error means that a certain field in a certain file has a data type of
;;^UTILITY(U,$J,.84,537,1,2,0)
;;=pointer, but something is wrong with the rest of the DD info needed to
;;^UTILITY(U,$J,.84,537,1,3,0)
;;=make that pointer work. For example, perhaps the number of the pointed to
;;^UTILITY(U,$J,.84,537,1,4,0)
;;=file, which should follow the P in the second ^-piece of the field
;;^UTILITY(U,$J,.84,537,1,5,0)
;;=descriptor node, is missing. Another problem would be if the global root
;;^UTILITY(U,$J,.84,537,1,6,0)
;;=of the pointed to file were missing from the field's definition; that
;;^UTILITY(U,$J,.84,537,1,7,0)
;;=should be found in the third ^-piece of the field descriptor.
;;^UTILITY(U,$J,.84,537,2,0)
;;=^^1^1^2940213^
;;^UTILITY(U,$J,.84,537,2,1,0)
;;=Field #|FIELD| in File #|FILE| has a corrupted pointer definition.
;;^UTILITY(U,$J,.84,537,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,537,3,1,0)
;;=FILE^File #.
;;^UTILITY(U,$J,.84,537,3,2,0)
;;=FIELD^Field #.
;;^UTILITY(U,$J,.84,601,0)
;;=601^1^^5
;;^UTILITY(U,$J,.84,601,1,0)
;;=^^1^1^2940426^
;;^UTILITY(U,$J,.84,601,1,1,0)
;;=The entry identified by FILE and IENS does not exist in the database.
;;^UTILITY(U,$J,.84,601,2,0)
;;=^^1^1^2940426^^
;;^UTILITY(U,$J,.84,601,2,1,0)
;;=The entry does not exist.
;;^UTILITY(U,$J,.84,601,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,601,3,1,0)
;;=FILE^File or subfile #. (external only)
;;^UTILITY(U,$J,.84,601,3,2,0)
;;=IENS^IEN string (external only)
;;^UTILITY(U,$J,.84,602,0)
;;=602^1^^5
;;^UTILITY(U,$J,.84,602,1,0)
;;=^^1^1^2931109^
;;^UTILITY(U,$J,.84,602,1,1,0)
;;=There is a -9 node for the entry; therefore, the entry cannot be accessed.
;;^UTILITY(U,$J,.84,602,2,0)
;;=^^1^1^2931109^
;;^UTILITY(U,$J,.84,602,2,1,0)
;;=The entry is not available for editing.
;;^UTILITY(U,$J,.84,602,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,602,3,1,0)
;;=FILE^File or subfile #. (external only)
;;^UTILITY(U,$J,.84,602,3,2,0)
;;=IENS^IEN string. (external only)
;;^UTILITY(U,$J,.84,603,0)
;;=603^1^y^5
;;^UTILITY(U,$J,.84,603,1,0)
;;=^^2^2^2940214^
;;^UTILITY(U,$J,.84,603,1,1,0)
;;=A specific entry in a specific file lacks a value for a required field.
;;^UTILITY(U,$J,.84,603,1,2,0)
;;=This error message returns which field is missing.
;;^UTILITY(U,$J,.84,603,2,0)
;;=^^1^1^2940214^
;;^UTILITY(U,$J,.84,603,2,1,0)
;;=Entry #|1| in File #|FILE| lacks the required Field #|FIELD|.
;;^UTILITY(U,$J,.84,603,3,0)
;;=^.845^3^3
;;^UTILITY(U,$J,.84,603,3,1,0)
;;=1^Entry #.
;;^UTILITY(U,$J,.84,603,3,2,0)
;;=FILE^File #.
;;^UTILITY(U,$J,.84,603,3,3,0)
;;=FIELD^Field #.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT008 7199 printed Sep 23, 2025@20:25:43 Page 2
DINIT008 ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;3/30/99 10:41:48
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,.84,501,1,1,0)
+2 ;;=A search of the data dictionary reveals that the field name or number
+3 ;;^UTILITY(U,$J,.84,501,1,2,0)
+4 ;;=passed does not exist in the specified file.
+5 ;;^UTILITY(U,$J,.84,501,2,0)
+6 ;;=^^1^1^2940214^^
+7 ;;^UTILITY(U,$J,.84,501,2,1,0)
+8 ;;=File #|FILE| does not contain a field |1|.
+9 ;;^UTILITY(U,$J,.84,501,3,0)
+10 ;;=^.845^3^3
+11 ;;^UTILITY(U,$J,.84,501,3,1,0)
+12 ;;=1^Field name or number.
+13 ;;^UTILITY(U,$J,.84,501,3,2,0)
+14 ;;=FILE^File number.
+15 ;;^UTILITY(U,$J,.84,501,3,3,0)
+16 ;;=FIELD^Field number.
+17 ;;^UTILITY(U,$J,.84,502,0)
+18 ;;=502^1^y^5
+19 ;;^UTILITY(U,$J,.84,502,1,0)
+20 ;;=^^3^3^2940715^
+21 ;;^UTILITY(U,$J,.84,502,1,1,0)
+22 ;;=The field has been identified, but some key part of its definition is
+23 ;;^UTILITY(U,$J,.84,502,1,2,0)
+24 ;;=missing or corrupted. ^DD(file#,field#,0) may not be defined. Some key
+25 ;;^UTILITY(U,$J,.84,502,1,3,0)
+26 ;;=piece of that node may be missing.
+27 ;;^UTILITY(U,$J,.84,502,2,0)
+28 ;;=^^1^1^2940715^
+29 ;;^UTILITY(U,$J,.84,502,2,1,0)
+30 ;;=Field# |FIELD| in file# |FILE| has a corrupted definition.
+31 ;;^UTILITY(U,$J,.84,502,3,0)
+32 ;;=^.845^2^2
+33 ;;^UTILITY(U,$J,.84,502,3,1,0)
+34 ;;=FILE^File #.
+35 ;;^UTILITY(U,$J,.84,502,3,2,0)
+36 ;;=FIELD^Field #.
+37 ;;^UTILITY(U,$J,.84,505,0)
+38 ;;=505^1^y^5
+39 ;;^UTILITY(U,$J,.84,505,1,0)
+40 ;;=^^2^2^2931110^^
+41 ;;^UTILITY(U,$J,.84,505,1,1,0)
+42 ;;=The field name passed is ambiguous. It cannot be determined to which field
+43 ;;^UTILITY(U,$J,.84,505,1,2,0)
+44 ;;=in the file it refers.
+45 ;;^UTILITY(U,$J,.84,505,2,0)
+46 ;;=^^1^1^2931116^^
+47 ;;^UTILITY(U,$J,.84,505,2,1,0)
+48 ;;=There is more than one field named '|1|' in File #|FILE|.
+49 ;;^UTILITY(U,$J,.84,505,3,0)
+50 ;;=^.845^2^2
+51 ;;^UTILITY(U,$J,.84,505,3,1,0)
+52 ;;=1^Field name.
+53 ;;^UTILITY(U,$J,.84,505,3,2,0)
+54 ;;=FILE^File #.
+55 ;;^UTILITY(U,$J,.84,510,0)
+56 ;;=510^1^y^5
+57 ;;^UTILITY(U,$J,.84,510,1,0)
+58 ;;=^^2^2^2940214^^^^
+59 ;;^UTILITY(U,$J,.84,510,1,1,0)
+60 ;;=For some reason, the data type for the specified field cannot be determined.
+61 ;;^UTILITY(U,$J,.84,510,1,2,0)
+62 ;;=This may mean that the data dictionary is corrupted.
+63 ;;^UTILITY(U,$J,.84,510,2,0)
+64 ;;=^^1^1^2940214^^
+65 ;;^UTILITY(U,$J,.84,510,2,1,0)
+66 ;;=The data type for Field #|FIELD| in File #|FILE| cannot be determined.
+67 ;;^UTILITY(U,$J,.84,510,3,0)
+68 ;;=^.845^2^2
+69 ;;^UTILITY(U,$J,.84,510,3,1,0)
+70 ;;=FIELD^Field number.
+71 ;;^UTILITY(U,$J,.84,510,3,2,0)
+72 ;;=FILE^File number.
+73 ;;^UTILITY(U,$J,.84,520,0)
+74 ;;=520^1^y^5
+75 ;;^UTILITY(U,$J,.84,520,1,0)
+76 ;;=^^3^3^2931110^^
+77 ;;^UTILITY(U,$J,.84,520,1,1,0)
+78 ;;=An incorrect kind of field is being processed. For example, filing is
+79 ;;^UTILITY(U,$J,.84,520,1,2,0)
+80 ;;=being attempted for a computed field or validation for a word
+81 ;;^UTILITY(U,$J,.84,520,1,3,0)
+82 ;;=processing field.
+83 ;;^UTILITY(U,$J,.84,520,2,0)
+84 ;;=^^1^1^2931110^^
+85 ;;^UTILITY(U,$J,.84,520,2,1,0)
+86 ;;=A |1| field cannot be processed by this utility.
+87 ;;^UTILITY(U,$J,.84,520,3,0)
+88 ;;=^.845^3^3
+89 ;;^UTILITY(U,$J,.84,520,3,1,0)
+90 ;;=1^Data type or other field characteristic (e.g., .001, DINUMed).
+91 ;;^UTILITY(U,$J,.84,520,3,2,0)
+92 ;;=FILE^File #.
+93 ;;^UTILITY(U,$J,.84,520,3,3,0)
+94 ;;=FIELD^Field #.
+95 ;;^UTILITY(U,$J,.84,520,5,0)
+96 ;;=^.841^1^1
+97 ;;^UTILITY(U,$J,.84,520,5,1,0)
+98 ;;=DIE^FILE
+99 ;;^UTILITY(U,$J,.84,525,0)
+100 ;;=525^1^y
+101 ;;^UTILITY(U,$J,.84,525,1,0)
+102 ;;=^^2^2^2950317^
+103 ;;^UTILITY(U,$J,.84,525,1,1,0)
+104 ;;=It is indicated that a subfile is involved (for example, by choosing a
+105 ;;^UTILITY(U,$J,.84,525,1,2,0)
+106 ;;=multiple field's field number), but no fields from the subfile are chosen.
+107 ;;^UTILITY(U,$J,.84,525,2,0)
+108 ;;=^^1^1^2950317^
+109 ;;^UTILITY(U,$J,.84,525,2,1,0)
+110 ;;=No fields are specified for subfile #|FILE|.
+111 ;;^UTILITY(U,$J,.84,525,3,0)
+112 ;;=^.845^1^1
+113 ;;^UTILITY(U,$J,.84,525,3,1,0)
+114 ;;=FILE^Subfile #.
+115 ;;^UTILITY(U,$J,.84,537,0)
+116 ;;=537^1^y^5
+117 ;;^UTILITY(U,$J,.84,537,1,0)
+118 ;;=^^7^7^2940213^
+119 ;;^UTILITY(U,$J,.84,537,1,1,0)
+120 ;;=This error means that a certain field in a certain file has a data type of
+121 ;;^UTILITY(U,$J,.84,537,1,2,0)
+122 ;;=pointer, but something is wrong with the rest of the DD info needed to
+123 ;;^UTILITY(U,$J,.84,537,1,3,0)
+124 ;;=make that pointer work. For example, perhaps the number of the pointed to
+125 ;;^UTILITY(U,$J,.84,537,1,4,0)
+126 ;;=file, which should follow the P in the second ^-piece of the field
+127 ;;^UTILITY(U,$J,.84,537,1,5,0)
+128 ;;=descriptor node, is missing. Another problem would be if the global root
+129 ;;^UTILITY(U,$J,.84,537,1,6,0)
+130 ;;=of the pointed to file were missing from the field's definition; that
+131 ;;^UTILITY(U,$J,.84,537,1,7,0)
+132 ;;=should be found in the third ^-piece of the field descriptor.
+133 ;;^UTILITY(U,$J,.84,537,2,0)
+134 ;;=^^1^1^2940213^
+135 ;;^UTILITY(U,$J,.84,537,2,1,0)
+136 ;;=Field #|FIELD| in File #|FILE| has a corrupted pointer definition.
+137 ;;^UTILITY(U,$J,.84,537,3,0)
+138 ;;=^.845^2^2
+139 ;;^UTILITY(U,$J,.84,537,3,1,0)
+140 ;;=FILE^File #.
+141 ;;^UTILITY(U,$J,.84,537,3,2,0)
+142 ;;=FIELD^Field #.
+143 ;;^UTILITY(U,$J,.84,601,0)
+144 ;;=601^1^^5
+145 ;;^UTILITY(U,$J,.84,601,1,0)
+146 ;;=^^1^1^2940426^
+147 ;;^UTILITY(U,$J,.84,601,1,1,0)
+148 ;;=The entry identified by FILE and IENS does not exist in the database.
+149 ;;^UTILITY(U,$J,.84,601,2,0)
+150 ;;=^^1^1^2940426^^
+151 ;;^UTILITY(U,$J,.84,601,2,1,0)
+152 ;;=The entry does not exist.
+153 ;;^UTILITY(U,$J,.84,601,3,0)
+154 ;;=^.845^2^2
+155 ;;^UTILITY(U,$J,.84,601,3,1,0)
+156 ;;=FILE^File or subfile #. (external only)
+157 ;;^UTILITY(U,$J,.84,601,3,2,0)
+158 ;;=IENS^IEN string (external only)
+159 ;;^UTILITY(U,$J,.84,602,0)
+160 ;;=602^1^^5
+161 ;;^UTILITY(U,$J,.84,602,1,0)
+162 ;;=^^1^1^2931109^
+163 ;;^UTILITY(U,$J,.84,602,1,1,0)
+164 ;;=There is a -9 node for the entry; therefore, the entry cannot be accessed.
+165 ;;^UTILITY(U,$J,.84,602,2,0)
+166 ;;=^^1^1^2931109^
+167 ;;^UTILITY(U,$J,.84,602,2,1,0)
+168 ;;=The entry is not available for editing.
+169 ;;^UTILITY(U,$J,.84,602,3,0)
+170 ;;=^.845^2^2
+171 ;;^UTILITY(U,$J,.84,602,3,1,0)
+172 ;;=FILE^File or subfile #. (external only)
+173 ;;^UTILITY(U,$J,.84,602,3,2,0)
+174 ;;=IENS^IEN string. (external only)
+175 ;;^UTILITY(U,$J,.84,603,0)
+176 ;;=603^1^y^5
+177 ;;^UTILITY(U,$J,.84,603,1,0)
+178 ;;=^^2^2^2940214^
+179 ;;^UTILITY(U,$J,.84,603,1,1,0)
+180 ;;=A specific entry in a specific file lacks a value for a required field.
+181 ;;^UTILITY(U,$J,.84,603,1,2,0)
+182 ;;=This error message returns which field is missing.
+183 ;;^UTILITY(U,$J,.84,603,2,0)
+184 ;;=^^1^1^2940214^
+185 ;;^UTILITY(U,$J,.84,603,2,1,0)
+186 ;;=Entry #|1| in File #|FILE| lacks the required Field #|FIELD|.
+187 ;;^UTILITY(U,$J,.84,603,3,0)
+188 ;;=^.845^3^3
+189 ;;^UTILITY(U,$J,.84,603,3,1,0)
+190 ;;=1^Entry #.
+191 ;;^UTILITY(U,$J,.84,603,3,2,0)
+192 ;;=FILE^File #.
+193 ;;^UTILITY(U,$J,.84,603,3,3,0)
+194 ;;=FIELD^Field #.
