Changeset 793 for cprs/branches/tmg-cprs/CPRS-Chart/fPtSel.pas

Timestamp:

Jun 10, 2010, 3:13:12 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

update

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fPtSel.pas (modified) (8 diffs)

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

@@ -11 +11 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls, ORCtrls, ExtCtrls, ORFn, ORNet, ORDtTmRng, Gauges, Menus, ComCtrls,
-  UBAGlobals, UBACore, DKLang;
+  UBAGlobals, UBACore, DKLang, Buttons;
 
 type
@@ -40 +40 @@
     RadioGroup1: TRadioGroup;
     TMGcmdAdd: TButton;
+    btnSearchPt: TBitBtn;
     procedure cmdOKClick(Sender: TObject);
     procedure cmdCancelClick(Sender: TObject);
@@ -80 +81 @@
     procedure TMGcmdAddClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
+    procedure btnSearchPtClick(Sender: TObject);
   private
     FsortCol: integer;
@@ -95 +97 @@
     procedure AlertList;
     procedure ReformatAlertDateTime;
+    procedure OpenPatient(NewSelectedPtIEN : string; InfoStr : string); //kt 6/3/10
   public
     procedure Loaded; override;
@@ -114 +117 @@
 
 uses rCore, uCore, fDupPts, fPtSens, fPtSelDemog, fPtSelOptns, fPatientFlagMulti,
-     uOrPtf, fAlertForward, rMisc,  fFrame, fPtAdd;
+     uOrPtf, fAlertForward, rMisc,  fFrame, fPtAdd, fPtQuery;
 
 const
@@ -467 +470 @@
 procedure TfrmPtSel.cmdOKClick(Sender: TObject);
 { Checks for restrictions on the selected patient and sets up the Patient object. }
