Procedure

TfrmRemDlg.btnVisitClick

Module

fReminderDialog

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmRemDlg

Declaration

procedure btnVisitClick(Sender: TObject);

Calls Hierarchy


TfrmRemDlg.btnVisitClick
 ├FMNow
 ├TfrmBase508Form.Create
 │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ ├UnfocusableControlEnter
 │ └AdjustControls
 │   ├TfrmBase508Form.ModifyUnfocusableControl
 │   └..(rec)..
 ├TfraVisitRelated.InitAllow
 │ └TfraVisitRelated.SetCheckEnable
 ├TfraVisitRelated.InitRelated
 │ └TfraVisitRelated.SetCheckState
 │   └TfraVisitRelated.chkClick
 │     ├DisableCheck
 │     └TfraVisitRelated.SetCheckEnable
 ├TfraVisitRelated.GetRelated
 │ └TfraVisitRelated.GetCheckState
 └TfrmRemDlg.UpdateText
   ├TReminderDialog.AddText
   │ ├TRemDlgElement.AddText
   │ │ ├TRemDlgElement.Add2PN
   │ │ │ ├TRemDlgElement.ElemType
   │ │ │ └TRemDlgElement.AddData
   │ │ │   ├TRemDlgElement.Historical
   │ │ │   ├TPCEData.VisitDateTime
   │ │ │   │ └TPCEData.IsSecondaryVisit
   │ │ │   ├TRemData.AddData
   │ │ │   │ ├Add
   │ │ │   │ │ ├Code2DataType
   │ │ │   │ │ ├TRemDlgElement.Historical
   │ │ │   │ │ ├TRemPrompt.GetValue
   │ │ │   │ │ │ ├TRemDlgElement.Historical
   │ │ │   │ │ │ ├TPCEData.VisitDateTime...
   │ │ │   │ │ │ ├TRemPrompt.RemDataActive
   │ │ │   │ │ │ │ └TRemPrompt.CompareActiveDate
   │ │ │   │ │ │ └TRemPrompt.RemDataChoiceActive
   │ │ │   │ │ ├TPCEData.VisitDateTime...
   │ │ │   │ │ ├ValidateGAFDate
   │ │ │   │ │ │ ├TPatient.GetDateDied
   │ │ │   │ │ │ │ └DateOfDeath
   │ │ │   │ │ │ └FMToday
   │ │ │   │ │ │   └FMNow
   │ │ │   │ │ ├TPCEProviderList.PCEProvider
   │ │ │   │ │ │ ├Check
   │ │ │   │ │ │ │ └TPCEProviderList.IndexOfProvider
   │ │ │   │ │ │ └TPCEProviderList.PrimaryIEN
   │ │ │   │ │ │   └TPCEProviderList.GetPrimaryIdx
   │ │ │   │ │ ├AddPrompt
   │ │ │   │ │ │ ├TRemPrompt.PromptType
   │ │ │   │ │ │ │ └Code2PromptType
   │ │ │   │ │ │ ├TPCEProviderList.PCEProvider...
   │ │ │   │ │ │ ├TPCEData.VisitDateTime...
   │ │ │   │ │ │ ├TRemPrompt.VitalValue
   │ │ │   │ │ │ │ └TRemPrompt.GetValue...
   │ │ │   │ │ │ ├TRemPrompt.VitalType
   │ │ │   │ │ │ │ ├Code2VitalType
   │ │ │   │ │ │ │ └TRemData.InternalValue
   │ │ │   │ │ │ ├TRemPrompt.VitalUnitValue
   │ │ │   │ │ │ │ ├TRemPrompt.VitalType...
   │ │ │   │ │ │ │ └TRemPrompt.GetValue...
   │ │ │   │ │ │ ├ConvertVital
   │ │ │   │ │ │ ├FormatVitalForNote
   │ │ │   │ │ │ │ └ConvertVitalData
   │ │ │   │ │ │ ├TRemPrompt.GetValue...
   │ │ │   │ │ │ └TRemDlgElement.Historical
   │ │ │   │ │ └GetPCEDataText
   │ │ │   │ │   └GetDiagnosisText
   │ │ │   │ ├TRemDlgElement.Historical
   │ │ │   │ └TPCEData.VisitDateTime...
   │ │ │   ├TRemDlgElement.ElemType
   │ │ │   └..(rec)..
   │ │ ├TRemDlgElement.IndentPNLevel
   │ │ │ ├..(rec)..
   │ │ │ └TRemDlgElement.IndentChildrenInPN
   │ │ ├CurrentReminderInDialog
   │ │ ├ResolveTemplateFields
   │ │ │ ├TTemplateDialogEntry.GetControlText
   │ │ │ │ ├GetTemplateField
   │ │ │ │ │ ├LoadTemplateFieldByIEN
   │ │ │ │ │ ├LoadTemplateField
   │ │ │ │ │ └TTemplateField.Create
   │ │ │ │ │   ├TemplateFieldCode2Field
   │ │ │ │ │   └TemplateDateCode2DateType
   │ │ │ │ ├GetOriginalItem
   │ │ │ │ │ ├GetTemplateField...
   │ │ │ │ │ └StripEmbedded
   │ │ │ │ └TfraTemplateFieldButton.GetButtonText
   │ │ │ ├GetTemplateField...
   │ │ │ ├AddNewTxt
   │ │ │ └WordWrapText
   │ │ │   └WrappedText
   │ │ ├TRemDlgElement.GetFieldValues
   │ │ │ ├TRemDlgElement.ElemType
   │ │ │ └..(rec)..
   │ │ ├TRemDlgElement.GetTemplateFieldValues
   │ │ │ ├GetTemplateField...
   │ │ │ ├TTemplateField.GetTemplateFieldDefault
   │ │ │ │ └StripEmbedded
   │ │ │ └AddNewTxt
   │ │ ├StripScreenReaderCodes
   │ │ ├WordWrap
   │ │ │ ├StripScreenReaderCodes
   │ │ │ └InitText
   │ │ ├TRemDlgElement.ElemType
   │ │ └..(rec)..
   │ ├TReminderDialog.GetPrintName
   │ └StripScreenReaderCodes
   ├ClinRemText
   │ └GetProgressNoteHeader
   └TPCEData.StrVisitType
     └AddTxt

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -
FMNow function FMNow: TFMDateTime; -
TfraVisitRelated.GetRelated procedure GetRelated(var ASCRelated, AAORelated, AIRRelated, AECRelated, AMSTRelated, AHNCRelated, ACVRelated,ASHDRelated: integer); overload; -
TfraVisitRelated.InitAllow procedure InitAllow(SCCond: TSCConditions); -
TfraVisitRelated.InitRelated procedure InitRelated(const ASCRelated, AAORelated, AIRRelated, AECRelated, AMSTRelated, AHNCRelated, ACVRelated,ASHDRelated: integer); overload; -
TfrmRemDlg.UpdateText procedure UpdateText(Sender: TObject); -


