@@ -2981,7 +2981,7 @@ ClassMethod BaselineExport(pCommitMessage = "", pPushToRemote = "") As %Status
29812981 try {
29822982 write !, " Exporting items..."
29832983 set rs = ##class (%Library.RoutineMgr ).StudioOpenDialogFunc (
2984- " *.mac,*.int,*.inc,*.cls,*.csp"
2984+ " *.mac,*.int,*.inc,*.cls,*.csp,*.HL7,*.LUT,*.AST,*.X12 "
29852985 , , ,0 // SystemFiles
29862986 ,1 // Flat
29872987 ,0 // NotStudio
@@ -2992,6 +2992,7 @@ ClassMethod BaselineExport(pCommitMessage = "", pPushToRemote = "") As %Status
29922992 while rs .%Next (.sc ) {
29932993 $$$ThrowOnError(sc )
29942994 set internalName = rs .Name
2995+ continue :..IsSchemaStandard (internalName )
29952996 // exclude items in a non-default IPM package
29962997 set context = ##class (SourceControl.Git.PackageManagerContext ).ForInternalName (internalName )
29972998 continue :($isobject (context .Package ) && 'context .IsInDefaultPackage )
@@ -3181,5 +3182,20 @@ ClassMethod GitUnstage(Output output As %Library.DynamicObject) As %Status
31813182 return $$$OK
31823183}
31833184
3185+ ClassMethod IsSchemaStandard (pName As %String = " " ) As %Boolean [ Internal ]
3186+ {
3187+ Set parts = $Length (pName ," ." )
3188+ Set category = $Piece (pName ," ." ,1 ,parts -1 )
3189+ Set ext = $Piece (pName ," ." ,parts )
3190+ If (pName = " " ) {
3191+ Quit 0
3192+ }
3193+ Quit +$Case (ext ,
3194+ " AST" :$Get (^EnsEDI .ASTM .Description (category ," std" )),
3195+ " HL7" :$Get (^EnsHL7 .Description (category ," std" )),
3196+ " X12" :$Get (^EnsEDI .X12 .Description (category ," std" )),
3197+ :0 )
3198+ }
3199+
31843200}
31853201
0 commit comments