>
>Actually, it looked more like:

>oMessenger = CREATEOBJECT('AHC.Messenger')
>loManager = loMessenger.Connect("TestApplication1")
>
>loMessageType = CREATEOBJECT('AHC.MessageType')
>WITH loMessageType
>	.Version = 'HL7 2.3'
>	.MessageTypeCode = 'ADT'
>	.EventCode = 'A28'
>ENDwith
>
>loMessage = loManager.CreateMessage(loMsgType)
>WITH loMessage.Content.PatientIdentification.PatientName
>	.Add(1)
>	.Item(0).GivenName = 'Donna'
>	.Item(0).FamilyName = 'Fitzgerald'
>ENDwith
>
>loManager.SendMessage(loMessage, 'TestApplication2')
>loManager.DoneWithMessage(loMessage)
>loMessenger.Disconnect()

Thanks for the example. This is good stuff. Now if I could only figure out how to pass an array to this 32-bit dll I'm trying to work with.....

Gregg