source: cprs/trunk/CPRS-Chart/Consults/fODConsult.dfm@ 1722

Last change on this file since 1722 was 1679, checked in by healthsevak, 10 years ago

Updating the working copy to CPRS version 28
File size: 18.0 KB
RevLine 
[456]1inherited frmODCslt: TfrmODCslt
2 Tag = 110
3 Left = 430
4 Top = 203
5 Width = 606
[1679]6 Height = 455
[456]7 HorzScrollBar.Range = 590
8 VertScrollBar.Range = 340
9 Caption = 'Order a Consult'
[1679]10 Constraints.MinHeight = 442
11 Constraints.MinWidth = 590
[456]12 Font.Charset = ANSI_CHARSET
[829]13 ExplicitWidth = 606
[1679]14 ExplicitHeight = 455
[456]15 PixelsPerInch = 96
16 TextHeight = 13
[1679]17 object pnlCombatVet: TPanel [0]
18 Left = 0
19 Top = 0
20 Width = 598
21 Height = 25
22 Align = alTop
23 BevelOuter = bvLowered
24 Font.Charset = DEFAULT_CHARSET
25 Font.Color = clWindowText
26 Font.Height = -11
27 Font.Name = 'MS Sans Serif'
28 Font.Style = []
29 ParentFont = False
30 TabOrder = 0
31 object txtCombatVet: TVA508StaticText
32 Name = 'txtCombatVet'
33 Left = 1
34 Top = 1
35 Width = 596
36 Height = 23
[456]37 Align = alClient
[1679]38 Alignment = taCenter
39 BevelOuter = bvNone
40 Enabled = False
[456]41 TabOrder = 0
[1679]42 ShowAccelChar = True
[456]43 end
44 end
45 inherited memOrder: TCaptionMemo
46 Left = 3
[1679]47 Top = 384
[456]48 Width = 417
49 Height = 41
[829]50 Anchors = [akLeft, akBottom]
[456]51 Lines.Strings = (
52 'The order text...'
53 '----------------------------------------------'
54 '--------------------------------'
55 'An order message may be displayed here.')
[1679]56 TabOrder = 2
[829]57 ExplicitLeft = 3
[1679]58 ExplicitTop = 384
[829]59 ExplicitWidth = 417
60 ExplicitHeight = 41
[456]61 end
[1679]62 object pnlMain: TPanel [2]
[456]63 Left = 0
[1679]64 Top = 0
65 Width = 598
66 Height = 380
[456]67 Anchors = [akLeft, akTop, akRight, akBottom]
68 BevelOuter = bvNone
[829]69 TabOrder = 1
[1679]70 DesignSize = (
71 598
72 380)
73 object lblService: TLabel
74 Left = 1
[456]75 Top = 2
[1679]76 Width = 134
77 Height = 13
78 Caption = 'Consult to Service/Specialty'
79 end
80 object lblProvDiag: TLabel
81 Left = 312
82 Top = 138
83 Width = 100
84 Height = 13
85 Anchors = [akTop, akRight]
86 Caption = 'Provisional Diagnosis'
87 end
88 object lblUrgency: TLabel
89 Left = 309
90 Top = 2
91 Width = 40
92 Height = 13
93 Anchors = [akTop, akRight]
94 Caption = 'Urgency'
95 end
96 object lblPlace: TLabel
97 Left = 457
98 Top = 100
99 Width = 100
100 Height = 13
101 Anchors = [akTop, akRight]
102 Caption = 'Place of Consultation'
103 end
104 object lblAttn: TLabel
105 Left = 454
106 Top = 2
107 Width = 42
108 Height = 13
109 Anchors = [akTop, akRight]
110 Caption = 'Attention'
111 end
112 object lblLatest: TStaticText
113 Left = 454
114 Top = 43
115 Width = 116
116 Height = 17
117 Anchors = [akTop, akRight]
118 Caption = 'Latest appropriate date:'
119 TabOrder = 17
120 Visible = False
121 end
122 object lblEarliest: TStaticText
123 Left = 309
124 Top = 43
125 Width = 121
126 Height = 17
127 Anchors = [akTop, akRight]
128 Caption = 'Earliest appropriate date:'
129 TabOrder = 14
130 end
131 object pnlReason: TPanel
132 Left = 3
133 Top = 176
134 Width = 587
135 Height = 179
136 Anchors = [akLeft, akTop, akRight]
137 BevelOuter = bvNone
138 Constraints.MinHeight = 53
139 TabOrder = 13
140 object lblReason: TLabel
141 Left = 0
142 Top = 0
143 Width = 587
144 Height = 13
145 Align = alTop
146 Caption = 'Reason for Request'
147 Constraints.MinHeight = 13
148 ExplicitWidth = 95
149 end
150 object memReason: TRichEdit
151 Left = 0
152 Top = 13
153 Width = 587
154 Height = 166
155 Align = alClient
156 Font.Charset = ANSI_CHARSET
157 Font.Color = clWindowText
158 Font.Height = -11
159 Font.Name = 'Courier New'
160 Font.Style = []
161 Constraints.MinHeight = 40
162 MaxLength = 2147483645
163 ParentFont = False
164 PopupMenu = popReason
165 ScrollBars = ssBoth
166 TabOrder = 0
167 WantTabs = True
168 OnChange = ControlChange
169 OnExit = memReasonExit
170 OnKeyDown = memReasonKeyDown
171 OnKeyPress = memReasonKeyPress
172 OnKeyUp = memReasonKeyUp
173 end
174 end
175 object cboService: TORComboBox
176 Left = 0
177 Top = 16
178 Width = 274
179 Height = 154
180 Anchors = [akLeft, akTop, akRight]
181 Style = orcsSimple
182 AutoSelect = True
183 Caption = 'Consult to Service/Specialty'
184 Color = clWindow
185 DropDownCount = 16
186 ItemHeight = 13
187 ItemTipColor = clWindow
188 ItemTipEnable = True
189 ListItemsOnly = True
190 LongList = False
191 LookupPiece = 0
192 MaxLength = 0
193 Pieces = '2'
194 Sorted = False
195 SynonymChars = '<>'
196 TabOrder = 0
197 OnChange = ControlChange
198 OnClick = cboServiceSelect
199 OnExit = cboServiceExit
200 OnKeyDown = cboServiceKeyDown
201 OnKeyUp = cboServiceKeyUp
202 CharsNeedMatch = 1
203 end
204 object cboUrgency: TORComboBox
205 Left = 309
206 Top = 16
207 Width = 133
208 Height = 21
209 Anchors = [akTop, akRight]
210 Style = orcsDropDown
211 AutoSelect = True
212 Caption = 'Urgency'
213 Color = clWindow
214 DropDownCount = 8
215 ItemHeight = 13
216 ItemTipColor = clWindow
217 ItemTipEnable = True
218 ListItemsOnly = True
219 LongList = False
220 LookupPiece = 0
221 MaxLength = 0
222 Pieces = '2'
223 Sorted = False
224 SynonymChars = '<>'
225 TabOrder = 4
226 TabStop = True
227 OnChange = ControlChange
228 CharsNeedMatch = 1
229 end
230 object cboPlace: TORComboBox
231 Left = 457
232 Top = 113
233 Width = 136
234 Height = 21
235 Anchors = [akTop, akRight]
236 Style = orcsDropDown
237 AutoSelect = True
238 Caption = 'Place of Consultation'
239 Color = clWindow
240 DropDownCount = 8
241 ItemHeight = 13
242 ItemTipColor = clWindow
243 ItemTipEnable = True
244 ListItemsOnly = True
245 LongList = False
246 LookupPiece = 0
247 MaxLength = 0
248 Pieces = '2'
249 Sorted = False
250 SynonymChars = '<>'
251 TabOrder = 9
252 OnChange = ControlChange
253 CharsNeedMatch = 1
254 end
255 object txtProvDiag: TCaptionEdit
256 Left = 312
257 Top = 151
258 Width = 223
259 Height = 21
260 Anchors = [akTop, akRight]
261 MaxLength = 180
[829]262 ParentShowHint = False
[1679]263 PopupMenu = mnuPopProvDx
[829]264 ShowHint = True
[1679]265 TabOrder = 11
266 OnChange = txtProvDiagChange
267 Caption = 'Provisional Diagnosis'
268 end
269 object txtAttn: TORComboBox
270 Left = 454
271 Top = 16
272 Width = 136
273 Height = 21
274 Anchors = [akTop, akRight]
275 Style = orcsDropDown
276 AutoSelect = True
277 Caption = 'Attention'
278 Color = clWindow
279 DropDownCount = 8
280 ItemHeight = 13
281 ItemTipColor = clWindow
282 ItemTipEnable = True
283 ListItemsOnly = True
284 LongList = True
285 LookupPiece = 2
286 MaxLength = 0
287 Pieces = '2,3'
288 Sorted = False
289 SynonymChars = '<>'
290 TabOrder = 5
291 OnChange = ControlChange
292 OnNeedData = txtAttnNeedData
293 CharsNeedMatch = 1
294 end
295 object treService: TORTreeView
296 Left = 0
297 Top = 38
298 Width = 298
299 Height = 220
300 Anchors = [akLeft, akTop, akRight, akBottom]
301 Font.Charset = DEFAULT_CHARSET
302 Font.Color = clWindowText
303 Font.Height = -9
304 Font.Name = 'MS Sans Serif'
305 Font.Style = []
306 HideSelection = False
307 Indent = 19
308 ParentFont = False
309 ReadOnly = True
310 TabOrder = 3
311 Visible = False
312 OnChange = treServiceChange
313 OnCollapsing = treServiceCollapsing
314 OnEnter = treServiceEnter
315 OnExit = treServiceExit
316 OnKeyDown = treServiceKeyDown
317 OnKeyUp = treServiceKeyUp
318 OnMouseDown = treServiceMouseDown
319 Caption = 'object lblService: TLabel'
320 NodePiece = 0
321 end
322 object cboCategory: TORComboBox
323 Left = 225
324 Top = -5
325 Width = 5
326 Height = 21
327 Style = orcsDropDown
328 AutoSelect = True
329 Color = clWindow
330 DropDownCount = 8
331 ItemHeight = 13
332 ItemTipColor = clWindow
333 ItemTipEnable = True
334 ListItemsOnly = False
335 LongList = False
336 LookupPiece = 0
337 MaxLength = 0
338 Sorted = False
339 SynonymChars = '<>'
340 TabOrder = 18
341 Visible = False
342 CharsNeedMatch = 1
343 end
344 object pnlServiceTreeButton: TKeyClickPanel
345 Left = 274
346 Top = 14
347 Width = 26
348 Height = 26
349 Hint = 'View services/specialties hierarchically'
350 Anchors = [akTop, akRight]
351 BevelOuter = bvNone
352 BevelWidth = 2
353 Caption = 'View services/specialties hierarchically'
354 Font.Charset = ANSI_CHARSET
355 Font.Color = clBtnFace
356 Font.Height = -11
357 Font.Name = 'MS Sans Serif'
358 Font.Style = []
359 ParentFont = False
360 TabOrder = 2
361 TabStop = True
[456]362 OnClick = btnServiceTreeClick
[1679]363 OnEnter = pnlServiceTreeButtonEnter
364 OnExit = pnlServiceTreeButtonExit
365 object btnServiceTree: TSpeedButton
366 Left = 2
367 Top = 2
368 Width = 22
369 Height = 22
370 Glyph.Data = {
371 26050000424D26050000000000003604000028000000100000000F0000000100
372 080000000000F000000000000000000000000001000000010000000000000000
373 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
374 A6000020400000206000002080000020A0000020C0000020E000004000000040
375 20000040400000406000004080000040A0000040C0000040E000006000000060
376 20000060400000606000006080000060A0000060C0000060E000008000000080
377 20000080400000806000008080000080A0000080C0000080E00000A0000000A0
378 200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
379 200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
380 200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
381 20004000400040006000400080004000A0004000C0004000E000402000004020
382 20004020400040206000402080004020A0004020C0004020E000404000004040
383 20004040400040406000404080004040A0004040C0004040E000406000004060
384 20004060400040606000406080004060A0004060C0004060E000408000004080
385 20004080400040806000408080004080A0004080C0004080E00040A0000040A0
386 200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
387 200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
388 200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
389 20008000400080006000800080008000A0008000C0008000E000802000008020
390 20008020400080206000802080008020A0008020C0008020E000804000008040
391 20008040400080406000804080008040A0008040C0008040E000806000008060
392 20008060400080606000806080008060A0008060C0008060E000808000008080
393 20008080400080806000808080008080A0008080C0008080E00080A0000080A0
394 200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
395 200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
396 200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
397 2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
398 2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
399 2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
400 2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
401 2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
402 2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
403 2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
404 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFF0700
405 07FFFFFFFFFFFFFFFFFFFFA4A407000400FF040404040404FFFFFFA4FFFF0700
406 07FFFFFFFFFFFFFFFFFFFFA4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA4FFFFFFFF
407 FFFF070007FFFFFFFFFFFFA4FFFFFFA4A407000400FF04040404FFA4FFFFFFA4
408 FFFF070007FFFFFFFFFFFFA4FFFFFF07FFFFFFFFFFFFFFFFFFFFFFA4FFFF0700
409 07FFFFFFFFFFFFFFFFFFFFA4A407000400FF0404040404FFFFFFFFA4FFFF0700
410 07FFFFFFFFFFFFFFFFFFFF07FFFFFFFFFFFFFFFFFFFFFFFFFFFF070007FFFFFF
411 FFFFFFFFFFFFFFFFFFFF00FB00FF0404040404FFFFFFFFFFFFFF070007FFFFFF
412 FFFFFFFFFFFFFFFFFFFF}
413 Margin = 0
414 OnClick = btnServiceTreeClick
415 end
[456]416 end
[1679]417 object gbInptOpt: TGroupBox
418 Left = 309
419 Top = 92
420 Width = 140
421 Height = 45
422 Anchors = [akTop, akRight]
423 Caption = 'Patient will be seen as an:'
424 TabOrder = 8
425 object radInpatient: TRadioButton
426 Left = 3
427 Top = 20
428 Width = 61
429 Height = 13
430 Caption = '&Inpatient'
431 TabOrder = 1
432 OnClick = radInpatientClick
433 end
434 object radOutpatient: TRadioButton
435 Left = 67
436 Top = 20
437 Width = 70
438 Height = 13
439 Caption = '&Outpatient'
440 TabOrder = 0
441 OnClick = radOutpatientClick
442 end
[456]443 end
[1679]444 object btnDiagnosis: TButton
445 Left = 541
446 Top = 151
447 Width = 49
448 Height = 21
449 Anchors = [akTop, akRight]
450 Caption = 'Diagnosis'
451 TabOrder = 10
452 OnClick = btnDiagnosisClick
453 end
454 object cmdLexSearch: TButton
455 Left = 541
456 Top = 151
457 Width = 49
458 Height = 21
459 Anchors = [akTop, akRight]
460 Caption = 'Lexicon'
461 TabOrder = 12
462 OnClick = cmdLexSearchClick
463 end
464 object calEarliest: TORDateBox
465 Left = 309
466 Top = 57
467 Width = 133
468 Height = 21
469 Anchors = [akTop, akRight]
470 TabOrder = 6
471 OnChange = ControlChange
472 DateOnly = True
473 RequireTime = False
474 end
475 object calLatest: TORDateBox
476 Left = 454
477 Top = 57
478 Width = 136
479 Height = 21
480 Anchors = [akTop, akRight]
481 TabOrder = 7
482 Visible = False
483 OnChange = ControlChange
484 DateOnly = True
485 RequireTime = False
486 end
487 object servicelbl508: TVA508StaticText
488 Name = 'servicelbl508'
489 Left = 151
490 Top = 1
491 Width = 106
492 Height = 15
493 Alignment = taLeftJustify
494 Caption = 'service (for screen R.)'
495 Enabled = False
[456]496 TabOrder = 1
[1679]497 Visible = False
498 ShowAccelChar = True
[456]499 end
500 end
[829]501 inherited cmdAccept: TButton
[1679]502 Left = 427
503 Top = 394
[829]504 Anchors = [akLeft, akBottom]
[1679]505 TabOrder = 3
506 ExplicitLeft = 427
507 ExplicitTop = 394
[829]508 end
509 inherited cmdQuit: TButton
510 Left = 531
[1679]511 Top = 394
[829]512 Width = 61
513 Anchors = [akLeft, akBottom]
[1679]514 TabOrder = 4
[829]515 ExplicitLeft = 531
[1679]516 ExplicitTop = 394
[829]517 ExplicitWidth = 61
518 end
519 inherited pnlMessage: TPanel
520 Left = 13
[1679]521 Top = 374
[829]522 Width = 377
523 Anchors = [akLeft, akRight, akBottom]
[1679]524 TabOrder = 5
[829]525 ExplicitLeft = 13
[1679]526 ExplicitTop = 374
[829]527 ExplicitWidth = 377
528 inherited memMessage: TRichEdit
529 Width = 292
530 ExplicitWidth = 292
531 end
532 end
533 inherited amgrMain: TVA508AccessibilityManager
534 Data = (
535 (
[1679]536 'Component = memOrder'
537 'Status = stsDefault')
538 (
539 'Component = cmdAccept'
540 'Status = stsDefault')
541 (
542 'Component = cmdQuit'
543 'Status = stsDefault')
544 (
545 'Component = pnlMessage'
546 'Status = stsDefault')
547 (
548 'Component = memMessage'
549 'Status = stsDefault')
550 (
551 'Component = frmODCslt'
552 'Status = stsDefault')
553 (
554 'Component = pnlMain'
555 'Status = stsDefault')
556 (
557 'Component = lblLatest'
558 'Status = stsDefault')
559 (
560 'Component = lblEarliest'
561 'Status = stsDefault')
562 (
[829]563 'Component = pnlReason'
564 'Status = stsDefault')
565 (
566 'Component = memReason'
[1679]567 'Status = stsDefault')
[829]568 (
569 'Component = cboService'
570 'Status = stsDefault')
571 (
572 'Component = cboUrgency'
[1679]573 'Status = stsDefault')
[829]574 (
575 'Component = cboPlace'
[1679]576 'Status = stsDefault')
[829]577 (
578 'Component = txtProvDiag'
[1679]579 'Status = stsDefault')
[829]580 (
581 'Component = txtAttn'
[1679]582 'Status = stsDefault')
[829]583 (
584 'Component = treService'
585 'Status = stsDefault')
586 (
587 'Component = cboCategory'
588 'Status = stsDefault')
589 (
590 'Component = pnlServiceTreeButton'
591 'Status = stsDefault')
592 (
593 'Component = gbInptOpt'
594 'Status = stsDefault')
595 (
596 'Component = radInpatient'
597 'Status = stsDefault')
598 (
599 'Component = radOutpatient'
600 'Status = stsDefault')
601 (
602 'Component = btnDiagnosis'
603 'Status = stsDefault')
604 (
[1679]605 'Component = cmdLexSearch'
[829]606 'Status = stsDefault')
607 (
[1679]608 'Component = calEarliest'
[829]609 'Status = stsDefault')
610 (
[1679]611 'Component = calLatest'
[829]612 'Status = stsDefault')
613 (
[1679]614 'Component = pnlCombatVet'
[829]615 'Status = stsDefault')
616 (
[1679]617 'Component = txtCombatVet'
[829]618 'Status = stsDefault')
619 (
[1679]620 'Component = servicelbl508'
[829]621 'Status = stsDefault'))
622 end
[456]623 object mnuPopProvDx: TPopupMenu
[1679]624 Left = 489
625 Top = 150
[456]626 object mnuPopProvDxDelete: TMenuItem
627 Caption = 'Delete diagnosis'
628 OnClick = mnuPopProvDxDeleteClick
629 end
630 end
631 object popReason: TPopupMenu
632 OnPopup = popReasonPopup
[1679]633 Left = 547
634 Top = 316
[456]635 object popReasonCut: TMenuItem
636 Caption = 'Cu&t'
637 ShortCut = 16472
638 OnClick = popReasonCutClick
639 end
640 object popReasonCopy: TMenuItem
641 Caption = '&Copy'
642 ShortCut = 16451
643 OnClick = popReasonCopyClick
644 end
645 object popReasonPaste: TMenuItem
646 Caption = '&Paste'
647 ShortCut = 16470
648 OnClick = popReasonPasteClick
649 end
650 object popReasonPaste2: TMenuItem
651 Caption = 'Paste2'
652 ShortCut = 8237
653 Visible = False
654 OnClick = popReasonPasteClick
655 end
656 object popReasonReformat: TMenuItem
657 Caption = 'Reformat Paragraph'
658 ShortCut = 16466
659 OnClick = popReasonReformatClick
660 end
661 end
662end
Note: See TracBrowser for help on using the repository browser.