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

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

initial load of WorldVistAEHR
File size: 6.6 KB
RevLine 
[613]1DINIT00A ; 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,720,1,2,0)
7 ;;=LAYGO is not allowed.
8 ;;^UTILITY(U,$J,.84,720,2,0)
9 ;;=^^1^1^2931109^
10 ;;^UTILITY(U,$J,.84,720,2,1,0)
11 ;;=The value cannot be found in the pointed-to file.
12 ;;^UTILITY(U,$J,.84,720,3,0)
13 ;;=^.845^2^2
14 ;;^UTILITY(U,$J,.84,720,3,1,0)
15 ;;=FILE^File number -- the number of the file in which the pointer field exists.
16 ;;^UTILITY(U,$J,.84,720,3,2,0)
17 ;;=FIELD^Field number of the pointer field.
18 ;;^UTILITY(U,$J,.84,726,0)
19 ;;=726^1^y^5
20 ;;^UTILITY(U,$J,.84,726,1,0)
21 ;;=^^2^2^2931110^
22 ;;^UTILITY(U,$J,.84,726,1,1,0)
23 ;;=There is an attempt to take an action with word processing data, but
24 ;;^UTILITY(U,$J,.84,726,1,2,0)
25 ;;=the specified field is not a word processing field.
26 ;;^UTILITY(U,$J,.84,726,2,0)
27 ;;=^^1^1^2931110^
28 ;;^UTILITY(U,$J,.84,726,2,1,0)
29 ;;=Field #|FIELD| in File #|FILE| is not a word processing field.
30 ;;^UTILITY(U,$J,.84,726,3,0)
31 ;;=^.845^2^2
32 ;;^UTILITY(U,$J,.84,726,3,1,0)
33 ;;=FIELD^Field number.
34 ;;^UTILITY(U,$J,.84,726,3,2,0)
35 ;;=FILE^File number.
36 ;;^UTILITY(U,$J,.84,730,0)
37 ;;=730^1^y^5
38 ;;^UTILITY(U,$J,.84,730,1,0)
39 ;;=^^2^2^2941128^
40 ;;^UTILITY(U,$J,.84,730,1,1,0)
41 ;;=Based on how the data type is defined by a specific field in a specific
42 ;;^UTILITY(U,$J,.84,730,1,2,0)
43 ;;=file, the passed value is not valid.
44 ;;^UTILITY(U,$J,.84,730,2,0)
45 ;;=^^2^2^2941128^
46 ;;^UTILITY(U,$J,.84,730,2,1,0)
47 ;;=The value '|1|' is not a valid |2| according to the definition in Field
48 ;;^UTILITY(U,$J,.84,730,2,2,0)
49 ;;=#|FIELD| of File #|FILE|.
50 ;;^UTILITY(U,$J,.84,730,3,0)
51 ;;=^.845^4^4
52 ;;^UTILITY(U,$J,.84,730,3,1,0)
53 ;;=1^Passed Value.
54 ;;^UTILITY(U,$J,.84,730,3,2,0)
55 ;;=2^Data Type.
56 ;;^UTILITY(U,$J,.84,730,3,3,0)
57 ;;=FIELD^Field #.
58 ;;^UTILITY(U,$J,.84,730,3,4,0)
59 ;;=FILE^File #.
60 ;;^UTILITY(U,$J,.84,740,0)
61 ;;=740^1^y^5
62 ;;^UTILITY(U,$J,.84,740,1,0)
63 ;;=^^5^5^2980407^^^^
64 ;;^UTILITY(U,$J,.84,740,1,1,0)
65 ;;=When one or more fields are declared as a key for a file, there cannot be
66 ;;^UTILITY(U,$J,.84,740,1,2,0)
67 ;;=duplicate values in those field(s) for entries in the file. The values
68 ;;^UTILITY(U,$J,.84,740,1,3,0)
69 ;;=being passed for validation, when combined with values for unchanging
70 ;;^UTILITY(U,$J,.84,740,1,4,0)
71 ;;=fields in the entry if necessary, create a duplicate key. The changes
72 ;;^UTILITY(U,$J,.84,740,1,5,0)
73 ;;=destroy the integrity of the key. Therefore, they are invalid.
74 ;;^UTILITY(U,$J,.84,740,2,0)
75 ;;=^^1^1^2980407^
76 ;;^UTILITY(U,$J,.84,740,2,1,0)
77 ;;=New values are invalid because they create a duplicate Key '|1|' for the |2| file.
78 ;;^UTILITY(U,$J,.84,740,3,0)
79 ;;=^.845^5^5
80 ;;^UTILITY(U,$J,.84,740,3,1,0)
81 ;;=1^Name of Key.
82 ;;^UTILITY(U,$J,.84,740,3,2,0)
83 ;;=2^Name of affected file.
84 ;;^UTILITY(U,$J,.84,740,3,3,0)
85 ;;=FILE^File number.
86 ;;^UTILITY(U,$J,.84,740,3,4,0)
87 ;;=KEY^IEN of the invalid key.
88 ;;^UTILITY(U,$J,.84,740,3,5,0)
89 ;;=IENS^IENS of record with invalid key.
90 ;;^UTILITY(U,$J,.84,741,0)
91 ;;=741^1^^5
92 ;;^UTILITY(U,$J,.84,741,1,0)
93 ;;=^^3^3^2981208^
94 ;;^UTILITY(U,$J,.84,741,1,1,0)
95 ;;=Error message generated when user is adding a new entry using classic
96 ;;^UTILITY(U,$J,.84,741,1,2,0)
97 ;;=FileMan lookup ^DIC routines, and either key values are not entered, or
98 ;;^UTILITY(U,$J,.84,741,1,3,0)
99 ;;=they create a duplicate key.
100 ;;^UTILITY(U,$J,.84,741,2,0)
101 ;;=^^1^1^2981208^
102 ;;^UTILITY(U,$J,.84,741,2,1,0)
103 ;;=Either key values are null, or they create a duplicate key.
104 ;;^UTILITY(U,$J,.84,741,5,0)
105 ;;=^.841^1^1
106 ;;^UTILITY(U,$J,.84,741,5,1,0)
107 ;;=DICN1^A
108 ;;^UTILITY(U,$J,.84,742,0)
109 ;;=742^1^y^5
110 ;;^UTILITY(U,$J,.84,742,1,0)
111 ;;=^^2^2^2980407^^^^
112 ;;^UTILITY(U,$J,.84,742,1,1,0)
113 ;;=Every field in a key must have a value. The incoming data cannot delete
114 ;;^UTILITY(U,$J,.84,742,1,2,0)
115 ;;=the value for any field in a key.
116 ;;^UTILITY(U,$J,.84,742,2,0)
117 ;;=^^1^1^2980407^^
118 ;;^UTILITY(U,$J,.84,742,2,1,0)
119 ;;=The value of field |1| in the |2| file cannot be deleted because that field is part of the '|3|' key.
120 ;;^UTILITY(U,$J,.84,742,3,0)
121 ;;=^.845^6^6
122 ;;^UTILITY(U,$J,.84,742,3,1,0)
123 ;;=1^Field name
124 ;;^UTILITY(U,$J,.84,742,3,2,0)
125 ;;=2^File name
126 ;;^UTILITY(U,$J,.84,742,3,3,0)
127 ;;=3^Key name
128 ;;^UTILITY(U,$J,.84,742,3,4,0)
129 ;;=FILE^File number.
130 ;;^UTILITY(U,$J,.84,742,3,5,0)
131 ;;=FIELD^Field number.
132 ;;^UTILITY(U,$J,.84,742,3,6,0)
133 ;;=IENS^IENS
134 ;;^UTILITY(U,$J,.84,744,0)
135 ;;=744^1^y^5
136 ;;^UTILITY(U,$J,.84,744,1,0)
137 ;;=^^2^2^2980413^^^^
138 ;;^UTILITY(U,$J,.84,744,1,1,0)
139 ;;=Every field that is in a key must have a value. No value for this field
140 ;;^UTILITY(U,$J,.84,744,1,2,0)
141 ;;=exists.
142 ;;^UTILITY(U,$J,.84,744,2,0)
143 ;;=^^1^1^2980407^^^^
144 ;;^UTILITY(U,$J,.84,744,2,1,0)
145 ;;=Field |1| is part of Key '|2|', but the field has not been assigned a value.
146 ;;^UTILITY(U,$J,.84,744,3,0)
147 ;;=^.845^5^5
148 ;;^UTILITY(U,$J,.84,744,3,1,0)
149 ;;=1^Field name.
150 ;;^UTILITY(U,$J,.84,744,3,2,0)
151 ;;=2^Key name.
152 ;;^UTILITY(U,$J,.84,744,3,3,0)
153 ;;=FIELD^Field number.
154 ;;^UTILITY(U,$J,.84,744,3,4,0)
155 ;;=FILE^File number.
156 ;;^UTILITY(U,$J,.84,744,3,5,0)
157 ;;=IENS^IENS of record with incomplete key.
158 ;;^UTILITY(U,$J,.84,746,0)
159 ;;=746^1^y^5
160 ;;^UTILITY(U,$J,.84,746,1,0)
161 ;;=^^2^2^2980415^^^^
162 ;;^UTILITY(U,$J,.84,746,1,1,0)
163 ;;=A lookup node is present in the FDA, but no Primary Key fields are
164 ;;^UTILITY(U,$J,.84,746,1,2,0)
165 ;;=provided.
166 ;;^UTILITY(U,$J,.84,746,2,0)
167 ;;=^^1^1^2980415^
168 ;;^UTILITY(U,$J,.84,746,2,1,0)
169 ;;=No fields in Primary Key '|1|' have been provided in the FDA to look up '|IENS|' in the |2| file.
170 ;;^UTILITY(U,$J,.84,746,3,0)
171 ;;=^.845^5^5
172 ;;^UTILITY(U,$J,.84,746,3,1,0)
173 ;;=1^Key name.
174 ;;^UTILITY(U,$J,.84,746,3,2,0)
175 ;;=2^File name.
176 ;;^UTILITY(U,$J,.84,746,3,3,0)
177 ;;=IENS^IENS of lookup node.
178 ;;^UTILITY(U,$J,.84,746,3,4,0)
179 ;;=KEY^Key number.
180 ;;^UTILITY(U,$J,.84,746,3,5,0)
181 ;;=FILE^File number.
182 ;;^UTILITY(U,$J,.84,810,0)
183 ;;=810^1^^5
184 ;;^UTILITY(U,$J,.84,810,1,0)
185 ;;=^^3^3^2931109^
186 ;;^UTILITY(U,$J,.84,810,1,1,0)
187 ;;=A %ZOSF node required to perform a function does not exist. The
188 ;;^UTILITY(U,$J,.84,810,1,2,0)
189 ;;=VA FileMan Programmer's Manual contains a complete list of %ZOSF
190 ;;^UTILITY(U,$J,.84,810,1,3,0)
191 ;;=nodes.
192 ;;^UTILITY(U,$J,.84,810,2,0)
193 ;;=^^1^1^2931109^
194 ;;^UTILITY(U,$J,.84,810,2,1,0)
195 ;;=A necessary %ZOSF node does not exist on your system.
196 ;;^UTILITY(U,$J,.84,820,0)
197 ;;=820^1^^5
198 ;;^UTILITY(U,$J,.84,820,1,0)
199 ;;=^^3^3^2931109^
200 ;;^UTILITY(U,$J,.84,820,1,1,0)
201 ;;=The ZSAVE CODE field (#2619) in the MUMPS Operating System file (#.7)
Note: See TracBrowser for help on using the repository browser.