Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrders.dfm

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrders.dfm (modified) (12 diffs)

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrders.dfm

@@ -1 +1 @@
 inherited frmOrders: TfrmOrders
-  Left = 142
-  Top = 63
-  Width = 698
+  Left = 451
+  Top = 250
+  Width = 774
   Height = 579
   HelpContext = 4000
@@ -14 +14 @@
   inherited shpPageBottom: TShape
     Top = 528
-    Width = 690
+    Width = 766
   end
   inherited sptHorz: TSplitter
     Left = 117
     Height = 528
+    OnMoved = sptHorzMoved
   end
   inherited pnlLeft: TPanel
@@ -102 +103 @@
   inherited pnlRight: TPanel
     Left = 121
-    Width = 569
+    Width = 645
     Height = 528
     ParentColor = True
@@ -111 +112 @@
       Left = 0
       Top = 0
-      Width = 569
+      Width = 645
       Height = 19
       Align = alTop
@@ -144 +145 @@
       Left = 0
       Top = 19
-      Width = 569
+      Width = 645
       Height = 17
       DragReorder = False
@@ -179 +180 @@
           ImageIndex = -1
           MinWidth = 16
-          Text = 'Nrs'
+          Text = 'Nurse'
           Width = 40
         end
@@ -185 +186 @@
           ImageIndex = -1
           MinWidth = 16
-          Text = 'Clk'
+          Text = 'Clerk'
           Width = 35
         end
@@ -197 +198 @@
           ImageIndex = -1
           MinWidth = 16
-          Text = 'Sts'
+          Text = 'Status'
           Width = 50
         end
@@ -206 +207 @@
           Width = 40
         end>
+      OnSectionClick = hdrOrdersSectionClick
       OnSectionResize = hdrOrdersSectionResize
       OnMouseDown = hdrOrdersMouseDown
@@ -213 +215 @@
       Left = 0
       Top = 36
-      Width = 569
+      Width = 645
       Height = 492
       Style = lbOwnerDrawVariable
@@ -301 +303 @@
         end
       end
+      object mnuViewInformation: TMenuItem
+        Caption = 'Information'
+        OnClick = mnuViewInformationClick
+        object mnuViewDemo: TMenuItem
+          Tag = 1
+          Caption = 'De&mographics...'
+          OnClick = ViewInfo
+        end
+        object mnuViewVisits: TMenuItem
+          Tag = 2
+          Caption = 'Visits/Pr&ovider...'
+          OnClick = ViewInfo
+        end
+        object mnuViewPrimaryCare: TMenuItem
+          Tag = 3
+          Caption = 'Primary &Care...'
+          OnClick = ViewInfo
+        end
+        object mnuViewMyHealtheVet: TMenuItem
+          Tag = 4
+          Caption = 'MyHealthe&Vet...'
+          OnClick = ViewInfo
+        end
+        object mnuInsurance: TMenuItem
+          Tag = 5
+          Caption = '&Insurance...'
+          OnClick = ViewInfo
+        end
+        object mnuViewFlags: TMenuItem
+          Tag = 6
+          Caption = '&Flags...'
+          OnClick = ViewInfo
+        end
+        object mnuViewRemoteData: TMenuItem
+          Tag = 7
+          Caption = 'Remote &Data...'
+          OnClick = ViewInfo
+        end
+        object mnuViewReminders: TMenuItem
+          Tag = 8
+          Caption = '&Reminders...'
+          Enabled = False
+          OnClick = ViewInfo
+        end
+        object mnuViewPostings: TMenuItem
+          Tag = 9
+          Caption = '&Postings...'
+          OnClick = ViewInfo
+        end
+      end
       object Z1: TMenuItem
         Caption = '-'
@@ -522 +574 @@
       OnClick = mnuActSignClick
     end
+    object mnuOptimizeFields: TMenuItem
+      Caption = 'Adjust Column Size'
+      Visible = False
+      OnClick = mnuOptimizeFieldsClick
+    end
   end
 end