From 9a93d8fd9f771bfa8c3cfbd4e66ef99d8f23b71d Mon Sep 17 00:00:00 2001
From: Henry Hamon <henry@hamonrails.com.br>
Date: Tue, 7 May 2024 19:03:33 -0300
Subject: [PATCH] =?UTF-8?q?=F0=9F=94=A8=20Connect=20voice=20to=20medicopil?=
 =?UTF-8?q?ot?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/dc/irisMediCopilot/interop/bp/Voice.cls   | 19 ++++++++++++++++---
 .../interop/dtl/OpenAi2Medicopilot.cls        | 17 +++++++++++++++++
 2 files changed, 33 insertions(+), 3 deletions(-)
 create mode 100644 src/dc/irisMediCopilot/interop/dtl/OpenAi2Medicopilot.cls

diff --git a/src/dc/irisMediCopilot/interop/bp/Voice.cls b/src/dc/irisMediCopilot/interop/bp/Voice.cls
index 9a0b1dd..624d1c0 100644
--- a/src/dc/irisMediCopilot/interop/bp/Voice.cls
+++ b/src/dc/irisMediCopilot/interop/bp/Voice.cls
@@ -13,9 +13,11 @@ XData BPL [ XMLNamespace = "http://www.intersystems.com/bpl" ]
 <process language='objectscript' request='Telegram.Request' response='dc.irisMediCopilot.interop.msg.resp.Voice' height='2000' width='2000' >
 <context>
 <property name='voiceResponse' type='dc.irisMediCopilot.interop.msg.resp.Voice' instantiate='0' />
+<property name='audioResponse' type='St.OpenAi.Msg.Audio.AudioResponse' instantiate='0' />
 <property name='audioRequest' type='St.OpenAi.Msg.Audio.AudioRequest' instantiate='0' />
+<property name='promptRequest' type='dc.irisMediCopilot.interop.msg.req.Prompt' instantiate='0' />
 </context>
-<sequence xend='200' yend='650' >
+<sequence xend='200' yend='950' >
 <call name='Get Voice' target='VoiceFile.BusinessOperation' async='0' xpos='200' ypos='250' >
 <request type='Telegram.Request' >
 <assign property="callrequest" value="request" action="set" />
@@ -24,12 +26,23 @@ XData BPL [ XMLNamespace = "http://www.intersystems.com/bpl" ]
 <assign property="context.voiceResponse" value="callresponse" action="set" />
 </response>
 </call>
-<call name='Call Speech2Text' target='SpeechToText.Router' async='1' xpos='200' ypos='450' >
+<call name='Call Speech2Text' target='SpeechToText.Router' async='0' xpos='200' ypos='350' >
 <request type='dc.irisMediCopilot.interop.msg.resp.Voice' >
 <assign property="callrequest" value="context.voiceResponse" action="set" />
 </request>
+<response type='St.OpenAi.Msg.Audio.AudioResponse' >
+<assign property="context.audioResponse" value="callresponse" action="set" />
+</response>
+</call>
+<transform name='OpenAi2MediCopilot' class='dc.irisMediCopilot.interop.dtl.OpenAi2Medicopilot' source='context.audioResponse' target='context.promptRequest' xpos='200' ypos='450' />
+<assign name="chat id" property="context.promptRequest.chatId" value="request.Data.message.chat.id" action="set" xpos='200' ypos='550' />
+<assign name="message id" property="context.promptRequest.messageId" value='request.Data.message."message_id"' action="set" xpos='200' ypos='650' />
+<call name='Call MediCopilot' target='MediCopilot.Process' async='1' xpos='200' ypos='750' >
+<request type='dc.irisMediCopilot.interop.msg.req.Prompt' >
+<assign property="callrequest" value="context.promptRequest" action="set" />
+</request>
 </call>
-<sync name='Wait Voice' calls='Get Voice,Call Speech2Text' type='all' xpos='200' ypos='550' />
+<sync name='Wait Voice' calls='Get Voice,Call Speech2Text,Call MediCopilot' type='all' xpos='200' ypos='850' />
 </sequence>
 </process>
 }
diff --git a/src/dc/irisMediCopilot/interop/dtl/OpenAi2Medicopilot.cls b/src/dc/irisMediCopilot/interop/dtl/OpenAi2Medicopilot.cls
new file mode 100644
index 0000000..00f5e49
--- /dev/null
+++ b/src/dc/irisMediCopilot/interop/dtl/OpenAi2Medicopilot.cls
@@ -0,0 +1,17 @@
+Class dc.irisMediCopilot.interop.dtl.OpenAi2Medicopilot Extends Ens.DataTransformDTL [ DependsOn = (dc.irisMediCopilot.interop.msg.resp.Prompt, Telegram.Request) ]
+{
+
+Parameter IGNOREMISSINGSOURCE = 1;
+
+Parameter REPORTERRORS = 1;
+
+Parameter TREATEMPTYREPEATINGFIELDASNULL = 0;
+
+XData DTL [ XMLNamespace = "http://www.intersystems.com/dtl" ]
+{
+<transform sourceClass ='St.OpenAi.Msg.Audio.AudioResponse' targetClass='dc.irisMediCopilot.interop.msg.req.Prompt' create='new' language='objectscript' >
+<assign value='source.Text' property='target.content' action='set' />
+</transform>
+}
+
+}