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

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

initial load of WorldVistAEHR
File size: 6.7 KB
Line 
1DINIT006 ; 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,308,2,0)
7 ;;=^^1^1^2941018^
8 ;;^UTILITY(U,$J,.84,308,2,1,0)
9 ;;=The IENS '|IENS|' is syntactically incorrect.
10 ;;^UTILITY(U,$J,.84,308,3,0)
11 ;;=^.845^1^1
12 ;;^UTILITY(U,$J,.84,308,3,1,0)
13 ;;=IENS^IENS.
14 ;;^UTILITY(U,$J,.84,309,0)
15 ;;=309^1^^5
16 ;;^UTILITY(U,$J,.84,309,1,0)
17 ;;=^^2^2^2931109^
18 ;;^UTILITY(U,$J,.84,309,1,1,0)
19 ;;=A multiple field is involved. Either the root of the multiple or the
20 ;;^UTILITY(U,$J,.84,309,1,2,0)
21 ;;=necessary entry numbers are missing.
22 ;;^UTILITY(U,$J,.84,309,2,0)
23 ;;=^^1^1^2931109^
24 ;;^UTILITY(U,$J,.84,309,2,1,0)
25 ;;=There is insufficient information to identify an entry in a subfile.
26 ;;^UTILITY(U,$J,.84,310,0)
27 ;;=310^1^y^5
28 ;;^UTILITY(U,$J,.84,310,1,0)
29 ;;=^^6^6^2940629^
30 ;;^UTILITY(U,$J,.84,310,1,1,0)
31 ;;=Some of the IENS subscripts in this FDA conflict with each other. For
32 ;;^UTILITY(U,$J,.84,310,1,2,0)
33 ;;=example, one IENS may use the sequence number ?1 while another uses +1.
34 ;;^UTILITY(U,$J,.84,310,1,3,0)
35 ;;=This would be illegal because the sequence number 1 is being used to
36 ;;^UTILITY(U,$J,.84,310,1,4,0)
37 ;;=represent two different operations. Consult your documentation for an
38 ;;^UTILITY(U,$J,.84,310,1,5,0)
39 ;;=explanation of the various conflicts possible. The IENS returned with this
40 ;;^UTILITY(U,$J,.84,310,1,6,0)
41 ;;=error happens to be one of the IENS values in conflict.
42 ;;^UTILITY(U,$J,.84,310,2,0)
43 ;;=^^1^1^2941018^
44 ;;^UTILITY(U,$J,.84,310,2,1,0)
45 ;;=The IENS '|IENS|' conflicts with the rest of the FDA.
46 ;;^UTILITY(U,$J,.84,310,3,0)
47 ;;=^.845^1^1
48 ;;^UTILITY(U,$J,.84,310,3,1,0)
49 ;;=IENS^IENS.
50 ;;^UTILITY(U,$J,.84,311,0)
51 ;;=311^1^y^5
52 ;;^UTILITY(U,$J,.84,311,1,0)
53 ;;=^^3^3^2940629^
54 ;;^UTILITY(U,$J,.84,311,1,1,0)
55 ;;=Adding an entry to a file without including all required identifiers
56 ;;^UTILITY(U,$J,.84,311,1,2,0)
57 ;;=violates database integrity. The entry identified by this IENS lacks some
58 ;;^UTILITY(U,$J,.84,311,1,3,0)
59 ;;=of its required identifiers in the passed FDA.
60 ;;^UTILITY(U,$J,.84,311,2,0)
61 ;;=^^1^1^2941018^
62 ;;^UTILITY(U,$J,.84,311,2,1,0)
63 ;;=The new record '|IENS|' lacks some required identifiers.
64 ;;^UTILITY(U,$J,.84,311,3,0)
65 ;;=^.845^1^1
66 ;;^UTILITY(U,$J,.84,311,3,1,0)
67 ;;=IENS^IENS.
68 ;;^UTILITY(U,$J,.84,312,0)
69 ;;=312^1^y
70 ;;^UTILITY(U,$J,.84,312,1,0)
71 ;;=^^2^2^2950317^
72 ;;^UTILITY(U,$J,.84,312,1,1,0)
73 ;;=All required identifiers must be present for a new entry to be filed.
74 ;;^UTILITY(U,$J,.84,312,1,2,0)
75 ;;=One or more of those fields is missing for the (sub)file.
76 ;;^UTILITY(U,$J,.84,312,2,0)
77 ;;=^^1^1^2950317^
78 ;;^UTILITY(U,$J,.84,312,2,1,0)
79 ;;=The list of fields is missing a required identifier for File #|FILE|.
80 ;;^UTILITY(U,$J,.84,312,3,0)
81 ;;=^.845^1^1
82 ;;^UTILITY(U,$J,.84,312,3,1,0)
83 ;;=FILE^File or subfile #.
84 ;;^UTILITY(U,$J,.84,313,0)
85 ;;=313^1^^5
86 ;;^UTILITY(U,$J,.84,313,1,0)
87 ;;=^^2^2^2960306^
88 ;;^UTILITY(U,$J,.84,313,1,1,0)
89 ;;=The arrays that hold internal and external values must have different roots,
90 ;;^UTILITY(U,$J,.84,313,1,2,0)
91 ;;=but both FDAs have the same root.
92 ;;^UTILITY(U,$J,.84,313,2,0)
93 ;;=^^1^1^2960306^
94 ;;^UTILITY(U,$J,.84,313,2,1,0)
95 ;;=The FDA root for external values is the same as the one for internal values.
96 ;;^UTILITY(U,$J,.84,330,0)
97 ;;=330^1^y^5
98 ;;^UTILITY(U,$J,.84,330,1,0)
99 ;;=^^2^2^2941123^
100 ;;^UTILITY(U,$J,.84,330,1,1,0)
101 ;;=The value passed by the calling application should be a certain data type,
102 ;;^UTILITY(U,$J,.84,330,1,2,0)
103 ;;=but according to our checks it is not.
104 ;;^UTILITY(U,$J,.84,330,2,0)
105 ;;=^^1^1^2941123^
106 ;;^UTILITY(U,$J,.84,330,2,1,0)
107 ;;=The value '|1|' is not a valid |2|.
108 ;;^UTILITY(U,$J,.84,330,3,0)
109 ;;=^.845^2^2
110 ;;^UTILITY(U,$J,.84,330,3,1,0)
111 ;;=1^Passed Value.
112 ;;^UTILITY(U,$J,.84,330,3,2,0)
113 ;;=2^Data Type.
114 ;;^UTILITY(U,$J,.84,348,0)
115 ;;=348^1^y^5
116 ;;^UTILITY(U,$J,.84,348,1,0)
117 ;;=^^2^2^2940214^
118 ;;^UTILITY(U,$J,.84,348,1,1,0)
119 ;;=The calling application passed us a variable pointer value. That value
120 ;;^UTILITY(U,$J,.84,348,1,2,0)
121 ;;=points to a file that does not exist, or that lacks a Header Node.
122 ;;^UTILITY(U,$J,.84,348,2,0)
123 ;;=^^2^2^2940214^
124 ;;^UTILITY(U,$J,.84,348,2,1,0)
125 ;;=The passed value '|1|' points to a file that does not exist or lacks a
126 ;;^UTILITY(U,$J,.84,348,2,2,0)
127 ;;=Header Node.
128 ;;^UTILITY(U,$J,.84,348,3,0)
129 ;;=^.845^1^1
130 ;;^UTILITY(U,$J,.84,348,3,1,0)
131 ;;=1^Passed Value.
132 ;;^UTILITY(U,$J,.84,349,0)
133 ;;=349^2^y^5
134 ;;^UTILITY(U,$J,.84,349,1,0)
135 ;;=^^2^2^2940310^^^
136 ;;^UTILITY(U,$J,.84,349,1,1,0)
137 ;;=Text used by the Replace...With editor
138 ;;^UTILITY(U,$J,.84,349,1,2,0)
139 ;;=Note: Dialog will be used with $$EZBLD^DIALOG call, only one text line!!
140 ;;^UTILITY(U,$J,.84,349,2,0)
141 ;;=^^1^1^2940310^^
142 ;;^UTILITY(U,$J,.84,349,2,1,0)
143 ;;= String too long by |1| character(s)!
144 ;;^UTILITY(U,$J,.84,349,3,0)
145 ;;=^.845^1^1
146 ;;^UTILITY(U,$J,.84,349,3,1,0)
147 ;;=1^Number of characters over the limit.
148 ;;^UTILITY(U,$J,.84,350,0)
149 ;;=350^2^^5
150 ;;^UTILITY(U,$J,.84,350,1,0)
151 ;;=^^1^1^2940310^
152 ;;^UTILITY(U,$J,.84,350,1,1,0)
153 ;;=Message from the Replace...With editor.
154 ;;^UTILITY(U,$J,.84,350,2,0)
155 ;;=^^1^1^2940310^
156 ;;^UTILITY(U,$J,.84,350,2,1,0)
157 ;;= String too long! '^' to quit.
158 ;;^UTILITY(U,$J,.84,351,0)
159 ;;=351^1^y^5
160 ;;^UTILITY(U,$J,.84,351,1,0)
161 ;;=^^4^4^2941021^
162 ;;^UTILITY(U,$J,.84,351,1,1,0)
163 ;;=When passing an FDA to the Updater, any entries intended as Finding or
164 ;;^UTILITY(U,$J,.84,351,1,2,0)
165 ;;=LAYGO Finding nodes must include a .01 node that has the lookup value.
166 ;;^UTILITY(U,$J,.84,351,1,3,0)
167 ;;=This value need not be a legitimate .01 field value, but it must be a
168 ;;^UTILITY(U,$J,.84,351,1,4,0)
169 ;;=valid and unambiguous lookup value for the file.
170 ;;^UTILITY(U,$J,.84,351,2,0)
171 ;;=^^1^1^2941021^
172 ;;^UTILITY(U,$J,.84,351,2,1,0)
173 ;;=FDA nodes for lookup '|IENS|' omit a .01 node with a lookup value.
174 ;;^UTILITY(U,$J,.84,351,3,0)
175 ;;=^.845^2^2
176 ;;^UTILITY(U,$J,.84,351,3,1,0)
177 ;;=FILE^File #.
178 ;;^UTILITY(U,$J,.84,351,3,2,0)
179 ;;=IENS^IENS Subscript for Finding or LAYGO Finding node.
180 ;;^UTILITY(U,$J,.84,352,0)
181 ;;=352^1^y^5
182 ;;^UTILITY(U,$J,.84,352,1,0)
183 ;;=^^3^3^2980415^
184 ;;^UTILITY(U,$J,.84,352,1,1,0)
185 ;;=When passing an FDA to the Updater, any entries intended as LAYGO or LAYGO
186 ;;^UTILITY(U,$J,.84,352,1,2,0)
187 ;;=Findings nodes must include a .01 node. Every new entry must have a value
188 ;;^UTILITY(U,$J,.84,352,1,3,0)
189 ;;=for the .01 field.
190 ;;^UTILITY(U,$J,.84,352,2,0)
191 ;;=^^1^1^2980415^
192 ;;^UTILITY(U,$J,.84,352,2,1,0)
193 ;;=The new record '|IENS|' for file #|FILE| lacks a .01 field.
Note: See TracBrowser for help on using the repository browser.