function cancelRPU($odID, $userID, $transactionCode = "CA")
{
$od = new OD();
$od->selectRecord($odID);
$od->archive = "true";
$od->modifiedBy = $userID;
$od->transactionCode = $transactionCode;
$afs = new AFS();
$afs->selectRecord("", "", $odID);
$afsID = $afs->afsID;
$afs->archive = "true";
$afs->modifiedBy = $userID;
// NCC Modification checked and implemented by K2 : November 16, 2005
// details:
// added lines 70-76, 79 ($td related)
$td = new TD();
$td->selectRecord("", $afsID);
$tdID = $td->tdID;
$td->archive = "true";
$td->modifiedBy = $userID;
$od->cancelRecord($odID, "true", $userID, $transactionCode);
$afs->archiveRecord($afsID, "true", $userID);
$td->archiveRecord($tdID, "true", $userID);
return true;
}
