function process_referral($row)
{
global $form_by;
$key = 'Unspecified';
// For followups we care about the actual service provided, otherwise
// the requested service.
$related_code = $form_by === '20' ? $row['reply_related_code'] : $row['refer_related_code'];
if (!empty($related_code)) {
$relcodes = explode(';', $related_code);
foreach ($relcodes as $codestring) {
if ($codestring === '') {
continue;
}
list($codetype, $code) = explode(':', $codestring);
if ($codetype == 'REF') {
// This is the expected case; a direct IPPF code is obsolete.
$rrow = sqlQuery("SELECT related_code FROM codes WHERE " . "code_type = '16' AND code = '{$code}' AND active = 1 " . "ORDER BY id LIMIT 1");
if (!empty($rrow['related_code'])) {
list($codetype, $code) = explode(':', $rrow['related_code']);
}
}
if ($codetype !== 'IPPF') {
continue;
}
if ($form_by === '1') {
if (preg_match('/^[12]/', $code)) {
$key = xl('SRH Referrals');
loadColumnData($key, $row);
break;
}
} else {
// $form_by is 9 (internal) or 10 or 20 (external) referrals
$key = $code;
break;
}
}
// end foreach
}
if ($form_by !== '1') {
loadColumnData($key, $row);
}
}
function process_result_code($row)
{
global $areport, $arr_titles, $form_by;
// Specific Results. One row for each result name.
//
if ($form_by === '4') {
$key = $row['order_name'] . ' / ' . $row['result_name'];
loadColumnData($key, $row);
} else {
if ($form_by === '5') {
if (!empty($row['related_code'])) {
$relcodes = explode(';', $row['related_code']);
foreach ($relcodes as $codestring) {
if ($codestring === '') {
continue;
}
// list($codetype, $code) = explode(':', $codestring);
// if ($codetype !== 'IPPF') continue;
$key = $codestring;
loadColumnData($key, $row);
}
}
}
}
}
function process_referral($row)
{
global $form_by;
$key = 'Unspecified';
if (!empty($row['refer_related_code'])) {
$relcodes = explode(';', $row['refer_related_code']);
foreach ($relcodes as $codestring) {
if ($codestring === '') {
continue;
}
list($codetype, $code) = explode(':', $codestring);
if ($codetype !== 'IPPF') {
continue;
}
if ($form_by === '1') {
if (preg_match('/^[12]/', $code)) {
$key = xl('SRH Referrals');
loadColumnData($key, $row);
break;
}
} else {
// $form_by is 9 (internal) or 10 or 20 (external) referrals
$key = $code;
break;
}
}
// end foreach
}
if ($form_by !== '1') {
loadColumnData($key, $row);
}
}
