[459] | 1 | inherited frmODDiet: TfrmODDiet
|
---|
| 2 | Left = 404
|
---|
| 3 | Top = 199
|
---|
| 4 | Caption = 'Diet Order'
|
---|
| 5 | OnKeyDown = FormKeyDown
|
---|
| 6 | PixelsPerInch = 96
|
---|
| 7 | TextHeight = 13
|
---|
| 8 | object nbkDiet: TPageControl [0]
|
---|
| 9 | Left = 0
|
---|
| 10 | Top = 0
|
---|
| 11 | Width = 520
|
---|
| 12 | Height = 186
|
---|
| 13 | ActivePage = pgeOutPt
|
---|
| 14 | Align = alTop
|
---|
| 15 | TabIndex = 1
|
---|
| 16 | TabOrder = 4
|
---|
| 17 | TabStop = False
|
---|
| 18 | OnChange = nbkDietChange
|
---|
| 19 | OnChanging = nbkDietChanging
|
---|
| 20 | object pgeDiet: TTabSheet
|
---|
| 21 | Caption = 'Diet'
|
---|
| 22 | object lblDietAvail: TLabel
|
---|
| 23 | Left = 4
|
---|
| 24 | Top = 0
|
---|
| 25 | Width = 127
|
---|
| 26 | Height = 13
|
---|
| 27 | Caption = 'Available Diet Components'
|
---|
| 28 | end
|
---|
| 29 | object lblDietSelect: TLabel
|
---|
| 30 | Left = 200
|
---|
| 31 | Top = 0
|
---|
| 32 | Width = 126
|
---|
| 33 | Height = 13
|
---|
| 34 | Caption = 'Selected Diet Components'
|
---|
| 35 | end
|
---|
| 36 | object lblComment: TLabel
|
---|
| 37 | Left = 200
|
---|
| 38 | Top = 119
|
---|
| 39 | Width = 92
|
---|
| 40 | Height = 13
|
---|
| 41 | Caption = 'Special Instructions'
|
---|
| 42 | end
|
---|
| 43 | object lblStart: TLabel
|
---|
| 44 | Left = 393
|
---|
| 45 | Top = 0
|
---|
| 46 | Width = 96
|
---|
| 47 | Height = 13
|
---|
| 48 | Caption = 'Effective Date/Time'
|
---|
| 49 | end
|
---|
| 50 | object lblStop: TLabel
|
---|
| 51 | Left = 393
|
---|
| 52 | Top = 39
|
---|
| 53 | Width = 100
|
---|
| 54 | Height = 13
|
---|
| 55 | Caption = 'Expiration Date/Time'
|
---|
| 56 | end
|
---|
| 57 | object lblDelivery: TLabel
|
---|
| 58 | Left = 393
|
---|
| 59 | Top = 77
|
---|
| 60 | Width = 38
|
---|
| 61 | Height = 13
|
---|
| 62 | Caption = 'Delivery'
|
---|
| 63 | end
|
---|
| 64 | object cboDietAvail: TORComboBox
|
---|
| 65 | Left = 4
|
---|
| 66 | Top = 14
|
---|
| 67 | Width = 188
|
---|
| 68 | Height = 140
|
---|
| 69 | Style = orcsSimple
|
---|
| 70 | AutoSelect = True
|
---|
| 71 | Caption = 'Available Diet Components'
|
---|
| 72 | Color = clWindow
|
---|
| 73 | DropDownCount = 8
|
---|
| 74 | ItemHeight = 13
|
---|
| 75 | ItemTipColor = clWindow
|
---|
| 76 | ItemTipEnable = True
|
---|
| 77 | ListItemsOnly = True
|
---|
| 78 | LongList = True
|
---|
| 79 | LookupPiece = 0
|
---|
| 80 | MaxLength = 0
|
---|
| 81 | Pieces = '2'
|
---|
| 82 | Sorted = False
|
---|
| 83 | SynonymChars = '<>'
|
---|
| 84 | TabOrder = 0
|
---|
| 85 | OnExit = cboDietAvailExit
|
---|
| 86 | OnMouseClick = cboDietAvailMouseClick
|
---|
| 87 | OnNeedData = cboDietAvailNeedData
|
---|
| 88 | end
|
---|
| 89 | object lstDietSelect: TORListBox
|
---|
| 90 | Left = 200
|
---|
| 91 | Top = 14
|
---|
| 92 | Width = 185
|
---|
| 93 | Height = 71
|
---|
| 94 | ItemHeight = 13
|
---|
| 95 | ParentShowHint = False
|
---|
| 96 | ShowHint = True
|
---|
| 97 | TabOrder = 1
|
---|
| 98 | Caption = 'Selected Diet Components'
|
---|
| 99 | ItemTipColor = clWindow
|
---|
| 100 | LongList = False
|
---|
| 101 | Pieces = '2'
|
---|
| 102 | end
|
---|
| 103 | object cmdRemove: TButton
|
---|
| 104 | Left = 313
|
---|
| 105 | Top = 85
|
---|
| 106 | Width = 72
|
---|
| 107 | Height = 17
|
---|
| 108 | Caption = 'Remove'
|
---|
| 109 | TabOrder = 2
|
---|
| 110 | OnClick = cmdRemoveClick
|
---|
| 111 | end
|
---|
| 112 | object txtDietComment: TCaptionEdit
|
---|
| 113 | Left = 200
|
---|
| 114 | Top = 133
|
---|
| 115 | Width = 308
|
---|
| 116 | Height = 21
|
---|
| 117 | MaxLength = 80
|
---|
| 118 | TabOrder = 3
|
---|
| 119 | OnChange = DietChange
|
---|
| 120 | Caption = 'Special Instructions'
|
---|
| 121 | end
|
---|
| 122 | object calDietStart: TORDateBox
|
---|
| 123 | Left = 393
|
---|
| 124 | Top = 14
|
---|
| 125 | Width = 115
|
---|
| 126 | Height = 21
|
---|
| 127 | TabOrder = 4
|
---|
| 128 | Text = 'Now'
|
---|
| 129 | OnChange = DietChange
|
---|
| 130 | DateOnly = False
|
---|
| 131 | RequireTime = False
|
---|
| 132 | Caption = 'Effective Date/Time'
|
---|
| 133 | end
|
---|
| 134 | object calDietStop: TORDateBox
|
---|
| 135 | Left = 393
|
---|
| 136 | Top = 52
|
---|
| 137 | Width = 115
|
---|
| 138 | Height = 21
|
---|
| 139 | TabOrder = 5
|
---|
| 140 | OnChange = DietChange
|
---|
| 141 | DateOnly = False
|
---|
| 142 | RequireTime = False
|
---|
| 143 | Caption = 'Expiration Date/Time'
|
---|
| 144 | end
|
---|
| 145 | object cboDelivery: TORComboBox
|
---|
| 146 | Left = 393
|
---|
| 147 | Top = 90
|
---|
| 148 | Width = 115
|
---|
| 149 | Height = 21
|
---|
| 150 | Style = orcsDropDown
|
---|
| 151 | AutoSelect = True
|
---|
| 152 | Caption = 'Delivery'
|
---|
| 153 | Color = clWindow
|
---|
| 154 | DropDownCount = 8
|
---|
| 155 | ItemHeight = 13
|
---|
| 156 | ItemTipColor = clWindow
|
---|
| 157 | ItemTipEnable = True
|
---|
| 158 | ListItemsOnly = True
|
---|
| 159 | LongList = False
|
---|
| 160 | LookupPiece = 0
|
---|
| 161 | MaxLength = 0
|
---|
| 162 | Pieces = '2'
|
---|
| 163 | Sorted = False
|
---|
| 164 | SynonymChars = '<>'
|
---|
| 165 | TabOrder = 6
|
---|
| 166 | OnChange = DietChange
|
---|
| 167 | end
|
---|
| 168 | object chkCancelTubefeeding: TCheckBox
|
---|
| 169 | Left = 393
|
---|
| 170 | Top = 114
|
---|
| 171 | Width = 115
|
---|
| 172 | Height = 17
|
---|
| 173 | Caption = 'Cancel Tubefeeding'
|
---|
| 174 | State = cbGrayed
|
---|
| 175 | TabOrder = 7
|
---|
| 176 | Visible = False
|
---|
| 177 | OnClick = DietChange
|
---|
| 178 | end
|
---|
| 179 | end
|
---|
| 180 | object pgeOutPt: TTabSheet
|
---|
| 181 | Caption = 'Outpatient Meals'
|
---|
| 182 | object lblOPStart: TLabel
|
---|
| 183 | Left = 292
|
---|
| 184 | Top = 1
|
---|
| 185 | Width = 48
|
---|
| 186 | Height = 13
|
---|
| 187 | Caption = 'Start Date'
|
---|
| 188 | end
|
---|
| 189 | object lblOPStop: TLabel
|
---|
| 190 | Left = 292
|
---|
| 191 | Top = 37
|
---|
| 192 | Width = 45
|
---|
| 193 | Height = 13
|
---|
| 194 | Caption = 'End Date'
|
---|
| 195 | end
|
---|
| 196 | object lblOPDietAvail: TLabel
|
---|
| 197 | Left = 127
|
---|
| 198 | Top = 0
|
---|
| 199 | Width = 70
|
---|
| 200 | Height = 13
|
---|
| 201 | Caption = 'Available Diets'
|
---|
| 202 | end
|
---|
| 203 | object lblOPComment: TLabel
|
---|
| 204 | Left = 4
|
---|
| 205 | Top = 117
|
---|
| 206 | Width = 92
|
---|
| 207 | Height = 13
|
---|
| 208 | Caption = 'Special Instructions'
|
---|
| 209 | end
|
---|
| 210 | object lblOPDelivery: TLabel
|
---|
| 211 | Left = 292
|
---|
| 212 | Top = 74
|
---|
| 213 | Width = 38
|
---|
| 214 | Height = 13
|
---|
| 215 | Caption = 'Delivery'
|
---|
| 216 | end
|
---|
| 217 | object lblOPSelect: TLabel
|
---|
| 218 | Left = 127
|
---|
| 219 | Top = 38
|
---|
| 220 | Width = 64
|
---|
| 221 | Height = 13
|
---|
| 222 | Caption = 'Selected Diet'
|
---|
| 223 | end
|
---|
| 224 | object grpOPMeal: TKeyClickRadioGroup
|
---|
| 225 | Left = 5
|
---|
| 226 | Top = 5
|
---|
| 227 | Width = 110
|
---|
| 228 | Height = 107
|
---|
| 229 | Caption = ' Meal '
|
---|
| 230 | ItemIndex = 3
|
---|
| 231 | Items.Strings = (
|
---|
| 232 | 'Breakfast'
|
---|
| 233 | 'Lunch'
|
---|
| 234 | 'Evening'
|
---|
| 235 | '<none selected>')
|
---|
| 236 | TabOrder = 0
|
---|
| 237 | TabStop = True
|
---|
| 238 | OnClick = grpOPMealClick
|
---|
| 239 | end
|
---|
| 240 | object grpOPDoW: TGroupBox
|
---|
| 241 | Left = 415
|
---|
| 242 | Top = 5
|
---|
| 243 | Width = 93
|
---|
| 244 | Height = 149
|
---|
| 245 | Caption = 'Days of Week'
|
---|
| 246 | TabOrder = 8
|
---|
| 247 | object chkOPMonday: TCheckBox
|
---|
| 248 | Left = 8
|
---|
| 249 | Top = 15
|
---|
| 250 | Width = 80
|
---|
| 251 | Height = 17
|
---|
| 252 | Caption = 'Monday'
|
---|
| 253 | TabOrder = 0
|
---|
| 254 | OnClick = OPChange
|
---|
| 255 | end
|
---|
| 256 | object chkOPTuesday: TCheckBox
|
---|
| 257 | Left = 8
|
---|
| 258 | Top = 35
|
---|
| 259 | Width = 80
|
---|
| 260 | Height = 17
|
---|
| 261 | Caption = 'Tuesday'
|
---|
| 262 | TabOrder = 1
|
---|
| 263 | OnClick = OPChange
|
---|
| 264 | end
|
---|
| 265 | object chkOPWednesday: TCheckBox
|
---|
| 266 | Left = 8
|
---|
| 267 | Top = 54
|
---|
| 268 | Width = 80
|
---|
| 269 | Height = 17
|
---|
| 270 | Caption = 'Wednesday'
|
---|
| 271 | TabOrder = 2
|
---|
| 272 | OnClick = OPChange
|
---|
| 273 | end
|
---|
| 274 | object chkOPThursday: TCheckBox
|
---|
| 275 | Left = 8
|
---|
| 276 | Top = 73
|
---|
| 277 | Width = 80
|
---|
| 278 | Height = 17
|
---|
| 279 | Caption = 'Thursday'
|
---|
| 280 | TabOrder = 3
|
---|
| 281 | OnClick = OPChange
|
---|
| 282 | end
|
---|
| 283 | object chkOPFriday: TCheckBox
|
---|
| 284 | Left = 8
|
---|
| 285 | Top = 92
|
---|
| 286 | Width = 80
|
---|
| 287 | Height = 17
|
---|
| 288 | Caption = 'Friday'
|
---|
| 289 | TabOrder = 4
|
---|
| 290 | OnClick = OPChange
|
---|
| 291 | end
|
---|
| 292 | object chkOPSaturday: TCheckBox
|
---|
| 293 | Left = 8
|
---|
| 294 | Top = 111
|
---|
| 295 | Width = 80
|
---|
| 296 | Height = 17
|
---|
| 297 | Caption = 'Saturday'
|
---|
| 298 | TabOrder = 5
|
---|
| 299 | OnClick = OPChange
|
---|
| 300 | end
|
---|
| 301 | object chkOPSunday: TCheckBox
|
---|
| 302 | Left = 8
|
---|
| 303 | Top = 130
|
---|
| 304 | Width = 80
|
---|
| 305 | Height = 17
|
---|
| 306 | Caption = 'Sunday'
|
---|
| 307 | TabOrder = 6
|
---|
| 308 | OnClick = OPChange
|
---|
| 309 | end
|
---|
| 310 | end
|
---|
| 311 | object calOPStart: TORDateBox
|
---|
| 312 | Left = 292
|
---|
| 313 | Top = 14
|
---|
| 314 | Width = 120
|
---|
| 315 | Height = 21
|
---|
| 316 | TabOrder = 4
|
---|
| 317 | OnChange = calOPStartChange
|
---|
| 318 | OnEnter = calOPStartEnter
|
---|
| 319 | OnExit = calOPStartExit
|
---|
| 320 | DateOnly = True
|
---|
| 321 | RequireTime = False
|
---|
| 322 | Caption = 'Start Date'
|
---|
| 323 | end
|
---|
| 324 | object calOPStop: TORDateBox
|
---|
| 325 | Left = 292
|
---|
| 326 | Top = 50
|
---|
| 327 | Width = 120
|
---|
| 328 | Height = 21
|
---|
| 329 | TabOrder = 5
|
---|
| 330 | OnChange = calOPStopChange
|
---|
| 331 | DateOnly = True
|
---|
| 332 | RequireTime = False
|
---|
| 333 | Caption = 'End Date'
|
---|
| 334 | end
|
---|
| 335 | object cboOPDietAvail: TORComboBox
|
---|
| 336 | Left = 127
|
---|
| 337 | Top = 15
|
---|
| 338 | Width = 157
|
---|
| 339 | Height = 21
|
---|
| 340 | Style = orcsDropDown
|
---|
| 341 | AutoSelect = True
|
---|
| 342 | Caption = 'Available Diet Components'
|
---|
| 343 | Color = clWindow
|
---|
| 344 | DropDownCount = 8
|
---|
| 345 | ItemHeight = 13
|
---|
| 346 | ItemTipColor = clWindow
|
---|
| 347 | ItemTipEnable = True
|
---|
| 348 | ListItemsOnly = True
|
---|
| 349 | LongList = True
|
---|
| 350 | LookupPiece = 0
|
---|
| 351 | MaxLength = 0
|
---|
| 352 | Pieces = '2'
|
---|
| 353 | Sorted = False
|
---|
| 354 | SynonymChars = '<>'
|
---|
| 355 | TabOrder = 1
|
---|
| 356 | OnExit = cboDietAvailExit
|
---|
| 357 | OnMouseClick = cboOPDietAvailMouseClick
|
---|
| 358 | OnNeedData = cboOPDietAvailNeedData
|
---|
| 359 | end
|
---|
| 360 | object txtOPDietComment: TCaptionEdit
|
---|
| 361 | Left = 4
|
---|
| 362 | Top = 131
|
---|
| 363 | Width = 404
|
---|
| 364 | Height = 21
|
---|
| 365 | MaxLength = 80
|
---|
| 366 | TabOrder = 11
|
---|
| 367 | OnChange = OPChange
|
---|
| 368 | Caption = 'Special Instructions'
|
---|
| 369 | end
|
---|
| 370 | object cboOPDelivery: TORComboBox
|
---|
| 371 | Left = 292
|
---|
| 372 | Top = 86
|
---|
| 373 | Width = 120
|
---|
| 374 | Height = 21
|
---|
| 375 | Style = orcsDropDown
|
---|
| 376 | AutoSelect = True
|
---|
| 377 | Caption = 'Delivery'
|
---|
| 378 | Color = clWindow
|
---|
| 379 | DropDownCount = 8
|
---|
| 380 | ItemHeight = 13
|
---|
| 381 | ItemTipColor = clWindow
|
---|
| 382 | ItemTipEnable = True
|
---|
| 383 | ListItemsOnly = True
|
---|
| 384 | LongList = False
|
---|
| 385 | LookupPiece = 0
|
---|
| 386 | MaxLength = 0
|
---|
| 387 | Pieces = '2'
|
---|
| 388 | Sorted = False
|
---|
| 389 | SynonymChars = '<>'
|
---|
| 390 | TabOrder = 9
|
---|
| 391 | OnChange = OPChange
|
---|
| 392 | end
|
---|
| 393 | object lstOPDietSelect: TORListBox
|
---|
| 394 | Left = 127
|
---|
| 395 | Top = 52
|
---|
| 396 | Width = 156
|
---|
| 397 | Height = 56
|
---|
| 398 | ItemHeight = 13
|
---|
| 399 | ParentShowHint = False
|
---|
| 400 | ShowHint = True
|
---|
| 401 | TabOrder = 2
|
---|
| 402 | Caption = 'Selected Diet Components'
|
---|
| 403 | ItemTipColor = clWindow
|
---|
| 404 | LongList = False
|
---|
| 405 | Pieces = '2'
|
---|
| 406 | end
|
---|
| 407 | object cmdOPRemove: TButton
|
---|
| 408 | Left = 212
|
---|
| 409 | Top = 109
|
---|
| 410 | Width = 72
|
---|
| 411 | Height = 17
|
---|
| 412 | Caption = 'Remove'
|
---|
| 413 | TabOrder = 3
|
---|
| 414 | OnClick = cmdOPRemoveClick
|
---|
| 415 | end
|
---|
| 416 | object chkOPCancelTubefeeding: TCheckBox
|
---|
| 417 | Left = 292
|
---|
| 418 | Top = 112
|
---|
| 419 | Width = 115
|
---|
| 420 | Height = 17
|
---|
| 421 | Caption = 'Cancel Tubefeeding'
|
---|
| 422 | State = cbGrayed
|
---|
| 423 | TabOrder = 10
|
---|
| 424 | Visible = False
|
---|
| 425 | OnClick = DietChange
|
---|
| 426 | end
|
---|
| 427 | end
|
---|
| 428 | object pgeTubefeeding: TTabSheet
|
---|
| 429 | Caption = 'Tubefeeding'
|
---|
| 430 | object lblTFProductList: TLabel
|
---|
| 431 | Left = 4
|
---|
| 432 | Top = 0
|
---|
| 433 | Width = 105
|
---|
| 434 | Height = 13
|
---|
| 435 | Caption = 'Tubefeeding Products'
|
---|
| 436 | end
|
---|
| 437 | object lblTFComment: TLabel
|
---|
| 438 | Left = 4
|
---|
| 439 | Top = 119
|
---|
| 440 | Width = 92
|
---|
| 441 | Height = 13
|
---|
| 442 | Caption = 'Special Instructions'
|
---|
| 443 | end
|
---|
| 444 | object lblTFStrength: TLabel
|
---|
| 445 | Left = 288
|
---|
| 446 | Top = 0
|
---|
| 447 | Width = 40
|
---|
| 448 | Height = 13
|
---|
| 449 | Caption = 'Strength'
|
---|
| 450 | end
|
---|
| 451 | object lblTFQuantity: TLabel
|
---|
| 452 | Left = 352
|
---|
| 453 | Top = 0
|
---|
| 454 | Width = 39
|
---|
| 455 | Height = 13
|
---|
| 456 | Caption = 'Quantity'
|
---|
| 457 | end
|
---|
| 458 | object lblTFProduct: TLabel
|
---|
| 459 | Left = 152
|
---|
| 460 | Top = 0
|
---|
| 461 | Width = 37
|
---|
| 462 | Height = 13
|
---|
| 463 | Caption = 'Product'
|
---|
| 464 | end
|
---|
| 465 | object lblTFAmount: TLabel
|
---|
| 466 | Left = 428
|
---|
| 467 | Top = 0
|
---|
| 468 | Width = 36
|
---|
| 469 | Height = 13
|
---|
| 470 | Caption = 'Amount'
|
---|
| 471 | end
|
---|
| 472 | object cboProduct: TORComboBox
|
---|
| 473 | Left = 4
|
---|
| 474 | Top = 14
|
---|
| 475 | Width = 140
|
---|
| 476 | Height = 97
|
---|
| 477 | Style = orcsSimple
|
---|
| 478 | AutoSelect = True
|
---|
| 479 | Caption = 'Tubefeeding Products'
|
---|
| 480 | Color = clWindow
|
---|
| 481 | DropDownCount = 8
|
---|
| 482 | ItemHeight = 13
|
---|
| 483 | ItemTipColor = clWindow
|
---|
| 484 | ItemTipEnable = True
|
---|
| 485 | ListItemsOnly = True
|
---|
| 486 | LongList = True
|
---|
| 487 | LookupPiece = 0
|
---|
| 488 | MaxLength = 0
|
---|
| 489 | Pieces = '2'
|
---|
| 490 | Sorted = False
|
---|
| 491 | SynonymChars = '<>'
|
---|
| 492 | TabOrder = 0
|
---|
| 493 | OnExit = cboProductExit
|
---|
| 494 | OnMouseClick = cboProductMouseClick
|
---|
| 495 | end
|
---|
| 496 | object txtTFComment: TCaptionEdit
|
---|
| 497 | Left = 4
|
---|
| 498 | Top = 133
|
---|
| 499 | Width = 504
|
---|
| 500 | Height = 21
|
---|
| 501 | MaxLength = 240
|
---|
| 502 | TabOrder = 6
|
---|
| 503 | OnChange = TFChange
|
---|
| 504 | Caption = 'Special Instructions'
|
---|
| 505 | end
|
---|
| 506 | object grdSelected: TCaptionStringGrid
|
---|
| 507 | Left = 152
|
---|
| 508 | Top = 14
|
---|
| 509 | Width = 356
|
---|
| 510 | Height = 63
|
---|
| 511 | ColCount = 4
|
---|
| 512 | DefaultColWidth = 88
|
---|
| 513 | DefaultRowHeight = 19
|
---|
| 514 | FixedCols = 0
|
---|
| 515 | RowCount = 1
|
---|
| 516 | FixedRows = 0
|
---|
| 517 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
|
---|
| 518 | ScrollBars = ssVertical
|
---|
| 519 | TabOrder = 1
|
---|
| 520 | OnDrawCell = grdSelectedDrawCell
|
---|
| 521 | OnSelectCell = grdSelectedSelectCell
|
---|
| 522 | Caption = 'Selected Products'
|
---|
| 523 | end
|
---|
| 524 | object cmdTFRemove: TButton
|
---|
| 525 | Left = 436
|
---|
| 526 | Top = 77
|
---|
| 527 | Width = 72
|
---|
| 528 | Height = 17
|
---|
| 529 | Caption = 'Remove'
|
---|
| 530 | TabOrder = 4
|
---|
| 531 | OnClick = cmdTFRemoveClick
|
---|
| 532 | end
|
---|
| 533 | object chkCancelTrays: TCheckBox
|
---|
| 534 | Left = 152
|
---|
| 535 | Top = 96
|
---|
| 536 | Width = 153
|
---|
| 537 | Height = 17
|
---|
| 538 | Caption = 'Cancel Future TRAY Orders'
|
---|
| 539 | TabOrder = 5
|
---|
| 540 | OnClick = TFChange
|
---|
| 541 | end
|
---|
| 542 | object txtQuantity: TCaptionEdit
|
---|
| 543 | Tag = -1
|
---|
| 544 | Left = 340
|
---|
| 545 | Top = 108
|
---|
| 546 | Width = 93
|
---|
| 547 | Height = 19
|
---|
| 548 | Hint =
|
---|
| 549 | 'Enter quantity as 2000 K, 100 CC/HOUR, 8 OZ/TID, etc; total quan' +
|
---|
| 550 | 'tity may not exceed 5000cc.'
|
---|
| 551 | Ctl3D = False
|
---|
| 552 | ParentCtl3D = False
|
---|
| 553 | ParentShowHint = False
|
---|
| 554 | ShowHint = True
|
---|
| 555 | TabOrder = 3
|
---|
| 556 | Visible = False
|
---|
| 557 | OnChange = txtQuantityChange
|
---|
| 558 | OnEnter = txtQuantityEnter
|
---|
| 559 | OnExit = txtQuantityExit
|
---|
| 560 | OnKeyDown = txtQuantityKeyDown
|
---|
| 561 | Caption = 'Quantity'
|
---|
| 562 | end
|
---|
| 563 | object cboStrength: TCaptionComboBox
|
---|
| 564 | Tag = -1
|
---|
| 565 | Left = 444
|
---|
| 566 | Top = 108
|
---|
| 567 | Width = 53
|
---|
| 568 | Height = 21
|
---|
| 569 | Style = csDropDownList
|
---|
| 570 | Ctl3D = False
|
---|
| 571 | ItemHeight = 13
|
---|
| 572 | ParentCtl3D = False
|
---|
| 573 | TabOrder = 2
|
---|
| 574 | Visible = False
|
---|
| 575 | OnChange = cboStrengthChange
|
---|
| 576 | OnEnter = cboStrengthEnter
|
---|
| 577 | OnExit = cboStrengthExit
|
---|
| 578 | OnKeyDown = cboStrengthKeyDown
|
---|
| 579 | Items.Strings = (
|
---|
| 580 | '1/4'
|
---|
| 581 | '1/2'
|
---|
| 582 | '3/4'
|
---|
| 583 | 'FULL')
|
---|
| 584 | Caption = 'Strength'
|
---|
| 585 | end
|
---|
| 586 | end
|
---|
| 587 | object pgeEarlyLate: TTabSheet
|
---|
| 588 | Caption = 'Early / Late Tray'
|
---|
| 589 | object lblELStart: TLabel
|
---|
| 590 | Left = 287
|
---|
| 591 | Top = 2
|
---|
| 592 | Width = 48
|
---|
| 593 | Height = 13
|
---|
| 594 | Caption = 'Start Date'
|
---|
| 595 | end
|
---|
| 596 | object lblELStop: TLabel
|
---|
| 597 | Left = 287
|
---|
| 598 | Top = 46
|
---|
| 599 | Width = 45
|
---|
| 600 | Height = 13
|
---|
| 601 | Caption = 'End Date'
|
---|
| 602 | end
|
---|
| 603 | object grpMeal: TKeyClickRadioGroup
|
---|
| 604 | Left = 4
|
---|
| 605 | Top = 2
|
---|
| 606 | Width = 106
|
---|
| 607 | Height = 93
|
---|
| 608 | Caption = ' Meal '
|
---|
| 609 | ItemIndex = 3
|
---|
| 610 | Items.Strings = (
|
---|
| 611 | 'Breakfast'
|
---|
| 612 | 'Lunch'
|
---|
| 613 | 'Evening'
|
---|
| 614 | '<none selected>')
|
---|
| 615 | TabOrder = 0
|
---|
| 616 | TabStop = True
|
---|
| 617 | OnClick = grpMealClick
|
---|
| 618 | end
|
---|
| 619 | object grpMealTime: TGroupBox
|
---|
| 620 | Left = 114
|
---|
| 621 | Top = 4
|
---|
| 622 | Width = 161
|
---|
| 623 | Height = 93
|
---|
| 624 | Caption = ' Meal Times '
|
---|
| 625 | TabOrder = 1
|
---|
| 626 | object lblNoTimes: TLabel
|
---|
| 627 | Left = 29
|
---|
| 628 | Top = 44
|
---|
| 629 | Width = 96
|
---|
| 630 | Height = 13
|
---|
| 631 | Caption = 'No meal times listed.'
|
---|
| 632 | Visible = False
|
---|
| 633 | end
|
---|
| 634 | object radET1: TRadioButton
|
---|
| 635 | Left = 8
|
---|
| 636 | Top = 18
|
---|
| 637 | Width = 56
|
---|
| 638 | Height = 17
|
---|
| 639 | TabOrder = 0
|
---|
| 640 | Visible = False
|
---|
| 641 | OnClick = ELChange
|
---|
| 642 | end
|
---|
| 643 | object radET2: TRadioButton
|
---|
| 644 | Left = 8
|
---|
| 645 | Top = 43
|
---|
| 646 | Width = 56
|
---|
| 647 | Height = 17
|
---|
| 648 | TabOrder = 1
|
---|
| 649 | Visible = False
|
---|
| 650 | OnClick = ELChange
|
---|
| 651 | end
|
---|
| 652 | object radET3: TRadioButton
|
---|
| 653 | Left = 8
|
---|
| 654 | Top = 68
|
---|
| 655 | Width = 56
|
---|
| 656 | Height = 17
|
---|
| 657 | TabOrder = 2
|
---|
| 658 | Visible = False
|
---|
| 659 | OnClick = ELChange
|
---|
| 660 | end
|
---|
| 661 | object radLT1: TRadioButton
|
---|
| 662 | Left = 92
|
---|
| 663 | Top = 18
|
---|
| 664 | Width = 56
|
---|
| 665 | Height = 17
|
---|
| 666 | TabOrder = 3
|
---|
| 667 | Visible = False
|
---|
| 668 | OnClick = ELChange
|
---|
| 669 | end
|
---|
| 670 | object radLT2: TRadioButton
|
---|
| 671 | Left = 92
|
---|
| 672 | Top = 43
|
---|
| 673 | Width = 56
|
---|
| 674 | Height = 17
|
---|
| 675 | TabOrder = 4
|
---|
| 676 | Visible = False
|
---|
| 677 | OnClick = ELChange
|
---|
| 678 | end
|
---|
| 679 | object radLT3: TRadioButton
|
---|
| 680 | Left = 92
|
---|
| 681 | Top = 68
|
---|
| 682 | Width = 56
|
---|
| 683 | Height = 17
|
---|
| 684 | TabOrder = 5
|
---|
| 685 | Visible = False
|
---|
| 686 | OnClick = ELChange
|
---|
| 687 | end
|
---|
| 688 | end
|
---|
| 689 | object calELStart: TORDateBox
|
---|
| 690 | Left = 287
|
---|
| 691 | Top = 15
|
---|
| 692 | Width = 120
|
---|
| 693 | Height = 21
|
---|
| 694 | TabOrder = 2
|
---|
| 695 | OnChange = calELStartChange
|
---|
| 696 | OnEnter = calELStartEnter
|
---|
| 697 | OnExit = calELStartExit
|
---|
| 698 | DateOnly = True
|
---|
| 699 | RequireTime = False
|
---|
| 700 | Caption = 'Start Date'
|
---|
| 701 | end
|
---|
| 702 | object calELStop: TORDateBox
|
---|
| 703 | Left = 287
|
---|
| 704 | Top = 60
|
---|
| 705 | Width = 120
|
---|
| 706 | Height = 21
|
---|
| 707 | TabOrder = 3
|
---|
| 708 | OnChange = calELStopChange
|
---|
| 709 | DateOnly = True
|
---|
| 710 | RequireTime = False
|
---|
| 711 | Caption = 'End Date'
|
---|
| 712 | end
|
---|
| 713 | object grpDoW: TGroupBox
|
---|
| 714 | Left = 415
|
---|
| 715 | Top = 2
|
---|
| 716 | Width = 93
|
---|
| 717 | Height = 152
|
---|
| 718 | Caption = 'Days of Week'
|
---|
| 719 | TabOrder = 4
|
---|
| 720 | object chkMonday: TCheckBox
|
---|
| 721 | Left = 8
|
---|
| 722 | Top = 16
|
---|
| 723 | Width = 80
|
---|
| 724 | Height = 17
|
---|
| 725 | Caption = 'Monday'
|
---|
| 726 | TabOrder = 0
|
---|
| 727 | OnClick = ELChange
|
---|
| 728 | end
|
---|
| 729 | object chkTuesday: TCheckBox
|
---|
| 730 | Left = 8
|
---|
| 731 | Top = 35
|
---|
| 732 | Width = 80
|
---|
| 733 | Height = 17
|
---|
| 734 | Caption = 'Tuesday'
|
---|
| 735 | TabOrder = 1
|
---|
| 736 | OnClick = ELChange
|
---|
| 737 | end
|
---|
| 738 | object chkWednesday: TCheckBox
|
---|
| 739 | Left = 8
|
---|
| 740 | Top = 54
|
---|
| 741 | Width = 80
|
---|
| 742 | Height = 17
|
---|
| 743 | Caption = 'Wednesday'
|
---|
| 744 | TabOrder = 2
|
---|
| 745 | OnClick = ELChange
|
---|
| 746 | end
|
---|
| 747 | object chkThursday: TCheckBox
|
---|
| 748 | Left = 8
|
---|
| 749 | Top = 73
|
---|
| 750 | Width = 80
|
---|
| 751 | Height = 17
|
---|
| 752 | Caption = 'Thursday'
|
---|
| 753 | TabOrder = 3
|
---|
| 754 | OnClick = ELChange
|
---|
| 755 | end
|
---|
| 756 | object chkFriday: TCheckBox
|
---|
| 757 | Left = 8
|
---|
| 758 | Top = 92
|
---|
| 759 | Width = 80
|
---|
| 760 | Height = 17
|
---|
| 761 | Caption = 'Friday'
|
---|
| 762 | TabOrder = 4
|
---|
| 763 | OnClick = ELChange
|
---|
| 764 | end
|
---|
| 765 | object chkSaturday: TCheckBox
|
---|
| 766 | Left = 8
|
---|
| 767 | Top = 111
|
---|
| 768 | Width = 80
|
---|
| 769 | Height = 17
|
---|
| 770 | Caption = 'Saturday'
|
---|
| 771 | TabOrder = 5
|
---|
| 772 | OnClick = ELChange
|
---|
| 773 | end
|
---|
| 774 | object chkSunday: TCheckBox
|
---|
| 775 | Left = 9
|
---|
| 776 | Top = 130
|
---|
| 777 | Width = 80
|
---|
| 778 | Height = 17
|
---|
| 779 | Caption = 'Sunday'
|
---|
| 780 | TabOrder = 6
|
---|
| 781 | OnClick = ELChange
|
---|
| 782 | end
|
---|
| 783 | end
|
---|
| 784 | object chkBagged: TCheckBox
|
---|
| 785 | Left = 4
|
---|
| 786 | Top = 120
|
---|
| 787 | Width = 85
|
---|
| 788 | Height = 17
|
---|
| 789 | Caption = 'Bagged Meal'
|
---|
| 790 | TabOrder = 5
|
---|
| 791 | OnClick = ELChange
|
---|
| 792 | end
|
---|
| 793 | end
|
---|
| 794 | object pgeIsolations: TTabSheet
|
---|
| 795 | Caption = 'Isolations / Precautions'
|
---|
| 796 | object lblIsolation: TLabel
|
---|
| 797 | Left = 4
|
---|
| 798 | Top = 0
|
---|
| 799 | Width = 123
|
---|
| 800 | Height = 13
|
---|
| 801 | Caption = 'Select Type of Precaution'
|
---|
| 802 | end
|
---|
| 803 | object lblIPComment: TLabel
|
---|
| 804 | Left = 4
|
---|
| 805 | Top = 119
|
---|
| 806 | Width = 54
|
---|
| 807 | Height = 13
|
---|
| 808 | Caption = 'Instructions'
|
---|
| 809 | end
|
---|
| 810 | object lblIPCurrent: TLabel
|
---|
| 811 | Left = 224
|
---|
| 812 | Top = 0
|
---|
| 813 | Width = 76
|
---|
| 814 | Height = 13
|
---|
| 815 | Caption = 'Current Isolation'
|
---|
| 816 | end
|
---|
| 817 | object lstIsolation: TORListBox
|
---|
| 818 | Left = 4
|
---|
| 819 | Top = 14
|
---|
| 820 | Width = 212
|
---|
| 821 | Height = 97
|
---|
| 822 | ItemHeight = 13
|
---|
| 823 | ParentShowHint = False
|
---|
| 824 | ShowHint = True
|
---|
| 825 | TabOrder = 0
|
---|
| 826 | Caption = 'Select Type of Precaution'
|
---|
| 827 | ItemTipColor = clWindow
|
---|
| 828 | LongList = False
|
---|
| 829 | Pieces = '2'
|
---|
| 830 | OnChange = IPChange
|
---|
| 831 | end
|
---|
| 832 | object txtIPComment: TCaptionEdit
|
---|
| 833 | Left = 4
|
---|
| 834 | Top = 133
|
---|
| 835 | Width = 504
|
---|
| 836 | Height = 21
|
---|
| 837 | MaxLength = 240
|
---|
| 838 | TabOrder = 2
|
---|
| 839 | OnChange = IPChange
|
---|
| 840 | Caption = 'Instructions'
|
---|
| 841 | end
|
---|
| 842 | object txtIPCurrent: TCaptionEdit
|
---|
| 843 | Left = 224
|
---|
| 844 | Top = 14
|
---|
| 845 | Width = 212
|
---|
| 846 | Height = 21
|
---|
| 847 | Color = clBtnFace
|
---|
| 848 | ReadOnly = True
|
---|
| 849 | TabOrder = 1
|
---|
| 850 | Text = '<none>'
|
---|
| 851 | Caption = 'Current Isolation'
|
---|
| 852 | end
|
---|
| 853 | end
|
---|
| 854 | object pgeAdditional: TTabSheet
|
---|
| 855 | Caption = 'Additional Order'
|
---|
| 856 | object lblAddlOrder: TLabel
|
---|
| 857 | Left = 4
|
---|
| 858 | Top = 24
|
---|
| 859 | Width = 125
|
---|
| 860 | Height = 13
|
---|
| 861 | Caption = 'Enter Additional Diet Order'
|
---|
| 862 | end
|
---|
| 863 | object txtAOComment: TCaptionEdit
|
---|
| 864 | Left = 4
|
---|
| 865 | Top = 38
|
---|
| 866 | Width = 504
|
---|
| 867 | Height = 21
|
---|
| 868 | MaxLength = 80
|
---|
| 869 | TabOrder = 0
|
---|
| 870 | OnChange = AOChange
|
---|
| 871 | Caption = 'Enter Additional Diet Order'
|
---|
| 872 | end
|
---|
| 873 | end
|
---|
| 874 | end
|
---|
| 875 | inherited cmdAccept: TButton
|
---|
| 876 | TabOrder = 2
|
---|
| 877 | end
|
---|
| 878 | inherited cmdQuit: TButton
|
---|
| 879 | TabOrder = 3
|
---|
| 880 | end
|
---|
| 881 | inherited pnlMessage: TPanel
|
---|
| 882 | Top = 172
|
---|
| 883 | Height = 57
|
---|
| 884 | TabOrder = 1
|
---|
| 885 | inherited imgMessage: TImage
|
---|
| 886 | Top = 10
|
---|
| 887 | end
|
---|
| 888 | inherited memMessage: TRichEdit
|
---|
| 889 | Height = 45
|
---|
| 890 | end
|
---|
| 891 | end
|
---|
| 892 | end
|
---|