5) $mzip = substr($myrow['A25'],0,5)."-".substr($myrow['A25'],5); else $mzip = $myrow['A25']; $mphone = "(".substr($myrow['A27'],0,3).") ".substr($myrow['A27'],3,3)."-".substr($myrow['A27'],6); $mfax = "(".substr($myrow['A28'],0,3).") ".substr($myrow['A28'],3,3)."-".substr($myrow['A28'],6); /*Practice Address*/ $address1 = ucwords(strtolower($myrow['A29'])); $address2 = ucwords(strtolower($myrow['A30'])); $cityname = ucwords(strtolower($myrow['A31'])); $statename = $myrow['A32']; if(strlen($myrow['A33'])>5) $zip = substr($myrow['A33'],0,5)."-".substr($myrow['A33'],5); else $zip = $myrow['A33']; $phone = "(".substr($myrow['A35'],0,3).") ".substr($myrow['A35'],3,3)."-".substr($myrow['A35'],6); $cphone = $myrow['A35']; if(!empty($myrow['A36'])) { $fax = "(".substr($myrow['A36'],0,3).") ".substr($myrow['A36'],3,3)."-".substr($myrow['A36'],6); } else { $fax = "Not Available"; } $enumdate = $myrow['A37']; $updatedate = $myrow['A38']; $certificationdate = $myrow['A330']; $authorized_official = ucwords(strtolower(str_replace(" "," ",$myrow['A44']." ".$myrow['A45']." ".$myrow['A43']))); $authorized_position = $myrow['A46']; $authorized_phone = $myrow['A47']; $states = array( 'AA'=>"Armed Forces Americas", 'AE'=>"Armed Forces Europe", 'AL'=>"Alabama", 'AK'=>"Alaska", 'AP'=>"Armed Forces Pacific", 'AS'=>"American Samoa", 'AZ'=>"Arizona", 'AR'=>"Arkansas", 'CA'=>"California", 'CO'=>"Colorado", 'CT'=>"Connecticut", 'DE'=>"Delaware", 'DC'=>"District Of Columbia", 'FL'=>"Florida", 'FM'=>"Micronesia", 'FPO'=>"FPO", 'GA'=>"Georgia", 'GU'=>"Guam", 'HI'=>"Hawaii", 'ID'=>"Idaho", 'IL'=>"Illinois", 'IN'=>"Indiana", 'IA'=>"Iowa", 'KS'=>"Kansas", 'KY'=>"Kentucky", 'LA'=>"Louisiana", 'ME'=>"Maine", 'MD'=>"Maryland", 'MA'=>"Massachusetts", 'MH'=>"Marshall Islands", 'MI'=>"Michigan", 'MN'=>"Minnesota", 'MS'=>"Mississippi", 'MO'=>"Missouri", 'MT'=>"Montana", 'NE'=>"Nebraska", 'NV'=>"Nevada", 'NH'=>"New Hampshire", 'NJ'=>"New Jersey", 'NM'=>"New Mexico", 'NY'=>"New York", 'NC'=>"North Carolina", 'ND'=>"North Dakota", 'OH'=>"Ohio", 'OK'=>"Oklahoma", 'OR'=>"Oregon", 'PA'=>"Pennsylvania", 'PW'=>"Palau", 'RI'=>"Rhode Island", 'SC'=>"South Carolina", 'SD'=>"South Dakota", 'TN'=>"Tennessee", 'TX'=>"Texas", 'UT'=>"Utah", 'VT'=>"Vermont", 'VA'=>"Virginia", 'VI'=>"Virgin Island", 'WA'=>"Washington", 'WV'=>"West Virginia", 'WI'=>"Wisconsin", 'WY'=>"Wyoming", 'PR'=>"Puerto Rico", 'MP'=>"Northern Mariana Islands", NULL => '* (Not Available)', ); /*active and other taxonomy (non active)*/ $othertax = array(); $taxarr = array(); $switch = 50; for($i=0;$i<15;$i++) { $park = $switch + $i*4; if(!empty($myrow[$park])) { $othertax[$i][0] = $myrow[$park-3]; $othertax[$i][1] = $myrow[$park-2]; $othertax[$i][2] = $myrow[$park-1]; $othertax[$i][3] = $myrow[$park]; $taxarr[$i] = "".$myrow[$park-3].""; } if($myrow[$park]=="Y"||$myrow[$park]=="X" || $i==0) { $taxonomy = $myrow[$park-3]; $license = $myrow[$park-2]; $fullstate1 = $states[$myrow[$park-1]] ?? $myrow[$park-1]; } } $sql3 = "select * from taxonomy where code IN ('".implode("','",$taxarr)."')"; $query3 = MySQLi_query($link,$sql3); $type1 = $class1 = $special1 = $definition1 = array(); $i=0; while($myrow1 = MySQLi_fetch_array($query3, MYSQLI_BOTH)) { $code1 = $myrow1[0]; $type1[$code1] = $myrow1[1]; $class2[$code1] = $myrow1[2]; $special1[$code1] = $myrow1[3]; $definition1[$code1] = $myrow1[4]; if($special1[$code1]!="") { $class1[$code1] = $class2[$code1]." - ".$special1[$code1]; } else $class1[$code1] = $class2[$code1]; $class1[$code1] = ucwords(strtolower($class1[$code1])); $i++; } $activeclass = $class1[$taxonomy]; $activetype = $class2[$taxonomy]; /*other identifiers*/ $other = array(); $switch = 107; for($i=0;$i<50;$i++) { $park = $switch + $i*4; if($myrow[$park]!=NULL) { $other[$i][0]=$myrow[$park]; $other[$i][1]=$myrow[$park+1]; $other[$i][2]=$myrow[$park+2]; $other[$i][3]=$myrow[$park+3]; } else break; } $soleprop = $myrow['A308']; //$category = $myrow['category']; //$category = 4; $mflag = $myrow['mflag']; if($othername!="" && $flag!=4) { $fullname = ucwords(strtolower($othername)); $ofullname = ucwords(strtolower($orgname)); } else { $fullname = ucwords(strtolower($orgname)); $ofullname = ucwords(strtolower($othername)); } $fullnamewnc = $fullname; $fulladdress = "
"; if($address1!="") $fulladdress = $fulladdress.$address1."
"; if($address2!="") $fulladdress = $fulladdress.$address2."
"; $fulladdress = $fulladdress.$cityname."
".$statename." ".$zip."
"; $mfulladdress = "
"; if($maddress1!="") $mfulladdress = $mfulladdress.$maddress1."
"; if($maddress2!="") $mfulladdress = $mfulladdress.$maddress2."
"; $mfulladdress = $mfulladdress.$mcityname."
".$mstatename." ".$mzip."
"; $fullstate = $states[$statename] ?? $statename; $mfullstate = $states[$mstatename] ?? $mstatename; $fullpracticeaddress = $address1; if($address2!="") $fullpracticeaddress = $fullpracticeaddress.", ".$address2; $fullpracticeaddress = $fullpracticeaddress.", ".$cityname.", ".$fullstate; //$mapaddress = implode("+",explode(" ",$fullpracticeaddress)); $mapaddress = urlencode($fullpracticeaddress); $fullmailingaddress = $maddress1; if($maddress2!="") $fullmailingaddress = $fullmailingaddress.", ".$maddress2; $fullmailingaddress = $fullmailingaddress.", ".$mcityname.", ".$mfullstate; $providerlink = $clinicbase.$cliniclink."/"; if($mflag==1) { $sql2 = "Select SQL_NO_CACHE * from ppee where NPI = '$npi'"; $query2 = MySQLi_query($link,$sql2); $myrow = MySQLi_fetch_array($query2, MYSQLI_BOTH); $PACID = $myrow['PACID']; $PEID = $myrow['EID']; $Spec = $activetype; $TypeDesc = $myrow['TypeDesc']; } $temp = explode(" ",strtolower($cityname)); $tempcity = urlencode(implode("-",$temp)); $tempstate = strtolower($statename); $statelink = $catlink.$tempstate."/"; $citylink = $statelink.$tempcity."/"; if($mflag==1) { $desc = $fullname." in ".$cityname.", ".$statename." - Medicare ".$Spec." Details including NPI, Practice Location and Contact Numbers. Find if $fullnamewnc participate in medicare and accept medicare assignments."; $title = $fullname." in ".$cityname.", ".$statename." - Medicare ".$Spec; $header = $fullname." - Medicare Mental Health Clinic in ".$cityname.", ".$statename; } else { $desc = $fullname." in ".$cityname.", ".$statename." - ".$activetype." Details including NPI, Practice Location and Contact Numbers. Find if $fullnamewnc participate in medicare and accept medicare assignments."; $title = $fullname." in ".$cityname.", ".$statename." - ".$activetype; $header = $fullname." - Mental Health Clinic in ".$cityname.", ".$statename; } $advert = '
'; $adlink = ' '; ?> <?php echo $title;?> | MedicareUSA

