You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
101 lines
3.7 KiB
101 lines
3.7 KiB
<?php |
|
|
|
/** |
|
* Copyright (C) 2012-2021 Rod Roark <rod@sunsetsystems.com> |
|
* |
|
* LICENSE: This program is free software: you can redistribute it and/or modify |
|
* it under the terms of the GNU General Public License as published by |
|
* the Free Software Foundation, either version 3 of the License, or |
|
* (at your option) any later version. |
|
* This program is distributed in the hope that it will be useful, |
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
* GNU General Public License for more details. |
|
* You should have received a copy of the GNU General Public License |
|
* along with this program. If not, see <http://opensource.org/licenses/gpl-license.php>. |
|
* |
|
* @package OpenEMR |
|
* @link http://www.open-emr.org |
|
*/ |
|
|
|
use OpenEMR\Billing\BillingUtilities; |
|
|
|
// These variables are used to compute the service with highest CYP. |
|
// |
|
$contraception_billing_code = ''; |
|
$contraception_billing_cyp = -1; |
|
$contraception_billing_prov = 0; |
|
|
|
// This is called for each service in the visit to determine the method |
|
// of the service with highest CYP. |
|
// |
|
function _contraception_billing_check($code_type, $code, $provider) |
|
{ |
|
global $code_types; |
|
global $contraception_billing_code, $contraception_billing_cyp, $contraception_billing_prov; |
|
|
|
if ($code_type != 'MA') { |
|
return; |
|
} |
|
|
|
// The cyp_factor test in this query is to select only MA codes that |
|
// are flagged as Initial Consult. |
|
$sql = "SELECT related_code FROM codes WHERE " . |
|
"code_type = ? AND code = ? AND cyp_factor != 0 LIMIT 1"; |
|
$codesrow = sqlQuery($sql, array($code_types[$code_type]['id'], $code)); |
|
|
|
if (!empty($codesrow['related_code'])) { |
|
$relcodes = explode(';', $codesrow['related_code']); |
|
foreach ($relcodes as $relstring) { |
|
if ($relstring === '') { |
|
continue; |
|
} |
|
list($reltype, $relcode) = explode(':', $relstring); |
|
if ($reltype !== 'IPPFCM') { |
|
continue; |
|
} |
|
$tmprow = sqlQuery( |
|
"SELECT cyp_factor FROM codes WHERE " . |
|
"code_type = '32' AND code = ? LIMIT 1", |
|
array($relcode) |
|
); |
|
$cyp = 0 + $tmprow['cyp_factor']; |
|
if ($cyp > $contraception_billing_cyp) { |
|
$contraception_billing_cyp = $cyp; |
|
$contraception_billing_code = $relcode; |
|
$contraception_billing_prov = $provider; |
|
} |
|
} |
|
} |
|
} |
|
|
|
// Get the contraceptive method (IPPFCM) code $contraception_billing_code, if any, |
|
// indicated by an initial-consult contraception service in the visit. If |
|
// there is more than one then the code with highest CYP is selected. This |
|
// call returns TRUE if one is found, otherwise FALSE. Also set is the |
|
// provider of that service, $contraception_billing_prov, and the corresponding |
|
// CYP value $contraception_billing_cyp. |
|
// |
|
function contraception_billing_scan($patient_id, $encounter_id, $provider_id = 0) |
|
{ |
|
global $contraception_billing_code, $contraception_billing_cyp, $contraception_billing_prov; |
|
|
|
$contraception_billing_code = ''; |
|
$contraception_billing_cyp = -1; |
|
$contraception_billing_prov = 0; |
|
|
|
$billresult = BillingUtilities::getBillingByEncounter($patient_id, $encounter_id, "*"); |
|
if (is_array($billresult)) { |
|
foreach ($billresult as $iter) { |
|
_contraception_billing_check($iter["code_type"], trim($iter["code"]), $iter['provider_id']); |
|
} |
|
} |
|
// If no provider at the line level, use the encounter's default provider. |
|
if (empty($contraception_billing_prov)) { |
|
$contraception_billing_prov = 0 + $provider_id; |
|
} |
|
if (!empty($contraception_billing_code)) { |
|
return true; |
|
} |
|
return false; |
|
}
|
|
|