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

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

@@ -68 +68 @@
   end;
 
+  TPFSSActive = record
+    PFSSActive: boolean;
+    PFSSChecked: boolean;
+  end;
+
 { General Calls }
 function AskAnotherOrder(ADialog: Integer): Boolean;
@@ -75 +80 @@
 procedure LoadDialogDefinition(Dest: TList; const DialogName: string);
 procedure LoadOrderPrompting(Dest: TList; ADialog: Integer);
-procedure LoadResponses(Dest: TList; const OrderID: string);
+//procedure LoadResponses(Dest: TList; const OrderID: string);
+procedure LoadResponses(Dest: TList; const OrderID: string; var HasObjects: boolean);
 procedure PutNewOrder(var AnOrder: TOrder; ConstructOrder: TConstructOrder; OrderSource: string);
 //procedure PutNewOrderAuto(var AnOrder: TOrder; ADialog: Integer); // no longer used
@@ -88 +94 @@
 procedure SetDefaultCoPayToNewOrder(AnOrderID, CoPayInfo:string);
 procedure ValidateNumericStr(const x, Dom: string; var ErrMsg: string);
-
+function IsPFSSActive: boolean;
 
 { Quick Order Calls }
@@ -126 +132 @@
 implementation
 
-uses TRPCB,uOrders;
+uses TRPCB, uOrders, uODBase;
 
 var
@@ -133 +139 @@
   uLastQuantityMsg: string;
   uMedRoutes: TStringList;
+  uPFSSActive: TPFSSActive;
 
 { Common Internal Calls }
@@ -175 +182 @@
         begin
           IVDurVal := Copy(IVDuration,1,length(IVDuration)-1);
-          TResponse(ResponseList.Items[j]).IValue := 'for ' + IVDurVal + ' hours';
+          TResponse(ResponseList.Items[j]).IValue := 'for ' + IVDurVal + 'hours';
         end
         else if (Pos('D',upperCase(IVDuration))>0) then
         begin
           IVDurVal := Copy(IVDuration,1,length(IVDuration)-1);
-          TResponse(ResponseList.Items[j]).IValue := 'for ' + IVDurVal + ' days';
+          TResponse(ResponseList.Items[j]).IValue := 'for ' + IVDurVal + 'days';
         end
         else if ((Pos('ML',upperCase(IVDuration))>0) or (Pos('CC',upperCase(IVDuration))>0)) then
         begin
           IVDurVal := Copy(IVDuration,1,length(IVDuration)-2);
-          TResponse(ResponseList.Items[j]).IValue := 'with total volume ' + IVDurVal + ' ml';
+          TResponse(ResponseList.Items[j]).IValue := 'with total volume ' + IVDurVal + 'ml';
         end
         else if (Pos('L',upperCase(IVDuration))>0) then
         begin
           IVDurVal := Copy(IVDuration,0,length(IVDuration)-1);
-          TResponse(ResponseList.Items[j]).IValue := 'with total volume ' + IVDurVal + ' L';
+          TResponse(ResponseList.Items[j]).IValue := 'with total volume ' + IVDurVal + 'L';
         end;
       end;
@@ -371 +378 @@
 end;
 
-procedure ExtractToResponses(Dest: TList);
+procedure ExtractToResponses(Dest: TList; var HasObjects: boolean);
 { load a list with TResponse records, assumes source strings are in RPCBrokerV.Results }
 var
   i: Integer;
   AResponse: TResponse;
+  WPContainsObjects, TxContainsObjects: boolean;
+  TempBroker: TStrings;
 begin
   i := 0;
-  with RPCBrokerV do while i < Results.Count do
-  begin
-    if CharAt(Results[i], 1) = '~' then
+  HasObjects := FALSE;
+  TempBroker := TStringlist.Create;
+  TempBroker.Assign(RPCBrokerV.Results);
+  try
+  with TempBroker do while i < Count do
+  begin
+    if CharAt(Strings[i], 1) = '~' then
     begin
       AResponse := TResponse.Create;
       with AResponse do
       begin
-        PromptIEN := StrToIntDef(Piece(Copy(Results[i], 2, 255), U, 1), 0);
-        Instance := StrToIntDef(Piece(Results[i], U, 2), 0);
-        PromptID := Piece(Results[i], U, 3);
+        PromptIEN := StrToIntDef(Piece(Copy(Strings[i], 2, 255), U, 1), 0);
+        Instance := StrToIntDef(Piece(Strings[i], U, 2), 0);
+        PromptID := Piece(Strings[i], U, 3);
         Inc(i);
-        while (i < Results.Count) and (CharAt(Results[i], 1) <> '~') do
+        while (i < Count) and (CharAt(Strings[i], 1) <> '~') do
         begin
-          if CharAt(Results[i], 1) = 'i' then IValue := Copy(Results[i], 2, 255);
-          if CharAt(Results[i], 1) = 'e' then EValue := Copy(Results[i], 2, 255);
-          if CharAt(Results[i], 1) = 't' then
+          if CharAt(Strings[i], 1) = 'i' then IValue := Copy(Strings[i], 2, 255);
+          if CharAt(Strings[i], 1) = 'e' then EValue := Copy(Strings[i], 2, 255);
+          if CharAt(Strings[i], 1) = 't' then
           begin
             if Length(EValue) > 0 then EValue := EValue + CRLF;
-            EValue := EValue + Copy(Results[i], 2, 255);
+            EValue := EValue + Copy(Strings[i], 2, 255);
             IValue := TX_WPTYPE;  // signals that this is a word processing field
           end;
           Inc(i);
         end; {while i}
+        if IValue <> TX_WPTYPE then ExpandOrderObjects(IValue, TxContainsObjects);
+        ExpandOrderObjects(EValue, WPContainsObjects);
+        HasObjects := HasObjects or WPContainsObjects or TxContainsObjects;
         Dest.Add(AResponse);
       end; {with AResponse}
     end; {if CharAt}
   end; {With RPCBrokerV}
-end;
-
-procedure LoadResponses(Dest: TList; const OrderID: string);
+  finally
+    TempBroker.Free;
+  end;
+end;
+
+procedure LoadResponses(Dest: TList; const OrderID: string; var HasObjects: boolean);
 begin
   CallV('ORWDX LOADRSP', [OrderID]);
-  ExtractToResponses(Dest);
+  ExtractToResponses(Dest, HasObjects);
 end;
 
@@ -427 +446 @@
     Param[1].Value := IntToStr(Encounter.Provider);
     Param[2].PType := literal;
+    (*if loc > 0 then Param[2].Value := IntToStr(Loc)
+    else Param[2].Value := IntToStr(Encounter.Location);*)
     Param[2].Value := IntToStr(Encounter.Location);
     Param[3].PType := literal;
@@ -659 +680 @@
 end;
 
+function IsPFSSActive: boolean;
+begin
+  with uPFSSActive do
+    if not PFSSChecked then
+      begin
+        PFSSActive := (sCallV('ORWPFSS IS PFSS ACTIVE?', [nil]) = '1');
+        PFSSChecked := True;
+      end;
+  Result := uPFSSActive.PFSSActive
+end;
 
 { Medication Calls }