Looking for Iguana v.5 or v.6? Learn More or see the Help Center.
Generating a Message |
It's easy to create a message and populate it with data in Chameleon. First, you must create an instance of the message object.
The constructor for each custom message object requires an instance of an Engine object. The Engine object must have been pre-loaded with the same message definition file used to create the message object.
var
Msg : THL7msgDischarge;
begin
Msg := nil;
try
// hl7Engine is the name of the custom engine component
Msg := THL7msgDischarge.Create(hl7Engine);
:
|
The tables in the message are then populated by using AddRow() to add rows and the set<field name>(...) methods to assign values to the table columns. We'll give a simple code example for creating the following message:
MSH|^~\&|REGADT|MCM|RSP1P8|MCM|199601051530|SEC|ADT^A44|00000007|P|2.5 EVN|A44|199601051530 PID|||MR2^^^XYZ||JONES^WILLIAM^A^JR||19501010|M|||123 EAST STREET^^NY^NY^10021||111-3333^212|||S||ACCT1 MRG|MR1^^^XYZ||ACCT1 |
The Table Grammar of the message is shown below:
Message Table Grammar
var
Msg : THL7msgDischarge;
begin
Msg := nil;
try
// hl7Engine is the name of the custom engine component
Msg := THL7msgDischarge.Create(hl7Engine);
//Add one row into the Header Table
Msg.Header.AddRow;
//populating the data in the Header Table
Msg.Header[0].SendApplication := 'REGADT';
Msg.Header[0].SendFacility := 'MCM';
.
.
.
// Add Three rows into the Patient Table
Msg.Patient.AddRow;
Msg.Patient.AddRow;
Msg.Patient.AddRow;
.
.
.
Msg.Patient[0].Birthday := '19501010';
Msg.Patient[0].Sex := 'M';
.
.
.
// Add a row to the Phone group
Msg.PhoneGrp.AddRow;
// Add a row into the phonenumsub table under the group
Msg.PhoneGrp[0].PhoneNumSub.AddRow;
//populating the data to the first row of sub-Table1
Msg.PhoneGrp[0].PhoneNumSub[0].PhoneNumber("111-3333");
Msg.PhoneGrp[0].PhoneNumSub[0].AreaCode("212");
return Msg.GenerateFlatWire;
finally
// It is important to free the message object to avoid
// memory leaks
Msg.Free;
end;
end;
|