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;
}
function archiveRecords($odIDArray = "", $archiveValue = "", $userID = "")
{
$od = new OD();
$ret = false;
foreach ($odIDArray as $key => $odID) {
if ($od->archiveRecord($odID, $archiveValue, $userID)) {
// archive AFS
$afs = new AFS();
if ($afsID = $afs->checkAfsID($odID)) {
$afs->archiveRecord($afsID, $archiveValue, $userID);
}
// archive TD
$td = new TD();
if ($tdID = $td->checkTdID($afsID)) {
$td->archiveRecord($tdID, $archiveValue, $userID);
}
}
$ret = true;
}
return $ret;
}
function archiveRecords($afsIDArray = "", $archiveValue = "", $userID = "")
{
$afs = new AFS();
$ret = false;
foreach ($afsIDArray as $key => $value) {
if ($afs->archiveRecord($value, $archiveValue, $userID)) {
$ret = true;
}
}
return $ret;
}
