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

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

initial load of WorldVistAEHR
File size: 7.7 KB
Line 
1DINIT00G ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;21FEB2005
2 ;;22.0;VA FileMan;**144**;Mar 30, 1999;Build 5
3 ;Per VHA Directive 2004-038, 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,8008,2,1,0)
7 ;;=Heading (S/C)
8 ;;^UTILITY(U,$J,.84,8008,5,0)
9 ;;=^.841^2^2
10 ;;^UTILITY(U,$J,.84,8008,5,1,0)
11 ;;=DIP^EN1
12 ;;^UTILITY(U,$J,.84,8008,5,2,0)
13 ;;=DIS^ENS
14 ;;^UTILITY(U,$J,.84,8004.1,0)
15 ;;=8004.1^3^^13^HELP FOR ONE SEARCH CRITERION ('A')
16 ;;^UTILITY(U,$J,.84,8004.1,2,0)
17 ;;=^.844^3^3^3050131^^
18 ;;^UTILITY(U,$J,.84,8004.1,2,1,0)
19 ;;=To search on the condition you have just typed, hit 'Enter'.
20 ;;^UTILITY(U,$J,.84,8004.1,2,2,0)
21 ;;=To search for the NEGATIVE of the condition,
22 ;;^UTILITY(U,$J,.84,8004.1,2,3,0)
23 ;;=type "'A". The "'" character means "negation".
24 ;;^UTILITY(U,$J,.84,8004.1,5,0)
25 ;;=^.841^1^1
26 ;;^UTILITY(U,$J,.84,8004.1,5,1,0)
27 ;;=DIS0^BAD+1
28 ;;^UTILITY(U,$J,.84,8004.2,0)
29 ;;=8004.2^3^^13^HELP AFTER 'IF: ' FOR MULTIPLE CONDITIONS
30 ;;^UTILITY(U,$J,.84,8004.2,2,0)
31 ;;=^^3^3^3050131^
32 ;;^UTILITY(U,$J,.84,8004.2,2,1,0)
33 ;;=To 'AND' Condition 'A' with Condition 'B', type 'A&B'.
34 ;;^UTILITY(U,$J,.84,8004.2,2,2,0)
35 ;;=To 'OR' Condition 'A' with Condition 'B', type 'A',
36 ;;^UTILITY(U,$J,.84,8004.2,2,3,0)
37 ;;=and then type 'B' at the next "OR:" prompt.
38 ;;^UTILITY(U,$J,.84,8004.2,5,0)
39 ;;=^.841^1^1
40 ;;^UTILITY(U,$J,.84,8004.2,5,1,0)
41 ;;=DIS0^BAD+1
42 ;;^UTILITY(U,$J,.84,8009,0)
43 ;;=8009^2^^5
44 ;;^UTILITY(U,$J,.84,8009,1,0)
45 ;;=^^2^2^2940908^^^^
46 ;;^UTILITY(U,$J,.84,8009,1,1,0)
47 ;;=This is the normal help message given if user enters a question mark when
48 ;;^UTILITY(U,$J,.84,8009,1,2,0)
49 ;;=being prompted for the HEADER during a FileMan print.
50 ;;^UTILITY(U,$J,.84,8009,2,0)
51 ;;=^^3^3^2940908^
52 ;;^UTILITY(U,$J,.84,8009,2,1,0)
53 ;;=Accept default heading or enter a custom heading.
54 ;;^UTILITY(U,$J,.84,8009,2,2,0)
55 ;;=For no heading at all, type @.
56 ;;^UTILITY(U,$J,.84,8009,2,3,0)
57 ;;=To use a Print Template for the heading, type [TEMPLATE NAME].
58 ;;^UTILITY(U,$J,.84,8009,5,0)
59 ;;=^.841^2^2
60 ;;^UTILITY(U,$J,.84,8009,5,1,0)
61 ;;=DIP^EN1
62 ;;^UTILITY(U,$J,.84,8009,5,2,0)
63 ;;=DIS^ENS
64 ;;^UTILITY(U,$J,.84,8010,0)
65 ;;=8010^2^y^5
66 ;;^UTILITY(U,$J,.84,8010,1,0)
67 ;;=^^1^1^2931102^^^^
68 ;;^UTILITY(U,$J,.84,8010,1,1,0)
69 ;;=Print dialog coming from routine ^DIP31.
70 ;;^UTILITY(U,$J,.84,8010,2,0)
71 ;;=^^1^1^2931102^
72 ;;^UTILITY(U,$J,.84,8010,2,1,0)
73 ;;=** Suppress the |1|.
74 ;;^UTILITY(U,$J,.84,8010,3,0)
75 ;;=^.845^1^1
76 ;;^UTILITY(U,$J,.84,8010,3,1,0)
77 ;;=1^Text from either entry #8006 or #8007, depending on whether it's called from the SEARCH or PRINT Options.
78 ;;^UTILITY(U,$J,.84,8010,5,0)
79 ;;=^.841^2^2
80 ;;^UTILITY(U,$J,.84,8010,5,1,0)
81 ;;=DIP^EN1
82 ;;^UTILITY(U,$J,.84,8010,5,2,0)
83 ;;=DIS^ENS
84 ;;^UTILITY(U,$J,.84,8011,0)
85 ;;=8011^2^y^5
86 ;;^UTILITY(U,$J,.84,8011,1,0)
87 ;;=^^1^1^2940526^^^^
88 ;;^UTILITY(U,$J,.84,8011,1,1,0)
89 ;;=Dialog coming from routine ^DIP31
90 ;;^UTILITY(U,$J,.84,8011,2,0)
91 ;;=^^1^1^2940526^
92 ;;^UTILITY(U,$J,.84,8011,2,1,0)
93 ;;=** print |1| Criteria in heading.
94 ;;^UTILITY(U,$J,.84,8011,3,0)
95 ;;=^.845^1^1
96 ;;^UTILITY(U,$J,.84,8011,3,1,0)
97 ;;=1^The word SORT or SEARCH, depending on which option we're coming from.
98 ;;^UTILITY(U,$J,.84,8011,5,0)
99 ;;=^.841^2^2
100 ;;^UTILITY(U,$J,.84,8011,5,1,0)
101 ;;=DIP^EN1
102 ;;^UTILITY(U,$J,.84,8011,5,2,0)
103 ;;=DIS^ENS
104 ;;^UTILITY(U,$J,.84,8012,0)
105 ;;=8012^2^^5
106 ;;^UTILITY(U,$J,.84,8012,1,0)
107 ;;=^^2^2^2931102^^^
108 ;;^UTILITY(U,$J,.84,8012,1,1,0)
109 ;;=The word HEADING to be used in the prompt for the heading from the FileMan
110 ;;^UTILITY(U,$J,.84,8012,1,2,0)
111 ;;=PRINT option.
112 ;;^UTILITY(U,$J,.84,8012,2,0)
113 ;;=^^1^1^2931102^
114 ;;^UTILITY(U,$J,.84,8012,2,1,0)
115 ;;=Heading
116 ;;^UTILITY(U,$J,.84,8012,5,0)
117 ;;=^.841^2^2
118 ;;^UTILITY(U,$J,.84,8012,5,1,0)
119 ;;=DIP^EN1
120 ;;^UTILITY(U,$J,.84,8012,5,2,0)
121 ;;=DIS^ENS
122 ;;^UTILITY(U,$J,.84,8013,0)
123 ;;=8013^2^^5
124 ;;^UTILITY(U,$J,.84,8013,1,0)
125 ;;=^^3^3^2931105^^
126 ;;^UTILITY(U,$J,.84,8013,1,1,0)
127 ;;=The DD for the file of files is not completely FileMan compatible. This
128 ;;^UTILITY(U,$J,.84,8013,1,2,0)
129 ;;=is the field name prompt for the POST-SELECTION ACTION field on the file
130 ;;^UTILITY(U,$J,.84,8013,1,3,0)
131 ;;=of files. Prompt appears when file attributes.
132 ;;^UTILITY(U,$J,.84,8013,2,0)
133 ;;=^^1^1^2931105^^
134 ;;^UTILITY(U,$J,.84,8013,2,1,0)
135 ;;=POST-SELECTION ACTION
136 ;;^UTILITY(U,$J,.84,8013,5,0)
137 ;;=^.841^1^1
138 ;;^UTILITY(U,$J,.84,8013,5,1,0)
139 ;;=DIU0^6
140 ;;^UTILITY(U,$J,.84,8014,0)
141 ;;=8014^2^^5
142 ;;^UTILITY(U,$J,.84,8014,1,0)
143 ;;=^^3^3^2931105^
144 ;;^UTILITY(U,$J,.84,8014,1,1,0)
145 ;;=The DD for the file of files is not completely FileMan compatible. This
146 ;;^UTILITY(U,$J,.84,8014,1,2,0)
147 ;;=is the field name prompt for the LOOK-UP PROGRAM field on the file
148 ;;^UTILITY(U,$J,.84,8014,1,3,0)
149 ;;=of files. Prompt appears when file attributes are edited.
150 ;;^UTILITY(U,$J,.84,8014,2,0)
151 ;;=^^1^1^2931105^
152 ;;^UTILITY(U,$J,.84,8014,2,1,0)
153 ;;=LOOK-UP PROGRAM
154 ;;^UTILITY(U,$J,.84,8014,5,0)
155 ;;=^.841^1^1
156 ;;^UTILITY(U,$J,.84,8014,5,1,0)
157 ;;=DIU0^6
158 ;;^UTILITY(U,$J,.84,8015,0)
159 ;;=8015^2^^5
160 ;;^UTILITY(U,$J,.84,8015,1,0)
161 ;;=^^2^2^2931105^
162 ;;^UTILITY(U,$J,.84,8015,1,1,0)
163 ;;=Standard prompt to verify to the user that they just deleted something
164 ;;^UTILITY(U,$J,.84,8015,1,2,0)
165 ;;=with the "@".
166 ;;^UTILITY(U,$J,.84,8015,2,0)
167 ;;=^^1^1^2931105^
168 ;;^UTILITY(U,$J,.84,8015,2,1,0)
169 ;;=Deleted.
170 ;;^UTILITY(U,$J,.84,8015,5,0)
171 ;;=^.841^1^1
172 ;;^UTILITY(U,$J,.84,8015,5,1,0)
173 ;;=DIU0^6
174 ;;^UTILITY(U,$J,.84,8016,0)
175 ;;=8016^2^y^5
176 ;;^UTILITY(U,$J,.84,8016,1,0)
177 ;;=^^2^2^2931105^^^^
178 ;;^UTILITY(U,$J,.84,8016,1,1,0)
179 ;;=Called after performing routine existence test to tell user that routine
180 ;;^UTILITY(U,$J,.84,8016,1,2,0)
181 ;;=is already in their directory.
182 ;;^UTILITY(U,$J,.84,8016,2,0)
183 ;;=^^1^1^2931105^
184 ;;^UTILITY(U,$J,.84,8016,2,1,0)
185 ;;=Note that |1| is already in the routine directory.
186 ;;^UTILITY(U,$J,.84,8016,3,0)
187 ;;=^.845^1^1
188 ;;^UTILITY(U,$J,.84,8016,3,1,0)
189 ;;=1^Name of the routine.
190 ;;^UTILITY(U,$J,.84,8016,5,0)
191 ;;=^.841^4^4
192 ;;^UTILITY(U,$J,.84,8016,5,1,0)
193 ;;=DIU0^6
194 ;;^UTILITY(U,$J,.84,8016,5,2,0)
195 ;;=DIEZ^
196 ;;^UTILITY(U,$J,.84,8016,5,3,0)
197 ;;=DIKZ^
198 ;;^UTILITY(U,$J,.84,8016,5,4,0)
199 ;;=DIPZ^
200 ;;^UTILITY(U,$J,.84,8017,0)
201 ;;=8017^2^^5
202 ;;^UTILITY(U,$J,.84,8017,1,0)
203 ;;=^^2^2^2931105^
204 ;;^UTILITY(U,$J,.84,8017,1,1,0)
205 ;;=Message warning user that a routine does not exist in their routine
206 ;;^UTILITY(U,$J,.84,8017,1,2,0)
207 ;;=directory.
208 ;;^UTILITY(U,$J,.84,8017,2,0)
209 ;;=^^1^1^2931105^
210 ;;^UTILITY(U,$J,.84,8017,2,1,0)
211 ;;=This routine does not exist in the routine directory.
212 ;;^UTILITY(U,$J,.84,8017,5,0)
213 ;;=^.841^1^1
214 ;;^UTILITY(U,$J,.84,8017,5,1,0)
215 ;;=DIU0^6
216 ;;^UTILITY(U,$J,.84,8018,0)
217 ;;=8018^2^y^5
218 ;;^UTILITY(U,$J,.84,8018,1,0)
219 ;;=^^2^2^2931105^
220 ;;^UTILITY(U,$J,.84,8018,1,1,0)
221 ;;=Prompt showing the user a routine name previously used for compiled
222 ;;^UTILITY(U,$J,.84,8018,1,2,0)
223 ;;=routines (input templates, print templates, cross-references).
224 ;;^UTILITY(U,$J,.84,8018,2,0)
225 ;;=^^1^1^2931105^
226 ;;^UTILITY(U,$J,.84,8018,2,1,0)
227 ;;=Previously compiled under routine name |1|.
228 ;;^UTILITY(U,$J,.84,8018,3,0)
229 ;;=^.845^1^1
230 ;;^UTILITY(U,$J,.84,8018,3,1,0)
231 ;;=1^Routine name from "DIKOLD" or "ROUOLD" nodes in templates or DD for cross-references.
232 ;;^UTILITY(U,$J,.84,8018,5,0)
233 ;;=^.841^1^1
234 ;;^UTILITY(U,$J,.84,8018,5,1,0)
235 ;;=DIU0^6
236 ;;^UTILITY(U,$J,.84,8019,0)
237 ;;=8019^2^^5
238 ;;^UTILITY(U,$J,.84,8019,1,0)
239 ;;=^^3^3^2931105^^
240 ;;^UTILITY(U,$J,.84,8019,1,1,0)
241 ;;=The DD for the file of files is not completely FileMan compatible. This
242 ;;^UTILITY(U,$J,.84,8019,1,2,0)
243 ;;=is the field name prompt for the CROSS-REFERENCE ROUTINE field on the file
244 ;;^UTILITY(U,$J,.84,8019,1,3,0)
245 ;;=of files. Prompt appears when file attributes are edited.
Note: See TracBrowser for help on using the repository browser.