Skip to content

Instantly share code, notes, and snippets.

@adam704a

adam704a/jrf_treatment_strategy.vb

Last active November 9, 2018 23:52
Show Gist options
  • Save adam704a/17687b1f7278b470d850e703f39b7332 to your computer and use it in GitHub Desktop.
Save adam704a/17687b1f7278b470d850e703f39b7332 to your computer and use it in GitHub Desktop.
Download ZIP
Get Recommended Treatment Strategy - WHO
Raw
jrf_treatment_strategy.vb
Sub Strategy()
Dim counter As Integer
Dim fin As Integer
Worksheets("COUNTRY_INFO").Unprotect
fin = 9 + Worksheets("INTRO").Cells(46, 5)
For counter = 9 To fin
'--- If district endemic for LF ---
If Worksheets("COUNTRY_INFO").Cells(counter, 8) = 1 Then
'--- then we check status of Oncho ---
If Worksheets("COUNTRY_INFO").Cells(counter, 9) = 1 Then
'--- then we check status of Oncho in the COUNTRY ---
If Worksheets("COUNTRY_INFO").Cells(counter, 13) <> "Not required" Then
Worksheets("COUNTRY_INFO").Cells(counter, 22).Value = "MDA 1"
Else
Worksheets("COUNTRY_INFO").Cells(counter, 22).Value = "ONCHO?"
End If
Else
'--- then we check status of Oncho in the COUNTRY ---
If Worksheets("COUNTRY_INFO").Cells(counter, 13) <> "Not required" Then
Worksheets("COUNTRY_INFO").Cells(counter, 22).Value = "MDA 1"
Else
'--- PLACE TO CHECK ---
'--- then we check status of Oncho in the COUNTRY ---
If Worksheets("INTRO").Cells(40, 5) <> "Non-endemic" Then
Worksheets("COUNTRY_INFO").Cells(counter, 22).Value = "MDA 1"
Else
Worksheets("COUNTRY_INFO").Cells(counter, 22).Value = "MDA 2"
End If
'--- PLACE TO CHECK ---
End If
End If
'--- If district non endemic for LF ---
Else
If Worksheets("COUNTRY_INFO").Cells(counter, 9) = 1 Then
'--- then we check status of Oncho in the COUNTRY ---
If Worksheets("COUNTRY_INFO").Cells(counter, 13) <> "Not required" Then
Worksheets("COUNTRY_INFO").Cells(counter, 22).Value = "MDA 3"
Else
Worksheets("COUNTRY_INFO").Cells(counter, 22).Value = "ONCHO?"
End If
Else
Worksheets("COUNTRY_INFO").Cells(counter, 22).Value = " "
End If
End If
Next counter
For counter = 9 To fin
'--- If district endemic for LF ---
If Worksheets("COUNTRY_INFO").Cells(counter, 8) = 1 Then
'--- If district endemic for Oncho ---
If Worksheets("COUNTRY_INFO").Cells(counter, 9) = 1 Then
'--- then we check status of SCH ---
'---[OLD] If Worksheets("COUNTRY_INFO").Cells(counter, 11) = 2 Or Worksheets("COUNTRY_INFO").Cells(counter, 11) = 3 Then ---
If Worksheets("COUNTRY_INFO").Cells(counter, 11) = 1 Or Worksheets("COUNTRY_INFO").Cells(counter, 11) = 2 Or Worksheets("COUNTRY_INFO").Cells(counter, 11) = 3 Then
'--- then we check status of STH ---
If Worksheets("COUNTRY_INFO").Cells(counter, 10) = 3 Then
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = "T1"
Else
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = "T2"
End If
Else
If Worksheets("COUNTRY_INFO").Cells(counter, 10) = 3 Then
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = "T3"
Else
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = " "
End If
End If
'--- If district non-endemic for Oncho ---
Else
'--- then we check status of SCH ---
'---[OLD] If Worksheets("COUNTRY_INFO").Cells(counter, 11) = 2 Or Worksheets("COUNTRY_INFO").Cells(counter, 11) = 3 Then ---
If Worksheets("COUNTRY_INFO").Cells(counter, 11) = 1 Or Worksheets("COUNTRY_INFO").Cells(counter, 11) = 2 Or Worksheets("COUNTRY_INFO").Cells(counter, 11) = 3 Then
'--- then we check status of STH ---
If Worksheets("COUNTRY_INFO").Cells(counter, 10) = 3 Then
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = "T1"
Else
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = "T2"
End If
Else
If Worksheets("COUNTRY_INFO").Cells(counter, 10) = 3 Then
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = "T3"
Else
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = " "
End If
End If
End If
'--- If district non-endemic for LF ---
Else
'--- If district endemic for Oncho ---
If Worksheets("COUNTRY_INFO").Cells(counter, 9) = 1 Then
'--- then we check status of SCH ---
'---[OLD] If Worksheets("COUNTRY_INFO").Cells(counter, 11) = 2 Or Worksheets("COUNTRY_INFO").Cells(counter, 11) = 3 Then ---
If Worksheets("COUNTRY_INFO").Cells(counter, 11) = 1 Or Worksheets("COUNTRY_INFO").Cells(counter, 11) = 2 Or Worksheets("COUNTRY_INFO").Cells(counter, 11) = 3 Then
'--- then we check status of STH ---
If Worksheets("COUNTRY_INFO").Cells(counter, 10) = 3 Then
'--- then we check status of Oncho in the COUNTRY ---
If Worksheets("COUNTRY_INFO").Cells(counter, 13) <> "Not required" Then
Worksheets("COUNTRY_INFO").Cells(counter, 22).Value = "MDA 1"
Else
Worksheets("COUNTRY_INFO").Cells(counter, 22).Value = "Oncho?"
End If
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = "T1"
Else
If Worksheets("COUNTRY_INFO").Cells(counter, 10) = 2 Then
'--- then we check status of Oncho in the COUNTRY ---
If Worksheets("COUNTRY_INFO").Cells(counter, 13) <> "Not required" Then
Worksheets("COUNTRY_INFO").Cells(counter, 22).Value = "MDA 1"
Else
Worksheets("COUNTRY_INFO").Cells(counter, 22).Value = "ONCHO?"
End If
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = "T2"
Else
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = "T2"
End If
End If
Else
'--- CORRECTED in case of non-LF but with presence of ONCHO and STH ---
If Worksheets("COUNTRY_INFO").Cells(counter, 10) = 3 Then
Worksheets("COUNTRY_INFO").Cells(counter, 22).Value = "MDA 1"
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = "T3"
Else
If Worksheets("COUNTRY_INFO").Cells(counter, 10) = 2 Then
Worksheets("COUNTRY_INFO").Cells(counter, 22).Value = "MDA 1"
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = " "
Else
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = " "
End If
End If
End If
'--- If district non-endemic for Oncho ---
Else
'--- then we check status of SCH ---
'---[OLD] If Worksheets("COUNTRY_INFO").Cells(counter, 11) = 2 Or Worksheets("COUNTRY_INFO").Cells(counter, 11) = 3 Then ---
If Worksheets("COUNTRY_INFO").Cells(counter, 11) = 1 Or Worksheets("COUNTRY_INFO").Cells(counter, 11) = 2 Or Worksheets("COUNTRY_INFO").Cells(counter, 11) = 3 Then
'--- then we check status of STH ---
If Worksheets("COUNTRY_INFO").Cells(counter, 10) = 3 Then
Worksheets("COUNTRY_INFO").Cells(counter, 22).Value = "T1"
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = "T3"
Else
If Worksheets("COUNTRY_INFO").Cells(counter, 10) = 2 Then
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = "T1"
Else
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = "T2"
End If
End If
Else
If Worksheets("COUNTRY_INFO").Cells(counter, 10) = 3 Then
Worksheets("COUNTRY_INFO").Cells(counter, 22).Value = "T3"
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = "T3"
Else
If Worksheets("COUNTRY_INFO").Cells(counter, 10) = 2 Then
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = "T3"
Else
Worksheets("COUNTRY_INFO").Cells(counter, 23).Value = " "
End If
End If
End If
End If
End If
Next counter
Worksheets("COUNTRY_INFO").Protect
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment