ID of the partition the mapping object has been created in.
object.PartitionId
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISMappingObject interface |
int
Display the short information about the loaded mapping object, including its partition ID.
Dim aResult
Dim aPatientId
Dim aCaseId
Dim aCase
Dim aMessage
aResult = Profile.Lookup_PatientCaseSearch(aPatientId, aCaseId, "", true)
if not aResult then exit sub
Set aCase = Profile.OpenCase(aCaseId) 'ISCase inherits from ISMappingObject
aMessage = aCase.CaseTitle & vbNewLine &_
"GUID: " & aCase.GUID & vbNewLine &_
"OID: " & aCase.OID & vbNewLine &_
"PartitionId: " & aCase.PartitionId & vbNewLine &_
"IsNew: " & aCase.IsNew
Profile.MsgBox(aMessage)