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

cprs/branches/foia-cprs/CPRS-Chart/Consults/fODConsult.pas

@@ -85 +85 @@
     procedure btnDiagnosisClick(Sender: TObject);
     procedure cmdQuitClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
 
   private
@@ -97 +98 @@
     procedure SetupReasonForRequest(OrderAction: integer);
     procedure GetProvDxandValidateCode(AResponses: TResponses);
-    function  ShowPrerequisites: boolean;
+    function ShowPrerequisites: boolean;
     procedure DoSetFontSize(FontSize: integer);
     procedure SetUpQuickOrderDX;
@@ -106 +107 @@
     procedure Validate(var AnErrMsg: string); override;
     function DefaultReasonForRequest(Service: string; Resolve: Boolean): TStrings;
+    
   public
     procedure SetupDialog(OrderAction: Integer; const ID: string); override;
@@ -123 +125 @@
 uses
     rODBase, rConsults, uCore, uConsults, rCore, fConsults, fPCELex, rPCE, fPreReq,
-    ORClasses, clipbrd, uTemplates;
+    ORClasses, clipbrd, uTemplates, fFrame, uODBase;
 
 var
@@ -131 +133 @@
   BADxUpdated: boolean;
   quickCode: string;
-  
+
 
 
@@ -153 +155 @@
 procedure TfrmODCslt.FormCreate(Sender: TObject);
 begin
+  frmFrame.pnlVisit.Enabled := false;
   AutoSizeDisabled := True;
   inherited;
@@ -223 +226 @@
   cboService.Enabled := True;
   cboService.Font.Color := clWindowText;
+  cboService.Height := 25 + (7 * cboService.ItemHeight);
   btnServiceTree.Enabled := True;
+  pnlServiceTreeButton.Enabled := True;
   ActiveControl := cboService;
   SetProvDiagPromptingMode;
@@ -271 +276 @@
       cboService.Font.Color := clGrayText;
       btnServiceTree.Enabled := False;
+      pnlServiceTreeButton.Enabled := False;
       if (OrderAction in [ORDER_COPY, ORDER_QUICK]) and (not ShowPrerequisites) then
         begin
@@ -286 +292 @@
     begin
       if QuickList.Count > 0 then BuildQuickTree(QuickList, '0', nil) ;
-      //SvcList.Assign(LoadServiceList(CN_SVC_LIST_ORD))   ;
       SvcList.Assign(LoadServiceListWithSynonyms(CN_SVC_LIST_ORD));           {RV}
       AList.Assign(SvcList);
@@ -512 +517 @@
         cboService.Font.Color := clGrayText;
         btnServiceTree.Enabled := False;
+        pnlServiceTreeButton.Enabled := False;
         Changing := False;
       end;
@@ -645 +651 @@
  begin
  inherited;
-
- //if NOT BILLING_AWARE then
-    if treService.Selected <> nil then
-       LastNode := treService.Selected.AbsoluteIndex;
+ if treService.Selected <> nil then
+    LastNode := treService.Selected.AbsoluteIndex;
 
  if  BILLING_AWARE and CIDCOkToSave  then
@@ -657 +661 @@
        begin
           uBACore.CompleteConsultOrderRec(uBAGlobals.BAOrderID,UBAGlobals.BAConsultDxList);
-       //   if ProvDx.Reqd = 'R' then UBAGlobals.BAConsultOrdersRequireDx.Add(uBAGlobals.BAOrderID); //allow special handling of non cidc consults that require dx .
           uBAGlobals.BAConsultDxList.Clear;
        end;
@@ -743 +746 @@
           Font.Color := clGrayText;
           btnServiceTree.Enabled := False;
+          pnlServiceTreeButton.Enabled := False;
           Changing := False;
           with Responses do if QuickOrder > 0 then
@@ -945 +949 @@
   with ProvDx do if (Reqd = '') or (PromptMode = '') then Exit;
   if ProvDx.Reqd = 'R' then
-    lblProvDiag.Caption := TX_PROVDX_REQD
+  begin
+    lblProvDiag.Caption := TX_PROVDX_REQD;
+    if (BILLING_AWARE)  and (ProvDx.PromptMode[1] = '') then btnDiagnosis.Enabled := True;
+  end
   else
     lblProvDiag.Caption := TX_PROVDX_OPT;
@@ -1066 +1073 @@
                   Result := False;
                   AbortOrder := True;
-                  //cmdQuitClick(Self);
-                end
+               end
               else Result := True;
             end;
@@ -1076 +1082 @@
 end;
 
-////////// NOTE THIS FUNCTION IS NO LONGER ASSIGNED TO OnExit EVENT
-///////// Calling this with enter making a selection had serious errors
-///////// No ill effect can be seen for not calling it.
 procedure TfrmODCslt.cboServiceExit(Sender: TObject);
 begin
@@ -1086 +1089 @@
   if cboService.ItemID = FLastServiceID then Exit;
   cboServiceSelect(cboService);
-  cboService.SetFocus;
+  // CQ #7490, following line commented out v26.24 (RV)
+  // CQ #9610 and 10074 - uncommented and "if" added v26.54 (RV)
+  if cboService.Enabled then cboService.SetFocus;
   PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
 end;
@@ -1141 +1146 @@
   TmpSL: TStringList;
   DocInfo: string;
-
-begin
+  x: string;
+  HasObjects: boolean;
+begin
+  Resolve := FALSE ;  // override value passed in - resolve on client - PSI-05-093
   DocInfo := '';
   TmpSL := TStringList.Create;
@@ -1148 +1155 @@
     Result := GetDefaultReasonForRequest(Service + CSLT_PTR, Resolve);
     TmpSL.Assign(Result);
+    x := TmpSL.Text;
+    ExpandOrderObjects(x, HasObjects);
+    TmpSL.Text := x;
+    Responses.OrderContainsObjects := HasObjects;
     ExecuteTemplateOrBoilerPlate(TmpSL, cboService.ItemIEN , ltConsult, nil, 'Reason for Request: ' + cboService.DisplayText[cboService.ItemIndex], DocInfo);
+    if TmpSL.Text <> x then Responses.OrderContainsObjects := False;
     Result.Assign(TmpSL);
   finally
@@ -1284 +1296 @@
   //Except when Enter or Space is pressed. VK_LBUTTON activates OnClick in TORComboBoxes
   FcboServiceKeyDownStopClick := false;
-  if (Key <> VK_RETURN) and (Key <> VK_SPACE) and (Key <> VK_LBUTTON) then
+  if (Key <> VK_RETURN) {and (Key <> VK_SPACE)} and (Key <> VK_LBUTTON) then  //comment on this line is fix for CQ6789
     FcboServiceKeyDownStopClick := True
   else
@@ -1333 +1345 @@
      end;
   end;
+
   ProvDx.CodeInactive := False;
 end;
@@ -1387 +1400 @@
 end;
 
+procedure TfrmODCslt.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  frmFrame.pnlVisit.Enabled := true;
+end;
+
 end.