Issues and Progress - Q3.1.3 and 4.1.4 - These questions relate...

Issue Title

Q3.1.3 and 4.1.4 - These questions relate to prompts. Remove the sub-questions and just have the main question. Could we make this main question, Always, Sometimes and Never?

Further Information

There is a lot of processing happening on this answer, are we sure about this?

here is what is happening at the moment when you click next to this question, if you can read it.

strCheckString = CheckQuestion3_1_3
            If frmMain.Controls(ctrl(i).Name & "Yes").Value = True Then
                If Not AnswerMultiTrueFalse(strCheckString, False) Then 'if no answers are always, bailout
                    MsgBox "Control Question was answered Affirmatively, no sub questions were answered Affirmatively. Please correct main question or sub questions"
                    blnMandatoryBailout = True
                    RunTheSub = True
                    Exit Function
                End If
            End If
'            If the answer is ALWAYS to BOTH criteria, then the individual is able to co-assist with on bed tasks. Go to Section 3.1.4.
'            If the answer is NEVER to either criteria then the individual requires full support with on bed tasks.   Go to Section 3.2.
'            Tony says if sometimes in any of 3 sections, then ask 3.1.4

            strCheckString = CheckQuestion3_1_1
            strCheckString2 = CheckQuestion3_1_2
            strCheckString3 = CheckQuestion3_1_3
            If AnswerMultiSometimes(strCheckString, True) Or AnswerMultiSometimes(strCheckString2, True) Or AnswerMultiSometimes(strCheckString3, False) Then    'something in 3.1.1 = Sometimes , message and bailout or something in 3.1.2 = Sometimes , message and bailout
                startQuestion3_1_4
                RunTheSub = True
                Exit Function
            Else
                strSupportLevelTemp = "nosupport"
                KillQuestion3_1_4_To_3_1_5
                'if needs do not vary, work out answer to 3.1.6, log the answers then move on to 3.2
                'add answers to 3.1.6 bmkOnBed_3_1_6_430|bmkOnBed_3_1_6_440|bmkOnBed_3_1_6_450
                If AnswerMultiAlways(strCheckString2, True) Then 'co assist
                    If AnswerMultiNever(strCheckString3, True) Then 'won't behave, full assist
                        strSupportLevelTemp = "fullsupport"
                    Else
                        strSupportLevelTemp = "coassist"
                    End If
                Else
                    strSupportLevelTemp = "fullsupport"
                End If

                If strSupportLevelTemp = "fullsupport" Then
                    bmkCol = getColFromBmk("bmkOnBed_3_1_6_450") '
                    LocalRef.Cells(intActiveLogRow, bmkCol) = True
                End If
                If strSupportLevelTemp = "coassist" Then
                    bmkCol = getColFromBmk("bmkOnBed_3_1_6_440") '
                    LocalRef.Cells(intActiveLogRow, bmkCol) = True
                End If
                If strSupportLevelTemp = "nosupport" Then
                    bmkCol = getColFromBmk("bmkOnBed_3_1_6_430") '
                    LocalRef.Cells(intActiveLogRow, bmkCol) = True
                End If
                startQuestion3_1_6
                RunTheSub = True
                Exit Function
            End If