if ($prm==`CS_Proc_Create`)
{
  $UserId=$_SESSION[`UserId`];
  $sql="insert into Responses (qID,rValue,uID,rInstance)" . 
       " select `CS_Proc_Desc`,`New Process`,`$UserId`,`0`";
  ExecuteSQL($sql);
  $CaseId=ShowQueryResultScalar("select max(rUnique) from Responses where qID=`CS_Proc_Desc`");
  ExecuteSQL("update Responses set CaseID=$CaseId where rUnique=$CaseId");
  $_SESSION[`CaseId`]=$CaseId;
  SetForm(`CS_Process_Edit`);
}
$stat=1;