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

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

initial load of WorldVistAEHR
File size: 6.7 KB
RevLine 
[613]1DINIT00J ; 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,8044,1,0)
7 ;;=^^1^1^2940314^^
8 ;;^UTILITY(U,$J,.84,8044,1,1,0)
9 ;;=Used for time input to the reader.
10 ;;^UTILITY(U,$J,.84,8044,2,0)
11 ;;=^^1^1^2940314^^
12 ;;^UTILITY(U,$J,.84,8044,2,1,0)
13 ;;= and optional time
14 ;;^UTILITY(U,$J,.84,8045,0)
15 ;;=8045^2^y^5
16 ;;^UTILITY(U,$J,.84,8045,1,0)
17 ;;=^^3^3^2940310^^^^
18 ;;^UTILITY(U,$J,.84,8045,1,1,0)
19 ;;=This prompt is used by the reader when he is building prompts for
20 ;;^UTILITY(U,$J,.84,8045,1,2,0)
21 ;;=Set-of-codes type data.
22 ;;^UTILITY(U,$J,.84,8045,1,3,0)
23 ;;=Note: Dialog will be used with $$EZBLD^DIALOG call, only one text line!!
24 ;;^UTILITY(U,$J,.84,8045,2,0)
25 ;;=^^1^1^2940310^^^
26 ;;^UTILITY(U,$J,.84,8045,2,1,0)
27 ;;=Enter |1|:
28 ;;^UTILITY(U,$J,.84,8045,3,0)
29 ;;=^.845^1^1
30 ;;^UTILITY(U,$J,.84,8045,3,1,0)
31 ;;=1^Default Prompt from DIR("A")
32 ;;^UTILITY(U,$J,.84,8046,0)
33 ;;=8046^2^^5
34 ;;^UTILITY(U,$J,.84,8046,1,0)
35 ;;=^^1^1^2960124^^
36 ;;^UTILITY(U,$J,.84,8046,1,1,0)
37 ;;=Reader prompt for choices from a list
38 ;;^UTILITY(U,$J,.84,8046,2,0)
39 ;;=^^1^1^2960124^^^
40 ;;^UTILITY(U,$J,.84,8046,2,1,0)
41 ;;=Select one of the following:
42 ;;^UTILITY(U,$J,.84,8047,0)
43 ;;=8047^2^^5
44 ;;^UTILITY(U,$J,.84,8047,1,0)
45 ;;=^^1^1^2940315^^^^
46 ;;^UTILITY(U,$J,.84,8047,1,1,0)
47 ;;=Part one of the Replace with prompt (including spaces).
48 ;;^UTILITY(U,$J,.84,8047,2,0)
49 ;;=^^1^1^2940315^^^^
50 ;;^UTILITY(U,$J,.84,8047,2,1,0)
51 ;;= Replace
52 ;;^UTILITY(U,$J,.84,8048,0)
53 ;;=8048^2^^5
54 ;;^UTILITY(U,$J,.84,8048,1,0)
55 ;;=^^1^1^2940310^
56 ;;^UTILITY(U,$J,.84,8048,1,1,0)
57 ;;=Part two of the Replace With editor (including spaces).
58 ;;^UTILITY(U,$J,.84,8048,2,0)
59 ;;=^^1^1^2940310^
60 ;;^UTILITY(U,$J,.84,8048,2,1,0)
61 ;;= With
62 ;;^UTILITY(U,$J,.84,8050,0)
63 ;;=8050^2^^5
64 ;;^UTILITY(U,$J,.84,8050,1,0)
65 ;;=^^2^2^2971125^
66 ;;^UTILITY(U,$J,.84,8050,1,1,0)
67 ;;=Print the word 'Another' when prompting user to select another entry in
68 ;;^UTILITY(U,$J,.84,8050,1,2,0)
69 ;;=Inquire mode.
70 ;;^UTILITY(U,$J,.84,8050,2,0)
71 ;;=^^1^1^2971125^
72 ;;^UTILITY(U,$J,.84,8050,2,1,0)
73 ;;=Another
74 ;;^UTILITY(U,$J,.84,8050,5,0)
75 ;;=^.841^1^1
76 ;;^UTILITY(U,$J,.84,8050,5,1,0)
77 ;;=DIC11^GETPRMT
78 ;;^UTILITY(U,$J,.84,8051,0)
79 ;;=8051^2^^5
80 ;;^UTILITY(U,$J,.84,8051,1,0)
81 ;;=^^1^1^2940310^
82 ;;^UTILITY(U,$J,.84,8051,1,1,0)
83 ;;=Reader prompt
84 ;;^UTILITY(U,$J,.84,8051,2,0)
85 ;;=^^1^1^2940310^
86 ;;^UTILITY(U,$J,.84,8051,2,1,0)
87 ;;=Enter response:
88 ;;^UTILITY(U,$J,.84,8052,0)
89 ;;=8052^2^^5
90 ;;^UTILITY(U,$J,.84,8052,1,0)
91 ;;=^^1^1^2940310^
92 ;;^UTILITY(U,$J,.84,8052,1,1,0)
93 ;;=Prompt for the reader
94 ;;^UTILITY(U,$J,.84,8052,2,0)
95 ;;=^^1^1^2940310^
96 ;;^UTILITY(U,$J,.84,8052,2,1,0)
97 ;;=Enter Yes or No:
98 ;;^UTILITY(U,$J,.84,8053,0)
99 ;;=8053^2^^5
100 ;;^UTILITY(U,$J,.84,8053,1,0)
101 ;;=^^1^1^2940316^^
102 ;;^UTILITY(U,$J,.84,8053,1,1,0)
103 ;;=Prompt for the reader: End of page
104 ;;^UTILITY(U,$J,.84,8053,2,0)
105 ;;=^^1^1^2940316^^
106 ;;^UTILITY(U,$J,.84,8053,2,1,0)
107 ;;=Enter RETURN to continue or '^' to exit:
108 ;;^UTILITY(U,$J,.84,8054,0)
109 ;;=8054^2^^5
110 ;;^UTILITY(U,$J,.84,8054,1,0)
111 ;;=^^1^1^2940310^^
112 ;;^UTILITY(U,$J,.84,8054,1,1,0)
113 ;;=Prompt for the reader: numbers
114 ;;^UTILITY(U,$J,.84,8054,2,0)
115 ;;=^^1^1^2940310^^
116 ;;^UTILITY(U,$J,.84,8054,2,1,0)
117 ;;=Enter a number
118 ;;^UTILITY(U,$J,.84,8055,0)
119 ;;=8055^2^^5
120 ;;^UTILITY(U,$J,.84,8055,1,0)
121 ;;=^^1^1^2940310^
122 ;;^UTILITY(U,$J,.84,8055,1,1,0)
123 ;;=Prompt for the reader: date
124 ;;^UTILITY(U,$J,.84,8055,2,0)
125 ;;=^^1^1^2940310^
126 ;;^UTILITY(U,$J,.84,8055,2,1,0)
127 ;;=Enter a date
128 ;;^UTILITY(U,$J,.84,8056,0)
129 ;;=8056^2^^5
130 ;;^UTILITY(U,$J,.84,8056,1,0)
131 ;;=^^1^1^2940310^
132 ;;^UTILITY(U,$J,.84,8056,1,1,0)
133 ;;=Prompt for the reader: List
134 ;;^UTILITY(U,$J,.84,8056,2,0)
135 ;;=^^1^1^2940310^
136 ;;^UTILITY(U,$J,.84,8056,2,1,0)
137 ;;=Enter a list or range of numbers
138 ;;^UTILITY(U,$J,.84,8057,0)
139 ;;=8057^2^^5
140 ;;^UTILITY(U,$J,.84,8057,1,0)
141 ;;=^^1^1^2940310^
142 ;;^UTILITY(U,$J,.84,8057,1,1,0)
143 ;;=Prompt for the Reader: Pointers
144 ;;^UTILITY(U,$J,.84,8057,2,0)
145 ;;=^^1^1^2940310^
146 ;;^UTILITY(U,$J,.84,8057,2,1,0)
147 ;;=Select:
148 ;;^UTILITY(U,$J,.84,8058,0)
149 ;;=8058^2^y^5
150 ;;^UTILITY(U,$J,.84,8058,1,0)
151 ;;=^^1^1^2940314^
152 ;;^UTILITY(U,$J,.84,8058,1,1,0)
153 ;;=Part II of the 'Are you adding a new...' question
154 ;;^UTILITY(U,$J,.84,8058,2,0)
155 ;;=^^1^1^2940314^
156 ;;^UTILITY(U,$J,.84,8058,2,1,0)
157 ;;= (the |1|
158 ;;^UTILITY(U,$J,.84,8058,3,0)
159 ;;=^.845^1^1
160 ;;^UTILITY(U,$J,.84,8058,3,1,0)
161 ;;=1^Ordinal number of new entry
162 ;;^UTILITY(U,$J,.84,8059,0)
163 ;;=8059^2^y^5
164 ;;^UTILITY(U,$J,.84,8059,1,0)
165 ;;=^^1^1^2940314^
166 ;;^UTILITY(U,$J,.84,8059,1,1,0)
167 ;;=Part III of the 'Are you adding a new...' question
168 ;;^UTILITY(U,$J,.84,8059,2,0)
169 ;;=^^1^1^2940314^
170 ;;^UTILITY(U,$J,.84,8059,2,1,0)
171 ;;= for this |1|
172 ;;^UTILITY(U,$J,.84,8059,3,0)
173 ;;=^.845^1^1
174 ;;^UTILITY(U,$J,.84,8059,3,1,0)
175 ;;=1^Filename
176 ;;^UTILITY(U,$J,.84,8060,0)
177 ;;=8060^2^^5
178 ;;^UTILITY(U,$J,.84,8060,1,0)
179 ;;=^^1^1^2940314^^
180 ;;^UTILITY(U,$J,.84,8060,1,1,0)
181 ;;=Part Ia of the 'Are you adding...' message
182 ;;^UTILITY(U,$J,.84,8060,2,0)
183 ;;=^^1^1^2940314^^
184 ;;^UTILITY(U,$J,.84,8060,2,1,0)
185 ;;= Are you adding
186 ;;^UTILITY(U,$J,.84,8061,0)
187 ;;=8061^2^y^5
188 ;;^UTILITY(U,$J,.84,8061,1,0)
189 ;;=^^1^1^2940314^
190 ;;^UTILITY(U,$J,.84,8061,1,1,0)
191 ;;=Part Ib of the 'Are you adding...' question
192 ;;^UTILITY(U,$J,.84,8061,2,0)
193 ;;=^^1^1^2940314^
194 ;;^UTILITY(U,$J,.84,8061,2,1,0)
195 ;;='|1|' as
196 ;;^UTILITY(U,$J,.84,8061,3,0)
197 ;;=^.845^1^1
198 ;;^UTILITY(U,$J,.84,8061,3,1,0)
199 ;;=1^Input value for .01 field
200 ;;^UTILITY(U,$J,.84,8062,0)
201 ;;=8062^2^y^5
202 ;;^UTILITY(U,$J,.84,8062,1,0)
203 ;;=^^1^1^2940314^^^
204 ;;^UTILITY(U,$J,.84,8062,1,1,0)
205 ;;=Part Ic of the "Are you adding..." message
206 ;;^UTILITY(U,$J,.84,8062,2,0)
207 ;;=^^1^1^2940314^^^^
208 ;;^UTILITY(U,$J,.84,8062,2,1,0)
209 ;;=a new |1|
210 ;;^UTILITY(U,$J,.84,8062,3,0)
211 ;;=^.845^1^1
212 ;;^UTILITY(U,$J,.84,8062,3,1,0)
213 ;;=1^Filename
214 ;;^UTILITY(U,$J,.84,8063,0)
215 ;;=8063^2^y^5
216 ;;^UTILITY(U,$J,.84,8063,1,0)
217 ;;=^^1^1^2940314^
218 ;;^UTILITY(U,$J,.84,8063,1,1,0)
219 ;;=Lookup Part I
220 ;;^UTILITY(U,$J,.84,8063,2,0)
221 ;;=^^1^1^2940314^
222 ;;^UTILITY(U,$J,.84,8063,2,1,0)
223 ;;= Answer with |1|
224 ;;^UTILITY(U,$J,.84,8063,3,0)
225 ;;=^.845^1^1
226 ;;^UTILITY(U,$J,.84,8063,3,1,0)
227 ;;=1^Filename
228 ;;^UTILITY(U,$J,.84,8064,0)
229 ;;=8064^2^^5
230 ;;^UTILITY(U,$J,.84,8064,1,0)
231 ;;=^^1^1^2940314^
232 ;;^UTILITY(U,$J,.84,8064,1,1,0)
233 ;;=Lookup Part II
234 ;;^UTILITY(U,$J,.84,8064,2,0)
235 ;;=^^1^1^2940314^
236 ;;^UTILITY(U,$J,.84,8064,2,1,0)
237 ;;= Do you want the entire
238 ;;^UTILITY(U,$J,.84,8065,0)
239 ;;=8065^2^y^5
240 ;;^UTILITY(U,$J,.84,8065,1,0)
241 ;;=^^1^1^2940314^^
242 ;;^UTILITY(U,$J,.84,8065,1,1,0)
243 ;;=Lookup Part III
Note: See TracBrowser for help on using the repository browser.