This function returns Globally Unique Identifier of the patient's social history. If there is no Social History GUID, the function creates a new one.
object.EnsureSocialHistoryGUID()
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatient interface |
string
Display social history GUID.
Dim aPatient
Dim aSocialHistoryGUID
Set aPatient = Profile.SelectPatient
aSocialHistoryGUID = aPatient.EnsureSocialHistoryGUID
Profile.MsgBox (aSocialHistoryGUID) In Profile Client v8 on User Interface cannot be found.