source: cprs/trunk/CPRS-Chart/fMeds.dfm@ 1551

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

Upgrading to version 27
File size: 16.1 KB
Line 
1inherited frmMeds: TfrmMeds
2 Left = 333
3 Top = 55
4 HelpContext = 3000
5 VertScrollBar.Visible = False
6 Caption = 'Medications Page'
7 ClientHeight = 651
8 ClientWidth = 701
9 HelpFile = 'qnoback'
10 Menu = mnuMeds
11 Visible = True
12 OnDestroy = FormDestroy
13 OnMouseUp = FormMouseUp
14 OnResize = FormResize
15 OnShow = FormShow
16 ExplicitWidth = 709
17 ExplicitHeight = 697
18 PixelsPerInch = 96
19 TextHeight = 13
20 inherited shpPageBottom: TShape
21 Top = 524
22 Width = 1028
23 Height = -4
24 Align = alCustom
25 ExplicitTop = 524
26 ExplicitWidth = 1028
27 ExplicitHeight = -4
28 end
29 object splitTop: TSplitter [1]
30 Left = 0
31 Top = 440
32 Width = 701
33 Height = 4
34 Cursor = crVSplit
35 Align = alBottom
36 AutoSnap = False
37 Color = clBtnFace
38 Constraints.MaxHeight = 4
39 Constraints.MinHeight = 4
40 MinSize = 100
41 ParentColor = False
42 OnMoved = splitTopMoved
43 ExplicitTop = 429
44 end
45 object pnlBottom: TORAutoPanel [2]
46 Left = 0
47 Top = 444
48 Width = 701
49 Height = 207
50 Align = alBottom
51 Constraints.MinHeight = 40
52 Ctl3D = False
53 ParentCtl3D = False
54 TabOrder = 2
55 object splitBottom: TSplitter
56 Left = 1
57 Top = 102
58 Width = 699
59 Height = 4
60 Cursor = crVSplit
61 Align = alBottom
62 AutoSnap = False
63 Color = clBtnFace
64 Constraints.MaxHeight = 4
65 Constraints.MinHeight = 4
66 MinSize = 100
67 ParentColor = False
68 OnMoved = splitBottomMoved
69 end
70 object pnlMedIn: TPanel
71 Left = 1
72 Top = 106
73 Width = 699
74 Height = 100
75 Align = alBottom
76 Constraints.MinHeight = 100
77 TabOrder = 0
78 object lstMedsIn: TCaptionListBox
79 Tag = 2
80 Left = 1
81 Top = 17
82 Width = 697
83 Height = 82
84 Style = lbOwnerDrawVariable
85 Align = alClient
86 Color = clCream
87 Constraints.MinHeight = 65
88 Ctl3D = False
89 ItemHeight = 13
90 MultiSelect = True
91 ParentCtl3D = False
92 PopupMenu = popMed
93 TabOrder = 0
94 OnClick = lstMedsInClick
95 OnDblClick = lstMedsDblClick
96 OnDrawItem = lstMedsDrawItem
97 OnExit = lstMedsExit
98 OnMeasureItem = lstMedsMeasureItem
99 Caption = 'Inpatient Medications'
100 end
101 object hdrMedsIn: THeaderControl
102 Left = 1
103 Top = 1
104 Width = 697
105 Height = 16
106 BiDiMode = bdLeftToRight
107 Constraints.MinHeight = 16
108 Sections = <
109 item
110 ImageIndex = -1
111 MinWidth = 42
112 Text = 'Action'
113 Width = 42
114 end
115 item
116 ImageIndex = -1
117 MinWidth = 20
118 Text = 'Inpatient Medications'
119 Width = 100
120 end
121 item
122 ImageIndex = -1
123 MinWidth = 16
124 Text = 'Stop Date'
125 Width = 62
126 end
127 item
128 ImageIndex = -1
129 MinWidth = 16
130 Text = 'Status'
131 Width = 62
132 end
133 item
134 ImageIndex = -1
135 MinWidth = 16
136 Text = 'Location'
137 Width = 20
138 end>
139 OnSectionClick = hdrMedsInSectionClick
140 OnSectionResize = hdrMedsInSectionResize
141 ParentBiDiMode = False
142 OnMouseDown = hdrMedsInMouseDown
143 OnMouseUp = hdrMedsInMouseUp
144 OnResize = hdrMedsInResize
145 end
146 end
147 object pnlNonVA: TPanel
148 Left = 1
149 Top = 1
150 Width = 699
151 Height = 101
152 Align = alClient
153 Caption = 'pnlNonVA'
154 Constraints.MinHeight = 40
155 TabOrder = 1
156 object lstMedsNonVA: TCaptionListBox
157 Tag = 3
158 Left = 1
159 Top = 17
160 Width = 697
161 Height = 83
162 Style = lbOwnerDrawVariable
163 Align = alClient
164 Color = clCream
165 Constraints.MinHeight = 40
166 Ctl3D = False
167 ItemHeight = 13
168 MultiSelect = True
169 ParentCtl3D = False
170 PopupMenu = popMed
171 TabOrder = 0
172 OnClick = lstMedsNonVAClick
173 OnDblClick = lstMedsDblClick
174 OnDrawItem = lstMedsDrawItem
175 OnExit = lstMedsExit
176 OnMeasureItem = lstMedsMeasureItem
177 Caption = 'Inpatient Medications'
178 end
179 object hdrMedsNonVA: THeaderControl
180 Left = 1
181 Top = 1
182 Width = 697
183 Height = 16
184 BiDiMode = bdLeftToRight
185 Constraints.MinHeight = 16
186 Sections = <
187 item
188 ImageIndex = -1
189 MinWidth = 42
190 Text = 'Action'
191 Width = 42
192 end
193 item
194 ImageIndex = -1
195 MinWidth = 20
196 Text = 'Non-VA Medications'
197 Width = 100
198 end
199 item
200 ImageIndex = -1
201 MinWidth = 16
202 Text = 'Start Date'
203 Width = 62
204 end
205 item
206 ImageIndex = -1
207 MinWidth = 16
208 Text = 'Status'
209 Width = 62
210 end>
211 OnSectionClick = hdrMedsNonVASectionClick
212 OnSectionResize = hdrMedsNonVASectionResize
213 ParentBiDiMode = False
214 OnMouseDown = hdrMedsNonVAMouseDown
215 OnMouseUp = hdrMedsNonVAMouseUp
216 OnResize = hdrMedsNonVAResize
217 end
218 end
219 end
220 object pnlTop: TORAutoPanel [3]
221 Left = 0
222 Top = 22
223 Width = 701
224 Height = 418
225 Align = alClient
226 Ctl3D = True
227 ParentCtl3D = False
228 TabOrder = 1
229 object lstMedsOut: TCaptionListBox
230 Tag = 1
231 Left = 1
232 Top = 17
233 Width = 699
234 Height = 400
235 Style = lbOwnerDrawVariable
236 Align = alClient
237 Color = clCream
238 Constraints.MinHeight = 40
239 Ctl3D = False
240 ItemHeight = 13
241 MultiSelect = True
242 ParentCtl3D = False
243 PopupMenu = popMed
244 TabOrder = 0
245 OnClick = lstMedsOutClick
246 OnDblClick = lstMedsDblClick
247 OnDrawItem = lstMedsDrawItem
248 OnExit = lstMedsExit
249 OnMeasureItem = lstMedsMeasureItem
250 Caption = 'Outpatient Medications'
251 end
252 object hdrMedsOut: THeaderControl
253 Left = 1
254 Top = 1
255 Width = 699
256 Height = 16
257 BiDiMode = bdLeftToRight
258 Constraints.MinHeight = 16
259 Sections = <
260 item
261 ImageIndex = -1
262 MinWidth = 42
263 Text = 'Action'
264 Width = 42
265 end
266 item
267 ImageIndex = -1
268 MinWidth = 20
269 Text = 'Outpatient Medications'
270 Width = 100
271 end
272 item
273 ImageIndex = -1
274 MinWidth = 16
275 Text = 'Expires'
276 Width = 62
277 end
278 item
279 ImageIndex = -1
280 MinWidth = 16
281 Text = 'Status'
282 Width = 62
283 end
284 item
285 ImageIndex = -1
286 MinWidth = 16
287 Text = 'Last Filled'
288 Width = 62
289 end
290 item
291 ImageIndex = -1
292 MinWidth = 16
293 Text = 'Refills Remaining'
294 Width = 78
295 end>
296 OnSectionClick = hdrMedsOutSectionClick
297 OnSectionResize = hdrMedsOutSectionResize
298 ParentBiDiMode = False
299 OnMouseDown = hdrMedsOutMouseDown
300 OnMouseUp = hdrMedsOutMouseUp
301 OnResize = hdrMedsOutResize
302 end
303 end
304 object pnlView: TPanel [4]
305 Left = 0
306 Top = 0
307 Width = 701
308 Height = 22
309 Align = alTop
310 TabOrder = 0
311 object txtView: TVA508StaticText
312 Name = 'txtView'
313 Left = 9
314 Top = 3
315 Width = 36
316 Height = 15
317 Alignment = taLeftJustify
318 Caption = 'txtView'
319 TabOrder = 0
320 ShowAccelChar = True
321 end
322 end
323 inherited amgrMain: TVA508AccessibilityManager
324 Left = 16
325 Top = 152
326 Data = (
327 (
328 'Component = pnlBottom'
329 'Status = stsDefault')
330 (
331 'Component = pnlMedIn'
332 'Status = stsDefault')
333 (
334 'Component = lstMedsIn'
335 'Status = stsDefault')
336 (
337 'Component = hdrMedsIn'
338 'Status = stsDefault')
339 (
340 'Component = pnlNonVA'
341 'Status = stsDefault')
342 (
343 'Component = lstMedsNonVA'
344 'Status = stsDefault')
345 (
346 'Component = hdrMedsNonVA'
347 'Status = stsDefault')
348 (
349 'Component = pnlTop'
350 'Status = stsDefault')
351 (
352 'Component = lstMedsOut'
353 'Status = stsDefault')
354 (
355 'Component = hdrMedsOut'
356 'Status = stsDefault')
357 (
358 'Component = frmMeds'
359 'Status = stsDefault')
360 (
361 'Component = pnlView'
362 'Status = stsDefault')
363 (
364 'Component = txtView'
365 'Status = stsDefault'))
366 end
367 object mnuMeds: TMainMenu
368 Left = 56
369 Top = 154
370 object mnuView: TMenuItem
371 Caption = '&View'
372 GroupIndex = 3
373 OnClick = mnuViewClick
374 object mnuViewChart: TMenuItem
375 Caption = 'Chart &Tab'
376 object mnuChartCover: TMenuItem
377 Tag = 1
378 Caption = 'Cover &Sheet'
379 ShortCut = 16467
380 OnClick = mnuChartTabClick
381 end
382 object mnuChartProbs: TMenuItem
383 Tag = 2
384 Caption = '&Problem List'
385 ShortCut = 16464
386 OnClick = mnuChartTabClick
387 end
388 object mnuChartMeds: TMenuItem
389 Tag = 3
390 Caption = '&Medications'
391 ShortCut = 16461
392 OnClick = mnuChartTabClick
393 end
394 object mnuChartOrders: TMenuItem
395 Tag = 4
396 Caption = '&Orders'
397 ShortCut = 16463
398 OnClick = mnuChartTabClick
399 end
400 object mnuChartNotes: TMenuItem
401 Tag = 6
402 Caption = 'Progress &Notes'
403 ShortCut = 16462
404 OnClick = mnuChartTabClick
405 end
406 object mnuChartCslts: TMenuItem
407 Tag = 7
408 Caption = 'Consul&ts'
409 ShortCut = 16468
410 OnClick = mnuChartTabClick
411 end
412 object mnuChartSurgery: TMenuItem
413 Tag = 11
414 Caption = 'S&urgery'
415 ShortCut = 16469
416 OnClick = mnuChartTabClick
417 end
418 object mnuChartDCSumm: TMenuItem
419 Tag = 8
420 Caption = '&Discharge Summaries'
421 ShortCut = 16452
422 OnClick = mnuChartTabClick
423 end
424 object mnuChartLabs: TMenuItem
425 Tag = 9
426 Caption = '&Laboratory'
427 ShortCut = 16460
428 OnClick = mnuChartTabClick
429 end
430 object mnuChartReports: TMenuItem
431 Tag = 10
432 Caption = '&Reports'
433 ShortCut = 16466
434 OnClick = mnuChartTabClick
435 end
436 end
437 object mnuViewInformation: TMenuItem
438 Caption = 'Information'
439 OnClick = mnuViewInformationClick
440 object mnuViewDemo: TMenuItem
441 Tag = 1
442 Caption = 'De&mographics...'
443 OnClick = ViewInfo
444 end
445 object mnuViewVisits: TMenuItem
446 Tag = 2
447 Caption = 'Visits/Pr&ovider...'
448 OnClick = ViewInfo
449 end
450 object mnuViewPrimaryCare: TMenuItem
451 Tag = 3
452 Caption = 'Primary &Care...'
453 OnClick = ViewInfo
454 end
455 object mnuViewMyHealtheVet: TMenuItem
456 Tag = 4
457 Caption = 'MyHealthe&Vet...'
458 OnClick = ViewInfo
459 end
460 object mnuInsurance: TMenuItem
461 Tag = 5
462 Caption = '&Insurance...'
463 OnClick = ViewInfo
464 end
465 object mnuViewFlags: TMenuItem
466 Tag = 6
467 Caption = '&Flags...'
468 OnClick = ViewInfo
469 end
470 object mnuViewRemoteData: TMenuItem
471 Tag = 7
472 Caption = 'Remote &Data...'
473 OnClick = ViewInfo
474 end
475 object mnuViewReminders: TMenuItem
476 Tag = 8
477 Caption = '&Reminders...'
478 Enabled = False
479 OnClick = ViewInfo
480 end
481 object mnuViewPostings: TMenuItem
482 Tag = 9
483 Caption = '&Postings...'
484 OnClick = ViewInfo
485 end
486 end
487 object Z2: TMenuItem
488 Caption = '-'
489 end
490 object mnuViewActive: TMenuItem
491 Caption = '&Active Medications'
492 Visible = False
493 end
494 object mnuViewExpiring: TMenuItem
495 Caption = '&Expiring Medications'
496 Visible = False
497 end
498 object Z3: TMenuItem
499 Caption = '-'
500 Visible = False
501 end
502 object mnuViewSortClass: TMenuItem
503 Caption = 'Sort by &VA Drug Class'
504 Visible = False
505 end
506 object Z4: TMenuItem
507 Caption = '-'
508 Visible = False
509 end
510 object mnuViewDetail: TMenuItem
511 Caption = '&Details...'
512 OnClick = mnuViewDetailClick
513 end
514 object mnuViewSortName: TMenuItem
515 Caption = 'Sort by Drug &Name'
516 Visible = False
517 end
518 object mnuViewHistory: TMenuItem
519 Caption = 'Administration &History...'
520 OnClick = mnuViewHistoryClick
521 end
522 object N3: TMenuItem
523 Caption = '-'
524 end
525 object SortbyStatusthenLocation1: TMenuItem
526 Caption = 'Sort by Status/Exp. Date (IMO first on Inpt)'
527 OnClick = SortbyStatusthenLocation1Click
528 end
529 object SortbyClinicOrderthenStatusthenStopDate1: TMenuItem
530 Caption = 'Sort by Status Group/Status/Location/Drug Name'
531 OnClick = SortbyClinicOrderthenStatusthenStopDate1Click
532 end
533 object SortbyDrugalphabeticallystatusactivestatusrecentexpired1: TMenuItem
534 Caption =
535 'Sort by Drug (alphabetically), status active, status recent expi' +
536 'red'
537 OnClick = SortbyDrugalphabeticallystatusactivestatusrecentexpired1Click
538 end
539 end
540 object mnuAct: TMenuItem
541 Caption = '&Action'
542 GroupIndex = 4
543 OnClick = mnuActClick
544 object mnuActNew: TMenuItem
545 Caption = '&New Medication...'
546 OnClick = mnuActNewClick
547 end
548 object Z1: TMenuItem
549 Caption = '-'
550 end
551 object mnuActChange: TMenuItem
552 Caption = '&Change...'
553 OnClick = mnuActChangeClick
554 end
555 object mnuActDC: TMenuItem
556 Caption = '&Discontinue / Cancel...'
557 OnClick = mnuActDCClick
558 end
559 object mnuActHold: TMenuItem
560 Caption = '&Hold...'
561 OnClick = mnuActHoldClick
562 end
563 object mnuActRenew: TMenuItem
564 Caption = 'Rene&w...'
565 OnClick = mnuActRenewClick
566 end
567 object mnuActCopy: TMenuItem
568 Caption = 'Co&py to New Order...'
569 OnClick = mnuActCopyClick
570 end
571 object mnuActTransfer: TMenuItem
572 Caption = '&Transfer to...'
573 OnClick = mnuActCopyClick
574 end
575 object mnuActRefill: TMenuItem
576 Caption = 'R&efill...'
577 OnClick = mnuActRefillClick
578 end
579 end
580 end
581 object popMed: TPopupMenu
582 OnPopup = popMedPopup
583 Left = 116
584 Top = 155
585 object popMedDetails: TMenuItem
586 Caption = 'Detai&ls...'
587 OnClick = mnuViewDetailClick
588 end
589 object popMedHistory: TMenuItem
590 Caption = 'Administration &History...'
591 OnClick = mnuViewHistoryClick
592 end
593 object N1: TMenuItem
594 Caption = '-'
595 end
596 object popMedChange: TMenuItem
597 Caption = '&Change...'
598 OnClick = mnuActChangeClick
599 end
600 object popMedDC: TMenuItem
601 Caption = '&Discontinue...'
602 OnClick = mnuActDCClick
603 end
604 object popMedRefill: TMenuItem
605 Caption = 'R&efill...'
606 OnClick = mnuActRefillClick
607 end
608 object popMedRenew: TMenuItem
609 Caption = 'Rene&w...'
610 OnClick = mnuActRenewClick
611 end
612 object N2: TMenuItem
613 Caption = '-'
614 end
615 object popMedNew: TMenuItem
616 Caption = '&New Medication...'
617 OnClick = mnuActNewClick
618 end
619 object mnuOptimizeFields: TMenuItem
620 Caption = 'Adjust Field Size'
621 Visible = False
622 OnClick = mnuOptimizeFieldsClick
623 end
624 end
625end
Note: See TracBrowser for help on using the repository browser.