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

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

initial load of WorldVistAEHR
File size: 6.7 KB
RevLine 
[613]1DINIT00L ; 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,8084,2,0)
7 ;;=^^1^1^2940318^
8 ;;^UTILITY(U,$J,.84,8084,2,1,0)
9 ;;=file number
10 ;;^UTILITY(U,$J,.84,8084,5,0)
11 ;;=^.841^1^1
12 ;;^UTILITY(U,$J,.84,8084,5,1,0)
13 ;;=DIT^TRNMRG
14 ;;^UTILITY(U,$J,.84,8085,0)
15 ;;=8085^2^^5
16 ;;^UTILITY(U,$J,.84,8085,1,0)
17 ;;=^^1^1^2940426^^
18 ;;^UTILITY(U,$J,.84,8085,1,1,0)
19 ;;=The words 'IEN string' to be used in any dialog.
20 ;;^UTILITY(U,$J,.84,8085,2,0)
21 ;;=^^1^1^2940426^^
22 ;;^UTILITY(U,$J,.84,8085,2,1,0)
23 ;;=IEN string
24 ;;^UTILITY(U,$J,.84,8085,5,0)
25 ;;=^.841^1^1
26 ;;^UTILITY(U,$J,.84,8085,5,1,0)
27 ;;=DIT^TRNMRG
28 ;;^UTILITY(U,$J,.84,8086,0)
29 ;;=8086^2^^5
30 ;;^UTILITY(U,$J,.84,8086,1,0)
31 ;;=^^1^1^2940608^^^^
32 ;;^UTILITY(U,$J,.84,8086,1,1,0)
33 ;;=Warning to use the merge only during non-peak times.
34 ;;^UTILITY(U,$J,.84,8086,2,0)
35 ;;=^^5^5^2940608^
36 ;;^UTILITY(U,$J,.84,8086,2,1,0)
37 ;;=
38 ;;^UTILITY(U,$J,.84,8086,2,2,0)
39 ;;=NOTE: Use this option ONLY DURING NON-PEAK HOURS if merging entries in a
40 ;;^UTILITY(U,$J,.84,8086,2,3,0)
41 ;;=file that is pointed-to either by many files, or by large files.
42 ;;^UTILITY(U,$J,.84,8086,2,4,0)
43 ;;=
44 ;;^UTILITY(U,$J,.84,8086,2,5,0)
45 ;;=MERGE ENTRIES AFTER COMPARING THEM
46 ;;^UTILITY(U,$J,.84,8087,0)
47 ;;=8087^2^^5^End of Page message for Lookup (DIC)
48 ;;^UTILITY(U,$J,.84,8087,1,0)
49 ;;=^^2^2^2970529^
50 ;;^UTILITY(U,$J,.84,8087,1,1,0)
51 ;;=Displays the end of page message displayed at the bottom of a screen after
52 ;;^UTILITY(U,$J,.84,8087,1,2,0)
53 ;;=a list of selectable entries is displayed during lookup (^DIC).
54 ;;^UTILITY(U,$J,.84,8087,2,0)
55 ;;=^^1^1^2970529^
56 ;;^UTILITY(U,$J,.84,8087,2,1,0)
57 ;;=Press <RETURN> to see more, '^' to exit this list, OR
58 ;;^UTILITY(U,$J,.84,8087,5,0)
59 ;;=^.841^1^1
60 ;;^UTILITY(U,$J,.84,8087,5,1,0)
61 ;;=DIC1^DSP
62 ;;^UTILITY(U,$J,.84,8088,0)
63 ;;=8088^2^y^5
64 ;;^UTILITY(U,$J,.84,8088,1,0)
65 ;;=^^2^2^2970529^^
66 ;;^UTILITY(U,$J,.84,8088,1,1,0)
67 ;;=Message directing the user to Choose one of the displayed selections
68 ;;^UTILITY(U,$J,.84,8088,1,2,0)
69 ;;=during lookup (^DIC).
70 ;;^UTILITY(U,$J,.84,8088,2,0)
71 ;;=^^1^1^2970529^
72 ;;^UTILITY(U,$J,.84,8088,2,1,0)
73 ;;=CHOOSE |1|-|2|:
74 ;;^UTILITY(U,$J,.84,8088,3,0)
75 ;;=^.845^2^2
76 ;;^UTILITY(U,$J,.84,8088,3,1,0)
77 ;;=1^Starting number in displayed list
78 ;;^UTILITY(U,$J,.84,8088,3,2,0)
79 ;;=2^Ending number in displayed list
80 ;;^UTILITY(U,$J,.84,8088,5,0)
81 ;;=^.841^1^1
82 ;;^UTILITY(U,$J,.84,8088,5,1,0)
83 ;;=DIC1^DSP
84 ;;^UTILITY(U,$J,.84,8089,0)
85 ;;=8089^2^y^5
86 ;;^UTILITY(U,$J,.84,8089,1,0)
87 ;;=^^2^2^2970609^^
88 ;;^UTILITY(U,$J,.84,8089,1,1,0)
89 ;;=Message used during interactive ^DIC to display the file and index name
90 ;;^UTILITY(U,$J,.84,8089,1,2,0)
91 ;;=on which the displayed entries were found.
92 ;;^UTILITY(U,$J,.84,8089,2,0)
93 ;;=^^1^1^2970609^^
94 ;;^UTILITY(U,$J,.84,8089,2,1,0)
95 ;;=Matches to: |1| |2|.
96 ;;^UTILITY(U,$J,.84,8089,3,0)
97 ;;=^.845^2^2
98 ;;^UTILITY(U,$J,.84,8089,3,1,0)
99 ;;=1^File name
100 ;;^UTILITY(U,$J,.84,8089,3,2,0)
101 ;;=2^Indexed field name
102 ;;^UTILITY(U,$J,.84,8089,5,0)
103 ;;=^.841^1^1
104 ;;^UTILITY(U,$J,.84,8089,5,1,0)
105 ;;=DIC1^DSP
106 ;;^UTILITY(U,$J,.84,8090,0)
107 ;;=8090^2^^5
108 ;;^UTILITY(U,$J,.84,8090,1,0)
109 ;;=^^3^3^2970626^
110 ;;^UTILITY(U,$J,.84,8090,1,1,0)
111 ;;=Used in displaying an error message when the lookup value X does not pass
112 ;;^UTILITY(U,$J,.84,8090,1,2,0)
113 ;;=the Pre-lookup transform code (^DD(File#,.01,7.5) node) during ^DIC or
114 ;;^UTILITY(U,$J,.84,8090,1,3,0)
115 ;;=Finder lookups.
116 ;;^UTILITY(U,$J,.84,8090,2,0)
117 ;;=^^1^1^2970626^
118 ;;^UTILITY(U,$J,.84,8090,2,1,0)
119 ;;=Pre-lookup transform (7.5 node)
120 ;;^UTILITY(U,$J,.84,8090,5,0)
121 ;;=^.841^2^2
122 ;;^UTILITY(U,$J,.84,8090,5,1,0)
123 ;;=DIC
124 ;;^UTILITY(U,$J,.84,8090,5,2,0)
125 ;;=DICF
126 ;;^UTILITY(U,$J,.84,8091,0)
127 ;;=8091^1^^5^
128 ;;^UTILITY(U,$J,.84,8091,1,0)
129 ;;=^^1^1^2970715^
130 ;;^UTILITY(U,$J,.84,8091,1,1,0)
131 ;;=Error set when user times out.
132 ;;^UTILITY(U,$J,.84,8091,2,0)
133 ;;=^^1^1^2970715^
134 ;;^UTILITY(U,$J,.84,8091,2,1,0)
135 ;;=User timed out.
136 ;;^UTILITY(U,$J,.84,8091,5,0)
137 ;;=^.841^1^1
138 ;;^UTILITY(U,$J,.84,8091,5,1,0)
139 ;;=DIC1^Y
140 ;;^UTILITY(U,$J,.84,8092,0)
141 ;;=8092^1^^5
142 ;;^UTILITY(U,$J,.84,8092,1,0)
143 ;;=^^1^1^2970715^
144 ;;^UTILITY(U,$J,.84,8092,1,1,0)
145 ;;=Error when user up-arrows out.
146 ;;^UTILITY(U,$J,.84,8092,2,0)
147 ;;=^^1^1^2970715^
148 ;;^UTILITY(U,$J,.84,8092,2,1,0)
149 ;;=User up-arrowed out.
150 ;;^UTILITY(U,$J,.84,8092,5,0)
151 ;;=^.841^1^1
152 ;;^UTILITY(U,$J,.84,8092,5,1,0)
153 ;;=DIC1^Y
154 ;;^UTILITY(U,$J,.84,8093,0)
155 ;;=8093^1^^5
156 ;;^UTILITY(U,$J,.84,8093,1,0)
157 ;;=^^4^4^2970722^
158 ;;^UTILITY(U,$J,.84,8093,1,1,0)
159 ;;=Error that occurs when user passes too many lookup values to either the
160 ;;^UTILITY(U,$J,.84,8093,1,2,0)
161 ;;=Finder call ^DICF or the FileMan lookup ^DIC. When the number of lookup
162 ;;^UTILITY(U,$J,.84,8093,1,3,0)
163 ;;=values exceeds the number of subscripts in the index passed (or the
164 ;;^UTILITY(U,$J,.84,8093,1,4,0)
165 ;;=default index if no index is passed).
166 ;;^UTILITY(U,$J,.84,8093,2,0)
167 ;;=^^1^1^2970722^
168 ;;^UTILITY(U,$J,.84,8093,2,1,0)
169 ;;=Too many lookup values for this index.
170 ;;^UTILITY(U,$J,.84,8093,5,0)
171 ;;=^.841^1^1
172 ;;^UTILITY(U,$J,.84,8093,5,1,0)
173 ;;=DIC3^ASK
174 ;;^UTILITY(U,$J,.84,8094,0)
175 ;;=8094^1^^5
176 ;;^UTILITY(U,$J,.84,8094,1,0)
177 ;;=^^3^3^2970820^
178 ;;^UTILITY(U,$J,.84,8094,1,1,0)
179 ;;=Error message returned from ^DICF or ^DIC when flags parameter or
180 ;;^UTILITY(U,$J,.84,8094,1,2,0)
181 ;;=DIC(0) contains an "X", but not enough lookup values passed for the number
182 ;;^UTILITY(U,$J,.84,8094,1,3,0)
183 ;;=of subscripts in the lookup index.
184 ;;^UTILITY(U,$J,.84,8094,2,0)
185 ;;=^^1^1^2970820^
186 ;;^UTILITY(U,$J,.84,8094,2,1,0)
187 ;;=Not enough lookup values provided for an exact match on this index.
188 ;;^UTILITY(U,$J,.84,8094,5,0)
189 ;;=^.841^1^1
190 ;;^UTILITY(U,$J,.84,8094,5,1,0)
191 ;;=DIC31^CHKVAL1
192 ;;^UTILITY(U,$J,.84,8095,0)
193 ;;=8095^1^^5
194 ;;^UTILITY(U,$J,.84,8095,1,0)
195 ;;=^^3^3^2990104^^
196 ;;^UTILITY(U,$J,.84,8095,1,1,0)
197 ;;=In calls to the Finder, IX^DIC or MIX^DIC, if the first index passed (or
198 ;;^UTILITY(U,$J,.84,8095,1,2,0)
199 ;;=the default index) is a compound index, then only one index can be passed,
200 ;;^UTILITY(U,$J,.84,8095,1,3,0)
201 ;;=so DIC(0) (or flags) cannot contain "M".
202 ;;^UTILITY(U,$J,.84,8095,2,0)
203 ;;=^^1^1^2990104^
204 ;;^UTILITY(U,$J,.84,8095,2,1,0)
205 ;;=First lookup index is compound, so "M"ultiple index lookups not allowed.
206 ;;^UTILITY(U,$J,.84,8095,5,0)
207 ;;=^.841^1^1
208 ;;^UTILITY(U,$J,.84,8095,5,1,0)
209 ;;=DIC31^CHKVAL1
210 ;;^UTILITY(U,$J,.84,8096,0)
211 ;;=8096^1^^5
212 ;;^UTILITY(U,$J,.84,8096,1,0)
213 ;;=^^2^2^2971001^
214 ;;^UTILITY(U,$J,.84,8096,1,1,0)
215 ;;=Error message from ^DIC or ^DICQ when DIC contains a subfile number
Note: See TracBrowser for help on using the repository browser.