eRx_xml.php

<?php

/**
 * interface/eRx_xml.php Functions for interacting with NewCrop communications.
 *
 * @package   OpenEMR
 * @link      http:https://www.open-emr.org
 * @author    Eldho Chacko <eldho@zhservices.com>
 * @author    Vinish K <vinish@zhservices.com>
 * @author    Brady Miller <brady.g.miller@gmail.com>
 * @copyright Copyright (c) 2011 ZMG LLC <sam@zhservices.com>
 * @copyright Copyright (c) 2018 Brady Miller <brady.g.miller@gmail.com>
 * @license   https://github.com/openemr/openemr/blob/master/LICENSE GNU General Public License 3
 */

use OpenEMR\Common\Crypto\CryptoGen;
use OpenEMR\Services\FacilityService;
use OpenEMR\Services\VersionService;

$facilityService = new FacilityService();

function getErxPath()
{
    return $GLOBALS['erx_newcrop_path'];
}

function getErxSoapPath()
{
    return $GLOBALS['erx_newcrop_path_soap'];
}

function getErxCredentials()
{
    $cred = array();
    $cred[] = $GLOBALS['erx_account_partner_name'];
    $cred[] = $GLOBALS['erx_account_name'];
    $cryptoGen = new CryptoGen();
    $cred[] = $cryptoGen->decryptStandard($GLOBALS['erx_account_password']);

    return $cred;
}

function validation($val_check, $val, $msg)
{
    if (!$val) {
        $msg .= $val_check . ' ' . xl('missing') . '<br />';
    }

    return $msg;
}

function stripSpecialCharacterFacility($str)
{
    $str = preg_replace("/[^a-zA-Z0-9 '().,#:\/\-@_%]/", "", $str);
    return $str;
}

function stripSpecialCharacter($str)
{
    $str = preg_replace("/[^a-zA-Z0-9 '().,#:\/\-@_%]/", "", $str);
    return $str;
}

function stripPhoneSlashes($str)
{
    $str = preg_replace('/-/', '', $str);
    return $str;
}

function trimData($str, $length)
{
    $str = substr($str, 0, ($length - 1));
    return $str;
}

function stringToNumeric($str)
{
    if (is_numeric($str)) {
        return array($str,"");
    } else {
        for ($i = 0; $i < strlen($str); $i++) {
            $x = substr($str, $i, 1);
            if (is_numeric($x) && !$txt) {
                $num .= $x;
            } else {
                $txt .= $x;
            }
        }

        return array($num,$txt);
    }

    $str = substr($str, 0, ($length - 1));
    return $str;
}
function credentials($doc, $r)
{
    global $msg;
    $cred = getErxCredentials();
    $msg = validation(xl('Partner Name'), $cred['0'], $msg);
    $b = $doc->createElement("Credentials");
    $partnerName = $doc->createElement("partnerName");
    $partnerName->appendChild(
        $doc->createTextNode($cred['0'])
    );
    $b->appendChild($partnerName);
    $msg = validation(xl('ERX Name'), $cred['1'], $msg);
    $name = $doc->createElement("name");
    $name->appendChild(
        $doc->createTextNode($cred['1'])
    );
    $b->appendChild($name);
    $msg = validation(xl('ERX Password'), $cred['2'], $msg);
    $password = $doc->createElement("password");
    $password->appendChild(
        $doc->createTextNode($cred['2'])
    );
    $b->appendChild($password);
    $productName = $doc->createElement("productName");
    $productName->appendChild(
        $doc->createTextNode('OpenEMR')
    );
    $b->appendChild($productName);
    $productVersion = $doc->createElement("productVersion");
    $productVersion->appendChild(
        $doc->createTextNode((new VersionService())->asString())
    );
    $b->appendChild($productVersion);
    $r->appendChild($b);
}

function user_role($doc, $r)
{
    global $msg;
    $userRole = sqlQuery("select * from users where username=?", array($_SESSION['authUser']));
    if (!$userRole['newcrop_user_role']) {
        echo xlt('Unauthorized access to ePrescription');
        die;
    }

    $userRole['newcrop_user_role'] = preg_replace('/erx/', '', $userRole['newcrop_user_role']);
    if ($userRole['newcrop_user_role'] == 'doctor') {
        $userRole['eRxUser'] = 'LicensedPrescriber';
    } elseif ($userRole['newcrop_user_role'] == 'admin' || $userRole['newcrop_user_role'] == 'manager' || $userRole['newcrop_user_role'] == 'nurse') {
        $userRole['eRxUser'] = 'Staff';
    } elseif ($userRole['newcrop_user_role'] == 'midlevelPrescriber') {
        $userRole['eRxUser'] = 'MidlevelPrescriber';
    } elseif ($userRole['newcrop_user_role'] == 'supervisingDoctor') {
        $userRole['eRxUser'] = 'SupervisingDoctor';
    }

    $msg = validation(xl('ERX User'), $userRole['eRxUser'], $msg);
    $b = $doc->createElement("UserRole");
    $user = $doc->createElement("user");
    $user->appendChild(
        $doc->createTextNode($userRole['eRxUser'])
    );
    $b->appendChild($user);
    $msg = validation(xl('ERX Role'), $userRole['newcrop_user_role'], $msg);
    $role = $doc->createElement("role");
    $role->appendChild(
        $doc->createTextNode($userRole['newcrop_user_role'])
    );
    $b->appendChild($role);
    $r->appendChild($b);
}

function destination($doc, $r, string $page = null, $pid)
{
    global $msg,$page;
    $userRole = sqlQuery("select * from users where username=?", array($_SESSION['authUser']));
    $userRole['newcrop_user_role'] = preg_replace('/erx/', '', $userRole['newcrop_user_role']);
    if (!$page) {
        $page = 'compose';
        if ($userRole['newcrop_user_role'] == 'admin') {
            $page = 'admin';
        } elseif ($userRole['newcrop_user_role'] == 'manager') {
            $page = 'manager';
        }
    }

    $b = $doc->createElement("Destination");
    $requestedPage = $doc->createElement("requestedPage");
    $requestedPage->appendChild(
        $doc->createTextNode($page)
    );
    $b->appendChild($requestedPage);
    $r->appendChild($b);
}

function account($doc, $r)
{
    global $msg, $facilityService;
    $erxSiteID = $facilityService->getPrimaryBusinessEntity();
    if (!$erxSiteID['federal_ein']) {
        echo xlt("Please select a Primary Business Entity facility with 'Tax ID' as your facility Tax ID. If you are an individual practitioner, use your tax id. This is used for identifying you in the NewCrop system.");
        die;
    }

    $b = $doc->createElement("Account");
    $b->setAttribute('ID', $GLOBALS['erx_account_id']);
    $erxSiteID['name'] = stripSpecialCharacterFacility($erxSiteID['name']);
    $erxSiteID['name'] = trimData($erxSiteID['name'], 35);
    $msg = validation(xl('Account Name'), $erxSiteID['name'], $msg);
    $accountName = $doc->createElement("accountName");
    $accountName->appendChild(
        $doc->createTextNode($erxSiteID['name'])
    );
    $b->appendChild($accountName);
    $msg = validation(xl('Site ID'), $_SESSION['site_id'], $msg);
    $siteID = $doc->createElement("siteID");
    $siteID->appendChild(
        $doc->createTextNode($erxSiteID['federal_ein'])
    );
    $b->appendChild($siteID);
    $erxSiteID['street'] = stripSpecialCharacterFacility($erxSiteID['street']);
    $erxSiteID['street'] = trimData($erxSiteID['street'], 35);
    $AccountAddress = $doc->createElement("AccountAddress");
        $msg = validation(xl('Facility Street'), $erxSiteID['street'], $msg);
        $address1 = $doc->createElement("address1");
        $address1->appendChild(
            $doc->createTextNode($erxSiteID['street'])
        );
        $AccountAddress->appendChild($address1);
        $msg = validation(xl('Facility City'), $erxSiteID['city'], $msg);
        $city = $doc->createElement("city");
        $city->appendChild(
            $doc->createTextNode($erxSiteID['city'])
        );
        $AccountAddress->appendChild($city);
        $msg = validation(xl('Facility State'), $erxSiteID['state'], $msg);
        $state = $doc->createElement("state");
        $state->appendChild(
            $doc->createTextNode($erxSiteID['state'])
        );
        $AccountAddress->appendChild($state);
        $jasonbigzip = $erxSiteID['postal_code'];
    $jasonbigzip = preg_replace('/[^0-9]/', '', $jasonbigzip);
    if (strlen($jasonbigzip) >= 5) {
        $jasonzip = substr($jasonbigzip, 0, 5);
        $zip4 = substr($jasonbigzip, 5, 4);
    } else {
        $msg = validation(xl('Facility Zip'), $jasonzip, $msg);
    }

        $zip = $doc->createElement("zip");
        $zip->appendChild(
            $doc->createTextNode($jasonzip)
        );
        $AccountAddress->appendChild($zip);
    if (strlen($zip4) == 4) {
        $zipFour = $doc->createElement("zip4");
        $zipFour->appendChild(
            $doc->createTextNode($zip4)
        );
        $AccountAddress->appendChild($zipFour);
    }

        $msg = validation(xl('Facility Country code'), $erxSiteID['country_code'], $msg);
        $county_code = substr($erxSiteID['country_code'], 0, 2);
        $country = $doc->createElement("country");
        $country->appendChild(
            $doc->createTextNode($county_code)
        );
        $AccountAddress->appendChild($country);
    $b->appendChild($AccountAddress);
    $msg = validation(xl('Facility Phone'), $erxSiteID['phone'], $msg);
    $accountPrimaryPhoneNumber = $doc->createElement("accountPrimaryPhoneNumber");
    $erxSiteID['phone'] = stripPhoneSlashes($erxSiteID['phone']);
    $accountPrimaryPhoneNumber->appendChild(
        $doc->createTextNode($erxSiteID['phone'])
    );
    $b->appendChild($accountPrimaryPhoneNumber);
    $msg = validation(xl('Facility Fax'), $erxSiteID['fax'], $msg);
    $accountPrimaryFaxNumber = $doc->createElement("accountPrimaryFaxNumber");
    $erxSiteID['fax'] = stripPhoneSlashes($erxSiteID['fax']);
    $accountPrimaryFaxNumber->appendChild(
        $doc->createTextNode($erxSiteID['fax'])
    );
    $b->appendChild($accountPrimaryFaxNumber);
    $r->appendChild($b);
}

