Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersRelease.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersRelease.pas (modified) (5 diffs)

cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersRelease.pas

@@ -41 +41 @@
 {$R *.DFM}
 
-uses Hash, rCore, rOrders, uConst, fSignItem, fOrdersPrint, uCore, uOrders, fRptBox;
+uses Hash, rCore, rOrders, uConst, fSignItem, fOrdersPrint, uCore, uOrders, fRptBox,
+  fFrame, fClinicWardMeds;
 
 const
@@ -55 +56 @@
 var
   frmReleaseOrders: TfrmReleaseOrders;
-  i: Integer;
+  i, PrintLoc: Integer;
   SignList: TStringList;
   OrderText: string;
@@ -87 +88 @@
 begin
   Result := False;
+  PrintLoc := 0;
   if SelectedList.Count = 0 then Exit;
   frmReleaseOrders := TfrmReleaseOrders.Create(Application);
@@ -109 +111 @@
         StatusText('Sending Orders to Service(s)...');
         if SignList.Count > 0 then SendOrders(SignList, frmReleaseOrders.ESCode);
+
+        if (not frmFrame.TimedOut) then
+          begin
+             if IsValidIMOLoc(uCore.TempEncounterLoc,Patient.DFN) then
+                frmClinicWardMeds.ClinicOrWardLocation(SignList, uCore.TempEncounterLoc,uCore.TempEncounterLocName, PrintLoc)
+             else
+                if (IsValidIMOLoc(Encounter.Location,Patient.DFN)) and ((frmClinicWardMeds.rpcIsPatientOnWard(patient.DFN)) and (Patient.Inpatient = false)) then
+                   frmClinicWardMeds.ClinicOrWardLocation(SignList, Encounter.Location,Encounter.LocationName, PrintLoc);
+          end;
+          uCore.TempEncounterLoc := 0;
+          uCore.TempEncounterLocName := '';
+
+        //hds7591  Clinic/Ward movement.
+
+
         with SignList do if Count > 0 then for i := 0 to Count - 1 do
         begin
@@ -120 +137 @@
         end;
         StatusText('');
-        PrintOrdersOnSignRelease(SignList, frmReleaseOrders.FNature);
+        PrintOrdersOnSignRelease(SignList, frmReleaseOrders.FNature, PrintLoc);
 //        SetupOrdersPrint(SignList, DeviceInfo, frmReleaseOrders.FNature, False, PrintIt); //*KCM*
 //        if PrintIt then PrintOrdersOnReview(SignList, DeviceInfo);                       //*KCM*