source: cprs/branches/tmg-cprs/CPRS-Chart/Consults/fODConsult.dfm@ 1742

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

Initial upload of TMG-CPRS 1.0.26.69

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