4 * interface/soap_functions/soap_allergy.php Check current patients Allergy TTL
5 * status and perform a SOAP call to NewCrop if elapsed.
7 * Copyright (C) 2011 ZMG LLC <sam@zhservices.com>
9 * LICENSE: This program is free software; you can redistribute it and/or modify
10 * it under the terms of the GNU General Public License as published by the Free
11 * Software Foundation; either version 3 of the License, or (at your option) any
12 * later version. This program is distributed in the hope that it will be
13 * useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
15 * Public License for more details. You should have received a copy of the GNU
16 * General Public License along with this program.
17 * If not, see <http://opensource.org/licenses/gpl-license.php>.
21 * @author Eldho Chacko <eldho@zhservices.com>
22 * @author Vinish K <vinish@zhservices.com>
23 * @author Sam Likins <sam.likins@wsi-services.com>
24 * @link http://www.open-emr.org
27 require_once(__DIR__
.'/../globals.php');
28 require_once($GLOBALS['fileroot'].'/interface/eRxGlobals.php');
29 require_once($GLOBALS['fileroot'].'/interface/eRxStore.php');
30 require_once($GLOBALS['srcdir'].'/xmltoarray_parser_htmlfix.php');
31 require_once($GLOBALS['srcdir'].'/lists.inc');
32 require_once($GLOBALS['srcdir'].'/amc.php');
33 require_once($GLOBALS['fileroot'].'/interface/eRxSOAP.php');
34 require_once($GLOBALS['fileroot'].'/interface/eRx_xml.php');
38 $eRxSOAP = new eRxSOAP
;
39 $eRxSOAP->setGlobals(new eRxGlobals($GLOBALS))
40 ->setStore(new eRxStore
)
41 ->setAuthUserId($_SESSION['authUserID']);
43 if (array_key_exists('patient', $_REQUEST)) {
44 $eRxSOAP->setPatientId($_REQUEST['patient']);
45 } elseif (array_key_exists('pid', $GLOBALS)) {
46 $eRxSOAP->setPatientId($GLOBALS['pid']);
49 if ((array_key_exists('refresh', $_REQUEST)
50 && $_REQUEST['refresh'] == 'true')
51 ||
$eRxSOAP->elapsedTTL(eRxSOAP
::ACTION_ALLERGIES
)
52 ||
$eRxSOAP->checkPatientImportStatus(eRxSOAP
::FLAG_ALLERGY_PRESS
)
54 $eRxSOAP->insertUpdateAllergies();
56 $message = $eRxSOAP->updateUploadedErx()
57 ?
xl('Allergy import successfully completed')
58 : xl('Nothing to import for Allergy');
60 $eRxSOAP->updatePatientImportStatus(eRxSOAP
::FLAG_ALLERGY_IMPORT
)
61 ->updateTTL(eRxSOAP
::ACTION_ALLERGIES
);
63 $message = xl('Import deferred for time-to-live');