purge

WorkflowPurge

            s c=0

            &sql(DECLARE tieCursor CURSOR FOR

            SELECT

            ID into :ID

            FROM EnsLib_Workflow.TaskResponse)    

            &sql(OPEN tieCursor)

            FOR

            {

                        &sql(FETCH tieCursor)

                        Quit:SQLCODE

                        w !,ID

                        s c=$G(c)+1

                        s tTask=##class(EnsLib.Workflow.TaskResponse).%OpenId(ID)

                        set tSC = ##class(EnsLib.Workflow.Engine).CompleteTask(tTask)

                       

            }

            &sql(CLOSE tieCursor)