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

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

@@ -75 +75 @@
   begin
     TimePart := Frac(x);
-    if TimePart > 0.12 then
+    if TimePart > 0.1159 then
     begin
-      x := x - 0.12;
+      if TimePart > 0.1259 then x := x - 0.12;
       Suffix := 'P'
     end
@@ -127 +127 @@
        (TimePart < (StrToIntDef(Piece(DietParams.Alarms, U, 6), 0) / 10000)) then Meal := 'E';
     if Meal = #0 then Exit;
-    // get the available late times for this meal
-    case Meal of
-    'B': AvailTimes := Pieces(DietParams.BTimes, U, 4, 6);
-    'E': AvailTimes := Pieces(DietParams.ETimes, U, 4, 6);
-    'N': AvailTimes := Pieces(DietParams.NTimes, U, 4, 6);
-    end;
-    SetAvailTimes(TimePart, TimeCount, AvailTimes);
-    if TimeCount = 0 then Exit;
   end
   else  // for outpatients
   begin
+(*  From Rich Knoepfle, NFS developer
+If they order a breakfast and it is after the LATE BREAKFAST ALARM END, I don't allow them to do it.  (For special meals I don't allow them to order something for the following day).
+If it's before the LATE BREAKFAST ALARM BEGIN than I accept the order.
+If it's between the LATE BREAKFAST ALARM BEGIN and ALARM END then I ask if they want to order a Late breakfast tray.
+*)
     Meal := AMeal;
     case AMeal of
-      'B':  if TimePart < (StrToIntDef(Piece(DietParams.Alarms, U, 1), 0) / 10000) then Meal := #0;
-      'N':  if TimePart < (StrToIntDef(Piece(DietParams.Alarms, U, 3), 0) / 10000) then Meal := #0;
-      'E':  if TimePart < (StrToIntDef(Piece(DietParams.Alarms, U, 5), 0) / 10000) then Meal := #0;
+      'B':  if (TimePart < (StrToIntDef(Piece(DietParams.Alarms, U, 1), 0) / 10000)) or
+               (TimePart > (StrToIntDef(Piece(DietParams.Alarms, U, 2), 0) / 10000)) then Meal := #0;
+      'N':  if (TimePart < (StrToIntDef(Piece(DietParams.Alarms, U, 3), 0) / 10000)) or
+               (TimePart > (StrToIntDef(Piece(DietParams.Alarms, U, 4), 0) / 10000)) then Meal := #0;
+      'E':  if (TimePart < (StrToIntDef(Piece(DietParams.Alarms, U, 5), 0) / 10000)) or
+               (TimePart > (StrToIntDef(Piece(DietParams.Alarms, U, 6), 0) / 10000)) then Meal := #0;
     end;
     if Meal = #0 then exit;
   end;
+
+  // get the available late times for this meal
+  case Meal of
+  'B': AvailTimes := Pieces(DietParams.BTimes, U, 4, 6);
+  'E': AvailTimes := Pieces(DietParams.ETimes, U, 4, 6);
+  'N': AvailTimes := Pieces(DietParams.NTimes, U, 4, 6);
+  end;
+  SetAvailTimes(TimePart, TimeCount, AvailTimes);
+  if TimeCount = 0 then Exit;
+
   // setup form to get the selected late tray
   frmODDietLT := TfrmODDietLT.Create(Application);
@@ -153 +163 @@
     begin
       FOutpatient := IsOutpatient;
-      if not IsOutpatient then
-      begin
-        if Length(Piece(AvailTimes, U, 1)) > 0 then radLT1.Caption := Piece(AvailTimes, U, 1);
-        if Length(Piece(AvailTimes, U, 2)) > 0 then radLT2.Caption := Piece(AvailTimes, U, 2);
-        if Length(Piece(AvailTimes, U, 3)) > 0 then radLT3.Caption := Piece(AvailTimes, U, 3);
-        radLT1.Visible := Length(radLT1.Caption) > 0;
-        radLT2.Visible := Length(radLT2.Caption) > 0;
-        radLT3.Visible := Length(radLT3.Caption) > 0;
-        radLT1.Checked := TimeCount = 1;
-      end
-      else GroupBox1.Visible := False;
+      if Length(Piece(AvailTimes, U, 1)) > 0 then radLT1.Caption := Piece(AvailTimes, U, 1);
+      if Length(Piece(AvailTimes, U, 2)) > 0 then radLT2.Caption := Piece(AvailTimes, U, 2);
+      if Length(Piece(AvailTimes, U, 3)) > 0 then radLT3.Caption := Piece(AvailTimes, U, 3);
+      radLT1.Visible := Length(radLT1.Caption) > 0;
+      radLT2.Visible := Length(radLT2.Caption) > 0;
+      radLT3.Visible := Length(radLT3.Caption) > 0;
+      radLT1.Checked := TimeCount = 1;
       chkBagged.Visible := DietParams.Bagged;
       with lblMealCutOff do case Meal of
@@ -174 +180 @@
       if YesPressed then
       begin
-        if not IsOutpatient then
-        begin
-          with radLT1 do if Checked then LateTrayFields.LateTime := Caption;
-          with radLT2 do if Checked then LateTrayFields.LateTime := Caption;
-          with radLT3 do if Checked then LateTrayFields.LateTime := Caption;
-        end
-        else
-          LateTrayFields.LateTime := FMTimeToAMPM(FMToday + TimePart);
+        with radLT1 do if Checked then LateTrayFields.LateTime := Caption;
+        with radLT2 do if Checked then LateTrayFields.LateTime := Caption;
+        with radLT3 do if Checked then LateTrayFields.LateTime := Caption;
         LateTrayFields.LateMeal := Meal;
         LateTrayFields.IsBagged := chkBagged.Checked;
-      end; {if YesPressed}
+      end;
     end; {with frmODDietLT}
   finally