This function returns Alcohol Source ID from external systems, for example Gp2Gp. If there is no Alcohol Source ID, the function creates a new one.
object.EnsureAlcoholSourceID()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatient interface |
string
Display alcohol source ID.
Dim aPatient
Dim aAlcoholSourceID
Set aPatient = Profile.SelectPatient
aAlcoholSourceID = aPatient.EnsureAlcoholSourceID
Profile.MsgBox (aAlcoholSourceID)
In Profile Client v8 on User Interface cannot be found.