@aehrc/smart-forms-renderer 0.2.0 → 0.4.0

package/src/utils/enableWhenExpression.js

@@ -0,0 +1,76 @@
+/*
+ * Copyright 2023 Commonwealth Scientific and Industrial Research
+ * Organisation (CSIRO) ABN 41 687 119 230.
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+import { createFhirPathContext } from './fhirpath';
+import fhirpath from 'fhirpath';
+import fhirpath_r4_model from 'fhirpath/fhir-context/r4';
+import _isEqual from 'lodash/isEqual';
+import { emptyResponse } from './emptyResource';
+import cloneDeep from 'lodash.clonedeep';
+export function evaluateInitialEnableWhenExpressions(params) {
+    const { initialResponse, enableWhenExpressions, variablesFhirPath } = params;
+    // Return early if initialResponse is empty
+    if (_isEqual(initialResponse, cloneDeep(emptyResponse))) {
+        return enableWhenExpressions;
+    }
+    const initialExpressions = Object.assign({}, enableWhenExpressions);
+    if (Object.keys(initialExpressions).length > 0) {
+        const fhirPathContext = createFhirPathContext(initialResponse, variablesFhirPath);
+        for (const linkId in initialExpressions) {
+            try {
+                const result = fhirpath.evaluate(initialResponse, enableWhenExpressions[linkId].expression, fhirPathContext, fhirpath_r4_model);
+                if (result.length > 0) {
+                    initialExpressions[linkId].isEnabled = result[0];
+                }
+                // handle intersect edge case - evualate() returns empty array if result is false
+                if (enableWhenExpressions[linkId].expression.includes('intersect') && result.length === 0) {
+                    initialExpressions[linkId].isEnabled = false;
+                }
+            }
+            catch (e) {
+                console.warn(e.message, `LinkId: ${linkId}\nExpression: ${enableWhenExpressions[linkId].expression}`);
+            }
+        }
+    }
+    return initialExpressions;
+}
+export function evaluateEnableWhenExpressions(fhirPathContext, enableWhenExpressions) {
+    const updatedEnableWhenExpressions = Object.assign({}, enableWhenExpressions);
+    let isUpdated = false;
+    for (const linkId in updatedEnableWhenExpressions) {
+        try {
+            const result = fhirpath.evaluate('', enableWhenExpressions[linkId].expression, fhirPathContext, fhirpath_r4_model);
+            if (result.length > 0) {
+                if (enableWhenExpressions[linkId].isEnabled !== result[0]) {
+                    isUpdated = true;
+                    updatedEnableWhenExpressions[linkId].isEnabled = result[0];
+                }
+            }
+            // handle intersect edge case - evualate() returns empty array if result is false
+            if (enableWhenExpressions[linkId].expression.includes('intersect') && result.length === 0) {
+                updatedEnableWhenExpressions[linkId].isEnabled = false;
+            }
+        }
+        catch (e) {
+            console.warn(e.message, `LinkId: ${linkId}\nExpression: ${enableWhenExpressions[linkId].expression}`);
+        }
+    }
+    return {
+        enableWhenExpsIsUpdated: isUpdated,
+        updatedEnableWhenExpressions: updatedEnableWhenExpressions
+    };
+}
+//# sourceMappingURL=enableWhenExpression.js.map

package/src/utils/enableWhenExpression.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"enableWhenExpression.js","sourceRoot":"","sources":["enableWhenExpression.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;GAeG;AAIH,OAAO,EAAE,qBAAqB,EAAE,MAAM,YAAY,CAAC;AACnD,OAAO,QAAQ,MAAM,UAAU,CAAC;AAChC,OAAO,iBAAiB,MAAM,0BAA0B,CAAC;AACzD,OAAO,QAAQ,MAAM,gBAAgB,CAAC;AACtC,OAAO,EAAE,aAAa,EAAE,MAAM,iBAAiB,CAAC;AAChD,OAAO,SAAS,MAAM,kBAAkB,CAAC;AAQzC,MAAM,UAAU,oCAAoC,CAClD,MAAkD;IAElD,MAAM,EAAE,eAAe,EAAE,qBAAqB,EAAE,iBAAiB,EAAE,GAAG,MAAM,CAAC;IAE7E,2CAA2C;IAC3C,IAAI,QAAQ,CAAC,eAAe,EAAE,SAAS,CAAC,aAAa,CAAC,CAAC,EAAE;QACvD,OAAO,qBAAqB,CAAC;KAC9B;IAED,MAAM,kBAAkB,qBAA8C,qBAAqB,CAAE,CAAC;IAE9F,IAAI,MAAM,CAAC,IAAI,CAAC,kBAAkB,CAAC,CAAC,MAAM,GAAG,CAAC,EAAE;QAC9C,MAAM,eAAe,GAAwB,qBAAqB,CAChE,eAAe,EACf,iBAAiB,CAClB,CAAC;QAEF,KAAK,MAAM,MAAM,IAAI,kBAAkB,EAAE;YACvC,IAAI;gBACF,MAAM,MAAM,GAAG,QAAQ,CAAC,QAAQ,CAC9B,eAAe,EACf,qBAAqB,CAAC,MAAM,CAAC,CAAC,UAAU,EACxC,eAAe,EACf,iBAAiB,CAClB,CAAC;gBAEF,IAAI,MAAM,CAAC,MAAM,GAAG,CAAC,EAAE;oBACrB,kBAAkB,CAAC,MAAM,CAAC,CAAC,SAAS,GAAG,MAAM,CAAC,CAAC,CAAC,CAAC;iBAClD;gBAED,iFAAiF;gBACjF,IAAI,qBAAqB,CAAC,MAAM,CAAC,CAAC,UAAU,CAAC,QAAQ,CAAC,WAAW,CAAC,IAAI,MAAM,CAAC,MAAM,KAAK,CAAC,EAAE;oBACzF,kBAAkB,CAAC,MAAM,CAAC,CAAC,SAAS,GAAG,KAAK,CAAC;iBAC9C;aACF;YAAC,OAAO,CAAC,EAAE;gBACV,OAAO,CAAC,IAAI,CACV,CAAC,CAAC,OAAO,EACT,WAAW,MAAM,iBAAiB,qBAAqB,CAAC,MAAM,CAAC,CAAC,UAAU,EAAE,CAC7E,CAAC;aACH;SACF;KACF;IACD,OAAO,kBAAkB,CAAC;AAC5B,CAAC;AAED,MAAM,UAAU,6BAA6B,CAC3C,eAAoC,EACpC,qBAA2D;IAK3D,MAAM,4BAA4B,qBAC7B,qBAAqB,CACzB,CAAC;IAEF,IAAI,SAAS,GAAG,KAAK,CAAC;IACtB,KAAK,MAAM,MAAM,IAAI,4BAA4B,EAAE;QACjD,IAAI;YACF,MAAM,MAAM,GAAG,QAAQ,CAAC,QAAQ,CAC9B,EAAE,EACF,qBAAqB,CAAC,MAAM,CAAC,CAAC,UAAU,EACxC,eAAe,EACf,iBAAiB,CAClB,CAAC;YAEF,IAAI,MAAM,CAAC,MAAM,GAAG,CAAC,EAAE;gBACrB,IAAI,qBAAqB,CAAC,MAAM,CAAC,CAAC,SAAS,KAAK,MAAM,CAAC,CAAC,CAAC,EAAE;oBACzD,SAAS,GAAG,IAAI,CAAC;oBACjB,4BAA4B,CAAC,MAAM,CAAC,CAAC,SAAS,GAAG,MAAM,CAAC,CAAC,CAAC,CAAC;iBAC5D;aACF;YAED,iFAAiF;YACjF,IAAI,qBAAqB,CAAC,MAAM,CAAC,CAAC,UAAU,CAAC,QAAQ,CAAC,WAAW,CAAC,IAAI,MAAM,CAAC,MAAM,KAAK,CAAC,EAAE;gBACzF,4BAA4B,CAAC,MAAM,CAAC,CAAC,SAAS,GAAG,KAAK,CAAC;aACxD;SACF;QAAC,OAAO,CAAC,EAAE;YACV,OAAO,CAAC,IAAI,CACV,CAAC,CAAC,OAAO,EACT,WAAW,MAAM,iBAAiB,qBAAqB,CAAC,MAAM,CAAC,CAAC,UAAU,EAAE,CAC7E,CAAC;SACH;KACF;IAED,OAAO;QACL,uBAAuB,EAAE,SAAS;QAClC,4BAA4B,EAAE,4BAA4B;KAC3D,CAAC;AACJ,CAAC"}

package/src/utils/enableWhenExpression.ts

@@ -0,0 +1,123 @@
+/*
+ * Copyright 2023 Commonwealth Scientific and Industrial Research
+ * Organisation (CSIRO) ABN 41 687 119 230.
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+import type { EnableWhenExpression } from '../interfaces/enableWhen.interface';
+import type { Expression, QuestionnaireResponse } from 'fhir/r4';
+import { createFhirPathContext } from './fhirpath';
+import fhirpath from 'fhirpath';
+import fhirpath_r4_model from 'fhirpath/fhir-context/r4';
+import _isEqual from 'lodash/isEqual';
+import { emptyResponse } from './emptyResource';
+import cloneDeep from 'lodash.clonedeep';
+
+interface EvaluateInitialEnableWhenExpressionsParams {
+  initialResponse: QuestionnaireResponse;
+  enableWhenExpressions: Record<string, EnableWhenExpression>;
+  variablesFhirPath: Record<string, Expression[]>;
+}
+
+export function evaluateInitialEnableWhenExpressions(
+  params: EvaluateInitialEnableWhenExpressionsParams
+): Record<string, EnableWhenExpression> {
+  const { initialResponse, enableWhenExpressions, variablesFhirPath } = params;
+
+  // Return early if initialResponse is empty
+  if (_isEqual(initialResponse, cloneDeep(emptyResponse))) {
+    return enableWhenExpressions;
+  }
+
+  const initialExpressions: Record<string, EnableWhenExpression> = { ...enableWhenExpressions };
+
+  if (Object.keys(initialExpressions).length > 0) {
+    const fhirPathContext: Record<string, any> = createFhirPathContext(
+      initialResponse,
+      variablesFhirPath
+    );
+
+    for (const linkId in initialExpressions) {
+      try {
+        const result = fhirpath.evaluate(
+          initialResponse,
+          enableWhenExpressions[linkId].expression,
+          fhirPathContext,
+          fhirpath_r4_model
+        );
+
+        if (result.length > 0) {
+          initialExpressions[linkId].isEnabled = result[0];
+        }
+
+        // handle intersect edge case - evualate() returns empty array if result is false
+        if (enableWhenExpressions[linkId].expression.includes('intersect') && result.length === 0) {
+          initialExpressions[linkId].isEnabled = false;
+        }
+      } catch (e) {
+        console.warn(
+          e.message,
+          `LinkId: ${linkId}\nExpression: ${enableWhenExpressions[linkId].expression}`
+        );
+      }
+    }
+  }
+  return initialExpressions;
+}
+
+export function evaluateEnableWhenExpressions(
+  fhirPathContext: Record<string, any>,
+  enableWhenExpressions: Record<string, EnableWhenExpression>
+): {
+  enableWhenExpsIsUpdated: boolean;
+  updatedEnableWhenExpressions: Record<string, EnableWhenExpression>;
+} {
+  const updatedEnableWhenExpressions: Record<string, EnableWhenExpression> = {
+    ...enableWhenExpressions
+  };
+
+  let isUpdated = false;
+  for (const linkId in updatedEnableWhenExpressions) {
+    try {
+      const result = fhirpath.evaluate(
+        '',
+        enableWhenExpressions[linkId].expression,
+        fhirPathContext,
+        fhirpath_r4_model
+      );
+
+      if (result.length > 0) {
+        if (enableWhenExpressions[linkId].isEnabled !== result[0]) {
+          isUpdated = true;
+          updatedEnableWhenExpressions[linkId].isEnabled = result[0];
+        }
+      }
+
+      // handle intersect edge case - evualate() returns empty array if result is false
+      if (enableWhenExpressions[linkId].expression.includes('intersect') && result.length === 0) {
+        updatedEnableWhenExpressions[linkId].isEnabled = false;
+      }
+    } catch (e) {
+      console.warn(
+        e.message,
+        `LinkId: ${linkId}\nExpression: ${enableWhenExpressions[linkId].expression}`
+      );
+    }
+  }
+
+  return {
+    enableWhenExpsIsUpdated: isUpdated,
+    updatedEnableWhenExpressions: updatedEnableWhenExpressions
+  };
+}

package/src/utils/fhirpath.js

@@ -0,0 +1,98 @@
+/*
+ * Copyright 2023 Commonwealth Scientific and Industrial Research
+ * Organisation (CSIRO) ABN 41 687 119 230.
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+import fhirpath from 'fhirpath';
+import fhirpath_r4_model from 'fhirpath/fhir-context/r4';
+import { evaluateEnableWhenExpressions } from './enableWhenExpression';
+import { evaluateCalculatedExpressions } from './calculatedExpression';
+export function evaluateUpdatedExpressions(params) {
+    const { updatedResponse, enableWhenExpressions, calculatedExpressions, variablesFhirPath } = params;
+    const hasExpressionToBeUpdated = Object.keys(enableWhenExpressions).length > 0 || Object.keys(calculatedExpressions).length > 0;
+    if (hasExpressionToBeUpdated && updatedResponse.item) {
+        const fhirPathContext = createFhirPathContext(updatedResponse, variablesFhirPath);
+        // Update enableWhenExpressions
+        const { enableWhenExpsIsUpdated, updatedEnableWhenExpressions } = evaluateEnableWhenExpressions(fhirPathContext, enableWhenExpressions);
+        // Update calculatedExpressions
+        const { calculatedExpsIsUpdated, updatedCalculatedExpressions } = evaluateCalculatedExpressions(fhirPathContext, calculatedExpressions);
+        const isUpdated = enableWhenExpsIsUpdated || calculatedExpsIsUpdated;
+        return { isUpdated, updatedEnableWhenExpressions, updatedCalculatedExpressions };
+    }
+    return {
+        isUpdated: false,
+        updatedEnableWhenExpressions: enableWhenExpressions,
+        updatedCalculatedExpressions: calculatedExpressions
+    };
+}
+export function createFhirPathContext(questionnaireResponse, variablesFhirPath) {
+    const fhirPathContext = { resource: questionnaireResponse };
+    if (!questionnaireResponse.item || questionnaireResponse.item.length === 0) {
+        return fhirPathContext;
+    }
+    evaluateResourceLevelFhirPath(questionnaireResponse, variablesFhirPath, fhirPathContext);
+    for (const topLevelItem of questionnaireResponse.item) {
+        evaluateFhirPathRecursive(topLevelItem, variablesFhirPath, fhirPathContext);
+    }
+    return fhirPathContext;
+}
+export function evaluateFhirPathRecursive(item, variablesFhirPath, fhirPathContext) {
+    const items = item.item;
+    if (items && items.length > 0) {
+        // iterate through items of item recursively
+        for (const childItem of items) {
+            evaluateFhirPathRecursive(childItem, variablesFhirPath, fhirPathContext);
+        }
+    }
+    evaluateItemFhirPath(item, variablesFhirPath, fhirPathContext);
+}
+export function evaluateItemFhirPath(item, variablesFhirPath, fhirPathContext) {
+    const variablesOfItem = variablesFhirPath[item.linkId];
+    if (!variablesOfItem || variablesOfItem.length === 0) {
+        return;
+    }
+    variablesOfItem.forEach((variable) => {
+        if (variable.expression) {
+            try {
+                fhirPathContext[`${variable.name}`] = fhirpath.evaluate(item, {
+                    base: 'QuestionnaireResponse.item',
+                    expression: variable.expression
+                }, fhirPathContext, fhirpath_r4_model);
+            }
+            catch (e) {
+                console.warn(e.message, `LinkId: ${item.linkId}\nExpression: ${variable.expression}`);
+            }
+        }
+    });
+}
+export function evaluateResourceLevelFhirPath(resource, variablesFhirPath, fhirPathContext) {
+    const questionnaireLevelVariables = variablesFhirPath['QuestionnaireLevel'];
+    if (!questionnaireLevelVariables || questionnaireLevelVariables.length === 0) {
+        return;
+    }
+    questionnaireLevelVariables.forEach((variable) => {
+        if (variable.expression) {
+            try {
+                fhirPathContext[`${variable.name}`] = fhirpath.evaluate(resource, {
+                    base: 'QuestionnaireResponse',
+                    expression: variable.expression
+                }, fhirPathContext, fhirpath_r4_model);
+            }
+            catch (e) {
+                console.warn(e.message, `Questionnaire-level\nExpression: ${variable.expression}`);
+            }
+        }
+    });
+}
+//# sourceMappingURL=fhirpath.js.map

package/src/utils/fhirpath.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"fhirpath.js","sourceRoot":"","sources":["fhirpath.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;GAeG;AAEH,OAAO,QAAQ,MAAM,UAAU,CAAC;AAChC,OAAO,iBAAiB,MAAM,0BAA0B,CAAC;AAIzD,OAAO,EAAE,6BAA6B,EAAE,MAAM,wBAAwB,CAAC;AACvE,OAAO,EAAE,6BAA6B,EAAE,MAAM,wBAAwB,CAAC;AASvE,MAAM,UAAU,0BAA0B,CAAC,MAAwC;IAKjF,MAAM,EAAE,eAAe,EAAE,qBAAqB,EAAE,qBAAqB,EAAE,iBAAiB,EAAE,GACxF,MAAM,CAAC;IAET,MAAM,wBAAwB,GAC5B,MAAM,CAAC,IAAI,CAAC,qBAAqB,CAAC,CAAC,MAAM,GAAG,CAAC,IAAI,MAAM,CAAC,IAAI,CAAC,qBAAqB,CAAC,CAAC,MAAM,GAAG,CAAC,CAAC;IACjG,IAAI,wBAAwB,IAAI,eAAe,CAAC,IAAI,EAAE;QACpD,MAAM,eAAe,GAAwB,qBAAqB,CAChE,eAAe,EACf,iBAAiB,CAClB,CAAC;QAEF,+BAA+B;QAC/B,MAAM,EAAE,uBAAuB,EAAE,4BAA4B,EAAE,GAAG,6BAA6B,CAC7F,eAAe,EACf,qBAAqB,CACtB,CAAC;QAEF,+BAA+B;QAC/B,MAAM,EAAE,uBAAuB,EAAE,4BAA4B,EAAE,GAAG,6BAA6B,CAC7F,eAAe,EACf,qBAAqB,CACtB,CAAC;QAEF,MAAM,SAAS,GAAG,uBAAuB,IAAI,uBAAuB,CAAC;QAErE,OAAO,EAAE,SAAS,EAAE,4BAA4B,EAAE,4BAA4B,EAAE,CAAC;KAClF;IAED,OAAO;QACL,SAAS,EAAE,KAAK;QAChB,4BAA4B,EAAE,qBAAqB;QACnD,4BAA4B,EAAE,qBAAqB;KACpD,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,qBAAqB,CACnC,qBAA4C,EAC5C,iBAA+C;IAE/C,MAAM,eAAe,GAAwB,EAAE,QAAQ,EAAE,qBAAqB,EAAE,CAAC;IAEjF,IAAI,CAAC,qBAAqB,CAAC,IAAI,IAAI,qBAAqB,CAAC,IAAI,CAAC,MAAM,KAAK,CAAC,EAAE;QAC1E,OAAO,eAAe,CAAC;KACxB;IAED,6BAA6B,CAAC,qBAAqB,EAAE,iBAAiB,EAAE,eAAe,CAAC,CAAC;IAEzF,KAAK,MAAM,YAAY,IAAI,qBAAqB,CAAC,IAAI,EAAE;QACrD,yBAAyB,CAAC,YAAY,EAAE,iBAAiB,EAAE,eAAe,CAAC,CAAC;KAC7E;IAED,OAAO,eAAe,CAAC;AACzB,CAAC;AAED,MAAM,UAAU,yBAAyB,CACvC,IAA+B,EAC/B,iBAA+C,EAC/C,eAAoC;IAEpC,MAAM,KAAK,GAAG,IAAI,CAAC,IAAI,CAAC;IACxB,IAAI,KAAK,IAAI,KAAK,CAAC,MAAM,GAAG,CAAC,EAAE;QAC7B,4CAA4C;QAC5C,KAAK,MAAM,SAAS,IAAI,KAAK,EAAE;YAC7B,yBAAyB,CAAC,SAAS,EAAE,iBAAiB,EAAE,eAAe,CAAC,CAAC;SAC1E;KACF;IAED,oBAAoB,CAAC,IAAI,EAAE,iBAAiB,EAAE,eAAe,CAAC,CAAC;AACjE,CAAC;AAED,MAAM,UAAU,oBAAoB,CAClC,IAA+B,EAC/B,iBAA+C,EAC/C,eAAoC;IAEpC,MAAM,eAAe,GAAG,iBAAiB,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;IACvD,IAAI,CAAC,eAAe,IAAI,eAAe,CAAC,MAAM,KAAK,CAAC,EAAE;QACpD,OAAO;KACR;IAED,eAAe,CAAC,OAAO,CAAC,CAAC,QAAQ,EAAE,EAAE;QACnC,IAAI,QAAQ,CAAC,UAAU,EAAE;YACvB,IAAI;gBACF,eAAe,CAAC,GAAG,QAAQ,CAAC,IAAI,EAAE,CAAC,GAAG,QAAQ,CAAC,QAAQ,CACrD,IAAI,EACJ;oBACE,IAAI,EAAE,4BAA4B;oBAClC,UAAU,EAAE,QAAQ,CAAC,UAAU;iBAChC,EACD,eAAe,EACf,iBAAiB,CAClB,CAAC;aACH;YAAC,OAAO,CAAC,EAAE;gBACV,OAAO,CAAC,IAAI,CAAC,CAAC,CAAC,OAAO,EAAE,WAAW,IAAI,CAAC,MAAM,iBAAiB,QAAQ,CAAC,UAAU,EAAE,CAAC,CAAC;aACvF;SACF;IACH,CAAC,CAAC,CAAC;AACL,CAAC;AAED,MAAM,UAAU,6BAA6B,CAC3C,QAA+B,EAC/B,iBAA+C,EAC/C,eAAoC;IAEpC,MAAM,2BAA2B,GAAG,iBAAiB,CAAC,oBAAoB,CAAC,CAAC;IAC5E,IAAI,CAAC,2BAA2B,IAAI,2BAA2B,CAAC,MAAM,KAAK,CAAC,EAAE;QAC5E,OAAO;KACR;IAED,2BAA2B,CAAC,OAAO,CAAC,CAAC,QAAQ,EAAE,EAAE;QAC/C,IAAI,QAAQ,CAAC,UAAU,EAAE;YACvB,IAAI;gBACF,eAAe,CAAC,GAAG,QAAQ,CAAC,IAAI,EAAE,CAAC,GAAG,QAAQ,CAAC,QAAQ,CACrD,QAAQ,EACR;oBACE,IAAI,EAAE,uBAAuB;oBAC7B,UAAU,EAAE,QAAQ,CAAC,UAAU;iBAChC,EACD,eAAe,EACf,iBAAiB,CAClB,CAAC;aACH;YAAC,OAAO,CAAC,EAAE;gBACV,OAAO,CAAC,IAAI,CAAC,CAAC,CAAC,OAAO,EAAE,oCAAoC,QAAQ,CAAC,UAAU,EAAE,CAAC,CAAC;aACpF;SACF;IACH,CAAC,CAAC,CAAC;AACL,CAAC"}

package/src/utils/fhirpath.ts

@@ -0,0 +1,164 @@
+/*
+ * Copyright 2023 Commonwealth Scientific and Industrial Research
+ * Organisation (CSIRO) ABN 41 687 119 230.
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+import fhirpath from 'fhirpath';
+import fhirpath_r4_model from 'fhirpath/fhir-context/r4';
+import type { Expression, QuestionnaireResponse, QuestionnaireResponseItem } from 'fhir/r4';
+import type { CalculatedExpression } from '../interfaces/calculatedExpression.interface';
+import type { EnableWhenExpression } from '../interfaces/enableWhen.interface';
+import { evaluateEnableWhenExpressions } from './enableWhenExpression';
+import { evaluateCalculatedExpressions } from './calculatedExpression';
+
+interface EvaluateUpdatedExpressionsParams {
+  updatedResponse: QuestionnaireResponse;
+  calculatedExpressions: Record<string, CalculatedExpression>;
+  enableWhenExpressions: Record<string, EnableWhenExpression>;
+  variablesFhirPath: Record<string, Expression[]>;
+}
+
+export function evaluateUpdatedExpressions(params: EvaluateUpdatedExpressionsParams): {
+  isUpdated: boolean;
+  updatedEnableWhenExpressions: Record<string, EnableWhenExpression>;
+  updatedCalculatedExpressions: Record<string, CalculatedExpression>;
+} {
+  const { updatedResponse, enableWhenExpressions, calculatedExpressions, variablesFhirPath } =
+    params;
+
+  const hasExpressionToBeUpdated =
+    Object.keys(enableWhenExpressions).length > 0 || Object.keys(calculatedExpressions).length > 0;
+  if (hasExpressionToBeUpdated && updatedResponse.item) {
+    const fhirPathContext: Record<string, any> = createFhirPathContext(
+      updatedResponse,
+      variablesFhirPath
+    );
+
+    // Update enableWhenExpressions
+    const { enableWhenExpsIsUpdated, updatedEnableWhenExpressions } = evaluateEnableWhenExpressions(
+      fhirPathContext,
+      enableWhenExpressions
+    );
+
+    // Update calculatedExpressions
+    const { calculatedExpsIsUpdated, updatedCalculatedExpressions } = evaluateCalculatedExpressions(
+      fhirPathContext,
+      calculatedExpressions
+    );
+
+    const isUpdated = enableWhenExpsIsUpdated || calculatedExpsIsUpdated;
+
+    return { isUpdated, updatedEnableWhenExpressions, updatedCalculatedExpressions };
+  }
+
+  return {
+    isUpdated: false,
+    updatedEnableWhenExpressions: enableWhenExpressions,
+    updatedCalculatedExpressions: calculatedExpressions
+  };
+}
+
+export function createFhirPathContext(
+  questionnaireResponse: QuestionnaireResponse,
+  variablesFhirPath: Record<string, Expression[]>
+): Record<string, any> {
+  const fhirPathContext: Record<string, any> = { resource: questionnaireResponse };
+
+  if (!questionnaireResponse.item || questionnaireResponse.item.length === 0) {
+    return fhirPathContext;
+  }
+
+  evaluateResourceLevelFhirPath(questionnaireResponse, variablesFhirPath, fhirPathContext);
+
+  for (const topLevelItem of questionnaireResponse.item) {
+    evaluateFhirPathRecursive(topLevelItem, variablesFhirPath, fhirPathContext);
+  }
+
+  return fhirPathContext;
+}
+
+export function evaluateFhirPathRecursive(
+  item: QuestionnaireResponseItem,
+  variablesFhirPath: Record<string, Expression[]>,
+  fhirPathContext: Record<string, any>
+) {
+  const items = item.item;
+  if (items && items.length > 0) {
+    // iterate through items of item recursively
+    for (const childItem of items) {
+      evaluateFhirPathRecursive(childItem, variablesFhirPath, fhirPathContext);
+    }
+  }
+
+  evaluateItemFhirPath(item, variablesFhirPath, fhirPathContext);
+}
+
+export function evaluateItemFhirPath(
+  item: QuestionnaireResponseItem,
+  variablesFhirPath: Record<string, Expression[]>,
+  fhirPathContext: Record<string, any>
+) {
+  const variablesOfItem = variablesFhirPath[item.linkId];
+  if (!variablesOfItem || variablesOfItem.length === 0) {
+    return;
+  }
+
+  variablesOfItem.forEach((variable) => {
+    if (variable.expression) {
+      try {
+        fhirPathContext[`${variable.name}`] = fhirpath.evaluate(
+          item,
+          {
+            base: 'QuestionnaireResponse.item',
+            expression: variable.expression
+          },
+          fhirPathContext,
+          fhirpath_r4_model
+        );
+      } catch (e) {
+        console.warn(e.message, `LinkId: ${item.linkId}\nExpression: ${variable.expression}`);
+      }
+    }
+  });
+}
+
+export function evaluateResourceLevelFhirPath(
+  resource: QuestionnaireResponse,
+  variablesFhirPath: Record<string, Expression[]>,
+  fhirPathContext: Record<string, any>
+) {
+  const questionnaireLevelVariables = variablesFhirPath['QuestionnaireLevel'];
+  if (!questionnaireLevelVariables || questionnaireLevelVariables.length === 0) {
+    return;
+  }
+
+  questionnaireLevelVariables.forEach((variable) => {
+    if (variable.expression) {
+      try {
+        fhirPathContext[`${variable.name}`] = fhirpath.evaluate(
+          resource,
+          {
+            base: 'QuestionnaireResponse',
+            expression: variable.expression
+          },
+          fhirPathContext,
+          fhirpath_r4_model
+        );
+      } catch (e) {
+        console.warn(e.message, `Questionnaire-level\nExpression: ${variable.expression}`);
+      }
+    }
+  });
+}

package/src/utils/initialiseForm.js

@@ -0,0 +1,45 @@
+/*
+ * Copyright 2023 Commonwealth Scientific and Industrial Research
+ * Organisation (CSIRO) ABN 41 687 119 230.
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+import { evaluateInitialEnableWhenExpressions } from './enableWhenExpression';
+import { getFirstVisibleTab } from './tabs';
+import { assignPopulatedAnswersToEnableWhen } from './enableWhen';
+import { evaluateInitialCalculatedExpressions } from './calculatedExpression';
+export function initialiseFormFromResponse(params) {
+    const { questionnaireResponse, enableWhenItems, enableWhenExpressions, calculatedExpressions, variablesFhirPath, tabs } = params;
+    const { initialisedItems, linkedQuestions } = assignPopulatedAnswersToEnableWhen(enableWhenItems, questionnaireResponse);
+    const initialEnableWhenExpressions = evaluateInitialEnableWhenExpressions({
+        initialResponse: questionnaireResponse,
+        enableWhenExpressions: enableWhenExpressions,
+        variablesFhirPath: variablesFhirPath
+    });
+    const initialCalculatedExpressions = evaluateInitialCalculatedExpressions({
+        initialResponse: questionnaireResponse,
+        calculatedExpressions: calculatedExpressions,
+        variablesFhirPath: variablesFhirPath
+    });
+    const firstVisibleTab = Object.keys(tabs).length > 0
+        ? getFirstVisibleTab(tabs, initialisedItems, initialEnableWhenExpressions)
+        : 0;
+    return {
+        initialEnableWhenItems: initialisedItems,
+        initialEnableWhenLinkedQuestions: linkedQuestions,
+        initialEnableWhenExpressions,
+        initialCalculatedExpressions,
+        firstVisibleTab
+    };
+}
+//# sourceMappingURL=initialiseForm.js.map

package/src/utils/initialiseForm.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"initialiseForm.js","sourceRoot":"","sources":["initialiseForm.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;GAeG;AAEH,OAAO,EAAE,oCAAoC,EAAE,MAAM,wBAAwB,CAAC;AAC9E,OAAO,EAAE,kBAAkB,EAAE,MAAM,QAAQ,CAAC;AAI5C,OAAO,EAAE,kCAAkC,EAAE,MAAM,cAAc,CAAC;AAElE,OAAO,EAAE,oCAAoC,EAAE,MAAM,wBAAwB,CAAC;AAW9E,MAAM,UAAU,0BAA0B,CAAC,MAAqC;IAO9E,MAAM,EACJ,qBAAqB,EACrB,eAAe,EACf,qBAAqB,EACrB,qBAAqB,EACrB,iBAAiB,EACjB,IAAI,EACL,GAAG,MAAM,CAAC;IAEX,MAAM,EAAE,gBAAgB,EAAE,eAAe,EAAE,GAAG,kCAAkC,CAC9E,eAAe,EACf,qBAAqB,CACtB,CAAC;IAEF,MAAM,4BAA4B,GAAG,oCAAoC,CAAC;QACxE,eAAe,EAAE,qBAAqB;QACtC,qBAAqB,EAAE,qBAAqB;QAC5C,iBAAiB,EAAE,iBAAiB;KACrC,CAAC,CAAC;IAEH,MAAM,4BAA4B,GAAG,oCAAoC,CAAC;QACxE,eAAe,EAAE,qBAAqB;QACtC,qBAAqB,EAAE,qBAAqB;QAC5C,iBAAiB,EAAE,iBAAiB;KACrC,CAAC,CAAC;IAEH,MAAM,eAAe,GACnB,MAAM,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,MAAM,GAAG,CAAC;QAC1B,CAAC,CAAC,kBAAkB,CAAC,IAAI,EAAE,gBAAgB,EAAE,4BAA4B,CAAC;QAC1E,CAAC,CAAC,CAAC,CAAC;IAER,OAAO;QACL,sBAAsB,EAAE,gBAAgB;QACxC,gCAAgC,EAAE,eAAe;QACjD,4BAA4B;QAC5B,4BAA4B;QAC5B,eAAe;KAChB,CAAC;AACJ,CAAC"}

package/src/utils/initialiseForm.ts

@@ -0,0 +1,81 @@
+/*
+ * Copyright 2023 Commonwealth Scientific and Industrial Research
+ * Organisation (CSIRO) ABN 41 687 119 230.
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+import { evaluateInitialEnableWhenExpressions } from './enableWhenExpression';
+import { getFirstVisibleTab } from './tabs';
+import type { Expression, QuestionnaireResponse } from 'fhir/r4';
+import type { EnableWhenExpression, EnableWhenItems } from '../interfaces/enableWhen.interface';
+import type { Tabs } from '../interfaces/tab.interface';
+import { assignPopulatedAnswersToEnableWhen } from './enableWhen';
+import type { CalculatedExpression } from '../interfaces/calculatedExpression.interface';
+import { evaluateInitialCalculatedExpressions } from './calculatedExpression';
+
+interface initialFormFromResponseParams {
+  questionnaireResponse: QuestionnaireResponse;
+  enableWhenItems: EnableWhenItems;
+  enableWhenExpressions: Record<string, EnableWhenExpression>;
+  calculatedExpressions: Record<string, CalculatedExpression>;
+  variablesFhirPath: Record<string, Expression[]>;
+  tabs: Tabs;
+}
+
+export function initialiseFormFromResponse(params: initialFormFromResponseParams): {
+  initialEnableWhenItems: EnableWhenItems;
+  initialEnableWhenLinkedQuestions: Record<string, string[]>;
+  initialEnableWhenExpressions: Record<string, EnableWhenExpression>;
+  initialCalculatedExpressions: Record<string, CalculatedExpression>;
+  firstVisibleTab: number;
+} {
+  const {
+    questionnaireResponse,
+    enableWhenItems,
+    enableWhenExpressions,
+    calculatedExpressions,
+    variablesFhirPath,
+    tabs
+  } = params;
+
+  const { initialisedItems, linkedQuestions } = assignPopulatedAnswersToEnableWhen(
+    enableWhenItems,
+    questionnaireResponse
+  );
+
+  const initialEnableWhenExpressions = evaluateInitialEnableWhenExpressions({
+    initialResponse: questionnaireResponse,
+    enableWhenExpressions: enableWhenExpressions,
+    variablesFhirPath: variablesFhirPath
+  });
+
+  const initialCalculatedExpressions = evaluateInitialCalculatedExpressions({
+    initialResponse: questionnaireResponse,
+    calculatedExpressions: calculatedExpressions,
+    variablesFhirPath: variablesFhirPath
+  });
+
+  const firstVisibleTab =
+    Object.keys(tabs).length > 0
+      ? getFirstVisibleTab(tabs, initialisedItems, initialEnableWhenExpressions)
+      : 0;
+
+  return {
+    initialEnableWhenItems: initialisedItems,
+    initialEnableWhenLinkedQuestions: linkedQuestions,
+    initialEnableWhenExpressions,
+    initialCalculatedExpressions,
+    firstVisibleTab
+  };
+}