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

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

initial load of WorldVistAEHR
File size: 6.6 KB
Line 
1DINIT00E ; 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,3051,1,0)
7 ;;=^^2^2^2931129^^^^
8 ;;^UTILITY(U,$J,.84,3051,1,1,0)
9 ;;=The block has no 0 node in the Block file or was not found in the "B"
10 ;;^UTILITY(U,$J,.84,3051,1,2,0)
11 ;;=index.
12 ;;^UTILITY(U,$J,.84,3051,2,0)
13 ;;=^^1^1^2931129^^^
14 ;;^UTILITY(U,$J,.84,3051,2,1,0)
15 ;;=Block |1| does not exist in the Block file.
16 ;;^UTILITY(U,$J,.84,3051,3,0)
17 ;;=^.845^1^1
18 ;;^UTILITY(U,$J,.84,3051,3,1,0)
19 ;;=1^Block number or name
20 ;;^UTILITY(U,$J,.84,3053,0)
21 ;;=3053^1^y^5
22 ;;^UTILITY(U,$J,.84,3053,1,0)
23 ;;=^^4^4^2931129^
24 ;;^UTILITY(U,$J,.84,3053,1,1,0)
25 ;;=The specified block was not found on the page. For example, it was not
26 ;;^UTILITY(U,$J,.84,3053,1,2,0)
27 ;;=found in the "AC" or "B" index in the block multiple of the page multiple
28 ;;^UTILITY(U,$J,.84,3053,1,3,0)
29 ;;=of the Form file, or the 0 node of the block in the block multiple is
30 ;;^UTILITY(U,$J,.84,3053,1,4,0)
31 ;;=missing.
32 ;;^UTILITY(U,$J,.84,3053,2,0)
33 ;;=^^1^1^2931129^^
34 ;;^UTILITY(U,$J,.84,3053,2,1,0)
35 ;;=Block |1| was not found on page |2|.
36 ;;^UTILITY(U,$J,.84,3053,3,0)
37 ;;=^.845^2^2
38 ;;^UTILITY(U,$J,.84,3053,3,1,0)
39 ;;=1^Block order, name, or number
40 ;;^UTILITY(U,$J,.84,3053,3,2,0)
41 ;;=2^Page number and/or name
42 ;;^UTILITY(U,$J,.84,3055,0)
43 ;;=3055^1^y^5
44 ;;^UTILITY(U,$J,.84,3055,1,0)
45 ;;=^^1^1^2931129^^^
46 ;;^UTILITY(U,$J,.84,3055,1,1,0)
47 ;;=There are no blocks defined on the page.
48 ;;^UTILITY(U,$J,.84,3055,2,0)
49 ;;=^^1^1^2931129^^^
50 ;;^UTILITY(U,$J,.84,3055,2,1,0)
51 ;;=There are no blocks defined on page |1|.
52 ;;^UTILITY(U,$J,.84,3055,3,0)
53 ;;=^.845^1^1
54 ;;^UTILITY(U,$J,.84,3055,3,1,0)
55 ;;=1^Page name and/or number
56 ;;^UTILITY(U,$J,.84,3071,0)
57 ;;=3071^1^y^5
58 ;;^UTILITY(U,$J,.84,3071,1,0)
59 ;;=^^1^1^2931129^^^
60 ;;^UTILITY(U,$J,.84,3071,1,1,0)
61 ;;=The specified block has no fields on it.
62 ;;^UTILITY(U,$J,.84,3071,2,0)
63 ;;=^^1^1^2931129^^
64 ;;^UTILITY(U,$J,.84,3071,2,1,0)
65 ;;=There are no fields defined on block |1|.
66 ;;^UTILITY(U,$J,.84,3071,3,0)
67 ;;=^.845^1^1
68 ;;^UTILITY(U,$J,.84,3071,3,1,0)
69 ;;=1^Block name
70 ;;^UTILITY(U,$J,.84,3072,0)
71 ;;=3072^1^y^5
72 ;;^UTILITY(U,$J,.84,3072,1,0)
73 ;;=^^1^1^2931129^
74 ;;^UTILITY(U,$J,.84,3072,1,1,0)
75 ;;=The specified field was not found on the block.
76 ;;^UTILITY(U,$J,.84,3072,2,0)
77 ;;=^^1^1^2931129^
78 ;;^UTILITY(U,$J,.84,3072,2,1,0)
79 ;;=Field |1| was not found on block |2|.
80 ;;^UTILITY(U,$J,.84,3072,3,0)
81 ;;=^.845^2^2
82 ;;^UTILITY(U,$J,.84,3072,3,1,0)
83 ;;=1^Field order, number, caption, or unique name
84 ;;^UTILITY(U,$J,.84,3072,3,2,0)
85 ;;=2^Block name
86 ;;^UTILITY(U,$J,.84,3081,0)
87 ;;=3081^1^^5
88 ;;^UTILITY(U,$J,.84,3081,1,0)
89 ;;=^^2^2^2931201^^
90 ;;^UTILITY(U,$J,.84,3081,1,1,0)
91 ;;=The field specified by FO(field) in the pointer link or computed expression
92 ;;^UTILITY(U,$J,.84,3081,1,2,0)
93 ;;=is not a form only field.
94 ;;^UTILITY(U,$J,.84,3081,2,0)
95 ;;=^^1^1^2931201^^
96 ;;^UTILITY(U,$J,.84,3081,2,1,0)
97 ;;=The specified field is not a form-only field.
98 ;;^UTILITY(U,$J,.84,3082,0)
99 ;;=3082^1^^5
100 ;;^UTILITY(U,$J,.84,3082,1,0)
101 ;;=^^3^3^2931203^
102 ;;^UTILITY(U,$J,.84,3082,1,1,0)
103 ;;=The field, block, and/or page is missing or invalid in the expression
104 ;;^UTILITY(U,$J,.84,3082,1,2,0)
105 ;;=FO(field,block,page), used in the pointer link, parent field, or computed
106 ;;^UTILITY(U,$J,.84,3082,1,3,0)
107 ;;=expression.
108 ;;^UTILITY(U,$J,.84,3082,2,0)
109 ;;=^^1^1^2931203^
110 ;;^UTILITY(U,$J,.84,3082,2,1,0)
111 ;;=Parameters are missing or invalid in an FO() expression.
112 ;;^UTILITY(U,$J,.84,3083,0)
113 ;;=3083^1^^5
114 ;;^UTILITY(U,$J,.84,3083,1,0)
115 ;;=^^1^1^2931203^^
116 ;;^UTILITY(U,$J,.84,3083,1,1,0)
117 ;;=The relational expression is incomplete.
118 ;;^UTILITY(U,$J,.84,3083,2,0)
119 ;;=^^1^1^2931203^^
120 ;;^UTILITY(U,$J,.84,3083,2,1,0)
121 ;;=The relational expression is incomplete.
122 ;;^UTILITY(U,$J,.84,3084,0)
123 ;;=3084^1^^5
124 ;;^UTILITY(U,$J,.84,3084,1,0)
125 ;;=^^3^3^2931203^^
126 ;;^UTILITY(U,$J,.84,3084,1,1,0)
127 ;;=In a computed expression, a form-only field should be referenced as
128 ;;^UTILITY(U,$J,.84,3084,1,2,0)
129 ;;={FO(field,block)} or {FO(field)}. The page parameter should not be
130 ;;^UTILITY(U,$J,.84,3084,1,3,0)
131 ;;=included.
132 ;;^UTILITY(U,$J,.84,3084,2,0)
133 ;;=^^1^1^2931203^^
134 ;;^UTILITY(U,$J,.84,3084,2,1,0)
135 ;;=The FO() expression should not contain a page parameter.
136 ;;^UTILITY(U,$J,.84,3085,0)
137 ;;=3085^1^^5
138 ;;^UTILITY(U,$J,.84,3085,1,0)
139 ;;=^^3^3^2931203^
140 ;;^UTILITY(U,$J,.84,3085,1,1,0)
141 ;;=In a computed expression, a form-only field should be referenced as
142 ;;^UTILITY(U,$J,.84,3085,1,2,0)
143 ;;={FO(field,block)} or {FO(field)}. The block parameter should be
144 ;;^UTILITY(U,$J,.84,3085,1,3,0)
145 ;;=either the block name or `block number. It should not be a block order.
146 ;;^UTILITY(U,$J,.84,3085,2,0)
147 ;;=^^1^1^2931203^^
148 ;;^UTILITY(U,$J,.84,3085,2,1,0)
149 ;;=The FO() expression should not use block order to specify a block.
150 ;;^UTILITY(U,$J,.84,3086,0)
151 ;;=3086^1^^5
152 ;;^UTILITY(U,$J,.84,3086,1,0)
153 ;;=^^2^2^2940708^^
154 ;;^UTILITY(U,$J,.84,3086,1,1,0)
155 ;;=Reject calls to PUT^DDSVAL which attempt to set the .01 field of a file to
156 ;;^UTILITY(U,$J,.84,3086,1,2,0)
157 ;;="" or "@".
158 ;;^UTILITY(U,$J,.84,3086,2,0)
159 ;;=^^1^1^2940708^^^
160 ;;^UTILITY(U,$J,.84,3086,2,1,0)
161 ;;=PUT^DDSVAL cannot be used to delete an entry.
162 ;;^UTILITY(U,$J,.84,3091,0)
163 ;;=3091^1^^5
164 ;;^UTILITY(U,$J,.84,3091,1,0)
165 ;;=^^1^1^2930722^
166 ;;^UTILITY(U,$J,.84,3091,1,1,0)
167 ;;=The data could not be filed.
168 ;;^UTILITY(U,$J,.84,3091,2,0)
169 ;;=^^1^1^2931202^^
170 ;;^UTILITY(U,$J,.84,3091,2,1,0)
171 ;;=THE DATA COULD NOT BE FILED.
172 ;;^UTILITY(U,$J,.84,3092,0)
173 ;;=3092^1^y^5
174 ;;^UTILITY(U,$J,.84,3092,1,0)
175 ;;=^^1^1^2940713^^^^
176 ;;^UTILITY(U,$J,.84,3092,1,1,0)
177 ;;=The given field is required and its current value is null.
178 ;;^UTILITY(U,$J,.84,3092,2,0)
179 ;;=^^1^1^2940713^^^
180 ;;^UTILITY(U,$J,.84,3092,2,1,0)
181 ;;=|1|, |2| is a required field |3|
182 ;;^UTILITY(U,$J,.84,3092,3,0)
183 ;;=^.845^3^3
184 ;;^UTILITY(U,$J,.84,3092,3,1,0)
185 ;;=1^Page name
186 ;;^UTILITY(U,$J,.84,3092,3,2,0)
187 ;;=2^Caption
188 ;;^UTILITY(U,$J,.84,3092,3,3,0)
189 ;;=3^Subrecord name in parentheses
190 ;;^UTILITY(U,$J,.84,7001,0)
191 ;;=7001^2^^5
192 ;;^UTILITY(U,$J,.84,7001,1,0)
193 ;;=^^1^1^2940314^^^
194 ;;^UTILITY(U,$J,.84,7001,1,1,0)
195 ;;=This is the general Yes/No Prompt
196 ;;^UTILITY(U,$J,.84,7001,2,0)
197 ;;=^^1^1^2940314^^^
198 ;;^UTILITY(U,$J,.84,7001,2,1,0)
199 ;;=Yes^No
200 ;;^UTILITY(U,$J,.84,7002,0)
201 ;;=7002^2^^5
202 ;;^UTILITY(U,$J,.84,7002,1,0)
203 ;;=^^1^1^2940314^^^
204 ;;^UTILITY(U,$J,.84,7002,1,1,0)
205 ;;=Insert/Replace Switch
206 ;;^UTILITY(U,$J,.84,7002,2,0)
207 ;;=^^1^1^2940314^^
208 ;;^UTILITY(U,$J,.84,7002,2,1,0)
209 ;;=Insert ^Replace
Note: See TracBrowser for help on using the repository browser.