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

    r459 r460  
    11object frmEncounter: TfrmEncounter
    2   Left = 302
    3   Top = 180
     2  Left = 481
     3  Top = 242
     4  Width = 470
     5  Height = 450
     6  Anchors = [akTop]
    47  BorderIcons = [biSystemMenu]
    5   BorderStyle = bsDialog
    68  Caption = 'Provider & Location for Current Activities'
    7   ClientHeight = 367
    8   ClientWidth = 384
    99  Color = clBtnFace
     10  Constraints.MinWidth = 470
    1011  Font.Charset = DEFAULT_CHARSET
    1112  Font.Color = clWindowText
    … …  
    1516  OldCreateOrder = True
    1617  Position = poScreenCenter
     18  Scaled = False
    1719  OnClose = FormClose
    1820  OnCreate = FormCreate
    1921  OnDestroy = FormDestroy
     22  OnResize = FormResize
     23  OnShow = FormShow
    2024  DesignSize = (
    21     384
    22     367)
     25    462
     26    423)
    2327  PixelsPerInch = 96
    2428  TextHeight = 13
    … …  
    3842    Tag = 9
    3943    Left = 6
    40     Top = 149
     44    Top = 140
    4145    Width = 93
    4246    Height = 13
    4347    Anchors = [akLeft, akBottom]
    4448    Caption = 'Encounter Location'
     49    Constraints.MinHeight = 12
    4550  end
    4651  object lblProvider: TLabel
    … …  
    5156    Caption = 'Encounter Provider'
    5257  end
    53   object cmdOK: TButton
    54     Left = 306
     58  object cboPtProvider: TORComboBox
     59    Left = 6
    5560    Top = 20
    56     Width = 72
    57     Height = 21
    58     Caption = 'OK'
    59     Default = True
    60     TabOrder = 4
    61     OnClick = cmdOKClick
    62   end
    63   object cmdCancel: TButton
    64     Left = 306
    65     Top = 49
    66     Width = 72
    67     Height = 21
    68     Cancel = True
    69     Caption = 'Cancel'
    70     TabOrder = 5
    71     OnClick = cmdCancelClick
    72   end
    73   object txtLocation: TCaptionEdit
    74     Tag = 9
    75     Left = 6
    76     Top = 163
    77     Width = 212
    78     Height = 21
    79     Anchors = [akLeft, akBottom]
    80     Color = clBtnFace
    81     ReadOnly = True
    82     TabOrder = 1
    83     Text = '< Select a location from the tabs below.... >'
    84     Caption = 'Encounter Location'
    85   end
    86   object pgeVisit: TPageControl
    87     Tag = 9
    88     Left = 6
    89     Top = 194
    90     Width = 372
    91     Height = 167
    92     ActivePage = tabClinic
    93     Anchors = [akLeft, akBottom]
    94     TabIndex = 0
    95     TabOrder = 2
    96     OnChange = pgeVisitChange
    97     object tabClinic: TTabSheet
    98       Caption = 'Clinic Appointments'
    99       object lblClinic: TLabel
    100         Left = 4
    101         Top = 4
    102         Width = 127
    103         Height = 13
    104         Caption = 'Clinic Appointments / Visits'
    105       end
    106       object lblDateRange: TLabel
    107         Left = 138
    108         Top = 4
    109         Width = 71
    110         Height = 13
    111         Caption = '(T-30 thru T+1)'
    112       end
    113       object lstClinic: TORListBox
    114         Left = 4
    115         Top = 18
    116         Width = 352
    117         Height = 117
    118         ItemHeight = 13
    119         ParentShowHint = False
    120         ShowHint = True
    121         TabOrder = 0
    122         OnDblClick = cmdOKClick
    123         Caption = 'Clinic Appointments / Visits (T-30 thru T+1)'
    124         ItemTipColor = clWindow
    125         LongList = False
    126         Pieces = '3,2,4'
    127         TabPositions = '20'
    128         OnChange = lstClinicChange
    129       end
    130     end
    131     object tabAdmit: TTabSheet
    132       Caption = 'Hospital Admissions'
    133       object lblAdmit: TLabel
    134         Left = 4
    135         Top = 4
    136         Width = 93
    137         Height = 13
    138         Caption = 'Hospital Admissions'
    139       end
    140       object lstAdmit: TORListBox
    141         Left = 4
    142         Top = 18
    143         Width = 352
    144         Height = 117
    145         ItemHeight = 13
    146         ParentShowHint = False
    147         ShowHint = True
    148         TabOrder = 0
    149         OnDblClick = cmdOKClick
    150         Caption = 'Hospital Admissions'
    151         ItemTipColor = clWindow
    152         LongList = False
    153         Pieces = '3,5,4'
    154         TabPositions = '20'
    155         OnChange = lstAdmitChange
    156       end
    157     end
    158     object tabNewVisit: TTabSheet
    159       Caption = 'New Visit'
    160       object lblVisitDate: TLabel
    161         Left = 220
    162         Top = 4
    163         Width = 85
    164         Height = 13
    165         Caption = 'Date/Time of Visit'
    166         Visible = False
    167       end
    168       object lblNewVisit: TLabel
    169         Left = 4
    170         Top = 4
    171         Width = 63
    172         Height = 13
    173         Caption = 'Visit Location'
    174       end
    175       object calVisitDate: TORDateBox
    176         Left = 220
    177         Top = 18
    178         Width = 140
    179         Height = 21
    180         TabOrder = 1
    181         Text = 'NOW'
    182         OnChange = calVisitDateChange
    183         OnExit = calVisitDateExit
    184         DateOnly = False
    185         RequireTime = True
    186       end
    187       object ckbHistorical: TORCheckBox
    188         Left = 220
    189         Top = 50
    190         Width = 140
    191         Height = 81
    192         Caption =
    193           'Historical Visit: a visit that occurred at some time in the past' +
    194           ' or at some other location (possibly non-VA) but is not used for' +
    195           ' workload credit.'
    196         ParentShowHint = False
    197         ShowHint = True
    198         TabOrder = 2
    199         OnClick = ckbHistoricalClick
    200         WordWrap = True
    201         AutoSize = True
    202       end
    203       object cboNewVisit: TORComboBox
    204         Left = 4
    205         Top = 18
    206         Width = 208
    207         Height = 117
    208         Style = orcsSimple
    209         AutoSelect = True
    210         Caption = 'Visit Location'
    211         Color = clWindow
    212         DropDownCount = 8
    213         ItemHeight = 13
    214         ItemTipColor = clWindow
    215         ItemTipEnable = True
    216         ListItemsOnly = True
    217         LongList = True
    218         LookupPiece = 0
    219         MaxLength = 0
    220         Pieces = '2'
    221         Sorted = False
    222         SynonymChars = '<>'
    223         TabOrder = 0
    224         OnChange = cboNewVisitChange
    225         OnDblClick = cmdOKClick
    226         OnNeedData = cboNewVisitNeedData
    227         CharsNeedMatch = 1
    228       end
    229     end
    230   end
    231   object cmdDateRange: TButton
    232     Tag = 9
    233     Left = 288
    234     Top = 177
    235     Width = 90
    236     Height = 21
    237     Anchors = [akLeft, akBottom]
    238     Caption = 'Date Range...'
    239     TabOrder = 3
    240     OnClick = cmdDateRangeClick
    241   end
    242   object cboPtProvider: TORComboBox
    243     Left = 6
    244     Top = 20
    245     Width = 292
     61    Width = 331
    24662    Height = 117
     63    Anchors = [akLeft, akTop, akRight, akBottom]
    24764    Style = orcsSimple
    24865    AutoSelect = True
    … …  
    26582    CharsNeedMatch = 1
    26683  end
     84  object cmdDateRange: TButton
     85    Tag = 9
     86    Left = 266
     87    Top = 153
     88    Width = 84
     89    Height = 25
     90    Anchors = [akLeft, akBottom]
     91    Caption = 'Date Range...'
     92    Constraints.MinHeight = 21
     93    Constraints.MinWidth = 21
     94    TabOrder = 2
     95    OnClick = cmdDateRangeClick
     96  end
     97  object txtLocation: TCaptionEdit
     98    Tag = 9
     99    Left = 6
     100    Top = 154
     101    Width = 258
     102    Height = 21
     103    Anchors = [akLeft, akBottom]
     104    AutoSize = False
     105    Color = clBtnFace
     106    Constraints.MinHeight = 21
     107    ReadOnly = True
     108    TabOrder = 1
     109    Text = '< Select a location from the tabs below.... >'
     110    Caption = 'Encounter Location'
     111  end
     112  object cmdCancel: TButton
     113    Left = 341
     114    Top = 45
     115    Width = 84
     116    Height = 23
     117    Anchors = [akTop, akRight]
     118    Cancel = True
     119    Caption = 'Cancel'
     120    Constraints.MinHeight = 21
     121    Constraints.MinWidth = 21
     122    TabOrder = 4
     123    OnClick = cmdCancelClick
     124  end
     125  object cmdOK: TButton
     126    Left = 340
     127    Top = 20
     128    Width = 84
     129    Height = 23
     130    Anchors = [akTop, akRight]
     131    Caption = 'OK'
     132    Constraints.MinHeight = 21
     133    Constraints.MinWidth = 21
     134    Default = True
     135    TabOrder = 3
     136    OnClick = cmdOKClick
     137  end
     138  object Panel1: TPanel
     139    Left = 0
     140    Top = 179
     141    Width = 460
     142    Height = 243
     143    Anchors = [akLeft, akRight, akBottom]
     144    TabOrder = 6
     145    DesignSize = (
     146      460
     147      243)
     148    object pgeVisit: TPageControl
     149      Tag = 9
     150      Left = 4
     151      Top = 5
     152      Width = 452
     153      Height = 232
     154      ActivePage = tabNewVisit
     155      Anchors = [akLeft, akTop, akRight, akBottom]
     156      Constraints.MinHeight = 150
     157      RaggedRight = True
     158      TabIndex = 2
     159      TabOrder = 0
     160      OnChange = pgeVisitChange
     161      object tabClinic: TTabSheet
     162        Caption = 'Clinic Appointments'
     163        object lstClinic: TORListBox
     164          Left = 0
     165          Top = 20
     166          Width = 444
     167          Height = 184
     168          Align = alClient
     169          Constraints.MinHeight = 21
     170          ItemHeight = 13
     171          ParentShowHint = False
     172          ScrollWidth = 353
     173          ShowHint = True
     174          TabOrder = 0
     175          OnDblClick = cmdOKClick
     176          Caption = 'Clinic Appointments / Visits (T-30 thru T+1)'
     177          ItemTipColor = clWindow
     178          LongList = False
     179          Pieces = '3,2,4'
     180          TabPositions = '30,50'
     181          OnChange = lstClinicChange
     182        end
     183        object Panel2: TPanel
     184          Left = 0
     185          Top = 0
     186          Width = 444
     187          Height = 20
     188          Align = alTop
     189          TabOrder = 2
     190          object lblDateRange: TLabel
     191            Left = 138
     192            Top = 4
     193            Width = 71
     194            Height = 13
     195            Caption = '(T-30 thru T+1)'
     196          end
     197          object lblClinic: TLabel
     198            Left = 4
     199            Top = 4
     200            Width = 127
     201            Height = 13
     202            Caption = 'Clinic Appointments / Visits'
     203          end
     204        end
     205      end
     206      object tabAdmit: TTabSheet
     207        Caption = 'Hospital Admissions'
     208        object lstAdmit: TORListBox
     209          Left = 0
     210          Top = 17
     211          Width = 444
     212          Height = 187
     213          Align = alClient
     214          ItemHeight = 13
     215          ParentShowHint = False
     216          ShowHint = True
     217          TabOrder = 0
     218          OnDblClick = cmdOKClick
     219          Caption = 'Hospital Admissions'
     220          ItemTipColor = clWindow
     221          LongList = False
     222          Pieces = '3,5,4'
     223          TabPositions = '20'
     224          OnChange = lstAdmitChange
     225        end
     226        object Panel3: TPanel
     227          Left = 0
     228          Top = 0
     229          Width = 444
     230          Height = 17
     231          Align = alTop
     232          TabOrder = 2
     233          object lblAdmit: TLabel
     234            Left = 4
     235            Top = 1
     236            Width = 93
     237            Height = 13
     238            Caption = 'Hospital Admissions'
     239          end
     240        end
     241      end
     242      object tabNewVisit: TTabSheet
     243        Caption = 'New Visit'
     244        object lblVisitDate: TLabel
     245          Left = 220
     246          Top = 4
     247          Width = 85
     248          Height = 13
     249          Caption = 'Date/Time of Visit'
     250          Visible = False
     251        end
     252        object lblNewVisit: TLabel
     253          Left = 4
     254          Top = 4
     255          Width = 63
     256          Height = 13
     257          Caption = 'Visit Location'
     258        end
     259        object calVisitDate: TORDateBox
     260          Left = 220
     261          Top = 18
     262          Width = 140
     263          Height = 21
     264          TabOrder = 1
     265          Text = 'NOW'
     266          OnChange = calVisitDateChange
     267          OnExit = calVisitDateExit
     268          DateOnly = False
     269          RequireTime = True
     270        end
     271        object ckbHistorical: TORCheckBox
     272          Left = 220
     273          Top = 50
     274          Width = 140
     275          Height = 81
     276          Caption =
     277            'Historical Visit: a visit that occurred at some time in the past' +
     278            ' or at some other location (possibly non-VA) but is not used for' +
     279            ' workload credit.'
     280          ParentShowHint = False
     281          ShowHint = True
     282          TabOrder = 2
     283          OnClick = ckbHistoricalClick
     284          WordWrap = True
     285          AutoSize = True
     286        end
     287        object cboNewVisit: TORComboBox
     288          Left = 4
     289          Top = 18
     290          Width = 208
     291          Height = 117
     292          Style = orcsSimple
     293          AutoSelect = True
     294          Caption = 'Visit Location'
     295          Color = clWindow
     296          DropDownCount = 8
     297          ItemHeight = 13
     298          ItemTipColor = clWindow
     299          ItemTipEnable = True
     300          ListItemsOnly = True
     301          LongList = True
     302          LookupPiece = 0
     303          MaxLength = 0
     304          Pieces = '2'
     305          Sorted = False
     306          SynonymChars = '<>'
     307          TabOrder = 0
     308          OnChange = cboNewVisitChange
     309          OnDblClick = cmdOKClick
     310          OnNeedData = cboNewVisitNeedData
     311          CharsNeedMatch = 1
     312        end
     313      end
     314    end
     315  end
    267316  object dlgDateRange: TORDateRangeDlg
    268317    DateOnly = True
Note: See TracChangeset for help on using the changeset viewer.