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

Last change on this file since 1742 was 1679, checked in by healthsevak, 10 years ago

Updating the working copy to CPRS version 28

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