PHP collect_codetypes函数代码示例

 return false;
}

// This invokes the find-code popup.
// For CVX/immunization code administration.
function sel_cvxcode(e) {
 current_sel_name = e.name;
 dlgopen('../patient_file/encounter/find_code_popup.php?codetype=CVX', '_blank', 500, 400);
}

// This invokes the find-code popup.
// For CVX/immunization code administration.
function select_clin_term_code(e) {
 current_sel_clin_term = e.name;
 dlgopen('../patient_file/encounter/find_code_popup.php?codetype=<?php 
echo attr(collect_codetypes("clinical_term", "csv"));
?>
', '_blank', 500, 400);
}

// This is for callback by the find-code popup.
function set_related(codetype, code, selector, codedesc) {
 if (typeof(current_sel_name) == 'undefined' && typeof(current_sel_clin_term) == 'undefined')
 {
 // Coming from Fee Sheet edit
  var f = document.forms[0];
  var celem = f['opt[' + current_lino + '][codes]'];
  var delem = f['opt[' + current_lino + '][descs]'];
  var i = 0;
  while ((i = codedesc.indexOf('~')) >= 0) {
   codedesc = codedesc.substring(0, i) + ' ' + codedesc.substring(i+1);

  if (s.length > 0) s += ';';
  s += codetype + ':' + code;
 } else {
  s = '';
 }
 f[rcvarname].value = s;
}

// This invokes the find-code popup.
function sel_related(varname) {
 rcvarname = varname;
 // codetype is just to make things easier and avoid mistakes.
 // Might be nice to have a lab parameter for acceptable code types.
 // Also note the controlling script here runs from interface/patient_file/encounter/.
 dlgopen('find_code_popup.php?codetype=<?php 
echo attr(collect_codetypes("diagnosis", "csv"));
?>
', '_blank', 500, 400);
}

var transmitting = false;

// Issue a Cancel/OK warning if a previously transmitted order is being transmitted again.
function validate(f) {
<?php 
if (!empty($row['date_transmitted'])) {
    ?>
 if (transmitting) {
  if (!confirm('<?php 
    echo xls('This order was already transmitted on') . ' ' . addslashes($row['date_transmitted']) . '. ' . xls('Are you sure you want to transmit it again?');
    ?>

/**
* Code set searching "internal" function for when searching multiple code sets.
*
* It will also work for one code set search, although not meant for this.
* (This function is not meant to be called directly)
*
* @param array $form_code_types code set keys (will default to checking all active code types if blank)
* @param string $search_term search term
* @param integer $limit Number of results to return (NULL means return all)
* @param array $modes Holds the search modes to process along with the order of processing (default behavior is described in above function comment)
* @param boolean $count if true, then will only return the number of entries
* @param boolean $active if true, then will only return active entries
* @param integer $start Query start limit (for pagination)
* @param integer $number Query number returned (for pagination)
* @param array $filter_elements Array that contains elements to filter
* @return recordset/integer
*/
function multiple_code_set_search($form_code_types = array(), $search_term, $limit = NULL, $modes = NULL, $count = false, $active = true, $start = NULL, $number = NULL, $filter_elements = array())
{
    if (empty($form_code_types)) {
        // Collect the active code types
        $form_code_types = collect_codetypes("active", "array");
    }
    if ($count) {
        //start the counter
        $counter = 0;
    } else {
        // Figure out the appropriate limit clause
        $limit_query = limit_query_string($limit, $start, $number);
        // Prepare the sql bind array
        $sql_bind_array = array();
        // Start the query string
        $query = "SELECT * FROM ((";
    }
    // Loop through each code type
    $flag_first = true;
    $flag_hit = false;
    //ensure there is a hit to avoid trying an empty query
    foreach ($form_code_types as $form_code_type) {
        // see if there is a hit
        $mode_hit = NULL;
        // only use the count method here, since it's much more efficient than doing the actual query
        $mode_hit = sequential_code_set_search($form_code_type, $search_term, NULL, $modes, true, $active, NULL, NULL, $filter_elements, true);
        if ($mode_hit) {
            if ($count) {
                // count the hits
                $count_hits = code_set_search($form_code_type, $search_term, $count, $active, false, NULL, NULL, $filter_elements, NULL, $mode_hit);
                // increment the counter
                $counter += $count_hits;
            } else {
                $flag_hit = true;
                // build the query
                $return_query = code_set_search($form_code_type, $search_term, $count, $active, false, NULL, NULL, $filter_elements, NULL, $mode_hit, true);
                if (!empty($sql_bind_array)) {
                    $sql_bind_array = array_merge($sql_bind_array, $return_query['binds']);
                } else {
                    $sql_bind_array = $return_query['binds'];
                }
                if (!$flag_first) {
                    $query .= ") UNION ALL (";
                }
                $query .= $return_query['query'];
            }
            $flag_first = false;
        }
    }
    if ($count) {
        //return the count
        return $counter;
    } else {
        // Finish the query string
        $query .= ")) as atari {$limit_query}";
        // Process and return the query (if there was a hit)
        if ($flag_hit) {
            return sqlStatement($query, $sql_bind_array);
        }
    }
}

function ActiveIssueCodeRecycleFn($thispid2, $ISSUE_TYPES2)
{
    ///////////////////////////////////////////////////////////////////////
    // Active Issue Code Recycle Function authored by epsdky (2014-2015) //
    ///////////////////////////////////////////////////////////////////////
    $modeIssueTypes = array();
    $issueTypeIdx2 = array();
    $idx2 = 0;
    foreach ($ISSUE_TYPES2 as $issueTypeX => $isJunk) {
        $modeIssueTypes[$idx2] = $issueTypeX;
        $issueTypeIdx2[$issueTypeX] = $idx2;
        ++$idx2;
    }
    $pe2 = array($thispid2);
    $qs2 = str_repeat('?, ', count($modeIssueTypes) - 1) . '?';
    $sqlParameters2 = array_merge($pe2, $modeIssueTypes);
    $codeList2 = array();
    $issueCodes2 = sqlStatement("SELECT diagnosis FROM lists WHERE pid = ? AND enddate is NULL AND type IN ({$qs2})", $sqlParameters2);
    while ($issueCodesRow2 = sqlFetchArray($issueCodes2)) {
        if ($issueCodesRow2['diagnosis'] != "") {
            $someCodes2 = explode(";", $issueCodesRow2['diagnosis']);
            $codeList2 = array_merge($codeList2, $someCodes2);
        }
    }
    if ($codeList2) {
        $codeList2 = array_unique($codeList2);
        sort($codeList2);
    }
    $memberCodes = array();
    $memberCodes[0] = array();
    $memberCodes[1] = array();
    $memberCodes[2] = array();
    $allowedCodes2 = array();
    $allowedCodes2[0] = collect_codetypes("medical_problem");
    $allowedCodes2[1] = collect_codetypes("diagnosis");
    $allowedCodes2[2] = collect_codetypes("drug");
    // Test membership of codes to each code type set
    foreach ($allowedCodes2 as $akey1 => $allowCodes2) {
        foreach ($codeList2 as $listCode2) {
            list($codeTyX, ) = explode(":", $listCode2);
            if (in_array($codeTyX, $allowCodes2)) {
                array_push($memberCodes[$akey1], $listCode2);
            }
        }
    }
    // output sets of display options
    $displayCodeSets[0] = $memberCodes[0];
    // medical_problem
    $displayCodeSets[1] = array_merge($memberCodes[1], $memberCodes[2]);
    // allergy
    $displayCodeSets[2] = array_merge($memberCodes[2], $memberCodes[1]);
    // medication
    $displayCodeSets[3] = $memberCodes[1];
    // default
    echo "var listBoxOptionSets = new Array();\n\n";
    foreach ($displayCodeSets as $akey => $displayCodeSet) {
        echo "listBoxOptionSets[" . attr($akey) . "] = new Array();\n";
        if ($displayCodeSet) {
            foreach ($displayCodeSet as $dispCode2) {
                $codeDesc2 = lookup_code_descriptions($dispCode2);
                echo "listBoxOptionSets[" . attr($akey) . "][listBoxOptionSets[" . attr($akey) . "].length] = new Option('" . attr($dispCode2) . " (" . attr(trim($codeDesc2)) . ") ' ,'" . attr($dispCode2) . "' , false, false);\n";
            }
        }
    }
    // map issues to a set of display options
    $modeIndexMapping = array();
    foreach ($modeIssueTypes as $akey2 => $isJunk) {
        $modeIndexMapping[$akey2] = 3;
    }
    if (array_key_exists("medical_problem", $issueTypeIdx2)) {
        $modeIndexMapping[$issueTypeIdx2['medical_problem']] = 0;
    }
    if (array_key_exists("allergy", $issueTypeIdx2)) {
        $modeIndexMapping[$issueTypeIdx2['allergy']] = 1;
    }
    if (array_key_exists("medication", $issueTypeIdx2)) {
        $modeIndexMapping[$issueTypeIdx2['medication']] = 2;
    }
    echo "\nvar listBoxOptions2 = new Array();\n\n";
    foreach ($modeIssueTypes as $akey2 => $isJunk) {
        echo "listBoxOptions2[" . attr($akey2) . "] = listBoxOptionSets[" . attr($modeIndexMapping[$akey2]) . "];\n";
    }
    ///////////////////////////////////////////////////////////////////////
    // End of Active Issue Code Recycle Function main code block         //
    ///////////////////////////////////////////////////////////////////////
}

}

//This invokes the find-code popup.
function sel_diagnosis(e) {
 current_sel_name = e.name;
 dlgopen('../patient_file/encounter/find_code_popup.php?codetype=<?php 
echo collect_codetypes("diagnosis", "csv");
?>
', '_blank', 500, 400);
}

//This invokes the find-code popup.
function sel_procedure(e) {
 current_sel_name = e.name;
 dlgopen('../patient_file/encounter/find_code_popup.php?codetype=<?php 
echo collect_codetypes("procedure", "csv");
?>
', '_blank', 500, 400);
}
</script>
<link rel='stylesheet' href='<?php 
echo $css_header;
?>
' type='text/css'>
<style type="text/css">
/* specifically include & exclude from printing */
@media print {
#report_parameters {
	visibility: hidden;
	display: none;
}

 } else {
  s = '';
 }
 f.form_diagnosis.value = s;
 if(title == '') f.form_title.value = codedesc;
}

// This invokes the find-code popup.
function sel_diagnosis() {
<?php 
$url = '../encounter/find_code_popup.php?codetype=';
if ($irow['type'] == 'medical_problem') {
    $url .= collect_codetypes("medical_problem", "csv");
} else {
    $url .= collect_codetypes("diagnosis", "csv");
    $tmp = collect_codetypes("drug", "csv");
    if ($irow['type'] == 'allergy') {
        if ($tmp) {
            $url .= ",{$tmp}";
        }
    } else {
        if ($irow['type'] == 'medication') {
            if ($tmp) {
                $url .= ",{$tmp}&default={$tmp}";
            }
        }
    }
}
?>
 dlgopen('<?php 
echo $url;

// Erases the current entry
function set_related(codetype, code, selector, codedesc) {
 var f = document.forms[0];
 var s = f.form_proc_codefull.value;
 if (code) {
  s = codetype + ':' + code;
 } else {
  s = '';
 }
 f.form_proc_codefull.value = s;
}

// This invokes the find-code popup.
function sel_procedure() {
 dlgopen('../patient_file/encounter/find_code_popup.php?codetype=<?php 
echo attr(collect_codetypes("procedure", "csv"));
?>
', '_blank', 500, 400);
}

</script>

<title><?php 
xl('Receipts Summary', 'e');
?>
</title>
</head>

<body class="body_top">

<span class='title'><?php 

 dlgopen('../patient_file/encounter/find_code_popup.php', '_blank', 700, 400);
 return false;
}

// This invokes the find-code popup.
// For CVX/immunization code administration.
function sel_cvxcode(e) {
 current_sel_name = e.name;
 dlgopen('../patient_file/encounter/find_code_popup.php?codetype=CVX', '_blank', 500, 400);
}

// This invokes the find-code popup.
// For CVX/immunization code administration.
function select_clin_term_code(e) {
 current_sel_clin_term = e.name;
 dlgopen('../patient_file/encounter/find_code_popup.php?codetype=<?php echo attr(collect_codetypes("clinical_term","csv")) ?>', '_blank', 500, 400);
}

// This is for callback by the find-code popup.
function set_related(codetype, code, selector, codedesc) {
 if (typeof(current_sel_name) == 'undefined' && typeof(current_sel_clin_term) == 'undefined')
 {
 // Coming from Fee Sheet edit
  var f = document.forms[0];
  var celem = f['opt[' + current_lino + '][codes]'];
  var delem = f['opt[' + current_lino + '][descs]'];
  var i = 0;
  while ((i = codedesc.indexOf('~')) >= 0) {
   codedesc = codedesc.substring(0, i) + ' ' + codedesc.substring(i+1);
  }
  if (code) {