Annotation of freem_fileman/DINIT00A.m, revision 1.1.1.1
1.1 snw 1: DINIT00A ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 12/22/94 09:32:23
2: ;;21.0;VA FileMan;;Dec 28, 1994
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
5: Q Q
6: ;;^UTILITY(U,$J,.84,603,0)
7: ;;=603^1^y^11^
8: ;;^UTILITY(U,$J,.84,603,1,0)
9: ;;=^^2^2^2940214^
10: ;;^UTILITY(U,$J,.84,603,1,1,0)
11: ;;=A specific entry in a specific file lacks a value for a required field.
12: ;;^UTILITY(U,$J,.84,603,1,2,0)
13: ;;=This error message returns which field is missing.
14: ;;^UTILITY(U,$J,.84,603,2,0)
15: ;;=^^1^1^2940214^
16: ;;^UTILITY(U,$J,.84,603,2,1,0)
17: ;;=Entry #|1| in File #|FILE| lacks the required Field #|FIELD|.
18: ;;^UTILITY(U,$J,.84,603,3,0)
19: ;;=^.845^3^3
20: ;;^UTILITY(U,$J,.84,603,3,1,0)
21: ;;=1^Entry #.
22: ;;^UTILITY(U,$J,.84,603,3,2,0)
23: ;;=FILE^File #.
24: ;;^UTILITY(U,$J,.84,603,3,3,0)
25: ;;=FIELD^Field #.
26: ;;^UTILITY(U,$J,.84,630,0)
27: ;;=630^1^y^11
28: ;;^UTILITY(U,$J,.84,630,1,0)
29: ;;=^^2^2^2941128^
30: ;;^UTILITY(U,$J,.84,630,1,1,0)
31: ;;=The database is corrupted. The value for a specific field in one entry
32: ;;^UTILITY(U,$J,.84,630,1,2,0)
33: ;;=should be a certain data type, but it is not.
34: ;;^UTILITY(U,$J,.84,630,2,0)
35: ;;=^^2^2^2941128^
36: ;;^UTILITY(U,$J,.84,630,2,1,0)
37: ;;=In Entry #|1| of File #|FILE|, the value '|2|' for Field #|FIELD| is not a
38: ;;^UTILITY(U,$J,.84,630,2,2,0)
39: ;;=valid |3|.
40: ;;^UTILITY(U,$J,.84,630,3,0)
41: ;;=^.845^5^5
42: ;;^UTILITY(U,$J,.84,630,3,1,0)
43: ;;=1^Entry #.
44: ;;^UTILITY(U,$J,.84,630,3,2,0)
45: ;;=2^Field Value.
46: ;;^UTILITY(U,$J,.84,630,3,3,0)
47: ;;=3^Data Type.
48: ;;^UTILITY(U,$J,.84,630,3,4,0)
49: ;;=FIELD^Field #.
50: ;;^UTILITY(U,$J,.84,630,3,5,0)
51: ;;=FILE^File #.
52: ;;^UTILITY(U,$J,.84,648,0)
53: ;;=648^1^y^11^
54: ;;^UTILITY(U,$J,.84,648,1,0)
55: ;;=^^3^3^2940214^
56: ;;^UTILITY(U,$J,.84,648,1,1,0)
57: ;;=The database is corrupted. In a specific variable pointer field of a
58: ;;^UTILITY(U,$J,.84,648,1,2,0)
59: ;;=certain entry, the field's value points to a file that either does not
60: ;;^UTILITY(U,$J,.84,648,1,3,0)
61: ;;=exist or that lacks a Header Node.
62: ;;^UTILITY(U,$J,.84,648,2,0)
63: ;;=^^2^2^2940214^
64: ;;^UTILITY(U,$J,.84,648,2,1,0)
65: ;;=In Entry #|1| of File #|FILE|, the value '|2|' for Field #|FIELD| points
66: ;;^UTILITY(U,$J,.84,648,2,2,0)
67: ;;=to a file that does not exist or lacks a Header Node.
68: ;;^UTILITY(U,$J,.84,648,3,0)
69: ;;=^.845^4^4
70: ;;^UTILITY(U,$J,.84,648,3,1,0)
71: ;;=1^Entry #.
72: ;;^UTILITY(U,$J,.84,648,3,2,0)
73: ;;=2^Field Value.
74: ;;^UTILITY(U,$J,.84,648,3,3,0)
75: ;;=FILE^File #.
76: ;;^UTILITY(U,$J,.84,648,3,4,0)
77: ;;=FIELD^Field #.
78: ;;^UTILITY(U,$J,.84,701,0)
79: ;;=701^1^y^11^
80: ;;^UTILITY(U,$J,.84,701,1,0)
81: ;;=^^3^3^2931109^
82: ;;^UTILITY(U,$J,.84,701,1,1,0)
83: ;;=The value is invalid. Possible causes include: value did not pass input
84: ;;^UTILITY(U,$J,.84,701,1,2,0)
85: ;;=transform, value for a pointer or variable pointer field cannot be found in
86: ;;^UTILITY(U,$J,.84,701,1,3,0)
87: ;;=the pointed-to file, a screen was not passed.
88: ;;^UTILITY(U,$J,.84,701,2,0)
89: ;;=^^1^1^2931110^^
90: ;;^UTILITY(U,$J,.84,701,2,1,0)
91: ;;=The value '|3|' for field |1| in file |2| is not valid.
92: ;;^UTILITY(U,$J,.84,701,3,0)
93: ;;=^.845^6^6
94: ;;^UTILITY(U,$J,.84,701,3,1,0)
95: ;;=1^Field name.
96: ;;^UTILITY(U,$J,.84,701,3,2,0)
97: ;;=2^File name.
98: ;;^UTILITY(U,$J,.84,701,3,3,0)
99: ;;=3^Value that was found to be invalid.
100: ;;^UTILITY(U,$J,.84,701,3,4,0)
101: ;;=FIELD^Field number. (external only)
102: ;;^UTILITY(U,$J,.84,701,3,5,0)
103: ;;=FILE^File number. (external only)
104: ;;^UTILITY(U,$J,.84,701,3,6,0)
105: ;;=IENS^IEN string identifying entry with invalid value. (external only, sometimes returned)
106: ;;^UTILITY(U,$J,.84,701,5,0)
107: ;;=^.841^1^1
108: ;;^UTILITY(U,$J,.84,701,5,1,0)
109: ;;=DIE^FILE
110: ;;^UTILITY(U,$J,.84,703,0)
111: ;;=703^1^y^11^
112: ;;^UTILITY(U,$J,.84,703,1,0)
113: ;;=^^1^1^2940317^
114: ;;^UTILITY(U,$J,.84,703,1,1,0)
115: ;;=The value passed cannot be found in the indicated file using $$FIND1^DIC.
116: ;;^UTILITY(U,$J,.84,703,2,0)
117: ;;=^^1^1^2940317^
118: ;;^UTILITY(U,$J,.84,703,2,1,0)
119: ;;=The value '|1|' cannot be found in file #|FILE|.
120: ;;^UTILITY(U,$J,.84,703,3,0)
121: ;;=^.845^3^3
122: ;;^UTILITY(U,$J,.84,703,3,1,0)
123: ;;=FILE^File #.
124: ;;^UTILITY(U,$J,.84,703,3,2,0)
125: ;;=IENS^IEN String.
126: ;;^UTILITY(U,$J,.84,703,3,3,0)
127: ;;=1^Lookup Value.
128: ;;^UTILITY(U,$J,.84,710,0)
129: ;;=710^1^y^11^
130: ;;^UTILITY(U,$J,.84,710,1,0)
131: ;;=^^2^2^2931123^^^^
132: ;;^UTILITY(U,$J,.84,710,1,1,0)
133: ;;=The data dictionary specifies that the field is uneditable. Data already
134: ;;^UTILITY(U,$J,.84,710,1,2,0)
135: ;;=exists in the field. It cannot be changed.
136: ;;^UTILITY(U,$J,.84,710,2,0)
137: ;;=^^1^1^2931110^^^
138: ;;^UTILITY(U,$J,.84,710,2,1,0)
139: ;;=Data in Field #|FIELD| in File #|FILE| cannot be edited.
140: ;;^UTILITY(U,$J,.84,710,3,0)
141: ;;=^.845^2^2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT00A.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman