interface/eRx_xml.php

   1 <?php
   2
   3 /**
   4  * interface/eRx_xml.php Functions for interacting with NewCrop communications.
   5  *
   6  * Copyright (C) 2011 ZMG LLC <sam@zhservices.com>
   7  *
   8  * LICENSE: This program is free software; you can redistribute it and/or modify
   9  * it under the terms of the GNU General Public License as published by the Free
  10  * Software Foundation; either version 3 of the License, or (at your option) any
  11  * later version.  This program is distributed in the hope that it will be
  12  * useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General
  14  * Public License for more details.  You should have received a copy of the GNU
  15  * General Public License along with this program.
  16  * If not, see <http://opensource.org/licenses/gpl-license.php>.
  17  *
  18  * @package    OpenEMR
  19  * @subpackage NewCrop
  20  * @author     Eldho Chacko <eldho@zhservices.com>
  21  * @author     Vinish K <vinish@zhservices.com>
  22  * @link       http://www.open-emr.org
  23  */
  24
  25 function getErxPath()
  26 {
  27     return $GLOBALS['erx_newcrop_path'];
  28 }
  29
  30 function getErxSoapPath()
  31 {
  32     return $GLOBALS['erx_newcrop_path_soap'];
  33 }
  34
  35 function getErxCredentials()
  36 {
  37     $cred=array();
  38     $cred[]=$GLOBALS['erx_account_partner_name'];
  39     $cred[]=$GLOBALS['erx_account_name'];
  40     $cred[]=$GLOBALS['erx_account_password'];
  41
  42     return $cred;
  43 }
  44
  45 function validation($val_check,$val,$msg)
  46 {
  47     if(!$val)
  48     $msg .= $val_check.' '.xl('missing').'<br>';
  49     return $msg;
  50 }
  51
  52 function stripSpecialCharacterFacility($str)
  53 {
  54     $str=preg_replace("/[^a-zA-Z0-9 '().,#:\/\-@_%]/","",$str);
  55     return $str;
  56 }
  57
  58 function stripSpecialCharacter($str)
  59 {
  60     $str=preg_replace("/[^a-zA-Z0-9 '().,#:\/\-@_%]/","",$str);
  61     return $str;
  62 }
  63
  64 function stripPhoneSlashes($str)
  65 {
  66     $str=preg_replace('/-/','',$str);
  67     return $str;
  68 }
  69
  70 function trimData($str,$length)
  71 {
  72     $str=substr($str,0,($length-1));
  73     return $str;
  74 }
  75
  76 function stringToNumeric($str)
  77 {
  78         if(is_numeric($str)){
  79     return array($str,"");
  80     }
  81     else{
  82     for($i=0;$i<strlen($str);$i++){
  83         $x=substr($str,$i,1);
  84         if(is_numeric($x) && !$txt){
  85         $num.=$x;
  86         }
  87         else{
  88         $txt.=$x;
  89
  90         }
  91     }
  92     return array($num,$txt);
  93     }
  94     $str=substr($str,0,($length-1));
  95     return $str;
  96 }
  97 function credentials($doc,$r)
  98 {
  99     global $msg;
 100     $cred=getErxCredentials();
 101     $msg = validation(xl('Partner Name'),$cred['0'],$msg);
 102     $b = $doc->createElement( "Credentials" );
 103     $partnerName = $doc->createElement( "partnerName" );
 104     $partnerName->appendChild(
 105         $doc->createTextNode( $cred['0'] )
 106     );
 107     $b->appendChild( $partnerName );
 108     $msg = validation(xl('ERX Name'),$cred['1'],$msg);
 109     $name = $doc->createElement( "name" );
 110     $name->appendChild(
 111         $doc->createTextNode( $cred['1'] )
 112     );
 113     $b->appendChild( $name );
 114     $msg = validation(xl('ERX Password'),$cred['2'],$msg);
 115     $password = $doc->createElement( "password" );
 116     $password->appendChild(
 117         $doc->createTextNode( $cred['2'] )
 118     );
 119     $b->appendChild( $password );
 120     $productName = $doc->createElement( "productName" );
 121     $productName->appendChild(
 122         $doc->createTextNode( 'OpenEMR' )
 123     );
 124     $b->appendChild( $productName );
 125     $productVersion = $doc->createElement( "productVersion" );
 126     $productVersion->appendChild(
 127         $doc->createTextNode( $GLOBALS['openemr_version'] )
 128     );
 129     $b->appendChild( $productVersion );
 130     $r->appendChild( $b );
 131 }
 132
 133 function user_role($doc,$r)
 134 {
 135     global $msg;
 136     $userRole=sqlQuery("select * from users where username=?",array($_SESSION['authUser']));
 137     if(!$userRole['newcrop_user_role'])
 138     {echo xl('Unauthorized access to ePrescription');die;}
 139     $userRole['newcrop_user_role'] = preg_replace('/erx/','',$userRole['newcrop_user_role']);
 140     if($userRole['newcrop_user_role'] == 'doctor')
 141     $userRole['eRxUser'] = 'LicensedPrescriber';
 142     elseif($userRole['newcrop_user_role'] == 'admin' || $userRole['newcrop_user_role'] == 'manager' || $userRole['newcrop_user_role'] == 'nurse')
 143     $userRole['eRxUser'] = 'Staff';
 144     elseif($userRole['newcrop_user_role'] == 'midlevelPrescriber')
 145     $userRole['eRxUser'] = 'MidlevelPrescriber';
 146     elseif($userRole['newcrop_user_role'] == 'supervisingDoctor')
 147     $userRole['eRxUser'] = 'SupervisingDoctor';
 148     $msg = validation(xl('ERX User'),$userRole['eRxUser'],$msg);
 149     $b = $doc->createElement( "UserRole" );
 150     $user = $doc->createElement( "user" );
 151     $user->appendChild(
 152         $doc->createTextNode( $userRole['eRxUser'] )
 153     );
 154     $b->appendChild( $user );
 155     $msg = validation(xl('ERX Role'),$userRole['newcrop_user_role'],$msg);
 156     $role = $doc->createElement( "role" );
 157     $role->appendChild(
 158         $doc->createTextNode( $userRole['newcrop_user_role'] )
 159     );
 160     $b->appendChild( $role );
 161     $r->appendChild( $b );
 162 }
 163
 164 function destination($doc,$r,$page='',$pid)
 165 {
 166     global $msg,$page;
 167     $userRole=sqlQuery("select * from users where username=?",array($_SESSION['authUser']));
 168     $userRole['newcrop_user_role'] = preg_replace('/erx/','',$userRole['newcrop_user_role']);
 169     if(!$page)
 170     {
 171         $page='compose';
 172         if($userRole['newcrop_user_role']=='admin')
 173         $page='admin';
 174         elseif($userRole['newcrop_user_role']=='manager')
 175         $page='manager';
 176     }
 177     $b = $doc->createElement( "Destination" );
 178     $requestedPage = $doc->createElement( "requestedPage" );
 179     $requestedPage->appendChild(
 180         $doc->createTextNode( $page )
 181     );
 182     $b->appendChild( $requestedPage );
 183     $r->appendChild( $b );
 184 }
 185
 186 function account($doc,$r)
 187 {
 188     global $msg;
 189     $erxSiteID=sqlQuery("SELECT * FROM facility WHERE primary_business_entity='1'");
 190     if(!$erxSiteID['federal_ein'])
 191     {
 192         echo htmlspecialchars( xl("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."), ENT_NOQUOTES);
 193         die;
 194     }
 195     $b = $doc->createElement( "Account" );
 196     $b->setAttribute('ID', $GLOBALS['erx_account_id']);
 197     $erxSiteID['name']=stripSpecialCharacterFacility($erxSiteID['name']);
 198     $erxSiteID['name']=trimData($erxSiteID['name'],35);
 199     $msg = validation(xl('Account Name'),$erxSiteID['name'],$msg);
 200     $accountName = $doc->createElement( "accountName" );
 201     $accountName->appendChild(
 202         $doc->createTextNode( $erxSiteID['name'] )
 203     );
 204     $b->appendChild( $accountName );
 205     $msg = validation(xl('Site ID'),$_SESSION['site_id'],$msg);
 206     $siteID = $doc->createElement( "siteID" );
 207     $siteID->appendChild(
 208         $doc->createTextNode( $erxSiteID['federal_ein'] )
 209     );
 210     $b->appendChild( $siteID );
 211     $erxSiteID['street']=stripSpecialCharacterFacility($erxSiteID['street']);
 212     $erxSiteID['street']=trimData($erxSiteID['street'],35);
 213     $AccountAddress = $doc->createElement( "AccountAddress" );
 214         $msg = validation(xl('Facility Street'),$erxSiteID['street'],$msg);
 215         $address1 = $doc->createElement( "address1" );
 216         $address1->appendChild(
 217             $doc->createTextNode( $erxSiteID['street'] )
 218         );
 219         $AccountAddress->appendChild( $address1 );
 220         $msg = validation(xl('Facility City'),$erxSiteID['city'],$msg);
 221         $city = $doc->createElement( "city" );
 222         $city->appendChild(
 223             $doc->createTextNode( $erxSiteID['city'] )
 224         );
 225         $AccountAddress->appendChild( $city );
 226         $msg = validation(xl('Facility State'),$erxSiteID['state'],$msg);
 227         $state = $doc->createElement( "state" );
 228         $state->appendChild(
 229             $doc->createTextNode( $erxSiteID['state'] )
 230         );
 231         $AccountAddress->appendChild( $state );
 232         $jasonbigzip=$erxSiteID['postal_code'];
 233         $jasonbigzip=preg_replace('/[^0-9]/','',$jasonbigzip);
 234         if(strlen($jasonbigzip) >=5){
 235             $jasonzip=substr($jasonbigzip,0,5);
 236             $zip4=substr($jasonbigzip,5,4);
 237         }
 238         else{
 239             $msg = validation(xl('Facility Zip'),$jasonzip,$msg);
 240         }
 241         $zip = $doc->createElement( "zip" );
 242         $zip->appendChild(
 243             $doc->createTextNode( $jasonzip )
 244         );
 245         $AccountAddress->appendChild( $zip );
 246         if(strlen($zip4)==4){
 247             $zipFour = $doc->createElement( "zip4" );
 248             $zipFour->appendChild(
 249                 $doc->createTextNode( $zip4 )
 250             );
 251             $AccountAddress->appendChild( $zipFour );
 252         }
 253         $msg = validation(xl('Facility Country code'),$erxSiteID['country_code'],$msg);
 254         $county_code = substr($erxSiteID['country_code'],0,2);
 255         $country = $doc->createElement( "country" );
 256         $country->appendChild(
 257             $doc->createTextNode( $county_code )
 258         );
 259         $AccountAddress->appendChild( $country );
 260     $b->appendChild( $AccountAddress );
 261     $msg = validation(xl('Facility Phone'),$erxSiteID['phone'],$msg);
 262     $accountPrimaryPhoneNumber = $doc->createElement( "accountPrimaryPhoneNumber" );
 263     $erxSiteID['phone'] = stripPhoneSlashes($erxSiteID['phone']);
 264     $accountPrimaryPhoneNumber->appendChild(
 265         $doc->createTextNode( $erxSiteID['phone'] )
 266     );
 267     $b->appendChild( $accountPrimaryPhoneNumber );
 268     $msg = validation(xl('Facility Fax'),$erxSiteID['fax'],$msg);
 269     $accountPrimaryFaxNumber = $doc->createElement( "accountPrimaryFaxNumber" );
 270     $erxSiteID['fax'] = stripPhoneSlashes($erxSiteID['fax']);
 271     $accountPrimaryFaxNumber->appendChild(
 272         $doc->createTextNode( $erxSiteID['fax'] )
 273     );
 274     $b->appendChild( $accountPrimaryFaxNumber );
 275     $r->appendChild( $b );
 276 }
 277
 278 function location($doc,$r)
 279 {
 280     global $msg;
 281     $userRole=sqlQuery("SELECT * FROM users AS u LEFT JOIN facility AS f ON f.id=u.facility_id WHERE u.username=?",array($_SESSION['authUser']));
 282     $b = $doc->createElement( "Location" );
 283     $b->setAttribute('ID',$userRole['id']);
 284     $userRole['name']=stripSpecialCharacterFacility($userRole['name']);
 285     $userRole['name']=trimData($userRole['name'],35);
 286     $locationName = $doc->createElement( 'locationName' );
 287     $locationName->appendChild(
 288         $doc->createTextNode( $userRole['name'] )
 289     );
 290     $b->appendChild($locationName);
 291     $userRole['street']=stripSpecialCharacterFacility($userRole['street']);
 292     $userRole['street']=trimData($userRole['street'],35);
 293     $LocationAddress = $doc->createElement( 'LocationAddress' );
 294         if($userRole['street']){
 295         $address1 = $doc->createElement( 'address1' );
 296         $address1->appendChild(
 297             $doc->createTextNode( $userRole['street'] )
 298         );
 299         $LocationAddress->appendChild($address1);
 300         }
 301         if($userRole['city']){
 302         $city = $doc->createElement( 'city' );
 303         $city->appendChild(
 304             $doc->createTextNode( $userRole['city'] )
 305         );
 306         $LocationAddress->appendChild( $city );
 307         }
 308         if($userRole['state']){
 309         $state = $doc->createElement( 'state' );
 310         $state->appendChild(
 311             $doc->createTextNode( $userRole['state'] )
 312         );
 313         $LocationAddress->appendChild($state);
 314         }
 315         $jasonbigzip=$userRole['postal_code'];
 316         $jasonbigzip=preg_replace('/[^0-9]/','',$jasonbigzip);
 317         if(strlen($jasonbigzip) >=5){
 318             $jasonzip=substr($jasonbigzip,0,5);
 319             $zip4=substr($jasonbigzip,5,4);
 320         }
 321         else{
 322             $msg = validation(xl('Facility Zip'),$jasonzip,$msg);
 323         }
 324         $zip = $doc->createElement( "zip" );
 325         $zip->appendChild(
 326             $doc->createTextNode( $jasonzip )
 327         );
 328         $LocationAddress->appendChild( $zip );
 329         if(strlen($zip4)==4){
 330             $zipFour = $doc->createElement( "zip4" );
 331             $zipFour->appendChild(
 332                 $doc->createTextNode( $zip4 )
 333             );
 334             $LocationAddress->appendChild( $zipFour );
 335         }
 336         if($userRole['country_code']){
 337         $county_code = substr($userRole['country_code'],0,2);
 338         $country = $doc->createElement( 'country' );
 339         $country->appendChild(
 340             $doc->createTextNode( $county_code )
 341         );
 342         $LocationAddress->appendChild($country);
 343         }
 344     $b->appendChild($LocationAddress);
 345     if($userRole['phone']){
 346     $userRole['phone'] = stripPhoneSlashes($userRole['phone']);
 347     $primaryPhoneNumber = $doc->createElement( 'primaryPhoneNumber' );
 348     $primaryPhoneNumber->appendChild(
 349         $doc->createTextNode( $userRole['phone'] )
 350     );
 351     $b->appendChild($primaryPhoneNumber);
 352     }
 353     if($userRole['fax']){
 354     $userRole['fax'] = stripPhoneSlashes($userRole['fax']);
 355     $primaryFaxNumber = $doc->createElement( 'primaryFaxNumber' );
 356     $primaryFaxNumber->appendChild(
 357         $doc->createTextNode( $userRole['fax'] )
 358     );
 359     $b->appendChild($primaryFaxNumber);
 360     }
 361     $pharmacyContactNumber = $doc->createElement( 'pharmacyContactNumber' );
 362     $pharmacyContactNumber->appendChild(
 363         $doc->createTextNode( $userRole['phone'] )
 364     );
 365     $b->appendChild($pharmacyContactNumber);
 366     $r->appendChild( $b );
 367 }
 368
 369 function LicensedPrescriber($doc,$r)
 370 {
 371     global $msg;
 372     $user_details = sqlQuery("SELECT * FROM users WHERE id = ?",array($_SESSION['authUserID']));
 373     $b = $doc->createElement( "LicensedPrescriber" );
 374     $b->setAttribute('ID',$user_details['npi']);
 375     $LicensedPrescriberName = $doc->createElement( "LicensedPrescriberName" );
 376         $user_details['lname']=stripSpecialCharacter($user_details['lname']);
 377         $msg = validation(xl('LicensedPrescriber Last name'),$user_details['lname'],$msg);
 378         $last = $doc->createElement( "last" );
 379         $last->appendChild(
 380             $doc->createTextNode( $user_details['lname'] )
 381         );
 382         $LicensedPrescriberName->appendChild( $last );
 383         $user_details['fname']=stripSpecialCharacter($user_details['fname']);
 384         $msg = validation(xl('User First name'),$user_details['fname'],$msg);
 385         $first = $doc->createElement( "first" );
 386         $first->appendChild(
 387             $doc->createTextNode( $user_details['fname'] )
 388         );
 389         $LicensedPrescriberName->appendChild( $first );
 390         $user_details['mname']=stripSpecialCharacter($user_details['mname']);
 391         $middle = $doc->createElement( "middle" );
 392         $middle->appendChild(
 393             $doc->createTextNode( $user_details['mname'] )
 394         );
 395         $LicensedPrescriberName->appendChild( $middle );
 396     $b->appendChild( $LicensedPrescriberName );
 397     $msg = validation(xl('DEA'),$user_details['federaldrugid'],$msg);
 398     $dea = $doc->createElement( "dea" );
 399     $dea->appendChild(
 400         $doc->createTextNode( $user_details['federaldrugid'] )
 401     );
 402     $b->appendChild( $dea );
 403     if($user_details['upin']){
 404     $upin = $doc->createElement( "upin" );
 405     $upin->appendChild(
 406         $doc->createTextNode( $user_details['upin'] )
 407     );
 408     $b->appendChild( $upin );
 409     }
 410     $licenseNumber = $doc->createElement( "licenseNumber" );
 411     $licenseNumber->appendChild(
 412         $doc->createTextNode( $user_details['state_license_number'] )
 413     );
 414     $b->appendChild( $licenseNumber );
 415     $msg = validation(xl('LicensedPrescriber NPI'),$user_details['npi'],$msg);
 416     $npi = $doc->createElement( "npi" );
 417     $npi->appendChild(
 418         $doc->createTextNode( $user_details['npi'] )
 419     );
 420     $b->appendChild( $npi );
 421     $r->appendChild( $b );
 422 }
 423
 424 function Staff($doc,$r)
 425 {
 426     global $msg;
 427     $user_details = sqlQuery("SELECT * FROM users WHERE id = ?",array($_SESSION['authUserID']));
 428     $b = $doc->createElement( "Staff" );
 429     $b->setAttribute('ID',$user_details['username']);
 430     $StaffName = $doc->createElement( "StaffName" );
 431         $user_details['lname']=stripSpecialCharacter($user_details['lname']);
 432         $last = $doc->createElement( "last" );
 433         $last->appendChild(
 434             $doc->createTextNode( $user_details['lname'] )
 435         );
 436         $StaffName->appendChild( $last );
 437         $user_details['fname']=stripSpecialCharacter($user_details['fname']);
 438         $first = $doc->createElement( "first" );
 439         $first->appendChild(
 440             $doc->createTextNode( $user_details['fname'] )
 441         );
 442         $StaffName->appendChild( $first );
 443         $user_details['mname']=stripSpecialCharacter($user_details['mname']);
 444         $middle = $doc->createElement( "middle" );
 445         $middle->appendChild(
 446             $doc->createTextNode( $user_details['mname'] )
 447         );
 448         $StaffName->appendChild( $middle );
 449     $b->appendChild( $StaffName );
 450     $license = $doc->createElement( "license" );
 451     $license->appendChild(
 452         $doc->createTextNode( $user_details['license'] )
 453     );
 454     $b->appendChild( $license );
 455     $r->appendChild( $b );
 456 }
 457
 458 function SupervisingDoctor($doc,$r)
 459 {
 460     global $msg;
 461     $user_details = sqlQuery("SELECT * FROM users WHERE id = ?",array($_SESSION['authUserID']));
 462     $b = $doc->createElement( "SupervisingDoctor" );
 463     $b->setAttribute('ID',$user_details['npi']);
 464     $LicensedPrescriberName = $doc->createElement( "LicensedPrescriberName" );
 465         $user_details['lname']=stripSpecialCharacter($user_details['lname']);
 466         $msg = validation(xl('Supervising Doctor Last name'),$user_details['lname'],$msg);
 467         $last = $doc->createElement( "last" );
 468         $last->appendChild(
 469             $doc->createTextNode( $user_details['lname'] )
 470         );
 471         $LicensedPrescriberName->appendChild( $last );
 472         $user_details['fname']=stripSpecialCharacter($user_details['fname']);
 473         $msg = validation(xl('Supervising Doctor First name'),$user_details['fname'],$msg);
 474         $first = $doc->createElement( "first" );
 475         $first->appendChild(
 476             $doc->createTextNode( $user_details['fname'] )
 477         );
 478         $LicensedPrescriberName->appendChild( $first );
 479         $user_details['mname']=stripSpecialCharacter($user_details['mname']);
 480         $middle = $doc->createElement( "middle" );
 481         $middle->appendChild(
 482             $doc->createTextNode( $user_details['mname'] )
 483         );
 484         $LicensedPrescriberName->appendChild( $middle );
 485     $b->appendChild( $LicensedPrescriberName );
 486     $msg = validation(xl('Supervising Doctor DEA'),$user_details['federaldrugid'],$msg);
 487     $dea = $doc->createElement( "dea" );
 488     $dea->appendChild(
 489         $doc->createTextNode( $user_details['federaldrugid'] )
 490     );
 491     $b->appendChild( $dea );
 492     if($user_details['upin']){
 493     $upin = $doc->createElement( "upin" );
 494     $upin->appendChild(
 495         $doc->createTextNode( $user_details['upin'] )
 496     );
 497     $b->appendChild( $upin );
 498     }
 499     $licenseNumber = $doc->createElement( "licenseNumber" );
 500     $licenseNumber->appendChild(
 501         $doc->createTextNode( $user_details['state_license_number'] )
 502     );
 503     $b->appendChild( $licenseNumber );
 504     $msg = validation(xl('Supervising Doctor NPI'),$user_details['npi'],$msg);
 505     $npi = $doc->createElement( "npi" );
 506     $npi->appendChild(
 507         $doc->createTextNode( $user_details['npi'] )
 508     );
 509     $b->appendChild( $npi );
 510     $r->appendChild( $b );
 511 }
 512
 513 function MidlevelPrescriber($doc,$r)
 514 {
 515     global $msg;
 516     $user_details = sqlQuery("SELECT * FROM users WHERE id = ?",array($_SESSION['authUserID']));
 517     $b = $doc->createElement( "MidlevelPrescriber" );
 518     $b->setAttribute('ID',$user_details['npi']);
 519     $LicensedPrescriberName = $doc->createElement( "LicensedPrescriberName" );
 520         $user_details['lname']=stripSpecialCharacter($user_details['lname']);
 521         $msg = validation(xl('Midlevel Prescriber Last name'),$user_details['lname'],$msg);
 522         $last = $doc->createElement( "last" );
 523         $last->appendChild(
 524             $doc->createTextNode( $user_details['lname'] )
 525         );
 526         $LicensedPrescriberName->appendChild( $last );
 527         $user_details['fname']=stripSpecialCharacter($user_details['fname']);
 528         $msg = validation(xl('Midlevel Prescriber First name'),$user_details['fname'],$msg);
 529         $first = $doc->createElement( "first" );
 530         $first->appendChild(
 531             $doc->createTextNode( $user_details['fname'] )
 532         );
 533         $LicensedPrescriberName->appendChild( $first );
 534         $user_details['mname']=stripSpecialCharacter($user_details['mname']);
 535         $middle = $doc->createElement( "middle" );
 536         $middle->appendChild(
 537             $doc->createTextNode( $user_details['mname'] )
 538         );
 539         $LicensedPrescriberName->appendChild( $middle );
 540         if($user_details['title']){
 541         $msg = validation(xl('Midlevel Prescriber Prefix'),$user_details['title'],$msg);
 542         $prefix = $doc->createElement( "prefix" );
 543         $prefix->appendChild(
 544             $doc->createTextNode( $user_details['title'] )
 545         );
 546         $LicensedPrescriberName->appendChild( $prefix );
 547         }
 548     $b->appendChild( $LicensedPrescriberName );
 549     $msg = validation(xl('Midlevel Prescriber DEA'),$user_details['federaldrugid'],$msg);
 550     $dea = $doc->createElement( "dea" );
 551     $dea->appendChild(
 552         $doc->createTextNode( $user_details['federaldrugid'] )
 553     );
 554     $b->appendChild( $dea );
 555     if($user_details['upin']){
 556     $upin = $doc->createElement( "upin" );
 557     $upin->appendChild(
 558         $doc->createTextNode( $user_details['upin'] )
 559     );
 560     $b->appendChild( $upin );
 561     }
 562     $licenseNumber = $doc->createElement( "licenseNumber" );
 563     $licenseNumber->appendChild(
 564         $doc->createTextNode( $user_details['state_license_number'] )
 565     );
 566     $b->appendChild( $licenseNumber );
 567     $r->appendChild( $b );
 568 }
 569
 570 function Patient($doc,$r,$pid)
 571 {
 572     global $msg,$warning_msg,$dem_check;
 573     $patient_data=sqlQuery("select *, DATE_FORMAT(DOB,'%Y%m%d') AS date_of_birth from patient_data where pid=?",array($pid));
 574     $b = $doc->createElement( "Patient" );
 575     $b->setAttribute('ID',$patient_data['pid']);
 576     $PatientName = $doc->createElement( "PatientName" );
 577         $patient_data['lname']=stripSpecialCharacter($patient_data['lname']);
 578         $patient_data['lname']=trimData($patient_data['lname'],35);
 579         //$msg = validation(xl('Patient Last name'),$patient_data['lname'],$msg);
 580         if($patient_data['lname']=='')
 581             $dem_check.=htmlspecialchars( xl("Patient Last name is missing"), ENT_NOQUOTES)."<br>";
 582         $last = $doc->createElement( "last" );
 583         $last->appendChild(
 584             $doc->createTextNode( $patient_data['lname'] )
 585         );
 586         $PatientName->appendChild( $last );
 587         $patient_data['fname']=stripSpecialCharacter($patient_data['fname']);
 588         $patient_data['fname']=trimData($patient_data['fname'],35);
 589         //$msg = validation(xl('Patient First name'),$patient_data['fname'],$msg);
 590         if($patient_data['fname']=='')
 591             $dem_check.=htmlspecialchars( xl("Patient First name is missing"), ENT_NOQUOTES)."<br>";
 592         $first = $doc->createElement( "first" );
 593         $first->appendChild(
 594             $doc->createTextNode( $patient_data['fname'] )
 595         );
 596         $PatientName->appendChild( $first );
 597         $patient_data['mname']=stripSpecialCharacter($patient_data['mname']);
 598         $patient_data['mname']=trimData($patient_data['mname'],35);
 599         $middle = $doc->createElement( "middle" );
 600         $middle->appendChild(
 601             $doc->createTextNode( $patient_data['mname'] )
 602         );
 603         $PatientName->appendChild( $middle );
 604     $b->appendChild( $PatientName );
 605     $PatientAddress = $doc->createElement( "PatientAddress" );
 606         $patient_data['street']=stripSpecialCharacter($patient_data['street']);
 607         $patient_data['street']=trimData($patient_data['street'],35);
 608         $msg = validation(xl('Patient Address'),$patient_data['street'],$msg);
 609         if(trim($patient_data['street'])=='')
 610             $warning_msg .= "<br>".htmlspecialchars( xl("Patient Address is missing"), ENT_NOQUOTES);
 611         $address1 = $doc->createElement( "address1" );
 612         $address1->appendChild(
 613             $doc->createTextNode( $patient_data['street'] )
 614         );
 615         $PatientAddress->appendChild( $address1 );
 616         //$msg = validation(xl('Patient City'),$patient_data['city'],$msg);
 617         if($patient_data['city']=='')
 618             $dem_check.=htmlspecialchars( xl("Patient City is missing"), ENT_NOQUOTES)."<br>";
 619         $city = $doc->createElement( "city" );
 620         $city->appendChild(
 621             $doc->createTextNode( $patient_data['city'] )
 622         );
 623         $PatientAddress->appendChild( $city );
 624         if($patient_data['state']){
 625         $state = $doc->createElement( "state" );
 626         $state->appendChild(
 627             $doc->createTextNode( $patient_data['state'] )
 628         );
 629         $PatientAddress->appendChild( $state );
 630         }
 631         if($patient_data['postal_code']){
 632         $zip = $doc->createElement( "zip" );
 633         $zip->appendChild(
 634             $doc->createTextNode( $patient_data['postal_code'] )
 635         );
 636         $PatientAddress->appendChild( $zip );
 637         }
 638         //$msg = validation(xl('Patient Country'),$patient_data['country_code'],$msg);
 639         if(trim($patient_data['country_code'])=='' && $GLOBALS['erx_default_patient_country']=='')
 640             $dem_check.=htmlspecialchars( xl("Patient Country is missing. Also you have not set default Patient Country in Global Settings"), ENT_NOQUOTES)."<br>";
 641         elseif(trim($patient_data['country_code'])=='')
 642             $patient_data['country_code'] = $GLOBALS['erx_default_patient_country'];
 643         $county_code = substr($patient_data['country_code'],0,2);
 644         $country = $doc->createElement( "country" );
 645         $country->appendChild(
 646             $doc->createTextNode( $county_code )
 647         );
 648         $PatientAddress->appendChild( $country );
 649     $b->appendChild( $PatientAddress );
 650     $PatientContact = $doc->createElement( "PatientContact" );
 651         $patient_data['phone_home']=stripPhoneSlashes($patient_data['phone_home']);
 652         if($patient_data['phone_home']){
 653         $homeTelephone = $doc->createElement( "homeTelephone" );
 654         $homeTelephone->appendChild(
 655             $doc->createTextNode( $patient_data['phone_home'] )
 656         );
 657         $PatientContact->appendChild( $homeTelephone );
 658         }
 659     $b->appendChild( $PatientContact );
 660     $PatientCharacteristics = $doc->createElement( "PatientCharacteristics" );
 661         if(trim($patient_data['date_of_birth'])=='' || $patient_data['date_of_birth']=='00000000')
 662             $warning_msg .= "<br>".htmlspecialchars( xl("Patient Date Of Birth is missing"), ENT_NOQUOTES);
 663         if($patient_data['date_of_birth'] && $patient_data['date_of_birth']!='00000000'){
 664         $dob = $doc->createElement( "dob" );
 665         $dob->appendChild(
 666             $doc->createTextNode( $patient_data['date_of_birth'] )
 667         );
 668         $PatientCharacteristics->appendChild( $dob );
 669         }
 670         if(trim($patient_data['sex'])=='')
 671             $warning_msg .= "<br>".htmlspecialchars( xl("Patient Gender is missing"), ENT_NOQUOTES);
 672         if($patient_data['sex']){
 673         $gender_val=substr($patient_data['sex'],0,1);
 674         $gender = $doc->createElement( "gender" );
 675         $gender->appendChild(
 676             $doc->createTextNode( $gender_val )
 677         );
 678         $PatientCharacteristics->appendChild( $gender );
 679         }
 680     $b->appendChild( $PatientCharacteristics );
 681     PatientFreeformHealthplans($doc,$b,$pid);
 682     $allergyId=PatientFreeformAllergy($doc,$b,$pid);
 683     $r->appendChild( $b );
 684         return $allergyId;
 685 }
 686
 687 function OutsidePrescription($doc,$r,$pid,$prescid)
 688 {
 689     global $msg;
 690     if($prescid)
 691     {
 692         $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,
 693             DATE_FORMAT(date_added,'%Y%m%d') AS date_added,CONCAT_WS(fname,' ',mname,' ',lname) AS docname,p.quantity
 694             FROM prescriptions AS p
 695             LEFT JOIN users AS u ON p.provider_id=u.id
 696             LEFT JOIN list_options AS l1 ON l1.list_id='drug_form' AND l1.option_id=p.form
 697             LEFT JOIN list_options AS l2 ON l2.list_id='drug_route' AND l2.option_id=p.route
 698             LEFT JOIN list_options AS l3 ON l3.list_id='drug_interval' AND l3.option_id=p.interval
 699             LEFT JOIN list_options AS l4 ON l4.list_id='drug_units' AND l4.option_id=p.unit
 700             WHERE p.drug<>'' and p.id=?",array($prescid));
 701         $b = $doc->createElement( "OutsidePrescription" );
 702             $externalId = $doc->createElement( "externalId" );
 703             $externalId->appendChild(
 704                 $doc->createTextNode( $prec['prescid'] )
 705             );
 706             $b->appendChild( $externalId );
 707             $date = $doc->createElement( "date" );
 708             $date->appendChild(
 709                 $doc->createTextNode( $prec['date_added'] )
 710             );
 711             $b->appendChild( $date );
 712             $doctorName = $doc->createElement( "doctorName" );
 713             $doctorName->appendChild(
 714                 $doc->createTextNode( $prec['docname'] )
 715             );
 716             $b->appendChild( $doctorName );
 717             $s=stripSpecialCharacter($prec['drug']);
 718             $sig = $doc->createElement( "drug" );
 719             $sig->appendChild(
 720                 $doc->createTextNode( trimData($s,80) )
 721             );
 722             $b->appendChild( $sig );
 723             $x=stringToNumeric($prec['quantity']);
 724             $dispenseNumber = $doc->createElement( "dispenseNumber" );
 725             $dispenseNumber->appendChild(
 726                 $doc->createTextNode( $x[0] )
 727             );
 728             $b->appendChild( $dispenseNumber );
 729             $s=trimData($x[1].$prec['size']." ".$prec['title4']." ".$prec['dosage']." In ".$prec['title1']." ".$prec['title2']." ".$prec['title3'],140);
 730             $s=stripSpecialCharacter($s);
 731             $sig = $doc->createElement( "sig" );
 732             $sig->appendChild(
 733                 $doc->createTextNode( $s )
 734             );
 735             $b->appendChild( $sig );
 736             $refillCount = $doc->createElement( "refillCount" );
 737             $x=stringToNumeric($prec['per_refill']);
 738             $refillCount->appendChild(
 739                 $doc->createTextNode( $x[0])
 740             );
 741             $b->appendChild( $refillCount );
 742             $prescriptionType = $doc->createElement( "prescriptionType" );
 743             $prescriptionType->appendChild(
 744                 $doc->createTextNode( 'reconcile' )
 745             );
 746             $b->appendChild( $prescriptionType );
 747         $r->appendChild( $b );
 748     }
 749 }
 750
 751 function PatientMedication($doc,$r,$pid,$med_limit)
 752 {
 753     global $msg;
 754     $active='';
 755     if($GLOBALS['erx_upload_active']==1)
 756         $active = " and (enddate is null or enddate = '' or enddate = '0000-00-00' )";
 757     $res_med=sqlStatement("select * from lists where type='medication' and pid=? and title<>''
 758         and erx_uploaded='0' $active order by enddate limit 0,$med_limit",array($pid));
 759         $uploaded_med_arr="";
 760     while($row_med=sqlFetchArray($res_med))
 761     {
 762                 $uploaded_med_arr[]=$row_med['id'];
 763         $b = $doc->createElement( "OutsidePrescription" );
 764             $externalId = $doc->createElement( "externalId" );
 765             $externalId->appendChild(
 766                 $doc->createTextNode( $row_med['id'] )
 767             );
 768             $b->appendChild( $externalId );
 769             $date = $doc->createElement( "date" );
 770             $date->appendChild(
 771                 $doc->createTextNode( $row_med['begdate'] )
 772             );
 773             $b->appendChild( $date );
 774             $doctorName = $doc->createElement( "doctorName" );
 775             $doctorName->appendChild(
 776                 $doc->createTextNode( "" )
 777             );
 778             $b->appendChild( $doctorName );
 779             $row_med['title'] = stripSpecialCharacter($row_med['title']);
 780             $sig = $doc->createElement( "drug" );
 781             $sig->appendChild(
 782                 $doc->createTextNode( trimData($row_med['title'],80) )
 783             );
 784             $b->appendChild( $sig );
 785             $dispenseNumber = $doc->createElement( "dispenseNumber" );
 786             $dispenseNumber->appendChild(
 787                 $doc->createTextNode( $prec['quantity'] )
 788             );
 789             $b->appendChild( $dispenseNumber );
 790             $sig = $doc->createElement( "sig" );
 791             $sig->appendChild(
 792                 $doc->createTextNode( "" )
 793             );
 794             $b->appendChild( $sig );
 795             $refillCount = $doc->createElement( "refillCount" );
 796             $refillCount->appendChild(
 797                 $doc->createTextNode( "" )
 798             );
 799             $b->appendChild( $refillCount );
 800             $prescriptionType = $doc->createElement( "prescriptionType" );
 801             $prescriptionType->appendChild(
 802                 $doc->createTextNode( 'reconcile' )
 803             );
 804             $b->appendChild( $prescriptionType );
 805         $r->appendChild( $b );
 806
 807     }
 808         return $uploaded_med_arr;
 809 }
 810
 811 function PatientFreeformAllergy($doc,$r,$pid)
 812 {
 813     $res=sqlStatement("SELECT id,l.title as title1,lo.title as title2,comments FROM lists AS l
 814     LEFT JOIN list_options AS lo ON l.outcome=lo.option_id AND lo.list_id='outcome'
 815         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));
 816         $allergyId=array();
 817     while($row=sqlFetchArray($res))
 818     {
 819         $val=array();
 820         $val['id']=$row['id'];
 821         $val['title1']=$row['title1'];
 822         $val['title2']=$row['title2'];
 823         $val['comments']=$row['comments'];
 824         $b = $doc->createElement( "PatientFreeformAllergy" );
 825         $b->setAttribute('ID',$val['id']);
 826             if($val['title1']){
 827             $allergyName = $doc->createElement( "allergyName" );
 828                 $allergyName->appendChild(
 829                     $doc->createTextNode( trimData(stripSpecialCharacter($val['title1']),70) )
 830                 );
 831             $b->appendChild( $allergyName );
 832             }
 833             if($val['title2'] && ($val['title2']=='Mild' || $val['title2']=='Moderate' || $val['title2']=='Severe')){
 834             $allergySeverityTypeID = $doc->createElement( "allergySeverityTypeID" );
 835                 $allergySeverityTypeID->appendChild(
 836                     $doc->createTextNode( $val['title2'] )
 837                 );
 838             $b->appendChild( $allergySeverityTypeID );
 839             }
 840             if($val['comments']){
 841             $allergyComment = $doc->createElement( "allergyComment" );
 842                 $allergyComment->appendChild(
 843                     $doc->createTextNode( trimData(stripSpecialCharacter($val['comments']),200) )
 844                 );
 845             $b->appendChild( $allergyComment );
 846             }
 847         $r->appendChild( $b );
 848                 $allergyId[]=$row['id'];
 849     }
 850         return $allergyId;
 851 }
 852
 853 function PatientFreeformHealthplans($doc, $r, $pid) {
 854     $resource = sqlStatement('SELECT
 855             `ins`.`name`
 856         FROM (
 857             SELECT
 858                 `id`.`type`,
 859                 `ic`.`name`
 860             FROM `insurance_data` AS `id`
 861                 LEFT JOIN `insurance_companies` AS `ic` ON `ic`.`id` = `id`.`provider`
 862             WHERE `id`.`pid` = ?
 863                 AND `id`.`subscriber_relationship` = \'self\'
 864                 AND `id`.`provider` > 0
 865             ORDER BY `id`.`date` DESC
 866         ) AS `ins`
 867         GROUP BY `ins`.`type`;',
 868         array($pid)
 869     );
 870
 871     while($row = sqlFetchArray($resource)) {
 872         $healthplanName = $doc->createElement('healthplanName');
 873         $healthplanName->appendChild($doc->createTextNode(
 874             stripSpecialCharacter(trimData($row['name'], 35))
 875         ));
 876
 877         $patientFreeformHealthplans = $doc->createElement('PatientFreeformHealthplans');
 878         $patientFreeformHealthplans->appendChild($healthplanName);
 879
 880         $r->appendChild($patientFreeformHealthplans);
 881      }
 882  }
 883
 884 function PrescriptionRenewalResponse($doc,$r,$pid)
 885 {
 886     $b = $doc->createElement( "PrescriptionRenewalResponse" );
 887         $renewalRequestIdentifier = $doc->createElement( "renewalRequestIdentifier" );
 888             $renewalRequestIdentifier->appendChild(
 889                 $doc->createTextNode( 'cbf51649-ce3c-44b8-8f91-6fda121a353d' )
 890             );
 891         $b->appendChild( $renewalRequestIdentifier );
 892         $responseCode = $doc->createElement( "responseCode" );
 893             $responseCode->appendChild(
 894                 $doc->createTextNode( 'Undetermined' )
 895             );
 896         $b->appendChild( $responseCode );
 897     $r->appendChild( $b );
 898 }
 899
 900 function checkError($xml)
 901 {
 902     $ch = curl_init($xml);
 903
 904     $data = array('RxInput' => $xml);
 905
 906     curl_setopt($ch, CURLOPT_URL, getErxPath());
 907     curl_setopt($ch, CURLOPT_POST, 1);
 908     curl_setopt($ch, CURLOPT_POSTFIELDS, "RxInput=".$xml);
 909     curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, 0);
 910     curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1);
 911     curl_setopt($ch, CURLOPT_COOKIESESSION, TRUE);
 912     //curl_setopt($ch, CURLOPT_HEADER, 0);
 913     curl_setopt($ch, CURLOPT_COOKIEFILE, "cookiefile");
 914     curl_setopt($ch, CURLOPT_COOKIEJAR, "cookiefile");
 915     curl_setopt($ch, CURLOPT_COOKIE, session_name() . '=' . session_id());
 916     curl_setopt($ch, CURLOPT_USERAGENT,"Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)");
 917     curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
 918
 919     $result=curl_exec($ch)  or die( curl_error($ch)) ;
 920     preg_match('/<textarea.*>(.*)Original XML:/is',$result,$error_message);
 921     if(strpos($result,'RxEntry.aspx')){
 922     erx_error_log($xml);
 923     erx_error_log($result);
 924     }
 925     $arr=explode('Error',$error_message[1]);
 926     //echo "Te: ".count($arr);
 927     //print_r($arr);
 928     if(count($arr)==1)
 929     {
 930         echo nl2br($error_message[1]);
 931     }
 932     else
 933     {
 934         for($i=1;$i<count($arr);$i++)
 935         {
 936             echo $arr[$i]."<br><br>";
 937         }
 938     }
 939     curl_close($ch);
 940     if(strpos($result,'RxEntry.aspx'))
 941         return '1';
 942     else
 943         return '0';
 944 }
 945
 946 function erx_error_log($message)
 947 {
 948     $date = date("Y-m-d");
 949     if(!is_dir($GLOBALS['OE_SITE_DIR'].'/documents/erx_error'))
 950     mkdir($GLOBALS['OE_SITE_DIR'].'/documents/erx_error',0777,true);
 951     $filename = $GLOBALS['OE_SITE_DIR']."/documents/erx_error/erx_error"."-".$date.".log";
 952     $f=fopen($filename,'a');
 953     fwrite($f,date("Y-m-d H:i:s")." ==========> ".$message."\r\n");
 954     fclose($f);
 955 }
 956
 957 function stripStrings($str,$pattern)
 958 {
 959     $result = $str;
 960     foreach($pattern as $key=>$value){
 961         $result = preg_replace("/$key/",$value,$result);
 962     }
 963     return $result;
 964 }