Convertir dentro de una Operación REST; la String (JSON) que nos responde Sistema Destino, a Mensaje Response.

Para recapitular, el Sistema Destino nos responde con esta String; la cual sí es un JSON válido tal y como se puede comrpobar en https://jsonlint.com/

[
    {
        "codigo": "5128",
        "descripcion": "LAS ENFERMERAS FRENTE A LOS PROBLEMAS DE SALUD MENTAL",
        "programa": "Probabilidad de contagio ante un accidente hemático.",
        "admitido": 1,
        "desdefecha": "26/10/2022",
        "hastafecha": "26/10/2029",
        "cursohorario": [
            {
                "aula": "AULA 1",
                "desdefecha": "2022/12/26",
                "hastafecha": "2022/12/26",
                "desdehora": "16:00:00",
                "hastahora": "20:30:00"
            },
            {
                "aula": "AULA 2",
                "desdefecha": "27/10/2022",
                "hastafecha": "27/12/2022",
                "desdehora": "10:00:00",
                "hastahora": "12:45:00"
            }
        ],
        "error": null
    },
    {
        "codigo": "5129",
        "descripcion": "HISTORIA DE SALUD ELECTRONICA DRAGO-AP",
        "programa": "XXXX",
        "admitido": 0,
        "desdefecha": "15/01/2022",
        "hastafecha": "15/01/2029",
        "cursohorario": [
            {
                "aula": "AULA MAGNA",
                "desdefecha": "15/01/2022",
                "hastafecha": "15/01/2022",
                "desdehora": "16:00:00",
                "hastahora": "20:30:00"
            }
        ],
        "error": null
    }
]

Siendo nuestros Mensaje Response:

Class Mensajes.Response.miFormacion.GetCursosAdmitidosResponse Extends Ens.Response
{

Property cursos As list Of EsquemasDatos.miFormacion.CursoAdmitido;

Y el EsquemasDatos interno:

Class EsquemasDatos.miFormacion.CursoAdmitido Extends Ens.Response
{

Property codigo As %String(MAXLEN = "");
Property descripcion As %String(MAXLEN = "");
Property programa As %String(MAXLEN = "");
Property admitido As %Boolean;
Property desdefecha As %String(MAXLEN = "");
Property hastafecha As %String(MAXLEN = "");
Property cursohorario As list Of EsquemasDatos.miFormacion.CursoHorario;
Property error As EsquemasDatos.Seguridad.Error;

¿De qué manera nos aconsejan depurar, documentarnos, buscar la causa de la Excepción?

Para tratar de resolverlo por nosotros mismos hemos considerado utilizar alguna herramienta para convertir el objeto JSON en un objeto que podamos manipular en nuestro código. Por ejemplo, en lugar de utilizar la clase %ZEN.Auxiliary.jsonProvider, podríamos utilizar la clase %Object, que es una clase básica de InterSystems IRIS que permite trabajar con objetos de forma dinámica. El código es:

	Set pResponse = {} // Creamos un objeto vacío
	Set tSC = pResponse.%FromJSON(linea) // Convertimos la respuesta JSON en un objeto
	If $$$ISERR(tSC) {
    	Write "Error al convertir respuesta JSON: ", tSC.GetErrorText(), !
    	Quit
	}
	$$$LOGINFO("pResponse: "_pResponse)

Sin embargo de esta forma, sí es verdad que el LOGINFO pinta que disponemos de:

Ahora bien, en el visor de mensaje se nos ve en azul:

¿De qué manera nos aconsejan depurar, documentarnos, buscar la causa de la Excepción?

¿Pudiera ser que la respuesta JSON de Sistema Destino, no coincida con la definición interna hecha a mano del Mensaje Response y el EsquemasDatos?

Lo pregunto porque: la excepción que se muestra parece indicar que hay un problema al serializar la lista de objetos en Cache ObjectScript. Para depurar este problema, es posible que necesite verificar si la definición de clase de "Mensajes.Response.miFormacion.GetCursosAdmitidosResponse" coincide con el formato del objeto JSON devuelto por el servicio REST. Lo cual en teoría puede hacerse comparando la definición de clase con el objeto JSON.
 

➕🔎🔍Además hemos indagado:

https://community.intersystems.com/post/convert-string-json

https://docs.intersystems.com/irislatest/csp/docbook/DocBook.UI.Page.cls...

https://community.intersystems.com/post/how-convert-xml-string-json-obje...

¿De qué manera nos aconsejan depurar, documentarnos, buscar la causa de la Excepción?

Muchísimas gracias por su ayuda. Y muchas gracias por respondernos con pasos a seguir, documentación y/o ejemplos. Gracias porque es un alivio contar con el apoyo de ustedes que tienen gran cantidad de práctica, experiencia y conocimientos valiosísimos y muy únicos.

Un saludo.