source: cprs/branches/tmg-cprs/CPRS-Chart/Consults/fBALocalDiagnoses.dfm@ 1048

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

TMG Ver 1.1 Added HTML Support, better demographics editing
File size: 7.6 KB
Line 
1object frmBALocalDiagnoses: TfrmBALocalDiagnoses
2 Left = 257
3 Top = 104
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 = 252
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 = 348
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
270 object DKLanguageController1: TDKLanguageController
271 Left = 296
272 Top = 256
273 LangData = {
274 130066726D42414C6F63616C446961676E6F7365730101000000010000000700
275 43617074696F6E01140000000600706E6C546F70010100000002000000070043
276 617074696F6E0008006C624F726465727300000D004F52537461746963546578
277 7431010100000003000000070043617074696F6E000E006C626C50617469656E
278 744E616D65010100000004000000070043617074696F6E000700706E6C4D6169
279 6E00000A006C6253656374696F6E73010100000005000000070043617074696F
280 6E00080062746E4F74686572010100000006000000070043617074696F6E000B
281 006C62446961676E6F736973010100000007000000070043617074696F6E000D
282 004F525374617469635465787432010100000008000000070043617074696F6E
283 000D004F52537461746963546578743301010000000900000007004361707469
284 6F6E000900706E6C426F74746F6D000008006C7644784772696401030000000A
285 0000001200436F6C756D6E735B305D2E43617074696F6E0B0000001200436F6C
286 756D6E735B315D2E43617074696F6E0C0000001200436F6C756D6E735B325D2E
287 43617074696F6E000D006362416464546F50444C69737401010000000D000000
288 070043617074696F6E0009006362416464546F504C01010000000E0000000700
289 43617074696F6E000A0062746E5072696D61727901010000000F000000070043
290 617074696F6E00090062746E52656D6F76650101000000100000000700436170
291 74696F6E000C0062746E53656C656374416C6C01010000001100000007004361
292 7074696F6E00040062754F4B010100000012000000070043617074696F6E0008
293 00627543616E63656C010100000013000000070043617074696F6E000D004F52
294 5374617469635465787434010100000014000000070043617074696F6E00}
295 end
296end
Note: See TracBrowser for help on using the repository browser.