Ignore:
Timestamp:
May 7, 2015, 12:34:29 PM (9 years ago)
Author:
healthsevak
Message:

Updating the working copy to CPRS version 28

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/Orders/fODBBank.dfm

    r829 r1679  
    22  Left = 409
    33  Top = 244
    4   HorzScrollBar.Range = 0
    5   VertScrollBar.Range = 0
     4  Width = 700
     5  Height = 626
     6  AutoScroll = True
    67  Caption = 'Blood Component and Diagnostic Test Order Form'
    7   ClientHeight = 600
    8   ClientWidth = 709
    9   ExplicitWidth = 717
    10   ExplicitHeight = 634
     8  OnShow = FormShow
     9  ExplicitWidth = 700
     10  ExplicitHeight = 626
    1111  PixelsPerInch = 96
    1212  TextHeight = 13
    13   object pnlComments: TPanel [0]
     13  object Splitter1: TSplitter [0]
     14    Left = 0
     15    Top = 0
     16    Width = 692
     17    Height = 2
     18    Cursor = crVSplit
     19    Align = alTop
     20  end
     21  object pnlComments: TPanel [1]
    1422    Left = 12
    1523    Top = 25
    … …  
    5159  end
    5260  inherited memOrder: TCaptionMemo
    53     Left = 0
    54     Top = 399
     61    Left = 4
     62    Top = 503
    5563    Width = 449
    5664    Height = 59
    5765    Visible = False
    58     ExplicitLeft = 0
    59     ExplicitTop = 399
     66    ExplicitLeft = 4
     67    ExplicitTop = 503
    6068    ExplicitWidth = 449
    6169    ExplicitHeight = 59
    6270  end
    63   object pgeProduct: TPageControl [2]
     71  object pgeProduct: TPageControl [3]
    6472    Left = 0
    65     Top = 0
    66     Width = 709
    67     Height = 393
     73    Top = 2
     74    Width = 692
     75    Height = 497
    6876    ActivePage = TabDiag
    6977    Align = alTop
    70     TabOrder = 6
    71     TabStop = False
     78    TabOrder = 4
    7279    OnChange = pgeProductChange
    7380    object TabInfo: TTabSheet
    7481      Caption = 'Patient Information'
    7582      ImageIndex = 3
     83      ExplicitLeft = 0
     84      ExplicitTop = 0
     85      ExplicitWidth = 0
     86      ExplicitHeight = 0
    7687      object edtInfo: TCaptionRichEdit
    7788        Left = 0
    78         Top = 8
    79         Width = 556
    80         Height = 337
    81         TabStop = False
     89        Top = 0
     90        Width = 684
     91        Height = 469
     92        Align = alClient
    8293        BevelInner = bvNone
    8394        BevelOuter = bvNone
    … …  
    91102        ScrollBars = ssBoth
    92103        TabOrder = 0
     104        WordWrap = False
    93105        Caption = 'Patient Info'
    94106      end
    … …  
    98110      ImageIndex = 2
    99111      object lblReqComment: TOROffsetLabel
    100         Left = 298
     112        Left = 300
    101113        Top = 25
    102114        Width = 108
    … …  
    109121      object pnlFields: TPanel
    110122        Left = 0
    111         Top = 163
    112         Width = 701
    113         Height = 99
     123        Top = 145
     124        Width = 684
     125        Height = 210
    114126        Hint = 'Data entered into these fields apply to the entire order.'
    115127        Align = alTop
    … …  
    120132        TabOrder = 2
    121133        object lblDiagComment: TOROffsetLabel
    122           Left = 257
    123           Top = 35
    124           Width = 46
     134          Left = 0
     135          Top = 128
     136          Width = 62
    125137          Height = 15
    126138          Caption = 'Comment'
    … …  
    137149        end
    138150        object lblUrgency: TLabel
    139           Left = 8
    140           Top = -2
     151          Left = 0
     152          Top = -1
    141153          Width = 44
    142154          Height = 13
    … …  
    150162        end
    151163        object lblReason: TLabel
    152           Left = 10
    153           Top = 35
    154           Width = 99
     164          Left = 0
     165          Top = 40
     166          Width = 95
    155167          Height = 13
    156           Caption = 'Reason for Request*'
     168          Caption = 'Reason for Request'
    157169          Font.Charset = DEFAULT_CHARSET
    158170          Font.Color = clWindowText
    … …  
    163175        end
    164176        object lblSurgery: TLabel
    165           Left = 115
    166           Top = -2
     177          Left = 117
     178          Top = 0
    167179          Width = 36
    168180          Height = 13
    … …  
    171183            'r.'
    172184          Caption = 'Surgery'
     185          Enabled = False
    173186          Font.Charset = DEFAULT_CHARSET
    174187          Font.Color = clWindowText
    … …  
    179192        end
    180193        object lblRequiredField: TLabel
    181           Left = 10
    182           Top = 75
     194          Left = 398
     195          Top = 38
    183196          Width = 122
    184197          Height = 13
    185198          Caption = '* Indicates a required field'
    186199        end
     200        object lblTNS: TLabel
     201          Left = 270
     202          Top = 0
     203          Width = 14
     204          Height = 13
     205          Caption = 'tns'
     206          Color = clActiveBorder
     207          Font.Charset = DEFAULT_CHARSET
     208          Font.Color = clMaroon
     209          Font.Height = -11
     210          Font.Name = 'MS Sans Serif'
     211          Font.Style = []
     212          ParentColor = False
     213          ParentFont = False
     214          Visible = False
     215        end
     216        object lblNoBloodReq: TLabel
     217          Left = 341
     218          Top = 21
     219          Width = 176
     220          Height = 13
     221          Caption = 'No Blood Required for this Procedure'
     222          Font.Charset = DEFAULT_CHARSET
     223          Font.Color = clMaroon
     224          Font.Height = -11
     225          Font.Name = 'MS Sans Serif'
     226          Font.Style = []
     227          ParentFont = False
     228          Visible = False
     229        end
    187230        object cboUrgency: TORComboBox
    188           Left = 12
    189           Top = 12
     231          Left = 4
     232          Top = 14
    190233          Width = 98
    191234          Height = 21
    … …  
    217260        end
    218261        object chkConsent: TCheckBox
    219           Left = 351
    220           Top = 10
     262          Left = 529
     263          Top = 92
    221264          Width = 112
    222265          Height = 17
    … …  
    237280        end
    238281        object cboSurgery: TORComboBox
    239           Left = 115
    240           Top = 12
     282          Left = 117
     283          Top = 14
    241284          Width = 218
    242285          Height = 21
    … …  
    269312        end
    270313        object cboReasons: TORComboBox
    271           Left = 12
    272           Top = 51
    273           Width = 239
    274           Height = 21
    275           Style = orcsDropDown
     314          Left = 4
     315          Top = 55
     316          Width = 525
     317          Height = 74
     318          Style = orcsSimple
    276319          AutoSelect = True
    277320          Color = clWindow
    … …  
    293336        end
    294337        object memDiagComment: TRichEdit
    295           Left = 257
    296           Top = 51
    297           Width = 250
    298           Height = 48
     338          Left = 4
     339          Top = 144
     340          Width = 525
     341          Height = 60
    299342          TabOrder = 4
    300343          OnChange = memDiagCommentChange
    … …  
    304347        Left = 0
    305348        Top = 35
    306         Width = 701
    307         Height = 128
     349        Width = 684
     350        Height = 110
    308351        Align = alTop
    309352        BevelEdges = []
    310353        BevelOuter = bvNone
    311354        TabOrder = 1
    312         object lblTNS: TLabel
    313           Left = 298
    314           Top = 109
    315           Width = 14
    316           Height = 13
    317           Caption = 'tns'
    318           Color = clActiveBorder
    319           Font.Charset = DEFAULT_CHARSET
    320           Font.Color = clMaroon
    321           Font.Height = -11
    322           Font.Name = 'MS Sans Serif'
    323           Font.Style = []
    324           ParentColor = False
    325           ParentFont = False
    326           Visible = False
    327         end
    328355        object pnlDiagnosticTests: TGroupBox
    329           Left = 256
     356          Left = 266
    330357          Top = 0
    331           Width = 267
     358          Width = 256
    332359          Height = 110
    333360          Caption = 'Diagnostic Tests'
    … …  
    339366          ParentFont = False
    340367          TabOrder = 1
     368          OnClick = pnlDiagnosticTestsClick
     369          OnEnter = pnlDiagnosticTestsEnter
     370          OnExit = pnlDiagnosticTestsExit
    341371          object lblCollType: TLabel
    342372            Left = 13
    … …  
    355385            Left = 12
    356386            Top = 70
    357             Width = 104
     387            Width = 100
    358388            Height = 13
    359             Caption = 'Collection Date/Time*'
    360             Font.Charset = DEFAULT_CHARSET
    361             Font.Color = clWindowText
    362             Font.Height = -11
    363             Font.Name = 'MS Sans Serif'
    364             Font.Style = []
    365             ParentFont = False
    366           end
    367           object cmdImmedColl: TSpeedButton
    368             Left = 148
    369             Top = 89
     389            Caption = 'Collection Date/Time'
     390            Font.Charset = DEFAULT_CHARSET
     391            Font.Color = clWindowText
     392            Font.Height = -11
     393            Font.Name = 'MS Sans Serif'
     394            Font.Style = []
     395            ParentFont = False
     396          end
     397          object pnlCollTimeButton: TKeyClickPanel
     398            Left = 178
     399            Top = 82
    370400            Width = 21
    371             Height = 11
    372             Font.Charset = DEFAULT_CHARSET
    373             Font.Color = clWindowText
    374             Font.Height = -16
    375             Font.Name = 'MS Sans Serif'
    376             Font.Style = [fsBold]
    377             Glyph.Data = {
    378               D6000000424DD60000000000000076000000280000000C0000000C0000000100
    379               0400000000006000000000000000000000001000000010000000000000000000
    380               80000080000000808000800000008000800080800000C0C0C000808080000000
    381               FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
    382               0000333333333333000033333333333300003333333333330000300330033003
    383               0000300330033003000033333333333300003333333333330000333333333333
    384               0000333333333333000033333333333300003333333333330000}
    385             ParentFont = False
    386             ParentShowHint = False
    387             ShowHint = False
    388             OnClick = cmdImmedCollClick
    389           end
    390           object pnlCollTimeButton: TKeyClickPanel
    391             Left = 85
    392             Top = 89
    393             Width = 20
    394             Height = 13
     401            Height = 21
    395402            BevelOuter = bvNone
    396403            Caption = 'Select collection time'
    397404            TabOrder = 5
    398405            TabStop = True
     406            object cmdImmedColl: TSpeedButton
     407              Left = 0
     408              Top = 0
     409              Width = 21
     410              Height = 21
     411              Align = alClient
     412              Font.Charset = DEFAULT_CHARSET
     413              Font.Color = clWindowText
     414              Font.Height = -16
     415              Font.Name = 'MS Sans Serif'
     416              Font.Style = [fsBold]
     417              Glyph.Data = {
     418                D6000000424DD60000000000000076000000280000000C0000000C0000000100
     419                0400000000006000000000000000000000001000000010000000000000000000
     420                80000080000000808000800000008000800080800000C0C0C000808080000000
     421                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
     422                0000333333333333000033333333333300003333333333330000300330033003
     423                0000300330033003000033333333333300003333333333330000333333333333
     424                0000333333333333000033333333333300003333333333330000}
     425              ParentFont = False
     426              ParentShowHint = False
     427              ShowHint = False
     428              OnClick = cmdImmedCollClick
     429            end
     430          end
     431          object calCollTime: TORDateBox
     432            Left = 12
     433            Top = 82
     434            Width = 165
     435            Height = 21
     436            Font.Charset = DEFAULT_CHARSET
     437            Font.Color = clWindowText
     438            Font.Height = -11
     439            Font.Name = 'MS Sans Serif'
     440            Font.Style = []
     441            ParentFont = False
     442            TabOrder = 4
     443            OnChange = calCollTimeChange
     444            OnEnter = calCollTimeEnter
     445            DateOnly = False
     446            RequireTime = False
    399447          end
    400448          object cboAvailTest: TORComboBox
    … …  
    417465            ItemTipEnable = True
    418466            ListItemsOnly = False
    419             LongList = True
     467            LongList = False
    420468            LookupPiece = 0
    421469            MaxLength = 0
    … …  
    426474            TabOrder = 0
    427475            TabStop = True
     476            OnClick = cboAvailTestSelect
     477            OnEnter = cboAvailTestEnter
    428478            OnExit = cboAvailTestExit
    429             OnMouseClick = cboAvailTestSelect
    430479            OnNeedData = cboAvailTestNeedData
    431480            CharsNeedMatch = 1
    … …  
    434483            Left = 12
    435484            Top = 46
    436             Width = 165
     485            Width = 197
    437486            Height = 21
    438487            Style = orcsDropDown
    … …  
    459508            TabOrder = 1
    460509            OnChange = cboCollTypeChange
     510            OnClick = cboCollTypeClick
     511            OnEnter = cboCollTypeEnter
    461512            CharsNeedMatch = 1
    462513          end
    … …  
    489540            TabOrder = 2
    490541            OnChange = cboCollTimeChange
     542            OnEnter = cboCollTimeEnter
    491543            CharsNeedMatch = 1
    492           end
    493           object calCollTime: TORDateBox
    494             Left = 12
    495             Top = 82
    496             Width = 165
    497             Height = 21
    498             Font.Charset = DEFAULT_CHARSET
    499             Font.Color = clWindowText
    500             Font.Height = -11
    501             Font.Name = 'MS Sans Serif'
    502             Font.Style = []
    503             ParentFont = False
    504             TabOrder = 3
    505             OnChange = calCollTimeChange
    506             DateOnly = False
    507             RequireTime = False
    508544          end
    509545          object txtImmedColl: TCaptionEdit
    … …  
    514550            Color = clBtnFace
    515551            ReadOnly = True
    516             TabOrder = 4
    517             Text = 'txtImmedColl'
     552            TabOrder = 3
     553            OnEnter = txtImmedCollEnter
    518554          end
    519555        end
    … …  
    521557          Left = 4
    522558          Top = 0
    523           Width = 246
     559          Width = 256
    524560          Height = 110
    525561          Caption = 'Blood Components'
     562          Color = clBtnFace
    526563          Font.Charset = DEFAULT_CHARSET
    527564          Font.Color = clWindowText
    … …  
    529566          Font.Name = 'MS Sans Serif'
    530567          Font.Style = [fsBold]
     568          ParentColor = False
    531569          ParentFont = False
    532570          TabOrder = 0
     571          OnClick = pnlBloodComponentsClick
     572          OnEnter = pnlBloodComponentsEnter
     573          OnExit = pnlBloodComponentsExit
    533574          object lblQuantity: TLabel
    534575            Left = 198
    535576            Top = 0
    536             Width = 43
     577            Width = 39
    537578            Height = 13
    538             Caption = 'Quantity*'
     579            Caption = 'Quantity'
    539580            Font.Charset = DEFAULT_CHARSET
    540581            Font.Color = clWindowText
    … …  
    560601            Left = 7
    561602            Top = 70
    562             Width = 96
     603            Width = 92
    563604            Height = 13
    564             Caption = 'Date/Time Wanted*'
     605            Caption = 'Date/Time Wanted'
    565606            Font.Charset = DEFAULT_CHARSET
    566607            Font.Color = clWindowText
    … …  
    598639            TabOrder = 0
    599640            TabStop = True
    600             OnChange = cboAvailCompChange
     641            OnEnter = cboAvailCompEnter
    601642            OnExit = cboAvailCompExit
    602643            OnMouseClick = cboAvailCompSelect
    … …  
    623664            Left = 11
    624665            Top = 46
    625             Width = 133
     666            Width = 181
    626667            Height = 21
    627668            Style = orcsDropDown
    … …  
    647688            TabOrder = 2
    648689            OnChange = cboModifiersChange
     690            OnEnter = cboModifiersEnter
    649691            CharsNeedMatch = 1
    650692          end
    … …  
    652694            Left = 11
    653695            Top = 82
    654             Width = 149
     696            Width = 181
    655697            Height = 21
    656698            Font.Charset = DEFAULT_CHARSET
    … …  
    662704            TabOrder = 3
    663705            OnChange = calWantTimeChange
     706            OnEnter = calWantTimeEnter
    664707            DateOnly = False
    665708            RequireTime = False
    … …  
    670713        Left = 0
    671714        Top = 0
    672         Width = 701
     715        Width = 684
    673716        Height = 35
    674717        Align = alTop
    … …  
    684727          Left = 15
    685728          Top = 11
    686           Width = 488
     729          Width = 508
    687730          Height = 21
    688731          Style = orcsDropDown
    … …  
    707750      object pnlSelectedTests: TGroupBox
    708751        Left = 0
    709         Top = 262
    710         Width = 701
    711         Height = 112
     752        Top = 355
     753        Width = 684
     754        Height = 109
    712755        Align = alTop
    713756        Caption = 'Selected Components and Tests'
    … …  
    722765        object lvSelectionList: TCaptionListView
    723766          Left = 5
    724           Top = 12
    725           Width = 417
     767          Top = 15
     768          Width = 430
    726769          Height = 91
    727           Color = clBtnFace
    728770          Columns = <
    729771            item
    … …  
    751793          Font.Height = -11
    752794          Font.Name = 'MS Sans Serif'
    753           Font.Style = [fsBold]
     795          Font.Style = []
    754796          ReadOnly = True
    755797          RowSelect = True
    … …  
    762804        end
    763805        object btnRemove: TButton
    764           Left = 428
     806          Left = 450
    765807          Top = 37
    766808          Width = 75
    … …  
    777819        end
    778820        object btnRemoveAll: TButton
    779           Left = 428
     821          Left = 450
    780822          Top = 64
    781823          Width = 75
    … …  
    795837    object TabResults: TTabSheet
    796838      Caption = 'Lab Results'
     839      ExplicitLeft = 0
     840      ExplicitTop = 0
     841      ExplicitWidth = 0
     842      ExplicitHeight = 0
    797843      object edtResults: TCaptionRichEdit
    798         Left = -4
    799         Top = 57
    800         Width = 517
    801         Height = 290
     844        Left = 0
     845        Top = 0
     846        Width = 684
     847        Height = 469
     848        Align = alClient
    802849        Font.Charset = DEFAULT_CHARSET
    803850        Font.Color = clWindowText
    … …  
    812859  inherited cmdAccept: TButton
    813860    Left = 455
    814     Top = 399
     861    Top = 503
     862    Width = 75
    815863    TabOrder = 2
    816864    Visible = False
    817865    ExplicitLeft = 455
    818     ExplicitTop = 399
     866    ExplicitTop = 503
     867    ExplicitWidth = 75
    819868  end
    820869  inherited cmdQuit: TButton
    821870    Left = 455
    822     Top = 426
     871    Top = 541
    823872    Width = 52
    824873    TabOrder = 3
    825874    ExplicitLeft = 455
    826     ExplicitTop = 426
     875    ExplicitTop = 541
    827876    ExplicitWidth = 52
    828877  end
    829878  inherited pnlMessage: TPanel
    830879    Left = 8
    831     Top = 409
     880    Top = 513
    832881    Width = 409
    833882    Height = 49
    834883    TabOrder = 1
    835884    ExplicitLeft = 8
    836     ExplicitTop = 409
     885    ExplicitTop = 513
    837886    ExplicitWidth = 409
    838887    ExplicitHeight = 49
    … …  
    946995      (
    947996        'Component = cboReasons'
    948         'Text = Applies to entire order'
    949         'Status = stsOK')
     997        'Status = stsDefault')
    950998      (
    951999        'Component = memDiagComment'
    … …  
    9581006        'Status = stsDefault')
    9591007      (
     1008        'Component = txtImmedColl'
     1009        'Status = stsDefault')
     1010      (
     1011        'Component = calCollTime'
     1012        'Status = stsDefault')
     1013      (
     1014        'Component = pnlCollTimeButton'
     1015        'Status = stsDefault')
     1016      (
    9601017        'Component = calWantTime'
    961         'Status = stsDefault')
    962       (
    963         'Component = calCollTime'
    964         'Status = stsDefault')
    965       (
    966         'Component = txtImmedColl'
    967         'Status = stsDefault')
    968       (
    969         'Component = pnlCollTimeButton'
    9701018        'Status = stsDefault'))
    9711019  end
Note: See TracChangeset for help on using the changeset viewer.