Skip to content

Commit ec3bb7a

Browse files
grahamegrievegrahamegrieve
committed
# Conflicts: # release-notes.md
2 parents 332dadd + 4a700bc commit ec3bb7a

File tree

14 files changed

+385
-153
lines changed

14 files changed

+385
-153
lines changed

‎exec/pack/Messages.properties‎

Lines changed: 61 additions & 49 deletions
Large diffs are not rendered by default.

‎library/fhir/fhir_common.pas‎

Lines changed: 5 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -410,9 +410,9 @@ TFhirOperationOutcomeW = class (TFHIRXVersionResourceWrapper)
410410
function severity : TIssueSeverity; virtual; abstract;
411411
function code : TFhirIssueType; virtual; abstract;
412412

413-
procedure addIssue(issue : TFhirOperationOutcomeIssueW; free : boolean); overload; virtual; abstract;
414-
procedure addIssueNoId(level : TIssueSeverity; cause : TFhirIssueType; path, message : String; issueCode : TOpIssueCode; addIfDuplicate : boolean = false); overload; virtual; abstract;
415-
procedure addIssue(level : TIssueSeverity; cause : TFhirIssueType; path, msgId, message : String; issueCode : TOpIssueCode; addIfDuplicate : boolean = false); overload; virtual; abstract;
413+
function addIssue(issue : TFhirOperationOutcomeIssueW; free : boolean): boolean; overload; virtual; abstract;
414+
function addIssueNoId(level : TIssueSeverity; cause : TFhirIssueType; path, message : String; issueCode : TOpIssueCode; addIfDuplicate : boolean = false): boolean; overload; virtual; abstract;
415+
function addIssue(level : TIssueSeverity; cause : TFhirIssueType; path, msgId, message : String; issueCode : TOpIssueCode; addIfDuplicate : boolean = false): boolean; overload; virtual; abstract;
416416
procedure addDiagsIssue(message : string); virtual; abstract;
417417
function hasIssues : boolean; virtual; abstract;
418418
function issues : TFslList<TFhirOperationOutcomeIssueW>; virtual; abstract;
@@ -850,6 +850,7 @@ TFhirCodeSystemW = class (TFHIRMetadataResourceW)
850850
function getCount: integer; virtual; abstract;
851851
procedure setCount(Value: integer); virtual; abstract;
852852
function sizeInBytesV(magic : integer) : cardinal; override;
853+
function GetVersionNeeded : boolean; virtual; abstract;
853854
public
854855
destructor Destroy; override;
855856
function link : TFhirCodeSystemW; overload;
@@ -861,6 +862,7 @@ TFhirCodeSystemW = class (TFHIRMetadataResourceW)
861862
function copyright : String; virtual; abstract;
862863
function language : String; virtual; abstract;
863864
property caseSensitive : boolean read GetCaseSensitive;
865+
property versionNeeded : boolean read GetVersionNeeded;
864866

865867
function properties : TFslList<TFhirCodeSystemPropertyW>; virtual; abstract;
866868
function propertyCode(uri : String) : String;

‎library/fhir3/fhir3_common.pas‎

Lines changed: 18 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -177,9 +177,9 @@ TFhirOperationOutcome3 = class (TFhirOperationOutcomeW)
177177
function hasText : boolean; override;
178178
function text : String; override;
179179
function code : TFhirIssueType; override;
180-
procedure addIssue(issue : TFhirOperationOutcomeIssueW; free : boolean); override;
181-
procedure addIssueNoId(level : TIssueSeverity; cause : TFHIRIssueType; path, message : String; code : TOpIssueCode; addIfDuplicate : boolean); override;
182-
procedure addIssue(level : TIssueSeverity; cause : TFhirIssueType; path, msgId, message : String; code : TOpIssueCode; addIfDuplicate : boolean = false); overload; override;
180+
function addIssue(issue : TFhirOperationOutcomeIssueW; free : boolean) : boolean; override;
181+
function addIssueNoId(level : TIssueSeverity; cause : TFHIRIssueType; path, message : String; code : TOpIssueCode; addIfDuplicate : boolean) : boolean; override;
182+
function addIssue(level : TIssueSeverity; cause : TFhirIssueType; path, msgId, message : String; code : TOpIssueCode; addIfDuplicate : boolean = false) : boolean; overload; override;
183183
procedure addDiagsIssue(message : string); override;
184184
function hasIssues : boolean; override;
185185
function issues : TFslList<TFhirOperationOutcomeIssueW>; override;
@@ -752,6 +752,7 @@ TFhirCodeSystem3 = class (TFhirCodeSystemW)
752752
function getName : String; override;
753753
function getVersion : String; override;
754754
function getVersionAlgorithm : TFHIRVersionAlgorithm; override;
755+
function getVersionNeeded : boolean; override;
755756
function getDescription : String; override;
756757
function copyright : String; override;
757758
function language : String; override;
@@ -1452,22 +1453,23 @@ function TFHIRPrimitive3.wrapExtension(extension: TFHIRObject): TFHIRExtensionW;
14521453

