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

    r459 r460  
    11object frmNoteProperties: TfrmNoteProperties
    2   Left = 176
    3   Top = 204
     2  Left = 384
     3  Top = 56
    44  AutoScroll = False
    55  BorderIcons = []
    66  Caption = 'Progress Note Properties'
    7   ClientHeight = 371
     7  ClientHeight = 676
    88  ClientWidth = 543
    99  Color = clBtnFace
    … …  
    1616  OldCreateOrder = False
    1717  Position = poScreenCenter
     18  OnDestroy = FormDestroy
    1819  OnResize = FormResize
    1920  OnShow = FormShow
    … …  
    106107    OnMouseClick = cboNewTitleMouseClick
    107108    OnNeedData = cboNewTitleNeedData
     109    CharsNeedMatch = 1
    108110  end
    109111  object calNote: TORDateBox
    … …  
    145147    OnMouseClick = cboAuthorMouseClick
    146148    OnNeedData = NewPersonNeedData
     149    CharsNeedMatch = 1
    147150  end
    148151  object cboCosigner: TORComboBox
    … …  
    171174    OnExit = cboCosignerExit
    172175    OnNeedData = cboCosignerNeedData
     176    CharsNeedMatch = 1
    173177  end
    174178  object cmdOK: TButton
    … …  
    179183    Caption = 'OK'
    180184    Default = True
    181     TabOrder = 8
     185    TabOrder = 9
    182186    OnClick = cmdOKClick
    183187  end
    … …  
    189193    Cancel = True
    190194    Caption = 'Cancel'
    191     TabOrder = 9
     195    TabOrder = 10
    192196    OnClick = cmdCancelClick
    193197  end
    … …  
    218222    SynonymChars = '<>'
    219223    TabOrder = 4
     224    CharsNeedMatch = 1
    220225  end
    221226  object calProcDateTime: TORDateBox
    … …  
    233238    Tag = 2
    234239    Left = 0
    235     Top = 218
     240    Top = 217
    236241    Width = 543
    237242    Height = 153
     243    Align = alBottom
    238244    BevelOuter = bvNone
    239245    TabOrder = 6
    … …  
    316322    Tag = 1
    317323    Left = 0
    318     Top = 218
     324    Top = 370
    319325    Width = 543
    320326    Height = 153
     327    Align = alBottom
    321328    BevelOuter = bvNone
    322329    TabOrder = 7
    323330    object lblConsult1: TLabel
    324331      Tag = 1
    325       Left = 26
     332      Left = 3
    326333      Top = 8
    327334      Width = 309
    … …  
    339346    object lblConsult2: TLabel
    340347      Tag = 1
    341       Left = 26
     348      Left = 3
    342349      Top = 22
    343350      Width = 247
    … …  
    408415      Pieces = '2,3,4,5,6'
    409416      TabPositions = '21,43,69,83'
     417      OnChange = lstRequestsChange
    410418    end
    411419    object btnShowList: TButton
    412       Left = 386
    413       Top = 12
     420      Left = 335
     421      Top = 13
    414422      Width = 100
    415423      Height = 21
    … …  
    418426      OnClick = btnShowListClick
    419427    end
     428    object btnDetails: TButton
     429      Left = 450
     430      Top = 13
     431      Width = 75
     432      Height = 21
     433      Caption = 'Show Details'
     434      TabOrder = 2
     435      OnClick = btnDetailsClick
     436    end
     437  end
     438  object pnlPRF: TORAutoPanel
     439    Tag = 3
     440    Left = 0
     441    Top = 523
     442    Width = 543
     443    Height = 153
     444    Align = alBottom
     445    BevelOuter = bvNone
     446    TabOrder = 8
     447    object lblPRF: TLabel
     448      Tag = 1
     449      Left = 2
     450      Top = 16
     451      Width = 304
     452      Height = 13
     453      Caption = 'Which Patient Record Flag Action should this Note be linked to?'
     454      Font.Charset = DEFAULT_CHARSET
     455      Font.Color = clWindowText
     456      Font.Height = -11
     457      Font.Name = 'MS Sans Serif'
     458      Font.Style = []
     459      ParentFont = False
     460    end
     461    object Bevel1: TBevel
     462      Tag = 1
     463      Left = 1
     464      Top = 2
     465      Width = 531
     466      Height = 2
     467    end
     468    object lvPRF: TCaptionListView
     469      Left = 0
     470      Top = 32
     471      Width = 543
     472      Height = 121
     473      Align = alBottom
     474      Columns = <
     475        item
     476          Caption = 'Used For Screen Readers'
     477          Width = 1
     478        end
     479        item
     480          AutoSize = True
     481          Caption = 'Flag'
     482        end
     483        item
     484          AutoSize = True
     485          Caption = 'Date'
     486        end
     487        item
     488          AutoSize = True
     489          Caption = 'Action'
     490        end
     491        item
     492          AutoSize = True
     493          Caption = 'Note'
     494        end>
     495      Constraints.MinHeight = 50
     496      HideSelection = False
     497      Items.Data = {
     498        5E0000000100000000000000FFFFFFFFFFFFFFFF03000000000000000857414E
     499        44455245521C4F63746F6265722032302C20323030334031303A31353A32333A
     500        3233115245414C4C59204C4F4E4720535455464603596573FFFFFFFFFFFF}
     501      ReadOnly = True
     502      RowSelect = True
     503      TabOrder = 0
     504      ViewStyle = vsReport
     505    end
    420506  end
    421507end
Note: See TracChangeset for help on using the changeset viewer.