refactor iop code to prevent job registration in production

grongierisc · grongierisc · commit fb7f43b59ce0 · 2024-09-03T16:29:31.000+02:00
diff --git a/src/iop/cls/IOP/Director.cls b/src/iop/cls/IOP/Director.cls
@@ -9,6 +9,8 @@ Class IOP.Director [ Inheritance = right, ProcedureBlock, System = 4 ]
 
 ClassMethod dispatchCreateBusinessService(pTargetDispatchName As %String) As Ens.BusinessService
 {
+	// Hack to prevent job to be registered in the production
+	do ##class(Ens.Job).UnRegister(pTargetDispatchName,$JOB)
 	set tSC = ##class(Ens.Director).CreateBusinessService(pTargetDispatchName,.service)
 	if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)
 	quit service

Original file line number	Diff line number	Diff line change
`@@ -9,6 +9,8 @@ Class IOP.Director [ Inheritance = right, ProcedureBlock, System = 4 ]`
`9`	`9`
`10`	`10`	`ClassMethod dispatchCreateBusinessService(pTargetDispatchName As %String) As Ens.BusinessService`
`11`	`11`	`{`
	`12`	`+ // Hack to prevent job to be registered in the production`
	`13`	`+ do ##class(Ens.Job).UnRegister(pTargetDispatchName,$JOB)`
`12`	`14`	`set tSC = ##class(Ens.Director).CreateBusinessService(pTargetDispatchName,.service)`
`13`	`15`	`if $$$ISERR(tSC) throw ##class(%Exception.StatusException).CreateFromStatus(tSC)`
`14`	`16`	`quit service`