Index: cprs/trunk/CPRS-Chart/fEncntKEEP.dfm
===================================================================
--- cprs/trunk/CPRS-Chart/fEncntKEEP.dfm	(revision 833)
+++ cprs/trunk/CPRS-Chart/fEncntKEEP.dfm	(revision 833)
@@ -0,0 +1,277 @@
+object frmEncounter: TfrmEncounter
+  Left = 435
+  Top = 175
+  Width = 351
+  Height = 350
+  BorderIcons = [biSystemMenu]
+  Caption = 'Provider & Location for Current Activities'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = True
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  DesignSize = (
+    343
+    323)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object lblInstruct: TLabel
+    Left = 6
+    Top = 6
+    Width = 253
+    Height = 31
+    AutoSize = False
+    Caption = 
+      'Select the appointment or visit that should be associated with t' +
+      'he note or orders .'
+    Visible = False
+    WordWrap = True
+  end
+  object lblLocation: TLabel
+    Tag = 9
+    Left = 6
+    Top = 133
+    Width = 93
+    Height = 13
+    Caption = 'Encounter Location'
+  end
+  object lblProvider: TLabel
+    Left = 6
+    Top = 6
+    Width = 91
+    Height = 13
+    Caption = 'Encounter Provider'
+  end
+  object cmdOK: TButton
+    Left = 250
+    Top = 20
+    Width = 72
+    Height = 21
+    Caption = 'OK'
+    Default = True
+    TabOrder = 4
+    OnClick = cmdOKClick
+  end
+  object cmdCancel: TButton
+    Left = 250
+    Top = 49
+    Width = 72
+    Height = 21
+    Cancel = True
+    Caption = 'Cancel'
+    TabOrder = 5
+    OnClick = cmdCancelClick
+  end
+  object txtLocation: TCaptionEdit
+    Tag = 9
+    Left = 6
+    Top = 147
+    Width = 212
+    Height = 21
+    Color = clBtnFace
+    ReadOnly = True
+    TabOrder = 1
+    Text = '< Select a location from the tabs below.... >'
+    Caption = 'Encounter Location'
+  end
+  object pgeVisit: TPageControl
+    Tag = 9
+    Left = 6
+    Top = 171
+    Width = 331
+    Height = 147
+    ActivePage = tabClinic
+    Anchors = [akLeft, akTop, akBottom]
+    TabIndex = 0
+    TabOrder = 2
+    OnChange = pgeVisitChange
+    object tabClinic: TTabSheet
+      Caption = 'Clinic Appointments'
+      DesignSize = (
+        323
+        119)
+      object lblClinic: TLabel
+        Left = 4
+        Top = 4
+        Width = 127
+        Height = 13
+        Caption = 'Clinic Appointments / Visits'
+      end
+      object lblDateRange: TLabel
+        Left = 138
+        Top = 4
+        Width = 71
+        Height = 13
+        Caption = '(T-30 thru T+1)'
+      end
+      object lstClinic: TORListBox
+        Left = 0
+        Top = 18
+        Width = 321
+        Height = 97
+        Anchors = [akLeft, akTop, akBottom]
+        ItemHeight = 13
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 0
+        OnDblClick = cmdOKClick
+        Caption = 'Clinic Appointments / Visits (T-30 thru T+1)'
+        ItemTipColor = clWindow
+        LongList = False
+        Pieces = '3,2,4'
+        TabPositions = '20'
+        OnChange = lstClinicChange
+      end
+    end
+    object tabAdmit: TTabSheet
+      Caption = 'Hospital Admissions'
+      object lblAdmit: TLabel
+        Left = 4
+        Top = 4
+        Width = 93
+        Height = 13
+        Caption = 'Hospital Admissions'
+      end
+      object lstAdmit: TORListBox
+        Left = 4
+        Top = 18
+        Width = 352
+        Height = 117
+        ItemHeight = 13
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 0
+        OnDblClick = cmdOKClick
+        Caption = 'Hospital Admissions'
+        ItemTipColor = clWindow
+        LongList = False
+        Pieces = '3,5,4'
+        TabPositions = '20'
+        OnChange = lstAdmitChange
+      end
+    end
+    object tabNewVisit: TTabSheet
+      Caption = 'New Visit'
+      object lblVisitDate: TLabel
+        Left = 220
+        Top = 4
+        Width = 85
+        Height = 13
+        Caption = 'Date/Time of Visit'
+        Visible = False
+      end
+      object lblNewVisit: TLabel
+        Left = 4
+        Top = 4
+        Width = 63
+        Height = 13
+        Caption = 'Visit Location'
+      end
+      object calVisitDate: TORDateBox
+        Left = 220
+        Top = 18
+        Width = 140
+        Height = 21
+        TabOrder = 1
+        Text = 'NOW'
+        OnChange = calVisitDateChange
+        OnExit = calVisitDateExit
+        DateOnly = False
+        RequireTime = True
+      end
+      object ckbHistorical: TORCheckBox
+        Left = 220
+        Top = 50
+        Width = 140
+        Height = 81
+        Caption = 
+          'Historical Visit: a visit that occurred at some time in the past' +
+          ' or at some other location (possibly non-VA) but is not used for' +
+          ' workload credit.'
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 2
+        OnClick = ckbHistoricalClick
+        WordWrap = True
+        AutoSize = True
+      end
+      object cboNewVisit: TORComboBox
+        Left = 4
+        Top = 18
+        Width = 208
+        Height = 117
+        Style = orcsSimple
+        AutoSelect = True
+        Caption = 'Visit Location'
+        Color = clWindow
+        DropDownCount = 8
+        ItemHeight = 13
+        ItemTipColor = clWindow
+        ItemTipEnable = True
+        ListItemsOnly = True
+        LongList = True
+        LookupPiece = 0
+        MaxLength = 0
+        Pieces = '2'
+        Sorted = False
+        SynonymChars = '<>'
+        TabOrder = 0
+        OnChange = cboNewVisitChange
+        OnDblClick = cmdOKClick
+        OnNeedData = cboNewVisitNeedData
+        CharsNeedMatch = 1
+      end
+    end
+  end
+  object cmdDateRange: TButton
+    Tag = 9
+    Left = 224
+    Top = 145
+    Width = 90
+    Height = 21
+    Caption = 'Date Range...'
+    TabOrder = 3
+    OnClick = cmdDateRangeClick
+  end
+  object cboPtProvider: TORComboBox
+    Left = 6
+    Top = 20
+    Width = 235
+    Height = 93
+    Style = orcsSimple
+    AutoSelect = True
+    Caption = 'Encounter Provider'
+    Color = clWindow
+    DropDownCount = 8
+    ItemHeight = 13
+    ItemTipColor = clWindow
+    ItemTipEnable = True
+    ListItemsOnly = True
+    LongList = True
+    LookupPiece = 2
+    MaxLength = 0
+    Pieces = '2,3'
+    Sorted = False
+    SynonymChars = '<>'
+    TabOrder = 0
+    OnDblClick = cmdOKClick
+    OnNeedData = cboPtProviderNeedData
+    CharsNeedMatch = 1
+  end
+  object dlgDateRange: TORDateRangeDlg
+    DateOnly = True
+    Instruction = 'Show appointments / visits in the date range:'
+    LabelStart = 'From'
+    LabelStop = 'Through'
+    RequireTime = False
+    Format = 'mmm d,yyyy'
+    Left = 264
+    Top = 4
+  end
+end