The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Net::HL7::Messages::ACK

SYNOPSIS

$ack = new Net::HL7::Messages::ACK($request);

DESCRIPTION

Convenience module implementing an acknowledgement (ACK) message. This can be used in HL7 servers to create an acknowledgement for an incoming message.

METHODS

setAckCode($code, [$msg])

Set the acknowledgement code for the acknowledgement. Code should be one of: A, E, R. Codes can be prepended with C or A, denoting enhanced or normal acknowledge mode. This denotes: accept, general error and reject respectively. The ACK module will determine the right answer mode (normal or enhanced) based upon the request, if not provided. The message provided in $msg will be set in MSA 3.

setErrorMessage($errMsg)

Set the error message for the acknowledgement. This will also set the error code to either AE or CE, depending on the mode of the incoming message.

AUTHOR

D.A.Dokter <dokter@wyldebeast-wunderliebe.com>

LICENSE

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.