Source

1752  procedure TfrmRemDlg.btnVisitClick(Sender: TObject);
1753  var
1754    frmRemVisitInfo: TfrmRemVisitInfo;
1755    VitalsDate: TFMDateTime;
1756  
1757  begin
1758    if fVitalsDate = 0 then
1759      VitalsDate := FMNow  //AGP Change 26.1
1760    else
1761      VitalsDate := fVitalsDate;
1762    frmRemVisitInfo := TfrmRemVisitInfo.Create(Self);
1763    try
1764      frmRemVisitInfo.fraVisitRelated.InitAllow(FSCCond);
1765      frmRemVisitInfo.fraVisitRelated.InitRelated(FSCRelated, FAORelated,
1766                  FIRRelated, FECRelated, FMSTRelated, FHNCRelated, FCVRelated, FSHDRelated);
1767      frmRemVisitInfo.dteVitals.FMDateTime := VitalsDate;
1768      frmRemVisitInfo.ShowModal;
1769      if frmRemVisitInfo.ModalResult = mrOK then
1770      begin
1771        VitalsDate := frmRemVisitInfo.dteVitals.FMDateTime;
1772        if VitalsDate <= FMNow then
1773          fVitalsDate := VitalsDate;
1774        frmRemVisitInfo.fraVisitRelated.GetRelated(FSCRelated, FAORelated,
1775                  FIRRelated, FECRelated, FMSTRelated, FHNCRelated, FCVRelated, FSHDRelated);
1776        FSCPrompt := FALSE;
1777        UpdateText(nil);
1778      end;
1779    finally
1780      frmRemVisitInfo.Free;
1781    end;
1782  end;