Skip to content

Commit b566021

Browse files
authored
Merge pull request #748 from intersystems/issue-693
Issue 693 Add interoperability files to Baseline Export
2 parents d413db4 + 2e43a8f commit b566021

File tree

3 files changed

+23
-2
lines changed

3 files changed

+23
-2
lines changed

CHANGELOG.md

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -5,6 +5,11 @@ All notable changes to this project will be documented in this file.
55
The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
66
and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).
77

8+
## [2.12.0] - Unreleased
9+
10+
### Added
11+
- Expanded Baseline Export to include custom HL7, X12, ASTM schemas and Lookup Tables (#693)
12+
813
## [2.11.0] - 2025-04-23
914

1015
### Added

cls/SourceControl/Git/Utils.cls

Lines changed: 17 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -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

module.xml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
<Document name="git-source-control.ZPM">
44
<Module>
55
<Name>git-source-control</Name>
6-
<Version>2.11.0</Version>
6+
<Version>2.12.0</Version>
77
<Description>Server-side source control extension for use of Git on InterSystems platforms</Description>
88
<Keywords>git source control studio vscode</Keywords>
99
<Packaging>module</Packaging>

0 commit comments

Comments
 (0)