source: cprs/trunk/CPRS-Chart/BA/fBALocalDiagnoses.dfm@ 1245

Last change on this file since 1245 was 829, checked in by Kevin Toppenberg, 14 years ago

Upgrade to version 27

File size: 6.7 KB
Line 
1inherited frmBALocalDiagnoses: TfrmBALocalDiagnoses
2 Left = 272
3 Top = 142
4 Caption = 'Assign Diagnoses to Order(s)'
5 ClientHeight = 517
6 ClientWidth = 612
7 OldCreateOrder = False
8 Position = poScreenCenter
9 ShowHint = True
10 OnActivate = FormActivate
11 OnCreate = FormCreate
12 OnKeyPress = FormKeyPress
13 OnShow = FormShow
14 ExplicitWidth = 620
15 ExplicitHeight = 551
16 PixelsPerInch = 96
17 TextHeight = 13
18 object pnlTop: TPanel [0]
19 Left = 0
20 Top = 0
21 Width = 612
22 Height = 96
23 Align = alTop
24 Caption = 'pnlTop'
25 TabOrder = 0
26 DesignSize = (
27 612
28 96)
29 object lbOrders: TListBox
30 Left = 8
31 Top = 25
32 Width = 602
33 Height = 69
34 Anchors = [akLeft, akTop, akRight, akBottom]
35 IntegralHeight = True
36 ItemHeight = 13
37 TabOrder = 1
38 OnMouseMove = lbOrdersMouseMove
39 end
40 object lblPatientName: TStaticText
41 Left = 8
42 Top = 8
43 Width = 76
44 Height = 17
45 Caption = 'PatientName'
46 Font.Charset = DEFAULT_CHARSET
47 Font.Color = clWindowText
48 Font.Height = -11
49 Font.Name = 'MS Sans Serif'
50 Font.Style = [fsBold]
51 ParentFont = False
52 TabOrder = 0
53 end
54 end
55 object pnlMain: TPanel [1]
56 Left = 0
57 Top = 96
58 Width = 612
59 Height = 259
60 Align = alClient
61 TabOrder = 1
62 object lblDiagSect: TLabel
63 Left = 9
64 Top = 1
65 Width = 241
66 Height = 17
67 AutoSize = False
68 Caption = 'Diagnosis Section'
69 end
70 object lblDiagCodes: TLabel
71 Left = 253
72 Top = 1
73 Width = 353
74 Height = 17
75 AutoSize = False
76 Caption = 'Diagnosis Codes'
77 end
78 object lbSections: TORListBox
79 Left = 9
80 Top = 14
81 Width = 238
82 Height = 199
83 IntegralHeight = True
84 ItemHeight = 13
85 ParentShowHint = False
86 ShowHint = True
87 TabOrder = 1
88 OnClick = lbSectionsClick
89 OnDrawItem = lbSectionsDrawItem
90 Caption = 'Diagnosis Section'
91 ItemTipColor = clWindow
92 LongList = False
93 Pieces = '3'
94 end
95 object btnOther: TButton
96 Left = 155
97 Top = 219
98 Width = 92
99 Height = 20
100 Caption = 'Other &Diagnosis'
101 TabOrder = 2
102 OnClick = btnOtherClick
103 end
104 object lbDiagnosis: TORListBox
105 Left = 253
106 Top = 16
107 Width = 353
108 Height = 225
109 IntegralHeight = True
110 ItemHeight = 13
111 ParentShowHint = False
112 ShowHint = True
113 TabOrder = 4
114 OnClick = lbDiagnosisClick
115 Caption = 'Diagnosis Section'
116 ItemTipColor = clWindow
117 LongList = False
118 Pieces = '1,2,3'
119 end
120 end
121 object pnlBottom: TORAutoPanel [2]
122 Left = 0
123 Top = 355
124 Width = 612
125 Height = 162
126 Align = alBottom
127 TabOrder = 2
128 DesignSize = (
129 612
130 162)
131 object cbAddToPDList: TCheckBox
132 Left = 459
133 Top = 33
134 Width = 129
135 Height = 17
136 Caption = 'Add to Personal Dx List'
137 TabOrder = 2
138 OnClick = cbAddToPDListClick
139 end
140 object cbAddToPL: TCheckBox
141 Left = 459
142 Top = 17
143 Width = 149
144 Height = 16
145 Anchors = [akLeft, akTop, akRight, akBottom]
146 Caption = 'Add To Problem List'
147 TabOrder = 0
148 OnClick = cbAddToPLClick
149 end
150 object btnPrimary: TButton
151 Left = 480
152 Top = 57
153 Width = 72
154 Height = 19
155 Caption = '&Primary'
156 TabOrder = 3
157 OnClick = btnPrimaryClick
158 end
159 object btnRemove: TButton
160 Left = 480
161 Top = 81
162 Width = 72
163 Height = 19
164 Caption = '&Remove'
165 TabOrder = 4
166 OnClick = btnRemoveClick
167 end
168 object btnSelectAll: TButton
169 Left = 385
170 Top = 108
171 Width = 72
172 Height = 18
173 Caption = '&Select All'
174 TabOrder = 5
175 OnClick = btnSelectAllClick
176 end
177 object buOK: TButton
178 Left = 384
179 Top = 136
180 Width = 72
181 Height = 21
182 Caption = '&OK'
183 TabOrder = 6
184 OnClick = buOKClick
185 end
186 object buCancel: TButton
187 Left = 482
188 Top = 136
189 Width = 72
190 Height = 21
191 Caption = '&Cancel'
192 TabOrder = 7
193 OnClick = buCancelClick
194 end
195 object gbProvDiag: TGroupBox
196 Left = 8
197 Top = 0
198 Width = 449
199 Height = 105
200 Caption = 'Provisional Diagnosis'
201 TabOrder = 1
202 object lvDxGrid: TListView
203 Left = 2
204 Top = 15
205 Width = 445
206 Height = 88
207 Align = alClient
208 Color = clInfoBk
209 Columns = <
210 item
211 Caption = 'Add To PL/PD'
212 Width = 85
213 end
214 item
215 Caption = 'Primary'
216 MinWidth = 65
217 Width = 65
218 end
219 item
220 Caption = 'Diagnosis for Selected Orders'
221 MinWidth = 275
222 Width = 290
223 end>
224 Ctl3D = False
225 HideSelection = False
226 MultiSelect = True
227 ReadOnly = True
228 RowSelect = True
229 TabOrder = 0
230 ViewStyle = vsReport
231 OnClick = lvDxGridClick
232 OnKeyDown = lvDxGridKeyDown
233 OnKeyUp = lvDxGridKeyUp
234 end
235 end
236 end
237 inherited amgrMain: TVA508AccessibilityManager
238 Data = (
239 (
240 'Component = pnlTop'
241 'Status = stsDefault')
242 (
243 'Component = lbOrders'
244 'Status = stsDefault')
245 (
246 'Component = lblPatientName'
247 'Status = stsDefault')
248 (
249 'Component = pnlMain'
250 'Status = stsDefault')
251 (
252 'Component = lbSections'
253 'Label = lblDiagSect'
254 'Status = stsOK')
255 (
256 'Component = btnOther'
257 'Status = stsDefault')
258 (
259 'Component = lbDiagnosis'
260 'Label = lblDiagCodes'
261 'Status = stsOK')
262 (
263 'Component = pnlBottom'
264 'Status = stsDefault')
265 (
266 'Component = cbAddToPDList'
267 'Status = stsDefault')
268 (
269 'Component = cbAddToPL'
270 'Status = stsDefault')
271 (
272 'Component = btnPrimary'
273 'Status = stsDefault')
274 (
275 'Component = btnRemove'
276 'Status = stsDefault')
277 (
278 'Component = btnSelectAll'
279 'Status = stsDefault')
280 (
281 'Component = buOK'
282 'Status = stsDefault')
283 (
284 'Component = buCancel'
285 'Status = stsDefault')
286 (
287 'Component = gbProvDiag'
288 'Status = stsDefault')
289 (
290 'Component = lvDxGrid'
291 'Status = stsDefault')
292 (
293 'Component = frmBALocalDiagnoses'
294 'Status = stsDefault'))
295 end
296end
Note: See TracBrowser for help on using the repository browser.