public string SaveMSADetails(MSAModel msaModel)
{
string result = string.Empty;
try
{
MSA msa = _OperationalPortalEntities.MSAs.FirstOrDefault(x => x.MSAID == msaModel.MSAID);
if (msa != null)
{
Mapper.Map(msaModel, msa);
result = "MSA Updated Successfully";
}
else
{
msa = new MSA();
Mapper.Map(msaModel, msa);
msa.Customer = null;
_OperationalPortalEntities.MSAs.Add(msa);
result = "MSA Saved Successfully";
}
_OperationalPortalEntities.SaveChanges();
}
catch (Exception ex)
{
result = ex.Message.ToString();
}
return(result);
}
public ACK(compositeType parent, string name) : base(parent, name)
{
data = new abstractType[3];
data[0] = new MSH(this, "ACK");
data[1] = new MSA(this, "ACK");
data[2] = new ERR(this, "ACK");
}
public ServiceController()
{
if (this.msa == null)
{
this.msa = new MSA();
}
}
internal static MSA.Expression/*!*/ TransformConcatentation(AstGenerator/*!*/ gen, List<Expression>/*!*/ parts,
Func<string, MethodInfo>/*!*/ opFactory, MSA.Expression additionalArg) {
var opSuffix = new StringBuilder(Math.Min(parts.Count, 4));
List<MSA.Expression> merged = ConcatLiteralsAndTransform(gen, parts, opSuffix);
if (merged.Count <= RubyOps.MakeStringParamCount) {
if (merged.Count == 0) {
merged.Add(Ast.Constant(String.Empty));
opSuffix.Append(RubyOps.SuffixBinary);
}
if (opSuffix.IndexOf(RubyOps.SuffixEncoded) != -1) {
merged.Add(Ast.Constant(RubyEncoding.GetCodePage(gen.Encoding)));
}
if (additionalArg != null) {
merged.Add(additionalArg);
}
return opFactory(opSuffix.ToString()).OpCall(merged);
} else {
var paramArray = Ast.NewArrayInit(typeof(object), merged);
var codePage = Ast.Constant(RubyEncoding.GetCodePage(gen.Encoding));
return (additionalArg != null) ?
opFactory("N").OpCall(paramArray, codePage, additionalArg) :
opFactory("N").OpCall(paramArray, codePage);
}
}
private static void PopulateMSA(MSA msa, string acknowledgmentCode, string messageControlId)
{
// MSA-1
msa.AcknowledgementCode.Value = acknowledgmentCode;
// MSA-2
msa.MessageControlID.Value = messageControlId;
}
// arguments: complex arguments (expressions, maplets, splat, block)
// singleArgument: siple argument (complex are not used)
// assignmentRhsArgument: rhs of the assignment: target.method=(rhs)
internal static MSA.Expression/*!*/ TransformRead(Expression/*!*/ node, AstGenerator/*!*/ gen, bool hasImplicitSelf,
string/*!*/ methodName, MSA.Expression/*!*/ transformedTarget,
Arguments arguments, Block block, MSA.Expression singleArgument, MSA.Expression assignmentRhsArgument) {
Debug.Assert(assignmentRhsArgument == null || block == null, "Block not allowed in assignment");
Debug.Assert(singleArgument == null || arguments == null && assignmentRhsArgument == null);
Assert.NotNull(gen, transformedTarget);
Assert.NotEmpty(methodName);
// Pass args in this order:
// 1. instance
// 2. block (if present)
// 3. passed args: normal args, maplets, array
// 4. RHS of assignment (if present)
CallBuilder callBuilder = new CallBuilder(gen);
callBuilder.Instance = transformedTarget;
MSA.Expression blockArgVariable = null;
MSA.Expression transformedBlock = null;
if (block != null) {
blockArgVariable = gen.CurrentScope.DefineHiddenVariable("#block-def", typeof(Proc));
transformedBlock = block.Transform(gen);
callBuilder.Block = blockArgVariable;
}
if (arguments != null) {
arguments.TransformToCall(gen, callBuilder);
} else if (singleArgument != null) {
callBuilder.Add(singleArgument);
}
MSA.Expression rhsVariable = null;
if (assignmentRhsArgument != null) {
rhsVariable = gen.CurrentScope.DefineHiddenVariable("#rhs", assignmentRhsArgument.Type);
callBuilder.RhsArgument = Ast.Assign(rhsVariable, assignmentRhsArgument);
}
var dynamicSite = callBuilder.MakeCallAction(methodName, hasImplicitSelf);
if (gen.Context.CallSiteCreated != null) {
gen.Context.CallSiteCreated(node, dynamicSite);
}
MSA.Expression result = gen.DebugMark(dynamicSite, methodName);
if (block != null) {
result = gen.DebugMark(MakeCallWithBlockRetryable(gen, result, blockArgVariable, transformedBlock, block.IsDefinition),
"#RB: method call with a block ('" + methodName + "')");
}
if (assignmentRhsArgument != null) {
result = AstFactory.Block(result, rhsVariable);
}
return result;
}
internal static MSA.Expression/*!*/ TransformRead(AstGenerator/*!*/ gen, MSA.Expression/*!*/ left, MSA.Expression/*!*/ right) {
MSA.ParameterExpression temp;
MSA.Expression result = AstUtils.CoalesceFalse(
AstFactory.Box(left),
AstFactory.Box(right),
Methods.IsTrue,
out temp
);
gen.CurrentScope.AddHidden(temp);
return result;
}
public ScopeBuilder(MSA.ParameterExpression/*!*/[] parameters, int firstClosureParam, int localCount,
ScopeBuilder parent, LexicalScope/*!*/ lexicalScope) {
Debug.Assert(parent == null || parent.LexicalScope == lexicalScope.OuterScope);
#if DEBUG
_id = Interlocked.Increment(ref _Id);
#endif
_parent = parent;
_parameters = parameters;
_localCount = localCount;
_firstClosureParam = firstClosureParam;
_lexicalScope = lexicalScope;
_hiddenVariables = new ReadOnlyCollectionBuilder<MSA.ParameterExpression>();
_localsTuple = DefineHiddenVariable("#locals", MakeLocalsTupleType());
_outermostClosureReferredTo = this;
}
{/// <summary>
/// 段工厂创建消息工厂创建segmentType，生成MSH|MSA|EVN|PID等
/// </summary>
/// <param name="parent"></param>
/// <param name="product"></param>
/// <param name="name"></param>
/// <returns></returns>
public override abstractType Create(compositeType parent, Enum product, string name)
{
abstractType tmp = null;
switch (product)
{
case enumSegment.PID: tmp = new PID(parent, name); break;
case enumSegment.MSH: tmp = new MSH(parent, name); break;
case enumSegment.MSA: tmp = new MSA(parent, name); break;
case enumSegment.ERR: tmp = new ERR(parent, name); break;
case enumSegment.NTE: tmp = new NTE(parent, name); break;
case enumSegment.PD1: tmp = new PD1(parent, name); break;
case enumSegment.PV1: tmp = new PV1(parent, name); break;
case enumSegment.PV2: tmp = new PV2(parent, name); break;
case enumSegment.IN1: tmp = new IN1(parent, name); break;
case enumSegment.IN2: tmp = new IN2(parent, name); break;
case enumSegment.IN3: tmp = new IN3(parent, name); break;
case enumSegment.GT1: tmp = new GT1(parent, name); break;
case enumSegment.AL1: tmp = new AL1(parent, name); break;
case enumSegment.ORC: tmp = new ORC(parent, name); break;
case enumSegment.OBR: tmp = new OBR(parent, name); break;
case enumSegment.CTI: tmp = new CTI(parent, name); break;
case enumSegment.BLG: tmp = new BLG(parent, name); break;
case enumSegment.DG1: tmp = new DG1(parent, name); break;
case enumSegment.OBX: tmp = new OBX(parent, name); break;
default: throw new NotSupportedException();
}
return(tmp);
}
internal StaticScopeKind TransformQualifier(AstGenerator/*!*/ gen, out MSA.Expression transformedQualifier) {
if (_qualifier != null) {
Debug.Assert(_explicitlyBound);
// qualifier.Foo
transformedQualifier = _qualifier.TransformRead(gen);
return StaticScopeKind.Explicit;
} else if (_explicitlyBound) {
// ::Foo
transformedQualifier = null;
return StaticScopeKind.Global;
} else if (gen.CurrentModule != null) {
// statically (lexically) implicitly bound to the enclosing module:
transformedQualifier = gen.CurrentModule.SelfVariable; // TODO: remove, should be retrieved from code context/scope
return StaticScopeKind.EnclosingModule;
} else {
// statically (lexically) implicitly bound to top declaring module:
transformedQualifier = null;
return StaticScopeKind.EnclosingModule;
}
}
private void btnCalc_Click(object sender, EventArgs e)
{
double expectedValue;
double lowerLimitValue;
double upperLimitValue;
List <double> data;
if (!double.TryParse(txtErwartungswert.Text, out expectedValue))
{
ShowError("No expected value given.");
return;
}
if (!double.TryParse(txtOSG.Text, out upperLimitValue))
{
ShowError("No upper limit value given.");
return;
}
if (!double.TryParse(txtUSG.Text, out lowerLimitValue))
{
ShowError("No lower limit value given.");
return;
}
try
{
data = lstData.Items.Cast <double>().ToList();
}
catch
{
ShowError("Invalid data given.");
return;
}
var msa = new MSA(expectedValue, upperLimitValue, lowerLimitValue, data);
propertyGrid1.SelectedObject = msa;
}
public string DeleteMSA(int msaId)
{
string result = string.Empty;
try
{
MSA msa = _OperationalPortalEntities.MSAs.FirstOrDefault(x => x.MSAID == msaId);
if (msa != null)
{
_OperationalPortalEntities.MSAs.Remove(msa);
_OperationalPortalEntities.SaveChanges();
result = "MSA Removed Successfully";
}
else
{
result = "MSA Does not exist";
}
}
catch (Exception ex)
{
result = ex.Message.ToString();
}
return(result);
}
public void EnterLoop(MSA.Expression/*!*/ redoVariable, MSA.Expression/*!*/ resultVariable, MSA.LabelTarget/*!*/ breakLabel, MSA.LabelTarget/*!*/ continueLabel) {
Assert.NotNull(redoVariable, resultVariable, breakLabel, continueLabel);
LoopScope loop = new LoopScope(redoVariable, resultVariable, breakLabel, continueLabel);
loop.Parent = _currentElement;
loop.ParentLoop = _currentLoop;
_currentElement = _currentLoop = loop;
}
public ModuleScope(ScopeBuilder/*!*/ builder, MSA.Expression/*!*/ selfVariable, MSA.Expression/*!*/ runtimeScopeVariable, bool isSingleton)
: base(builder, selfVariable, runtimeScopeVariable) {
_isSingleton = isSingleton;
}
public MethodScope(
ScopeBuilder/*!*/ builder,
MSA.Expression/*!*/ selfVariable,
MSA.Expression/*!*/ runtimeScopeVariable,
MSA.Expression blockVariable,
MSA.Expression/*!*/ rfcVariable,
MSA.Expression currentMethodVariable,
string methodName,
Parameters parameters)
: base(builder, selfVariable, runtimeScopeVariable) {
Assert.NotNull(rfcVariable);
_blockVariable = blockVariable;
_rfcVariable = rfcVariable;
_methodName = methodName;
_parameters = parameters;
_currentMethodVariable = currentMethodVariable;
}
public Form1()
{
InitializeComponent();
_msa = new MSA();
}
internal MSA.Expression/*!*/ TryCatchAny(MSA.Expression/*!*/ tryBody, MSA.Expression/*!*/ catchBody) {
var variable = CurrentScope.DefineHiddenVariable("#value", tryBody.Type);
return
Ast.Block(
Ast.TryCatch(
Ast.Assign(variable, tryBody),
Ast.Catch(typeof(Exception),
Ast.Assign(variable, catchBody)
)
),
variable
);
}
internal MSA.Expression/*!*/ DebugMark(MSA.Expression/*!*/ expression, string/*!*/ marker) {
return _debugCompiler ? AstFactory.Block(Methods.X.OpCall(AstUtils.Constant(marker)), expression) : expression;
}
internal MSA.Expression/*!*/ Return(MSA.Expression/*!*/ expression) {
MSA.LabelTarget returnLabel = ReturnLabel;
if (returnLabel.Type != typeof(void) && expression.Type == typeof(void)) {
expression = Ast.Block(expression, AstUtils.Constant(null, typeof(object)));
} else if (returnLabel.Type != expression.Type) {
if (!CanAssign(returnLabel.Type, expression.Type)) {
// Add conversion step to the AST
expression = Ast.Convert(expression, returnLabel.Type);
}
}
return Ast.Return(returnLabel, expression);
}
internal MSA.Expression/*!*/ TransformStatements(MSA.Expression prologue, Statements/*!*/ statements, MSA.Expression epilogue,
ResultOperation resultOperation) {
Assert.NotNull(statements);
int count = statements.Count + (prologue != null ? 1 : 0) + (epilogue != null ? 1 : 0);
if (count == 0) {
if (resultOperation.IsIgnore) {
return AstUtils.Empty();
} else if (resultOperation.Variable != null) {
return Ast.Assign(resultOperation.Variable, AstUtils.Constant(null, resultOperation.Variable.Type));
} else {
return Ast.Return(CurrentFrame.ReturnLabel, AstUtils.Constant(null));
}
} else if (count == 1) {
if (prologue != null) {
return prologue;
}
if (epilogue != null) {
return epilogue;
}
if (resultOperation.IsIgnore) {
return statements.First.Transform(this);
} else {
return statements.First.TransformResult(this, resultOperation);
}
} else {
var result = new MSA.Expression[count + 1];
int resultIndex = 0;
if (prologue != null) {
result[resultIndex++] = prologue;
}
// transform all but the last statement if it is an expression stmt:
foreach (var statement in statements.AllButLast) {
result[resultIndex++] = statement.Transform(this);
}
if (statements.Count > 0) {
if (resultOperation.IsIgnore) {
result[resultIndex++] = statements.Last.Transform(this);
} else {
result[resultIndex++] = statements.Last.TransformResult(this, resultOperation);
}
}
if (epilogue != null) {
result[resultIndex++] = epilogue;
}
result[resultIndex++] = AstUtils.Empty();
Debug.Assert(resultIndex == result.Length);
return Ast.Block(new ReadOnlyCollection<MSA.Expression>(result));
}
}
public void EnterSourceUnit(
ScopeBuilder/*!*/ locals,
MSA.Expression/*!*/ selfParameter,
MSA.Expression/*!*/ runtimeScopeVariable,
MSA.Expression blockParameter,
MSA.Expression/*!*/ rfcVariable,
MSA.Expression currentMethodVariable,
string methodName,
Parameters parameters) {
Assert.NotNull(locals, selfParameter, runtimeScopeVariable, rfcVariable);
Debug.Assert(_currentElement == null && _currentLoop == null && _currentRescue == null &&
_currentVariableScope == null && _currentModule == null && _currentBlock == null && _currentMethod == null);
EnterMethodDefinition(
locals,
selfParameter,
runtimeScopeVariable,
blockParameter,
rfcVariable,
currentMethodVariable,
methodName,
parameters);
}
public void EnterMethodDefinition(
ScopeBuilder/*!*/ locals,
MSA.Expression/*!*/ selfParameter,
MSA.Expression/*!*/ runtimeScopeVariable,
MSA.Expression blockParameter,
MSA.Expression/*!*/ rfcVariable,
MSA.Expression currentMethodVariable,
string/*!*/ methodName,
Parameters parameters) {
Assert.NotNull(locals, selfParameter, runtimeScopeVariable, rfcVariable);
MethodScope method = new MethodScope(
locals,
selfParameter,
runtimeScopeVariable,
blockParameter,
rfcVariable,
currentMethodVariable,
methodName,
parameters
);
method.Parent = _currentElement;
method.ParentRescue = _currentRescue;
method.ParentLoop = _currentLoop;
method.ParentBlock = _currentBlock;
method.ParentVariableScope = _currentVariableScope;
method.ParentMethod = _currentMethod;
_currentElement = method;
_currentRescue = null;
_currentLoop = null;
_currentBlock = null;
_currentVariableScope = method;
_currentMethod = method;
}
public void EnterRescueClause(MSA.Expression/*!*/ retryingVariable, MSA.LabelTarget/*!*/ breakLabel, MSA.LabelTarget/*!*/ continueLabel) {
Assert.NotNull(retryingVariable, breakLabel, continueLabel);
RescueScope body = new RescueScope(retryingVariable, breakLabel, continueLabel);
body.Parent = _currentElement;
body.ParentRescue = _currentRescue;
_currentElement = _currentRescue = body;
}
public void EnterBlockDefinition(
ScopeBuilder/*!*/ locals,
MSA.Expression/*!*/ bfcVariable,
MSA.Expression/*!*/ selfVariable,
MSA.Expression/*!*/ runtimeScopeVariable,
MSA.LabelTarget/*!*/ redoLabel) {
Assert.NotNull(locals, bfcVariable, selfVariable);
Assert.NotNull(redoLabel);
BlockScope block = new BlockScope(locals, selfVariable, runtimeScopeVariable, bfcVariable, redoLabel);
block.Parent = _currentElement;
block.ParentRescue = _currentRescue;
block.ParentLoop = _currentLoop;
block.ParentBlock = _currentBlock;
block.ParentVariableScope = _currentVariableScope;
_currentElement = block;
_currentRescue = null;
_currentLoop = null;
_currentBlock = block;
_currentVariableScope = block;
}
internal MSA.Expression/*!*/ TransformToYield(AstGenerator/*!*/ gen, MSA.Expression/*!*/ bfcVariable, MSA.Expression/*!*/ selfExpression) {
var args = (_expressions != null) ? gen.TranformExpressions(_expressions) : new List<MSA.Expression>();
if (_maplets != null) {
args.Add(gen.TransformToHashConstructor(_maplets));
}
return AstFactory.YieldExpression(
args,
(_array != null) ? _array.TransformRead(gen) : null, // splatted argument
null, // rhs argument
bfcVariable,
selfExpression
);
}
public void EnterModuleDefinition(
ScopeBuilder/*!*/ locals,
MSA.Expression/*!*/ selfVariable,
MSA.Expression/*!*/ runtimeScopeVariable,
bool isSingleton) {
Assert.NotNull(locals, selfVariable, runtimeScopeVariable);
ModuleScope module = new ModuleScope(locals, selfVariable, runtimeScopeVariable, isSingleton);
module.Parent = _currentElement;
module.ParentVariableScope = _currentVariableScope;
module.ParentModule = _currentModule;
_currentElement = module;
_currentVariableScope = module;
_currentModule = module;
}
internal static MSA.Expression/*!*/ TransformRead(AstGenerator/*!*/ gen, List<MSA.Expression>/*!*/ rightValues,
MSA.Expression splattedValue, bool doSplat) {
Assert.NotNull(gen, rightValues);
MSA.Expression result;
// We need to distinguish various special cases here.
// For parallel assignment specification, see "Ruby Language.docx/Runtime/Parallel Assignment".
// R(0,*)?
bool rightNoneSplat = rightValues.Count == 0 && splattedValue != null;
// R(1,-)?
bool rightOneNone = rightValues.Count == 1 && splattedValue == null;
if (rightNoneSplat) {
result = (doSplat ? Methods.Splat : Methods.Unsplat).OpCall(AstFactory.Box(splattedValue));
} else if (rightOneNone && doSplat) {
result = rightValues[0];
} else {
result = Methods.MakeArrayOpCall(rightValues);
if (splattedValue != null) {
result = Methods.SplatAppend.OpCall(result, AstFactory.Box(splattedValue));
}
}
return result;
}
internal MSA.Expression/*!*/ TransformStatements(MSA.Expression prologue, Statements/*!*/ statements, ResultOperation resultOperation) {
return TransformStatements(prologue, statements, null, resultOperation);
}
public LoopScope(MSA.Expression/*!*/ redoVariable, MSA.Expression/*!*/ resultVariable, MSA.LabelTarget/*!*/ breakLabel, MSA.LabelTarget/*!*/ continueLabel) {
Assert.NotNull(redoVariable, resultVariable, breakLabel, continueLabel);
_redoVariable = redoVariable;
_resultVariable = resultVariable;
_breakLabel = breakLabel;
_continueLabel = continueLabel;
}
internal MSA.Expression/*!*/ AddReturnTarget(MSA.Expression/*!*/ expression) {
return CurrentFrame.AddReturnTarget(expression);
}
public RescueScope(MSA.Expression/*!*/ retryingVariable, MSA.LabelTarget/*!*/ breakLabel, MSA.LabelTarget/*!*/ continueLabel) {
Assert.NotNull(retryingVariable, breakLabel, continueLabel);
_retryingVariable = retryingVariable;
_breakLabel = breakLabel;
_continueLabel = continueLabel;
}
internal MSA.Expression/*!*/ AddDebugInfo(MSA.Expression/*!*/ expression, SourceSpan location) {
return Microsoft.Scripting.Ast.Utils.AddDebugInfo(expression, _document, location.Start, location.End);
}
public VariableScope(ScopeBuilder/*!*/ locals, MSA.Expression/*!*/ selfVariable, MSA.Expression/*!*/ runtimeScopeVariable) {
Assert.NotNull(selfVariable, runtimeScopeVariable);
_builder = locals;
_runtimeScopeVariable = runtimeScopeVariable;
_selfVariable = selfVariable;
}
internal virtual void TraceCallSite(Expression/*!*/ expression, MSA.DynamicExpression/*!*/ callSite) {
}
public FrameScope(ScopeBuilder/*!*/ builder, MSA.Expression/*!*/ selfVariable, MSA.Expression/*!*/ runtimeScopeVariable)
: base(builder, selfVariable, runtimeScopeVariable) {
_uniqueId = Interlocked.Increment(ref _UniqueId);
}
internal static MSA.Expression/*!*/ MakeCallWithBlockRetryable(AstGenerator/*!*/ gen, MSA.Expression/*!*/ invoke,
MSA.Expression blockArgVariable, MSA.Expression transformedBlock, bool isBlockDefinition) {
Assert.NotNull(invoke);
Debug.Assert((blockArgVariable == null) == (transformedBlock == null));
// see Ruby Language.doc/Control Flow Implementation/Method Call With a Block
MSA.Expression resultVariable = gen.CurrentScope.DefineHiddenVariable("#method-result", typeof(object));
MSA.ParameterExpression evalUnwinder = gen.CurrentScope.DefineHiddenVariable("#unwinder", typeof(EvalUnwinder));
MSA.LabelTarget retryLabel = Ast.Label("retry");
var result = AstFactory.Block(
Ast.Assign(blockArgVariable, Ast.Convert(transformedBlock, blockArgVariable.Type)),
Ast.Label(retryLabel),
(!isBlockDefinition) ?
(MSA.Expression)AstUtils.Empty() :
(MSA.Expression)Methods.InitializeBlock.OpCall(blockArgVariable),
AstUtils.Try(
Ast.Assign(resultVariable, invoke)
).Catch(evalUnwinder,
Ast.Assign(
resultVariable,
Ast.Field(evalUnwinder, EvalUnwinder.ReturnValueField)
)
),
// if result == RetrySingleton then
Ast.IfThen(Methods.IsRetrySingleton.OpCall(AstFactory.Box(resultVariable)),
// if blockParam == #block then retry end
(gen.CurrentMethod.BlockVariable != null) ?
AstUtils.IfThenElse(Ast.Equal(gen.CurrentMethod.BlockVariable, blockArgVariable),
RetryStatement.TransformRetry(gen),
Ast.Goto(retryLabel)
)
:
Ast.Goto(retryLabel)
),
resultVariable
);
return result;
}
internal MSA.Expression/*!*/ AddReturnTarget(MSA.Expression/*!*/ expression) {
if (expression.Type != typeof(object)) {
expression = AstFactory.Box(expression);
}
if (_returnLabel != null) {
expression = Ast.Label(_returnLabel, expression);
_returnLabel = null;
}
return expression;
}
/// <summary>
/// Constructs an HL7 segment for the specified Segments enum object
/// </summary>
/// <param name="seg">The Segments enum object to construct for</param>
public Segment(Segments seg)
{
switch (seg)
{
case Segments.ABS:
ABS abs = new ABS();
Name = abs.Name;
Description = abs.Description;
Fields = abs.Fields;
break;
case Segments.ACC:
ACC acc = new ACC();
Name = acc.Name;
Description = acc.Description;
Fields = acc.Fields;
break;
case Segments.ADD:
ADD add = new ADD();
Name = add.Name;
Description = add.Description;
Fields = add.Fields;
break;
case Segments.AFF:
AFF aff = new AFF();
Name = aff.Name;
Description = aff.Description;
Fields = aff.Fields;
break;
case Segments.AIG:
AIG aig = new AIG();
Name = aig.Name;
Description = aig.Description;
Fields = aig.Fields;
break;
case Segments.AIL:
AIL ail = new AIL();
Name = ail.Name;
Description = ail.Description;
Fields = ail.Fields;
break;
case Segments.AIP:
AIP aip = new AIP();
Name = aip.Name;
Description = aip.Description;
Fields = aip.Fields;
break;
case Segments.AIS:
AIS ais = new AIS();
Name = ais.Name;
Description = ais.Description;
Fields = ais.Fields;
break;
case Segments.AL1:
AL1 al1 = new AL1();
Name = al1.Name;
Description = al1.Description;
Fields = al1.Fields;
break;
case Segments.APR:
APR apr = new APR();
Name = apr.Name;
Description = apr.Description;
Fields = apr.Fields;
break;
case Segments.ARQ:
ARQ arq = new ARQ();
Name = arq.Name;
Description = arq.Description;
Fields = arq.Fields;
break;
case Segments.AUT:
AUT aut = new AUT();
Name = aut.Name;
Description = aut.Description;
Fields = aut.Fields;
break;
case Segments.BHS:
BHS bhs = new BHS();
Name = bhs.Name;
Description = bhs.Description;
Fields = bhs.Fields;
break;
case Segments.BLC:
BLC blc = new BLC();
Name = blc.Name;
Description = blc.Description;
Fields = blc.Fields;
break;
case Segments.BLG:
BLG blg = new BLG();
Name = blg.Name;
Description = blg.Description;
Fields = blg.Fields;
break;
case Segments.BPO:
BPO bpo = new BPO();
Name = bpo.Name;
Description = bpo.Description;
Fields = bpo.Fields;
break;
case Segments.BPX:
BPX bpx = new BPX();
Name = bpx.Name;
Description = bpx.Description;
Fields = bpx.Fields;
break;
case Segments.BTS:
BTS bts = new BTS();
Name = bts.Name;
Description = bts.Description;
Fields = bts.Fields;
break;
case Segments.BTX:
BTX btx = new BTX();
Name = btx.Name;
Description = btx.Description;
Fields = btx.Fields;
break;
case Segments.CDM:
CDM cdm = new CDM();
Name = cdm.Name;
Description = cdm.Description;
Fields = cdm.Fields;
break;
case Segments.CER:
CER cer = new CER();
Name = cer.Name;
Description = cer.Description;
Fields = cer.Fields;
break;
case Segments.CM0:
CM0 cm0 = new CM0();
Name = cm0.Name;
Description = cm0.Description;
Fields = cm0.Fields;
break;
case Segments.CM1:
CM1 cm1 = new CM1();
Name = cm1.Name;
Description = cm1.Description;
Fields = cm1.Fields;
break;
case Segments.CM2:
CM2 cm2 = new CM2();
Name = cm2.Name;
Description = cm2.Description;
Fields = cm2.Fields;
break;
case Segments.CNS:
CNS cns = new CNS();
Name = cns.Name;
Description = cns.Description;
Fields = cns.Fields;
break;
case Segments.CON:
CON con = new CON();
Name = con.Name;
Description = con.Description;
Fields = con.Fields;
break;
case Segments.CSP:
CSP csp = new CSP();
Name = csp.Name;
Description = csp.Description;
Fields = csp.Fields;
break;
case Segments.CSR:
CSR csr = new CSR();
Name = csr.Name;
Description = csr.Description;
Fields = csr.Fields;
break;
case Segments.CSS:
CSS css = new CSS();
Name = css.Name;
Description = css.Description;
Fields = css.Fields;
break;
case Segments.CTD:
CTD ctd = new CTD();
Name = ctd.Name;
Description = ctd.Description;
Fields = ctd.Fields;
break;
case Segments.CTI:
CTI cti = new CTI();
Name = cti.Name;
Description = cti.Description;
Fields = cti.Fields;
break;
case Segments.DB1:
DB1 db1 = new DB1();
Name = db1.Name;
Description = db1.Description;
Fields = db1.Fields;
break;
case Segments.DG1:
DG1 dg1 = new DG1();
Name = dg1.Name;
Description = dg1.Description;
Fields = dg1.Fields;
break;
case Segments.DRG:
DRG drg = new DRG();
Name = drg.Name;
Description = drg.Description;
Fields = drg.Fields;
break;
case Segments.DSC:
DSC dsc = new DSC();
Name = dsc.Name;
Description = dsc.Description;
Fields = dsc.Fields;
break;
case Segments.DSP:
DSP dsp = new DSP();
Name = dsp.Name;
Description = dsp.Description;
Fields = dsp.Fields;
break;
case Segments.ECD:
ECD ecd = new ECD();
Name = ecd.Name;
Description = ecd.Description;
Fields = ecd.Fields;
break;
case Segments.ECR:
ECR ecr = new ECR();
Name = ecr.Name;
Description = ecr.Description;
Fields = ecr.Fields;
break;
case Segments.EDU:
EDU edu = new EDU();
Name = edu.Name;
Description = edu.Description;
Fields = edu.Fields;
break;
case Segments.EQL:
EQL eql = new EQL();
Name = eql.Name;
Description = eql.Description;
Fields = eql.Fields;
break;
case Segments.EQP:
EQP eqp = new EQP();
Name = eqp.Name;
Description = eqp.Description;
Fields = eqp.Fields;
break;
case Segments.EQU:
EQU equ = new EQU();
Name = equ.Name;
Description = equ.Description;
Fields = equ.Fields;
break;
case Segments.ERQ:
ERQ erq = new ERQ();
Name = erq.Name;
Description = erq.Description;
Fields = erq.Fields;
break;
case Segments.ERR:
ERR err = new ERR();
Name = err.Name;
Description = err.Description;
Fields = err.Fields;
break;
case Segments.EVN:
EVN evn = new EVN();
Name = evn.Name;
Description = evn.Description;
Fields = evn.Fields;
break;
case Segments.FAC:
FAC fac = new FAC();
Name = fac.Name;
Description = fac.Description;
Fields = fac.Fields;
break;
case Segments.FHS:
FHS fhs = new FHS();
Name = fhs.Name;
Description = fhs.Description;
Fields = fhs.Fields;
break;
case Segments.FT1:
FT1 ft1 = new FT1();
Name = ft1.Name;
Description = ft1.Description;
Fields = ft1.Fields;
break;
case Segments.FTS:
FTS fts = new FTS();
Name = fts.Name;
Description = fts.Description;
Fields = fts.Fields;
break;
case Segments.GOL:
GOL gol = new GOL();
Name = gol.Name;
Description = gol.Description;
Fields = gol.Fields;
break;
case Segments.GP1:
GP1 gp1 = new GP1();
Name = gp1.Name;
Description = gp1.Description;
Fields = gp1.Fields;
break;
case Segments.GP2:
GP2 gp2 = new GP2();
Name = gp2.Name;
Description = gp2.Description;
Fields = gp2.Fields;
break;
case Segments.GT1:
GT1 gt1 = new GT1();
Name = gt1.Name;
Description = gt1.Description;
Fields = gt1.Fields;
break;
case Segments.IAM:
IAM iam = new IAM();
Name = iam.Name;
Description = iam.Description;
Fields = iam.Fields;
break;
case Segments.IIM:
IIM iim = new IIM();
Name = iim.Name;
Description = iim.Description;
Fields = iim.Fields;
break;
case Segments.IN1:
IN1 in1 = new IN1();
Name = in1.Name;
Description = in1.Description;
Fields = in1.Fields;
break;
case Segments.IN2:
IN2 in2 = new IN2();
Name = in2.Name;
Description = in2.Description;
Fields = in2.Fields;
break;
case Segments.IN3:
IN3 in3 = new IN3();
Name = in3.Name;
Description = in3.Description;
Fields = in3.Fields;
break;
case Segments.INV:
INV inv = new INV();
Name = inv.Name;
Description = inv.Description;
Fields = inv.Fields;
break;
case Segments.IPC:
IPC ipc = new IPC();
Name = ipc.Name;
Description = ipc.Description;
Fields = ipc.Fields;
break;
case Segments.ISD:
ISD isd = new ISD();
Name = isd.Name;
Description = isd.Description;
Fields = isd.Fields;
break;
case Segments.LAN:
LAN lan = new LAN();
Name = lan.Name;
Description = lan.Description;
Fields = lan.Fields;
break;
case Segments.LCC:
LCC lcc = new LCC();
Name = lcc.Name;
Description = lcc.Description;
Fields = lcc.Fields;
break;
case Segments.LCH:
LCH lch = new LCH();
Name = lch.Name;
Description = lch.Description;
Fields = lch.Fields;
break;
case Segments.LDP:
LDP ldp = new LDP();
Name = ldp.Name;
Description = ldp.Description;
Fields = ldp.Fields;
break;
case Segments.LOC:
LOC loc = new LOC();
Name = loc.Name;
Description = loc.Description;
Fields = loc.Fields;
break;
case Segments.LRL:
LRL lrl = new LRL();
Name = lrl.Name;
Description = lrl.Description;
Fields = lrl.Fields;
break;
case Segments.MFA:
MFA mfa = new MFA();
Name = mfa.Name;
Description = mfa.Description;
Fields = mfa.Fields;
break;
case Segments.MFE:
MFE mfe = new MFE();
Name = mfe.Name;
Description = mfe.Description;
Fields = mfe.Fields;
break;
case Segments.MFI:
MFI mfi = new MFI();
Name = mfi.Name;
Description = mfi.Description;
Fields = mfi.Fields;
break;
case Segments.MRG:
MRG mrg = new MRG();
Name = mrg.Name;
Description = mrg.Description;
Fields = mrg.Fields;
break;
case Segments.MSA:
MSA msa = new MSA();
Name = msa.Name;
Description = msa.Description;
Fields = msa.Fields;
break;
case Segments.MSH:
MSH msh = new MSH();
Name = msh.Name;
Description = msh.Description;
Fields = msh.Fields;
break;
case Segments.NCK:
NCK nck = new NCK();
Name = nck.Name;
Description = nck.Description;
Fields = nck.Fields;
break;
case Segments.NDS:
NDS nds = new NDS();
Name = nds.Name;
Description = nds.Description;
Fields = nds.Fields;
break;
case Segments.NK1:
NK1 nk1 = new NK1();
Name = nk1.Name;
Description = nk1.Description;
Fields = nk1.Fields;
break;
case Segments.NPU:
NPU npu = new NPU();
Name = npu.Name;
Description = npu.Description;
Fields = npu.Fields;
break;
case Segments.NSC:
NSC nsc = new NSC();
Name = nsc.Name;
Description = nsc.Description;
Fields = nsc.Fields;
break;
case Segments.NST:
NST nst = new NST();
Name = nst.Name;
Description = nst.Description;
Fields = nst.Fields;
break;
case Segments.NTE:
NTE nte = new NTE();
Name = nte.Name;
Description = nte.Description;
Fields = nte.Fields;
break;
case Segments.OBR:
OBR obr = new OBR();
Name = obr.Name;
Description = obr.Description;
Fields = obr.Fields;
break;
case Segments.OBX:
OBX obx = new OBX();
Name = obx.Name;
Description = obx.Description;
Fields = obx.Fields;
break;
case Segments.ODS:
ODS ods = new ODS();
Name = ods.Name;
Description = ods.Description;
Fields = ods.Fields;
break;
case Segments.ODT:
ODT odt = new ODT();
Name = odt.Name;
Description = odt.Description;
Fields = odt.Fields;
break;
case Segments.OM1:
OM1 om1 = new OM1();
Name = om1.Name;
Description = om1.Description;
Fields = om1.Fields;
break;
case Segments.OM2:
OM2 om2 = new OM2();
Name = om2.Name;
Description = om2.Description;
Fields = om2.Fields;
break;
case Segments.OM3:
OM3 om3 = new OM3();
Name = om3.Name;
Description = om3.Description;
Fields = om3.Fields;
break;
case Segments.OM4:
OM4 om4 = new OM4();
Name = om4.Name;
Description = om4.Description;
Fields = om4.Fields;
break;
case Segments.OM5:
OM5 om5 = new OM5();
Name = om5.Name;
Description = om5.Description;
Fields = om5.Fields;
break;
case Segments.OM6:
OM6 om6 = new OM6();
Name = om6.Name;
Description = om6.Description;
Fields = om6.Fields;
break;
case Segments.OM7:
OM7 om7 = new OM7();
Name = om7.Name;
Description = om7.Description;
Fields = om7.Fields;
break;
case Segments.ORC:
ORC orc = new ORC();
Name = orc.Name;
Description = orc.Description;
Fields = orc.Fields;
break;
case Segments.ORG:
ORG org = new ORG();
Name = org.Name;
Description = org.Description;
Fields = org.Fields;
break;
case Segments.OVR:
OVR ovr = new OVR();
Name = ovr.Name;
Description = ovr.Description;
Fields = ovr.Fields;
break;
case Segments.PCR:
PCR pcr = new PCR();
Name = pcr.Name;
Description = pcr.Description;
Fields = pcr.Fields;
break;
case Segments.PD1:
PD1 pd1 = new PD1();
Name = pd1.Name;
Description = pd1.Description;
Fields = pd1.Fields;
break;
case Segments.PDA:
PDA pda = new PDA();
Name = pda.Name;
Description = pda.Description;
Fields = pda.Fields;
break;
case Segments.PDC:
PDC pdc = new PDC();
Name = pdc.Name;
Description = pdc.Description;
Fields = pdc.Fields;
break;
case Segments.PEO:
PEO peo = new PEO();
Name = peo.Name;
Description = peo.Description;
Fields = peo.Fields;
break;
case Segments.PES:
PES pes = new PES();
Name = pes.Name;
Description = pes.Description;
Fields = pes.Fields;
break;
case Segments.PID:
PID pid = new PID();
Name = pid.Name;
Description = pid.Description;
Fields = pid.Fields;
break;
case Segments.PR1:
PR1 pr1 = new PR1();
Name = pr1.Name;
Description = pr1.Description;
Fields = pr1.Fields;
break;
case Segments.PRA:
PRA pra = new PRA();
Name = pra.Name;
Description = pra.Description;
Fields = pra.Fields;
break;
case Segments.PRB:
PRB prb = new PRB();
Name = prb.Name;
Description = prb.Description;
Fields = prb.Fields;
break;
case Segments.PRC:
PRC prc = new PRC();
Name = prc.Name;
Description = prc.Description;
Fields = prc.Fields;
break;
case Segments.PRD:
PRD prd = new PRD();
Name = prd.Name;
Description = prd.Description;
Fields = prd.Fields;
break;
case Segments.PSH:
PSH psh = new PSH();
Name = psh.Name;
Description = psh.Description;
Fields = psh.Fields;
break;
case Segments.PTH:
PTH pth = new PTH();
Name = pth.Name;
Description = pth.Description;
Fields = pth.Fields;
break;
case Segments.PV1:
PV1 pv1 = new PV1();
Name = pv1.Name;
Description = pv1.Description;
Fields = pv1.Fields;
break;
case Segments.PV2:
PV2 pv2 = new PV2();
Name = pv2.Name;
Description = pv2.Description;
Fields = pv2.Fields;
break;
case Segments.QAK:
QAK qak = new QAK();
Name = qak.Name;
Description = qak.Description;
Fields = qak.Fields;
break;
case Segments.QID:
QID qid = new QID();
Name = qid.Name;
Description = qid.Description;
Fields = qid.Fields;
break;
case Segments.QPD:
QPD qpd = new QPD();
Name = qpd.Name;
Description = qpd.Description;
Fields = qpd.Fields;
break;
case Segments.QRD:
QRD qrd = new QRD();
Name = qrd.Name;
Description = qrd.Description;
Fields = qrd.Fields;
break;
case Segments.QRF:
QRF qrf = new QRF();
Name = qrf.Name;
Description = qrf.Description;
Fields = qrf.Fields;
break;
case Segments.QRI:
QRI qri = new QRI();
Name = qri.Name;
Description = qri.Description;
Fields = qri.Fields;
break;
case Segments.RCP:
RCP rcp = new RCP();
Name = rcp.Name;
Description = rcp.Description;
Fields = rcp.Fields;
break;
case Segments.RDF:
RDF rdf = new RDF();
Name = rdf.Name;
Description = rdf.Description;
Fields = rdf.Fields;
break;
case Segments.RF1:
RF1 rf1 = new RF1();
Name = rf1.Name;
Description = rf1.Description;
Fields = rf1.Fields;
break;
case Segments.RGS:
RGS rgs = new RGS();
Name = rgs.Name;
Description = rgs.Description;
Fields = rgs.Fields;
break;
case Segments.RMI:
RMI rmi = new RMI();
Name = rmi.Name;
Description = rmi.Description;
Fields = rmi.Fields;
break;
case Segments.ROL:
ROL rol = new ROL();
Name = rol.Name;
Description = rol.Description;
Fields = rol.Fields;
break;
case Segments.RQ1:
RQ1 rq1 = new RQ1();
Name = rq1.Name;
Description = rq1.Description;
Fields = rq1.Fields;
break;
case Segments.RQD:
RQD rqd = new RQD();
Name = rqd.Name;
Description = rqd.Description;
Fields = rqd.Fields;
break;
case Segments.RXA:
RXA rxa = new RXA();
Name = rxa.Name;
Description = rxa.Description;
Fields = rxa.Fields;
break;
case Segments.RXC:
RXC rxc = new RXC();
Name = rxc.Name;
Description = rxc.Description;
Fields = rxc.Fields;
break;
case Segments.RXD:
RXD rxd = new RXD();
Name = rxd.Name;
Description = rxd.Description;
Fields = rxd.Fields;
break;
case Segments.RXE:
RXE rxe = new RXE();
Name = rxe.Name;
Description = rxe.Description;
Fields = rxe.Fields;
break;
case Segments.RXG:
RXG rxg = new RXG();
Name = rxg.Name;
Description = rxg.Description;
Fields = rxg.Fields;
break;
case Segments.RXO:
RXO rxo = new RXO();
Name = rxo.Name;
Description = rxo.Description;
Fields = rxo.Fields;
break;
case Segments.RXR:
RXR rxr = new RXR();
Name = rxr.Name;
Description = rxr.Description;
Fields = rxr.Fields;
break;
case Segments.SAC:
SAC sac = new SAC();
Name = sac.Name;
Description = sac.Description;
Fields = sac.Fields;
break;
case Segments.SCH:
SCH sch = new SCH();
Name = sch.Name;
Description = sch.Description;
Fields = sch.Fields;
break;
case Segments.SFT:
SFT sft = new SFT();
Name = sft.Name;
Description = sft.Description;
Fields = sft.Fields;
break;
case Segments.SID:
SID sid = new SID();
Name = sid.Name;
Description = sid.Description;
Fields = sid.Fields;
break;
case Segments.SPM:
SPM spm = new SPM();
Name = spm.Name;
Description = spm.Description;
Fields = spm.Fields;
break;
case Segments.SPR:
SPR spr = new SPR();
Name = spr.Name;
Description = spr.Description;
Fields = spr.Fields;
break;
case Segments.STF:
STF stf = new STF();
Name = stf.Name;
Description = stf.Description;
Fields = stf.Fields;
break;
case Segments.TCC:
TCC tcc = new TCC();
Name = tcc.Name;
Description = tcc.Description;
Fields = tcc.Fields;
break;
case Segments.TCD:
TCD tcd = new TCD();
Name = tcd.Name;
Description = tcd.Description;
Fields = tcd.Fields;
break;
case Segments.TQ1:
TQ1 tq1 = new TQ1();
Name = tq1.Name;
Description = tq1.Description;
Fields = tq1.Fields;
break;
case Segments.TQ2:
TQ2 tq2 = new TQ2();
Name = tq2.Name;
Description = tq2.Description;
Fields = tq2.Fields;
break;
case Segments.TXA:
TXA txa = new TXA();
Name = txa.Name;
Description = txa.Description;
Fields = txa.Fields;
break;
case Segments.UB1:
UB1 ub1 = new UB1();
Name = ub1.Name;
Description = ub1.Description;
Fields = ub1.Fields;
break;
case Segments.UB2:
UB2 ub2 = new UB2();
Name = ub2.Name;
Description = ub2.Description;
Fields = ub2.Fields;
break;
case Segments.URD:
URD urd = new URD();
Name = urd.Name;
Description = urd.Description;
Fields = urd.Fields;
break;
case Segments.URS:
URS urs = new URS();
Name = urs.Name;
Description = urs.Description;
Fields = urs.Fields;
break;
case Segments.VAR:
VAR var = new VAR();
Name = var.Name;
Description = var.Description;
Fields = var.Fields;
break;
case Segments.VTQ:
VTQ vtq = new VTQ();
Name = vtq.Name;
Description = vtq.Description;
Fields = vtq.Fields;
break;
}
}
public BlockScope(ScopeBuilder/*!*/ builder, MSA.Expression/*!*/ selfVariable, MSA.Expression/*!*/ runtimeScopeVariable,
MSA.Expression/*!*/ bfcVariable, MSA.LabelTarget/*!*/ redoLabel)
: base(builder, selfVariable, runtimeScopeVariable) {
Assert.NotNull(bfcVariable, redoLabel);
_bfcVariable = bfcVariable;
_redoLabel = redoLabel;
}
