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

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

Adding foia-cprs branch
File size: 15.8 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 TabOrder = 18
263 Visible = False
264 OnClick = ControlChange
265 end
266 object ckIDBand: TCheckBox
267 Left = 122
268 Top = 307
269 Width = 97
270 Height = 17
271 Caption = 'ID Band Marked'
272 TabOrder = 17
273 OnClick = ControlChange
274 end
275 object cboSymptoms: TORComboBox
276 Left = 7
277 Top = 141
278 Width = 135
279 Height = 152
280 Style = orcsSimple
281 AutoSelect = True
282 Color = clWindow
283 DropDownCount = 8
284 ItemHeight = 13
285 ItemTipColor = clWindow
286 ItemTipEnable = True
287 ListItemsOnly = False
288 LongList = True
289 LookupPiece = 0
290 MaxLength = 0
291 Pieces = '2'
292 Sorted = False
293 SynonymChars = '<>'
294 TabOrder = 11
295 OnKeyDown = cboSymptomsKeyDown
296 OnMouseClick = cboSymptomsMouseClick
297 OnNeedData = cboSymptomsNeedData
298 CharsNeedMatch = 1
299 end
300 object lstSelectedSymptoms: TORListBox
301 Left = 147
302 Top = 141
303 Width = 136
304 Height = 122
305 ExtendedSelect = False
306 ItemHeight = 13
307 ParentShowHint = False
308 ShowHint = True
309 TabOrder = 12
310 ItemTipColor = clWindow
311 LongList = False
312 Pieces = '2,4'
313 OnChange = lstSelectedSymptomsChange
314 end
315 object btnDateTime: TButton
316 Left = 154
317 Top = 270
318 Width = 62
319 Height = 21
320 Caption = 'Date/Time'
321 TabOrder = 13
322 OnClick = btnDateTimeClick
323 end
324 object btnRemove: TButton
325 Left = 223
326 Top = 270
327 Width = 57
328 Height = 21
329 Caption = 'Remove'
330 TabOrder = 14
331 OnClick = btnRemoveClick
332 end
333 object grpObsHist: TRadioGroup
334 Left = 362
335 Top = 2
336 Width = 147
337 Height = 38
338 Columns = 2
339 Ctl3D = True
340 Items.Strings = (
341 'Observed'
342 'Historical')
343 ParentCtl3D = False
344 ParentShowHint = False
345 ShowHint = True
346 TabOrder = 7
347 OnClick = grpObsHistClick
348 end
349 object cboSeverity: TORComboBox
350 Left = 362
351 Top = 96
352 Width = 127
353 Height = 21
354 Style = orcsDropDown
355 AutoSelect = True
356 Color = clWindow
357 DropDownCount = 8
358 ItemHeight = 13
359 ItemTipColor = clWindow
360 ItemTipEnable = True
361 ListItemsOnly = True
362 LongList = False
363 LookupPiece = 0
364 MaxLength = 0
365 Pieces = '2'
366 Sorted = False
367 SynonymChars = '<>'
368 TabOrder = 9
369 OnChange = ControlChange
370 CharsNeedMatch = 1
371 end
372 object calObservedDate: TORDateBox
373 Left = 362
374 Top = 61
375 Width = 145
376 Height = 21
377 TabOrder = 8
378 OnChange = ControlChange
379 DateOnly = False
380 RequireTime = False
381 end
382 object cmdPrevObs: TButton
383 Left = 202
384 Top = 96
385 Width = 140
386 Height = 21
387 Caption = 'View Previous Observations'
388 TabOrder = 6
389 OnClick = cmdPrevObsClick
390 end
391 object memComments: TRichEdit
392 Left = 294
393 Top = 141
394 Width = 213
395 Height = 112
396 Font.Charset = DEFAULT_CHARSET
397 Font.Color = clWindowText
398 Font.Height = -11
399 Font.Name = 'Courier New'
400 Font.Style = []
401 ParentFont = False
402 ScrollBars = ssVertical
403 TabOrder = 15
404 OnExit = memCommentsExit
405 end
406 object cmdPrevCmts: TButton
407 Left = 322
408 Top = 270
409 Width = 157
410 Height = 21
411 Caption = 'View Previous Comments'
412 TabOrder = 16
413 OnClick = cmdPrevCmtsClick
414 end
415 object cboNatureOfReaction: TORComboBox
416 Left = 7
417 Top = 96
418 Width = 190
419 Height = 21
420 Style = orcsDropDown
421 AutoSelect = True
422 Color = clWindow
423 DropDownCount = 8
424 ItemHeight = 13
425 ItemTipColor = clWindow
426 ItemTipEnable = True
427 ListItemsOnly = True
428 LongList = False
429 LookupPiece = 0
430 MaxLength = 0
431 Pieces = '2'
432 Sorted = False
433 SynonymChars = '<>'
434 TabOrder = 3
435 OnChange = ControlChange
436 CharsNeedMatch = 1
437 end
438 object btnSevHelp: TORAlignButton
439 Left = 489
440 Top = 96
441 Width = 21
442 Height = 21
443 Caption = '?'
444 Font.Charset = DEFAULT_CHARSET
445 Font.Color = clWindowText
446 Font.Height = -11
447 Font.Name = 'MS Sans Serif'
448 Font.Style = [fsBold]
449 ParentFont = False
450 TabOrder = 10
451 OnClick = btnSevHelpClick
452 end
453 end
454 object tabVerify: TTabSheet
455 Caption = '&Verify'
456 ImageIndex = 3
457 object lblVerifier: TOROffsetLabel
458 Left = 99
459 Top = 51
460 Width = 55
461 Height = 15
462 Caption = 'Verified By:'
463 HorzOffset = 2
464 Transparent = False
465 VertOffset = 2
466 WordWrap = False
467 end
468 object lblVerifyDate: TOROffsetLabel
469 Left = 99
470 Top = 108
471 Width = 66
472 Height = 15
473 Caption = 'Date Verified:'
474 HorzOffset = 2
475 Transparent = False
476 VertOffset = 2
477 WordWrap = False
478 end
479 object ckVerified: TCheckBox
480 Left = 99
481 Top = 18
482 Width = 69
483 Height = 17
484 Caption = 'Verified'
485 TabOrder = 0
486 OnClick = ControlChange
487 end
488 object cboVerifier: TORComboBox
489 Left = 99
490 Top = 65
491 Width = 138
492 Height = 21
493 Style = orcsDropDown
494 AutoSelect = True
495 Color = clWindow
496 DropDownCount = 8
497 ItemHeight = 13
498 ItemTipColor = clWindow
499 ItemTipEnable = True
500 ListItemsOnly = True
501 LongList = True
502 LookupPiece = 2
503 MaxLength = 0
504 Pieces = '2,3'
505 Sorted = False
506 SynonymChars = '<>'
507 TabOrder = 1
508 OnChange = ControlChange
509 OnNeedData = cboVerifierNeedData
510 CharsNeedMatch = 1
511 end
512 object calVerifyDate: TORDateBox
513 Left = 99
514 Top = 124
515 Width = 137
516 Height = 21
517 TabOrder = 2
518 OnChange = ControlChange
519 DateOnly = False
520 RequireTime = False
521 end
522 end
523 object tabEnteredInError: TTabSheet
524 Caption = 'Entered In Error'
525 ImageIndex = 2
526 object lblErrCmts: TLabel
527 Left = 7
528 Top = 12
529 Width = 98
530 Height = 13
531 Caption = 'Comments (optional):'
532 end
533 object lblEnteredInError: TLabel
534 Left = 0
535 Top = 330
536 Width = 83
537 Height = 13
538 Align = alBottom
539 Alignment = taCenter
540 Caption = 'EnteredInError'
541 Font.Charset = DEFAULT_CHARSET
542 Font.Color = clWindowText
543 Font.Height = -11
544 Font.Name = 'MS Sans Serif'
545 Font.Style = [fsBold]
546 ParentFont = False
547 end
548 object ckEnteredInError: TCheckBox
549 Left = 286
550 Top = 5
551 Width = 203
552 Height = 17
553 Caption = 'Mark this allergy as "Entered In Error"'
554 TabOrder = 0
555 Visible = False
556 OnClick = ControlChange
557 end
558 object memErrCmts: TRichEdit
559 Left = 6
560 Top = 27
561 Width = 506
562 Height = 263
563 Font.Charset = DEFAULT_CHARSET
564 Font.Color = clWindowText
565 Font.Height = -11
566 Font.Name = 'Courier New'
567 Font.Style = []
568 ParentFont = False
569 TabOrder = 1
570 OnExit = memCommentsExit
571 end
572 end
573 end
574 object cboAllergyType: TORComboBox
575 Left = 38
576 Top = 418
577 Width = 190
578 Height = 21
579 Style = orcsDropDown
580 AutoSelect = True
581 Color = clBtnFace
582 DropDownCount = 8
583 Enabled = False
584 ItemHeight = 13
585 ItemTipColor = clWindow
586 ItemTipEnable = True
587 ListItemsOnly = True
588 LongList = False
589 LookupPiece = 0
590 MaxLength = 0
591 Pieces = '2'
592 Sorted = False
593 SynonymChars = '<>'
594 TabOrder = 3
595 Visible = False
596 OnChange = ControlChange
597 CharsNeedMatch = 1
598 end
599 end
600 object dlgReactionDateTime: TORDateTimeDlg
601 FMDateTime = 2981202
602 DateOnly = False
603 RequireTime = False
604 Left = 5
605 Top = 400
606 end
607end
Note: See TracBrowser for help on using the repository browser.