[453] | 1 | inherited frmODProc: TfrmODProc
|
---|
| 2 | Tag = 112
|
---|
| 3 | Left = 208
|
---|
| 4 | Top = 188
|
---|
| 5 | Width = 543
|
---|
| 6 | Height = 393
|
---|
| 7 | HorzScrollBar.Range = 523
|
---|
| 8 | VertScrollBar.Range = 295
|
---|
| 9 | Caption = 'Order a Procedure'
|
---|
| 10 | Constraints.MinHeight = 393
|
---|
| 11 | Constraints.MinWidth = 543
|
---|
| 12 | PixelsPerInch = 96
|
---|
| 13 | TextHeight = 13
|
---|
| 14 | object lblProc: TLabel [0]
|
---|
| 15 | Left = 4
|
---|
| 16 | Top = 4
|
---|
| 17 | Width = 49
|
---|
| 18 | Height = 13
|
---|
| 19 | Caption = 'Procedure'
|
---|
| 20 | end
|
---|
| 21 | object lblService: TOROffsetLabel [1]
|
---|
| 22 | Left = 4
|
---|
| 23 | Top = 42
|
---|
| 24 | Width = 158
|
---|
| 25 | Height = 15
|
---|
| 26 | Caption = 'Service to perform this procedure'
|
---|
| 27 | HorzOffset = 2
|
---|
| 28 | Transparent = False
|
---|
| 29 | VertOffset = 2
|
---|
| 30 | WordWrap = False
|
---|
| 31 | end
|
---|
| 32 | object lblReason: TLabel [2]
|
---|
| 33 | Left = 4
|
---|
| 34 | Top = 103
|
---|
| 35 | Width = 95
|
---|
| 36 | Height = 13
|
---|
| 37 | Caption = 'Reason for Request'
|
---|
| 38 | end
|
---|
| 39 | object lblUrgency: TStaticText [3]
|
---|
| 40 | Left = 249
|
---|
| 41 | Top = 4
|
---|
| 42 | Width = 44
|
---|
| 43 | Height = 17
|
---|
| 44 | Anchors = [akTop, akRight]
|
---|
| 45 | Caption = 'Urgency'
|
---|
| 46 | TabOrder = 15
|
---|
| 47 | end
|
---|
| 48 | object lblPlace: TStaticText [4]
|
---|
| 49 | Left = 396
|
---|
| 50 | Top = 43
|
---|
| 51 | Width = 104
|
---|
| 52 | Height = 17
|
---|
| 53 | Anchors = [akTop, akRight]
|
---|
| 54 | Caption = 'Place of Consultation'
|
---|
| 55 | TabOrder = 16
|
---|
| 56 | end
|
---|
| 57 | object lblAttn: TStaticText [5]
|
---|
| 58 | Left = 396
|
---|
| 59 | Top = 4
|
---|
| 60 | Width = 46
|
---|
| 61 | Height = 17
|
---|
| 62 | Anchors = [akTop, akRight]
|
---|
| 63 | Caption = 'Attention'
|
---|
| 64 | TabOrder = 17
|
---|
| 65 | end
|
---|
| 66 | object lblProvDiag: TStaticText [6]
|
---|
| 67 | Left = 249
|
---|
| 68 | Top = 81
|
---|
| 69 | Width = 104
|
---|
| 70 | Height = 17
|
---|
| 71 | Anchors = [akTop, akRight]
|
---|
| 72 | Caption = 'Provisional Diagnosis'
|
---|
| 73 | TabOrder = 18
|
---|
| 74 | end
|
---|
| 75 | object pnlReason: TPanel [7]
|
---|
| 76 | Left = 0
|
---|
| 77 | Top = 120
|
---|
| 78 | Width = 528
|
---|
| 79 | Height = 192
|
---|
| 80 | Anchors = [akLeft, akTop, akRight, akBottom]
|
---|
| 81 | BevelOuter = bvNone
|
---|
| 82 | TabOrder = 9
|
---|
| 83 | object memReason: TCaptionRichEdit
|
---|
| 84 | Left = 0
|
---|
| 85 | Top = 0
|
---|
| 86 | Width = 528
|
---|
| 87 | Height = 192
|
---|
| 88 | Align = alClient
|
---|
| 89 | Font.Charset = DEFAULT_CHARSET
|
---|
| 90 | Font.Color = clWindowText
|
---|
| 91 | Font.Height = -11
|
---|
| 92 | Font.Name = 'Courier New'
|
---|
| 93 | Font.Style = []
|
---|
| 94 | Constraints.MinHeight = 40
|
---|
| 95 | ParentFont = False
|
---|
| 96 | PopupMenu = popReason
|
---|
| 97 | ScrollBars = ssBoth
|
---|
| 98 | TabOrder = 0
|
---|
| 99 | WantTabs = True
|
---|
| 100 | OnChange = ControlChange
|
---|
| 101 | OnExit = memReasonExit
|
---|
| 102 | OnKeyDown = memReasonKeyDown
|
---|
| 103 | OnKeyPress = memReasonKeyPress
|
---|
| 104 | OnKeyUp = memReasonKeyUp
|
---|
| 105 | Caption = 'Reason for Request'
|
---|
| 106 | end
|
---|
| 107 | end
|
---|
| 108 | inherited memOrder: TCaptionMemo
|
---|
| 109 | Left = 0
|
---|
| 110 | Top = 321
|
---|
| 111 | Width = 380
|
---|
| 112 | Height = 41
|
---|
| 113 | Anchors = [akLeft, akRight]
|
---|
| 114 | Lines.Strings = (
|
---|
| 115 | 'The order text...'
|
---|
| 116 |
|
---|
| 117 | '----------------------------------------------------------------' +
|
---|
| 118 | '--------------'
|
---|
| 119 | 'An order message may be displayed here.')
|
---|
| 120 | TabOrder = 1
|
---|
| 121 | end
|
---|
| 122 | object cboUrgency: TORComboBox [9]
|
---|
| 123 | Left = 249
|
---|
| 124 | Top = 17
|
---|
| 125 | Width = 133
|
---|
| 126 | Height = 21
|
---|
| 127 | Anchors = [akTop, akRight]
|
---|
| 128 | Style = orcsDropDown
|
---|
| 129 | AutoSelect = True
|
---|
| 130 | Caption = 'Urgency'
|
---|
| 131 | Color = clWindow
|
---|
| 132 | DropDownCount = 8
|
---|
| 133 | ItemHeight = 13
|
---|
| 134 | ItemTipColor = clWindow
|
---|
| 135 | ItemTipEnable = True
|
---|
| 136 | ListItemsOnly = True
|
---|
| 137 | LongList = False
|
---|
| 138 | LookupPiece = 0
|
---|
| 139 | MaxLength = 0
|
---|
| 140 | Pieces = '2'
|
---|
| 141 | Sorted = False
|
---|
| 142 | SynonymChars = '<>'
|
---|
| 143 | TabOrder = 2
|
---|
| 144 | OnChange = ControlChange
|
---|
| 145 | CharsNeedMatch = 1
|
---|
| 146 | end
|
---|
| 147 | object cboPlace: TORComboBox [10]
|
---|
| 148 | Left = 396
|
---|
| 149 | Top = 56
|
---|
| 150 | Width = 133
|
---|
| 151 | Height = 21
|
---|
| 152 | Anchors = [akTop, akRight]
|
---|
| 153 | Style = orcsDropDown
|
---|
| 154 | AutoSelect = True
|
---|
| 155 | Caption = 'Place of Consultation'
|
---|
| 156 | Color = clWindow
|
---|
| 157 | DropDownCount = 8
|
---|
| 158 | ItemHeight = 13
|
---|
| 159 | ItemTipColor = clWindow
|
---|
| 160 | ItemTipEnable = True
|
---|
| 161 | ListItemsOnly = True
|
---|
| 162 | LongList = False
|
---|
| 163 | LookupPiece = 0
|
---|
| 164 | MaxLength = 0
|
---|
| 165 | Pieces = '2'
|
---|
| 166 | Sorted = False
|
---|
| 167 | SynonymChars = '<>'
|
---|
| 168 | TabOrder = 6
|
---|
| 169 | OnChange = ControlChange
|
---|
| 170 | CharsNeedMatch = 1
|
---|
| 171 | end
|
---|
| 172 | object txtAttn: TORComboBox [11]
|
---|
| 173 | Left = 396
|
---|
| 174 | Top = 17
|
---|
| 175 | Width = 133
|
---|
| 176 | Height = 21
|
---|
| 177 | Anchors = [akTop, akRight]
|
---|
| 178 | Style = orcsDropDown
|
---|
| 179 | AutoSelect = True
|
---|
| 180 | Caption = 'Attention'
|
---|
| 181 | Color = clWindow
|
---|
| 182 | DropDownCount = 8
|
---|
| 183 | ItemHeight = 13
|
---|
| 184 | ItemTipColor = clWindow
|
---|
| 185 | ItemTipEnable = True
|
---|
| 186 | ListItemsOnly = True
|
---|
| 187 | LongList = True
|
---|
| 188 | LookupPiece = 2
|
---|
| 189 | MaxLength = 0
|
---|
| 190 | Pieces = '2,3'
|
---|
| 191 | Sorted = False
|
---|
| 192 | SynonymChars = '<>'
|
---|
| 193 | TabOrder = 3
|
---|
| 194 | OnChange = ControlChange
|
---|
| 195 | OnNeedData = txtAttnNeedData
|
---|
| 196 | CharsNeedMatch = 1
|
---|
| 197 | end
|
---|
| 198 | object cboProc: TORComboBox [12]
|
---|
| 199 | Left = 4
|
---|
| 200 | Top = 17
|
---|
| 201 | Width = 227
|
---|
| 202 | Height = 21
|
---|
| 203 | Anchors = [akLeft, akTop, akRight]
|
---|
| 204 | Style = orcsDropDown
|
---|
| 205 | AutoSelect = True
|
---|
| 206 | Caption = 'Procedure'
|
---|
| 207 | Color = clWindow
|
---|
| 208 | DropDownCount = 8
|
---|
| 209 | ItemHeight = 13
|
---|
| 210 | ItemTipColor = clWindow
|
---|
| 211 | ItemTipEnable = True
|
---|
| 212 | ListItemsOnly = True
|
---|
| 213 | LongList = True
|
---|
| 214 | LookupPiece = 0
|
---|
| 215 | MaxLength = 0
|
---|
| 216 | Pieces = '2'
|
---|
| 217 | Sorted = False
|
---|
| 218 | SynonymChars = '<>'
|
---|
| 219 | TabOrder = 0
|
---|
| 220 | OnChange = cboProcSelect
|
---|
| 221 | OnNeedData = cboProcNeedData
|
---|
| 222 | CharsNeedMatch = 1
|
---|
| 223 | end
|
---|
| 224 | object cboCategory: TORComboBox [13]
|
---|
| 225 | Left = 516
|
---|
| 226 | Top = 10
|
---|
| 227 | Width = 3
|
---|
| 228 | Height = 21
|
---|
| 229 | Style = orcsDropDown
|
---|
| 230 | AutoSelect = True
|
---|
| 231 | Color = clWindow
|
---|
| 232 | DropDownCount = 8
|
---|
| 233 | ItemHeight = 13
|
---|
| 234 | ItemTipColor = clWindow
|
---|
| 235 | ItemTipEnable = True
|
---|
| 236 | ListItemsOnly = False
|
---|
| 237 | LongList = False
|
---|
| 238 | LookupPiece = 0
|
---|
| 239 | MaxLength = 0
|
---|
| 240 | Sorted = False
|
---|
| 241 | SynonymChars = '<>'
|
---|
| 242 | TabOrder = 13
|
---|
| 243 | Visible = False
|
---|
| 244 | OnChange = ControlChange
|
---|
| 245 | CharsNeedMatch = 1
|
---|
| 246 | end
|
---|
| 247 | object cboService: TORComboBox [14]
|
---|
| 248 | Left = 4
|
---|
| 249 | Top = 58
|
---|
| 250 | Width = 227
|
---|
| 251 | Height = 21
|
---|
| 252 | Anchors = [akLeft, akTop, akRight]
|
---|
| 253 | Style = orcsDropDown
|
---|
| 254 | AutoSelect = True
|
---|
| 255 | Caption = 'Service to perform this procedure'
|
---|
| 256 | Color = clWindow
|
---|
| 257 | DropDownCount = 8
|
---|
| 258 | Enabled = False
|
---|
| 259 | ItemHeight = 13
|
---|
| 260 | ItemTipColor = clWindow
|
---|
| 261 | ItemTipEnable = True
|
---|
| 262 | ListItemsOnly = False
|
---|
| 263 | LongList = False
|
---|
| 264 | LookupPiece = 0
|
---|
| 265 | MaxLength = 0
|
---|
| 266 | Pieces = '2'
|
---|
| 267 | Sorted = False
|
---|
| 268 | SynonymChars = '<>'
|
---|
| 269 | TabOrder = 4
|
---|
| 270 | OnChange = cboServiceChange
|
---|
| 271 | CharsNeedMatch = 1
|
---|
| 272 | end
|
---|
| 273 | object cmdLexSearch: TButton [15]
|
---|
| 274 | Left = 486
|
---|
| 275 | Top = 93
|
---|
| 276 | Width = 49
|
---|
| 277 | Height = 21
|
---|
| 278 | Anchors = [akTop, akRight]
|
---|
| 279 | Caption = 'Lexicon'
|
---|
| 280 | TabOrder = 8
|
---|
| 281 | OnClick = cmdLexSearchClick
|
---|
| 282 | end
|
---|
| 283 | object gbInptOpt: TGroupBox [16]
|
---|
| 284 | Left = 249
|
---|
| 285 | Top = 36
|
---|
| 286 | Width = 140
|
---|
| 287 | Height = 45
|
---|
| 288 | Anchors = [akTop, akRight]
|
---|
| 289 | Caption = 'Patient will be seen as an:'
|
---|
| 290 | TabOrder = 5
|
---|
| 291 | object radInpatient: TRadioButton
|
---|
| 292 | Left = 3
|
---|
| 293 | Top = 20
|
---|
| 294 | Width = 61
|
---|
| 295 | Height = 17
|
---|
| 296 | Caption = '&Inpatient'
|
---|
| 297 | TabOrder = 0
|
---|
| 298 | OnClick = radInpatientClick
|
---|
| 299 | end
|
---|
| 300 | object radOutpatient: TRadioButton
|
---|
| 301 | Left = 67
|
---|
| 302 | Top = 20
|
---|
| 303 | Width = 71
|
---|
| 304 | Height = 17
|
---|
| 305 | Caption = '&Outpatient'
|
---|
| 306 | TabOrder = 1
|
---|
| 307 | OnClick = radOutpatientClick
|
---|
| 308 | end
|
---|
| 309 | end
|
---|
| 310 | object txtProvDiag: TCaptionEdit [17]
|
---|
| 311 | Left = 249
|
---|
| 312 | Top = 93
|
---|
| 313 | Width = 234
|
---|
| 314 | Height = 21
|
---|
| 315 | Anchors = [akTop, akRight]
|
---|
| 316 | MaxLength = 180
|
---|
| 317 | ParentShowHint = False
|
---|
| 318 | PopupMenu = mnuPopProvDx
|
---|
| 319 | ShowHint = True
|
---|
| 320 | TabOrder = 7
|
---|
| 321 | OnChange = txtProvDiagChange
|
---|
| 322 | Caption = 'Provisional Diagnosis'
|
---|
| 323 | end
|
---|
| 324 | inherited cmdAccept: TButton
|
---|
| 325 | Left = 387
|
---|
| 326 | Top = 339
|
---|
| 327 | Anchors = [akRight, akBottom]
|
---|
| 328 | TabOrder = 10
|
---|
| 329 | end
|
---|
| 330 | inherited cmdQuit: TButton
|
---|
| 331 | Left = 469
|
---|
| 332 | Top = 339
|
---|
| 333 | Width = 64
|
---|
| 334 | Anchors = [akRight, akBottom]
|
---|
| 335 | TabOrder = 11
|
---|
| 336 | end
|
---|
| 337 | inherited pnlMessage: TPanel
|
---|
| 338 | Left = 50
|
---|
| 339 | Top = 320
|
---|
| 340 | Width = 316
|
---|
| 341 | Anchors = [akLeft, akRight, akBottom]
|
---|
| 342 | TabOrder = 12
|
---|
| 343 | inherited memMessage: TRichEdit
|
---|
| 344 | Width = 254
|
---|
| 345 | end
|
---|
| 346 | end
|
---|
| 347 | inherited DKLanguageController1: TDKLanguageController
|
---|
| 348 | LangData = {
|
---|
| 349 | 090066726D4F4450726F63010100000005000000070043617074696F6E012200
|
---|
| 350 | 000008006D656D4F72646572010200000002000000070043617074696F6E0600
|
---|
| 351 | 000005004C696E6573000900636D644163636570740101000000030000000700
|
---|
| 352 | 43617074696F6E000700636D6451756974010100000004000000070043617074
|
---|
| 353 | 696F6E000A00706E6C4D65737361676500000A00696D674D6573736167650000
|
---|
| 354 | 0A006D656D4D657373616765000007006C626C50726F63010100000007000000
|
---|
| 355 | 070043617074696F6E000A006C626C5365727669636501010000000800000007
|
---|
| 356 | 0043617074696F6E0009006C626C526561736F6E010100000009000000070043
|
---|
| 357 | 617074696F6E000A006C626C557267656E637901010000000A00000007004361
|
---|
| 358 | 7074696F6E0008006C626C506C61636501010000000B00000007004361707469
|
---|
| 359 | 6F6E0007006C626C4174746E01010000000C000000070043617074696F6E000B
|
---|
| 360 | 006C626C50726F764469616701010000000D000000070043617074696F6E0009
|
---|
| 361 | 00706E6C526561736F6E000009006D656D526561736F6E01010000000E000000
|
---|
| 362 | 070043617074696F6E000A0063626F557267656E637901010000000F00000007
|
---|
| 363 | 0043617074696F6E00080063626F506C61636501010000001000000007004361
|
---|
| 364 | 7074696F6E0007007478744174746E010100000011000000070043617074696F
|
---|
| 365 | 6E00070063626F50726F63010100000012000000070043617074696F6E000B00
|
---|
| 366 | 63626F43617465676F727900000A0063626F5365727669636501010000001300
|
---|
| 367 | 0000070043617074696F6E000C00636D644C6578536561726368010100000014
|
---|
| 368 | 000000070043617074696F6E0009006762496E70744F70740101000000150000
|
---|
| 369 | 00070043617074696F6E000C00726164496E70617469656E7401010000001600
|
---|
| 370 | 0000070043617074696F6E000D007261644F757470617469656E740101000000
|
---|
| 371 | 17000000070043617074696F6E000B0074787450726F76446961670101000000
|
---|
| 372 | 18000000070043617074696F6E000C006D6E75506F7050726F76447800001200
|
---|
| 373 | 6D6E75506F7050726F76447844656C6574650101000000190000000700436170
|
---|
| 374 | 74696F6E000900706F70526561736F6E00000C00706F70526561736F6E437574
|
---|
| 375 | 01010000001A000000070043617074696F6E000D00706F70526561736F6E436F
|
---|
| 376 | 707901010000001B000000070043617074696F6E000E00706F70526561736F6E
|
---|
| 377 | 506173746501010000001C000000070043617074696F6E000F00706F70526561
|
---|
| 378 | 736F6E50617374653201010000001D000000070043617074696F6E001100706F
|
---|
| 379 | 70526561736F6E5265666F726D617401010000001E000000070043617074696F
|
---|
| 380 | 6E00}
|
---|
| 381 | end
|
---|
| 382 | object mnuPopProvDx: TPopupMenu
|
---|
| 383 | Left = 353
|
---|
| 384 | Top = 77
|
---|
| 385 | object mnuPopProvDxDelete: TMenuItem
|
---|
| 386 | Caption = 'Delete diagnosis'
|
---|
| 387 | OnClick = mnuPopProvDxDeleteClick
|
---|
| 388 | end
|
---|
| 389 | end
|
---|
| 390 | object popReason: TPopupMenu
|
---|
| 391 | OnPopup = popReasonPopup
|
---|
| 392 | Left = 411
|
---|
| 393 | Top = 169
|
---|
| 394 | object popReasonCut: TMenuItem
|
---|
| 395 | Caption = 'Cu&t'
|
---|
| 396 | ShortCut = 16472
|
---|
| 397 | OnClick = popReasonCutClick
|
---|
| 398 | end
|
---|
| 399 | object popReasonCopy: TMenuItem
|
---|
| 400 | Caption = '&Copy'
|
---|
| 401 | ShortCut = 16451
|
---|
| 402 | OnClick = popReasonCopyClick
|
---|
| 403 | end
|
---|
| 404 | object popReasonPaste: TMenuItem
|
---|
| 405 | Caption = '&Paste'
|
---|
| 406 | ShortCut = 16470
|
---|
| 407 | OnClick = popReasonPasteClick
|
---|
| 408 | end
|
---|
| 409 | object popReasonPaste2: TMenuItem
|
---|
| 410 | Caption = 'Paste2'
|
---|
| 411 | ShortCut = 8237
|
---|
| 412 | Visible = False
|
---|
| 413 | OnClick = popReasonPasteClick
|
---|
| 414 | end
|
---|
| 415 | object popReasonReformat: TMenuItem
|
---|
| 416 | Caption = 'Reformat Paragraph'
|
---|
| 417 | ShortCut = 16466
|
---|
| 418 | OnClick = popReasonReformatClick
|
---|
| 419 | end
|
---|
| 420 | end
|
---|
| 421 | end
|
---|