Procedure

TPCEDiag.Assign

Directives

Override

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Comments

TPCEDiag methods -------------------------------------------------------------------------

Visibility

Public

Overrides

TPCEItem.Assign

Owner

TPCEDiag

Declaration

procedure Assign(Src: TPCEItem); override;

Calls Hierarchy


TPCEDiag.Assign
 └TPCEItem.Assign
   └TPCEItem.SetComment

Called-By Hierarchy


                          TPCEDiag.Assign
                  TPCEData.SetDiagnoses┘ 
                                  Add┤   
          TfrmRemDlg.btnFinishClick┘ │   
   TfrmEncounterFrame.UpdateEncounter┘   
        TfrmEncounterFrame.SendData┤     
TfrmEncounterFrame.FormCloseQuery┘ │     
  TfrmEncounterFrame.FormCloseQuery┘     

Calls

Name Declaration Comments
TPCEItem.Assign procedure Assign(Src: TPCEItem); virtual; -

Called-By

Name Declaration Comments
TPCEData.SetDiagnoses procedure SetDiagnoses(Src: TStrings; FromForm: boolean = TRUE); -


Source

1521  procedure TPCEDiag.Assign(Src: TPCEItem);
1522  begin
1523    inherited Assign(Src);
1524    Primary    := TPCEDiag(Src).Primary;
1525    AddProb    := TPCEDiag(Src).AddProb;
1526  end;