source: cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsPatientSelection.dfm@ 1156

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

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