Thursday, June 4, 2009
Friday, May 22, 2009
swine pig -- What you need to know about swine flu
Washington, Apr 28 (ANI): While there have been a number of outbreaks of the new strain of swine flu, there also have emerged a whole gamut of misinformation. Now, scientists have elaborated exactly what one needs to know about this new epidemic.
Infectious disease expert Charles Ericsson, M.D., professor of internal medicine and director of Travel Medicine at The University of Texas Medical School at Houston, has answered some questions regarding swine flu, which are as follows:
1. How do symptoms of swine flu differ from other types of flu?
None, really, although this flu might include gastrointestinal symptoms (diarrhea and vomiting), as well as the usual respiratory symptoms. The basic symptoms for swine flu are similar to the seasonal flu we are vaccinated for each year, which may include, fever, sore throat, cough, stuffy nose, chills, headache and body aches, fatigue.
2. Is there medication for this?
Yes, Tamiflu or Relenza have shown to be effective against these recently reported strains of swine flu. Altogether, there are four anti-viral drugs that we commonly use to treat various strains of flu.
3. Is there a vaccine?
Not yet, but the CDC has this current strain of virus and will consider whether to add it to next year's flu vaccine as time goes on.
4. Can I catch it from pigs?
No. This strain is one that is communicable through human-to-human contact. It is a mutated form of a swine virus.
5. Can I catch it from eating pork?
Absolutely not! Swine flu is not transmitted by food. It is not a so-called foodborne illness. Bacon, ham and other pork products are safe to eat, assuming they are prepared properly. An internal temperature of 160 degrees for cooked meat will kill any bacteria or virus.
Swine flu is transmitted by airborne droplets from an infected person's sneeze or cough; or from germs on hands, or germ-laden surfaces. Eating pork will not give you swine flu any more than eating chicken will give you bird flu.
6. How does it cross from a pig to a human?
The swine virus mutates so that it can infect humans and be spread by humans.
7. Can it kill me?
Deaths have been reported from the Mexico City outbreak. So far the cases in the US have been mild and there have been no deaths as yet. But, like seasonal flu, there is the potential for serious outcomes.
8. How is it different from avian (bird) flu?
Avian flu so far has had difficulty infecting humans unless they are exposed intensely to birds, because the virus has not mutated in a way that makes it transmissible by humans to other humans. This virus has origins genetically from both pigs and birds, and the big difference from the avian flu is that this swine virus can be transmitted readily from human to human.
9. What if I'm on a plane? Should I wear a mask?
Not necessary. The air on a plane is filtered. Transmission might occur if someone sitting close to you coughs or sneezes on you. The newer designs of aircraft airflow keep the air in a top-down flow, not forced air from front to back. However, if you do have a respiratory illness, it might be best not to travel.
10. Other than hand washing and covering my mouth if I sneeze or cough, what can I do to take care of myself and others?
If you are ill, stay home. Control your sneezes and coughs. If you cough into your hand, remember the virus could be live on your hand at least for a few minutes, so wash your hands before touching anyone else. If you get symptoms suggesting the flu, call your doctor, who can call in a prescription for medication to treat the flu. Resist going to the doctor's office or a hospital ER for influenza symptoms unless you are seriously ill. You do not want to spread the disease to others.
"There is a huge difference between preparedness and paranoia. Although we're dealing with a new strain of flu, a set of universally applicable preventive measures exist that can be employed right away by everyone to help stop the spread of this disease," said Dr. Robert Emery, occupational health expert at the UT School of Public Health at Houston. (ANI)
See This Also Lotus Notes
Infectious disease expert Charles Ericsson, M.D., professor of internal medicine and director of Travel Medicine at The University of Texas Medical School at Houston, has answered some questions regarding swine flu, which are as follows:
1. How do symptoms of swine flu differ from other types of flu?
None, really, although this flu might include gastrointestinal symptoms (diarrhea and vomiting), as well as the usual respiratory symptoms. The basic symptoms for swine flu are similar to the seasonal flu we are vaccinated for each year, which may include, fever, sore throat, cough, stuffy nose, chills, headache and body aches, fatigue.
2. Is there medication for this?
Yes, Tamiflu or Relenza have shown to be effective against these recently reported strains of swine flu. Altogether, there are four anti-viral drugs that we commonly use to treat various strains of flu.
3. Is there a vaccine?
Not yet, but the CDC has this current strain of virus and will consider whether to add it to next year's flu vaccine as time goes on.
4. Can I catch it from pigs?
No. This strain is one that is communicable through human-to-human contact. It is a mutated form of a swine virus.
5. Can I catch it from eating pork?
Absolutely not! Swine flu is not transmitted by food. It is not a so-called foodborne illness. Bacon, ham and other pork products are safe to eat, assuming they are prepared properly. An internal temperature of 160 degrees for cooked meat will kill any bacteria or virus.
Swine flu is transmitted by airborne droplets from an infected person's sneeze or cough; or from germs on hands, or germ-laden surfaces. Eating pork will not give you swine flu any more than eating chicken will give you bird flu.
6. How does it cross from a pig to a human?
The swine virus mutates so that it can infect humans and be spread by humans.
7. Can it kill me?
Deaths have been reported from the Mexico City outbreak. So far the cases in the US have been mild and there have been no deaths as yet. But, like seasonal flu, there is the potential for serious outcomes.
8. How is it different from avian (bird) flu?
Avian flu so far has had difficulty infecting humans unless they are exposed intensely to birds, because the virus has not mutated in a way that makes it transmissible by humans to other humans. This virus has origins genetically from both pigs and birds, and the big difference from the avian flu is that this swine virus can be transmitted readily from human to human.
9. What if I'm on a plane? Should I wear a mask?
Not necessary. The air on a plane is filtered. Transmission might occur if someone sitting close to you coughs or sneezes on you. The newer designs of aircraft airflow keep the air in a top-down flow, not forced air from front to back. However, if you do have a respiratory illness, it might be best not to travel.
10. Other than hand washing and covering my mouth if I sneeze or cough, what can I do to take care of myself and others?
If you are ill, stay home. Control your sneezes and coughs. If you cough into your hand, remember the virus could be live on your hand at least for a few minutes, so wash your hands before touching anyone else. If you get symptoms suggesting the flu, call your doctor, who can call in a prescription for medication to treat the flu. Resist going to the doctor's office or a hospital ER for influenza symptoms unless you are seriously ill. You do not want to spread the disease to others.
"There is a huge difference between preparedness and paranoia. Although we're dealing with a new strain of flu, a set of universally applicable preventive measures exist that can be employed right away by everyone to help stop the spread of this disease," said Dr. Robert Emery, occupational health expert at the UT School of Public Health at Houston. (ANI)
See This Also Lotus Notes
Lotus Notes File - To import Or update the data from Excel file to Lotus Notes View
Sub Initialize
On Error Goto skips
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
FileName:
Dim xlFilename As Variant
xlFilename = ws.OpenFileDialog( False, "Select the import file",, "c:\")
'''xlFilename = Inputbox$("Please enter the complete Drive\Path\FileName.XLS for the file you wish to Import.", "Enter Import File Information", "C:\Documents and Settings\Administrator\Desktop\ProjectRecordforUpdation112.xls") '// This is the name of the Excel file that will be imported
If Isempty(xlFilename) Then
Print "No file selected, exiting."
Exit Sub
End If
Dim view As NotesView
Dim doc As NotesDocument
Dim Temp As String
Dim CorrectName As String
Dim CorrectNumber As String
Dim CorrectDate As String
Dim Converted As String
Dim CorrectProjectName As String
temp1=Evaluate("@V3username")
temp2=Evaluate("@Now([ServerTime])")
Set db = session.CurrentDatabase
Set logdoc= db.createdocument
logdoc.form="BulkUpdateLog"
Call logdoc.computewithform(True, False)
Call logdoc.save(True, False)
Set logitem= New notesrichtextitem(logdoc, "RTlog")
Dim row As Integer
Dim written As Integer
Dim TempNumber As String
Dim number As Integer
number = 0
numberofrow:
TempNumber = Inputbox$("Please enter the number of rows in spreadsheet", "Enter the Number of Rows in the Spreadsheet") '//Start import of Excel file
If TempNumber = "0" Then
Msgbox "number of rows in spreadsheet should be more than Zero"
Goto numberofrow
End If
If TempNumber = "" Then
Exit Sub
End If
number = Cint(TempNumber)
Dim Excel As Variant
Dim test As String
''''test = Cstr(xlFilename)
Dim xlWorkbook As Variant
Dim xlSheet As Variant
Dim xlCells As Variant
Print "Connecting to Excel..."
Set Excel = CreateObject("excel.application")
Excel.Visible = False '// Don't display the Excel window
''''Print "Opening " & test & "..."
Excel.Workbooks.Open xlFilename '// Open the Excel file
Set xlWorkbook = Excel.ActiveWorkbook
Set xlSheet = xlWorkbook.ActiveSheet
Set xlCells = xlSheet.Cells
row = 1
written = 0
Print "Starting import from Excel file..."
Dim strName As String
Dim x As Integer
x = Messagebox ("Do you want to update the records in database", MB_YESNO+4, "Document" )
If (x = 6) Then
Dim y As Integer
y = Messagebox ("Agent is now ready to update , Do you really want to update the records in database", MB_YESNO+4, "Document" )
If (y = 6) Then
Call Addlog("Starting Agent...")
totalcount = 0
Add:
row = row + 1
written=written+1
Print ("Importing row: "& Cstr(row) & " of: " &Cstr(number))'//prints the number of the record being imported
If Trim(xlCells(1, 1).Value) <> "Project ID" Then
Addlog("Error during agent run......... ")
Addlog("Error Description: "+ "First Column in Spreadsheet should be the Project ID ")
Msgbox " An Error has been generated by the agent and it has been updated in log file , Please check log file to rectify the error "
Goto Last
Elseif Trim(xlCells(row, 1).Value) = "" Then
Addlog("Error during agent run......... ")
Addlog("Error Description: "+ "Agent found a blank entry in Project ID Column and Project ID column should not have blank entry")
Msgbox " An Error has been generated by the agent and it has been updated in log file , Please check log file to rectify the error "
Goto Last
End If
Set view = db.GetView("Main View")
Set doc = view.GetDocumentByKey(Trim(xlCells(row, 1).Value))
If doc Is Nothing Then
Call Addlog("Project With Project ID " + Trim(xlCells(row, 1).Value) + "not found in database")
Msgbox " An Error has been generated by the agent and it has been updated in log file , Please check log file to rectify the error "
Exit Sub
End If
totalcount = totalcount + 1
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Updating Records '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Trim(xlCells(1, 2).Value) <> "Project Name" Then
Addlog("Error during agent run: Project ID- " + Trim(xlCells(row, 1).Value) )
Addlog("Error Description: "+ " Column name in spreadsheet not matching with the specified field Or Column not in proper sequence " + " Column:- 2 ")
Msgbox " An Error has been generated by the agent and it has been updated in log file , Please check log file to rectify the error "
totalcount = totalcount-1
Goto Last
End If
If Trim(xlCells(row, 2).Value) <> "" And Trim(xlCells(row, 2).Value) <> "Blank" Then
CorrectProjectName = Checkforcommaandsemicoln(Trim(xlCells(row, 2).Value))
If CorrectProjectName = "1" Then
Addlog("Error during agent run: Project ID- " + Trim(xlCells(row, 1).Value) )
Addlog("Error Description: "+ " Project Name should not include Comma and Semi-colon")
Msgbox " An Error has been generated by the agent and it has been updated in log file , Please check log file to rectify the error "
totalcount = totalcount-1
Goto Last
End If
doc.fldProjectName = Trim(xlCells(row, 2).Value)
If Temp = "" Then
Temp = "Project Name"
Else
Temp = Temp + "," + "Project Name"
End If
Elseif Trim(xlCells(row, 2).Value) = "Blank" Then
doc.fldProjectName = ""
If Temp = "" Then
Temp = "Project Name"
Else
Temp = Temp + "," + "Project Name"
End If
End If
If Trim(xlCells(1, 3).Value) <> "Project Type" Then
Addlog("Error during agent run: Project ID- " + Trim(xlCells(row, 1).Value) )
Addlog("Error Description: "+ " Column name in spreadsheet not matching with the specified field Or Column not in proper sequence " + " Column:- 3 ")
Msgbox " An Error has been generated by the agent and it has been updated in log file , Please check log file to rectify the error "
totalcount = totalcount-1
Goto Last
End If
If Trim(xlCells(row, 3).Value) <> "" And Trim(xlCells(row, 3).Value) <> "Blank" Then
CorrectProjectType = CheckProjectType(Trim(xlCells(row, 3).Value))
If CorrectProjectType = "1" Then
Addlog("Error during agent run: Project ID- " + Trim(xlCells(row, 1).Value) )
Addlog("Error Description: "+ " Project Type not matching with the profile values in database")
Msgbox " An Error has been generated by the agent and it has been updated in log file , Please check log file to rectify the error "
totalcount = totalcount-1
Goto Last
End If
doc.ProjectType = Trim(xlCells(row, 3).Value)
If Temp = "" Then
Temp = "Project Type"
Else
Temp = Temp + "," + "Project Type"
End If
Elseif Trim(xlCells(row, 3).Value) = "Blank" Then
doc.ProjectType = ""
If Temp = "" Then
Temp = "Project Type"
Else
Temp = Temp + "," + "Project Type"
End If
End If
Call doc.Save( True, False )
Set doc = Nothing
Temp = ""
If written < number Then Goto Add
Print "Disconnecting from Excel.."
excel.quit
Call Addlog("Agent run successfully ")
Msgbox (" Agent run successfully ")
Goto Last
Else
excel.quit
Exit Sub
End If
Else
excel.quit
Exit Sub
End If
skips:
Addlog("Unexpected Error during agent run: Project ID " + Trim(xlCells(row, 1).Value) + " Error No "+Cstr(Err)+" On Line "+Cstr(Erl))
Addlog("Error Description: "+Error$())
Msgbox " An Error has been generated by the agent and it has been updated in log file , Please check log file to rectify the error "
'''excel.quit
totalcount = totalcount-1
Goto Last
Last:
excel.quit
If totalcount=0 Then
Call Addlog("Total No: of documents Updated= 0")
Else
Call Addlog("Total No: of documents Updated= " + Cstr(totalcount) )
End If
End Sub
Check It Swine Flu
On Error Goto skips
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
FileName:
Dim xlFilename As Variant
xlFilename = ws.OpenFileDialog( False, "Select the import file",, "c:\")
'''xlFilename = Inputbox$("Please enter the complete Drive\Path\FileName.XLS for the file you wish to Import.", "Enter Import File Information", "C:\Documents and Settings\Administrator\Desktop\ProjectRecordforUpdation112.xls") '// This is the name of the Excel file that will be imported
If Isempty(xlFilename) Then
Print "No file selected, exiting."
Exit Sub
End If
Dim view As NotesView
Dim doc As NotesDocument
Dim Temp As String
Dim CorrectName As String
Dim CorrectNumber As String
Dim CorrectDate As String
Dim Converted As String
Dim CorrectProjectName As String
temp1=Evaluate("@V3username")
temp2=Evaluate("@Now([ServerTime])")
Set db = session.CurrentDatabase
Set logdoc= db.createdocument
logdoc.form="BulkUpdateLog"
Call logdoc.computewithform(True, False)
Call logdoc.save(True, False)
Set logitem= New notesrichtextitem(logdoc, "RTlog")
Dim row As Integer
Dim written As Integer
Dim TempNumber As String
Dim number As Integer
number = 0
numberofrow:
TempNumber = Inputbox$("Please enter the number of rows in spreadsheet", "Enter the Number of Rows in the Spreadsheet") '//Start import of Excel file
If TempNumber = "0" Then
Msgbox "number of rows in spreadsheet should be more than Zero"
Goto numberofrow
End If
If TempNumber = "" Then
Exit Sub
End If
number = Cint(TempNumber)
Dim Excel As Variant
Dim test As String
''''test = Cstr(xlFilename)
Dim xlWorkbook As Variant
Dim xlSheet As Variant
Dim xlCells As Variant
Print "Connecting to Excel..."
Set Excel = CreateObject("excel.application")
Excel.Visible = False '// Don't display the Excel window
''''Print "Opening " & test & "..."
Excel.Workbooks.Open xlFilename '// Open the Excel file
Set xlWorkbook = Excel.ActiveWorkbook
Set xlSheet = xlWorkbook.ActiveSheet
Set xlCells = xlSheet.Cells
row = 1
written = 0
Print "Starting import from Excel file..."
Dim strName As String
Dim x As Integer
x = Messagebox ("Do you want to update the records in database", MB_YESNO+4, "Document" )
If (x = 6) Then
Dim y As Integer
y = Messagebox ("Agent is now ready to update , Do you really want to update the records in database", MB_YESNO+4, "Document" )
If (y = 6) Then
Call Addlog("Starting Agent...")
totalcount = 0
Add:
row = row + 1
written=written+1
Print ("Importing row: "& Cstr(row) & " of: " &Cstr(number))'//prints the number of the record being imported
If Trim(xlCells(1, 1).Value) <> "Project ID" Then
Addlog("Error during agent run......... ")
Addlog("Error Description: "+ "First Column in Spreadsheet should be the Project ID ")
Msgbox " An Error has been generated by the agent and it has been updated in log file , Please check log file to rectify the error "
Goto Last
Elseif Trim(xlCells(row, 1).Value) = "" Then
Addlog("Error during agent run......... ")
Addlog("Error Description: "+ "Agent found a blank entry in Project ID Column and Project ID column should not have blank entry")
Msgbox " An Error has been generated by the agent and it has been updated in log file , Please check log file to rectify the error "
Goto Last
End If
Set view = db.GetView("Main View")
Set doc = view.GetDocumentByKey(Trim(xlCells(row, 1).Value))
If doc Is Nothing Then
Call Addlog("Project With Project ID " + Trim(xlCells(row, 1).Value) + "not found in database")
Msgbox " An Error has been generated by the agent and it has been updated in log file , Please check log file to rectify the error "
Exit Sub
End If
totalcount = totalcount + 1
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Updating Records '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Trim(xlCells(1, 2).Value) <> "Project Name" Then
Addlog("Error during agent run: Project ID- " + Trim(xlCells(row, 1).Value) )
Addlog("Error Description: "+ " Column name in spreadsheet not matching with the specified field Or Column not in proper sequence " + " Column:- 2 ")
Msgbox " An Error has been generated by the agent and it has been updated in log file , Please check log file to rectify the error "
totalcount = totalcount-1
Goto Last
End If
If Trim(xlCells(row, 2).Value) <> "" And Trim(xlCells(row, 2).Value) <> "Blank" Then
CorrectProjectName = Checkforcommaandsemicoln(Trim(xlCells(row, 2).Value))
If CorrectProjectName = "1" Then
Addlog("Error during agent run: Project ID- " + Trim(xlCells(row, 1).Value) )
Addlog("Error Description: "+ " Project Name should not include Comma and Semi-colon")
Msgbox " An Error has been generated by the agent and it has been updated in log file , Please check log file to rectify the error "
totalcount = totalcount-1
Goto Last
End If
doc.fldProjectName = Trim(xlCells(row, 2).Value)
If Temp = "" Then
Temp = "Project Name"
Else
Temp = Temp + "," + "Project Name"
End If
Elseif Trim(xlCells(row, 2).Value) = "Blank" Then
doc.fldProjectName = ""
If Temp = "" Then
Temp = "Project Name"
Else
Temp = Temp + "," + "Project Name"
End If
End If
If Trim(xlCells(1, 3).Value) <> "Project Type" Then
Addlog("Error during agent run: Project ID- " + Trim(xlCells(row, 1).Value) )
Addlog("Error Description: "+ " Column name in spreadsheet not matching with the specified field Or Column not in proper sequence " + " Column:- 3 ")
Msgbox " An Error has been generated by the agent and it has been updated in log file , Please check log file to rectify the error "
totalcount = totalcount-1
Goto Last
End If
If Trim(xlCells(row, 3).Value) <> "" And Trim(xlCells(row, 3).Value) <> "Blank" Then
CorrectProjectType = CheckProjectType(Trim(xlCells(row, 3).Value))
If CorrectProjectType = "1" Then
Addlog("Error during agent run: Project ID- " + Trim(xlCells(row, 1).Value) )
Addlog("Error Description: "+ " Project Type not matching with the profile values in database")
Msgbox " An Error has been generated by the agent and it has been updated in log file , Please check log file to rectify the error "
totalcount = totalcount-1
Goto Last
End If
doc.ProjectType = Trim(xlCells(row, 3).Value)
If Temp = "" Then
Temp = "Project Type"
Else
Temp = Temp + "," + "Project Type"
End If
Elseif Trim(xlCells(row, 3).Value) = "Blank" Then
doc.ProjectType = ""
If Temp = "" Then
Temp = "Project Type"
Else
Temp = Temp + "," + "Project Type"
End If
End If
Call doc.Save( True, False )
Set doc = Nothing
Temp = ""
If written < number Then Goto Add
Print "Disconnecting from Excel.."
excel.quit
Call Addlog("Agent run successfully ")
Msgbox (" Agent run successfully ")
Goto Last
Else
excel.quit
Exit Sub
End If
Else
excel.quit
Exit Sub
End If
skips:
Addlog("Unexpected Error during agent run: Project ID " + Trim(xlCells(row, 1).Value) + " Error No "+Cstr(Err)+" On Line "+Cstr(Erl))
Addlog("Error Description: "+Error$())
Msgbox " An Error has been generated by the agent and it has been updated in log file , Please check log file to rectify the error "
'''excel.quit
totalcount = totalcount-1
Goto Last
Last:
excel.quit
If totalcount=0 Then
Call Addlog("Total No: of documents Updated= 0")
Else
Call Addlog("Total No: of documents Updated= " + Cstr(totalcount) )
End If
End Sub
Check It Swine Flu
Subscribe to:
Posts (Atom)