Ignore:
Timestamp:
Jul 6, 2008, 8:20:14 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

Uploading from OR_30_258

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsults.dfm

    r459 r460  
    11inherited frmConsults: TfrmConsults
    2   Left = 327
    3   Top = 169
    4   Width = 660
     2  Left = 247
     3  Top = 174
     4  Width = 723
    55  Height = 467
    66  HelpContext = 6000
    … …  
    1515  inherited shpPageBottom: TShape
    1616    Top = 416
    17     Width = 652
     17    Width = 715
    1818  end
    1919  inherited sptHorz: TSplitter
    … …  
    2525  inherited pnlRight: TPanel [2]
    2626    Left = 85
    27     Width = 567
     27    Width = 630
    2828    Height = 416
    2929    OnResize = pnlRightResize
    … …  
    3131      Left = 0
    3232      Top = 350
    33       Width = 567
     33      Width = 630
    3434      Height = 4
    3535      Cursor = crVSplit
    … …  
    3939      Left = 0
    4040      Top = 0
    41       Width = 567
     41      Width = 630
    4242      Height = 350
    4343      Align = alClient
    … …  
    4848        Left = 0
    4949        Top = 0
    50         Width = 567
     50        Width = 630
    5151        Height = 19
    5252        Align = alTop
    … …  
    6868        Left = 0
    6969        Top = 19
    70         Width = 567
     70        Width = 630
    7171        Height = 331
    7272        Align = alClient
    … …  
    9797      Left = 0
    9898      Top = 354
    99       Width = 567
     99      Width = 630
    100100      Height = 62
    101101      Align = alBottom
    … …  
    107107      Left = 0
    108108      Top = 0
    109       Width = 567
     109      Width = 630
    110110      Height = 350
    111111      Align = alClient
    … …  
    117117        Left = 0
    118118        Top = 67
    119         Width = 567
     119        Width = 630
    120120        Height = 283
    121121        Align = alClient
    … …  
    137137        Left = 0
    138138        Top = 0
    139         Width = 567
     139        Width = 630
    140140        Height = 67
    141141        Align = alTop
    … …  
    144144        OnResize = pnlFieldsResize
    145145        DesignSize = (
    146           567
     146          630
    147147          67)
    148148        object bvlNewTitle: TBevel
    … …  
    166166        end
    167167        object lblAuthor: TStaticText
    168           Left = 339
     168          Left = 402
    169169          Top = 6
    170170          Width = 152
    … …  
    189189        end
    190190        object lblCosigner: TStaticText
    191           Left = 244
     191          Left = 307
    192192          Top = 21
    193193          Width = 243
    … …  
    232232        end
    233233        object cmdChange: TButton
    234           Left = 493
     234          Left = 556
    235235          Top = 6
    236236          Width = 58
    … …  
    245245          Left = 48
    246246          Top = 40
    247           Width = 503
     247          Width = 566
    248248          Height = 21
    249249          Hint = 'Subject is limited to a maximum of 80 characters.'
    … …  
    435435        Height = 142
    436436        Align = alClient
    437         Color = clWhite
    438437        HideSelection = False
    439438        Indent = 15
    … …  
    675674        end
    676675      end
     676      object mnuViewInformation: TMenuItem
     677        Caption = 'Information'
     678        OnClick = mnuViewInformationClick
     679        object mnuViewDemo: TMenuItem
     680          Tag = 1
     681          Caption = 'De&mographics...'
     682          OnClick = ViewInfo
     683        end
     684        object mnuViewVisits: TMenuItem
     685          Tag = 2
     686          Caption = 'Visits/Pr&ovider...'
     687          OnClick = ViewInfo
     688        end
     689        object mnuViewPrimaryCare: TMenuItem
     690          Tag = 3
     691          Caption = 'Primary &Care...'
     692          OnClick = ViewInfo
     693        end
     694        object mnuViewMyHealtheVet: TMenuItem
     695          Tag = 4
     696          Caption = 'MyHealthe&Vet...'
     697          OnClick = ViewInfo
     698        end
     699        object mnuInsurance: TMenuItem
     700          Tag = 5
     701          Caption = '&Insurance...'
     702          OnClick = ViewInfo
     703        end
     704        object mnuViewFlags: TMenuItem
     705          Tag = 6
     706          Caption = '&Flags...'
     707          OnClick = ViewInfo
     708        end
     709        object mnuViewRemoteData: TMenuItem
     710          Tag = 7
     711          Caption = 'Remote &Data...'
     712          OnClick = ViewInfo
     713        end
     714        object mnuViewReminders: TMenuItem
     715          Tag = 8
     716          Caption = '&Reminders...'
     717          Enabled = False
     718          OnClick = ViewInfo
     719        end
     720        object mnuViewPostings: TMenuItem
     721          Tag = 9
     722          Caption = '&Postings...'
     723          OnClick = ViewInfo
     724        end
     725      end
    677726      object Z3: TMenuItem
    678727        Caption = '-'
Note: See TracChangeset for help on using the changeset viewer.