[459] | 1 | inherited frmODMedNVA: TfrmODMedNVA
|
---|
| 2 | Left = 168
|
---|
| 3 | Top = 36
|
---|
| 4 | Width = 632
|
---|
| 5 | Height = 536
|
---|
| 6 | Caption = 'Document Herbal/OTC/Non-VA Medications'
|
---|
| 7 | Constraints.MinHeight = 365
|
---|
| 8 | PixelsPerInch = 96
|
---|
| 9 | TextHeight = 13
|
---|
| 10 | inherited memOrder: TCaptionMemo
|
---|
| 11 | Left = 0
|
---|
| 12 | Top = 461
|
---|
| 13 | Width = 525
|
---|
| 14 | Anchors = [akLeft, akRight, akBottom]
|
---|
| 15 | Constraints.MinWidth = 25
|
---|
| 16 | TabOrder = 4
|
---|
| 17 | end
|
---|
| 18 | inherited cmdAccept: TButton
|
---|
| 19 | Left = 540
|
---|
| 20 | Top = 463
|
---|
| 21 | Width = 69
|
---|
| 22 | Anchors = [akRight, akBottom]
|
---|
| 23 | TabOrder = 6
|
---|
| 24 | Visible = False
|
---|
| 25 | end
|
---|
| 26 | inherited cmdQuit: TButton
|
---|
| 27 | Left = 546
|
---|
| 28 | Top = 489
|
---|
| 29 | Width = 49
|
---|
| 30 | Anchors = [akRight, akBottom]
|
---|
| 31 | TabOrder = 7
|
---|
| 32 | end
|
---|
| 33 | inherited pnlMessage: TPanel
|
---|
| 34 | Top = 240
|
---|
| 35 | end
|
---|
| 36 | object pnlMeds: TPanel
|
---|
| 37 | Left = 6
|
---|
| 38 | Top = 34
|
---|
| 39 | Width = 593
|
---|
| 40 | Height = 415
|
---|
| 41 | Anchors = [akLeft, akTop, akRight, akBottom]
|
---|
| 42 | BevelOuter = bvNone
|
---|
| 43 | Caption = 'pnlMeds'
|
---|
| 44 | TabOrder = 1
|
---|
| 45 | object sptSelect: TSplitter
|
---|
| 46 | Left = 0
|
---|
| 47 | Top = 133
|
---|
| 48 | Width = 593
|
---|
| 49 | Height = 4
|
---|
| 50 | Cursor = crVSplit
|
---|
| 51 | Align = alTop
|
---|
| 52 | end
|
---|
| 53 | object lstQuick: TCaptionListView
|
---|
| 54 | Left = 0
|
---|
| 55 | Top = 0
|
---|
| 56 | Width = 593
|
---|
| 57 | Height = 133
|
---|
| 58 | Align = alTop
|
---|
| 59 | Columns = <
|
---|
| 60 | item
|
---|
| 61 | Width = 420
|
---|
| 62 | end>
|
---|
| 63 | ColumnClick = False
|
---|
| 64 | HideSelection = False
|
---|
| 65 | OwnerData = True
|
---|
| 66 | ParentShowHint = False
|
---|
| 67 | ShowColumnHeaders = False
|
---|
| 68 | ShowHint = True
|
---|
| 69 | TabOrder = 0
|
---|
| 70 | TabStop = False
|
---|
| 71 | ViewStyle = vsReport
|
---|
| 72 | OnChange = lstChange
|
---|
| 73 | OnData = lstQuickData
|
---|
| 74 | Caption = 'Quick Orders'
|
---|
| 75 | end
|
---|
| 76 | object lstAll: TCaptionListView
|
---|
| 77 | Left = 0
|
---|
| 78 | Top = 137
|
---|
| 79 | Width = 593
|
---|
| 80 | Height = 278
|
---|
| 81 | Align = alClient
|
---|
| 82 | Columns = <
|
---|
| 83 | item
|
---|
| 84 | Width = 420
|
---|
| 85 | end>
|
---|
| 86 | ColumnClick = False
|
---|
| 87 | HideSelection = False
|
---|
| 88 | OwnerData = True
|
---|
| 89 | ParentShowHint = False
|
---|
| 90 | ShowColumnHeaders = False
|
---|
| 91 | ShowHint = True
|
---|
| 92 | TabOrder = 1
|
---|
| 93 | ViewStyle = vsReport
|
---|
| 94 | OnChange = lstChange
|
---|
| 95 | OnClick = ListViewClick
|
---|
| 96 | OnData = lstAllData
|
---|
| 97 | OnDataHint = lstAllDataHint
|
---|
| 98 | OnEditing = ListViewEditing
|
---|
| 99 | OnEnter = ListViewEnter
|
---|
| 100 | OnResize = ListViewResize
|
---|
| 101 | Caption = 'All Medication orders'
|
---|
| 102 | end
|
---|
| 103 | end
|
---|
| 104 | object txtMed: TEdit
|
---|
| 105 | Left = 5
|
---|
| 106 | Top = 6
|
---|
| 107 | Width = 596
|
---|
| 108 | Height = 21
|
---|
| 109 | Anchors = [akLeft, akTop, akRight]
|
---|
| 110 | AutoSelect = False
|
---|
| 111 | TabOrder = 0
|
---|
| 112 | Text = '(Type a medication name or select from the orders below)'
|
---|
| 113 | OnChange = txtMedChange
|
---|
| 114 | OnExit = txtMedExit
|
---|
| 115 | OnKeyDown = txtMedKeyDown
|
---|
| 116 | OnKeyUp = txtMedKeyUp
|
---|
| 117 | end
|
---|
| 118 | object pnlFields: TPanel
|
---|
| 119 | Left = 3
|
---|
| 120 | Top = 30
|
---|
| 121 | Width = 624
|
---|
| 122 | Height = 428
|
---|
| 123 | Anchors = [akLeft, akTop, akRight, akBottom]
|
---|
| 124 | BevelOuter = bvNone
|
---|
| 125 | Enabled = False
|
---|
| 126 | TabOrder = 2
|
---|
| 127 | Visible = False
|
---|
| 128 | object pnlTop: TPanel
|
---|
| 129 | Left = 0
|
---|
| 130 | Top = 0
|
---|
| 131 | Width = 624
|
---|
| 132 | Height = 264
|
---|
| 133 | Align = alClient
|
---|
| 134 | Constraints.MinHeight = 80
|
---|
| 135 | Constraints.MinWidth = 30
|
---|
| 136 | TabOrder = 0
|
---|
| 137 | DesignSize = (
|
---|
| 138 | 624
|
---|
| 139 | 264)
|
---|
| 140 | object lblRoute: TLabel
|
---|
| 141 | Left = 349
|
---|
| 142 | Top = 23
|
---|
| 143 | Width = 29
|
---|
| 144 | Height = 13
|
---|
| 145 | Anchors = [akTop, akRight]
|
---|
| 146 | Caption = 'Route'
|
---|
| 147 | Visible = False
|
---|
| 148 | end
|
---|
| 149 | object lblSchedule: TLabel
|
---|
| 150 | Left = 467
|
---|
| 151 | Top = 23
|
---|
| 152 | Width = 45
|
---|
| 153 | Height = 13
|
---|
| 154 | Anchors = [akTop, akRight]
|
---|
| 155 | Caption = 'Schedule'
|
---|
| 156 | Visible = False
|
---|
| 157 | end
|
---|
| 158 | object lblGuideline: TStaticText
|
---|
| 159 | Left = 0
|
---|
| 160 | Top = 1
|
---|
| 161 | Width = 181
|
---|
| 162 | Height = 17
|
---|
| 163 | Caption = 'Display Restrictions/Guidelines'
|
---|
| 164 | Color = clBtnFace
|
---|
| 165 | Font.Charset = DEFAULT_CHARSET
|
---|
| 166 | Font.Color = clBlue
|
---|
| 167 | Font.Height = -11
|
---|
| 168 | Font.Name = 'MS Sans Serif'
|
---|
| 169 | Font.Style = [fsBold, fsUnderline]
|
---|
| 170 | ParentColor = False
|
---|
| 171 | ParentFont = False
|
---|
| 172 | ShowAccelChar = False
|
---|
| 173 | TabOrder = 0
|
---|
| 174 | TabStop = True
|
---|
| 175 | Visible = False
|
---|
| 176 | end
|
---|
| 177 | object tabDose: TTabControl
|
---|
| 178 | Left = -7
|
---|
| 179 | Top = 19
|
---|
| 180 | Width = 175
|
---|
| 181 | Height = 17
|
---|
| 182 | TabOrder = 4
|
---|
| 183 | Tabs.Strings = (
|
---|
| 184 | 'Dosage')
|
---|
| 185 | TabIndex = 0
|
---|
| 186 | TabStop = False
|
---|
| 187 | TabWidth = 86
|
---|
| 188 | OnChange = tabDoseChange
|
---|
| 189 | end
|
---|
| 190 | object cboDosage: TORComboBox
|
---|
| 191 | Left = 8
|
---|
| 192 | Top = 36
|
---|
| 193 | Width = 383
|
---|
| 194 | Height = 222
|
---|
| 195 | Anchors = [akLeft, akTop, akRight, akBottom]
|
---|
| 196 | Style = orcsSimple
|
---|
| 197 | AutoSelect = True
|
---|
| 198 | Caption = 'Dosage'
|
---|
| 199 | Color = clWindow
|
---|
| 200 | DropDownCount = 8
|
---|
| 201 | ItemHeight = 13
|
---|
| 202 | ItemTipColor = clWindow
|
---|
| 203 | ItemTipEnable = True
|
---|
| 204 | ListItemsOnly = False
|
---|
| 205 | LongList = False
|
---|
| 206 | LookupPiece = 0
|
---|
| 207 | MaxLength = 0
|
---|
| 208 | Pieces = '5,3,6'
|
---|
| 209 | Sorted = False
|
---|
| 210 | SynonymChars = '<>'
|
---|
| 211 | TabPositions = '27,32'
|
---|
| 212 | TabOrder = 1
|
---|
| 213 | OnChange = cboDosageChange
|
---|
| 214 | OnClick = cboDosageClick
|
---|
| 215 | OnExit = cboDosageExit
|
---|
| 216 | CharsNeedMatch = 1
|
---|
| 217 | UniqueAutoComplete = True
|
---|
| 218 | end
|
---|
| 219 | object cboRoute: TORComboBox
|
---|
| 220 | Left = 355
|
---|
| 221 | Top = 36
|
---|
| 222 | Width = 114
|
---|
| 223 | Height = 223
|
---|
| 224 | Anchors = [akTop, akRight, akBottom]
|
---|
| 225 | Style = orcsSimple
|
---|
| 226 | AutoSelect = True
|
---|
| 227 | Caption = 'Route'
|
---|
| 228 | Color = clWindow
|
---|
| 229 | DropDownCount = 8
|
---|
| 230 | ItemHeight = 13
|
---|
| 231 | ItemTipColor = clWindow
|
---|
| 232 | ItemTipEnable = True
|
---|
| 233 | ListItemsOnly = False
|
---|
| 234 | LongList = False
|
---|
| 235 | LookupPiece = 0
|
---|
| 236 | MaxLength = 0
|
---|
| 237 | ParentShowHint = False
|
---|
| 238 | Pieces = '2'
|
---|
| 239 | ShowHint = True
|
---|
| 240 | Sorted = False
|
---|
| 241 | SynonymChars = '<>'
|
---|
| 242 | TabOrder = 2
|
---|
| 243 | OnChange = cboRouteChange
|
---|
| 244 | OnClick = ControlChange
|
---|
| 245 | OnExit = cboRouteExit
|
---|
| 246 | CharsNeedMatch = 1
|
---|
| 247 | UniqueAutoComplete = True
|
---|
| 248 | end
|
---|
| 249 | object cboSchedule: TORComboBox
|
---|
| 250 | Left = 467
|
---|
| 251 | Top = 36
|
---|
| 252 | Width = 157
|
---|
| 253 | Height = 223
|
---|
| 254 | Anchors = [akTop, akRight, akBottom]
|
---|
| 255 | Style = orcsSimple
|
---|
| 256 | AutoSelect = True
|
---|
| 257 | Caption = 'Schedule'
|
---|
| 258 | Color = clWindow
|
---|
| 259 | DropDownCount = 8
|
---|
| 260 | ItemHeight = 13
|
---|
| 261 | ItemTipColor = clWindow
|
---|
| 262 | ItemTipEnable = True
|
---|
| 263 | ListItemsOnly = False
|
---|
| 264 | LongList = False
|
---|
| 265 | LookupPiece = 0
|
---|
| 266 | MaxLength = 0
|
---|
| 267 | Pieces = '1'
|
---|
| 268 | Sorted = False
|
---|
| 269 | SynonymChars = '<>'
|
---|
| 270 | TabOrder = 3
|
---|
| 271 | OnChange = cboScheduleChange
|
---|
| 272 | OnClick = cboScheduleClick
|
---|
| 273 | OnExit = cboScheduleExit
|
---|
| 274 | CharsNeedMatch = 1
|
---|
| 275 | UniqueAutoComplete = True
|
---|
| 276 | end
|
---|
| 277 | object chkPRN: TCheckBox
|
---|
| 278 | Left = 582
|
---|
| 279 | Top = 39
|
---|
| 280 | Width = 42
|
---|
| 281 | Height = 17
|
---|
| 282 | Anchors = [akTop, akRight]
|
---|
| 283 | Caption = 'PRN'
|
---|
| 284 | Color = clBtnFace
|
---|
| 285 | ParentColor = False
|
---|
| 286 | TabOrder = 5
|
---|
| 287 | end
|
---|
| 288 | end
|
---|
| 289 | object pnlBottom: TPanel
|
---|
| 290 | Left = 0
|
---|
| 291 | Top = 264
|
---|
| 292 | Width = 624
|
---|
| 293 | Height = 164
|
---|
| 294 | Align = alBottom
|
---|
| 295 | TabOrder = 1
|
---|
| 296 | DesignSize = (
|
---|
| 297 | 624
|
---|
| 298 | 164)
|
---|
| 299 | object lblComment: TLabel
|
---|
| 300 | Left = 4
|
---|
| 301 | Top = 5
|
---|
| 302 | Width = 52
|
---|
| 303 | Height = 16
|
---|
| 304 | Alignment = taRightJustify
|
---|
| 305 | AutoSize = False
|
---|
| 306 | Caption = 'Comments:'
|
---|
| 307 | end
|
---|
| 308 | object Label1: TLabel
|
---|
| 309 | Left = 5
|
---|
| 310 | Top = 50
|
---|
| 311 | Width = 108
|
---|
| 312 | Height = 13
|
---|
| 313 | Caption = 'Statement/Explanation'
|
---|
| 314 | end
|
---|
| 315 | object Label2: TLabel
|
---|
| 316 | Left = 10
|
---|
| 317 | Top = 145
|
---|
| 318 | Width = 51
|
---|
| 319 | Height = 13
|
---|
| 320 | Caption = 'Start Date:'
|
---|
| 321 | end
|
---|
| 322 | object memComment: TCaptionMemo
|
---|
| 323 | Left = 64
|
---|
| 324 | Top = 2
|
---|
| 325 | Width = 559
|
---|
| 326 | Height = 44
|
---|
| 327 | Align = alCustom
|
---|
| 328 | Anchors = [akLeft, akTop, akRight]
|
---|
| 329 | ScrollBars = ssVertical
|
---|
| 330 | TabOrder = 2
|
---|
| 331 | OnChange = ControlChange
|
---|
| 332 | Caption = 'Comments'
|
---|
| 333 | end
|
---|
| 334 | object lblAdminTime: TStaticText
|
---|
| 335 | Left = 267
|
---|
| 336 | Top = 105
|
---|
| 337 | Width = 4
|
---|
| 338 | Height = 4
|
---|
| 339 | TabOrder = 0
|
---|
| 340 | Visible = False
|
---|
| 341 | end
|
---|
| 342 | object calStart: TORDateBox
|
---|
| 343 | Left = 64
|
---|
| 344 | Top = 141
|
---|
| 345 | Width = 145
|
---|
| 346 | Height = 21
|
---|
| 347 | Anchors = [akLeft, akTop, akBottom]
|
---|
| 348 | TabOrder = 5
|
---|
| 349 | Text = 'Today'
|
---|
| 350 | OnChange = ControlChange
|
---|
| 351 | DateOnly = True
|
---|
| 352 | RequireTime = False
|
---|
| 353 | Caption = 'Effective Date'
|
---|
| 354 | end
|
---|
| 355 | object lbStatements: TORListBox
|
---|
| 356 | Left = 8
|
---|
| 357 | Top = 62
|
---|
| 358 | Width = 603
|
---|
| 359 | Height = 76
|
---|
| 360 | Style = lbOwnerDrawFixed
|
---|
| 361 | Anchors = [akLeft, akTop, akRight]
|
---|
| 362 | ExtendedSelect = False
|
---|
| 363 | ItemHeight = 16
|
---|
| 364 | ParentShowHint = False
|
---|
| 365 | ShowHint = True
|
---|
| 366 | TabOrder = 3
|
---|
| 367 | ItemTipColor = clWindow
|
---|
| 368 | LongList = False
|
---|
| 369 | CheckBoxes = True
|
---|
| 370 | OnClickCheck = lbStatementsClickCheck
|
---|
| 371 | end
|
---|
| 372 | end
|
---|
| 373 | end
|
---|
| 374 | object btnSelect: TButton
|
---|
| 375 | Left = 539
|
---|
| 376 | Top = 461
|
---|
| 377 | Width = 72
|
---|
| 378 | Height = 21
|
---|
| 379 | Anchors = [akRight, akBottom]
|
---|
| 380 | Caption = 'OK'
|
---|
| 381 | Default = True
|
---|
| 382 | Enabled = False
|
---|
| 383 | TabOrder = 5
|
---|
| 384 | OnClick = btnSelectClick
|
---|
| 385 | end
|
---|
| 386 | object dlgStart: TORDateTimeDlg
|
---|
| 387 | FMDateTime = 3001101
|
---|
| 388 | DateOnly = False
|
---|
| 389 | RequireTime = True
|
---|
| 390 | Left = 500
|
---|
| 391 | Top = 201
|
---|
| 392 | end
|
---|
| 393 | object timCheckChanges: TTimer
|
---|
| 394 | Enabled = False
|
---|
| 395 | Interval = 500
|
---|
| 396 | Left = 501
|
---|
| 397 | Top = 233
|
---|
| 398 | end
|
---|
| 399 | end
|
---|