Analizar JSON en TSQL

Parece que tengo una gran vena masoquista porque he escrito un analizador JSON. Convierte un documento JSON en una tabla de lista de adyacencia SQL, que es fácil de usar para actualizar sus tablas de datos. En realidad, lo he hecho peor, ya que he creado un código para realizar el proceso inverso, que consiste en pasar de una tabla de jerarquía a una cadena JSON

El artículo y el código están aquí:Consumo de cadenas Json en el servidor SQL.

Select * from parseJSON('{
  "Person":
  {
     "firstName": "John",
     "lastName": "Smith",
     "age": 25,
     "Address":
     {
        "streetAddress":"21 2nd Street",
        "city":"New York",
        "state":"NY",
        "postalCode":"10021"
     },
     "PhoneNumbers":
     {
        "home":"212 555-1234",
        "fax":"646 555-4567"
     }
  }
}
')

Para obtener: