Net::HL7::Request
my $request = new Net::HL7::Request(); my $conn = new Net::HL7::Connection('localhost', 8089);
my $msh = new Net::HL7::Segments::MSH();
my $seg1 = new Net::HL7::Segment("PID");
$seg1->setField(1, "foo");
$request->addSegment($msh); $request->addSegment($seg1);
my $response = $conn->send($request);
The Net::HL7::Request simply extends the Net::HL7::Message class.
See Net::HL7::Message.
D.A.Dokter <dokter@wyldebeast-wunderliebe.com>
Copyright (c) 2002 D.A.Dokter. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
