anchor.diff:     let parts = twoPartsName.Split('.')
      parts.[0], parts.[1]
   
  -let parseDefaultValue (value: string, typ:Type) =
  -    if typ = typeof<bool> 
  -    then box (value.Trim() = "1")
  -    else Convert.ChangeType(value, typ)
  -     
   let internal ReturnValue (conn : SqlConnection) = { 
       Name = "@ReturnValue" 
       Direction = ParameterDirection.ReturnValue
  
positive.code:             new TSqlFragmentVisitor() with
                  member __.Visit(node : ProcedureParameter) = 
                      base.Visit node
                      paramDefaults.[node.VariableName.Value] <- getParamDefaultValue spDefinition node
          }
  
          let query = sprintf "
  
negative.code: type DataRow with
      member this.toOption<'a> (key:string) = if this.IsNull(key) then None else Some(unbox<'a> this.[key])
  
  let rec parseDefaultValue (definition: string) (expr: ScalarExpression) = 
      match expr with
      | :? Literal as x ->
          match x.LiteralType with
          | LiteralType.Default | LiteralType.Null -> Some null
  