ERROR <Ens>ErrGeneral: No MessageBody classname for MessageHeader #691

[Gary]

Hi All,

I have a BPL in which I create an instance of a message extending from
Ens.Request in a code activity as such:


set XTN = ##class(PAS.XTN).%New()
set XTN.HospitalNumber = context.HospitalNumber
set XTN.TelephoneNumber = $LIST(context.ContactNumber,1)
set XTN.TelecommunicationUseCode = $LIST(context.ContactNumber,2)
set XTN.TeleEquipmentType = $LIST(context.ContactNumber,3)

As you can see it is populated from a LIST object. I then pass it to a
BO via the following code activity:

set context.StoredProcStatus = ##Class(PAS.StoredProcedureStatus).
%New()
set context.StoredProcStatus = process.SendUpdate(context.XTN)

The code for the SendUpdate method is shown below:

Method SendUpdate(msgRequest As Ens.Request) As Ens.Response
{
set Resp = ##class(PAS.StoredProcedureStatus).%New()
set tSC = ..SendRequestSync("InterfaceDB", msgRequest, .Resp)

if $$$ISOK(tSC)
{
quit Resp
}
else
{
$$$TRACE(tSC)
quit Resp
}
}


I get the ErrGeneral: No MessageBody classname for MessageHeader error
when my BPL is trying to send to the BO, can anybody explain what I am
doing wrong please?

Regards,
Gary

[Gary]

Hi All,

I have just found my error - in the first code activity I have stated
set XTN = ##class.....etc but it should have been set
context.XTN.....etc I have now updated all of the XTN references in
this code to context.XTN and it now works.

Regards,
Gary