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/fODProc.dfm

    r829 r1679  
    11inherited frmODProc: TfrmODProc
    22  Tag = 112
    3   Left = 208
    4   Top = 188
    5   Width = 543
    6   Height = 393
     3  Left = 430
     4  Top = 203
     5  Width = 606
     6  Height = 442
    77  HorzScrollBar.Range = 523
    88  VertScrollBar.Range = 295
     9  Anchors = [akLeft, akTop, akRight, akBottom]
    910  Caption = 'Order a Procedure'
    10   Constraints.MinHeight = 393
    11   Constraints.MinWidth = 543
    12   ExplicitLeft = 208
    13   ExplicitTop = 188
    14   ExplicitWidth = 543
    15   ExplicitHeight = 393
     11  Constraints.MinHeight = 442
     12  Constraints.MinWidth = 606
     13  Position = poDesigned
     14  OnShow = FormShow
     15  ExplicitWidth = 606
     16  ExplicitHeight = 442
    1617  PixelsPerInch = 96
    1718  TextHeight = 13
    18   object lblProc: TLabel [0]
    19     Left = 4
    20     Top = 4
    21     Width = 49
    22     Height = 13
    23     Caption = 'Procedure'
    24   end
    25   object lblService: TOROffsetLabel [1]
    26     Left = 4
    27     Top = 42
    28     Width = 158
    29     Height = 15
    30     Caption = 'Service to perform this procedure'
    31     HorzOffset = 2
    32     Transparent = False
    33     VertOffset = 2
    34     WordWrap = False
    35   end
    36   object lblReason: TLabel [2]
    37     Left = 4
    38     Top = 103
    39     Width = 95
    40     Height = 13
    41     Caption = 'Reason for Request'
    42   end
    43   object lblUrgency: TStaticText [3]
    44     Left = 249
    45     Top = 4
    46     Width = 44
    47     Height = 17
    48     Anchors = [akTop, akRight]
    49     Caption = 'Urgency'
    50     TabOrder = 15
    51   end
    52   object lblPlace: TStaticText [4]
    53     Left = 396
    54     Top = 43
    55     Width = 104
    56     Height = 17
    57     Anchors = [akTop, akRight]
    58     Caption = 'Place of Consultation'
    59     TabOrder = 16
    60   end
    61   object lblAttn: TStaticText [5]
    62     Left = 396
    63     Top = 4
    64     Width = 46
    65     Height = 17
    66     Anchors = [akTop, akRight]
    67     Caption = 'Attention'
    68     TabOrder = 17
    69   end
    70   object lblProvDiag: TStaticText [6]
    71     Left = 249
    72     Top = 81
    73     Width = 104
    74     Height = 17
    75     Anchors = [akTop, akRight]
    76     Caption = 'Provisional Diagnosis'
    77     TabOrder = 18
    78   end
    79   object pnlReason: TPanel [7]
     19  object pnlCombatVet: TPanel [0]
    8020    Left = 0
    81     Top = 120
    82     Width = 528
    83     Height = 192
    84     Anchors = [akLeft, akTop, akRight, akBottom]
    85     BevelOuter = bvNone
    86     TabOrder = 9
    87     object memReason: TCaptionRichEdit
    88       Left = 0
    89       Top = 0
    90       Width = 528
    91       Height = 192
     21    Top = 0
     22    Width = 598
     23    Height = 25
     24    Align = alTop
     25    BevelOuter = bvLowered
     26    Font.Charset = DEFAULT_CHARSET
     27    Font.Color = clWindowText
     28    Font.Height = -11
     29    Font.Name = 'MS Sans Serif'
     30    Font.Style = []
     31    ParentFont = False
     32    TabOrder = 0
     33    object txtCombatVet: TVA508StaticText
     34      Name = 'txtCombatVet'
     35      Left = 1
     36      Top = 1
     37      Width = 596
     38      Height = 23
    9239      Align = alClient
    93       Font.Charset = DEFAULT_CHARSET
    94       Font.Color = clWindowText
    95       Font.Height = -11
    96       Font.Name = 'Courier New'
    97       Font.Style = []
    98       Constraints.MinHeight = 40
    99       ParentFont = False
    100       PopupMenu = popReason
    101       ScrollBars = ssBoth
     40      Alignment = taCenter
     41      BevelOuter = bvNone
     42      Enabled = False
    10243      TabOrder = 0
    103       WantTabs = True
    104       OnChange = ControlChange
    105       OnExit = memReasonExit
    106       OnKeyDown = memReasonKeyDown
    107       OnKeyPress = memReasonKeyPress
    108       OnKeyUp = memReasonKeyUp
    109       Caption = 'Reason for Request'
     44      ShowAccelChar = True
    11045    end
    11146  end
    11247  inherited memOrder: TCaptionMemo
    11348    Left = 0
    114     Top = 321
     49    Top = 365
    11550    Width = 380
    11651    Height = 41
    117     Anchors = [akLeft, akRight]
     52    Anchors = [akLeft, akRight, akBottom]
    11853    Lines.Strings = (
    11954      'The order text...'
    … …  
    12257        '--------------'
    12358      'An order message may be displayed here.')
    124     TabOrder = 1
     59    ParentFont = False
     60    TabOrder = 3
    12561    ExplicitLeft = 0
    126     ExplicitTop = 321
     62    ExplicitTop = 365
    12763    ExplicitWidth = 380
    12864    ExplicitHeight = 41
    12965  end
    130   object cboUrgency: TORComboBox [9]
    131     Left = 249
    132     Top = 17
    133     Width = 133
    134     Height = 21
    135     Anchors = [akTop, akRight]
    136     Style = orcsDropDown
    137     AutoSelect = True
    138     Caption = 'Urgency'
    139     Color = clWindow
    140     DropDownCount = 8
    141     ItemHeight = 13
    142     ItemTipColor = clWindow
    143     ItemTipEnable = True
    144     ListItemsOnly = True
    145     LongList = False
    146     LookupPiece = 0
    147     MaxLength = 0
    148     Pieces = '2'
    149     Sorted = False
    150     SynonymChars = '<>'
    151     TabOrder = 2
    152     OnChange = ControlChange
    153     CharsNeedMatch = 1
    154   end
    155   object cboPlace: TORComboBox [10]
    156     Left = 396
    157     Top = 56
    158     Width = 133
    159     Height = 21
    160     Anchors = [akTop, akRight]
    161     Style = orcsDropDown
    162     AutoSelect = True
    163     Caption = 'Place of Consultation'
    164     Color = clWindow
    165     DropDownCount = 8
    166     ItemHeight = 13
    167     ItemTipColor = clWindow
    168     ItemTipEnable = True
    169     ListItemsOnly = True
    170     LongList = False
    171     LookupPiece = 0
    172     MaxLength = 0
    173     Pieces = '2'
    174     Sorted = False
    175     SynonymChars = '<>'
    176     TabOrder = 6
    177     OnChange = ControlChange
    178     CharsNeedMatch = 1
    179   end
    180   object txtAttn: TORComboBox [11]
    181     Left = 396
    182     Top = 17
    183     Width = 133
    184     Height = 21
    185     Anchors = [akTop, akRight]
    186     Style = orcsDropDown
    187     AutoSelect = True
    188     Caption = 'Attention'
    189     Color = clWindow
    190     DropDownCount = 8
    191     ItemHeight = 13
    192     ItemTipColor = clWindow
    193     ItemTipEnable = True
    194     ListItemsOnly = True
    195     LongList = True
    196     LookupPiece = 2
    197     MaxLength = 0
    198     Pieces = '2,3'
    199     Sorted = False
    200     SynonymChars = '<>'
    201     TabOrder = 3
    202     OnChange = ControlChange
    203     OnNeedData = txtAttnNeedData
    204     CharsNeedMatch = 1
    205   end
    206   object cboProc: TORComboBox [12]
    207     Left = 4
    208     Top = 17
    209     Width = 227
    210     Height = 21
    211     Anchors = [akLeft, akTop, akRight]
    212     Style = orcsDropDown
    213     AutoSelect = True
    214     Caption = 'Procedure'
    215     Color = clWindow
    216     DropDownCount = 8
    217     ItemHeight = 13
    218     ItemTipColor = clWindow
    219     ItemTipEnable = True
    220     ListItemsOnly = True
    221     LongList = True
    222     LookupPiece = 0
    223     MaxLength = 0
    224     Pieces = '2'
    225     Sorted = False
    226     SynonymChars = '<>'
    227     TabOrder = 0
    228     OnChange = cboProcSelect
    229     OnNeedData = cboProcNeedData
    230     CharsNeedMatch = 1
    231   end
    232   object cboCategory: TORComboBox [13]
    233     Left = 516
    234     Top = 10
    235     Width = 3
    236     Height = 21
    237     Style = orcsDropDown
    238     AutoSelect = True
    239     Color = clWindow
    240     DropDownCount = 8
    241     ItemHeight = 13
    242     ItemTipColor = clWindow
    243     ItemTipEnable = True
    244     ListItemsOnly = False
    245     LongList = False
    246     LookupPiece = 0
    247     MaxLength = 0
    248     Sorted = False
    249     SynonymChars = '<>'
    250     TabOrder = 13
    251     Visible = False
    252     OnChange = ControlChange
    253     CharsNeedMatch = 1
    254   end
    255   object cboService: TORComboBox [14]
    256     Left = 4
    257     Top = 58
    258     Width = 227
    259     Height = 21
    260     Anchors = [akLeft, akTop, akRight]
    261     Style = orcsDropDown
    262     AutoSelect = True
    263     Caption = 'Service to perform this procedure'
    264     Color = clWindow
    265     DropDownCount = 8
    266     Enabled = False
    267     ItemHeight = 13
    268     ItemTipColor = clWindow
    269     ItemTipEnable = True
    270     ListItemsOnly = False
    271     LongList = False
    272     LookupPiece = 0
    273     MaxLength = 0
    274     Pieces = '2'
    275     Sorted = False
    276     SynonymChars = '<>'
     66  object pnlMain: TPanel [2]
     67    Left = 0
     68    Top = 0
     69    Width = 598
     70    Height = 354
     71    Anchors = [akLeft, akTop, akRight, akBottom]
     72    BevelOuter = bvNone
     73    TabOrder = 1
     74    DesignSize = (
     75      598
     76      354)
     77    object lblProc: TLabel
     78      Left = 4
     79      Top = 4
     80      Width = 49
     81      Height = 13
     82      Caption = 'Procedure'
     83    end
     84    object lblService: TOROffsetLabel
     85      Left = 4
     86      Top = 114
     87      Width = 158
     88      Height = 15
     89      Caption = 'Service to perform this procedure'
     90      HorzOffset = 2
     91      Transparent = False
     92      VertOffset = 2
     93      WordWrap = False
     94    end
     95    object lblReason: TLabel
     96      Left = 8
     97      Top = 165
     98      Width = 95
     99      Height = 13
     100      Margins.Left = 0
     101      Caption = 'Reason for Request'
     102    end
     103    object lblUrgency: TStaticText
     104      Left = 312
     105      Top = 4
     106      Width = 44
     107      Height = 17
     108      Anchors = [akTop, akRight]
     109      Caption = 'Urgency'
     110      TabOrder = 13
     111    end
     112    object lblPlace: TStaticText
     113      Left = 460
     114      Top = 92
     115      Width = 104
     116      Height = 17
     117      Anchors = [akTop, akRight]
     118      Caption = 'Place of Consultation'
     119      TabOrder = 14
     120    end
     121    object lblAttn: TStaticText
     122      Left = 460
     123      Top = 4
     124      Width = 46
     125      Height = 17
     126      Anchors = [akTop, akRight]
     127      Caption = 'Attention'
     128      TabOrder = 15
     129    end
     130    object lblProvDiag: TStaticText
     131      Left = 312
     132      Top = 135
     133      Width = 104
     134      Height = 17
     135      Anchors = [akTop, akRight]
     136      Caption = 'Provisional Diagnosis'
     137      TabOrder = 16
     138    end
     139    object pnlReason: TPanel
     140      Left = 0
     141      Top = 184
     142      Width = 591
     143      Height = 166
     144      Anchors = [akLeft, akTop, akRight, akBottom]
     145      BevelOuter = bvNone
     146      TabOrder = 11
     147      object memReason: TCaptionRichEdit
     148        Left = 0
     149        Top = 0
     150        Width = 591
     151        Height = 166
     152        Align = alClient
     153        Anchors = [akLeft, akTop, akRight]
     154        Font.Charset = DEFAULT_CHARSET
     155        Font.Color = clWindowText
     156        Font.Height = -11
     157        Font.Name = 'Courier New'
     158        Font.Style = []
     159        Constraints.MinHeight = 40
     160        ParentFont = False
     161        PopupMenu = popReason
     162        ScrollBars = ssBoth
     163        TabOrder = 0
     164        WantTabs = True
     165        OnChange = ControlChange
     166        OnExit = memReasonExit
     167        OnKeyDown = memReasonKeyDown
     168        OnKeyPress = memReasonKeyPress
     169        OnKeyUp = memReasonKeyUp
     170        Caption = 'Reason for Request'
     171      end
     172    end
     173    object cboUrgency: TORComboBox
     174      Left = 312
     175      Top = 17
     176      Width = 133
     177      Height = 21
     178      Anchors = [akTop, akRight]
     179      Style = orcsDropDown
     180      AutoSelect = True
     181      Caption = 'Urgency'
     182      Color = clWindow
     183      DropDownCount = 8
     184      ItemHeight = 13
     185      ItemTipColor = clWindow
     186      ItemTipEnable = True
     187      ListItemsOnly = True
     188      LongList = False
     189      LookupPiece = 0
     190      MaxLength = 0
     191      Pieces = '2'
     192      Sorted = False
     193      SynonymChars = '<>'
     194      TabOrder = 3
     195      OnChange = ControlChange
     196      CharsNeedMatch = 1
     197    end
     198    object cboPlace: TORComboBox
     199      Left = 460
     200      Top = 105
     201      Width = 133
     202      Height = 21
     203      Anchors = [akTop, akRight]
     204      Style = orcsDropDown
     205      AutoSelect = True
     206      Caption = 'Place of Consultation'
     207      Color = clWindow
     208      DropDownCount = 8
     209      ItemHeight = 13
     210      ItemTipColor = clWindow
     211      ItemTipEnable = True
     212      ListItemsOnly = True
     213      LongList = False
     214      LookupPiece = 0
     215      MaxLength = 0
     216      Pieces = '2'
     217      Sorted = False
     218      SynonymChars = '<>'
     219      TabOrder = 8
     220      OnChange = ControlChange
     221      CharsNeedMatch = 1
     222    end
     223    object txtAttn: TORComboBox
     224      Left = 460
     225      Top = 17
     226      Width = 131
     227      Height = 21
     228      Anchors = [akTop, akRight]
     229      Style = orcsDropDown
     230      AutoSelect = True
     231      Caption = 'Attention'
     232      Color = clWindow
     233      DropDownCount = 8
     234      ItemHeight = 13
     235      ItemTipColor = clWindow
     236      ItemTipEnable = True
     237      ListItemsOnly = True
     238      LongList = True
     239      LookupPiece = 2
     240      MaxLength = 0
     241      Pieces = '2,3'
     242      Sorted = False
     243      SynonymChars = '<>'
     244      TabOrder = 4
     245      OnChange = ControlChange
     246      OnNeedData = txtAttnNeedData
     247      CharsNeedMatch = 1
     248    end
     249    object cboProc: TORComboBox
     250      Left = 4
     251      Top = 17
     252      Width = 290
     253      Height = 91
     254      Anchors = [akLeft, akTop, akRight]
     255      Style = orcsSimple
     256      AutoSelect = True
     257      Caption = 'Procedure'
     258      Color = clWindow
     259      DropDownCount = 8
     260      ItemHeight = 13
     261      ItemTipColor = clWindow
     262      ItemTipEnable = True
     263      ListItemsOnly = True
     264      LongList = True
     265      LookupPiece = 0
     266      MaxLength = 0
     267      Pieces = '2'
     268      Sorted = False
     269      SynonymChars = '<>'
     270      TabOrder = 0
     271      OnChange = cboProcSelect
     272      OnNeedData = cboProcNeedData
     273      CharsNeedMatch = 1
     274    end
     275    object cboCategory: TORComboBox
     276      Left = 516
     277      Top = 10
     278      Width = 3
     279      Height = 21
     280      Style = orcsDropDown
     281      AutoSelect = True
     282      Color = clWindow
     283      DropDownCount = 8
     284      ItemHeight = 13
     285      ItemTipColor = clWindow
     286      ItemTipEnable = True
     287      ListItemsOnly = False
     288      LongList = False
     289      LookupPiece = 0
     290      MaxLength = 0
     291      Sorted = False
     292      SynonymChars = '<>'
     293      TabOrder = 12
     294      Visible = False
     295      OnChange = ControlChange
     296      CharsNeedMatch = 1
     297    end
     298    object cboService: TORComboBox
     299      Left = 4
     300      Top = 130
     301      Width = 290
     302      Height = 21
     303      Anchors = [akLeft, akTop, akRight]
     304      Style = orcsDropDown
     305      AutoSelect = True
     306      Caption = 'Service to perform this procedure'
     307      Color = clWindow
     308      DropDownCount = 8
     309      Enabled = False
     310      ItemHeight = 13
     311      ItemTipColor = clWindow
     312      ItemTipEnable = True
     313      ListItemsOnly = False
     314      LongList = False
     315      LookupPiece = 0
     316      MaxLength = 0
     317      Pieces = '2'
     318      Sorted = False
     319      SynonymChars = '<>'
     320      TabOrder = 1
     321      OnChange = cboServiceChange
     322      CharsNeedMatch = 1
     323    end
     324    object cmdLexSearch: TButton
     325      Left = 549
     326      Top = 149
     327      Width = 49
     328      Height = 21
     329      Anchors = [akTop, akRight]
     330      Caption = 'Lexicon'
     331      TabOrder = 10
     332      OnClick = cmdLexSearchClick
     333    end
     334    object gbInptOpt: TGroupBox
     335      Left = 312
     336      Top = 85
     337      Width = 140
     338      Height = 45
     339      Anchors = [akTop, akRight]
     340      Caption = 'Patient will be seen as an:'
     341      TabOrder = 7
     342      object radInpatient: TRadioButton
     343        Left = 3
     344        Top = 20
     345        Width = 61
     346        Height = 17
     347        Caption = '&Inpatient'
     348        TabOrder = 1
     349        OnClick = radInpatientClick
     350      end
     351      object radOutpatient: TRadioButton
     352        Left = 67
     353        Top = 20
     354        Width = 71
     355        Height = 17
     356        Caption = '&Outpatient'
     357        TabOrder = 0
     358        OnClick = radOutpatientClick
     359      end
     360    end
     361    object txtProvDiag: TCaptionEdit
     362      Left = 312
     363      Top = 149
     364      Width = 234
     365      Height = 21
     366      Anchors = [akTop, akRight]
     367      MaxLength = 180
     368      ParentShowHint = False
     369      PopupMenu = mnuPopProvDx
     370      ShowHint = True
     371      TabOrder = 9
     372      OnChange = txtProvDiagChange
     373      Caption = 'Provisional Diagnosis'
     374    end
     375    object lblEarliest: TStaticText
     376      Left = 312
     377      Top = 44
     378      Width = 121
     379      Height = 17
     380      Anchors = [akTop, akRight]
     381      Caption = 'Earliest appropriate date:'
     382      TabOrder = 18
     383    end
     384    object calEarliest: TORDateBox
     385      Left = 312
     386      Top = 58
     387      Width = 133
     388      Height = 21
     389      Anchors = [akTop, akRight]
     390      TabOrder = 5
     391      OnChange = ControlChange
     392      DateOnly = True
     393      RequireTime = False
     394    end
     395    object lblLatest: TStaticText
     396      Left = 460
     397      Top = 44
     398      Width = 116
     399      Height = 17
     400      Anchors = [akTop, akRight]
     401      Caption = 'Latest appropriate date:'
     402      TabOrder = 19
     403      Visible = False
     404    end
     405    object calLatest: TORDateBox
     406      Left = 460
     407      Top = 58
     408      Width = 131
     409      Height = 21
     410      Anchors = [akTop, akRight]
     411      TabOrder = 6
     412      Visible = False
     413      OnChange = ControlChange
     414      DateOnly = True
     415      RequireTime = False
     416    end
     417    object servicelbl508: TVA508StaticText
     418      Name = 'servicelbl508'
     419      Left = 183
     420      Top = 114
     421      Width = 106
     422      Height = 15
     423      Alignment = taLeftJustify
     424      Caption = 'service (for screen R.)'
     425      Enabled = False
     426      TabOrder = 2
     427      Visible = False
     428      ShowAccelChar = True
     429    end
     430  end
     431  inherited cmdAccept: TButton
     432    Left = 427
     433    Top = 382
     434    Anchors = [akRight, akBottom]
    277435    TabOrder = 4
    278     OnChange = cboServiceChange
    279     CharsNeedMatch = 1
    280   end
    281   object cmdLexSearch: TButton [15]
    282     Left = 486
    283     Top = 93
    284     Width = 49
    285     Height = 21
    286     Anchors = [akTop, akRight]
    287     Caption = 'Lexicon'
    288     TabOrder = 8
    289     OnClick = cmdLexSearchClick
    290   end
    291   object gbInptOpt: TGroupBox [16]
    292     Left = 249
    293     Top = 36
    294     Width = 140
    295     Height = 45
    296     Anchors = [akTop, akRight]
    297     Caption = 'Patient will be seen as an:'
    298     TabOrder = 5
    299     object radInpatient: TRadioButton
    300       Left = 3
    301       Top = 20
    302       Width = 61
    303       Height = 17
    304       Caption = '&Inpatient'
    305       TabOrder = 0
    306       OnClick = radInpatientClick
    307     end
    308     object radOutpatient: TRadioButton
    309       Left = 67
    310       Top = 20
    311       Width = 71
    312       Height = 17
    313       Caption = '&Outpatient'
    314       TabOrder = 1
    315       OnClick = radOutpatientClick
    316     end
    317   end
    318   object txtProvDiag: TCaptionEdit [17]
    319     Left = 249
    320     Top = 93
    321     Width = 234
    322     Height = 21
    323     Anchors = [akTop, akRight]
    324     MaxLength = 180
    325     ParentShowHint = False
    326     PopupMenu = mnuPopProvDx
    327     ShowHint = True
    328     TabOrder = 7
    329     OnChange = txtProvDiagChange
    330     Caption = 'Provisional Diagnosis'
    331   end
    332   inherited cmdAccept: TButton
    333     Left = 387
    334     Top = 339
    335     Anchors = [akRight, akBottom]
    336     TabOrder = 10
    337     ExplicitLeft = 387
    338     ExplicitTop = 339
     436    ExplicitLeft = 427
     437    ExplicitTop = 382
    339438  end
    340439  inherited cmdQuit: TButton
    341     Left = 469
    342     Top = 339
     440    Left = 526
     441    Top = 382
    343442    Width = 64
    344443    Anchors = [akRight, akBottom]
    345     TabOrder = 11
    346     ExplicitLeft = 469
    347     ExplicitTop = 339
     444    TabOrder = 5
     445    ExplicitLeft = 526
     446    ExplicitTop = 382
    348447    ExplicitWidth = 64
    349448  end
    350449  inherited pnlMessage: TPanel
    351     Left = 50
    352     Top = 320
     450    Left = 13
     451    Top = 361
    353452    Width = 316
    354453    Anchors = [akLeft, akRight, akBottom]
    355     TabOrder = 12
    356     ExplicitLeft = 50
    357     ExplicitTop = 320
     454    TabOrder = 2
     455    ExplicitLeft = 13
     456    ExplicitTop = 361
    358457    ExplicitWidth = 316
    359458    inherited memMessage: TRichEdit
    … …  
    365464    Data = (
    366465      (
     466        'Component = memOrder'
     467        'Status = stsDefault')
     468      (
     469        'Component = cmdAccept'
     470        'Status = stsDefault')
     471      (
     472        'Component = cmdQuit'
     473        'Status = stsDefault')
     474      (
     475        'Component = pnlMessage'
     476        'Status = stsDefault')
     477      (
     478        'Component = memMessage'
     479        'Status = stsDefault')
     480      (
     481        'Component = frmODProc'
     482        'Status = stsDefault')
     483      (
     484        'Component = pnlMain'
     485        'Status = stsDefault')
     486      (
     487        'Component = pnlCombatVet'
     488        'Status = stsDefault')
     489      (
    367490        'Component = lblUrgency'
    368491        'Status = stsDefault')
    … …  
    416539        'Status = stsDefault')
    417540      (
    418         'Component = memOrder'
    419         'Status = stsDefault')
    420       (
    421         'Component = cmdAccept'
    422         'Status = stsDefault')
    423       (
    424         'Component = cmdQuit'
    425         'Status = stsDefault')
    426       (
    427         'Component = pnlMessage'
    428         'Status = stsDefault')
    429       (
    430         'Component = memMessage'
    431         'Status = stsDefault')
    432       (
    433         'Component = frmODProc'
     541        'Component = lblEarliest'
     542        'Status = stsDefault')
     543      (
     544        'Component = calEarliest'
     545        'Status = stsDefault')
     546      (
     547        'Component = lblLatest'
     548        'Status = stsDefault')
     549      (
     550        'Component = calLatest'
     551        'Status = stsDefault')
     552      (
     553        'Component = txtCombatVet'
     554        'Status = stsDefault')
     555      (
     556        'Component = servicelbl508'
    434557        'Status = stsDefault'))
    435558  end
    436559  object mnuPopProvDx: TPopupMenu
    437560    Left = 353
    438     Top = 77
     561    Top = 133
    439562    object mnuPopProvDxDelete: TMenuItem
    440563      Caption = 'Delete diagnosis'
    … …  
    444567  object popReason: TPopupMenu
    445568    OnPopup = popReasonPopup
    446     Left = 411
    447     Top = 169
     569    Left = 483
     570    Top = 337
    448571    object popReasonCut: TMenuItem
    449572      Caption = 'Cu&t'
Note: See TracChangeset for help on using the changeset viewer.