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

cprs/branches/foia-cprs/CPRS-Chart/fDCSumm.pas

@@ -134 +134 @@
     popSummMemoInsTemplate: TMenuItem;
     popSummMemoEncounter: TMenuItem;
+    mnuViewInformation: TMenuItem;
+    mnuViewDemo: TMenuItem;
+    mnuViewVisits: TMenuItem;
+    mnuViewPrimaryCare: TMenuItem;
+    mnuViewMyHealtheVet: TMenuItem;
+    mnuInsurance: TMenuItem;
+    mnuViewFlags: TMenuItem;
+    mnuViewReminders: TMenuItem;
+    mnuViewRemoteData: TMenuItem;
+    mnuViewPostings: TMenuItem;
     procedure mnuChartTabClick(Sender: TObject);
     procedure lstSummsClick(Sender: TObject);
@@ -211 +221 @@
     procedure tvSummsAddition(Sender: TObject; Node: TTreeNode);
     procedure tvSummsDeletion(Sender: TObject; Node: TTreeNode);
+    procedure ViewInfo(Sender: TObject);
+    procedure mnuViewInformationClick(Sender: TObject);
   private
     FEditingIndex: Integer;                      // index of Summary being currently edited
@@ -230 +242 @@
     procedure ClearEditControls;
     function StartNewEdit(NewNoteType: integer): Boolean;
-    procedure DoAutoSave;
+    procedure DoAutoSave(Suppress: integer = 1);
     function LacksRequiredForCreate: Boolean;
     function GetTitleText(AnIndex: Integer): string;
@@ -1726 +1738 @@
 procedure TfrmDCSumm.SaveSignItem(const ItemID, ESCode: string);
 { saves and optionally signs a Discharge Summary or addendum }
+const
+  SIG_COSIGN = 'COSIGNATURE';
+  SIG_SIGN   = 'SIGNATURE';
 var
   AnIndex, IEN, i: Integer;
   Saved, ContinueSign: Boolean;   {*RAB* 8/26/99}
-  SignSts: TActionRec;
+  ActionSts, SignSts: TActionRec;
   APCEObject: TPCEData;
   OK: boolean;
-
+  ActionType, SignTitle: string;
 begin
   AnIndex := -1;
@@ -1757 +1772 @@
   if Length(ESCode) > 0 then
   begin
-    if not NoteHasText(IEN) then
+    if CosignDocument(IEN) then
+    begin
+      SignTitle := TX_COSIGN;
+      ActionType := SIG_COSIGN;
+    end else
+    begin
+      SignTitle := TX_SIGN;
+      ActionType := SIG_SIGN;
+    end;
+    ActOnDocument(ActionSts, IEN, ActionType);
+    if not ActionSts.Success then
+      begin
+        InfoBox(ActionSts.Reason, TX_IN_AUTH, MB_OK);
+        ContinueSign := False;
+      end
+    else if not NoteHasText(IEN) then
       begin
         InfoBox(TX_EMPTY_SUMM1, TC_EMPTY_SUMM, MB_OK or MB_ICONERROR);
@@ -1910 +1940 @@
 begin
   inherited;
-  DoAutoSave;
+  DoAutoSave(0);
   timAutoSave.Enabled := False;
   try
     SpellCheckForControl(memNewSumm);
   finally
+    FChanged := True;
+    DoAutoSave(0);
     timAutoSave.Enabled := True;
   end;
@@ -1922 +1954 @@
 begin
   inherited;
-  DoAutoSave;
+  DoAutoSave(0);
   timAutoSave.Enabled := False;
   try
     GrammarCheckForControl(memNewSumm);
   finally
+    FChanged := True;
+    DoAutoSave(0);
     timAutoSave.Enabled := True;
   end;
@@ -2013 +2047 @@
   SigAction: integer;
   SavedDocID: string;
+  ARefDate: TFMDateTime;
 begin
   inherited;
@@ -2052 +2087 @@
 
   Exclusions := GetCurrentSigners(lstSumms.ItemIEN);
-  SelectAdditionalSigners(Font.Size, lstSumms.ItemIEN, SigAction, Exclusions, SignerList, CT_DCSUMM);
+  ARefDate := ExtractFloat(Piece(Piece(lstSumms.Items[lstSumms.ItemIndex], U, 9), ';', 2));
+  if ARefDate = 0 then        //no discharge date, so use note date
+    ARefDate := StrToFloat(Piece(lstSumms.Items[lstSumms.ItemIndex], U, 3));
+  SelectAdditionalSigners(Font.Size, lstSumms.ItemIEN, SigAction, Exclusions, SignerList, CT_DCSUMM, ARefDate);
   with SignerList do
     begin
@@ -2308 +2346 @@
 var
   CurTitle: Integer;
+  ADateTime:  TFMDateTime;
 begin
   Result := False;
@@ -2321 +2360 @@
     begin
       if Title > 0 then CurTitle := Title else CurTitle := DocType;
-      if AskCosignerForTitle(CurTitle, Dictator) and (Cosigner <= 0) then Result := True;
+      if DischargeDateTime > 0 then
+        ADateTime := DischargeDateTime
+      else
+        ADateTime := DictDateTime;
+      if AskCosignerForTitle(CurTitle, Dictator, ADateTime) and (Cosigner <= 0) then Result := True;
     end;
   end;
@@ -2357 +2400 @@
 end;
 
-procedure TfrmDCSumm.DoAutoSave;
+procedure TfrmDCSumm.DoAutoSave(Suppress: integer = 1);
 var
   ErrMsg: string;
@@ -2367 +2410 @@
     timAutoSave.Enabled := False;
     try
-      SetText(ErrMsg, memNewSumm.Lines, lstSumms.GetIEN(EditingIndex),1);
+      SetText(ErrMsg, memNewSumm.Lines, lstSumms.GetIEN(EditingIndex), Suppress);
     finally
       timAutoSave.Enabled := True;
@@ -3216 +3259 @@
 end;
 
+procedure TfrmDCSumm.ViewInfo(Sender: TObject);
+begin
+  inherited;
+  frmFrame.ViewInfo(Sender);
+end;
+
+procedure TfrmDCSumm.mnuViewInformationClick(Sender: TObject);
+begin
+  inherited;
+  mnuViewDemo.Enabled := frmFrame.pnlPatient.Enabled;
+  mnuViewVisits.Enabled := frmFrame.pnlVisit.Enabled;
+  mnuViewPrimaryCare.Enabled := frmFrame.pnlPrimaryCare.Enabled;
+  mnuViewMyHealtheVet.Enabled := not (Copy(frmFrame.laMHV.Hint, 1, 2) = 'No');
+  mnuInsurance.Enabled := not (Copy(frmFrame.laVAA2.Hint, 1, 2) = 'No');
+  mnuViewFlags.Enabled := frmFrame.lblFlag.Enabled;
+  mnuViewRemoteData.Enabled := frmFrame.lblCirn.Enabled;
+  mnuViewReminders.Enabled := frmFrame.pnlReminders.Enabled;
+  mnuViewPostings.Enabled := frmFrame.pnlPostings.Enabled;
+end;
+
 initialization
   uPCEEdit := TPCEData.Create;