function location($doc, $r)
{
    global $msg;
    $userRole = sqlQuery("SELECT * FROM users AS u LEFT JOIN facility AS f ON f.id=u.facility_id WHERE u.username=?", array($_SESSION['authUser']));
    $b = $doc->createElement("Location");
    $b->setAttribute('ID', $userRole['id']);
    $userRole['name'] = stripSpecialCharacterFacility($userRole['name']);
    $userRole['name'] = trimData($userRole['name'], 35);
    $locationName = $doc->createElement('locationName');
    $locationName->appendChild(
        $doc->createTextNode($userRole['name'])
    );
    $b->appendChild($locationName);
    $userRole['street'] = stripSpecialCharacterFacility($userRole['street']);
    $userRole['street'] = trimData($userRole['street'], 35);
    $LocationAddress = $doc->createElement('LocationAddress');
    if ($userRole['street']) {
        $address1 = $doc->createElement('address1');
        $address1->appendChild(
            $doc->createTextNode($userRole['street'])
        );
        $LocationAddress->appendChild($address1);
    }

    if ($userRole['city']) {
        $city = $doc->createElement('city');
        $city->appendChild(
            $doc->createTextNode($userRole['city'])
        );
        $LocationAddress->appendChild($city);
    }

    if ($userRole['state']) {
        $state = $doc->createElement('state');
        $state->appendChild(
            $doc->createTextNode($userRole['state'])
        );
        $LocationAddress->appendChild($state);
    }

    $jasonbigzip = $userRole['postal_code'];
    $jasonbigzip = preg_replace('/[^0-9]/', '', $jasonbigzip);
    if (strlen($jasonbigzip) >= 5) {
        $jasonzip = substr($jasonbigzip, 0, 5);
        $zip4 = substr($jasonbigzip, 5, 4);
    } else {
        $msg = validation(xl('Facility Zip'), $jasonzip, $msg);
    }

        $zip = $doc->createElement("zip");
        $zip->appendChild(
            $doc->createTextNode($jasonzip)
        );
        $LocationAddress->appendChild($zip);
    if (strlen($zip4) == 4) {
        $zipFour = $doc->createElement("zip4");
        $zipFour->appendChild(
            $doc->createTextNode($zip4)
        );
        $LocationAddress->appendChild($zipFour);
    }

    if ($userRole['country_code']) {
        $county_code = substr($userRole['country_code'], 0, 2);
        $country = $doc->createElement('country');
        $country->appendChild(
            $doc->createTextNode($county_code)
        );
        $LocationAddress->appendChild($country);
    }

    $b->appendChild($LocationAddress);
    if ($userRole['phone']) {
        $userRole['phone'] = stripPhoneSlashes($userRole['phone']);
        $primaryPhoneNumber = $doc->createElement('primaryPhoneNumber');
        $primaryPhoneNumber->appendChild(
            $doc->createTextNode($userRole['phone'])
        );
        $b->appendChild($primaryPhoneNumber);
    }

    if ($userRole['fax']) {
        $userRole['fax'] = stripPhoneSlashes($userRole['fax']);
        $primaryFaxNumber = $doc->createElement('primaryFaxNumber');
        $primaryFaxNumber->appendChild(
            $doc->createTextNode($userRole['fax'])
        );
        $b->appendChild($primaryFaxNumber);
    }

    $pharmacyContactNumber = $doc->createElement('pharmacyContactNumber');
    $pharmacyContactNumber->appendChild(
        $doc->createTextNode($userRole['phone'])
    );
    $b->appendChild($pharmacyContactNumber);
    $r->appendChild($b);
}

