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

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

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