Changeset 729 for cprs/branches/tmg-cprs/CPRS-Chart/uCore.pas

Timestamp:

Mar 31, 2010, 5:06:56 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Added functions to Templates, and Images tab

File:

• cprs/branches/tmg-cprs/CPRS-Chart/uCore.pas (modified) (2 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/uCore.pas

@@ -108 +108 @@
   public
     procedure Clear;
+    procedure Assign(Source : TPatient);  //kt added 1/8/08
     property DFN:              string      read FDFN write SetDFN;  //*DFN*
     property ICN:              string      read FICN;
@@ -687 +688 @@
 end;
 
+procedure TPatient.Assign(Source : TPatient);  //kt added 1/8/08
+begin
+  DFN := Source.DFN;
+  {Note: other properties are read only, determined by DFN}
+end;
+
 function TPatient.GetDateDied: TFMDateTime;
 begin