14531454
{ TFhirOperationOutcome3 }
14541455

1455-
procedure TFhirOperationOutcome3.addIssue(issue: TFhirOperationOutcomeIssueW; free : boolean);
1456+
function TFhirOperationOutcome3.addIssue(issue: TFhirOperationOutcomeIssueW; free : boolean) : boolean;
14561457
begin
14571458
(Fres as TFhirOperationOutcome).issueList.Add((issue.Element as TFhirOperationOutcomeIssue).link);
14581459
if free then
14591460
issue.free;
1461+
result := true;
14601462
end;
14611463

1462-
procedure TFhirOperationOutcome3.addIssueNoId(level: TIssueSeverity; cause: TFHIRIssueType; path, message : String; code : TOpIssueCode; addIfDuplicate : boolean);
1464+
function TFhirOperationOutcome3.addIssueNoId(level: TIssueSeverity; cause: TFHIRIssueType; path, message : String; code : TOpIssueCode; addIfDuplicate : boolean) : boolean;
14631465
var
14641466
iss : TFhirOperationOutcomeIssue;
14651467
begin
14661468
if not addIfDuplicate then
14671469
begin
14681470
for iss in (Fres as TFhirOperationOutcome).issueList do
14691471
if (iss.details <> nil) and (iss.details.text = message) then
1470-
exit();
1472+
exit(false);
14711473
end;
14721474

