<%@ Language=VBScript EnableSessionState=False%> <% Response.Buffer=True %> <% Function IsValidName(strName) Dim badchars Dim newchars Dim txtValid txtValid = False badchars = array("select","SELECT","create","CREATE","drop","DROP",";","--","insert","INSERT","delete","DELETE","script","SCRIPT","xp_","XP_","(",")","<",">","/","\","@","#","$","%","^","&","*","-","_","+","=","|","?","~","`",".",":","[","]","{","}","!","0","1","2","3","4","5","6","7","8","9") newchars = strName If Len(strName) = 0 Or Len(strName) > 40 Then txtValid = True End If For i = 0 to ubound(badchars) If INSTR(newchars, badchars(i)) > 0 Then txtValid = True IsValidName = txtValid Exit Function End If Next IsValidName = txtValid End Function Function IsValidAddr(strName) Dim badchars Dim newchars Dim txtValid txtValid = False badchars = array("select","SELECT","create","CREATE","drop","DROP",";","--","insert","INSERT","delete","DELETE","script","SCRIPT","xp_","XP_","(",")","<",">","/","\","@","#","$","%","^","&","*","-","_","+","=","|","?","~","`",":","[","]","{","}","!") newchars = strName If Len(newchars) = 0 Or Len(newchars) > 40 Then txtValid = True End If For i = 0 to ubound(badchars) If INSTR(newchars, badchars(i)) > 0 Then txtValid = True IsValidAddr = txtValid Exit Function End If Next IsValidAddr = txtValid End Function Function IsValidMsg(strName) Dim badchars Dim newchars Dim txtValid txtValid = False badchars = array("select","SELECT","create","CREATE","drop","DROP",";","--","insert","INSERT","delete","DELETE","script","SCRIPT","xp_","XP_","(",")","<",">","/","\","@","#","$","%","^","&","*","-","_","+","=","|","?","~","`",":","[","]","{","}","!") newchars = strName If (Len(newchars) = 0 Or Len(newchars) > 500) Then txtValid = True End If For i = 0 to ubound(badchars) If INSTR(newchars, badchars(i)) > 0 Then txtValid = True IsValidMsg = txtValid Exit Function End If Next IsValidMsg = txtValid End Function Function IsValidPhone(strName) Dim badchars Dim newchars Dim txtValid txtValid = False badchars = array("select","SELECT","create","CREATE","drop","DROP",";","--","insert","INSERT","delete","DELETE","script","SCRIPT","xp_","XP_","(",")","<",">","/","\","@","#","$","%","^","&","*","-","_","+","=","|","?","~","`",".",":","[","]","{","}","!","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","x","y","z") newchars = strName If (Len(newchars) = 0 Or Len(newchars) > 40) Then txtValid = True End If For i = 0 to ubound(badchars) If INSTR(newchars, badchars(i)) > 0 Then txtValid = True IsValidPhone = txtValid Exit Function End If Next IsValidPhone = txtValid End Function Function IsValidEmail1(strName) Dim badchars Dim newchars Dim txtValid txtValid = False badchars = array(",",";","xp_","XP_","(",")","<",">","/","\","#","$","%","^","&","*","+","=","|","?","~","`",":","[","]","{","}","!") newchars = strName If (Len(newchars) = 0 Or Len(newchars) > 40) Then txtValid = True End If For i = 0 to ubound(badchars) If INSTR(newchars, badchars(i)) > 0 Then txtValid = True IsValidEmail1 = txtValid Exit Function End If Next IsValidEmail1 = txtValid End Function Function filterBadchars1(tstr) Dim badchars Dim newchars badchars = array("select","SELECT","create","CREATE","drop","DROP",";","--","insert","INSERT","delete","DELETE","script","SCRIPT","xp_","XP_","(",")","<",">","/","\","@","#","$","%","^","&","*","-","_","+","=","|","?","~","`",".",":","[","]","{","}","!","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","x","y","z") newchars = tstr For i = 0 to ubound(badchars) newchars = replace(newchars, badchars(i),"") Next filterBadchars1 = newchars End Function Function filterBadchars2(tstr) Dim badchars Dim newchars badchars = array(",",";","xp_","XP_","(",")","<",">","/","\","#","$","%","^","&","*","+","=","|","?","~","`",":","[","]","{","}","!") newchars = tstr For i = 0 to ubound(badchars) newchars = replace(newchars, badchars(i),"") Next filterBadchars2 = newchars End Function Function filterBadchars(tstr) Dim badchars Dim newchars badchars = array("select","SELECT","create","CREATE","drop","DROP",";","--","insert","INSERT","delete","DELETE","script","SCRIPT","xp_","XP_","(",")","<",">","/","\","@","#","$","%","^","&","*","-","_","+","=","|","~","`",":","[","]","{","}","!") newchars = tstr For i = 0 to ubound(badchars) newchars = replace(newchars, badchars(i),"") Next filterBadchars = newchars End Function Function stripQuotes(tstr) stripQuotes = replace(tstr,"'","''") End Function %> MEdical, Health & Family Welfare Department, Govt. of Rajasthan


NATIONAL HEALTH MISSION

आदर्श प्राथमिक स्वास्थ्य केन्द्र योजना

 

आदर्श प्राथमिक स्वास्थ्य केन्द्र योजना

चिकित्सा एवं स्वास्थ्य विभाग द्वारा ग्रामीण क्षेत्र में गुणवत्ता पूर्ण, स्वास्थ्य सेवाएं उपलब्ध कराए जाने के उ६ेष्य से ‘आदर्ष प्राथमिक स्वास्थ्य केन्द्र‘ योजना प्रारम्भ की गई है। इन प्राथमिक स्वास्थ्य केन्द्रो को ‘वेल नेस‘ सेन्टर के रूप मे विकसित किया जा रहा है। योजना के प्रथम चरण मे 295 प्राथमिक स्वास्थ्य केन्द्रो को (प्रत्येक खण्ड से एक प्राथमिक स्वास्थ्य केन्द्र का चयन) आदर्ष प्राथमिक स्वास्थ्य केन्द्र के रूप मे विकसित किया गया हैं। इन चिकित्सा संस्थाओ पर निर्धारित पर्याप्त स्टाफ की उपलब्धता, औषधियों की उपलब्धता, प्राथमिक स्वास्थ्य केन्द्र पर निषुल्क जाँच योजना के तहत की जाने वाले 15 जाँचो की उपलब्धता एवं आयुष चिकित्सक को पदस्थापित कर आयुर्वेद एवं योग सुविधाएं उपलब्ध करवाई जा रही है।
15 अगस्त 2016 को प्रत्येक खंड में चयनित प्राथमिक स्वास्थ्य केन्द्र का आदर्ष प्राथमिक स्वास्थ्य केन्द्र के रूप में शुभारम्भ किया गया। इन आदर्ष प्राथमिक स्वास्थ्य केन्द्रो पर नियमित रूप से राज्य स्तर पर समीक्षा की जा रही है

   

For more information contact :-
Nodal Officer – Dr. Indra Gupta – 9414459583
Statistical Officer – Mr. Yogesh Sharma – 9828049531
Email ID: adarshphcyojna@gmail.com