Turn on more accessible mode
Skip to main content
Turn off more accessible mode
Sign In
|
OHS
This Site
This List
Home
Our Products
Frontline Apps
About Us
Contact Us
Our Rates
>
Resources
>
OHS
>
Issues and Progress
>
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?
>
Edit Item
Issues and Progress
: 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?
Attach File
*
indicates a required field
Issue Title
*
Further Information
<div><strong>There is a lot of processing happening on this answer, are we sure about this?</strong></div> <div><strong>here is what is happening at the moment when you click next to this question, if you can read it. See Green text for explanations</strong></div> <div>strCheckString = CheckQuestion3_1_3<br> If frmMain.Controls(ctrl(i).Name & "Yes").Value = True Then<br> If Not AnswerMultiTrueFalse(strCheckString, False) Then <font color="#339966"><strong>'if no answers are always, bailout<br></strong></font> MsgBox "Control Question was answered Affirmatively, no sub questions were answered Affirmatively. Please correct main question or sub questions"<br> blnMandatoryBailout = True<br> RunTheSub = True<br> Exit Function<br> End If<br> End If<br>' <font color="#339966"><strong> 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.<br>' If the answer is NEVER to either criteria then the individual requires full support with on bed tasks. Go to Section 3.2.<br></strong></font>' Tony says if sometimes in any of 3 sections, then ask 3.1.4<br> <br> strCheckString = CheckQuestion3_1_1<br> strCheckString2 = CheckQuestion3_1_2<br> strCheckString3 = CheckQuestion3_1_3<br> 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<br> startQuestion3_1_4<br> RunTheSub = True<br> Exit Function<br> Else<br> strSupportLevelTemp = "nosupport"<br> KillQuestion3_1_4_To_3_1_5<br> <font color="#339966"> <strong>'if needs do not vary, work out answer to 3.1.6, log the answers then move on to 3.2<br> 'add answers to 3.1.6 </strong></font>bmkOnBed_3_1_6_430|bmkOnBed_3_1_6_440|bmkOnBed_3_1_6_450<br> If AnswerMultiAlways(strCheckString2, True) Then 'co assist<br> If AnswerMultiNever(strCheckString3, True) Then 'won't behave, full assist<br> strSupportLevelTemp = "fullsupport"<br> Else<br> strSupportLevelTemp = "coassist"<br> End If<br> Else<br> strSupportLevelTemp = "fullsupport"<br> End If<br> <br> If strSupportLevelTemp = "fullsupport" Then<br> bmkCol = getColFromBmk("bmkOnBed_3_1_6_450") '<br> LocalRef.Cells(intActiveLogRow, bmkCol) = True<br> End If<br> If strSupportLevelTemp = "coassist" Then<br> bmkCol = getColFromBmk("bmkOnBed_3_1_6_440") '<br> LocalRef.Cells(intActiveLogRow, bmkCol) = True<br> End If<br> If strSupportLevelTemp = "nosupport" Then<br> bmkCol = getColFromBmk("bmkOnBed_3_1_6_430") '<br> LocalRef.Cells(intActiveLogRow, bmkCol) = True<br> End If<br> startQuestion3_1_6<br> RunTheSub = True<br> Exit Function<br> End If</div>
Ongoing Comments
Tony Ryan
(
18/02/2009 0:22
):
Tony Ryan
(
18/02/2009 0:20
):
Tony Ryan
(
18/02/2009 0:17
):
Tony Ryan
(
17/02/2009 13:25
):
For Attention
*
Matthew
Damien
Tony
Testing
Done
Specify your own value:
Issue Status
0 - Not Started
10 - Underway
20 - Completed
90 - Archived
Specify your own value:
Priority
Attachments
Version: 4.0
Created at 17/02/2009 13:25 by Tony Ryan
Last modified at 18/02/2009 0:22 by Tony Ryan
Use this page to add attachments to an item.
Name