TECH.RegisteredObject,APPS.Halux.PPS.Activiteit.ActiviteitRepository ActiviteitCodeList:%ListOfDataTypes,ActivititeitGroepID:%String %ListOfDataTypes ActiviteitCode:%String,ActivititeitGroepID:%String,Categorie:%String %Integer 1) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("ActiviteitCode " _ ActiviteitCode _ " niet eenduidig. Categorie:"_Categorie)) } If (AantalActiviteiten = 0) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen activiteit voor ActiviteitCode " _ ActiviteitCode_", Categorie:"_Categorie)) } Quit ActiviteitIDs.GetNext() ]]>