$fullname is a medicare enrolled mental health clinic ($activeclass) in $cityname, $fullstate. "; echo "The current practice location for $fullname is $fullpracticeaddress. For appointments, you can reach them via phone at $phone. "; echo "The mailing address for $fullname is $fullmailingaddress and phone number is $mphone. "; echo "

$fullnamewnc is licensed to practice in $fullstate1 (license number $license). The clinic also participates in the medicare program and its NPI number is $npi. "; } else { echo "$fullname is a mental health clinic ($activeclass) in $cityname, $fullstate. "; echo "The current practice location for $fullname is $fullpracticeaddress. For appointments, you can reach them via phone at $phone. "; echo "The mailing address for $fullname is $fullmailingaddress and phone number is $mphone. "; echo "

$fullnamewnc is licensed to practice in $fullstate1 (license number $license) and its NPI number is $npi. "; } if($mflag==1) echo "This medical practice accepts medicare insurance (which means this clinic accepts the Medicare-approved amount; you will not be billed for any more than the Medicare deductible and coinsurance). However, please confirm if they accept your insurance at $phone. "; else if($mflag==0) echo "This medical practice does not participate in medicare program and thus may not accept your medicare insurance. You may check if they accept your insurance at $phone. "; echo "
"; //Ad will come here. 728x90 on desktop and 320X100 on mobile echo "$advert"; ?>

