source: cprs/trunk/CPRS-Chart/Orders/fODMedNVA.dfm@ 908

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

Upgrade to version 27
File size: 12.3 KB
RevLine 
[456]1inherited frmODMedNVA: TfrmODMedNVA
[829]2 Left = 203
3 Top = 183
[456]4 Width = 632
5 Height = 536
6 Caption = 'Document Herbal/OTC/Non-VA Medications'
7 Constraints.MinHeight = 365
[829]8 ExplicitWidth = 632
9 ExplicitHeight = 536
[456]10 PixelsPerInch = 96
11 TextHeight = 13
12 inherited memOrder: TCaptionMemo
13 Left = 0
14 Top = 461
15 Width = 525
16 Anchors = [akLeft, akRight, akBottom]
17 Constraints.MinWidth = 25
18 TabOrder = 4
[829]19 ExplicitLeft = 0
20 ExplicitTop = 461
21 ExplicitWidth = 525
[456]22 end
[829]23 object pnlMeds: TPanel [1]
[456]24 Left = 6
25 Top = 34
26 Width = 593
27 Height = 415
28 Anchors = [akLeft, akTop, akRight, akBottom]
29 BevelOuter = bvNone
30 Caption = 'pnlMeds'
31 TabOrder = 1
32 object sptSelect: TSplitter
33 Left = 0
34 Top = 133
35 Width = 593
36 Height = 4
37 Cursor = crVSplit
38 Align = alTop
39 end
40 object lstQuick: TCaptionListView
41 Left = 0
42 Top = 0
43 Width = 593
44 Height = 133
45 Align = alTop
46 BevelInner = bvLowered
47 BevelOuter = bvSpace
48 Columns = <
49 item
50 Width = 420
51 end>
52 ColumnClick = False
[829]53 Constraints.MaxHeight = 165
[456]54 HideSelection = False
55 HotTrack = True
56 OwnerData = True
57 ParentShowHint = False
58 ShowColumnHeaders = False
59 ShowHint = True
60 TabOrder = 0
61 TabStop = False
62 ViewStyle = vsReport
63 OnChange = lstChange
64 OnClick = ListViewClick
65 OnData = lstQuickData
66 OnEditing = ListViewEditing
67 OnEnter = ListViewEnter
68 OnResize = ListViewResize
69 Caption = 'Quick Orders'
70 end
71 object lstAll: TCaptionListView
72 Left = 0
73 Top = 137
74 Width = 593
75 Height = 278
76 Align = alClient
77 Columns = <
78 item
79 Width = 420
80 end>
81 ColumnClick = False
82 HideSelection = False
83 OwnerData = True
84 ParentShowHint = False
85 ShowColumnHeaders = False
86 ShowHint = True
87 TabOrder = 1
88 ViewStyle = vsReport
89 OnChange = lstChange
90 OnClick = ListViewClick
91 OnData = lstAllData
92 OnDataHint = lstAllDataHint
93 OnEditing = ListViewEditing
94 OnEnter = ListViewEnter
95 OnResize = ListViewResize
96 Caption = 'All Medication orders'
97 end
98 end
[829]99 object txtMed: TEdit [2]
[456]100 Left = 5
101 Top = 6
102 Width = 596
103 Height = 21
104 Anchors = [akLeft, akTop, akRight]
105 AutoSelect = False
106 TabOrder = 0
107 Text = '(Type a medication name or select from the orders below)'
108 OnChange = txtMedChange
109 OnExit = txtMedExit
110 OnKeyDown = txtMedKeyDown
111 OnKeyUp = txtMedKeyUp
112 end
[829]113 object pnlFields: TPanel [3]
[456]114 Left = 3
115 Top = 30
116 Width = 624
117 Height = 428
118 Anchors = [akLeft, akTop, akRight, akBottom]
119 BevelOuter = bvNone
120 Enabled = False
121 TabOrder = 2
122 Visible = False
123 object pnlTop: TPanel
124 Left = 0
125 Top = 0
126 Width = 624
127 Height = 264
128 Align = alClient
129 Constraints.MinHeight = 80
130 Constraints.MinWidth = 30
131 TabOrder = 0
132 DesignSize = (
133 624
134 264)
135 object lblRoute: TLabel
136 Left = 349
137 Top = 23
138 Width = 29
139 Height = 13
140 Anchors = [akTop, akRight]
141 Caption = 'Route'
142 Visible = False
143 end
144 object lblSchedule: TLabel
145 Left = 467
146 Top = 23
147 Width = 45
148 Height = 13
149 Anchors = [akTop, akRight]
150 Caption = 'Schedule'
151 Visible = False
152 end
153 object lblGuideline: TStaticText
154 Left = 0
155 Top = 1
156 Width = 181
157 Height = 17
158 Caption = 'Display Restrictions/Guidelines'
159 Color = clBtnFace
160 Font.Charset = DEFAULT_CHARSET
161 Font.Color = clBlue
162 Font.Height = -11
163 Font.Name = 'MS Sans Serif'
164 Font.Style = [fsBold, fsUnderline]
165 ParentColor = False
166 ParentFont = False
167 ShowAccelChar = False
168 TabOrder = 0
169 TabStop = True
170 Visible = False
[829]171 OnClick = lblGuidelineClick
[456]172 end
173 object tabDose: TTabControl
174 Left = -7
175 Top = 19
176 Width = 175
177 Height = 17
178 TabOrder = 4
179 Tabs.Strings = (
180 'Dosage')
181 TabIndex = 0
182 TabStop = False
183 TabWidth = 86
184 OnChange = tabDoseChange
185 end
186 object cboDosage: TORComboBox
187 Left = 8
188 Top = 36
189 Width = 383
190 Height = 222
191 Anchors = [akLeft, akTop, akRight, akBottom]
192 Style = orcsSimple
193 AutoSelect = True
194 Caption = 'Dosage'
195 Color = clWindow
196 DropDownCount = 8
197 ItemHeight = 13
198 ItemTipColor = clWindow
199 ItemTipEnable = True
200 ListItemsOnly = False
201 LongList = False
202 LookupPiece = 0
203 MaxLength = 0
204 Pieces = '5,3,6'
205 Sorted = False
206 SynonymChars = '<>'
207 TabPositions = '27,32'
208 TabOrder = 1
209 OnChange = cboDosageChange
210 OnClick = cboDosageClick
211 OnExit = cboDosageExit
212 CharsNeedMatch = 1
213 end
214 object cboRoute: TORComboBox
215 Left = 355
216 Top = 36
217 Width = 114
218 Height = 223
219 Anchors = [akTop, akRight, akBottom]
220 Style = orcsSimple
221 AutoSelect = True
222 Caption = 'Route'
223 Color = clWindow
224 DropDownCount = 8
225 ItemHeight = 13
226 ItemTipColor = clWindow
227 ItemTipEnable = True
228 ListItemsOnly = False
229 LongList = False
230 LookupPiece = 0
231 MaxLength = 0
232 ParentShowHint = False
233 Pieces = '2'
234 ShowHint = True
235 Sorted = False
236 SynonymChars = '<>'
237 TabOrder = 2
238 OnChange = cboRouteChange
239 OnClick = ControlChange
240 OnExit = cboRouteExit
241 CharsNeedMatch = 1
242 end
243 object cboSchedule: TORComboBox
244 Left = 467
245 Top = 36
246 Width = 157
247 Height = 223
248 Anchors = [akTop, akRight, akBottom]
249 Style = orcsSimple
250 AutoSelect = True
251 Caption = 'Schedule'
252 Color = clWindow
253 DropDownCount = 8
254 ItemHeight = 13
255 ItemTipColor = clWindow
256 ItemTipEnable = True
257 ListItemsOnly = False
258 LongList = False
259 LookupPiece = 0
260 MaxLength = 0
261 Pieces = '1'
262 Sorted = False
263 SynonymChars = '<>'
264 TabOrder = 3
265 OnChange = cboScheduleChange
266 OnClick = cboScheduleClick
267 OnExit = cboScheduleExit
268 CharsNeedMatch = 1
269 end
270 object chkPRN: TCheckBox
271 Left = 582
272 Top = 39
273 Width = 42
274 Height = 17
275 Anchors = [akTop, akRight]
276 Caption = 'PRN'
277 Color = clBtnFace
278 ParentColor = False
279 TabOrder = 5
280 OnClick = chkPRNClick
281 end
282 end
283 object pnlBottom: TPanel
284 Left = 0
285 Top = 264
286 Width = 624
287 Height = 164
288 Align = alBottom
289 TabOrder = 1
290 DesignSize = (
291 624
292 164)
293 object lblComment: TLabel
294 Left = 4
295 Top = 5
296 Width = 52
297 Height = 16
298 Alignment = taRightJustify
299 AutoSize = False
300 Caption = 'Comments:'
301 end
302 object Label1: TLabel
303 Left = 5
304 Top = 47
305 Width = 108
306 Height = 13
307 Caption = 'Statement/Explanation'
308 end
309 object Label2: TLabel
310 Left = 10
311 Top = 145
312 Width = 51
313 Height = 13
314 Caption = 'Start Date:'
315 end
316 object Image1: TImage
317 Left = 25
318 Top = 17
319 Width = 31
320 Height = 31
321 end
322 object memComment: TCaptionMemo
323 Left = 64
324 Top = 2
325 Width = 559
326 Height = 44
327 Align = alCustom
328 Anchors = [akLeft, akTop, akRight]
329 ScrollBars = ssVertical
330 TabOrder = 2
331 OnChange = ControlChange
332 Caption = 'Comments'
333 end
334 object lblAdminTime: TStaticText
335 Left = 267
336 Top = 105
337 Width = 4
338 Height = 4
339 TabOrder = 0
340 Visible = False
341 end
342 object calStart: TORDateBox
343 Left = 64
344 Top = 141
345 Width = 145
346 Height = 21
347 Anchors = [akLeft, akTop, akBottom]
348 TabOrder = 5
349 Text = 'Today'
350 OnChange = ControlChange
351 DateOnly = True
352 RequireTime = False
353 Caption = 'Effective Date'
354 end
355 object lbStatements: TORListBox
356 Left = 7
357 Top = 59
358 Width = 603
359 Height = 81
360 Style = lbOwnerDrawFixed
361 Anchors = [akLeft, akTop, akRight]
362 ExtendedSelect = False
363 ItemHeight = 16
364 ParentShowHint = False
365 ShowHint = True
366 TabOrder = 3
367 ItemTipColor = clWindow
368 LongList = False
369 CheckBoxes = True
370 OnClickCheck = lbStatementsClickCheck
371 end
372 object memDrugMsg: TMemo
373 Left = 63
374 Top = 15
375 Width = 533
376 Height = 31
377 Anchors = [akLeft, akRight, akBottom]
378 Color = clCream
379 Lines.Strings = (
380 '')
381 ReadOnly = True
382 ScrollBars = ssVertical
383 TabOrder = 6
384 Visible = False
385 end
386 end
387 end
[829]388 object btnSelect: TButton [4]
[456]389 Left = 539
390 Top = 463
391 Width = 72
392 Height = 21
393 Anchors = [akRight, akBottom]
394 Caption = 'OK'
395 Default = True
396 Enabled = False
397 TabOrder = 5
398 OnClick = btnSelectClick
399 end
[829]400 inherited cmdAccept: TButton
401 Left = 540
402 Top = 463
403 Width = 69
404 Anchors = [akRight, akBottom]
405 TabOrder = 6
406 Visible = False
407 ExplicitLeft = 540
408 ExplicitTop = 463
409 ExplicitWidth = 69
410 end
411 inherited cmdQuit: TButton
412 Left = 546
413 Top = 489
414 Width = 49
415 Anchors = [akRight, akBottom]
416 TabOrder = 7
417 ExplicitLeft = 546
418 ExplicitTop = 489
419 ExplicitWidth = 49
420 end
421 inherited pnlMessage: TPanel
422 Top = 240
423 ExplicitTop = 240
424 end
425 inherited amgrMain: TVA508AccessibilityManager
426 Data = (
427 (
428 'Component = pnlMeds'
429 'Status = stsDefault')
430 (
431 'Component = lstQuick'
432 'Status = stsDefault')
433 (
434 'Component = lstAll'
435 'Status = stsDefault')
436 (
437 'Component = txtMed'
438 'Status = stsDefault')
439 (
440 'Component = pnlFields'
441 'Status = stsDefault')
442 (
443 'Component = pnlTop'
444 'Status = stsDefault')
445 (
446 'Component = lblGuideline'
447 'Status = stsDefault')
448 (
449 'Component = tabDose'
450 'Status = stsDefault')
451 (
452 'Component = cboDosage'
453 'Status = stsDefault')
454 (
455 'Component = cboRoute'
456 'Status = stsDefault')
457 (
458 'Component = cboSchedule'
459 'Status = stsDefault')
460 (
461 'Component = chkPRN'
462 'Status = stsDefault')
463 (
464 'Component = pnlBottom'
465 'Status = stsDefault')
466 (
467 'Component = memComment'
468 'Status = stsDefault')
469 (
470 'Component = lblAdminTime'
471 'Status = stsDefault')
472 (
473 'Component = calStart'
474 'Status = stsDefault')
475 (
476 'Component = lbStatements'
477 'Status = stsDefault')
478 (
479 'Component = memDrugMsg'
480 'Status = stsDefault')
481 (
482 'Component = btnSelect'
483 'Status = stsDefault')
484 (
485 'Component = memOrder'
486 'Status = stsDefault')
487 (
488 'Component = cmdAccept'
489 'Status = stsDefault')
490 (
491 'Component = cmdQuit'
492 'Status = stsDefault')
493 (
494 'Component = pnlMessage'
495 'Status = stsDefault')
496 (
497 'Component = memMessage'
498 'Status = stsDefault')
499 (
500 'Component = frmODMedNVA'
501 'Status = stsDefault'))
502 end
[456]503 object dlgStart: TORDateTimeDlg
[829]504 FMDateTime = 3001101.000000000000000000
[456]505 DateOnly = False
506 RequireTime = True
507 Left = 500
508 Top = 201
509 end
510 object timCheckChanges: TTimer
511 Enabled = False
512 Interval = 500
513 Left = 501
514 Top = 233
515 end
516end
Note: See TracBrowser for help on using the repository browser.