Generating a Message

To do this, you must use a generated method on the Engine object associated with the message object of the form New<Message Name>. This code fragment illustrates the technique:

Private Sub GeneratePatientUpdateMessage()
   On Error GoTo ErrorHandler
   Dim Message As HL7MsgPatientUpdate
   ' We cannot instantiate the message object directly, instead
   ' we use the engine NewXXX methods.
   Set Message = Engine.NewPatientUpdate
   ' Then we add one row to the table.

The tables in the message are then populated by using the Add method to add rows to each of the tables and table groups in the message.

The following code fragment shows an example of populating a message in Visual Basic:

Dim FlatWire As String

Message.Patient.Add
' And set some details.
' Notice that index 1 is the first row.
Message.Patient(1).ID = "ID"
Message.Patient(1).Title = "Mr"
Message.Patient(1).GivenName = "Bruce"
Message.Patient(1).FamilyName = "Willis"

Message.InsGrp.Add
Message.InsGrp.Guarantor.Add
Message.InsGrp.Guarantor.Add
Message.InsGrp(1).Guarantor(1).ID = "2344"
Message.InsGrp(1).Guarantor(2).ID = "2323"

'Generate the actual HL7 message string.
FlatWire = Message.GenerateFlatWire


	One common mistake made by new users of Chameleon is to forget that Add must be invoked on table group parents before rows can be added to table objects they contain.

iNTERFACEWARE™ Inc.

Generating a Message