source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT008.m@ 1789

Last change on this file since 1789 was 613, checked in by George Lilly, 15 years ago

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