| 1 | inherited frmConsults: TfrmConsults
|
|---|
| 2 | Left = 247
|
|---|
| 3 | Top = 174
|
|---|
| 4 | Width = 723
|
|---|
| 5 | Height = 467
|
|---|
| 6 | HelpContext = 6000
|
|---|
| 7 | Caption = 'Consults Page'
|
|---|
| 8 | Menu = mnuConsults
|
|---|
| 9 | OnDestroy = FormDestroy
|
|---|
| 10 | OnHide = FormHide
|
|---|
| 11 | OnMouseMove = FormMouseMove
|
|---|
| 12 | OnShow = FormShow
|
|---|
| 13 | PixelsPerInch = 96
|
|---|
| 14 | TextHeight = 13
|
|---|
| 15 | inherited shpPageBottom: TShape
|
|---|
| 16 | Top = 408
|
|---|
| 17 | Width = 715
|
|---|
| 18 | end
|
|---|
| 19 | inherited sptHorz: TSplitter
|
|---|
| 20 | Left = 83
|
|---|
| 21 | Width = 2
|
|---|
| 22 | Height = 408
|
|---|
| 23 | OnCanResize = sptHorzCanResize
|
|---|
| 24 | end
|
|---|
| 25 | inherited pnlRight: TPanel [2]
|
|---|
| 26 | Left = 85
|
|---|
| 27 | Width = 630
|
|---|
| 28 | Height = 408
|
|---|
| 29 | OnResize = pnlRightResize
|
|---|
| 30 | object sptVert: TSplitter
|
|---|
| 31 | Left = 0
|
|---|
| 32 | Top = 342
|
|---|
| 33 | Width = 630
|
|---|
| 34 | Height = 4
|
|---|
| 35 | Cursor = crVSplit
|
|---|
| 36 | Align = alBottom
|
|---|
| 37 | end
|
|---|
| 38 | object pnlRead: TPanel
|
|---|
| 39 | Left = 0
|
|---|
| 40 | Top = 0
|
|---|
| 41 | Width = 630
|
|---|
| 42 | Height = 342
|
|---|
| 43 | Align = alClient
|
|---|
| 44 | BevelOuter = bvNone
|
|---|
| 45 | TabOrder = 0
|
|---|
| 46 | OnExit = pnlResultsExit
|
|---|
| 47 | object lblTitle: TOROffsetLabel
|
|---|
| 48 | Left = 0
|
|---|
| 49 | Top = 0
|
|---|
| 50 | Width = 630
|
|---|
| 51 | Height = 19
|
|---|
| 52 | Align = alTop
|
|---|
| 53 | Caption = 'Details of Selected Consult'
|
|---|
| 54 | Font.Charset = DEFAULT_CHARSET
|
|---|
| 55 | Font.Color = clWindowText
|
|---|
| 56 | Font.Height = -11
|
|---|
| 57 | Font.Name = 'MS Sans Serif'
|
|---|
| 58 | Font.Style = []
|
|---|
| 59 | HorzOffset = 2
|
|---|
| 60 | ParentFont = False
|
|---|
| 61 | ParentShowHint = False
|
|---|
| 62 | ShowHint = True
|
|---|
| 63 | Transparent = False
|
|---|
| 64 | VertOffset = 6
|
|---|
| 65 | WordWrap = False
|
|---|
| 66 | end
|
|---|
| 67 | object memConsult: TRichEdit
|
|---|
| 68 | Left = 0
|
|---|
| 69 | Top = 19
|
|---|
| 70 | Width = 630
|
|---|
| 71 | Height = 323
|
|---|
| 72 | Align = alClient
|
|---|
| 73 | Color = clCream
|
|---|
| 74 | Ctl3D = True
|
|---|
| 75 | Font.Charset = DEFAULT_CHARSET
|
|---|
| 76 | Font.Color = clWindowText
|
|---|
| 77 | Font.Height = -11
|
|---|
| 78 | Font.Name = 'Courier New'
|
|---|
| 79 | Font.Style = []
|
|---|
| 80 | Lines.Strings = (
|
|---|
| 81 |
|
|---|
| 82 | 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRUSTVWXYZabcdefghijkl' +
|
|---|
| 83 | 'mnopqrstuvwxyz12')
|
|---|
| 84 | ParentCtl3D = False
|
|---|
| 85 | ParentFont = False
|
|---|
| 86 | PlainText = True
|
|---|
| 87 | PopupMenu = popNoteMemo
|
|---|
| 88 | ReadOnly = True
|
|---|
| 89 | ScrollBars = ssBoth
|
|---|
| 90 | TabOrder = 0
|
|---|
| 91 | WantReturns = False
|
|---|
| 92 | WordWrap = False
|
|---|
| 93 | OnMouseMove = FormMouseMove
|
|---|
| 94 | end
|
|---|
| 95 | end
|
|---|
| 96 | object memPCEShow: TRichEdit
|
|---|
| 97 | Left = 0
|
|---|
| 98 | Top = 346
|
|---|
| 99 | Width = 630
|
|---|
| 100 | Height = 62
|
|---|
| 101 | Align = alBottom
|
|---|
| 102 | Color = clCream
|
|---|
| 103 | TabOrder = 2
|
|---|
| 104 | WantReturns = False
|
|---|
| 105 | end
|
|---|
| 106 | object pnlResults: TPanel
|
|---|
| 107 | Left = 0
|
|---|
| 108 | Top = 0
|
|---|
| 109 | Width = 630
|
|---|
| 110 | Height = 342
|
|---|
| 111 | Align = alClient
|
|---|
| 112 | BevelOuter = bvNone
|
|---|
| 113 | TabOrder = 1
|
|---|
| 114 | OnExit = pnlResultsExit
|
|---|
| 115 | OnResize = pnlResultsResize
|
|---|
| 116 | object memResults: TRichEdit
|
|---|
| 117 | Left = 0
|
|---|
| 118 | Top = 67
|
|---|
| 119 | Width = 630
|
|---|
| 120 | Height = 275
|
|---|
| 121 | Align = alClient
|
|---|
| 122 | Font.Charset = ANSI_CHARSET
|
|---|
| 123 | Font.Color = clWindowText
|
|---|
| 124 | Font.Height = -11
|
|---|
| 125 | Font.Name = 'Courier New'
|
|---|
| 126 | Font.Style = []
|
|---|
| 127 | ParentFont = False
|
|---|
| 128 | PopupMenu = popNoteMemo
|
|---|
| 129 | ScrollBars = ssBoth
|
|---|
| 130 | TabOrder = 1
|
|---|
| 131 | WantTabs = True
|
|---|
| 132 | OnChange = memResultChange
|
|---|
| 133 | OnKeyDown = memResultsKeyDown
|
|---|
| 134 | OnMouseMove = FormMouseMove
|
|---|
| 135 | end
|
|---|
| 136 | object pnlFields: TPanel
|
|---|
| 137 | Left = 0
|
|---|
| 138 | Top = 0
|
|---|
| 139 | Width = 630
|
|---|
| 140 | Height = 67
|
|---|
| 141 | Align = alTop
|
|---|
| 142 | BevelOuter = bvNone
|
|---|
| 143 | TabOrder = 0
|
|---|
| 144 | OnResize = pnlFieldsResize
|
|---|
| 145 | DesignSize = (
|
|---|
| 146 | 630
|
|---|
| 147 | 67)
|
|---|
| 148 | object bvlNewTitle: TBevel
|
|---|
| 149 | Left = 5
|
|---|
| 150 | Top = 5
|
|---|
| 151 | Width = 117
|
|---|
| 152 | Height = 15
|
|---|
| 153 | end
|
|---|
| 154 | object lblRefDate: TStaticText
|
|---|
| 155 | Left = 237
|
|---|
| 156 | Top = 6
|
|---|
| 157 | Width = 101
|
|---|
| 158 | Height = 17
|
|---|
| 159 | Hint = 'Press "Change..." to change date/time of note.'
|
|---|
| 160 | Alignment = taCenter
|
|---|
| 161 | Caption = 'Oct 20,1999@15:30'
|
|---|
| 162 | ParentShowHint = False
|
|---|
| 163 | ShowAccelChar = False
|
|---|
| 164 | ShowHint = True
|
|---|
| 165 | TabOrder = 3
|
|---|
| 166 | end
|
|---|
| 167 | object lblAuthor: TStaticText
|
|---|
| 168 | Left = 402
|
|---|
| 169 | Top = 6
|
|---|
| 170 | Width = 152
|
|---|
| 171 | Height = 17
|
|---|
| 172 | Hint = 'Press "Change..." to select a different author.'
|
|---|
| 173 | Alignment = taRightJustify
|
|---|
| 174 | Anchors = [akTop, akRight]
|
|---|
| 175 | Caption = 'Winchester,Charles Emerson III'
|
|---|
| 176 | ParentShowHint = False
|
|---|
| 177 | ShowAccelChar = False
|
|---|
| 178 | ShowHint = True
|
|---|
| 179 | TabOrder = 4
|
|---|
| 180 | end
|
|---|
| 181 | object lblVisit: TStaticText
|
|---|
| 182 | Left = 6
|
|---|
| 183 | Top = 21
|
|---|
| 184 | Width = 204
|
|---|
| 185 | Height = 17
|
|---|
| 186 | Caption = 'Vst: 10/20/99 Pulmonary Clinic, Dr. Welby'
|
|---|
| 187 | ShowAccelChar = False
|
|---|
| 188 | TabOrder = 5
|
|---|
| 189 | end
|
|---|
| 190 | object lblCosigner: TStaticText
|
|---|
| 191 | Left = 307
|
|---|
| 192 | Top = 21
|
|---|
| 193 | Width = 243
|
|---|
| 194 | Height = 13
|
|---|
| 195 | Hint = 'Press "Change..." to select a different cosigner.'
|
|---|
| 196 | Alignment = taRightJustify
|
|---|
| 197 | Anchors = [akTop, akRight]
|
|---|
| 198 | AutoSize = False
|
|---|
| 199 | Caption = 'Expected Cosigner: Winchester,Charles Emerson III'
|
|---|
| 200 | ParentShowHint = False
|
|---|
| 201 | ShowAccelChar = False
|
|---|
| 202 | ShowHint = True
|
|---|
| 203 | TabOrder = 6
|
|---|
| 204 | end
|
|---|
| 205 | object lblSubject: TStaticText
|
|---|
| 206 | Left = 6
|
|---|
| 207 | Top = 43
|
|---|
| 208 | Width = 43
|
|---|
| 209 | Height = 17
|
|---|
| 210 | Caption = 'Subject:'
|
|---|
| 211 | TabOrder = 7
|
|---|
| 212 | end
|
|---|
| 213 | object lblNewTitle: TStaticText
|
|---|
| 214 | Left = 6
|
|---|
| 215 | Top = 6
|
|---|
| 216 | Width = 119
|
|---|
| 217 | Height = 17
|
|---|
| 218 | Hint = 'Press "Change..." to select a different title.'
|
|---|
| 219 | Caption = ' General Medicine Note '
|
|---|
| 220 | Color = clCream
|
|---|
| 221 | Font.Charset = DEFAULT_CHARSET
|
|---|
| 222 | Font.Color = clWindowText
|
|---|
| 223 | Font.Height = -11
|
|---|
| 224 | Font.Name = 'MS Sans Serif'
|
|---|
| 225 | Font.Style = []
|
|---|
| 226 | ParentColor = False
|
|---|
| 227 | ParentFont = False
|
|---|
| 228 | ParentShowHint = False
|
|---|
| 229 | ShowAccelChar = False
|
|---|
| 230 | ShowHint = True
|
|---|
| 231 | TabOrder = 2
|
|---|
| 232 | end
|
|---|
| 233 | object cmdChange: TButton
|
|---|
| 234 | Left = 556
|
|---|
| 235 | Top = 6
|
|---|
| 236 | Width = 58
|
|---|
| 237 | Height = 21
|
|---|
| 238 | Anchors = [akTop, akRight]
|
|---|
| 239 | Caption = 'Change...'
|
|---|
| 240 | TabOrder = 0
|
|---|
| 241 | OnClick = cmdChangeClick
|
|---|
| 242 | OnMouseMove = FormMouseMove
|
|---|
| 243 | end
|
|---|
| 244 | object txtSubject: TCaptionEdit
|
|---|
| 245 | Left = 48
|
|---|
| 246 | Top = 40
|
|---|
| 247 | Width = 566
|
|---|
| 248 | Height = 21
|
|---|
| 249 | Hint = 'Subject is limited to a maximum of 80 characters.'
|
|---|
| 250 | Anchors = [akLeft, akTop, akRight]
|
|---|
| 251 | MaxLength = 80
|
|---|
| 252 | ParentShowHint = False
|
|---|
| 253 | ShowHint = True
|
|---|
| 254 | TabOrder = 1
|
|---|
| 255 | Text = 'txtSubject'
|
|---|
| 256 | OnMouseMove = FormMouseMove
|
|---|
| 257 | Caption = 'Subject'
|
|---|
| 258 | end
|
|---|
| 259 | end
|
|---|
| 260 | end
|
|---|
| 261 | end
|
|---|
| 262 | inherited pnlLeft: TPanel [3]
|
|---|
| 263 | Width = 83
|
|---|
| 264 | Height = 408
|
|---|
| 265 | OnResize = pnlLeftResize
|
|---|
| 266 | object splConsults: TSplitter
|
|---|
| 267 | Left = 0
|
|---|
| 268 | Top = 161
|
|---|
| 269 | Width = 83
|
|---|
| 270 | Height = 3
|
|---|
| 271 | Cursor = crVSplit
|
|---|
| 272 | Align = alTop
|
|---|
| 273 | end
|
|---|
| 274 | object pnlAction: TPanel
|
|---|
| 275 | Left = 0
|
|---|
| 276 | Top = 164
|
|---|
| 277 | Width = 83
|
|---|
| 278 | Height = 223
|
|---|
| 279 | Align = alClient
|
|---|
| 280 | BevelOuter = bvNone
|
|---|
| 281 | TabOrder = 1
|
|---|
| 282 | OnExit = pnlActionExit
|
|---|
| 283 | object splDrawers: TSplitter
|
|---|
| 284 | Left = 0
|
|---|
| 285 | Top = 220
|
|---|
| 286 | Width = 83
|
|---|
| 287 | Height = 3
|
|---|
| 288 | Cursor = crVSplit
|
|---|
| 289 | Align = alBottom
|
|---|
| 290 | end
|
|---|
| 291 | object cmdNewConsult: TORAlignButton
|
|---|
| 292 | Left = 0
|
|---|
| 293 | Top = 21
|
|---|
| 294 | Width = 83
|
|---|
| 295 | Height = 21
|
|---|
| 296 | Caption = 'New Consult'
|
|---|
| 297 | Constraints.MinHeight = 21
|
|---|
| 298 | TabOrder = 2
|
|---|
| 299 | OnClick = cmdNewConsultClick
|
|---|
| 300 | OnMouseMove = FormMouseMove
|
|---|
| 301 | Align = alTop
|
|---|
| 302 | end
|
|---|
| 303 | object cmdNewProc: TORAlignButton
|
|---|
| 304 | Left = 0
|
|---|
| 305 | Top = 42
|
|---|
| 306 | Width = 83
|
|---|
| 307 | Height = 21
|
|---|
| 308 | Caption = 'New Procedure'
|
|---|
| 309 | Constraints.MinHeight = 21
|
|---|
| 310 | TabOrder = 3
|
|---|
| 311 | OnClick = cmdNewProcClick
|
|---|
| 312 | OnMouseMove = FormMouseMove
|
|---|
| 313 | Align = alTop
|
|---|
| 314 | end
|
|---|
| 315 | object cmdEditResubmit: TORAlignButton
|
|---|
| 316 | Left = 0
|
|---|
| 317 | Top = 0
|
|---|
| 318 | Width = 83
|
|---|
| 319 | Height = 21
|
|---|
| 320 | Caption = 'Edit/Resubmit'
|
|---|
| 321 | Constraints.MinHeight = 21
|
|---|
| 322 | Font.Charset = DEFAULT_CHARSET
|
|---|
| 323 | Font.Color = clWindowText
|
|---|
| 324 | Font.Height = -11
|
|---|
| 325 | Font.Name = 'MS Sans Serif'
|
|---|
| 326 | Font.Style = []
|
|---|
| 327 | ParentFont = False
|
|---|
| 328 | TabOrder = 1
|
|---|
| 329 | Visible = False
|
|---|
| 330 | OnClick = cmdEditResubmitClick
|
|---|
| 331 | OnMouseMove = FormMouseMove
|
|---|
| 332 | Align = alTop
|
|---|
| 333 | end
|
|---|
| 334 | object lstNotes: TORListBox
|
|---|
| 335 | Left = 0
|
|---|
| 336 | Top = 63
|
|---|
| 337 | Width = 83
|
|---|
| 338 | Height = 24
|
|---|
| 339 | Style = lbOwnerDrawFixed
|
|---|
| 340 | ItemHeight = 13
|
|---|
| 341 | ParentShowHint = False
|
|---|
| 342 | PopupMenu = popNoteMemo
|
|---|
| 343 | ShowHint = True
|
|---|
| 344 | TabOrder = 4
|
|---|
| 345 | Visible = False
|
|---|
| 346 | OnClick = lstNotesClick
|
|---|
| 347 | OnMouseMove = FormMouseMove
|
|---|
| 348 | ItemTipColor = clWindow
|
|---|
| 349 | LongList = False
|
|---|
| 350 | Pieces = '2,3'
|
|---|
| 351 | TabPositions = '10'
|
|---|
| 352 | end
|
|---|
| 353 | object tvCsltNotes: TORTreeView
|
|---|
| 354 | Left = 0
|
|---|
| 355 | Top = 63
|
|---|
| 356 | Width = 83
|
|---|
| 357 | Height = 157
|
|---|
| 358 | Align = alClient
|
|---|
| 359 | Constraints.MinWidth = 30
|
|---|
| 360 | HideSelection = False
|
|---|
| 361 | Indent = 19
|
|---|
| 362 | PopupMenu = popNoteList
|
|---|
| 363 | ReadOnly = True
|
|---|
| 364 | TabOrder = 0
|
|---|
| 365 | OnChange = tvCsltNotesChange
|
|---|
| 366 | OnClick = tvCsltNotesClick
|
|---|
| 367 | OnCollapsed = tvCsltNotesCollapsed
|
|---|
| 368 | OnDragDrop = tvCsltNotesDragDrop
|
|---|
| 369 | OnDragOver = tvCsltNotesDragOver
|
|---|
| 370 | OnExpanded = tvCsltNotesExpanded
|
|---|
| 371 | OnMouseMove = FormMouseMove
|
|---|
| 372 | OnStartDrag = tvCsltNotesStartDrag
|
|---|
| 373 | Caption = 'Consult Notes'
|
|---|
| 374 | NodePiece = 0
|
|---|
| 375 | end
|
|---|
| 376 | end
|
|---|
| 377 | object cmdPCE: TORAlignButton
|
|---|
| 378 | Left = 0
|
|---|
| 379 | Top = 387
|
|---|
| 380 | Width = 83
|
|---|
| 381 | Height = 21
|
|---|
| 382 | Caption = 'Encounter'
|
|---|
| 383 | Enabled = False
|
|---|
| 384 | TabOrder = 2
|
|---|
| 385 | Visible = False
|
|---|
| 386 | OnClick = cmdPCEClick
|
|---|
| 387 | OnExit = pnlActionExit
|
|---|
| 388 | OnMouseMove = FormMouseMove
|
|---|
| 389 | Align = alBottom
|
|---|
| 390 | end
|
|---|
| 391 | object pnlConsultList: TPanel
|
|---|
| 392 | Left = 0
|
|---|
| 393 | Top = 0
|
|---|
| 394 | Width = 83
|
|---|
| 395 | Height = 161
|
|---|
| 396 | Align = alTop
|
|---|
| 397 | BevelOuter = bvNone
|
|---|
| 398 | TabOrder = 0
|
|---|
| 399 | object lblConsults: TOROffsetLabel
|
|---|
| 400 | Left = 0
|
|---|
| 401 | Top = 0
|
|---|
| 402 | Width = 83
|
|---|
| 403 | Height = 19
|
|---|
| 404 | Align = alTop
|
|---|
| 405 | Caption = 'Consults'
|
|---|
| 406 | HorzOffset = 2
|
|---|
| 407 | Transparent = True
|
|---|
| 408 | VertOffset = 6
|
|---|
| 409 | WordWrap = False
|
|---|
| 410 | end
|
|---|
| 411 | object lstConsults: TORListBox
|
|---|
| 412 | Left = 0
|
|---|
| 413 | Top = 19
|
|---|
| 414 | Width = 83
|
|---|
| 415 | Height = 142
|
|---|
| 416 | Align = alClient
|
|---|
| 417 | Ctl3D = True
|
|---|
| 418 | ItemHeight = 13
|
|---|
| 419 | ParentCtl3D = False
|
|---|
| 420 | ParentShowHint = False
|
|---|
| 421 | PopupMenu = popConsultList
|
|---|
| 422 | ShowHint = True
|
|---|
| 423 | TabOrder = 1
|
|---|
| 424 | Visible = False
|
|---|
| 425 | OnClick = lstConsultsClick
|
|---|
| 426 | ItemTipColor = clWindow
|
|---|
| 427 | LongList = False
|
|---|
| 428 | Pieces = '2,3,4,5'
|
|---|
| 429 | TabPositions = '10,15,42'
|
|---|
| 430 | end
|
|---|
| 431 | object tvConsults: TORTreeView
|
|---|
| 432 | Left = 0
|
|---|
| 433 | Top = 19
|
|---|
| 434 | Width = 83
|
|---|
| 435 | Height = 142
|
|---|
| 436 | Align = alClient
|
|---|
| 437 | HideSelection = False
|
|---|
| 438 | Indent = 15
|
|---|
| 439 | PopupMenu = popNoteList
|
|---|
| 440 | ReadOnly = True
|
|---|
| 441 | TabOrder = 0
|
|---|
| 442 | OnAddition = tvConsultsAddition
|
|---|
| 443 | OnClick = tvConsultsClick
|
|---|
| 444 | OnCollapsed = tvConsultsCollapsed
|
|---|
| 445 | OnDeletion = tvConsultsDeletion
|
|---|
| 446 | OnExit = tvConsultsExit
|
|---|
| 447 | OnExpanded = tvConsultsExpanded
|
|---|
| 448 | OnKeyUp = tvConsultsKeyUp
|
|---|
| 449 | OnMouseMove = FormMouseMove
|
|---|
| 450 | Caption = 'Consults'
|
|---|
| 451 | NodePiece = 0
|
|---|
| 452 | ShortNodeCaptions = True
|
|---|
| 453 | end
|
|---|
| 454 | end
|
|---|
| 455 | end
|
|---|
| 456 | inherited DKLanguageController1: TDKLanguageController
|
|---|
| 457 | Left = 456
|
|---|
| 458 | Top = 65528
|
|---|
| 459 | LangData = {
|
|---|
| 460 | 0B0066726D436F6E73756C7473010100000001000000070043617074696F6E01
|
|---|
| 461 | A50000000D0073687050616765426F74746F6D00000700737074486F727A0000
|
|---|
| 462 | 0700706E6C4C65667400000800706E6C52696768740000070073707456657274
|
|---|
| 463 | 00000700706E6C52656164000008006C626C5469746C65010100000002000000
|
|---|
| 464 | 070043617074696F6E000A006D656D436F6E73756C7401010000000300000005
|
|---|
| 465 | 004C696E6573000A006D656D50434553686F7700000A00706E6C526573756C74
|
|---|
| 466 | 7300000A006D656D526573756C747300000900706E6C4669656C647300000B00
|
|---|
| 467 | 62766C4E65775469746C6500000A006C626C5265664461746501020000000500
|
|---|
| 468 | 0000070043617074696F6E04000000040048696E740009006C626C417574686F
|
|---|
| 469 | 72010200000007000000070043617074696F6E06000000040048696E74000800
|
|---|
| 470 | 6C626C5669736974010100000008000000070043617074696F6E000B006C626C
|
|---|
| 471 | 436F7369676E657201020000000A000000070043617074696F6E090000000400
|
|---|
| 472 | 48696E74000A006C626C5375626A65637401010000000B000000070043617074
|
|---|
| 473 | 696F6E000B006C626C4E65775469746C6501020000000D000000070043617074
|
|---|
| 474 | 696F6E0C000000040048696E74000900636D644368616E676501010000000E00
|
|---|
| 475 | 0000070043617074696F6E000A007478745375626A6563740103000000110000
|
|---|
| 476 | 00070043617074696F6E0F000000040048696E7410000000040054657874000B
|
|---|
| 477 | 0073706C436F6E73756C747300000900706E6C416374696F6E00000A0073706C
|
|---|
| 478 | 4472617765727300000D00636D644E6577436F6E73756C740101000000120000
|
|---|
| 479 | 00070043617074696F6E000A00636D644E657750726F63010100000013000000
|
|---|
| 480 | 070043617074696F6E000F00636D644564697452657375626D69740101000000
|
|---|
| 481 | 14000000070043617074696F6E0008006C73744E6F74657300000B0074764373
|
|---|
| 482 | 6C744E6F746573010100000015000000070043617074696F6E000600636D6450
|
|---|
| 483 | 4345010100000016000000070043617074696F6E000E00706E6C436F6E73756C
|
|---|
| 484 | 744C69737400000B006C626C436F6E73756C7473010100000017000000070043
|
|---|
| 485 | 617074696F6E000B006C7374436F6E73756C747300000A007476436F6E73756C
|
|---|
| 486 | 7473010100000018000000070043617074696F6E000B00706F704E6F74654D65
|
|---|
| 487 | 6D6F00000E00706F704E6F74654D656D6F437574010100000019000000070043
|
|---|
| 488 | 617074696F6E000F00706F704E6F74654D656D6F436F707901010000001A0000
|
|---|
| 489 | 00070043617074696F6E001000706F704E6F74654D656D6F5061737465010100
|
|---|
| 490 | 00001B000000070043617074696F6E001100706F704E6F74654D656D6F506173
|
|---|
| 491 | 74653201010000001C000000070043617074696F6E001300706F704E6F74654D
|
|---|
| 492 | 656D6F5265666F726D617401010000001D000000070043617074696F6E001700
|
|---|
| 493 | 706F704E6F74654D656D6F53617665436F6E74696E756501010000001E000000
|
|---|
| 494 | 070043617074696F6E0003005A313100000F00706F704E6F74654D656D6F4669
|
|---|
| 495 | 6E6401010000001F000000070043617074696F6E001200706F704E6F74654D65
|
|---|
| 496 | 6D6F5265706C616365010100000020000000070043617074696F6E0003004E31
|
|---|
| 497 | 3400001200706F704E6F74654D656D6F4772616D6D6172010100000021000000
|
|---|
| 498 | 070043617074696F6E001000706F704E6F74654D656D6F5370656C6C01010000
|
|---|
| 499 | 0022000000070043617074696F6E0002004E3500001300706F704E6F74654D65
|
|---|
| 500 | 6D6F54656D706C617465010100000023000000070043617074696F6E0003005A
|
|---|
| 501 | 313000001300706F704E6F74654D656D6F5369676E4C69737401010000002400
|
|---|
| 502 | 0000070043617074696F6E001100706F704E6F74654D656D6F44656C65746501
|
|---|
| 503 | 0100000025000000070043617074696F6E000F00706F704E6F74654D656D6F45
|
|---|
| 504 | 646974010100000026000000070043617074696F6E001100706F704E6F74654D
|
|---|
| 505 | 656D6F416464656E64010100000027000000070043617074696F6E000F00706F
|
|---|
| 506 | 704E6F74654D656D6F53617665010100000028000000070043617074696F6E00
|
|---|
| 507 | 0F00706F704E6F74654D656D6F5369676E010100000029000000070043617074
|
|---|
| 508 | 696F6E001300706F704E6F74654D656D6F4164646C5369676E01010000002A00
|
|---|
| 509 | 0000070043617074696F6E0002004E3700001000706F704E6F74654D656D6F50
|
|---|
| 510 | 72696E7401010000002B000000070043617074696F6E0003004E313500001200
|
|---|
| 511 | 706F704E6F74654D656D6F5072657669657701010000002C0000000700436170
|
|---|
| 512 | 74696F6E001600706F704E6F74654D656D6F496E7354656D706C617465010100
|
|---|
| 513 | 00002D000000070043617074696F6E001400706F704E6F74654D656D6F456E63
|
|---|
| 514 | 6F756E74657201010000002E000000070043617074696F6E000E00706F70436F
|
|---|
| 515 | 6E73756C744C69737400000D00706F70436F6E73756C74416C6C01010000002F
|
|---|
| 516 | 000000070043617074696F6E001000706F70436F6E73756C7453746174757301
|
|---|
| 517 | 0100000030000000070043617074696F6E001100706F70436F6E73756C745365
|
|---|
| 518 | 7276696365010100000031000000070043617074696F6E000F00706F70436F6E
|
|---|
| 519 | 73756C744461746573010100000032000000070043617074696F6E001000706F
|
|---|
| 520 | 70436F6E73756C74437573746F6D010100000033000000070043617074696F6E
|
|---|
| 521 | 000B006D6E75436F6E73756C7473000007006D6E755669657701010000003400
|
|---|
| 522 | 0000070043617074696F6E000C006D6E75566965774368617274010100000035
|
|---|
| 523 | 000000070043617074696F6E000D006D6E754368617274436F76657201010000
|
|---|
| 524 | 0036000000070043617074696F6E000D006D6E75436861727450726F62730101
|
|---|
| 525 | 00000037000000070043617074696F6E000C006D6E7543686172744D65647301
|
|---|
| 526 | 0100000038000000070043617074696F6E000E006D6E7543686172744F726465
|
|---|
| 527 | 7273010100000039000000070043617074696F6E000D006D6E7543686172744E
|
|---|
| 528 | 6F74657301010000003A000000070043617074696F6E000D006D6E7543686172
|
|---|
| 529 | 7443736C747301010000003B000000070043617074696F6E000F006D6E754368
|
|---|
| 530 | 6172745375726765727901010000003C000000070043617074696F6E000E006D
|
|---|
| 531 | 6E754368617274444353756D6D01010000003D000000070043617074696F6E00
|
|---|
| 532 | 0C006D6E7543686172744C61627301010000003E000000070043617074696F6E
|
|---|
| 533 | 000F006D6E7543686172745265706F72747301010000003F0000000700436170
|
|---|
| 534 | 74696F6E0012006D6E7556696577496E666F726D6174696F6E01010000004000
|
|---|
| 535 | 0000070043617074696F6E000B006D6E755669657744656D6F01010000004100
|
|---|
| 536 | 0000070043617074696F6E000D006D6E75566965775669736974730101000000
|
|---|
| 537 | 42000000070043617074696F6E0012006D6E75566965775072696D6172794361
|
|---|
| 538 | 7265010100000043000000070043617074696F6E0013006D6E75566965774D79
|
|---|
| 539 | 4865616C746865566574010100000044000000070043617074696F6E000C006D
|
|---|
| 540 | 6E75496E737572616E6365010100000045000000070043617074696F6E000C00
|
|---|
| 541 | 6D6E7556696577466C616773010100000046000000070043617074696F6E0011
|
|---|
| 542 | 006D6E755669657752656D6F7465446174610101000000470000000700436170
|
|---|
| 543 | 74696F6E0010006D6E755669657752656D696E64657273010100000048000000
|
|---|
| 544 | 070043617074696F6E000F006D6E7556696577506F7374696E67730101000000
|
|---|
| 545 | 49000000070043617074696F6E0002005A3300000A006D6E7556696577416C6C
|
|---|
| 546 | 01010000004A000000070043617074696F6E000F006D6E755669657742795374
|
|---|
| 547 | 6174757301010000004B000000070043617074696F6E0010006D6E7556696577
|
|---|
| 548 | 42795365727669636501010000004C000000070043617074696F6E000D006D6E
|
|---|
| 549 | 755669657742794461746501010000004D000000070043617074696F6E000D00
|
|---|
| 550 | 6D6E7556696577437573746F6D01010000004E000000070043617074696F6E00
|
|---|
| 551 | 02004E34000014006D6E755669657753617665417344656661756C7401010000
|
|---|
| 552 | 004F000000070043617074696F6E0016006D6E755669657752657475726E746F
|
|---|
| 553 | 44656661756C74010100000050000000070043617074696F6E0003004E313300
|
|---|
| 554 | 000D006D6E7549636F6E4C6567656E6401010000005100000007004361707469
|
|---|
| 555 | 6F6E0006006D6E75416374010100000052000000070043617074696F6E000900
|
|---|
| 556 | 6D6E754163744E6577010200000053000000070043617074696F6E5400000004
|
|---|
| 557 | 0048696E740017006D6E754163744E6577436F6E73756C745265717565737401
|
|---|
| 558 | 0200000055000000070043617074696F6E56000000040048696E740012006D6E
|
|---|
| 559 | 754163744E657750726F63656475726501020000005700000007004361707469
|
|---|
| 560 | 6F6E58000000040048696E740002005A32000014006D6E75416374436F6E7375
|
|---|
| 561 | 6C7452657175657374010200000059000000070043617074696F6E5A00000004
|
|---|
| 562 | 0048696E74000D006D6E754163745265636569766501010000005B0000000700
|
|---|
| 563 | 43617074696F6E000E006D6E754163745363686564756C6501010000005C0000
|
|---|
| 564 | 00070043617074696F6E000A006D6E7541637444656E7901010000005D000000
|
|---|
| 565 | 070043617074696F6E0012006D6E754163744564697452657375626D69740101
|
|---|
| 566 | 0000005E000000070043617074696F6E0011006D6E75416374446973636F6E74
|
|---|
| 567 | 696E756501010000005F000000070043617074696F6E000D006D6E7541637446
|
|---|
| 568 | 6F7277617264010100000060000000070043617074696F6E0010006D6E754163
|
|---|
| 569 | 74416464436F6D6D656E74010100000061000000070043617074696F6E001100
|
|---|
| 570 | 6D6E7541637453696746696E64696E6773010100000062000000070043617074
|
|---|
| 571 | 696F6E0013006D6E7541637441646D696E436F6D706C65746501010000006300
|
|---|
| 572 | 0000070043617074696F6E0002004E33000014006D6E75416374446973706C61
|
|---|
| 573 | 7944657461696C73010100000064000000070043617074696F6E0014006D6E75
|
|---|
| 574 | 416374446973706C6179526573756C7473010100000065000000070043617074
|
|---|
| 575 | 696F6E0012006D6E75416374446973706C617953463531330101000000660000
|
|---|
| 576 | 00070043617074696F6E0010006D6E754163745072696E745346353133010100
|
|---|
| 577 | 000067000000070043617074696F6E0002004E31000014006D6E75416374436F
|
|---|
| 578 | 6E73756C74526573756C7473010100000068000000070043617074696F6E000E
|
|---|
| 579 | 006D6E75416374436F6D706C657465010100000069000000070043617074696F
|
|---|
| 580 | 6E0012006D6E754163744D616B65416464656E64756D01020000006A00000007
|
|---|
| 581 | 0043617074696F6E6B000000040048696E740010006D6E754163744164644944
|
|---|
| 582 | 456E74727901010000006C000000070043617074696F6E0016006D6E75416374
|
|---|
| 583 | 417474616368746F4944506172656E7401010000006D00000007004361707469
|
|---|
| 584 | 6F6E0018006D6E7541637444657461636846726F6D4944506172656E74010100
|
|---|
| 585 | 00006E000000070043617074696F6E0003004E313200000F006D6E7541637441
|
|---|
| 586 | 74746163684D656401010000006F000000070043617074696F6E000F006D6E75
|
|---|
| 587 | 41637452656D6F76654D6564010100000070000000070043617074696F6E0002
|
|---|
| 588 | 004E3900000C006D6E754163744368616E676501010000007100000007004361
|
|---|
| 589 | 7074696F6E0010006D6E754163744C6F6164426F696C65720101000000720000
|
|---|
| 590 | 00070043617074696F6E0002004E32000013006D6E754163745369676E617475
|
|---|
| 591 | 72654C697374010200000073000000070043617074696F6E7400000004004869
|
|---|
| 592 | 6E740010006D6E754163744E6F746544656C6574650101000000750000000700
|
|---|
| 593 | 43617074696F6E000E006D6E754163744E6F7465456469740101000000760000
|
|---|
| 594 | 00070043617074696F6E0013006D6E754163745369676E617475726553617665
|
|---|
| 595 | 010200000077000000070043617074696F6E78000000040048696E740013006D
|
|---|
| 596 | 6E754163745369676E61747572655369676E0101000000790000000700436170
|
|---|
| 597 | 74696F6E0019006D6E754163744964656E746966794164646C5369676E657273
|
|---|
| 598 | 01010000007A000000070043617074696F6E0002004E3800000F006D6E754163
|
|---|
| 599 | 744E6F74655072696E7401010000007B000000070043617074696F6E000A006D
|
|---|
| 600 | 6E754F7074696F6E7301010000007C000000070043617074696F6E0010006D6E
|
|---|
| 601 | 754564697454656D706C6174657301010000007D000000070043617074696F6E
|
|---|
| 602 | 000E006D6E754E657754656D706C61746501010000007E000000070043617074
|
|---|
| 603 | 696F6E0002004E36000016006D6E754564697453686172656454656D706C6174
|
|---|
| 604 | 657301010000007F000000070043617074696F6E0014006D6E754E6577536861
|
|---|
| 605 | 72656454656D706C617465010100000080000000070043617074696F6E000300
|
|---|
| 606 | 4E3130000012006D6E75456469744469616C674669656C647301010000008100
|
|---|
| 607 | 0000070043617074696F6E000B0074696D4175746F5361766500000B00706F70
|
|---|
| 608 | 4E6F74654C69737400001900706F704E6F74654C697374457870616E6453656C
|
|---|
| 609 | 6563746564010100000082000000070043617074696F6E001400706F704E6F74
|
|---|
| 610 | 654C697374457870616E64416C6C010100000083000000070043617074696F6E
|
|---|
| 611 | 001B00706F704E6F74654C697374436F6C6C6170736553656C65637465640101
|
|---|
| 612 | 00000084000000070043617074696F6E001600706F704E6F74654C697374436F
|
|---|
| 613 | 6C6C61707365416C6C010100000085000000070043617074696F6E0003004E31
|
|---|
| 614 | 3100001500706F704E6F74654C6973744164644944456E747279010100000086
|
|---|
| 615 | 000000070043617074696F6E001B00706F704E6F74654C697374417474616368
|
|---|
| 616 | 746F4944506172656E74010100000087000000070043617074696F6E001D0070
|
|---|
| 617 | 6F704E6F74654C69737444657461636846726F6D4944506172656E7401010000
|
|---|
| 618 | 0088000000070043617074696F6E000B00646C6746696E645465787400000E00
|
|---|
| 619 | 646C675265706C616365546578740000}
|
|---|
| 620 | end
|
|---|
| 621 | object popNoteMemo: TPopupMenu
|
|---|
| 622 | OnPopup = popNoteMemoPopup
|
|---|
| 623 | Left = 589
|
|---|
| 624 | Top = 304
|
|---|
| 625 | object popNoteMemoCut: TMenuItem
|
|---|
| 626 | Caption = 'Cu&t'
|
|---|
| 627 | ShortCut = 16472
|
|---|
| 628 | OnClick = popNoteMemoCutClick
|
|---|
| 629 | end
|
|---|
| 630 | object popNoteMemoCopy: TMenuItem
|
|---|
| 631 | Caption = '&Copy'
|
|---|
| 632 | ShortCut = 16451
|
|---|
| 633 | OnClick = popNoteMemoCopyClick
|
|---|
| 634 | end
|
|---|
| 635 | object popNoteMemoPaste: TMenuItem
|
|---|
| 636 | Caption = '&Paste'
|
|---|
| 637 | ShortCut = 16470
|
|---|
| 638 | OnClick = popNoteMemoPasteClick
|
|---|
| 639 | end
|
|---|
| 640 | object popNoteMemoPaste2: TMenuItem
|
|---|
| 641 | Caption = 'Paste2'
|
|---|
| 642 | ShortCut = 8237
|
|---|
| 643 | Visible = False
|
|---|
| 644 | OnClick = popNoteMemoPasteClick
|
|---|
| 645 | end
|
|---|
| 646 | object popNoteMemoReformat: TMenuItem
|
|---|
| 647 | Caption = 'Re&format Paragraph'
|
|---|
| 648 | ShortCut = 24658
|
|---|
| 649 | OnClick = popNoteMemoReformatClick
|
|---|
| 650 | end
|
|---|
| 651 | object popNoteMemoSaveContinue: TMenuItem
|
|---|
| 652 | Caption = 'Save && Continue Editing'
|
|---|
| 653 | ShortCut = 24659
|
|---|
| 654 | Visible = False
|
|---|
| 655 | OnClick = popNoteMemoSaveContinueClick
|
|---|
| 656 | end
|
|---|
| 657 | object Z11: TMenuItem
|
|---|
| 658 | Caption = '-'
|
|---|
| 659 | end
|
|---|
| 660 | object popNoteMemoFind: TMenuItem
|
|---|
| 661 | Caption = '&Find in Selected Note/Consult'
|
|---|
| 662 | OnClick = popNoteMemoFindClick
|
|---|
| 663 | end
|
|---|
| 664 | object popNoteMemoReplace: TMenuItem
|
|---|
| 665 | Caption = '&Replace Text'
|
|---|
| 666 | OnClick = popNoteMemoReplaceClick
|
|---|
| 667 | end
|
|---|
| 668 | object N14: TMenuItem
|
|---|
| 669 | Caption = '-'
|
|---|
| 670 | end
|
|---|
| 671 | object popNoteMemoGrammar: TMenuItem
|
|---|
| 672 | Caption = 'Check &Grammar'
|
|---|
| 673 | OnClick = popNoteMemoGrammarClick
|
|---|
| 674 | end
|
|---|
| 675 | object popNoteMemoSpell: TMenuItem
|
|---|
| 676 | Caption = 'C&heck Spelling'
|
|---|
| 677 | OnClick = popNoteMemoSpellClick
|
|---|
| 678 | end
|
|---|
| 679 | object N5: TMenuItem
|
|---|
| 680 | Caption = '-'
|
|---|
| 681 | end
|
|---|
| 682 | object popNoteMemoTemplate: TMenuItem
|
|---|
| 683 | Caption = 'Copy into New &Template'
|
|---|
| 684 | OnClick = popNoteMemoTemplateClick
|
|---|
| 685 | end
|
|---|
| 686 | object Z10: TMenuItem
|
|---|
| 687 | Caption = '-'
|
|---|
| 688 | end
|
|---|
| 689 | object popNoteMemoSignList: TMenuItem
|
|---|
| 690 | Caption = 'Add to Signature &List'
|
|---|
| 691 | OnClick = mnuActSignatureListClick
|
|---|
| 692 | end
|
|---|
| 693 | object popNoteMemoDelete: TMenuItem
|
|---|
| 694 | Caption = '&Delete Note...'
|
|---|
| 695 | OnClick = mnuActNoteDeleteClick
|
|---|
| 696 | end
|
|---|
| 697 | object popNoteMemoEdit: TMenuItem
|
|---|
| 698 | Caption = '&Edit Note...'
|
|---|
| 699 | OnClick = mnuActNoteEditClick
|
|---|
| 700 | end
|
|---|
| 701 | object popNoteMemoAddend: TMenuItem
|
|---|
| 702 | Caption = '&Make Addendum...'
|
|---|
| 703 | OnClick = mnuActMakeAddendumClick
|
|---|
| 704 | end
|
|---|
| 705 | object popNoteMemoSave: TMenuItem
|
|---|
| 706 | Caption = 'S&ave without Signature'
|
|---|
| 707 | OnClick = mnuActSignatureSaveClick
|
|---|
| 708 | end
|
|---|
| 709 | object popNoteMemoSign: TMenuItem
|
|---|
| 710 | Caption = '&Sign Note Now...'
|
|---|
| 711 | OnClick = mnuActSignatureSignClick
|
|---|
| 712 | end
|
|---|
| 713 | object popNoteMemoAddlSign: TMenuItem
|
|---|
| 714 | Caption = '&Identify Additional Signers'
|
|---|
| 715 | OnClick = popNoteMemoAddlSignClick
|
|---|
| 716 | end
|
|---|
| 717 | object N7: TMenuItem
|
|---|
| 718 | Caption = '-'
|
|---|
| 719 | end
|
|---|
| 720 | object popNoteMemoPrint: TMenuItem
|
|---|
| 721 | Caption = 'P&rint Note'
|
|---|
| 722 | OnClick = popNoteMemoPrintClick
|
|---|
| 723 | end
|
|---|
| 724 | object N15: TMenuItem
|
|---|
| 725 | Caption = '-'
|
|---|
| 726 | end
|
|---|
| 727 | object popNoteMemoPreview: TMenuItem
|
|---|
| 728 | Caption = 'Previe&w/Print Current Template'
|
|---|
| 729 | ShortCut = 16471
|
|---|
| 730 | OnClick = popNoteMemoPreviewClick
|
|---|
| 731 | end
|
|---|
| 732 | object popNoteMemoInsTemplate: TMenuItem
|
|---|
| 733 | Caption = 'Insert Current Template'
|
|---|
| 734 | ShortCut = 16429
|
|---|
| 735 | OnClick = popNoteMemoInsTemplateClick
|
|---|
| 736 | end
|
|---|
| 737 | object popNoteMemoEncounter: TMenuItem
|
|---|
| 738 | Caption = 'Edit Encounter Information'
|
|---|
| 739 | ShortCut = 16453
|
|---|
| 740 | OnClick = cmdPCEClick
|
|---|
| 741 | end
|
|---|
| 742 | end
|
|---|
| 743 | object popConsultList: TPopupMenu
|
|---|
| 744 | Left = 523
|
|---|
| 745 | Top = 308
|
|---|
| 746 | object popConsultAll: TMenuItem
|
|---|
| 747 | Tag = 1
|
|---|
| 748 | Caption = '&All Consults'
|
|---|
| 749 | OnClick = mnuViewClick
|
|---|
| 750 | end
|
|---|
| 751 | object popConsultStatus: TMenuItem
|
|---|
| 752 | Tag = 2
|
|---|
| 753 | Caption = 'Consults by Stat&us'
|
|---|
| 754 | OnClick = mnuViewClick
|
|---|
| 755 | end
|
|---|
| 756 | object popConsultService: TMenuItem
|
|---|
| 757 | Tag = 4
|
|---|
| 758 | Caption = 'Consults by &Service'
|
|---|
| 759 | OnClick = mnuViewClick
|
|---|
| 760 | end
|
|---|
| 761 | object popConsultDates: TMenuItem
|
|---|
| 762 | Tag = 5
|
|---|
| 763 | Caption = 'Consults by Date &Range'
|
|---|
| 764 | OnClick = mnuViewClick
|
|---|
| 765 | end
|
|---|
| 766 | object popConsultCustom: TMenuItem
|
|---|
| 767 | Tag = 6
|
|---|
| 768 | Caption = '&Custom View..'
|
|---|
| 769 | OnClick = mnuViewClick
|
|---|
| 770 | end
|
|---|
| 771 | end
|
|---|
| 772 | object mnuConsults: TMainMenu
|
|---|
| 773 | Left = 461
|
|---|
| 774 | Top = 305
|
|---|
| 775 | object mnuView: TMenuItem
|
|---|
| 776 | Caption = '&View'
|
|---|
| 777 | GroupIndex = 3
|
|---|
| 778 | object mnuViewChart: TMenuItem
|
|---|
| 779 | Caption = 'Chart &Tab'
|
|---|
| 780 | object mnuChartCover: TMenuItem
|
|---|
| 781 | Tag = 1
|
|---|
| 782 | Caption = 'Cover &Sheet'
|
|---|
| 783 | ShortCut = 16467
|
|---|
| 784 | OnClick = mnuChartTabClick
|
|---|
| 785 | end
|
|---|
| 786 | object mnuChartProbs: TMenuItem
|
|---|
| 787 | Tag = 2
|
|---|
| 788 | Caption = '&Problem List'
|
|---|
| 789 | ShortCut = 16464
|
|---|
| 790 | OnClick = mnuChartTabClick
|
|---|
| 791 | end
|
|---|
| 792 | object mnuChartMeds: TMenuItem
|
|---|
| 793 | Tag = 3
|
|---|
| 794 | Caption = '&Medications'
|
|---|
| 795 | ShortCut = 16461
|
|---|
| 796 | OnClick = mnuChartTabClick
|
|---|
| 797 | end
|
|---|
| 798 | object mnuChartOrders: TMenuItem
|
|---|
| 799 | Tag = 4
|
|---|
| 800 | Caption = '&Orders'
|
|---|
| 801 | ShortCut = 16463
|
|---|
| 802 | OnClick = mnuChartTabClick
|
|---|
| 803 | end
|
|---|
| 804 | object mnuChartNotes: TMenuItem
|
|---|
| 805 | Tag = 6
|
|---|
| 806 | Caption = 'Progress &Notes'
|
|---|
| 807 | ShortCut = 16462
|
|---|
| 808 | OnClick = mnuChartTabClick
|
|---|
| 809 | end
|
|---|
| 810 | object mnuChartCslts: TMenuItem
|
|---|
| 811 | Tag = 7
|
|---|
| 812 | Caption = 'Consul&ts'
|
|---|
| 813 | ShortCut = 16468
|
|---|
| 814 | OnClick = mnuChartTabClick
|
|---|
| 815 | end
|
|---|
| 816 | object mnuChartSurgery: TMenuItem
|
|---|
| 817 | Tag = 11
|
|---|
| 818 | Caption = 'S&urgery'
|
|---|
| 819 | ShortCut = 16469
|
|---|
| 820 | OnClick = mnuChartTabClick
|
|---|
| 821 | end
|
|---|
| 822 | object mnuChartDCSumm: TMenuItem
|
|---|
| 823 | Tag = 8
|
|---|
| 824 | Caption = '&Discharge Summaries'
|
|---|
| 825 | ShortCut = 16452
|
|---|
| 826 | OnClick = mnuChartTabClick
|
|---|
| 827 | end
|
|---|
| 828 | object mnuChartLabs: TMenuItem
|
|---|
| 829 | Tag = 9
|
|---|
| 830 | Caption = '&Laboratory'
|
|---|
| 831 | ShortCut = 16460
|
|---|
| 832 | OnClick = mnuChartTabClick
|
|---|
| 833 | end
|
|---|
| 834 | object mnuChartReports: TMenuItem
|
|---|
| 835 | Tag = 10
|
|---|
| 836 | Caption = '&Reports'
|
|---|
| 837 | ShortCut = 16466
|
|---|
| 838 | OnClick = mnuChartTabClick
|
|---|
| 839 | end
|
|---|
| 840 | end
|
|---|
| 841 | object mnuViewInformation: TMenuItem
|
|---|
| 842 | Caption = 'Information'
|
|---|
| 843 | OnClick = mnuViewInformationClick
|
|---|
| 844 | object mnuViewDemo: TMenuItem
|
|---|
| 845 | Tag = 1
|
|---|
| 846 | Caption = 'De&mographics...'
|
|---|
| 847 | OnClick = ViewInfo
|
|---|
| 848 | end
|
|---|
| 849 | object mnuViewVisits: TMenuItem
|
|---|
| 850 | Tag = 2
|
|---|
| 851 | Caption = 'Visits/Pr&ovider...'
|
|---|
| 852 | OnClick = ViewInfo
|
|---|
| 853 | end
|
|---|
| 854 | object mnuViewPrimaryCare: TMenuItem
|
|---|
| 855 | Tag = 3
|
|---|
| 856 | Caption = 'Primary &Care...'
|
|---|
| 857 | OnClick = ViewInfo
|
|---|
| 858 | end
|
|---|
| 859 | object mnuViewMyHealtheVet: TMenuItem
|
|---|
| 860 | Tag = 4
|
|---|
| 861 | Caption = 'MyHealthe&Vet...'
|
|---|
| 862 | OnClick = ViewInfo
|
|---|
| 863 | end
|
|---|
| 864 | object mnuInsurance: TMenuItem
|
|---|
| 865 | Tag = 5
|
|---|
| 866 | Caption = '&Insurance...'
|
|---|
| 867 | OnClick = ViewInfo
|
|---|
| 868 | end
|
|---|
| 869 | object mnuViewFlags: TMenuItem
|
|---|
| 870 | Tag = 6
|
|---|
| 871 | Caption = '&Flags...'
|
|---|
| 872 | OnClick = ViewInfo
|
|---|
| 873 | end
|
|---|
| 874 | object mnuViewRemoteData: TMenuItem
|
|---|
| 875 | Tag = 7
|
|---|
| 876 | Caption = 'Remote &Data...'
|
|---|
| 877 | OnClick = ViewInfo
|
|---|
| 878 | end
|
|---|
| 879 | object mnuViewReminders: TMenuItem
|
|---|
| 880 | Tag = 8
|
|---|
| 881 | Caption = '&Reminders...'
|
|---|
| 882 | Enabled = False
|
|---|
| 883 | OnClick = ViewInfo
|
|---|
| 884 | end
|
|---|
| 885 | object mnuViewPostings: TMenuItem
|
|---|
| 886 | Tag = 9
|
|---|
| 887 | Caption = '&Postings...'
|
|---|
| 888 | OnClick = ViewInfo
|
|---|
| 889 | end
|
|---|
| 890 | end
|
|---|
| 891 | object Z3: TMenuItem
|
|---|
| 892 | Caption = '-'
|
|---|
| 893 | end
|
|---|
| 894 | object mnuViewAll: TMenuItem
|
|---|
| 895 | Tag = 1
|
|---|
| 896 | Caption = '&All Consults'
|
|---|
| 897 | OnClick = mnuViewClick
|
|---|
| 898 | end
|
|---|
| 899 | object mnuViewByStatus: TMenuItem
|
|---|
| 900 | Tag = 2
|
|---|
| 901 | Caption = 'Consults by Stat&us'
|
|---|
| 902 | OnClick = mnuViewClick
|
|---|
| 903 | end
|
|---|
| 904 | object mnuViewByService: TMenuItem
|
|---|
| 905 | Tag = 4
|
|---|
| 906 | Caption = 'Consults by &Service'
|
|---|
| 907 | OnClick = mnuViewClick
|
|---|
| 908 | end
|
|---|
| 909 | object mnuViewByDate: TMenuItem
|
|---|
| 910 | Tag = 5
|
|---|
| 911 | Caption = 'Consults by Date &Range'
|
|---|
| 912 | OnClick = mnuViewClick
|
|---|
| 913 | end
|
|---|
| 914 | object mnuViewCustom: TMenuItem
|
|---|
| 915 | Tag = 6
|
|---|
| 916 | Caption = 'Custo&m View'
|
|---|
| 917 | OnClick = mnuViewClick
|
|---|
| 918 | end
|
|---|
| 919 | object N4: TMenuItem
|
|---|
| 920 | Caption = '-'
|
|---|
| 921 | end
|
|---|
| 922 | object mnuViewSaveAsDefault: TMenuItem
|
|---|
| 923 | Caption = 'Sa&ve as Default View'
|
|---|
| 924 | OnClick = mnuViewSaveAsDefaultClick
|
|---|
| 925 | end
|
|---|
| 926 | object mnuViewReturntoDefault: TMenuItem
|
|---|
| 927 | Caption = 'Return to De&fault View'
|
|---|
| 928 | OnClick = mnuViewReturntoDefaultClick
|
|---|
| 929 | end
|
|---|
| 930 | object N13: TMenuItem
|
|---|
| 931 | Caption = '-'
|
|---|
| 932 | end
|
|---|
| 933 | object mnuIconLegend: TMenuItem
|
|---|
| 934 | Caption = 'Icon Legend'
|
|---|
| 935 | OnClick = mnuIconLegendClick
|
|---|
| 936 | end
|
|---|
| 937 | end
|
|---|
| 938 | object mnuAct: TMenuItem
|
|---|
| 939 | Caption = '&Action'
|
|---|
| 940 | GroupIndex = 4
|
|---|
| 941 | object mnuActNew: TMenuItem
|
|---|
| 942 | Caption = '&New...'
|
|---|
| 943 | Hint = 'Add consults or procedures'
|
|---|
| 944 | object mnuActNewConsultRequest: TMenuItem
|
|---|
| 945 | Tag = 1
|
|---|
| 946 | Caption = '&Consult...'
|
|---|
| 947 | Hint = 'Creates a new consult'
|
|---|
| 948 | OnClick = mnuActNewConsultRequestClick
|
|---|
| 949 | end
|
|---|
| 950 | object mnuActNewProcedure: TMenuItem
|
|---|
| 951 | Tag = 9
|
|---|
| 952 | Caption = '&Procedure...'
|
|---|
| 953 | Hint = 'Creates a new procedure'
|
|---|
| 954 | OnClick = mnuActNewProcedureClick
|
|---|
| 955 | end
|
|---|
| 956 | end
|
|---|
| 957 | object Z2: TMenuItem
|
|---|
| 958 | Caption = '-'
|
|---|
| 959 | end
|
|---|
| 960 | object mnuActConsultRequest: TMenuItem
|
|---|
| 961 | Caption = '&Consult Tracking...'
|
|---|
| 962 | Hint = 'Actions related to the selected consult'
|
|---|
| 963 | object mnuActReceive: TMenuItem
|
|---|
| 964 | Tag = 1
|
|---|
| 965 | Caption = '&Receive'
|
|---|
| 966 | OnClick = mnuActConsultClick
|
|---|
| 967 | end
|
|---|
| 968 | object mnuActSchedule: TMenuItem
|
|---|
| 969 | Tag = 10
|
|---|
| 970 | Caption = 'Schedu&le'
|
|---|
| 971 | OnClick = mnuActConsultClick
|
|---|
| 972 | end
|
|---|
| 973 | object mnuActDeny: TMenuItem
|
|---|
| 974 | Tag = 2
|
|---|
| 975 | Caption = '&Cancel (Deny)'
|
|---|
| 976 | OnClick = mnuActConsultClick
|
|---|
| 977 | end
|
|---|
| 978 | object mnuActEditResubmit: TMenuItem
|
|---|
| 979 | Caption = '&Edit/Resubmit'
|
|---|
| 980 | OnClick = mnuActEditResubmitClick
|
|---|
| 981 | end
|
|---|
| 982 | object mnuActDiscontinue: TMenuItem
|
|---|
| 983 | Tag = 3
|
|---|
| 984 | Caption = '&Discontinue'
|
|---|
| 985 | OnClick = mnuActConsultClick
|
|---|
| 986 | end
|
|---|
| 987 | object mnuActForward: TMenuItem
|
|---|
| 988 | Tag = 4
|
|---|
| 989 | Caption = '&Forward'
|
|---|
| 990 | OnClick = mnuActConsultClick
|
|---|
| 991 | end
|
|---|
| 992 | object mnuActAddComment: TMenuItem
|
|---|
| 993 | Tag = 5
|
|---|
| 994 | Caption = '&Add Comment'
|
|---|
| 995 | OnClick = mnuActConsultClick
|
|---|
| 996 | end
|
|---|
| 997 | object mnuActSigFindings: TMenuItem
|
|---|
| 998 | Tag = 8
|
|---|
| 999 | Caption = '&Significant Findings'
|
|---|
| 1000 | OnClick = mnuActConsultClick
|
|---|
| 1001 | end
|
|---|
| 1002 | object mnuActAdminComplete: TMenuItem
|
|---|
| 1003 | Tag = 9
|
|---|
| 1004 | Caption = 'Ad&ministrative Complete'
|
|---|
| 1005 | OnClick = mnuActConsultClick
|
|---|
| 1006 | end
|
|---|
| 1007 | object N3: TMenuItem
|
|---|
| 1008 | Caption = '-'
|
|---|
| 1009 | end
|
|---|
| 1010 | object mnuActDisplayDetails: TMenuItem
|
|---|
| 1011 | Caption = 'Display De&tails'
|
|---|
| 1012 | OnClick = mnuActDisplayDetailsClick
|
|---|
| 1013 | end
|
|---|
| 1014 | object mnuActDisplayResults: TMenuItem
|
|---|
| 1015 | Caption = 'Display Res&ults'
|
|---|
| 1016 | OnClick = mnuActDisplayResultsClick
|
|---|
| 1017 | end
|
|---|
| 1018 | object mnuActDisplaySF513: TMenuItem
|
|---|
| 1019 | Caption = 'Display SF &513'
|
|---|
| 1020 | OnClick = mnuActDisplaySF513Click
|
|---|
| 1021 | end
|
|---|
| 1022 | object mnuActPrintSF513: TMenuItem
|
|---|
| 1023 | Caption = '&Print SF 513'
|
|---|
| 1024 | OnClick = mnuActPrintSF513Click
|
|---|
| 1025 | end
|
|---|
| 1026 | end
|
|---|
| 1027 | object N1: TMenuItem
|
|---|
| 1028 | Caption = '-'
|
|---|
| 1029 | end
|
|---|
| 1030 | object mnuActConsultResults: TMenuItem
|
|---|
| 1031 | Caption = 'Consult &Results...'
|
|---|
| 1032 | object mnuActComplete: TMenuItem
|
|---|
| 1033 | Tag = 6
|
|---|
| 1034 | Caption = 'Complete/&Update Results...'
|
|---|
| 1035 | ShortCut = 24661
|
|---|
| 1036 | OnClick = mnuActCompleteClick
|
|---|
| 1037 | end
|
|---|
| 1038 | object mnuActMakeAddendum: TMenuItem
|
|---|
| 1039 | Tag = 7
|
|---|
| 1040 | Caption = '&Make Addendum...'
|
|---|
| 1041 | Hint = 'Makes an addendum for the currently selected consult'
|
|---|
| 1042 | ShortCut = 24653
|
|---|
| 1043 | OnClick = mnuActMakeAddendumClick
|
|---|
| 1044 | end
|
|---|
| 1045 | object mnuActAddIDEntry: TMenuItem
|
|---|
| 1046 | Caption = 'Add Ne&w Entry to Interdisciplinary Note'
|
|---|
| 1047 | OnClick = mnuActAddIDEntryClick
|
|---|
| 1048 | end
|
|---|
| 1049 | object mnuActAttachtoIDParent: TMenuItem
|
|---|
| 1050 | Caption = 'Attach to Interdisciplinary Note'
|
|---|
| 1051 | OnClick = mnuActAttachtoIDParentClick
|
|---|
| 1052 | end
|
|---|
| 1053 | object mnuActDetachFromIDParent: TMenuItem
|
|---|
| 1054 | Caption = 'Detac&h from Interdisciplinary Note'
|
|---|
| 1055 | OnClick = mnuActDetachFromIDParentClick
|
|---|
| 1056 | end
|
|---|
| 1057 | object N12: TMenuItem
|
|---|
| 1058 | Caption = '-'
|
|---|
| 1059 | end
|
|---|
| 1060 | object mnuActAttachMed: TMenuItem
|
|---|
| 1061 | Caption = 'A&ttach Medicine Results'
|
|---|
| 1062 | OnClick = mnuActAttachMedClick
|
|---|
| 1063 | end
|
|---|
| 1064 | object mnuActRemoveMed: TMenuItem
|
|---|
| 1065 | Caption = 'Remo&ve Medicine Results'
|
|---|
| 1066 | OnClick = mnuActRemoveMedClick
|
|---|
| 1067 | end
|
|---|
| 1068 | object N9: TMenuItem
|
|---|
| 1069 | Caption = '-'
|
|---|
| 1070 | end
|
|---|
| 1071 | object mnuActChange: TMenuItem
|
|---|
| 1072 | Caption = '&Change Title...'
|
|---|
| 1073 | ShortCut = 24643
|
|---|
| 1074 | OnClick = mnuActChangeClick
|
|---|
| 1075 | end
|
|---|
| 1076 | object mnuActLoadBoiler: TMenuItem
|
|---|
| 1077 | Caption = 'Reload &Boilerplate Text'
|
|---|
| 1078 | OnClick = mnuActLoadBoilerClick
|
|---|
| 1079 | end
|
|---|
| 1080 | object N2: TMenuItem
|
|---|
| 1081 | Caption = '-'
|
|---|
| 1082 | end
|
|---|
| 1083 | object mnuActSignatureList: TMenuItem
|
|---|
| 1084 | Caption = 'Add to Signature &List'
|
|---|
| 1085 | Hint =
|
|---|
| 1086 | 'Adds the currently displayed consult to list of things to be sig' +
|
|---|
| 1087 | 'ned'
|
|---|
| 1088 | OnClick = mnuActSignatureListClick
|
|---|
| 1089 | end
|
|---|
| 1090 | object mnuActNoteDelete: TMenuItem
|
|---|
| 1091 | Caption = '&Delete Note...'
|
|---|
| 1092 | ShortCut = 24644
|
|---|
| 1093 | OnClick = mnuActNoteDeleteClick
|
|---|
| 1094 | end
|
|---|
| 1095 | object mnuActNoteEdit: TMenuItem
|
|---|
| 1096 | Caption = '&Edit Note...'
|
|---|
| 1097 | ShortCut = 24645
|
|---|
| 1098 | OnClick = mnuActNoteEditClick
|
|---|
| 1099 | end
|
|---|
| 1100 | object mnuActSignatureSave: TMenuItem
|
|---|
| 1101 | Caption = 'S&ave Without Signature'
|
|---|
| 1102 | Hint = 'Saves the consult that is being edited'
|
|---|
| 1103 | ShortCut = 24641
|
|---|
| 1104 | OnClick = mnuActSignatureSaveClick
|
|---|
| 1105 | end
|
|---|
| 1106 | object mnuActSignatureSign: TMenuItem
|
|---|
| 1107 | Caption = 'Si&gn Note Now...'
|
|---|
| 1108 | ShortCut = 24647
|
|---|
| 1109 | OnClick = mnuActSignatureSignClick
|
|---|
| 1110 | end
|
|---|
| 1111 | object mnuActIdentifyAddlSigners: TMenuItem
|
|---|
| 1112 | Caption = '&Identify Additional Signers'
|
|---|
| 1113 | OnClick = mnuActIdentifyAddlSignersClick
|
|---|
| 1114 | end
|
|---|
| 1115 | object N8: TMenuItem
|
|---|
| 1116 | Caption = '-'
|
|---|
| 1117 | end
|
|---|
| 1118 | object mnuActNotePrint: TMenuItem
|
|---|
| 1119 | Caption = 'P&rint Note'
|
|---|
| 1120 | OnClick = mnuActNotePrintClick
|
|---|
| 1121 | end
|
|---|
| 1122 | end
|
|---|
| 1123 | end
|
|---|
| 1124 | object mnuOptions: TMenuItem
|
|---|
| 1125 | Caption = '&Options'
|
|---|
| 1126 | GroupIndex = 4
|
|---|
| 1127 | OnClick = mnuOptionsClick
|
|---|
| 1128 | object mnuEditTemplates: TMenuItem
|
|---|
| 1129 | Caption = 'Edit &Templates...'
|
|---|
| 1130 | OnClick = mnuEditTemplatesClick
|
|---|
| 1131 | end
|
|---|
| 1132 | object mnuNewTemplate: TMenuItem
|
|---|
| 1133 | Caption = 'Create &New Template...'
|
|---|
| 1134 | OnClick = mnuNewTemplateClick
|
|---|
| 1135 | end
|
|---|
| 1136 | object N6: TMenuItem
|
|---|
| 1137 | Caption = '-'
|
|---|
| 1138 | end
|
|---|
| 1139 | object mnuEditSharedTemplates: TMenuItem
|
|---|
| 1140 | Caption = 'Edit &Shared Templates...'
|
|---|
| 1141 | OnClick = mnuEditSharedTemplatesClick
|
|---|
| 1142 | end
|
|---|
| 1143 | object mnuNewSharedTemplate: TMenuItem
|
|---|
| 1144 | Caption = '&Create New Shared Template...'
|
|---|
| 1145 | OnClick = mnuNewSharedTemplateClick
|
|---|
| 1146 | end
|
|---|
| 1147 | object N10: TMenuItem
|
|---|
| 1148 | Caption = '-'
|
|---|
| 1149 | end
|
|---|
| 1150 | object mnuEditDialgFields: TMenuItem
|
|---|
| 1151 | Caption = 'Edit Template &Fields'
|
|---|
| 1152 | OnClick = mnuEditDialgFieldsClick
|
|---|
| 1153 | end
|
|---|
| 1154 | end
|
|---|
| 1155 | end
|
|---|
| 1156 | object timAutoSave: TTimer
|
|---|
| 1157 | Enabled = False
|
|---|
| 1158 | Interval = 300000
|
|---|
| 1159 | OnTimer = timAutoSaveTimer
|
|---|
| 1160 | Left = 602
|
|---|
| 1161 | Top = 110
|
|---|
| 1162 | end
|
|---|
| 1163 | object popNoteList: TPopupMenu
|
|---|
| 1164 | OnPopup = popNoteListPopup
|
|---|
| 1165 | Left = 395
|
|---|
| 1166 | Top = 307
|
|---|
| 1167 | object popNoteListExpandSelected: TMenuItem
|
|---|
| 1168 | Caption = '&Expand Selected'
|
|---|
| 1169 | OnClick = popNoteListExpandSelectedClick
|
|---|
| 1170 | end
|
|---|
| 1171 | object popNoteListExpandAll: TMenuItem
|
|---|
| 1172 | Caption = 'E&xpand All'
|
|---|
| 1173 | OnClick = popNoteListExpandAllClick
|
|---|
| 1174 | end
|
|---|
| 1175 | object popNoteListCollapseSelected: TMenuItem
|
|---|
| 1176 | Caption = 'C&ollapse Selected'
|
|---|
| 1177 | OnClick = popNoteListCollapseSelectedClick
|
|---|
| 1178 | end
|
|---|
| 1179 | object popNoteListCollapseAll: TMenuItem
|
|---|
| 1180 | Caption = 'Co&llapse All'
|
|---|
| 1181 | OnClick = popNoteListCollapseAllClick
|
|---|
| 1182 | end
|
|---|
| 1183 | object N11: TMenuItem
|
|---|
| 1184 | Caption = '-'
|
|---|
| 1185 | end
|
|---|
| 1186 | object popNoteListAddIDEntry: TMenuItem
|
|---|
| 1187 | Caption = 'Add Ne&w Entry to Interdisciplinary Note'
|
|---|
| 1188 | OnClick = mnuActAddIDEntryClick
|
|---|
| 1189 | end
|
|---|
| 1190 | object popNoteListAttachtoIDParent: TMenuItem
|
|---|
| 1191 | Caption = 'Attach to Interdisciplinary Note'
|
|---|
| 1192 | OnClick = mnuActAttachtoIDParentClick
|
|---|
| 1193 | end
|
|---|
| 1194 | object popNoteListDetachFromIDParent: TMenuItem
|
|---|
| 1195 | Caption = 'Detac&h from Interdisciplinary Note'
|
|---|
| 1196 | OnClick = mnuActDetachFromIDParentClick
|
|---|
| 1197 | end
|
|---|
| 1198 | end
|
|---|
| 1199 | object dlgFindText: TFindDialog
|
|---|
| 1200 | Options = [frDown, frHideUpDown]
|
|---|
| 1201 | OnFind = dlgFindTextFind
|
|---|
| 1202 | Left = 628
|
|---|
| 1203 | Top = 303
|
|---|
| 1204 | end
|
|---|
| 1205 | object dlgReplaceText: TReplaceDialog
|
|---|
| 1206 | OnFind = dlgReplaceTextFind
|
|---|
| 1207 | OnReplace = dlgReplaceTextReplace
|
|---|
| 1208 | Left = 665
|
|---|
| 1209 | Top = 303
|
|---|
| 1210 | end
|
|---|
| 1211 | end
|
|---|
