@@ -87,12 +87,15 @@ ClassMethod ExportPTD(internalName As %String, nameMethod) As %Status
87
87
Set name = $Piece (internalName ," ." ,1 ,$Length (internalName ," ." )-1 )
88
88
Set $ListBuild (productionName , itemName ) = $ListFromString (name , " ||" )
89
89
Set $ListBuild (itemName , itemClassName ) = $ListFromString (itemName , " |" )
90
+ Set sc = $$$OK
90
91
If $Piece ($Piece (name ," ||" ,2 )," |" ,2 ) = " " {
91
92
Set sc = ..ExportProductionSettings (productionName , nameMethod )
92
93
} Else {
93
94
Set configItemName = productionName _" ||" _$Piece (itemName , " Settings-" , 2 )_" |" _itemClassName
94
95
Set item = ##class (Ens.Config.Production ).OpenItemByConfigName (configItemName )
95
- Set sc = ..ExportConfigItemSettings (productionName , item , nameMethod )
96
+ If $IsObject (item ) {
97
+ Set sc = ..ExportConfigItemSettings (productionName , item , nameMethod )
98
+ }
96
99
}
97
100
Return sc
98
101
}
@@ -115,7 +118,7 @@ ClassMethod ExportConfigItemSettings(productionClass As %String, item As %Regist
115
118
/// class name
116
119
ClassMethod ExportProductionSettings (productionClass As %String , nameMethod As %String ) As %Status
117
120
{
118
- set internalName = ..CreateInternalName (productionClass ,,,0 )
121
+ set internalName = ..CreateInternalName (productionClass ,,,1 )
119
122
Set class = ##class (%Dictionary.CompiledClass ).%OpenId (productionClass )
120
123
Set sc = ##class (Ens.Deployment.Utils ).CreatePTDFromProduction (class , .ptdName )
121
124
If $$$ISERR(sc ) {
0 commit comments