source: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODLab.dfm@ 627

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

Uploading from OR_30_258
File size: 12.8 KB
Line 
1inherited frmODLab: TfrmODLab
2 Tag = 120
3 Left = 245
4 Top = 263
5 Width = 523
6 Height = 271
7 Caption = 'Order a Lab Test'
8 PixelsPerInch = 96
9 TextHeight = 13
10 object lblAvailTests: TLabel [0]
11 Left = 6
12 Top = 4
13 Width = 93
14 Height = 13
15 Caption = 'Available Lab Tests'
16 end
17 object lblCollTime: TLabel [1]
18 Left = 148
19 Top = 152
20 Width = 100
21 Height = 13
22 Caption = 'Collection Date/Time'
23 end
24 object lblTestName: TLabel [2]
25 Left = 180
26 Top = 4
27 Width = 3
28 Height = 13
29 ShowAccelChar = False
30 end
31 object lblCollSamp: TLabel [3]
32 Left = 187
33 Top = 31
34 Width = 70
35 Height = 13
36 Caption = 'Collect Sample'
37 end
38 object lblSpecimen: TLabel [4]
39 Left = 210
40 Top = 58
41 Width = 47
42 Height = 13
43 Caption = 'Specimen'
44 end
45 object lblUrgency: TLabel [5]
46 Left = 217
47 Top = 85
48 Width = 40
49 Height = 13
50 Caption = 'Urgency'
51 end
52 object lblAddlComment: TLabel [6]
53 Left = 187
54 Top = 107
55 Width = 93
56 Height = 13
57 Caption = 'Additional Comment'
58 Visible = False
59 end
60 object bvlTestName: TBevel [7]
61 Left = 180
62 Top = 18
63 Width = 338
64 Height = 130
65 Style = bsRaised
66 end
67 object lblFrequency: TLabel [8]
68 Left = 326
69 Top = 152
70 Width = 57
71 Height = 13
72 Caption = 'How Often?'
73 end
74 object lblReqComment: TOROffsetLabel [9]
75 Left = 386
76 Top = 0
77 Width = 96
78 Height = 19
79 HorzOffset = 2
80 Transparent = False
81 VertOffset = 2
82 WordWrap = False
83 end
84 object lblHowManyDays: TLabel [10]
85 Left = 431
86 Top = 152
87 Width = 55
88 Height = 13
89 Caption = 'How Long?'
90 end
91 object lblCollType: TLabel [11]
92 Left = 7
93 Top = 152
94 Width = 73
95 Height = 13
96 Caption = 'Collection Type'
97 end
98 inherited memOrder: TCaptionMemo
99 TabOrder = 20
100 end
101 object txtImmedColl: TCaptionEdit [13]
102 Left = 149
103 Top = 166
104 Width = 141
105 Height = 21
106 Color = clBtnFace
107 ReadOnly = True
108 TabOrder = 14
109 Text = 'txtImmedColl'
110 end
111 object calCollTime: TORDateBox [14]
112 Left = 149
113 Top = 166
114 Width = 165
115 Height = 21
116 TabOrder = 13
117 OnChange = ControlChange
118 DateOnly = False
119 RequireTime = False
120 end
121 object pnlUrineVolume: TORAutoPanel [15]
122 Left = 378
123 Top = 25
124 Width = 133
125 Height = 118
126 BevelInner = bvLowered
127 BevelOuter = bvNone
128 TabOrder = 8
129 object lblUrineVolume: TOROffsetLabel
130 Left = 6
131 Top = 29
132 Width = 111
133 Height = 15
134 Caption = 'Enter the urine volume:'
135 HorzOffset = 2
136 Transparent = False
137 VertOffset = 2
138 WordWrap = False
139 end
140 object txtUrineVolume: TCaptionEdit
141 Left = 5
142 Top = 56
143 Width = 121
144 Height = 21
145 TabOrder = 0
146 OnExit = txtUrineVolumeExit
147 end
148 end
149 object pnlAntiCoagulation: TORAutoPanel [16]
150 Left = 378
151 Top = 25
152 Width = 133
153 Height = 118
154 BevelInner = bvLowered
155 BevelOuter = bvNone
156 TabOrder = 7
157 object lblAntiCoagulant: TOROffsetLabel
158 Left = 6
159 Top = 8
160 Width = 97
161 Height = 41
162 Caption = 'What kind of anticoagulant is the patient on?'
163 HorzOffset = 2
164 Transparent = False
165 VertOffset = 2
166 WordWrap = True
167 end
168 object txtAntiCoagulant: TCaptionEdit
169 Left = 6
170 Top = 56
171 Width = 121
172 Height = 21
173 TabOrder = 0
174 OnExit = txtAntiCoagulantExit
175 end
176 end
177 object pnlOrderComment: TORAutoPanel [17]
178 Left = 378
179 Top = 25
180 Width = 133
181 Height = 118
182 BevelInner = bvLowered
183 BevelOuter = bvNone
184 TabOrder = 6
185 Visible = False
186 object lblOrderComment: TOROffsetLabel
187 Left = 6
188 Top = 37
189 Width = 103
190 Height = 15
191 Caption = 'Enter order comment:'
192 HorzOffset = 2
193 Transparent = False
194 VertOffset = 2
195 WordWrap = True
196 end
197 object txtOrderComment: TCaptionEdit
198 Left = 6
199 Top = 57
200 Width = 121
201 Height = 21
202 TabOrder = 0
203 OnExit = txtOrderCommentExit
204 end
205 end
206 object pnlHide: TORAutoPanel [18]
207 Left = 378
208 Top = 25
209 Width = 133
210 Height = 118
211 BevelOuter = bvNone
212 TabOrder = 5
213 end
214 object pnlDoseDraw: TORAutoPanel [19]
215 Left = 378
216 Top = 25
217 Width = 133
218 Height = 118
219 BevelInner = bvLowered
220 BevelOuter = bvNone
221 TabOrder = 10
222 object lblDose: TOROffsetLabel
223 Left = 10
224 Top = 15
225 Width = 115
226 Height = 15
227 Caption = 'Enter the last dose time:'
228 HorzOffset = 2
229 Transparent = False
230 VertOffset = 2
231 WordWrap = False
232 end
233 object lblDraw: TOROffsetLabel
234 Left = 10
235 Top = 68
236 Width = 78
237 Height = 15
238 Caption = 'Enter draw time:'
239 HorzOffset = 2
240 Transparent = False
241 VertOffset = 2
242 WordWrap = False
243 end
244 object txtDoseTime: TCaptionEdit
245 Left = 10
246 Top = 31
247 Width = 112
248 Height = 21
249 TabOrder = 0
250 OnExit = txtDoseTimeExit
251 end
252 object txtDrawTime: TCaptionEdit
253 Left = 10
254 Top = 85
255 Width = 112
256 Height = 21
257 TabOrder = 1
258 OnExit = txtDrawTimeExit
259 end
260 end
261 object pnlPeakTrough: TORAutoPanel [20]
262 Left = 378
263 Top = 25
264 Width = 133
265 Height = 118
266 BevelInner = bvLowered
267 BevelOuter = bvNone
268 TabOrder = 9
269 object lblPeakTrough: TOROffsetLabel
270 Left = 6
271 Top = 7
272 Width = 82
273 Height = 13
274 Caption = 'Sample drawn at:'
275 HorzOffset = 0
276 Transparent = False
277 VertOffset = 0
278 WordWrap = True
279 end
280 object grpPeakTrough: TRadioGroup
281 Left = 6
282 Top = 20
283 Width = 120
284 Height = 89
285 Items.Strings = (
286 '&Peak'
287 '&Trough'
288 '&Mid'
289 '&Unknown')
290 TabOrder = 0
291 OnClick = grpPeakTroughClick
292 end
293 end
294 inherited cmdAccept: TButton
295 Left = 443
296 TabOrder = 18
297 end
298 inherited cmdQuit: TButton
299 TabOrder = 19
300 end
301 inherited pnlMessage: TPanel
302 Left = 18
303 Top = 192
304 Height = 56
305 TabOrder = 21
306 inherited imgMessage: TImage
307 Top = 11
308 end
309 inherited memMessage: TRichEdit
310 Left = 41
311 Top = 5
312 Height = 43
313 PopupMenu = MessagePopup
314 end
315 end
316 object pnlCollTimeButton: TKeyClickPanel
317 Left = 288
318 Top = 167
319 Width = 20
320 Height = 19
321 BevelOuter = bvNone
322 Caption = 'Select collection time'
323 TabOrder = 15
324 TabStop = True
325 OnClick = cmdImmedCollClick
326 OnEnter = pnlCollTimeButtonEnter
327 OnExit = pnlCollTimeButtonExit
328 object cmdImmedColl: TSpeedButton
329 Left = 1
330 Top = 1
331 Width = 18
332 Height = 17
333 Font.Charset = DEFAULT_CHARSET
334 Font.Color = clWindowText
335 Font.Height = -16
336 Font.Name = 'MS Sans Serif'
337 Font.Style = [fsBold]
338 Glyph.Data = {
339 D6000000424DD60000000000000076000000280000000C0000000C0000000100
340 0400000000006000000000000000000000001000000010000000000000000000
341 80000080000000808000800000008000800080800000C0C0C000808080000000
342 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
343 0000333333333333000033333333333300003333333333330000300330033003
344 0000300330033003000033333333333300003333333333330000333333333333
345 0000333333333333000033333333333300003333333333330000}
346 ParentFont = False
347 ParentShowHint = False
348 ShowHint = False
349 OnClick = cmdImmedCollClick
350 end
351 end
352 object cboAvailTest: TORComboBox
353 Left = 6
354 Top = 18
355 Width = 168
356 Height = 130
357 Style = orcsSimple
358 AutoSelect = True
359 Caption = 'Available Lab Tests'
360 Color = clWindow
361 DropDownCount = 8
362 ItemHeight = 13
363 ItemTipColor = clWindow
364 ItemTipEnable = True
365 ListItemsOnly = True
366 LongList = True
367 LookupPiece = 0
368 MaxLength = 0
369 Pieces = '2'
370 Sorted = False
371 SynonymChars = '<>'
372 TabOrder = 0
373 OnClick = cboAvailTestSelect
374 OnExit = cboAvailTestExit
375 OnNeedData = cboAvailTestNeedData
376 CharsNeedMatch = 1
377 end
378 object cboFrequency: TORComboBox
379 Left = 326
380 Top = 166
381 Width = 97
382 Height = 21
383 Style = orcsDropDown
384 AutoSelect = True
385 Caption = 'How Often?'
386 Color = clWindow
387 DropDownCount = 8
388 ItemHeight = 13
389 ItemTipColor = clWindow
390 ItemTipEnable = True
391 ListItemsOnly = True
392 LongList = False
393 LookupPiece = 0
394 MaxLength = 0
395 Pieces = '2'
396 Sorted = False
397 SynonymChars = '<>'
398 TabOrder = 16
399 OnChange = cboFrequencyChange
400 CharsNeedMatch = 1
401 end
402 object cboCollSamp: TORComboBox
403 Left = 269
404 Top = 28
405 Width = 100
406 Height = 21
407 Style = orcsDropDown
408 AutoSelect = True
409 Caption = 'Collect Sample'
410 Color = clWindow
411 DropDownCount = 8
412 ItemHeight = 13
413 ItemTipColor = clWindow
414 ItemTipEnable = True
415 ListItemsOnly = True
416 LongList = False
417 LookupPiece = 0
418 MaxLength = 0
419 Pieces = '2'
420 Sorted = False
421 SynonymChars = '<>'
422 TabOrder = 1
423 OnChange = cboCollSampChange
424 OnEnter = cboCollSampMouseClick
425 OnKeyPause = cboCollSampKeyPause
426 OnMouseClick = cboCollSampMouseClick
427 CharsNeedMatch = 1
428 end
429 object cboSpecimen: TORComboBox
430 Left = 269
431 Top = 55
432 Width = 100
433 Height = 21
434 Style = orcsDropDown
435 AutoSelect = True
436 Caption = 'Specimen'
437 Color = clWindow
438 DropDownCount = 10
439 ItemHeight = 13
440 ItemTipColor = clWindow
441 ItemTipEnable = True
442 ListItemsOnly = True
443 LongList = False
444 LookupPiece = 0
445 MaxLength = 0
446 ParentShowHint = False
447 Pieces = '2'
448 ShowHint = True
449 Sorted = False
450 SynonymChars = '<>'
451 TabOrder = 2
452 OnChange = cboSpecimenChange
453 OnEnter = cboSpecimenMouseClick
454 OnKeyPause = cboSpecimenKeyPause
455 OnMouseClick = cboSpecimenMouseClick
456 CharsNeedMatch = 1
457 end
458 object cboUrgency: TORComboBox
459 Left = 269
460 Top = 82
461 Width = 100
462 Height = 21
463 Style = orcsDropDown
464 AutoSelect = True
465 Caption = 'Urgency'
466 Color = clWindow
467 DropDownCount = 8
468 ItemHeight = 13
469 ItemTipColor = clWindow
470 ItemTipEnable = True
471 ListItemsOnly = True
472 LongList = False
473 LookupPiece = 0
474 MaxLength = 0
475 Pieces = '2'
476 Sorted = False
477 SynonymChars = '<>'
478 TabOrder = 3
479 OnChange = cboUrgencyChange
480 CharsNeedMatch = 1
481 end
482 object txtAddlComment: TCaptionEdit
483 Left = 187
484 Top = 122
485 Width = 180
486 Height = 21
487 TabOrder = 4
488 Visible = False
489 OnExit = txtAddlCommentExit
490 Caption = 'Additional Comment'
491 end
492 object txtDays: TCaptionEdit
493 Left = 430
494 Top = 166
495 Width = 84
496 Height = 21
497 Hint = 'Enter a number of days, or an "X" followed by a number of times.'
498 Enabled = False
499 TabOrder = 17
500 OnChange = ControlChange
501 Caption = 'How Long?'
502 end
503 object FLabCommonCombo: TORListBox
504 Left = 440
505 Top = 247
506 Width = 121
507 Height = 97
508 TabStop = False
509 ItemHeight = 13
510 ParentShowHint = False
511 ShowHint = True
512 TabOrder = 22
513 Visible = False
514 ItemTipColor = clWindow
515 LongList = False
516 end
517 object cboCollTime: TORComboBox
518 Left = 149
519 Top = 166
520 Width = 168
521 Height = 21
522 Style = orcsDropDown
523 AutoSelect = True
524 Caption = 'Collection Date/Time'
525 Color = clWindow
526 DropDownCount = 8
527 ItemHeight = 13
528 ItemTipColor = clWindow
529 ItemTipEnable = True
530 ListItemsOnly = False
531 LongList = False
532 LookupPiece = 0
533 MaxLength = 0
534 Pieces = '2'
535 Sorted = False
536 SynonymChars = '<>'
537 TabOrder = 12
538 OnChange = cboCollTimeChange
539 OnExit = cboCollTimeExit
540 CharsNeedMatch = 1
541 end
542 object cboCollType: TORComboBox
543 Left = 6
544 Top = 166
545 Width = 136
546 Height = 21
547 Style = orcsDropDown
548 AutoSelect = True
549 Caption = 'Collection Type'
550 Color = clWindow
551 DropDownCount = 8
552 ItemHeight = 13
553 ItemTipColor = clWindow
554 ItemTipEnable = True
555 ListItemsOnly = True
556 LongList = False
557 LookupPiece = 0
558 MaxLength = 0
559 Pieces = '2'
560 Sorted = False
561 SynonymChars = '<>'
562 TabOrder = 11
563 OnChange = cboCollTypeChange
564 CharsNeedMatch = 1
565 end
566 object dlgLabCollTime: TORDateTimeDlg
567 FMDateTime = 2980923
568 DateOnly = False
569 RequireTime = True
570 Left = 219
571 Top = 4
572 end
573 object MessagePopup: TPopupMenu
574 Left = 340
575 Top = 218
576 object ViewinReportWindow1: TMenuItem
577 Caption = '&View in Report Window'
578 OnClick = ViewinReportWindow1Click
579 end
580 end
581end
Note: See TracBrowser for help on using the repository browser.