Ignore:
Timestamp:
Oct 15, 2008, 9:11:42 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

Tweaked edit patient demographics window (isolate phone #)

Location:
cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtDemoEdit.dfm

    r473 r495  
    11object frmPtDemoEdit: TfrmPtDemoEdit
    2   Left = 286
    3   Top = 150
    4   Width = 594
    5   Height = 502
     2  Left = 196
     3  Top = 145
     4  Width = 684
     5  Height = 498
    66  Caption = 'Edit Patient Demographics'
    77  Color = clBtnFace
     
    1717  OnShow = FormShow
    1818  DesignSize = (
    19     586
    20     468)
     19    676
     20    464)
    2121  PixelsPerInch = 96
    2222  TextHeight = 13
    2323  object OKBtn: TButton
    24     Left = 296
    25     Top = 435
     24    Left = 386
     25    Top = 431
    2626    Width = 75
    2727    Height = 25
     
    3333  end
    3434  object CancelBtn: TButton
    35     Left = 488
    36     Top = 435
     35    Left = 578
     36    Top = 431
    3737    Width = 75
    3838    Height = 25
     
    4343  end
    4444  object ApplyBtn: TButton
    45     Left = 376
    46     Top = 435
     45    Left = 466
     46    Top = 431
    4747    Width = 107
    4848    Height = 25
     
    5656    Left = 0
    5757    Top = 0
    58     Width = 586
    59     Height = 428
     58    Width = 676
     59    Height = 424
    6060    ActivePage = DemoTabSheet
    6161    Align = alTop
     
    6565      Caption = 'Demographics'
    6666      DesignSize = (
    67         578
    68         400)
     67        668
     68        396)
    6969      object LNameLabel: TLabel
    7070        Left = 27
     
    9696      end
    9797      object PrefixLabel: TLabel
    98         Left = 289
     98        Left = 379
    9999        Top = 136
    100100        Width = 26
     
    105105      end
    106106      object SuffixLabel: TLabel
    107         Left = 58
     107        Left = 148
    108108        Top = 104
    109109        Width = 26
     
    113113      end
    114114      object DOBLabel: TLabel
    115         Left = 25
     115        Left = 115
    116116        Top = 128
    117117        Width = 59
     
    121121      end
    122122      object SSNumLabel: TLabel
    123         Left = 5
     123        Left = 95
    124124        Top = 152
    125125        Width = 79
     
    136136      end
    137137      object DegreeLabel: TLabel
    138         Left = 288
     138        Left = 378
    139139        Top = 160
    140140        Width = 35
     
    147147        Left = 95
    148148        Top = 8
    149         Width = 165
     149        Width = 255
    150150        Height = 21
    151151        Anchors = [akLeft, akTop, akRight]
     
    156156        Left = 95
    157157        Top = 32
    158         Width = 165
     158        Width = 255
    159159        Height = 21
    160160        Anchors = [akLeft, akTop, akRight]
     
    165165        Left = 95
    166166        Top = 56
    167         Width = 165
     167        Width = 255
    168168        Height = 21
    169169        Anchors = [akLeft, akTop, akRight]
     
    174174        Left = 95
    175175        Top = 80
    176         Width = 165
     176        Width = 255
    177177        Height = 21
    178178        Anchors = [akLeft, akTop, akRight]
     
    181181      end
    182182      object PrefixEdit: TEdit
    183         Left = 325
     183        Left = 415
    184184        Top = 136
    185185        Width = 135
     
    191191      end
    192192      object SuffixEdit: TEdit
    193         Left = 95
     193        Left = 185
    194194        Top = 104
    195195        Width = 165
     
    202202        Left = 95
    203203        Top = 128
    204         Width = 165
     204        Width = 255
    205205        Height = 21
    206206        Anchors = [akLeft, akTop, akRight]
     
    211211        Left = 95
    212212        Top = 152
    213         Width = 165
     213        Width = 255
    214214        Height = 21
    215215        Anchors = [akLeft, akTop, akRight]
     
    218218      end
    219219      object AliasGroupBox: TGroupBox
    220         Left = 272
     220        Left = 362
    221221        Top = 8
    222222        Width = 297
     
    294294      object AddressGroupBox: TGroupBox
    295295        Left = 8
    296         Top = 208
    297         Width = 569
     296        Top = 204
     297        Width = 482
    298298        Height = 185
     299        Anchors = [akLeft, akRight, akBottom]
    299300        Caption = 'Address'
    300301        TabOrder = 11
     302        DesignSize = (
     303          482
     304          185)
    301305        object CityLabel: TLabel
    302306          Left = 172
     
    322326        end
    323327        object EndingDateLabel: TLabel
    324           Left = 328
     328          Left = 336
    325329          Top = 152
    326           Width = 59
    327           Height = 13
     330          Width = 33
     331          Height = 26
    328332          Caption = 'Ending Date'
    329333          Visible = False
     334          WordWrap = True
    330335        end
    331336        object AddressRGrp: TRadioGroup
     
    463468          OnClick = TempActiveCBClick
    464469        end
    465         object PhoneNumGrp: TRadioGroup
    466           Left = 416
    467           Top = 16
    468           Width = 137
    469           Height = 89
    470           Caption = 'Phone Number'
    471           ItemIndex = 0
    472           Items.Strings = (
    473             'Residence'
    474             'Work'
    475             'Cell'
    476             'Temporary')
    477           TabOrder = 9
    478           OnClick = PhoneNumGrpClick
    479         end
    480         object PhoneNumEdit: TEdit
    481           Left = 416
    482           Top = 120
    483           Width = 137
    484           Height = 21
    485           TabOrder = 10
    486           Text = '<Phone Number>'
    487           OnChange = PhoneNumEditChange
    488         end
    489470        object StartingDateEdit: TEdit
    490471          Left = 176
     
    492473          Width = 145
    493474          Height = 21
    494           TabOrder = 11
     475          TabOrder = 9
    495476          Visible = False
    496477          OnChange = StartingDateEditChange
    497478        end
    498479        object EndingDateEdit: TEdit
    499           Left = 408
     480          Left = 376
    500481          Top = 152
    501           Width = 145
    502           Height = 21
    503           TabOrder = 12
     482          Width = 98
     483          Height = 21
     484          Anchors = [akLeft, akRight]
     485          TabOrder = 10
    504486          Visible = False
    505487          OnChange = EndingDateEditChange
     
    511493          Height = 17
    512494          Caption = 'Confidential Active'
    513           TabOrder = 13
     495          TabOrder = 11
    514496          Visible = False
    515497          OnClick = ConfActiveCBClick
     
    519501        Left = 95
    520502        Top = 176
    521         Width = 165
     503        Width = 255
    522504        Height = 21
    523505        Anchors = [akLeft, akTop, akRight]
     
    531513      end
    532514      object DegreeEdit: TEdit
    533         Left = 325
     515        Left = 415
    534516        Top = 160
    535517        Width = 136
     
    539521        Visible = False
    540522        OnChange = DegreeEditChange
     523      end
     524      object GroupBox1: TGroupBox
     525        Left = 495
     526        Top = 204
     527        Width = 170
     528        Height = 185
     529        Anchors = [akRight, akBottom]
     530        Caption = 'Phone Numbers'
     531        TabOrder = 12
     532        object PhoneNumGrp: TRadioGroup
     533          Left = 8
     534          Top = 16
     535          Width = 137
     536          Height = 89
     537          ItemIndex = 0
     538          Items.Strings = (
     539            'Residence'
     540            'Work'
     541            'Cell'
     542            'Temporary')
     543          TabOrder = 0
     544          OnClick = PhoneNumGrpClick
     545        end
     546        object PhoneNumEdit: TEdit
     547          Left = 8
     548          Top = 120
     549          Width = 137
     550          Height = 21
     551          TabOrder = 1
     552          Text = '<Phone Number>'
     553          OnChange = PhoneNumEditChange
     554        end
    541555      end
    542556    end
     
    547561    LangData = {
    548562      0D0066726D507444656D6F45646974010100000001000000070043617074696F
    549       6E013400000005004F4B42746E010100000002000000070043617074696F6E00
     563      6E013500000005004F4B42746E010100000002000000070043617074696F6E00
    550564      090043616E63656C42746E010100000003000000070043617074696F6E000800
    551565      4170706C7942746E010100000004000000070043617074696F6E000B00506167
     
    584598      0400546578740008005A6970344564697400000C004261644164647265737343
    585599      4201010000001F000000070043617074696F6E000C0054656D70416374697665
    586       4342010100000020000000070043617074696F6E000B0050686F6E654E756D47
    587       7270010200000021000000070043617074696F6E2200000005004974656D7300
    588       0C0050686F6E654E756D45646974010100000023000000040054657874001000
    589       5374617274696E67446174654564697400000E00456E64696E67446174654564
    590       697400000C00436F6E6641637469766543420101000000240000000700436170
    591       74696F6E000B00536578436F6D626F426F780102000000260000000500497465
    592       6D7325000000040054657874000A00446567726565456469740000}
     600      4342010100000020000000070043617074696F6E0010005374617274696E6744
     601      6174654564697400000E00456E64696E67446174654564697400000C00436F6E
     602      664163746976654342010100000024000000070043617074696F6E000B005365
     603      78436F6D626F426F7801020000002600000005004974656D7325000000040054
     604      657874000A00446567726565456469740000090047726F7570426F7831010100
     605      000027000000070043617074696F6E000B0050686F6E654E756D477270010100
     606      00002800000005004974656D73000C0050686F6E654E756D4564697401010000
     607      002900000004005465787400}
    593608  end
    594609end
  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtDemoEdit.pas

    r473 r495  
    106106    BadAddressCB: TCheckBox;
    107107    TempActiveCB: TCheckBox;
    108     PhoneNumGrp: TRadioGroup;
    109     PhoneNumEdit: TEdit;
    110108    SexLabel: TLabel;
    111109    SexComboBox: TComboBox;
     
    120118    AddAliasBtn: TButton;
    121119    DKLanguageController1: TDKLanguageController;
     120    GroupBox1: TGroupBox;
     121    PhoneNumGrp: TRadioGroup;
     122    PhoneNumEdit: TEdit;
    122123    procedure AliasComboBoxChange(Sender: TObject);
    123124    procedure FormCreate(Sender: TObject);
Note: See TracChangeset for help on using the changeset viewer.