| 1 | inherited frmSurgery: TfrmSurgery
|
|---|
| 2 | Left = 521
|
|---|
| 3 | Top = 221
|
|---|
| 4 | Width = 720
|
|---|
| 5 | Height = 409
|
|---|
| 6 | Align = alClient
|
|---|
| 7 | Caption = 'Surgery Page'
|
|---|
| 8 | HelpFile = 'overvw'
|
|---|
| 9 | Menu = mnuNotes
|
|---|
| 10 | OnDestroy = FormDestroy
|
|---|
| 11 | PixelsPerInch = 96
|
|---|
| 12 | TextHeight = 13
|
|---|
| 13 | inherited shpPageBottom: TShape
|
|---|
| 14 | Top = 358
|
|---|
| 15 | Width = 712
|
|---|
| 16 | end
|
|---|
| 17 | inherited sptHorz: TSplitter
|
|---|
| 18 | Left = 64
|
|---|
| 19 | Height = 358
|
|---|
| 20 | AutoSnap = False
|
|---|
| 21 | OnCanResize = sptHorzCanResize
|
|---|
| 22 | end
|
|---|
| 23 | inherited pnlLeft: TPanel
|
|---|
| 24 | Width = 64
|
|---|
| 25 | Height = 358
|
|---|
| 26 | object lblCases: TOROffsetLabel
|
|---|
| 27 | Left = 0
|
|---|
| 28 | Top = 0
|
|---|
| 29 | Width = 64
|
|---|
| 30 | Height = 19
|
|---|
| 31 | Align = alTop
|
|---|
| 32 | Caption = 'Last 100 Surgery Cases'
|
|---|
| 33 | HorzOffset = 2
|
|---|
| 34 | ParentShowHint = False
|
|---|
| 35 | ShowHint = True
|
|---|
| 36 | Transparent = True
|
|---|
| 37 | VertOffset = 6
|
|---|
| 38 | WordWrap = False
|
|---|
| 39 | end
|
|---|
| 40 | object lblSpace1: TLabel
|
|---|
| 41 | Left = 0
|
|---|
| 42 | Top = 313
|
|---|
| 43 | Width = 64
|
|---|
| 44 | Height = 3
|
|---|
| 45 | Align = alBottom
|
|---|
| 46 | AutoSize = False
|
|---|
| 47 | Caption = ' '
|
|---|
| 48 | end
|
|---|
| 49 | object cmdNewNote: TORAlignButton
|
|---|
| 50 | Left = 0
|
|---|
| 51 | Top = 316
|
|---|
| 52 | Width = 64
|
|---|
| 53 | Height = 21
|
|---|
| 54 | Caption = 'New Report'
|
|---|
| 55 | TabOrder = 0
|
|---|
| 56 | Visible = False
|
|---|
| 57 | OnClick = cmdNewNoteClick
|
|---|
| 58 | Align = alBottom
|
|---|
| 59 | end
|
|---|
| 60 | object cmdPCE: TORAlignButton
|
|---|
| 61 | Left = 0
|
|---|
| 62 | Top = 337
|
|---|
| 63 | Width = 64
|
|---|
| 64 | Height = 21
|
|---|
| 65 | Caption = 'Encounter'
|
|---|
| 66 | TabOrder = 1
|
|---|
| 67 | Visible = False
|
|---|
| 68 | OnClick = cmdPCEClick
|
|---|
| 69 | Align = alBottom
|
|---|
| 70 | end
|
|---|
| 71 | object pnlDrawers: TPanel
|
|---|
| 72 | Left = 0
|
|---|
| 73 | Top = 19
|
|---|
| 74 | Width = 64
|
|---|
| 75 | Height = 294
|
|---|
| 76 | Align = alClient
|
|---|
| 77 | BevelOuter = bvNone
|
|---|
| 78 | TabOrder = 2
|
|---|
| 79 | object splDrawers: TSplitter
|
|---|
| 80 | Left = 0
|
|---|
| 81 | Top = 291
|
|---|
| 82 | Width = 64
|
|---|
| 83 | Height = 3
|
|---|
| 84 | Cursor = crVSplit
|
|---|
| 85 | Align = alBottom
|
|---|
| 86 | end
|
|---|
| 87 | object lstNotes: TORListBox
|
|---|
| 88 | Left = 14
|
|---|
| 89 | Top = 289
|
|---|
| 90 | Width = 121
|
|---|
| 91 | Height = 97
|
|---|
| 92 | ItemHeight = 13
|
|---|
| 93 | ParentShowHint = False
|
|---|
| 94 | ShowHint = True
|
|---|
| 95 | TabOrder = 1
|
|---|
| 96 | Visible = False
|
|---|
| 97 | OnClick = lstNotesClick
|
|---|
| 98 | ItemTipColor = clWindow
|
|---|
| 99 | LongList = False
|
|---|
| 100 | end
|
|---|
| 101 | object tvSurgery: TORTreeView
|
|---|
| 102 | Left = 0
|
|---|
| 103 | Top = 0
|
|---|
| 104 | Width = 64
|
|---|
| 105 | Height = 291
|
|---|
| 106 | Align = alClient
|
|---|
| 107 | Constraints.MinWidth = 30
|
|---|
| 108 | DragMode = dmAutomatic
|
|---|
| 109 | HideSelection = False
|
|---|
| 110 | Indent = 19
|
|---|
| 111 | PopupMenu = popNoteList
|
|---|
| 112 | ReadOnly = True
|
|---|
| 113 | TabOrder = 0
|
|---|
| 114 | OnAddition = tvSurgeryAddition
|
|---|
| 115 | OnChange = tvSurgeryChange
|
|---|
| 116 | OnCollapsed = tvSurgeryCollapsed
|
|---|
| 117 | OnDeletion = tvSurgeryDeletion
|
|---|
| 118 | OnExpanded = tvSurgeryExpanded
|
|---|
| 119 | Caption = 'Last 100 Surgery Cases'
|
|---|
| 120 | NodePiece = 0
|
|---|
| 121 | ShortNodeCaptions = True
|
|---|
| 122 | end
|
|---|
| 123 | end
|
|---|
| 124 | end
|
|---|
| 125 | inherited pnlRight: TPanel
|
|---|
| 126 | Left = 68
|
|---|
| 127 | Width = 644
|
|---|
| 128 | Height = 358
|
|---|
| 129 | object sptVert: TSplitter
|
|---|
| 130 | Left = 0
|
|---|
| 131 | Top = 309
|
|---|
| 132 | Width = 644
|
|---|
| 133 | Height = 4
|
|---|
| 134 | Cursor = crVSplit
|
|---|
| 135 | Align = alBottom
|
|---|
| 136 | end
|
|---|
| 137 | object pnlRead: TPanel
|
|---|
| 138 | Left = 0
|
|---|
| 139 | Top = 0
|
|---|
| 140 | Width = 644
|
|---|
| 141 | Height = 309
|
|---|
| 142 | Align = alClient
|
|---|
| 143 | BevelOuter = bvNone
|
|---|
| 144 | TabOrder = 0
|
|---|
| 145 | object lblTitle: TOROffsetLabel
|
|---|
| 146 | Left = 0
|
|---|
| 147 | Top = 0
|
|---|
| 148 | Width = 644
|
|---|
| 149 | Height = 19
|
|---|
| 150 | Align = alTop
|
|---|
| 151 | Caption = 'No Surgery Cases Found'
|
|---|
| 152 | Font.Charset = DEFAULT_CHARSET
|
|---|
| 153 | Font.Color = clWindowText
|
|---|
| 154 | Font.Height = -11
|
|---|
| 155 | Font.Name = 'MS Sans Serif'
|
|---|
| 156 | Font.Style = []
|
|---|
| 157 | HorzOffset = 2
|
|---|
| 158 | ParentFont = False
|
|---|
| 159 | ParentShowHint = False
|
|---|
| 160 | ShowHint = True
|
|---|
| 161 | Transparent = False
|
|---|
| 162 | VertOffset = 6
|
|---|
| 163 | WordWrap = False
|
|---|
| 164 | end
|
|---|
| 165 | object memSurgery: TRichEdit
|
|---|
| 166 | Left = 0
|
|---|
| 167 | Top = 19
|
|---|
| 168 | Width = 644
|
|---|
| 169 | Height = 290
|
|---|
| 170 | Align = alClient
|
|---|
| 171 | Color = clCream
|
|---|
| 172 | Ctl3D = True
|
|---|
| 173 | Font.Charset = DEFAULT_CHARSET
|
|---|
| 174 | Font.Color = clWindowText
|
|---|
| 175 | Font.Height = -11
|
|---|
| 176 | Font.Name = 'Courier New'
|
|---|
| 177 | Font.Style = []
|
|---|
| 178 | Lines.Strings = (
|
|---|
| 179 |
|
|---|
| 180 | 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRUSTVWXYZabcdefghijkl' +
|
|---|
| 181 | 'mnopqrstuvwxyz12')
|
|---|
| 182 | ParentCtl3D = False
|
|---|
| 183 | ParentFont = False
|
|---|
| 184 | PlainText = True
|
|---|
| 185 | PopupMenu = popNoteMemo
|
|---|
| 186 | ReadOnly = True
|
|---|
| 187 | ScrollBars = ssBoth
|
|---|
| 188 | TabOrder = 0
|
|---|
| 189 | WantReturns = False
|
|---|
| 190 | WordWrap = False
|
|---|
| 191 | end
|
|---|
| 192 | end
|
|---|
| 193 | object memPCEShow: TRichEdit
|
|---|
| 194 | Left = 0
|
|---|
| 195 | Top = 313
|
|---|
| 196 | Width = 644
|
|---|
| 197 | Height = 45
|
|---|
| 198 | Align = alBottom
|
|---|
| 199 | Color = clCream
|
|---|
| 200 | Lines.Strings = (
|
|---|
| 201 | '<No encounter information entered>')
|
|---|
| 202 | PlainText = True
|
|---|
| 203 | ReadOnly = True
|
|---|
| 204 | ScrollBars = ssVertical
|
|---|
| 205 | TabOrder = 2
|
|---|
| 206 | WantReturns = False
|
|---|
| 207 | end
|
|---|
| 208 | object pnlWrite: TPanel
|
|---|
| 209 | Left = 0
|
|---|
| 210 | Top = 0
|
|---|
| 211 | Width = 644
|
|---|
| 212 | Height = 309
|
|---|
| 213 | Align = alClient
|
|---|
| 214 | BevelOuter = bvNone
|
|---|
| 215 | TabOrder = 1
|
|---|
| 216 | Visible = False
|
|---|
| 217 | OnResize = pnlWriteResize
|
|---|
| 218 | object memNewNote: TRichEdit
|
|---|
| 219 | Left = 0
|
|---|
| 220 | Top = 67
|
|---|
| 221 | Width = 644
|
|---|
| 222 | Height = 242
|
|---|
| 223 | Align = alClient
|
|---|
| 224 | Font.Charset = DEFAULT_CHARSET
|
|---|
| 225 | Font.Color = clWindowText
|
|---|
| 226 | Font.Height = -11
|
|---|
| 227 | Font.Name = 'Courier New'
|
|---|
| 228 | Font.Style = []
|
|---|
| 229 | ParentFont = False
|
|---|
| 230 | PlainText = True
|
|---|
| 231 | PopupMenu = popNoteMemo
|
|---|
| 232 | ScrollBars = ssBoth
|
|---|
| 233 | TabOrder = 0
|
|---|
| 234 | WantTabs = True
|
|---|
| 235 | OnChange = memNewNoteChange
|
|---|
| 236 | OnKeyDown = memNewNoteKeyDown
|
|---|
| 237 | end
|
|---|
| 238 | object pnlFields: TPanel
|
|---|
| 239 | Left = 0
|
|---|
| 240 | Top = 0
|
|---|
| 241 | Width = 644
|
|---|
| 242 | Height = 67
|
|---|
| 243 | Align = alTop
|
|---|
| 244 | BevelOuter = bvNone
|
|---|
| 245 | TabOrder = 1
|
|---|
| 246 | OnResize = pnlFieldsResize
|
|---|
| 247 | DesignSize = (
|
|---|
| 248 | 644
|
|---|
| 249 | 67)
|
|---|
| 250 | object bvlNewTitle: TBevel
|
|---|
| 251 | Left = 5
|
|---|
| 252 | Top = 5
|
|---|
| 253 | Width = 117
|
|---|
| 254 | Height = 15
|
|---|
| 255 | end
|
|---|
| 256 | object lblRefDate: TLabel
|
|---|
| 257 | Left = 237
|
|---|
| 258 | Top = 6
|
|---|
| 259 | Width = 97
|
|---|
| 260 | Height = 13
|
|---|
| 261 | Hint = 'Press "Change..." to change date/time of note.'
|
|---|
| 262 | Alignment = taCenter
|
|---|
| 263 | Caption = 'Oct 20,1999@15:30'
|
|---|
| 264 | ParentShowHint = False
|
|---|
| 265 | ShowAccelChar = False
|
|---|
| 266 | ShowHint = True
|
|---|
| 267 | end
|
|---|
| 268 | object lblAuthor: TLabel
|
|---|
| 269 | Left = 426
|
|---|
| 270 | Top = 6
|
|---|
| 271 | Width = 148
|
|---|
| 272 | Height = 13
|
|---|
| 273 | Hint = 'Press "Change..." to select a different author.'
|
|---|
| 274 | Alignment = taRightJustify
|
|---|
| 275 | Anchors = [akTop, akRight]
|
|---|
| 276 | Caption = 'Winchester,Charles Emerson III'
|
|---|
| 277 | ParentShowHint = False
|
|---|
| 278 | ShowAccelChar = False
|
|---|
| 279 | ShowHint = True
|
|---|
| 280 | end
|
|---|
| 281 | object lblVisit: TLabel
|
|---|
| 282 | Left = 6
|
|---|
| 283 | Top = 21
|
|---|
| 284 | Width = 200
|
|---|
| 285 | Height = 13
|
|---|
| 286 | Caption = 'Vst: 10/20/99 Pulmonary Clinic, Dr. Welby'
|
|---|
| 287 | ShowAccelChar = False
|
|---|
| 288 | end
|
|---|
| 289 | object lblCosigner: TLabel
|
|---|
| 290 | Left = 331
|
|---|
| 291 | Top = 21
|
|---|
| 292 | Width = 243
|
|---|
| 293 | Height = 13
|
|---|
| 294 | Hint = 'Press "Change..." to select a different cosigner.'
|
|---|
| 295 | Alignment = taRightJustify
|
|---|
| 296 | Anchors = [akTop, akRight]
|
|---|
| 297 | AutoSize = False
|
|---|
| 298 | Caption = 'Expected Cosigner: Winchester,Charles Emerson III'
|
|---|
| 299 | ParentShowHint = False
|
|---|
| 300 | ShowAccelChar = False
|
|---|
| 301 | ShowHint = True
|
|---|
| 302 | end
|
|---|
| 303 | object lblSubject: TLabel
|
|---|
| 304 | Left = 6
|
|---|
| 305 | Top = 43
|
|---|
| 306 | Width = 39
|
|---|
| 307 | Height = 13
|
|---|
| 308 | Caption = 'Subject:'
|
|---|
| 309 | end
|
|---|
| 310 | object lblNewTitle: TLabel
|
|---|
| 311 | Left = 6
|
|---|
| 312 | Top = 6
|
|---|
| 313 | Width = 115
|
|---|
| 314 | Height = 13
|
|---|
| 315 | Hint = 'Press "Change..." to select a different title.'
|
|---|
| 316 | Caption = ' General Medicine Note '
|
|---|
| 317 | Color = clCream
|
|---|
| 318 | Font.Charset = DEFAULT_CHARSET
|
|---|
| 319 | Font.Color = clWindowText
|
|---|
| 320 | Font.Height = -11
|
|---|
| 321 | Font.Name = 'MS Sans Serif'
|
|---|
| 322 | Font.Style = []
|
|---|
| 323 | ParentColor = False
|
|---|
| 324 | ParentFont = False
|
|---|
| 325 | ParentShowHint = False
|
|---|
| 326 | ShowAccelChar = False
|
|---|
| 327 | ShowHint = True
|
|---|
| 328 | end
|
|---|
| 329 | object cmdChange: TButton
|
|---|
| 330 | Left = 580
|
|---|
| 331 | Top = 6
|
|---|
| 332 | Width = 58
|
|---|
| 333 | Height = 21
|
|---|
| 334 | Anchors = [akTop, akRight]
|
|---|
| 335 | Caption = 'Change...'
|
|---|
| 336 | TabOrder = 0
|
|---|
| 337 | OnClick = cmdChangeClick
|
|---|
| 338 | end
|
|---|
| 339 | object txtSubject: TCaptionEdit
|
|---|
| 340 | Left = 48
|
|---|
| 341 | Top = 40
|
|---|
| 342 | Width = 590
|
|---|
| 343 | Height = 21
|
|---|
| 344 | Hint = 'Subject is limited to a maximum of 80 characters.'
|
|---|
| 345 | Anchors = [akLeft, akTop, akRight]
|
|---|
| 346 | MaxLength = 80
|
|---|
| 347 | ParentShowHint = False
|
|---|
| 348 | ShowHint = True
|
|---|
| 349 | TabOrder = 1
|
|---|
| 350 | Text = 'txtSubject'
|
|---|
| 351 | Caption = 'Subject'
|
|---|
| 352 | end
|
|---|
| 353 | end
|
|---|
| 354 | end
|
|---|
| 355 | end
|
|---|
| 356 | object mnuNotes: TMainMenu
|
|---|
| 357 | Left = 600
|
|---|
| 358 | Top = 304
|
|---|
| 359 | object mnuView: TMenuItem
|
|---|
| 360 | Caption = '&View'
|
|---|
| 361 | GroupIndex = 3
|
|---|
| 362 | object mnuViewChart: TMenuItem
|
|---|
| 363 | Caption = 'Chart &Tab'
|
|---|
| 364 | object mnuChartCover: TMenuItem
|
|---|
| 365 | Tag = 1
|
|---|
| 366 | Caption = 'Cover &Sheet'
|
|---|
| 367 | ShortCut = 16467
|
|---|
| 368 | OnClick = mnuChartTabClick
|
|---|
| 369 | end
|
|---|
| 370 | object mnuChartProbs: TMenuItem
|
|---|
| 371 | Tag = 2
|
|---|
| 372 | Caption = '&Problem List'
|
|---|
| 373 | ShortCut = 16464
|
|---|
| 374 | OnClick = mnuChartTabClick
|
|---|
| 375 | end
|
|---|
| 376 | object mnuChartMeds: TMenuItem
|
|---|
| 377 | Tag = 3
|
|---|
| 378 | Caption = '&Medications'
|
|---|
| 379 | ShortCut = 16461
|
|---|
| 380 | OnClick = mnuChartTabClick
|
|---|
| 381 | end
|
|---|
| 382 | object mnuChartOrders: TMenuItem
|
|---|
| 383 | Tag = 4
|
|---|
| 384 | Caption = '&Orders'
|
|---|
| 385 | ShortCut = 16463
|
|---|
| 386 | OnClick = mnuChartTabClick
|
|---|
| 387 | end
|
|---|
| 388 | object mnuChartNotes: TMenuItem
|
|---|
| 389 | Tag = 6
|
|---|
| 390 | Caption = 'Progress &Notes'
|
|---|
| 391 | ShortCut = 16462
|
|---|
| 392 | OnClick = mnuChartTabClick
|
|---|
| 393 | end
|
|---|
| 394 | object mnuChartCslts: TMenuItem
|
|---|
| 395 | Tag = 7
|
|---|
| 396 | Caption = 'Consul&ts'
|
|---|
| 397 | ShortCut = 16468
|
|---|
| 398 | OnClick = mnuChartTabClick
|
|---|
| 399 | end
|
|---|
| 400 | object mnuChartSurgery: TMenuItem
|
|---|
| 401 | Tag = 11
|
|---|
| 402 | Caption = 'S&urgery'
|
|---|
| 403 | ShortCut = 16469
|
|---|
| 404 | OnClick = mnuChartTabClick
|
|---|
| 405 | end
|
|---|
| 406 | object mnuChartDCSumm: TMenuItem
|
|---|
| 407 | Tag = 8
|
|---|
| 408 | Caption = '&Discharge Summaries'
|
|---|
| 409 | ShortCut = 16452
|
|---|
| 410 | OnClick = mnuChartTabClick
|
|---|
| 411 | end
|
|---|
| 412 | object mnuChartLabs: TMenuItem
|
|---|
| 413 | Tag = 9
|
|---|
| 414 | Caption = '&Laboratory'
|
|---|
| 415 | ShortCut = 16460
|
|---|
| 416 | OnClick = mnuChartTabClick
|
|---|
| 417 | end
|
|---|
| 418 | object mnuChartReports: TMenuItem
|
|---|
| 419 | Tag = 10
|
|---|
| 420 | Caption = '&Reports'
|
|---|
| 421 | ShortCut = 16466
|
|---|
| 422 | OnClick = mnuChartTabClick
|
|---|
| 423 | end
|
|---|
| 424 | end
|
|---|
| 425 | object mnuViewInformation: TMenuItem
|
|---|
| 426 | Caption = 'Information'
|
|---|
| 427 | OnClick = mnuViewInformationClick
|
|---|
| 428 | object mnuViewDemo: TMenuItem
|
|---|
| 429 | Tag = 1
|
|---|
| 430 | Caption = 'De&mographics...'
|
|---|
| 431 | OnClick = ViewInfo
|
|---|
| 432 | end
|
|---|
| 433 | object mnuViewVisits: TMenuItem
|
|---|
| 434 | Tag = 2
|
|---|
| 435 | Caption = 'Visits/Pr&ovider...'
|
|---|
| 436 | OnClick = ViewInfo
|
|---|
| 437 | end
|
|---|
| 438 | object mnuViewPrimaryCare: TMenuItem
|
|---|
| 439 | Tag = 3
|
|---|
| 440 | Caption = 'Primary &Care...'
|
|---|
| 441 | OnClick = ViewInfo
|
|---|
| 442 | end
|
|---|
| 443 | object mnuViewMyHealtheVet: TMenuItem
|
|---|
| 444 | Tag = 4
|
|---|
| 445 | Caption = 'MyHealthe&Vet...'
|
|---|
| 446 | OnClick = ViewInfo
|
|---|
| 447 | end
|
|---|
| 448 | object mnuInsurance: TMenuItem
|
|---|
| 449 | Tag = 5
|
|---|
| 450 | Caption = '&Insurance...'
|
|---|
| 451 | OnClick = ViewInfo
|
|---|
| 452 | end
|
|---|
| 453 | object mnuViewFlags: TMenuItem
|
|---|
| 454 | Tag = 6
|
|---|
| 455 | Caption = '&Flags...'
|
|---|
| 456 | OnClick = ViewInfo
|
|---|
| 457 | end
|
|---|
| 458 | object mnuViewRemoteData: TMenuItem
|
|---|
| 459 | Tag = 7
|
|---|
| 460 | Caption = 'Remote &Data...'
|
|---|
| 461 | OnClick = ViewInfo
|
|---|
| 462 | end
|
|---|
| 463 | object mnuViewReminders: TMenuItem
|
|---|
| 464 | Tag = 8
|
|---|
| 465 | Caption = '&Reminders...'
|
|---|
| 466 | Enabled = False
|
|---|
| 467 | OnClick = ViewInfo
|
|---|
| 468 | end
|
|---|
| 469 | object mnuViewPostings: TMenuItem
|
|---|
| 470 | Tag = 9
|
|---|
| 471 | Caption = '&Postings...'
|
|---|
| 472 | OnClick = ViewInfo
|
|---|
| 473 | end
|
|---|
| 474 | end
|
|---|
| 475 | object Z3: TMenuItem
|
|---|
| 476 | Caption = '-'
|
|---|
| 477 | end
|
|---|
| 478 | object mnuViewAll: TMenuItem
|
|---|
| 479 | Tag = 1
|
|---|
| 480 | Caption = '&All Cases'
|
|---|
| 481 | OnClick = mnuViewClick
|
|---|
| 482 | end
|
|---|
| 483 | object mnuViewBySurgeon: TMenuItem
|
|---|
| 484 | Tag = 4
|
|---|
| 485 | Caption = 'Cases by &Surgeon'
|
|---|
| 486 | Enabled = False
|
|---|
| 487 | Visible = False
|
|---|
| 488 | OnClick = mnuViewClick
|
|---|
| 489 | end
|
|---|
| 490 | object mnuViewByDate: TMenuItem
|
|---|
| 491 | Tag = 5
|
|---|
| 492 | Caption = 'Cases by Date &Range'
|
|---|
| 493 | Enabled = False
|
|---|
| 494 | Visible = False
|
|---|
| 495 | OnClick = mnuViewClick
|
|---|
| 496 | end
|
|---|
| 497 | object mnuViewUncosigned: TMenuItem
|
|---|
| 498 | Tag = 3
|
|---|
| 499 | Caption = 'Un&cosigned Notes'
|
|---|
| 500 | Enabled = False
|
|---|
| 501 | Visible = False
|
|---|
| 502 | OnClick = mnuViewClick
|
|---|
| 503 | end
|
|---|
| 504 | object mnuViewUnsigned: TMenuItem
|
|---|
| 505 | Tag = 2
|
|---|
| 506 | Caption = '&Unsigned Notes'
|
|---|
| 507 | Enabled = False
|
|---|
| 508 | Visible = False
|
|---|
| 509 | OnClick = mnuViewClick
|
|---|
| 510 | end
|
|---|
| 511 | object mnuViewCustom: TMenuItem
|
|---|
| 512 | Tag = 6
|
|---|
| 513 | Caption = 'Custo&m View'
|
|---|
| 514 | OnClick = mnuViewClick
|
|---|
| 515 | end
|
|---|
| 516 | object N1: TMenuItem
|
|---|
| 517 | Caption = '-'
|
|---|
| 518 | Enabled = False
|
|---|
| 519 | end
|
|---|
| 520 | object mnuViewSaveAsDefault: TMenuItem
|
|---|
| 521 | Caption = 'Sa&ve as Default View'
|
|---|
| 522 | OnClick = mnuViewSaveAsDefaultClick
|
|---|
| 523 | end
|
|---|
| 524 | object ReturntoDefault1: TMenuItem
|
|---|
| 525 | Caption = 'Return to De&fault View'
|
|---|
| 526 | OnClick = mnuViewReturntoDefaultClick
|
|---|
| 527 | end
|
|---|
| 528 | object Z1: TMenuItem
|
|---|
| 529 | Caption = '-'
|
|---|
| 530 | Enabled = False
|
|---|
| 531 | end
|
|---|
| 532 | object mnuViewDetail: TMenuItem
|
|---|
| 533 | Caption = '&Details'
|
|---|
| 534 | OnClick = mnuViewDetailClick
|
|---|
| 535 | end
|
|---|
| 536 | object N6: TMenuItem
|
|---|
| 537 | Caption = '-'
|
|---|
| 538 | Enabled = False
|
|---|
| 539 | end
|
|---|
| 540 | object mnuIconLegend: TMenuItem
|
|---|
| 541 | Caption = 'Icon Legend'
|
|---|
| 542 | OnClick = mnuIconLegendClick
|
|---|
| 543 | end
|
|---|
| 544 | end
|
|---|
| 545 | object mnuAct: TMenuItem
|
|---|
| 546 | Caption = '&Action'
|
|---|
| 547 | GroupIndex = 4
|
|---|
| 548 | object mnuActNew: TMenuItem
|
|---|
| 549 | Caption = '&New Report'
|
|---|
| 550 | Hint = 'Creates a new operative summary'
|
|---|
| 551 | ShortCut = 24654
|
|---|
| 552 | Visible = False
|
|---|
| 553 | OnClick = mnuActNewClick
|
|---|
| 554 | end
|
|---|
| 555 | object mnuActAddend: TMenuItem
|
|---|
| 556 | Caption = '&Make Addendum...'
|
|---|
| 557 | Hint = 'Makes an addendum for the currently selected report'
|
|---|
| 558 | ShortCut = 24653
|
|---|
| 559 | OnClick = mnuActAddendClick
|
|---|
| 560 | end
|
|---|
| 561 | object mnuActAddIDEntry: TMenuItem
|
|---|
| 562 | Caption = 'Add Ne&w Entry to Interdisciplinary Note'
|
|---|
| 563 | Enabled = False
|
|---|
| 564 | Visible = False
|
|---|
| 565 | end
|
|---|
| 566 | object mnuActDetachFromIDParent: TMenuItem
|
|---|
| 567 | Caption = 'Detac&h from Interdisciplinary Note'
|
|---|
| 568 | Enabled = False
|
|---|
| 569 | Visible = False
|
|---|
| 570 | end
|
|---|
| 571 | object Z4: TMenuItem
|
|---|
| 572 | Caption = '-'
|
|---|
| 573 | Enabled = False
|
|---|
| 574 | end
|
|---|
| 575 | object mnuActChange: TMenuItem
|
|---|
| 576 | Caption = '&Change Title...'
|
|---|
| 577 | ShortCut = 24643
|
|---|
| 578 | OnClick = mnuActChangeClick
|
|---|
| 579 | end
|
|---|
| 580 | object mnuActLoadBoiler: TMenuItem
|
|---|
| 581 | Caption = 'Reload &Boilerplate Text'
|
|---|
| 582 | OnClick = mnuActLoadBoilerClick
|
|---|
| 583 | end
|
|---|
| 584 | object Z2: TMenuItem
|
|---|
| 585 | Caption = '-'
|
|---|
| 586 | Enabled = False
|
|---|
| 587 | end
|
|---|
| 588 | object mnuActSignList: TMenuItem
|
|---|
| 589 | Caption = 'Add to Signature &List'
|
|---|
| 590 | Hint =
|
|---|
| 591 | 'Adds the currently displayed report to list of things to be sign' +
|
|---|
| 592 | 'ed'
|
|---|
| 593 | OnClick = mnuActSignListClick
|
|---|
| 594 | end
|
|---|
| 595 | object mnuActDelete: TMenuItem
|
|---|
| 596 | Caption = '&Delete Report'
|
|---|
| 597 | ShortCut = 24644
|
|---|
| 598 | OnClick = mnuActDeleteClick
|
|---|
| 599 | end
|
|---|
| 600 | object mnuActEdit: TMenuItem
|
|---|
| 601 | Caption = '&Edit Report...'
|
|---|
| 602 | ShortCut = 24645
|
|---|
| 603 | OnClick = mnuActEditClick
|
|---|
| 604 | end
|
|---|
| 605 | object mnuActSave: TMenuItem
|
|---|
| 606 | Caption = 'S&ave without Signature'
|
|---|
| 607 | Hint = 'Saves the report that is being edited'
|
|---|
| 608 | ShortCut = 24641
|
|---|
| 609 | OnClick = mnuActSaveClick
|
|---|
| 610 | end
|
|---|
| 611 | object mnuActSign: TMenuItem
|
|---|
| 612 | Caption = 'Si&gn Report Now...'
|
|---|
| 613 | ShortCut = 24647
|
|---|
| 614 | OnClick = mnuActSignClick
|
|---|
| 615 | end
|
|---|
| 616 | object mnuActIdentifyAddlSigners: TMenuItem
|
|---|
| 617 | Caption = '&Identify Additional Signers'
|
|---|
| 618 | OnClick = mnuActIdentifyAddlSignersClick
|
|---|
| 619 | end
|
|---|
| 620 | end
|
|---|
| 621 | object mnuOptions: TMenuItem
|
|---|
| 622 | Caption = '&Options'
|
|---|
| 623 | GroupIndex = 4
|
|---|
| 624 | OnClick = mnuOptionsClick
|
|---|
| 625 | object mnuEditTemplates: TMenuItem
|
|---|
| 626 | Caption = 'Edit &Templates...'
|
|---|
| 627 | Enabled = False
|
|---|
| 628 | OnClick = mnuEditTemplatesClick
|
|---|
| 629 | end
|
|---|
| 630 | object mnuNewTemplate: TMenuItem
|
|---|
| 631 | Caption = 'Create &New Template...'
|
|---|
| 632 | Enabled = False
|
|---|
| 633 | OnClick = mnuNewTemplateClick
|
|---|
| 634 | end
|
|---|
| 635 | object N2: TMenuItem
|
|---|
| 636 | Caption = '-'
|
|---|
| 637 | Enabled = False
|
|---|
| 638 | end
|
|---|
| 639 | object mnuEditSharedTemplates: TMenuItem
|
|---|
| 640 | Caption = 'Edit &Shared Templates...'
|
|---|
| 641 | Enabled = False
|
|---|
| 642 | OnClick = mnuEditSharedTemplatesClick
|
|---|
| 643 | end
|
|---|
| 644 | object mnuNewSharedTemplate: TMenuItem
|
|---|
| 645 | Caption = '&Create New Shared Template...'
|
|---|
| 646 | Enabled = False
|
|---|
| 647 | OnClick = mnuNewSharedTemplateClick
|
|---|
| 648 | end
|
|---|
| 649 | object N3: TMenuItem
|
|---|
| 650 | Caption = '-'
|
|---|
| 651 | Enabled = False
|
|---|
| 652 | OnClick = cmdChangeClick
|
|---|
| 653 | end
|
|---|
| 654 | object mnuEditDialgFields: TMenuItem
|
|---|
| 655 | Caption = 'Edit Template &Fields'
|
|---|
| 656 | Enabled = False
|
|---|
| 657 | OnClick = mnuEditDialgFieldsClick
|
|---|
| 658 | end
|
|---|
| 659 | end
|
|---|
| 660 | end
|
|---|
| 661 | object popNoteMemo: TPopupMenu
|
|---|
| 662 | OnPopup = popNoteMemoPopup
|
|---|
| 663 | Left = 540
|
|---|
| 664 | Top = 304
|
|---|
| 665 | object popNoteMemoCut: TMenuItem
|
|---|
| 666 | Caption = 'Cu&t'
|
|---|
| 667 | ShortCut = 16472
|
|---|
| 668 | OnClick = popNoteMemoCutClick
|
|---|
| 669 | end
|
|---|
| 670 | object popNoteMemoCopy: TMenuItem
|
|---|
| 671 | Caption = '&Copy'
|
|---|
| 672 | ShortCut = 16451
|
|---|
| 673 | OnClick = popNoteMemoCopyClick
|
|---|
| 674 | end
|
|---|
| 675 | object popNoteMemoPaste: TMenuItem
|
|---|
| 676 | Caption = '&Paste'
|
|---|
| 677 | ShortCut = 16470
|
|---|
| 678 | OnClick = popNoteMemoPasteClick
|
|---|
| 679 | end
|
|---|
| 680 | object popNoteMemoPaste2: TMenuItem
|
|---|
| 681 | Caption = 'Paste2'
|
|---|
| 682 | ShortCut = 8237
|
|---|
| 683 | Visible = False
|
|---|
| 684 | OnClick = popNoteMemoPasteClick
|
|---|
| 685 | end
|
|---|
| 686 | object popNoteMemoReformat: TMenuItem
|
|---|
| 687 | Caption = 'Reformat Paragraph'
|
|---|
| 688 | ShortCut = 24658
|
|---|
| 689 | OnClick = popNoteMemoReformatClick
|
|---|
| 690 | end
|
|---|
| 691 | object popNoteMemoSaveContinue: TMenuItem
|
|---|
| 692 | Caption = 'Save && Continue Editing'
|
|---|
| 693 | ShortCut = 24659
|
|---|
| 694 | Visible = False
|
|---|
| 695 | OnClick = popNoteMemoSaveContinueClick
|
|---|
| 696 | end
|
|---|
| 697 | object Z11: TMenuItem
|
|---|
| 698 | Caption = '-'
|
|---|
| 699 | end
|
|---|
| 700 | object popNoteMemoFind: TMenuItem
|
|---|
| 701 | Caption = '&Find in Selected Document'
|
|---|
| 702 | OnClick = popNoteMemoFindClick
|
|---|
| 703 | end
|
|---|
| 704 | object popNoteMemoReplace: TMenuItem
|
|---|
| 705 | Caption = '&Replace Text'
|
|---|
| 706 | OnClick = popNoteMemoReplaceClick
|
|---|
| 707 | end
|
|---|
| 708 | object N7: TMenuItem
|
|---|
| 709 | Caption = '-'
|
|---|
| 710 | OnClick = cmdChangeClick
|
|---|
| 711 | end
|
|---|
| 712 | object popNoteMemoGrammar: TMenuItem
|
|---|
| 713 | Caption = 'Check &Grammar'
|
|---|
| 714 | OnClick = popNoteMemoGrammarClick
|
|---|
| 715 | end
|
|---|
| 716 | object popNoteMemoSpell: TMenuItem
|
|---|
| 717 | Caption = 'C&heck Spelling'
|
|---|
| 718 | OnClick = popNoteMemoSpellClick
|
|---|
| 719 | end
|
|---|
| 720 | object Z12: TMenuItem
|
|---|
| 721 | Caption = '-'
|
|---|
| 722 | end
|
|---|
| 723 | object popNoteMemoTemplate: TMenuItem
|
|---|
| 724 | Caption = 'Copy into New &Template'
|
|---|
| 725 | OnClick = popNoteMemoTemplateClick
|
|---|
| 726 | end
|
|---|
| 727 | object Z10: TMenuItem
|
|---|
| 728 | Caption = '-'
|
|---|
| 729 | end
|
|---|
| 730 | object popNoteMemoSignList: TMenuItem
|
|---|
| 731 | Caption = 'Add to Signature &List'
|
|---|
| 732 | OnClick = mnuActSignListClick
|
|---|
| 733 | end
|
|---|
| 734 | object popNoteMemoDelete: TMenuItem
|
|---|
| 735 | Caption = '&Delete Report'
|
|---|
| 736 | OnClick = mnuActDeleteClick
|
|---|
| 737 | end
|
|---|
| 738 | object popNoteMemoEdit: TMenuItem
|
|---|
| 739 | Caption = '&Edit Report'
|
|---|
| 740 | OnClick = mnuActEditClick
|
|---|
| 741 | end
|
|---|
| 742 | object popNoteMemoAddend: TMenuItem
|
|---|
| 743 | Caption = '&Make Addendum'
|
|---|
| 744 | OnClick = mnuActAddendClick
|
|---|
| 745 | end
|
|---|
| 746 | object popNoteMemoSave: TMenuItem
|
|---|
| 747 | Caption = 'S&ave without Signature'
|
|---|
| 748 | OnClick = mnuActSaveClick
|
|---|
| 749 | end
|
|---|
| 750 | object popNoteMemoSign: TMenuItem
|
|---|
| 751 | Caption = '&Sign Report Now'
|
|---|
| 752 | OnClick = mnuActSignClick
|
|---|
| 753 | end
|
|---|
| 754 | object popNoteMemoAddlSign: TMenuItem
|
|---|
| 755 | Caption = '&Identify Additional Signers'
|
|---|
| 756 | OnClick = popNoteMemoAddlSignClick
|
|---|
| 757 | end
|
|---|
| 758 | object N8: TMenuItem
|
|---|
| 759 | Caption = '-'
|
|---|
| 760 | end
|
|---|
| 761 | object popNoteMemoPreview: TMenuItem
|
|---|
| 762 | Caption = 'Previe&w/Print Current Template'
|
|---|
| 763 | ShortCut = 16471
|
|---|
| 764 | OnClick = popNoteMemoPreviewClick
|
|---|
| 765 | end
|
|---|
| 766 | object popNoteMemoInsTemplate: TMenuItem
|
|---|
| 767 | Caption = 'Insert Current Template'
|
|---|
| 768 | ShortCut = 16429
|
|---|
| 769 | OnClick = popNoteMemoInsTemplateClick
|
|---|
| 770 | end
|
|---|
| 771 | object popNoteMemoEncounter: TMenuItem
|
|---|
| 772 | Caption = 'Edit Encounter Information'
|
|---|
| 773 | ShortCut = 16453
|
|---|
| 774 | OnClick = cmdPCEClick
|
|---|
| 775 | end
|
|---|
| 776 | end
|
|---|
| 777 | object popNoteList: TPopupMenu
|
|---|
| 778 | OnPopup = popNoteListPopup
|
|---|
| 779 | Left = 500
|
|---|
| 780 | Top = 305
|
|---|
| 781 | object popNoteListAll: TMenuItem
|
|---|
| 782 | Tag = 1
|
|---|
| 783 | Caption = '&All cases'
|
|---|
| 784 | OnClick = mnuViewClick
|
|---|
| 785 | end
|
|---|
| 786 | object popNoteListBySurgeon: TMenuItem
|
|---|
| 787 | Tag = 4
|
|---|
| 788 | Caption = 'Cases by &Surgeon'
|
|---|
| 789 | Enabled = False
|
|---|
| 790 | Visible = False
|
|---|
| 791 | OnClick = mnuViewClick
|
|---|
| 792 | end
|
|---|
| 793 | object popNoteListByDate: TMenuItem
|
|---|
| 794 | Tag = 5
|
|---|
| 795 | Caption = 'Cases by Date &Range'
|
|---|
| 796 | Enabled = False
|
|---|
| 797 | OnClick = mnuViewClick
|
|---|
| 798 | end
|
|---|
| 799 | object popNoteListUncosigned: TMenuItem
|
|---|
| 800 | Tag = 3
|
|---|
| 801 | Caption = 'Un&cosigned Notes'
|
|---|
| 802 | Enabled = False
|
|---|
| 803 | Visible = False
|
|---|
| 804 | OnClick = mnuViewClick
|
|---|
| 805 | end
|
|---|
| 806 | object popNoteListUnsigned: TMenuItem
|
|---|
| 807 | Tag = 2
|
|---|
| 808 | Caption = '&Unsigned Notes'
|
|---|
| 809 | Enabled = False
|
|---|
| 810 | Visible = False
|
|---|
| 811 | OnClick = mnuViewClick
|
|---|
| 812 | end
|
|---|
| 813 | object popNoteListCustom: TMenuItem
|
|---|
| 814 | Tag = 6
|
|---|
| 815 | Caption = 'Cus&tom List'
|
|---|
| 816 | OnClick = mnuViewClick
|
|---|
| 817 | end
|
|---|
| 818 | object N4: TMenuItem
|
|---|
| 819 | Caption = '-'
|
|---|
| 820 | end
|
|---|
| 821 | object popNoteListExpandSelected: TMenuItem
|
|---|
| 822 | Caption = '&Expand Selected'
|
|---|
| 823 | OnClick = popNoteListExpandSelectedClick
|
|---|
| 824 | end
|
|---|
| 825 | object popNoteListExpandAll: TMenuItem
|
|---|
| 826 | Caption = 'E&xpand All'
|
|---|
| 827 | OnClick = popNoteListExpandAllClick
|
|---|
| 828 | end
|
|---|
| 829 | object popNoteListCollapseSelected: TMenuItem
|
|---|
| 830 | Caption = 'C&ollapse Selected'
|
|---|
| 831 | OnClick = popNoteListCollapseSelectedClick
|
|---|
| 832 | end
|
|---|
| 833 | object popNoteListCollapseAll: TMenuItem
|
|---|
| 834 | Caption = 'Co&llapse All'
|
|---|
| 835 | OnClick = popNoteListCollapseAllClick
|
|---|
| 836 | end
|
|---|
| 837 | object N5: TMenuItem
|
|---|
| 838 | Caption = '-'
|
|---|
| 839 | end
|
|---|
| 840 | object popNoteListAddIDEntry: TMenuItem
|
|---|
| 841 | Caption = 'Add Ne&w Entry to ID Note'
|
|---|
| 842 | Enabled = False
|
|---|
| 843 | end
|
|---|
| 844 | object popNoteListDetachFromIDParent: TMenuItem
|
|---|
| 845 | Caption = 'Detac&h from ID Note'
|
|---|
| 846 | Enabled = False
|
|---|
| 847 | end
|
|---|
| 848 | end
|
|---|
| 849 | object timAutoSave: TTimer
|
|---|
| 850 | Enabled = False
|
|---|
| 851 | Interval = 300000
|
|---|
| 852 | OnTimer = timAutoSaveTimer
|
|---|
| 853 | Left = 592
|
|---|
| 854 | Top = 27
|
|---|
| 855 | end
|
|---|
| 856 | object dlgFindText: TFindDialog
|
|---|
| 857 | Options = [frDown, frHideUpDown]
|
|---|
| 858 | OnFind = dlgFindTextFind
|
|---|
| 859 | Left = 452
|
|---|
| 860 | Top = 312
|
|---|
| 861 | end
|
|---|
| 862 | object dlgReplaceText: TReplaceDialog
|
|---|
| 863 | OnFind = dlgReplaceTextFind
|
|---|
| 864 | OnReplace = dlgReplaceTextReplace
|
|---|
| 865 | Left = 413
|
|---|
| 866 | Top = 312
|
|---|
| 867 | end
|
|---|
| 868 | end
|
|---|
