Annotation of freem_fileman/DINIT005.m, revision 1.1.1.1
1.1 snw 1: DINIT005 ; 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,202,5,0)
7: ;;=^.841^1^1
8: ;;^UTILITY(U,$J,.84,202,5,1,0)
9: ;;=DIT^TRNMRG
10: ;;^UTILITY(U,$J,.84,203,0)
11: ;;=203^1^y^11^
12: ;;^UTILITY(U,$J,.84,203,1,0)
13: ;;=^^3^3^2940426^
14: ;;^UTILITY(U,$J,.84,203,1,1,0)
15: ;;=An incorrect subscript is present in an array that is passed to FileMan.
16: ;;^UTILITY(U,$J,.84,203,1,2,0)
17: ;;=For example, one of the subscripts in the FDA which identifies FILE, IENS,
18: ;;^UTILITY(U,$J,.84,203,1,3,0)
19: ;;=or FIELD is incorrectly formatted.
20: ;;^UTILITY(U,$J,.84,203,2,0)
21: ;;=^^1^1^2940426^^^
22: ;;^UTILITY(U,$J,.84,203,2,1,0)
23: ;;=The subscript that identifies the |1| is missing or invalid.
24: ;;^UTILITY(U,$J,.84,203,3,0)
25: ;;=^.845^1^1
26: ;;^UTILITY(U,$J,.84,203,3,1,0)
27: ;;=1^The data element incorrectly specified by a subscript.
28: ;;^UTILITY(U,$J,.84,203,5,0)
29: ;;=^.841^1^1
30: ;;^UTILITY(U,$J,.84,203,5,1,0)
31: ;;=DIE^FILE
32: ;;^UTILITY(U,$J,.84,204,0)
33: ;;=204^1^^11
34: ;;^UTILITY(U,$J,.84,204,1,0)
35: ;;=^^1^1^2940316^
36: ;;^UTILITY(U,$J,.84,204,1,1,0)
37: ;;=Control characters are not permitted in the database.
38: ;;^UTILITY(U,$J,.84,204,2,0)
39: ;;=^^1^1^2940316^
40: ;;^UTILITY(U,$J,.84,204,2,1,0)
41: ;;=The input value contains control characters.
42: ;;^UTILITY(U,$J,.84,204,3,0)
43: ;;=^.845^1^1
44: ;;^UTILITY(U,$J,.84,204,3,1,0)
45: ;;=1^INPUT VALUE
46: ;;^UTILITY(U,$J,.84,205,0)
47: ;;=205^1^y^11^
48: ;;^UTILITY(U,$J,.84,205,1,0)
49: ;;=^^4^4^2941017^^^^
50: ;;^UTILITY(U,$J,.84,205,1,1,0)
51: ;;=Error message output when a file or subfile number, and its associated IEN
52: ;;^UTILITY(U,$J,.84,205,1,2,0)
53: ;;=string are not in sync. (I.E., the number of comma pieces represented by
54: ;;^UTILITY(U,$J,.84,205,1,3,0)
55: ;;=the IEN string do not match the file/subfile level according to the "UP"
56: ;;^UTILITY(U,$J,.84,205,1,4,0)
57: ;;=nodes.
58: ;;^UTILITY(U,$J,.84,205,2,0)
59: ;;=^^1^1^2941018^^
60: ;;^UTILITY(U,$J,.84,205,2,1,0)
61: ;;=File# |1| and IEN string |IENS| represent different subfile levels.
62: ;;^UTILITY(U,$J,.84,205,3,0)
63: ;;=^.845^2^2
64: ;;^UTILITY(U,$J,.84,205,3,1,0)
65: ;;=1^File or subfile number
66: ;;^UTILITY(U,$J,.84,205,3,2,0)
67: ;;=IENS^IEN string
68: ;;^UTILITY(U,$J,.84,205,5,0)
69: ;;=^.841^2^2
70: ;;^UTILITY(U,$J,.84,205,5,1,0)
71: ;;=DIT3^IENCHK
72: ;;^UTILITY(U,$J,.84,205,5,2,0)
73: ;;=DICA3^ERR
74: ;;^UTILITY(U,$J,.84,299,0)
75: ;;=299^1^y^11^
76: ;;^UTILITY(U,$J,.84,299,1,0)
77: ;;=^^2^2^2940401^^
78: ;;^UTILITY(U,$J,.84,299,1,1,0)
79: ;;=A lookup that was restricted to finding a single entry found more than
80: ;;^UTILITY(U,$J,.84,299,1,2,0)
81: ;;=one.
82: ;;^UTILITY(U,$J,.84,299,2,0)
83: ;;=^^1^1^2940401^^^
84: ;;^UTILITY(U,$J,.84,299,2,1,0)
85: ;;=More than one entry matches the value '|1|'.
86: ;;^UTILITY(U,$J,.84,299,3,0)
87: ;;=^.845^3^3
88: ;;^UTILITY(U,$J,.84,299,3,1,0)
89: ;;=1^Lookup Value.
90: ;;^UTILITY(U,$J,.84,299,3,2,0)
91: ;;=FILE^File #.
92: ;;^UTILITY(U,$J,.84,299,3,3,0)
93: ;;=IENS^IEN String.
94: ;;^UTILITY(U,$J,.84,301,0)
95: ;;=301^1^y^11^
96: ;;^UTILITY(U,$J,.84,301,1,0)
97: ;;=^^1^1^2931110^^
98: ;;^UTILITY(U,$J,.84,301,1,1,0)
99: ;;=Flags passed in a variable (like DIC(0)) or in a parameter are incorrect.
100: ;;^UTILITY(U,$J,.84,301,2,0)
101: ;;=^^1^1^2931110^^
102: ;;^UTILITY(U,$J,.84,301,2,1,0)
103: ;;=The passed flag(s) '|1|' are unknown or inconsistent.
104: ;;^UTILITY(U,$J,.84,301,3,0)
105: ;;=^.845^1^1
106: ;;^UTILITY(U,$J,.84,301,3,1,0)
107: ;;=1^Letter(s) from flag.
108: ;;^UTILITY(U,$J,.84,302,0)
109: ;;=302^1^y^11^
110: ;;^UTILITY(U,$J,.84,302,1,0)
111: ;;=^^2^2^2940215^
112: ;;^UTILITY(U,$J,.84,302,1,1,0)
113: ;;=The calling application has asked us to add a new record, and has supplied
114: ;;^UTILITY(U,$J,.84,302,1,2,0)
115: ;;=a record number, but a record already exists at that number.
116: ;;^UTILITY(U,$J,.84,302,2,0)
117: ;;=^^1^1^2941018^
118: ;;^UTILITY(U,$J,.84,302,2,1,0)
119: ;;=Entry '|IENS|' already exists.
120: ;;^UTILITY(U,$J,.84,302,3,0)
121: ;;=^.845^2^2
122: ;;^UTILITY(U,$J,.84,302,3,1,0)
123: ;;=FILE^File #.
124: ;;^UTILITY(U,$J,.84,302,3,2,0)
125: ;;=IENS^IEN String.
126: ;;^UTILITY(U,$J,.84,304,0)
127: ;;=304^1^y^11
128: ;;^UTILITY(U,$J,.84,304,1,0)
129: ;;=^^2^2^2940628^^^^
130: ;;^UTILITY(U,$J,.84,304,1,1,0)
131: ;;=The problem with this IEN string is that it lacks the final ','. This is a
132: ;;^UTILITY(U,$J,.84,304,1,2,0)
133: ;;=common mistake for beginners.
134: ;;^UTILITY(U,$J,.84,304,2,0)
135: ;;=^^1^1^2941018^
136: ;;^UTILITY(U,$J,.84,304,2,1,0)
137: ;;=The IENS '|IENS|' lacks a final comma.
138: ;;^UTILITY(U,$J,.84,304,3,0)
139: ;;=^.845^1^1
140: ;;^UTILITY(U,$J,.84,304,3,1,0)
141: ;;=IENS^IENS.
142: ;;^UTILITY(U,$J,.84,305,0)
143: ;;=305^1^y^11^
144: ;;^UTILITY(U,$J,.84,305,1,0)
145: ;;=^^1^1^2931109^
146: ;;^UTILITY(U,$J,.84,305,1,1,0)
147: ;;=A root is used to identify an input array. But the array is empty.
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT005.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman