/** * Return listing of pertinent and active code types. * * Function will return listing (ct_key) of pertinent * active code types, such as diagnosis codes or procedure * codes in a chosen format. Supported returned formats include * as 1) an array and as 2) a comma-separated lists that has been * process by urlencode() in order to place into URL address safely. * * @param string $category category of code types('diagnosis', 'procedure', 'clinical_term', 'active' or 'medical_problem') * @param string $return_format format or returned code types ('array' or 'csv') * @return string/array */ function collect_codetypes($category, $return_format = "array") { global $code_types; $return = array(); foreach ($code_types as $ct_key => $ct_arr) { if (!$ct_arr['active']) { continue; } if ($category == "diagnosis") { if ($ct_arr['diag']) { array_push($return, $ct_key); } } else { if ($category == "procedure") { if ($ct_arr['proc']) { array_push($return, $ct_key); } } else { if ($category == "clinical_term") { if ($ct_arr['term']) { array_push($return, $ct_key); } } else { if ($category == "active") { if ($ct_arr['active']) { array_push($return, $ct_key); } } else { if ($category == "medical_problem") { if ($ct_arr['problem']) { array_push($return, $ct_key); } } else { //return nothing since no supported category was chosen } } } } } } if ($return_format == "csv") { //return it as a csv string return csv_like_join($return); } else { //$return_format == "array" //return the array return $return; } }
require_once "{$srcdir}/football_injury.inc.php"; } if ($ISSUE_TYPES['ippf_gcac']) { // Similarly for IPPF issues. require_once "{$srcdir}/ippf_issues.inc.php"; } $diagnosis_types = array(); foreach ($code_types as $code => $data) { if ($data['diag']) { array_push($diagnosis_types, $code); } } if (count($diagnosis_types) < 1) { $diagnosis_type = 'ICD9'; } else { $diagnosis_type = csv_like_join($diagnosis_types); } $issue = $_REQUEST['issue']; $thispid = 0 + (empty($_REQUEST['thispid']) ? $pid : $_REQUEST['thispid']); $info_msg = ""; // A nonempty thisenc means we are to link the issue to the encounter. $thisenc = 0 + (empty($_REQUEST['thisenc']) ? 0 : $_REQUEST['thisenc']); // A nonempty thistype is an issue type to be forced for a new issue. $thistype = empty($_REQUEST['thistype']) ? '' : $_REQUEST['thistype']; $thisauth = acl_check('patients', 'med'); if ($issue && $thisauth != 'write') { die("Edit is not authorized!"); } if ($thisauth != 'write' && $thisauth != 'addonly') { die("Add is not authorized!"); }