Contact Information

$phone";?>

Mental Health Clinic Profile

"; if($mflag==1) { echo ""; } else echo ""; echo ""; echo ""; echo ""; echo ""; ?>
Full Name$fullnamewnc
Speciality$Spec
Speciality$activeclass
Location$address1, $cityname, $fullstate
Authorized Official Name and Position$authorized_official ($authorized_position)
Authorized Official Contact$authorized_phone
Accepts Medicare Insurance"; if($mflag==1) echo "Yes. This clinic participates in medicare program and accept medicare insurance. "; else echo "This clinic does not participate in Medicare Program. "; echo "

Mailing Address and Practice Location

"; ?>
Mailing AddressPractice Location Address
$fullname
$mfulladdress
Ph: $mphone
$fullname
$fulladdress
Ph: $phone

NPI Details:

"; echo ""; echo ""; if(!empty($certificationdate)) echo ""; ?>
NPI Number$npi
Provider Enumeration Date$enumdate
Last Update Date$updatedate
Certification Date$certificationdate

Medicare PECOS Information:

'; echo ''; echo ""; echo ""; echo '
Medicare PECOS PAC ID$PACID
Medicare Enrollment ID$PEID
'; } ?>

Medical Identifiers

Medical identifiers for such as npi, medicare ID, medicare PIN, medicaid, etc. "; // if other identifier exist, show below table $i=0; if(isset($other[$i][0])) { $otherid = array( '01'=>"Other", '02'=>"Medicare UPIN", '04'=>"Medicare ID-Type Unspecified", '05'=>"Medicaid", '06'=>"Medicare OSCAR/CERTIFICATION", '07'=>"Medicare NSC", '08'=>"Medicare PIN" ); for($i=0;$i<50;$i++) { if(isset($other[$i][0])) { $A = $other[$i][0]; $B = $other[$i][1]; $C = $other[$i][2]; $D = $other[$i][3]; $idtype = $otherid[$B]; echo ""; } else break; } } ?>
IdentifierTypeStateIssuer
$npiNPI-NPPES
$A$idtype$C$D

Medical Taxonomies and Licenses

"; } } ?>
TaxonomyTypeLicense (State)Status
$thistax$thisclass $thislicense ($thisstate)$activestatus

Medicare Reassignments

