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

    r830 r1679  
    11inherited frmPtSel: TfrmPtSel
    2   Top = 131
    3   BorderIcons = []
     2  Left = 290
     3  Top = 232
     4  BorderIcons = [biSystemMenu]
    45  Caption = 'Patient Selection'
    56  ClientHeight = 555
    67  ClientWidth = 785
    78  OldCreateOrder = True
     9  Position = poMainFormCenter
    810  OnClose = FormClose
    911  OnCreate = FormCreate
    … …  
    1113  OnResize = FormResize
    1214  OnShow = FormShow
    13   ExplicitTop = 131
     15  ExplicitTop = -20
    1416  ExplicitWidth = 793
    1517  ExplicitHeight = 589
    … …  
    8284      Width = 272
    8385      Height = 251
    84       Hint = 'Enter name,Full SSN ,Last 4 (x1234),'#39'HRN'#39',DOB, or Phone#'
     86      Hint = 'Enter name or use "Last 4" (x1234) format'
    8587      Style = orcsSimple
    8688      AutoSelect = True
    … …  
    100102      Sorted = False
    101103      SynonymChars = '<>'
    102       TabPositions = '20,25,30,60'
     104      TabPositions = '20,25,30'
    103105      TabOrder = 1
    104106      OnChange = cboPatientChange
    … …  
    107109      OnExit = cboPatientExit
    108110      OnKeyDown = cboPatientKeyDown
     111      OnKeyUp = cboPatientKeyUp
    109112      OnKeyPause = cboPatientKeyPause
    110113      OnMouseClick = cboPatientMouseClick
    … …  
    114117    end
    115118    object cmdOK: TButton
    116       Left = 698
     119      Left = 682
    117120      Top = 3
    118121      Width = 78
    … …  
    123126    end
    124127    object cmdCancel: TButton
    125       Left = 698
     128      Left = 682
    126129      Top = 24
    127130      Width = 78
    … …  
    134137    object cmdSaveList: TButton
    135138      Left = 494
    136       Top = 265
     139      Top = 252
    137140      Width = 175
    138141      Height = 21
    … …  
    140143      TabOrder = 0
    141144      OnClick = cmdSaveListClick
    142     end
    143     object RadioGroup1: TRadioGroup
    144       Left = 512
    145       Top = 192
    146       Width = 265
    147       Height = 65
    148       Caption = 'Specific "In-Depth" Lookup by '
    149       ItemIndex = 0
    150       Items.Strings = (
    151         '&None of the below'
    152         '&PHONE NUMBER [RESIDENCE]'
    153         '&DATE OF BIRTH')
    154       TabOrder = 4
    155       OnClick = onclick1
    156145    end
    157146  end
    … …  
    165154    TabOrder = 2
    166155    Visible = False
    167     object cmdProcessInfo: TButton
    168       Left = 11
    169       Top = 10
    170       Width = 95
    171       Height = 21
    172       Caption = 'Process Info'
    173       TabOrder = 0
    174       OnClick = cmdProcessInfoClick
    175     end
    176     object cmdProcessAll: TButton
    177       Left = 120
    178       Top = 10
    179       Width = 95
    180       Height = 21
    181       Caption = 'Process All'
    182       TabOrder = 1
    183       OnClick = cmdProcessAllClick
     156    object txtCmdComments: TVA508StaticText
     157      Name = 'txtCmdComments'
     158      Left = 441
     159      Top = 0
     160      Width = 159
     161      Height = 15
     162      Alignment = taLeftJustify
     163      Caption = 'Show Comments Button Disabled'
     164      TabOrder = 7
     165      Visible = False
     166      ShowAccelChar = True
     167    end
     168    object txtCmdRemove: TVA508StaticText
     169      Name = 'txtCmdRemove'
     170      Left = 577
     171      Top = 0
     172      Width = 120
     173      Height = 15
     174      Alignment = taLeftJustify
     175      Caption = 'Remove Button Disabled'
     176      TabOrder = 9
     177      Visible = False
     178      ShowAccelChar = True
     179    end
     180    object txtCmdForward: TVA508StaticText
     181      Name = 'txtCmdForward'
     182      Left = 344
     183      Top = 0
     184      Width = 118
     185      Height = 15
     186      Alignment = taLeftJustify
     187      Caption = 'Forward Button Disabled'
     188      TabOrder = 5
     189      Visible = False
     190      ShowAccelChar = True
     191    end
     192    object txtCmdProcess: TVA508StaticText
     193      Name = 'txtCmdProcess'
     194      Left = 232
     195      Top = 0
     196      Width = 118
     197      Height = 15
     198      Alignment = taLeftJustify
     199      Caption = 'Process Button Disabled'
     200      TabOrder = 3
     201      Visible = False
     202      ShowAccelChar = True
     203    end
     204    object cmdRemove: TButton
     205      Left = 577
     206      Top = 10
     207      Width = 95
     208      Height = 21
     209      Caption = 'Remove'
     210      Enabled = False
     211      TabOrder = 8
     212      OnClick = cmdRemoveClick
     213    end
     214    object cmdComments: TButton
     215      Left = 441
     216      Top = 10
     217      Width = 95
     218      Height = 21
     219      Caption = 'Show Comments'
     220      Enabled = False
     221      TabOrder = 6
     222      OnClick = cmdCommentsClick
     223    end
     224    object cmdForward: TButton
     225      Left = 335
     226      Top = 10
     227      Width = 95
     228      Height = 21
     229      Caption = 'Forward'
     230      Enabled = False
     231      TabOrder = 4
     232      OnClick = cmdForwardClick
    184233    end
    185234    object cmdProcess: TButton
    … …  
    193242      OnClick = cmdProcessClick
    194243    end
    195     object cmdForward: TButton
    196       Left = 335
    197       Top = 10
    198       Width = 95
    199       Height = 21
    200       Caption = 'Forward'
    201       Enabled = False
    202       TabOrder = 3
    203       OnClick = cmdForwardClick
    204     end
    205     object cmdRemove: TButton
    206       Left = 577
    207       Top = 10
    208       Width = 95
    209       Height = 21
    210       Caption = 'Remove'
    211       Enabled = False
    212       TabOrder = 5
    213       OnClick = cmdRemoveClick
    214     end
    215     object cmdComments: TButton
    216       Left = 441
    217       Top = 10
    218       Width = 95
    219       Height = 21
    220       Caption = 'Show Comments'
    221       Enabled = False
    222       TabOrder = 4
    223       OnClick = cmdCommentsClick
     244    object cmdProcessAll: TButton
     245      Left = 120
     246      Top = 10
     247      Width = 95
     248      Height = 21
     249      Caption = 'Process All'
     250      TabOrder = 1
     251      OnClick = cmdProcessAllClick
     252    end
     253    object cmdProcessInfo: TButton
     254      Left = 11
     255      Top = 10
     256      Width = 95
     257      Height = 21
     258      Caption = 'Process Info'
     259      TabOrder = 0
     260      OnClick = cmdProcessInfoClick
    224261    end
    225262  end
    … …  
    282319    OnInfoTip = lstvAlertsInfoTip
    283320    OnKeyDown = lstvAlertsKeyDown
     321    OnMouseUp = lstvAlertsMouseUp
    284322    OnSelectItem = lstvAlertsSelectItem
    285323    Caption = 'Notifications'
    … …  
    331369      (
    332370        'Component = cmdComments'
     371        'Status = stsDefault')
     372      (
     373        'Component = txtCmdComments'
     374        'Status = stsDefault')
     375      (
     376        'Component = txtCmdRemove'
     377        'Status = stsDefault')
     378      (
     379        'Component = txtCmdForward'
     380        'Status = stsDefault')
     381      (
     382        'Component = txtCmdProcess'
    333383        'Status = stsDefault'))
    334384  end
Note: See TracChangeset for help on using the changeset viewer.