source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT00Y.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.6 KB
RevLine 
[613]1DINIT00Y ; 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,9515,2,1,0)
7 ;;=Partial DD. No sending of data allowed for file |1|.
8 ;;^UTILITY(U,$J,.84,9516,0)
9 ;;=9516^1^y^5
10 ;;^UTILITY(U,$J,.84,9516,1,0)
11 ;;=^^1^1^2940909^
12 ;;^UTILITY(U,$J,.84,9516,1,1,0)
13 ;;=Invalid entry in trasnport structure.
14 ;;^UTILITY(U,$J,.84,9516,2,0)
15 ;;=^^1^1^2940909^
16 ;;^UTILITY(U,$J,.84,9516,2,1,0)
17 ;;=Transport structure does not contain |1| with IEN: |2|.
18 ;;^UTILITY(U,$J,.84,9517,0)
19 ;;=9517^1^y^5
20 ;;^UTILITY(U,$J,.84,9517,1,0)
21 ;;=^^1^1^2940909^
22 ;;^UTILITY(U,$J,.84,9517,1,1,0)
23 ;;=DIFROM Server unable to install block.
24 ;;^UTILITY(U,$J,.84,9517,2,0)
25 ;;=^^1^1^2940909^
26 ;;^UTILITY(U,$J,.84,9517,2,1,0)
27 ;;=DIFROM Server unable to install |1| block.
28 ;;^UTILITY(U,$J,.84,9518,0)
29 ;;=9518^1^y^5
30 ;;^UTILITY(U,$J,.84,9518,1,0)
31 ;;=^^1^1^2940909^
32 ;;^UTILITY(U,$J,.84,9518,1,1,0)
33 ;;=DIFROM Server installed block but associated file not present.
34 ;;^UTILITY(U,$J,.84,9518,2,0)
35 ;;=^^1^1^2940909^
36 ;;^UTILITY(U,$J,.84,9518,2,1,0)
37 ;;=|1| block installed but associated file #|2| is not on your system.
38 ;;^UTILITY(U,$J,.84,9519,0)
39 ;;=9519^1^^5
40 ;;^UTILITY(U,$J,.84,9519,1,0)
41 ;;=^^1^1^2940909^
42 ;;^UTILITY(U,$J,.84,9519,1,1,0)
43 ;;=File number missing for "FILE-PRE" in KIDS process.
44 ;;^UTILITY(U,$J,.84,9519,2,0)
45 ;;=^^1^1^2940909^
46 ;;^UTILITY(U,$J,.84,9519,2,1,0)
47 ;;=File number missing in "FILE-PRE".
48 ;;^UTILITY(U,$J,.84,9520,0)
49 ;;=9520^1^^5
50 ;;^UTILITY(U,$J,.84,9520,1,0)
51 ;;=^^1^1^2940909^
52 ;;^UTILITY(U,$J,.84,9520,1,1,0)
53 ;;=Package name missing for "FILE-PRE" in KIDS process.
54 ;;^UTILITY(U,$J,.84,9520,2,0)
55 ;;=^^1^1^2940909^
56 ;;^UTILITY(U,$J,.84,9520,2,1,0)
57 ;;=Package name missing for "FILE-PRE".
58 ;;^UTILITY(U,$J,.84,9521,0)
59 ;;=9521^1^^5
60 ;;^UTILITY(U,$J,.84,9521,1,0)
61 ;;=^^1^1^2940909^^
62 ;;^UTILITY(U,$J,.84,9521,1,1,0)
63 ;;=Invalid file number in KIDS "ENTRY-PRE"
64 ;;^UTILITY(U,$J,.84,9521,2,0)
65 ;;=^^1^1^2940909^^
66 ;;^UTILITY(U,$J,.84,9521,2,1,0)
67 ;;=File number invalid in "ENTRY-PRE".
68 ;;^UTILITY(U,$J,.84,9522,0)
69 ;;=9522^1^^5
70 ;;^UTILITY(U,$J,.84,9522,1,0)
71 ;;=^^1^1^2940909^
72 ;;^UTILITY(U,$J,.84,9522,1,1,0)
73 ;;=Invalid entry number in KIDS "ENTRY-PRE"
74 ;;^UTILITY(U,$J,.84,9522,2,0)
75 ;;=^^1^1^2940909^
76 ;;^UTILITY(U,$J,.84,9522,2,1,0)
77 ;;=Entry number invalid for "ENTRY-PRE"
78 ;;^UTILITY(U,$J,.84,9523,0)
79 ;;=9523^1^^5
80 ;;^UTILITY(U,$J,.84,9523,1,0)
81 ;;=^^1^1^2940909^^
82 ;;^UTILITY(U,$J,.84,9523,1,1,0)
83 ;;=Invalid entry in transport array.
84 ;;^UTILITY(U,$J,.84,9523,2,0)
85 ;;=^^1^1^2940909^^
86 ;;^UTILITY(U,$J,.84,9523,2,1,0)
87 ;;=Entry number invalid in transport array (source site DA).
88 ;;^UTILITY(U,$J,.84,9524,0)
89 ;;=9524^1^^5
90 ;;^UTILITY(U,$J,.84,9524,1,0)
91 ;;=^^1^1^2940909^^
92 ;;^UTILITY(U,$J,.84,9524,1,1,0)
93 ;;=Package name invalid in "ENTRY-PRE".
94 ;;^UTILITY(U,$J,.84,9524,2,0)
95 ;;=^^1^1^2940909^^
96 ;;^UTILITY(U,$J,.84,9524,2,1,0)
97 ;;=Invalid package name in "ENTRY-PRE".
98 ;;^UTILITY(U,$J,.84,9525,0)
99 ;;=9525^1^y^5
100 ;;^UTILITY(U,$J,.84,9525,1,0)
101 ;;=^^1^1^2940909^
102 ;;^UTILITY(U,$J,.84,9525,1,1,0)
103 ;;=Package name ambigious. Pointer not resolved.
104 ;;^UTILITY(U,$J,.84,9525,2,0)
105 ;;=^^1^1^2940909^
106 ;;^UTILITY(U,$J,.84,9525,2,1,0)
107 ;;=|1| package name is ambigious. Pointer |2| not resolved.
108 ;;^UTILITY(U,$J,.84,9526,0)
109 ;;=9526^1^^5
110 ;;^UTILITY(U,$J,.84,9526,1,0)
111 ;;=^^1^1^2940909^
112 ;;^UTILITY(U,$J,.84,9526,1,1,0)
113 ;;=ZSave not defined in MUMPS Operating file. Can not compile templates.
114 ;;^UTILITY(U,$J,.84,9526,2,0)
115 ;;=^^1^1^2940909^
116 ;;^UTILITY(U,$J,.84,9526,2,1,0)
117 ;;=Unable to compile templates. ZSave undefined in OS file.
118 ;;^UTILITY(U,$J,.84,9527,0)
119 ;;=9527^1^y^5
120 ;;^UTILITY(U,$J,.84,9527,1,0)
121 ;;=^^1^1^2940909^^^
122 ;;^UTILITY(U,$J,.84,9527,1,1,0)
123 ;;=Invalid form. DIFROM Server is unable to compile.
124 ;;^UTILITY(U,$J,.84,9527,2,0)
125 ;;=^^1^1^2940909^
126 ;;^UTILITY(U,$J,.84,9527,2,1,0)
127 ;;=|1| form invalid. Can not be compiled by KIDS process.
128 ;;^UTILITY(U,$J,.84,9528,0)
129 ;;=9528^1^y^5
130 ;;^UTILITY(U,$J,.84,9528,1,0)
131 ;;=^^1^1^2940909^
132 ;;^UTILITY(U,$J,.84,9528,1,1,0)
133 ;;=Template can not be compiled.
134 ;;^UTILITY(U,$J,.84,9528,2,0)
135 ;;=^^1^1^2940909^
136 ;;^UTILITY(U,$J,.84,9528,2,1,0)
137 ;;=|1| template |2| is invalid. KIDS process can not compile.
138 ;;^UTILITY(U,$J,.84,9529,0)
139 ;;=9529^1^^5
140 ;;^UTILITY(U,$J,.84,9529,1,0)
141 ;;=^^1^1^2940909^
142 ;;^UTILITY(U,$J,.84,9529,1,1,0)
143 ;;=Template or form file number is invalid. DIFROM Server/KIDS
144 ;;^UTILITY(U,$J,.84,9529,2,0)
145 ;;=^^1^1^2940909^
146 ;;^UTILITY(U,$J,.84,9529,2,1,0)
147 ;;=Template or form file number is invalid.
148 ;;^UTILITY(U,$J,.84,9530,0)
149 ;;=9530^1^^5
150 ;;^UTILITY(U,$J,.84,9530,1,0)
151 ;;=^^1^1^2940909^
152 ;;^UTILITY(U,$J,.84,9530,1,1,0)
153 ;;=Transport package name is invalid. (KIDS)
154 ;;^UTILITY(U,$J,.84,9530,2,0)
155 ;;=^^1^1^2940909^
156 ;;^UTILITY(U,$J,.84,9530,2,1,0)
157 ;;=Transport package name is invalid. (DIFROM Server/KIDS)
158 ;;^UTILITY(U,$J,.84,9531,0)
159 ;;=9531^1^^5
160 ;;^UTILITY(U,$J,.84,9531,1,0)
161 ;;=^^1^1^2940909^
162 ;;^UTILITY(U,$J,.84,9531,1,1,0)
163 ;;=Invalid EDE(s).
164 ;;^UTILITY(U,$J,.84,9531,2,0)
165 ;;=^^1^1^2940909^
166 ;;^UTILITY(U,$J,.84,9531,2,1,0)
167 ;;=Invalid EDE(s). (DIFROM Server/KIDS)
168 ;;^UTILITY(U,$J,.84,9532,0)
169 ;;=9532^1^^5
170 ;;^UTILITY(U,$J,.84,9532,1,0)
171 ;;=^^1^1^2940909^
172 ;;^UTILITY(U,$J,.84,9532,1,1,0)
173 ;;=No IEN(s) in array. (KIDS)
174 ;;^UTILITY(U,$J,.84,9532,2,0)
175 ;;=^^1^1^2940909^
176 ;;^UTILITY(U,$J,.84,9532,2,1,0)
177 ;;=No IEN(s) in list.
178 ;;^UTILITY(U,$J,.84,9533,0)
179 ;;=9533^1^^5
180 ;;^UTILITY(U,$J,.84,9533,1,0)
181 ;;=^^1^1^2940909^
182 ;;^UTILITY(U,$J,.84,9533,1,1,0)
183 ;;=Source array root missing.
184 ;;^UTILITY(U,$J,.84,9533,2,0)
185 ;;=^^1^1^2940909^
186 ;;^UTILITY(U,$J,.84,9533,2,1,0)
187 ;;=Source array root missing.
188 ;;^UTILITY(U,$J,.84,9534,0)
189 ;;=9534^1^y^5
190 ;;^UTILITY(U,$J,.84,9534,1,0)
191 ;;=^^1^1^2940909^^^
192 ;;^UTILITY(U,$J,.84,9534,1,1,0)
193 ;;=Resolved value data link missing.
194 ;;^UTILITY(U,$J,.84,9534,2,0)
195 ;;=^^1^1^2940909^^^
196 ;;^UTILITY(U,$J,.84,9534,2,1,0)
197 ;;=Resolved Value Data Link missing |1|.
198 ;;^UTILITY(U,$J,.84,9535,0)
199 ;;=9535^1^y^5
200 ;;^UTILITY(U,$J,.84,9535,1,0)
201 ;;=^^1^1^2940909^^^
202 ;;^UTILITY(U,$J,.84,9535,1,1,0)
203 ;;=Pointer file missing.
204 ;;^UTILITY(U,$J,.84,9535,2,0)
205 ;;=^^1^1^2940909^^^
206 ;;^UTILITY(U,$J,.84,9535,2,1,0)
207 ;;=Pointer file missing |1|.
208 ;;^UTILITY(U,$J,.84,9536,0)
209 ;;=9536^1^y^5
210 ;;^UTILITY(U,$J,.84,9536,1,0)
211 ;;=^^1^1^2940909^^
212 ;;^UTILITY(U,$J,.84,9536,1,1,0)
213 ;;=Pointed too file not on target system.
214 ;;^UTILITY(U,$J,.84,9536,2,0)
215 ;;=^^1^1^2940909^^
216 ;;^UTILITY(U,$J,.84,9536,2,1,0)
217 ;;=Pointed too file not on target system |1|.
Note: See TracBrowser for help on using the repository browser.