source: cprs/branches/foia-cprs/CPRS-Chart/fARTAllgy.dfm@ 1359

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

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