Changeset 1693 for cprs/branches/HealthSevak-CPRS/CPRS-Chart/fGraphData.pas

Timestamp:

May 8, 2015, 7:52:55 AM (10 years ago)

Author:

healthsevak

Message:

Committing the files for first time to this new branch

File:

• cprs/branches/HealthSevak-CPRS/CPRS-Chart/fGraphData.pas (modified) (10 diffs)

cprs/branches/HealthSevak-CPRS/CPRS-Chart/fGraphData.pas

@@ -87 +87 @@
   function GetATestGroup(testgroup: Integer; userx: int64): TStrings;
   function GetCurrentSetting: string;
-  function GetDefaultInpatientDate: string;
-  function GetDefaultOutpatientDate: string;
   function GetGraphProfiles(profiles, permission: string; ext: integer; userx: int64): TStrings;
   function GetGraphStatus: string;
@@ -97 +95 @@
   function GraphTurboOn: boolean;
   procedure SetCurrentSetting(aString: string);
-  procedure SetDefaultInpatientDate(aString: string);
-  procedure SetDefaultOutpatientDate(aString: string);
   procedure SetGraphStatus(aString: string);
   procedure SetOldDFN(aString: string);
@@ -145 +141 @@
   begin
     CurrentSetting := '';
-    DefaultInpatientDate := '';
-    DefaultOutpatientDate := '';
     OldDFN := '';
     PublicSetting := '';
@@ -185 +179 @@
       FGraphActivity.PersonalSetting := FGraphActivity.PublicSetting;
     FGraphActivity.CurrentSetting := FGraphActivity.PersonalSetting;
-    FGraphActivity.DefaultInpatientDate := Piece(FGraphActivity.PersonalSetting, '|', 10);
-    FGraphActivity.DefaultOutpatientDate := Piece(FGraphActivity.PersonalSetting, '|', 9);
     FGraphActivity.PublicEditor := rpcPublicEdit;    // use this as PublicEdit permission for user
   end;
@@ -222 +214 @@
   ClearMemos;
   ClearGtsl;
+  pnlData.Hint := '';
   oldDFN := FGraphActivity.OldDFN;         // cleanup any previous patient cache
   FastAssign(rpcGetTypes(Patient.DFN, false), GtslTypes);
@@ -436 +429 @@
 procedure TfrmGraphData.btnRefreshClick(Sender: TObject);
 begin
+  frmGraphData.WindowState := wsMaximized;
   ClearMemos;
   FillMemos;
@@ -534 +528 @@
 end;
 
-function GetDefaultInpatientDate: string;
-begin
-  Result := FGraphActivity.DefaultInpatientDate;
-end;
-
-function GetDefaultOutpatientDate: string;
-begin
-  Result := FGraphActivity.DefaultOutpatientDate;
-end;
-
 function GetGraphProfiles(profiles, permission: string; ext: integer; userx: int64): TStrings;
 var      // temporary fix - converting definitions in GtslAllViews to rpc format
@@ -592 +576 @@
         else
         begin
+          if length(bigline) > 0 then
+            GtslScratchTemp.Add(bigline);
           break;
         end;
@@ -606 +592 @@
       end;
     end;
-    if length(bigline) > 0 then
-      GtslScratchTemp.Add(bigline);      
     if allviews or fulltext then
       MixedCaseList(GtslScratchTemp);
@@ -687 +671 @@
 end;
 
-procedure SetDefaultInpatientDate(aString: string);
-begin
-  FGraphActivity.DefaultInpatientDate := aString;
-end;
-
-procedure SetDefaultOutpatientDate(aString: string);
-begin
-  FGraphActivity.DefaultOutpatientDate := aString;
-end;
-
 procedure SetGraphStatus(aString: string);
 begin