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

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

initial load of WorldVistAEHR
File size: 6.6 KB
RevLine 
[613]1DINIT00I ; 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,8028,5,4,0)
7 ;;=DIOZ^ENCU
8 ;;^UTILITY(U,$J,.84,8029,0)
9 ;;=8029^2^y^5
10 ;;^UTILITY(U,$J,.84,8029,1,0)
11 ;;=^^2^2^2931110^
12 ;;^UTILITY(U,$J,.84,8029,1,1,0)
13 ;;=Extended dialogue for asking user whether they wish to COMPILE a
14 ;;^UTILITY(U,$J,.84,8029,1,2,0)
15 ;;=template or cross-references.
16 ;;^UTILITY(U,$J,.84,8029,2,0)
17 ;;=^^2^2^2931110^
18 ;;^UTILITY(U,$J,.84,8029,2,1,0)
19 ;;= |1| not currently compiled.
20 ;;^UTILITY(U,$J,.84,8029,2,2,0)
21 ;;=COMPILE the |1|
22 ;;^UTILITY(U,$J,.84,8029,3,0)
23 ;;=^.845^1^1
24 ;;^UTILITY(U,$J,.84,8029,3,1,0)
25 ;;=1^Contains the word 'TEMPLATE' or 'CROSS-REFERENCES'
26 ;;^UTILITY(U,$J,.84,8029,5,0)
27 ;;=^.841^1^1
28 ;;^UTILITY(U,$J,.84,8029,5,1,0)
29 ;;=DIOZ^ENCU
30 ;;^UTILITY(U,$J,.84,8030,0)
31 ;;=8030^2^y^5
32 ;;^UTILITY(U,$J,.84,8030,1,0)
33 ;;=^^2^2^2931110^^^^
34 ;;^UTILITY(U,$J,.84,8030,1,1,0)
35 ;;=Warning to user that SORT/PRINT templates are uneditable because the PRINT
36 ;;^UTILITY(U,$J,.84,8030,1,2,0)
37 ;;=TEMPLATE field on the SORT TEMPLATE has linked it with a print template.
38 ;;^UTILITY(U,$J,.84,8030,2,0)
39 ;;=^^7^7^2931112^
40 ;;^UTILITY(U,$J,.84,8030,2,1,0)
41 ;;=Because this Sort Template has been linked with the Print Template
42 ;;^UTILITY(U,$J,.84,8030,2,2,0)
43 ;;=|1|, neither template can be edited from this option.
44 ;;^UTILITY(U,$J,.84,8030,2,3,0)
45 ;;=
46 ;;^UTILITY(U,$J,.84,8030,2,4,0)
47 ;;=To edit the templates, first use the FileMan TEMPLATE EDIT
48 ;;^UTILITY(U,$J,.84,8030,2,5,0)
49 ;;=option to edit the Sort Template, and delete the field called
50 ;;^UTILITY(U,$J,.84,8030,2,6,0)
51 ;;='PRINT TEMPLATE'. Then, the templates can be edited from
52 ;;^UTILITY(U,$J,.84,8030,2,7,0)
53 ;;=the PRINT option.
54 ;;^UTILITY(U,$J,.84,8030,3,0)
55 ;;=^.845^1^1
56 ;;^UTILITY(U,$J,.84,8030,3,1,0)
57 ;;=1^Name of associated PRINT TEMPLATE.
58 ;;^UTILITY(U,$J,.84,8030,5,0)
59 ;;=^.841^1^1
60 ;;^UTILITY(U,$J,.84,8030,5,1,0)
61 ;;=DIP^EN
62 ;;^UTILITY(U,$J,.84,8031,0)
63 ;;=8031^2^^5
64 ;;^UTILITY(U,$J,.84,8031,1,0)
65 ;;=^^1^1^2931110^^
66 ;;^UTILITY(U,$J,.84,8031,1,1,0)
67 ;;=Warning that compiled routine names may get too long.
68 ;;^UTILITY(U,$J,.84,8031,2,0)
69 ;;=^^3^3^2931110^
70 ;;^UTILITY(U,$J,.84,8031,2,1,0)
71 ;;=WARNING!! Since the namespace for this routine is so long, use the
72 ;;^UTILITY(U,$J,.84,8031,2,2,0)
73 ;;=largest possible size to compile these routines. Otherwise, FileMan may
74 ;;^UTILITY(U,$J,.84,8031,2,3,0)
75 ;;=run out of routine names.
76 ;;^UTILITY(U,$J,.84,8031,5,0)
77 ;;=^.841^3^3
78 ;;^UTILITY(U,$J,.84,8031,5,1,0)
79 ;;=DIPZ^
80 ;;^UTILITY(U,$J,.84,8031,5,2,0)
81 ;;=DIEZ^
82 ;;^UTILITY(U,$J,.84,8031,5,3,0)
83 ;;=DIKZ^
84 ;;^UTILITY(U,$J,.84,8032,0)
85 ;;=8032^2^^5
86 ;;^UTILITY(U,$J,.84,8032,1,0)
87 ;;=^^1^1^2930702^
88 ;;^UTILITY(U,$J,.84,8032,1,1,0)
89 ;;=Words SEARCH TEMPLATE
90 ;;^UTILITY(U,$J,.84,8032,2,0)
91 ;;=^^1^1^2931110^
92 ;;^UTILITY(U,$J,.84,8032,2,1,0)
93 ;;=Search Template
94 ;;^UTILITY(U,$J,.84,8033,0)
95 ;;=8033^2^^5
96 ;;^UTILITY(U,$J,.84,8033,1,0)
97 ;;=^^1^1^2930701^^
98 ;;^UTILITY(U,$J,.84,8033,1,1,0)
99 ;;=the words INPUT TEMPLATE to use in any FileMan dialog.
100 ;;^UTILITY(U,$J,.84,8033,2,0)
101 ;;=^^1^1^2931110^
102 ;;^UTILITY(U,$J,.84,8033,2,1,0)
103 ;;=Input Template
104 ;;^UTILITY(U,$J,.84,8033,5,0)
105 ;;=^.841^2^2
106 ;;^UTILITY(U,$J,.84,8033,5,1,0)
107 ;;=DIEZ^
108 ;;^UTILITY(U,$J,.84,8033,5,2,0)
109 ;;=DIEZ^EN
110 ;;^UTILITY(U,$J,.84,8034,0)
111 ;;=8034^2^^5
112 ;;^UTILITY(U,$J,.84,8034,1,0)
113 ;;=^^1^1^2930701^^
114 ;;^UTILITY(U,$J,.84,8034,1,1,0)
115 ;;=The words PRINT TEMPLATE to use in any FileMan dialog.
116 ;;^UTILITY(U,$J,.84,8034,2,0)
117 ;;=^^1^1^2931110^
118 ;;^UTILITY(U,$J,.84,8034,2,1,0)
119 ;;=Print Template
120 ;;^UTILITY(U,$J,.84,8034,5,0)
121 ;;=^.841^2^2
122 ;;^UTILITY(U,$J,.84,8034,5,1,0)
123 ;;=DIPZ^
124 ;;^UTILITY(U,$J,.84,8034,5,2,0)
125 ;;=DIPZ^EN
126 ;;^UTILITY(U,$J,.84,8035,0)
127 ;;=8035^2^^5
128 ;;^UTILITY(U,$J,.84,8035,1,0)
129 ;;=^^1^1^2930701^
130 ;;^UTILITY(U,$J,.84,8035,1,1,0)
131 ;;=The words SORT TEMPLATE to use in any FileMan dialog.
132 ;;^UTILITY(U,$J,.84,8035,2,0)
133 ;;=^^1^1^2931110^
134 ;;^UTILITY(U,$J,.84,8035,2,1,0)
135 ;;=Sort Template
136 ;;^UTILITY(U,$J,.84,8035,5,0)
137 ;;=^.841^1^1
138 ;;^UTILITY(U,$J,.84,8035,5,1,0)
139 ;;=DIOZ^ENCU
140 ;;^UTILITY(U,$J,.84,8036,0)
141 ;;=8036^2^^5
142 ;;^UTILITY(U,$J,.84,8036,1,0)
143 ;;=^^1^1^2930702^^
144 ;;^UTILITY(U,$J,.84,8036,1,1,0)
145 ;;=The words CROSS-REFERENCE(S) to use in any FileMan Dialog.
146 ;;^UTILITY(U,$J,.84,8036,2,0)
147 ;;=^^1^1^2931110^
148 ;;^UTILITY(U,$J,.84,8036,2,1,0)
149 ;;=Cross-Reference(s)
150 ;;^UTILITY(U,$J,.84,8036,5,0)
151 ;;=^.841^2^2
152 ;;^UTILITY(U,$J,.84,8036,5,1,0)
153 ;;=DIKZ^
154 ;;^UTILITY(U,$J,.84,8036,5,2,0)
155 ;;=DIKZ^EN
156 ;;^UTILITY(U,$J,.84,8037,0)
157 ;;=8037^2^^5
158 ;;^UTILITY(U,$J,.84,8037,1,0)
159 ;;=^^1^1^2931110^
160 ;;^UTILITY(U,$J,.84,8037,1,1,0)
161 ;;=The word SORT to use in any FileMan dialog.
162 ;;^UTILITY(U,$J,.84,8037,2,0)
163 ;;=^^1^1^2940526^
164 ;;^UTILITY(U,$J,.84,8037,2,1,0)
165 ;;=sort
166 ;;^UTILITY(U,$J,.84,8037,5,0)
167 ;;=^.841^1^1
168 ;;^UTILITY(U,$J,.84,8037,5,1,0)
169 ;;=DIP^EN1
170 ;;^UTILITY(U,$J,.84,8038,0)
171 ;;=8038^2^^5
172 ;;^UTILITY(U,$J,.84,8038,1,0)
173 ;;=^^1^1^2931110^
174 ;;^UTILITY(U,$J,.84,8038,1,1,0)
175 ;;=The word SEARCH to use in any FileMan dialog.
176 ;;^UTILITY(U,$J,.84,8038,2,0)
177 ;;=^^1^1^2940526^
178 ;;^UTILITY(U,$J,.84,8038,2,1,0)
179 ;;=search
180 ;;^UTILITY(U,$J,.84,8038,5,0)
181 ;;=^.841^2^2
182 ;;^UTILITY(U,$J,.84,8038,5,1,0)
183 ;;=DIP^EN1
184 ;;^UTILITY(U,$J,.84,8038,5,2,0)
185 ;;=DIS^ENS
186 ;;^UTILITY(U,$J,.84,8040,0)
187 ;;=8040^2^^5
188 ;;^UTILITY(U,$J,.84,8040,1,0)
189 ;;=^^1^1^2940314^^^
190 ;;^UTILITY(U,$J,.84,8040,1,1,0)
191 ;;=Advice for the Yes/No question
192 ;;^UTILITY(U,$J,.84,8040,2,0)
193 ;;=^^1^1^2940314^^^
194 ;;^UTILITY(U,$J,.84,8040,2,1,0)
195 ;;=Answer with 'Yes' or 'No'
196 ;;^UTILITY(U,$J,.84,8041,0)
197 ;;=8041^2^^5
198 ;;^UTILITY(U,$J,.84,8041,2,0)
199 ;;=^^1^1^2940310^
200 ;;^UTILITY(U,$J,.84,8041,2,1,0)
201 ;;=This is a required response. Enter '^' to exit
202 ;;^UTILITY(U,$J,.84,8042,0)
203 ;;=8042^2^y^5
204 ;;^UTILITY(U,$J,.84,8042,1,0)
205 ;;=^^2^2^2940315^^^^
206 ;;^UTILITY(U,$J,.84,8042,1,1,0)
207 ;;=This 'Select' prompt may be used for dialogs with filenames.
208 ;;^UTILITY(U,$J,.84,8042,1,2,0)
209 ;;=Note: Dialog will be used with $$EZBLD^DIALOG call, only one text line!!
210 ;;^UTILITY(U,$J,.84,8042,2,0)
211 ;;=1
212 ;;^UTILITY(U,$J,.84,8042,2,1,0)
213 ;;=Select |1|:
214 ;;^UTILITY(U,$J,.84,8042,3,0)
215 ;;=^.845^1^1
216 ;;^UTILITY(U,$J,.84,8042,3,1,0)
217 ;;=1^Name of the file
218 ;;^UTILITY(U,$J,.84,8043,0)
219 ;;=8043^2^^5
220 ;;^UTILITY(U,$J,.84,8043,1,0)
221 ;;=^^1^1^2940314^^
222 ;;^UTILITY(U,$J,.84,8043,1,1,0)
223 ;;=Used for date time input to the reader.
224 ;;^UTILITY(U,$J,.84,8043,2,0)
225 ;;=^^1^1^2940314^^
226 ;;^UTILITY(U,$J,.84,8043,2,1,0)
227 ;;= and time
228 ;;^UTILITY(U,$J,.84,8044,0)
229 ;;=8044^2^^5
Note: See TracBrowser for help on using the repository browser.