function LicensedPrescriber($doc, $r)
{
    global $msg;
    $user_details = sqlQuery("SELECT * FROM users WHERE id = ?", array($_SESSION['authUserID']));
    $b = $doc->createElement("LicensedPrescriber");
    $b->setAttribute('ID', $user_details['npi']);
    $LicensedPrescriberName = $doc->createElement("LicensedPrescriberName");
        $user_details['lname'] = stripSpecialCharacter($user_details['lname']);
        $msg = validation(xl('LicensedPrescriber Last name'), $user_details['lname'], $msg);
        $last = $doc->createElement("last");
        $last->appendChild(
            $doc->createTextNode($user_details['lname'])
        );
        $LicensedPrescriberName->appendChild($last);
        $user_details['fname'] = stripSpecialCharacter($user_details['fname']);
        $msg = validation(xl('User First name'), $user_details['fname'], $msg);
        $first = $doc->createElement("first");
        $first->appendChild(
            $doc->createTextNode($user_details['fname'])
        );
        $LicensedPrescriberName->appendChild($first);
        $user_details['mname'] = stripSpecialCharacter($user_details['mname']);
        $middle = $doc->createElement("middle");
        $middle->appendChild(
            $doc->createTextNode($user_details['mname'])
        );
        $LicensedPrescriberName->appendChild($middle);
    $b->appendChild($LicensedPrescriberName);
    $msg = validation(xl('DEA'), $user_details['federaldrugid'], $msg);
    $dea = $doc->createElement("dea");
    $dea->appendChild(
        $doc->createTextNode($user_details['federaldrugid'])
    );
    $b->appendChild($dea);
    if ($user_details['upin']) {
        $upin = $doc->createElement("upin");
        $upin->appendChild(
            $doc->createTextNode($user_details['upin'])
        );
        $b->appendChild($upin);
    }

    $licenseNumber = $doc->createElement("licenseNumber");
    $licenseNumber->appendChild(
        $doc->createTextNode($user_details['state_license_number'])
    );
    $b->appendChild($licenseNumber);
    $msg = validation(xl('LicensedPrescriber NPI'), $user_details['npi'], $msg);
    $npi = $doc->createElement("npi");
    $npi->appendChild(
        $doc->createTextNode($user_details['npi'])
    );
    $b->appendChild($npi);
    $r->appendChild($b);
}

function Staff($doc, $r)
{
    global $msg;
    $user_details = sqlQuery("SELECT * FROM users WHERE id = ?", array($_SESSION['authUserID']));
    $b = $doc->createElement("Staff");
    $b->setAttribute('ID', $user_details['username']);
    $StaffName = $doc->createElement("StaffName");
        $user_details['lname'] = stripSpecialCharacter($user_details['lname']);
        $last = $doc->createElement("last");
        $last->appendChild(
            $doc->createTextNode($user_details['lname'])
        );
        $StaffName->appendChild($last);
        $user_details['fname'] = stripSpecialCharacter($user_details['fname']);
        $first = $doc->createElement("first");
        $first->appendChild(
            $doc->createTextNode($user_details['fname'])
        );
        $StaffName->appendChild($first);
        $user_details['mname'] = stripSpecialCharacter($user_details['mname']);
        $middle = $doc->createElement("middle");
        $middle->appendChild(
            $doc->createTextNode($user_details['mname'])
        );
        $StaffName->appendChild($middle);
    $b->appendChild($StaffName);
    $license = $doc->createElement("license");
    $license->appendChild(
        $doc->createTextNode($user_details['license'])
    );
    $b->appendChild($license);
    $r->appendChild($b);
}

function SupervisingDoctor($doc, $r)
{
    global $msg;
    $user_details = sqlQuery("SELECT * FROM users WHERE id = ?", array($_SESSION['authUserID']));
    $b = $doc->createElement("SupervisingDoctor");
    $b->setAttribute('ID', $user_details['npi']);
    $LicensedPrescriberName = $doc->createElement("LicensedPrescriberName");
        $user_details['lname'] = stripSpecialCharacter($user_details['lname']);
        $msg = validation(xl('Supervising Doctor Last name'), $user_details['lname'], $msg);
        $last = $doc->createElement("last");
        $last->appendChild(
            $doc->createTextNode($user_details['lname'])
        );
        $LicensedPrescriberName->appendChild($last);
        $user_details['fname'] = stripSpecialCharacter($user_details['fname']);
        $msg = validation(xl('Supervising Doctor First name'), $user_details['fname'], $msg);
        $first = $doc->createElement("first");
        $first->appendChild(
            $doc->createTextNode($user_details['fname'])
        );
        $LicensedPrescriberName->appendChild($first);
        $user_details['mname'] = stripSpecialCharacter($user_details['mname']);
        $middle = $doc->createElement("middle");
        $middle->appendChild(
            $doc->createTextNode($user_details['mname'])
        );
        $LicensedPrescriberName->appendChild($middle);
    $b->appendChild($LicensedPrescriberName);
    $msg = validation(xl('Supervising Doctor DEA'), $user_details['federaldrugid'], $msg);
    $dea = $doc->createElement("dea");
    $dea->appendChild(
        $doc->createTextNode($user_details['federaldrugid'])
    );
    $b->appendChild($dea);
    if ($user_details['upin']) {
        $upin = $doc->createElement("upin");
        $upin->appendChild(
            $doc->createTextNode($user_details['upin'])
        );
        $b->appendChild($upin);
    }

    $licenseNumber = $doc->createElement("licenseNumber");
    $licenseNumber->appendChild(
        $doc->createTextNode($user_details['state_license_number'])
    );
    $b->appendChild($licenseNumber);
    $msg = validation(xl('Supervising Doctor NPI'), $user_details['npi'], $msg);
    $npi = $doc->createElement("npi");
    $npi->appendChild(
        $doc->createTextNode($user_details['npi'])
    );
    $b->appendChild($npi);
    $r->appendChild($b);
}

function MidlevelPrescriber($doc, $r)
{
    global $msg;
    $user_details = sqlQuery("SELECT * FROM users WHERE id = ?", array($_SESSION['authUserID']));
    $b = $doc->createElement("MidlevelPrescriber");
    $b->setAttribute('ID', $user_details['npi']);
    $LicensedPrescriberName = $doc->createElement("LicensedPrescriberName");
        $user_details['lname'] = stripSpecialCharacter($user_details['lname']);
        $msg = validation(xl('Midlevel Prescriber Last name'), $user_details['lname'], $msg);
        $last = $doc->createElement("last");
        $last->appendChild(
            $doc->createTextNode($user_details['lname'])
        );
        $LicensedPrescriberName->appendChild($last);
        $user_details['fname'] = stripSpecialCharacter($user_details['fname']);
        $msg = validation(xl('Midlevel Prescriber First name'), $user_details['fname'], $msg);
        $first = $doc->createElement("first");
        $first->appendChild(
            $doc->createTextNode($user_details['fname'])
        );
        $LicensedPrescriberName->appendChild($first);
        $user_details['mname'] = stripSpecialCharacter($user_details['mname']);
        $middle = $doc->createElement("middle");
        $middle->appendChild(
            $doc->createTextNode($user_details['mname'])
        );
        $LicensedPrescriberName->appendChild($middle);
    if ($user_details['title']) {
        $msg = validation(xl('Midlevel Prescriber Prefix'), $user_details['title'], $msg);
        $prefix = $doc->createElement("prefix");
        $prefix->appendChild(
            $doc->createTextNode($user_details['title'])
        );
        $LicensedPrescriberName->appendChild($prefix);
    }

    $b->appendChild($LicensedPrescriberName);
    $msg = validation(xl('Midlevel Prescriber DEA'), $user_details['federaldrugid'], $msg);
    $dea = $doc->createElement("dea");
    $dea->appendChild(
        $doc->createTextNode($user_details['federaldrugid'])
    );
    $b->appendChild($dea);
    if ($user_details['upin']) {
        $upin = $doc->createElement("upin");
        $upin->appendChild(
            $doc->createTextNode($user_details['upin'])
        );
        $b->appendChild($upin);
    }

    $licenseNumber = $doc->createElement("licenseNumber");
    $licenseNumber->appendChild(
        $doc->createTextNode($user_details['state_license_number'])
    );
    $b->appendChild($licenseNumber);
    $r->appendChild($b);
}

function Patient($doc, $r, $pid)
{
    global $msg,$warning_msg,$dem_check;
    $patient_data = sqlQuery("select *, DATE_FORMAT(DOB,'%Y%m%d') AS date_of_birth from patient_data where pid=?", array($pid));
    $b = $doc->createElement("Patient");
    $b->setAttribute('ID', $patient_data['pid']);
    $PatientName = $doc->createElement("PatientName");
        $patient_data['lname'] = stripSpecialCharacter($patient_data['lname']);
        $patient_data['lname'] = trimData($patient_data['lname'], 35);
        //$msg = validation(xl('Patient Last name'),$patient_data['lname'],$msg);
    if ($patient_data['lname'] == '') {
        $dem_check .= xlt("Patient Last name is missing") . "<br />";
    }

        $last = $doc->createElement("last");
        $last->appendChild(
            $doc->createTextNode($patient_data['lname'])
        );
        $PatientName->appendChild($last);
        $patient_data['fname'] = stripSpecialCharacter($patient_data['fname']);
        $patient_data['fname'] = trimData($patient_data['fname'], 35);
        //$msg = validation(xl('Patient First name'),$patient_data['fname'],$msg);
    if ($patient_data['fname'] == '') {
        $dem_check .= xlt("Patient First name is missing") . "<br />";
    }

        $first = $doc->createElement("first");
        $first->appendChild(
            $doc->createTextNode($patient_data['fname'])
        );
        $PatientName->appendChild($first);
        $patient_data['mname'] = stripSpecialCharacter($patient_data['mname']);
        $patient_data['mname'] = trimData($patient_data['mname'], 35);
        $middle = $doc->createElement("middle");
        $middle->appendChild(
            $doc->createTextNode($patient_data['mname'])
        );
        $PatientName->appendChild($middle);
    $b->appendChild($PatientName);
    $PatientAddress = $doc->createElement("PatientAddress");
        $patient_data['street'] = stripSpecialCharacter($patient_data['street']);
        $patient_data['street'] = trimData($patient_data['street'], 35);
        $msg = validation(xl('Patient Address'), $patient_data['street'], $msg);
    if (trim($patient_data['street']) == '') {
        $warning_msg .= "<br />" . xlt("Patient Address is missing");
    }

        $address1 = $doc->createElement("address1");
        $address1->appendChild(
            $doc->createTextNode($patient_data['street'])
        );
        $PatientAddress->appendChild($address1);
        //$msg = validation(xl('Patient City'),$patient_data['city'],$msg);
    if ($patient_data['city'] == '') {
        $dem_check .= xlt("Patient City is missing") . "<br />";
    }

        $city = $doc->createElement("city");
        $city->appendChild(
            $doc->createTextNode($patient_data['city'])
        );
        $PatientAddress->appendChild($city);
    if ($patient_data['state']) {
        $state = $doc->createElement("state");
        $state->appendChild(
            $doc->createTextNode($patient_data['state'])
        );
        $PatientAddress->appendChild($state);
    }

    if ($patient_data['postal_code']) {
        $zip = $doc->createElement("zip");
        $zip->appendChild(
            $doc->createTextNode($patient_data['postal_code'])
        );
        $PatientAddress->appendChild($zip);
    }

        //$msg = validation(xl('Patient Country'),$patient_data['country_code'],$msg);
    if (trim($patient_data['country_code']) == '' && $GLOBALS['erx_default_patient_country'] == '') {
        $dem_check .= xlt("Patient Country is missing. Also you have not set default Patient Country in Global Settings") . "<br />";
    } elseif (trim($patient_data['country_code']) == '') {
        $patient_data['country_code'] = $GLOBALS['erx_default_patient_country'];
    }

        $county_code = substr($patient_data['country_code'], 0, 2);
        $country = $doc->createElement("country");
        $country->appendChild(
            $doc->createTextNode($county_code)
        );
        $PatientAddress->appendChild($country);
    $b->appendChild($PatientAddress);
    $PatientContact = $doc->createElement("PatientContact");
        $patient_data['phone_home'] = stripPhoneSlashes($patient_data['phone_home']);
    if ($patient_data['phone_home']) {
        $homeTelephone = $doc->createElement("homeTelephone");
        $homeTelephone->appendChild(
            $doc->createTextNode($patient_data['phone_home'])
        );
        $PatientContact->appendChild($homeTelephone);
    }

    $b->appendChild($PatientContact);
    $PatientCharacteristics = $doc->createElement("PatientCharacteristics");
    if (trim($patient_data['date_of_birth']) == '' || $patient_data['date_of_birth'] == '00000000') {
        $warning_msg .= "<br />" . xlt("Patient Date Of Birth is missing");
    }

    if ($patient_data['date_of_birth'] && $patient_data['date_of_birth'] != '00000000') {
        $dob = $doc->createElement("dob");
        $dob->appendChild(
            $doc->createTextNode($patient_data['date_of_birth'])
        );
        $PatientCharacteristics->appendChild($dob);
    }

    if (trim($patient_data['sex']) == '') {
        $warning_msg .= "<br />" . xlt("Patient Gender is missing");
    }

    if ($patient_data['sex']) {
        $gender_val = substr($patient_data['sex'], 0, 1);
        $gender = $doc->createElement("gender");
        $gender->appendChild(
            $doc->createTextNode($gender_val)
        );
        $PatientCharacteristics->appendChild($gender);
    }

    $b->appendChild($PatientCharacteristics);
    PatientFreeformHealthplans($doc, $b, $pid);
    $allergyId = PatientFreeformAllergy($doc, $b, $pid);
    $r->appendChild($b);
    return $allergyId;
}

function OutsidePrescription($doc, $r, $pid, $prescid)
{
    global $msg;
    if ($prescid) {
        $prec = sqlQuery("SELECT p.note,p.dosage,p.substitute,p.per_refill,p.form,p.route,p.size,p.interval,p.drug,l1.title AS title1,l2.title AS title2,l3.title AS title3,l4.title AS title4,p.id AS prescid,
            DATE_FORMAT(date_added,'%Y%m%d') AS date_added,CONCAT_WS(fname,' ',mname,' ',lname) AS docname,p.quantity
            FROM prescriptions AS p
            LEFT JOIN users AS u ON p.provider_id=u.id
            LEFT JOIN list_options AS l1 ON l1.list_id = 'drug_form'     AND l1.option_id = p.form     AND l1.activity = 1
            LEFT JOIN list_options AS l2 ON l2.list_id = 'drug_route'    AND l2.option_id = p.route    AND l2.activity = 1
            LEFT JOIN list_options AS l3 ON l3.list_id = 'drug_interval' AND l3.option_id = p.interval AND l3.activity = 1
            LEFT JOIN list_options AS l4 ON l4.list_id = 'drug_units'    AND l4.option_id = p.unit     AND l4.activity = 1
            WHERE p.drug <> '' and p.id = ?", array($prescid));
        $b = $doc->createElement("OutsidePrescription");
            $externalId = $doc->createElement("externalId");
            $externalId->appendChild(
                $doc->createTextNode($prec['prescid'])
            );
            $b->appendChild($externalId);
            $date = $doc->createElement("date");
            $date->appendChild(
                $doc->createTextNode($prec['date_added'])
            );
            $b->appendChild($date);
            $doctorName = $doc->createElement("doctorName");
            $doctorName->appendChild(
                $doc->createTextNode($prec['docname'])
            );
            $b->appendChild($doctorName);
            $s = stripSpecialCharacter($prec['drug']);
            $sig = $doc->createElement("drug");
            $sig->appendChild(
                $doc->createTextNode(trimData($s, 80))
            );
            $b->appendChild($sig);
            $x = stringToNumeric($prec['quantity']);
            $dispenseNumber = $doc->createElement("dispenseNumber");
            $dispenseNumber->appendChild(
                $doc->createTextNode($x[0])
            );
            $b->appendChild($dispenseNumber);
            $s = trimData($x[1] . $prec['size'] . " " . $prec['title4'] . " " . $prec['dosage'] . " In " . $prec['title1'] . " " . $prec['title2'] . " " . $prec['title3'], 140);
            $s = stripSpecialCharacter($s);
            $sig = $doc->createElement("sig");
            $sig->appendChild(
                $doc->createTextNode($s)
            );
            $b->appendChild($sig);
            $refillCount = $doc->createElement("refillCount");
            $x = stringToNumeric($prec['per_refill']);
            $refillCount->appendChild(
                $doc->createTextNode($x[0])
            );
            $b->appendChild($refillCount);
            $prescriptionType = $doc->createElement("prescriptionType");
            $prescriptionType->appendChild(
                $doc->createTextNode('reconcile')
            );
            $b->appendChild($prescriptionType);
        $r->appendChild($b);
    }
}

function PatientMedication($doc, $r, $pid, $med_limit)
{
    global $msg;
    $active = '';
    if ($GLOBALS['erx_upload_active'] == 1) {
        $active = " and (enddate is null or enddate = '' or enddate = '0000-00-00' )";
    }

    $res_med = sqlStatement("select * from lists where type='medication' and pid=? and title<>''
	and erx_uploaded='0' $active order by enddate limit 0," . escape_limit($med_limit), array($pid));
    $uploaded_med_arr = "";
    while ($row_med = sqlFetchArray($res_med)) {
        $uploaded_med_arr[] = $row_med['id'];
        $b = $doc->createElement("OutsidePrescription");
            $externalId = $doc->createElement("externalId");
            $externalId->appendChild(
                $doc->createTextNode($row_med['id'])
            );
            $b->appendChild($externalId);
            $date = $doc->createElement("date");
            $date->appendChild(
                $doc->createTextNode($row_med['begdate'])
            );
            $b->appendChild($date);
            $doctorName = $doc->createElement("doctorName");
            $doctorName->appendChild(
                $doc->createTextNode("")
            );
            $b->appendChild($doctorName);
            $row_med['title'] = stripSpecialCharacter($row_med['title']);
            $sig = $doc->createElement("drug");
            $sig->appendChild(
                $doc->createTextNode(trimData($row_med['title'], 80))
            );
            $b->appendChild($sig);
            $dispenseNumber = $doc->createElement("dispenseNumber");
            $dispenseNumber->appendChild(
                $doc->createTextNode($prec['quantity'])
            );
            $b->appendChild($dispenseNumber);
            $sig = $doc->createElement("sig");
            $sig->appendChild(
                $doc->createTextNode("")
            );
            $b->appendChild($sig);
            $refillCount = $doc->createElement("refillCount");
            $refillCount->appendChild(
                $doc->createTextNode("")
            );
            $b->appendChild($refillCount);
            $prescriptionType = $doc->createElement("prescriptionType");
            $prescriptionType->appendChild(
                $doc->createTextNode('reconcile')
            );
            $b->appendChild($prescriptionType);
        $r->appendChild($b);
    }

    return $uploaded_med_arr;
}

function PatientFreeformAllergy($doc, $r, $pid)
{
    $res = sqlStatement("SELECT id,l.title as title1,lo.title as title2,comments FROM lists AS l
    LEFT JOIN list_options AS lo ON l.outcome = lo.option_id AND lo.list_id = 'outcome' AND lo.activity = 1
	WHERE `type`='allergy' AND pid=? AND erx_source='0' and erx_uploaded='0' AND (enddate is null or enddate = '' or enddate = '0000-00-00')", array($pid));
    $allergyId = array();
    while ($row = sqlFetchArray($res)) {
        $val = array();
        $val['id'] = $row['id'];
        $val['title1'] = $row['title1'];
        $val['title2'] = $row['title2'];
        $val['comments'] = $row['comments'];
        $b = $doc->createElement("PatientFreeformAllergy");
        $b->setAttribute('ID', $val['id']);
        if ($val['title1']) {
            $allergyName = $doc->createElement("allergyName");
            $allergyName->appendChild(
                $doc->createTextNode(trimData(stripSpecialCharacter($val['title1']), 70))
            );
            $b->appendChild($allergyName);
        }

        if ($val['title2'] && ($val['title2'] == 'Mild' || $val['title2'] == 'Moderate' || $val['title2'] == 'Severe')) {
            $allergySeverityTypeID = $doc->createElement("allergySeverityTypeID");
            $allergySeverityTypeID->appendChild(
                $doc->createTextNode($val['title2'])
            );
            $b->appendChild($allergySeverityTypeID);
        }

        if ($val['comments']) {
            $allergyComment = $doc->createElement("allergyComment");
            $allergyComment->appendChild(
                $doc->createTextNode(trimData(stripSpecialCharacter($val['comments']), 200))
            );
            $b->appendChild($allergyComment);
        }

        $r->appendChild($b);
        $allergyId[] = $row['id'];
    }

    return $allergyId;
}

function PatientFreeformHealthplans($doc, $r, $pid)
{
    $resource = sqlStatement(
        'SELECT
            `ins`.`name`
        FROM (
            SELECT
                `id`.`type`,
                `ic`.`name`
            FROM `insurance_data` AS `id`
                LEFT JOIN `insurance_companies` AS `ic` ON `ic`.`id` = `id`.`provider`
            WHERE `id`.`pid` = ?
                AND `id`.`subscriber_relationship` = \'self\'
                AND `id`.`provider` > 0
            ORDER BY `id`.`date` DESC
        ) AS `ins`
        GROUP BY `ins`.`type`;',
        array($pid)
    );

    while ($row = sqlFetchArray($resource)) {
        $healthplanName = $doc->createElement('healthplanName');
        $healthplanName->appendChild($doc->createTextNode(
            stripSpecialCharacter(trimData($row['name'], 35))
        ));

        $patientFreeformHealthplans = $doc->createElement('PatientFreeformHealthplans');
        $patientFreeformHealthplans->appendChild($healthplanName);

        $r->appendChild($patientFreeformHealthplans);
    }
}

function PrescriptionRenewalResponse($doc, $r, $pid)
{
    $b = $doc->createElement("PrescriptionRenewalResponse");
        $renewalRequestIdentifier = $doc->createElement("renewalRequestIdentifier");
            $renewalRequestIdentifier->appendChild(
                $doc->createTextNode('cbf51649-ce3c-44b8-8f91-6fda121a353d')
            );
        $b->appendChild($renewalRequestIdentifier);
        $responseCode = $doc->createElement("responseCode");
            $responseCode->appendChild(
                $doc->createTextNode('Undetermined')
            );
        $b->appendChild($responseCode);
    $r->appendChild($b);
}

function checkError($xml)
{
    $ch = curl_init($xml);

    $data = array('RxInput' => $xml);

    curl_setopt($ch, CURLOPT_URL, getErxPath());
    curl_setopt($ch, CURLOPT_POST, 1);
    curl_setopt($ch, CURLOPT_POSTFIELDS, "RxInput=" . $xml);
    curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, 0);
    curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1);
    curl_setopt($ch, CURLOPT_COOKIESESSION, true);
    //curl_setopt($ch, CURLOPT_HEADER, 0);
    curl_setopt($ch, CURLOPT_COOKIEFILE, "cookiefile");
    curl_setopt($ch, CURLOPT_COOKIEJAR, "cookiefile");
    curl_setopt($ch, CURLOPT_COOKIE, session_name() . '=' . session_id());
    curl_setopt($ch, CURLOPT_USERAGENT, "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)");
    curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);

    $result = curl_exec($ch)  or die(curl_error($ch)) ;
    preg_match('/<textarea.*>(.*)Original XML:/is', $result, $error_message);
    if (strpos($result, 'RxEntry.aspx')) {
        erx_error_log($xml);
        erx_error_log($result);
    }

    $arr = explode('Error', $error_message[1]);
    //echo "Te: ".count($arr);
    //print_r($arr);
    if (count($arr) == 1) {
        echo nl2br($error_message[1]);
    } else {
        for ($i = 1; $i < count($arr); $i++) {
            echo $arr[$i] . "<br /><br />";
        }
    }

    curl_close($ch);
    if (strpos($result, 'RxEntry.aspx')) {
        return '1';
    } else {
        return '0';
    }
}

function erx_error_log($message)
{
    $date = date("Y-m-d");
    if (!is_dir($GLOBALS['OE_SITE_DIR'] . '/documents/erx_error')) {
        mkdir($GLOBALS['OE_SITE_DIR'] . '/documents/erx_error', 0777, true);
    }

    $filename = $GLOBALS['OE_SITE_DIR'] . "/documents/erx_error/erx_error" . "-" . $date . ".log";
    $f = fopen($filename, 'a');
    fwrite($f, date("Y-m-d H:i:s") . " ==========> " . $message . "\r\n");
    fclose($f);
}

function stripStrings($str, $pattern)
{
    $result = $str;
    foreach ($pattern as $key => $value) {
        $result = preg_replace("/$key/", $value, $result);
    }

    return $result;
}