source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT00O.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 7.9 KB
Line 
1DINIT00O ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;3:18 PM 25 May 2001
2 ;;22.0;VA FileMan;**85**;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,9041,2,1,0)
7 ;;=
8 ;;^UTILITY(U,$J,.84,9041,2,2,0)
9 ;;=Enter 'NO' to compare and display the two entries.
10 ;;^UTILITY(U,$J,.84,9041,2,3,0)
11 ;;=Enter 'YES' to choose valid fields from each entry then merge into the
12 ;;^UTILITY(U,$J,.84,9041,2,4,0)
13 ;;=record selected as the default.
14 ;;^UTILITY(U,$J,.84,9041,2,5,0)
15 ;;=
16 ;;^UTILITY(U,$J,.84,9041,2,6,0)
17 ;;=If you merge two entries within a file that is pointed-to by many other
18 ;;^UTILITY(U,$J,.84,9041,2,7,0)
19 ;;=files (such as the PATIENT file), then the re-pointing process can be time
20 ;;^UTILITY(U,$J,.84,9041,2,8,0)
21 ;;=consuming and can create many tasked jobs.
22 ;;^UTILITY(U,$J,.84,9101,0)
23 ;;=9101^3^^5
24 ;;^UTILITY(U,$J,.84,9101,1,0)
25 ;;=^^1^1^2930810^
26 ;;^UTILITY(U,$J,.84,9101,1,1,0)
27 ;;=The "CHOOSE FROM:" prompt.
28 ;;^UTILITY(U,$J,.84,9101,2,0)
29 ;;=^^1^1^2930908^^
30 ;;^UTILITY(U,$J,.84,9101,2,1,0)
31 ;;=Choose from:
32 ;;^UTILITY(U,$J,.84,9103,0)
33 ;;=9103^3^^5
34 ;;^UTILITY(U,$J,.84,9103,1,0)
35 ;;=^^2^2^2930810^^
36 ;;^UTILITY(U,$J,.84,9103,1,1,0)
37 ;;=First line of Variable Pointer help that shows the Prefixes and Messages
38 ;;^UTILITY(U,$J,.84,9103,1,2,0)
39 ;;=for a field.
40 ;;^UTILITY(U,$J,.84,9103,2,0)
41 ;;=^^1^1^2930810^
42 ;;^UTILITY(U,$J,.84,9103,2,1,0)
43 ;;=Enter one of the following:
44 ;;^UTILITY(U,$J,.84,9105,0)
45 ;;=9105^3^y^5
46 ;;^UTILITY(U,$J,.84,9105,1,0)
47 ;;=^^2^2^2931229^
48 ;;^UTILITY(U,$J,.84,9105,1,1,0)
49 ;;=The beginning of the help text used to give list of fields that can
50 ;;^UTILITY(U,$J,.84,9105,1,2,0)
51 ;;=be used for a look-up.
52 ;;^UTILITY(U,$J,.84,9105,2,0)
53 ;;=^^1^1^2931229^
54 ;;^UTILITY(U,$J,.84,9105,2,1,0)
55 ;;=Answer with |1|.
56 ;;^UTILITY(U,$J,.84,9105,3,0)
57 ;;=^.845^1^1
58 ;;^UTILITY(U,$J,.84,9105,3,1,0)
59 ;;=1^File name and list of fields that can be used for look-up.
60 ;;^UTILITY(U,$J,.84,9105,5,0)
61 ;;=^.841^1^1
62 ;;^UTILITY(U,$J,.84,9105,5,1,0)
63 ;;=DIE^HELP
64 ;;^UTILITY(U,$J,.84,9107,0)
65 ;;=9107^3^y^5
66 ;;^UTILITY(U,$J,.84,9107,1,0)
67 ;;=^^1^1^2940513^
68 ;;^UTILITY(U,$J,.84,9107,1,1,0)
69 ;;=LAYGO allowed.
70 ;;^UTILITY(U,$J,.84,9107,2,0)
71 ;;=^^1^1^2940513^
72 ;;^UTILITY(U,$J,.84,9107,2,1,0)
73 ;;=You may enter a new |1| if you wish.
74 ;;^UTILITY(U,$J,.84,9107,3,0)
75 ;;=^.845^1^1
76 ;;^UTILITY(U,$J,.84,9107,3,1,0)
77 ;;=1^File Name.
78 ;;^UTILITY(U,$J,.84,9110,0)
79 ;;=9110^3^y^5
80 ;;^UTILITY(U,$J,.84,9110,1,0)
81 ;;=^^1^1^2990323^^^^
82 ;;^UTILITY(U,$J,.84,9110,1,1,0)
83 ;;=Instructions for entering date data.
84 ;;^UTILITY(U,$J,.84,9110,2,0)
85 ;;=^^7^7^2990323^^^
86 ;;^UTILITY(U,$J,.84,9110,2,1,0)
87 ;;=Examples of Valid Dates:
88 ;;^UTILITY(U,$J,.84,9110,2,2,0)
89 ;;= JAN 20 1957 or 20 JAN 57 or 1/20/57 |1|
90 ;;^UTILITY(U,$J,.84,9110,2,3,0)
91 ;;= T (for TODAY), T+1 (for TOMORROW), T+2, T+7, etc.
92 ;;^UTILITY(U,$J,.84,9110,2,4,0)
93 ;;= T-1 (for YESTERDAY), T-3W (for 3 WEEKS AGO), etc.
94 ;;^UTILITY(U,$J,.84,9110,2,5,0)
95 ;;=If the year is omitted, the computer |2|
96 ;;^UTILITY(U,$J,.84,9110,2,6,0)
97 ;;=|3|
98 ;;^UTILITY(U,$J,.84,9110,2,7,0)
99 ;;=|4|
100 ;;^UTILITY(U,$J,.84,9110,3,0)
101 ;;=^.845^4^4
102 ;;^UTILITY(U,$J,.84,9110,3,1,0)
103 ;;=1^If numeric dates are allowed, " or 012057" is written.
104 ;;^UTILITY(U,$J,.84,9110,3,2,0)
105 ;;=2^Conditionally, indicates if past, future, or current year is assumed.
106 ;;^UTILITY(U,$J,.84,9110,3,3,0)
107 ;;=3^Conditionally indicates the way FileMan determines century to use if 2 digit year is provided, or indicates that day is not needed if past or future year assumed.
108 ;;^UTILITY(U,$J,.84,9110,3,4,0)
109 ;;=4^Conditionally, indicates that day is not needed (unless past or future date is assumed, in which case this information goes into parameter 3).
110 ;;^UTILITY(U,$J,.84,9110,5,0)
111 ;;=^.841^1^1
112 ;;^UTILITY(U,$J,.84,9110,5,1,0)
113 ;;=DIEH1^DT
114 ;;^UTILITY(U,$J,.84,9110.7,0)
115 ;;=9110.7^3^y^5^Instructions for entering date data.
116 ;;^UTILITY(U,$J,.84,9110.7,1,0)
117 ;;=^.842^1^1^3010525^^^^
118 ;;^UTILITY(U,$J,.84,9110.7,1,1,0)
119 ;;=Instructions for entering date data, when the "M" flag is used.
120 ;;^UTILITY(U,$J,.84,9110.7,2,0)
121 ;;=^.844^8^8^3010525^^^
122 ;;^UTILITY(U,$J,.84,9110.7,2,1,0)
123 ;;=Examples of Valid Dates:
124 ;;^UTILITY(U,$J,.84,9110.7,2,2,0)
125 ;;= JAN 1957 or JAN 57 |1|
126 ;;^UTILITY(U,$J,.84,9110.7,2,3,0)
127 ;;= T (for this month)
128 ;;^UTILITY(U,$J,.84,9110.7,2,4,0)
129 ;;= T+3M (for 3 months in the future)
130 ;;^UTILITY(U,$J,.84,9110.7,2,5,0)
131 ;;= T-3M (for 3 months ago)
132 ;;^UTILITY(U,$J,.84,9110.7,2,6,0)
133 ;;=Only month and year are accepted. You must omit the precise day.
134 ;;^UTILITY(U,$J,.84,9110.7,2,7,0)
135 ;;=If the year is omitted, the computer |2|
136 ;;^UTILITY(U,$J,.84,9110.7,2,8,0)
137 ;;=|3|
138 ;;^UTILITY(U,$J,.84,9110.7,3,0)
139 ;;=^.845^3^3
140 ;;^UTILITY(U,$J,.84,9110.7,3,1,0)
141 ;;=1^If numeric dates are allowed, " or 0157" is written.
142 ;;^UTILITY(U,$J,.84,9110.7,3,2,0)
143 ;;=2^Conditionally, indicates if past, future, or current year is assumed.
144 ;;^UTILITY(U,$J,.84,9110.7,3,3,0)
145 ;;=3^Conditionally indicates the way FileMan determines century to use if 2 digit year is provided.
146 ;;^UTILITY(U,$J,.84,9110.7,5,0)
147 ;;=^.841^1^1
148 ;;^UTILITY(U,$J,.84,9110.7,5,1,0)
149 ;;=DIEH1^DT
150 ;;^UTILITY(U,$J,.84,9111,0)
151 ;;=9111^3^y^5
152 ;;^UTILITY(U,$J,.84,9111,1,0)
153 ;;=^^1^1^2930806^
154 ;;^UTILITY(U,$J,.84,9111,1,1,0)
155 ;;=Instructions for entering time data.
156 ;;^UTILITY(U,$J,.84,9111,2,0)
157 ;;=^^5^5^2931104^^
158 ;;^UTILITY(U,$J,.84,9111,2,1,0)
159 ;;=If the date is omitted, the current date is assumed.
160 ;;^UTILITY(U,$J,.84,9111,2,2,0)
161 ;;=Follow the date with a time, such as JAN 20@10, T@10AM, 10:30, etc.
162 ;;^UTILITY(U,$J,.84,9111,2,3,0)
163 ;;=You may enter NOON, MIDNIGHT, or NOW to indicate the time.
164 ;;^UTILITY(U,$J,.84,9111,2,4,0)
165 ;;=|1|
166 ;;^UTILITY(U,$J,.84,9111,2,5,0)
167 ;;=|2|
168 ;;^UTILITY(U,$J,.84,9111,3,0)
169 ;;=^.845^2^2
170 ;;^UTILITY(U,$J,.84,9111,3,1,0)
171 ;;=1^Conditionally, give instructions for entering seconds.
172 ;;^UTILITY(U,$J,.84,9111,3,2,0)
173 ;;=2^Conditionally, state that time is required.
174 ;;^UTILITY(U,$J,.84,9115,0)
175 ;;=9115^3^^5
176 ;;^UTILITY(U,$J,.84,9115,1,0)
177 ;;=^^1^1^2930810^
178 ;;^UTILITY(U,$J,.84,9115,1,1,0)
179 ;;=The short help for variable pointers.
180 ;;^UTILITY(U,$J,.84,9115,2,0)
181 ;;=^^1^1^2930810^
182 ;;^UTILITY(U,$J,.84,9115,2,1,0)
183 ;;=To see the entries in any particular file, type <Prefix.?>.
184 ;;^UTILITY(U,$J,.84,9116,0)
185 ;;=9116^3^^5
186 ;;^UTILITY(U,$J,.84,9116,1,0)
187 ;;=^^1^1^2930810^
188 ;;^UTILITY(U,$J,.84,9116,1,1,0)
189 ;;=Long help for variable pointers.
190 ;;^UTILITY(U,$J,.84,9116,2,0)
191 ;;=^^15^15^2930810^
192 ;;^UTILITY(U,$J,.84,9116,2,1,0)
193 ;;=If you enter just a name, the system will search each of the
194 ;;^UTILITY(U,$J,.84,9116,2,2,0)
195 ;;=above files for the name you have entered. If a match is found,
196 ;;^UTILITY(U,$J,.84,9116,2,3,0)
197 ;;=the system will ask you if it is the entry you desire.
198 ;;^UTILITY(U,$J,.84,9116,2,4,0)
199 ;;=
200 ;;^UTILITY(U,$J,.84,9116,2,5,0)
201 ;;=However, if you know the file the entry should be in, you can
202 ;;^UTILITY(U,$J,.84,9116,2,6,0)
203 ;;=speed processing by using the following syntax to select an entry:
204 ;;^UTILITY(U,$J,.84,9116,2,7,0)
205 ;;=
206 ;;^UTILITY(U,$J,.84,9116,2,8,0)
207 ;;= <Prefix>.<entry name>
208 ;;^UTILITY(U,$J,.84,9116,2,9,0)
209 ;;= or
210 ;;^UTILITY(U,$J,.84,9116,2,10,0)
211 ;;= <Message>.<entry name>
212 ;;^UTILITY(U,$J,.84,9116,2,11,0)
213 ;;= or
214 ;;^UTILITY(U,$J,.84,9116,2,12,0)
215 ;;= <File Name>.<entry name>
216 ;;^UTILITY(U,$J,.84,9116,2,13,0)
217 ;;=
218 ;;^UTILITY(U,$J,.84,9116,2,14,0)
219 ;;=You do not need to enter the entire file name or message.
220 ;;^UTILITY(U,$J,.84,9116,2,15,0)
221 ;;=The first few characters will suffice.
222 ;;^UTILITY(U,$J,.84,9117,0)
223 ;;=9117^3^y^5
224 ;;^UTILITY(U,$J,.84,9117,1,0)
225 ;;=^^1^1^2930810^^
226 ;;^UTILITY(U,$J,.84,9117,1,1,0)
227 ;;=Variable pointer help - prefix and message.
228 ;;^UTILITY(U,$J,.84,9117,2,0)
229 ;;=^^1^1^2930810^^^
230 ;;^UTILITY(U,$J,.84,9117,2,1,0)
231 ;;=|1|.EntryName to select a |2|.
232 ;;^UTILITY(U,$J,.84,9117,3,0)
233 ;;=^.845^2^2
Note: See TracBrowser for help on using the repository browser.