incompatibility fix to support FHIR in IRIS 2023.2

dev.md

@@ -1,5 +1,5 @@
 # useful commands
-## clean up docker 
+## clean up docker
 ```
 docker system prune -f
 ```
@@ -21,7 +21,8 @@ docker-compose exec iris iris session iris -U FHIRServer
 
 ## FHIR Namespace setup
 
-do ##class(HS.HC.Util.Installer).InstallFoundation("FHIRServer")
+Do ##class(HS.Util.Installer.Foundation).Install(namespace)
+
 
 ## fhir server configuration setup
 ```

iris.script

@@ -2,18 +2,20 @@
     zpm "load /home/irisowner/irisdev/ -v":1:1
     zpm "install fhir-portal"
     halt
-    /// the below is not important anymore. 
-    
+    /// the below is not important anymore.
+
     zn "HSLIB"
     set namespace="FHIRSERVER"
-    
+
     Set appKey = "/fhir/r4"
     Set strategyClass = "HS.FHIRServer.Storage.Json.InteractionsStrategy"
     set metadataPackages = $lb("[email protected]")
     set importdir="/opt/irisapp/src"
 
     //Install a Foundation namespace and change to it
-    Do ##class(HS.HC.Util.Installer).InstallFoundation(namespace)
+    //Do ##class(HS.HC.Util.Installer).InstallFoundation(namespace)
+    Do ##class(HS.Util.Installer.Foundation).Install(namespace)
+
     zn namespace
 
     // Install elements that are required for a FHIR-enabled namespace

module.xml

@@ -3,7 +3,7 @@
   <Document name="fhir-server.ZPM">
     <Module>
       <Name>fhir-server</Name>
-      <Version>1.2.1</Version>
+      <Version>1.3.1</Version>
       <Description>InterSystems FHIR Server with a demo frontend</Description>
       <Keywords>FHIR,Server</Keywords>
       <Packaging>module</Packaging>

src/fhirtemplate/Setup.cls

@@ -14,7 +14,9 @@ ClassMethod SetupFHIRServer(ns) As %Status
     ;set importdir="/opt/irisapp/src"
 
     //Install a Foundation namespace and change to it
-    Do ##class(HS.HC.Util.Installer).InstallFoundation(namespace)
+    //Do ##class(HS.HC.Util.Installer).InstallFoundation(namespace)
+    Do ##class(HS.Util.Installer.Foundation).Install(namespace)
+
     zn namespace
 
     // Install elements that are required for a FHIR-enabled namespace
@@ -46,11 +48,11 @@ ClassMethod AddApp(ns={$namespace}) As %Status
 {
     set namespace=ns
     zn "%SYS"
-    set webName = "/fhirUI" 
-    set webProperties("NameSpace") = namespace 
-    set webProperties("Enabled") = 1 
+    set webName = "/fhirUI"
+    set webProperties("NameSpace") = namespace
+    set webProperties("Enabled") = 1
     set webProperties("Path") = "/irisdev/app/fhirUI"
-    set webProperties("AutheEnabled") = 64 
+    set webProperties("AutheEnabled") = 64
     set webProperties("ServeFiles")=2
     set webProperties("Recurse")=1
     quit ##class(Security.Applications).Create(webName, .webProperties)