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

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

@@ -36 +36 @@
 {$R *.DFM}
 
-uses rOrders, uCore, uConst, fOrders, UBAGlobals;
-{ TODO -oRich V. -cOutpatient Meals : Uncomment for processing of child orders treeview. }
-//, fOrderChildren;
+uses rOrders, uCore, uConst, fOrders;
 
 function ExecuteDCOrders(SelectedList: TList; var DelEvt: boolean): Boolean;
@@ -52 +50 @@
   OriginalID,APtEvtID,APtEvtName,AnEvtInfo,tmpPtEvt:  string;
   PtEvtList: TStringList;
-{ TODO -oRich V. -cOutpatient Meals : Uncomment for processing of child orders treeview. }
-(*  tmpList: TList;
-  j: integer;
-  AChildOrder: TOrder;*)
 begin
   Result := False;
@@ -63 +57 @@
   PtEvtList := TStringList.Create;
   if SelectedList.Count = 0 then Exit;
-{ TODO -oRich V. -cOutpatient Meals : Uncomment for processing of child orders treeview. }
-//  tmpList := TList.Create;
   frmDCOrders := TfrmDCOrders.Create(Application);
   try
@@ -72 +64 @@
     begin
       AnOrder    := TOrder(Items[i]);
-
-      if BILLING_AWARE then  //CQ4589
-        UBAGlobals.RemoveOrderFromDxList(AnOrder.ID);
-
-{ TODO -oRich V. -cOutpatient Meals : Comment next 3 lines for processing of child orders treeview. }
       frmDCOrders.lstOrders.Items.Add(AnOrder.Text);
       if not ((AnOrder.Status = 11) and (AnOrder.Signature = 2)) then NeedReason := True;
     end;
-{ TODO -oRich V. -cOutpatient Meals : Uncomment for processing of child orders treeview. }
-//***********  begin OP meals changes **************
-(*      if Copy(AnOrder.Text, 1, 1) = '+' then
-      begin
-        ActOnChildOrders(tmpList, AnOrder.ID);
-{ TODO -oRich V. -cOutpatient Meals : How/when to get selected items into SelectedList? }
-        for j := tmpList.Count - 1 downto 0 do
-        begin
-          AChildOrder := TOrder(tmpList.Items[j]);
-          frmDCOrders.lstOrders.Items.Add(AChildOrder.Text);
-          if not ((AChildOrder.Status = 11) and (AChildOrder.Signature = 2)) then NeedReason := True;
-        end;
-      end else
-      begin
-        frmDCOrders.lstOrders.Items.Add(AnOrder.Text);
-        if not ((AnOrder.Status = 11) and (AnOrder.Signature = 2)) then NeedReason := True;
-      end;
-    end;*)
-//*************  End OP meals changes ****************
     if NeedReason then
     begin
@@ -126 +94 @@
                        end;
         DCT_DELETION:  begin
-                         if BILLING_AWARE then
-                            UBAGlobals.BADeltedOrders.Add(OriginalID);
                          Changes.Remove(CH_ORD, OriginalID);
                          if (AnOrder.ID = '0') or (AnOrder.ID = '')
@@ -174 +140 @@
     else with SelectedList do for i := 0 to Count - 1 do UnlockOrder(TOrder(Items[i]).ID);
   finally
-{ TODO -oRich V. -cOutpatient Meals : Uncomment for processing of child orders treeview. }
-    //tmpList.Free;
     frmDCOrders.Release;
   end;
@@ -202 +166 @@
 begin
   inherited;
-  if not (lstReason.ItemIEN > 0) then
+  if (lstReason.Visible) and (not (lstReason.ItemIEN > 0)) then
   begin
     InfoBox(TX_REASON_REQ, TC_REASON_REQ, MB_OK);