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

Last change on this file since 661 was 456, checked in by Kevin Toppenberg, 16 years ago

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