Fix server to handle batches properly

Author: Grahame Grieve

server/endpoint_txsvr.pas

@@ -972,6 +972,7 @@ function TTerminologyServerOperationEngine.ExecuteTransaction(context: TOperatio
     try
       if check(response, request.Resource.fhirType = 'Bundle', 400, langList, 'A bundle is required for a Transaction operation', itInvalid) then
       begin
+        context.groupId := NewGuidId;
         req := factory.wrapBundle(request.resource.Link);
         resp := factory.wrapBundle(factory.makeResource('Bundle'));
         tt := TFslTimeTracker.create;

server/tx/tx_omop.pas

@@ -485,6 +485,7 @@ function getVocabId(url : String) : Integer;
   else if (url = 'http://hl7.org/fhir/sid/ndc') then result := 44819105
   else if (url = 'http://unitsofmeasure.org') then result := 44819107
   else if (url = 'http://nucc.org/provider-taxonomy') then result := 44819137
+  else if (url = 'http://www.whocc.no/atc') then result := 44819117
   else
     result := -1;
 
@@ -528,7 +529,7 @@ function getUri(key : integer) : String;
 //44819108	Gender
 //44819109	Race
 //44819110	CMS Place of Service
-//44819117	ATC
+  44819117: exit('http://www.whocc.no/atc'); //	ATC
 //44819119	Visit
 //44819126	Drug Type
 //44819127	Condition Type

server/tx_operations.pas

@@ -1336,7 +1336,7 @@ function TFhirTerminologyOperation.processAdditionalResources(context : TOperati
   cs : TFHIRCodeSystemW;
   cm : TFHIRConceptMapW;
 begin
-  cacheId := '';
+  cacheId := context.groupId;
   list := TFslMetadataResourceList.Create;
   try
     if (mr <> nil) then