GLOBAL $LINENUMBERS;
$LINENUMBERS=0;
global $FCOLOR;
$FCOLOR='RED';
$wHit=$_SESSION['PM_wHit'];
$exte=$_REQUEST['exte'];
if ($exte==1) $wHit=800;
ExecuteSQL(~create temporary table b select rUnique,rValue as Registrant,rInstance from Responses where qID='Reg_Name' and CaseID='$CaseId' and isDeleted=0 and rValue>''~);
//ShowQueryResult(~select * from b~);
ExecuteSQL(~create temporary table c select rUnique,rValue as Date,rInstance from Responses where qID='Reg_Date' and CaseID='$CaseId' and isDeleted=0 ~);
//ShowQueryResult(~select * from c~);
echo '
';
echo '
';
global $NOSORT;
$NOSORT=0;
$order=$_REQUEST['orderby'];
if ($order=='') $orderby='Date';
else $orderby=$order.', Date';
ShowQueryResult(~select CaseID, rValue from Responses where qID='CaseDescription' and CaseID in (select CaseID from Responses where qID='CaseType' and rValue='E') and isDeleted=0 order by rValue~);
echo ~
GLOBAL $LINENUMBERS;
$LINENUMBERS=0;
global $FCOLOR;
$FCOLOR='RED';
$CaseId=$_SESSION['CaseId'];
$wHit=$_SESSION['PM_wHit'];
$exte=$_REQUEST['exte'];
if ($exte==1) $wHit=800;
//echo ~ wHit=$wHit exte=$exte~;
$sel=$_REQUEST['RegistrationSelect'];
if ($sel!=~~)
{
$_SESSION['Instance']=ShowQueryResultScalar(~select rInstance from Responses where rUnique='$sel' and isDeleted=0~);
SetForm('Registration');
}
echo ~~;
$tmpRGcase=$_REQUEST['tmpRGcase'];
if ($tmpRGcase!='')
{
$CaseId=$tmpRGcase;
$_SESSION['CaseId']=$CaseId;
}
//echo ~
$CaseId Transactions
~;
ExecuteSQL(~create temporary table b select rUnique,rValue as Registrant,rInstance from Responses where qID='Reg_Name' and CaseID='$CaseId' and isDeleted=0 and rValue>''~);
//ShowQueryResult(~select * from b~);
ExecuteSQL(~create temporary table c select rUnique,rValue as Date,rInstance from Responses where qID='Reg_Date' and CaseID='$CaseId' and isDeleted=0 ~);
//ShowQueryResult(~select * from c~);
echo '
';
echo '
';
global $NOSORT;
$NOSORT=0;
$order=$_REQUEST['orderby'];
if ($order=='') $orderby='Date';
else $orderby=$order.', Date';
ShowQueryResult(~select distinct concat('') as Detail, Registrant, Date from b left join c on c.rInstance=b.rInstance order by $orderby DESC~);
echo ~