iris-pex-embedded-python 3.7.2b2__py3-none-any.whl → 4.0.0__py3-none-any.whl

iop/cls/IOP/Utils.cls

@@ -72,6 +72,7 @@ ClassMethod DeleteComponentProxy(pClassname As %String = "") As %Status
 	#dim ex As %Exception.AbstractException
 	#dim tIsIOP As %Boolean = 0
 	#dim tClass As %Dictionary.CompiledClass
+	#dim tReferences As %DynamicArray
 	
 	Quit:(""=pClassname) $$$ERROR($$$EnsErrGeneral,"Remote class name must be specified.")
 	
@@ -90,16 +91,20 @@ ClassMethod DeleteComponentProxy(pClassname As %String = "") As %Status
 			}
 			Set tIsIOP = ("IOP.Utils" = tClass.GeneratedBy)
 		}
-		If tIsIOP {
-			Set tSC = ##class(%Dictionary.ClassDefinition).%DeleteId(pClassname)
-			If $$$ISERR(tSC) {
-				Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Unable to delete proxy class for remote class '%1' : '%2'.",pClassname,$System.Status.GetErrorText(tSC)))
-				Quit
-			}
-		} Else {
+		If 'tIsIOP {
 			Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Cannot delete class '%1' because it is not a IOP proxy class.",pClassname))
 			Quit
 		}
+		$$$ThrowOnError(..FindComponentProxyReferences(pClassname,.tReferences))
+		If tReferences.%Size() > 0 {
+			Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Cannot delete class '%1' because it is used by production items: %2.",pClassname,..FormatComponentProxyReferences(tReferences)))
+			Quit
+		}
+		Set tSC = ##class(%Dictionary.ClassDefinition).%DeleteId(pClassname)
+		If $$$ISERR(tSC) {
+			Set tSC = $$$ERROR($$$EnsErrGeneral,$$$FormatText("Unable to delete proxy class for remote class '%1' : '%2'.",pClassname,$System.Status.GetErrorText(tSC)))
+			Quit
+		}
 		
 	} Catch ex {
 		Set tSC = ex.AsStatus()
@@ -108,6 +113,132 @@ ClassMethod DeleteComponentProxy(pClassname As %String = "") As %Status
 	Quit tSC
 }
 
