Volian/SourceCode
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

C2025-024 Electronic Procedures Phase 2 - XML Export

Browse Source 
Multi-Unit RO Resolution
This commit is contained in:
Matthew Schill
2025-07-24 08:08:18 -04:00
parent 20c31153de
commit 8c32d18aec
2 changed files with 66 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
PROMS/VEPROMS User Interface/dlgExportImportEP.cs
View File

@@ -21,58 +21,29 @@ namespace VEPROMS
private static Regex _ROAccPageTokenPattern = new Regex("[<][^<>-]+-[^<>]+[>]");
public dlgExportImportEP(string mode, FolderInfo folderInfo, frmVEPROMS myFrmVEPROMS, int annotationTypeId, int unitIndex) : base(mode, folderInfo, myFrmVEPROMS, (E_UCFImportOptions)0)
public dlgExportImportEP(string mode, FolderInfo folderInfo, frmVEPROMS myFrmVEPROMS, int annotationTypeId, int unitIndex = 0) : base(mode, folderInfo, myFrmVEPROMS, (E_UCFImportOptions)0, unitIndex)
{
_AnnotationType = AnnotationTypeInfo.Get(annotationTypeId);
_UnitIndex = unitIndex;
_ExportBothConvertedandNot = true;
DocReplace = new Dictionary<int, byte[]>();
FormClosed += OnClose;
Text = $"{mode} Electronic Procedure ({_AnnotationType.Name}) Dialog for {folderInfo.Name}";
if (_UnitIndex > 0)
{
foreach (DocVersionInfo docver in MyFolder.FolderDocVersions)
{
docver.DocVersionConfig.SelectedSlave = _UnitIndex;
foreach (ItemInfo proc in docver.Procedures)
proc.MyProcedure.MyDocVersion.DocVersionConfig.SelectedSlave = _UnitIndex;
}
}
}
public dlgExportImportEP(string mode, DocVersionInfo docVersionInfo, frmVEPROMS myFrmVEPROMS, int annotationTypeId, int unitIndex) : base(mode, docVersionInfo, myFrmVEPROMS, (E_UCFImportOptions)0)
public dlgExportImportEP(string mode, DocVersionInfo docVersionInfo, frmVEPROMS myFrmVEPROMS, int annotationTypeId, int unitIndex = 0) : base(mode, docVersionInfo, myFrmVEPROMS, (E_UCFImportOptions)0, unitIndex)
{
_AnnotationType = AnnotationTypeInfo.Get(annotationTypeId);
_UnitIndex = unitIndex;
_ExportBothConvertedandNot = true;
DocReplace = new Dictionary<int, byte[]>();
FormClosed += OnClose;
Text = $"{mode} Electronic Procedure ({_AnnotationType.Name}) Dialog for {docVersionInfo.Name} of {docVersionInfo.MyFolder.Name}";
if (_UnitIndex > 0)
{
MyDocVersion.DocVersionConfig.SelectedSlave = _UnitIndex;
foreach (ItemInfo proc in MyDocVersion.Procedures)
proc.MyProcedure.MyDocVersion.DocVersionConfig.SelectedSlave = _UnitIndex;
}
}
public dlgExportImportEP(string mode, ProcedureInfo procedureInfo, frmVEPROMS myFrmVEPROMS, int annotationTypeId, int unitIndex) : base(mode, procedureInfo, myFrmVEPROMS, (E_UCFImportOptions)0)
public dlgExportImportEP(string mode, ProcedureInfo procedureInfo, frmVEPROMS myFrmVEPROMS, int annotationTypeId, int unitIndex = 0) : base(mode, procedureInfo, myFrmVEPROMS, (E_UCFImportOptions)0, unitIndex)
{
_AnnotationType = AnnotationTypeInfo.Get(annotationTypeId);
_UnitIndex = unitIndex;
_ExportBothConvertedandNot = true;
DocReplace = new Dictionary<int, byte[]>();
FormClosed += OnClose;
Text = $"{mode} Electronic Procedure ({_AnnotationType.Name}) Dialog for {procedureInfo.DisplayNumber}";
if (_UnitIndex > 0)
{
MyProcedure.MyDocVersion.DocVersionConfig.SelectedSlave = _UnitIndex;
MyProcedure.MyProcedure.MyDocVersion.DocVersionConfig.SelectedSlave = _UnitIndex;
}
}
//Overridden function to handle export of EP data
@@ -344,32 +315,8 @@ namespace VEPROMS
}
//clear objects to release memory
//and unset the unit (SelectedSlave)
private void OnClose(object sender, EventArgs e)
{
if (MyProcedure != null)
{
MyProcedure.MyDocVersion.DocVersionConfig.SelectedSlave = 0;
MyProcedure.MyProcedure.MyDocVersion.DocVersionConfig.SelectedSlave = 0;
}
if (MyDocVersion != null)
{
MyDocVersion.DocVersionConfig.SelectedSlave = 0;
foreach (ItemInfo proc in MyDocVersion.Procedures)
proc.MyProcedure.MyDocVersion.DocVersionConfig.SelectedSlave = _UnitIndex;
}
if (MyFolder != null)
{
foreach (DocVersionInfo docver in MyFolder.FolderDocVersions)
{
docver.DocVersionConfig.SelectedSlave = _UnitIndex;
foreach (ItemInfo proc in docver.Procedures)
proc.MyProcedure.MyDocVersion.DocVersionConfig.SelectedSlave = _UnitIndex;
}
}
DocReplace.Clear();
DocReplace = null;
}