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; }