14731475
iss := (Fres as TFhirOperationOutcome).issueList.Append;
@@ -1479,19 +1481,20 @@ procedure TFhirOperationOutcome3.addIssueNoId(level: TIssueSeverity; cause: TFHI
14791481
iss.details.text := message;
14801482
iss.locationList.Add(path);
14811483
iss.expressionList.Add(path);
1484+
result := true;
14821485
end;
14831486

1484-
procedure TFhirOperationOutcome3.addIssue(level: TIssueSeverity;
1487+
function TFhirOperationOutcome3.addIssue(level: TIssueSeverity;
14851488
cause: TFhirIssueType; path, msgId, message: String; code: TOpIssueCode;
1486-
addIfDuplicate: boolean);
1489+
addIfDuplicate: boolean) : boolean;
14871490
var
14881491
iss : TFhirOperationOutcomeIssue;
14891492
begin
14901493
if not addIfDuplicate then
14911494
begin
14921495
for iss in (Fres as TFhirOperationOutcome).issueList do
14931496
if (iss.details <> nil) and (iss.details.text = message) then
1494-
exit();
1497+
exit(false);
14951498
end;
14961499

14971500
iss := (Fres as TFhirOperationOutcome).issueList.Append;
@@ -1504,6 +1507,7 @@ procedure TFhirOperationOutcome3.addIssue(level: TIssueSeverity;
15041507
iss.locationList.Add(path);
15051508
iss.expressionList.Add(path);
15061509
iss.addExtension('http://hl7.org/fhir/StructureDefinition/operationoutcome-message-id', msgid);
1510+
result := false;
15071511
end;
15081512

15091513
procedure TFhirOperationOutcome3.addDiagsIssue(message: string);
@@ -4693,6 +4697,11 @@ function TFhirCodeSystem3.getVersionAlgorithm: TFHIRVersionAlgorithm;
46934697
result := vaUnknown;
46944698
end;
46954699

4700+
function TFhirCodeSystem3.getVersionNeeded: boolean;
4701+
begin
4702+
result := cs.versionNeeded;
4703+
end;
4704+
46964705
{ TFhirValueSetExpansion3 }
46974706

46984707
procedure TFhirValueSetExpansion3.addContains(item: TFhirValueSetExpansionContainsW);

‎library/fhir4/fhir4_common.pas‎

Lines changed: 18 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -175,9 +175,9 @@ TFhirOperationOutcome4 = class (TFhirOperationOutcomeW)
175175
function hasText : boolean; override;
176176
function text : String; override;
177177
function code : TFhirIssueType; override;
178-
procedure addIssue(issue : TFhirOperationOutcomeIssueW; free : boolean); override;
179-
procedure addIssueNoId(level : TIssueSeverity; cause : TFHIRIssueType; path, message : String; code : TOpIssueCode; addIfDuplicate : boolean); override;
180-
procedure addIssue(level : TIssueSeverity; cause : TFhirIssueType; path, msgId, message : String; code : TOpIssueCode; addIfDuplicate : boolean = false); overload; override;
178+
function addIssue(issue : TFhirOperationOutcomeIssueW; free : boolean) : boolean; override;
179+
function addIssueNoId(level : TIssueSeverity; cause : TFHIRIssueType; path, message : String; code : TOpIssueCode; addIfDuplicate : boolean) : boolean; override;
180+
function addIssue(level : TIssueSeverity; cause : TFhirIssueType; path, msgId, message : String; code : TOpIssueCode; addIfDuplicate : boolean = false) : boolean; overload; override;
181181
procedure addDiagsIssue(message : string); override;
182182
function hasIssues : boolean; override;
183183
function issues : TFslList<TFhirOperationOutcomeIssueW>; override;
@@ -765,6 +765,7 @@ TFhirCodeSystem4 = class (TFhirCodeSystemW)
765765
function getName : String; override;
766766
function getVersion : String; override;
767767
function getVersionAlgorithm : TFHIRVersionAlgorithm; override;
768+
function getVersionNeeded : boolean; override;
768769
function getDescription : String; override;
769770
procedure setDate(Value: TFslDateTime); override;
770771
procedure setDescription(Value: String); override;
@@ -1422,14 +1423,15 @@ function TFHIRPrimitive4.wrapExtension(extension: TFHIRObject): TFHIRExtensionW;
14221423

14231424
{ TFhirOperationOutcome4 }
14241425

1425-
procedure TFhirOperationOutcome4.addIssue(issue: TFhirOperationOutcomeIssueW; free : boolean);
1426+
function TFhirOperationOutcome4.addIssue(issue: TFhirOperationOutcomeIssueW; free : boolean) : boolean;
14261427
begin
14271428
(Fres as TFhirOperationOutcome).issueList.Add((issue.Element as TFhirOperationOutcomeIssue).link);
14281429
if free then
14291430
issue.free;
1431+
result := true;
14301432
end;
14311433

1432-
procedure TFhirOperationOutcome4.addIssueNoId(level: TIssueSeverity; cause: TFHIRIssueType; path, message : String; code : TOpIssueCode; addIfDuplicate : boolean);
1434+
function TFhirOperationOutcome4.addIssueNoId(level: TIssueSeverity; cause: TFHIRIssueType; path, message : String; code : TOpIssueCode; addIfDuplicate : boolean) : boolean;
14331435
var
14341436
iss : TFhirOperationOutcomeIssue;
14351437
begin
@@ -1442,7 +1444,7 @@ procedure TFhirOperationOutcome4.addIssueNoId(level: TIssueSeverity; cause: TFHI
14421444
begin
14431445
for iss in (Fres as TFhirOperationOutcome).issueList do
14441446
if (iss.details <> nil) and (iss.details.text = message) then
1445-
exit();
1447+
exit(false);
14461448
end;
14471449

14481450
iss := (Fres as TFhirOperationOutcome).issueList.Append;
@@ -1454,11 +1456,12 @@ procedure TFhirOperationOutcome4.addIssueNoId(level: TIssueSeverity; cause: TFHI
14541456
iss.details.text := message;
14551457
iss.locationList.Add(path);
14561458
iss.expressionList.Add(path);
1459+
result := true;
14571460
end;
14581461

1459-
procedure TFhirOperationOutcome4.addIssue(level: TIssueSeverity;
1462+
function TFhirOperationOutcome4.addIssue(level: TIssueSeverity;
14601463
cause: TFhirIssueType; path, msgId, message: String; code: TOpIssueCode;
1461-
addIfDuplicate: boolean);
1464+
addIfDuplicate: boolean) : boolean;
14621465
var
14631466
iss : TFhirOperationOutcomeIssue;
14641467
begin
@@ -1471,7 +1474,7 @@ procedure TFhirOperationOutcome4.addIssue(level: TIssueSeverity;
14711474
begin
14721475
for iss in (Fres as TFhirOperationOutcome).issueList do
14731476
if (iss.details <> nil) and (iss.details.text = message) then
1474-
exit();
1477+
exit(false);
14751478
end;
14761479

14771480
iss := (Fres as TFhirOperationOutcome).issueList.Append;
@@ -1485,6 +1488,7 @@ procedure TFhirOperationOutcome4.addIssue(level: TIssueSeverity;
14851488
iss.expressionList.Add(path);
14861489
if (msgId <> '') then
14871490
iss.addExtension('http://hl7.org/fhir/StructureDefinition/operationoutcome-message-id', msgid);
1491+
result := true;
14881492
end;
14891493

14901494
procedure TFhirOperationOutcome4.addDiagsIssue(message: string);
@@ -4381,6 +4385,11 @@ function TFhirCodeSystem4.getVersionAlgorithm: TFHIRVersionAlgorithm;
43814385
result := vaUnknown;
43824386
end;
43834387

4388+
function TFhirCodeSystem4.getVersionNeeded: boolean;
4389+
begin
4390+
result := cs.versionNeeded;
4391+
end;
4392+
43844393
{ TFhirValueSetExpansion4 }
43854394

43864395
procedure TFhirValueSetExpansion4.addContains(item: TFhirValueSetExpansionContainsW);

‎library/fhir4b/fhir4b_common.pas‎

Lines changed: 18 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -176,9 +176,9 @@ TFhirOperationOutcome4B = class (TFhirOperationOutcomeW)
176176
function hasText : boolean; override;
177177
function text : String; override;
178178
function code : TFhirIssueType; override;
179-
procedure addIssue(issue : TFhirOperationOutcomeIssueW; free : boolean); override;
180-
procedure addIssueNoId(level : TIssueSeverity; cause : TFHIRIssueType; path, message : String; code : TOpIssueCode; addIfDuplicate : boolean); override;
181-
procedure addIssue(level : TIssueSeverity; cause : TFhirIssueType; path, msgId, message : String; code : TOpIssueCode; addIfDuplicate : boolean = false); overload; override;
179+
function addIssue(issue : TFhirOperationOutcomeIssueW; free : boolean) : boolean; override;
180+
function addIssueNoId(level : TIssueSeverity; cause : TFHIRIssueType; path, message : String; code : TOpIssueCode; addIfDuplicate : boolean) : boolean; override;
181+
function addIssue(level : TIssueSeverity; cause : TFhirIssueType; path, msgId, message : String; code : TOpIssueCode; addIfDuplicate : boolean = false) : boolean; overload; override;
182182
procedure addDiagsIssue(message : string); override;
183183
function hasIssues : boolean; override;
184184
function issues : TFslList<TFhirOperationOutcomeIssueW>; override;
@@ -766,6 +766,7 @@ TFhirCodeSystem4B = class (TFhirCodeSystemW)
766766
function getName : String; override;
767767
function getVersion : String; override;
768768
function getVersionAlgorithm : TFHIRVersionAlgorithm; override;
769+
function getVersionNeeded : boolean; override;
769770
function getDescription : String; override;
770771
procedure setDate(Value: TFslDateTime); override;
771772
procedure setDescription(Value: String); override;
@@ -1426,22 +1427,23 @@ function TFHIRPrimitive4B.wrapExtension(extension: TFHIRObject): TFHIRExtensionW
14261427

14271428
{ TFhirOperationOutcome4B }
14281429

1429-
procedure TFhirOperationOutcome4B.addIssue(issue: TFhirOperationOutcomeIssueW; free : boolean);
1430+
function TFhirOperationOutcome4B.addIssue(issue: TFhirOperationOutcomeIssueW; free : boolean) : boolean;
14301431
begin
14311432
(Fres as TFhirOperationOutcome).issueList.Add((issue.Element as TFhirOperationOutcomeIssue).link);
14321433
if free then
14331434
issue.free;
1435+
result := true;
14341436
end;
14351437

1436-
procedure TFhirOperationOutcome4B.addIssueNoId(level: TIssueSeverity; cause: TFHIRIssueType; path, message : String; code : TOpIssueCode; addIfDuplicate : boolean);
1438+
function TFhirOperationOutcome4B.addIssueNoId(level: TIssueSeverity; cause: TFHIRIssueType; path, message : String; code : TOpIssueCode; addIfDuplicate : boolean) : boolean;
14371439
var
14381440
iss : TFhirOperationOutcomeIssue;
14391441
begin
14401442
if not addIfDuplicate then
14411443
begin
14421444
for iss in (Fres as TFhirOperationOutcome).issueList do
14431445
if (iss.details <> nil) and (iss.details.text = message) then
1444-
exit();
1446+
exit(false);
14451447
end;
14461448

14471449
iss := (Fres as TFhirOperationOutcome).issueList.Append;
@@ -1453,19 +1455,20 @@ procedure TFhirOperationOutcome4B.addIssueNoId(level: TIssueSeverity; cause: TFH
14531455
iss.details.text := message;
14541456
iss.locationList.Add(path);
14551457
iss.expressionList.Add(path);
1458+
result := true;
14561459
end;
14571460

1458-
procedure TFhirOperationOutcome4B.addIssue(level: TIssueSeverity;
1461+
function TFhirOperationOutcome4B.addIssue(level: TIssueSeverity;
14591462
cause: TFhirIssueType; path, msgId, message: String; code: TOpIssueCode;
1460-
addIfDuplicate: boolean);
1463+
addIfDuplicate: boolean) : boolean;
14611464
var
14621465
iss : TFhirOperationOutcomeIssue;
14631466
begin
14641467
if not addIfDuplicate then
14651468
begin
14661469
for iss in (Fres as TFhirOperationOutcome).issueList do
14671470
if (iss.details <> nil) and (iss.details.text = message) then
1468-
exit();
1471+
exit(false);
14691472
end;
14701473

14711474
iss := (Fres as TFhirOperationOutcome).issueList.Append;
@@ -1478,6 +1481,7 @@ procedure TFhirOperationOutcome4B.addIssue(level: TIssueSeverity;
14781481
iss.locationList.Add(path);
14791482
iss.expressionList.Add(path);
14801483
iss.addExtension('http://hl7.org/fhir/StructureDefinition/operationoutcome-message-id', msgid);
1484+
result := true;
14811485
end;
14821486

14831487
procedure TFhirOperationOutcome4B.addDiagsIssue(message: string);
@@ -4373,6 +4377,11 @@ function TFhirCodeSystem4B.getVersionAlgorithm: TFHIRVersionAlgorithm;
43734377
result := vaUnknown;
43744378
end;
43754379

4380+
function TFhirCodeSystem4B.getVersionNeeded: boolean;
4381+
begin
4382+
result := cs.versionNeeded;
4383+
end;
4384+
43764385
{ TFhirValueSetExpansion4B }
43774386

43784387
procedure TFhirValueSetExpansion4B.addContains(item: TFhirValueSetExpansionContainsW);

‎library/fhir5/fhir5_common.pas‎

Lines changed: 17 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -174,9 +174,9 @@ TFhirOperationOutcome5 = class (TFhirOperationOutcomeW)
174174
function hasText : boolean; override;
175175
function text : String; override;
176176
function code : TFhirIssueType; override;
177-
procedure addIssue(issue : TFhirOperationOutcomeIssueW; free : boolean); override;
178-
procedure addIssueNoId(level : TIssueSeverity; cause : TFHIRIssueType; path, message : String; code : TOpIssueCode; addIfDuplicate : boolean); override;
179-
procedure addIssue(level : TIssueSeverity; cause : TFhirIssueType; path, msgId, message : String; code : TOpIssueCode; addIfDuplicate : boolean = false); overload; override;
177+
function addIssue(issue : TFhirOperationOutcomeIssueW; free : boolean) : boolean; override;
178+
function addIssueNoId(level : TIssueSeverity; cause : TFHIRIssueType; path, message : String; code : TOpIssueCode; addIfDuplicate : boolean) : boolean; override;
179+
function addIssue(level : TIssueSeverity; cause : TFhirIssueType; path, msgId, message : String; code : TOpIssueCode; addIfDuplicate : boolean = false) : boolean; overload; override;
180180
procedure addDiagsIssue(message : string); override;
181181
function hasIssues : boolean; override;
182182
function issues : TFslList<TFhirOperationOutcomeIssueW>; override;
@@ -764,6 +764,7 @@ TFhirCodeSystem5 = class (TFhirCodeSystemW)
764764
function getName : String; override;
765765
function getVersion : String; override;
766766
function getVersionAlgorithm : TFHIRVersionAlgorithm; override;
767+
function getVersionNeeded : boolean; override;
767768
function getDescription : String; override;
768769
procedure setDate(Value: TFslDateTime); override;
769770
procedure setDescription(Value: String); override;
@@ -1431,14 +1432,14 @@ function TFHIRPrimitive5.wrapExtension(extension: TFHIRObject): TFHIRExtensionW;
14311432

14321433
{ TFhirOperationOutcome5 }
14331434

1434-
procedure TFhirOperationOutcome5.addIssue(issue: TFhirOperationOutcomeIssueW; free : boolean);
1435+
function TFhirOperationOutcome5.addIssue(issue: TFhirOperationOutcomeIssueW; free : boolean) : boolean;
14351436
begin
14361437
(Fres as TFhirOperationOutcome).issueList.Add((issue.Element as TFhirOperationOutcomeIssue).link);
14371438
if free then
14381439
issue.free;
14391440
end;
14401441

1441-
procedure TFhirOperationOutcome5.addIssueNoId(level: TIssueSeverity; cause: TFHIRIssueType; path, message: String; code : TOpIssueCode; addIfDuplicate : boolean);
1442+
function TFhirOperationOutcome5.addIssueNoId(level: TIssueSeverity; cause: TFHIRIssueType; path, message: String; code : TOpIssueCode; addIfDuplicate : boolean) : boolean;
14421443
var
14431444
iss : TFhirOperationOutcomeIssue;
14441445
begin
@@ -1451,7 +1452,7 @@ procedure TFhirOperationOutcome5.addIssueNoId(level: TIssueSeverity; cause: TFHI
14511452
begin
14521453
for iss in (Fres as TFhirOperationOutcome).issueList do
14531454
if (iss.details <> nil) and (iss.details.text = message) then
1454-
exit();
1455+
exit(false);
14551456
end;
14561457

14571458
iss := (Fres as TFhirOperationOutcome).issueList.Append;
@@ -1463,11 +1464,12 @@ procedure TFhirOperationOutcome5.addIssueNoId(level: TIssueSeverity; cause: TFHI
14631464
iss.details.text := message;
14641465
iss.locationList.Add(path);
14651466
iss.expressionList.Add(path);
1467+
result := true;
14661468
end;
14671469

1468-
procedure TFhirOperationOutcome5.addIssue(level: TIssueSeverity;
1470+
function TFhirOperationOutcome5.addIssue(level: TIssueSeverity;
14691471
cause: TFhirIssueType; path, msgId, message: String; code: TOpIssueCode;
1470-
addIfDuplicate: boolean);
1472+
addIfDuplicate: boolean) : boolean;
14711473
var
14721474
iss : TFhirOperationOutcomeIssue;
14731475
begin
@@ -1480,7 +1482,7 @@ procedure TFhirOperationOutcome5.addIssue(level: TIssueSeverity;
14801482
begin
14811483
for iss in (Fres as TFhirOperationOutcome).issueList do
14821484
if (iss.details <> nil) and (iss.details.text = message) then
1483-
exit();
1485+
exit(false);
14841486
end;
14851487

14861488
iss := (Fres as TFhirOperationOutcome).issueList.Append;
@@ -1493,6 +1495,7 @@ procedure TFhirOperationOutcome5.addIssue(level: TIssueSeverity;
14931495
iss.locationList.Add(path);
14941496
iss.expressionList.Add(path);
14951497
iss.addExtension('http://hl7.org/fhir/StructureDefinition/operationoutcome-message-id', msgid);
1498+
result := true;
14961499
end;
14971500

14981501
procedure TFhirOperationOutcome5.addDiagsIssue(message: string);
@@ -4377,6 +4380,11 @@ function TFhirCodeSystem5.getVersionAlgorithm: TFHIRVersionAlgorithm;
43774380
result := interpretVersionAlgorithm(cs.versionAlgorithm);
43784381
end;
43794382

4383+
function TFhirCodeSystem5.getVersionNeeded: boolean;
4384+
begin
4385+
result := cs.versionNeeded;
4386+
end;
4387+
43804388
{ TFhirValueSetExpansion5 }
43814389

43824390
procedure TFhirValueSetExpansion5.addContains(item: TFhirValueSetExpansionContainsW);

0 commit comments

Comments
 (0)