Have an idea?

Visit Sawtooth Software Feedback to share your ideas on how we can improve our products.

Constructed list (for a loop) using perl (Error 132)

I have a predefined list of names of medications with codes associated with them. (ie, 7 is Hivid... but is member #1 on the list). If the user types 7 in the first question (q775), I need the name Hivid to be added to a constructed list in order to loop over follow-up questions. I am trying to use perl to do this. The question 775 is looped over a max of 25 times to allow the user to input all of their medications. I need to add medications to the constructed list if their code was entered for any iterations of the loop. This is my code but I'm getting an Error 132 (scripting, I believe):


Begin Unverified Perl

foreach my $i(1..25){
    if VALUE(("q775.".$i)==7){
        ADD("HIVMedList", 1);
    }
    if VALUE(("q775.".$i)==8){
        ADD("HIVMedList", 2);
    }    
    if VALUE(("q775.".$i)==22){
        ADD("HIVMedList", 3);
    }
    if VALUE(("q775.".$i)==199){
        ADD("HIVMedList", 4);
    }
    if VALUE(("q775.".$i)==207){
        ADD("HIVMedList", 5);
    }    
    if VALUE(("q775.".$i)==272){
        ADD("HIVMedList", 6);
    }    
    if VALUE(("q775.".$i)==466){
        ADD("HIVMedList", 7);
    }    
    if VALUE(("q775.".$i)==500){
        ADD("HIVMedList", 8);
    }    
    if VALUE(("q775.".$i)==532){
        ADD("HIVMedList", 9);
    }
    if VALUE(("q775.".$i)==613){
        ADD("HIVMedList", 10);
    }    
    if VALUE(("q775.".$i)==624){
        ADD("HIVMedList", 11);
    }    
    if VALUE(("q775.".$i)==629){
        ADD("HIVMedList", 12);
    }    
    if VALUE(("q775.".$i)==630){
        ADD("HIVMedList", 13);
    }    
    if VALUE(("q775.".$i)==631){
        ADD("HIVMedList", 14);
    }    
    if VALUE(("q775.".$i)==662){
        ADD("HIVMedList", 15);
    }    
    if VALUE(("q775.".$i)==707){
        ADD("HIVMedList", 16);
    }    
    if VALUE(("q775.".$i)==708){
        ADD("HIVMedList", 17);
    }    
    if VALUE(("q775.".$i)==709){
        ADD("HIVMedList", 18);
    }    
    if VALUE(("q775.".$i)==716){
        ADD("HIVMedList", 19);
    }    
    if VALUE(("q775.".$i)==727){
        ADD("HIVMedList", 20);
    }    
    if VALUE(("q775.".$i)==764){
        ADD("HIVMedList", 21);
    }    
    if VALUE(("q775.".$i)==779){
        ADD("HIVMedList", 22);
    }    
    if VALUE(("q775.".$i)==806){
        ADD("HIVMedList", 23);
    }    
    if VALUE(("q775.".$i)==807){
        ADD("HIVMedList", 24);
    }
    if VALUE(("q775.".$i)==808){
        ADD("HIVMedList", 25);
    }    
    if VALUE(("q775.".$i)==825){
        ADD("HIVMedList", 26);
    }    
    if VALUE(("q775.".$i)==848){
        ADD("HIVMedList", 27);
    }    
    if VALUE(("q775.".$i)==849){
        ADD("HIVMedList", 28);
    }    
    if VALUE(("q775.".$i)==859){
        ADD("HIVMedList", 29);
    }    
    if VALUE(("q775.".$i)==860){
        ADD("HIVMedList", 30);
    }    
    if VALUE(("q775.".$i)==917){
        ADD("HIVMedList", 31);
    }    
    if VALUE(("q775.".$i)==924){
        ADD("HIVMedList", 32);
    }    
    if VALUE(("q775.".$i)==991){
        ADD("HIVMedList", 33);
    }    
    if VALUE(("q775.".$i)==998){
        ADD("HIVMedList", 34);
    }    
    
}

End Unverified

asked Mar 10, 2015 by ab3886 (310 points)
I think I've solved this. Thank you!!!

Your answer

Please only use this to answer the original question. Otherwise please use comments.
Your name to display (optional):
Privacy: Your email address will only be used for sending these notifications.
Anti-spam verification:

To avoid this verification in future, please log in or register.
...