source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fARTAllgy.dfm@ 1679

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

Upgrading to version 27

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