Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Orders/fODDiet.dfm
- Timestamp:
- Jul 6, 2008, 8:20:14 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/foia-cprs/CPRS-Chart/Orders/fODDiet.dfm
r459 r460 1 1 inherited frmODDiet: TfrmODDiet 2 Left = 404 3 Top = 199 2 Left = 541 3 Top = 398 4 Width = 532 5 Height = 291 4 6 Caption = 'Diet Order' 5 7 OnKeyDown = FormKeyDown … … 9 11 Left = 0 10 12 Top = 0 11 Width = 52 012 Height = 1 8613 Width = 524 14 Height = 194 13 15 ActivePage = pgeOutPt 14 16 Align = alTop … … 86 88 OnMouseClick = cboDietAvailMouseClick 87 89 OnNeedData = cboDietAvailNeedData 90 CharsNeedMatch = 1 88 91 end 89 92 object lstDietSelect: TORListBox … … 165 168 TabOrder = 6 166 169 OnChange = DietChange 170 CharsNeedMatch = 1 167 171 end 168 172 object chkCancelTubefeeding: TCheckBox … … 195 199 end 196 200 object lblOPDietAvail: TLabel 197 Left = 127198 Top = 0201 Left = 0 202 Top = 1 199 203 Width = 70 200 204 Height = 13 … … 203 207 object lblOPComment: TLabel 204 208 Left = 4 205 Top = 1 17209 Top = 128 206 210 Width = 92 207 211 Height = 13 … … 216 220 end 217 221 object lblOPSelect: TLabel 218 Left = 127219 Top = 3 8222 Left = 0 223 Top = 39 220 224 Width = 64 221 225 Height = 13 … … 223 227 end 224 228 object grpOPMeal: TKeyClickRadioGroup 225 Left = 5226 Top = 5229 Left = 168 230 Top = 11 227 231 Width = 110 228 232 Height = 107 … … 234 238 'Evening' 235 239 '<none selected>') 236 TabOrder = 0240 TabOrder = 3 237 241 TabStop = True 238 242 OnClick = grpOPMealClick … … 242 246 Top = 5 243 247 Width = 93 244 Height = 1 49248 Height = 155 245 249 Caption = 'Days of Week' 246 250 TabOrder = 8 … … 334 338 end 335 339 object cboOPDietAvail: TORComboBox 336 Left = 127337 Top = 1 5340 Left = 0 341 Top = 16 338 342 Width = 157 339 343 Height = 21 … … 341 345 AutoSelect = True 342 346 Caption = 'Available Diet Components' 343 Color = clWindow344 DropDownCount = 8345 ItemHeight = 13346 ItemTipColor = clWindow347 ItemTipEnable = True348 ListItemsOnly = True349 LongList = True350 LookupPiece = 0351 MaxLength = 0352 Pieces = '2'353 Sorted = False354 SynonymChars = '<>'355 TabOrder = 1356 OnExit = cboDietAvailExit357 OnMouseClick = cboOPDietAvailMouseClick358 OnNeedData = cboOPDietAvailNeedData359 end360 object txtOPDietComment: TCaptionEdit361 Left = 4362 Top = 131363 Width = 404364 Height = 21365 MaxLength = 80366 TabOrder = 11367 OnChange = OPChange368 Caption = 'Special Instructions'369 end370 object cboOPDelivery: TORComboBox371 Left = 292372 Top = 86373 Width = 120374 Height = 21375 Style = orcsDropDown376 AutoSelect = True377 Caption = 'Delivery'378 347 Color = clWindow 379 348 DropDownCount = 8 … … 388 357 Sorted = False 389 358 SynonymChars = '<>' 390 TabOrder = 9 359 TabOrder = 0 360 OnExit = cboDietAvailExit 361 OnKeyDown = cboOPDietAvailKeyDown 362 OnMouseClick = cboOPDietAvailMouseClick 363 CharsNeedMatch = 1 364 end 365 object txtOPDietComment: TCaptionEdit 366 Left = 3 367 Top = 143 368 Width = 404 369 Height = 21 370 MaxLength = 80 371 TabOrder = 11 391 372 OnChange = OPChange 373 Caption = 'Special Instructions' 374 end 375 object cboOPDelivery: TORComboBox 376 Left = 292 377 Top = 86 378 Width = 120 379 Height = 21 380 Style = orcsDropDown 381 AutoSelect = True 382 Caption = 'Delivery' 383 Color = clWindow 384 DropDownCount = 8 385 ItemHeight = 13 386 ItemTipColor = clWindow 387 ItemTipEnable = True 388 ListItemsOnly = True 389 LongList = False 390 LookupPiece = 0 391 MaxLength = 0 392 Pieces = '2' 393 Sorted = False 394 SynonymChars = '<>' 395 TabOrder = 6 396 OnChange = OPChange 397 CharsNeedMatch = 1 392 398 end 393 399 object lstOPDietSelect: TORListBox 394 Left = 127395 Top = 5 2400 Left = 0 401 Top = 53 396 402 Width = 156 397 403 Height = 56 … … 399 405 ParentShowHint = False 400 406 ShowHint = True 401 TabOrder = 2407 TabOrder = 1 402 408 Caption = 'Selected Diet Components' 403 409 ItemTipColor = clWindow 404 410 LongList = False 405 411 Pieces = '2' 412 OnChange = OPChange 406 413 end 407 414 object cmdOPRemove: TButton 408 Left = 212409 Top = 1 09415 Left = 85 416 Top = 110 410 417 Width = 72 411 418 Height = 17 412 419 Caption = 'Remove' 413 TabOrder = 3420 TabOrder = 2 414 421 OnClick = cmdOPRemoveClick 415 422 end … … 421 428 Caption = 'Cancel Tubefeeding' 422 429 State = cbGrayed 423 TabOrder = 10430 TabOrder = 7 424 431 Visible = False 425 OnClick = DietChange432 OnClick = OPChange 426 433 end 427 434 end … … 469 476 Height = 13 470 477 Caption = 'Amount' 478 end 479 object lblOPTFStart: TLabel 480 Left = 341 481 Top = 90 482 Width = 51 483 Height = 13 484 Caption = 'Start Date:' 471 485 end 472 486 object cboProduct: TORComboBox … … 493 507 OnExit = cboProductExit 494 508 OnMouseClick = cboProductMouseClick 509 CharsNeedMatch = 1 495 510 end 496 511 object txtTFComment: TCaptionEdit 497 Left = 4512 Left = 6 498 513 Top = 133 499 514 Width = 504 500 515 Height = 21 501 516 MaxLength = 240 502 TabOrder = 6517 TabOrder = 8 503 518 OnChange = TFChange 504 519 Caption = 'Special Instructions' … … 542 557 object txtQuantity: TCaptionEdit 543 558 Tag = -1 544 Left = 340545 Top = 1 08559 Left = 151 560 Top = 124 546 561 Width = 93 547 562 Height = 19 548 563 Hint = 549 'Enter quantity as 2000 K, 100 CC/HOUR, 8 OZ/TID, etc; total quan' +550 'tity may not exceed 5000 cc.'564 'Enter quantity as 2000 K, 100 ML/HOUR, 8 OZ/TID, etc; total quan' + 565 'tity may not exceed 5000ml.' 551 566 Ctl3D = False 552 567 ParentCtl3D = False … … 563 578 object cboStrength: TCaptionComboBox 564 579 Tag = -1 565 Left = 444566 Top = 1 08580 Left = 252 581 Top = 124 567 582 Width = 53 568 583 Height = 21 … … 583 598 'FULL') 584 599 Caption = 'Strength' 600 end 601 object calOPTFStart: TORDateBox 602 Left = 341 603 Top = 104 604 Width = 169 605 Height = 21 606 TabStop = False 607 TabOrder = 7 608 Visible = False 609 OnChange = TFChange 610 DateOnly = False 611 RequireTime = False 612 Caption = 'Start Date:' 613 end 614 object cboOPTFRecurringMeals: TORComboBox 615 Left = 342 616 Top = 105 617 Width = 160 618 Height = 21 619 Style = orcsDropDown 620 AutoSelect = True 621 Color = clWindow 622 DropDownCount = 8 623 ItemHeight = 13 624 ItemTipColor = clWindow 625 ItemTipEnable = True 626 ListItemsOnly = False 627 LongList = False 628 LookupPiece = 0 629 MaxLength = 0 630 Pieces = '2,3' 631 Sorted = False 632 SynonymChars = '<>' 633 TabPositions = '12' 634 TabOrder = 6 635 TabStop = True 636 OnChange = TFChange 637 CharsNeedMatch = 1 585 638 end 586 639 end … … 705 758 Width = 120 706 759 Height = 21 707 TabOrder = 3760 TabOrder = 4 708 761 OnChange = calELStopChange 709 762 DateOnly = True … … 717 770 Height = 152 718 771 Caption = 'Days of Week' 719 TabOrder = 4772 TabOrder = 5 720 773 object chkMonday: TCheckBox 721 774 Left = 8 … … 788 841 Height = 17 789 842 Caption = 'Bagged Meal' 790 TabOrder = 5843 TabOrder = 6 791 844 OnClick = ELChange 845 end 846 object cboOPELRecurringMeals: TORComboBox 847 Left = 287 848 Top = 15 849 Width = 121 850 Height = 21 851 Style = orcsDropDown 852 AutoSelect = True 853 Color = clWindow 854 DropDownCount = 8 855 ItemHeight = 13 856 ItemTipColor = clWindow 857 ItemTipEnable = True 858 ListItemsOnly = False 859 LongList = False 860 LookupPiece = 0 861 MaxLength = 0 862 Pieces = '2,3' 863 Sorted = False 864 SynonymChars = '<>' 865 TabPositions = '12' 866 TabOrder = 3 867 TabStop = True 868 OnChange = ELChange 869 CharsNeedMatch = 1 792 870 end 793 871 end … … 861 939 Caption = 'Enter Additional Diet Order' 862 940 end 941 object lblOPAOStart: TLabel 942 Left = 6 943 Top = 72 944 Width = 51 945 Height = 13 946 Caption = 'Start Date:' 947 end 863 948 object txtAOComment: TCaptionEdit 864 949 Left = 4 … … 867 952 Height = 21 868 953 MaxLength = 80 869 TabOrder = 0954 TabOrder = 1 870 955 OnChange = AOChange 871 956 Caption = 'Enter Additional Diet Order' 872 957 end 958 object calOPAOStart: TORDateBox 959 Left = 54 960 Top = 88 961 Width = 169 962 Height = 21 963 TabStop = False 964 TabOrder = 4 965 Visible = False 966 OnChange = AOChange 967 DateOnly = False 968 RequireTime = False 969 Caption = 'Start Date:' 970 end 971 object cboOPAORecurringMeals: TORComboBox 972 Left = 6 973 Top = 88 974 Width = 168 975 Height = 21 976 Style = orcsDropDown 977 AutoSelect = True 978 Color = clWindow 979 DropDownCount = 8 980 ItemHeight = 13 981 ItemTipColor = clWindow 982 ItemTipEnable = True 983 ListItemsOnly = False 984 LongList = False 985 LookupPiece = 0 986 MaxLength = 0 987 Pieces = '2,3' 988 Sorted = False 989 SynonymChars = '<>' 990 TabPositions = '12' 991 TabOrder = 2 992 TabStop = True 993 OnChange = AOChange 994 CharsNeedMatch = 1 995 end 873 996 end 874 997 end 998 inherited memOrder: TCaptionMemo 999 Top = 208 1000 end 875 1001 inherited cmdAccept: TButton 1002 Left = 445 1003 Top = 208 876 1004 TabOrder = 2 877 1005 end 878 1006 inherited cmdQuit: TButton 1007 Left = 445 1008 Top = 235 879 1009 TabOrder = 3 880 1010 end 881 1011 inherited pnlMessage: TPanel 882 Top = 1 721012 Top = 197 883 1013 Height = 57 884 1014 TabOrder = 1
Note:
See TracChangeset
for help on using the changeset viewer.