Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement