Procedure

TPCEPat.Assign

Directives

Override

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Comments

TPCEPat methods -------------------------------------------------------------------------

Visibility

Public

Overrides

TPCEItem.Assign

Owner

TPCEPat

Declaration

procedure Assign(Src: TPCEItem); override;

Calls Hierarchy


TPCEPat.Assign
 └TPCEItem.Assign
   └TPCEItem.SetComment

Called-By Hierarchy


                           TPCEPat.Assign
                 TPCEData.SetPatientEds┘ 
                                  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.SetPatientEds Procedure SetPatientEds(Src: TStrings; FromForm: boolean = TRUE); -


Source

1459  procedure TPCEPat.Assign(Src: TPCEItem);
1460  begin
1461    inherited Assign(Src);
1462    Level := TPCEPat(Src).Level;
1463    if Level = '' then Level := NoPCEValue;
1464  end;