source: cprs/trunk/CPRS-Chart/Options/fOptionsPatientSelection.dfm@ 1003

Last change on this file since 1003 was 829, checked in by Kevin Toppenberg, 14 years ago

Upgrade to version 27
File size: 15.4 KB
RevLine 
[829]1inherited frmOptionsPatientSelection: TfrmOptionsPatientSelection
2 Left = 345
3 Top = 133
4 HelpContext = 9060
5 BorderIcons = [biSystemMenu, biHelp]
6 BorderStyle = bsDialog
7 Caption = 'Patient Selection Defaults'
8 ClientHeight = 413
9 ClientWidth = 414
10 HelpFile = 'CPRSWT.HLP'
11 Position = poScreenCenter
12 OnCreate = FormCreate
13 OnShow = FormShow
14 PixelsPerInch = 96
15 TextHeight = 13
16 object lblClinicDays: TLabel [0]
17 Left = 179
18 Top = 162
19 Width = 101
20 Height = 13
21 Caption = 'Clinic for day of week'
22 end
23 object lblMonday: TLabel [1]
24 Left = 179
25 Top = 184
26 Width = 41
27 Height = 13
28 Caption = 'Monday:'
29 end
30 object lblTuesday: TLabel [2]
31 Left = 179
32 Top = 213
33 Width = 44
34 Height = 13
35 Caption = 'Tuesday:'
36 end
37 object lblWednesday: TLabel [3]
38 Left = 179
39 Top = 241
40 Width = 60
41 Height = 13
42 Caption = 'Wednesday:'
43 end
44 object lblThursday: TLabel [4]
45 Left = 179
46 Top = 270
47 Width = 47
48 Height = 13
49 Caption = 'Thursday:'
50 end
51 object lblFriday: TLabel [5]
52 Left = 179
53 Top = 298
54 Width = 31
55 Height = 13
56 Caption = 'Friday:'
57 end
58 object lblSaturday: TLabel [6]
59 Left = 179
60 Top = 327
61 Width = 45
62 Height = 13
63 Caption = 'Saturday:'
64 end
65 object lblSunday: TLabel [7]
66 Left = 179
67 Top = 355
68 Width = 39
69 Height = 13
70 Caption = 'Sunday:'
71 end
72 object lblVisitStart: TLabel [8]
73 Left = 20
74 Top = 321
75 Width = 25
76 Height = 13
77 Alignment = taRightJustify
78 Caption = 'Start:'
79 end
80 object lblVisitStop: TLabel [9]
81 Left = 20
82 Top = 352
83 Width = 25
84 Height = 13
85 Alignment = taRightJustify
86 Caption = 'Stop:'
87 end
88 object lbWard: TLabel [10]
89 Left = 179
90 Top = 136
91 Width = 29
92 Height = 13
93 Caption = 'Ward:'
94 end
95 object lblTeam: TLabel [11]
96 Left = 179
97 Top = 107
98 Width = 51
99 Height = 13
100 Caption = 'Team/List:'
101 end
102 object lblTreating: TLabel [12]
103 Left = 179
104 Top = 77
105 Width = 88
106 Height = 13
107 Caption = 'Treating Specialty:'
108 end
109 object lblProvider: TLabel [13]
110 Left = 179
111 Top = 50
112 Width = 79
113 Height = 13
114 Caption = 'Primary Provider:'
115 end
116 object lblVisitDateRange: TMemo [14]
117 Left = 20
118 Top = 255
119 Width = 133
120 Height = 61
121 TabStop = False
122 BorderStyle = bsNone
123 Color = clBtnFace
124 Lines.Strings = (
125 'Display patients that have '
126 'clinic appointments within '
127 'this date range.')
128 ReadOnly = True
129 TabOrder = 18
130 end
131 object lblInfo: TMemo [15]
132 Left = 8
133 Top = 6
134 Width = 393
135 Height = 27
136 TabStop = False
137 BorderStyle = bsNone
138 Color = clBtnFace
139 Font.Charset = DEFAULT_CHARSET
140 Font.Color = clWindowText
141 Font.Height = -11
142 Font.Name = 'MS Sans Serif'
143 Font.Style = []
144 Lines.Strings = (
145
146 'The values on the right will be defaults for selecting patients ' +
147 'depending on the list '
148
149 'source selected. Combination uses the criteria defined using Sou' +
150 'rce Combinations.')
151 ParentFont = False
152 ReadOnly = True
153 TabOrder = 19
154 end
155 object pnlBottom: TPanel [16]
156 Left = 0
157 Top = 380
158 Width = 414
159 Height = 33
160 HelpContext = 9060
161 Align = alBottom
162 BevelOuter = bvNone
163 ParentColor = True
164 TabOrder = 17
165 object bvlBottom: TBevel
166 Left = 0
167 Top = 0
168 Width = 414
169 Height = 2
170 Align = alTop
171 end
172 object btnOK: TButton
173 Left = 251
174 Top = 8
175 Width = 75
176 Height = 22
177 HelpContext = 9996
178 Caption = 'OK'
179 ModalResult = 1
180 TabOrder = 0
181 OnClick = btnOKClick
182 end
183 object btnCancel: TButton
184 Left = 331
185 Top = 8
186 Width = 75
187 Height = 22
188 HelpContext = 9997
189 Cancel = True
190 Caption = 'Cancel'
191 ModalResult = 2
192 TabOrder = 1
193 end
194 end
195 object cboProvider: TORComboBox [17]
196 Left = 285
197 Top = 48
198 Width = 121
199 Height = 21
200 HelpContext = 9063
201 Style = orcsDropDown
202 AutoSelect = True
203 Caption = 'Primary Provider'
204 Color = clWindow
205 DropDownCount = 8
206 ItemHeight = 13
207 ItemTipColor = clWindow
208 ItemTipEnable = True
209 ListItemsOnly = True
210 LongList = True
211 LookupPiece = 2
212 MaxLength = 0
213 Pieces = '2,3'
214 Sorted = True
215 SynonymChars = '<>'
216 TabOrder = 6
217 OnExit = cboProviderExit
218 OnKeyUp = cboProviderKeyUp
219 OnNeedData = cboProviderNeedData
220 CharsNeedMatch = 1
221 end
222 object cboTreating: TORComboBox [18]
223 Left = 285
224 Top = 75
225 Width = 121
226 Height = 21
227 HelpContext = 9064
228 Style = orcsDropDown
229 AutoSelect = True
230 Caption = 'Treating Specialty'
231 Color = clWindow
232 DropDownCount = 8
233 ItemHeight = 13
234 ItemTipColor = clWindow
235 ItemTipEnable = True
236 ListItemsOnly = False
237 LongList = False
238 LookupPiece = 0
239 MaxLength = 0
240 Pieces = '2'
241 Sorted = True
242 SynonymChars = '<>'
243 TabOrder = 7
244 OnExit = cboProviderExit
245 OnKeyUp = cboProviderKeyUp
246 CharsNeedMatch = 1
247 end
248 object cboTeam: TORComboBox [19]
249 Left = 285
250 Top = 104
251 Width = 121
252 Height = 21
253 HelpContext = 9065
254 Style = orcsDropDown
255 AutoSelect = True
256 Caption = 'Team/List'
257 Color = clWindow
258 DropDownCount = 8
259 ItemHeight = 13
260 ItemTipColor = clWindow
261 ItemTipEnable = True
262 ListItemsOnly = False
263 LongList = False
264 LookupPiece = 0
265 MaxLength = 0
266 Pieces = '2'
267 Sorted = True
268 SynonymChars = '<>'
269 TabOrder = 8
270 OnExit = cboProviderExit
271 OnKeyUp = cboProviderKeyUp
272 CharsNeedMatch = 1
273 end
274 object cboWard: TORComboBox [20]
275 Left = 285
276 Top = 132
277 Width = 121
278 Height = 21
279 HelpContext = 9066
280 Style = orcsDropDown
281 AutoSelect = True
282 Caption = 'Ward'
283 Color = clWindow
284 DropDownCount = 8
285 ItemHeight = 13
286 ItemTipColor = clWindow
287 ItemTipEnable = True
288 ListItemsOnly = False
289 LongList = False
290 LookupPiece = 0
291 MaxLength = 0
292 Pieces = '2'
293 Sorted = True
294 SynonymChars = '<>'
295 TabOrder = 9
296 OnExit = cboProviderExit
297 OnKeyUp = cboProviderKeyUp
298 CharsNeedMatch = 1
299 end
300 object cboMonday: TORComboBox [21]
301 Left = 285
302 Top = 181
303 Width = 121
304 Height = 21
305 HelpContext = 9067
306 Style = orcsDropDown
307 AutoSelect = True
308 Caption = 'Monday'
309 Color = clWindow
310 DropDownCount = 8
311 ItemHeight = 13
312 ItemTipColor = clWindow
313 ItemTipEnable = True
314 ListItemsOnly = True
315 LongList = True
316 LookupPiece = 0
317 MaxLength = 0
318 Pieces = '2'
319 Sorted = True
320 SynonymChars = '<>'
321 TabOrder = 10
322 OnExit = cboProviderExit
323 OnKeyUp = cboProviderKeyUp
324 OnNeedData = cboMondayNeedData
325 CharsNeedMatch = 1
326 end
327 object cboTuesday: TORComboBox [22]
328 Left = 285
329 Top = 210
330 Width = 121
331 Height = 21
332 HelpContext = 9067
333 Style = orcsDropDown
334 AutoSelect = True
335 Caption = 'Tuesday'
336 Color = clWindow
337 DropDownCount = 8
338 ItemHeight = 13
339 ItemTipColor = clWindow
340 ItemTipEnable = True
341 ListItemsOnly = True
342 LongList = True
343 LookupPiece = 0
344 MaxLength = 0
345 Pieces = '2'
346 Sorted = True
347 SynonymChars = '<>'
348 TabOrder = 11
349 OnExit = cboProviderExit
350 OnKeyUp = cboProviderKeyUp
351 OnNeedData = cboTuesdayNeedData
352 CharsNeedMatch = 1
353 end
354 object cboWednesday: TORComboBox [23]
355 Left = 285
356 Top = 238
357 Width = 121
358 Height = 21
359 HelpContext = 9067
360 Style = orcsDropDown
361 AutoSelect = True
362 Caption = 'Wednesday'
363 Color = clWindow
364 DropDownCount = 8
365 ItemHeight = 13
366 ItemTipColor = clWindow
367 ItemTipEnable = True
368 ListItemsOnly = True
369 LongList = True
370 LookupPiece = 0
371 MaxLength = 0
372 Pieces = '2'
373 Sorted = True
374 SynonymChars = '<>'
375 TabOrder = 12
376 OnExit = cboProviderExit
377 OnKeyUp = cboProviderKeyUp
378 OnNeedData = cboWednesdayNeedData
379 CharsNeedMatch = 1
380 end
381 object cboThursday: TORComboBox [24]
382 Left = 285
383 Top = 267
384 Width = 121
385 Height = 21
386 HelpContext = 9067
387 Style = orcsDropDown
388 AutoSelect = True
389 Caption = 'Thursday'
390 Color = clWindow
391 DropDownCount = 8
392 ItemHeight = 13
393 ItemTipColor = clWindow
394 ItemTipEnable = True
395 ListItemsOnly = True
396 LongList = True
397 LookupPiece = 0
398 MaxLength = 0
399 Pieces = '2'
400 Sorted = True
401 SynonymChars = '<>'
402 TabOrder = 13
403 OnExit = cboProviderExit
404 OnKeyUp = cboProviderKeyUp
405 OnNeedData = cboThursdayNeedData
406 CharsNeedMatch = 1
407 end
408 object cboFriday: TORComboBox [25]
409 Left = 285
410 Top = 295
411 Width = 121
412 Height = 21
413 HelpContext = 9067
414 Style = orcsDropDown
415 AutoSelect = True
416 Caption = 'Friday'
417 Color = clWindow
418 DropDownCount = 8
419 ItemHeight = 13
420 ItemTipColor = clWindow
421 ItemTipEnable = True
422 ListItemsOnly = True
423 LongList = True
424 LookupPiece = 0
425 MaxLength = 0
426 Pieces = '2'
427 Sorted = True
428 SynonymChars = '<>'
429 TabOrder = 14
430 OnExit = cboProviderExit
431 OnKeyUp = cboProviderKeyUp
432 OnNeedData = cboFridayNeedData
433 CharsNeedMatch = 1
434 end
435 object cboSaturday: TORComboBox [26]
436 Left = 285
437 Top = 324
438 Width = 121
439 Height = 21
440 HelpContext = 9067
441 Style = orcsDropDown
442 AutoSelect = True
443 Caption = 'Saturday'
444 Color = clWindow
445 DropDownCount = 8
446 ItemHeight = 13
447 ItemTipColor = clWindow
448 ItemTipEnable = True
449 ListItemsOnly = True
450 LongList = True
451 LookupPiece = 0
452 MaxLength = 0
453 Pieces = '2'
454 Sorted = True
455 SynonymChars = '<>'
456 TabOrder = 15
457 OnExit = cboProviderExit
458 OnKeyUp = cboProviderKeyUp
459 OnNeedData = cboSaturdayNeedData
460 CharsNeedMatch = 1
461 end
462 object cboSunday: TORComboBox [27]
463 Left = 285
464 Top = 352
465 Width = 121
466 Height = 21
467 HelpContext = 9067
468 Style = orcsDropDown
469 AutoSelect = True
470 Caption = 'Sunday'
471 Color = clWindow
472 DropDownCount = 8
473 ItemHeight = 13
474 ItemTipColor = clWindow
475 ItemTipEnable = True
476 ListItemsOnly = True
477 LongList = True
478 LookupPiece = 0
479 MaxLength = 0
480 Pieces = '2'
481 Sorted = True
482 SynonymChars = '<>'
483 TabOrder = 16
484 OnExit = cboProviderExit
485 OnKeyUp = cboProviderKeyUp
486 OnNeedData = cboSundayNeedData
487 CharsNeedMatch = 1
488 end
489 object txtVisitStart: TCaptionEdit [28]
490 Tag = -180
491 Left = 49
492 Top = 319
493 Width = 79
494 Height = 21
495 HelpContext = 9068
496 TabOrder = 2
497 Text = '0'
498 OnExit = txtVisitStartExit
499 OnKeyPress = txtVisitStartKeyPress
500 OnKeyUp = txtVisitStartKeyUp
501 Caption = 'Start'
502 end
503 object txtVisitStop: TCaptionEdit [29]
504 Tag = 30
505 Left = 48
506 Top = 348
507 Width = 79
508 Height = 21
509 HelpContext = 9069
510 TabOrder = 4
511 Text = '0'
512 OnExit = txtVisitStopExit
513 OnKeyPress = txtVisitStopKeyPress
514 OnKeyUp = txtVisitStopKeyUp
515 Caption = 'Stop'
516 end
517 object spnVisitStart: TUpDown [30]
518 Tag = -180
519 Left = 128
520 Top = 319
521 Width = 16
522 Height = 21
523 HelpContext = 9068
524 Associate = txtVisitStart
525 Min = -999
526 Max = 999
527 TabOrder = 3
528 Thousands = False
529 OnClick = spnVisitStartClick
530 end
531 object spnVisitStop: TUpDown [31]
532 Tag = 30
533 Left = 127
534 Top = 348
535 Width = 16
536 Height = 21
537 HelpContext = 9069
538 Associate = txtVisitStop
539 Min = -999
540 Max = 999
541 TabOrder = 5
542 Thousands = False
543 OnClick = spnVisitStopClick
544 end
545 object radListSource: TRadioGroup [32]
546 Left = 16
547 Top = 38
548 Width = 145
549 Height = 105
550 HelpContext = 9061
551 Caption = 'List Source '
552 ItemIndex = 0
553 Items.Strings = (
554 'Primary &Provider'
555 'Treating &Specialty'
556 'Team/&List'
557 '&Ward'
558 '&Clinic'
559 'C&ombination')
560 TabOrder = 0
561 OnClick = radListSourceClick
562 end
563 object grpSortOrder: TGroupBox [33]
564 Left = 16
565 Top = 152
566 Width = 145
567 Height = 94
568 HelpContext = 9062
569 Caption = 'Sort Order '
570 TabOrder = 1
571 object radAlphabetical: TRadioButton
572 Left = 8
573 Top = 16
574 Width = 113
575 Height = 17
576 HelpContext = 9062
577 Caption = '&Alphabetical'
578 TabOrder = 0
579 end
580 object radRoomBed: TRadioButton
581 Left = 8
582 Top = 31
583 Width = 113
584 Height = 17
585 HelpContext = 9062
586 Caption = '&Room/Bed'
587 TabOrder = 1
588 end
589 object radAppointmentDate: TRadioButton
590 Left = 8
591 Top = 46
592 Width = 113
593 Height = 17
594 HelpContext = 9062
595 Caption = 'Appointment &Date'
596 TabOrder = 2
597 end
598 object radTerminalDigit: TRadioButton
599 Left = 8
600 Top = 60
601 Width = 113
602 Height = 17
603 HelpContext = 9062
604 Caption = '&Terminal Digit'
605 TabOrder = 3
606 end
607 object radSource: TRadioButton
608 Left = 8
609 Top = 75
610 Width = 113
611 Height = 17
612 HelpContext = 9062
613 Caption = 'So&urce'
614 TabOrder = 4
615 end
616 end
617 inherited amgrMain: TVA508AccessibilityManager
618 Data = (
619 (
620 'Component = lblVisitDateRange'
621 'Status = stsDefault')
622 (
623 'Component = lblInfo'
624 'Status = stsDefault')
625 (
626 'Component = pnlBottom'
627 'Status = stsDefault')
628 (
629 'Component = btnOK'
630 'Status = stsDefault')
631 (
632 'Component = btnCancel'
633 'Status = stsDefault')
634 (
635 'Component = cboProvider'
636 'Status = stsDefault')
637 (
638 'Component = cboTreating'
639 'Status = stsDefault')
640 (
641 'Component = cboTeam'
642 'Status = stsDefault')
643 (
644 'Component = cboWard'
645 'Status = stsDefault')
646 (
647 'Component = cboMonday'
648 'Status = stsDefault')
649 (
650 'Component = cboTuesday'
651 'Status = stsDefault')
652 (
653 'Component = cboWednesday'
654 'Status = stsDefault')
655 (
656 'Component = cboThursday'
657 'Status = stsDefault')
658 (
659 'Component = cboFriday'
660 'Status = stsDefault')
661 (
662 'Component = cboSaturday'
663 'Status = stsDefault')
664 (
665 'Component = cboSunday'
666 'Status = stsDefault')
667 (
668 'Component = txtVisitStart'
669 'Status = stsDefault')
670 (
671 'Component = txtVisitStop'
672 'Status = stsDefault')
673 (
674 'Component = spnVisitStart'
675 'Status = stsDefault')
676 (
677 'Component = spnVisitStop'
678 'Status = stsDefault')
679 (
680 'Component = radListSource'
681 'Status = stsDefault')
682 (
683 'Component = grpSortOrder'
684 'Status = stsDefault')
685 (
686 'Component = radAlphabetical'
687 'Status = stsDefault')
688 (
689 'Component = radRoomBed'
690 'Status = stsDefault')
691 (
692 'Component = radAppointmentDate'
693 'Status = stsDefault')
694 (
695 'Component = radTerminalDigit'
696 'Status = stsDefault')
697 (
698 'Component = radSource'
699 'Status = stsDefault')
700 (
701 'Component = frmOptionsPatientSelection'
702 'Status = stsDefault'))
703 end
704end
Note: See TracBrowser for help on using the repository browser.