'; echo "Some practitioners may not bill the customers directly but medicare billing happens through clinics / group practice / hospitals where the provider works. $fullnamewnc acts as a billing entity for following providers:
"; } $tfirst++; $tNPI = $myrow2['NPI']; $tPACID = $myrow2['PACID']; $tPEID = $myrow2['EID']; $tType = ucwords(strtolower($myrow2['TypeDesc'])); $tState = $myrow2['State']; if(!empty($myrow2['Org'])) { $tName = ucwords(strtolower($myrow2['Org'])); } else { if(!empty($myrow2['MName'])) $tName = ucwords(strtolower($myrow2['FName']." ".$myrow2['MName']." ".$myrow2['LName'])); else $tName = ucwords(strtolower($myrow2['FName']." ".$myrow2['LName'])); } echo ''; echo ""; echo ""; echo ""; echo "
Provider Name$tName
Provider Type$tType
Provider IdentifiersNPI Number: $tNPI
PECOS PAC ID: $tPACID
Enrollment ID: $tPEID
"; } } ?>

News Archive

New computational model helps study how emerging metastatic tumors interact with immune system

You think that your immune system is there to protect you. But what happens when it starts working against you? In the earliest stages of cancer formation, the immune system is forced to make a momentous decision. It either activates and suppresses tumor growth to help the body fight disease, or it becomes dysfunctional, helping the tumor grow and making treatment more difficult. Because this tipping point occurs before a person even realizes something is wrong, doctors are unable to directly observe this critical stage.

Alpine HC launches new range of electric adjustable beds for comfort and mobility

Alpine HC Group, the manufacturer of Opera care beds and mattresses, have launched a new range of electric adjustable beds for comfort and mobility. The beds have an adjustable base for orthopedic support that enables the elderly/disabled user to sit up in bed and elevate their legs.

Researchers use new laser-assisted technology for bioprinting adult neuron cells

A group of researchers including a Concordia PhD student have developed a new method of bioprinting adult neuron cells. They're using a new laser-assisted technology that maintains high levels of cell viability and functionality.

Experimental vaccine shows promise to protect stroke survivors from blood clots

A vaccine may one day be able to replace oral blood thinners to reduce the risk of secondary strokes caused by blood clots, without increasing the risk of serious bleeding or triggering an autoimmune response, according to new research in the American Heart Association's journal Hypertension.

Read more News

› Verified 5 days ago

$activetype in $cityname, $statename"; $sql4 = "Select * from mentalclinics where A32='$statename' AND A31='$cityname' LIMIT 7"; $query4 = MySQLi_query($link,$sql4); echo ""; while($myrow = MySQLi_fetch_array($query4, MYSQLI_BOTH)) { $npi = $myrow['A1']; $cityname = ucwords(strtolower($myrow['A31'])); $statename = $myrow['A32']; $zip = substr($myrow['A33'],0,5); $address1 = ucwords(strtolower($myrow['A29'])); $address2 = ucwords(strtolower($myrow['A30'])); $phone = substr($myrow['A35'],0,3)."-".substr($myrow['A35'],3,3)."-".substr($myrow['A35'],6); if(!empty($myrow['A36'])) $fax = substr($myrow['A36'],0,3)."-".substr($myrow['A36'],3,3)."-".substr($myrow['A36'],6); else $fax =""; $orgname = $myrow['A5']; $othername = $myrow['A12']; $flag = $myrow['A13']; if($othername!="" && $flag!=4) { $fullname = ucwords(strtolower($othername)); $ofullname = ucwords(strtolower($orgname)); } else { $fullname = ucwords(strtolower($orgname)); $ofullname = ucwords(strtolower($othername)); } $doclink = $myrow['link']; if($myrow['mflag']==1) $mflag = "Medicare Enrolled"; else $mflag = "Not Enrolled in Medicare"; $printname = $fullname; $fulladdress=""; if($address1!="") $fulladdress = $address1.", "; if($address2!="") $fulladdress = $fulladdress.$address2.", "; $fulladdress = $fulladdress.$cityname.", ".$statename." ".$zip; $branchlink = $clinicbase.$doclink."/"; if($doclink!=$cliniclink) { echo ""; } } echo "
"; echo "
$printname
"; echo "Mental Health Clinic
Medicare: $mflag
Practice Location: $fulladdress
"; echo "Phone: $phone    "; if(!empty($fax)) echo "Fax: $fax"; echo "
"; } ?>