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

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

@@ -31 +31 @@
     Alarms: string;
     OPMaxDays: integer;
+    OPDefaultDiet: integer;
   end;
 
@@ -39 +40 @@
 procedure AppendTFProducts(Dest: TStrings);
 function SubSetOfDiets(const StartFrom: string; Direction: Integer): TStrings;
-function SubSetOfOPDiets(const StartFrom: string; Direction: Integer): TStrings;
+function SubSetOfOPDiets: TStrings;
 procedure OrderLateTray(NewOrder: TOrder; Meal: Char; const MealTime: string; Bagged: Boolean);
 function IsolationID: string;
@@ -48 +49 @@
 function OutpatientPatchInstalled: boolean;
 function UserHasFHAUTHKey: boolean;
+procedure GetCurrentRecurringOPMeals(Dest: TStrings; MealType: string = '');
+function OutpatientLocationConfigured(ALocation: string): boolean;
 
 
@@ -96 +99 @@
     else
       OPMaxDays := 30;
+    if Results.Count > 4 then
+      OPDefaultDiet := StrToIntDef(Results[4], 0)
   end;
 end;
@@ -131 +136 @@
 end;
 
-function SubSetOfOPDiets(const StartFrom: string; Direction: Integer): TStrings;
-begin
-  CallV('ORWDFH OPDIETS', [StartFrom, Direction]);
+function SubSetOfOPDiets: TStrings;
+begin
+  CallV('ORWDFH OPDIETS', [nil]);
   Result := RPCBrokerV.Results;
 end;
@@ -176 +181 @@
     if not PatchChecked then
       begin
-        PatchInstalled := False;
-{ TODO -oRich V. -cOutpatient Meals : Uncomment when patch available - need number }
-        //PatchInstalled := ServerHasPatch('FH_TEST*1.0*1');
+        //PatchInstalled := True;
+        { TODO -oRich V. -cOutpatient Meals : Uncomment when available }
+        PatchInstalled := (PackageVersion('FH') >= '5.5');
         PatchChecked := True;
       end;
@@ -195 +200 @@
 end;
 
+procedure GetCurrentRecurringOPMeals(Dest: TStrings; MealType: string = '');
+begin
+  CallV('ORWDFH CURRENT MEALS', [Patient.DFN, MealType]);
+  Dest.Assign(RPCBrokerV.Results);
+  MixedCaseList(Dest);
+end;
+
+function OutpatientLocationConfigured(ALocation: string): boolean;
+begin
+  Result := (sCallV('ORWDFH NFSLOC READY', [ALocation]) = '1');
+end;
+
 end.