anchor.diff:    ) >> List.concat
   
   /// Function to interpret a single FormXml
  -let interpretFormXml (enums:Map<string,TsType>) (bpfFields: ControlField list option) (systemForm:Entity) =
  +let interpretFormXml (enums:Map<string,TsType>) (bpfFields: ControlField list option) entity (systemForm:Entity) =
     let bpfFields = bpfFields ?| []
     let form = XElement.Parse(systemForm.GetAttributeValue<string>("formxml"))
   
  
positive.code:   Some (attrName, aType)
  
  
  let getControl  (enums:Map<string,TsType>) (controlField:ControlField): XrmFormControl option =
    let controlId, attrName, controlClass = controlField
    if controlClass = QuickView then None else
  
    let aType = 
      getAttribute enums controlField
      |> Option.map snd
  
      
  
negative.code:         |> Map.ofList
          
        formData.[em.logicalName]
        |> Array.Parallel.map (interpretFormXml enums (bpfControls.TryFind em.logicalName) em))
      |> Array.concat
    |> dict