Procedure

TPCEHealth.Assign

Directives

Override

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Comments

TPCEHealth methods -------------------------------------------------------------------------

Visibility

Public

Overrides

TPCEItem.Assign

Owner

TPCEHealth

Declaration

procedure Assign(Src: TPCEItem); override;

Calls Hierarchy


TPCEHealth.Assign
 └TPCEItem.Assign
   └TPCEItem.SetComment

Called-By Hierarchy


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


Source

1162  procedure TPCEHealth.Assign(Src: TPCEItem);
1163  begin
1164    inherited Assign(Src);
1165    Level := TPCEHealth(Src).Level;
1166    if Level = '' then Level := NoPCEValue;
1167  end;