From 61ec58f9ff5a00fa6234f144593c719ba15eca09 Mon Sep 17 00:00:00 2001 From: Grahame Grieve Date: Tue, 24 Sep 2024 19:18:44 -0400 Subject: [PATCH 1/8] more performance / validation time out issues --- library/fhir/fhir_tx.pas | 41 +++++++++++++++++++++------------- library/ftx/fhir_valuesets.pas | 3 ++- 2 files changed, 27 insertions(+), 17 deletions(-) diff --git a/library/fhir/fhir_tx.pas b/library/fhir/fhir_tx.pas index aeba98516..b95ea404c 100644 --- a/library/fhir/fhir_tx.pas +++ b/library/fhir/fhir_tx.pas @@ -27,12 +27,12 @@ TTerminologyOperationContext = class (TFslObject) FContexts : TStringList; FLangList : THTTPLanguageList; FI18n : TI18nSupport; - FDeadTime : Cardinal; + FTimeLimit : Cardinal; FNotes : TStringList; FOwnsNotes : boolean; FOnGetCurrentRequestCount: TGetCurrentRequestCountEvent; public - constructor Create(i18n : TI18nSupport; id : String; langList : THTTPLanguageList; deadTime : cardinal; getRequestCount : TGetCurrentRequestCountEvent); + constructor Create(i18n : TI18nSupport; id : String; langList : THTTPLanguageList; timeLimit : cardinal; getRequestCount : TGetCurrentRequestCountEvent); destructor Destroy; override; property reqId : String read FId; @@ -246,7 +246,7 @@ implementation { TTerminologyOperationContext } -constructor TTerminologyOperationContext.Create(i18n: TI18nSupport; id : String; langList : THTTPLanguageList; deadTime : cardinal; getRequestCount : TGetCurrentRequestCountEvent); +constructor TTerminologyOperationContext.Create(i18n: TI18nSupport; id : String; langList : THTTPLanguageList; timeLimit : cardinal; getRequestCount : TGetCurrentRequestCountEvent); begin inherited create; FI18n := i18n; @@ -255,7 +255,7 @@ constructor TTerminologyOperationContext.Create(i18n: TI18nSupport; id : String; FContexts := TStringList.create; FStartTime := GetTickCount64; FOnGetCurrentRequestCount := getRequestCount; - FDeadTime := deadTime; + FTimeLimit := timeLimit; FNotes := TStringList.create; FOwnsNotes := true; end; @@ -272,7 +272,7 @@ destructor TTerminologyOperationContext.Destroy; function TTerminologyOperationContext.copy: TTerminologyOperationContext; begin - result := TTerminologyOperationContext.create(FI18n.link, FId, FLangList.link, FDeadTime, OnGetCurrentRequestCount); + result := TTerminologyOperationContext.create(FI18n.link, FId, FLangList.link, FTimeLimit, OnGetCurrentRequestCount); result.FContexts.assign(FContexts); result.FStartTime := FStartTime; result.FNotes.free; @@ -282,19 +282,27 @@ function TTerminologyOperationContext.copy: TTerminologyOperationContext; function TTerminologyOperationContext.deadCheck(var time : integer): boolean; var - dt : UInt64; + timeToDie : UInt64; rq : integer; begin - time := FDeadTime; - if UnderDebugger then - exit(false); + time := FTimeLimit; + //if UnderDebugger then + // exit(false); - // once timelimit is hit, living on borrowed time until request counts build - if assigned(OnGetCurrentRequestCount) and (OnGetCurrentRequestCount > 10) then - time := time * 5; - - dt := FStartTime + (time * 1000); - result := GetTickCount64 > dt; + timeToDie := FStartTime + (time * 1000); + if (GetTickCount64 > timeToDie) then + exit(true) + else + begin + if assigned(OnGetCurrentRequestCount) and (OnGetCurrentRequestCount < 10) then + begin + // once timelimit is hit, living on borrowed time until request counts build + time := time + (time div 2); + // but we only give it so much time + end; + timeToDie := FStartTime + (time * 1000); + result := GetTickCount64 > timeToDie; + end; end; procedure TTerminologyOperationContext.seeContext(vurl: String); @@ -322,7 +330,7 @@ procedure TTerminologyOperationContext.addNote(vs : TFHIRValueSetW; note: String s : string; begin s := DescribePeriodMS(GetTickCount64 - FStartTime)+' '+vs.vurl+': '+note; - if UnderDebugger then + if false and UnderDebugger then Logging.log(s); FNotes.add(s); end; @@ -542,6 +550,7 @@ procedure TTerminologyWorker.deadCheck(place: String); if FOpContext.deadCheck(time) then begin FOpContext.addNote(vsHandle, 'Operation took too long @ '+place+' ('+className+')'); + Logging.log('Operation took too long @ '+place+' ('+className+')'); raise costDiags(ETooCostly.create(FI18n.translate('VALUESET_TOO_COSTLY_TIME', FParams.HTTPlanguages, ['??', inttostr(time), opName]))); end; end; diff --git a/library/ftx/fhir_valuesets.pas b/library/ftx/fhir_valuesets.pas index 38043aa8b..a7310ca97 100644 --- a/library/ftx/fhir_valuesets.pas +++ b/library/ftx/fhir_valuesets.pas @@ -48,7 +48,7 @@ interface FHIR_VERSION_CANONICAL_SPLIT_3p = '|'; EXPANSION_DEAD_TIME_SECS = 30; - VALIDATION_DEAD_TIME_SECS = 30; + VALIDATION_DEAD_TIME_SECS = 60; Type @@ -2569,6 +2569,7 @@ function TFHIRValueSetExpander.expand(source: TFHIRValueSetW; if (offset + count < 0) and (FFullList.count > limit) then begin + Logging.log('Operation took too long @ expand ('+className+')'); raise costDiags(ETooCostly.create(FI18n.translate('VALUESET_TOO_COSTLY_COUNT', FParams.HTTPLanguages, [source.vurl, '>'+inttostr(limit), inttostr(FFullList.count)]))); end else From 7eb4411f081e1a244f586f302e27751a822806dc Mon Sep 17 00:00:00 2001 From: Grahame Grieve Date: Wed, 25 Sep 2024 00:14:59 +0000 Subject: [PATCH 2/8] Release Version 3.4.17 --- install/install-tk.iss | 8 ++++---- install/install.iss | 8 ++++---- library/version.inc | 4 ++-- server/fhirconsole.lpi | 2 +- server/fhirserver.dproj | 4 ++-- server/fhirserver.lpi | 2 +- toolkit2/fhirtoolkit.lpi | 2 +- 7 files changed, 15 insertions(+), 15 deletions(-) diff --git a/install/install-tk.iss b/install/install-tk.iss index c8c479fdd..765a054ca 100644 --- a/install/install-tk.iss +++ b/install/install-tk.iss @@ -3,11 +3,11 @@ ; AppID can never be changed as subsequent installations require the same installation ID each time AppID=FHIRToolkit AppName=Health Intersections FHIR Toolkit -AppVerName=FHIRToolkit v3.4.16 +AppVerName=FHIRToolkit v3.4.17 ; compilation control OutputDir=..\install\build -OutputBaseFilename=fhirtoolkit-win64-3.4.16 +OutputBaseFilename=fhirtoolkit-win64-3.4.17 Compression=lzma2/ultra64 ; 64 bit @@ -32,11 +32,11 @@ UninstallFilesDir={app}\uninstall ; win2000+ add/remove programs support AppPublisher=Health Intersections P/L AppPublisherURL=http://www.healthintersections.com.au -AppVersion=3.4.16 +AppVersion=3.4.17 AppSupportURL=https://github.com/grahamegrieve/fhirserver AppUpdatesURL=https://github.com/grahamegrieve/fhirserver AppCopyright=Copyright (c) Health Intersections Pty Ltd 2020+ -VersionInfoVersion=3.4.16.0 +VersionInfoVersion=3.4.17.0 ; dialog support LicenseFile=..\license diff --git a/install/install.iss b/install/install.iss index d483afccc..9b3da8491 100644 --- a/install/install.iss +++ b/install/install.iss @@ -3,11 +3,11 @@ ; AppID can never be changed as subsequent installations require the same installation ID each time AppID=FHIRServer AppName=Health Intersections FHIR Server -AppVerName=FHIRServer v3.4.16 +AppVerName=FHIRServer v3.4.17 ; compilation control OutputDir=..\install\build -OutputBaseFilename=fhirserver-win64-3.4.16 +OutputBaseFilename=fhirserver-win64-3.4.17 Compression=lzma2/ultra64 ; 64 bit @@ -34,11 +34,11 @@ UninstallFilesDir={app}\uninstall ; win2000+ add/remove programs support AppPublisher=Health Intersections P/L AppPublisherURL=http://www.healthintersections.com.au -AppVersion=3.4.16 +AppVersion=3.4.17 AppSupportURL=https://github.com/grahamegrieve/fhirserver AppUpdatesURL=https://github.com/grahamegrieve/fhirserver AppCopyright=Copyright (c) Health Intersections Pty Ltd 2011+ -VersionInfoVersion=3.4.16.0 +VersionInfoVersion=3.4.17.0 ; dialog support LicenseFile=..\license diff --git a/library/version.inc b/library/version.inc index 2c1f724e5..8ead2d1c3 100644 --- a/library/version.inc +++ b/library/version.inc @@ -1,3 +1,3 @@ - FHIR_CODE_FULL_VERSION = '3.4.16'; + FHIR_CODE_FULL_VERSION = '3.4.17'; FHIR_CODE_RELEASE_DATE = '2024-09-24'; - FHIR_CODE_RELEASE_DATETIME = '20240924134816.648Z'; + FHIR_CODE_RELEASE_DATETIME = '20240924233608.228Z'; diff --git a/server/fhirconsole.lpi b/server/fhirconsole.lpi index 7fb468742..fef0803d3 100644 --- a/server/fhirconsole.lpi +++ b/server/fhirconsole.lpi @@ -18,7 +18,7 @@ - + diff --git a/server/fhirserver.dproj b/server/fhirserver.dproj index c3e3e02f6..d0534c6d2 100644 --- a/server/fhirserver.dproj +++ b/server/fhirserver.dproj @@ -92,7 +92,7 @@ true 3 4 - 16 + 17 false @@ -167,7 +167,7 @@ true false 3 - 16 + 17 none 4 false diff --git a/server/fhirserver.lpi b/server/fhirserver.lpi index 757ffdbde..2b808fe4a 100644 --- a/server/fhirserver.lpi +++ b/server/fhirserver.lpi @@ -19,7 +19,7 @@ - + diff --git a/toolkit2/fhirtoolkit.lpi b/toolkit2/fhirtoolkit.lpi index 1a768c9ca..04cd738de 100644 --- a/toolkit2/fhirtoolkit.lpi +++ b/toolkit2/fhirtoolkit.lpi @@ -17,7 +17,7 @@ - + From 9e88e0361117ac4c93338a6a5ffa169a067eb7b0 Mon Sep 17 00:00:00 2001 From: Grahame Grieve Date: Wed, 25 Sep 2024 13:05:23 -0400 Subject: [PATCH 3/8] Support multiple displays in Languages --- library/fsl/fsl_lang.pas | 67 +++++++++++++++++++++++++++++----------- library/ftx/ftx_lang.pas | 14 +++++++-- 2 files changed, 61 insertions(+), 20 deletions(-) diff --git a/library/fsl/fsl_lang.pas b/library/fsl/fsl_lang.pas index 873b72d80..beb9d9cd6 100644 --- a/library/fsl/fsl_lang.pas +++ b/library/fsl/fsl_lang.pas @@ -139,13 +139,18 @@ TIETFLang = class (TFslObject) function isLangRegion : boolean; end; + { TIETFLanguageEntry } + TIETFLanguageEntry = class (TFslObject) private FCode: String; - FDisplay: String; + FDisplays: TStringList; public + constructor Create; override; + destructor Destroy; override; + property code : String read FCode write FCode; - property display : String read FDisplay write FDisplay; + property displays : TStringList read FDisplays; end; TIETFLanguageLanguage = class (TIETFLanguageEntry) @@ -205,8 +210,9 @@ TIETFLanguageDefinitions = class (TFslObject) class function checkSource(source : String) : String; function parse(code : String; var msg : String) : TIETFLang; overload; function parse(code : String) : TIETFLang; overload; - function present(code : TIETFLang) : String; overload; - function present(code : TIETFLang; template : String) : String; overload; + function present(code : TIETFLang; i : integer = 0) : String; overload; + function present(code : TIETFLang; i : integer; template : String) : String; overload; + function displayCount(code : TIETFLang) : integer; function getDisplayForRegion(code : String):String; function getDisplayForLang(code : String):String; @@ -604,6 +610,21 @@ function TIETFLang.matches(other: TIETFLang): boolean; exit(FLanguage = other.FLanguage); end; +{ TIETFLanguageEntry } + +constructor TIETFLanguageEntry.Create; +begin + inherited Create; + FDisplays := TStringList.create; + FDisplays.Delimiter := '|'; +end; + +destructor TIETFLanguageEntry.Destroy; +begin + FDisplays.free; + inherited Destroy; +end; + { TIETFLanguageDefinitions } constructor TIETFLanguageDefinitions.Create(source : String); @@ -744,12 +765,17 @@ function TIETFLanguageDefinitions.parse(code: String): TIETFLang; result := parse(code, m); end; -function TIETFLanguageDefinitions.present(code: TIETFLang; template: String): String; +function TIETFLanguageDefinitions.present(code: TIETFLang; i : integer; template: String): String; begin - result := template.Replace('{{lang}}', FLanguages[code.language].display).Replace('{{region}}', FRegions[code.region].display); + result := template.Replace('{{lang}}', FLanguages[code.language].displays[i]).Replace('{{region}}', FRegions[code.region].displays[0]); end; -function TIETFLanguageDefinitions.present(code: TIETFLang): String; +function TIETFLanguageDefinitions.displayCount(code: TIETFLang): integer; +begin + result := FLanguages[code.language].displays.Count; +end; + +function TIETFLanguageDefinitions.present(code: TIETFLang; i : integer = 0): String; var b : TFslStringBuilder; first : boolean; @@ -770,17 +796,17 @@ function TIETFLanguageDefinitions.present(code: TIETFLang): String; begin b := TFslStringBuilder.Create; try - b.append(FLanguages[code.language].display); + b.append(FLanguages[code.language].displays[i]); if (code.region <> '') or (code.script <> '') or (code.variant <> '') then begin b.Append(' ('); first := true; if (code.script <> '') then - note('Script', FScripts[code.script].display); + note('Script', FScripts[code.script].displays[0]); if (code.region <> '') then - note('Region', FRegions[code.region].display); + note('Region', FRegions[code.region].displays[0]); if (code.variant <> '') then - note('Variant', FVariants[code.variant].display); + note('Variant', FVariants[code.variant].displays[0]); b.Append(')'); end; @@ -801,8 +827,12 @@ function TIETFLanguageDefinitions.readVars(st: TStringList; i: integer; vars: TF if not st[i].StartsWith(' ') then begin StringSplit(st[i], ':', l, r); - if not vars.ContainsKey(l.trim) then - vars.Add(l.trim, r.Trim); + l := l.trim; + r := r.trim; + if not vars.ContainsKey(l) then + vars.Add(l, r) + else + vars.Values[l] := vars.Values[l]+'|'+r; end; inc(i); end; @@ -1108,7 +1138,7 @@ function TIETFLanguageDefinitions.loadExtLang(vars: TFslStringDictionary; i: int cc := TIETFLanguageExtLang.Create; try cc.code := vars['Subtag']; - cc.display := vars['Description']; + cc.displays.DelimitedText := vars['Description']; if FExtLanguages.ContainsKey(cc.code) then raise EFSLException.create('IETFLang: Unable to parse definitions expecting Type: duplicate extlang code '+cc.code+' at line '+inttostr(i+1)); FExtLanguages.Add(cc.code, cc.Link); @@ -1121,11 +1151,12 @@ function TIETFLanguageDefinitions.loadExtLang(vars: TFslStringDictionary; i: int function TIETFLanguageDefinitions.loadLanguage(vars : TFslStringDictionary; i: integer): integer; var cc : TIETFLanguageLanguage; + s : string; begin cc := TIETFLanguageLanguage.Create; try cc.code := vars['Subtag']; - cc.display := vars['Description']; + cc.displays.DelimitedText := vars['Description']; if (vars.ContainsKey('Suppress-Script')) then cc.sscript := vars['Suppress-Script']; if (vars.ContainsKey('Scope')) then @@ -1146,7 +1177,7 @@ function TIETFLanguageDefinitions.loadRegion(vars: TFslStringDictionary; i: inte cc := TIETFLanguageRegion.Create; try cc.code := vars['Subtag']; - cc.display := vars['Description']; + cc.displays.DelimitedText := vars['Description']; if FRegions.ContainsKey(cc.code) then raise EFSLException.create('IETFLang: Unable to parse definitions expecting Type: duplicate region code '+cc.code+' at line '+inttostr(i+1)); FRegions.Add(cc.code, cc.Link); @@ -1163,7 +1194,7 @@ function TIETFLanguageDefinitions.loadScript(vars: TFslStringDictionary; i: inte cc := TIETFLanguageScript.Create; try cc.code := vars['Subtag']; - cc.display := vars['Description']; + cc.displays.DelimitedText := vars['Description']; if FScripts.ContainsKey(cc.code) then raise EFSLException.create('IETFLang: Unable to parse definitions expecting Type: duplicate script code '+cc.code+' at line '+inttostr(i+1)); FScripts.Add(cc.code, cc.Link); @@ -1180,7 +1211,7 @@ function TIETFLanguageDefinitions.loadVariant(vars: TFslStringDictionary; i: int cc := TIETFLanguageVariant.Create; try cc.code := vars['Subtag']; - cc.display := vars['Description']; + cc.displays.DelimitedText := vars['Description']; if FVariants.ContainsKey(cc.code) then raise EFSLException.create('IETFLang: Unable to parse definitions expecting Type: duplicate region code '+cc.code+' at line '+inttostr(i+1)); FVariants.Add(cc.code, cc.Link); diff --git a/library/ftx/ftx_lang.pas b/library/ftx/ftx_lang.pas index ac5864497..b46c6d5a2 100644 --- a/library/ftx/ftx_lang.pas +++ b/library/ftx/ftx_lang.pas @@ -173,6 +173,7 @@ procedure TIETFLanguageCodeServices.Designations(context: TCodeSystemProviderCon var c : TIETFLanguageCodeConcept; msg : String; + i : integer; begin if (context <> nil) then begin @@ -182,8 +183,17 @@ procedure TIETFLanguageCodeServices.Designations(context: TCodeSystemProviderCon list.addDesignation(true, true, '', FLanguages.present(c.FInfo).Trim); if (c.FInfo.isLangRegion) then begin - list.addDesignation(false, true, '', FLanguages.present(c.FInfo, '{{lang}} ({{region}})').Trim); - list.addDesignation(false, true, '', FLanguages.present(c.FInfo, '{{lang}} (Region={{region}})').Trim); + list.addDesignation(false, true, '', FLanguages.present(c.FInfo, 0, '{{lang}} ({{region}})').Trim); + list.addDesignation(false, true, '', FLanguages.present(c.FInfo, 0, '{{lang}} (Region={{region}})').Trim); + end; + for i := 0 to FLanguages.displayCount(c.FInfo) - 1 do + begin + list.addDesignation(false, true, '', FLanguages.present(c.FInfo, i).Trim); + if (c.FInfo.isLangRegion) then + begin + list.addDesignation(false, true, '', FLanguages.present(c.FInfo, i, '{{lang}} ({{region}})').Trim); + list.addDesignation(false, true, '', FLanguages.present(c.FInfo, i, '{{lang}} (Region={{region}})').Trim); + end; end; end; end; From 8d101a9a0e90e3b2c3f55b702b6335dd1529a250 Mon Sep 17 00:00:00 2001 From: Grahame Grieve Date: Wed, 25 Sep 2024 13:05:45 -0400 Subject: [PATCH 4/8] Support 'in' in LOINC filters --- library/ftx/ftx_loinc_services.pas | 33 +++++++++++++++++++++++++++++- 1 file changed, 32 insertions(+), 1 deletion(-) diff --git a/library/ftx/ftx_loinc_services.pas b/library/ftx/ftx_loinc_services.pas index 8c890863d..765bf9beb 100644 --- a/library/ftx/ftx_loinc_services.pas +++ b/library/ftx/ftx_loinc_services.pas @@ -170,6 +170,7 @@ TLOINCServices = class (TCodeSystemProvider) FRelationships : TDictionary; FProperties : TDictionary; FStatusKeys : TDictionary; + function commaListOfCodes(source: String): String; function filterBySQL(c : TFDBConnection; sql, lsql : String; forIteration : boolean) : TCodeSystemProviderFilterContext; protected function sizeInBytesV(magic : integer) : cardinal; override; @@ -1029,11 +1030,22 @@ function TLOINCServices.filterBySQL(c : TFDBConnection; sql, lsql: String; forIt end; +function TLOINCServices.commaListOfCodes(source : String) : String; +var + s : String; +begin + result := ''; + for s in source.split([',']) do + if FCodes.ContainsKey(s) then + CommaAdd(result, s); +end; + function TLOINCServices.filter(forIteration : boolean; prop: String; op: TFhirFilterOperator; value: String; prep: TCodeSystemProviderFilterPreparationContext) : TCodeSystemProviderFilterContext; var c : TFDBConnection; ts : TStringList; reg : TRegularExpression; + s : string; begin c := FDB.getConnection('filterBySQL'); try @@ -1044,9 +1056,21 @@ function TLOINCServices.filter(forIteration : boolean; prop: String; op: TFhirFi else result := FilterBySQL(c, 'select SourceKey as Key from Relationships where RelationshipTypeKey = '+FRelationships[prop]+' and TargetKey in (select CodeKey from Codes where Description = '''+sqlwrapString(value)+''' COLLATE NOCASE) order by SourceKey ASC', 'select count(SourceKey) from Relationships where RelationshipTypeKey = '+FRelationships[prop]+' and TargetKey in (select CodeKey from Codes where Description = '''+sqlwrapString(value)+''' COLLATE NOCASE) and SourceKey = ', forIteration) + else if (FRelationships.ContainsKey(prop) and (op = foIn)) then + begin + s := commaListOfCodes(value); + result := FilterBySQL(c, 'select SourceKey as Key from Relationships where RelationshipTypeKey = '+FRelationships[prop]+' and TargetKey in (select CodeKey from Codes where Code in ('''+s+''') order by SourceKey ASC', + 'select count(SourceKey) from Relationships where RelationshipTypeKey = '+FRelationships[prop]+' and TargetKey in (select CodeKey from Codes where Code = '''+sqlwrapString(value)+''') and SourceKey = ', forIteration) + end else if (FProperties.ContainsKey(prop) and (op = foEqual)) then result := FilterBySQL(c, 'select CodeKey as Key from Properties, PropertyValues where Properties.PropertyTypeKey = '+FProperties[prop]+' and Properties.PropertyValueKey = PropertyValues.PropertyValueKey and PropertyValues.Value = '''+SQLWrapString(value)+''' COLLATE NOCASE order by CodeKey ASC', 'select count(CodeKey) from Properties, PropertyValues where Properties.PropertyTypeKey = '+FProperties[prop]+' and Properties.PropertyValueKey = PropertyValues.PropertyValueKey and PropertyValues.Value = '''+SQLWrapString(value)+''' COLLATE NOCASE and CodeKey = ', forIteration) + else if (FProperties.ContainsKey(prop) and (op = foIn)) then + begin + s := commaListOfCodes(value); + result := FilterBySQL(c, 'select CodeKey as Key from Properties, PropertyValues where Properties.PropertyTypeKey = '+FProperties[prop]+' and Properties.PropertyValueKey = PropertyValues.PropertyValueKey and PropertyValues.Value = ('''+SQLWrapString(s)+''') COLLATE NOCASE order by CodeKey ASC', + 'select count(CodeKey) from Properties, PropertyValues where Properties.PropertyTypeKey = '+FProperties[prop]+' and Properties.PropertyValueKey = PropertyValues.PropertyValueKey and PropertyValues.Value = '''+SQLWrapString(value)+''' COLLATE NOCASE and CodeKey = ', forIteration) + end else if (FRelationships.ContainsKey(prop) and (op = foExists)) then if FCodes.ContainsKey(value) then result := FilterBySQL(c, 'select SourceKey as Key from Relationships where RelationshipTypeKey = '+FRelationships[prop]+' and exists (select CodeKey from Codes where (Code = '''+sqlwrapString(value)+''')) order by SourceKey ASC', @@ -1054,6 +1078,12 @@ function TLOINCServices.filter(forIteration : boolean; prop: String; op: TFhirFi else result := FilterBySQL(c, 'select SourceKey as Key from Relationships where RelationshipTypeKey = '+FRelationships[prop]+' and exists (select CodeKey from Codes where (Description = '''+sqlwrapString(value)+''' COLLATE NOCASE)) order by SourceKey ASC', 'select count(SourceKey) from Relationships where RelationshipTypeKey = '+FRelationships[prop]+' and exists (select CodeKey from Codes where (Description = '''+sqlwrapString(value)+''' COLLATE NOCASE)) and SourceKey = ', forIteration) + else if (FRelationships.ContainsKey(prop) and (op = foIn)) then + begin + s := commaListOfCodes(value); + result := FilterBySQL(c, 'select SourceKey as Key from Relationships where RelationshipTypeKey = '+FRelationships[prop]+' and exists (select CodeKey from Codes where (Code in ('''+sqlwrapString(s)+'''))) order by SourceKey ASC', + 'select count(SourceKey) from Relationships where RelationshipTypeKey = '+FRelationships[prop]+' and exists (select CodeKey from Codes where (Code = '''+sqlwrapString(value)+''')) and SourceKey = ', forIteration) + end else if (FProperties.ContainsKey(prop) and (op = foExists)) then result := FilterBySQL(c, 'select distinct CodeKey as Key from Properties where Properties.PropertyTypeKey = '+FProperties[prop]+' order by CodeKey ASC', 'select count(CodeKey) from Properties where Properties.PropertyTypeKey = '+FProperties[prop]+' and CodeKey = ', forIteration) @@ -1113,7 +1143,8 @@ function TLOINCServices.filter(forIteration : boolean; prop: String; op: TFhirFi result := FilterBySQL(c, 'select CodeKey as Key from Codes where CodeKey in (select CodeKey from Properties where PropertyTypeKey = 9) order by CodeKey ASC', 'select count(CodeKey) from Codes where CodeKey in (select CodeKey from Properties where PropertyTypeKey = 9) and CodeKey = ', forIteration) else - result := nil; + result := nil; + c.release; except on e : Exception do From 49ca8786d300b4239a7c51d5ba509c0441894133 Mon Sep 17 00:00:00 2001 From: Grahame Grieve Date: Thu, 26 Sep 2024 04:41:06 -0400 Subject: [PATCH 5/8] Fix access violation validating excludes with no system --- dependencies/Indy10/Protocols/IdHL7.pas | 4 +- library/fdb/fdb_logging.pas | 3 +- library/fhir/fhir_objects.pas | 3 -- library/fhir/fhir_parser.pas | 1 - library/fhir/fhir_tx.pas | 4 +- library/ftx/fhir_valuesets.pas | 55 ++++++++++++------------- 6 files changed, 30 insertions(+), 40 deletions(-) diff --git a/dependencies/Indy10/Protocols/IdHL7.pas b/dependencies/Indy10/Protocols/IdHL7.pas index 5e65cb07b..a9c3cdde8 100644 --- a/dependencies/Indy10/Protocols/IdHL7.pas +++ b/dependencies/Indy10/Protocols/IdHL7.pas @@ -79,9 +79,7 @@ Original author Grahame Grieve - This code was donated by HL7Connect.com - For more HL7 open source code see - http://www.hl7connect.com/tools + This code was donated by Kestral Computing This unit implements support for the Standard HL7 minimal Lower Layer protocol. For further details, consult the HL7 standard (www.hl7.org). diff --git a/library/fdb/fdb_logging.pas b/library/fdb/fdb_logging.pas index 26a392dc3..572e1e716 100644 --- a/library/fdb/fdb_logging.pas +++ b/library/fdb/fdb_logging.pas @@ -293,8 +293,7 @@ class function TFDBLogEntry.HTMLDoco : String; '

Lists the actual current usage of connections. Typically, a few connections'+#13#10+ 'are in use at any one time - the usage list should roll over constantly. If'+#13#10+ 'connections are persisting in this list, then there is a problem in the code'+#13#10+ - 'that manages the connection (either in HL7Connect, or in a script - check'+#13#10+ - 'scripts to see whether the given name comes from a script).

'+#13#10+ + 'that manages the connection.

'+#13#10+ ''+#13#10+ '

Table

'+#13#10+ '

The table summarises the past history of connection usage, and doesn''t include connections in use

'+#13#10+ diff --git a/library/fhir/fhir_objects.pas b/library/fhir/fhir_objects.pas index dae47d08d..c52243232 100644 --- a/library/fhir/fhir_objects.pas +++ b/library/fhir/fhir_objects.pas @@ -88,9 +88,6 @@ SUPPORTED_VERSIONS = [fhirVersionRelease2, fhirVersionRelease3, fhirVersionRelease4]; Type - { - Possible command types supported by HL7Connect FHIR interfaces - } TFHIRCommandType = ( fcmdUnknown, { Unknown command} fcmdRead, { Read the resource} diff --git a/library/fhir/fhir_parser.pas b/library/fhir/fhir_parser.pas index 7159dbcba..c97de3463 100644 --- a/library/fhir/fhir_parser.pas +++ b/library/fhir/fhir_parser.pas @@ -58,7 +58,6 @@ ''+#13#10+ ''+#13#10+ ''+#13#10+ - ''+#13#10+ ''+#13#10; MAP_ATTR_NAME = 'B88BF977DA9543B8A5915C84A70F03F7'; diff --git a/library/fhir/fhir_tx.pas b/library/fhir/fhir_tx.pas index b95ea404c..c313b9e42 100644 --- a/library/fhir/fhir_tx.pas +++ b/library/fhir/fhir_tx.pas @@ -286,8 +286,8 @@ function TTerminologyOperationContext.deadCheck(var time : integer): boolean; rq : integer; begin time := FTimeLimit; - //if UnderDebugger then - // exit(false); + if UnderDebugger then + exit(false); timeToDie := FStartTime + (time * 1000); if (GetTickCount64 > timeToDie) then diff --git a/library/ftx/fhir_valuesets.pas b/library/ftx/fhir_valuesets.pas index a7310ca97..006504aaa 100644 --- a/library/ftx/fhir_valuesets.pas +++ b/library/ftx/fhir_valuesets.pas @@ -3803,22 +3803,25 @@ procedure TFHIRValueSetExpander.excludeCodes(cset: TFhirValueSetComposeIncludeW; if cset.systemUri = '' then begin - NoTotal; - for s in cset.valueSets do + if (cset.hasValueSets) then begin - //Logging.log('Processing '+vsId+', import value set '+s); - deadCheck('processCodes#2'); - ivs := TFHIRImportedValueSet.create(expandValueset(s, '', filter.filter, dependencies, notClosed)); - try - checkCanonicalStatus(expansion, ivs.FValueSet, FValueSet); - expansion.addParamUri('used-valueset', ivs.FValueSet.vurl); - expansion.addParamUri('version', ivs.FValueSet.vurl); - valueSets.add(ivs.link); - finally - ivs.free; + NoTotal; + for s in cset.valueSets do + begin + //Logging.log('Processing '+vsId+', import value set '+s); + deadCheck('processCodes#2'); + ivs := TFHIRImportedValueSet.create(expandValueset(s, '', filter.filter, dependencies, notClosed)); + try + checkCanonicalStatus(expansion, ivs.FValueSet, FValueSet); + expansion.addParamUri('used-valueset', ivs.FValueSet.vurl); + expansion.addParamUri('version', ivs.FValueSet.vurl); + valueSets.add(ivs.link); + finally + ivs.free; + end; end; - end; - excludeValueSet(valueSets[0].valueSet, expansion, valueSets, 1); + excludeValueSet(valueSets[0].valueSet, expansion, valueSets, 1); + end end else begin @@ -4006,23 +4009,17 @@ procedure TFHIRValueSetExpander.excludeCodes(cset: TFhirValueSetComposeIncludeW; if ok then begin inc(count); - cds := TConceptDesignations.Create(FFactory.link, FLanguages.link); - try - if passesImports(valueSets, cs.systemUri, cs.code(c), 0) then + if passesImports(valueSets, cs.systemUri, cs.code(c), 0) then + begin + if cs.canParent then + parent := FMap[key(cs.systemUri, cs.parent(c))] + else begin - listDisplays(cds, cs, c); - if cs.canParent then - parent := FMap[key(cs.systemUri, cs.parent(c))] - else - begin - FCanBeHierarchy := false; - parent := nil; - end; - for code in cs.listCodes(c, FParams.altCodeRules) do - excludeCode(cs, cs.systemUri, cs.version, code, expansion, nil, vsSrc.url); + FCanBeHierarchy := false; + parent := nil; end; - finally - cds.free; + for code in cs.listCodes(c, FParams.altCodeRules) do + excludeCode(cs, cs.systemUri, cs.version, code, expansion, nil, vsSrc.url); end; end; finally From 8e8d09bf710bfb10729cdccfcabc3b6455d71334 Mon Sep 17 00:00:00 2001 From: Grahame Grieve Date: Thu, 26 Sep 2024 04:41:32 -0400 Subject: [PATCH 6/8] Fix access violation validating some SCT value sets --- library/ftx/ftx_loinc_services.pas | 2 +- library/ftx/ftx_sct_analysis.pas | 1 - library/ftx/ftx_sct_services.pas | 2 +- 3 files changed, 2 insertions(+), 3 deletions(-) diff --git a/library/ftx/ftx_loinc_services.pas b/library/ftx/ftx_loinc_services.pas index 765bf9beb..5492a962d 100644 --- a/library/ftx/ftx_loinc_services.pas +++ b/library/ftx/ftx_loinc_services.pas @@ -375,7 +375,7 @@ procedure TLOINCServices.Load(const sFilename: String); ci : TLoincProviderContext; s : String; begin - FDB := TFDBSQLiteManager.create('db', sFilename, true, false, 10); + FDB := TFDBSQLiteManager.create(ExtractFileName(sFilename), sFilename, true, false, 10); c := FDB.GetConnection('load'); try c.sql := 'Select LanguageKey, Code from Languages'; diff --git a/library/ftx/ftx_sct_analysis.pas b/library/ftx/ftx_sct_analysis.pas index f25e9ac18..d5e08811b 100644 --- a/library/ftx/ftx_sct_analysis.pas +++ b/library/ftx/ftx_sct_analysis.pas @@ -376,7 +376,6 @@ function TSnomedAnalysis.generate(params : THTTPParameters): TFslNameBuffer; b.appendLine(''); b.appendLine(''); b.appendLine(''); - b.appendLine(''); b.appendLine(''); b.appendLine(''); b.appendLine(''); diff --git a/library/ftx/ftx_sct_services.pas b/library/ftx/ftx_sct_services.pas index b7729fe2f..552a67c0a 100644 --- a/library/ftx/ftx_sct_services.pas +++ b/library/ftx/ftx_sct_services.pas @@ -3421,7 +3421,7 @@ function TSnomedServices.filterEquals(id : UInt64): TCodeSystemProviderFilterCon try if not Concept.FindConcept(id, index) then raise ETerminologyError.Create('The Snomed Concept '+inttostr(id)+' was not known', itInvalid); - Setlength(res.descendants, 0); + Setlength(res.descendants, 1); res.descendants[0] := index; result := TSnomedFilterContext(res.link); finally From 7f12521d95f5a1ee437bf1635a1b4215967eee17 Mon Sep 17 00:00:00 2001 From: Grahame Grieve Date: Thu, 26 Sep 2024 04:42:28 -0400 Subject: [PATCH 7/8] Add support for seeing db performance stats --- library/v2/v2_dictionary_database.pas | 2 +- library/v2/v2_dictionary_v21.pas | 136 +++---- library/v2/v2_dictionary_v22.pas | 250 ++++++------ library/v2/v2_dictionary_v23.pas | 442 ++++++++++----------- library/v2/v2_dictionary_v231.pas | 244 ++++++------ library/v2/v2_dictionary_v24.pas | 10 +- library/v2/v2_dictionary_v25.pas | 24 +- library/v2/v2_dictionary_v251.pas | 24 +- library/v2/v2_dictionary_v26.pas | 10 +- library/v2/v2_objects.pas | 8 +- library/wp/FHIR.WP.Snomed.pas | 6 +- server/FHIRServer.dpr | 41 -- server/fhirserver.dproj | 2 +- server/session.pas | 6 +- server/web/QuestionnaireToHTML.xslt | 1 - server/web/diagnostics-db.html | 20 + server/web/head.html | 1 - server/web/js/hl7connect.js | 4 - server/web/txform.html | 1 - server/web_server.pas | 34 +- utilities/cde/CDEForm.pas | 6 +- utilities/cde/ClinicalDocumentEditor.dproj | 8 +- 22 files changed, 641 insertions(+), 639 deletions(-) create mode 100644 server/web/diagnostics-db.html delete mode 100644 server/web/js/hl7connect.js diff --git a/library/v2/v2_dictionary_database.pas b/library/v2/v2_dictionary_database.pas index 054d0be07..25688e892 100644 --- a/library/v2/v2_dictionary_database.pas +++ b/library/v2/v2_dictionary_database.pas @@ -1143,7 +1143,7 @@ procedure THL7V2OdbcDictionary.LoadSegmentMaps(aVersion : THL7V2Version; oMessag oStructure := THL7V2ModelMessageStructure.Create; try oStructure.Name := sLastName; - oStructure.Description := '(Implicitly Created by HL7Connect)'; + oStructure.Description := '(Implicitly Created)'; oMessageStructures.Add(oStructure.Link); finally oStructure.free; diff --git a/library/v2/v2_dictionary_v21.pas b/library/v2/v2_dictionary_v21.pas index ad443d058..4ec38bc6c 100644 --- a/library/v2/v2_dictionary_v21.pas +++ b/library/v2/v2_dictionary_v21.pas @@ -2388,183 +2388,183 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr Begin oStructures.Add('?', 'unknown', '', '', ''); oStructures.Add('ACK', 'Standard Acknowlegdement', 'A01', 'ACK', ''); - oStructure := oStructures.Add('ACK_A01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A06', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A06', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A06', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A10', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A10', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A10', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A11', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A11', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A11', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A12', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A12', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A12', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A13', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A13', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A13', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A14', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A14', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A14', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A15', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A15', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A15', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A16', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A16', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A16', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A17', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A17', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A17', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A18', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A18', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A18', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A20', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A20', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A20', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A21', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A21', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A21', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A22', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A22', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A22', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A23', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A23', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A23', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A24', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A24', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A24', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_P01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_P01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_P01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_P02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_P02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_P02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_P03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_P03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_P03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_Q03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_Q03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_Q03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); - oStructure := oStructures.Add('ACK_Q05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_Q05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_Q05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); - oStructure := oStructures.Add('ACK_R01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_R01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_R01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); - oStructure := oStructures.Add('ACK_R03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_R03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_R03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); - oStructure := oStructures.Add('ADR_A19', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADR_A19', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADR_A19', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2575,7 +2575,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp1.Children.Add('PID', False, False, gtSingle); oGrp1.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2584,21 +2584,21 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('NK1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('EVN', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('EVN', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2607,7 +2607,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('NK1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2616,21 +2616,21 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('NK1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A06', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A06', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A06', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('EVN', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('EVN', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2639,7 +2639,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('NK1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2647,7 +2647,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A10', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A10', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A10', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2655,7 +2655,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A11', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A11', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A11', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2663,7 +2663,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A12', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A12', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A12', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2671,7 +2671,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A13', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A13', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A13', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2679,7 +2679,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A14', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A14', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A14', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2689,7 +2689,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('NK1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A15', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A15', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A15', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2697,7 +2697,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A16', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A16', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A16', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2705,7 +2705,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A17', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A17', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A17', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2713,7 +2713,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp1 := oStructure.SegmentMap.Children.Add('PATIENT', False, True, gtGroup); oGrp1.Children.Add('PID', False, False, gtSingle); oGrp1.Children.Add('PV1', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A18', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A18', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A18', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2721,34 +2721,34 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A20', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A20', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A20', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('EVN', False, False, gtSingle); oStructure.SegmentMap.Children.Add('NPU', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A21', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A21', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A21', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('EVN', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A22', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A22', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A22', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('EVN', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A23', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A23', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A23', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('EVN', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A24', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A24', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A24', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2756,7 +2756,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); - oStructure := oStructures.Add('BAR_P01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('BAR_P01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('BAR_P01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2771,7 +2771,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp1.Children.Add('IN1', True, True, gtSingle); oGrp1.Children.Add('ACC', True, False, gtSingle); oGrp1.Children.Add('UB1', True, False, gtSingle); - oStructure := oStructures.Add('BAR_P02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('BAR_P02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('BAR_P02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2779,7 +2779,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp1 := oStructure.SegmentMap.Children.Add('PATIENT', False, True, gtGroup); oGrp1.Children.Add('PID', False, False, gtSingle); oGrp1.Children.Add('PV1', True, False, gtSingle); - oStructure := oStructures.Add('DFT_P03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('DFT_P03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('DFT_P03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2787,7 +2787,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('FT1', True, True, gtSingle); - oStructure := oStructures.Add('DSR_Q01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('DSR_Q01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('DSR_Q01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2796,7 +2796,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSP', False, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', False, False, gtSingle); - oStructure := oStructures.Add('DSR_Q03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('DSR_Q03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('DSR_Q03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2804,12 +2804,12 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSP', False, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', False, False, gtSingle); - oStructure := oStructures.Add('MCF_Q02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MCF_Q02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MCF_Q02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); - oStructure := oStructures.Add('ORM_O01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ORM_O01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ORM_O01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2829,7 +2829,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp2.Children.Add('OBX', True, True, gtSingle); oGrp2.Children.Add('NTE', True, True, gtSingle); oGrp1.Children.Add('BLG', True, False, gtSingle); - oStructure := oStructures.Add('ORR_O02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ORR_O02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ORR_O02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2846,7 +2846,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp4.Children.Add('ORO', False, False, gtSingle); oGrp4.Children.Add('RX1', False, False, gtSingle); oGrp2.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('ORU_R01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ORU_R01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ORU_R01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2863,7 +2863,7 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp3.Children.Add('OBX', True, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('ORU_R03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ORU_R03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ORU_R03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -2880,26 +2880,26 @@ procedure Definitions21LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp3.Children.Add('OBX', True, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('QRY_A19', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QRY_A19', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QRY_A19', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); - oStructure := oStructures.Add('QRY_Q01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QRY_Q01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QRY_Q01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', False, False, gtSingle); - oStructure := oStructures.Add('QRY_Q02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QRY_Q02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QRY_Q02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', False, False, gtSingle); - oStructure := oStructures.Add('UDM_Q05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('UDM_Q05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('UDM_Q05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); diff --git a/library/v2/v2_dictionary_v22.pas b/library/v2/v2_dictionary_v22.pas index c830b74b2..aa778dbad 100644 --- a/library/v2/v2_dictionary_v22.pas +++ b/library/v2/v2_dictionary_v22.pas @@ -4504,314 +4504,314 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr Begin oStructures.Add('?', 'unknown', '', '', ''); oStructures.Add('ACK', 'Standard Acknowlegdement', 'A01', 'ACK', ''); - oStructure := oStructures.Add('ACK_A01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A06', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A06', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A06', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A10', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A10', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A10', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A11', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A11', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A11', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A12', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A12', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A12', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A13', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A13', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A13', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A14', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A14', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A14', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A15', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A15', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A15', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A16', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A16', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A16', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A17', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A17', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A17', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A18', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A18', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A18', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A20', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A20', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A20', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A21', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A21', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A21', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A22', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A22', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A22', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A23', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A23', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A23', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A24', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A24', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A24', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A25', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A25', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A25', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A26', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A26', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A26', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A27', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A27', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A27', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A28', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A28', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A28', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A29', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A29', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A29', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A30', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A30', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A30', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A31', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A31', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A31', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A32', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A32', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A32', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A33', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A33', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A33', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A34', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A34', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A34', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A35', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A35', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A35', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A36', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A36', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A36', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A37', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A37', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A37', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_M01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_M01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_M01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_M02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_M02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_M02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_M03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_M03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_M03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_N01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_N01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_N01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); - oStructure := oStructures.Add('ACK_O01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_O01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_O01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_O02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_O02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_O02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_P01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_P01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_P01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_P02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_P02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_P02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_P03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_P03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_P03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_Q02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_Q02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_Q02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_Q03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_Q03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_Q03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_Q05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_Q05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_Q05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); - oStructure := oStructures.Add('ACK_R01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_R01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_R01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); - oStructure := oStructures.Add('ACK_R02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_R02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_R02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); - oStructure := oStructures.Add('ACK_R03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_R03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_R03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); - oStructure := oStructures.Add('ACK_R04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_R04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_R04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ADR_A19', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADR_A19', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADR_A19', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -4838,7 +4838,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp1.Children.Add('UB1', True, False, gtSingle); oGrp1.Children.Add('UB2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -4860,7 +4860,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -4869,7 +4869,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -4878,7 +4878,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -4900,7 +4900,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -4922,7 +4922,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A06', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A06', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A06', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -4945,7 +4945,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -4968,7 +4968,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -4990,7 +4990,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5000,7 +5000,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A10', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A10', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A10', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5010,7 +5010,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A11', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A11', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A11', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5020,7 +5020,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A12', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A12', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A12', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5030,7 +5030,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A13', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A13', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A13', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5052,7 +5052,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A14', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A14', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A14', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5074,7 +5074,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A15', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A15', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A15', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5084,7 +5084,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A16', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A16', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A16', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5094,7 +5094,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A17', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A17', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A17', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5107,7 +5107,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A18', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A18', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A18', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5115,13 +5115,13 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', True, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A20', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A20', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A20', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('EVN', False, False, gtSingle); oStructure.SegmentMap.Children.Add('NPU', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A21', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A21', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A21', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5130,7 +5130,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A22', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A22', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A22', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5139,7 +5139,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A23', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A23', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A23', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5148,7 +5148,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A24', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A24', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A24', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5157,7 +5157,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A25', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A25', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A25', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5166,7 +5166,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A26', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A26', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A26', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5175,7 +5175,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A27', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A27', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A27', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5184,7 +5184,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A28', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A28', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A28', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5206,7 +5206,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A29', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A29', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A29', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5215,14 +5215,14 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A30', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A30', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A30', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('EVN', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A31', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A31', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A31', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5244,7 +5244,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A32', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A32', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A32', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5253,7 +5253,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A33', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A33', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A33', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5262,28 +5262,28 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A34', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A34', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A34', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('EVN', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A35', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A35', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A35', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('EVN', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A36', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A36', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A36', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('EVN', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A37', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A37', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A37', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5292,7 +5292,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', True, False, gtSingle); - oStructure := oStructures.Add('BAR_P01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('BAR_P01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('BAR_P01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5315,7 +5315,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp1.Children.Add('ACC', True, False, gtSingle); oGrp1.Children.Add('UB1', True, False, gtSingle); oGrp1.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('BAR_P02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('BAR_P02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('BAR_P02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5323,7 +5323,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp1 := oStructure.SegmentMap.Children.Add('PATIENT', False, True, gtGroup); oGrp1.Children.Add('PID', False, False, gtSingle); oGrp1.Children.Add('PV1', True, False, gtSingle); - oStructure := oStructures.Add('DFT_P03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('DFT_P03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('DFT_P03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5333,7 +5333,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); oStructure.SegmentMap.Children.Add('FT1', False, True, gtSingle); - oStructure := oStructures.Add('DSR_P04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('DSR_P04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('DSR_P04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5343,7 +5343,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSP', False, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('DSR_Q01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('DSR_Q01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('DSR_Q01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5353,7 +5353,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSP', False, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('DSR_Q03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('DSR_Q03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('DSR_Q03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5362,7 +5362,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSP', False, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('DSR_R03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('DSR_R03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('DSR_R03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5371,25 +5371,25 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSP', False, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('MFD_M01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFD_M01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFD_M01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFI', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFA', True, True, gtSingle); - oStructure := oStructures.Add('MFD_M02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFD_M02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFD_M02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFI', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFA', True, True, gtSingle); - oStructure := oStructures.Add('MFD_M03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFD_M03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFD_M03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFI', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFA', True, True, gtSingle); - oStructure := oStructures.Add('MFK_M01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFK_M01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFK_M01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5397,7 +5397,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MFI', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFA', True, True, gtSingle); - oStructure := oStructures.Add('MFK_M02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFK_M02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFK_M02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5405,7 +5405,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MFI', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFA', True, True, gtSingle); - oStructure := oStructures.Add('MFK_M03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFK_M03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFK_M03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5413,7 +5413,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MFI', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFA', True, True, gtSingle); - oStructure := oStructures.Add('MFN_M01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFN_M01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFN_M01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5421,7 +5421,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp1 := oStructure.SegmentMap.Children.Add('MF', False, True, gtGroup); oGrp1.Children.Add('MFE', False, False, gtSingle); oGrp1.Children.Add('Zxx', True, False, gtSingle); - oStructure := oStructures.Add('MFN_M02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFN_M02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFN_M02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5429,7 +5429,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp1 := oStructure.SegmentMap.Children.Add('MF_STAFF', False, True, gtGroup); oGrp1.Children.Add('MFE', False, False, gtSingle); oGrp1.Children.Add('Zxx', True, False, gtSingle); - oStructure := oStructures.Add('MFN_M03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFN_M03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFN_M03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5437,28 +5437,28 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp1 := oStructure.SegmentMap.Children.Add('MF_TEST', False, True, gtGroup); oGrp1.Children.Add('MFE', False, False, gtSingle); oGrp1.Children.Add('Zxx', True, False, gtSingle); - oStructure := oStructures.Add('MFQ_M01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFQ_M01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFQ_M01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('MFQ_M02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFQ_M02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFQ_M02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('MFQ_M03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFQ_M03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFQ_M03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('MFR_M01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFR_M01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFR_M01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5471,7 +5471,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp1.Children.Add('MFE', False, False, gtSingle); oGrp1.Children.Add('Zxx', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('MFR_M02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFR_M02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFR_M02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5484,7 +5484,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp1.Children.Add('MFE', False, False, gtSingle); oGrp1.Children.Add('Zxx', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('MFR_M03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFR_M03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFR_M03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5497,7 +5497,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp1.Children.Add('MFE', False, False, gtSingle); oGrp1.Children.Add('Zxx', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('NMD_N01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('NMD_N01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('NMD_N01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5511,7 +5511,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp2 := oGrp1.Children.Add('APP_STATUS', True, False, gtGroup); oGrp2.Children.Add('NSC', False, False, gtSingle); oGrp2.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('NMQ_N02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('NMQ_N02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('NMQ_N02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5522,7 +5522,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp1.Children.Add('NCK', True, False, gtSingle); oGrp1.Children.Add('NST', True, False, gtSingle); oGrp1.Children.Add('NSC', True, False, gtSingle); - oStructure := oStructures.Add('NMR_N02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('NMR_N02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('NMR_N02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5536,7 +5536,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp1.Children.Add('NTE', True, True, gtSingle); oGrp1.Children.Add('NSC', True, False, gtSingle); oGrp1.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('ORF_R04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ORF_R04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ORF_R04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5554,7 +5554,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp2.Children.Add('OBX', True, False, gtSingle); oGrp2.Children.Add('NTE', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('ORM_O01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ORM_O01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ORM_O01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5577,7 +5577,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp2.Children.Add('OBX', True, True, gtSingle); oGrp2.Children.Add('NTE', False, True, gtSingle); oGrp1.Children.Add('BLG', True, False, gtSingle); - oStructure := oStructures.Add('ORR_O02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ORR_O02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ORR_O02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5597,7 +5597,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp4.Children.Add('ODS', False, False, gtSingle); oGrp4.Children.Add('ODT', False, False, gtSingle); oGrp2.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('ORU_R01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ORU_R01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ORU_R01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5614,7 +5614,7 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp3.Children.Add('OBX', True, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('ORU_R03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ORU_R03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ORU_R03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -5631,41 +5631,41 @@ procedure Definitions22LoadMessageStructures(oStructures : THL7V2ModelMessageStr oGrp3.Children.Add('OBX', True, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('QRY_A19', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QRY_A19', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QRY_A19', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); - oStructure := oStructures.Add('QRY_P04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QRY_P04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QRY_P04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('QRY_Q01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QRY_Q01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QRY_Q01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('QRY_Q02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QRY_Q02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QRY_Q02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('QRY_R02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QRY_R02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QRY_R02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('UDM_Q05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('UDM_Q05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('UDM_Q05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); diff --git a/library/v2/v2_dictionary_v23.pas b/library/v2/v2_dictionary_v23.pas index 074a6f4e1..f36059c75 100644 --- a/library/v2/v2_dictionary_v23.pas +++ b/library/v2/v2_dictionary_v23.pas @@ -7697,594 +7697,594 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt Begin oStructures.Add('?', 'unknown', '', '', ''); oStructures.Add('ACK', 'Standard Acknowlegdement', 'A01', 'ACK', ''); - oStructure := oStructures.Add('ACK_A01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A06', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A06', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A06', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A10', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A10', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A10', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A11', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A11', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A11', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A12', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A12', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A12', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A13', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A13', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A13', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A14', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A14', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A14', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A15', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A15', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A15', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A16', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A16', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A16', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A17', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A17', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A17', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A18', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A18', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A18', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A20', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A20', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A20', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A21', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A21', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A21', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A22', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A22', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A22', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A23', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A23', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A23', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A24', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A24', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A24', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A25', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A25', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A25', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A26', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A26', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A26', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A27', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A27', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A27', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A28', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A28', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A28', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A29', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A29', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A29', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A30', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A30', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A30', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A31', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A31', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A31', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A32', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A32', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A32', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A33', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A33', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A33', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A34', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A34', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A34', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A35', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A35', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A35', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A36', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A36', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A36', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A37', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A37', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A37', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A38', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A38', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A38', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A39', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A39', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A39', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A40', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A40', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A40', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A41', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A41', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A41', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A42', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A42', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A42', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A43', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A43', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A43', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A44', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A44', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A44', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A45', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A45', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A45', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A46', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A46', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A46', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A47', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A47', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A47', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A48', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A48', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A48', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A49', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A49', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A49', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A50', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A50', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A50', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A51', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A51', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A51', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_I07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_I07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_I07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_P01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_P01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_P01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_P02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_P02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_P02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_P03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_P03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_P03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_P05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_P05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_P05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_P06', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_P06', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_P06', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_P09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_P09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_P09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_PC1', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_PC1', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_PC1', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_PC2', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_PC2', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_PC2', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_PC3', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_PC3', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_PC3', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_PC6', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_PC6', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_PC6', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_PC7', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_PC7', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_PC7', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_PC8', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_PC8', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_PC8', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_PCB', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_PCB', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_PCB', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_PCC', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_PCC', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_PCC', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_PCD', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_PCD', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_PCD', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_PCG', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_PCG', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_PCG', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_PCH', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_PCH', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_PCH', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_PCJ', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_PCJ', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_PCJ', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_Q02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_Q02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_Q02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_Q03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_Q03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_Q03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_Q05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_Q05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_Q05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_R01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_R01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_R01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); - oStructure := oStructures.Add('ACK_S12', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_S12', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_S12', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_S13', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_S13', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_S13', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_S14', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_S14', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_S14', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_S15', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_S15', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_S15', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_S16', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_S16', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_S16', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_S17', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_S17', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_S17', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_S18', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_S18', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_S18', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_S19', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_S19', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_S19', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_S20', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_S20', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_S20', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_S21', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_S21', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_S21', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_S22', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_S22', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_S22', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_S23', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_S23', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_S23', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_S24', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_S24', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_S24', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_S26', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_S26', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_S26', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T06', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T06', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T06', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T10', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T10', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T10', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T11', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T11', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T11', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ADR_A19', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADR_A19', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADR_A19', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8374,7 +8374,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp2.Children.Add('PR1', False, False, gtSingle); oGrp2.Children.Add('ROL', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8402,7 +8402,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8460,7 +8460,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8490,7 +8490,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8530,7 +8530,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A10', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A10', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A10', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8542,7 +8542,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A11', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A11', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A11', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8566,7 +8566,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A13', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A13', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A13', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8594,7 +8594,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A14', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A14', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A14', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8622,7 +8622,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A15', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A15', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A15', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8679,7 +8679,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('EVN', False, False, gtSingle); oStructure.SegmentMap.Children.Add('NPU', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A21', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A21', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A21', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8690,7 +8690,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A22', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A22', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A22', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8701,7 +8701,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A23', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A23', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A23', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8725,7 +8725,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PD1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A25', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A25', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A25', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8736,7 +8736,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A26', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A26', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A26', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8747,7 +8747,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A27', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A27', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A27', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8758,7 +8758,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A28', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A28', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A28', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8786,7 +8786,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A29', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A29', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A29', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8805,7 +8805,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PD1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A31', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A31', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A31', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8833,7 +8833,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A32', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A32', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A32', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8844,7 +8844,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A33', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A33', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A33', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8855,7 +8855,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A34', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A34', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A34', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8863,7 +8863,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PD1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A35', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A35', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A35', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8871,7 +8871,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PD1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A36', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A36', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A36', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8914,7 +8914,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PD1', True, False, gtSingle); oGrp1.Children.Add('MRG', False, False, gtSingle); oGrp1.Children.Add('PV1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A40', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A40', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A40', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8924,7 +8924,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PD1', True, False, gtSingle); oGrp1.Children.Add('MRG', False, False, gtSingle); oGrp1.Children.Add('PV1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A41', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A41', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A41', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8934,7 +8934,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PD1', True, False, gtSingle); oGrp1.Children.Add('MRG', False, False, gtSingle); oGrp1.Children.Add('PV1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A42', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A42', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A42', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8953,7 +8953,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PID', False, False, gtSingle); oGrp1.Children.Add('PD1', True, False, gtSingle); oGrp1.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A44', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A44', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A44', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8972,7 +8972,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp1 := oStructure.SegmentMap.Children.Add('MERGE_INFO', False, True, gtGroup); oGrp1.Children.Add('MRG', False, False, gtSingle); oGrp1.Children.Add('PV1', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A46', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A46', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A46', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8980,7 +8980,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PD1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A47', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A47', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A47', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8988,7 +8988,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PD1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A48', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A48', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A48', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -8996,7 +8996,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PD1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A49', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A49', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A49', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9013,7 +9013,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PD1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A51', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A51', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A51', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9062,7 +9062,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PD1', True, False, gtSingle); oGrp1.Children.Add('PV1', True, False, gtSingle); oGrp1.Children.Add('DB1', True, True, gtSingle); - oStructure := oStructures.Add('BAR_P05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('BAR_P05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('BAR_P05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9108,7 +9108,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', True, False, gtSingle); oGrp1.Children.Add('CSR', False, False, gtSingle); oGrp1.Children.Add('CSP', True, True, gtSingle); - oStructure := oStructures.Add('CRM_C02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('CRM_C02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('CRM_C02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9117,7 +9117,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', True, False, gtSingle); oGrp1.Children.Add('CSR', False, False, gtSingle); oGrp1.Children.Add('CSP', True, True, gtSingle); - oStructure := oStructures.Add('CRM_C03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('CRM_C03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('CRM_C03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9126,7 +9126,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', True, False, gtSingle); oGrp1.Children.Add('CSR', False, False, gtSingle); oGrp1.Children.Add('CSP', True, True, gtSingle); - oStructure := oStructures.Add('CRM_C04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('CRM_C04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('CRM_C04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9135,7 +9135,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', True, False, gtSingle); oGrp1.Children.Add('CSR', False, False, gtSingle); oGrp1.Children.Add('CSP', True, True, gtSingle); - oStructure := oStructures.Add('CRM_C05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('CRM_C05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('CRM_C05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9144,7 +9144,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', True, False, gtSingle); oGrp1.Children.Add('CSR', False, False, gtSingle); oGrp1.Children.Add('CSP', True, True, gtSingle); - oStructure := oStructures.Add('CRM_C06', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('CRM_C06', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('CRM_C06', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9153,7 +9153,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', True, False, gtSingle); oGrp1.Children.Add('CSR', False, False, gtSingle); oGrp1.Children.Add('CSP', True, True, gtSingle); - oStructure := oStructures.Add('CRM_C07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('CRM_C07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('CRM_C07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9162,7 +9162,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', True, False, gtSingle); oGrp1.Children.Add('CSR', False, False, gtSingle); oGrp1.Children.Add('CSP', True, True, gtSingle); - oStructure := oStructures.Add('CRM_C08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('CRM_C08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('CRM_C08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9197,7 +9197,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp5 := oGrp4.Children.Add('RX_ADMIN', False, True, gtGroup); oGrp5.Children.Add('RXA', False, False, gtSingle); oGrp5.Children.Add('RXR', False, False, gtSingle); - oStructure := oStructures.Add('CSU_C10', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('CSU_C10', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('CSU_C10', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9223,7 +9223,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp5 := oGrp4.Children.Add('RX_ADMIN', False, True, gtGroup); oGrp5.Children.Add('RXA', False, False, gtSingle); oGrp5.Children.Add('RXR', False, False, gtSingle); - oStructure := oStructures.Add('CSU_C11', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('CSU_C11', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('CSU_C11', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9249,7 +9249,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp5 := oGrp4.Children.Add('RX_ADMIN', False, True, gtGroup); oGrp5.Children.Add('RXA', False, False, gtSingle); oGrp5.Children.Add('RXR', False, False, gtSingle); - oStructure := oStructures.Add('CSU_C12', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('CSU_C12', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('CSU_C12', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9326,7 +9326,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSP', False, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('DSR_Q02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('DSR_Q02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('DSR_Q02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9385,7 +9385,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', False, True, gtSingle); - oStructure := oStructures.Add('MDM_T03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9393,7 +9393,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); - oStructure := oStructures.Add('MDM_T04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9402,7 +9402,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', False, True, gtSingle); - oStructure := oStructures.Add('MDM_T05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9410,7 +9410,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); - oStructure := oStructures.Add('MDM_T06', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T06', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T06', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9419,7 +9419,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', False, True, gtSingle); - oStructure := oStructures.Add('MDM_T07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9427,7 +9427,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); - oStructure := oStructures.Add('MDM_T08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9436,7 +9436,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', False, True, gtSingle); - oStructure := oStructures.Add('MDM_T09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9444,7 +9444,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); - oStructure := oStructures.Add('MDM_T10', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T10', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T10', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9453,7 +9453,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', False, True, gtSingle); - oStructure := oStructures.Add('MDM_T11', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T11', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T11', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9471,14 +9471,14 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('MFI', False, False, gtSingle); oGrp1 := oStructure.SegmentMap.Children.Add('MF', False, True, gtGroup); oGrp1.Children.Add('MFA', True, False, gtSingle); - oStructure := oStructures.Add('MFK_M02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFK_M02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFK_M02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFI', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFA', True, True, gtSingle); - oStructure := oStructures.Add('MFK_M03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFK_M03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFK_M03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9486,21 +9486,21 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MFI', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFA', True, True, gtSingle); - oStructure := oStructures.Add('MFK_M04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFK_M04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFK_M04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFI', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFA', True, True, gtSingle); - oStructure := oStructures.Add('MFK_M05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFK_M05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFK_M05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFI', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFA', True, True, gtSingle); - oStructure := oStructures.Add('MFK_M07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFK_M07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFK_M07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9533,7 +9533,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('MFE', False, False, gtSingle); oGrp1.Children.Add('OM1', False, False, gtSingle); oGrp1.Children.Add('Hxx', False, False, gtSingle); - oStructure := oStructures.Add('MFN_M04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFN_M04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFN_M04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9734,7 +9734,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp3.Children.Add('ORC', False, False, gtSingle); oGrp3.Children.Add('ODT', True, True, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('ORF_R02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ORF_R02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ORF_R02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9942,7 +9942,7 @@ procedure Definitions23LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp5 := oGrp4.Children.Add('', False, True, gtGroup); oGrp5.Children.Add('CSR', False, False, gtSingle); oGrp5.Children.Add('CSP', True, True, gtSingle); - oStructure := oStructures.Add('PEX_P08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('PEX_P08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('PEX_P08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10048,7 +10048,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp8 : THL7V2ModelSegmentGroup; oGrp9 : THL7V2ModelSegmentGroup; Begin - oStructure := oStructures.Add('PGL_PC7', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('PGL_PC7', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('PGL_PC7', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10097,7 +10097,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp6.Children.Add('OBX', False, False, gtSingle); oGrp6.Children.Add('NTE', True, True, gtSingle); oGrp6.Children.Add('VAR', True, True, gtSingle); - oStructure := oStructures.Add('PGL_PC8', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('PGL_PC8', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('PGL_PC8', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10216,7 +10216,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp8.Children.Add('OBX', False, False, gtSingle); oGrp8.Children.Add('NTE', True, True, gtSingle); oGrp8.Children.Add('VAR', True, True, gtSingle); - oStructure := oStructures.Add('PPG_PCH', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('PPG_PCH', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('PPG_PCH', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10270,7 +10270,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp8.Children.Add('OBX', False, False, gtSingle); oGrp8.Children.Add('NTE', True, True, gtSingle); oGrp8.Children.Add('VAR', True, True, gtSingle); - oStructure := oStructures.Add('PPG_PCJ', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('PPG_PCJ', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('PPG_PCJ', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10378,7 +10378,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp8.Children.Add('OBX', False, False, gtSingle); oGrp8.Children.Add('NTE', True, True, gtSingle); oGrp8.Children.Add('VAR', True, True, gtSingle); - oStructure := oStructures.Add('PPP_PCC', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('PPP_PCC', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('PPP_PCC', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10432,7 +10432,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp8.Children.Add('OBX', False, False, gtSingle); oGrp8.Children.Add('NTE', True, True, gtSingle); oGrp8.Children.Add('VAR', True, True, gtSingle); - oStructure := oStructures.Add('PPP_PCD', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('PPP_PCD', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('PPP_PCD', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10535,7 +10535,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp6.Children.Add('OBX', False, False, gtSingle); oGrp6.Children.Add('NTE', True, True, gtSingle); oGrp6.Children.Add('VAR', True, True, gtSingle); - oStructure := oStructures.Add('PPR_PC2', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('PPR_PC2', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('PPR_PC2', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10584,7 +10584,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp6.Children.Add('OBX', False, False, gtSingle); oGrp6.Children.Add('NTE', True, True, gtSingle); oGrp6.Children.Add('VAR', True, True, gtSingle); - oStructure := oStructures.Add('PPR_PC3', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('PPR_PC3', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('PPR_PC3', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10874,19 +10874,19 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); - oStructure := oStructures.Add('QRY_PC9', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QRY_PC9', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QRY_PC9', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); - oStructure := oStructures.Add('QRY_PCE', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QRY_PCE', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QRY_PCE', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); - oStructure := oStructures.Add('QRY_PCK', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QRY_PCK', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QRY_PCK', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10972,7 +10972,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3.Children.Add('OBX', False, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); oGrp1.Children.Add('CTI', True, True, gtSingle); - oStructure := oStructures.Add('RAS_O02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RAS_O02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RAS_O02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -11185,7 +11185,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', False, False, gtSingle); oGrp1.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('REF_I13', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('REF_I13', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('REF_I13', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -11226,7 +11226,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', False, False, gtSingle); oGrp1.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('REF_I14', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('REF_I14', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('REF_I14', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -11267,7 +11267,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', False, False, gtSingle); oGrp1.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('REF_I15', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('REF_I15', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('REF_I15', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -11442,7 +11442,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', False, False, gtSingle); oGrp1.Children.Add('PV2', True, False, gtSingle); oGrp1.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('RPA_I09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RPA_I09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RPA_I09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -11483,7 +11483,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', False, False, gtSingle); oGrp1.Children.Add('PV2', True, False, gtSingle); oGrp1.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('RPA_I10', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RPA_I10', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RPA_I10', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -11524,7 +11524,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', False, False, gtSingle); oGrp1.Children.Add('PV2', True, False, gtSingle); oGrp1.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('RPA_I11', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RPA_I11', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RPA_I11', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -11582,7 +11582,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp2.Children.Add('IN2', True, False, gtSingle); oGrp2.Children.Add('IN3', True, False, gtSingle); oStructure.SegmentMap.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('RPI_I04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RPI_I04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RPI_I04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -11661,7 +11661,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', False, False, gtSingle); oGrp1.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('RQA_I09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RQA_I09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RQA_I09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -11702,7 +11702,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', False, False, gtSingle); oGrp1.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('RQA_I10', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RQA_I10', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RQA_I10', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -11743,7 +11743,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', False, False, gtSingle); oGrp1.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('RQA_I11', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RQA_I11', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RQA_I11', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -11826,7 +11826,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp2.Children.Add('IN2', True, False, gtSingle); oGrp2.Children.Add('IN3', True, False, gtSingle); oStructure.SegmentMap.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('RQI_I02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RQI_I02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RQI_I02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -11842,7 +11842,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp2.Children.Add('IN2', True, False, gtSingle); oGrp2.Children.Add('IN3', True, False, gtSingle); oStructure.SegmentMap.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('RQI_I03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RQI_I03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RQI_I03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -11909,7 +11909,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3.Children.Add('RXD', False, False, gtSingle); oGrp3.Children.Add('RXR', False, True, gtSingle); oGrp3.Children.Add('RXC', True, True, gtSingle); - oStructure := oStructures.Add('RRE_O01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RRE_O01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RRE_O01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -11979,7 +11979,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', False, False, gtSingle); oGrp1.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('RRI_I13', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RRI_I13', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RRI_I13', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12014,7 +12014,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', False, False, gtSingle); oGrp1.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('RRI_I14', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RRI_I14', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RRI_I14', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12049,7 +12049,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('PV1', False, False, gtSingle); oGrp1.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('RRI_I15', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RRI_I15', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RRI_I15', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12134,7 +12134,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3 := oGrp2.Children.Add('', False, True, gtGroup); oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SIU_S13', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SIU_S13', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SIU_S13', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12165,7 +12165,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3 := oGrp2.Children.Add('', False, True, gtGroup); oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SIU_S14', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SIU_S14', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SIU_S14', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12196,7 +12196,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3 := oGrp2.Children.Add('', False, True, gtGroup); oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SIU_S15', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SIU_S15', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SIU_S15', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12227,7 +12227,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3 := oGrp2.Children.Add('', False, True, gtGroup); oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SIU_S16', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SIU_S16', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SIU_S16', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12258,7 +12258,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3 := oGrp2.Children.Add('', False, True, gtGroup); oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SIU_S17', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SIU_S17', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SIU_S17', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12289,7 +12289,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3 := oGrp2.Children.Add('', False, True, gtGroup); oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SIU_S18', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SIU_S18', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SIU_S18', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12320,7 +12320,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3 := oGrp2.Children.Add('', False, True, gtGroup); oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SIU_S19', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SIU_S19', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SIU_S19', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12351,7 +12351,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3 := oGrp2.Children.Add('', False, True, gtGroup); oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SIU_S20', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SIU_S20', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SIU_S20', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12382,7 +12382,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3 := oGrp2.Children.Add('', False, True, gtGroup); oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SIU_S21', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SIU_S21', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SIU_S21', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12413,7 +12413,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3 := oGrp2.Children.Add('', False, True, gtGroup); oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SIU_S22', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SIU_S22', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SIU_S22', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12444,7 +12444,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3 := oGrp2.Children.Add('', False, True, gtGroup); oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SIU_S23', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SIU_S23', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SIU_S23', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12475,7 +12475,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3 := oGrp2.Children.Add('', False, True, gtGroup); oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SIU_S24', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SIU_S24', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SIU_S24', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12506,7 +12506,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3 := oGrp2.Children.Add('', False, True, gtGroup); oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SIU_S26', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SIU_S26', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SIU_S26', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12644,7 +12644,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('APR', True, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRM_S02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRM_S02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRM_S02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12680,7 +12680,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('APR', True, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRM_S03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRM_S03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRM_S03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12716,7 +12716,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('APR', True, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRM_S04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRM_S04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRM_S04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12752,7 +12752,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('APR', True, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRM_S05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRM_S05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRM_S05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12788,7 +12788,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('APR', True, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRM_S06', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRM_S06', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRM_S06', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12824,7 +12824,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('APR', True, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRM_S07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRM_S07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRM_S07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12860,7 +12860,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('APR', True, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRM_S08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRM_S08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRM_S08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12896,7 +12896,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('APR', True, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRM_S09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRM_S09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRM_S09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12932,7 +12932,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('APR', True, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRM_S10', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRM_S10', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRM_S10', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12968,7 +12968,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp3.Children.Add('AIP', False, False, gtSingle); oGrp3.Children.Add('APR', True, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRM_S11', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRM_S11', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRM_S11', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -13038,7 +13038,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp4 := oGrp3.Children.Add('', False, True, gtGroup); oGrp4.Children.Add('AIP', False, False, gtSingle); oGrp4.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRR_S02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRR_S02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRR_S02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -13071,7 +13071,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp4 := oGrp3.Children.Add('', False, True, gtGroup); oGrp4.Children.Add('AIP', False, False, gtSingle); oGrp4.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRR_S03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRR_S03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRR_S03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -13104,7 +13104,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp4 := oGrp3.Children.Add('', False, True, gtGroup); oGrp4.Children.Add('AIP', False, False, gtSingle); oGrp4.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRR_S04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRR_S04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRR_S04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -13137,7 +13137,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp4 := oGrp3.Children.Add('', False, True, gtGroup); oGrp4.Children.Add('AIP', False, False, gtSingle); oGrp4.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRR_S05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRR_S05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRR_S05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -13170,7 +13170,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp4 := oGrp3.Children.Add('', False, True, gtGroup); oGrp4.Children.Add('AIP', False, False, gtSingle); oGrp4.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRR_S06', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRR_S06', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRR_S06', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -13203,7 +13203,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp4 := oGrp3.Children.Add('', False, True, gtGroup); oGrp4.Children.Add('AIP', False, False, gtSingle); oGrp4.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRR_S07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRR_S07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRR_S07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -13236,7 +13236,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp4 := oGrp3.Children.Add('', False, True, gtGroup); oGrp4.Children.Add('AIP', False, False, gtSingle); oGrp4.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRR_S08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRR_S08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRR_S08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -13269,7 +13269,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp4 := oGrp3.Children.Add('', False, True, gtGroup); oGrp4.Children.Add('AIP', False, False, gtSingle); oGrp4.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRR_S09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRR_S09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRR_S09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -13302,7 +13302,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp4 := oGrp3.Children.Add('', False, True, gtGroup); oGrp4.Children.Add('AIP', False, False, gtSingle); oGrp4.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRR_S10', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRR_S10', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRR_S10', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -13335,7 +13335,7 @@ procedure Definitions23LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp4 := oGrp3.Children.Add('', False, True, gtGroup); oGrp4.Children.Add('AIP', False, False, gtSingle); oGrp4.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SRR_S11', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SRR_S11', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SRR_S11', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); diff --git a/library/v2/v2_dictionary_v231.pas b/library/v2/v2_dictionary_v231.pas index fb4634ec4..ad92c53d6 100644 --- a/library/v2/v2_dictionary_v231.pas +++ b/library/v2/v2_dictionary_v231.pas @@ -9005,420 +9005,420 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A06', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A06', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A06', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A10', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A10', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A10', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A11', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A11', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A11', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A12', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A12', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A12', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A13', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A13', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A13', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A14', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A14', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A14', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A15', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A15', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A15', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A16', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A16', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A16', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A17', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A17', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A17', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A18', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A18', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A18', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A20', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A20', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A20', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A21', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A21', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A21', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A22', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A22', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A22', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A23', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A23', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A23', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A24', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A24', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A24', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A25', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A25', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A25', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A26', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A26', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A26', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A27', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A27', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A27', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A28', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A28', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A28', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A29', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A29', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A29', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A30', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A30', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A30', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A31', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A31', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A31', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A32', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A32', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A32', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A33', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A33', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A33', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A34', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A34', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A34', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A35', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A35', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A35', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A36', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A36', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A36', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A37', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A37', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A37', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A38', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A38', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A38', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A39', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A39', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A39', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A40', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A40', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A40', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A41', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A41', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A41', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A42', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A42', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A42', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A43', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A43', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A43', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A44', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A44', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A44', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A45', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A45', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A45', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A46', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A46', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A46', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A47', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A47', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A47', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A48', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A48', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A48', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A49', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A49', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A49', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A50', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A50', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A50', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_A51', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_A51', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_A51', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_I07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_I07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_I07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_P01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_P01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_P01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_P02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_P02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_P02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_P03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_P03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_P03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_P05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_P05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_P05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_P06', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_P06', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_P06', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_Q03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_Q03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_Q03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_Q05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_Q05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_Q05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_R01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_R01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_R01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); - oStructure := oStructures.Add('ACK_T01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T06', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T06', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T06', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T10', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T10', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T10', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_T11', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_T11', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_T11', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9515,7 +9515,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oGrp2.Children.Add('PR1', False, False, gtSingle); oGrp2.Children.Add('ROL', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9543,7 +9543,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9600,7 +9600,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9629,7 +9629,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9669,7 +9669,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A10', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A10', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A10', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9681,7 +9681,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A11', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A11', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A11', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9705,7 +9705,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DG1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A13', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A13', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A13', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9733,7 +9733,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A14', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A14', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A14', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9761,7 +9761,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A15', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A15', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A15', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9818,7 +9818,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('EVN', False, False, gtSingle); oStructure.SegmentMap.Children.Add('NPU', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A21', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A21', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A21', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9829,7 +9829,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A22', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A22', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A22', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9840,7 +9840,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A23', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A23', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A23', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9864,7 +9864,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PD1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A25', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A25', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A25', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9875,7 +9875,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A26', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A26', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A26', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9886,7 +9886,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A27', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A27', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A27', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9897,7 +9897,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A28', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A28', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A28', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9925,7 +9925,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A29', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A29', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A29', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9944,7 +9944,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PD1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A31', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A31', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A31', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9972,7 +9972,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('ACC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('UB2', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A32', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A32', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A32', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9983,7 +9983,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A33', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A33', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A33', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -9994,7 +9994,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PV2', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DB1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('OBX', True, True, gtSingle); - oStructure := oStructures.Add('ADT_A34', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A34', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A34', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10002,7 +10002,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PD1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A35', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A35', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A35', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10010,7 +10010,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PD1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A36', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A36', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A36', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10054,7 +10054,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oGrp1.Children.Add('PD1', True, False, gtSingle); oGrp1.Children.Add('MRG', False, False, gtSingle); oGrp1.Children.Add('PV1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A40', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A40', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A40', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10064,7 +10064,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oGrp1.Children.Add('PD1', True, False, gtSingle); oGrp1.Children.Add('MRG', False, False, gtSingle); oGrp1.Children.Add('PV1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A41', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A41', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A41', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10074,7 +10074,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oGrp1.Children.Add('PD1', True, False, gtSingle); oGrp1.Children.Add('MRG', False, False, gtSingle); oGrp1.Children.Add('PV1', True, False, gtSingle); - oStructure := oStructures.Add('ADT_A42', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A42', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A42', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10093,7 +10093,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oGrp1.Children.Add('PID', False, False, gtSingle); oGrp1.Children.Add('PD1', True, False, gtSingle); oGrp1.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A44', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A44', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A44', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10112,7 +10112,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oGrp1 := oStructure.SegmentMap.Children.Add('MERGE_INFO', False, True, gtGroup); oGrp1.Children.Add('MRG', False, False, gtSingle); oGrp1.Children.Add('PV1', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A46', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A46', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A46', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10120,7 +10120,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PD1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A47', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A47', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A47', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10128,7 +10128,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PD1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A48', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A48', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A48', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10136,7 +10136,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PD1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A49', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A49', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A49', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10153,7 +10153,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PD1', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MRG', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); - oStructure := oStructures.Add('ADT_A51', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ADT_A51', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ADT_A51', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10201,7 +10201,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oGrp1.Children.Add('PD1', True, False, gtSingle); oGrp1.Children.Add('PV1', True, False, gtSingle); oGrp1.Children.Add('DB1', True, True, gtSingle); - oStructure := oStructures.Add('BAR_P05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('BAR_P05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('BAR_P05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10378,7 +10378,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', False, True, gtSingle); - oStructure := oStructures.Add('MDM_T03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10386,7 +10386,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); - oStructure := oStructures.Add('MDM_T04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10395,7 +10395,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', False, False, gtSingle); - oStructure := oStructures.Add('MDM_T05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10403,7 +10403,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); - oStructure := oStructures.Add('MDM_T06', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T06', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T06', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10412,7 +10412,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', False, True, gtSingle); - oStructure := oStructures.Add('MDM_T07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10420,7 +10420,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); - oStructure := oStructures.Add('MDM_T08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10429,7 +10429,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', False, True, gtSingle); - oStructure := oStructures.Add('MDM_T09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10437,7 +10437,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PID', False, False, gtSingle); oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); - oStructure := oStructures.Add('MDM_T10', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T10', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T10', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10446,7 +10446,7 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('PV1', False, False, gtSingle); oStructure.SegmentMap.Children.Add('TXA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('OBX', False, True, gtSingle); - oStructure := oStructures.Add('MDM_T11', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MDM_T11', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MDM_T11', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -10463,21 +10463,21 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); oStructure.SegmentMap.Children.Add('MFI', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFA', True, True, gtSingle); - oStructure := oStructures.Add('MFK_M04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFK_M04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFK_M04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFI', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFA', True, True, gtSingle); - oStructure := oStructures.Add('MFK_M05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFK_M05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFK_M05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFI', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MFA', True, True, gtSingle); - oStructure := oStructures.Add('MFK_M06', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('MFK_M06', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('MFK_M06', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -11457,19 +11457,19 @@ procedure Definitions231LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); - oStructure := oStructures.Add('QRY_PC9', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QRY_PC9', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QRY_PC9', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); - oStructure := oStructures.Add('QRY_PCE', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QRY_PCE', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QRY_PCE', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); - oStructure := oStructures.Add('QRY_PCK', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QRY_PCK', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QRY_PCK', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -11843,7 +11843,7 @@ procedure Definitions231LoadMessageStructures2(oStructures : THL7V2ModelMessageS oGrp3 := oGrp2.Children.Add('OBSERVATION', False, True, gtGroup); oGrp3.Children.Add('OBX', True, False, gtSingle); oGrp3.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('ROR_R0R', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ROR_R0R', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ROR_R0R', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -11920,7 +11920,7 @@ procedure Definitions231LoadMessageStructures2(oStructures : THL7V2ModelMessageS oGrp2.Children.Add('IN2', True, False, gtSingle); oGrp2.Children.Add('IN3', True, False, gtSingle); oStructure.SegmentMap.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('RPI_I04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RPI_I04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RPI_I04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12038,7 +12038,7 @@ procedure Definitions231LoadMessageStructures2(oStructures : THL7V2ModelMessageS oGrp2.Children.Add('IN2', True, False, gtSingle); oGrp2.Children.Add('IN3', True, False, gtSingle); oStructure.SegmentMap.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('RQI_I02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RQI_I02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RQI_I02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -12054,7 +12054,7 @@ procedure Definitions231LoadMessageStructures2(oStructures : THL7V2ModelMessageS oGrp2.Children.Add('IN2', True, False, gtSingle); oGrp2.Children.Add('IN3', True, False, gtSingle); oStructure.SegmentMap.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('RQI_I03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RQI_I03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RQI_I03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); diff --git a/library/v2/v2_dictionary_v24.pas b/library/v2/v2_dictionary_v24.pas index c72dc33cc..9f5d010e4 100644 --- a/library/v2/v2_dictionary_v24.pas +++ b/library/v2/v2_dictionary_v24.pas @@ -12331,31 +12331,31 @@ procedure Definitions24LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_N02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); - oStructure := oStructures.Add('ACK_Q03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_Q03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_Q03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_Q05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_Q05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_Q05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_Q16', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_Q16', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_Q16', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_Q17', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_Q17', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_Q17', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('MSA', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ERR', True, False, gtSingle); - oStructure := oStructures.Add('ACK_R01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ACK_R01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ACK_R01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); diff --git a/library/v2/v2_dictionary_v25.pas b/library/v2/v2_dictionary_v25.pas index 1e0a7e7fb..3b58d0cfd 100644 --- a/library/v2/v2_dictionary_v25.pas +++ b/library/v2/v2_dictionary_v25.pas @@ -14188,7 +14188,7 @@ procedure Definitions25LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('TXA', False, False, gtSingle); oGrp1.Children.Add('OBX', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('DSR_Q01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('DSR_Q01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('DSR_Q01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -14200,7 +14200,7 @@ procedure Definitions25LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSP', False, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('DSR_Q03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('DSR_Q03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('DSR_Q03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -14249,7 +14249,7 @@ procedure Definitions25LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp2.Children.Add('SPM', True, True, gtSingle); oGrp1.Children.Add('ECR', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ROL', True, False, gtSingle); - oStructure := oStructures.Add('EDR_R07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('EDR_R07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('EDR_R07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -14259,14 +14259,14 @@ procedure Definitions25LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('QAK', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DSP', False, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('EQQ_Q04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('EQQ_Q04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('EQQ_Q04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('SFT', True, True, gtSingle); oStructure.SegmentMap.Children.Add('EQL', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('ERP_R09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ERP_R09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ERP_R09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -16178,7 +16178,7 @@ procedure Definitions25LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('SFT', True, True, gtSingle); oStructure.SegmentMap.Children.Add('QPD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('RCP', False, False, gtSingle); - oStructure := oStructures.Add('QCK_Q02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QCK_Q02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QCK_Q02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -16220,7 +16220,7 @@ procedure Definitions25LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('QRY_Q02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QRY_Q02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QRY_Q02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -16800,7 +16800,7 @@ procedure Definitions25LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('NK1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('GT1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('RQQ_Q09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RQQ_Q09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RQQ_Q09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -17292,7 +17292,7 @@ procedure Definitions25LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp2 := oGrp1.Children.Add('PERSONNEL_RESOURCE', True, True, gtGroup); oGrp2.Children.Add('AIP', False, False, gtSingle); oGrp2.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SPQ_Q08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SPQ_Q08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SPQ_Q08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -17454,7 +17454,7 @@ procedure Definitions25LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp2.Children.Add('PDC', False, False, gtSingle); oGrp2.Children.Add('NTE', False, False, gtSingle); oGrp1.Children.Add('ED', False, False, gtSingle); - oStructure := oStructures.Add('TBR_R08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('TBR_R08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('TBR_R08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -17475,7 +17475,7 @@ procedure Definitions25LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('SPM', True, False, gtSingle); oGrp1.Children.Add('TCC', False, True, gtSingle); oStructure.SegmentMap.Children.Add('ROL', True, False, gtSingle); - oStructure := oStructures.Add('UDM_Q05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('UDM_Q05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('UDM_Q05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -17484,7 +17484,7 @@ procedure Definitions25LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('URS', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSP', False, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('VQQ_Q07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('VQQ_Q07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('VQQ_Q07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); diff --git a/library/v2/v2_dictionary_v251.pas b/library/v2/v2_dictionary_v251.pas index 3ed29c52d..ca5580ec8 100644 --- a/library/v2/v2_dictionary_v251.pas +++ b/library/v2/v2_dictionary_v251.pas @@ -14590,7 +14590,7 @@ procedure Definitions251LoadMessageStructures1(oStructures : THL7V2ModelMessageS oGrp1.Children.Add('TXA', False, False, gtSingle); oGrp1.Children.Add('OBX', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('DSR_Q01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('DSR_Q01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('DSR_Q01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -14602,7 +14602,7 @@ procedure Definitions251LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSP', False, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('DSR_Q03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('DSR_Q03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('DSR_Q03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -14651,7 +14651,7 @@ procedure Definitions251LoadMessageStructures1(oStructures : THL7V2ModelMessageS oGrp2.Children.Add('SPM', True, True, gtSingle); oGrp1.Children.Add('ECR', False, False, gtSingle); oStructure.SegmentMap.Children.Add('ROL', True, False, gtSingle); - oStructure := oStructures.Add('EDR_R07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('EDR_R07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('EDR_R07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -14661,14 +14661,14 @@ procedure Definitions251LoadMessageStructures1(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('QAK', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DSP', False, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('EQQ_Q04', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('EQQ_Q04', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('EQQ_Q04', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); oStructure.SegmentMap.Children.Add('SFT', True, True, gtSingle); oStructure.SegmentMap.Children.Add('EQL', False, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('ERP_R09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('ERP_R09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('ERP_R09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -16567,7 +16567,7 @@ procedure Definitions251LoadMessageStructures2(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('SFT', True, True, gtSingle); oStructure.SegmentMap.Children.Add('QPD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('RCP', False, False, gtSingle); - oStructure := oStructures.Add('QCK_Q02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QCK_Q02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QCK_Q02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -16609,7 +16609,7 @@ procedure Definitions251LoadMessageStructures2(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('QRY_Q02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QRY_Q02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QRY_Q02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -17195,7 +17195,7 @@ procedure Definitions251LoadMessageStructures2(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('NK1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('GT1', True, True, gtSingle); oStructure.SegmentMap.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('RQQ_Q09', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('RQQ_Q09', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('RQQ_Q09', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -17686,7 +17686,7 @@ procedure Definitions251LoadMessageStructures2(oStructures : THL7V2ModelMessageS oGrp2 := oGrp1.Children.Add('PERSONNEL_RESOURCE', True, True, gtGroup); oGrp2.Children.Add('AIP', False, False, gtSingle); oGrp2.Children.Add('NTE', True, True, gtSingle); - oStructure := oStructures.Add('SPQ_Q08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('SPQ_Q08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('SPQ_Q08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -17848,7 +17848,7 @@ procedure Definitions251LoadMessageStructures2(oStructures : THL7V2ModelMessageS oGrp2.Children.Add('PDC', False, False, gtSingle); oGrp2.Children.Add('NTE', False, False, gtSingle); oGrp1.Children.Add('ED', False, False, gtSingle); - oStructure := oStructures.Add('TBR_R08', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('TBR_R08', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('TBR_R08', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -17869,7 +17869,7 @@ procedure Definitions251LoadMessageStructures2(oStructures : THL7V2ModelMessageS oGrp1.Children.Add('SPM', True, False, gtSingle); oGrp1.Children.Add('TCC', False, True, gtSingle); oStructure.SegmentMap.Children.Add('ROL', True, False, gtSingle); - oStructure := oStructures.Add('UDM_Q05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('UDM_Q05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('UDM_Q05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -17878,7 +17878,7 @@ procedure Definitions251LoadMessageStructures2(oStructures : THL7V2ModelMessageS oStructure.SegmentMap.Children.Add('URS', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSP', False, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('VQQ_Q07', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('VQQ_Q07', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('VQQ_Q07', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); diff --git a/library/v2/v2_dictionary_v26.pas b/library/v2/v2_dictionary_v26.pas index 85f43c171..ff2333c00 100644 --- a/library/v2/v2_dictionary_v26.pas +++ b/library/v2/v2_dictionary_v26.pas @@ -16444,7 +16444,7 @@ procedure Definitions26LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('TXA', False, False, gtSingle); oGrp1.Children.Add('OBX', True, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('DSR_Q01', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('DSR_Q01', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('DSR_Q01', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -16457,7 +16457,7 @@ procedure Definitions26LoadMessageStructures1(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSP', False, True, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('DSR_Q03', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('DSR_Q03', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('DSR_Q03', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -18896,7 +18896,7 @@ procedure Definitions26LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('UAC', True, False, gtSingle); oStructure.SegmentMap.Children.Add('QPD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('RCP', False, False, gtSingle); - oStructure := oStructures.Add('QCK_Q02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QCK_Q02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QCK_Q02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -18937,7 +18937,7 @@ procedure Definitions26LoadMessageStructures2(oStructures : THL7V2ModelMessageSt oStructure.SegmentMap.Children.Add('QRD', False, False, gtSingle); oStructure.SegmentMap.Children.Add('QRF', True, False, gtSingle); oStructure.SegmentMap.Children.Add('DSC', True, False, gtSingle); - oStructure := oStructures.Add('QRY_Q02', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('QRY_Q02', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('QRY_Q02', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); @@ -20277,7 +20277,7 @@ procedure Definitions26LoadMessageStructures3(oStructures : THL7V2ModelMessageSt oGrp1.Children.Add('SPM', True, False, gtSingle); oGrp1.Children.Add('TCC', False, True, gtSingle); oStructure.SegmentMap.Children.Add('ROL', True, False, gtSingle); - oStructure := oStructures.Add('UDM_Q05', '(Implicitly Created by HL7Connect)', '', '', ''); + oStructure := oStructures.Add('UDM_Q05', '(Implicitly Created)', '', '', ''); oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create; oStructure.SegmentMap := THL7V2ModelSegmentGroup.Create('UDM_Q05', False, False, gtGroup); oStructure.SegmentMap.Children.Add('MSH', False, False, gtSingle); diff --git a/library/v2/v2_objects.pas b/library/v2/v2_objects.pas index d9f1d70b3..314451b14 100644 --- a/library/v2/v2_objects.pas +++ b/library/v2/v2_objects.pas @@ -249,7 +249,7 @@ THL7V2BaseObject = class (TFslTree) Property Parent : THL7V2BaseObject Read GetParent Write SetParent; Property Children : THL7V2BaseObjects Read GetChildren Write SetChildren; Property Model : THL7V2Model read GetModel; - Property Slot : TObject read FSlot write FSlot; // this is deprecated, but parts of HL7Connect use this, so cannot currently be removed + Property Slot : TObject read FSlot write FSlot; // this is deprecated end; THL7V2BaseObjectClass = class of THL7V2BaseObject; @@ -875,7 +875,7 @@ THL7V2SegmentGroups = class (TFslTreeList) Procedure SetExceptionCode(Const sMessage, sResponseCode, SErrorCode : String); Procedure StripEmptyRepeats(bLeading: Boolean); - Procedure UpdateSource; // deprecated, but used widely by HL7Connect + Procedure UpdateSource; // deprecated procedure Clone(oSource: THL7V2Message; aOptions: THL7V2DataElementCloneOptions); overload; Function SegmentQuery(query : String):THL7V2SegmentList; procedure ChangeVersion(ANewVersion: String; ADeleteInvalidContent: Boolean); Reintroduce; overload; @@ -900,7 +900,7 @@ THL7V2SegmentGroups = class (TFslTreeList) Property Segment[Const sCode: String; iIndex: Integer]: THL7V2Segment Read GetSegment; // Segment 0 is the first instance of a given segment Property SegmentMap: THL7V2SegmentGroup Read FSegmentMap; Property Segments : THL7V2Segments Read GetChildren Write SetChildren; - Property Source : TBytes Read FSource; // deprecated, but used widely by HL7Connect + Property Source : TBytes Read FSource; // deprecated Property StructName: String Read GetStructID Write SetStructID; End; @@ -4641,7 +4641,7 @@ function THL7V2SegmentGroups.ItemClass: TFslObjectClass; End Else Begin - oSegment.Field[3].AsString := 'HL7Connect'; + oSegment.Field[3].AsString := 'FhirServer'; oSegment.Field[4].AsString := 'Unknown'; oSegment.Field[5].AsString := 'Unknown'; oSegment.Field[6].AsString := 'Unknown'; diff --git a/library/wp/FHIR.WP.Snomed.pas b/library/wp/FHIR.WP.Snomed.pas index 39fdbd72d..805c11fdb 100644 --- a/library/wp/FHIR.WP.Snomed.pas +++ b/library/wp/FHIR.WP.Snomed.pas @@ -30,9 +30,9 @@ { -Snomed Client for HL7Connect Snomed Server. +Snomed Client for FhirServer. -Needs an HL7Connect, configured with Snomed Content. This +Needs an FhirServer, configured with Snomed Content. This client needs a URL, a username, and a password. In addition, the client needs an INI file which it uses for local @@ -174,7 +174,7 @@ TSnomedClient = class (TFslObject) Procedure Initialise; Override; Procedure Finalise; Override; Public - // Access to the Snomed Infrastructure. Needs an HL7Connect behind it. + // Access to the Snomed Infrastructure. Needs an FhirServer behind it. Property Client : TSnomedClient Read FClient Write SetClient; // the selected Snomed Term, if one. Optional when opening the diff --git a/server/FHIRServer.dpr b/server/FHIRServer.dpr index a048f2da0..b9878b8d9 100644 --- a/server/FHIRServer.dpr +++ b/server/FHIRServer.dpr @@ -32,47 +32,6 @@ POSSIBILITY OF SUCH DAMAGE. {$R *.res} -{ -todo: -STU3 draft: - - check using UTF-8 in URLs - - check prepfer = operation outcome - - check turtle support - - check versioning in capabilities statement - - check elements & summary on read/vread - - check delete return codes - - changes to id element on update - - check conditional delete flag. - - search on multiple resource types - - check over transaction handling - - dateTime parameter on history - - check use of 401 instead of 403 - - check handling of unsupported parameters - - check implementations of sa and be prefixes in search - - review searching on names - - check search by canonical URL and version - - add searching for token system| - - reverse chaining - - check _list parameter - - check sorting - - check handling count = 0 - - composite search parameter work - - test flag support - - check document operation - - check handling binary parameter - - update FHIR.Version.PathEngine - - string validation rules - - Both _include and _revInclude use the wild card "*" for the search parameter name, indicating that any search parameter of type=reference be included. - -Add reverse chaining -Grahame, I see you don't respond to either of the following: - http://hl7connect.healthintersections.com.au/svc/fhir/condition/search?subject=patient/350 - http://hl7connect.healthintersections.com.au/svc/fhir/condition/search?subject=patient/@350 -cross resource search -ftx_ucum_base search - -} - uses FastMM4 in '..\dependencies\FMM\FastMM4.pas', FastMM4Messages in '..\dependencies\FMM\FastMM4Messages.pas', diff --git a/server/fhirserver.dproj b/server/fhirserver.dproj index d0534c6d2..5d6dc0dfd 100644 --- a/server/fhirserver.dproj +++ b/server/fhirserver.dproj @@ -179,7 +179,7 @@ 0 - C:\HL7Connect\indysoap\source;$(DCC_UnitSearchPath) + $(DCC_UnitSearchPath) -debug -ini ..\..\server\Exec\fhir.local.ini -xsnomed-rf2 "C:\Data\terminologies\snomed-ct au\20130530\RF2 Release\Snapshot" -xremount -xtests -xloinc C:\Data\terminologies\FHIR.Loinc.Base\LOINCDB.MDB None 1033 diff --git a/server/session.pas b/server/session.pas index 3b16e255a..aefd6f9a3 100644 --- a/server/session.pas +++ b/server/session.pas @@ -303,7 +303,7 @@ TFhirFeatureQueryAnswer = class (TFslObject) The request may have been received over a FHIR RESTful interface, or by receiving a resource or an atom bundle directly from some other kind of interface. - The request may be modified by a script. HL7Connect will ignore changes to the following + The request may be modified by a script. the server will ignore changes to the following properties: url, baseURL, resourceType, and format. These properties should be treated as read-only, but the other properties can be changed as desired } @@ -616,14 +616,14 @@ TFHIRResponse = class (TFslObject) Any http status code may be used, including codes not defined in the http standard (i.e. return 299 to prevent a proxy from caching the response). - HL7Connect will follow the http standard and use the first digit to determine + The server will follow the http standard and use the first digit to determine the general outcome } Property HTTPCode : Integer read FHTTPCode write FHTTPCode; { a specific message to go in the HTTP response line. If left blank, - HL7Connect will fill this out from the http specification + The server will fill this out from the http specification } Property Message : String read FMessage write FMessage; diff --git a/server/web/QuestionnaireToHTML.xslt b/server/web/QuestionnaireToHTML.xslt index 1f64dd0df..c2fdece7e 100644 --- a/server/web/QuestionnaireToHTML.xslt +++ b/server/web/QuestionnaireToHTML.xslt @@ -650,7 +650,6 @@ - - diff --git a/server/web/js/hl7connect.js b/server/web/js/hl7connect.js deleted file mode 100644 index b4e92062a..000000000 --- a/server/web/js/hl7connect.js +++ /dev/null @@ -1,4 +0,0 @@ -function hchelp(s) -{ - window.open('/doco/'+s, "HL7ConnectHelp", "status=0,toolbar=0,location=0,height=500,width=700,resizable=1,directories=0,menubar=0,scrollbars=1"); -} diff --git a/server/web/txform.html b/server/web/txform.html index 7fdaadcc0..f49f84e15 100644 --- a/server/web/txform.html +++ b/server/web/txform.html @@ -47,7 +47,6 @@ -