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

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

initial load of WorldVistAEHR
File size: 6.7 KB
Line 
1DINIT004 ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;5/24/00 13:20
2 ;;22.0;VA FileMan;**41**;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)
7 ;;=^DI(.84,
8 ;;^UTILITY(U,$J,.84,0)
9 ;;=DIALOG^.84I^9549^322
10 ;;^UTILITY(U,$J,.84,101,0)
11 ;;=101^1^^5
12 ;;^UTILITY(U,$J,.84,101,1,0)
13 ;;=^^2^2^2931110^
14 ;;^UTILITY(U,$J,.84,101,1,1,0)
15 ;;=The option or function can only be done if DUZ(0)="@", designating
16 ;;^UTILITY(U,$J,.84,101,1,2,0)
17 ;;=the user as having programmer access.
18 ;;^UTILITY(U,$J,.84,101,2,0)
19 ;;=^^1^1^2931110^
20 ;;^UTILITY(U,$J,.84,101,2,1,0)
21 ;;=Only those with programmer's access can perform this function.
22 ;;^UTILITY(U,$J,.84,110,0)
23 ;;=110^1^^5
24 ;;^UTILITY(U,$J,.84,110,1,0)
25 ;;=^^2^2^2931110^
26 ;;^UTILITY(U,$J,.84,110,1,1,0)
27 ;;=An attempt to get a lock timed out. The record is locked and the desired
28 ;;^UTILITY(U,$J,.84,110,1,2,0)
29 ;;=action cannot be taken until the lock is released.
30 ;;^UTILITY(U,$J,.84,110,2,0)
31 ;;=^^1^1^2931110^
32 ;;^UTILITY(U,$J,.84,110,2,1,0)
33 ;;=The record is currently locked.
34 ;;^UTILITY(U,$J,.84,110,3,0)
35 ;;=^.845^2^2
36 ;;^UTILITY(U,$J,.84,110,3,1,0)
37 ;;=FILE^File or subfile #.
38 ;;^UTILITY(U,$J,.84,110,3,2,0)
39 ;;=IENS^IEN string of entry numbers.
40 ;;^UTILITY(U,$J,.84,110,5,0)
41 ;;=^.841^1^1
42 ;;^UTILITY(U,$J,.84,110,5,1,0)
43 ;;=DIE^FILE
44 ;;^UTILITY(U,$J,.84,111,0)
45 ;;=111^1^y^5
46 ;;^UTILITY(U,$J,.84,111,1,0)
47 ;;=^^2^2^2970205^^
48 ;;^UTILITY(U,$J,.84,111,1,1,0)
49 ;;=An attempt to get a lock timed out. The File Header Node is locked, and
50 ;;^UTILITY(U,$J,.84,111,1,2,0)
51 ;;=the desired action cannot be taken until the lock is released.
52 ;;^UTILITY(U,$J,.84,111,2,0)
53 ;;=^^1^1^2970205^^
54 ;;^UTILITY(U,$J,.84,111,2,1,0)
55 ;;=The File Header Node is currently locked.
56 ;;^UTILITY(U,$J,.84,111,3,0)
57 ;;=^.845^1^1
58 ;;^UTILITY(U,$J,.84,111,3,1,0)
59 ;;=FILE^File #.
60 ;;^UTILITY(U,$J,.84,111,5,0)
61 ;;=^.841^1^1
62 ;;^UTILITY(U,$J,.84,111,5,1,0)
63 ;;=0
64 ;;^UTILITY(U,$J,.84,112,0)
65 ;;=112^1^y^5
66 ;;^UTILITY(U,$J,.84,112,1,0)
67 ;;=^^2^2^2970205^^
68 ;;^UTILITY(U,$J,.84,112,1,1,0)
69 ;;=An attempt to get a lock timed out. The File is locked, and the desired
70 ;;^UTILITY(U,$J,.84,112,1,2,0)
71 ;;=action cannot be taken until the lock is released.
72 ;;^UTILITY(U,$J,.84,112,2,0)
73 ;;=^^1^1^2970205^
74 ;;^UTILITY(U,$J,.84,112,2,1,0)
75 ;;=The file is currently locked.
76 ;;^UTILITY(U,$J,.84,112,3,0)
77 ;;=^.845^1^1
78 ;;^UTILITY(U,$J,.84,112,3,1,0)
79 ;;=FILE^FILE #
80 ;;^UTILITY(U,$J,.84,120,0)
81 ;;=120^1^y^5
82 ;;^UTILITY(U,$J,.84,120,1,0)
83 ;;=^^7^7^2941006^^
84 ;;^UTILITY(U,$J,.84,120,1,1,0)
85 ;;=An error occurred during the Xecution of a FileMan hook (e.g., an input
86 ;;^UTILITY(U,$J,.84,120,1,2,0)
87 ;;=transform, DIC screen). The type of hook in which the error occurred is
88 ;;^UTILITY(U,$J,.84,120,1,3,0)
89 ;;=identified in the text. When relevant, the file, field, and IENS for
90 ;;^UTILITY(U,$J,.84,120,1,4,0)
91 ;;=which the hook was being Xecuted are identified in the PARAM nodes. The
92 ;;^UTILITY(U,$J,.84,120,1,5,0)
93 ;;=substance of the error will usually be identified by a separate error
94 ;;^UTILITY(U,$J,.84,120,1,6,0)
95 ;;=message generated during the Xecution of the hook itself. That error will
96 ;;^UTILITY(U,$J,.84,120,1,7,0)
97 ;;=usually be the one preceding this one in the DIERR array.
98 ;;^UTILITY(U,$J,.84,120,2,0)
99 ;;=^^1^1^2941006^^
100 ;;^UTILITY(U,$J,.84,120,2,1,0)
101 ;;=The previous error occurred when performing an action specified in a |1|.
102 ;;^UTILITY(U,$J,.84,120,3,0)
103 ;;=^.845^4^4
104 ;;^UTILITY(U,$J,.84,120,3,1,0)
105 ;;=1^Type of FileMan Xecutable code.
106 ;;^UTILITY(U,$J,.84,120,3,2,0)
107 ;;=FILE^File#
108 ;;^UTILITY(U,$J,.84,120,3,3,0)
109 ;;=FIELD^Field#.
110 ;;^UTILITY(U,$J,.84,120,3,4,0)
111 ;;=IENS^Internal Entry Number String.
112 ;;^UTILITY(U,$J,.84,200,0)
113 ;;=200^1^^5
114 ;;^UTILITY(U,$J,.84,200,1,0)
115 ;;=^^2^2^2931109^
116 ;;^UTILITY(U,$J,.84,200,1,1,0)
117 ;;=There is an error in one of the variables passed to a FileMan call or
118 ;;^UTILITY(U,$J,.84,200,1,2,0)
119 ;;=in one of the parameters passed in the actual parameter list.
120 ;;^UTILITY(U,$J,.84,200,2,0)
121 ;;=^^1^1^2931110^^^
122 ;;^UTILITY(U,$J,.84,200,2,1,0)
123 ;;=An input variable or parameter is missing or invalid.
124 ;;^UTILITY(U,$J,.84,201,0)
125 ;;=201^1^y^5
126 ;;^UTILITY(U,$J,.84,201,1,0)
127 ;;=^^2^2^2931110^^
128 ;;^UTILITY(U,$J,.84,201,1,1,0)
129 ;;=The specified input variable is either 1) required but not defined or
130 ;;^UTILITY(U,$J,.84,201,1,2,0)
131 ;;=2) not valid.
132 ;;^UTILITY(U,$J,.84,201,2,0)
133 ;;=^^1^1^2931110^^^
134 ;;^UTILITY(U,$J,.84,201,2,1,0)
135 ;;=The input variable |1| is missing or invalid.
136 ;;^UTILITY(U,$J,.84,201,3,0)
137 ;;=^.845^1^1
138 ;;^UTILITY(U,$J,.84,201,3,1,0)
139 ;;=1^Variable name.
140 ;;^UTILITY(U,$J,.84,202,0)
141 ;;=202^1^y^5
142 ;;^UTILITY(U,$J,.84,202,1,0)
143 ;;=^^1^1^2931110^^^^
144 ;;^UTILITY(U,$J,.84,202,1,1,0)
145 ;;=The specified parameter is either required but missing or invalid.
146 ;;^UTILITY(U,$J,.84,202,2,0)
147 ;;=^^1^1^2950317^^^^
148 ;;^UTILITY(U,$J,.84,202,2,1,0)
149 ;;=The input parameter that identifies the |1| is missing or invalid.
150 ;;^UTILITY(U,$J,.84,202,3,0)
151 ;;=^.845^1^1
152 ;;^UTILITY(U,$J,.84,202,3,1,0)
153 ;;=1^Parameter as identified in the FM documentation.
154 ;;^UTILITY(U,$J,.84,202,5,0)
155 ;;=^.841^1^1
156 ;;^UTILITY(U,$J,.84,202,5,1,0)
157 ;;=DIT^TRNMRG
158 ;;^UTILITY(U,$J,.84,203,0)
159 ;;=203^1^y^5
160 ;;^UTILITY(U,$J,.84,203,1,0)
161 ;;=^^3^3^2940426^
162 ;;^UTILITY(U,$J,.84,203,1,1,0)
163 ;;=An incorrect subscript is present in an array that is passed to FileMan.
164 ;;^UTILITY(U,$J,.84,203,1,2,0)
165 ;;=For example, one of the subscripts in the FDA which identifies FILE, IENS,
166 ;;^UTILITY(U,$J,.84,203,1,3,0)
167 ;;=or FIELD is incorrectly formatted.
168 ;;^UTILITY(U,$J,.84,203,2,0)
169 ;;=^^1^1^2940426^^^
170 ;;^UTILITY(U,$J,.84,203,2,1,0)
171 ;;=The subscript that identifies the |1| is missing or invalid.
172 ;;^UTILITY(U,$J,.84,203,3,0)
173 ;;=^.845^1^1
174 ;;^UTILITY(U,$J,.84,203,3,1,0)
175 ;;=1^The data element incorrectly specified by a subscript.
176 ;;^UTILITY(U,$J,.84,203,5,0)
177 ;;=^.841^1^1
178 ;;^UTILITY(U,$J,.84,203,5,1,0)
179 ;;=DIE^FILE
180 ;;^UTILITY(U,$J,.84,204,0)
181 ;;=204^1^^5
182 ;;^UTILITY(U,$J,.84,204,1,0)
183 ;;=^^1^1^2940316^
184 ;;^UTILITY(U,$J,.84,204,1,1,0)
185 ;;=Control characters are not permitted in the database.
186 ;;^UTILITY(U,$J,.84,204,2,0)
187 ;;=^^1^1^2940316^
188 ;;^UTILITY(U,$J,.84,204,2,1,0)
189 ;;=The input value contains control characters.
190 ;;^UTILITY(U,$J,.84,204,3,0)
191 ;;=^.845^1^1
192 ;;^UTILITY(U,$J,.84,204,3,1,0)
193 ;;=1^INPUT VALUE
194 ;;^UTILITY(U,$J,.84,205,0)
195 ;;=205^1^y^5
196 ;;^UTILITY(U,$J,.84,205,1,0)
197 ;;=^^4^4^2960827^
198 ;;^UTILITY(U,$J,.84,205,1,1,0)
199 ;;=Error message output when a file or subfile number, and its associated IEN
200 ;;^UTILITY(U,$J,.84,205,1,2,0)
201 ;;=string are not in sync (i.e, the number of comma pieces represented by
Note: See TracBrowser for help on using the repository browser.