source: cprs/trunk/CPRS-Chart/fARTAllgy.dfm@ 1727

Last change on this file since 1727 was 1679, checked in by healthsevak, 9 years ago

Updating the working copy to CPRS version 28

File size: 22.5 KB
RevLine 
[456]1inherited frmARTAllergy: TfrmARTAllergy
2 Tag = 1105
[1679]3 Left = 274
4 Top = 150
[456]5 Caption = 'Enter Allergy or Adverse Reaction'
[830]6 ClientHeight = 438
7 ClientWidth = 553
[1679]8 FormStyle = fsStayOnTop
9 Position = poDesigned
[456]10 OnClose = FormClose
11 OnCloseQuery = FormCloseQuery
12 OnCreate = FormCreate
[830]13 ExplicitWidth = 561
[1679]14 ExplicitHeight = 465
[456]15 PixelsPerInch = 96
16 TextHeight = 13
[830]17 object pnlBase: TORAutoPanel [0]
[456]18 Left = 0
19 Top = 0
20 Width = 553
21 Height = 438
22 Align = alClient
23 BevelOuter = bvNone
24 TabOrder = 0
25 object lblAllergyType: TOROffsetLabel
26 Left = 38
27 Top = 403
28 Width = 63
29 Height = 15
30 Caption = 'Allergy Type:'
31 HorzOffset = 2
32 Transparent = False
33 VertOffset = 2
34 Visible = False
35 WordWrap = False
36 end
37 object cmdOK: TButton
38 Left = 380
39 Top = 403
40 Width = 72
41 Height = 21
[830]42 Caption = '&OK'
[456]43 TabOrder = 1
44 OnClick = cmdOKClick
45 end
46 object cmdCancel: TButton
47 Left = 459
48 Top = 403
49 Width = 72
50 Height = 21
51 Cancel = True
[830]52 Caption = '&Cancel'
[456]53 TabOrder = 2
54 OnClick = cmdCancelClick
55 end
56 object pgAllergy: TPageControl
57 Left = 4
58 Top = 17
59 Width = 529
60 Height = 371
61 ActivePage = tabGeneral
62 MultiLine = True
63 TabOrder = 0
64 object tabGeneral: TTabSheet
[830]65 Caption = 'General'
[456]66 object lblAgent: TOROffsetLabel
67 Left = 7
68 Top = 44
69 Width = 82
70 Height = 15
71 Caption = 'Causative agent:'
72 HorzOffset = 2
73 Transparent = False
74 VertOffset = 2
75 WordWrap = False
76 end
[1679]77 object btnAgent1: TSpeedButton
[456]78 Left = 175
79 Top = 62
80 Width = 19
81 Height = 19
82 Caption = '...'
[1679]83 Enabled = False
[456]84 Font.Charset = DEFAULT_CHARSET
85 Font.Color = clWindowText
86 Font.Height = -11
87 Font.Name = 'MS Sans Serif'
88 Font.Style = [fsBold]
89 ParentFont = False
[1679]90 OnClick = btnAgent1Click
[456]91 end
92 object lblOriginator: TOROffsetLabel
93 Left = 202
94 Top = 1
95 Width = 50
96 Height = 15
97 Caption = 'Originator:'
98 HorzOffset = 2
99 Transparent = False
100 VertOffset = 2
101 WordWrap = False
102 end
103 object lblOriginateDate: TOROffsetLabel
104 Left = 202
105 Top = 44
106 Width = 81
107 Height = 15
108 Caption = 'Origination Date:'
109 HorzOffset = 2
110 Transparent = False
111 VertOffset = 2
112 WordWrap = False
113 end
114 object Bevel1: TBevel
[1679]115 Left = 3
116 Top = 312
[456]117 Width = 502
[1679]118 Height = 26
[456]119 end
120 object lblSymptoms: TOROffsetLabel
121 Left = 7
122 Top = 127
123 Width = 84
124 Height = 15
125 Caption = 'Signs/Symptoms:'
126 HorzOffset = 2
127 Transparent = False
128 VertOffset = 2
129 WordWrap = False
130 end
131 object lblSelectedSymptoms: TOROffsetLabel
132 Left = 147
133 Top = 127
134 Width = 98
135 Height = 15
136 Caption = 'Selected Symptoms:'
137 HorzOffset = 2
138 Transparent = False
139 VertOffset = 2
140 WordWrap = False
141 end
142 object lblSeverity: TOROffsetLabel
143 Left = 362
144 Top = 81
145 Width = 43
146 Height = 15
147 Caption = 'Severity:'
148 HorzOffset = 2
149 Transparent = False
150 VertOffset = 2
151 WordWrap = False
152 end
153 object lblObservedDate: TOROffsetLabel
154 Left = 362
155 Top = 44
156 Width = 102
157 Height = 15
158 Caption = 'Reaction Date/Time:'
159 HorzOffset = 2
160 Transparent = False
161 VertOffset = 2
162 WordWrap = False
163 end
164 object lblComments: TOROffsetLabel
165 Left = 295
166 Top = 127
167 Width = 54
168 Height = 15
169 Caption = 'Comments:'
170 HorzOffset = 2
171 Transparent = False
172 VertOffset = 2
173 WordWrap = False
174 end
175 object lblNatureOfReaction: TOROffsetLabel
176 Left = 7
177 Top = 82
178 Width = 95
179 Height = 15
180 Caption = 'Nature of Reaction:'
181 HorzOffset = 2
182 Transparent = False
183 VertOffset = 2
184 WordWrap = False
185 end
186 object ckNoKnownAllergies: TCheckBox
187 Left = 7
188 Top = 3
189 Width = 119
190 Height = 17
[830]191 Caption = '&No Known Allergies'
[1679]192 TabOrder = 1
[456]193 OnClick = ckNoKnownAllergiesClick
194 end
195 object btnCurrent: TButton
196 Left = 7
197 Top = 24
198 Width = 114
199 Height = 21
[830]200 Caption = '&Active Allergies'
[1679]201 TabOrder = 2
[456]202 OnClick = btnCurrentClick
203 end
204 object lstAllergy: TORListBox
205 Left = 7
206 Top = 61
207 Width = 166
208 Height = 21
209 Color = clBtnFace
210 ExtendedSelect = False
211 ItemHeight = 13
212 ParentShowHint = False
213 ShowHint = True
[1679]214 TabOrder = 3
[456]215 OnClick = lstAllergyClick
216 ItemTipColor = clWindow
217 LongList = False
218 Pieces = '2'
219 OnChange = ControlChange
220 end
221 object cboOriginator: TORComboBox
222 Left = 202
223 Top = 16
224 Width = 139
225 Height = 21
226 Style = orcsDropDown
227 AutoSelect = True
[830]228 Color = clBtnFace
[456]229 DropDownCount = 8
[830]230 Enabled = False
231 Font.Charset = DEFAULT_CHARSET
232 Font.Color = clInactiveCaption
233 Font.Height = -11
234 Font.Name = 'MS Sans Serif'
235 Font.Style = []
[456]236 ItemHeight = 13
237 ItemTipColor = clWindow
238 ItemTipEnable = True
239 ListItemsOnly = True
240 LongList = True
241 LookupPiece = 2
242 MaxLength = 0
[830]243 ParentFont = False
[456]244 ParentShowHint = False
245 Pieces = '2,3'
246 ShowHint = False
247 Sorted = False
248 SynonymChars = '<>'
[1679]249 TabOrder = 8
250 TabStop = True
[456]251 OnChange = ControlChange
252 OnNeedData = cboOriginatorNeedData
253 CharsNeedMatch = 1
254 end
255 object calOriginated: TORDateBox
256 Left = 202
257 Top = 61
258 Width = 140
259 Height = 21
260 Color = clBtnFace
261 Enabled = False
[1679]262 TabOrder = 9
[456]263 OnChange = ControlChange
264 DateOnly = False
265 RequireTime = False
266 end
267 object ckChartMarked: TCheckBox
268 Left = 294
[1679]269 Top = 313
[456]270 Width = 113
[1679]271 Height = 22
[830]272 Caption = '&Marked On Chart'
[456]273 Checked = True
274 State = cbChecked
[1679]275 TabOrder = 22
[456]276 Visible = False
277 OnClick = ControlChange
278 end
279 object ckIDBand: TCheckBox
280 Left = 122
[1679]281 Top = 313
[456]282 Width = 97
[1679]283 Height = 22
[830]284 Caption = '&ID Band Marked'
[1679]285 TabOrder = 21
[456]286 OnClick = ControlChange
287 end
288 object cboSymptoms: TORComboBox
289 Left = 7
290 Top = 141
291 Width = 135
292 Height = 152
293 Style = orcsSimple
294 AutoSelect = True
[1679]295 Caption = 'Signs and Symptoms'
[456]296 Color = clWindow
297 DropDownCount = 8
298 ItemHeight = 13
299 ItemTipColor = clWindow
300 ItemTipEnable = True
301 ListItemsOnly = True
302 LongList = True
303 LookupPiece = 0
304 MaxLength = 0
305 Pieces = '2'
306 Sorted = False
307 SynonymChars = '<>'
[1679]308 TabOrder = 15
[456]309 OnKeyDown = cboSymptomsKeyDown
310 OnMouseClick = cboSymptomsMouseClick
311 OnNeedData = cboSymptomsNeedData
312 CharsNeedMatch = 1
313 end
314 object lstSelectedSymptoms: TORListBox
315 Left = 147
316 Top = 141
317 Width = 136
318 Height = 122
319 ExtendedSelect = False
320 ItemHeight = 13
321 ParentShowHint = False
322 ShowHint = True
[1679]323 TabOrder = 16
324 Caption = 'Selected Symptoms'
[456]325 ItemTipColor = clWindow
326 LongList = False
327 Pieces = '2,4'
328 OnChange = lstSelectedSymptomsChange
329 end
330 object btnRemove: TButton
[1679]331 Left = 148
332 Top = 290
333 Width = 132
[456]334 Height = 21
[830]335 Caption = '&Remove'
[1679]336 Enabled = False
337 TabOrder = 18
[456]338 OnClick = btnRemoveClick
339 end
340 object grpObsHist: TRadioGroup
341 Left = 362
[1679]342 Top = 0
[456]343 Width = 147
344 Height = 38
345 Columns = 2
346 Ctl3D = True
347 Items.Strings = (
[830]348 'O&bserved'
349 '&Historical')
[456]350 ParentCtl3D = False
351 ParentShowHint = False
352 ShowHint = True
[1679]353 TabOrder = 11
354 TabStop = True
[456]355 OnClick = grpObsHistClick
356 end
357 object cboSeverity: TORComboBox
358 Left = 362
359 Top = 96
360 Width = 127
361 Height = 21
362 Style = orcsDropDown
363 AutoSelect = True
[1679]364 Caption = 'Severity'
[456]365 Color = clWindow
366 DropDownCount = 8
367 ItemHeight = 13
368 ItemTipColor = clWindow
369 ItemTipEnable = True
370 ListItemsOnly = True
371 LongList = False
372 LookupPiece = 0
373 MaxLength = 0
374 Pieces = '2'
375 Sorted = False
376 SynonymChars = '<>'
[1679]377 TabOrder = 13
[456]378 OnChange = ControlChange
379 OnExit = ControlChange
380 CharsNeedMatch = 1
381 end
382 object calObservedDate: TORDateBox
383 Left = 362
384 Top = 61
385 Width = 145
386 Height = 21
[1679]387 TabOrder = 12
[456]388 OnChange = ControlChange
[1679]389 OnExit = calObservedDateExit
[456]390 DateOnly = False
391 RequireTime = False
392 end
393 object cmdPrevObs: TButton
394 Left = 202
395 Top = 96
396 Width = 140
397 Height = 21
[830]398 Caption = 'View &Previous Observations'
[1679]399 TabOrder = 10
[456]400 OnClick = cmdPrevObsClick
401 end
402 object memComments: TRichEdit
403 Left = 294
404 Top = 141
405 Width = 213
406 Height = 112
[1679]407 Hint = 'Comments'
[456]408 Font.Charset = DEFAULT_CHARSET
409 Font.Color = clWindowText
410 Font.Height = -11
411 Font.Name = 'Courier New'
412 Font.Style = []
413 ParentFont = False
414 ScrollBars = ssVertical
[1679]415 TabOrder = 19
[456]416 OnExit = memCommentsExit
417 end
418 object cmdPrevCmts: TButton
419 Left = 322
420 Top = 270
421 Width = 157
422 Height = 21
[830]423 Caption = '&View Previous Comments'
[1679]424 TabOrder = 20
[456]425 OnClick = cmdPrevCmtsClick
426 end
427 object cboNatureOfReaction: TORComboBox
428 Left = 7
429 Top = 96
430 Width = 190
431 Height = 21
432 Style = orcsDropDown
433 AutoSelect = True
[1679]434 Caption = 'Nature of Reaction'
[456]435 Color = clWindow
436 DropDownCount = 8
437 ItemHeight = 13
438 ItemTipColor = clWindow
439 ItemTipEnable = True
440 ListItemsOnly = True
441 LongList = False
442 LookupPiece = 0
443 MaxLength = 0
444 Pieces = '2'
445 Sorted = False
446 SynonymChars = '<>'
[1679]447 TabOrder = 5
[456]448 OnChange = ControlChange
449 CharsNeedMatch = 1
450 end
451 object btnSevHelp: TORAlignButton
[1679]452 Left = 488
[456]453 Top = 96
454 Width = 21
455 Height = 21
[1679]456 Hint = 'Severity Help'
[830]457 Caption = '&?'
[456]458 Font.Charset = DEFAULT_CHARSET
459 Font.Color = clWindowText
460 Font.Height = -11
461 Font.Name = 'MS Sans Serif'
462 Font.Style = [fsBold]
463 ParentFont = False
[1679]464 ParentShowHint = False
465 ShowHint = True
466 TabOrder = 14
[456]467 OnClick = btnSevHelpClick
468 end
[1679]469 object origlbl508: TVA508StaticText
470 Name = 'origlbl508'
471 Left = 294
472 Top = -5
473 Width = 47
474 Height = 15
475 Alignment = taLeftJustify
476 Caption = 'Originator'
477 Enabled = False
478 TabOrder = 6
479 ShowAccelChar = True
480 end
481 object origdtlbl508: TVA508StaticText
482 Name = 'origdtlbl508'
483 Left = 295
484 Top = 43
485 Width = 28
486 Height = 15
487 Alignment = taLeftJustify
488 Caption = 'origdt'
489 Enabled = False
490 TabOrder = 7
491 ShowAccelChar = True
492 end
493 object SymptomDateBox: TORDateBox
494 Left = 148
495 Top = 265
496 Width = 135
497 Height = 21
498 Hint = 'Enter date/time for selected symptom '
499 Enabled = False
500 TabOrder = 17
501 Text = 'NOW'
502 OnExit = SymptomDateBoxExit
503 DateOnly = False
504 RequireTime = False
505 end
506 object btnAgent: TButton
507 Left = 175
508 Top = 62
509 Width = 19
510 Height = 19
511 Caption = '...'
512 Font.Charset = DEFAULT_CHARSET
513 Font.Color = clWindowText
514 Font.Height = -11
515 Font.Name = 'MS Sans Serif'
516 Font.Style = [fsBold]
517 ParentFont = False
518 TabOrder = 4
519 OnClick = btnAgent1Click
520 end
521 object NoAllergylbl508: TVA508StaticText
522 Name = 'NoAllergylbl508'
523 Left = 10
524 Top = 8
525 Width = 6
526 Height = 6
527 Alignment = taLeftJustify
528 Enabled = False
529 TabOrder = 0
530 TabStop = True
531 Visible = False
532 ShowAccelChar = True
533 end
[456]534 end
535 object tabVerify: TTabSheet
[830]536 Caption = 'Verify'
[456]537 ImageIndex = 3
538 object lblVerifier: TOROffsetLabel
539 Left = 99
540 Top = 51
541 Width = 55
542 Height = 15
543 Caption = 'Verified By:'
544 HorzOffset = 2
545 Transparent = False
546 VertOffset = 2
547 WordWrap = False
548 end
549 object lblVerifyDate: TOROffsetLabel
550 Left = 99
551 Top = 108
552 Width = 66
553 Height = 15
554 Caption = 'Date Verified:'
555 HorzOffset = 2
556 Transparent = False
557 VertOffset = 2
558 WordWrap = False
559 end
560 object ckVerified: TCheckBox
561 Left = 99
562 Top = 18
563 Width = 69
564 Height = 17
[830]565 Caption = '&Verified'
[456]566 TabOrder = 0
567 OnClick = ControlChange
568 end
569 object cboVerifier: TORComboBox
570 Left = 99
571 Top = 65
572 Width = 138
573 Height = 21
574 Style = orcsDropDown
575 AutoSelect = True
[1679]576 Caption = 'Verified By'
[456]577 Color = clWindow
578 DropDownCount = 8
579 ItemHeight = 13
580 ItemTipColor = clWindow
581 ItemTipEnable = True
582 ListItemsOnly = True
583 LongList = True
584 LookupPiece = 2
585 MaxLength = 0
586 Pieces = '2,3'
587 Sorted = False
588 SynonymChars = '<>'
589 TabOrder = 1
590 OnChange = ControlChange
591 OnNeedData = cboVerifierNeedData
592 CharsNeedMatch = 1
593 end
594 object calVerifyDate: TORDateBox
595 Left = 99
596 Top = 124
597 Width = 137
598 Height = 21
599 TabOrder = 2
600 OnChange = ControlChange
601 DateOnly = False
602 RequireTime = False
[1679]603 Caption = 'Date Verified'
[456]604 end
605 end
606 object tabEnteredInError: TTabSheet
607 Caption = 'Entered In Error'
608 ImageIndex = 2
609 object lblErrCmts: TLabel
610 Left = 7
611 Top = 12
612 Width = 98
613 Height = 13
614 Caption = 'Comments (optional):'
615 end
616 object lblEnteredInError: TLabel
617 Left = 0
618 Top = 330
619 Width = 521
620 Height = 13
621 Align = alBottom
622 Alignment = taCenter
623 Caption = 'EnteredInError'
624 Font.Charset = DEFAULT_CHARSET
625 Font.Color = clWindowText
626 Font.Height = -11
627 Font.Name = 'MS Sans Serif'
628 Font.Style = [fsBold]
629 ParentFont = False
[830]630 ExplicitWidth = 83
[456]631 end
632 object ckEnteredInError: TCheckBox
633 Left = 286
634 Top = 5
635 Width = 203
636 Height = 17
[830]637 Caption = '&Mark this allergy as "Entered In Error"'
[456]638 TabOrder = 0
639 Visible = False
640 OnClick = ControlChange
641 end
642 object memErrCmts: TRichEdit
643 Left = 6
644 Top = 27
645 Width = 506
646 Height = 263
647 Font.Charset = DEFAULT_CHARSET
648 Font.Color = clWindowText
649 Font.Height = -11
650 Font.Name = 'Courier New'
651 Font.Style = []
652 ParentFont = False
653 ScrollBars = ssVertical
654 TabOrder = 1
[1679]655 OnExit = memErrCmtsExit
[456]656 end
657 end
658 end
659 object cboAllergyType: TORComboBox
660 Left = 38
661 Top = 418
662 Width = 190
663 Height = 21
664 Style = orcsDropDown
665 AutoSelect = True
666 Color = clBtnFace
667 DropDownCount = 8
668 Enabled = False
669 ItemHeight = 13
670 ItemTipColor = clWindow
671 ItemTipEnable = True
672 ListItemsOnly = True
673 LongList = False
674 LookupPiece = 0
675 MaxLength = 0
676 Pieces = '2'
677 Sorted = False
678 SynonymChars = '<>'
679 TabOrder = 3
680 Visible = False
681 OnChange = ControlChange
682 CharsNeedMatch = 1
683 end
684 end
[830]685 inherited amgrMain: TVA508AccessibilityManager
[1679]686 Left = 168
687 Top = 56
[830]688 Data = (
689 (
690 'Component = pnlBase'
691 'Status = stsDefault')
692 (
693 'Component = cmdOK'
694 'Status = stsDefault')
695 (
696 'Component = cmdCancel'
697 'Status = stsDefault')
698 (
699 'Component = pgAllergy'
700 'Status = stsDefault')
701 (
702 'Component = tabGeneral'
[1679]703 'Property = Caption'
704 'Status = stsOK')
[830]705 (
706 'Component = ckNoKnownAllergies'
707 'Status = stsDefault')
708 (
709 'Component = btnCurrent'
710 'Status = stsDefault')
711 (
712 'Component = lstAllergy'
[1679]713 'Text = Causative Agent'
714 'Status = stsOK')
[830]715 (
716 'Component = cboOriginator'
717 'Status = stsDefault')
718 (
719 'Component = calOriginated'
720 'Status = stsDefault')
721 (
722 'Component = ckChartMarked'
723 'Status = stsDefault')
724 (
725 'Component = ckIDBand'
726 'Status = stsDefault')
727 (
728 'Component = cboSymptoms'
[1679]729
730 'Text = Signs and Symptoms. Press enter to select the sign/sympto' +
731 'm.'
732 'Status = stsOK')
[830]733 (
734 'Component = lstSelectedSymptoms'
[1679]735 'Text = Selected Symptoms'
736 'Status = stsOK')
[830]737 (
738 'Component = btnRemove'
739 'Status = stsDefault')
740 (
741 'Component = grpObsHist'
[1679]742 'Text = Observed or Historical Allergy Group Box'
743 'Status = stsOK')
[830]744 (
745 'Component = cboSeverity'
746 'Status = stsDefault')
747 (
748 'Component = calObservedDate'
[1679]749 'Text = Reaction Date/Time'
750 'Status = stsOK')
[830]751 (
752 'Component = cmdPrevObs'
753 'Status = stsDefault')
754 (
755 'Component = memComments'
756 'Status = stsDefault')
757 (
758 'Component = cmdPrevCmts'
759 'Status = stsDefault')
760 (
761 'Component = cboNatureOfReaction'
762 'Status = stsDefault')
763 (
764 'Component = btnSevHelp'
[1679]765 'Text = Severity Help'
766 'Status = stsOK')
[830]767 (
768 'Component = tabVerify'
[1679]769 'Property = Caption'
770 'Status = stsOK')
[830]771 (
772 'Component = ckVerified'
773 'Status = stsDefault')
774 (
775 'Component = cboVerifier'
776 'Status = stsDefault')
777 (
778 'Component = calVerifyDate'
779 'Status = stsDefault')
780 (
781 'Component = tabEnteredInError'
[1679]782 'Property = Caption'
783 'Status = stsOK')
[830]784 (
785 'Component = ckEnteredInError'
786 'Status = stsDefault')
787 (
788 'Component = memErrCmts'
[1679]789 'Text = Comments (optional)'
790 'Status = stsOK')
[830]791 (
792 'Component = cboAllergyType'
793 'Status = stsDefault')
794 (
795 'Component = frmARTAllergy'
[1679]796 'Status = stsDefault')
797 (
798 'Component = origlbl508'
799 'Status = stsDefault')
800 (
801 'Component = origdtlbl508'
802 'Status = stsDefault')
803 (
804 'Component = SymptomDateBox'
805 'Property = Hint'
806 'Status = stsOK')
807 (
808 'Component = btnAgent'
809 'Text = Causative Agent Reselect'
810 'Status = stsOK')
811 (
812 'Component = NoAllergylbl508'
813 'Text = No Known Allergies checkbox disabled'
814 'Status = stsOK'))
[830]815 end
[1679]816 object VA508ComponentAccessibility1: TVA508ComponentAccessibility
817 Component = memComments
818 OnStateQuery = VA508ComponentAccessibility1StateQuery
819 Left = 408
820 Top = 216
[456]821 end
[1679]822 object VA508ComponentAccessibility2: TVA508ComponentAccessibility
823 Component = lstAllergy
824 OnComponentNameQuery = VA508ComponentAccessibility2ComponentNameQuery
825 OnCaptionQuery = VA508ComponentAccessibility2CaptionQuery
826 OnValueQuery = VA508ComponentAccessibility2ValueQuery
827 OnStateQuery = VA508ComponentAccessibility2StateQuery
828 OnInstructionsQuery = VA508ComponentAccessibility2InstructionsQuery
829 OnItemInstructionsQuery = VA508ComponentAccessibility2ItemInstructionsQuery
830 OnItemQuery = VA508ComponentAccessibility2ItemQuery
831 Left = 104
832 Top = 104
833 end
834 object VA508ComponentAccessibility3: TVA508ComponentAccessibility
835 Component = memErrCmts
836 OnStateQuery = VA508ComponentAccessibility3StateQuery
837 Left = 264
838 Top = 216
839 end
[456]840end
Note: See TracBrowser for help on using the repository browser.