Changeset 1679 for cprs/trunk/CPRS-Chart/Orders/fOrdersTS.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/Orders/fOrdersTS.pas (modified) (4 diffs)

cprs/trunk/CPRS-Chart/Orders/fOrdersTS.pas

@@ -12 +12 @@
     pnlMiddle: TPanel;
     pnlTop: TPanel;
-    lblPtInfo: TLabel;
+    lblPtInfo: TVA508StaticText;
     grpChoice: TGroupBox;
     radReleaseNow: TRadioButton;
@@ -20 +20 @@
     cmdOK: TButton;
     cmdCancel: TButton;
-    Label1: TLabel;
-    Label2: TLabel;
-    Panel1: TPanel;
+    lblUseAdmit: TVA508StaticText;
+    lblUseTransfer: TVA508StaticText;
+    pnlBottom: TPanel;
     fraEvntDelayList: TfraEvntDelayList;
     procedure cmdOKClick(Sender: TObject);
@@ -170 +170 @@
 end;
 
-procedure TfrmOrdersTS.cmdOKClick(Sender: TObject);
+procedure TfrmOrdersTS.cmdOKClick(Sender: TObject);   
+var
+  tempStr: String;
 begin
   inherited;
@@ -183 +185 @@
     Exit;
   end;
+  
+  tempStr := fraEvntDelayList.mlstEvents.Items.ValueFromIndex[fraEvntDelayList.mlstEvents.ItemIndex];
+
+  if(fraEvntDelayList.mlstEvents.ItemIndex >= 0) and (Length(Piece(tempStr,'^',2))<1)then
+  begin
+    InfoBox('Invalid release event selected.', 'No Selection Made', MB_OK);
+    Exit;
+  end;
+
   if (fraEvntDelayList.mlstEvents.ItemIndex >= 0) and F1stClick then
   begin