go to post Yone Moreno · Oct 16, 2023 Thanks for your help @Luis Angel Pérez Ramos We have faced the second option, to implement the OnResponse() method in the CHild DICOM Process. We have written: Method OnResponse(request As %Library.Persistent, ByRef response As %Library.Persistent, callrequest As %Library.Persistent, callresponse As %Library.Persistent, pCompletionKey As %String) As %Status { $$$LOGWARNING("OnResponse") $$$LOGWARNING("request.%ClassName(): "_request.%ClassName()) ;$$$LOGWARNING("response.%ClassName(): "_response.%ClassName()) $$$LOGWARNING("callrequest.%ClassName(): "_callrequest.%ClassName()) $$$LOGWARNING("callresponse.%ClassName(): "_callresponse.%ClassName()) if (callresponse.%ClassName() = "consultarEstudiosDatosPacienteVNAResponse"){ set callresponse = ..respuestaConsultaEstudios Quit $$$OK } Quit '$$$OK } It outputs: request.%ClassName(): Document callrequest.%ClassName(): Start callresponse.%ClassName(): Ack It is being called after PrivateSession.Message.Ack. However, we do not know how to handle it properly, to make it continue execution, untils it reaches the final Ens.Response and then just only send it if it is not NULL. Currently the Visual Trace: It shows: [11] DICOM.Document the C-FIND request [12] PrivateSession.Message.Start [13] PrivateSession.Message.Ack [14--17] The LOGS [19] ERROR <Ens>ErrBPTerminated: Finalizando BP Procesos.DICOM.ConsultarEstudiosMedianteFind # debido a un error: ERROR #00: (sin descripción de error)> ERROR #00: (sin descripción de error) We do not know how to implement the OnResponse() properly because it forces us to reply with a %Status, and either if we respond $$$OK or '$$$OK , it halts execution, and replies with a NULL error, or with a NULL. Furthermore, there are not examples of OnResponse() being implemented in the parent internal class: EnsLib.DICOM.Process How could we continue beyond this point? Thanks for your help.
go to post Yone Moreno · Oct 16, 2023 Thank you @Luis Angel Pérez Ramos , for your time, and deep replies. We have removed the pOutput in the Child DICOM Process. In addition, as suggested, we have added inside OnMessage's ending the following: ; 16 10 2023 responder con el listado de estudiosset tSC = ..%responseSet(..respuestaConsultaEstudios)$$$LOGALERT("tSC: "_tSC)$$$LOGALERT($System.Status.GetErrorText(tSC))Quit $$$OK Being the complete Bussines Process ConsultarEstudiosMedianteFind's OnMessage() method as we can read here: /// Messages received here are instances of EnsLib.DICOM.Document sent to this /// process by the service or operation config items. In this demo, the process is ever /// in one of two states, the Operation is connected or not. Method OnMessage(pSourceConfigName As %String, pInput As %Library.Persistent) As %Status { #dim tSC As %Status = $$$OK #dim tMsgType As %String #dim tFindRequest As EnsLib.DICOM.Document do { #; If its a document sent from the service If pSourceConfigName'=..OperationDuplexName { set ..respuestaConsultaEstudios = ##class(Mensajes.Response.DICOM.consultarEstudiosDatosPacienteVNAResponse).%New() set ..respuestaConsultaEstudios.patients = ##class(EsquemasDatos.DICOM.Patient).%New() #; If the operation has not been connected yet If ..CurrentState="OperationNotConnected" { #; We are in the process of establishing the connection to the operation, #; Keep hold of the incoming document Set ..DocumentFromService=pInput Set tSC=..EstablishAssociation(..OperationDuplexName) } elseif ..CurrentState="OperationConnected" { #; We can forward the document to the operation Set tSC=..SendRequestAsync(..OperationDuplexName,..DocumentFromService,0) } } elseif pSourceConfigName=..OperationDuplexName { #; We have received a document from the operation Set tMsgType=pInput.GetValueAt("CommandSet.CommandField",,.tSC) If $$$ISERR(tSC) Quit #; Should only EVER get a C-FIND-RSP $$$ASSERT(tMsgType="C-FIND-RSP") #; TODO: Do Something With the Find Response(s) if pInput.GetValueAt("CommandSet.Status",,.tSC)=0 { Set tSC=..ReleaseAssociation(..OperationDuplexName) $$$LOGINFO("Antes quit Release") quit $$$LOGINFO("Después quit Release") } else { ; Escribimos 11 / 10 / 2023 para responder con los datos de cada estudio DICOM remitido por Sistema Destino set study = ##class(EsquemasDatos.DICOM.Study).%New() set study.accessionNumber = pInput.GetValueAt("DataSet.AccessionNumber",,.tSC) if $$$ISERR(tSC) quit set study.description = pInput.GetValueAt("DataSet.StudyDescription",,.tSC) if $$$ISERR(tSC) quit set study.modality = pInput.GetValueAt("DataSet.ModalitiesInStudy",,.tSC) if $$$ISERR(tSC) quit set study.type = pInput.GetValueAt("DataSet.ImageType",,.tSC) if $$$ISERR(tSC) quit set study.data = pInput.GetValueAt("DataSet.StudyDate",,.tSC) if $$$ISERR(tSC) quit do ..respuestaConsultaEstudios.patients.studies.Insert(study) ; Añadimos 11 / 10 / 2023 para enviar la respuesta DICOM al Enturador Padre ;Set tSC=..SendRequestAsync("EnrutadorConsultarEstudiosVNAv01r00",pInput,0) ;Set tSC=..SendRequestAsync("EnrutadorConsultarEstudiosVNAv01r00",study,0) ;Set tSC=..SendRequestAsync("EnrutadorConsultarEstudiosVNAv01r00",QueryRsp,0) ;Set tSC=..SendRequestSync("EnrutadorConsultarEstudiosVNAv01r00",QueryRsp,0) } } } while (0) ;set pOutput = ..respuestaConsultaEstudios ;Quit pOutput ; 16 10 2023 responder con el listado de estudios set tSC = ..%responseSet(..respuestaConsultaEstudios) $$$LOGALERT("tSC: "_tSC) $$$LOGALERT($System.Status.GetErrorText(tSC)) Quit $$$OK ;$$$LOGINFO("Antes Quit tSC") Quit tSC ;$$$LOGINFO("Despues Quit tSC") } After compiling, we observe the Visual Trace, where both yellow LOGALERTS are being printed various times: Being the interesting part, before the NULL reply is being forwarded from the Child to the Parent, it continues happening, we do observe the NULL response: Besides, we have desactivated the lines mentioned inside OnMessage()'s method, and we have added them inside OnAssociationReleased() as we can see below: Method OnAssociationReleased(pSourceConfigName As %String, pInput As EnsLib.DICOM.Notify.Released) As %Status { #dim tSC As %Status = $$$OK #; The association between this process and the operation has been released, so we are now #; not connected to the operation Set ..CurrentState="OperationNotConnected" ; Añadido el LOGINFO 13 10 2023 para depurar la llamada NULL espúrea que realiza este BP al Proceso Padre $$$LOGINFO("OnAssociationReleased antes de llamar al BP Padre, ..respuestaConsultaEstudios: "_..respuestaConsultaEstudios) ; 16 10 2023 responder con el listado de estudios set tSC = ..%responseSet(..respuestaConsultaEstudios) $$$LOGALERT("tSC: "_tSC) $$$LOGALERT($System.Status.GetErrorText(tSC)) Quit $$$OK ; Añadimos 11 10 2023 ;Set tSC=..SendRequestAsync("EnrutadorConsultarEstudiosVNAv01r00",..respuestaConsultaEstudios,0) Quit tSC } After that change, we have tried again, and we see this new Visual Trace, where the important part, is that now, the LOGALERTS are only being displayed BEFORE the NULL response is being replied: To summarize, even if we add the following lines to OnMessage() or to OnAssociationReleased(): ; 16 10 2023 responder con el listado de estudiosset tSC = ..%responseSet(..respuestaConsultaEstudios)$$$LOGALERT("tSC: "_tSC)$$$LOGALERT($System.Status.GetErrorText(tSC))Quit $$$OK we still having that strange NULL response that we do not understand. How could we further understand / debug this issue? Thanks for your help and time and replies.
go to post Yone Moreno · Oct 16, 2023 Thanks @Luis Angel Pérez Ramos for your help. How could we change our Parent Bussiness Process EnrutadorConsultarEstudiosVNAv01r00 when it calls its Child DICOM Process ConsultarEstudiosMedianteFind to add the variable by reference? We currently <call> it as follows: <scope xpos='335' ypos='1600' xend='335' yend='2150' > <code name='C002 a Consulta DICOM' xpos='335' ypos='1700' > <![CDATA[ set context.consultaDICOM = context.responseTarjetaC002ToFindDicom(context.responseTarjetaC002)]]> </code> <call name='ConsultarEstudiosFind' target='Procesos.DICOM.ConsultarEstudiosMedianteFind' async='0' xpos='335' ypos='1800' > <request type='Ens.Request' > <assign property="callrequest" value="context.consultaDICOM" action="set" /> </request> <response type='Ens.Response' > <assign property="context.respuestaDICOM" value="callresponse" action="set" /> </response> </call> <code name='LOG' xpos='335' ypos='1900' > <![CDATA[ $$$LOGWARNING("Despues del call ConsultarEstudiosFind") $$$LOGINFO(context.respuestaDICOM) $$$LOGINFO(context.respuestaDICOM.patients.studies.GetAt(1).description)]]> </code> <faulthandlers> <catchall xpos='335' ypos='2000' xend='200' yend='350' > <code name='LOG ERROR' xpos='200' ypos='250' > <![CDATA[ $$$LOGERROR($System.Status.GetErrorText(context.%LastError))]]> </code> </catchall> </faulthandlers> </scope> Which visually is: In addition our Child DICOM Process, has its method's signature as follows, where we have added the Output pOutput variable: Method OnMessage(pSourceConfigName As %String, pInput As %Library.Persistent, Output pOutput As Ens.Response) As %Status Thanks for your time, help, and replies.
go to post Yone Moreno · Oct 13, 2023 Thanks @Luis Angel Pérez Ramos . Now we have changed the method's signature to add the pOutput; as: Method OnMessage(pSourceConfigName As %String, pInput As %Library.Persistent, Output pOutput As Ens.Response) As %Status Then, we have commented (disable) the SendRequestAsync inside OnAssociationReleased(), as: ;Set tSC=..SendRequestAsync("EnrutadorConsultarEstudiosVNAv01r00",..respuestaConsultaEstudios,0) Finally, we have set our Property which holds the studies' list as follows, inside the OnMessage(), at the ending part of this method: set pOutput = ..respuestaConsultaEstudios Then, when we test it, it just shows us the "NULL", response without the one we do want: Why if we disable the ..SendRequestAsync , our child DICOM Process does NOT reply to the Parent visual Process, with the desired Ens.Response? Why it justs responds with a "NULL" Ens.Response? Thanks again for your time, help, and for reading and writting to us.
go to post Yone Moreno · Oct 13, 2023 Thanks @Shanshan Yu It worked fine. The line which you have written does it take the Query Parameter as needed and as exepected: set pPatientId = pInput.Attributes("Params","patientId",1) Thanks for your help.
go to post Yone Moreno · Oct 13, 2023 Thanks @Luis Angel Pérez Ramos for your tiem and help. First we tried to declare the return type instead of being %Status, being Ens.Response; however it does not allow it: Compilando clase Procesos.DICOM.ConsultarEstudiosMedianteFindERROR #5478: Error de firma de palabra clave en Procesos.DICOM.ConsultarEstudiosMedianteFind:Method:OnMessage, 'ReturnType' debe ser '%Library.Status' o su subclase > ERROR #5030: Se produjo un error mientras se compilaba la clase Procesos.DICOM.ConsultarEstudiosMedianteFind On the other hand, if we keep the return type as %Status, and we just declare an Output vairable pOutput as Ens.Response: Method OnMessage(pSourceConfigName As %String, pInput As %Library.Persistent, Output pOutput As Ens.Response) As %Status And we disable the line inside OnAssociationReleased() which makes the ..SendRequestAsync Method OnAssociationReleased(pSourceConfigName As %String, pInput As EnsLib.DICOM.Notify.Released) As %Status { #dim tSC As %Status = $$$OK #; The association between this process and the operation has been released, so we are now #; not connected to the operation Set ..CurrentState="OperationNotConnected" ; Añadido el LOGINFO 13 10 2023 para depurar la llamada NULL espúrea que realiza este BP al Proceso Padre $$$LOGINFO("OnAssociationReleased antes de llamar al BP Padre, ..respuestaConsultaEstudios: "_..respuestaConsultaEstudios) ; Añadimos 11 10 2023 ;Set tSC=..SendRequestAsync("EnrutadorConsultarEstudiosVNAv01r00",..respuestaConsultaEstudios,0) Quit tSC } And, we comment the Quit tSC inside the OnMessage() method, and we put a Quit pOutput as follows: /// Messages received here are instances of EnsLib.DICOM.Document sent to this /// process by the service or operation config items. In this demo, the process is ever /// in one of two states, the Operation is connected or not. Method OnMessage(pSourceConfigName As %String, pInput As %Library.Persistent, Output pOutput As Ens.Response) As %Status { #dim tSC As %Status = $$$OK #dim tMsgType As %String #dim tFindRequest As EnsLib.DICOM.Document do { #; If its a document sent from the service If pSourceConfigName'=..OperationDuplexName { set ..respuestaConsultaEstudios = ##class(Mensajes.Response.DICOM.consultarEstudiosDatosPacienteVNAResponse).%New() set ..respuestaConsultaEstudios.patients = ##class(EsquemasDatos.DICOM.Patient).%New() #; If the operation has not been connected yet If ..CurrentState="OperationNotConnected" { #; We are in the process of establishing the connection to the operation, #; Keep hold of the incoming document Set ..DocumentFromService=pInput Set tSC=..EstablishAssociation(..OperationDuplexName) } elseif ..CurrentState="OperationConnected" { #; We can forward the document to the operation Set tSC=..SendRequestAsync(..OperationDuplexName,..DocumentFromService,0) } } elseif pSourceConfigName=..OperationDuplexName { #; We have received a document from the operation Set tMsgType=pInput.GetValueAt("CommandSet.CommandField",,.tSC) If $$$ISERR(tSC) Quit #; Should only EVER get a C-FIND-RSP $$$ASSERT(tMsgType="C-FIND-RSP") #; TODO: Do Something With the Find Response(s) if pInput.GetValueAt("CommandSet.Status",,.tSC)=0 { Set tSC=..ReleaseAssociation(..OperationDuplexName) quit } else { ; Escribimos 11 / 10 / 2023 para responder con los datos de cada estudio DICOM remitido por Sistema Destino set study = ##class(EsquemasDatos.DICOM.Study).%New() set study.accessionNumber = pInput.GetValueAt("DataSet.AccessionNumber",,.tSC) if $$$ISERR(tSC) quit set study.description = pInput.GetValueAt("DataSet.StudyDescription",,.tSC) if $$$ISERR(tSC) quit set study.modality = pInput.GetValueAt("DataSet.ModalitiesInStudy",,.tSC) if $$$ISERR(tSC) quit set study.type = pInput.GetValueAt("DataSet.ImageType",,.tSC) if $$$ISERR(tSC) quit set study.data = pInput.GetValueAt("DataSet.StudyDate",,.tSC) if $$$ISERR(tSC) quit do ..respuestaConsultaEstudios.patients.studies.Insert(study) ; Añadimos 11 / 10 / 2023 para enviar la respuesta DICOM al Enturador Padre ;Set tSC=..SendRequestAsync("EnrutadorConsultarEstudiosVNAv01r00",pInput,0) ;Set tSC=..SendRequestAsync("EnrutadorConsultarEstudiosVNAv01r00",study,0) ;Set tSC=..SendRequestAsync("EnrutadorConsultarEstudiosVNAv01r00",QueryRsp,0) ;Set tSC=..SendRequestSync("EnrutadorConsultarEstudiosVNAv01r00",QueryRsp,0) } } } while (0) set pOutput = ..respuestaConsultaEstudios Quit pOutput ;Quit tSC } We observe at the Visual Trace, just only one response, which is the NULL one at step [17]: I still not knowing why it happens, why could it happen? Could you help us please? Thanks for your time and for your help, and even more I am really grateful for your explanations about this issue. Thank you. "Collaboration and helping others with their programming questions isn't just an act of kindness; it's the most powerful way to learn and to help ourselves grow in this ever-evolving field." - Ada Lovelace
go to post Yone Moreno · Oct 13, 2023 Thanks @Luis Angel Pérez Ramos for your reply and your help, thanks. We have added it as: Method OnAssociationReleased(pSourceConfigName As %String, pInput As EnsLib.DICOM.Notify.Released) As %Status { #dim tSC As %Status = $$$OK #; The association between this process and the operation has been released, so we are now #; not connected to the operation Set ..CurrentState="OperationNotConnected" ; Añadido el LOGINFO 13 10 2023 para depurar la llamada NULL espúrea que realiza este BP al Proceso Padre $$$LOGINFO("OnAssociationReleased antes de llamar al BP Padre, ..respuestaConsultaEstudios: "_..respuestaConsultaEstudios) ; Añadimos 11 10 2023 Set tSC=..SendRequestAsync("EnrutadorConsultarEstudiosVNAv01r00",..respuestaConsultaEstudios,0) Quit tSC } However it does only prints it once, and we do not understand why there is a NULL response being replied from this DICOM Process to the Parent Process: Please; Could you help us with this issue? Again, thank you for your time, help, replies, and for being supporting us. In addittion, a sentence which is quite interesting: "Collaboration is not just a buzzword; it's the very heart of what makes programming great. Helping others with their technical questions is not only the best way to learn but also a profound way to help ourselves." - Grace Hopper This sentences shows us both points: Learning through helping: The statement asserts that when you help others with their technical queries, you, in turn, gain knowledge and experience. Teaching or explaining something to someone else often requires a deeper understanding of the subject, which can enhance your own learning. Helping is self-beneficial: Lastly, the sentence suggests that helping others is not just an altruistic act but also a means of self-improvement. By aiding others, you not only contribute to the community but also grow as a programmer and problem solver. It's a win-win situation where both parties benefit.
go to post Yone Moreno · Oct 11, 2023 Thanks for your time and help. I have tried you approach @Luis Angel Pérez Ramos and @Shanshan Yu and @Ashok Kumar , we have written the following code for our REST Service, following your advices and suggestions: /// Ahora se accede mediante: /// https://host:port/api/studies?patientId=XXXX111111111111 /// Class Servicios.REST.DICOM.ConsultarEstudiosVNAv01r00 Extends (%CSP.REST, EnsLib.REST.Service, Ens.BusinessService) { Parameter ADAPTER = "EnsLib.HTTP.InboundAdapter"; Parameter EnsServicePrefix = "|/api"; XData UrlMap { <Routes> <Route Url="/:studies" Method="GET" Call="consultarEstudiosDatosPaciente"/> </Routes> } /// un JSON con el listado de estudios que tiene el paciente + los datos demográficos del paciente /// (nombre, sexo, f.nacimiento, etc...) Method consultarEstudiosDatosPaciente(pInput As %Stream.Object, Output pOutput As %Stream.Object, pStudies As %String) As %Status { $$$LOGALERT("Entra en consultarEstudiosDatosPaciente") Set pOutput = ##class(%GlobalBinaryStream).%New() set claseAux = ##class(%ZEN.Auxiliary.jsonProvider).%New() $$$LOGWARNING("Antes de pPatientId") set pPatientId = %request.Get("patientId") $$$LOGINFO("pStudies: "_pStudies) $$$LOGINFO("pPatientId: "_pPatientId) set objetoEntrada = ##class(Mensajes.Request.DICOM.consultarEstudiosDatosPacienteVNARequest).%New() set objetoEntrada.identificadorPaciente = pPatientId set tSC = claseAux.%ConvertJSONToObject(.req,"Mensajes.Request.DICOM.consultarEstudiosDatosPacienteVNARequest",.objetoEntrada,1) set tSC = ..SendRequestSync("EnrutadorConsultarEstudiosVNAv01r00",objetoEntrada,.objetoSalida) set tSC = claseAux.%WriteJSONStreamFromObject(.pOutput,.objetoSalida,,,,"aeloqtuw") Do:$$$ISOK(tSC) pOutput.SetAttribute("Content-Type","application/json") do pOutput.SetAttribute("Access-Control-Allow-Origin","*") do pOutput.SetAttribute("Access-Control-Allow-Credentials","true") do pOutput.SetAttribute("Access-Control-Allow-Methods","GET") do pOutput.SetAttribute("Access-Control-Allow-Headers","request,Access-Control-Allow-Headers, Origin,Accept, X-Requested-With, Content-Type, Access-Control-Request-Method, Access-Control-Request-Headers") Quit tSC Quit $$$OK } } Where the important part is that we have written the XData UrlMap Route Url as you have written:XData UrlMap { <Routes> <Route Url="/:studies" Method="GET" Call="consultarEstudiosDatosPaciente"/> </Routes> } In addition we have also added to get the patientId from %request as: set pPatientId = %request.Get("patientId") However, unfortunately, it only shows the logs before: set pPatientId = %request.Get("patientId") So then, if we observe the logs it shows us: Tipo Hora Texto Id. Info 2023-10-11 06:58:03.070 Closing TCP Connection Job 3577763 Info 2023-10-11 06:58:03.069 Disconnecting from 10102<-ABC:XYZ/SSL=CBA 3577762 Warning 2023-10-11 06:58:03.067 Antes de pPatientId 3577761 Alert 2023-10-11 06:58:03.066 Entra en consultarEstudiosDatosPaciente Why it fails when tries to retrieve the patientId from %request object via the Get method? Besides, we have added "%CSP.REST" in the extends' class list, because w ehave read that %request variable is a special one inside %CSP.REST, as it states in the documentation below: https://docs.intersystems.com/irislatest/csp/docbook/DocBook.UI.Page.cls... How could we really retrieve the patientId as query parameter? How could we fix this issue? Agan thanks for your time, help, and answers: How could we debug and fix / improve this issue to get the Query Parameter as needed?
go to post Yone Moreno · Oct 10, 2023 Again thanks for your time reading and answering this question, that could be repeated, however I think it is needed. Thanks:
go to post Yone Moreno · Sep 12, 2023 One question, why old HealtShare versions did not have this automatic refresh for BPL and DTL? We have used previous version of HealthShare, earlier than 2020, I think that it was 2017, and it did not have automatic refresh for DTLs and BPLs in the Studio. Maybe I am wrong but I remember that previous version, could keep BPLs and DTLs without refreshing every X minutes. 🤔💭
go to post Yone Moreno · Sep 11, 2023 Hi Luis Angel, I hope this message finds you well. I wanted to take a moment to express my sincere appreciation for your insightful post regarding Business Process (BPL) and Data Transformation Language (DTL) web pages' automatic refresh. Your observation about the common frustration among both new and experienced users with regards to automatic page refreshes resonated deeply with me. It's an issue that has often led to frustration and lost work, affecting the overall experience of InterSystems technology users. Your suggestion of implementing an autosave feature is not only practical but also a potential game-changer in addressing this problem. It's a solution that has the power to improve user experience and reduce the negative sentiment associated with such incidents. I believe it would greatly benefit both novice and veteran developers alike. I've taken the liberty of visiting the idea you shared on the InterSystems portal (https://ideas.intersystems.com/ideas/DPI-I-452) and voted in favor of it. It's a fantastic initiative, and I encourage others to do the same. Thank you for taking the initiative to propose this idea and for actively working towards enhancing the InterSystems technology ecosystem. Your contribution is valued, and I look forward to seeing how this idea evolves and potentially becomes a reality. Once again, thank you for your great idea, and I'm excited about the positive impact it could have. Best regards, and again, thanks Luis Angel.
go to post Yone Moreno · Aug 21, 2023 Thanks Elijah Cotterrell for your time explaining how it works and how it can be achieved. It worked as you described. Thanks again for your time and answer it was brilliant. Greetings.
go to post Yone Moreno · Jun 5, 2023 Could you help us? We have previously tried to set directly from the visual Data Transformation Language editor to set both last and nextUpdate time as follows: Class Transformaciones.RESNS.FiltrarFechasyMotivoNoDispensacionAntesDepurarTransf06052023 Extends Ens.DataTransformDTL [ DependsOn = Mensajes.Response.RESNS.RespondingGatewayCrossGatewayRetrieveResponse ] { Parameter IGNOREMISSINGSOURCE = 1; Parameter REPORTERRORS = 1; Parameter TREATEMPTYREPEATINGFIELDASNULL = 0; XData DTL [ XMLNamespace = "http://www.intersystems.com/dtl" ] { <transform sourceClass='Mensajes.Response.RESNS.RespondingGatewayCrossGatewayRetrieveResponse' targetClass='Mensajes.Response.RESNS.RespondingGatewayCrossGatewayRetrieveResponse' create='new' language='objectscript' > <assign value='source.RegistryResponse' property='target.RegistryResponse' action='set' /> <assign value='source.DocumentResponse' property='target.DocumentResponse' action='set' /> <assign value='source.Solicitante' property='target.Solicitante' action='set' /> <assign value='source.Action' property='target.Action' action='set' /> <assign value='source.MessageId' property='target.MessageId' action='set' /> <assign value='source.RelatesTo' property='target.RelatesTo' action='set' /> <assign value='source.paciente' property='target.paciente' action='set' /> <foreach property='source.RegistryObjectList.ExtrinsicObject()' key='k1' > <foreach property='source.RegistryObjectList.ExtrinsicObject.(k1).Slot()' key='k2' > <if condition='( source.RegistryObjectList.ExtrinsicObject.(k1).Slot.(k2).name = "lastUpdateTime" )' > <true> <code> <![CDATA[ $$$LOGALERT("Entra lastUpdateTime")]]> </code> <assign value='source.RegistryObjectList.ExtrinsicObject.(k1).Slot.(k2).ValueList.Value.(1)' property='lastUpdateTime' action='set' /> <code> <![CDATA[ $$$LOGINFO("lastUpdateTime: "_lastUpdateTime)]]> </code> <assign value='lastUpdateTime' property='target.RegistryObjectList.ExtrinsicObject.(k1).Slot.(k2).ValueList.Value.(1)' action='set' disabled='1' /> <assign value='lastUpdateTime' property='target.RegistryObjectList.ExtrinsicObject.(1).Slot.(1)' action='set' /> <code> <![CDATA[ $$$LOGASSERT("Después de set lastUpdateTime: "_lastUpdateTime)]]> </code> </true> </if> <if condition='( source.RegistryObjectList.ExtrinsicObject.(k1).Slot.(k2).name = "urn:es:ms:ereceta:names:md:nextUpdateTime" )' > <true> <code> <![CDATA[ $$$LOGWARNING("Entra nextUpdateTime")]]> </code> <assign value='source.RegistryObjectList.ExtrinsicObject.(k1).Slot.(k2).ValueList.Value.(1)' property='nextUpdateTime' action='set' /> <code> <![CDATA[ $$$LOGINFO("nextUpdateTime: "_nextUpdateTime)]]> </code> <assign value='nextUpdateTime' property='target.RegistryObjectList.ExtrinsicObject.(k1).Slot.(k2).ValueList.Value.(1)' action='set' disabled='1' /> <assign value='nextUpdateTime' property='target.RegistryObjectList.ExtrinsicObject.(2).Slot.(1)' action='set' /> <code> <![CDATA[ $$$LOGASSERT("Después de set nextUpdateTime: "_nextUpdateTime)]]> </code> </true> </if> </foreach> </foreach> </transform> } } However, the previous attempt did not work because of it does assign lastUpdateTime and nextUpdateTime but it does not put them in the target message... Currently we have developed and tested this other approach and it does work as intendeed, however; how could we simplify and/or make it more understandable? Class Transformaciones.RESNS.FiltrarFechasyMotivoNoDispensacion Extends Ens.DataTransformDTL [ DependsOn = Mensajes.Response.RESNS.RespondingGatewayCrossGatewayRetrieveResponse ] { Parameter IGNOREMISSINGSOURCE = 1; Parameter REPORTERRORS = 1; Parameter TREATEMPTYREPEATINGFIELDASNULL = 0; XData DTL [ XMLNamespace = "http://www.intersystems.com/dtl" ] { <transform sourceClass='Mensajes.Response.RESNS.RespondingGatewayCrossGatewayRetrieveResponse' targetClass='Mensajes.Response.RESNS.RespondingGatewayCrossGatewayRetrieveResponse' create='existing' language='objectscript' > <assign value='##class(EsquemasDatos.RESNS.rim.RegistryObjectListType).%New()' property='target.RegistryObjectList' action='set' /> <assign value='0' property='indiceExtrinsicObjectCreados' action='set' /> <assign value='0' property='indiceSlotsCreados' action='set' /> <foreach property='source.RegistryObjectList.ExtrinsicObject()' key='k1' > <foreach property='source.RegistryObjectList.ExtrinsicObject.(k1).Slot()' key='k2' > <if condition='( source.RegistryObjectList.ExtrinsicObject.(k1).Slot.(k2).name = "lastUpdateTime" )' > <true> <code> <![CDATA[ $$$LOGALERT("Entra lastUpdateTime")]]> </code> <assign value='source.RegistryObjectList.ExtrinsicObject.(k1).Slot.(k2).ValueList.Value.(1)' property='lastUpdateTime' action='set' /> <code> <![CDATA[ $$$LOGINFO("lastUpdateTime: "_lastUpdateTime)]]> </code> <code> <annotation>Creamos Slot lastUpdateTime</annotation> <![CDATA[ set extrinsicObject = ##class(EsquemasDatos.RESNS.rim.ExtrinsicObjectType).%New() do target.RegistryObjectList.ExtrinsicObject.Insert(extrinsicObject) set indiceExtrinsicObjectCreados = target.RegistryObjectList.ExtrinsicObject.Count() set slot = ##class(EsquemasDatos.RESNS.rim.SlotType1).%New() set slot.name = "lastUpdateTime" do target.RegistryObjectList.ExtrinsicObject.GetAt(indiceExtrinsicObjectCreados).Slot.Insert(slot) set indiceSlotsCreados = target.RegistryObjectList.ExtrinsicObject.GetAt(indiceExtrinsicObjectCreados).Slot.Count() set valueList = ##class(EsquemasDatos.RESNS.rim.ValueListType).%New() set target.RegistryObjectList.ExtrinsicObject.GetAt(indiceExtrinsicObjectCreados).Slot.GetAt(indiceSlotsCreados).ValueList = valueList do target.RegistryObjectList.ExtrinsicObject.GetAt(indiceExtrinsicObjectCreados).Slot.GetAt(indiceSlotsCreados).ValueList.Value.Insert(lastUpdateTime) ]]> </code> <assign value='source.RegistryObjectList.ExtrinsicObject.(k1).id' property='target.RegistryObjectList.ExtrinsicObject.(indiceExtrinsicObjectCreados).id' action='set' /> <assign value='source.RegistryObjectList.ExtrinsicObject.(k1).home' property='target.RegistryObjectList.ExtrinsicObject.(indiceExtrinsicObjectCreados).home' action='set' /> <assign value='source.RegistryObjectList.ExtrinsicObject.(k1).lid' property='target.RegistryObjectList.ExtrinsicObject.(indiceExtrinsicObjectCreados).lid' action='set' /> <assign value='source.RegistryObjectList.ExtrinsicObject.(k1).objectType' property='target.RegistryObjectList.ExtrinsicObject.(indiceExtrinsicObjectCreados).objectType' action='set' /> <assign value='source.RegistryObjectList.ExtrinsicObject.(k1).status' property='target.RegistryObjectList.ExtrinsicObject.(indiceExtrinsicObjectCreados).status' action='set' /> <assign value='source.RegistryObjectList.ExtrinsicObject.(k1).mimeType' property='target.RegistryObjectList.ExtrinsicObject.(indiceExtrinsicObjectCreados).mimeType' action='set' /> <code> <![CDATA[ $$$LOGASSERT("Después de set lastUpdateTime: "_lastUpdateTime)]]> </code> </true> </if> <if condition='( source.RegistryObjectList.ExtrinsicObject.(k1).Slot.(k2).name = "urn:es:ms:ereceta:names:md:nextUpdateTime" )' > <true> <code> <![CDATA[ $$$LOGWARNING("Entra nextUpdateTime")]]> </code> <assign value='source.RegistryObjectList.ExtrinsicObject.(k1).Slot.(k2).ValueList.Value.(1)' property='nextUpdateTime' action='set' > <annotation>Añadimos Slot nextUpdateTime</annotation> </assign> <code> <![CDATA[ $$$LOGINFO("nextUpdateTime: "_nextUpdateTime)]]> </code> <code> <![CDATA[ set slot = ##class(EsquemasDatos.RESNS.rim.SlotType1).%New() set slot.name = "nextUpdateTime" do target.RegistryObjectList.ExtrinsicObject.GetAt(indiceExtrinsicObjectCreados).Slot.Insert(slot) set indiceSlotsCreados = target.RegistryObjectList.ExtrinsicObject.GetAt(indiceExtrinsicObjectCreados).Slot.Count() set valueList = ##class(EsquemasDatos.RESNS.rim.ValueListType).%New() set target.RegistryObjectList.ExtrinsicObject.GetAt(indiceExtrinsicObjectCreados).Slot.GetAt(indiceSlotsCreados).ValueList = valueList do target.RegistryObjectList.ExtrinsicObject.GetAt(indiceExtrinsicObjectCreados).Slot.GetAt(indiceSlotsCreados).ValueList.Value.Insert(nextUpdateTime) ]]> </code> <code> <![CDATA[ $$$LOGASSERT("Después de set nextUpdateTime: "_nextUpdateTime)]]> </code> </true> </if> </foreach> </foreach> <foreach property='source.RegistryObjectList.ExtrinsicObject()' key='k1' > <foreach property='source.RegistryObjectList.ExtrinsicObject.(k1).Classification()' key='k3' > <code> <![CDATA[ set node = source.RegistryObjectList.ExtrinsicObject.GetAt(k1).Classification.GetAt(k3).nodeRepresentation]]> </code> <code disabled='1' > <![CDATA[ $$$LOGINFO("node: "_node)]]> </code> <code disabled='1' > <![CDATA[ $$$LOGALERT("$FIND(node, 00): "_$FIND(node, "00"))]]> </code> <if condition='( $FIND(node, "00") = 3)' > <annotation>Si nodeRepresentation empieza por "00"</annotation> <true> <code> <![CDATA[ $$$LOGWARNING("sí empieza por 00 el nodeRepresentation")]]> </code> <assign value='source.RegistryObjectList.ExtrinsicObject.(k1).Classification.(k3).Slot.(1).ValueList.Value.(1)' property='nodeValue' action='set' /> <code> <![CDATA[ $$$LOGWARNING("nodeValue: "_nodeValue)]]> </code> <assign value='source.RegistryObjectList.ExtrinsicObject.(k1).Classification.(k3).Name.LocalizedString.(1).value' property='localizedStringValue' action='set' /> <code> <![CDATA[ $$$LOGALERT("localizedStringValue: "_localizedStringValue)]]> </code> <code> <annotation>Generamos y asignamos Slot y Name del motivo NO dispensación</annotation> <![CDATA[ set classification = ##class(EsquemasDatos.RESNS.rim.ClassificationType).%New() do target.RegistryObjectList.ExtrinsicObject.GetAt(k1).Classification.Insert(classification) set indiceClassificationCreados = target.RegistryObjectList.ExtrinsicObject.GetAt(k1).Classification.Count() set slot = ##class(EsquemasDatos.RESNS.rim.SlotType1).%New() set slot.name = "codingScheme" do target.RegistryObjectList.ExtrinsicObject.GetAt(k1).Classification.GetAt(indiceClassificationCreados).Slot.Insert(slot) set indiceSlotsCreados = target.RegistryObjectList.ExtrinsicObject.GetAt(indiceExtrinsicObjectCreados).Slot.Count() set valueList = ##class(EsquemasDatos.RESNS.rim.ValueListType).%New() set target.RegistryObjectList.ExtrinsicObject.GetAt(k1).Classification.GetAt(1).Slot.GetAt(1).ValueList = valueList do target.RegistryObjectList.ExtrinsicObject.GetAt(k1).Classification.GetAt(1).Slot.GetAt(1).ValueList.Value.Insert(nodeValue) set name = ##class(EsquemasDatos.RESNS.rim.InternationalStringType).%New() set localizedString = ##class(EsquemasDatos.RESNS.rim.LocalizedStringType).%New() set localizedString.value = localizedStringValue do name.LocalizedString.Insert(localizedString) set target.RegistryObjectList.ExtrinsicObject.GetAt(k1).Classification.GetAt(1).Name = name ]]> </code> <assign value='source.RegistryObjectList.ExtrinsicObject.(k1).Classification.(k3).id' property='target.RegistryObjectList.ExtrinsicObject.(k1).Classification.(1).id' action='set' /> <assign value='source.RegistryObjectList.ExtrinsicObject.(k1).Classification.(k3).classificationScheme' property='target.RegistryObjectList.ExtrinsicObject.(k1).Classification.(1).classificationScheme' action='set' /> <assign value='source.RegistryObjectList.ExtrinsicObject.(k1).Classification.(k3).classifiedObject' property='target.RegistryObjectList.ExtrinsicObject.(k1).Classification.(1).classifiedObject' action='set' /> <assign value='source.RegistryObjectList.ExtrinsicObject.(k1).Classification.(k3).nodeRepresentation' property='target.RegistryObjectList.ExtrinsicObject.(k1).Classification.(1).nodeRepresentation' action='set' /> </true> </if> </foreach> </foreach> </transform> } } 🤔👁👁🌟🐢🐝🚀👁👁🤔 how could we simplify and/or make it more understandable? Thanks for your replies.
go to post Yone Moreno · May 23, 2023 We would like to share our approach to try to solve this task: First, we add the following lines inside the SOAP Service's method: #dim SAML AS %SAML.Assertion Set SAML = ..SecurityIn.FindElement("Assertion") set writer=##class(%XML.Writer).%New() set status=writer.OutputToString() If $$$ISERR(status) Do $system.OBJ.DisplayError(status) set status=writer.RootObject(SAML) If $$$ISERR(status) Do $system.OBJ.DisplayError(status) set samlString = writer.GetXMLString() $$$LOGASSERT("samlString: "_samlString) set pRequest = ##class(Mensajes.Request.RESNS.RespondingGatewayCrossGatewayQueryRequest).%New() set pRequest.CabeceraSAML = samlString Being the current code as follows: Class Servicios.RESNS.ConsultaRecetas Extends EnsLib.SOAP.Service [ ProcedureBlock ] { /// This is the namespace used by the Service Parameter NAMESPACE = "urn:ihe:iti:xds-b:2007"; /// Use xsi:type attribute for literal types. Parameter OUTPUTTYPEATTRIBUTE = 0; /// Determines handling of Security header. Parameter SECURITYIN = "IGNORE"; /// This is the name of the Service Parameter SERVICENAME = "RespondingGateway_Service"; /// This is the SOAP version supported by the service. Parameter SOAPVERSION = 1.2; /// Namespaces of referenced classes will be used in the WSDL. Parameter USECLASSNAMESPACES = 1; Property sns As %String; Parameter SETTINGS = "sns"; /// Default URL for invoking the WebService. /// The URL may be absolute or relative to the WSDL request URL.. Method RespondingGatewayCrossGatewayQuery(RequestSlotList As EsquemasDatos.RESNS.v02r00.rim.SlotListType, id As %xsd.anyURI(XMLPROJECTION="attribute"), comment As %String(XMLPROJECTION="attribute"), ResponseOption As EsquemasDatos.RESNS.v02r00.query.ResponseOptionType(REFELEMENTQUALIFIED=1,REFNAMESPACE="urn:oasis:names:tc:ebxml-regrep:xsd:query:3.0",XMLREF=1), AdhocQuery As EsquemasDatos.RESNS.v02r00.rim.AdhocQueryType(REFELEMENTQUALIFIED=1,REFNAMESPACE="urn:oasis:names:tc:ebxml-regrep:xsd:rim:3.0",XMLREF=1), federated As %Boolean(XMLPROJECTION="attribute"), federation As %xsd.anyURI(XMLPROJECTION="attribute"), ByRef startIndex As %Integer(XMLPROJECTION="attribute"), maxResults As %Integer(XMLPROJECTION="attribute"), Output ResponseSlotList As EsquemasDatos.RESNS.rim.SlotListType, Output RegistryErrorList As EsquemasDatos.RESNS.rs.RegistryErrorList(REFELEMENTQUALIFIED=1,REFNAMESPACE="urn:oasis:names:tc:ebxml-regrep:xsd:rs:3.0",XMLREF=1), Output status As EsquemasDatos.RESNS.rim.referenceURI(XMLPROJECTION="attribute"), Output requestId As %xsd.anyURI(XMLPROJECTION="attribute"), Output RegistryObjectList As EsquemasDatos.RESNS.rim.RegistryObjectListType(REFELEMENTQUALIFIED=1,REFNAMESPACE="urn:oasis:names:tc:ebxml-regrep:xsd:rim:3.0",XMLREF=1), Output totalResultCount As %Integer(XMLPROJECTION="attribute")) [ Final, ProcedureBlock = 1, SoapAction = "urn:ihe:iti:2007:CrossGatewayQuery", SoapBindingStyle = document, SoapBodyUse = literal, SoapMessageName = AdhocQueryResponse, SoapTypeNameSpace = "urn:oasis:names:tc:ebxml-regrep:xsd:query:3.0", WebMethod ] { #dim SAML AS %SAML.Assertion Set SAML = ..SecurityIn.FindElement("Assertion") set writer=##class(%XML.Writer).%New() set status=writer.OutputToString() If $$$ISERR(status) Do $system.OBJ.DisplayError(status) set status=writer.RootObject(SAML) If $$$ISERR(status) Do $system.OBJ.DisplayError(status) set samlString = writer.GetXMLString() $$$LOGASSERT("samlString: "_samlString) set pRequest = ##class(Mensajes.Request.RESNS.RespondingGatewayCrossGatewayQueryRequest).%New() set pRequest.CabeceraSAML = samlString set ..MTOMRequired = 0 set pRequest.RequestSlotList = RequestSlotList [... other unrelated method code ...] } } Second we have added the property in the Request: Class Mensajes.Request.RESNS.RespondingGatewayCrossGatewayQueryRequest Extends Ens.Request [ ProcedureBlock ] { Parameter RESPONSECLASSNAME = "Mensajes.Response.RESNS.RespondingGatewayCrossGatewayQueryResponse"; [... other properties ...] /// 22 05 2023 Añadimos propiedad para guardar la SAML que nos remite Sistema origen MINISTERIO Property CabeceraSAML As %String(MAXLEN = ""); } With the previous changes we get the SAML Assertion in the SOAP Service and then send it to the Process as a String. Third, we need to convert the SAML String to Object in the Web Service Client to send it to nthe Target System as follows: Include Ensemble Class WSCLIENTE.RESNS.ConsultaRecetas Extends %SOAP.WebClient [ ProcedureBlock ] { /// This is the URL used to access the web service. /// This is the namespace used by the Service Parameter NAMESPACE = "urn:ihe:iti:xds-b:2007"; /// Use xsi:type attribute for literal types. Parameter OUTPUTTYPEATTRIBUTE = 0; /// Determines handling of Security header. Parameter SECURITYIN = "ALLOW"; /// This is the name of the Service Parameter SERVICENAME = "RespondingGateway_Service"; /// This is the SOAP version supported by the service. Parameter SOAPVERSION = 1.2; Method RespondingGatewayCrossGatewayQuery(RequestSlotList As EsquemasDatos.RESNS.rim.SlotListType, ResponseOption As EsquemasDatos.RESNS.query.ResponseOptionType, AdhocQuery As EsquemasDatos.RESNS.rim.AdhocQueryType(REFELEMENTQUALIFIED=1,REFNAMESPACE="urn:oasis:names:tc:ebxml-regrep:xsd:rim:3.0",XMLREF=1), federation As %xsd.anyURI(XMLPROJECTION="attribute"), ByRef startIndex As %Integer(XMLPROJECTION="attribute"), maxResults As %Integer(XMLPROJECTION="attribute"), id As %xsd.anyURI(XMLPROJECTION="attribute"), comment As %String(XMLPROJECTION="attribute"), federated As %Boolean(XMLPROJECTION="attribute"), Output ResponseSlotList As EsquemasDatos.RESNS.rim.SlotListType, Output RegistryErrorList As EsquemasDatos.RESNS.rs.RegistryErrorList(REFELEMENTQUALIFIED=1,REFNAMESPACE="urn:oasis:names:tc:ebxml-regrep:xsd:rs:3.0",XMLREF=1), Output RegistryObjectList As EsquemasDatos.RESNS.rim.RegistryObjectListType(REFELEMENTQUALIFIED=1,REFNAMESPACE="urn:oasis:names:tc:ebxml-regrep:xsd:rim:3.0",XMLREF=1), Output requestId As %xsd.anyURI(XMLPROJECTION="attribute"), Output totalResultCount As %Integer(XMLPROJECTION="attribute"), Output status As %xsd.anyURI(XMLPROJECTION="attribute"), CabeceraSAML As %String(MAXLEN="")) [ Final, ProcedureBlock = 1, SoapBindingStyle = document, SoapBodyUse = literal, SoapTypeNameSpace = "urn:oasis:names:tc:ebxml-regrep:xsd:query:3.0", WebMethod ] { $$$LOGALERT("Dentro de WSCLIENTE.RESNS.ConsultaRecetas la CabeceraSAML: "_CabeceraSAML) do ##class(Ens.Util.XML.Reader).ObjectFromString(.objetoSAML,CabeceraSAML,"%SAML.Assertion",) $$$LOGALERT("Dentro de WSCLIENTE.RESNS.ConsultaRecetas el objetoSAML: "_objetoSAML) set x509alias = ##class(Util.TablasMaestras).getValorMaestra("PARAMETROS","aliasCertMSSSI") set password = ##class(Util.TablasMaestras).getValorMaestra("PARAMETROS","pwdCertMSSSI") Set credset = ##class(%SYS.X509Credentials).GetByAlias(x509alias,password) set ref=$$$KeyInfoX509Certificate set assertion=##class(%SAML.Assertion).CreateX509(credset,ref) ;do ..SecurityOut.AddElement(assertion) do ..SecurityOut.AddElement(objetoSAML) Do (..WebMethod("RespondingGatewayCrossGatewayQuery")).Invoke($this,"urn:ihe:iti:2007:CrossGatewayQuery",.RequestSlotList,.ResponseOption,.AdhocQuery,.federation,.startIndex,.maxResults,.id,.comment,.federated,.ResponseSlotList,.RegistryErrorList,.RegistryObjectList,.requestId,.totalResultCount,.status) } } Where the lines which convert the String back to a %SAML.Assertion object are: do ##class(Ens.Util.XML.Reader).ObjectFromString(.objetoSAML,CabeceraSAML,"%SAML.Assertion",) And the ones which are supposed to send it as saml:Assertion inside SOAP:Header are: set x509alias = ##class(Util.TablasMaestras).getValorMaestra("PARAMETROS","aliasCertMSSSI") set password = ##class(Util.TablasMaestras).getValorMaestra("PARAMETROS","pwdCertMSSSI") Set credset = ##class(%SYS.X509Credentials).GetByAlias(x509alias,password) set ref=$$$KeyInfoX509Certificate set assertion=##class(%SAML.Assertion).CreateX509(credset,ref) ;do ..SecurityOut.AddElement(assertion) do ..SecurityOut.AddElement(objetoSAML) However when we generate a Log SOAP, we do not observe the saml:Assertion being added . In fact it only shows the following content inside SOAP Header: Output from Web client with SOAP action = urn:ihe:iti:2007:CrossGatewayQuery <?xml version="1.0" encoding="UTF-8" ?> <SOAP-ENV:Envelope xmlns:SOAP-ENV='http://www.w3.org/2003/05/soap-envelope' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:s='http://www.w3.org/2001/XMLSchema' xmlns:wsa='http://www.w3.org/2005/08/addressing'> <SOAP-ENV:Header> <wsa:Action>urn:ihe:iti:2007:CrossGatewayQuery</wsa:Action> <wsa:MessageID>urn:uuid:F5355A1C-F948-11ED-B9D9-005056AAA48E</wsa:MessageID> <wsa:ReplyTo> <wsa:Address>http://www.w3.org/2005/08/addressing/anonymous</wsa:Address> </wsa:ReplyTo> <wsa:To>...</wsa:To> </SOAP-ENV:Header> <SOAP-ENV:Body> ... </SOAP-ENV:Body> </SOAP-ENV:Envelope> How would you recommend us to send the SAML as an assertion inside the SOAP Header to the target system from a SOAP Bussiness Operation? Thans for answering this question How would you recommend us to send the SAML as an assertion inside the SOAP Header to the target system from a SOAP Bussiness Operation? Thanks for reading and replying.
go to post Yone Moreno · May 17, 2023 Thanks Robert Camper. I am grateful for your help, and I value the most your explanation rephrasing the issue with both examples, what I expect, what I get. Thanks for your didactic answer.
go to post Yone Moreno · May 15, 2023 Thanks for your reply Alex Woodhead. You seem to offer a very complete solution and handle some special cases, such as whitespace removal and case insensitive searches.
go to post Yone Moreno · May 15, 2023 Thanks Alexander Koblov, Why is $Listnext recommended? Is it true? The "$List" function returns a complete list, while "$ListGet" returns a specific item from a list given its index. When you need to iterate over a list, you can use the "$Listnext" function. This function allows you to get the elements of a list one by one, without having to load the whole list into memory at once. Using "$Listnext" instead of "$List" or "$ListGet" can improve performance, as it avoids the need to load and process the entire list at once. Instead, each item can be fetched individually as needed, which is particularly useful in cases where the list is large.
go to post Yone Moreno · Apr 20, 2023 🙌 Thank you so much, Maria Nesterenko, for sharing the valuable testimony and explanation of how you developed the Sheep's Galaxy sleep analysis application using InterSystems IRIS Cloud SQL and IntegratedML technologies. Your application is truly innovative and provides users with the tools to analyze and improve their sleep quality. It's impressive how you took into account factors such as noise levels, room lighting, caffeine consumption, and more to help users create optimal conditions for sleep. The use of Angular framework for frontend, FastApi framework with DB-API package for backend, and IRIS Cloud SQL with IntegratedML to analyze and store data is remarkable. Your team's work is inspiring, and we thank you for contributing to important issues in such a cutting-edge way. 👏 So, to summarize, does the application provide the user with a "sleep score" or does it have additional uses? 🤔
go to post Yone Moreno · Apr 20, 2023 Hi Timothy, Thank you so much for your response and for explaining the use of the $$$FormatText macro in ObjectScript. It's great to know that this macro simplifies the process of string formatting and can be particularly useful in conjunction with localization. 🙌 Best regards!
