Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Orders/fODMeds.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/fODMeds.dfm (modified) (31 diffs)

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

@@ -1 +1 @@
 inherited frmODMeds: TfrmODMeds
-  Left = 202
-  Top = 61
+  Left = 519
+  Top = 204
   Width = 584
-  Height = 494
+  Height = 515
   HorzScrollBar.Range = 558
-  HorzScrollBar.Visible = True
   VertScrollBar.Range = 399
-  VertScrollBar.Visible = True
-  AutoScroll = False
   Caption = 'Medication Order'
   Constraints.MinHeight = 325
@@ -15 +12 @@
   DesignSize = (
     576
-    460)
+    488)
   PixelsPerInch = 96
   TextHeight = 13
@@ -22 +19 @@
     Top = 34
     Width = 580
-    Height = 392
+    Height = 413
     Anchors = [akLeft, akTop, akRight, akBottom]
     BevelOuter = bvNone
@@ -71 +68 @@
       Top = 137
       Width = 580
-      Height = 255
+      Height = 276
       Align = alClient
       BevelInner = bvLowered
@@ -101 +98 @@
   end
   inherited memOrder: TCaptionMemo
-    Top = 427
+    Top = 448
     Width = 502
     Anchors = [akLeft, akRight, akBottom]
@@ -122 +119 @@
   object btnSelect: TButton [3]
     Left = 515
-    Top = 427
+    Top = 448
     Width = 72
     Height = 21
@@ -134 +131 @@
   inherited cmdAccept: TButton
     Left = 514
-    Top = 427
+    Top = 448
     Anchors = [akRight, akBottom]
     TabOrder = 6
@@ -142 +139 @@
   inherited cmdQuit: TButton
     Left = 514
-    Top = 452
+    Top = 473
     Width = 51
     Anchors = [akRight, akBottom]
@@ -159 +156 @@
     Top = 34
     Width = 580
-    Height = 392
+    Height = 413
     Anchors = [akLeft, akTop, akRight, akBottom]
     BevelOuter = bvNone
@@ -170 +167 @@
       Top = 0
       Width = 580
-      Height = 173
+      Height = 184
       Align = alClient
       Constraints.MinHeight = 80
@@ -176 +173 @@
       DesignSize = (
         580
-        173)
+        184)
       object lblRoute: TLabel
         Left = 280
@@ -197 +194 @@
       end
       object txtNSS: TLabel
-        Left = 452
+        Left = 442
         Top = 22
-        Width = 76
+        Width = 71
         Height = 13
         Anchors = [akTop, akRight]
-        Caption = '(Non-standard?)'
+        Caption = '(Day-Of-Week)'
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clBlue
@@ -217 +214 @@
         Top = 36
         Width = 580
-        Height = 132
+        Height = 143
         Anchors = [akLeft, akTop, akRight, akBottom]
         ColCount = 6
@@ -280 +277 @@
         Top = 36
         Width = 279
-        Height = 132
+        Height = 143
         Anchors = [akLeft, akTop, akRight, akBottom]
         Style = orcsSimple
@@ -302 +299 @@
         OnClick = cboDosageClick
         OnExit = cboDosageExit
+        OnKeyUp = cboDosageKeyUp
         CharsNeedMatch = 1
         UniqueAutoComplete = True
@@ -309 +307 @@
         Top = 36
         Width = 113
-        Height = 132
+        Height = 143
         Anchors = [akTop, akRight, akBottom]
         Style = orcsSimple
@@ -339 +337 @@
         Top = 36
         Width = 178
-        Height = 132
+        Height = 143
         Anchors = [akTop, akRight, akBottom]
         Style = orcsSimple
@@ -426 +424 @@
       OnExit = cboXDosageExit
       OnKeyDown = memMessageKeyDown
+      OnKeyUp = cboXDosageKeyUp
       CharsNeedMatch = 1
       UniqueAutoComplete = True
@@ -546 +545 @@
         Width = 38
         Height = 19
+        Hint = 'A duration must be defined if using "Then" as a sequence.'
         Caption = 'then'
         Glyph.Data = {
@@ -556 +556 @@
         Layout = blGlyphRight
         NumGlyphs = 2
+        ParentShowHint = False
+        ShowHint = True
         Spacing = 1
         OnClick = btnXSequenceClick
+      end
+      object SpeedButton1: TSpeedButton
+        Left = 16
+        Top = 16
+        Width = 23
+        Height = 22
       end
     end
@@ -598 +606 @@
         OnChange = cboXScheduleChange
         OnClick = cboXScheduleClick
+        OnEnter = cboXScheduleEnter
         OnExit = cboXScheduleExit
         OnKeyDown = memMessageKeyDown
@@ -617 +626 @@
     object pnlBottom: TPanel
       Left = 0
-      Top = 173
+      Top = 184
       Width = 580
-      Height = 219
+      Height = 229
       Align = alBottom
       TabOrder = 6
       DesignSize = (
         580
-        219)
+        229)
       object lblComment: TLabel
         Left = 4
@@ -666 +675 @@
       end
       object Image1: TImage
-        Left = 1
-        Top = 183
+        Left = 5
+        Top = 177
         Width = 31
         Height = 31
@@ -686 +695 @@
         Top = 2
         Width = 513
-        Height = 44
+        Height = 43
         Anchors = [akLeft, akTop, akRight]
         ScrollBars = ssVertical
@@ -707 +716 @@
         Width = 60
         Height = 21
+        AutoSize = False
         TabOrder = 1
         Text = '0'
         OnChange = txtSupplyChange
+        OnClick = txtSupplyClick
         Caption = 'Days Supply'
       end
@@ -728 +739 @@
         Width = 60
         Height = 21
+        AutoSize = False
         TabOrder = 3
         Text = '0'
         OnChange = txtQuantityChange
+        OnClick = txtQuantityClick
         Caption = 'Quantity'
       end
@@ -750 +763 @@
         Width = 30
         Height = 21
+        AutoSize = False
         TabOrder = 5
         Text = '0'
         OnChange = ControlChange
+        OnClick = txtRefillsClick
         Caption = 'Refills'
       end
@@ -817 +832 @@
         ItemTipColor = clWindow
         ItemTipEnable = True
-        ListItemsOnly = False
+        ListItemsOnly = True
         LongList = False
         LookupPiece = 0
@@ -825 +840 @@
         SynonymChars = '<>'
         TabOrder = 10
-        Text = 'ROUTINE'
         OnChange = ControlChange
         CharsNeedMatch = 1
@@ -842 +856 @@
       end
       object lblAdminTime: TStaticText
-        Left = 267
-        Top = 104
+        Left = 262
+        Top = 120
         Width = 4
         Height = 4
         TabOrder = 16
-        Visible = False
       end
       object stcPI: TStaticText
@@ -885 +898 @@
       object memDrugMsg: TMemo
         Left = 37
-        Top = 183
+        Top = 176
         Width = 533
-        Height = 34
+        Height = 51
         Anchors = [akLeft, akRight, akBottom]
         Color = clCream