/// <summary>
/// Graphs an object to the specified stream
/// </summary>
public void Graph(System.Xml.XmlWriter s, object o, MARC.Everest.Interfaces.IGraphable context, XmlIts1FormatterGraphResult resultContext)
{
ResultCode rc = ResultCode.Accepted;
Type instanceType = o.GetType();
// Verify o is not null
if (o == null) throw new System.ArgumentNullException("o");
// Attempt to get null flavor
var nfp = o.GetType().GetProperty("NullFlavor");
bool isInstanceNull = false,
isEntryPoint = false;
if (nfp != null)
isInstanceNull = nfp.GetValue(o, null) != null;
// Interaction?
object[] structureAttributes = instanceType.GetCustomAttributes(typeof(StructureAttribute), false);
StructureAttribute structureAttribute = structureAttributes[0] as StructureAttribute;
if (structureAttribute.StructureType == StructureAttribute.StructureAttributeType.Interaction)
{
isEntryPoint = true;
s.WriteStartElement(structureAttribute.Name, structureAttribute.NamespaceUri);
s.WriteAttributeString("ITSVersion","XML_1.0"); // Add ITS version
s.WriteAttributeString("xmlns", "xsi", null, XmlIts1Formatter.NS_XSI);
}
else if (structureAttribute.IsEntryPoint && (s is MARC.Everest.Xml.XmlStateWriter && (s as MARC.Everest.Xml.XmlStateWriter).ElementStack.Count == 0 || s.WriteState == System.Xml.WriteState.Start))
{
isEntryPoint = true;
if (isEntryPoint)
{
s.WriteStartElement(structureAttribute.Name, structureAttribute.NamespaceUri);
s.WriteAttributeString("xmlns", "xsi", null, XmlIts1Formatter.NS_XSI);
}
}
// Validate
this.Host.ValidateHelper(s, o as IGraphable, this, resultContext);
// Reflect the properties and ensure they are in the appropriate order
List<PropertyInfo> buildProperties = GetBuildProperties(instanceType);
// Attributes first
foreach (var pi in buildProperties)
{
object[] propertyAttributes = pi.GetCustomAttributes(typeof(PropertyAttribute), false);
object instance = pi.GetValue(o, null);
if (propertyAttributes.Length == 1) // Not a choice
{
PropertyAttribute pa = propertyAttributes[0] as PropertyAttribute;
// Validation Rule Change: We'll require the user to perform this
// Is this a required attribute that is null? We'll set a null flavor
if ((pa.Conformance == PropertyAttribute.AttributeConformanceType.Required || pa.Conformance == PropertyAttribute.AttributeConformanceType.Populated) &&
pa.PropertyType != PropertyAttribute.AttributeAttributeType.Structural &&
pi.PropertyType.GetProperty("NullFlavor") != null &&
!pi.PropertyType.IsAbstract &&
pi.CanWrite)
{
var nullFlavorProperty = pi.PropertyType.GetProperty("NullFlavor");
// Locate the default property
if (instance == null && Host.CreateRequiredElements && nullFlavorProperty != null)
{
ConstructorInfo ci = pi.PropertyType.GetConstructor(Type.EmptyTypes);
instance = ci.Invoke(null);
nullFlavorProperty.SetValue(instance, Util.FromWireFormat("NI", nullFlavorProperty.PropertyType), null);
}
}
// Property type
switch (pa.PropertyType)
{
case PropertyAttribute.AttributeAttributeType.Structural:
if ((Host.Settings & SettingsType.SuppressNullEnforcement) == 0)
{
if (instance != null && !isInstanceNull)
s.WriteAttributeString(pa.Name, Util.ToWireFormat(instance));
else if (isInstanceNull && pi.Name == "NullFlavor")
Host.WriteNullFlavorUtil(s, (IGraphable)instance);
}
else if (instance != null)
{
if (instance != null && pi.Name == "NullFlavor")
Host.WriteNullFlavorUtil(s, (IGraphable)instance);
else if (instance != null)
s.WriteAttributeString(pa.Name, Util.ToWireFormat(instance));
}
break;
default:
// Instance is null
if (instance == null)
continue;
else if (isInstanceNull && (Host.Settings & (SettingsType.SuppressNullEnforcement | SettingsType.SuppressXsiNil)) != 0)
resultContext.AddResultDetail(new FormalConstraintViolationResultDetail(ResultDetailType.Information, "The context is null however SuppressNullEnforcement and SuppressXsiNil are set, therefore elements will be graphed. This is not necessarily HL7v3 compliant", s.ToString(), null));
else if (isInstanceNull)
continue;
// Impose flavors or code?
if (pa.DefaultUpdateMode != MARC.Everest.DataTypes.UpdateMode.Unknown &&
pi.PropertyType.GetProperty("UpdateMode") != null &&
pi.PropertyType.GetProperty("UpdateMode").GetValue(instance, null) == null &&
(this.Host.Settings & SettingsType.AllowUpdateModeImposing) == SettingsType.AllowUpdateModeImposing)
pi.PropertyType.GetProperty("UpdateMode").SetValue(instance, Util.FromWireFormat(pa.DefaultUpdateMode, pi.PropertyType.GetProperty("UpdateMode").PropertyType), null);
if (pa.ImposeFlavorId != null &&
instance is IAny &&
(Host.Settings & SettingsType.AllowFlavorImposing) == SettingsType.AllowFlavorImposing)
(instance as IAny).Flavor = pa.ImposeFlavorId;
if (pa.SupplierDomain != null &&
instance is ICodedValue &&
(instance as ICodedSimple).CodeValue != null &&
(instance as ICodedValue).CodeSystem == null &&
(instance as IImplementsNullFlavor).NullFlavor == null &&
(Host.Settings & SettingsType.AllowSupplierDomainImposing) == SettingsType.AllowSupplierDomainImposing)
(instance as ICodedValue).CodeSystem = pa.SupplierDomain;
// Instance is graphable
if (instance is IGraphable)
{
// Ensure the data is not empty
if (instance is IColl && (instance as IColl).IsEmpty && (instance as IImplementsNullFlavor).NullFlavor == null)
continue;
Host.WriteElementUtil(s, pa.NamespaceUri, pa.Name, instance as IGraphable, pi.PropertyType, context, resultContext);
}
else if (instance is ICollection)
{
Type genType = pi.PropertyType.GetGenericArguments()[0];
foreach (object itm in (instance as ICollection))
Host.WriteElementUtil(s, pa.NamespaceUri, pa.Name, itm as IGraphable, genType, context, resultContext);
}
else
s.WriteElementString(pa.Name, instance.ToString());
break;
}
}
else if(propertyAttributes.Length > 1) // Choice
{
// Instance is null
if (instance == null)
continue;
else if (isInstanceNull && (Host.Settings & (SettingsType.SuppressNullEnforcement | SettingsType.SuppressXsiNil)) != 0)
resultContext.AddResultDetail(new FormalConstraintViolationResultDetail(ResultDetailType.Information, "The context is null however SuppressNullEnforcement and SuppressXsiNil are set, therefore elements will be graphed. This is not necessarily HL7v3 compliant", s.ToString(), null));
else if (isInstanceNull)
continue;
#if WINDOWS_PHONE
PropertyAttribute formatAs = propertyAttributes.Find(cpa => (cpa as PropertyAttribute).Type == null) as PropertyAttribute;
#else
PropertyAttribute formatAs = Array.Find(propertyAttributes, cpa => (cpa as PropertyAttribute).Type == null) as PropertyAttribute;
#endif
// Search by type and interaction
foreach (PropertyAttribute pa in propertyAttributes)
{
if (pa.Type != null && instance.GetType() == pa.Type && (context != null && context.GetType() == pa.InteractionOwner || (pa.InteractionOwner == null && formatAs == null)))
{
formatAs = pa;
if(context == null || context.GetType() == formatAs.InteractionOwner)
break;
}
}
// Slow check
if (formatAs == null && (this.Host.Settings & SettingsType.AlwaysCheckForOverrides) != 0)
{
foreach (PropertyAttribute pa in propertyAttributes)
{
if (pa.Type != null && pa.Type.IsAssignableFrom(instance.GetType()) && (context != null && context.GetType() == pa.InteractionOwner || (pa.InteractionOwner == null && formatAs == null)))
{
formatAs = pa;
if (context == null || context.GetType() == formatAs.InteractionOwner)
break;
}
}
}
//if(formatAs == null) // try to find a regular choice
// foreach(PropertyAttribute pa in propertyAttributes)
// if (pa.Type != null && instance.GetType() == pa.Type)
// {
// formatAs = pa;
// break;
// }
// Format
if (formatAs == null)
resultContext.AddResultDetail(new NotSupportedChoiceResultDetail(ResultDetailType.Error, String.Format("Type {0} is not a valid choice according to available choice elements and won't be formatted", instance.GetType()), s.ToString(), null));
else if (instance.GetType().GetInterface("MARC.Everest.Interfaces.IGraphable", false) != null) // Non Graphable
Host.WriteElementUtil(s, formatAs.NamespaceUri, formatAs.Name, (MARC.Everest.Interfaces.IGraphable)instance, formatAs.Type, context, resultContext);
else if (instance.GetType().GetInterface("System.Collections.IEnumerable", false) != null) // List
foreach (MARC.Everest.Interfaces.IGraphable ig in instance as IEnumerable) { Host.WriteElementUtil(s, formatAs.NamespaceUri, formatAs.Name, ig, instance.GetType(), context, resultContext); }
else // Not recognized
s.WriteElementString(formatAs.Name, formatAs.NamespaceUri, instance.ToString());
}
}
// Is Entry point
if (isEntryPoint)
s.WriteEndElement();
}
/// <summary>
/// Graphs an object to the specified stream
/// </summary>
public void Graph(System.Xml.XmlWriter s, object o, MARC.Everest.Interfaces.IGraphable context, XmlIts1FormatterGraphResult resultContext)
{
ResultCode rc = ResultCode.Accepted;
Type instanceType = o.GetType();
// Verify o is not null
if (o == null)
{
throw new System.ArgumentNullException("o");
}
// Attempt to get null flavor
var nfp = o.GetType().GetProperty("NullFlavor");
bool isInstanceNull = false,
isEntryPoint = false;
if (nfp != null)
{
isInstanceNull = nfp.GetValue(o, null) != null;
}
// Interaction?
object[] structureAttributes = instanceType.GetCustomAttributes(typeof(StructureAttribute), false);
StructureAttribute structureAttribute = structureAttributes[0] as StructureAttribute;
if (structureAttribute.StructureType == StructureAttribute.StructureAttributeType.Interaction)
{
isEntryPoint = true;
s.WriteStartElement(structureAttribute.Name, structureAttribute.NamespaceUri);
s.WriteAttributeString("ITSVersion", "XML_1.0"); // Add ITS version
s.WriteAttributeString("xmlns", "xsi", null, XmlIts1Formatter.NS_XSI);
}
else if (structureAttribute.IsEntryPoint && (s is MARC.Everest.Xml.XmlStateWriter && (s as MARC.Everest.Xml.XmlStateWriter).ElementStack.Count == 0 || s.WriteState == System.Xml.WriteState.Start))
{
isEntryPoint = true;
if (isEntryPoint)
{
s.WriteStartElement(structureAttribute.Name, structureAttribute.NamespaceUri);
s.WriteAttributeString("xmlns", "xsi", null, XmlIts1Formatter.NS_XSI);
}
}
// Validate
this.Host.ValidateHelper(s, o as IGraphable, this, resultContext);
// Reflect the properties and ensure they are in the appropriate order
List <PropertyInfo> buildProperties = GetBuildProperties(instanceType);
// Attributes first
foreach (var pi in buildProperties)
{
object[] propertyAttributes = pi.GetCustomAttributes(typeof(PropertyAttribute), false);
object instance = pi.GetValue(o, null);
if (propertyAttributes.Length == 1) // Not a choice
{
PropertyAttribute pa = propertyAttributes[0] as PropertyAttribute;
// Validation Rule Change: We'll require the user to perform this
// Is this a required attribute that is null? We'll set a null flavor
if ((pa.Conformance == PropertyAttribute.AttributeConformanceType.Required || pa.Conformance == PropertyAttribute.AttributeConformanceType.Populated) &&
pa.PropertyType != PropertyAttribute.AttributeAttributeType.Structural &&
pi.PropertyType.GetProperty("NullFlavor") != null &&
!pi.PropertyType.IsAbstract &&
pi.CanWrite)
{
var nullFlavorProperty = pi.PropertyType.GetProperty("NullFlavor");
// Locate the default property
if (instance == null && Host.CreateRequiredElements && nullFlavorProperty != null)
{
ConstructorInfo ci = pi.PropertyType.GetConstructor(Type.EmptyTypes);
instance = ci.Invoke(null);
nullFlavorProperty.SetValue(instance, Util.FromWireFormat("NI", nullFlavorProperty.PropertyType), null);
}
}
// Property type
switch (pa.PropertyType)
{
case PropertyAttribute.AttributeAttributeType.Structural:
if ((Host.Settings & SettingsType.SuppressNullEnforcement) == 0)
{
if (instance != null && !isInstanceNull)
{
s.WriteAttributeString(pa.Name, Util.ToWireFormat(instance));
}
else if (isInstanceNull && pi.Name == "NullFlavor")
{
Host.WriteNullFlavorUtil(s, (IGraphable)instance);
}
}
else if (instance != null)
{
if (instance != null && pi.Name == "NullFlavor")
{
Host.WriteNullFlavorUtil(s, (IGraphable)instance);
}
else if (instance != null)
{
s.WriteAttributeString(pa.Name, Util.ToWireFormat(instance));
}
}
break;
default:
// Instance is null
if (instance == null)
{
continue;
}
else if (isInstanceNull && (Host.Settings & (SettingsType.SuppressNullEnforcement | SettingsType.SuppressXsiNil)) != 0)
{
resultContext.AddResultDetail(new FormalConstraintViolationResultDetail(ResultDetailType.Information, "The context is null however SuppressNullEnforcement and SuppressXsiNil are set, therefore elements will be graphed. This is not necessarily HL7v3 compliant", s.ToString(), null));
}
else if (isInstanceNull)
{
continue;
}
// Impose flavors or code?
if (pa.DefaultUpdateMode != MARC.Everest.DataTypes.UpdateMode.Unknown &&
pi.PropertyType.GetProperty("UpdateMode") != null &&
pi.PropertyType.GetProperty("UpdateMode").GetValue(instance, null) == null &&
(this.Host.Settings & SettingsType.AllowUpdateModeImposing) == SettingsType.AllowUpdateModeImposing)
{
pi.PropertyType.GetProperty("UpdateMode").SetValue(instance, Util.FromWireFormat(pa.DefaultUpdateMode, pi.PropertyType.GetProperty("UpdateMode").PropertyType), null);
}
if (pa.ImposeFlavorId != null &&
instance is IAny &&
(Host.Settings & SettingsType.AllowFlavorImposing) == SettingsType.AllowFlavorImposing)
{
(instance as IAny).Flavor = pa.ImposeFlavorId;
}
if (pa.SupplierDomain != null &&
instance is ICodedValue &&
(instance as ICodedSimple).CodeValue != null &&
(instance as ICodedValue).CodeSystem == null &&
(instance as IImplementsNullFlavor).NullFlavor == null &&
(Host.Settings & SettingsType.AllowSupplierDomainImposing) == SettingsType.AllowSupplierDomainImposing)
{
(instance as ICodedValue).CodeSystem = pa.SupplierDomain;
}
// Instance is graphable
if (instance is IGraphable)
{
// Ensure the data is not empty
if (instance is IColl && (instance as IColl).IsEmpty && (instance as IImplementsNullFlavor).NullFlavor == null)
{
continue;
}
Host.WriteElementUtil(s, pa.NamespaceUri, pa.Name, instance as IGraphable, pi.PropertyType, context, resultContext);
}
else if (instance is ICollection)
{
Type genType = pi.PropertyType.GetGenericArguments()[0];
foreach (object itm in (instance as ICollection))
{
Host.WriteElementUtil(s, pa.NamespaceUri, pa.Name, itm as IGraphable, genType, context, resultContext);
}
}
else
{
s.WriteElementString(pa.Name, instance.ToString());
}
break;
}
}
else if (propertyAttributes.Length > 1) // Choice
{
// Instance is null
if (instance == null)
{
continue;
}
else if (isInstanceNull && (Host.Settings & (SettingsType.SuppressNullEnforcement | SettingsType.SuppressXsiNil)) != 0)
{
resultContext.AddResultDetail(new FormalConstraintViolationResultDetail(ResultDetailType.Information, "The context is null however SuppressNullEnforcement and SuppressXsiNil are set, therefore elements will be graphed. This is not necessarily HL7v3 compliant", s.ToString(), null));
}
else if (isInstanceNull)
{
continue;
}
#if WINDOWS_PHONE
PropertyAttribute formatAs = propertyAttributes.Find(cpa => (cpa as PropertyAttribute).Type == null) as PropertyAttribute;
#else
PropertyAttribute formatAs = Array.Find(propertyAttributes, cpa => (cpa as PropertyAttribute).Type == null) as PropertyAttribute;
#endif
// Search by type and interaction
foreach (PropertyAttribute pa in propertyAttributes)
{
if (pa.Type != null && instance.GetType() == pa.Type && (context != null && context.GetType() == pa.InteractionOwner || (pa.InteractionOwner == null && formatAs == null)))
{
formatAs = pa;
if (context == null || context.GetType() == formatAs.InteractionOwner)
{
break;
}
}
}
// Slow check
if (formatAs == null && (this.Host.Settings & SettingsType.AlwaysCheckForOverrides) != 0)
{
foreach (PropertyAttribute pa in propertyAttributes)
{
if (pa.Type != null && pa.Type.IsAssignableFrom(instance.GetType()) && (context != null && context.GetType() == pa.InteractionOwner || (pa.InteractionOwner == null && formatAs == null)))
{
formatAs = pa;
if (context == null || context.GetType() == formatAs.InteractionOwner)
{
break;
}
}
}
}
//if(formatAs == null) // try to find a regular choice
// foreach(PropertyAttribute pa in propertyAttributes)
// if (pa.Type != null && instance.GetType() == pa.Type)
// {
// formatAs = pa;
// break;
// }
// Format
if (formatAs == null)
{
resultContext.AddResultDetail(new NotSupportedChoiceResultDetail(ResultDetailType.Error, String.Format("Type {0} is not a valid choice according to available choice elements and won't be formatted", instance.GetType()), s.ToString(), null));
}
else if (instance.GetType().GetInterface("MARC.Everest.Interfaces.IGraphable", false) != null) // Non Graphable
{
Host.WriteElementUtil(s, formatAs.NamespaceUri, formatAs.Name, (MARC.Everest.Interfaces.IGraphable)instance, formatAs.Type, context, resultContext);
}
else if (instance.GetType().GetInterface("System.Collections.IEnumerable", false) != null) // List
{
foreach (MARC.Everest.Interfaces.IGraphable ig in instance as IEnumerable)
{
Host.WriteElementUtil(s, formatAs.NamespaceUri, formatAs.Name, ig, instance.GetType(), context, resultContext);
}
}
else // Not recognized
{
s.WriteElementString(formatAs.Name, formatAs.NamespaceUri, instance.ToString());
}
}
}
// Is Entry point
if (isEntryPoint)
{
s.WriteEndElement();
}
}
