}
}
if ($flag == 0) {
sqlQuery("update lists set enddate=now() where pid=? and id=? and type='allergy'", array($patientid, $row['id']));
}
}
$xml1_0 = array();
$xml1_0['credentials']['PartnerName'] = $cred['0'];
$xml1_0['credentials']['Name'] = $cred['1'];
$xml1_0['credentials']['Password'] = $cred['2'];
$xml1_0['accountRequest']['AccountId'] = '1';
$xml1_0['accountRequest']['SiteId'] = $erxSiteID['federal_ein'];
$xml1_0['patientRequest']['PatientId'] = $patientid;
$xml1_0['patientInformationRequester']['UserType'] = 'D';
$xml1_0['patientInformationRequester']['UserId'] = $user_details['id'];
$xml = $client->GetPatientFreeFormAllergyHistory($xml1_0);
$xml_response = $xml->GetPatientFreeFormAllergyHistoryResult->patientFreeFormAllergyExtendedDetail->PatientFreeFormAllergyExtendedDetail;
$xml_response_count = $xml->GetPatientFreeFormAllergyHistoryResult->result->RowCount;
if ($xml_response_count > 1) {
for ($i = 0; $i < sizeof($xml_response); $i++) {
sqlQuery("update lists set erx_uploaded='0' where id=?", array($xml_response[$i]->ExternalId));
}
} elseif ($xml_response_count == 1) {
sqlQuery("update lists set erx_uploaded='0' where id=?", array($xml_response->ExternalId));
}
if ($j != 0) {
sqlQuery("update patient_data set soap_import_status=? where pid=?", array('4', $patientid));
}
if ($xml_response_count == 0) {
echo htmlspecialchars(xl("Nothing to import for Allergy"), ENT_NOQUOTES);
} elseif ($xml_response_count > 0) {
