| [613] | 1 | DINIT007 ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 3/30/99 10:41:48
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | 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
|
|---|
| 5 | Q Q
|
|---|
| 6 | ;;^UTILITY(U,$J,.84,352,3,0)
|
|---|
| 7 | ;;=^.845^2^2
|
|---|
| 8 | ;;^UTILITY(U,$J,.84,352,3,1,0)
|
|---|
| 9 | ;;=FILE^File number.
|
|---|
| 10 | ;;^UTILITY(U,$J,.84,352,3,2,0)
|
|---|
| 11 | ;;=IENS^IENS subscript for LAYGO or LAYGO Finding node.
|
|---|
| 12 | ;;^UTILITY(U,$J,.84,401,0)
|
|---|
| 13 | ;;=401^1^y^5
|
|---|
| 14 | ;;^UTILITY(U,$J,.84,401,1,0)
|
|---|
| 15 | ;;=^^2^2^2990218^^^^
|
|---|
| 16 | ;;^UTILITY(U,$J,.84,401,1,1,0)
|
|---|
| 17 | ;;=The specified file or subfile does not exist; it is not present in the
|
|---|
| 18 | ;;^UTILITY(U,$J,.84,401,1,2,0)
|
|---|
| 19 | ;;=data dictionary.
|
|---|
| 20 | ;;^UTILITY(U,$J,.84,401,2,0)
|
|---|
| 21 | ;;=^^1^1^2990218^^^^
|
|---|
| 22 | ;;^UTILITY(U,$J,.84,401,2,1,0)
|
|---|
| 23 | ;;=File #|FILE| does not exist.
|
|---|
| 24 | ;;^UTILITY(U,$J,.84,401,3,0)
|
|---|
| 25 | ;;=^.845^1^1
|
|---|
| 26 | ;;^UTILITY(U,$J,.84,401,3,1,0)
|
|---|
| 27 | ;;=FILE^File number.
|
|---|
| 28 | ;;^UTILITY(U,$J,.84,402,0)
|
|---|
| 29 | ;;=402^1^y^5
|
|---|
| 30 | ;;^UTILITY(U,$J,.84,402,1,0)
|
|---|
| 31 | ;;=^^2^2^2940316^^^^
|
|---|
| 32 | ;;^UTILITY(U,$J,.84,402,1,1,0)
|
|---|
| 33 | ;;=The specified file or subfile lacks a valid global root; the global root
|
|---|
| 34 | ;;^UTILITY(U,$J,.84,402,1,2,0)
|
|---|
| 35 | ;;=is missing or is syntactically not valid.
|
|---|
| 36 | ;;^UTILITY(U,$J,.84,402,2,0)
|
|---|
| 37 | ;;=^^1^1^2940316^^^^
|
|---|
| 38 | ;;^UTILITY(U,$J,.84,402,2,1,0)
|
|---|
| 39 | ;;=The global root of file #|FILE| is missing or not valid.
|
|---|
| 40 | ;;^UTILITY(U,$J,.84,402,3,0)
|
|---|
| 41 | ;;=^.845^3^3
|
|---|
| 42 | ;;^UTILITY(U,$J,.84,402,3,1,0)
|
|---|
| 43 | ;;=FILE^File number.
|
|---|
| 44 | ;;^UTILITY(U,$J,.84,402,3,2,0)
|
|---|
| 45 | ;;=ROOT^File root.
|
|---|
| 46 | ;;^UTILITY(U,$J,.84,402,3,3,0)
|
|---|
| 47 | ;;=IENS^IEN String.
|
|---|
| 48 | ;;^UTILITY(U,$J,.84,403,0)
|
|---|
| 49 | ;;=403^1^y^5
|
|---|
| 50 | ;;^UTILITY(U,$J,.84,403,1,0)
|
|---|
| 51 | ;;=^^3^3^2940213^
|
|---|
| 52 | ;;^UTILITY(U,$J,.84,403,1,1,0)
|
|---|
| 53 | ;;=The File Header Node, the top level of the data file as described in the
|
|---|
| 54 | ;;^UTILITY(U,$J,.84,403,1,2,0)
|
|---|
| 55 | ;;=Programmer Manual, must be present for FileMan to determine certain kinds
|
|---|
| 56 | ;;^UTILITY(U,$J,.84,403,1,3,0)
|
|---|
| 57 | ;;=of information about a file.
|
|---|
| 58 | ;;^UTILITY(U,$J,.84,403,2,0)
|
|---|
| 59 | ;;=^^1^1^2940213^
|
|---|
| 60 | ;;^UTILITY(U,$J,.84,403,2,1,0)
|
|---|
| 61 | ;;=File #|FILE| lacks a Header Node.
|
|---|
| 62 | ;;^UTILITY(U,$J,.84,403,3,0)
|
|---|
| 63 | ;;=^.845^1^1
|
|---|
| 64 | ;;^UTILITY(U,$J,.84,403,3,1,0)
|
|---|
| 65 | ;;=FILE^File #.
|
|---|
| 66 | ;;^UTILITY(U,$J,.84,404,0)
|
|---|
| 67 | ;;=404^1^y^5
|
|---|
| 68 | ;;^UTILITY(U,$J,.84,404,1,0)
|
|---|
| 69 | ;;=^^4^4^2940214^
|
|---|
| 70 | ;;^UTILITY(U,$J,.84,404,1,1,0)
|
|---|
| 71 | ;;=We have identified a file by the global node of its data file, and found
|
|---|
| 72 | ;;^UTILITY(U,$J,.84,404,1,2,0)
|
|---|
| 73 | ;;=its Header Node. We needed to use the Header Node to identify the number
|
|---|
| 74 | ;;^UTILITY(U,$J,.84,404,1,3,0)
|
|---|
| 75 | ;;=of the file, but that piece of information is missing from the Header
|
|---|
| 76 | ;;^UTILITY(U,$J,.84,404,1,4,0)
|
|---|
| 77 | ;;=Node.
|
|---|
| 78 | ;;^UTILITY(U,$J,.84,404,2,0)
|
|---|
| 79 | ;;=^^1^1^2940214^
|
|---|
| 80 | ;;^UTILITY(U,$J,.84,404,2,1,0)
|
|---|
| 81 | ;;=The File Header node of the file stored at |1| lacks a file number.
|
|---|
| 82 | ;;^UTILITY(U,$J,.84,404,3,0)
|
|---|
| 83 | ;;=^.845^1^1
|
|---|
| 84 | ;;^UTILITY(U,$J,.84,404,3,1,0)
|
|---|
| 85 | ;;=1^File Root.
|
|---|
| 86 | ;;^UTILITY(U,$J,.84,405,0)
|
|---|
| 87 | ;;=405^1^y^5
|
|---|
| 88 | ;;^UTILITY(U,$J,.84,405,1,0)
|
|---|
| 89 | ;;=^^2^2^2931110^^
|
|---|
| 90 | ;;^UTILITY(U,$J,.84,405,1,1,0)
|
|---|
| 91 | ;;=The NO EDIT flag is set for the file. No instruction to override
|
|---|
| 92 | ;;^UTILITY(U,$J,.84,405,1,2,0)
|
|---|
| 93 | ;;=that flag is present.
|
|---|
| 94 | ;;^UTILITY(U,$J,.84,405,2,0)
|
|---|
| 95 | ;;=^^1^1^2931109^
|
|---|
| 96 | ;;^UTILITY(U,$J,.84,405,2,1,0)
|
|---|
| 97 | ;;=Entries in file |1| cannot be edited.
|
|---|
| 98 | ;;^UTILITY(U,$J,.84,405,3,0)
|
|---|
| 99 | ;;=^.845^2^2
|
|---|
| 100 | ;;^UTILITY(U,$J,.84,405,3,1,0)
|
|---|
| 101 | ;;=1^File Name.
|
|---|
| 102 | ;;^UTILITY(U,$J,.84,405,3,2,0)
|
|---|
| 103 | ;;=FILE^File number.
|
|---|
| 104 | ;;^UTILITY(U,$J,.84,406,0)
|
|---|
| 105 | ;;=406^1^y^5
|
|---|
| 106 | ;;^UTILITY(U,$J,.84,406,1,0)
|
|---|
| 107 | ;;=^^2^2^2940317^
|
|---|
| 108 | ;;^UTILITY(U,$J,.84,406,1,1,0)
|
|---|
| 109 | ;;=The data definition for a .01 field for the specified file is missing.
|
|---|
| 110 | ;;^UTILITY(U,$J,.84,406,1,2,0)
|
|---|
| 111 | ;;=This file is therefore not valid for most database operations.
|
|---|
| 112 | ;;^UTILITY(U,$J,.84,406,2,0)
|
|---|
| 113 | ;;=^^1^1^2940317^
|
|---|
| 114 | ;;^UTILITY(U,$J,.84,406,2,1,0)
|
|---|
| 115 | ;;=File #|FILE| has no .01 field definition.
|
|---|
| 116 | ;;^UTILITY(U,$J,.84,406,3,0)
|
|---|
| 117 | ;;=^.845^1^1
|
|---|
| 118 | ;;^UTILITY(U,$J,.84,406,3,1,0)
|
|---|
| 119 | ;;=FILE^File #.
|
|---|
| 120 | ;;^UTILITY(U,$J,.84,407,0)
|
|---|
| 121 | ;;=407^1^^5
|
|---|
| 122 | ;;^UTILITY(U,$J,.84,407,1,0)
|
|---|
| 123 | ;;=^^4^4^2940317^
|
|---|
| 124 | ;;^UTILITY(U,$J,.84,407,1,1,0)
|
|---|
| 125 | ;;=The subfile number of a word processing field has been passed in the place
|
|---|
| 126 | ;;^UTILITY(U,$J,.84,407,1,2,0)
|
|---|
| 127 | ;;=of a file parameter. This is not acceptable. Although we implement word
|
|---|
| 128 | ;;^UTILITY(U,$J,.84,407,1,3,0)
|
|---|
| 129 | ;;=processing fields as independent files, we do not allow them to be treated
|
|---|
| 130 | ;;^UTILITY(U,$J,.84,407,1,4,0)
|
|---|
| 131 | ;;=as files for purposes of most database activities.
|
|---|
| 132 | ;;^UTILITY(U,$J,.84,407,2,0)
|
|---|
| 133 | ;;=^^1^1^2940317^
|
|---|
| 134 | ;;^UTILITY(U,$J,.84,407,2,1,0)
|
|---|
| 135 | ;;=A word-processing field is not a file.
|
|---|
| 136 | ;;^UTILITY(U,$J,.84,407,3,0)
|
|---|
| 137 | ;;=^.845^1^1
|
|---|
| 138 | ;;^UTILITY(U,$J,.84,407,3,1,0)
|
|---|
| 139 | ;;=FILE^Subfile # of word-processing field.
|
|---|
| 140 | ;;^UTILITY(U,$J,.84,408,0)
|
|---|
| 141 | ;;=408^1^y^5
|
|---|
| 142 | ;;^UTILITY(U,$J,.84,408,1,0)
|
|---|
| 143 | ;;=^^2^2^2940715^
|
|---|
| 144 | ;;^UTILITY(U,$J,.84,408,1,1,0)
|
|---|
| 145 | ;;=The file lacks a name. For subfiles, $P(^DD(file#,0),U) is null. For root
|
|---|
| 146 | ;;^UTILITY(U,$J,.84,408,1,2,0)
|
|---|
| 147 | ;;=files, $O(^DD(file#,0,"NM",""))="".
|
|---|
| 148 | ;;^UTILITY(U,$J,.84,408,2,0)
|
|---|
| 149 | ;;=^^1^1^2940715^
|
|---|
| 150 | ;;^UTILITY(U,$J,.84,408,2,1,0)
|
|---|
| 151 | ;;=File# |FILE| lacks a name.
|
|---|
| 152 | ;;^UTILITY(U,$J,.84,408,3,0)
|
|---|
| 153 | ;;=^.845^1^1
|
|---|
| 154 | ;;^UTILITY(U,$J,.84,408,3,1,0)
|
|---|
| 155 | ;;=FILE^File #.
|
|---|
| 156 | ;;^UTILITY(U,$J,.84,409,0)
|
|---|
| 157 | ;;=409^1^y
|
|---|
| 158 | ;;^UTILITY(U,$J,.84,409,1,0)
|
|---|
| 159 | ;;=^^1^1^2950317^
|
|---|
| 160 | ;;^UTILITY(U,$J,.84,409,1,1,0)
|
|---|
| 161 | ;;=The indicated file does not exist in the FileMan database.
|
|---|
| 162 | ;;^UTILITY(U,$J,.84,409,2,0)
|
|---|
| 163 | ;;=^^1^1^2950317^
|
|---|
| 164 | ;;^UTILITY(U,$J,.84,409,2,1,0)
|
|---|
| 165 | ;;=File '|1|' could not be found.
|
|---|
| 166 | ;;^UTILITY(U,$J,.84,409,3,0)
|
|---|
| 167 | ;;=^.845^1^1
|
|---|
| 168 | ;;^UTILITY(U,$J,.84,409,3,1,0)
|
|---|
| 169 | ;;=1^File name or number.
|
|---|
| 170 | ;;^UTILITY(U,$J,.84,410,0)
|
|---|
| 171 | ;;=410^1^y^5
|
|---|
| 172 | ;;^UTILITY(U,$J,.84,410,1,0)
|
|---|
| 173 | ;;=^^1^1^2980602^^^
|
|---|
| 174 | ;;^UTILITY(U,$J,.84,410,1,1,0)
|
|---|
| 175 | ;;=The global node is either missing or incomplete.
|
|---|
| 176 | ;;^UTILITY(U,$J,.84,410,2,0)
|
|---|
| 177 | ;;=^^1^1^2980602^
|
|---|
| 178 | ;;^UTILITY(U,$J,.84,410,2,1,0)
|
|---|
| 179 | ;;=Missing or incomplete global node |1|.
|
|---|
| 180 | ;;^UTILITY(U,$J,.84,410,3,0)
|
|---|
| 181 | ;;=^.845^1^1
|
|---|
| 182 | ;;^UTILITY(U,$J,.84,410,3,1,0)
|
|---|
| 183 | ;;=1^GLOBAL NODE
|
|---|
| 184 | ;;^UTILITY(U,$J,.84,420,0)
|
|---|
| 185 | ;;=420^1^y^5
|
|---|
| 186 | ;;^UTILITY(U,$J,.84,420,1,0)
|
|---|
| 187 | ;;=^^4^4^2940628^
|
|---|
| 188 | ;;^UTILITY(U,$J,.84,420,1,1,0)
|
|---|
| 189 | ;;=A cross reference was specified for look-up, but that cross reference
|
|---|
| 190 | ;;^UTILITY(U,$J,.84,420,1,2,0)
|
|---|
| 191 | ;;=does not exist on the file. The file has entries, but the index does not.
|
|---|
| 192 | ;;^UTILITY(U,$J,.84,420,1,3,0)
|
|---|
| 193 | ;;=This error implies nothing about whether the index is defined in the
|
|---|
| 194 | ;;^UTILITY(U,$J,.84,420,1,4,0)
|
|---|
| 195 | ;;=file's DD.
|
|---|
| 196 | ;;^UTILITY(U,$J,.84,420,2,0)
|
|---|
| 197 | ;;=^^1^1^2931109^
|
|---|
| 198 | ;;^UTILITY(U,$J,.84,420,2,1,0)
|
|---|
| 199 | ;;=There is no |1| index for File #|FILE|.
|
|---|
| 200 | ;;^UTILITY(U,$J,.84,420,3,0)
|
|---|
| 201 | ;;=^.845^2^2
|
|---|
| 202 | ;;^UTILITY(U,$J,.84,420,3,1,0)
|
|---|
| 203 | ;;=1^Cross reference name.
|
|---|
| 204 | ;;^UTILITY(U,$J,.84,420,3,2,0)
|
|---|
| 205 | ;;=FILE^File number.
|
|---|
| 206 | ;;^UTILITY(U,$J,.84,501,0)
|
|---|
| 207 | ;;=501^1^y^5
|
|---|
| 208 | ;;^UTILITY(U,$J,.84,501,1,0)
|
|---|
| 209 | ;;=^^2^2^2940214^^^
|
|---|
