Changeset 729 for cprs/branches/tmg-cprs/CPRS-Chart/fReview.pas

Timestamp:

Mar 31, 2010, 5:06:56 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Added functions to Templates, and Images tab

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fReview.pas (modified) (6 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/fReview.pas

@@ -41 +41 @@
     lblSig: TStaticText;
     DKLanguageController1: TDKLanguageController;
+    TMGAutoPrintCKBox: TCheckBox;
     procedure FormCreate(Sender: TObject);
     procedure lstReviewDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
@@ -104 +105 @@
     procedure SetCheckBoxStatus(thisOrderID: string);
     function GetCheckBoxStatus(sourceOrderID : string) : string; overload;
-    function GetCheckBoxStatus(gridItemIndex : smallint) : string; overload; 
+    function GetCheckBoxStatus(gridItemIndex : smallint) : string; overload;
     function GetNonNilItemCount : integer; //CQ5172
   end;
@@ -163 +164 @@
 //TX_NO_DX      =  'A Diagnosis must be selected prior to signing any of the following order types:'  <-- original line.  //kt 8/7/2007
 //                 + CRLF + 'Outpatient Lab,Radiology, Outpatient Medications, Prosthetics.';  <-- original line.  //kt 8/7/2007
-
+  DONT_SIGN = 'Don''t Sign';  //kt
 var
   TXT_ENCNT     : string;  //kt
@@ -867 +868 @@
 
 procedure TfrmReview.txtESCodeChange(Sender: TObject);
-begin
-  if(not pnlSignature.Visible) then
+var  HasDocToSign, ShowAutoPrint : boolean; //kt
+     i : integer; //kt
+begin
+  //kt --- Begin Mod ---
+  ShowAutoPrint := false;   //kt  Only show when button caption = 'Sign'
+  HasDocToSign := false;
+  for i := 0 to lstReview.Items.Count - 1 do begin  
+    if lstReview.Items.Objects[i] = nil then continue;
+    if (TChangeItem(lstReview.Items.Objects[i]).ItemType = CH_DOC) and (lstReview.Checked[i]) then begin 
+      HasDocToSign := true;
+      break;
+    end; 
+  end;
+  //kt --- End Mod ---
+  
+  if(not pnlSignature.Visible) then begin
+    cmdOK.Caption := 'OK';
+  end else begin
+    if Length(txtESCode.Text) > 0 then begin
+      cmdOK.Caption := 'Sign';
+      if HasDocToSign then ShowAutoPrint := true; //kt
+    end else begin
+      //kt if FCouldSign then cmdOK.Caption := 'Don''t Sign' else cmdOK.Caption := 'OK';
+      if FCouldSign then begin
+        //cmdOK.Caption := DONT_SIGN
+        cmdOK.Caption := DKLangConstW('fReview_Donxxt_Sign')
+      end else begin
+        cmdOK.Caption := 'OK'; //kt added 8/7/2007
+      end;  
+{ Original Line  
+if(not pnlSignature.Visible) then
     cmdOK.Caption := 'OK'
   else
@@ -876 +906 @@
 //    if FCouldSign then cmdOK.Caption := 'Don''t Sign' else cmdOK.Caption := 'OK';  <-- original line.  //kt 8/7/2007
       if FCouldSign then cmdOK.Caption := DKLangConstW('fReview_Donxxt_Sign') else cmdOK.Caption := 'OK'; //kt added 8/7/2007
+}
     end;
   end;
+  TMGAutoPrintCKBox.Visible := ShowAutoPrint;  //kt
 end;
 
@@ -1315 +1347 @@
                   //  PrintNote(StrToInt(ChangeItem.ID), ChangeItem.Text);
                   //end;
+                  if TMGAutoPrintCKBox.Visible and TMGAutoPrintCKBox.Checked then begin
+                    PrintNote(StrToInt(ChangeItem.ID), ChangeItem.Text);
+                  end;
                   {--- End K. Toppenberg's modificaton //kt --}
                 end else frmNotes.SaveSignItem(ChangeItem.ID, '');