Update to Scheduling and Resource Assignment

           ttsBegin;
            psaActivitySetup = PSAActivitySetup::findActivityNumber(myActivityNumber);
            while select forUpdate psaActivitySetup
                    where PSAActivitySetup.ActivityNumber == myActivityNumber
            {
                psaActivitySetup.PSASchedStart = _startDate;
                psaActivitySetup.PSASchedEnd = dateMthFwd(_startDate, 1);
                psaActivitySetup.update();  
            }
            ttsCommit;