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

Last change on this file since 894 was 829, checked in by Kevin Toppenberg, 14 years ago

Upgrade to version 27
File size: 12.9 KB
Line 
1inherited frmODMedIV: TfrmODMedIV
2 Left = 246
3 Top = 256
4 Width = 668
5 Height = 465
6 Caption = 'Infusion Order'
7 Constraints.MinHeight = 350
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 = 7
30 Width = 85
31 Height = 13
32 Caption = 'Solution/Additive*'
33 end
34 object lblAmount: TLabel [3]
35 Left = 328
36 Top = 7
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 = 8
58 Top = 344
59 Width = 133
60 Height = 13
61 Caption = ' * Indicates a Required Field'
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 txtRate: TCaptionEdit [13]
134 Left = 486
135 Top = 211
136 Width = 91
137 Height = 21
138 AutoSelect = False
139 TabOrder = 8
140 OnChange = txtRateChange
141 Caption = 'Infusion Rate'
142 end
143 object cboPriority: TORComboBox [14]
144 Left = 8
145 Top = 252
146 Width = 72
147 Height = 21
148 Style = orcsDropDown
149 AutoSelect = True
150 Caption = 'Priority'
151 Color = clWindow
152 DropDownCount = 8
153 ItemHeight = 13
154 ItemTipColor = clWindow
155 ItemTipEnable = True
156 ListItemsOnly = False
157 LongList = False
158 LookupPiece = 0
159 MaxLength = 0
160 Pieces = '2'
161 Sorted = False
162 SynonymChars = '<>'
163 TabOrder = 10
164 OnChange = cboPriorityChange
165 OnExit = cboPriorityExit
166 CharsNeedMatch = 1
167 end
168 object grdSelected: TCaptionStringGrid [15]
169 Left = 214
170 Top = 21
171 Width = 437
172 Height = 76
173 ColCount = 3
174 DefaultColWidth = 100
175 DefaultRowHeight = 19
176 FixedCols = 0
177 RowCount = 1
178 FixedRows = 0
179 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
180 ScrollBars = ssVertical
181 TabOrder = 1
182 OnDrawCell = grdSelectedDrawCell
183 OnKeyPress = grdSelectedKeyPress
184 OnMouseDown = grdSelectedMouseDown
185 Caption = 'Selected Solution and Additives'
186 end
187 object cmdRemove: TButton [16]
188 Left = 443
189 Top = 100
190 Width = 72
191 Height = 18
192 Caption = 'Remove'
193 TabOrder = 2
194 OnClick = cmdRemoveClick
195 end
196 object memComments: TCaptionMemo [17]
197 Left = 214
198 Top = 121
199 Width = 437
200 Height = 66
201 Lines.Strings = (
202 'memComments')
203 ScrollBars = ssVertical
204 TabOrder = 13
205 OnChange = ControlChange
206 Caption = 'Comments'
207 end
208 object txtSelected: TCaptionEdit [18]
209 Tag = -1
210 Left = 416
211 Top = 45
212 Width = 45
213 Height = 19
214 Ctl3D = False
215 ParentCtl3D = False
216 TabOrder = 0
217 Text = 'meq.'
218 Visible = False
219 OnChange = txtSelectedChange
220 OnExit = txtSelectedExit
221 Caption = 'Volume'
222 end
223 object cboSelected: TCaptionComboBox [19]
224 Tag = -1
225 Left = 460
226 Top = 45
227 Width = 53
228 Height = 21
229 Style = csDropDownList
230 Ctl3D = False
231 ItemHeight = 13
232 ParentCtl3D = False
233 TabOrder = 4
234 Visible = False
235 OnChange = cboSelectedChange
236 OnExit = cboSelectedExit
237 Caption = 'Volume/Strength'
238 end
239 inherited memOrder: TCaptionMemo
240 Top = 359
241 Width = 475
242 TabStop = True
243 TabOrder = 16
244 ExplicitTop = 359
245 ExplicitWidth = 475
246 end
247 object pnlXDuration: TPanel [21]
248 Left = 184
249 Top = 252
250 Width = 150
251 Height = 21
252 BevelOuter = bvNone
253 TabOrder = 11
254 OnEnter = pnlXDurationEnter
255 object txtXDuration: TCaptionEdit
256 Left = 0
257 Top = 0
258 Width = 68
259 Height = 21
260 TabOrder = 0
261 OnChange = txtXDurationChange
262 OnExit = txtXDurationExit
263 Caption = 'Duration'
264 end
265 object cboDuration: TComboBox
266 Left = 70
267 Top = 0
268 Width = 75
269 Height = 21
270 ItemHeight = 13
271 TabOrder = 2
272 OnChange = cboDurationChange
273 OnEnter = cboDurationEnter
274 end
275 end
276 object pnlCombo: TPanel [22]
277 Left = 8
278 Top = 2
279 Width = 200
280 Height = 185
281 BevelOuter = bvNone
282 TabOrder = 25
283 object cboAdditive: TORComboBox
284 Left = 0
285 Top = 20
286 Width = 200
287 Height = 165
288 Style = orcsSimple
289 Align = alClient
290 AutoSelect = True
291 Caption = 'Additives'
292 Color = clWindow
293 DropDownCount = 11
294 ItemHeight = 13
295 ItemTipColor = clWindow
296 ItemTipEnable = True
297 ListItemsOnly = True
298 LongList = True
299 LookupPiece = 0
300 MaxLength = 0
301 Pieces = '2'
302 Sorted = False
303 SynonymChars = '<>'
304 TabPositions = '20'
305 TabOrder = 0
306 OnExit = cboAdditiveExit
307 OnMouseClick = cboAdditiveMouseClick
308 OnNeedData = cboAdditiveNeedData
309 CharsNeedMatch = 1
310 end
311 object tabFluid: TTabControl
312 Left = 0
313 Top = 0
314 Width = 200
315 Height = 20
316 Align = alTop
317 TabHeight = 15
318 TabOrder = 2
319 Tabs.Strings = (
320 ' Solutions '
321 ' Additives ')
322 TabIndex = 0
323 TabStop = False
324 OnChange = tabFluidChange
325 end
326 object cboSolution: TORComboBox
327 Left = 0
328 Top = 20
329 Width = 200
330 Height = 165
331 Style = orcsSimple
332 Align = alClient
333 AutoSelect = True
334 Caption = 'Solutions'
335 Color = clWindow
336 DropDownCount = 11
337 ItemHeight = 13
338 ItemTipColor = clWindow
339 ItemTipEnable = True
340 ListItemsOnly = True
341 LongList = True
342 LookupPiece = 0
343 MaxLength = 0
344 Pieces = '2'
345 Sorted = False
346 SynonymChars = '<>'
347 TabPositions = '20'
348 TabOrder = 1
349 OnExit = cboSolutionExit
350 OnMouseClick = cboSolutionMouseClick
351 OnNeedData = cboSolutionNeedData
352 CharsNeedMatch = 1
353 end
354 end
355 object cboRoute: TORComboBox [23]
356 Left = 8
357 Top = 211
358 Width = 168
359 Height = 21
360 Style = orcsDropDown
361 AutoSelect = True
362 Color = clWindow
363 DropDownCount = 8
364 ItemHeight = 13
365 ItemTipColor = clWindow
366 ItemTipEnable = True
367 ListItemsOnly = False
368 LongList = False
369 LookupPiece = 0
370 MaxLength = 0
371 Pieces = '2'
372 Sorted = False
373 SynonymChars = '<>'
374 TabOrder = 3
375 OnChange = cboRouteChange
376 OnClick = cboRouteClick
377 OnExit = cboRouteExit
378 CharsNeedMatch = 1
379 UniqueAutoComplete = True
380 end
381 object cboSchedule: TORComboBox [24]
382 Left = 304
383 Top = 211
384 Width = 129
385 Height = 21
386 Style = orcsDropDown
387 AutoSelect = True
388 Color = clWindow
389 DropDownCount = 8
390 ItemHeight = 13
391 ItemTipColor = clWindow
392 ItemTipEnable = True
393 ListItemsOnly = False
394 LongList = False
395 LookupPiece = 1
396 MaxLength = 0
397 Pieces = '1'
398 Sorted = True
399 SynonymChars = '<>'
400 TabOrder = 6
401 OnChange = cboScheduleChange
402 OnClick = cboScheduleClick
403 OnExit = cboScheduleExit
404 CharsNeedMatch = 1
405 UniqueAutoComplete = True
406 end
407 object cboType: TComboBox [25]
408 Left = 184
409 Top = 211
410 Width = 114
411 Height = 21
412 ItemHeight = 13
413 ParentShowHint = False
414 ShowHint = True
415 TabOrder = 5
416 OnChange = cboTypeChange
417 end
418 object chkPRN: TCheckBox [26]
419 Left = 436
420 Top = 213
421 Width = 45
422 Height = 21
423 Caption = 'PRN'
424 TabOrder = 7
425 OnClick = chkPRNClick
426 end
427 object chkDoseNow: TCheckBox [27]
428 Left = 8
429 Top = 279
430 Width = 147
431 Height = 17
432 Anchors = [akLeft]
433 Caption = 'Give Additional Dose Now'
434 Constraints.MinWidth = 147
435 TabOrder = 12
436 OnClick = chkDoseNowClick
437 end
438 object cboInfusionTime: TComboBox [28]
439 Left = 576
440 Top = 211
441 Width = 74
442 Height = 21
443 ItemHeight = 13
444 TabOrder = 9
445 OnChange = cboInfusionTimeChange
446 OnEnter = cboInfusionTimeEnter
447 end
448 object lblAdminTime: TVA508StaticText [29]
449 Name = 'lblAdminTime'
450 Left = 8
451 Top = 308
452 Width = 4
453 Height = 4
454 Alignment = taLeftJustify
455 ParentShowHint = False
456 ShowHint = True
457 TabOrder = 14
458 TabStop = True
459 Visible = False
460 ShowAccelChar = True
461 end
462 object lblFirstDose: TVA508StaticText [30]
463 Name = 'lblFirstDose'
464 Left = 8
465 Top = 323
466 Width = 4
467 Height = 4
468 Alignment = taLeftJustify
469 TabOrder = 15
470 TabStop = True
471 Visible = False
472 ShowAccelChar = True
473 end
474 inherited cmdAccept: TButton
475 Left = 495
476 Top = 359
477 TabOrder = 17
478 ExplicitLeft = 495
479 ExplicitTop = 359
480 end
481 inherited cmdQuit: TButton
482 Left = 495
483 Top = 386
484 TabOrder = 18
485 ExplicitLeft = 495
486 ExplicitTop = 386
487 end
488 inherited pnlMessage: TPanel
489 Left = 56
490 Top = 349
491 TabOrder = 19
492 ExplicitLeft = 56
493 ExplicitTop = 349
494 end
495 inherited amgrMain: TVA508AccessibilityManager
496 Data = (
497 (
498 'Component = txtRate'
499 'Status = stsDefault')
500 (
501 'Component = cboPriority'
502 'Status = stsDefault')
503 (
504 'Component = grdSelected'
505 'Status = stsDefault')
506 (
507 'Component = cmdRemove'
508 'Status = stsDefault')
509 (
510 'Component = memComments'
511 'Status = stsDefault')
512 (
513 'Component = txtSelected'
514 'Status = stsDefault')
515 (
516 'Component = cboSelected'
517 'Status = stsDefault')
518 (
519 'Component = pnlXDuration'
520 'Status = stsDefault')
521 (
522 'Component = txtXDuration'
523 'Status = stsDefault')
524 (
525 'Component = pnlCombo'
526 'Status = stsDefault')
527 (
528 'Component = cboAdditive'
529 'Status = stsDefault')
530 (
531 'Component = tabFluid'
532 'Status = stsDefault')
533 (
534 'Component = cboSolution'
535 'Status = stsDefault')
536 (
537 'Component = cboRoute'
538 'Status = stsDefault')
539 (
540 'Component = cboSchedule'
541 'Status = stsDefault')
542 (
543 'Component = cboType'
544 'Status = stsDefault')
545 (
546 'Component = chkPRN'
547 'Status = stsDefault')
548 (
549 'Component = chkDoseNow'
550 'Status = stsDefault')
551 (
552 'Component = memOrder'
553 'Status = stsDefault')
554 (
555 'Component = cmdAccept'
556 'Status = stsDefault')
557 (
558 'Component = cmdQuit'
559 'Status = stsDefault')
560 (
561 'Component = pnlMessage'
562 'Status = stsDefault')
563 (
564 'Component = memMessage'
565 'Status = stsDefault')
566 (
567 'Component = frmODMedIV'
568 'Status = stsDefault')
569 (
570 'Component = cboInfusionTime'
571 'Status = stsDefault')
572 (
573 'Component = cboDuration'
574 'Status = stsDefault')
575 (
576 'Component = lblAdminTime'
577 'Status = stsDefault')
578 (
579 'Component = lblFirstDose'
580 'Status = stsDefault'))
581 end
582end
Note: See TracBrowser for help on using the repository browser.