Procedure

TfrmDCSumm.mnuViewDetailClick

Module

fDCSumm

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmDCSumm

Declaration

procedure mnuViewDetailClick(Sender: TObject);

Calls Hierarchy


TfrmDCSumm.mnuViewDetailClick
 ├LoadDetailText
 └TfrmDCSumm.lstSummsClick
   ├MakeDCSummDisplayText
   ├LoadDocumentText
   ├TfrmDCSumm.DisplayPCE
   │ ├TPCEData.AddStrData
   │ │ ├Add
   │ │ ├TPCEData.StrVisitType
   │ │ │ ├GetPCEDataText
   │ │ │ │ └GetDiagnosisText
   │ │ │ ├TPCEProc.ModText
   │ │ │ │ └ModifierName
   │ │ │ │   └ModifierIdx
   │ │ │ │     ├TPCEData.VisitDateTime
   │ │ │ │     │ └TPCEData.IsSecondaryVisit
   │ │ │ │     ├FMToday
   │ │ │ │     │ └FMNow
   │ │ │ │     └MixedCaseModifier
   │ │ │ └TPCEData.StrVisitType
   │ │ │   └AddTxt
   │ │ ├TPCEData.StrDiagnoses
   │ │ │ └GetPCEDataText...
   │ │ ├TPCEData.StrProcedures
   │ │ │ ├GetPCEDataText...
   │ │ │ └TPCEProc.ModText...
   │ │ ├TPCEData.StrImmunizations
   │ │ │ └GetPCEDataText...
   │ │ ├TPCEData.StrSkinTests
   │ │ │ └GetPCEDataText...
   │ │ ├TPCEData.StrPatientEds
   │ │ │ └GetPCEDataText...
   │ │ ├TPCEData.StrHealthFactors
   │ │ │ └GetPCEDataText...
   │ │ └TPCEData.StrExams
   │ │   └GetPCEDataText...
   │ ├GetVitalsFromDate
   │ │ ├TPCEData.IsSecondaryVisit
   │ │ └GetVitalsFromEncDateTime
   │ ├TPCEData.AddVitalData
   │ │ └FormatVitalForNote
   │ │   └ConvertVitalData
   │ ├CanEditPCE
   │ │ ├GetAskPCE
   │ │ └FutureEncounter
   │ │   └FMToday...
   │ ├TfrmDCSumm.ShowPCEControls
   │ ├TfrmDrawers.DisplayDrawers
   │ │ └..(rec)..
   │ ├ActOnDocument
   │ ├TPCEData.PCEForNote
   │ │ ├TEncounter.GetVisitStr
   │ │ │ └TEncounter.GetVisitCategory
   │ │ ├VisitStrForNote
   │ │ ├TPCEData.GetVisitString
   │ │ │ └TPCEData.VisitDateTime...
   │ │ ├TPCEData.CopyPCEData
   │ │ │ ├TPCEData.Clear
   │ │ │ │ ├ClearList
   │ │ │ │ ├TPCEProc.Clear
   │ │ │ │ │ └TPCEItem.Clear
   │ │ │ │ │   └TPCEItem.SetComment
   │ │ │ │ └TPCEProviderList.Clear
   │ │ │ │   └TPCEProviderList.GetPrimaryIdx
   │ │ │ ├TPCEProc.CopyProc
   │ │ │ │ └TPCEItem.SetComment
   │ │ │ ├TPCEProviderList.Assign
   │ │ │ └TPCEData.CopyPCEItems
   │ │ │   └TPCEItem.Assign
   │ │ │     └TPCEItem.SetComment
   │ │ ├TPCEData.IsSecondaryVisit
   │ │ ├GetLocSecondaryVisitCode
   │ │ ├TPCEData.Clear...
   │ │ ├LoadPCEDataForNote
   │ │ ├ListVisitTypeByLoc
   │ │ ├SetRPCEncLocation
   │ │ ├SCCValue
   │ │ ├TPCEProviderList.Add
   │ │ │ ├TPCEProviderList.GetPrimaryIdx
   │ │ │ ├TPCEProviderList.IndexOfProvider
   │ │ │ └TPCEProviderList.SetPrimaryIdx
   │ │ │   ├TPCEProviderList.GetPrimaryIdx
   │ │ │   └TPCEProviderList.SetPrimary
   │ │ ├AppendComment
   │ │ ├TPCEDiag.SetFromString
   │ │ │ └TPCEItem.SetFromString
   │ │ │   └TPCEItem.SetComment
   │ │ ├TPCEProc.SetFromString
   │ │ │ └TPCEItem.SetFromString...
   │ │ ├TPCEImm.SetFromString
   │ │ │ └TPCEItem.SetFromString...
   │ │ ├TPCESkin.SetFromString
   │ │ │ ├TPCEItem.SetFromString...
   │ │ │ └StrToFMDateTime
   │ │ ├TPCEPat.SetFromString
   │ │ │ └TPCEItem.SetFromString...
   │ │ ├TPCEHealth.SetFromString
   │ │ │ └TPCEItem.SetFromString...
   │ │ └TPCEExams.SetFromString
   │ │   └TPCEItem.SetFromString...
   │ └GetVitalsFromNote
   │   ├TPCEData.IsSecondaryVisit
   │   ├GetVitalsFromEncDateTime
   │   └GetVitalFromNoteIEN
   └NotifyOtherApps
     ├AppNotificationEnabled
     │ └TNotifyAppsThread.CreateThread
     └TNotifyAppsThread.ResumeIfIdle

Calls

Name Declaration Comments
LoadDetailText procedure LoadDetailText(Dest: TStrings; IEN: Integer); -
TfrmDCSumm.lstSummsClick procedure lstSummsClick(Sender: TObject); -


Source

1990  procedure TfrmDCSumm.mnuViewDetailClick(Sender: TObject);
1991  begin
1992    inherited;
1993    if lstSumms.ItemIEN <= 0 then Exit;
1994    mnuViewDetail.Checked := not mnuViewDetail.Checked;
1995    if mnuViewDetail.Checked then
1996      begin
1997        StatusText('Retrieving discharge summary details...');
1998        Screen.Cursor := crHourGlass;
1999        LoadDetailText(memSumm.Lines, lstSumms.ItemIEN);
2000        Screen.Cursor := crDefault;
2001        StatusText('');
2002        memSumm.SelStart := 0;
2003        memSumm.Repaint;
2004      end
2005    else
2006      lstSummsClick(Self);
2007    SendMessage(memSumm.Handle, WM_VSCROLL, SB_TOP, 0);
2008  end;