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.
85 lines
4.0 KiB
85 lines
4.0 KiB
<?php |
|
|
|
/** |
|
* |
|
* QRDA Category1 File |
|
* |
|
* Copyright (C) 2015 Ensoftek, Inc |
|
* |
|
* 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 2 |
|
* 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 |
|
* @author Ensoftek |
|
* @link http://www.open-emr.org |
|
*/ |
|
|
|
//Initialization of QRDA Elements |
|
//QRDA Needed Race |
|
$mainQrdaRaceCodeArr = array('amer_ind_or_alaska_native' => '1002-5', 'Asian' => '2028-9', 'black_or_afri_amer' => '2054-5', 'native_hawai_or_pac_island' => '2076-8', 'white' => '2106-3', 'Asian_Pacific_Island' => '2131-1', 'Black_not_of_Hispan' => '2131-1', 'Hispanic' => '2131-1', 'White_not_of_Hispan' => '2131-1'); |
|
|
|
//QRDA Needed Ethnicity |
|
$mainEthiCodeArr = array('not_hisp_or_latin' => '2186-5', 'hisp_or_latin' => '2135-2'); |
|
|
|
//QRDA Needed Payer Info |
|
$mainQrdaPayerCodeSendArr = array(); |
|
$encCheckUniqId = array(); |
|
$mainQrdaPayerCodeSendArr['Medicare'] = "1"; |
|
$mainQrdaPayerCodeSendArr['Medicaid'] = "2"; |
|
$mainQrdaPayerCodeSendArr['Private Health Insurance'] = "5"; |
|
$mainQrdaPayerCodeSendArr['Other'] = "349"; |
|
|
|
//QRDA |
|
$preDefinedUniqIDRules = array(); |
|
$preDefinedUniqIDRules['0101'] = '40280381-4555-E1C1-0145-672613970D15'; |
|
$preDefinedUniqIDRules['0043'] = '40280381-4555-E1C1-0145-762578A81C4C'; |
|
$preDefinedUniqIDRules['0421'] = '40280381-4555-E1C1-0145-D2B36DBB3FE6'; |
|
$preDefinedUniqIDRules['0038'] = '40280381-4555-E1C1-0145-D7C003364261'; |
|
$preDefinedUniqIDRules['0028'] = '40280381-4600-425F-0146-1F5867D40E82'; |
|
$preDefinedUniqIDRules['0384'] = '40280381-4600-425F-0146-1F620BDF0EB0'; |
|
$preDefinedUniqIDRules['0002'] = '40280381-4600-425F-0146-1F6E280C0F09'; |
|
$preDefinedUniqIDRules['0018'] = '40280381-4600-425F-0146-1F6F722B0F17'; |
|
$preDefinedUniqIDRules['0013'] = '40280381-4600-425F-0146-1F6F722B0F17'; |
|
$preDefinedUniqIDRules['0024'] = '40280381-4555-E1C1-0145-85C7311720F5'; |
|
$preDefinedUniqIDRules['0059'] = '40280381-4555-E1C1-0145-90AC70DE2C73'; |
|
$preDefinedUniqIDRules['0041'] = '40280381-4600-425F-0146-EE66F0005509'; |
|
|
|
$qrda_file_path = $GLOBALS['OE_SITE_DIR'] . "/documents/cqm_qrda/"; |
|
|
|
$EncounterCptCodes = array('ophthalmological_services' => '92002'); |
|
|
|
function getCombinePatients($dataSheet, $reportID) |
|
{ |
|
foreach ($dataSheet as $singleDataSheet) { |
|
//var_dump($singleDataSheet['cqm_nqf_code'],$singleDataSheet['init_patients']); |
|
if (count($cqmCodes ?? []) && in_array($singleDataSheet['cqm_nqf_code'], $cqmCodes)) { |
|
$initPatArr = collectItemizedPatientsCdrReport($reportID, $singleDataSheet['itemized_test_id'], "init_patients"); |
|
$fullPatArr = array(); |
|
foreach ($initPatArr as $initPatInfo) { |
|
$fullPatArr[] = $initPatInfo['pid']; |
|
} |
|
|
|
$patients[$singleDataSheet['cqm_nqf_code']] = array_merge($patients[$singleDataSheet['cqm_nqf_code']], $fullPatArr); |
|
$patients[$singleDataSheet['cqm_nqf_code']] = array_unique($patients[$singleDataSheet['cqm_nqf_code']]); |
|
} else { |
|
$cqmCodes[] = $singleDataSheet['cqm_nqf_code']; |
|
$initPatArr = collectItemizedPatientsCdrReport($reportID, $singleDataSheet['itemized_test_id'], "init_patients"); |
|
$fullPatArr = array(); |
|
foreach ($initPatArr as $initPatInfo) { |
|
$fullPatArr[] = $initPatInfo['pid']; |
|
} |
|
|
|
$patients[$singleDataSheet['cqm_nqf_code']] = $fullPatArr; |
|
} |
|
} |
|
|
|
return $patients; |
|
}
|
|
|