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

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

@@ -38 +38 @@
     ParentID    : string;
     LinkObject:   TObject;
+    EnteredInError:     Integer; //AGP Changes 26.12 PSI-04-053
     procedure Assign(Source: TOrder);
     procedure Clear;
@@ -604 +605 @@
     DGroupSeq  := SeqOfDGroup(DGroup);
     DGroupName := TopNameOfDGroup(DGroup);
+    //AGP Changes 26.15 PSI-04-063
+    if (pos('Entered in error',Text)>0) then AnOrder.EnteredInError := 1
+    else AnOrder.EnteredInError := 0;
     //if DGroupName = 'Non-VA Meds' then Text := 'Non-VA  ' + Text;
   end;
@@ -680 +684 @@
   with RPCBrokerV do for i := 1 to Results.Count - 1 do   // if orders found (skip 0 element)
   begin
-    if (Piece(RPCBrokerV.Results[i], U, 1) = '0') or (Piece(RPCBrokerV.Results[i], U, 1) = '') then Continue;
-    if (DelimCount(Results[i],U) = 2) then Continue;
+    if (Piece(RPCBrokerV.Results[i], U, 1) = '0') or (Piece(RPCBrokerV.Results[i], U, 1) = '') then Continue;  
+    if (DelimCount(Results[i],U) = 2) then Continue;  
     AnOrder := TOrder.Create;
     with AnOrder do
@@ -1126 +1130 @@
 var
   DelayEvent, x, TheOrder: string;
-  Idx,PickupIdx, ForIMOResponses: integer;
+  Idx, tmpOrderGroup, PickupIdx, ForIMOResponses: integer;
   IfUDGrp: Boolean;
   IfUDGrpForQO: Boolean;
+  temp: string;
 begin
   ForIMOResponses := 0;
+  tmpOrderGroup := 0;
+  temp := '';
   if ForIMO then ForIMOResponses := 1;
   PickupIdx := 0;
@@ -1139 +1146 @@
   begin
     Delete(TheOrder,1,1);
-    if CheckOrderGroup(TheOrder)=1 then IfUDGrp := True else IfUDGrp := False;
+    tmpOrderGroup := CheckOrderGroup(TheOrder);
+    if tmpOrderGroup = 1 then IfUDGrp := True else IfUDGrp := False;
   end;
   if (not IfUDGrp) and (AnEvent.EventType in ['A','T']) then
     IfUDGrp := True;
   //FLDS=DFN^LOC^ORNP^INPT^SEX^AGE^EVENT^SC%^^^Key Variables
+  if (Patient.Inpatient = true) and (tmpOrderGroup = 2) then temp := '0';
+  if temp <> '0' then temp := BoolChars[Patient.Inpatient];
   with AnEvent do
   begin
@@ -1451 +1461 @@
 
     with RPCBrokerV do
-       begin
-         ClearParameters := True;
-         RemoteProcedure := 'ORWDXR RENEW';
-         Param[0].PType := literal;
-         Param[0].Value := AnOrder.ID;
-         Param[1].PType := literal;
-         Param[1].Value := Patient.DFN;
-         Param[2].PType := literal;
-         Param[2].Value := IntToStr(Encounter.Provider);
-         Param[3].PType := literal;
-         Param[3].Value := IntToStr(Encounter.Location);
-         Param[4].PType := list;
-
-         for i := 0 to tmplst.Count - 1 do
-           Param[4].Mult[IntToStr(i+1)] := tmplst[i];
-
-         Param[4].Mult['"ORCHECK"'] := IntToStr(OCList.Count);
-
-         for i := 0 to OCList.Count - 1 do
-         begin
-           // put quotes around everything to prevent broker from choking
-           y := '"ORCHECK","' + Piece(OCList[i], U, 1) + '","' + Piece(OCList[i], U, 3) + '","' + IntToStr(i+1) + '"';
-           Param[4].Mult[y] := Pieces(OCList[i], U, 2, 4);
-         end;
-         Param[5].PType := literal;
-         Param[5].Value := IntToStr(IsComplex);
-         Param[6].PType := literal;
-         Param[6].Value := FloatToStr(AnIMOOrderAppt);
-
+    begin
+      ClearParameters := True;
+      RemoteProcedure := 'ORWDXR RENEW';
+      Param[0].PType := literal;
+      Param[0].Value := AnOrder.ID;
+      Param[1].PType := literal;
+      Param[1].Value := Patient.DFN;
+      Param[2].PType := literal;
+      Param[2].Value := IntToStr(Encounter.Provider);
+      Param[3].PType := literal;
+      Param[3].Value := IntToStr(Encounter.Location);
+      Param[4].PType := list;
+      for i := 0 to tmplst.Count - 1 do
+        Param[4].Mult[IntToStr(i+1)] := tmplst[i];
+      Param[4].Mult['"ORCHECK"'] := IntToStr(OCList.Count);
+      for i := 0 to OCList.Count - 1 do
+      begin
+      // put quotes around everything to prevent broker from choking
+      y := '"ORCHECK","' + Piece(OCList[i], U, 1) + '","' + Piece(OCList[i], U, 3) +
+        '","' + IntToStr(i+1) + '"';
+      Param[4].Mult[y] := Pieces(OCList[i], U, 2, 4);
+    end;
+    Param[5].PType := literal;
+    Param[5].Value := IntToStr(IsComplex);
+    Param[6].PType := literal;
+    Param[6].Value := FloatToStr(AnIMOOrderAppt);
     CallBroker;
     SetOrderFromResults(AnOrder);
@@ -1510 +1517 @@
   CallV('ORWDXA DCREASON', [nil]);
   ExtractItems(Dest, RPCBrokerV.Results, 'DCReason');
-  DefaultIEN := StrToIntDef(Piece(ExtractDefault(RPCBrokerV.Results, 'DCReason'), U, 1), 0);
+  //AGP Change 26.15 for PSI-04-63
+  //DefaultIEN := StrToIntDef(Piece(ExtractDefault(RPCBrokerV.Results, 'DCReason'), U, 1), 0);
 end;
 
@@ -1528 +1536 @@
   SetOrderFromResults(AnOrder);
   AnOrder.ParentID := AParentID;
-
 end;