Open "Choosing Analyses form" for specific analysis with skill

Hi All

I just find a work around for my question.

on the beginning, I just bring out the "Choose Analyses Form" with "sevEditSelectedAnas()" API.

Then with "SISdisplayedFormList()", I create a list for all the displayed form.

by some filtering, I can find the "Choose Analyses Form" of specified test session.

Then I change the value of "asiiAnalysisRadioField" to the analyses I want.

It was not a perfect solution, but it works for me :)

Please find the procedure below.

Best Regards

Yi

procedure(SISsevEditAnas(session anaName)
let((

    analysisForm
)
    sevEditSelectedAnas(session)
    analysisForm = eval(car(setof(x SISdisplayedFormList() and(eval(x)~>sevSession == session eval(x)~>asiiAnalysisRadioField))))              
    analysisForm ->asiiAnalysisRadioField->value = anaName
);let
);proc


procedure(SISdisplayedFormList()
let((
    displayedFormList
)
    displayedFormList = nil
    foreach(form hiFormList()
        when(and(hiIsForm(eval(form)) hiIsFormDisplayed(eval(form)))
            displayedFormList = cons(form displayedFormList)
        );when
    );foreach
    displayedFormList
);let
);proc

Hi All

Some update after I notice the form bring out by "sevEditSelectedAnas(session)" would stop the executing of the script.

the filtering is not applied to only the displayed form, but to all the forms.

"sevEditSelectedAnas(session)" is called in the end.

procedure(SISsevEditAnas(session anaName)
let((
)   
    analysisForm = eval(car(setof(x hiFormList() and(eval(x)~>sevSession == session eval(x)~>asiiAnalysisRadioField))))    
    when(and(analysisForm hiIsForm(analysisForm))
        analysisForm ->asiiAnalysisRadioField->value = anaName
    );when
    sevEditSelectedAnas(session)
    analysisForm
);let
);proc

sevChooseAnalysisForm(session 'tran) 

Pass the sev session as the first argument, and analysis name as a symbol for the second.

Regards,

Andrew.

Hi Andrew

Thank you very much.

it works.

There might be an type error for the API.

sevChooseAnalysesForm(session 'tran)

Best Regards

Yi