Stelt de scope van een APPS-level operatie voor. Helpt bij uitvoeren van taken die bij start en einde van een operatie moeten gebeuren. Bvb: loggen, start/stop timer, check authorizatie, audit trail... Dit ondersteunt geneste calls; en zorgt dat de nodige acties toch maar 1x gebeuren. TECH.Error 1 %RegisteredObject 0 OperatieScope 1 %Integer 1 TECH.Stack 1 1 TxScopeOptie:TECH.Concurrency.TxScopeOptie="Required",TxIsolatieLevel:TECH.Concurrency.TxIsolatieLevel="" OperatieScope 1 OperatieScope 1 1 OperatieScope 1 OperatieScope %Status TxScopeOptie:TECH.Concurrency.TxScopeOptie="Required",TxIsolatieLevel:TECH.Concurrency.TxIsolatieLevel="" 1 Resultaat="" 0) { Set ..NestingNiveau = ..NestingNiveau - 1 } If (0 = ..NestingNiveau) { Do ..OperatieGelukt(Resultaat) } ]]> Exception 0) { Set ..NestingNiveau = ..NestingNiveau - 1 } If (0 = ..NestingNiveau) { Do ..OperatieGefaald(.Exception) } If $Data(Exception) { If ('$IsObject(Exception)) { Set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),Exception) } Do ##class(TECH.ExceptionHandler).Throw(Exception) } ]]> 1 1 1 Resultaat 1 Ecode 1