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

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

initial load of WorldVistAEHR

File size: 6.7 KB
RevLine 
[613]1DINIT00M ; 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,8096,1,2,0)
7 ;;=instead of an open global root, and the DA array is not defined.
8 ;;^UTILITY(U,$J,.84,8096,2,0)
9 ;;=^^1^1^2971001^
10 ;;^UTILITY(U,$J,.84,8096,2,1,0)
11 ;;=If DIC contains a subfile number, DA array must be defined.
12 ;;^UTILITY(U,$J,.84,8096,5,0)
13 ;;=^.841^1^1
14 ;;^UTILITY(U,$J,.84,8096,5,1,0)
15 ;;=DIC0^GETFILE
16 ;;^UTILITY(U,$J,.84,8097,0)
17 ;;=8097^2^y^5
18 ;;^UTILITY(U,$J,.84,8097,1,0)
19 ;;=^^1^1^2980304^^^
20 ;;^UTILITY(U,$J,.84,8097,1,1,0)
21 ;;=Variable Pointer Lookup
22 ;;^UTILITY(U,$J,.84,8097,2,0)
23 ;;=^^1^1^2980304^
24 ;;^UTILITY(U,$J,.84,8097,2,1,0)
25 ;;= Searching for a |1|, (pointed-to by |2|)
26 ;;^UTILITY(U,$J,.84,8097,3,0)
27 ;;=^.845^2^2
28 ;;^UTILITY(U,$J,.84,8097,3,1,0)
29 ;;=1^Pointed-to Filename
30 ;;^UTILITY(U,$J,.84,8097,3,2,0)
31 ;;=2^Pointing field name
32 ;;^UTILITY(U,$J,.84,8098,0)
33 ;;=8098^2^^5
34 ;;^UTILITY(U,$J,.84,8098,2,0)
35 ;;=^^1^1^2980603^^^^
36 ;;^UTILITY(U,$J,.84,8098,2,1,0)
37 ;;=file^File^subfile^Subfile
38 ;;^UTILITY(U,$J,.84,9002,0)
39 ;;=9002^3^y^5
40 ;;^UTILITY(U,$J,.84,9002,1,0)
41 ;;=^^1^1^2930617^^
42 ;;^UTILITY(U,$J,.84,9002,1,1,0)
43 ;;=Help for entering maximum routine size for compiled routines.
44 ;;^UTILITY(U,$J,.84,9002,2,0)
45 ;;=^^4^4^2930629^^^^
46 ;;^UTILITY(U,$J,.84,9002,2,1,0)
47 ;;=This number will be used to determine how large to make the generated
48 ;;^UTILITY(U,$J,.84,9002,2,2,0)
49 ;;=compiled |1| routines. The size must be a number greater
50 ;;^UTILITY(U,$J,.84,9002,2,3,0)
51 ;;=than 2400, the larger the better, up to the maximum routine size for
52 ;;^UTILITY(U,$J,.84,9002,2,4,0)
53 ;;=your operating system.
54 ;;^UTILITY(U,$J,.84,9002,3,0)
55 ;;=^.845^1^1
56 ;;^UTILITY(U,$J,.84,9002,3,1,0)
57 ;;=1^Will be the word 'TEMPLATE' when compiling templates, or 'cross-reference' when compiling CROSS-REFERENCES.
58 ;;^UTILITY(U,$J,.84,9002,5,0)
59 ;;=^.841^3^3
60 ;;^UTILITY(U,$J,.84,9002,5,1,0)
61 ;;=DIEZ^
62 ;;^UTILITY(U,$J,.84,9002,5,2,0)
63 ;;=DIPZ^
64 ;;^UTILITY(U,$J,.84,9002,5,3,0)
65 ;;=DIKZ^
66 ;;^UTILITY(U,$J,.84,9004,0)
67 ;;=9004^3^y^5
68 ;;^UTILITY(U,$J,.84,9004,1,0)
69 ;;=^^2^2^2931110^^^^
70 ;;^UTILITY(U,$J,.84,9004,1,1,0)
71 ;;=Help asking the user whether they wish to UNCOMPILE previously compiled
72 ;;^UTILITY(U,$J,.84,9004,1,2,0)
73 ;;=templates or cross-references.
74 ;;^UTILITY(U,$J,.84,9004,2,0)
75 ;;=^^4^4^2931110^^
76 ;;^UTILITY(U,$J,.84,9004,2,1,0)
77 ;;= Answer YES to UNCOMPILE the |1|.
78 ;;^UTILITY(U,$J,.84,9004,2,2,0)
79 ;;=The compiled routine will no longer be used.
80 ;;^UTILITY(U,$J,.84,9004,2,3,0)
81 ;;=
82 ;;^UTILITY(U,$J,.84,9004,2,4,0)
83 ;;= Answer NO to recompile the |1| at this time.
84 ;;^UTILITY(U,$J,.84,9004,3,0)
85 ;;=^.845^1^1
86 ;;^UTILITY(U,$J,.84,9004,3,1,0)
87 ;;=1^Will contain either the word 'TEMPLATE' or 'CROSS-REFERENCES.
88 ;;^UTILITY(U,$J,.84,9004,5,0)
89 ;;=^.841^3^3
90 ;;^UTILITY(U,$J,.84,9004,5,1,0)
91 ;;=DIEZ^
92 ;;^UTILITY(U,$J,.84,9004,5,2,0)
93 ;;=DIPZ^
94 ;;^UTILITY(U,$J,.84,9004,5,3,0)
95 ;;=DIKZ^
96 ;;^UTILITY(U,$J,.84,9006,0)
97 ;;=9006^3^y^5
98 ;;^UTILITY(U,$J,.84,9006,1,0)
99 ;;=^^2^2^2931105^^^^
100 ;;^UTILITY(U,$J,.84,9006,1,1,0)
101 ;;=Help for prompting for compiled routine name, when compiling templates
102 ;;^UTILITY(U,$J,.84,9006,1,2,0)
103 ;;=or cross-references.
104 ;;^UTILITY(U,$J,.84,9006,2,0)
105 ;;=^^2^2^2931109^
106 ;;^UTILITY(U,$J,.84,9006,2,1,0)
107 ;;=Enter a valid MUMPS routine name of from 3 to |1| characters. This must
108 ;;^UTILITY(U,$J,.84,9006,2,2,0)
109 ;;=be entered without a leading up-arrow, and cannot begin with "DI".
110 ;;^UTILITY(U,$J,.84,9006,3,0)
111 ;;=^.845^1^1
112 ;;^UTILITY(U,$J,.84,9006,3,1,0)
113 ;;=1^Internal parameter indicating the maximum number of characters allowed for routine namespace.
114 ;;^UTILITY(U,$J,.84,9006,5,0)
115 ;;=^.841^4^4
116 ;;^UTILITY(U,$J,.84,9006,5,1,0)
117 ;;=DIU0^6
118 ;;^UTILITY(U,$J,.84,9006,5,2,0)
119 ;;=DIKZ^
120 ;;^UTILITY(U,$J,.84,9006,5,3,0)
121 ;;=DIPZ^
122 ;;^UTILITY(U,$J,.84,9006,5,4,0)
123 ;;=DIEZ^
124 ;;^UTILITY(U,$J,.84,9014,0)
125 ;;=9014^3^^5
126 ;;^UTILITY(U,$J,.84,9014,1,0)
127 ;;=^^1^1^2930706^^^^
128 ;;^UTILITY(U,$J,.84,9014,1,1,0)
129 ;;=Help prompt for compiling sort templates.
130 ;;^UTILITY(U,$J,.84,9014,2,0)
131 ;;=^^3^3^2931110^
132 ;;^UTILITY(U,$J,.84,9014,2,1,0)
133 ;;=If YES is entered,
134 ;;^UTILITY(U,$J,.84,9014,2,2,0)
135 ;;=the Sort logic will be compiled into a routine at the
136 ;;^UTILITY(U,$J,.84,9014,2,3,0)
137 ;;=time the template is used in a FileMan Sort/Print.
138 ;;^UTILITY(U,$J,.84,9014,5,0)
139 ;;=^.841^1^1
140 ;;^UTILITY(U,$J,.84,9014,5,1,0)
141 ;;=DIOZ^ENCU
142 ;;^UTILITY(U,$J,.84,9019,0)
143 ;;=9019^3^^5
144 ;;^UTILITY(U,$J,.84,9019,1,0)
145 ;;=^^1^1^2931110^^^^
146 ;;^UTILITY(U,$J,.84,9019,1,1,0)
147 ;;=Help prompt for Uncompiling sort templates.
148 ;;^UTILITY(U,$J,.84,9019,2,0)
149 ;;=^^3^3^2931110^
150 ;;^UTILITY(U,$J,.84,9019,2,1,0)
151 ;;=If YES is entered,
152 ;;^UTILITY(U,$J,.84,9019,2,2,0)
153 ;;=the Sort logic for this template will NOT be compiled into a
154 ;;^UTILITY(U,$J,.84,9019,2,3,0)
155 ;;=routine during the time it is used by a FileMan sort/print.
156 ;;^UTILITY(U,$J,.84,9019,5,0)
157 ;;=^.841^1^1
158 ;;^UTILITY(U,$J,.84,9019,5,1,0)
159 ;;=DIOZ^ENCU
160 ;;^UTILITY(U,$J,.84,9024,0)
161 ;;=9024^3^^5
162 ;;^UTILITY(U,$J,.84,9024,1,0)
163 ;;=^^2^2^2931105^
164 ;;^UTILITY(U,$J,.84,9024,1,1,0)
165 ;;=Help for the POST-SELECTION ACTION field for a file. This entry is put
166 ;;^UTILITY(U,$J,.84,9024,1,2,0)
167 ;;=in from the Utility option to edit a file.
168 ;;^UTILITY(U,$J,.84,9024,2,0)
169 ;;=^^1^1^2931105^^^
170 ;;^UTILITY(U,$J,.84,9024,2,1,0)
171 ;;=This code will be executed whenever an entry is selected from the file.
172 ;;^UTILITY(U,$J,.84,9024,5,0)
173 ;;=^.841^1^1
174 ;;^UTILITY(U,$J,.84,9024,5,1,0)
175 ;;=DIU0^6
176 ;;^UTILITY(U,$J,.84,9025,0)
177 ;;=9025^3^^5
178 ;;^UTILITY(U,$J,.84,9025,1,0)
179 ;;=^^1^1^2931105^^
180 ;;^UTILITY(U,$J,.84,9025,1,1,0)
181 ;;=General help for MUMPS type fields.
182 ;;^UTILITY(U,$J,.84,9025,2,0)
183 ;;=^^1^1^2931105^
184 ;;^UTILITY(U,$J,.84,9025,2,1,0)
185 ;;=Enter a line of standard MUMPS code.
186 ;;^UTILITY(U,$J,.84,9025,5,0)
187 ;;=^.841^1^1
188 ;;^UTILITY(U,$J,.84,9025,5,1,0)
189 ;;=DIOU^6
190 ;;^UTILITY(U,$J,.84,9026,0)
191 ;;=9026^3^^5
192 ;;^UTILITY(U,$J,.84,9026,1,0)
193 ;;=^^3^3^2931105^^
194 ;;^UTILITY(U,$J,.84,9026,1,1,0)
195 ;;=The DD for the file of files is not completely FileMan compatible. This
196 ;;^UTILITY(U,$J,.84,9026,1,2,0)
197 ;;=is the standard help prompt for the LOOK-UP PROGRAM field on the file of
198 ;;^UTILITY(U,$J,.84,9026,1,3,0)
199 ;;=files. Prompt appears when file attributes are being edited.
200 ;;^UTILITY(U,$J,.84,9026,2,0)
201 ;;=^^2^2^2931105^^
202 ;;^UTILITY(U,$J,.84,9026,2,1,0)
203 ;;=This special lookup routine will be executed instead of the standard
204 ;;^UTILITY(U,$J,.84,9026,2,2,0)
205 ;;=FileMan lookup logic, whenever a call is made to ^DIC.
Note: See TracBrowser for help on using the repository browser.