+var InfoStr : string;
+begin
+  if cboPatient.ItemIndex > -1 then begin
+    InfoStr := cboPatient.Items[cboPatient.ItemIndex];
+  end else begin
+    InfoStr := '';
+  end;
+  with cboPatient do begin
+    OpenPatient(ItemID, InfoStr);
+  end;
+
+  (*
+{ Checks for restrictions on the selected patient and sets up the Patient object. }
 const
   DLG_CANCEL = False;
@@ -546 +562 @@
   else if Patient.Inpatient then // Everything else:
   begin
+    Encounter.Inpatient := True;
+    Encounter.Location := Patient.Location;
+    Encounter.DateTime := Patient.AdmitTime;
+    Encounter.VisitCategory := 'H';
+  end;
+  if User.IsProvider then Encounter.Provider := User.DUZ;
+
+  GetBAStatus(Encounter.Provider,Patient.DFN);
+  //HDS00005025
+  if BILLING_AWARE then
+    if Assigned(UBAGLOBALS.BAOrderList) then UBAGLOBALS.BAOrderList.Clear;
+  FUserCancelled := FALSE;
+  Close;
+end;
+
+  *)
+end;
+
+procedure TfrmPtSel.OpenPatient(NewSelectedPtIEN, InfoStr : string);
+//kt This function used to be named cmdOKClick.  I split into separate functions
+//   so that it can be called by AddNewPatient, and SearchForPatient functionality.
+//   However, after splitting the function, I see that many info pieces are needed
+//   from the cboPatient list, so substituting that is problematic.  It may be optional.
+//   6/3/10
+{ Checks for restrictions on the selected patient and sets up the Patient object. }
+const
+  DLG_CANCEL = False;
+  DGSR_FAIL = -1;
+  DGSR_NONE =  0;
+  DGSR_SHOW =  1;
+  DGSR_ASK  =  2;
+  DGSR_DENY =  3;
+var
+  NewDFN, AMsg: string;  //*DFN*
+  AccessStatus: Integer;
+  DateDied: TFMDateTime;
+begin
+  if (NewSelectedPtIEN='') then begin  //*DFN*
+    InfoBox('A patient has not been selected.', 'No Patient Selected', MB_OK);
+    Exit;
+  end;
+  NewDFN := NewSelectedPtIEN;  //*DFN*
+  if FLastPt <> NewDFN then begin
+    HasActiveFlg(FlagList, HasFlag, NewDFN);
+    flastpt := NewDFN;
+  end;
+
+  If DupLastSSN(NewDFN) then begin   // Check for, deal with duplicate patient data.
+    if (DupDFN = 'Cancel') then begin
+      Exit
+    end else begin
+      NewDFN := DupDFN;
+    end;
+  end;
+  CheckSensitiveRecordAccess(NewDFN, AccessStatus, AMsg);
+  case AccessStatus of
+    DGSR_FAIL: begin
+                 InfoBox(TX_DGSR_ERR, TC_DGSR_ERR, MB_OK);
+                 Exit;
+               end;
+    DGSR_NONE: { Nothing - allow access to the patient. };
+//  DGSR_SHOW: InfoBox(AMsg, TC_DGSR_SHOW, MB_OK);
+    DGSR_SHOW: InfoBox(DKLangConstW('ptSelWarning'), DKLangConstW('fPatSel_Restricted'), MB_OK);
+    DGSR_ASK:  if InfoBox(AMsg + TX_DGSR_YESNO, TC_DGSR_SHOW, MB_YESNO or MB_ICONWARNING or
+                 MB_DEFBUTTON2) = IDYES then LogSensitiveRecordAccess(NewDFN) else Exit;
+    else       begin
+                 InfoBox(AMsg, TC_DGSR_DENY, MB_OK);
+                 Exit;
+               end;
+  end; {case}
+  DateDied := DateOfDeath(NewDFN);
+  if (DateDied > 0) then begin
+    if InfoBox('This patient died ' +
+                FormatFMDateTime('mmm dd,yyyy hh:nn', DateDied) + CRLF +
+                'Do you wish to continue?', 'Deceased Patient',
+                MB_YESNO or MB_DEFBUTTON2) = ID_NO then begin
+      Exit;
+    end;
+  end;
+  // 9/23/2002: Code used to check for changed pt. DFN here, but since same patient could be
+  //    selected twice in diff. Encounter locations, check was removed and following code runs
+  //    no matter; in fFrame code then updates Encounter display if Encounter.Location has changed.
+  // NOTE: Some pieces in RPC returned arrays are modified/rearranged by ListPtByDflt call in rCore!
+  Patient.DFN := NewDFN;     // The patient object in uCore must have been created already!
+  Encounter.Clear;
+  Changes.Clear;             // An earlier call to ReviewChanges should have cleared this.
+  if (frmPtSelOptns.SrcType = TAG_SRC_CLIN) and (frmPtSelOptns.cboList.ItemIEN > 0)
+  and IsFMDateTime(Piece(InfoStr, U, 4)) then begin// Clinics, not by default.
+    Encounter.Location := frmPtSelOptns.cboList.ItemIEN;
+    Encounter.DateTime := MakeFMDateTime(Piece(InfoStr, U, 4));
+  end else if (frmPtSelOptns.SrcType = TAG_SRC_DFLT) and (DfltPtListSrc = 'C')
+  and IsFMDateTime(Piece(InfoStr, U, 4))
+  then begin // "Default" is a clinic.
+    Encounter.Location := StrToIntDef(Piece(InfoStr, U, 10), 0); // Piece 10 is ^SC( location IEN in this case.
+    Encounter.DateTime := MakeFMDateTime(Piece(InfoStr, U, 4));
+  end else if ((frmPtSelOptns.SrcType = TAG_SRC_DFLT) and (FDfltSrc = 'Combination')
+  and (copy(Piece(InfoStr, U, 3), 1, 2) = 'Cl'))
+  and (IsFMDateTime(Piece(InfoStr, U, 8)))
+  then begin// "Default" combination, clinic pt.
+    Encounter.Location := StrToIntDef(Piece(InfoStr, U, 7), 0); // Piece 7 is ^SC( location IEN in this case.
+    Encounter.DateTime := MakeFMDateTime(Piece(InfoStr, U, 8));
+  end else if Patient.Inpatient then begin// Everything else:
     Encounter.Inpatient := True;
     Encounter.Location := Patient.Location;
@@ -1211 +1329 @@
 end;
 
+procedure TfrmPtSel.btnSearchPtClick(Sender: TObject);
+var InfoStr : string;
+    IEN : int64;
+begin
+  frmPtQuery.InitializeForm('PATIENT', 2);
+  if frmPtQuery.ShowModal = mrOK then begin
+    cboPatient.InitLongList(frmPtQuery.SelectedName);
+    IEN := StrToInt64Def(frmPtQuery.SelectedIEN,0);
+    if IEN < 1 then exit;
+    cboPatient.SelectByIEN(IEN);
+    if cboPatient.ItemID = frmPtQuery.SelectedIEN then begin
+      InfoStr := cboPatient.Items[cboPatient.ItemIndex];
+    end else begin
+      InfoStr := '';
+    end;
+    OpenPatient(frmPtQuery.SelectedIEN, InfoStr);
+  end;
+end;
+
 Initialization
   SortViaKeyboard := false;