[456] | 1 | inherited frmMeds: TfrmMeds
|
---|
[830] | 2 | Left = 333
|
---|
| 3 | Top = 55
|
---|
[456] | 4 | HelpContext = 3000
|
---|
| 5 | VertScrollBar.Visible = False
|
---|
| 6 | Caption = 'Medications Page'
|
---|
[830] | 7 | ClientHeight = 651
|
---|
| 8 | ClientWidth = 701
|
---|
[456] | 9 | HelpFile = 'qnoback'
|
---|
| 10 | Menu = mnuMeds
|
---|
| 11 | Visible = True
|
---|
| 12 | OnDestroy = FormDestroy
|
---|
| 13 | OnMouseUp = FormMouseUp
|
---|
| 14 | OnResize = FormResize
|
---|
| 15 | OnShow = FormShow
|
---|
[830] | 16 | ExplicitWidth = 709
|
---|
| 17 | ExplicitHeight = 697
|
---|
[456] | 18 | PixelsPerInch = 96
|
---|
| 19 | TextHeight = 13
|
---|
| 20 | inherited shpPageBottom: TShape
|
---|
| 21 | Top = 524
|
---|
| 22 | Width = 1028
|
---|
| 23 | Height = -4
|
---|
| 24 | Align = alCustom
|
---|
[830] | 25 | ExplicitTop = 524
|
---|
| 26 | ExplicitWidth = 1028
|
---|
| 27 | ExplicitHeight = -4
|
---|
[456] | 28 | end
|
---|
[830] | 29 | object splitTop: TSplitter [1]
|
---|
[456] | 30 | Left = 0
|
---|
[830] | 31 | Top = 440
|
---|
[456] | 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
|
---|
[830] | 43 | ExplicitTop = 429
|
---|
[456] | 44 | end
|
---|
[830] | 45 | object pnlBottom: TORAutoPanel [2]
|
---|
[456] | 46 | Left = 0
|
---|
[830] | 47 | Top = 444
|
---|
[456] | 48 | Width = 701
|
---|
| 49 | Height = 207
|
---|
| 50 | Align = alBottom
|
---|
| 51 | Constraints.MinHeight = 40
|
---|
| 52 | Ctl3D = False
|
---|
| 53 | ParentCtl3D = False
|
---|
[830] | 54 | TabOrder = 2
|
---|
[456] | 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
|
---|
[830] | 220 | object pnlTop: TORAutoPanel [3]
|
---|
[456] | 221 | Left = 0
|
---|
[830] | 222 | Top = 22
|
---|
[456] | 223 | Width = 701
|
---|
[830] | 224 | Height = 418
|
---|
[456] | 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
|
---|
[830] | 234 | Height = 400
|
---|
[456] | 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
|
---|
[830] | 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
|
---|
[456] | 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
|
---|
[830] | 514 | object mnuViewSortName: TMenuItem
|
---|
| 515 | Caption = 'Sort by Drug &Name'
|
---|
| 516 | Visible = False
|
---|
| 517 | end
|
---|
[456] | 518 | object mnuViewHistory: TMenuItem
|
---|
| 519 | Caption = 'Administration &History...'
|
---|
| 520 | OnClick = mnuViewHistoryClick
|
---|
| 521 | end
|
---|
[830] | 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
|
---|
[456] | 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
|
---|
| 625 | end
|
---|