<%@ 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

 

मिशन इन्द्रधनुष

  • भारत सरकार ने नियमित टीकाकरण से वंचित लाभार्थियों को पूर्ण टीकाकृत करने हेतु विषेष अभियान (मिशन इन्द्रधनुष) प्रांरभ किया।
  • इस कार्यक्रम मे रिक्त उप स्वास्थ्य केन्द्र, ऐसे स्थल जहाँ गत तीन माह से अधिक समय से टीकाकरण सत्र आयोजित नहीं हुए हों, पल्स पोलियो मे चिन्हित हाई रिस्क क्षेत्र, दूर दराज की ढाणियाँ व दुर्गम क्षेत्र जहाँ नियमित टीकाकरण सत्र किसी भी कारण से आयोजित नही हो पा रहे हों को इस अभियान के लिये लक्षित किया गया।
  • इस अभियान के दो चरण आयोजित किये जा चुके है।
    • प्रथम चरण माह अप्रैल, 2015 से जुलाई, 2015 तक
    • द्धितीय चरण माह अक्टूबर, 2015 से जनवरी, 2016 तक
  • प्रथम चरण मे भारत सरकार ने देष के 201 जिलों को चिन्हित किया जिसमें राजस्थान के 9 जिले (High Focus) सम्मिलित थे। राज्य सरकार ने टीकाकरण के महत्व को देखते हुये इस अभियान को राज्य के सभी जिलों मे चलाये जाने का निर्णय लिया। परन्तु भारत सरकार से चिन्हित 9 जिलों पर विषेष निगरानी रखी गई।
  • द्धितीय चरण मे भारत सरकार ने देष के 352 जिलों को चिन्हित किया जिसमें राजस्थान के 15 जिले (Medium Focus) सम्मिलित किये गये। राज्य सरकार ने प्रथम चरण में 50% से कम उपलब्धि वाले 6 जिलो मे इस अभियान को पुनः आयोजित कराया।
  • भारत सरकार द्धारा पूर्ण टीकाकृत बच्चों के लक्ष्य AHS 2012.13 के आधार पर निर्धारित किये गये थे।
  • गत दोनो चरणों मे अर्जित की गई उपलब्धि निम्न हैः-
    • प्रथम चरण के चिन्हित 9 जिलो मे निर्धारित 1,72,432 के लक्ष्य के विरूद्ध दोनों चरणों मे 1,42,475 (82.6%) बच्चों को 94672 सत्र आयोजित कराकर पूर्ण टीकाकृत किया गया।
  • द्धितीय चरण के चिन्हित 15 जिलों मे निर्धारित 1,56,978 के लक्ष्य के विरूद्ध दोनो चरणों मे इन जिलों मे 1,70,160 (108%) बच्चों को 99814 सत्र आयोजित कराकर पूर्ण टीकाकृत किया गया।
  • इस प्रकार दोनों चरणों के चिन्हित 24 जिलों मे 3,29,410 के लक्ष्यों के विरूद्ध 3,12,635 (94.9%) बच्चों को 1,94,486 सत्र आयोजित कराकर पूर्ण टीकाकृत किया गया।
  • साथ ही इन 24 जिलों मे इस अभियान के दौरान 2,40,588 गर्भवती महिलाओं को टेटेनस टीके से लाभान्वित किया गया।
  • मिशन इन्द्रधनुष कार्यक्रम की समीक्षा माननीय चिकित्सा एवं स्वास्थ्य मंत्री, प्रमुख शासन सचिव, चिकित्सा एवं स्वास्थ्य तथा मिशन निदेषक-एनएचएम द्धारा लगातार की गई तथा समय-समय पर आवष्यक दिषा निर्देष प्रदान किये गये। इसी प्रकार जिला स्तर पर जिला कलक्टर महोदय की अध्यक्षता मे इस कार्यक्रम की समीक्षा की गई।
  • भारत सरकार से इस अभियान के बारे मे प्राप्त फीडबेक मे राजस्थान राज्य से दो बिन्दु संबंधित है। जिसके संबंध में राज्य में की जा रही कार्यवाही पर निम्नानुसार निवेदन है।
    • मिशन इन्द्रधनुष अभियान के पूर्ण हो जाने पर राज्य के सभी जिलों मे टीकाकरण से वंचित रहे 0-2 वर्ष के बच्चों एवं गर्भवती माताओं के क्षेत्रों की पहचान की गई है तथा इन क्षेत्रों मे हेड काउन्ट कराया जाकर पूर्ण टीकाकृत कराये जाने की कार्यवाही करायी जा रही है तथा मिशन इन्द्रधनुष अभियान मे मॉनिटरिंग के दौरान टीकाकरण से वंचित पाये गये बच्चों को टीकाकृत कराने के लिये पुनः निर्देषित किया गया।
    • छोटी-छोटी दूर दराज की ढ़ाणियों एवं घुमक्कड़ जाति के बच्चों को टीकाकृत कराने के लिये विभाग द्वारा लगातार प्रचार प्रसार हेतु कार्य किया जा रहा है तथा इस संबंध में आई.ई.सी. ब्यूरो द्वारा उनके स्तर पर प्रयास किये जा रहे है साथ ही आषा, आंगनबाड़ी कार्यकर्ता एवं ए.एन.एम. द्वारा इस टीकाकरण कार्यक्रम के लिये जन जागृति पैदा करने के प्रयास किय जा रहे है।

    Photographs

For more information contact :-
Dr. Satish Kumar Garg, Project Director, Immunization, 9460963372