Changeset 729 for cprs/branches/tmg-cprs/CPRS-Chart/fVitals.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/fVitals.pas (modified) (3 diffs)

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

@@ -177 +177 @@
   GMV_FName,
   GMV_LibName: String;
+  //kt start -------------
+  aDFN, aLocation,
+  DateStart, DateStop,
+  aSignature,
+  aContextIn,aContextOut,
+  aName,anInfo,
+  aDynamicParameter {HospitolName^Vital Type Abbreviation} :String;
+  //kt end ------------------
+
 begin
  { Availble Forms:
@@ -192 +201 @@
     begin
      @VLPtVitals := GetProcAddress(VitalsDLLHandle,PChar(GMV_FName));
-     if assigned(VLPtVitals) then
+     if assigned(VLPtVitals) then begin
        VLPtVitals(RPCBrokerV,Patient.DFN,FloatToStr(Encounter.Location),
                   getVitalsStartDate(),FormatDateTime('mm/dd/yy',Now),
@@ -200 +209 @@
                   frmFrame.lblPtSSN.Caption + '    ' + frmFrame.lblPtAge.Caption,
                   Encounter.LocationName +U+ VitalType)
-     else
+     end else
 //     MessageDLG('Can''t find function "'+GMV_FName+'".',mtError,[mbok],0);  <-- original line.  //kt 8/17/2007
        MessageDLG(DKLangConstW('fVitals_Canxxt_find_function_x')+GMV_FName+'".',mtError,[mbok],0); //kt added 8/17/2007