+ClassMethod FindComponentProxyReferences(
+	pClassname As %String,
+	ByRef pReferences) As %Status [ Internal ]
+{
+	#dim tSC As %Status = $$$OK
+	#dim ex As %Exception.AbstractException
+	Set pReferences = []
+	Quit:(""=pClassname) $$$ERROR($$$EnsErrGeneral,"Remote class name must be specified.")
+	Try {
+		Set tRS = ##class(%ResultSet).%New("Ens.Config.Production:ProductionStatus")
+		$$$ThrowOnError(tRS.Execute())
+		While tRS.Next() {
+			$$$ThrowOnError(..CollectProductionProxyReferences(tRS.Data("Production"),pClassname,.pReferences))
+		}
+	} Catch ex {
+		Set tSC = ex.AsStatus()
+	}
+	Quit tSC
+}
+
+ClassMethod CollectProductionProxyReferences(
+	pProductionName As %String,
+	pClassname As %String,
+	ByRef pReferences) As %Status [ Internal, Private ]
+{
+	#dim tProduction As Ens.Config.Production
+	#dim tItem As Ens.Config.Item
+	Set tProduction = ##class(Ens.Config.Production).%OpenId(pProductionName)
+	If '$IsObject(tProduction) {
+		Set tLoaded = ##class(Ens.Config.Production).LoadFromClass(pProductionName)
+		If $IsObject(tLoaded) {
+			Set tProduction = tLoaded
+		}
+	}
+	If '$IsObject(tProduction) {
+		Quit $$$OK
+	}
+	For i=1:1:tProduction.Items.Count() {
+		Set tItem = tProduction.Items.GetAt(i)
+		If '$IsObject(tItem) Continue
+		If tItem.ClassName = pClassname {
+			Set tReference = {}
+			Set tReference.production = pProductionName
+			Set tReference.item = tItem.Name
+			Do pReferences.%Push(tReference)
+		}
+	}
+	Quit $$$OK
+}
+
+ClassMethod FormatComponentProxyReferences(pReferences As %DynamicArray) As %String [ Internal, Private ]
+{
+	Set tValue = ""
+	For i=0:1:pReferences.%Size()-1 {
+		Set tReference = pReferences.%Get(i)
+		Set tValue = tValue_$Select(tValue="":"",1:", ")_tReference.production_"/"_tReference.item
+	}
+	Quit tValue
+}
+
+ClassMethod ListComponentProxies(pUnusedOnly As %Boolean = 0) As %String
+{
+	#dim ex As %Exception.AbstractException
+	Set tResult = []
+	Try {
+		Set tStmt = ##class(%SQL.Statement).%New()
+		$$$ThrowOnError(tStmt.%Prepare("SELECT Name FROM %Dictionary.ClassDefinition WHERE GeneratedBy = ? ORDER BY Name"))
+		Set tRS = tStmt.%Execute("IOP.Utils")
+		While tRS.%Next() {
+			Set tClassname = tRS.%Get("Name")
+			If '$classmethod(tClassname,"%Extends","IOP.Common") {
+				Continue
+			}
+			$$$ThrowOnError(..FindComponentProxyReferences(tClassname,.tReferences))
+			If pUnusedOnly {
+				If tReferences.%Size() > 0 {
+					Continue
+				}
+			}
+			Set tEntry = {}
+			Set tEntry."class" = tClassname
+			Set tEntry.super = ..ProxySuperClass(tClassname)
+			Set tEntry.module = ..ProxyPropertyInitialValue(tClassname,"%module")
+			Set tEntry.classname = ..ProxyPropertyInitialValue(tClassname,"%classname")
+			Set tEntry.classpaths = ..ProxyPropertyInitialValue(tClassname,"%classpaths")
+			Set tEntry.used = (tReferences.%Size() > 0)
+			Set tEntry."used_by" = tReferences
+			Do tResult.%Push(tEntry)
+		}
+	} Catch ex {
+		$$$ThrowOnError(ex.AsStatus())
+	}
+	Quit tResult.%ToJSON()
+}
+
+ClassMethod ProxySuperClass(pClassname As %String) As %String [ Internal, Private ]
+{
+	Set tClass = ##class(%Dictionary.ClassDefinition).%OpenId(pClassname)
+	If '$IsObject(tClass) {
+		Quit ""
+	}
+	Quit tClass.Super
+}
+
+ClassMethod ProxyPropertyInitialValue(
+	pClassname As %String,
+	pProperty As %String) As %String [ Internal, Private ]
+{
+	Set tStmt = ##class(%SQL.Statement).%New()
+	$$$ThrowOnError(tStmt.%Prepare("SELECT InitialExpression FROM %Dictionary.PropertyDefinition WHERE parent = ? AND name = ?"))
+	Set tRS = tStmt.%Execute(pClassname,pProperty)
+	If tRS.%Next() {
+		Quit ..UnquoteInitialExpression(tRS.%Get("InitialExpression"))
+	}
+	Quit ""
+}
+
+ClassMethod UnquoteInitialExpression(pValue As %String) As %String [ Internal, Private ]
+{
+	Set tValue = $Get(pValue)
+	If ($Extract(tValue,1)="""")&&($Extract(tValue,*)="""") {
+		Set tValue = $Extract(tValue,2,*-1)
+	}
+	Quit tValue
+}
+
 // ..GetRemoteClassInfo(pRemoteClassname,pModule,pCLASSPATHS,.tClassDetails,.tRemoteSettings)
 
 ClassMethod GetRemoteClassInfo(
@@ -150,7 +281,14 @@ ClassMethod GetRemoteClassInfo(
 
 		// Get the class
 		set class = builtins.getattr(module, pRemoteClassname)
+		// Allocate without calling Python __init__. Registration only reads
+		// metadata; runtime startup belongs in on_init().
 		set tClass = class."__new__"(class)
+		Try {
+			Do tClass."_warn_if_custom_init"()
+		}
+		Catch ex {
+		}
 
 		If $IsObject(tClass) {
 			#; List of information about the class as a whole - $lb(SuperClass, Description, InfoURL, IconURL, Adapter)
@@ -455,6 +593,159 @@ ClassMethod CreateProduction(
   return $System.OBJ.Compile(produtionClassName,"k-d")
 }
 
+ClassMethod CreateProductionFromJSON(
+	pProductionName As %String,
+	pDefinition As %String) As %Status
+{
+	#dim tSC As %Status = $$$OK
+	#dim ex As %Exception.AbstractException
+	#dim tPayload As %DynamicObject
+	#dim tProductionData As %DynamicObject
+	#dim tProduction As Ens.Config.Production
+	#dim tProductionClass As %Dictionary.ClassDefinition
+	#dim tItems,tDeclaredName
+	Try {
+		Return:(""=pProductionName) $$$ERROR($$$EnsErrGeneral,"Production name is required.")
+		Return:('$ZName(pProductionName,4)) $$$ERROR($$$EnsErrGeneral,"Invalid Production name.")
+
+		Set tPayload = {}.%FromJSON(pDefinition)
+		Set tProductionData = tPayload.%Get("Production")
+		If '$IsObject(tProductionData) {
+			Set tSC = $$$ERROR($$$EnsErrGeneral,"Production JSON must contain a Production object.")
+			Quit
+		}
+		Set tDeclaredName = ..DynamicGet(tProductionData,"@Name","")
+		If ""'=tDeclaredName {
+			If pProductionName'=tDeclaredName {
+				Set tSC = $$$ERROR($$$EnsErrGeneral,"Production JSON name does not match target production name.")
+				Quit
+			}
+		}
+
+		If ('##class(%Dictionary.ClassDefinition).%ExistsId(pProductionName)) {
+			Set tProductionClass = ##class(%Dictionary.ClassDefinition).%New()
+			Set tProductionClass.Name = pProductionName
+			Set tProductionClass.Super = "Ens.Production"
+			Set tProductionClass.ClassVersion = 25
+			Set tSC = tProductionClass.%Save()
+			Quit:$$$ISERR(tSC)
+		}
+
+		Set tProduction = ##class(Ens.Config.Production).%New()
+		Set tProduction.Name = pProductionName
+		Set tProduction.Description = ..DynamicGet(tProductionData,"Description","")
+		Set tProduction.ActorPoolSize = +..DynamicGet(tProductionData,"ActorPoolSize",2)
+		Set tProduction.TestingEnabled = ..BooleanValue(..DynamicGet(tProductionData,"@TestingEnabled",0))
+		Set tProduction.LogGeneralTraceEvents = ..BooleanValue(..DynamicGet(tProductionData,"@LogGeneralTraceEvents",0))
+
+		$$$ThrowOnError(..InsertSettings(tProduction,tProductionData.%Get("Setting")))
+		Set tItems = tProductionData.%Get("Item")
+		$$$ThrowOnError(..InsertItems(tProduction,tItems))
+
+		Set tSC = tProduction.SaveToClass()
+		Quit:$$$ISERR(tSC)
+		Set tSC = $System.OBJ.Compile(pProductionName,"k-d")
+	} Catch ex {
+		Set tSC = ex.AsStatus()
+	}
+	Quit tSC
+}
+
+ClassMethod DynamicGet(pObject, pName As %String, pDefault = "") [ Internal, Private ]
+{
+	#dim value
+	Try {
+		Set value = pObject.%Get(pName)
+	} Catch ex {
+		Return pDefault
+	}
+	Quit $Select(value="":pDefault,1:value)
+}
+
+ClassMethod BooleanValue(pValue) As %Boolean [ Internal, Private ]
+{
+	Set tValue = $ZCONVERT(pValue,"L")
+	Quit $Select(tValue="true":1,tValue="1":1,tValue="yes":1,tValue="on":1,tValue="false":0,tValue="0":0,tValue="no":0,tValue="off":0,1:+pValue)
+}
+
+ClassMethod IsDynamicArray(pValue) As %Boolean [ Internal, Private ]
+{
+	Quit $Select('$IsObject(pValue):0,pValue.%ClassName(1)="%Library.DynamicArray":1,1:0)
+}
+
+ClassMethod InsertItems(
+	pProduction As Ens.Config.Production,
+	pItems) As %Status [ Internal, Private ]
+{
+	#dim tSC As %Status = $$$OK
+	If '$IsObject(pItems) {
+		Quit tSC
+	}
+	If ..IsDynamicArray(pItems) {
+		For i=0:1:pItems.%Size()-1 {
+			$$$ThrowOnError(..InsertItem(pProduction,pItems.%Get(i)))
+		}
+	} Else {
+		$$$ThrowOnError(..InsertItem(pProduction,pItems))
+	}
+	Quit tSC
+}
+
+ClassMethod InsertItem(
+	pProduction As Ens.Config.Production,
+	pItemData) As %Status [ Internal, Private ]
+{
+	#dim tItem As Ens.Config.Item
+	Set tItem = ##class(Ens.Config.Item).%New()
+	Set tItem.Name = ..DynamicGet(pItemData,"@Name","")
+	Set tItem.ClassName = ..DynamicGet(pItemData,"@ClassName","")
+	Set tItem.Category = ..DynamicGet(pItemData,"@Category","")
+	Set tItem.PoolSize = +..DynamicGet(pItemData,"@PoolSize",0)
+	Set tItem.Enabled = ..BooleanValue(..DynamicGet(pItemData,"@Enabled",1))
+	Set tItem.Foreground = ..BooleanValue(..DynamicGet(pItemData,"@Foreground",0))
+	Set tItem.Comment = ..DynamicGet(pItemData,"@Comment","")
+	Set tItem.LogTraceEvents = ..BooleanValue(..DynamicGet(pItemData,"@LogTraceEvents",0))
+	Set tItem.Schedule = ..DynamicGet(pItemData,"@Schedule","")
+	Set tItem.Production = pProduction
+
+	$$$ThrowOnError(..InsertSettings(tItem,pItemData.%Get("Setting")))
+	Do pProduction.Items.Insert(tItem)
+	Quit $$$OK
+}
+
+ClassMethod InsertSettings(
+	pOwner,
+	pSettings) As %Status [ Internal, Private ]
+{
+	#dim tSC As %Status = $$$OK
+	If '$IsObject(pSettings) {
+		Quit tSC
+	}
+	If ..IsDynamicArray(pSettings) {
+		For i=0:1:pSettings.%Size()-1 {
+			$$$ThrowOnError(..InsertSetting(pOwner,pSettings.%Get(i)))
+		}
+	} Else {
+		$$$ThrowOnError(..InsertSetting(pOwner,pSettings))
+	}
+	Quit tSC
+}
+
+ClassMethod InsertSetting(
+	pOwner,
+	pSettingData) As %Status [ Internal, Private ]
+{
+	#dim tSetting As Ens.Config.Setting
+	#dim tDefaultTarget As %String
+	Set tDefaultTarget = $Select(pOwner.%IsA("Ens.Config.Production"):"",1:"Host")
+	Set tSetting = ##class(Ens.Config.Setting).%New()
+	Set tSetting.Target = ..DynamicGet(pSettingData,"@Target",tDefaultTarget)
+	Set tSetting.Name = ..DynamicGet(pSettingData,"@Name","")
+	Set tSetting.Value = ..DynamicGet(pSettingData,"#text","")
+	Do pOwner.Settings.Insert(tSetting)
+	Quit $$$OK
+}
+
 /// Export a production to an XML string
 ClassMethod ExportProduction(pProductionName As %String) As %String
 {
@@ -474,6 +765,522 @@ ClassMethod ExportProduction(pProductionName As %String) As %String
 	Return xdata
 }
 
