[459] | 1 | inherited frmODCslt: TfrmODCslt
|
---|
| 2 | Tag = 110
|
---|
| 3 | Left = 377
|
---|
| 4 | Top = 11
|
---|
| 5 | Width = 536
|
---|
| 6 | Height = 321
|
---|
| 7 | HorzScrollBar.Range = 528
|
---|
| 8 | HorzScrollBar.Visible = True
|
---|
| 9 | VertScrollBar.Range = 294
|
---|
| 10 | VertScrollBar.Visible = True
|
---|
| 11 | AutoScroll = False
|
---|
| 12 | Caption = 'Order a Consult'
|
---|
| 13 | Font.Charset = ANSI_CHARSET
|
---|
| 14 | PixelsPerInch = 96
|
---|
| 15 | TextHeight = 13
|
---|
| 16 | object lblService: TLabel [0]
|
---|
| 17 | Left = 1
|
---|
| 18 | Top = 2
|
---|
| 19 | Width = 134
|
---|
| 20 | Height = 13
|
---|
| 21 | Caption = 'Consult to Service/Specialty'
|
---|
| 22 | end
|
---|
| 23 | object pnlReason: TPanel [1]
|
---|
| 24 | Left = 3
|
---|
| 25 | Top = 117
|
---|
| 26 | Width = 516
|
---|
| 27 | Height = 132
|
---|
| 28 | Anchors = [akLeft, akTop, akRight, akBottom]
|
---|
| 29 | BevelOuter = bvNone
|
---|
| 30 | TabOrder = 11
|
---|
| 31 | object lblReason: TLabel
|
---|
| 32 | Left = 0
|
---|
| 33 | Top = 0
|
---|
| 34 | Width = 516
|
---|
| 35 | Height = 13
|
---|
| 36 | Align = alTop
|
---|
| 37 | Caption = 'Reason for Request'
|
---|
| 38 | end
|
---|
| 39 | object memReason: TRichEdit
|
---|
| 40 | Left = 0
|
---|
| 41 | Top = 13
|
---|
| 42 | Width = 516
|
---|
| 43 | Height = 119
|
---|
| 44 | Align = alClient
|
---|
| 45 | Font.Charset = ANSI_CHARSET
|
---|
| 46 | Font.Color = clWindowText
|
---|
| 47 | Font.Height = -11
|
---|
| 48 | Font.Name = 'Courier New'
|
---|
| 49 | Font.Style = []
|
---|
| 50 | ParentFont = False
|
---|
| 51 | PopupMenu = popReason
|
---|
| 52 | ScrollBars = ssBoth
|
---|
| 53 | TabOrder = 0
|
---|
| 54 | WantTabs = True
|
---|
| 55 | OnChange = ControlChange
|
---|
| 56 | OnExit = memReasonExit
|
---|
| 57 | OnKeyDown = memReasonKeyDown
|
---|
| 58 | OnKeyPress = memReasonKeyPress
|
---|
| 59 | OnKeyUp = memReasonKeyUp
|
---|
| 60 | end
|
---|
| 61 | end
|
---|
| 62 | object lblUrgency: TStaticText [2]
|
---|
| 63 | Left = 239
|
---|
| 64 | Top = 2
|
---|
| 65 | Width = 44
|
---|
| 66 | Height = 17
|
---|
| 67 | Anchors = [akTop, akRight]
|
---|
| 68 | Caption = 'Urgency'
|
---|
| 69 | TabOrder = 17
|
---|
| 70 | end
|
---|
| 71 | object lblPlace: TStaticText [3]
|
---|
| 72 | Left = 384
|
---|
| 73 | Top = 43
|
---|
| 74 | Width = 104
|
---|
| 75 | Height = 17
|
---|
| 76 | Anchors = [akTop, akRight]
|
---|
| 77 | Caption = 'Place of Consultation'
|
---|
| 78 | TabOrder = 18
|
---|
| 79 | end
|
---|
| 80 | object lblAttn: TStaticText [4]
|
---|
| 81 | Left = 384
|
---|
| 82 | Top = 2
|
---|
| 83 | Width = 46
|
---|
| 84 | Height = 17
|
---|
| 85 | Anchors = [akTop, akRight]
|
---|
| 86 | Caption = 'Attention'
|
---|
| 87 | TabOrder = 19
|
---|
| 88 | end
|
---|
| 89 | object lblProvDiag: TStaticText [5]
|
---|
| 90 | Left = 239
|
---|
| 91 | Top = 81
|
---|
| 92 | Width = 104
|
---|
| 93 | Height = 17
|
---|
| 94 | Anchors = [akTop, akRight]
|
---|
| 95 | Caption = 'Provisional Diagnosis'
|
---|
| 96 | TabOrder = 20
|
---|
| 97 | end
|
---|
| 98 | inherited memOrder: TCaptionMemo
|
---|
| 99 | Left = 3
|
---|
| 100 | Top = 255
|
---|
| 101 | Width = 347
|
---|
| 102 | Height = 36
|
---|
| 103 | Anchors = [akLeft, akRight, akBottom]
|
---|
| 104 | Lines.Strings = (
|
---|
| 105 | 'The order text...'
|
---|
| 106 | '----------------------------------------------'
|
---|
| 107 | '--------------------------------'
|
---|
| 108 | 'An order message may be displayed here.')
|
---|
| 109 | TabOrder = 1
|
---|
| 110 | end
|
---|
| 111 | inherited cmdAccept: TButton
|
---|
| 112 | Left = 357
|
---|
| 113 | Top = 265
|
---|
| 114 | Anchors = [akRight, akBottom]
|
---|
| 115 | TabOrder = 12
|
---|
| 116 | end
|
---|
| 117 | inherited cmdQuit: TButton
|
---|
| 118 | Left = 453
|
---|
| 119 | Top = 265
|
---|
| 120 | Width = 61
|
---|
| 121 | Anchors = [akRight, akBottom]
|
---|
| 122 | TabOrder = 13
|
---|
| 123 | end
|
---|
| 124 | inherited pnlMessage: TPanel
|
---|
| 125 | Left = 61
|
---|
| 126 | Top = 245
|
---|
| 127 | Width = 277
|
---|
| 128 | Anchors = [akLeft, akRight, akBottom]
|
---|
| 129 | TabOrder = 14
|
---|
| 130 | inherited memMessage: TRichEdit
|
---|
| 131 | Width = 227
|
---|
| 132 | end
|
---|
| 133 | end
|
---|
| 134 | object cboService: TORComboBox
|
---|
| 135 | Left = 0
|
---|
| 136 | Top = 16
|
---|
| 137 | Width = 204
|
---|
| 138 | Height = 73
|
---|
| 139 | Anchors = [akLeft, akTop, akRight]
|
---|
| 140 | Style = orcsSimple
|
---|
| 141 | AutoSelect = True
|
---|
| 142 | Caption = 'Consult to Service/Specialty'
|
---|
| 143 | Color = clWindow
|
---|
| 144 | DropDownCount = 12
|
---|
| 145 | ItemHeight = 13
|
---|
| 146 | ItemTipColor = clWindow
|
---|
| 147 | ItemTipEnable = True
|
---|
| 148 | ListItemsOnly = True
|
---|
| 149 | LongList = False
|
---|
| 150 | LookupPiece = 0
|
---|
| 151 | MaxLength = 0
|
---|
| 152 | Pieces = '2'
|
---|
| 153 | Sorted = False
|
---|
| 154 | SynonymChars = '<>'
|
---|
| 155 | TabOrder = 0
|
---|
| 156 | OnChange = ControlChange
|
---|
| 157 | OnClick = cboServiceSelect
|
---|
| 158 | OnKeyDown = cboServiceKeyDown
|
---|
| 159 | OnKeyUp = cboServiceKeyUp
|
---|
| 160 | CharsNeedMatch = 1
|
---|
| 161 | end
|
---|
| 162 | object cboUrgency: TORComboBox
|
---|
| 163 | Left = 239
|
---|
| 164 | Top = 16
|
---|
| 165 | Width = 133
|
---|
| 166 | Height = 21
|
---|
| 167 | Anchors = [akTop, akRight]
|
---|
| 168 | Style = orcsDropDown
|
---|
| 169 | AutoSelect = True
|
---|
| 170 | Caption = 'Urgency'
|
---|
| 171 | Color = clWindow
|
---|
| 172 | DropDownCount = 8
|
---|
| 173 | ItemHeight = 13
|
---|
| 174 | ItemTipColor = clWindow
|
---|
| 175 | ItemTipEnable = True
|
---|
| 176 | ListItemsOnly = True
|
---|
| 177 | LongList = False
|
---|
| 178 | LookupPiece = 0
|
---|
| 179 | MaxLength = 0
|
---|
| 180 | Pieces = '2'
|
---|
| 181 | Sorted = False
|
---|
| 182 | SynonymChars = '<>'
|
---|
| 183 | TabOrder = 4
|
---|
| 184 | TabStop = True
|
---|
| 185 | OnChange = ControlChange
|
---|
| 186 | CharsNeedMatch = 1
|
---|
| 187 | end
|
---|
| 188 | object cboPlace: TORComboBox
|
---|
| 189 | Left = 384
|
---|
| 190 | Top = 56
|
---|
| 191 | Width = 136
|
---|
| 192 | Height = 21
|
---|
| 193 | Anchors = [akTop, akRight]
|
---|
| 194 | Style = orcsDropDown
|
---|
| 195 | AutoSelect = True
|
---|
| 196 | Caption = 'Place of Consultation'
|
---|
| 197 | Color = clWindow
|
---|
| 198 | DropDownCount = 8
|
---|
| 199 | ItemHeight = 13
|
---|
| 200 | ItemTipColor = clWindow
|
---|
| 201 | ItemTipEnable = True
|
---|
| 202 | ListItemsOnly = True
|
---|
| 203 | LongList = False
|
---|
| 204 | LookupPiece = 0
|
---|
| 205 | MaxLength = 0
|
---|
| 206 | Pieces = '2'
|
---|
| 207 | Sorted = False
|
---|
| 208 | SynonymChars = '<>'
|
---|
| 209 | TabOrder = 7
|
---|
| 210 | OnChange = ControlChange
|
---|
| 211 | CharsNeedMatch = 1
|
---|
| 212 | end
|
---|
| 213 | object txtProvDiag: TCaptionEdit
|
---|
| 214 | Left = 239
|
---|
| 215 | Top = 94
|
---|
| 216 | Width = 231
|
---|
| 217 | Height = 21
|
---|
| 218 | Anchors = [akTop, akRight]
|
---|
| 219 | ParentShowHint = False
|
---|
| 220 | PopupMenu = mnuPopProvDx
|
---|
| 221 | ShowHint = True
|
---|
| 222 | TabOrder = 9
|
---|
| 223 | OnChange = txtProvDiagChange
|
---|
| 224 | Caption = 'Provisional Diagnosis'
|
---|
| 225 | end
|
---|
| 226 | object txtAttn: TORComboBox
|
---|
| 227 | Left = 384
|
---|
| 228 | Top = 16
|
---|
| 229 | Width = 136
|
---|
| 230 | Height = 21
|
---|
| 231 | Anchors = [akTop, akRight]
|
---|
| 232 | Style = orcsDropDown
|
---|
| 233 | AutoSelect = True
|
---|
| 234 | Caption = 'Attention'
|
---|
| 235 | Color = clWindow
|
---|
| 236 | DropDownCount = 8
|
---|
| 237 | ItemHeight = 13
|
---|
| 238 | ItemTipColor = clWindow
|
---|
| 239 | ItemTipEnable = True
|
---|
| 240 | ListItemsOnly = True
|
---|
| 241 | LongList = True
|
---|
| 242 | LookupPiece = 2
|
---|
| 243 | MaxLength = 0
|
---|
| 244 | Pieces = '2,3'
|
---|
| 245 | Sorted = False
|
---|
| 246 | SynonymChars = '<>'
|
---|
| 247 | TabOrder = 5
|
---|
| 248 | OnChange = ControlChange
|
---|
| 249 | OnNeedData = txtAttnNeedData
|
---|
| 250 | CharsNeedMatch = 1
|
---|
| 251 | end
|
---|
| 252 | object treService: TORTreeView
|
---|
| 253 | Left = 0
|
---|
| 254 | Top = 37
|
---|
| 255 | Width = 228
|
---|
| 256 | Height = 201
|
---|
| 257 | Anchors = [akLeft, akTop, akRight, akBottom]
|
---|
| 258 | Font.Charset = DEFAULT_CHARSET
|
---|
| 259 | Font.Color = clWindowText
|
---|
| 260 | Font.Height = -9
|
---|
| 261 | Font.Name = 'MS Sans Serif'
|
---|
| 262 | Font.Style = []
|
---|
| 263 | HideSelection = False
|
---|
| 264 | Indent = 19
|
---|
| 265 | ParentFont = False
|
---|
| 266 | ReadOnly = True
|
---|
| 267 | TabOrder = 3
|
---|
| 268 | Visible = False
|
---|
| 269 | OnChange = treServiceChange
|
---|
| 270 | OnCollapsing = treServiceCollapsing
|
---|
| 271 | OnExit = treServiceExit
|
---|
| 272 | OnKeyDown = treServiceKeyDown
|
---|
| 273 | OnKeyUp = treServiceKeyUp
|
---|
| 274 | OnMouseDown = treServiceMouseDown
|
---|
| 275 | Caption = 'object lblService: TLabel'
|
---|
| 276 | NodePiece = 0
|
---|
| 277 | end
|
---|
| 278 | object cboCategory: TORComboBox
|
---|
| 279 | Left = 225
|
---|
| 280 | Top = -5
|
---|
| 281 | Width = 5
|
---|
| 282 | Height = 21
|
---|
| 283 | Style = orcsDropDown
|
---|
| 284 | AutoSelect = True
|
---|
| 285 | Color = clWindow
|
---|
| 286 | DropDownCount = 8
|
---|
| 287 | ItemHeight = 13
|
---|
| 288 | ItemTipColor = clWindow
|
---|
| 289 | ItemTipEnable = True
|
---|
| 290 | ListItemsOnly = False
|
---|
| 291 | LongList = False
|
---|
| 292 | LookupPiece = 0
|
---|
| 293 | MaxLength = 0
|
---|
| 294 | Sorted = False
|
---|
| 295 | SynonymChars = '<>'
|
---|
| 296 | TabOrder = 15
|
---|
| 297 | Visible = False
|
---|
| 298 | CharsNeedMatch = 1
|
---|
| 299 | end
|
---|
| 300 | object pnlServiceTreeButton: TKeyClickPanel
|
---|
| 301 | Left = 204
|
---|
| 302 | Top = 14
|
---|
| 303 | Width = 25
|
---|
| 304 | Height = 24
|
---|
| 305 | Hint = 'View services/specialties hierarchically'
|
---|
| 306 | Anchors = [akTop, akRight]
|
---|
| 307 | BevelOuter = bvNone
|
---|
| 308 | Caption = 'View services/specialties hierarchically'
|
---|
| 309 | TabOrder = 2
|
---|
| 310 | TabStop = True
|
---|
| 311 | OnClick = btnServiceTreeClick
|
---|
| 312 | OnEnter = pnlServiceTreeButtonEnter
|
---|
| 313 | OnExit = pnlServiceTreeButtonExit
|
---|
| 314 | object btnServiceTree: TSpeedButton
|
---|
| 315 | Left = 1
|
---|
| 316 | Top = 1
|
---|
| 317 | Width = 23
|
---|
| 318 | Height = 22
|
---|
| 319 | Glyph.Data = {
|
---|
| 320 | 26050000424D26050000000000003604000028000000100000000F0000000100
|
---|
| 321 | 080000000000F000000000000000000000000001000000010000000000000000
|
---|
| 322 | 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
|
---|
| 323 | A6000020400000206000002080000020A0000020C0000020E000004000000040
|
---|
| 324 | 20000040400000406000004080000040A0000040C0000040E000006000000060
|
---|
| 325 | 20000060400000606000006080000060A0000060C0000060E000008000000080
|
---|
| 326 | 20000080400000806000008080000080A0000080C0000080E00000A0000000A0
|
---|
| 327 | 200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
|
---|
| 328 | 200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
|
---|
| 329 | 200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
|
---|
| 330 | 20004000400040006000400080004000A0004000C0004000E000402000004020
|
---|
| 331 | 20004020400040206000402080004020A0004020C0004020E000404000004040
|
---|
| 332 | 20004040400040406000404080004040A0004040C0004040E000406000004060
|
---|
| 333 | 20004060400040606000406080004060A0004060C0004060E000408000004080
|
---|
| 334 | 20004080400040806000408080004080A0004080C0004080E00040A0000040A0
|
---|
| 335 | 200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
|
---|
| 336 | 200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
|
---|
| 337 | 200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
|
---|
| 338 | 20008000400080006000800080008000A0008000C0008000E000802000008020
|
---|
| 339 | 20008020400080206000802080008020A0008020C0008020E000804000008040
|
---|
| 340 | 20008040400080406000804080008040A0008040C0008040E000806000008060
|
---|
| 341 | 20008060400080606000806080008060A0008060C0008060E000808000008080
|
---|
| 342 | 20008080400080806000808080008080A0008080C0008080E00080A0000080A0
|
---|
| 343 | 200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
|
---|
| 344 | 200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
|
---|
| 345 | 200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
|
---|
| 346 | 2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
|
---|
| 347 | 2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
|
---|
| 348 | 2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
|
---|
| 349 | 2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
|
---|
| 350 | 2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
|
---|
| 351 | 2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
|
---|
| 352 | 2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
|
---|
| 353 | FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFF0700
|
---|
| 354 | 07FFFFFFFFFFFFFFFFFFFFA4A407000400FF040404040404FFFFFFA4FFFF0700
|
---|
| 355 | 07FFFFFFFFFFFFFFFFFFFFA4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA4FFFFFFFF
|
---|
| 356 | FFFF070007FFFFFFFFFFFFA4FFFFFFA4A407000400FF04040404FFA4FFFFFFA4
|
---|
| 357 | FFFF070007FFFFFFFFFFFFA4FFFFFF07FFFFFFFFFFFFFFFFFFFFFFA4FFFF0700
|
---|
| 358 | 07FFFFFFFFFFFFFFFFFFFFA4A407000400FF0404040404FFFFFFFFA4FFFF0700
|
---|
| 359 | 07FFFFFFFFFFFFFFFFFFFF07FFFFFFFFFFFFFFFFFFFFFFFFFFFF070007FFFFFF
|
---|
| 360 | FFFFFFFFFFFFFFFFFFFF00FB00FF0404040404FFFFFFFFFFFFFF070007FFFFFF
|
---|
| 361 | FFFFFFFFFFFFFFFFFFFF}
|
---|
| 362 | OnClick = btnServiceTreeClick
|
---|
| 363 | end
|
---|
| 364 | end
|
---|
| 365 | object cmdLexSearch: TButton
|
---|
| 366 | Left = 473
|
---|
| 367 | Top = 96
|
---|
| 368 | Width = 49
|
---|
| 369 | Height = 17
|
---|
| 370 | Anchors = [akTop, akRight]
|
---|
| 371 | Caption = 'Lexicon'
|
---|
| 372 | TabOrder = 10
|
---|
| 373 | OnClick = cmdLexSearchClick
|
---|
| 374 | end
|
---|
| 375 | object gbInptOpt: TGroupBox
|
---|
| 376 | Left = 239
|
---|
| 377 | Top = 35
|
---|
| 378 | Width = 140
|
---|
| 379 | Height = 45
|
---|
| 380 | Anchors = [akTop, akRight]
|
---|
| 381 | Caption = 'Patient will be seen as an:'
|
---|
| 382 | TabOrder = 6
|
---|
| 383 | object radInpatient: TRadioButton
|
---|
| 384 | Left = 3
|
---|
| 385 | Top = 20
|
---|
| 386 | Width = 61
|
---|
| 387 | Height = 13
|
---|
| 388 | Caption = '&Inpatient'
|
---|
| 389 | TabOrder = 0
|
---|
| 390 | OnClick = radInpatientClick
|
---|
| 391 | end
|
---|
| 392 | object radOutpatient: TRadioButton
|
---|
| 393 | Left = 67
|
---|
| 394 | Top = 20
|
---|
| 395 | Width = 70
|
---|
| 396 | Height = 13
|
---|
| 397 | Caption = '&Outpatient'
|
---|
| 398 | TabOrder = 1
|
---|
| 399 | OnClick = radOutpatientClick
|
---|
| 400 | end
|
---|
| 401 | end
|
---|
| 402 | object btnDiagnosis: TButton
|
---|
| 403 | Left = 473
|
---|
| 404 | Top = 95
|
---|
| 405 | Width = 52
|
---|
| 406 | Height = 20
|
---|
| 407 | Anchors = [akTop, akRight]
|
---|
| 408 | Caption = 'Diagnosis'
|
---|
| 409 | TabOrder = 8
|
---|
| 410 | OnClick = btnDiagnosisClick
|
---|
| 411 | end
|
---|
| 412 | object mnuPopProvDx: TPopupMenu
|
---|
| 413 | Left = 353
|
---|
| 414 | Top = 77
|
---|
| 415 | object mnuPopProvDxDelete: TMenuItem
|
---|
| 416 | Caption = 'Delete diagnosis'
|
---|
| 417 | OnClick = mnuPopProvDxDeleteClick
|
---|
| 418 | end
|
---|
| 419 | end
|
---|
| 420 | object popReason: TPopupMenu
|
---|
| 421 | OnPopup = popReasonPopup
|
---|
| 422 | Left = 411
|
---|
| 423 | Top = 169
|
---|
| 424 | object popReasonCut: TMenuItem
|
---|
| 425 | Caption = 'Cu&t'
|
---|
| 426 | ShortCut = 16472
|
---|
| 427 | OnClick = popReasonCutClick
|
---|
| 428 | end
|
---|
| 429 | object popReasonCopy: TMenuItem
|
---|
| 430 | Caption = '&Copy'
|
---|
| 431 | ShortCut = 16451
|
---|
| 432 | OnClick = popReasonCopyClick
|
---|
| 433 | end
|
---|
| 434 | object popReasonPaste: TMenuItem
|
---|
| 435 | Caption = '&Paste'
|
---|
| 436 | ShortCut = 16470
|
---|
| 437 | OnClick = popReasonPasteClick
|
---|
| 438 | end
|
---|
| 439 | object popReasonPaste2: TMenuItem
|
---|
| 440 | Caption = 'Paste2'
|
---|
| 441 | ShortCut = 8237
|
---|
| 442 | Visible = False
|
---|
| 443 | OnClick = popReasonPasteClick
|
---|
| 444 | end
|
---|
| 445 | object popReasonReformat: TMenuItem
|
---|
| 446 | Caption = 'Reformat Paragraph'
|
---|
| 447 | ShortCut = 16466
|
---|
| 448 | OnClick = popReasonReformatClick
|
---|
| 449 | end
|
---|
| 450 | end
|
---|
| 451 | end
|
---|