Changeset 1679 for cprs/trunk/CPRS-Chart/Encounter/fPCEEdit.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/Encounter/fPCEEdit.pas (modified) (3 diffs)

cprs/trunk/CPRS-Chart/Encounter/fPCEEdit.pas

@@ -50 +50 @@
 begin
   Result := FALSE;
+  (* agp moved from FormCreate to addrss a problem with editing an encounter without a note displaying in CPRS*)
+  if uPatient <> Patient.DFN then
+    begin
+      KillObj(@uPCETemp);
+      KillObj(@uPCETempOld);
+    end;
+  uPatient := Patient.DFN;
   if (Encounter.VisitCategory = 'H') then
   begin
@@ -130 +137 @@
 procedure TfrmPCEEdit.FormCreate(Sender: TObject);
 begin
+  (* agp moved to EditPCEData procedure to addrss a problem
+  with editing an encounter without a note displaying in CPRS
   if uPatient <> Patient.DFN then
     begin
@@ -135 +144 @@
       KillObj(@uPCETempOld);
     end;
-  uPatient := Patient.DFN;
+  uPatient := Patient.DFN;   *)
 end;