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

    r829 r1679  
    11inherited frmEditProc: TfrmEditProc
    22  Tag = 112
    3   Left = 296
    4   Top = 245
    5   Width = 571
    6   Height = 359
     3  Left = 408
     4  Top = 210
     5  Width = 580
     6  Height = 458
    77  HorzScrollBar.Range = 561
    88  VertScrollBar.Range = 308
    99  Caption = 'Edit and resubmit a cancelled procedure'
    10   Constraints.MinHeight = 359
    11   Constraints.MinWidth = 571
    12   OldCreateOrder = True
     10  Constraints.MinHeight = 458
     11  Constraints.MinWidth = 580
    1312  Position = poScreenCenter
    14   ExplicitLeft = 296
    15   ExplicitTop = 245
    16   ExplicitWidth = 571
    17   ExplicitHeight = 359
     13  ExplicitWidth = 580
     14  ExplicitHeight = 458
    1815  DesignSize = (
    19     563
    20     325)
     16    572
     17    424)
    2118  PixelsPerInch = 96
    2219  TextHeight = 13
    23   object lblProc: TLabel [0]
    24     Left = 3
    25     Top = 7
    26     Width = 49
    27     Height = 13
    28     Caption = 'Procedure'
    29   end
    30   object lblReason: TLabel [1]
    31     Left = 3
    32     Top = 167
    33     Width = 90
    34     Height = 13
    35     Caption = 'Reason for Consult'
    36   end
    37   object lblService: TOROffsetLabel [2]
    38     Left = 3
    39     Top = 49
    40     Width = 158
    41     Height = 15
    42     Caption = 'Service to perform this procedure'
    43     HorzOffset = 2
    44     Transparent = False
    45     VertOffset = 2
    46     WordWrap = False
    47   end
    48   object lblComment: TLabel [3]
    49     Left = 106
    50     Top = 109
    51     Width = 74
    52     Height = 13
    53     Caption = 'New Comments'
    54   end
    55   object lblComments: TLabel [4]
    56     Left = 3
    57     Top = 99
    58     Width = 89
    59     Height = 13
    60     Caption = 'Display Comments:'
    61   end
    62   object lblUrgency: TStaticText [5]
    63     Left = 190
    64     Top = 7
    65     Width = 44
    66     Height = 17
    67     Caption = 'Urgency'
    68     TabOrder = 18
    69   end
    70   object lblPlace: TStaticText [6]
    71     Left = 362
    72     Top = 50
    73     Width = 104
    74     Height = 17
    75     Caption = 'Place of Consultation'
    76     TabOrder = 19
    77   end
    78   object lblAttn: TStaticText [7]
    79     Left = 362
    80     Top = 7
    81     Width = 46
    82     Height = 17
    83     Caption = 'Attention'
    84     TabOrder = 20
    85   end
    86   object lblProvDiag: TStaticText [8]
    87     Left = 190
    88     Top = 81
    89     Width = 104
    90     Height = 17
    91     Caption = 'Provisional Diagnosis'
    92     TabOrder = 21
    93   end
    94   object lblInpOutp: TStaticText [9]
    95     Left = 192
    96     Top = 48
    97     Width = 127
    98     Height = 17
    99     Caption = 'Patient will be seen as an:'
    100     TabOrder = 17
    101   end
    102   object memReason: TRichEdit [10]
    103     Left = 2
    104     Top = 181
    105     Width = 557
    106     Height = 119
    107     Anchors = [akLeft, akTop, akRight, akBottom]
     20  object pnlCombatVet: TPanel [0]
     21    Left = 0
     22    Top = 0
     23    Width = 572
     24    Height = 25
     25    Align = alTop
     26    BevelOuter = bvLowered
    10827    Font.Charset = DEFAULT_CHARSET
    10928    Font.Color = clWindowText
    11029    Font.Height = -11
    111     Font.Name = 'Courier New'
     30    Font.Name = 'MS Sans Serif'
    11231    Font.Style = []
    11332    ParentFont = False
    114     PopupMenu = popReason
    115     ScrollBars = ssBoth
    116     TabOrder = 12
    117     WantTabs = True
    118     OnChange = ControlChange
    119     OnExit = memReasonExit
    120     OnKeyDown = memReasonKeyDown
    121     OnKeyPress = memReasonKeyPress
    122     OnKeyUp = memCommentKeyUp
    123   end
    124   object cmdAccept: TButton [11]
    125     Left = 401
    126     Top = 303
     33    TabOrder = 0
     34    object txtCombatVet: TVA508StaticText
     35      Name = 'txtCombatVet'
     36      Left = 1
     37      Top = 1
     38      Width = 570
     39      Height = 23
     40      Align = alClient
     41      Alignment = taCenter
     42      BevelOuter = bvNone
     43      Enabled = False
     44      TabOrder = 0
     45      ShowAccelChar = True
     46    end
     47  end
     48  object cmdAccept: TButton [1]
     49    Left = 410
     50    Top = 400
    12751    Width = 72
    12852    Height = 21
    12953    Anchors = [akRight, akBottom]
    13054    Caption = 'Resubmit'
    131     TabOrder = 13
     55    TabOrder = 2
    13256    OnClick = cmdAcceptClick
    13357  end
    134   object cmdQuit: TButton [12]
    135     Left = 486
    136     Top = 303
     58  object cmdQuit: TButton [2]
     59    Left = 495
     60    Top = 400
    13761    Width = 72
    13862    Height = 21
    … …  
    14064    Cancel = True
    14165    Caption = 'Cancel'
    142     TabOrder = 14
     66    TabOrder = 3
    14367    OnClick = cmdQuitClick
    14468  end
    145   object cboUrgency: TORComboBox [13]
    146     Left = 190
    147     Top = 22
    148     Width = 165
    149     Height = 21
    150     Style = orcsDropDown
    151     AutoSelect = True
    152     Caption = 'Urgency'
    153     Color = clWindow
    154     DropDownCount = 8
    155     ItemHeight = 13
    156     ItemTipColor = clWindow
    157     ItemTipEnable = True
    158     ListItemsOnly = True
    159     LongList = False
    160     LookupPiece = 0
    161     MaxLength = 0
    162     Pieces = '2'
    163     Sorted = False
    164     SynonymChars = '<>'
    165     TabOrder = 2
    166     OnChange = ControlChange
    167     CharsNeedMatch = 1
    168   end
    169   object radInpatient: TRadioButton [14]
    170     Left = 190
    171     Top = 61
    172     Width = 61
    173     Height = 17
    174     Caption = '&Inpatient'
    175     TabOrder = 4
    176     OnClick = radInpatientClick
    177   end
    178   object radOutpatient: TRadioButton [15]
    179     Left = 264
    180     Top = 61
    181     Width = 73
    182     Height = 17
    183     Caption = '&Outpatient'
    184     TabOrder = 5
    185     OnClick = radOutpatientClick
    186   end
    187   object cboPlace: TORComboBox [16]
    188     Left = 362
    189     Top = 63
    190     Width = 197
    191     Height = 21
    192     Anchors = [akLeft, akTop, akRight]
    193     Style = orcsDropDown
    194     AutoSelect = True
    195     Caption = 'Place of Consultation'
    196     Color = clWindow
    197     DropDownCount = 8
    198     ItemHeight = 13
    199     ItemTipColor = clWindow
    200     ItemTipEnable = True
    201     ListItemsOnly = True
    202     LongList = False
    203     LookupPiece = 0
    204     MaxLength = 0
    205     Pieces = '2'
    206     Sorted = False
    207     SynonymChars = '<>'
    208     TabOrder = 6
    209     OnChange = ControlChange
    210     CharsNeedMatch = 1
    211     ExplicitWidth = 195
    212   end
    213   object txtProvDiag: TCaptionEdit [17]
    214     Left = 190
    215     Top = 94
    216     Width = 315
    217     Height = 21
    218     Anchors = [akLeft, akTop, akRight]
    219     MaxLength = 180
    220     ParentShowHint = False
    221     PopupMenu = mnuPopProvDx
    222     ShowHint = True
    223     TabOrder = 7
    224     OnChange = ControlChange
    225     Caption = 'Provisional Diagnosis'
    226   end
    227   object txtAttn: TORComboBox [18]
    228     Left = 362
    229     Top = 22
    230     Width = 197
    231     Height = 21
    232     Anchors = [akLeft, akTop, akRight]
    233     Style = orcsDropDown
    234     AutoSelect = True
    235     Caption = 'Attention'
    236     Color = clWindow
    237     DropDownCount = 8
    238     ItemHeight = 13
    239     ItemTipColor = clWindow
    240     ItemTipEnable = True
    241     ListItemsOnly = True
    242     LongList = True
    243     LookupPiece = 2
    244     MaxLength = 0
    245     Pieces = '2,3'
    246     Sorted = False
    247     SynonymChars = '<>'
    248     TabOrder = 3
    249     OnChange = ControlChange
    250     OnNeedData = txtAttnNeedData
    251     CharsNeedMatch = 1
    252     ExplicitWidth = 195
    253   end
    254   object cboProc: TORComboBox [19]
    255     Left = 3
    256     Top = 22
    257     Width = 173
    258     Height = 21
    259     Style = orcsDropDown
    260     AutoSelect = True
    261     Caption = 'Procedure'
    262     Color = clWindow
    263     DropDownCount = 8
    264     Enabled = False
    265     Font.Charset = DEFAULT_CHARSET
    266     Font.Color = clGrayText
    267     Font.Height = -11
    268     Font.Name = 'MS Sans Serif'
    269     Font.Style = []
    270     ItemHeight = 13
    271     ItemTipColor = clWindow
    272     ItemTipEnable = True
    273     ListItemsOnly = True
    274     LongList = True
    275     LookupPiece = 0
    276     MaxLength = 0
    277     ParentFont = False
    278     Pieces = '2'
    279     Sorted = False
    280     SynonymChars = '<>'
    281     TabOrder = 0
    282     OnChange = cboProcSelect
    283     OnNeedData = cboProcNeedData
    284     CharsNeedMatch = 1
    285   end
    286   object cboCategory: TORComboBox [20]
    287     Left = 505
    288     Top = -11
    289     Width = 2
    290     Height = 21
    291     Style = orcsDropDown
    292     AutoSelect = True
    293     Color = clWindow
    294     DropDownCount = 8
    295     ItemHeight = 13
    296     ItemTipColor = clWindow
    297     ItemTipEnable = True
    298     ListItemsOnly = False
    299     LongList = False
    300     LookupPiece = 0
    301     MaxLength = 0
    302     Sorted = False
    303     SynonymChars = '<>'
    304     TabOrder = 15
    305     Visible = False
    306     OnChange = ControlChange
    307     CharsNeedMatch = 1
    308   end
    309   object cboService: TORComboBox [21]
    310     Left = 3
    311     Top = 65
    312     Width = 173
    313     Height = 21
    314     Style = orcsDropDown
    315     AutoSelect = True
    316     Caption = 'Service to perform this procedure'
    317     Color = clWindow
    318     DropDownCount = 8
    319     Enabled = False
    320     Font.Charset = DEFAULT_CHARSET
    321     Font.Color = clGrayText
    322     Font.Height = -11
    323     Font.Name = 'MS Sans Serif'
    324     Font.Style = []
    325     ItemHeight = 13
    326     ItemTipColor = clWindow
    327     ItemTipEnable = True
    328     ListItemsOnly = False
    329     LongList = False
    330     LookupPiece = 0
    331     MaxLength = 0
    332     ParentFont = False
    333     Pieces = '2'
    334     Sorted = False
    335     SynonymChars = '<>'
    336     TabOrder = 1
    337     OnChange = ControlChange
    338     CharsNeedMatch = 1
    339   end
    340   object memComment: TRichEdit [22]
    341     Left = 106
    342     Top = 123
    343     Width = 451
    344     Height = 38
    345     Anchors = [akLeft, akTop, akRight]
    346     PopupMenu = popReason
    347     TabOrder = 11
    348     WantTabs = True
    349     OnChange = ControlChange
    350     OnKeyUp = memCommentKeyUp
    351   end
    352   object pnlMessage: TPanel [23]
    353     Left = 19
    354     Top = 276
    355     Width = 383
     69  object pnlMessage: TPanel [3]
     70    Left = 12
     71    Top = 379
     72    Width = 392
    35673    Height = 44
    35774    Anchors = [akLeft, akRight, akBottom]
    … …  
    35976    BorderStyle = bsSingle
    36077    Caption = 'pnlMessage'
    361     TabOrder = 16
     78    TabOrder = 4
    36279    Visible = False
    36380    object imgMessage: TImage
    … …  
    384101    end
    385102  end
    386   object btnCmtCancel: TButton [24]
    387     Left = 11
    388     Top = 116
    389     Width = 75
    390     Height = 21
    391     Caption = 'Cancellation'
    392     TabOrder = 9
    393     OnClick = btnCmtCancelClick
    394   end
    395   object btnCmtOther: TButton [25]
    396     Left = 11
    397     Top = 139
    398     Width = 75
    399     Height = 21
    400     Caption = 'Other'
    401     TabOrder = 10
    402     OnClick = btnCmtOtherClick
    403   end
    404   object cmdLexSearch: TButton [26]
    405     Left = 509
    406     Top = 94
    407     Width = 49
    408     Height = 21
    409     Anchors = [akTop, akRight]
    410     Caption = 'Lexicon'
    411     TabOrder = 8
    412     OnClick = cmdLexSearchClick
     103  object pnlMain: TPanel [4]
     104    Left = 0
     105    Top = 0
     106    Width = 572
     107    Height = 393
     108    Anchors = [akLeft, akTop, akRight, akBottom]
     109    BevelOuter = bvNone
     110    TabOrder = 1
     111    DesignSize = (
     112      572
     113      393)
     114    object lblProc: TLabel
     115      Left = 3
     116      Top = 7
     117      Width = 49
     118      Height = 13
     119      Caption = 'Procedure'
     120    end
     121    object lblReason: TLabel
     122      Left = 8
     123      Top = 225
     124      Width = 95
     125      Height = 13
     126      Caption = 'Reason for Request'
     127    end
     128    object lblService: TOROffsetLabel
     129      Left = 3
     130      Top = 49
     131      Width = 158
     132      Height = 15
     133      Caption = 'Service to perform this procedure'
     134      HorzOffset = 2
     135      Transparent = False
     136      VertOffset = 2
     137      WordWrap = False
     138    end
     139    object lblComment: TLabel
     140      Left = 8
     141      Top = 166
     142      Width = 74
     143      Height = 13
     144      Caption = 'New Comments'
     145    end
     146    object lblComments: TLabel
     147      Left = 3
     148      Top = 92
     149      Width = 89
     150      Height = 13
     151      Caption = 'Display Comments:'
     152    end
     153    object lblUrgency: TStaticText
     154      Left = 190
     155      Top = 7
     156      Width = 44
     157      Height = 17
     158      Caption = 'Urgency'
     159      TabOrder = 17
     160    end
     161    object lblPlace: TStaticText
     162      Left = 360
     163      Top = 92
     164      Width = 104
     165      Height = 17
     166      Caption = 'Place of Consultation'
     167      TabOrder = 18
     168    end
     169    object lblAttn: TStaticText
     170      Left = 362
     171      Top = 7
     172      Width = 46
     173      Height = 17
     174      Caption = 'Attention'
     175      TabOrder = 19
     176    end
     177    object lblProvDiag: TStaticText
     178      Left = 188
     179      Top = 136
     180      Width = 104
     181      Height = 17
     182      Caption = 'Provisional Diagnosis'
     183      TabOrder = 20
     184    end
     185    object lblInpOutp: TStaticText
     186      Left = 190
     187      Top = 92
     188      Width = 127
     189      Height = 17
     190      Caption = 'Patient will be seen as an:'
     191      TabOrder = 16
     192    end
     193    object memReason: TRichEdit
     194      Left = 8
     195      Top = 241
     196      Width = 560
     197      Height = 151
     198      Anchors = [akLeft, akTop, akRight, akBottom]
     199      Font.Charset = DEFAULT_CHARSET
     200      Font.Color = clWindowText
     201      Font.Height = -11
     202      Font.Name = 'Courier New'
     203      Font.Style = []
     204      ParentFont = False
     205      PopupMenu = popReason
     206      ScrollBars = ssBoth
     207      TabOrder = 14
     208      WantTabs = True
     209      OnChange = ControlChange
     210      OnExit = memReasonExit
     211      OnKeyDown = memReasonKeyDown
     212      OnKeyPress = memReasonKeyPress
     213      OnKeyUp = memCommentKeyUp
     214    end
     215    object cboUrgency: TORComboBox
     216      Left = 190
     217      Top = 22
     218      Width = 165
     219      Height = 21
     220      Style = orcsDropDown
     221      AutoSelect = True
     222      Caption = 'Urgency'
     223      Color = clWindow
     224      DropDownCount = 8
     225      ItemHeight = 13
     226      ItemTipColor = clWindow
     227      ItemTipEnable = True
     228      ListItemsOnly = True
     229      LongList = False
     230      LookupPiece = 0
     231      MaxLength = 0
     232      Pieces = '2'
     233      Sorted = False
     234      SynonymChars = '<>'
     235      TabOrder = 2
     236      OnChange = ControlChange
     237      CharsNeedMatch = 1
     238    end
     239    object radInpatient: TRadioButton
     240      Left = 188
     241      Top = 105
     242      Width = 61
     243      Height = 17
     244      Caption = '&Inpatient'
     245      TabOrder = 8
     246      OnClick = radInpatientClick
     247    end
     248    object radOutpatient: TRadioButton
     249      Left = 255
     250      Top = 105
     251      Width = 73
     252      Height = 17
     253      Caption = '&Outpatient'
     254      TabOrder = 9
     255      OnClick = radOutpatientClick
     256    end
     257    object cboPlace: TORComboBox
     258      Left = 360
     259      Top = 107
     260      Width = 206
     261      Height = 21
     262      Anchors = [akLeft, akTop, akRight]
     263      Style = orcsDropDown
     264      AutoSelect = True
     265      Caption = 'Place of Consultation'
     266      Color = clWindow
     267      DropDownCount = 8
     268      ItemHeight = 13
     269      ItemTipColor = clWindow
     270      ItemTipEnable = True
     271      ListItemsOnly = True
     272      LongList = False
     273      LookupPiece = 0
     274      MaxLength = 0
     275      Pieces = '2'
     276      Sorted = False
     277      SynonymChars = '<>'
     278      TabOrder = 10
     279      OnChange = ControlChange
     280      CharsNeedMatch = 1
     281    end
     282    object txtProvDiag: TCaptionEdit
     283      Left = 188
     284      Top = 149
     285      Width = 324
     286      Height = 21
     287      Anchors = [akLeft, akTop, akRight]
     288      MaxLength = 180
     289      ParentShowHint = False
     290      PopupMenu = mnuPopProvDx
     291      ShowHint = True
     292      TabOrder = 12
     293      OnChange = ControlChange
     294      Caption = 'Provisional Diagnosis'
     295    end
     296    object txtAttn: TORComboBox
     297      Left = 362
     298      Top = 22
     299      Width = 206
     300      Height = 21
     301      Anchors = [akLeft, akTop, akRight]
     302      Style = orcsDropDown
     303      AutoSelect = True
     304      Caption = 'Attention'
     305      Color = clWindow
     306      DropDownCount = 8
     307      ItemHeight = 13
     308      ItemTipColor = clWindow
     309      ItemTipEnable = True
     310      ListItemsOnly = True
     311      LongList = True
     312      LookupPiece = 2
     313      MaxLength = 0
     314      Pieces = '2,3'
     315      Sorted = False
     316      SynonymChars = '<>'
     317      TabOrder = 3
     318      OnChange = ControlChange
     319      OnNeedData = txtAttnNeedData
     320      CharsNeedMatch = 1
     321    end
     322    object cboProc: TORComboBox
     323      Left = 3
     324      Top = 22
     325      Width = 173
     326      Height = 21
     327      Style = orcsDropDown
     328      AutoSelect = True
     329      Caption = 'Procedure'
     330      Color = clWindow
     331      DropDownCount = 8
     332      Enabled = False
     333      Font.Charset = DEFAULT_CHARSET
     334      Font.Color = clGrayText
     335      Font.Height = -11
     336      Font.Name = 'MS Sans Serif'
     337      Font.Style = []
     338      ItemHeight = 13
     339      ItemTipColor = clWindow
     340      ItemTipEnable = True
     341      ListItemsOnly = True
     342      LongList = True
     343      LookupPiece = 0
     344      MaxLength = 0
     345      ParentFont = False
     346      Pieces = '2'
     347      Sorted = False
     348      SynonymChars = '<>'
     349      TabOrder = 0
     350      OnChange = cboProcSelect
     351      OnNeedData = cboProcNeedData
     352      CharsNeedMatch = 1
     353    end
     354    object cboCategory: TORComboBox
     355      Left = 505
     356      Top = -11
     357      Width = 2
     358      Height = 21
     359      Style = orcsDropDown
     360      AutoSelect = True
     361      Color = clWindow
     362      DropDownCount = 8
     363      ItemHeight = 13
     364      ItemTipColor = clWindow
     365      ItemTipEnable = True
     366      ListItemsOnly = False
     367      LongList = False
     368      LookupPiece = 0
     369      MaxLength = 0
     370      Sorted = False
     371      SynonymChars = '<>'
     372      TabOrder = 15
     373      Visible = False
     374      OnChange = ControlChange
     375      CharsNeedMatch = 1
     376    end
     377    object cboService: TORComboBox
     378      Left = 3
     379      Top = 65
     380      Width = 173
     381      Height = 21
     382      Style = orcsDropDown
     383      AutoSelect = True
     384      Caption = 'Service to perform this procedure'
     385      Color = clWindow
     386      DropDownCount = 8
     387      Enabled = False
     388      Font.Charset = DEFAULT_CHARSET
     389      Font.Color = clGrayText
     390      Font.Height = -11
     391      Font.Name = 'MS Sans Serif'
     392      Font.Style = []
     393      ItemHeight = 13
     394      ItemTipColor = clWindow
     395      ItemTipEnable = True
     396      ListItemsOnly = False
     397      LongList = False
     398      LookupPiece = 0
     399      MaxLength = 0
     400      ParentFont = False
     401      Pieces = '2'
     402      Sorted = False
     403      SynonymChars = '<>'
     404      TabOrder = 1
     405      OnChange = ControlChange
     406      CharsNeedMatch = 1
     407    end
     408    object memComment: TRichEdit
     409      Left = 8
     410      Top = 180
     411      Width = 560
     412      Height = 38
     413      Anchors = [akLeft, akTop, akRight]
     414      PopupMenu = popReason
     415      TabOrder = 13
     416      WantTabs = True
     417      OnChange = ControlChange
     418      OnExit = memCommentExit
     419      OnKeyUp = memCommentKeyUp
     420    end
     421    object btnCmtCancel: TButton
     422      Left = 3
     423      Top = 111
     424      Width = 75
     425      Height = 21
     426      Caption = 'Cancellation'
     427      TabOrder = 6
     428      OnClick = btnCmtCancelClick
     429    end
     430    object btnCmtOther: TButton
     431      Left = 84
     432      Top = 111
     433      Width = 75
     434      Height = 21
     435      Caption = 'Other'
     436      TabOrder = 7
     437      OnClick = btnCmtOtherClick
     438    end
     439    object cmdLexSearch: TButton
     440      Left = 516
     441      Top = 149
     442      Width = 49
     443      Height = 21
     444      Anchors = [akTop, akRight]
     445      Caption = 'Lexicon'
     446      TabOrder = 11
     447      OnClick = cmdLexSearchClick
     448    end
     449    object lblEarliest: TStaticText
     450      Left = 190
     451      Top = 49
     452      Width = 121
     453      Height = 17
     454      Caption = 'Earliest appropriate date:'
     455      TabOrder = 21
     456    end
     457    object lblLatest: TStaticText
     458      Left = 361
     459      Top = 49
     460      Width = 116
     461      Height = 17
     462      Caption = 'Latest appropriate date:'
     463      TabOrder = 22
     464      Visible = False
     465    end
     466    object calEarliest: TORDateBox
     467      Left = 190
     468      Top = 65
     469      Width = 164
     470      Height = 21
     471      TabOrder = 4
     472      OnExit = calEarliestExit
     473      DateOnly = True
     474      RequireTime = False
     475    end
     476    object calLatest: TORDateBox
     477      Left = 362
     478      Top = 65
     479      Width = 204
     480      Height = 21
     481      Anchors = [akLeft, akTop, akRight]
     482      TabOrder = 5
     483      Visible = False
     484      OnExit = calLatestExit
     485      DateOnly = True
     486      RequireTime = False
     487    end
    413488  end
    414489  inherited amgrMain: TVA508AccessibilityManager
    415490    Data = (
    416491      (
     492        'Component = cmdAccept'
     493        'Status = stsDefault')
     494      (
     495        'Component = cmdQuit'
     496        'Status = stsDefault')
     497      (
     498        'Component = pnlMessage'
     499        'Status = stsDefault')
     500      (
     501        'Component = memMessage'
     502        'Status = stsDefault')
     503      (
     504        'Component = frmEditProc'
     505        'Status = stsDefault')
     506      (
     507        'Component = pnlMain'
     508        'Status = stsDefault')
     509      (
    417510        'Component = lblUrgency'
    418511        'Status = stsDefault')
    … …  
    433526        'Status = stsDefault')
    434527      (
    435         'Component = cmdAccept'
    436         'Status = stsDefault')
    437       (
    438         'Component = cmdQuit'
    439         'Status = stsDefault')
    440       (
    441528        'Component = cboUrgency'
    442529        'Status = stsDefault')
    … …  
    469556        'Status = stsDefault')
    470557      (
    471         'Component = pnlMessage'
    472         'Status = stsDefault')
    473       (
    474         'Component = memMessage'
    475         'Status = stsDefault')
    476       (
    477558        'Component = btnCmtCancel'
    478559        'Status = stsDefault')
    … …  
    484565        'Status = stsDefault')
    485566      (
    486         'Component = frmEditProc'
     567        'Component = lblEarliest'
     568        'Status = stsDefault')
     569      (
     570        'Component = lblLatest'
     571        'Status = stsDefault')
     572      (
     573        'Component = calEarliest'
     574        'Status = stsDefault')
     575      (
     576        'Component = calLatest'
     577        'Status = stsDefault')
     578      (
     579        'Component = pnlCombatVet'
     580        'Status = stsDefault')
     581      (
     582        'Component = txtCombatVet'
    487583        'Status = stsDefault'))
    488584  end
    489585  object mnuPopProvDx: TPopupMenu
    490     Left = 353
    491     Top = 77
     586    Left = 351
     587    Top = 132
    492588    object mnuPopProvDxDelete: TMenuItem
    493589      Caption = 'Delete diagnosis'
    … …  
    497593  object popReason: TPopupMenu
    498594    OnPopup = popReasonPopup
    499     Left = 411
    500     Top = 169
     595    Left = 539
     596    Top = 361
    501597    object popReasonCut: TMenuItem
    502598      Caption = 'Cu&t'
Note: See TracChangeset for help on using the changeset viewer.