Procedure

TPCEExams.Assign

Directives

Override

Module

uPCE

Last Modified

7/15/2014 3:26:36 PM

Comments

TPCEExams methods -------------------------------------------------------------------------

Visibility

Public

Overrides

TPCEItem.Assign

Owner

TPCEExams

Declaration

procedure Assign(Src: TPCEItem); override;

Calls Hierarchy


TPCEExams.Assign
 └TPCEItem.Assign
   └TPCEItem.SetComment

Called-By Hierarchy


                         TPCEExams.Assign
                      TPCEData.SetExams┘ 
                                  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.SetExams procedure SetExams(Src: TStrings; FromForm: boolean = TRUE); -


Source

1009  procedure TPCEExams.Assign(Src: TPCEItem);
1010  begin
1011    inherited Assign(Src);
1012    Results := TPCEExams(Src).Results;
1013    if Results = '' then Results := NoPCEValue;
1014  end;