Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Orders/fOrdersOnChart.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/fOrdersOnChart.pas (modified) (5 diffs)

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

@@ -33 +33 @@
 {$R *.DFM}
 
-uses rCore, rOrders, uConst, fOrdersPrint, uOrders;
+uses rCore, rOrders, uConst, fOrdersPrint, uOrders, fFrame, UCore,
+  fClinicWardMeds;
 
 const
@@ -43 +44 @@
 var
   frmOnChartOrders: TfrmOnChartOrders;
-  i: Integer;
+  i, PrintLoc: Integer;
   SignList: TStringList;
   OrderText: string;
@@ -62 +63 @@
 begin
   Result := False;
+  PrintLoc := 0;
   if SelectedList.Count = 0 then Exit;
   frmOnChartOrders := TfrmOnChartOrders.Create(Application);
@@ -78 +80 @@
         StatusText('Sending Orders to Service(s)...');
         if SignList.Count > 0 then SendOrders(SignList, '');
+
+         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 := '';
+
         with SignList do if Count > 0 then for i := 0 to Count - 1 do
           begin
@@ -88 +102 @@
           end;
         StatusText('');
-        PrintOrdersOnSignRelease(SignList, NO_WRITTEN);
+        PrintOrdersOnSignRelease(SignList, NO_WRITTEN, PrintLoc);
 //        SetupOrdersPrint(SignList, DeviceInfo, NO_WRITTEN, False, PrintIt);  //*KCM*
 //        if PrintIt then PrintOrdersOnReview(SignList, DeviceInfo);           //*KCM*