Procedure

TEncounter.CreateSaved

Module

uCore

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public

Owner

TEncounter

Declaration

procedure CreateSaved(Reason: string);

Calls Hierarchy


TEncounter.CreateSaved
 ├TEncounter.GetLocationName
 │ └TEncounter.UpdateText
 │   └GetEncounterText
 ├TEncounter.GetLocationText
 │ └TEncounter.UpdateText...
 └TEncounter.GetVisitCategory

Calls

Name Declaration Comments
TEncounter.GetLocationName function GetLocationName: string; -
TEncounter.GetLocationText function GetLocationText: string; -
TEncounter.GetVisitCategory function GetVisitCategory: Char; -


Source

867   procedure TEncounter.CreateSaved(Reason: string);
868   begin
869       SavedEncounterLoc := Encounter.Location;
870       SavedEncounterLocName := Encounter.LocationName;
871       SavedEncounterText := Encounter.LocationText;
872       SavedEncounterDateTime := Encounter.DateTime;
873       SavedEncounterVisitCat := Encounter.VisitCategory;
874       SavedEncounterReason := Reason;
875   end;