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

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

Updating the working copy to CPRS version 28
File size: 12.4 KB
RevLine 
[456]1inherited frmODMedNVA: TfrmODMedNVA
[829]2 Left = 203
3 Top = 183
[456]4 Width = 632
[1679]5 Height = 542
[456]6 Caption = 'Document Herbal/OTC/Non-VA Medications'
7 Constraints.MinHeight = 365
[829]8 ExplicitWidth = 632
[1679]9 ExplicitHeight = 542
[456]10 PixelsPerInch = 96
11 TextHeight = 13
12 inherited memOrder: TCaptionMemo
13 Left = 0
[1679]14 Top = 467
[456]15 Width = 525
16 Anchors = [akLeft, akRight, akBottom]
17 Constraints.MinWidth = 25
18 TabOrder = 4
[829]19 ExplicitLeft = 0
[1679]20 ExplicitTop = 467
[829]21 ExplicitWidth = 525
[456]22 end
[829]23 object pnlMeds: TPanel [1]
[456]24 Left = 6
25 Top = 34
26 Width = 593
[1679]27 Height = 421
[456]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
[1679]75 Height = 284
[456]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
[1679]101 Top = 12
[456]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
[1679]115 Top = 43
[456]116 Width = 624
[1679]117 Height = 423
[456]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
[1679]127 Height = 259
[456]128 Align = alClient
129 Constraints.MinHeight = 80
130 Constraints.MinWidth = 30
131 TabOrder = 0
132 DesignSize = (
133 624
[1679]134 259)
[456]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
[1679]174 Left = 1
[456]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
[1679]190 Height = 217
[456]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
[1679]212 OnKeyUp = cboDosageKeyUp
[456]213 CharsNeedMatch = 1
214 end
215 object cboRoute: TORComboBox
216 Left = 355
217 Top = 36
218 Width = 114
[1679]219 Height = 218
[456]220 Anchors = [akTop, akRight, akBottom]
221 Style = orcsSimple
222 AutoSelect = True
223 Caption = 'Route'
224 Color = clWindow
225 DropDownCount = 8
226 ItemHeight = 13
227 ItemTipColor = clWindow
228 ItemTipEnable = True
229 ListItemsOnly = False
230 LongList = False
231 LookupPiece = 0
232 MaxLength = 0
233 ParentShowHint = False
234 Pieces = '2'
235 ShowHint = True
236 Sorted = False
237 SynonymChars = '<>'
238 TabOrder = 2
239 OnChange = cboRouteChange
240 OnClick = ControlChange
[1679]241 OnKeyUp = cboRouteKeyUp
[456]242 CharsNeedMatch = 1
243 end
244 object cboSchedule: TORComboBox
245 Left = 467
[1679]246 Top = 37
[456]247 Width = 157
[1679]248 Height = 218
[456]249 Anchors = [akTop, akRight, akBottom]
250 Style = orcsSimple
251 AutoSelect = True
252 Caption = 'Schedule'
253 Color = clWindow
254 DropDownCount = 8
255 ItemHeight = 13
256 ItemTipColor = clWindow
257 ItemTipEnable = True
258 ListItemsOnly = False
259 LongList = False
260 LookupPiece = 0
261 MaxLength = 0
262 Pieces = '1'
263 Sorted = False
264 SynonymChars = '<>'
265 TabOrder = 3
266 OnChange = cboScheduleChange
267 OnClick = cboScheduleClick
[1679]268 OnKeyUp = cboScheduleKeyUp
[456]269 CharsNeedMatch = 1
270 end
271 object chkPRN: TCheckBox
272 Left = 582
273 Top = 39
274 Width = 42
275 Height = 17
276 Anchors = [akTop, akRight]
277 Caption = 'PRN'
278 Color = clBtnFace
279 ParentColor = False
280 TabOrder = 5
281 OnClick = chkPRNClick
282 end
283 end
284 object pnlBottom: TPanel
285 Left = 0
[1679]286 Top = 259
[456]287 Width = 624
288 Height = 164
289 Align = alBottom
290 TabOrder = 1
291 DesignSize = (
292 624
293 164)
294 object lblComment: TLabel
295 Left = 4
296 Top = 5
297 Width = 52
298 Height = 16
299 Alignment = taRightJustify
300 AutoSize = False
301 Caption = 'Comments:'
302 end
303 object Label1: TLabel
304 Left = 5
305 Top = 47
306 Width = 108
307 Height = 13
308 Caption = 'Statement/Explanation'
309 end
310 object Label2: TLabel
311 Left = 10
312 Top = 145
313 Width = 51
314 Height = 13
315 Caption = 'Start Date:'
316 end
317 object Image1: TImage
318 Left = 25
319 Top = 17
320 Width = 31
321 Height = 31
322 end
323 object memComment: TCaptionMemo
324 Left = 64
325 Top = 2
326 Width = 559
327 Height = 44
328 Align = alCustom
329 Anchors = [akLeft, akTop, akRight]
330 ScrollBars = ssVertical
331 TabOrder = 2
332 OnChange = ControlChange
333 Caption = 'Comments'
334 end
335 object lblAdminTime: TStaticText
336 Left = 267
337 Top = 105
338 Width = 4
339 Height = 4
340 TabOrder = 0
341 Visible = False
342 end
343 object calStart: TORDateBox
344 Left = 64
345 Top = 141
346 Width = 145
347 Height = 21
348 Anchors = [akLeft, akTop, akBottom]
349 TabOrder = 5
350 Text = 'Today'
351 OnChange = ControlChange
352 DateOnly = True
353 RequireTime = False
354 Caption = 'Effective Date'
355 end
356 object lbStatements: TORListBox
357 Left = 7
358 Top = 59
359 Width = 603
360 Height = 81
361 Style = lbOwnerDrawFixed
362 Anchors = [akLeft, akTop, akRight]
363 ExtendedSelect = False
364 ItemHeight = 16
365 ParentShowHint = False
366 ShowHint = True
367 TabOrder = 3
368 ItemTipColor = clWindow
369 LongList = False
370 CheckBoxes = True
371 OnClickCheck = lbStatementsClickCheck
372 end
373 object memDrugMsg: TMemo
374 Left = 63
375 Top = 15
376 Width = 533
377 Height = 31
378 Anchors = [akLeft, akRight, akBottom]
379 Color = clCream
380 Lines.Strings = (
381 '')
382 ReadOnly = True
383 ScrollBars = ssVertical
384 TabOrder = 6
385 Visible = False
386 end
387 end
388 end
[829]389 object btnSelect: TButton [4]
[456]390 Left = 539
[1679]391 Top = 469
[456]392 Width = 72
393 Height = 21
394 Anchors = [akRight, akBottom]
395 Caption = 'OK'
396 Default = True
397 Enabled = False
398 TabOrder = 5
399 OnClick = btnSelectClick
400 end
[829]401 inherited cmdAccept: TButton
402 Left = 540
[1679]403 Top = 469
[829]404 Width = 69
405 Anchors = [akRight, akBottom]
406 TabOrder = 6
407 Visible = False
408 ExplicitLeft = 540
[1679]409 ExplicitTop = 469
[829]410 ExplicitWidth = 69
411 end
412 inherited cmdQuit: TButton
413 Left = 546
[1679]414 Top = 495
[829]415 Width = 49
416 Anchors = [akRight, akBottom]
417 TabOrder = 7
418 ExplicitLeft = 546
[1679]419 ExplicitTop = 495
[829]420 ExplicitWidth = 49
421 end
422 inherited pnlMessage: TPanel
423 Top = 240
424 ExplicitTop = 240
425 end
426 inherited amgrMain: TVA508AccessibilityManager
427 Data = (
428 (
429 'Component = pnlMeds'
430 'Status = stsDefault')
431 (
432 'Component = lstQuick'
433 'Status = stsDefault')
434 (
435 'Component = lstAll'
436 'Status = stsDefault')
437 (
438 'Component = txtMed'
[1679]439 'Text = Medication'
440 'Status = stsOK')
[829]441 (
442 'Component = pnlFields'
443 'Status = stsDefault')
444 (
445 'Component = pnlTop'
446 'Status = stsDefault')
447 (
448 'Component = lblGuideline'
449 'Status = stsDefault')
450 (
451 'Component = tabDose'
452 'Status = stsDefault')
453 (
454 'Component = cboDosage'
455 'Status = stsDefault')
456 (
457 'Component = cboRoute'
458 'Status = stsDefault')
459 (
460 'Component = cboSchedule'
461 'Status = stsDefault')
462 (
463 'Component = chkPRN'
464 'Status = stsDefault')
465 (
466 'Component = pnlBottom'
467 'Status = stsDefault')
468 (
469 'Component = memComment'
470 'Status = stsDefault')
471 (
472 'Component = lblAdminTime'
473 'Status = stsDefault')
474 (
475 'Component = calStart'
476 'Status = stsDefault')
477 (
478 'Component = lbStatements'
479 'Status = stsDefault')
480 (
481 'Component = memDrugMsg'
482 'Status = stsDefault')
483 (
484 'Component = btnSelect'
485 'Status = stsDefault')
486 (
487 'Component = memOrder'
[1679]488 'Text = Order Sig'
489 'Status = stsOK')
[829]490 (
491 'Component = cmdAccept'
492 'Status = stsDefault')
493 (
494 'Component = cmdQuit'
495 'Status = stsDefault')
496 (
497 'Component = pnlMessage'
498 'Status = stsDefault')
499 (
500 'Component = memMessage'
501 'Status = stsDefault')
502 (
503 'Component = frmODMedNVA'
504 'Status = stsDefault'))
505 end
[456]506 object dlgStart: TORDateTimeDlg
[829]507 FMDateTime = 3001101.000000000000000000
[456]508 DateOnly = False
509 RequireTime = True
510 Left = 500
511 Top = 201
512 end
513 object timCheckChanges: TTimer
514 Enabled = False
515 Interval = 500
516 Left = 501
517 Top = 233
518 end
519end
Note: See TracBrowser for help on using the repository browser.