source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT00D.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]1DINIT00D ; 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,1846,0)
7 ;;=1846^1^y
8 ;;^UTILITY(U,$J,.84,1846,1,0)
9 ;;=^^1^1^2950317^^
10 ;;^UTILITY(U,$J,.84,1846,1,1,0)
11 ;;=A file or subfile must have only one string of fields associated with it.
12 ;;^UTILITY(U,$J,.84,1846,2,0)
13 ;;=^^1^1^2950317^^
14 ;;^UTILITY(U,$J,.84,1846,2,1,0)
15 ;;=File #|FILE| appears more than once in the import with different fields.
16 ;;^UTILITY(U,$J,.84,1846,3,0)
17 ;;=^.845^1^1
18 ;;^UTILITY(U,$J,.84,1846,3,1,0)
19 ;;=FILE^File or subfile number.
20 ;;^UTILITY(U,$J,.84,1850,0)
21 ;;=1850^1^^5
22 ;;^UTILITY(U,$J,.84,1850,1,0)
23 ;;=^^4^4^2960718^^
24 ;;^UTILITY(U,$J,.84,1850,1,1,0)
25 ;;=The device for printing the Import report was not properly specified.
26 ;;^UTILITY(U,$J,.84,1850,1,2,0)
27 ;;=This could be caused either by a user's response or by the
28 ;;^UTILITY(U,$J,.84,1850,1,3,0)
29 ;;=device specifications passed to the FILE^DDMP call. The problem
30 ;;^UTILITY(U,$J,.84,1850,1,4,0)
31 ;;=could involve either device or queuing instructions.
32 ;;^UTILITY(U,$J,.84,1850,2,0)
33 ;;=^^1^1^2960718^^
34 ;;^UTILITY(U,$J,.84,1850,2,1,0)
35 ;;=There is an error in device selection or queuing setup.
36 ;;^UTILITY(U,$J,.84,1860,0)
37 ;;=1860^1^^5
38 ;;^UTILITY(U,$J,.84,1860,1,0)
39 ;;=^^1^1^2960906^
40 ;;^UTILITY(U,$J,.84,1860,1,1,0)
41 ;;=The record being imported has no data.
42 ;;^UTILITY(U,$J,.84,1860,2,0)
43 ;;=^^1^1^2960906^
44 ;;^UTILITY(U,$J,.84,1860,2,1,0)
45 ;;=The record being imported has no data.
46 ;;^UTILITY(U,$J,.84,1862,0)
47 ;;=1862^1^^5
48 ;;^UTILITY(U,$J,.84,1862,1,0)
49 ;;=^^4^4^2960906^^
50 ;;^UTILITY(U,$J,.84,1862,1,1,0)
51 ;;=When parsing the imported record, more fields were found than expected.
52 ;;^UTILITY(U,$J,.84,1862,1,2,0)
53 ;;=There were either more delimiter-pieces than expected or the length of a
54 ;;^UTILITY(U,$J,.84,1862,1,3,0)
55 ;;=fixed length import was too long. This probably means that the incoming
56 ;;^UTILITY(U,$J,.84,1862,1,4,0)
57 ;;=file is corrupted.
58 ;;^UTILITY(U,$J,.84,1862,2,0)
59 ;;=^^1^1^2960906^^
60 ;;^UTILITY(U,$J,.84,1862,2,1,0)
61 ;;=There are more fields in the incoming record than expected.
62 ;;^UTILITY(U,$J,.84,1870,0)
63 ;;=1870^1^y^5
64 ;;^UTILITY(U,$J,.84,1870,1,0)
65 ;;=^^2^2^2960913^
66 ;;^UTILITY(U,$J,.84,1870,1,1,0)
67 ;;=A requested import template does not exist in the Import Template file
68 ;;^UTILITY(U,$J,.84,1870,1,2,0)
69 ;;=for the file being imported into.
70 ;;^UTILITY(U,$J,.84,1870,2,0)
71 ;;=^^1^1^2961002^^^
72 ;;^UTILITY(U,$J,.84,1870,2,1,0)
73 ;;=Import template |1| does not exist for File #|FILE|.
74 ;;^UTILITY(U,$J,.84,1870,3,0)
75 ;;=^.845^2^2
76 ;;^UTILITY(U,$J,.84,1870,3,1,0)
77 ;;=1^Template name.
78 ;;^UTILITY(U,$J,.84,1870,3,2,0)
79 ;;=FILE^File number.
80 ;;^UTILITY(U,$J,.84,3000,0)
81 ;;=3000^1^^5
82 ;;^UTILITY(U,$J,.84,3000,1,0)
83 ;;=^^1^1^2930721^
84 ;;^UTILITY(U,$J,.84,3000,1,1,0)
85 ;;=Initial call to ^DDS failed.
86 ;;^UTILITY(U,$J,.84,3000,2,0)
87 ;;=^^1^1^2931202^
88 ;;^UTILITY(U,$J,.84,3000,2,1,0)
89 ;;=THE FORM COULD NOT BE INVOKED.
90 ;;^UTILITY(U,$J,.84,3002,0)
91 ;;=3002^1^y^5
92 ;;^UTILITY(U,$J,.84,3002,1,0)
93 ;;=^^1^1^2931202^
94 ;;^UTILITY(U,$J,.84,3002,1,1,0)
95 ;;=An error was encountered during Form compilation.
96 ;;^UTILITY(U,$J,.84,3002,2,0)
97 ;;=^^1^1^2931202^^
98 ;;^UTILITY(U,$J,.84,3002,2,1,0)
99 ;;=THE FORM "|1|" COULD NOT BE COMPILED.
100 ;;^UTILITY(U,$J,.84,3002,3,0)
101 ;;=^.845^1^1
102 ;;^UTILITY(U,$J,.84,3002,3,1,0)
103 ;;=1^Form name
104 ;;^UTILITY(U,$J,.84,3011,0)
105 ;;=3011^1^y^5
106 ;;^UTILITY(U,$J,.84,3011,1,0)
107 ;;=^^1^1^2931201^
108 ;;^UTILITY(U,$J,.84,3011,1,1,0)
109 ;;=The specified field is missing or invalid.
110 ;;^UTILITY(U,$J,.84,3011,2,0)
111 ;;=^^1^1^2931201^
112 ;;^UTILITY(U,$J,.84,3011,2,1,0)
113 ;;=The |1| field of the |2| file is missing or invalid.
114 ;;^UTILITY(U,$J,.84,3011,3,0)
115 ;;=^.845^2^2
116 ;;^UTILITY(U,$J,.84,3011,3,1,0)
117 ;;=1^Field or subfield name
118 ;;^UTILITY(U,$J,.84,3011,3,2,0)
119 ;;=2^File name
120 ;;^UTILITY(U,$J,.84,3012,0)
121 ;;=3012^1^y^5
122 ;;^UTILITY(U,$J,.84,3012,1,0)
123 ;;=^^2^2^2931201^
124 ;;^UTILITY(U,$J,.84,3012,1,1,0)
125 ;;=The specified file or subfile does not exist; it is not present in the
126 ;;^UTILITY(U,$J,.84,3012,1,2,0)
127 ;;=data dictionary.
128 ;;^UTILITY(U,$J,.84,3012,2,0)
129 ;;=^^1^1^2931201^
130 ;;^UTILITY(U,$J,.84,3012,2,1,0)
131 ;;=File |1| does not exist.
132 ;;^UTILITY(U,$J,.84,3012,3,0)
133 ;;=^.845^1^1
134 ;;^UTILITY(U,$J,.84,3012,3,1,0)
135 ;;=1^File number or name
136 ;;^UTILITY(U,$J,.84,3021,0)
137 ;;=3021^1^y^5
138 ;;^UTILITY(U,$J,.84,3021,1,0)
139 ;;=^^1^1^2940811^^^
140 ;;^UTILITY(U,$J,.84,3021,1,1,0)
141 ;;=A lookup in to the Form file for the given form failed.
142 ;;^UTILITY(U,$J,.84,3021,2,0)
143 ;;=^^2^2^2940811^
144 ;;^UTILITY(U,$J,.84,3021,2,1,0)
145 ;;=Form |1| does not exist in the Form file, or DDSFILE is not the Primary
146 ;;^UTILITY(U,$J,.84,3021,2,2,0)
147 ;;=File of the form.
148 ;;^UTILITY(U,$J,.84,3021,3,0)
149 ;;=^.845^1^1
150 ;;^UTILITY(U,$J,.84,3021,3,1,0)
151 ;;=1^Form name
152 ;;^UTILITY(U,$J,.84,3022,0)
153 ;;=3022^1^y^5
154 ;;^UTILITY(U,$J,.84,3022,1,0)
155 ;;=^^1^1^2931130^^
156 ;;^UTILITY(U,$J,.84,3022,1,1,0)
157 ;;=There are no pages defined in the Page multiple of the given form.
158 ;;^UTILITY(U,$J,.84,3022,2,0)
159 ;;=^^1^1^2931130^^
160 ;;^UTILITY(U,$J,.84,3022,2,1,0)
161 ;;=Form |1| contains no pages.
162 ;;^UTILITY(U,$J,.84,3022,3,0)
163 ;;=^.845^1^1
164 ;;^UTILITY(U,$J,.84,3022,3,1,0)
165 ;;=1^Form name
166 ;;^UTILITY(U,$J,.84,3023,0)
167 ;;=3023^1^y^5
168 ;;^UTILITY(U,$J,.84,3023,1,0)
169 ;;=^^1^1^2931129^^
170 ;;^UTILITY(U,$J,.84,3023,1,1,0)
171 ;;=The given page was not found on the form.
172 ;;^UTILITY(U,$J,.84,3023,2,0)
173 ;;=^^1^1^2931129^^^
174 ;;^UTILITY(U,$J,.84,3023,2,1,0)
175 ;;=The form does not contain a page |1|.
176 ;;^UTILITY(U,$J,.84,3023,3,0)
177 ;;=^.845^1^1
178 ;;^UTILITY(U,$J,.84,3023,3,1,0)
179 ;;=1^Page name or number
180 ;;^UTILITY(U,$J,.84,3031,0)
181 ;;=3031^1^y^5
182 ;;^UTILITY(U,$J,.84,3031,1,0)
183 ;;=^^1^1^2931124^
184 ;;^UTILITY(U,$J,.84,3031,1,1,0)
185 ;;=The call to the specified ScreenMan utility failed.
186 ;;^UTILITY(U,$J,.84,3031,2,0)
187 ;;=^^1^1^2931124^
188 ;;^UTILITY(U,$J,.84,3031,2,1,0)
189 ;;=NOTE: The programmer call to the |1| ScreenMan utility failed.
190 ;;^UTILITY(U,$J,.84,3031,3,0)
191 ;;=^.845^1^1
192 ;;^UTILITY(U,$J,.84,3031,3,1,0)
193 ;;=1^ScreenMan utility entry point.
194 ;;^UTILITY(U,$J,.84,3041,0)
195 ;;=3041^1^y^5
196 ;;^UTILITY(U,$J,.84,3041,1,0)
197 ;;=^^1^1^2931130^^
198 ;;^UTILITY(U,$J,.84,3041,1,1,0)
199 ;;=Errors were encountered while attempting to load the page.
200 ;;^UTILITY(U,$J,.84,3041,2,0)
201 ;;=^^1^1^2931130^
202 ;;^UTILITY(U,$J,.84,3041,2,1,0)
203 ;;=Page |1| (|2|) could not be loaded.
204 ;;^UTILITY(U,$J,.84,3041,3,0)
205 ;;=^.845^2^2
206 ;;^UTILITY(U,$J,.84,3041,3,1,0)
207 ;;=1^Page number
208 ;;^UTILITY(U,$J,.84,3041,3,2,0)
209 ;;=2^Page name
210 ;;^UTILITY(U,$J,.84,3051,0)
211 ;;=3051^1^y^5
Note: See TracBrowser for help on using the repository browser.