source: cprs/branches/foia-cprs/CPRS-Chart/Consults/fODConsult.dfm@ 459

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

Adding foia-cprs branch
File size: 12.3 KB
Line 
1inherited frmODCslt: TfrmODCslt
2 Tag = 110
3 Left = 377
4 Top = 11
5 Width = 536
6 Height = 321
7 HorzScrollBar.Range = 528
8 HorzScrollBar.Visible = True
9 VertScrollBar.Range = 294
10 VertScrollBar.Visible = True
11 AutoScroll = False
12 Caption = 'Order a Consult'
13 Font.Charset = ANSI_CHARSET
14 PixelsPerInch = 96
15 TextHeight = 13
16 object lblService: TLabel [0]
17 Left = 1
18 Top = 2
19 Width = 134
20 Height = 13
21 Caption = 'Consult to Service/Specialty'
22 end
23 object pnlReason: TPanel [1]
24 Left = 3
25 Top = 117
26 Width = 516
27 Height = 132
28 Anchors = [akLeft, akTop, akRight, akBottom]
29 BevelOuter = bvNone
30 TabOrder = 11
31 object lblReason: TLabel
32 Left = 0
33 Top = 0
34 Width = 516
35 Height = 13
36 Align = alTop
37 Caption = 'Reason for Request'
38 end
39 object memReason: TRichEdit
40 Left = 0
41 Top = 13
42 Width = 516
43 Height = 119
44 Align = alClient
45 Font.Charset = ANSI_CHARSET
46 Font.Color = clWindowText
47 Font.Height = -11
48 Font.Name = 'Courier New'
49 Font.Style = []
50 ParentFont = False
51 PopupMenu = popReason
52 ScrollBars = ssBoth
53 TabOrder = 0
54 WantTabs = True
55 OnChange = ControlChange
56 OnExit = memReasonExit
57 OnKeyDown = memReasonKeyDown
58 OnKeyPress = memReasonKeyPress
59 OnKeyUp = memReasonKeyUp
60 end
61 end
62 object lblUrgency: TStaticText [2]
63 Left = 239
64 Top = 2
65 Width = 44
66 Height = 17
67 Anchors = [akTop, akRight]
68 Caption = 'Urgency'
69 TabOrder = 17
70 end
71 object lblPlace: TStaticText [3]
72 Left = 384
73 Top = 43
74 Width = 104
75 Height = 17
76 Anchors = [akTop, akRight]
77 Caption = 'Place of Consultation'
78 TabOrder = 18
79 end
80 object lblAttn: TStaticText [4]
81 Left = 384
82 Top = 2
83 Width = 46
84 Height = 17
85 Anchors = [akTop, akRight]
86 Caption = 'Attention'
87 TabOrder = 19
88 end
89 object lblProvDiag: TStaticText [5]
90 Left = 239
91 Top = 81
92 Width = 104
93 Height = 17
94 Anchors = [akTop, akRight]
95 Caption = 'Provisional Diagnosis'
96 TabOrder = 20
97 end
98 inherited memOrder: TCaptionMemo
99 Left = 3
100 Top = 255
101 Width = 347
102 Height = 36
103 Anchors = [akLeft, akRight, akBottom]
104 Lines.Strings = (
105 'The order text...'
106 '----------------------------------------------'
107 '--------------------------------'
108 'An order message may be displayed here.')
109 TabOrder = 1
110 end
111 inherited cmdAccept: TButton
112 Left = 357
113 Top = 265
114 Anchors = [akRight, akBottom]
115 TabOrder = 12
116 end
117 inherited cmdQuit: TButton
118 Left = 453
119 Top = 265
120 Width = 61
121 Anchors = [akRight, akBottom]
122 TabOrder = 13
123 end
124 inherited pnlMessage: TPanel
125 Left = 61
126 Top = 245
127 Width = 277
128 Anchors = [akLeft, akRight, akBottom]
129 TabOrder = 14
130 inherited memMessage: TRichEdit
131 Width = 227
132 end
133 end
134 object cboService: TORComboBox
135 Left = 0
136 Top = 16
137 Width = 204
138 Height = 73
139 Anchors = [akLeft, akTop, akRight]
140 Style = orcsSimple
141 AutoSelect = True
142 Caption = 'Consult to Service/Specialty'
143 Color = clWindow
144 DropDownCount = 12
145 ItemHeight = 13
146 ItemTipColor = clWindow
147 ItemTipEnable = True
148 ListItemsOnly = True
149 LongList = False
150 LookupPiece = 0
151 MaxLength = 0
152 Pieces = '2'
153 Sorted = False
154 SynonymChars = '<>'
155 TabOrder = 0
156 OnChange = ControlChange
157 OnClick = cboServiceSelect
158 OnKeyDown = cboServiceKeyDown
159 OnKeyUp = cboServiceKeyUp
160 CharsNeedMatch = 1
161 end
162 object cboUrgency: TORComboBox
163 Left = 239
164 Top = 16
165 Width = 133
166 Height = 21
167 Anchors = [akTop, akRight]
168 Style = orcsDropDown
169 AutoSelect = True
170 Caption = 'Urgency'
171 Color = clWindow
172 DropDownCount = 8
173 ItemHeight = 13
174 ItemTipColor = clWindow
175 ItemTipEnable = True
176 ListItemsOnly = True
177 LongList = False
178 LookupPiece = 0
179 MaxLength = 0
180 Pieces = '2'
181 Sorted = False
182 SynonymChars = '<>'
183 TabOrder = 4
184 TabStop = True
185 OnChange = ControlChange
186 CharsNeedMatch = 1
187 end
188 object cboPlace: TORComboBox
189 Left = 384
190 Top = 56
191 Width = 136
192 Height = 21
193 Anchors = [akTop, akRight]
194 Style = orcsDropDown
195 AutoSelect = True
196 Caption = 'Place of Consultation'
197 Color = clWindow
198 DropDownCount = 8
199 ItemHeight = 13
200 ItemTipColor = clWindow
201 ItemTipEnable = True
202 ListItemsOnly = True
203 LongList = False
204 LookupPiece = 0
205 MaxLength = 0
206 Pieces = '2'
207 Sorted = False
208 SynonymChars = '<>'
209 TabOrder = 7
210 OnChange = ControlChange
211 CharsNeedMatch = 1
212 end
213 object txtProvDiag: TCaptionEdit
214 Left = 239
215 Top = 94
216 Width = 231
217 Height = 21
218 Anchors = [akTop, akRight]
219 ParentShowHint = False
220 PopupMenu = mnuPopProvDx
221 ShowHint = True
222 TabOrder = 9
223 OnChange = txtProvDiagChange
224 Caption = 'Provisional Diagnosis'
225 end
226 object txtAttn: TORComboBox
227 Left = 384
228 Top = 16
229 Width = 136
230 Height = 21
231 Anchors = [akTop, akRight]
232 Style = orcsDropDown
233 AutoSelect = True
234 Caption = 'Attention'
235 Color = clWindow
236 DropDownCount = 8
237 ItemHeight = 13
238 ItemTipColor = clWindow
239 ItemTipEnable = True
240 ListItemsOnly = True
241 LongList = True
242 LookupPiece = 2
243 MaxLength = 0
244 Pieces = '2,3'
245 Sorted = False
246 SynonymChars = '<>'
247 TabOrder = 5
248 OnChange = ControlChange
249 OnNeedData = txtAttnNeedData
250 CharsNeedMatch = 1
251 end
252 object treService: TORTreeView
253 Left = 0
254 Top = 37
255 Width = 228
256 Height = 201
257 Anchors = [akLeft, akTop, akRight, akBottom]
258 Font.Charset = DEFAULT_CHARSET
259 Font.Color = clWindowText
260 Font.Height = -9
261 Font.Name = 'MS Sans Serif'
262 Font.Style = []
263 HideSelection = False
264 Indent = 19
265 ParentFont = False
266 ReadOnly = True
267 TabOrder = 3
268 Visible = False
269 OnChange = treServiceChange
270 OnCollapsing = treServiceCollapsing
271 OnExit = treServiceExit
272 OnKeyDown = treServiceKeyDown
273 OnKeyUp = treServiceKeyUp
274 OnMouseDown = treServiceMouseDown
275 Caption = 'object lblService: TLabel'
276 NodePiece = 0
277 end
278 object cboCategory: TORComboBox
279 Left = 225
280 Top = -5
281 Width = 5
282 Height = 21
283 Style = orcsDropDown
284 AutoSelect = True
285 Color = clWindow
286 DropDownCount = 8
287 ItemHeight = 13
288 ItemTipColor = clWindow
289 ItemTipEnable = True
290 ListItemsOnly = False
291 LongList = False
292 LookupPiece = 0
293 MaxLength = 0
294 Sorted = False
295 SynonymChars = '<>'
296 TabOrder = 15
297 Visible = False
298 CharsNeedMatch = 1
299 end
300 object pnlServiceTreeButton: TKeyClickPanel
301 Left = 204
302 Top = 14
303 Width = 25
304 Height = 24
305 Hint = 'View services/specialties hierarchically'
306 Anchors = [akTop, akRight]
307 BevelOuter = bvNone
308 Caption = 'View services/specialties hierarchically'
309 TabOrder = 2
310 TabStop = True
311 OnClick = btnServiceTreeClick
312 OnEnter = pnlServiceTreeButtonEnter
313 OnExit = pnlServiceTreeButtonExit
314 object btnServiceTree: TSpeedButton
315 Left = 1
316 Top = 1
317 Width = 23
318 Height = 22
319 Glyph.Data = {
320 26050000424D26050000000000003604000028000000100000000F0000000100
321 080000000000F000000000000000000000000001000000010000000000000000
322 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
323 A6000020400000206000002080000020A0000020C0000020E000004000000040
324 20000040400000406000004080000040A0000040C0000040E000006000000060
325 20000060400000606000006080000060A0000060C0000060E000008000000080
326 20000080400000806000008080000080A0000080C0000080E00000A0000000A0
327 200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
328 200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
329 200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
330 20004000400040006000400080004000A0004000C0004000E000402000004020
331 20004020400040206000402080004020A0004020C0004020E000404000004040
332 20004040400040406000404080004040A0004040C0004040E000406000004060
333 20004060400040606000406080004060A0004060C0004060E000408000004080
334 20004080400040806000408080004080A0004080C0004080E00040A0000040A0
335 200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
336 200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
337 200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
338 20008000400080006000800080008000A0008000C0008000E000802000008020
339 20008020400080206000802080008020A0008020C0008020E000804000008040
340 20008040400080406000804080008040A0008040C0008040E000806000008060
341 20008060400080606000806080008060A0008060C0008060E000808000008080
342 20008080400080806000808080008080A0008080C0008080E00080A0000080A0
343 200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
344 200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
345 200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
346 2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
347 2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
348 2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
349 2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
350 2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
351 2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
352 2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
353 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFF0700
354 07FFFFFFFFFFFFFFFFFFFFA4A407000400FF040404040404FFFFFFA4FFFF0700
355 07FFFFFFFFFFFFFFFFFFFFA4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA4FFFFFFFF
356 FFFF070007FFFFFFFFFFFFA4FFFFFFA4A407000400FF04040404FFA4FFFFFFA4
357 FFFF070007FFFFFFFFFFFFA4FFFFFF07FFFFFFFFFFFFFFFFFFFFFFA4FFFF0700
358 07FFFFFFFFFFFFFFFFFFFFA4A407000400FF0404040404FFFFFFFFA4FFFF0700
359 07FFFFFFFFFFFFFFFFFFFF07FFFFFFFFFFFFFFFFFFFFFFFFFFFF070007FFFFFF
360 FFFFFFFFFFFFFFFFFFFF00FB00FF0404040404FFFFFFFFFFFFFF070007FFFFFF
361 FFFFFFFFFFFFFFFFFFFF}
362 OnClick = btnServiceTreeClick
363 end
364 end
365 object cmdLexSearch: TButton
366 Left = 473
367 Top = 96
368 Width = 49
369 Height = 17
370 Anchors = [akTop, akRight]
371 Caption = 'Lexicon'
372 TabOrder = 10
373 OnClick = cmdLexSearchClick
374 end
375 object gbInptOpt: TGroupBox
376 Left = 239
377 Top = 35
378 Width = 140
379 Height = 45
380 Anchors = [akTop, akRight]
381 Caption = 'Patient will be seen as an:'
382 TabOrder = 6
383 object radInpatient: TRadioButton
384 Left = 3
385 Top = 20
386 Width = 61
387 Height = 13
388 Caption = '&Inpatient'
389 TabOrder = 0
390 OnClick = radInpatientClick
391 end
392 object radOutpatient: TRadioButton
393 Left = 67
394 Top = 20
395 Width = 70
396 Height = 13
397 Caption = '&Outpatient'
398 TabOrder = 1
399 OnClick = radOutpatientClick
400 end
401 end
402 object btnDiagnosis: TButton
403 Left = 473
404 Top = 95
405 Width = 52
406 Height = 20
407 Anchors = [akTop, akRight]
408 Caption = 'Diagnosis'
409 TabOrder = 8
410 OnClick = btnDiagnosisClick
411 end
412 object mnuPopProvDx: TPopupMenu
413 Left = 353
414 Top = 77
415 object mnuPopProvDxDelete: TMenuItem
416 Caption = 'Delete diagnosis'
417 OnClick = mnuPopProvDxDeleteClick
418 end
419 end
420 object popReason: TPopupMenu
421 OnPopup = popReasonPopup
422 Left = 411
423 Top = 169
424 object popReasonCut: TMenuItem
425 Caption = 'Cu&t'
426 ShortCut = 16472
427 OnClick = popReasonCutClick
428 end
429 object popReasonCopy: TMenuItem
430 Caption = '&Copy'
431 ShortCut = 16451
432 OnClick = popReasonCopyClick
433 end
434 object popReasonPaste: TMenuItem
435 Caption = '&Paste'
436 ShortCut = 16470
437 OnClick = popReasonPasteClick
438 end
439 object popReasonPaste2: TMenuItem
440 Caption = 'Paste2'
441 ShortCut = 8237
442 Visible = False
443 OnClick = popReasonPasteClick
444 end
445 object popReasonReformat: TMenuItem
446 Caption = 'Reformat Paragraph'
447 ShortCut = 16466
448 OnClick = popReasonReformatClick
449 end
450 end
451end
Note: See TracBrowser for help on using the repository browser.