source: cprs/branches/tmg-cprs/CPRS-Chart/Orders/fODLab.dfm@ 1176

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

Initial upload of TMG-CPRS 1.0.26.69
File size: 16.1 KB
RevLine 
[453]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 object pnlCollTimeButton: TKeyClickPanel [21]
295 Left = 288
296 Top = 167
297 Width = 20
298 Height = 19
299 BevelOuter = bvNone
300 Caption = 'Select collection time'
301 TabOrder = 15
302 TabStop = True
303 OnClick = cmdImmedCollClick
304 OnEnter = pnlCollTimeButtonEnter
305 OnExit = pnlCollTimeButtonExit
306 object cmdImmedColl: TSpeedButton
307 Left = 1
308 Top = 1
309 Width = 18
310 Height = 17
311 Font.Charset = DEFAULT_CHARSET
312 Font.Color = clWindowText
313 Font.Height = -16
314 Font.Name = 'MS Sans Serif'
315 Font.Style = [fsBold]
316 Glyph.Data = {
317 D6000000424DD60000000000000076000000280000000C0000000C0000000100
318 0400000000006000000000000000000000001000000010000000000000000000
319 80000080000000808000800000008000800080800000C0C0C000808080000000
320 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
321 0000333333333333000033333333333300003333333333330000300330033003
322 0000300330033003000033333333333300003333333333330000333333333333
323 0000333333333333000033333333333300003333333333330000}
324 ParentFont = False
325 ParentShowHint = False
326 ShowHint = False
327 OnClick = cmdImmedCollClick
328 end
329 end
330 object cboAvailTest: TORComboBox [22]
331 Left = 6
332 Top = 18
333 Width = 168
334 Height = 130
335 Style = orcsSimple
336 AutoSelect = True
337 Caption = 'Available Lab Tests'
338 Color = clWindow
339 DropDownCount = 8
340 ItemHeight = 13
341 ItemTipColor = clWindow
342 ItemTipEnable = True
343 ListItemsOnly = True
344 LongList = True
345 LookupPiece = 0
346 MaxLength = 0
347 Pieces = '2'
348 Sorted = False
349 SynonymChars = '<>'
350 TabOrder = 0
351 OnClick = cboAvailTestSelect
352 OnExit = cboAvailTestExit
353 OnNeedData = cboAvailTestNeedData
354 CharsNeedMatch = 1
355 end
356 object cboFrequency: TORComboBox [23]
357 Left = 326
358 Top = 166
359 Width = 97
360 Height = 21
361 Style = orcsDropDown
362 AutoSelect = True
363 Caption = 'How Often?'
364 Color = clWindow
365 DropDownCount = 8
366 ItemHeight = 13
367 ItemTipColor = clWindow
368 ItemTipEnable = True
369 ListItemsOnly = True
370 LongList = False
371 LookupPiece = 0
372 MaxLength = 0
373 Pieces = '2'
374 Sorted = False
375 SynonymChars = '<>'
376 TabOrder = 16
377 OnChange = cboFrequencyChange
378 CharsNeedMatch = 1
379 end
380 object cboCollSamp: TORComboBox [24]
381 Left = 269
382 Top = 28
383 Width = 100
384 Height = 21
385 Style = orcsDropDown
386 AutoSelect = True
387 Caption = 'Collect Sample'
388 Color = clWindow
389 DropDownCount = 8
390 ItemHeight = 13
391 ItemTipColor = clWindow
392 ItemTipEnable = True
393 ListItemsOnly = True
394 LongList = False
395 LookupPiece = 0
396 MaxLength = 0
397 Pieces = '2'
398 Sorted = False
399 SynonymChars = '<>'
400 TabOrder = 1
401 OnChange = cboCollSampChange
402 OnEnter = cboCollSampMouseClick
403 OnKeyPause = cboCollSampKeyPause
404 OnMouseClick = cboCollSampMouseClick
405 CharsNeedMatch = 1
406 end
407 object cboSpecimen: TORComboBox [25]
408 Left = 269
409 Top = 55
410 Width = 100
411 Height = 21
412 Style = orcsDropDown
413 AutoSelect = True
414 Caption = 'Specimen'
415 Color = clWindow
416 DropDownCount = 10
417 ItemHeight = 13
418 ItemTipColor = clWindow
419 ItemTipEnable = True
420 ListItemsOnly = True
421 LongList = False
422 LookupPiece = 0
423 MaxLength = 0
424 ParentShowHint = False
425 Pieces = '2'
426 ShowHint = True
427 Sorted = False
428 SynonymChars = '<>'
429 TabOrder = 2
430 OnChange = cboSpecimenChange
431 OnEnter = cboSpecimenMouseClick
432 OnKeyPause = cboSpecimenKeyPause
433 OnMouseClick = cboSpecimenMouseClick
434 CharsNeedMatch = 1
435 end
436 object cboUrgency: TORComboBox [26]
437 Left = 269
438 Top = 82
439 Width = 100
440 Height = 21
441 Style = orcsDropDown
442 AutoSelect = True
443 Caption = 'Urgency'
444 Color = clWindow
445 DropDownCount = 8
446 ItemHeight = 13
447 ItemTipColor = clWindow
448 ItemTipEnable = True
449 ListItemsOnly = True
450 LongList = False
451 LookupPiece = 0
452 MaxLength = 0
453 Pieces = '2'
454 Sorted = False
455 SynonymChars = '<>'
456 TabOrder = 3
457 OnChange = cboUrgencyChange
458 CharsNeedMatch = 1
459 end
460 object txtAddlComment: TCaptionEdit [27]
461 Left = 187
462 Top = 122
463 Width = 180
464 Height = 21
465 TabOrder = 4
466 Visible = False
467 OnExit = txtAddlCommentExit
468 Caption = 'Additional Comment'
469 end
470 object txtDays: TCaptionEdit [28]
471 Left = 430
472 Top = 166
473 Width = 84
474 Height = 21
475 Hint = 'Enter a number of days, or an "X" followed by a number of times.'
476 Enabled = False
477 TabOrder = 17
478 OnChange = ControlChange
479 Caption = 'How Long?'
480 end
481 object FLabCommonCombo: TORListBox [29]
482 Left = 440
483 Top = 247
484 Width = 121
485 Height = 97
486 TabStop = False
487 ItemHeight = 13
488 ParentShowHint = False
489 ShowHint = True
490 TabOrder = 22
491 Visible = False
492 ItemTipColor = clWindow
493 LongList = False
494 end
495 object cboCollTime: TORComboBox [30]
496 Left = 149
497 Top = 166
498 Width = 168
499 Height = 21
500 Style = orcsDropDown
501 AutoSelect = True
502 Caption = 'Collection Date/Time'
503 Color = clWindow
504 DropDownCount = 8
505 ItemHeight = 13
506 ItemTipColor = clWindow
507 ItemTipEnable = True
508 ListItemsOnly = False
509 LongList = False
510 LookupPiece = 0
511 MaxLength = 0
512 Pieces = '2'
513 Sorted = False
514 SynonymChars = '<>'
515 TabOrder = 12
516 OnChange = cboCollTimeChange
517 OnExit = cboCollTimeExit
518 CharsNeedMatch = 1
519 end
520 object cboCollType: TORComboBox [31]
521 Left = 6
522 Top = 166
523 Width = 136
524 Height = 21
525 Style = orcsDropDown
526 AutoSelect = True
527 Caption = 'Collection Type'
528 Color = clWindow
529 DropDownCount = 8
530 ItemHeight = 13
531 ItemTipColor = clWindow
532 ItemTipEnable = True
533 ListItemsOnly = True
534 LongList = False
535 LookupPiece = 0
536 MaxLength = 0
537 Pieces = '2'
538 Sorted = False
539 SynonymChars = '<>'
540 TabOrder = 11
541 OnChange = cboCollTypeChange
542 CharsNeedMatch = 1
543 end
544 inherited cmdAccept: TButton
545 Left = 443
546 TabOrder = 18
547 end
548 inherited cmdQuit: TButton
549 TabOrder = 19
550 end
551 inherited pnlMessage: TPanel
552 Left = 18
553 Top = 192
554 Height = 56
555 TabOrder = 21
556 inherited imgMessage: TImage
557 Top = 11
558 end
559 inherited memMessage: TRichEdit
560 Left = 41
561 Top = 5
562 Height = 43
563 PopupMenu = MessagePopup
564 end
565 end
566 inherited DKLanguageController1: TDKLanguageController
567 LangData = {
568 080066726D4F444C6162010100000005000000070043617074696F6E01350000
569 0008006D656D4F72646572010100000002000000070043617074696F6E000900
570 636D64416363657074010100000003000000070043617074696F6E000700636D
571 6451756974010100000004000000070043617074696F6E000A00706E6C4D6573
572 7361676500000A00696D674D65737361676500000A006D656D4D657373616765
573 00000D006C626C417661696C5465737473010100000006000000070043617074
574 696F6E000B006C626C436F6C6C54696D65010100000007000000070043617074
575 696F6E000B006C626C546573744E616D6500000B006C626C436F6C6C53616D70
576 010100000008000000070043617074696F6E000B006C626C53706563696D656E
577 010100000009000000070043617074696F6E000A006C626C557267656E637901
578 010000000A000000070043617074696F6E000E006C626C4164646C436F6D6D65
579 6E7401010000000B000000070043617074696F6E000B0062766C546573744E61
580 6D6500000C006C626C4672657175656E637901010000000C0000000700436170
581 74696F6E000D006C626C526571436F6D6D656E7400000E006C626C486F774D61
582 6E794461797301010000000D000000070043617074696F6E000B006C626C436F
583 6C6C5479706501010000000E000000070043617074696F6E000C00747874496D
584 6D6564436F6C6C01010000000F000000040054657874000B0063616C436F6C6C
585 54696D6500000E00706E6C5572696E65566F6C756D6500000E006C626C557269
586 6E65566F6C756D65010100000010000000070043617074696F6E000E00747874
587 5572696E65566F6C756D6500001200706E6C416E7469436F6167756C6174696F
588 6E000010006C626C416E7469436F6167756C616E740101000000110000000700
589 43617074696F6E001000747874416E7469436F6167756C616E7400000F00706E
590 6C4F72646572436F6D6D656E7400000F006C626C4F72646572436F6D6D656E74
591 010100000012000000070043617074696F6E000F007478744F72646572436F6D
592 6D656E7400000700706E6C4869646500000B00706E6C446F7365447261770000
593 07006C626C446F7365010100000013000000070043617074696F6E0007006C62
594 6C44726177010100000014000000070043617074696F6E000B00747874446F73
595 6554696D6500000B007478744472617754696D6500000D00706E6C5065616B54
596 726F75676800000D006C626C5065616B54726F75676801010000001500000007
597 0043617074696F6E000D006772705065616B54726F7567680101000000160000
598 0005004974656D73001100706E6C436F6C6C54696D65427574746F6E01010000
599 0017000000070043617074696F6E000C00636D64496D6D6564436F6C6C00000C
600 0063626F417661696C54657374010100000018000000070043617074696F6E00
601 0C0063626F4672657175656E6379010100000019000000070043617074696F6E
602 000B0063626F436F6C6C53616D7001010000001A000000070043617074696F6E
603 000B0063626F53706563696D656E01010000001B000000070043617074696F6E
604 000A0063626F557267656E637901010000001C000000070043617074696F6E00
605 0E007478744164646C436F6D6D656E7401010000001D00000007004361707469
606 6F6E0007007478744461797301020000001F000000070043617074696F6E1E00
607 0000040048696E74000F00464C6162436F6D6D6F6E436F6D626F00000B006362
608 6F436F6C6C54696D65010100000020000000070043617074696F6E000B006362
609 6F436F6C6C54797065010100000021000000070043617074696F6E000E00646C
610 674C6162436F6C6C54696D6500000C004D657373616765506F70757000001300
611 56696577696E5265706F727457696E646F773101010000002200000007004361
612 7074696F6E00}
613 end
614 object dlgLabCollTime: TORDateTimeDlg
615 FMDateTime = 2980923.000000000000000000
616 DateOnly = False
617 RequireTime = True
618 Left = 219
619 Top = 4
620 end
621 object MessagePopup: TPopupMenu
622 Left = 340
623 Top = 218
624 object ViewinReportWindow1: TMenuItem
625 Caption = '&View in Report Window'
626 OnClick = ViewinReportWindow1Click
627 end
628 end
629end
Note: See TracBrowser for help on using the repository browser.