+/// Export runtime production connections discovered through OnGetConnections.
+ClassMethod ExportProductionConnections(pProductionName As %String) As %String
+{
+	Set result = {}
+	Set result.production = pProductionName
+	Set result.items = []
+	Set result.warnings = []
+	Try {
+		Set production = ##class(Ens.Config.Production).%OpenId(pProductionName)
+		If '$IsObject(production) {
+			Set loaded = ##class(Ens.Config.Production).LoadFromClass(pProductionName)
+			If $IsObject(loaded) {
+				Set production = loaded
+			} Else {
+				Set warning = "Production could not be loaded: "_pProductionName
+				If loaded'="" {
+					Try {
+						If $System.Status.IsError(loaded) {
+							Set warning = warning_": "_$System.Status.GetOneStatusText(loaded)
+						}
+					} Catch exStatus {
+					}
+				}
+				Do result.warnings.%Push(warning)
+				Return result.%ToJSON()
+			}
+		}
+		For i=1:1:production.Items.Count() {
+			Set item = production.Items.GetAt(i)
+			If '$IsObject(item) Continue
+			Set itemResult = {}
+			Set itemResult.item = item.Name
+			Set itemResult."class_name" = item.ClassName
+			Set itemResult.kind = ..ProductionItemKind(item.ClassName)
+			Set adapterClass = ""
+			Try {
+				Set adapterClass = $Parameter(item.ClassName, "ADAPTER")
+			} Catch exAdapter {
+			}
+			If adapterClass '= "" {
+				Set itemResult."adapter_class_name" = adapterClass
+			}
+			If ..ProductionItemIsIOP(item.ClassName) {
+				Set itemResult.iop = 1
+				Set module = ..ProductionItemSettingOrProxyDefault(item,item.ClassName,"%module")
+				Set classname = ..ProductionItemSettingOrProxyDefault(item,item.ClassName,"%classname")
+				Set classpaths = ..ProductionItemSettingOrProxyDefault(item,item.ClassName,"%classpaths")
+				If module '= "" {
+					Set itemResult.module = module
+				}
+				If classname '= "" {
+					Set itemResult.classname = classname
+				}
+				If classpaths '= "" {
+					Set itemResult.classpaths = classpaths
+				}
+			}
+			Set itemResult.connections = []
+			Set itemResult.warnings = []
+			Try {
+				Kill connections
+				Do ##class(Ens.Config.Production).GetConnections(.connections,item.ClassName,item)
+				Set target = ""
+				For {
+					Set target = $Order(connections(target))
+					Quit:target=""
+					Do itemResult.connections.%Push(target)
+				}
+			} Catch ex {
+				Do itemResult.warnings.%Push(ex.DisplayString())
+			}
+			Do result.items.%Push(itemResult)
+		}
+	} Catch ex {
+		Do result.warnings.%Push(ex.DisplayString())
+	}
+	Return result.%ToJSON()
+}
+
+ClassMethod ProductionItemKind(pClassName As %String) As %String [ Internal, Private ]
+{
+	Try {
+		If $ClassMethod(pClassName,"%Extends","Ens.BusinessService") {
+			Return "service"
+		}
+		If $ClassMethod(pClassName,"%Extends","Ens.BusinessProcess") {
+			Return "process"
+		}
+		If $ClassMethod(pClassName,"%Extends","Ens.BusinessOperation") {
+			Return "operation"
+		}
+	} Catch ex {
+	}
+	Quit "component"
+}
+
+ClassMethod ProductionItemIsIOP(pClassName As %String) As %Boolean [ Internal, Private ]
+{
+	Try {
+		If $ClassMethod(pClassName,"%Extends","IOP.Common") {
+			Return 1
+		}
+	} Catch ex {
+	}
+	Try {
+		Set class = ##class(%Dictionary.ClassDefinition).%OpenId(pClassName)
+		If $IsObject(class) {
+			If class.GeneratedBy = $CLASSNAME() {
+				Return 1
+			}
+			If class.Super [ "IOP." {
+				Return 1
+			}
+		}
+	} Catch exClass {
+	}
+	Quit 0
+}
+
+ClassMethod ProductionItemSettingOrProxyDefault(
+	pItem As Ens.Config.Item,
+	pClassName As %String,
+	pSettingName As %String) As %String [ Internal, Private ]
+{
+	Set value = ""
+	Try {
+		Do pItem.GetModifiedSetting(pSettingName,.value)
+	} Catch exSetting {
+	}
+	If value '= "" {
+		Quit value
+	}
+	Try {
+		Set value = ..ProxyPropertyInitialValue(pClassName,pSettingName)
+	} Catch exProxy {
+	}
+	Quit value
+}
+
+/// Export queue counters for production items.
+ClassMethod ExportProductionQueueInfo(pProductionName As %String) As %String
+{
+	Set result = {}
+	Set result.production = pProductionName
+	Set result.items = []
+	Set result.warnings = []
+	Try {
+		Set production = ##class(Ens.Config.Production).%OpenId(pProductionName)
+		If '$IsObject(production) {
+			Set loaded = ##class(Ens.Config.Production).LoadFromClass(pProductionName)
+			If $IsObject(loaded) {
+				Set production = loaded
+			} Else {
+				Set warning = "Production could not be loaded: "_pProductionName
+				If loaded'="" {
+					Try {
+						If $System.Status.IsError(loaded) {
+							Set warning = warning_": "_$System.Status.GetOneStatusText(loaded)
+						}
+					} Catch exStatus {
+					}
+				}
+				Do result.warnings.%Push(warning)
+				Return result.%ToJSON()
+			}
+		}
+		For i=1:1:production.Items.Count() {
+			Set item = production.Items.GetAt(i)
+			If '$IsObject(item) Continue
+			Set itemResult = {}
+			Set itemResult.item = item.Name
+			Set itemResult."queue_name" = item.Name
+			Set itemResult."class_name" = item.ClassName
+			Set queueCount = ##class(Ens.Queue).GetCount(item.Name)
+			If queueCount="" {
+				Set itemResult.exists = 0
+				Set itemResult.count = 0
+			} Else {
+				Set itemResult.exists = 1
+				Set itemResult.count = +queueCount
+			}
+			Do result.items.%Push(itemResult)
+		}
+	} Catch ex {
+		Do result.warnings.%Push(ex.DisplayString())
+	}
+	Return result.%ToJSON()
+}
+
+/// Apply a conservative granular production change plan.
+ClassMethod ApplyProductionPlan(
+	pProductionName As %String,
+	pPlan As %String,
+	pAllowDestructive As %Boolean = 0) As %String
+{
+	Set result = {}
+	Set result.production = pProductionName
+	Set result.operations = []
+	Try {
+		Set plan = {}.%FromJSON(pPlan)
+		Set operations = plan.%Get("operations")
+		Set production = ##class(Ens.Config.Production).%OpenId(pProductionName)
+		If '$IsObject(production) {
+			Set loaded = ##class(Ens.Config.Production).LoadFromClass(pProductionName)
+			If $IsObject(loaded) {
+				Set production = loaded
+			} Else {
+				$$$ThrowStatus($$$ERROR($$$EnsErrGeneral,"Production could not be loaded: "_pProductionName))
+			}
+		}
+		If $IsObject(operations) {
+			For i=0:1:operations.%Size()-1 {
+				Set operation = operations.%Get(i)
+				Set opResult = {}
+				Set opResult.id = operation.%Get("id")
+				Set opResult."op_type" = operation.%Get("op_type")
+				Set opResult.path = operation.%Get("path")
+				Set risk = operation.%Get("risk")
+				If risk = "unsupported" {
+					Set opResult.status = "skipped"
+					Set opResult.message = $Select(operation.%Get("reason")'="":operation.%Get("reason"),1:"unsupported operation")
+				} ElseIf (risk = "destructive") && ('pAllowDestructive) {
+					Set opResult.status = "skipped"
+					Set opResult.message = "requires allow_destructive"
+				} Else {
+					Try {
+						$$$ThrowOnError(..ApplyProductionPlanOperation(production, operation))
+						Set opResult.status = "applied"
+					} Catch opEx {
+						Set opResult.status = "failed"
+						Set opResult.message = opEx.DisplayString()
+					}
+				}
+				Do result.operations.%Push(opResult)
+			}
+		}
+		$$$ThrowOnError(production.SaveToClass())
+		$$$ThrowOnError($System.OBJ.Compile(pProductionName,"k-d"))
+	} Catch ex {
+		Set result.error = ex.DisplayString()
+	}
+	Return result.%ToJSON()
+}
+
+ClassMethod ApplyProductionPlanOperation(
+	pProduction As Ens.Config.Production,
+	pOperation) As %Status [ Internal, Private ]
+{
+	Set opType = pOperation.%Get("op_type")
+	If opType = "add_item" {
+		Return ..ApplyPlanAddItem(pProduction,pOperation)
+	}
+	If opType = "delete_item" {
+		Return ..ApplyPlanDeleteItem(pProduction,pOperation.%Get("item"))
+	}
+	If opType = "set_item_field" {
+		Return ..ApplyPlanSetItemField(pProduction,pOperation)
+	}
+	If opType = "replace_item_class" {
+		Return ..ApplyPlanSetItemField(pProduction,pOperation)
+	}
+	If opType = "set_production_field" {
+		Return ..ApplyPlanSetProductionField(pProduction,pOperation)
+	}
+	If opType = "set_setting" {
+		If pOperation.%Get("target") = "Other" {
+			Return ..ReplaceOtherSettings(..FindProductionItem(pProduction,pOperation.%Get("item")),pOperation.%Get("after"))
+		}
+		Return ..SetConfigSetting(..FindProductionItem(pProduction,pOperation.%Get("item")),pOperation.%Get("target"),pOperation.%Get("setting"),pOperation.%Get("after"))
+	}
+	If opType = "remove_setting" {
+		Return ..RemoveConfigSetting(..FindProductionItem(pProduction,pOperation.%Get("item")),pOperation.%Get("target"),pOperation.%Get("setting"))
+	}
+	If opType = "set_route_setting" {
+		Return ..SetConfigSetting(..FindProductionItem(pProduction,pOperation.%Get("source_item")),"Host",pOperation.%Get("source_target_setting"),..DynamicArrayToCSV(pOperation.%Get("after")))
+	}
+	If opType = "remove_route" {
+		Return ..RemoveConfigSetting(..FindProductionItem(pProduction,pOperation.%Get("source_item")),"Host",pOperation.%Get("source_target_setting"))
+	}
+	Quit $$$ERROR($$$EnsErrGeneral,"Unsupported production plan operation: "_opType)
+}
+
+ClassMethod ApplyPlanAddItem(
+	pProduction As Ens.Config.Production,
+	pOperation) As %Status [ Internal, Private ]
+{
+	Set itemName = pOperation.%Get("item")
+	If itemName = "" {
+		Quit $$$ERROR($$$EnsErrGeneral,"Plan item name is required.")
+	}
+	If $IsObject(..FindProductionItem(pProduction,itemName,0)) {
+		Quit $$$ERROR($$$EnsErrGeneral,"Production item already exists: "_itemName)
+	}
+	Set data = pOperation.%Get("after")
+	Set item = ##class(Ens.Config.Item).%New()
+	Set item.Name = itemName
+	Set item.ClassName = data.%Get("class_name")
+	Set item.Category = data.%Get("category")
+	Set item.PoolSize = +data.%Get("pool_size")
+	Set item.Enabled = ..BooleanValue(data.%Get("enabled"))
+	Set item.Foreground = ..BooleanValue(data.%Get("foreground"))
+	Set item.Comment = data.%Get("comment")
+	Set item.LogTraceEvents = ..BooleanValue(data.%Get("log_trace_events"))
+	Set item.Schedule = data.%Get("schedule")
+	Set item.Production = pProduction
+	$$$ThrowOnError(..SetSettingsFromMap(item,"Host",data.%Get("host_settings")))
+	$$$ThrowOnError(..SetSettingsFromMap(item,"Adapter",data.%Get("adapter_settings")))
+	$$$ThrowOnError(..ReplaceOtherSettings(item,data.%Get("other_settings")))
+	Do pProduction.Items.Insert(item)
+	Quit $$$OK
+}
+
+ClassMethod ApplyPlanDeleteItem(
+	pProduction As Ens.Config.Production,
+	pItemName As %String) As %Status [ Internal, Private ]
+{
+	Set index = ..FindProductionItemIndex(pProduction,pItemName)
+	If index < 1 {
+		Quit $$$OK
+	}
+	Do pProduction.Items.RemoveAt(index)
+	Quit $$$OK
+}
+
+ClassMethod ApplyPlanSetItemField(
+	pProduction As Ens.Config.Production,
+	pOperation) As %Status [ Internal, Private ]
+{
+	Set item = ..FindProductionItem(pProduction,pOperation.%Get("item"))
+	Set field = pOperation.%Get("field")
+	Set value = pOperation.%Get("after")
+	If field = "class_name" {
+		Set item.ClassName = value
+	} ElseIf field = "category" {
+		Set item.Category = value
+	} ElseIf field = "pool_size" {
+		Set item.PoolSize = +value
+	} ElseIf field = "enabled" {
+		Set item.Enabled = ..BooleanValue(value)
+	} ElseIf field = "foreground" {
+		Set item.Foreground = ..BooleanValue(value)
+	} ElseIf field = "comment" {
+		Set item.Comment = value
+	} ElseIf field = "log_trace_events" {
+		Set item.LogTraceEvents = ..BooleanValue(value)
+	} ElseIf field = "schedule" {
+		Set item.Schedule = value
+	} Else {
+		Quit $$$ERROR($$$EnsErrGeneral,"Unsupported item field: "_field)
+	}
+	Quit $$$OK
+}
+
+ClassMethod ApplyPlanSetProductionField(
+	pProduction As Ens.Config.Production,
+	pOperation) As %Status [ Internal, Private ]
+{
+	Set field = pOperation.%Get("field")
+	Set value = pOperation.%Get("after")
+	If field = "testing_enabled" {
+		Set pProduction.TestingEnabled = ..BooleanValue(value)
+	} ElseIf field = "log_general_trace_events" {
+		Set pProduction.LogGeneralTraceEvents = ..BooleanValue(value)
+	} ElseIf field = "actor_pool_size" {
+		Set pProduction.ActorPoolSize = +value
+	} ElseIf field = "description" {
+		Set pProduction.Description = value
+	} Else {
+		Set settingName = ..ProductionSettingName(field)
+		If settingName = "" {
+			Quit $$$ERROR($$$EnsErrGeneral,"Unsupported production field: "_field)
+		}
+		$$$ThrowOnError(..SetConfigSetting(pProduction,"",settingName,value))
+	}
+	Quit $$$OK
+}
+
+ClassMethod ProductionSettingName(pField As %String) As %String [ Internal, Private ]
+{
+	Quit $Select(
+		pField="shutdown_timeout":"ShutdownTimeout",
+		pField="update_timeout":"UpdateTimeout",
+		pField="alert_notification_manager":"AlertNotificationManager",
+		pField="alert_notification_operation":"AlertNotificationOperation",
+		pField="alert_notification_recipients":"AlertNotificationRecipients",
+		pField="alert_action_window":"AlertActionWindow",
+		1:"")
+}
+
+ClassMethod FindProductionItem(
+	pProduction As Ens.Config.Production,
+	pItemName As %String,
+	pThrow As %Boolean = 1) [ Internal, Private ]
+{
+	Set index = ..FindProductionItemIndex(pProduction,pItemName)
+	If index > 0 {
+		Quit pProduction.Items.GetAt(index)
+	}
+	If pThrow {
+		$$$ThrowStatus($$$ERROR($$$EnsErrGeneral,"Production item does not exist: "_pItemName))
+	}
+	Quit ""
+}
+
+ClassMethod FindProductionItemIndex(
+	pProduction As Ens.Config.Production,
+	pItemName As %String) As %Integer [ Internal, Private ]
+{
+	For i=1:1:pProduction.Items.Count() {
+		Set item = pProduction.Items.GetAt(i)
+		If $IsObject(item), item.Name = pItemName {
+			Return i
+		}
+	}
+	Quit 0
+}
+
+ClassMethod SetSettingsFromMap(
+	pOwner,
+	pTarget As %String,
+	pMap) As %Status [ Internal, Private ]
+{
+	If '$IsObject(pMap) {
+		Quit $$$OK
+	}
+	Set iterator = pMap.%GetIterator()
+	While iterator.%GetNext(.key,.value) {
+		$$$ThrowOnError(..SetConfigSetting(pOwner,pTarget,key,value))
+	}
+	Quit $$$OK
+}
+
+ClassMethod SetConfigSetting(
+	pOwner,
+	pTarget As %String,
+	pName As %String,
+	pValue) As %Status [ Internal, Private ]
+{
+	Set index = ..FindConfigSettingIndex(pOwner,pTarget,pName)
+	If index > 0 {
+		Set setting = pOwner.Settings.GetAt(index)
+	} Else {
+		Set setting = ##class(Ens.Config.Setting).%New()
+		Set setting.Target = pTarget
+		Set setting.Name = pName
+		Do pOwner.Settings.Insert(setting)
+	}
+	Set setting.Value = pValue
+	Quit $$$OK
+}
+
+ClassMethod RemoveConfigSetting(
+	pOwner,
+	pTarget As %String,
+	pName As %String) As %Status [ Internal, Private ]
+{
+	Set index = ..FindConfigSettingIndex(pOwner,pTarget,pName)
+	If index > 0 {
+		Do pOwner.Settings.RemoveAt(index)
+	}
+	Quit $$$OK
+}
+
+ClassMethod ReplaceOtherSettings(
+	pOwner,
+	pSettings) As %Status [ Internal, Private ]
+{
+	For i=pOwner.Settings.Count():-1:1 {
+		Set setting = pOwner.Settings.GetAt(i)
+		If $IsObject(setting), setting.Target '= "Host", setting.Target '= "Adapter" {
+			Do pOwner.Settings.RemoveAt(i)
+		}
+	}
+	If '$IsObject(pSettings) {
+		Quit $$$OK
+	}
+	For i=0:1:pSettings.%Size()-1 {
+		Set data = pSettings.%Get(i)
+		Set setting = ##class(Ens.Config.Setting).%New()
+		Set setting.Target = ..DynamicGet(data,"@Target","")
+		Set setting.Name = ..DynamicGet(data,"@Name","")
+		Set setting.Value = ..DynamicGet(data,"#text","")
+		Do pOwner.Settings.Insert(setting)
+	}
+	Quit $$$OK
+}
+
+ClassMethod FindConfigSettingIndex(
+	pOwner,
+	pTarget As %String,
+	pName As %String) As %Integer [ Internal, Private ]
+{
+	For i=1:1:pOwner.Settings.Count() {
+		Set setting = pOwner.Settings.GetAt(i)
+		If $IsObject(setting), setting.Target = pTarget, setting.Name = pName {
+			Return i
+		}
+	}
+	Quit 0
+}
+
+ClassMethod DynamicArrayToCSV(pArray) As %String [ Internal, Private ]
+{
+	If '$IsObject(pArray) {
+		Quit pArray
+	}
+	Set value = ""
+	For i=0:1:pArray.%Size()-1 {
+		If value '= "" {
+			Set value = value_","
+		}
+		Set value = value_pArray.%Get(i)
+	}
+	Quit value
+}
+
 ClassMethod dispatchTestComponent(
 	pTargetName As %String,
 	pInput As Ens.Request) As Ens.Response