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

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

initial load of WorldVistAEHR
File size: 6.7 KB
RevLine 
[613]1DINIT00K ; 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,8065,2,0)
7 ;;=^^1^1^2940314^^^
8 ;;^UTILITY(U,$J,.84,8065,2,1,0)
9 ;;=|1|-Entry
10 ;;^UTILITY(U,$J,.84,8065,3,0)
11 ;;=^.845^1^1
12 ;;^UTILITY(U,$J,.84,8065,3,1,0)
13 ;;=1^Number of entries in list
14 ;;^UTILITY(U,$J,.84,8066,0)
15 ;;=8066^2^y^5
16 ;;^UTILITY(U,$J,.84,8066,1,0)
17 ;;=^^1^1^2940314^
18 ;;^UTILITY(U,$J,.84,8066,1,1,0)
19 ;;=Lookup Part IV
20 ;;^UTILITY(U,$J,.84,8066,2,0)
21 ;;=^^1^1^2940314^
22 ;;^UTILITY(U,$J,.84,8066,2,1,0)
23 ;;=|1| List
24 ;;^UTILITY(U,$J,.84,8066,3,0)
25 ;;=^.845^1^1
26 ;;^UTILITY(U,$J,.84,8066,3,1,0)
27 ;;=1^Filename
28 ;;^UTILITY(U,$J,.84,8067,0)
29 ;;=8067^2^^5
30 ;;^UTILITY(U,$J,.84,8067,1,0)
31 ;;=^^1^1^2940314^
32 ;;^UTILITY(U,$J,.84,8067,1,1,0)
33 ;;=For list of Fields on Lookup
34 ;;^UTILITY(U,$J,.84,8067,2,0)
35 ;;=^^1^1^2940314^
36 ;;^UTILITY(U,$J,.84,8067,2,1,0)
37 ;;=, or
38 ;;^UTILITY(U,$J,.84,8068,0)
39 ;;=8068^2^^5
40 ;;^UTILITY(U,$J,.84,8068,1,0)
41 ;;=^^1^1^2940314^
42 ;;^UTILITY(U,$J,.84,8068,1,1,0)
43 ;;=The Chooser
44 ;;^UTILITY(U,$J,.84,8068,2,0)
45 ;;=^^1^1^2940314^
46 ;;^UTILITY(U,$J,.84,8068,2,1,0)
47 ;;=Choose from:
48 ;;^UTILITY(U,$J,.84,8069,0)
49 ;;=8069^2^y^5
50 ;;^UTILITY(U,$J,.84,8069,1,0)
51 ;;=^^1^1^2940314^
52 ;;^UTILITY(U,$J,.84,8069,1,1,0)
53 ;;=New entry allowed message
54 ;;^UTILITY(U,$J,.84,8069,2,0)
55 ;;=^^1^1^2940315^^
56 ;;^UTILITY(U,$J,.84,8069,2,1,0)
57 ;;=You may enter a new |1|, if you wish
58 ;;^UTILITY(U,$J,.84,8069,3,0)
59 ;;=^.845^1^1
60 ;;^UTILITY(U,$J,.84,8069,3,1,0)
61 ;;=1^Filename
62 ;;^UTILITY(U,$J,.84,8070,0)
63 ;;=8070^2^y^5
64 ;;^UTILITY(U,$J,.84,8070,1,0)
65 ;;=^^1^1^2940314^
66 ;;^UTILITY(U,$J,.84,8070,1,1,0)
67 ;;=Variable Pointer Lookup
68 ;;^UTILITY(U,$J,.84,8070,2,0)
69 ;;=^^1^1^2980304^
70 ;;^UTILITY(U,$J,.84,8070,2,1,0)
71 ;;= Searching for a |1|
72 ;;^UTILITY(U,$J,.84,8070,3,0)
73 ;;=^.845^1^1
74 ;;^UTILITY(U,$J,.84,8070,3,1,0)
75 ;;=1^Filename
76 ;;^UTILITY(U,$J,.84,8071,0)
77 ;;=8071^2^^5
78 ;;^UTILITY(U,$J,.84,8071,1,0)
79 ;;=^^1^1^2940314^
80 ;;^UTILITY(U,$J,.84,8071,1,1,0)
81 ;;=Variable Pointer lookup
82 ;;^UTILITY(U,$J,.84,8071,2,0)
83 ;;=^^1^1^2940314^
84 ;;^UTILITY(U,$J,.84,8071,2,1,0)
85 ;;=Enter one of the following:
86 ;;^UTILITY(U,$J,.84,8072,0)
87 ;;=8072^2^y^5
88 ;;^UTILITY(U,$J,.84,8072,1,0)
89 ;;=^^1^1^2940314^
90 ;;^UTILITY(U,$J,.84,8072,1,1,0)
91 ;;=Variable Pointer Lookup
92 ;;^UTILITY(U,$J,.84,8072,2,0)
93 ;;=^^1^1^2940314^
94 ;;^UTILITY(U,$J,.84,8072,2,1,0)
95 ;;= |1|.EntryName to select a |2|
96 ;;^UTILITY(U,$J,.84,8072,3,0)
97 ;;=^.845^2^2
98 ;;^UTILITY(U,$J,.84,8072,3,1,0)
99 ;;=1^Prefix
100 ;;^UTILITY(U,$J,.84,8072,3,2,0)
101 ;;=2^Filename
102 ;;^UTILITY(U,$J,.84,8073,0)
103 ;;=8073^2^^5
104 ;;^UTILITY(U,$J,.84,8073,1,0)
105 ;;=^^1^1^2940314^
106 ;;^UTILITY(U,$J,.84,8073,1,1,0)
107 ;;=Variable Pointer Lookup
108 ;;^UTILITY(U,$J,.84,8073,2,0)
109 ;;=^^1^1^2940314^
110 ;;^UTILITY(U,$J,.84,8073,2,1,0)
111 ;;=To see the entries in any particular file type <Prefix.?>
112 ;;^UTILITY(U,$J,.84,8074,0)
113 ;;=8074^2^^5
114 ;;^UTILITY(U,$J,.84,8074,1,0)
115 ;;=^^1^1^2940314^
116 ;;^UTILITY(U,$J,.84,8074,1,1,0)
117 ;;=How to call for help
118 ;;^UTILITY(U,$J,.84,8074,2,0)
119 ;;=^^1^1^2940314^
120 ;;^UTILITY(U,$J,.84,8074,2,1,0)
121 ;;=Press <PF1>H for help
122 ;;^UTILITY(U,$J,.84,8075,0)
123 ;;=8075^2^^5
124 ;;^UTILITY(U,$J,.84,8075,1,0)
125 ;;=^^1^1^2940524^^
126 ;;^UTILITY(U,$J,.84,8075,1,1,0)
127 ;;=Save changes question on form exit
128 ;;^UTILITY(U,$J,.84,8075,2,0)
129 ;;=^^1^1^2940524^^
130 ;;^UTILITY(U,$J,.84,8075,2,1,0)
131 ;;=Save changes before leaving form (Y/N)?
132 ;;^UTILITY(U,$J,.84,8076,0)
133 ;;=8076^2^^5
134 ;;^UTILITY(U,$J,.84,8076,1,0)
135 ;;=^^1^1^2940315^
136 ;;^UTILITY(U,$J,.84,8076,1,1,0)
137 ;;=Timeout
138 ;;^UTILITY(U,$J,.84,8076,2,0)
139 ;;=^^1^1^2940315^
140 ;;^UTILITY(U,$J,.84,8076,2,1,0)
141 ;;=Timed out.
142 ;;^UTILITY(U,$J,.84,8077,0)
143 ;;=8077^2^^5
144 ;;^UTILITY(U,$J,.84,8077,1,0)
145 ;;=^^1^1^2940315^
146 ;;^UTILITY(U,$J,.84,8077,1,1,0)
147 ;;=Changes not saved on leaving form
148 ;;^UTILITY(U,$J,.84,8077,2,0)
149 ;;=^^1^1^2940315^
150 ;;^UTILITY(U,$J,.84,8077,2,1,0)
151 ;;=Changes not saved!
152 ;;^UTILITY(U,$J,.84,8078,0)
153 ;;=8078^2^^5
154 ;;^UTILITY(U,$J,.84,8078,1,0)
155 ;;=^^1^1^2940316^
156 ;;^UTILITY(U,$J,.84,8078,1,1,0)
157 ;;=Wording for record
158 ;;^UTILITY(U,$J,.84,8078,2,0)
159 ;;=^^1^1^2940316^
160 ;;^UTILITY(U,$J,.84,8078,2,1,0)
161 ;;=record
162 ;;^UTILITY(U,$J,.84,8079,0)
163 ;;=8079^2^^5
164 ;;^UTILITY(U,$J,.84,8079,1,0)
165 ;;=^^1^1^2940316^
166 ;;^UTILITY(U,$J,.84,8079,1,1,0)
167 ;;=Wording for Subrecord
168 ;;^UTILITY(U,$J,.84,8079,2,0)
169 ;;=^^1^1^2940316^
170 ;;^UTILITY(U,$J,.84,8079,2,1,0)
171 ;;=Subrecord
172 ;;^UTILITY(U,$J,.84,8080,0)
173 ;;=8080^2^y^5
174 ;;^UTILITY(U,$J,.84,8080,1,0)
175 ;;=^^1^1^2940316^
176 ;;^UTILITY(U,$J,.84,8080,1,1,0)
177 ;;=Warning for immediate deletion of entries.
178 ;;^UTILITY(U,$J,.84,8080,2,0)
179 ;;=^^3^3^2940316^
180 ;;^UTILITY(U,$J,.84,8080,2,1,0)
181 ;;= WARNING: DELETIONS ARE DONE IMMEDIATELY!
182 ;;^UTILITY(U,$J,.84,8080,2,2,0)
183 ;;= (EXITING WITHOUT SAVING WILL NOT RESTORE DELETED RECORDS.)
184 ;;^UTILITY(U,$J,.84,8080,2,3,0)
185 ;;=Are you sure you want to delete this entire |1| (Y/N)?
186 ;;^UTILITY(U,$J,.84,8080,3,0)
187 ;;=^.845^1^1
188 ;;^UTILITY(U,$J,.84,8080,3,1,0)
189 ;;=1^Record or Subrecord
190 ;;^UTILITY(U,$J,.84,8081,0)
191 ;;=8081^2^y^5
192 ;;^UTILITY(U,$J,.84,8081,1,0)
193 ;;=^^1^1^2940316^
194 ;;^UTILITY(U,$J,.84,8081,1,1,0)
195 ;;=Choose from-to dialog
196 ;;^UTILITY(U,$J,.84,8081,2,0)
197 ;;=^^1^1^2940316^^
198 ;;^UTILITY(U,$J,.84,8081,2,1,0)
199 ;;=Choose |1| or '^' to quit:
200 ;;^UTILITY(U,$J,.84,8081,3,0)
201 ;;=^.845^1^1
202 ;;^UTILITY(U,$J,.84,8081,3,1,0)
203 ;;=1^Number range for selection
204 ;;^UTILITY(U,$J,.84,8082,0)
205 ;;=8082^2^^5
206 ;;^UTILITY(U,$J,.84,8082,1,0)
207 ;;=^^2^2^2940318^^^^
208 ;;^UTILITY(U,$J,.84,8082,1,1,0)
209 ;;=Used to build error prompts in the TRANSFER/MERGE routine ^DIT3. Could be
210 ;;^UTILITY(U,$J,.84,8082,1,2,0)
211 ;;=used elsewhere, however, so I didn't put it into the ERROR category.
212 ;;^UTILITY(U,$J,.84,8082,2,0)
213 ;;=^^1^1^2940318^
214 ;;^UTILITY(U,$J,.84,8082,2,1,0)
215 ;;=Transfer FROM
216 ;;^UTILITY(U,$J,.84,8082,5,0)
217 ;;=^.841^1^1
218 ;;^UTILITY(U,$J,.84,8082,5,1,0)
219 ;;=DIT^TRNMRG
220 ;;^UTILITY(U,$J,.84,8083,0)
221 ;;=8083^2^^5
222 ;;^UTILITY(U,$J,.84,8083,1,0)
223 ;;=^^2^2^2940318^^^^
224 ;;^UTILITY(U,$J,.84,8083,1,1,0)
225 ;;=Used to build error prompts in the TRANSFER/MERGE routine ^DIT3. Could be
226 ;;^UTILITY(U,$J,.84,8083,1,2,0)
227 ;;=used elsewhere, however, so I didn't put it into the ERROR category.
228 ;;^UTILITY(U,$J,.84,8083,2,0)
229 ;;=^^1^1^2940318^
230 ;;^UTILITY(U,$J,.84,8083,2,1,0)
231 ;;=Transfer TO
232 ;;^UTILITY(U,$J,.84,8083,5,0)
233 ;;=^.841^1^1
234 ;;^UTILITY(U,$J,.84,8083,5,1,0)
235 ;;=DIT^TRNMRG
236 ;;^UTILITY(U,$J,.84,8084,0)
237 ;;=8084^2^^5
238 ;;^UTILITY(U,$J,.84,8084,1,0)
239 ;;=^^1^1^2940318^
240 ;;^UTILITY(U,$J,.84,8084,1,1,0)
241 ;;=The words 'file number' to be used in any dialog.
Note: See TracBrowser for help on using the repository browser.