source: cprs/trunk/CPRS-Chart/Orders/fODMedIV.dfm@ 1708

Last change on this file since 1708 was 1679, checked in by healthsevak, 10 years ago

Updating the working copy to CPRS version 28
File size: 15.0 KB
Line 
1inherited frmODMedIV: TfrmODMedIV
2 Left = 246
3 Top = 256
4 Width = 668
5 Height = 465
6 Caption = 'Infusion Order'
7 Constraints.MinHeight = 360
8 Constraints.MinWidth = 500
9 ExplicitWidth = 668
10 ExplicitHeight = 465
11 PixelsPerInch = 96
12 TextHeight = 13
13 object lblInfusionRate: TLabel [0]
14 Left = 486
15 Top = 197
16 Width = 100
17 Height = 13
18 Caption = 'Infusion Rate (ml/hr)*'
19 end
20 object lblPriority: TLabel [1]
21 Left = 8
22 Top = 238
23 Width = 35
24 Height = 13
25 Caption = 'Priority*'
26 end
27 object lblComponent: TLabel [2]
28 Left = 214
29 Top = 6
30 Width = 85
31 Height = 13
32 Caption = 'Solution/Additive*'
33 end
34 object lblAmount: TLabel [3]
35 Left = 328
36 Top = 6
37 Width = 84
38 Height = 13
39 Caption = 'Volume/Strength*'
40 WordWrap = True
41 end
42 object lblComments: TLabel [4]
43 Left = 214
44 Top = 107
45 Width = 49
46 Height = 13
47 Caption = 'Comments'
48 end
49 object lblLimit: TLabel [5]
50 Left = 185
51 Top = 238
52 Width = 165
53 Height = 13
54 Caption = 'Duration or Total Volume (Optional)'
55 end
56 object Label1: TLabel [6]
57 Left = 10
58 Top = 345
59 Width = 44
60 Height = 13
61 Caption = 'Order Sig'
62 end
63 object lblRoute: TLabel [7]
64 Left = 8
65 Top = 197
66 Width = 33
67 Height = 13
68 Caption = 'Route*'
69 end
70 object lblSchedule: TLabel [8]
71 Left = 304
72 Top = 197
73 Width = 52
74 Height = 13
75 Caption = 'Schedule *'
76 end
77 object lblType: TLabel [9]
78 Left = 184
79 Top = 197
80 Width = 28
81 Height = 13
82 Caption = 'Type*'
83 ParentShowHint = False
84 ShowHint = True
85 end
86 object txtNSS: TLabel [10]
87 Left = 361
88 Top = 197
89 Width = 69
90 Height = 13
91 Caption = '(Day-of-Week)'
92 Color = clBtnFace
93 Font.Charset = DEFAULT_CHARSET
94 Font.Color = clBlue
95 Font.Height = -11
96 Font.Name = 'MS Sans Serif'
97 Font.Style = []
98 ParentColor = False
99 ParentFont = False
100 OnClick = txtNSSClick
101 end
102 object txtAllIVRoutes: TLabel [11]
103 Left = 47
104 Top = 197
105 Width = 129
106 Height = 13
107 Caption = '(Expanded Med Route List)'
108 Font.Charset = DEFAULT_CHARSET
109 Font.Color = clBlue
110 Font.Height = -11
111 Font.Name = 'MS Sans Serif'
112 Font.Style = []
113 ParentFont = False
114 Visible = False
115 OnClick = txtAllIVRoutesClick
116 end
117 object lblTypeHelp: TLabel [12]
118 Left = 219
119 Top = 197
120 Width = 68
121 Height = 13
122 Caption = '(IV Type Help)'
123 Font.Charset = DEFAULT_CHARSET
124 Font.Color = clBlue
125 Font.Height = -11
126 Font.Name = 'MS Sans Serif'
127 Font.Style = []
128 ParentFont = False
129 ParentShowHint = False
130 ShowHint = False
131 OnClick = lblTypeHelpClick
132 end
133 object lblAddFreq: TLabel [13]
134 Left = 488
135 Top = 6
136 Width = 95
137 Height = 13
138 Caption = 'Additive Frequency*'
139 end
140 object lblPrevAddFreq: TLabel [14]
141 Left = 557
142 Top = 6
143 Width = 77
144 Height = 13
145 Caption = 'Prev. Add. Freq.'
146 end
147 object txtRate: TCaptionEdit [15]
148 Left = 486
149 Top = 211
150 Width = 91
151 Height = 21
152 AutoSelect = False
153 TabOrder = 10
154 OnChange = txtRateChange
155 Caption = 'Infusion Rate'
156 end
157 object cboPriority: TORComboBox [16]
158 Left = 8
159 Top = 252
160 Width = 72
161 Height = 21
162 Style = orcsDropDown
163 AutoSelect = True
164 Caption = 'Priority'
165 Color = clWindow
166 DropDownCount = 8
167 ItemHeight = 13
168 ItemTipColor = clWindow
169 ItemTipEnable = True
170 ListItemsOnly = False
171 LongList = False
172 LookupPiece = 0
173 MaxLength = 0
174 Pieces = '2'
175 Sorted = False
176 SynonymChars = '<>'
177 TabOrder = 12
178 OnChange = cboPriorityChange
179 OnExit = cboPriorityExit
180 OnKeyUp = cboPriorityKeyUp
181 CharsNeedMatch = 1
182 end
183 object grdSelected: TCaptionStringGrid [17]
184 Left = 215
185 Top = 18
186 Width = 437
187 Height = 76
188 DefaultColWidth = 100
189 DefaultRowHeight = 19
190 DefaultDrawing = False
191 FixedCols = 0
192 RowCount = 1
193 FixedRows = 0
194 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
195 ScrollBars = ssVertical
196 TabOrder = 2
197 OnDrawCell = grdSelectedDrawCell
198 OnKeyPress = grdSelectedKeyPress
199 OnMouseDown = grdSelectedMouseDown
200 end
201 object cmdRemove: TButton [18]
202 Left = 443
203 Top = 100
204 Width = 72
205 Height = 18
206 Caption = 'Remove'
207 TabOrder = 3
208 OnClick = cmdRemoveClick
209 end
210 object memComments: TCaptionMemo [19]
211 Left = 214
212 Top = 121
213 Width = 437
214 Height = 66
215 Lines.Strings = (
216 'memComments')
217 ScrollBars = ssVertical
218 TabOrder = 4
219 OnChange = ControlChange
220 Caption = 'Comments'
221 end
222 object txtSelected: TCaptionEdit [20]
223 Tag = -1
224 Left = 416
225 Top = 45
226 Width = 45
227 Height = 19
228 Ctl3D = False
229 ParentCtl3D = False
230 TabOrder = 0
231 Text = 'meq.'
232 Visible = False
233 OnChange = txtSelectedChange
234 OnExit = txtSelectedExit
235 OnKeyDown = txtSelectedKeyDown
236 Caption = 'Volume'
237 end
238 object cboSelected: TCaptionComboBox [21]
239 Tag = -1
240 Left = 462
241 Top = 45
242 Width = 53
243 Height = 21
244 Style = csDropDownList
245 Ctl3D = False
246 ItemHeight = 13
247 ParentCtl3D = False
248 TabOrder = 6
249 Visible = False
250 OnCloseUp = cboSelectedCloseUp
251 OnKeyDown = cboSelectedKeyDown
252 Caption = 'Volume/Strength'
253 end
254 inherited memOrder: TCaptionMemo
255 Top = 364
256 Width = 475
257 TabOrder = 17
258 ExplicitTop = 364
259 ExplicitWidth = 475
260 end
261 object pnlXDuration: TPanel [23]
262 Left = 184
263 Top = 252
264 Width = 150
265 Height = 21
266 BevelOuter = bvNone
267 TabOrder = 13
268 OnEnter = pnlXDurationEnter
269 object txtXDuration: TCaptionEdit
270 Left = 0
271 Top = 0
272 Width = 68
273 Height = 21
274 TabOrder = 0
275 OnChange = txtXDurationChange
276 OnExit = txtXDurationExit
277 end
278 object cboDuration: TComboBox
279 Left = 70
280 Top = 0
281 Width = 75
282 Height = 21
283 ItemHeight = 13
284 TabOrder = 1
285 OnChange = cboDurationChange
286 OnEnter = cboDurationEnter
287 end
288 end
289 object pnlCombo: TPanel [24]
290 Left = 8
291 Top = 2
292 Width = 200
293 Height = 185
294 BevelOuter = bvNone
295 TabOrder = 26
296 object cboAdditive: TORComboBox
297 Left = 0
298 Top = 20
299 Width = 200
300 Height = 165
301 Style = orcsSimple
302 Align = alClient
303 AutoSelect = True
304 Caption = 'Additives'
305 Color = clWindow
306 DropDownCount = 11
307 ItemHeight = 13
308 ItemTipColor = clWindow
309 ItemTipEnable = True
310 ListItemsOnly = True
311 LongList = True
312 LookupPiece = 0
313 MaxLength = 0
314 Pieces = '2'
315 Sorted = False
316 SynonymChars = '<>'
317 TabPositions = '20'
318 TabOrder = 1
319 OnExit = cboAdditiveExit
320 OnMouseClick = cboAdditiveMouseClick
321 OnNeedData = cboAdditiveNeedData
322 CharsNeedMatch = 1
323 end
324 object tabFluid: TTabControl
325 Left = 0
326 Top = 0
327 Width = 200
328 Height = 20
329 Align = alTop
330 TabHeight = 15
331 TabOrder = 2
332 Tabs.Strings = (
333 ' Solutions '
334 ' Additives ')
335 TabIndex = 0
336 OnChange = tabFluidChange
337 end
338 object cboSolution: TORComboBox
339 Left = 0
340 Top = 20
341 Width = 200
342 Height = 165
343 Style = orcsSimple
344 Align = alClient
345 AutoSelect = True
346 Caption = 'Solutions'
347 Color = clWindow
348 DropDownCount = 11
349 ItemHeight = 13
350 ItemTipColor = clWindow
351 ItemTipEnable = True
352 ListItemsOnly = True
353 LongList = True
354 LookupPiece = 0
355 MaxLength = 0
356 Pieces = '2'
357 Sorted = False
358 SynonymChars = '<>'
359 TabPositions = '20'
360 TabOrder = 0
361 OnExit = cboSolutionExit
362 OnMouseClick = cboSolutionMouseClick
363 OnNeedData = cboSolutionNeedData
364 CharsNeedMatch = 1
365 end
366 end
367 object cboRoute: TORComboBox [25]
368 Left = 8
369 Top = 211
370 Width = 168
371 Height = 21
372 Style = orcsDropDown
373 AutoSelect = True
374 Color = clWindow
375 DropDownCount = 8
376 ItemHeight = 13
377 ItemTipColor = clWindow
378 ItemTipEnable = True
379 ListItemsOnly = False
380 LongList = False
381 LookupPiece = 0
382 MaxLength = 0
383 Pieces = '2'
384 Sorted = False
385 SynonymChars = '<>'
386 TabOrder = 5
387 OnChange = cboRouteChange
388 OnClick = cboRouteClick
389 OnExit = cboRouteExit
390 OnKeyDown = cboRouteKeyDown
391 OnKeyUp = cboRouteKeyUp
392 CharsNeedMatch = 1
393 UniqueAutoComplete = True
394 end
395 object cboSchedule: TORComboBox [26]
396 Left = 304
397 Top = 211
398 Width = 129
399 Height = 21
400 Style = orcsDropDown
401 AutoSelect = True
402 Color = clWindow
403 DropDownCount = 8
404 ItemHeight = 13
405 ItemTipColor = clWindow
406 ItemTipEnable = True
407 ListItemsOnly = False
408 LongList = False
409 LookupPiece = 1
410 MaxLength = 0
411 Pieces = '1'
412 Sorted = True
413 SynonymChars = '<>'
414 TabOrder = 8
415 OnChange = cboScheduleChange
416 OnClick = cboScheduleClick
417 OnExit = cboScheduleExit
418 OnKeyDown = cboScheduleKeyDown
419 OnKeyUp = cboScheduleKeyUp
420 CharsNeedMatch = 1
421 UniqueAutoComplete = True
422 end
423 object cboType: TComboBox [27]
424 Left = 184
425 Top = 211
426 Width = 114
427 Height = 21
428 ItemHeight = 13
429 ParentShowHint = False
430 ShowHint = True
431 TabOrder = 7
432 OnChange = cboTypeChange
433 OnKeyDown = cboTypeKeyDown
434 end
435 object chkPRN: TCheckBox [28]
436 Left = 436
437 Top = 213
438 Width = 45
439 Height = 21
440 Caption = 'PRN'
441 TabOrder = 9
442 OnClick = chkPRNClick
443 end
444 object chkDoseNow: TCheckBox [29]
445 Left = 8
446 Top = 279
447 Width = 147
448 Height = 17
449 Anchors = [akLeft]
450 Caption = 'Give Additional Dose Now'
451 Constraints.MinWidth = 147
452 TabOrder = 14
453 OnClick = chkDoseNowClick
454 end
455 object cboInfusionTime: TComboBox [30]
456 Left = 576
457 Top = 211
458 Width = 74
459 Height = 21
460 ItemHeight = 13
461 TabOrder = 11
462 OnChange = cboInfusionTimeChange
463 OnEnter = cboInfusionTimeEnter
464 end
465 object lblAdminTime: TVA508StaticText [31]
466 Name = 'lblAdminTime'
467 Left = 8
468 Top = 308
469 Width = 4
470 Height = 4
471 Alignment = taLeftJustify
472 ParentShowHint = False
473 ShowHint = True
474 TabOrder = 15
475 TabStop = True
476 Visible = False
477 ShowAccelChar = True
478 end
479 object lblFirstDose: TVA508StaticText [32]
480 Name = 'lblFirstDose'
481 Left = 8
482 Top = 323
483 Width = 4
484 Height = 4
485 Alignment = taLeftJustify
486 TabOrder = 16
487 TabStop = True
488 Visible = False
489 ShowAccelChar = True
490 end
491 object cboAddFreq: TCaptionComboBox [33]
492 Left = 488
493 Top = 72
494 Width = 145
495 Height = 21
496 ItemHeight = 13
497 TabOrder = 25
498 Visible = False
499 OnCloseUp = cboAddFreqCloseUp
500 OnKeyDown = cboAddFreqKeyDown
501 end
502 inherited cmdAccept: TButton
503 Left = 495
504 Top = 364
505 TabOrder = 18
506 ExplicitLeft = 495
507 ExplicitTop = 364
508 end
509 inherited cmdQuit: TButton
510 Left = 495
511 Top = 391
512 TabOrder = 19
513 ExplicitLeft = 495
514 ExplicitTop = 391
515 end
516 inherited pnlMessage: TPanel
517 Left = 56
518 Top = 341
519 TabOrder = 20
520 ExplicitLeft = 56
521 ExplicitTop = 341
522 end
523 object lbl508Required: TVA508StaticText [37]
524 Name = 'lbl508Required'
525 Left = 6
526 Top = 318
527 Width = 135
528 Height = 15
529 Alignment = taLeftJustify
530 Caption = ' * Indicates a Required Field'
531 TabOrder = 1
532 ShowAccelChar = True
533 end
534 inherited amgrMain: TVA508AccessibilityManager
535 Data = (
536 (
537 'Component = txtRate'
538 'Label = lblInfusionRate'
539 'Status = stsOK')
540 (
541 'Component = cboPriority'
542 'Label = lblPriority'
543 'Status = stsOK')
544 (
545 'Component = grdSelected'
546 'Status = stsDefault')
547 (
548 'Component = cmdRemove'
549 'Status = stsDefault')
550 (
551 'Component = memComments'
552 'Status = stsDefault')
553 (
554 'Component = txtSelected'
555 'Status = stsDefault')
556 (
557 'Component = cboSelected'
558 'Status = stsDefault')
559 (
560 'Component = pnlXDuration'
561 'Status = stsDefault')
562 (
563 'Component = txtXDuration'
564 'Label = lblLimit'
565 'Status = stsOK')
566 (
567 'Component = pnlCombo'
568 'Status = stsDefault')
569 (
570 'Component = cboAdditive'
571 'Status = stsDefault')
572 (
573 'Component = tabFluid'
574 'Status = stsDefault')
575 (
576 'Component = cboSolution'
577 'Status = stsDefault')
578 (
579 'Component = cboRoute'
580 'Label = lblRoute'
581 'Status = stsOK')
582 (
583 'Component = cboSchedule'
584 'Label = lblSchedule'
585 'Status = stsOK')
586 (
587 'Component = cboType'
588 'Label = lblType'
589 'Status = stsOK')
590 (
591 'Component = chkPRN'
592 'Status = stsDefault')
593 (
594 'Component = chkDoseNow'
595 'Status = stsDefault')
596 (
597 'Component = memOrder'
598 'Label = Label1'
599 'Status = stsOK')
600 (
601 'Component = cmdAccept'
602 'Status = stsDefault')
603 (
604 'Component = cmdQuit'
605 'Status = stsDefault')
606 (
607 'Component = pnlMessage'
608 'Status = stsDefault')
609 (
610 'Component = memMessage'
611 'Status = stsDefault')
612 (
613 'Component = frmODMedIV'
614 'Status = stsDefault')
615 (
616 'Component = cboInfusionTime'
617 'Text = Infusion Rate Time'
618 'Status = stsOK')
619 (
620 'Component = cboDuration'
621 'Text = Duration/Volume Units'
622 'Status = stsOK')
623 (
624 'Component = lblAdminTime'
625 'Status = stsDefault')
626 (
627 'Component = lblFirstDose'
628 'Status = stsDefault')
629 (
630 'Component = cboAddFreq'
631 'Status = stsDefault')
632 (
633 'Component = lbl508Required'
634 'Status = stsDefault'))
635 end
636 object VA508CompOrderSig: TVA508ComponentAccessibility
637 Component = memOrder
638 OnStateQuery = VA508CompOrderSigStateQuery
639 Left = 24
640 Top = 368
641 end
642 object VA508CompRoute: TVA508ComponentAccessibility
643 Component = cboRoute
644 OnInstructionsQuery = VA508CompRouteInstructionsQuery
645 Left = 104
646 Top = 240
647 end
648 object VA508CompType: TVA508ComponentAccessibility
649 Component = cboType
650 OnInstructionsQuery = VA508CompTypeInstructionsQuery
651 Left = 224
652 Top = 280
653 end
654 object VA508CompSchedule: TVA508ComponentAccessibility
655 Component = cboSchedule
656 OnInstructionsQuery = VA508CompScheduleInstructionsQuery
657 Left = 384
658 Top = 240
659 end
660 object VA508CompGrdSelected: TVA508ComponentAccessibility
661 Component = grdSelected
662 OnCaptionQuery = VA508CompGrdSelectedCaptionQuery
663 Left = 288
664 Top = 64
665 end
666end
Note: See TracBrowser for help on using the repository browser.