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

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

initial load of WorldVistAEHR
File size: 6.7 KB
Line 
1DINIT00Z ; 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,9537,0)
7 ;;=9537^1^y^5
8 ;;^UTILITY(U,$J,.84,9537,1,0)
9 ;;=^^1^1^2940909^^^
10 ;;^UTILITY(U,$J,.84,9537,1,1,0)
11 ;;=Unable to find exact match and resolve pointer.
12 ;;^UTILITY(U,$J,.84,9537,2,0)
13 ;;=^^1^1^2940909^^^
14 ;;^UTILITY(U,$J,.84,9537,2,1,0)
15 ;;=Unable to find exact match and resolve pointer |1|.
16 ;;^UTILITY(U,$J,.84,9538,0)
17 ;;=9538^1^y^5
18 ;;^UTILITY(U,$J,.84,9538,1,0)
19 ;;=^^1^1^2940909^^
20 ;;^UTILITY(U,$J,.84,9538,1,1,0)
21 ;;=Pointer resolved value is missing.
22 ;;^UTILITY(U,$J,.84,9538,2,0)
23 ;;=^^1^1^2940909^^
24 ;;^UTILITY(U,$J,.84,9538,2,1,0)
25 ;;=Pointer resolved value is missing |1|.
26 ;;^UTILITY(U,$J,.84,9539,0)
27 ;;=9539^1^y^5
28 ;;^UTILITY(U,$J,.84,9539,1,0)
29 ;;=^^1^1^2940914^
30 ;;^UTILITY(U,$J,.84,9539,1,1,0)
31 ;;=File not on this system.
32 ;;^UTILITY(U,$J,.84,9539,2,0)
33 ;;=^^1^1^2940914^
34 ;;^UTILITY(U,$J,.84,9539,2,1,0)
35 ;;=File #|1| not on this system.
36 ;;^UTILITY(U,$J,.84,9540,0)
37 ;;=9540^1^y^5
38 ;;^UTILITY(U,$J,.84,9540,1,0)
39 ;;=^^1^1^2940914^^
40 ;;^UTILITY(U,$J,.84,9540,1,1,0)
41 ;;=DD not on this system.
42 ;;^UTILITY(U,$J,.84,9540,2,0)
43 ;;=^^1^1^2940914^^
44 ;;^UTILITY(U,$J,.84,9540,2,1,0)
45 ;;=DD #|1| not on this system.
46 ;;^UTILITY(U,$J,.84,9541,0)
47 ;;=9541^1^y^5
48 ;;^UTILITY(U,$J,.84,9541,1,0)
49 ;;=^^1^1^2940914^^
50 ;;^UTILITY(U,$J,.84,9541,1,1,0)
51 ;;=Field not on this system.
52 ;;^UTILITY(U,$J,.84,9541,2,0)
53 ;;=^^1^1^2940914^^
54 ;;^UTILITY(U,$J,.84,9541,2,1,0)
55 ;;=Field #|1|, DD #|2|, not on this system.
56 ;;^UTILITY(U,$J,.84,9542,0)
57 ;;=9542^1^^5
58 ;;^UTILITY(U,$J,.84,9542,1,0)
59 ;;=^^1^1^2940914^
60 ;;^UTILITY(U,$J,.84,9542,1,1,0)
61 ;;=File number missing or invalid for FIA structure.
62 ;;^UTILITY(U,$J,.84,9542,2,0)
63 ;;=^^1^1^2940914^
64 ;;^UTILITY(U,$J,.84,9542,2,1,0)
65 ;;=File number missing or invalid to build FIA structure.
66 ;;^UTILITY(U,$J,.84,9543,0)
67 ;;=9543^1^y^5
68 ;;^UTILITY(U,$J,.84,9543,1,0)
69 ;;=^^4^4^2980505^
70 ;;^UTILITY(U,$J,.84,9543,1,1,0)
71 ;;=Each field involved in an INDEX or KEY entry should be included in the
72 ;;^UTILITY(U,$J,.84,9543,1,2,0)
73 ;;=KIDS' transport global. If a field participating in an INDEX or KEY entry
74 ;;^UTILITY(U,$J,.84,9543,1,3,0)
75 ;;=is missing from the transport global, the INDEX or KEY entry is not
76 ;;^UTILITY(U,$J,.84,9543,1,4,0)
77 ;;=exported.
78 ;;^UTILITY(U,$J,.84,9543,2,0)
79 ;;=^^2^2^2980505^^
80 ;;^UTILITY(U,$J,.84,9543,2,1,0)
81 ;;=Field |1| of file |2|, part of '|3|' |4| entry, is missing from the
82 ;;^UTILITY(U,$J,.84,9543,2,2,0)
83 ;;=transport global.
84 ;;^UTILITY(U,$J,.84,9543,3,0)
85 ;;=^.845^4^4
86 ;;^UTILITY(U,$J,.84,9543,3,1,0)
87 ;;=1^Field name
88 ;;^UTILITY(U,$J,.84,9543,3,2,0)
89 ;;=2^File name
90 ;;^UTILITY(U,$J,.84,9543,3,3,0)
91 ;;=3^Index or Key name
92 ;;^UTILITY(U,$J,.84,9543,3,4,0)
93 ;;=4^KEY or INDEX
94 ;;^UTILITY(U,$J,.84,9543,5,0)
95 ;;=^.841^2^2
96 ;;^UTILITY(U,$J,.84,9543,5,1,0)
97 ;;=DIFROMSX^DDIXOUT
98 ;;^UTILITY(U,$J,.84,9543,5,2,0)
99 ;;=DIFROMSY^DDKEYOUT
100 ;;^UTILITY(U,$J,.84,9544,0)
101 ;;=9544^1^y^5
102 ;;^UTILITY(U,$J,.84,9544,1,0)
103 ;;=^^4^4^2980505^^
104 ;;^UTILITY(U,$J,.84,9544,1,1,0)
105 ;;=Each field involved in an INDEX or KEY entry should be included in the
106 ;;^UTILITY(U,$J,.84,9544,1,2,0)
107 ;;=KIDS' transport global. If any fields participating in an INDEX or KEY
108 ;;^UTILITY(U,$J,.84,9544,1,3,0)
109 ;;=entry are missing from the transport global, the INDEX or KEY entry is not
110 ;;^UTILITY(U,$J,.84,9544,1,4,0)
111 ;;=exported.
112 ;;^UTILITY(U,$J,.84,9544,2,0)
113 ;;=^^2^2^2980507^
114 ;;^UTILITY(U,$J,.84,9544,2,1,0)
115 ;;=Field(s) that are part of '|1|' |2| entry for file |3| are missing from
116 ;;^UTILITY(U,$J,.84,9544,2,2,0)
117 ;;=the transport global.
118 ;;^UTILITY(U,$J,.84,9544,3,0)
119 ;;=^.845^3^3
120 ;;^UTILITY(U,$J,.84,9544,3,1,0)
121 ;;=1^Key or Index Name
122 ;;^UTILITY(U,$J,.84,9544,3,2,0)
123 ;;=2^KEY or INDEX
124 ;;^UTILITY(U,$J,.84,9544,3,3,0)
125 ;;=3^File Name
126 ;;^UTILITY(U,$J,.84,9544,5,0)
127 ;;=^.841^1^1
128 ;;^UTILITY(U,$J,.84,9544,5,1,0)
129 ;;=DIFROMSX^DDIXOUT
130 ;;^UTILITY(U,$J,.84,9545,0)
131 ;;=9545^1^y^5
132 ;;^UTILITY(U,$J,.84,9545,1,0)
133 ;;=^^2^2^2980505^^
134 ;;^UTILITY(U,$J,.84,9545,1,1,0)
135 ;;=INDEX entry not installed. This entry references a field that does not
136 ;;^UTILITY(U,$J,.84,9545,1,2,0)
137 ;;=exist on the target system.
138 ;;^UTILITY(U,$J,.84,9545,2,0)
139 ;;=^^2^2^2980507^
140 ;;^UTILITY(U,$J,.84,9545,2,1,0)
141 ;;=|1| '|2|' not installed. Field |3| in file |4|
142 ;;^UTILITY(U,$J,.84,9545,2,2,0)
143 ;;=does not exist on the system.
144 ;;^UTILITY(U,$J,.84,9545,3,0)
145 ;;=^.845^4^4
146 ;;^UTILITY(U,$J,.84,9545,3,1,0)
147 ;;=2^This is name of the Index file entry.
148 ;;^UTILITY(U,$J,.84,9545,3,2,0)
149 ;;=3^This is the field that is being referenced by the Index entry.
150 ;;^UTILITY(U,$J,.84,9545,3,3,0)
151 ;;=4^This is the file that is being referenced by the Index entry.
152 ;;^UTILITY(U,$J,.84,9545,3,4,0)
153 ;;=1^KEY or INDEX
154 ;;^UTILITY(U,$J,.84,9545,5,0)
155 ;;=^.841^2^2
156 ;;^UTILITY(U,$J,.84,9545,5,1,0)
157 ;;=DDFROMSX^DDIXIN
158 ;;^UTILITY(U,$J,.84,9545,5,2,0)
159 ;;=DDFROMSY^DDKEYIN
160 ;;^UTILITY(U,$J,.84,9546,0)
161 ;;=9546^1^y^5
162 ;;^UTILITY(U,$J,.84,9546,1,0)
163 ;;=^^2^2^2980505^
164 ;;^UTILITY(U,$J,.84,9546,1,1,0)
165 ;;=Uniqueness index pointer either missing from KEY file entry or invalid,
166 ;;^UTILITY(U,$J,.84,9546,1,2,0)
167 ;;=when trying to transport the KEY.
168 ;;^UTILITY(U,$J,.84,9546,2,0)
169 ;;=^^2^2^2980505^
170 ;;^UTILITY(U,$J,.84,9546,2,1,0)
171 ;;=KEY '|1|' for file |2| cannot be transported, problem with Uniqueness
172 ;;^UTILITY(U,$J,.84,9546,2,2,0)
173 ;;=Index for the KEY.
174 ;;^UTILITY(U,$J,.84,9546,3,0)
175 ;;=^.845^2^2
176 ;;^UTILITY(U,$J,.84,9546,3,1,0)
177 ;;=1^This is the name of the KEY file entry.
178 ;;^UTILITY(U,$J,.84,9546,3,2,0)
179 ;;=2^This is the file number that owns the KEY file entry.
180 ;;^UTILITY(U,$J,.84,9547,0)
181 ;;=9547^1^y^5
182 ;;^UTILITY(U,$J,.84,9547,1,0)
183 ;;=^^2^2^2980505^^
184 ;;^UTILITY(U,$J,.84,9547,1,1,0)
185 ;;=KEY file entry cannot be installed because Uniqueness Index pointer can't
186 ;;^UTILITY(U,$J,.84,9547,1,2,0)
187 ;;=be resolved.
188 ;;^UTILITY(U,$J,.84,9547,2,0)
189 ;;=^^2^2^2980507^
190 ;;^UTILITY(U,$J,.84,9547,2,1,0)
191 ;;=KEY entry '|1|' for file |2| not installed. Pointer to Uniqueness Index
192 ;;^UTILITY(U,$J,.84,9547,2,2,0)
193 ;;=cannot be resolved.
194 ;;^UTILITY(U,$J,.84,9547,3,0)
195 ;;=^.845^2^2
196 ;;^UTILITY(U,$J,.84,9547,3,1,0)
197 ;;=1^This is the name of the KEY file entry
198 ;;^UTILITY(U,$J,.84,9547,3,2,0)
199 ;;=2^This is the number of the file that owns the KEY.
200 ;;^UTILITY(U,$J,.84,9547,5,0)
201 ;;=^.841^1^1
202 ;;^UTILITY(U,$J,.84,9547,5,1,0)
203 ;;=DIFROMSY^DDKEYIN
204 ;;^UTILITY(U,$J,.84,9548,0)
205 ;;=9548^1^y^5
206 ;;^UTILITY(U,$J,.84,9548,1,0)
207 ;;=^^2^2^2980610^
208 ;;^UTILITY(U,$J,.84,9548,1,1,0)
209 ;;=Error from TRANSFER mode, when DD is being cloned from the transfer FROM
Note: See TracBrowser for help on using the repository browser.