Procedure

TfrmFrame.CheckForDifferentPatient

Module

fFrame

Last Modified

3/11/2015 8:41:44 AM

Visibility

Private

Owner

TfrmFrame

Declaration

procedure CheckForDifferentPatient(aContextItemCollection: IDispatch; var PtChanged: boolean);

Calls Hierarchy


TfrmFrame.CheckForDifferentPatient
 └TfrmFrame.FindBestCCOWDFN
   ├TContextorControl.Get_CurrentContext
   │ └TContextorControl.GetControlInterface
   │   └TContextorControl.CreateControl
   │     └DoCreate
   ├TfrmFrame.HandleCCOWError
   ├TfrmFrame.HideEverything
   ├GetDFNFromICN
   └FindNextBestDFN

Called-By Hierarchy


 TfrmFrame.CheckForDifferentPatient
    TfrmFrame.ctxContextorPending┤ 
   TfrmFrame.StartCCOWContextor┘ │ 
         TfrmFrame.FormCreate┘   │ 
  TfrmFrame.ctxContextorCommitted┘ 
TfrmFrame.StartCCOWContextor...┘   

Calls

Name Declaration Comments
TfrmFrame.FindBestCCOWDFN function FindBestCCOWDFN: string; -

Called-By

Name Declaration Comments
TfrmFrame.ctxContextorCommitted procedure ctxContextorCommitted(Sender: TObject); -
TfrmFrame.ctxContextorPending procedure ctxContextorPending(Sender: TObject; const aContextItemCollection: IDispatch); -


Source

4134  procedure TfrmFrame.CheckForDifferentPatient(aContextItemCollection: IDispatch; var PtChanged: boolean);
4135  var
4136    data : IContextItemCollection;
4137    anItem: IContextItem;
4138    PtDFN, PtName: string;
4139  begin
4140    if uCore.Patient = nil then
4141    begin
4142      PtChanged := False;
4143      Exit;
4144    end;
4145    data := IContextItemCollection(aContextItemCollection) ;
4146    //PtDFN := FindBestCCOWDFN(PtName);
4147    PtDFN := FindBestCCOWDFN;
4148    // Retrieve the ContextItem name and value as strings
4149    anItem := data.Present('Patient.co.PatientName');
4150    if anItem <> nil then PtName := anItem.Get_Value();
4151    PtChanged := not ((PtDFN = Patient.DFN) and (PtName = Piece(Patient.Name, ',', 1) + U + Piece(Patient.Name, ',', 2) + '^^^^'));
4152  end;