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

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

@@ -12 +12 @@
     cboUrgency: TORComboBox;
     cboPlace: TORComboBox;
-    txtProvDiag: TCaptionEdit;
     txtAttn: TORComboBox;
     lblProc: TLabel;
@@ -34 +33 @@
     pnlReason: TPanel;
     memReason: TCaptionRichEdit;
-    lblReason: TLabel;
     gbInptOpt: TGroupBox;
     radInpatient: TRadioButton;
     radOutpatient: TRadioButton;
+    txtProvDiag: TCaptionEdit;
+    lblReason: TLabel;
     procedure FormCreate(Sender: TObject);
     procedure txtAttnNeedData(Sender: TObject; const StartFrom: String;
@@ -63 +63 @@
       Shift: TShiftState);
     procedure memReasonKeyPress(Sender: TObject; var Key: Char);
+    procedure FormResize(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     FLastProcID: string;
@@ -88 +90 @@
 uses
     rODBase, rConsults, uCore, uConsults, rCore, fConsults, fPCELex, rPCE, ORClasses,
-    clipbrd, fPreReq, uTemplates, uAccessibleRichEdit;
+    clipbrd, fPreReq, uTemplates, uAccessibleRichEdit, fFrame, uODBase;
 
 var
@@ -109 +111 @@
 procedure TfrmODProc.FormCreate(Sender: TObject);
 begin
+  frmFrame.pnlVisit.Enabled := false;
   AutoSizeDisabled := True;
   inherited;
@@ -709 +712 @@
   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;
@@ -715 +721 @@
     Result := GetDefaultReasonForRequest(Piece(cboProc.Items[cboProc.ItemIndex], U, 4), Resolve);
     TmpSL.Assign(Result);
+    x := TmpSL.Text;
+    ExpandOrderObjects(x, HasObjects);
+    TmpSL.Text := x;
+    Responses.OrderContainsObjects := HasObjects;
     ExecuteTemplateOrBoilerPlate(TmpSL, StrToIntDef(piece(piece(cboProc.Items[cboProc.ItemIndex],U,4),';',1),0),
                    ltProcedure, nil, 'Reason for Request: ' + cboProc.DisplayText[cboProc.ItemIndex], DocInfo);
+    if TmpSL.Text <> x then Responses.OrderContainsObjects := False;
     Result.Assign(TmpSL);
   finally
@@ -805 +816 @@
 end;
 
+procedure TfrmODProc.FormResize(Sender: TObject);
+begin
+  inherited;
+  memOrder.Top := PnlReason.Top + PnlReason.Height + 5;
+
+end;
+
+procedure TfrmODProc.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  frmFrame.pnlVisit.Enabled := true;
+end;
+
 end.