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/Consults/fODConsult.dfm

    r829 r1679  
    44  Top = 203
    55  Width = 606
    6   Height = 376
     6  Height = 455
    77  HorzScrollBar.Range = 590
    88  VertScrollBar.Range = 340
    99  Caption = 'Order a Consult'
    10   Constraints.MinHeight = 376
    11   Constraints.MinWidth = 606
     10  Constraints.MinHeight = 442
     11  Constraints.MinWidth = 590
    1212  Font.Charset = ANSI_CHARSET
    1313  ExplicitWidth = 606
    14   ExplicitHeight = 376
     14  ExplicitHeight = 455
    1515  PixelsPerInch = 96
    1616  TextHeight = 13
    17   object lblService: TLabel [0]
    18     Left = 1
    19     Top = 2
    20     Width = 134
    21     Height = 13
    22     Caption = 'Consult to Service/Specialty'
    23   end
    24   object lblProvDiag: TLabel [1]
    25     Left = 309
    26     Top = 81
    27     Width = 100
    28     Height = 13
    29     Anchors = [akTop, akRight]
    30     Caption = 'Provisional Diagnosis'
    31   end
    32   object lblUrgency: TLabel [2]
    33     Left = 309
    34     Top = 2
    35     Width = 40
    36     Height = 13
    37     Anchors = [akTop, akRight]
    38     Caption = 'Urgency'
    39   end
    40   object lblPlace: TLabel [3]
    41     Left = 454
    42     Top = 43
    43     Width = 100
    44     Height = 13
    45     Anchors = [akTop, akRight]
    46     Caption = 'Place of Consultation'
    47   end
    48   object lblAttn: TLabel [4]
    49     Left = 454
    50     Top = 2
    51     Width = 42
    52     Height = 13
    53     Anchors = [akTop, akRight]
    54     Caption = 'Attention'
    55   end
    56   object pnlReason: TPanel [5]
    57     Left = 3
    58     Top = 128
    59     Width = 585
    60     Height = 161
    61     Anchors = [akLeft, akTop, akRight]
    62     BevelOuter = bvNone
    63     TabOrder = 10
    64     object lblReason: TLabel
    65       Left = 0
    66       Top = 0
    67       Width = 585
    68       Height = 13
    69       Align = alTop
    70       Caption = 'Reason for Request'
    71       ExplicitWidth = 95
    72     end
    73     object memReason: TRichEdit
    74       Left = 0
    75       Top = 13
    76       Width = 585
    77       Height = 148
     17  object pnlCombatVet: TPanel [0]
     18    Left = 0
     19    Top = 0
     20    Width = 598
     21    Height = 25
     22    Align = alTop
     23    BevelOuter = bvLowered
     24    Font.Charset = DEFAULT_CHARSET
     25    Font.Color = clWindowText
     26    Font.Height = -11
     27    Font.Name = 'MS Sans Serif'
     28    Font.Style = []
     29    ParentFont = False
     30    TabOrder = 0
     31    object txtCombatVet: TVA508StaticText
     32      Name = 'txtCombatVet'
     33      Left = 1
     34      Top = 1
     35      Width = 596
     36      Height = 23
    7837      Align = alClient
    79       Font.Charset = ANSI_CHARSET
    80       Font.Color = clWindowText
    81       Font.Height = -11
    82       Font.Name = 'Courier New'
    83       Font.Style = []
    84       Constraints.MinHeight = 40
    85       ParentFont = False
    86       PopupMenu = popReason
    87       ScrollBars = ssBoth
     38      Alignment = taCenter
     39      BevelOuter = bvNone
     40      Enabled = False
    8841      TabOrder = 0
    89       WantTabs = True
    90       OnChange = ControlChange
    91       OnExit = memReasonExit
    92       OnKeyDown = memReasonKeyDown
    93       OnKeyPress = memReasonKeyPress
    94       OnKeyUp = memReasonKeyUp
     42      ShowAccelChar = True
    9543    end
    9644  end
    9745  inherited memOrder: TCaptionMemo
    9846    Left = 3
    99     Top = 305
     47    Top = 384
    10048    Width = 417
    10149    Height = 41
    102     TabStop = True
    10350    Anchors = [akLeft, akBottom]
    10451    Lines.Strings = (
    … …  
    10754      '--------------------------------'
    10855      'An order message may be displayed here.')
    109     TabOrder = 11
     56    TabOrder = 2
    11057    ExplicitLeft = 3
    111     ExplicitTop = 305
     58    ExplicitTop = 384
    11259    ExplicitWidth = 417
    11360    ExplicitHeight = 41
    11461  end
    115   object cboService: TORComboBox [7]
     62  object pnlMain: TPanel [2]
    11663    Left = 0
    117     Top = 16
    118     Width = 274
    119     Height = 113
    120     Anchors = [akLeft, akTop, akRight]
    121     Style = orcsSimple
    122     AutoSelect = True
    123     Caption = 'Consult to Service/Specialty'
    124     Color = clWindow
    125     DropDownCount = 12
    126     ItemHeight = 13
    127     ItemTipColor = clWindow
    128     ItemTipEnable = True
    129     ListItemsOnly = True
    130     LongList = False
    131     LookupPiece = 0
    132     MaxLength = 0
    133     Pieces = '2'
    134     Sorted = False
    135     SynonymChars = '<>'
    136     TabOrder = 0
    137     TabStop = True
    138     OnChange = ControlChange
    139     OnClick = cboServiceSelect
    140     OnExit = cboServiceExit
    141     OnKeyDown = cboServiceKeyDown
    142     OnKeyUp = cboServiceKeyUp
    143     CharsNeedMatch = 1
    144   end
    145   object cboUrgency: TORComboBox [8]
    146     Left = 309
    147     Top = 16
    148     Width = 133
    149     Height = 21
    150     Anchors = [akTop, akRight]
    151     Style = orcsDropDown
    152     AutoSelect = True
    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 = '<>'
     64    Top = 0
     65    Width = 598
     66    Height = 380
     67    Anchors = [akLeft, akTop, akRight, akBottom]
     68    BevelOuter = bvNone
     69    TabOrder = 1
     70    DesignSize = (
     71      598
     72      380)
     73    object lblService: TLabel
     74      Left = 1
     75      Top = 2
     76      Width = 134
     77      Height = 13
     78      Caption = 'Consult to Service/Specialty'
     79    end
     80    object lblProvDiag: TLabel
     81      Left = 312
     82      Top = 138
     83      Width = 100
     84      Height = 13
     85      Anchors = [akTop, akRight]
     86      Caption = 'Provisional Diagnosis'
     87    end
     88    object lblUrgency: TLabel
     89      Left = 309
     90      Top = 2
     91      Width = 40
     92      Height = 13
     93      Anchors = [akTop, akRight]
     94      Caption = 'Urgency'
     95    end
     96    object lblPlace: TLabel
     97      Left = 457
     98      Top = 100
     99      Width = 100
     100      Height = 13
     101      Anchors = [akTop, akRight]
     102      Caption = 'Place of Consultation'
     103    end
     104    object lblAttn: TLabel
     105      Left = 454
     106      Top = 2
     107      Width = 42
     108      Height = 13
     109      Anchors = [akTop, akRight]
     110      Caption = 'Attention'
     111    end
     112    object lblLatest: TStaticText
     113      Left = 454
     114      Top = 43
     115      Width = 116
     116      Height = 17
     117      Anchors = [akTop, akRight]
     118      Caption = 'Latest appropriate date:'
     119      TabOrder = 17
     120      Visible = False
     121    end
     122    object lblEarliest: TStaticText
     123      Left = 309
     124      Top = 43
     125      Width = 121
     126      Height = 17
     127      Anchors = [akTop, akRight]
     128      Caption = 'Earliest appropriate date:'
     129      TabOrder = 14
     130    end
     131    object pnlReason: TPanel
     132      Left = 3
     133      Top = 176
     134      Width = 587
     135      Height = 179
     136      Anchors = [akLeft, akTop, akRight]
     137      BevelOuter = bvNone
     138      Constraints.MinHeight = 53
     139      TabOrder = 13
     140      object lblReason: TLabel
     141        Left = 0
     142        Top = 0
     143        Width = 587
     144        Height = 13
     145        Align = alTop
     146        Caption = 'Reason for Request'
     147        Constraints.MinHeight = 13
     148        ExplicitWidth = 95
     149      end
     150      object memReason: TRichEdit
     151        Left = 0
     152        Top = 13
     153        Width = 587
     154        Height = 166
     155        Align = alClient
     156        Font.Charset = ANSI_CHARSET
     157        Font.Color = clWindowText
     158        Font.Height = -11
     159        Font.Name = 'Courier New'
     160        Font.Style = []
     161        Constraints.MinHeight = 40
     162        MaxLength = 2147483645
     163        ParentFont = False
     164        PopupMenu = popReason
     165        ScrollBars = ssBoth
     166        TabOrder = 0
     167        WantTabs = True
     168        OnChange = ControlChange
     169        OnExit = memReasonExit
     170        OnKeyDown = memReasonKeyDown
     171        OnKeyPress = memReasonKeyPress
     172        OnKeyUp = memReasonKeyUp
     173      end
     174    end
     175    object cboService: TORComboBox
     176      Left = 0
     177      Top = 16
     178      Width = 274
     179      Height = 154
     180      Anchors = [akLeft, akTop, akRight]
     181      Style = orcsSimple
     182      AutoSelect = True
     183      Caption = 'Consult to Service/Specialty'
     184      Color = clWindow
     185      DropDownCount = 16
     186      ItemHeight = 13
     187      ItemTipColor = clWindow
     188      ItemTipEnable = True
     189      ListItemsOnly = True
     190      LongList = False
     191      LookupPiece = 0
     192      MaxLength = 0
     193      Pieces = '2'
     194      Sorted = False
     195      SynonymChars = '<>'
     196      TabOrder = 0
     197      OnChange = ControlChange
     198      OnClick = cboServiceSelect
     199      OnExit = cboServiceExit
     200      OnKeyDown = cboServiceKeyDown
     201      OnKeyUp = cboServiceKeyUp
     202      CharsNeedMatch = 1
     203    end
     204    object cboUrgency: TORComboBox
     205      Left = 309
     206      Top = 16
     207      Width = 133
     208      Height = 21
     209      Anchors = [akTop, akRight]
     210      Style = orcsDropDown
     211      AutoSelect = True
     212      Caption = 'Urgency'
     213      Color = clWindow
     214      DropDownCount = 8
     215      ItemHeight = 13
     216      ItemTipColor = clWindow
     217      ItemTipEnable = True
     218      ListItemsOnly = True
     219      LongList = False
     220      LookupPiece = 0
     221      MaxLength = 0
     222      Pieces = '2'
     223      Sorted = False
     224      SynonymChars = '<>'
     225      TabOrder = 4
     226      TabStop = True
     227      OnChange = ControlChange
     228      CharsNeedMatch = 1
     229    end
     230    object cboPlace: TORComboBox
     231      Left = 457
     232      Top = 113
     233      Width = 136
     234      Height = 21
     235      Anchors = [akTop, akRight]
     236      Style = orcsDropDown
     237      AutoSelect = True
     238      Caption = 'Place of Consultation'
     239      Color = clWindow
     240      DropDownCount = 8
     241      ItemHeight = 13
     242      ItemTipColor = clWindow
     243      ItemTipEnable = True
     244      ListItemsOnly = True
     245      LongList = False
     246      LookupPiece = 0
     247      MaxLength = 0
     248      Pieces = '2'
     249      Sorted = False
     250      SynonymChars = '<>'
     251      TabOrder = 9
     252      OnChange = ControlChange
     253      CharsNeedMatch = 1
     254    end
     255    object txtProvDiag: TCaptionEdit
     256      Left = 312
     257      Top = 151
     258      Width = 223
     259      Height = 21
     260      Anchors = [akTop, akRight]
     261      MaxLength = 180
     262      ParentShowHint = False
     263      PopupMenu = mnuPopProvDx
     264      ShowHint = True
     265      TabOrder = 11
     266      OnChange = txtProvDiagChange
     267      Caption = 'Provisional Diagnosis'
     268    end
     269    object txtAttn: TORComboBox
     270      Left = 454
     271      Top = 16
     272      Width = 136
     273      Height = 21
     274      Anchors = [akTop, akRight]
     275      Style = orcsDropDown
     276      AutoSelect = True
     277      Caption = 'Attention'
     278      Color = clWindow
     279      DropDownCount = 8
     280      ItemHeight = 13
     281      ItemTipColor = clWindow
     282      ItemTipEnable = True
     283      ListItemsOnly = True
     284      LongList = True
     285      LookupPiece = 2
     286      MaxLength = 0
     287      Pieces = '2,3'
     288      Sorted = False
     289      SynonymChars = '<>'
     290      TabOrder = 5
     291      OnChange = ControlChange
     292      OnNeedData = txtAttnNeedData
     293      CharsNeedMatch = 1
     294    end
     295    object treService: TORTreeView
     296      Left = 0
     297      Top = 38
     298      Width = 298
     299      Height = 220
     300      Anchors = [akLeft, akTop, akRight, akBottom]
     301      Font.Charset = DEFAULT_CHARSET
     302      Font.Color = clWindowText
     303      Font.Height = -9
     304      Font.Name = 'MS Sans Serif'
     305      Font.Style = []
     306      HideSelection = False
     307      Indent = 19
     308      ParentFont = False
     309      ReadOnly = True
     310      TabOrder = 3
     311      Visible = False
     312      OnChange = treServiceChange
     313      OnCollapsing = treServiceCollapsing
     314      OnEnter = treServiceEnter
     315      OnExit = treServiceExit
     316      OnKeyDown = treServiceKeyDown
     317      OnKeyUp = treServiceKeyUp
     318      OnMouseDown = treServiceMouseDown
     319      Caption = 'object lblService: TLabel'
     320      NodePiece = 0
     321    end
     322    object cboCategory: TORComboBox
     323      Left = 225
     324      Top = -5
     325      Width = 5
     326      Height = 21
     327      Style = orcsDropDown
     328      AutoSelect = True
     329      Color = clWindow
     330      DropDownCount = 8
     331      ItemHeight = 13
     332      ItemTipColor = clWindow
     333      ItemTipEnable = True
     334      ListItemsOnly = False
     335      LongList = False
     336      LookupPiece = 0
     337      MaxLength = 0
     338      Sorted = False
     339      SynonymChars = '<>'
     340      TabOrder = 18
     341      Visible = False
     342      CharsNeedMatch = 1
     343    end
     344    object pnlServiceTreeButton: TKeyClickPanel
     345      Left = 274
     346      Top = 14
     347      Width = 26
     348      Height = 26
     349      Hint = 'View services/specialties hierarchically'
     350      Anchors = [akTop, akRight]
     351      BevelOuter = bvNone
     352      BevelWidth = 2
     353      Caption = 'View services/specialties hierarchically'
     354      Font.Charset = ANSI_CHARSET
     355      Font.Color = clBtnFace
     356      Font.Height = -11
     357      Font.Name = 'MS Sans Serif'
     358      Font.Style = []
     359      ParentFont = False
     360      TabOrder = 2
     361      TabStop = True
     362      OnClick = btnServiceTreeClick
     363      OnEnter = pnlServiceTreeButtonEnter
     364      OnExit = pnlServiceTreeButtonExit
     365      object btnServiceTree: TSpeedButton
     366        Left = 2
     367        Top = 2
     368        Width = 22
     369        Height = 22
     370        Glyph.Data = {
     371          26050000424D26050000000000003604000028000000100000000F0000000100
     372          080000000000F000000000000000000000000001000000010000000000000000
     373          80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
     374          A6000020400000206000002080000020A0000020C0000020E000004000000040
     375          20000040400000406000004080000040A0000040C0000040E000006000000060
     376          20000060400000606000006080000060A0000060C0000060E000008000000080
     377          20000080400000806000008080000080A0000080C0000080E00000A0000000A0
     378          200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
     379          200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
     380          200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
     381          20004000400040006000400080004000A0004000C0004000E000402000004020
     382          20004020400040206000402080004020A0004020C0004020E000404000004040
     383          20004040400040406000404080004040A0004040C0004040E000406000004060
     384          20004060400040606000406080004060A0004060C0004060E000408000004080
     385          20004080400040806000408080004080A0004080C0004080E00040A0000040A0
     386          200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
     387          200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
     388          200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
     389          20008000400080006000800080008000A0008000C0008000E000802000008020
     390          20008020400080206000802080008020A0008020C0008020E000804000008040
     391          20008040400080406000804080008040A0008040C0008040E000806000008060
     392          20008060400080606000806080008060A0008060C0008060E000808000008080
     393          20008080400080806000808080008080A0008080C0008080E00080A0000080A0
     394          200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
     395          200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
     396          200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
     397          2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
     398          2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
     399          2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
     400          2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
     401          2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
     402          2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
     403          2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
     404          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFF0700
     405          07FFFFFFFFFFFFFFFFFFFFA4A407000400FF040404040404FFFFFFA4FFFF0700
     406          07FFFFFFFFFFFFFFFFFFFFA4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA4FFFFFFFF
     407          FFFF070007FFFFFFFFFFFFA4FFFFFFA4A407000400FF04040404FFA4FFFFFFA4
     408          FFFF070007FFFFFFFFFFFFA4FFFFFF07FFFFFFFFFFFFFFFFFFFFFFA4FFFF0700
     409          07FFFFFFFFFFFFFFFFFFFFA4A407000400FF0404040404FFFFFFFFA4FFFF0700
     410          07FFFFFFFFFFFFFFFFFFFF07FFFFFFFFFFFFFFFFFFFFFFFFFFFF070007FFFFFF
     411          FFFFFFFFFFFFFFFFFFFF00FB00FF0404040404FFFFFFFFFFFFFF070007FFFFFF
     412          FFFFFFFFFFFFFFFFFFFF}
     413        Margin = 0
     414        OnClick = btnServiceTreeClick
     415      end
     416    end
     417    object gbInptOpt: TGroupBox
     418      Left = 309
     419      Top = 92
     420      Width = 140
     421      Height = 45
     422      Anchors = [akTop, akRight]
     423      Caption = 'Patient will be seen as an:'
     424      TabOrder = 8
     425      object radInpatient: TRadioButton
     426        Left = 3
     427        Top = 20
     428        Width = 61
     429        Height = 13
     430        Caption = '&Inpatient'
     431        TabOrder = 1
     432        OnClick = radInpatientClick
     433      end
     434      object radOutpatient: TRadioButton
     435        Left = 67
     436        Top = 20
     437        Width = 70
     438        Height = 13
     439        Caption = '&Outpatient'
     440        TabOrder = 0
     441        OnClick = radOutpatientClick
     442      end
     443    end
     444    object btnDiagnosis: TButton
     445      Left = 541
     446      Top = 151
     447      Width = 49
     448      Height = 21
     449      Anchors = [akTop, akRight]
     450      Caption = 'Diagnosis'
     451      TabOrder = 10
     452      OnClick = btnDiagnosisClick
     453    end
     454    object cmdLexSearch: TButton
     455      Left = 541
     456      Top = 151
     457      Width = 49
     458      Height = 21
     459      Anchors = [akTop, akRight]
     460      Caption = 'Lexicon'
     461      TabOrder = 12
     462      OnClick = cmdLexSearchClick
     463    end
     464    object calEarliest: TORDateBox
     465      Left = 309
     466      Top = 57
     467      Width = 133
     468      Height = 21
     469      Anchors = [akTop, akRight]
     470      TabOrder = 6
     471      OnChange = ControlChange
     472      DateOnly = True
     473      RequireTime = False
     474    end
     475    object calLatest: TORDateBox
     476      Left = 454
     477      Top = 57
     478      Width = 136
     479      Height = 21
     480      Anchors = [akTop, akRight]
     481      TabOrder = 7
     482      Visible = False
     483      OnChange = ControlChange
     484      DateOnly = True
     485      RequireTime = False
     486    end
     487    object servicelbl508: TVA508StaticText
     488      Name = 'servicelbl508'
     489      Left = 151
     490      Top = 1
     491      Width = 106
     492      Height = 15
     493      Alignment = taLeftJustify
     494      Caption = 'service (for screen R.)'
     495      Enabled = False
     496      TabOrder = 1
     497      Visible = False
     498      ShowAccelChar = True
     499    end
     500  end
     501  inherited cmdAccept: TButton
     502    Left = 427
     503    Top = 394
     504    Anchors = [akLeft, akBottom]
    165505    TabOrder = 3
    166     TabStop = True
    167     OnChange = ControlChange
    168     CharsNeedMatch = 1
    169   end
    170   object cboPlace: TORComboBox [9]
    171     Left = 454
    172     Top = 56
    173     Width = 136
    174     Height = 21
    175     Anchors = [akTop, akRight]
    176     Style = orcsDropDown
    177     AutoSelect = True
    178     Color = clWindow
    179     DropDownCount = 8
    180     ItemHeight = 13
    181     ItemTipColor = clWindow
    182     ItemTipEnable = True
    183     ListItemsOnly = True
    184     LongList = False
    185     LookupPiece = 0
    186     MaxLength = 0
    187     Pieces = '2'
    188     Sorted = False
    189     SynonymChars = '<>'
    190     TabOrder = 6
    191     OnChange = ControlChange
    192     CharsNeedMatch = 1
    193   end
    194   object txtProvDiag: TCaptionEdit [10]
    195     Left = 309
    196     Top = 94
    197     Width = 231
    198     Height = 21
    199     Anchors = [akTop, akRight]
    200     MaxLength = 180
    201     ParentShowHint = False
    202     PopupMenu = mnuPopProvDx
    203     ShowHint = True
    204     TabOrder = 8
    205     OnChange = txtProvDiagChange
    206   end
    207   object txtAttn: TORComboBox [11]
    208     Left = 454
    209     Top = 16
    210     Width = 136
    211     Height = 21
    212     Anchors = [akTop, akRight]
    213     Style = orcsDropDown
    214     AutoSelect = True
    215     Color = clWindow
    216     DropDownCount = 8
    217     ItemHeight = 13
    218     ItemTipColor = clWindow
    219     ItemTipEnable = True
    220     ListItemsOnly = True
    221     LongList = True
    222     LookupPiece = 2
    223     MaxLength = 0
    224     Pieces = '2,3'
    225     Sorted = False
    226     SynonymChars = '<>'
    227     TabOrder = 4
    228     OnChange = ControlChange
    229     OnNeedData = txtAttnNeedData
    230     CharsNeedMatch = 1
    231   end
    232   object treService: TORTreeView [12]
    233     Left = 0
    234     Top = 38
    235     Width = 298
    236     Height = 220
    237     Anchors = [akLeft, akTop, akRight, akBottom]
    238     Font.Charset = DEFAULT_CHARSET
    239     Font.Color = clWindowText
    240     Font.Height = -9
    241     Font.Name = 'MS Sans Serif'
    242     Font.Style = []
    243     HideSelection = False
    244     Indent = 19
    245     ParentFont = False
    246     ReadOnly = True
    247     TabOrder = 2
    248     Visible = False
    249     OnChange = treServiceChange
    250     OnCollapsing = treServiceCollapsing
    251     OnEnter = treServiceEnter
    252     OnExit = treServiceExit
    253     OnKeyDown = treServiceKeyDown
    254     OnKeyUp = treServiceKeyUp
    255     OnMouseDown = treServiceMouseDown
    256     NodePiece = 0
    257   end
    258   object cboCategory: TORComboBox [13]
    259     Left = 225
    260     Top = -5
    261     Width = 5
    262     Height = 21
    263     Style = orcsDropDown
    264     AutoSelect = True
    265     Color = clWindow
    266     DropDownCount = 8
    267     ItemHeight = 13
    268     ItemTipColor = clWindow
    269     ItemTipEnable = True
    270     ListItemsOnly = False
    271     LongList = False
    272     LookupPiece = 0
    273     MaxLength = 0
    274     Sorted = False
    275     SynonymChars = '<>'
    276     TabOrder = 15
    277     Visible = False
    278     CharsNeedMatch = 1
    279   end
    280   object pnlServiceTreeButton: TKeyClickPanel [14]
    281     Left = 274
    282     Top = 14
    283     Width = 26
    284     Height = 26
    285     Hint = 'View services/specialties hierarchically'
    286     Anchors = [akTop, akRight]
    287     BevelOuter = bvNone
    288     BevelWidth = 2
    289     Caption = 'View services/specialties hierarchically'
    290     Font.Charset = ANSI_CHARSET
    291     Font.Color = clBtnFace
    292     Font.Height = -11
    293     Font.Name = 'MS Sans Serif'
    294     Font.Style = []
    295     ParentFont = False
    296     TabOrder = 1
    297     TabStop = True
    298     OnClick = btnServiceTreeClick
    299     OnEnter = pnlServiceTreeButtonEnter
    300     OnExit = pnlServiceTreeButtonExit
    301     object btnServiceTree: TSpeedButton
    302       Left = 2
    303       Top = 2
    304       Width = 22
    305       Height = 22
    306       Hint = 'View services/specialties hierarchically'
    307       Glyph.Data = {
    308         26050000424D26050000000000003604000028000000100000000F0000000100
    309         080000000000F000000000000000000000000001000000010000000000000000
    310         80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
    311         A6000020400000206000002080000020A0000020C0000020E000004000000040
    312         20000040400000406000004080000040A0000040C0000040E000006000000060
    313         20000060400000606000006080000060A0000060C0000060E000008000000080
    314         20000080400000806000008080000080A0000080C0000080E00000A0000000A0
    315         200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
    316         200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
    317         200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
    318         20004000400040006000400080004000A0004000C0004000E000402000004020
    319         20004020400040206000402080004020A0004020C0004020E000404000004040
    320         20004040400040406000404080004040A0004040C0004040E000406000004060
    321         20004060400040606000406080004060A0004060C0004060E000408000004080
    322         20004080400040806000408080004080A0004080C0004080E00040A0000040A0
    323         200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
    324         200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
    325         200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
    326         20008000400080006000800080008000A0008000C0008000E000802000008020
    327         20008020400080206000802080008020A0008020C0008020E000804000008040
    328         20008040400080406000804080008040A0008040C0008040E000806000008060
    329         20008060400080606000806080008060A0008060C0008060E000808000008080
    330         20008080400080806000808080008080A0008080C0008080E00080A0000080A0
    331         200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
    332         200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
    333         200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
    334         2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
    335         2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
    336         2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
    337         2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
    338         2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
    339         2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
    340         2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
    341         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFF0700
    342         07FFFFFFFFFFFFFFFFFFFFA4A407000400FF040404040404FFFFFFA4FFFF0700
    343         07FFFFFFFFFFFFFFFFFFFFA4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA4FFFFFFFF
    344         FFFF070007FFFFFFFFFFFFA4FFFFFFA4A407000400FF04040404FFA4FFFFFFA4
    345         FFFF070007FFFFFFFFFFFFA4FFFFFF07FFFFFFFFFFFFFFFFFFFFFFA4FFFF0700
    346         07FFFFFFFFFFFFFFFFFFFFA4A407000400FF0404040404FFFFFFFFA4FFFF0700
    347         07FFFFFFFFFFFFFFFFFFFF07FFFFFFFFFFFFFFFFFFFFFFFFFFFF070007FFFFFF
    348         FFFFFFFFFFFFFFFFFFFF00FB00FF0404040404FFFFFFFFFFFFFF070007FFFFFF
    349         FFFFFFFFFFFFFFFFFFFF}
    350       Margin = 0
    351       ParentShowHint = False
    352       ShowHint = True
    353       OnClick = btnServiceTreeClick
    354     end
    355   end
    356   object cmdLexSearch: TButton [15]
    357     Left = 543
    358     Top = 94
    359     Width = 49
    360     Height = 21
    361     Anchors = [akTop, akRight]
    362     Caption = 'Lexicon'
    363     TabOrder = 9
    364     OnClick = cmdLexSearchClick
    365   end
    366   object gbInptOpt: TGroupBox [16]
    367     Left = 309
    368     Top = 35
    369     Width = 140
    370     Height = 45
    371     Anchors = [akTop, akRight]
    372     Caption = 'Patient will be seen as an:'
    373     TabOrder = 5
    374     object radInpatient: TRadioButton
    375       Left = 3
    376       Top = 20
    377       Width = 61
    378       Height = 13
    379       Caption = '&Inpatient'
    380       TabOrder = 0
    381       OnClick = radInpatientClick
    382     end
    383     object radOutpatient: TRadioButton
    384       Left = 67
    385       Top = 20
    386       Width = 70
    387       Height = 13
    388       Caption = '&Outpatient'
    389       TabOrder = 1
    390       OnClick = radOutpatientClick
    391     end
    392   end
    393   object btnDiagnosis: TButton [17]
    394     Left = 543
    395     Top = 95
    396     Width = 49
    397     Height = 20
    398     Anchors = [akTop, akRight]
    399     Caption = 'Diagnosis'
    400     TabOrder = 7
    401     OnClick = btnDiagnosisClick
    402   end
    403   inherited cmdAccept: TButton
    404     Left = 439
    405     Top = 315
    406     Anchors = [akLeft, akBottom]
    407     TabOrder = 12
    408     ExplicitLeft = 439
    409     ExplicitTop = 315
     506    ExplicitLeft = 427
     507    ExplicitTop = 394
    410508  end
    411509  inherited cmdQuit: TButton
    412510    Left = 531
    413     Top = 315
     511    Top = 394
    414512    Width = 61
    415513    Anchors = [akLeft, akBottom]
    416     TabOrder = 13
     514    TabOrder = 4
    417515    ExplicitLeft = 531
    418     ExplicitTop = 315
     516    ExplicitTop = 394
    419517    ExplicitWidth = 61
    420518  end
    421519  inherited pnlMessage: TPanel
    422520    Left = 13
    423     Top = 295
     521    Top = 374
    424522    Width = 377
    425523    Anchors = [akLeft, akRight, akBottom]
    426     TabOrder = 14
     524    TabOrder = 5
    427525    ExplicitLeft = 13
    428     ExplicitTop = 295
     526    ExplicitTop = 374
    429527    ExplicitWidth = 377
    430528    inherited memMessage: TRichEdit
    … …  
    436534    Data = (
    437535      (
     536        'Component = memOrder'
     537        'Status = stsDefault')
     538      (
     539        'Component = cmdAccept'
     540        'Status = stsDefault')
     541      (
     542        'Component = cmdQuit'
     543        'Status = stsDefault')
     544      (
     545        'Component = pnlMessage'
     546        'Status = stsDefault')
     547      (
     548        'Component = memMessage'
     549        'Status = stsDefault')
     550      (
     551        'Component = frmODCslt'
     552        'Status = stsDefault')
     553      (
     554        'Component = pnlMain'
     555        'Status = stsDefault')
     556      (
     557        'Component = lblLatest'
     558        'Status = stsDefault')
     559      (
     560        'Component = lblEarliest'
     561        'Status = stsDefault')
     562      (
    438563        'Component = pnlReason'
    439564        'Status = stsDefault')
    440565      (
    441566        'Component = memReason'
    442         'Label = lblReason'
    443         'Status = stsOK')
     567        'Status = stsDefault')
    444568      (
    445569        'Component = cboService'
    … …  
    447571      (
    448572        'Component = cboUrgency'
    449         'Label = lblUrgency'
    450         'Status = stsOK')
     573        'Status = stsDefault')
    451574      (
    452575        'Component = cboPlace'
    453         'Label = lblPlace'
    454         'Status = stsOK')
     576        'Status = stsDefault')
    455577      (
    456578        'Component = txtProvDiag'
    457         'Label = lblProvDiag'
    458         'Status = stsOK')
     579        'Status = stsDefault')
    459580      (
    460581        'Component = txtAttn'
    461         'Label = lblAttn'
    462         'Status = stsOK')
     582        'Status = stsDefault')
    463583      (
    464584        'Component = treService'
    … …  
    471591        'Status = stsDefault')
    472592      (
     593        'Component = gbInptOpt'
     594        'Status = stsDefault')
     595      (
     596        'Component = radInpatient'
     597        'Status = stsDefault')
     598      (
     599        'Component = radOutpatient'
     600        'Status = stsDefault')
     601      (
     602        'Component = btnDiagnosis'
     603        'Status = stsDefault')
     604      (
    473605        'Component = cmdLexSearch'
    474606        'Status = stsDefault')
    475607      (
    476         'Component = gbInptOpt'
    477         'Status = stsDefault')
    478       (
    479         'Component = radInpatient'
    480         'Status = stsDefault')
    481       (
    482         'Component = radOutpatient'
    483         'Status = stsDefault')
    484       (
    485         'Component = btnDiagnosis'
    486         'Status = stsDefault')
    487       (
    488         'Component = memOrder'
    489         'Status = stsDefault')
    490       (
    491         'Component = cmdAccept'
    492         'Status = stsDefault')
    493       (
    494         'Component = cmdQuit'
    495         'Status = stsDefault')
    496       (
    497         'Component = pnlMessage'
    498         'Status = stsDefault')
    499       (
    500         'Component = memMessage'
    501         'Status = stsDefault')
    502       (
    503         'Component = frmODCslt'
     608        'Component = calEarliest'
     609        'Status = stsDefault')
     610      (
     611        'Component = calLatest'
     612        'Status = stsDefault')
     613      (
     614        'Component = pnlCombatVet'
     615        'Status = stsDefault')
     616      (
     617        'Component = txtCombatVet'
     618        'Status = stsDefault')
     619      (
     620        'Component = servicelbl508'
    504621        'Status = stsDefault'))
    505622  end
    506623  object mnuPopProvDx: TPopupMenu
    507     Left = 353
    508     Top = 77
     624    Left = 489
     625    Top = 150
    509626    object mnuPopProvDxDelete: TMenuItem
    510627      Caption = 'Delete diagnosis'
    … …  
    514631  object popReason: TPopupMenu
    515632    OnPopup = popReasonPopup
    516     Left = 411
    517     Top = 188
     633    Left = 547
     634    Top = 316
    518635    object popReasonCut: TMenuItem
    519636      Caption = 'Cu&t'
Note: See TracChangeset for help on using the changeset viewer.