Method TestEditContact()
{
set contact=##class(MyPackage.Contact).%OpenId(1)
set contact.Name="Rockwell,Norman"
set contact.ContactType="Friend"
Do $$$AssertStatusNotOK(contact.%Save(),"ContactType = Friend")
Set contact.ContactType="Personal"
Do $$$AssertStatusOK(contact.%Save(),"ContactType = Personal")
}