@aehrc/smart-forms-renderer 0.2.0 → 0.4.0

package/src/utils/calculatedExpression.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"calculatedExpression.js","sourceRoot":"","sources":["calculatedExpression.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;GAeG;AAGH,OAAO,QAAQ,MAAM,UAAU,CAAC;AAChC,OAAO,iBAAiB,MAAM,0BAA0B,CAAC;AASzD,OAAO,QAAQ,MAAM,gBAAgB,CAAC;AACtC,OAAO,EAAE,aAAa,EAAE,MAAM,iBAAiB,CAAC;AAChD,OAAO,EAAE,qBAAqB,EAAE,MAAM,YAAY,CAAC;AACnD,OAAO,EAAE,eAAe,EAAE,cAAc,EAAE,MAAM,WAAW,CAAC;AAC5D,OAAO,EAAE,aAAa,EAAE,MAAM,UAAU,CAAC;AACzC,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,qBAAqB,CAAC,MAAM,CAAC,CAAC,KAAK,KAAK,MAAM,CAAC,CAAC,CAAC,EAAE;oBACrD,kBAAkB,CAAC,MAAM,CAAC,CAAC,KAAK,GAAG,MAAM,CAAC,CAAC,CAAC,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,qBAAqB,EAAE;QAC1C,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,KAAK,KAAK,MAAM,CAAC,CAAC,CAAC,EAAE;oBACrD,SAAS,GAAG,IAAI,CAAC;oBACjB,4BAA4B,CAAC,MAAM,CAAC,CAAC,KAAK,GAAG,MAAM,CAAC,CAAC,CAAC,CAAC;iBACxD;aACF;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;AAED,MAAM,UAAU,oCAAoC,CAClD,aAA4B,EAC5B,iBAAwC,EACxC,qBAA2D;;IAE3D,MAAM,+BAA+B,GAAG,MAAM,CAAC,IAAI,CAAC,qBAAqB,CAAC;SACvE,MAAM,CAAC,CAAC,GAAG,EAAE,EAAE,CAAC,qBAAqB,CAAC,GAAG,CAAC,CAAC,KAAK,KAAK,SAAS,CAAC;SAC/D,MAAM,CACL,CAAC,OAA6C,EAAE,GAAW,EAAE,EAAE,CAAC,CAC9D,CAAC,OAAO,CAAC,GAAG,CAAC,GAAG,qBAAqB,CAAC,GAAG,CAAC,CAAC,EAAE,OAAO,CACrD,EACD,EAAE,CACH,CAAC;IAEJ,IACE,CAAC,aAAa,CAAC,IAAI;QACnB,aAAa,CAAC,IAAI,CAAC,MAAM,KAAK,CAAC;QAC/B,CAAC,iBAAiB,CAAC,IAAI;QACvB,iBAAiB,CAAC,IAAI,CAAC,MAAM,KAAK,CAAC,EACnC;QACA,OAAO,iBAAiB,CAAC;KAC1B;IAED,MAAM,eAAe,GAAgC,EAAE,CAAC;IACxD,KAAK,MAAM,CAAC,KAAK,EAAE,aAAa,CAAC,IAAI,aAAa,CAAC,IAAI,CAAC,OAAO,EAAE,EAAE;QACjE,MAAM,uBAAuB,GAAG,MAAA,iBAAiB,CAAC,IAAI,CAAC,KAAK,CAAC,mCAAI;YAC/D,MAAM,EAAE,aAAa,CAAC,MAAM;YAC5B,IAAI,EAAE,aAAa,CAAC,IAAI;YACxB,IAAI,EAAE,EAAE;SACT,CAAC;QAEF,MAAM,qBAAqB,GAAG,gDAAgD,CAC5E,aAAa,EACb,uBAAuB,EACvB,+BAA+B,CAChC,CAAC;QAEF,IAAI,KAAK,CAAC,OAAO,CAAC,qBAAqB,CAAC,EAAE;YACxC,IAAI,qBAAqB,CAAC,MAAM,GAAG,CAAC,EAAE;gBACpC,eAAe,CAAC,IAAI,CAAC,GAAG,qBAAqB,CAAC,CAAC;aAChD;YACD,SAAS;SACV;QAED,IAAI,qBAAqB,EAAE;YACzB,eAAe,CAAC,IAAI,CAAC,qBAAqB,CAAC,CAAC;SAC7C;KACF;IAED,uCAAY,iBAAiB,KAAE,IAAI,EAAE,eAAe,IAAG;AACzD,CAAC;AAED,SAAS,gDAAgD,CACvD,KAAwB,EACxB,MAA6C,EAC7C,qBAA2D;;IAE3D,MAAM,WAAW,GAAG,KAAK,CAAC,IAAI,CAAC;IAC/B,IAAI,WAAW,IAAI,WAAW,CAAC,MAAM,GAAG,CAAC,EAAE;QACzC,4CAA4C;QAC5C,MAAM,YAAY,GAAG,MAAA,MAAM,aAAN,MAAM,uBAAN,MAAM,CAAE,IAAI,mCAAI,EAAE,CAAC;QACxC,+DAA+D;QAE/D,0CAA0C;QAC1C,IAAI,KAAK,CAAC,IAAI,KAAK,OAAO,IAAI,KAAK,CAAC,OAAO,EAAE;YAC3C,OAAO,MAAM,aAAN,MAAM,cAAN,MAAM,GAAI,IAAI,CAAC;SACvB;QAED,MAAM,QAAQ,GAAG,cAAc,CAAC,KAAK,CAAC,CAAC;QACvC,MAAM,cAAc,GAAG,eAAe,CAAC,WAAW,EAAE,YAAY,EAAE,QAAQ,CAAC,CAAC;QAE5E,wCAAwC;QACxC,KAAK,MAAM,CAAC,KAAK,EAAE,UAAU,CAAC,IAAI,WAAW,CAAC,OAAO,EAAE,EAAE;YACvD,MAAM,WAAW,GAAG,cAAc,CAAC,KAAK,CAAC,CAAC;YAE1C,0CAA0C;YAC1C,IAAI,KAAK,CAAC,OAAO,CAAC,WAAW,CAAC,EAAE;gBAC9B,SAAS;aACV;YAED,MAAM,SAAS,GAAG,gDAAgD,CAChE,UAAU,EACV,WAAW,EACX,qBAAqB,CACtB,CAAC;YAEF,0CAA0C;YAC1C,IAAI,KAAK,CAAC,OAAO,CAAC,SAAS,CAAC,EAAE;gBAC5B,SAAS;aACV;YAED,IAAI,SAAS,EAAE;gBACb,aAAa,CACX,SAAS,EACT,IAAI,EACJ,MAAM,aAAN,MAAM,cAAN,MAAM,GAAI,EAAE,MAAM,EAAE,KAAK,CAAC,MAAM,EAAE,IAAI,EAAE,KAAK,CAAC,IAAI,EAAE,IAAI,EAAE,EAAE,EAAE,EAC9D,QAAQ,CACT,CAAC;aACH;SACF;QAED,OAAO,kBAAkB,CAAC,KAAK,EAAE,MAAM,EAAE,qBAAqB,CAAC,CAAC;KACjE;IAED,OAAO,mBAAmB,CAAC,KAAK,EAAE,qBAAqB,CAAC,CAAC;AAC3D,CAAC;AAED,SAAS,kBAAkB,CACzB,KAAwB,EACxB,MAA6C,EAC7C,qBAA2D;IAE3D,MAAM,wBAAwB,GAAG,qBAAqB,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC;IACrE,IAAI,0BAAuE,CAAC;IAC5E,IAAI,wBAAwB,IAAI,wBAAwB,CAAC,KAAK,EAAE;QAC9D,0BAA0B,GAAG,kBAAkB,CAAC,KAAK,EAAE,wBAAwB,CAAC,KAAK,CAAC,CAAC;KACxF;IAED,6FAA6F;IAC7F,IAAI,CAAA,MAAM,aAAN,MAAM,uBAAN,MAAM,CAAE,MAAM,KAAI,CAAA,MAAM,aAAN,MAAM,uBAAN,MAAM,CAAE,MAAM,CAAC,MAAM,IAAG,CAAC,EAAE;QAC/C,OAAO,MAAM,aAAN,MAAM,cAAN,MAAM,GAAI,IAAI,CAAC;KACvB;IAED,IAAI,CAAC,0BAA0B,EAAE;QAC/B,OAAO,MAAM,aAAN,MAAM,cAAN,MAAM,GAAI,IAAI,CAAC;KACvB;IAED,IAAI,MAAM,EAAE;QACV,uCACK,MAAM,KACT,MAAM,EAAE,CAAC,0BAA0B,CAAC,IACpC;KACH;IAED,OAAO;QACL,MAAM,EAAE,KAAK,CAAC,MAAM;QACpB,IAAI,EAAE,KAAK,CAAC,IAAI;QAChB,MAAM,EAAE,CAAC,0BAA0B,CAAC;KACrC,CAAC;AACJ,CAAC;AAED,SAAS,mBAAmB,CAC1B,KAAwB,EACxB,qBAA2D;IAE3D,MAAM,wBAAwB,GAAG,qBAAqB,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC;IACrE,IAAI,0BAAuE,CAAC;IAC5E,IAAI,wBAAwB,IAAI,wBAAwB,CAAC,KAAK,EAAE;QAC9D,0BAA0B,GAAG,kBAAkB,CAAC,KAAK,EAAE,wBAAwB,CAAC,KAAK,CAAC,CAAC;KACxF;IAED,IAAI,CAAC,0BAA0B,EAAE;QAC/B,OAAO,IAAI,CAAC;KACb;IAED,OAAO;QACL,MAAM,EAAE,KAAK,CAAC,MAAM;QACpB,IAAI,EAAE,KAAK,CAAC,IAAI;QAChB,MAAM,EAAE,CAAC,0BAA0B,CAAC;KACrC,CAAC;AACJ,CAAC;AAED,SAAS,kBAAkB,CACzB,KAAwB,EACxB,KAAsB;IAEtB,IAAI,OAAO,KAAK,KAAK,QAAQ,EAAE;QAC7B,IAAI,KAAK,CAAC,IAAI,KAAK,SAAS,EAAE;YAC5B,OAAO,EAAE,YAAY,EAAE,KAAK,EAAE,CAAC;SAChC;QAED,OAAO,EAAE,YAAY,EAAE,KAAK,EAAE,CAAC;KAChC;IAED,OAAO,EAAE,WAAW,EAAE,KAAK,EAAE,CAAC;AAChC,CAAC"}

package/src/utils/calculatedExpression.ts

@@ -0,0 +1,299 @@
+/*
+ * 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 { CalculatedExpression } from '../interfaces/calculatedExpression.interface';
+import fhirpath from 'fhirpath';
+import fhirpath_r4_model from 'fhirpath/fhir-context/r4';
+import type {
+  Expression,
+  Questionnaire,
+  QuestionnaireItem,
+  QuestionnaireResponse,
+  QuestionnaireResponseItem,
+  QuestionnaireResponseItemAnswer
+} from 'fhir/r4';
+import _isEqual from 'lodash/isEqual';
+import { emptyResponse } from './emptyResource';
+import { createFhirPathContext } from './fhirpath';
+import { getQrItemsIndex, mapQItemsIndex } from './mapItem';
+import { updateQrGroup } from './qrItem';
+import cloneDeep from 'lodash.clonedeep';
+
+interface EvaluateInitialCalculatedExpressionsParams {
+  initialResponse: QuestionnaireResponse;
+  calculatedExpressions: Record<string, CalculatedExpression>;
+  variablesFhirPath: Record<string, Expression[]>;
+}
+
+export function evaluateInitialCalculatedExpressions(
+  params: EvaluateInitialCalculatedExpressionsParams
+): Record<string, CalculatedExpression> {
+  const { initialResponse, calculatedExpressions, variablesFhirPath } = params;
+
+  // Return early if initialResponse is empty
+  if (_isEqual(initialResponse, cloneDeep(emptyResponse))) {
+    return calculatedExpressions;
+  }
+
+  const initialExpressions: Record<string, CalculatedExpression> = { ...calculatedExpressions };
+
+  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,
+          calculatedExpressions[linkId].expression,
+          fhirPathContext,
+          fhirpath_r4_model
+        );
+
+        if (calculatedExpressions[linkId].value !== result[0]) {
+          initialExpressions[linkId].value = result[0];
+        }
+      } catch (e) {
+        console.warn(
+          e.message,
+          `LinkId: ${linkId}\nExpression: ${calculatedExpressions[linkId].expression}`
+        );
+      }
+    }
+  }
+  return initialExpressions;
+}
+
+export function evaluateCalculatedExpressions(
+  fhirPathContext: Record<string, any>,
+  calculatedExpressions: Record<string, CalculatedExpression>
+): {
+  calculatedExpsIsUpdated: boolean;
+  updatedCalculatedExpressions: Record<string, CalculatedExpression>;
+} {
+  const updatedCalculatedExpressions: Record<string, CalculatedExpression> = {
+    ...calculatedExpressions
+  };
+
+  let isUpdated = false;
+  for (const linkId in calculatedExpressions) {
+    try {
+      const result = fhirpath.evaluate(
+        '',
+        calculatedExpressions[linkId].expression,
+        fhirPathContext,
+        fhirpath_r4_model
+      );
+
+      if (result.length > 0) {
+        if (calculatedExpressions[linkId].value !== result[0]) {
+          isUpdated = true;
+          updatedCalculatedExpressions[linkId].value = result[0];
+        }
+      }
+    } catch (e) {
+      console.warn(
+        e.message,
+        `LinkId: ${linkId}\nExpression: ${calculatedExpressions[linkId].expression}`
+      );
+    }
+  }
+
+  return {
+    calculatedExpsIsUpdated: isUpdated,
+    updatedCalculatedExpressions: updatedCalculatedExpressions
+  };
+}
+
+export function initialiseCalculatedExpressionValues(
+  questionnaire: Questionnaire,
+  populatedResponse: QuestionnaireResponse,
+  calculatedExpressions: Record<string, CalculatedExpression>
+): QuestionnaireResponse {
+  const calculatedExpressionsWithValues = Object.keys(calculatedExpressions)
+    .filter((key) => calculatedExpressions[key].value !== undefined)
+    .reduce(
+      (mapping: Record<string, CalculatedExpression>, key: string) => (
+        (mapping[key] = calculatedExpressions[key]), mapping
+      ),
+      {}
+    );
+
+  if (
+    !questionnaire.item ||
+    questionnaire.item.length === 0 ||
+    !populatedResponse.item ||
+    populatedResponse.item.length === 0
+  ) {
+    return populatedResponse;
+  }
+
+  const topLevelQrItems: QuestionnaireResponseItem[] = [];
+  for (const [index, topLevelQItem] of questionnaire.item.entries()) {
+    const populatedTopLevelQrItem = populatedResponse.item[index] ?? {
+      linkId: topLevelQItem.linkId,
+      text: topLevelQItem.text,
+      item: []
+    };
+
+    const updatedTopLevelQRItem = initialiseItemCalculatedExpressionValueRecursive(
+      topLevelQItem,
+      populatedTopLevelQrItem,
+      calculatedExpressionsWithValues
+    );
+
+    if (Array.isArray(updatedTopLevelQRItem)) {
+      if (updatedTopLevelQRItem.length > 0) {
+        topLevelQrItems.push(...updatedTopLevelQRItem);
+      }
+      continue;
+    }
+
+    if (updatedTopLevelQRItem) {
+      topLevelQrItems.push(updatedTopLevelQRItem);
+    }
+  }
+
+  return { ...populatedResponse, item: topLevelQrItems };
+}
+
+function initialiseItemCalculatedExpressionValueRecursive(
+  qItem: QuestionnaireItem,
+  qrItem: QuestionnaireResponseItem | undefined,
+  calculatedExpressions: Record<string, CalculatedExpression>
+): QuestionnaireResponseItem[] | QuestionnaireResponseItem | null {
+  const childQItems = qItem.item;
+  if (childQItems && childQItems.length > 0) {
+    // iterate through items of item recursively
+    const childQrItems = qrItem?.item ?? [];
+    // const updatedChildQrItems: QuestionnaireResponseItem[] = [];
+
+    // FIXME Not implemented for repeat groups
+    if (qItem.type === 'group' && qItem.repeats) {
+      return qrItem ?? null;
+    }
+
+    const indexMap = mapQItemsIndex(qItem);
+    const qrItemsByIndex = getQrItemsIndex(childQItems, childQrItems, indexMap);
+
+    // Otherwise loop through qItem as usual
+    for (const [index, childQItem] of childQItems.entries()) {
+      const childQrItem = qrItemsByIndex[index];
+
+      // FIXME Not implemented for repeat groups
+      if (Array.isArray(childQrItem)) {
+        continue;
+      }
+
+      const newQrItem = initialiseItemCalculatedExpressionValueRecursive(
+        childQItem,
+        childQrItem,
+        calculatedExpressions
+      );
+
+      // FIXME Not implemented for repeat groups
+      if (Array.isArray(newQrItem)) {
+        continue;
+      }
+
+      if (newQrItem) {
+        updateQrGroup(
+          newQrItem,
+          null,
+          qrItem ?? { linkId: qItem.linkId, text: qItem.text, item: [] },
+          indexMap
+        );
+      }
+    }
+
+    return constructGroupItem(qItem, qrItem, calculatedExpressions);
+  }
+
+  return constructSingleItem(qItem, calculatedExpressions);
+}
+
+function constructGroupItem(
+  qItem: QuestionnaireItem,
+  qrItem: QuestionnaireResponseItem | undefined,
+  calculatedExpressions: Record<string, CalculatedExpression>
+): QuestionnaireResponseItem | null {
+  const itemCalculatedExpression = calculatedExpressions[qItem.linkId];
+  let calculatedExpressionAnswer: QuestionnaireResponseItemAnswer | undefined;
+  if (itemCalculatedExpression && itemCalculatedExpression.value) {
+    calculatedExpressionAnswer = parseValueToAnswer(qItem, itemCalculatedExpression.value);
+  }
+
+  // If group item has an existing answer, do not overwrite it with calculated expression value
+  if (qrItem?.answer && qrItem?.answer.length > 0) {
+    return qrItem ?? null;
+  }
+
+  if (!calculatedExpressionAnswer) {
+    return qrItem ?? null;
+  }
+
+  if (qrItem) {
+    return {
+      ...qrItem,
+      answer: [calculatedExpressionAnswer]
+    };
+  }
+
+  return {
+    linkId: qItem.linkId,
+    text: qItem.text,
+    answer: [calculatedExpressionAnswer]
+  };
+}
+
+function constructSingleItem(
+  qItem: QuestionnaireItem,
+  calculatedExpressions: Record<string, CalculatedExpression>
+): QuestionnaireResponseItem | null {
+  const itemCalculatedExpression = calculatedExpressions[qItem.linkId];
+  let calculatedExpressionAnswer: QuestionnaireResponseItemAnswer | undefined;
+  if (itemCalculatedExpression && itemCalculatedExpression.value) {
+    calculatedExpressionAnswer = parseValueToAnswer(qItem, itemCalculatedExpression.value);
+  }
+
+  if (!calculatedExpressionAnswer) {
+    return null;
+  }
+
+  return {
+    linkId: qItem.linkId,
+    text: qItem.text,
+    answer: [calculatedExpressionAnswer]
+  };
+}
+
+function parseValueToAnswer(
+  qItem: QuestionnaireItem,
+  value: string | number
+): QuestionnaireResponseItemAnswer {
+  if (typeof value === 'number') {
+    if (qItem.type === 'integer') {
+      return { valueInteger: value };
+    }
+
+    return { valueDecimal: value };
+  }
+
+  return { valueString: value };
+}

package/src/utils/choice.js

@@ -0,0 +1,160 @@
+/*
+ * 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 { QItemChoiceControl, QItemChoiceOrientation } from '../interfaces/choice.enum';
+import { isSpecificItemControl } from './itemControl';
+/**
+ * Get choice control type based on certain criteria in choice items
+ *
+ * @author Sean Fong
+ */
+export function getChoiceControlType(qItem) {
+    const dropdownOptionsCount = 5;
+    if (isSpecificItemControl(qItem, 'autocomplete')) {
+        return QItemChoiceControl.Autocomplete;
+    }
+    if (isSpecificItemControl(qItem, 'check-box')) {
+        return QItemChoiceControl.Checkbox;
+    }
+    if (isSpecificItemControl(qItem, 'radio-button')) {
+        return QItemChoiceControl.Radio;
+    }
+    if (isSpecificItemControl(qItem, 'drop-down')) {
+        return QItemChoiceControl.Select;
+    }
+    if (qItem.answerOption) {
+        return qItem.answerOption.length > 0 && qItem.answerOption.length < dropdownOptionsCount
+            ? QItemChoiceControl.Radio
+            : QItemChoiceControl.Select;
+    }
+    else {
+        return QItemChoiceControl.Select;
+    }
+}
+/**
+ * Find and return corresponding answerOption based on selected answer in form
+ *
+ * @author Sean Fong
+ */
+export function findInAnswerOptions(answerOptions, selected) {
+    for (const option of answerOptions) {
+        if (option['valueCoding']) {
+            if (selected === option.valueCoding.code) {
+                return option;
+            }
+        }
+        else if (option['valueString']) {
+            if (selected === option.valueString) {
+                return option;
+            }
+        }
+        else if (option['valueInteger']) {
+            if (selected === option.valueInteger.toString()) {
+                return option;
+            }
+        }
+    }
+}
+/**
+ * Find and return corresponding coding from AnswerValyeSet based on selected answer in form
+ *
+ * @author Sean Fong
+ */
+export function findInAnswerValueSetCodings(codings, selected) {
+    for (const coding of codings) {
+        if (selected === coding.code) {
+            return coding;
+        }
+    }
+}
+/**
+ * Find and return string value from selected answer
+ *
+ * @author Sean Fong
+ */
+export function getQrChoiceValue(qrChoice, returnNull) {
+    if (qrChoice['answer']) {
+        const answer = qrChoice['answer'][0];
+        if (answer['valueCoding']) {
+            return answer.valueCoding.code ? answer.valueCoding.code : '';
+        }
+        else if (answer['valueString'] !== undefined) {
+            return answer.valueString;
+        }
+        else if (answer['valueInteger']) {
+            return answer.valueInteger.toString();
+        }
+    }
+    return returnNull ? null : '';
+}
+/**
+ * Update choice checkbox group answers based on checkbox changes
+ *
+ * @author Sean Fong
+ */
+export function updateQrCheckboxAnswers(changedValue, answers, answerOptions, qrChoiceCheckbox, isMultiSelection) {
+    // search for answer item of changedValue from list of answer options
+    const newAnswer = findInAnswerOptions(answerOptions, changedValue);
+    if (!newAnswer)
+        return null;
+    if (isMultiSelection && answers.length > 0) {
+        // check and filter if new answer exists in existing qrAnswers
+        const updatedAnswers = answers.filter((answer) => JSON.stringify(answer) !== JSON.stringify(newAnswer));
+        // new answer is not present in existing answers, so we add it to the array
+        if (updatedAnswers.length === answers.length) {
+            updatedAnswers.push(newAnswer);
+        }
+        return Object.assign(Object.assign({}, qrChoiceCheckbox), { answer: updatedAnswers });
+    }
+    else {
+        return answers.some((answer) => JSON.stringify(answer) === JSON.stringify(newAnswer))
+            ? Object.assign(Object.assign({}, qrChoiceCheckbox), { answer: [] }) : Object.assign(Object.assign({}, qrChoiceCheckbox), { answer: [newAnswer] });
+    }
+}
+/**
+ * Get choice orientation from its itemControl
+ *
+ * @author Sean Fong
+ */
+export function getChoiceOrientation(qItem) {
+    var _a;
+    const itemControl = (_a = qItem.extension) === null || _a === void 0 ? void 0 : _a.find((extension) => extension.url === 'http://hl7.org/fhir/StructureDefinition/questionnaire-choiceOrientation');
+    if (itemControl) {
+        const code = itemControl.valueCode;
+        if (code) {
+            if (code === 'horizontal') {
+                return QItemChoiceOrientation.Horizontal;
+            }
+            else if (code === 'vertical') {
+                return QItemChoiceOrientation.Vertical;
+            }
+        }
+    }
+    return QItemChoiceOrientation.Vertical;
+}
+/**
+ * Converts an array of codings to an array of valueCodings which can use the QuestionnaireItemAnswerOption type
+ *
+ * @author Sean Fong
+ */
+export function mapCodingsToOptions(codings) {
+    return codings.map((coding) => {
+        return {
+            valueCoding: coding
+        };
+    });
+}
+//# sourceMappingURL=choice.js.map

package/src/utils/choice.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"choice.js","sourceRoot":"","sources":["choice.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;GAeG;AAUH,OAAO,EAAE,kBAAkB,EAAE,sBAAsB,EAAE,MAAM,2BAA2B,CAAC;AACvF,OAAO,EAAE,qBAAqB,EAAE,MAAM,eAAe,CAAC;AAEtD;;;;GAIG;AACH,MAAM,UAAU,oBAAoB,CAAC,KAAwB;IAC3D,MAAM,oBAAoB,GAAG,CAAC,CAAC;IAC/B,IAAI,qBAAqB,CAAC,KAAK,EAAE,cAAc,CAAC,EAAE;QAChD,OAAO,kBAAkB,CAAC,YAAY,CAAC;KACxC;IAED,IAAI,qBAAqB,CAAC,KAAK,EAAE,WAAW,CAAC,EAAE;QAC7C,OAAO,kBAAkB,CAAC,QAAQ,CAAC;KACpC;IAED,IAAI,qBAAqB,CAAC,KAAK,EAAE,cAAc,CAAC,EAAE;QAChD,OAAO,kBAAkB,CAAC,KAAK,CAAC;KACjC;IAED,IAAI,qBAAqB,CAAC,KAAK,EAAE,WAAW,CAAC,EAAE;QAC7C,OAAO,kBAAkB,CAAC,MAAM,CAAC;KAClC;IAED,IAAI,KAAK,CAAC,YAAY,EAAE;QACtB,OAAO,KAAK,CAAC,YAAY,CAAC,MAAM,GAAG,CAAC,IAAI,KAAK,CAAC,YAAY,CAAC,MAAM,GAAG,oBAAoB;YACtF,CAAC,CAAC,kBAAkB,CAAC,KAAK;YAC1B,CAAC,CAAC,kBAAkB,CAAC,MAAM,CAAC;KAC/B;SAAM;QACL,OAAO,kBAAkB,CAAC,MAAM,CAAC;KAClC;AACH,CAAC;AAED;;;;GAIG;AACH,MAAM,UAAU,mBAAmB,CACjC,aAA8C,EAC9C,QAAgB;IAEhB,KAAK,MAAM,MAAM,IAAI,aAAa,EAAE;QAClC,IAAI,MAAM,CAAC,aAAa,CAAC,EAAE;YACzB,IAAI,QAAQ,KAAK,MAAM,CAAC,WAAW,CAAC,IAAI,EAAE;gBACxC,OAAO,MAAM,CAAC;aACf;SACF;aAAM,IAAI,MAAM,CAAC,aAAa,CAAC,EAAE;YAChC,IAAI,QAAQ,KAAK,MAAM,CAAC,WAAW,EAAE;gBACnC,OAAO,MAAM,CAAC;aACf;SACF;aAAM,IAAI,MAAM,CAAC,cAAc,CAAC,EAAE;YACjC,IAAI,QAAQ,KAAK,MAAM,CAAC,YAAY,CAAC,QAAQ,EAAE,EAAE;gBAC/C,OAAO,MAAM,CAAC;aACf;SACF;KACF;AACH,CAAC;AAED;;;;GAIG;AACH,MAAM,UAAU,2BAA2B,CACzC,OAAiB,EACjB,QAAgB;IAEhB,KAAK,MAAM,MAAM,IAAI,OAAO,EAAE;QAC5B,IAAI,QAAQ,KAAK,MAAM,CAAC,IAAI,EAAE;YAC5B,OAAO,MAAM,CAAC;SACf;KACF;AACH,CAAC;AAED;;;;GAIG;AACH,MAAM,UAAU,gBAAgB,CAC9B,QAAmC,EACnC,UAAoB;IAEpB,IAAI,QAAQ,CAAC,QAAQ,CAAC,EAAE;QACtB,MAAM,MAAM,GAAG,QAAQ,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,CAAC;QACrC,IAAI,MAAM,CAAC,aAAa,CAAC,EAAE;YACzB,OAAO,MAAM,CAAC,WAAW,CAAC,IAAI,CAAC,CAAC,CAAC,MAAM,CAAC,WAAW,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC;SAC/D;aAAM,IAAI,MAAM,CAAC,aAAa,CAAC,KAAK,SAAS,EAAE;YAC9C,OAAO,MAAM,CAAC,WAAW,CAAC;SAC3B;aAAM,IAAI,MAAM,CAAC,cAAc,CAAC,EAAE;YACjC,OAAO,MAAM,CAAC,YAAY,CAAC,QAAQ,EAAE,CAAC;SACvC;KACF;IACD,OAAO,UAAU,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC;AAChC,CAAC;AAED;;;;GAIG;AACH,MAAM,UAAU,uBAAuB,CACrC,YAAoB,EACpB,OAA0C,EAC1C,aAA8C,EAC9C,gBAA2C,EAC3C,gBAAyB;IAEzB,qEAAqE;IACrE,MAAM,SAAS,GAAG,mBAAmB,CAAC,aAAa,EAAE,YAAY,CAAC,CAAC;IACnE,IAAI,CAAC,SAAS;QAAE,OAAO,IAAI,CAAC;IAE5B,IAAI,gBAAgB,IAAI,OAAO,CAAC,MAAM,GAAG,CAAC,EAAE;QAC1C,8DAA8D;QAC9D,MAAM,cAAc,GAAG,OAAO,CAAC,MAAM,CACnC,CAAC,MAAM,EAAE,EAAE,CAAC,IAAI,CAAC,SAAS,CAAC,MAAM,CAAC,KAAK,IAAI,CAAC,SAAS,CAAC,SAAS,CAAC,CACjE,CAAC;QAEF,2EAA2E;QAC3E,IAAI,cAAc,CAAC,MAAM,KAAK,OAAO,CAAC,MAAM,EAAE;YAC5C,cAAc,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;SAChC;QAED,uCAAY,gBAAgB,KAAE,MAAM,EAAE,cAAc,IAAG;KACxD;SAAM;QACL,OAAO,OAAO,CAAC,IAAI,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,IAAI,CAAC,SAAS,CAAC,MAAM,CAAC,KAAK,IAAI,CAAC,SAAS,CAAC,SAAS,CAAC,CAAC;YACnF,CAAC,iCAAM,gBAAgB,KAAE,MAAM,EAAE,EAAE,IACnC,CAAC,iCAAM,gBAAgB,KAAE,MAAM,EAAE,CAAC,SAAS,CAAC,GAAE,CAAC;KAClD;AACH,CAAC;AAED;;;;GAIG;AACH,MAAM,UAAU,oBAAoB,CAAC,KAAwB;;IAC3D,MAAM,WAAW,GAAG,MAAA,KAAK,CAAC,SAAS,0CAAE,IAAI,CACvC,CAAC,SAAoB,EAAE,EAAE,CACvB,SAAS,CAAC,GAAG,KAAK,yEAAyE,CAC9F,CAAC;IACF,IAAI,WAAW,EAAE;QACf,MAAM,IAAI,GAAG,WAAW,CAAC,SAAS,CAAC;QACnC,IAAI,IAAI,EAAE;YACR,IAAI,IAAI,KAAK,YAAY,EAAE;gBACzB,OAAO,sBAAsB,CAAC,UAAU,CAAC;aAC1C;iBAAM,IAAI,IAAI,KAAK,UAAU,EAAE;gBAC9B,OAAO,sBAAsB,CAAC,QAAQ,CAAC;aACxC;SACF;KACF;IACD,OAAO,sBAAsB,CAAC,QAAQ,CAAC;AACzC,CAAC;AAED;;;;GAIG;AACH,MAAM,UAAU,mBAAmB,CAAC,OAAiB;IACnD,OAAO,OAAO,CAAC,GAAG,CAAC,CAAC,MAAM,EAAE,EAAE;QAC5B,OAAO;YACL,WAAW,EAAE,MAAM;SACpB,CAAC;IACJ,CAAC,CAAC,CAAC;AACL,CAAC"}

package/src/utils/choice.ts

@@ -0,0 +1,194 @@
+/*
+ * 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 {
+  Coding,
+  Extension,
+  QuestionnaireItem,
+  QuestionnaireItemAnswerOption,
+  QuestionnaireResponseItem,
+  QuestionnaireResponseItemAnswer
+} from 'fhir/r4';
+import { QItemChoiceControl, QItemChoiceOrientation } from '../interfaces/choice.enum';
+import { isSpecificItemControl } from './itemControl';
+
+/**
+ * Get choice control type based on certain criteria in choice items
+ *
+ * @author Sean Fong
+ */
+export function getChoiceControlType(qItem: QuestionnaireItem) {
+  const dropdownOptionsCount = 5;
+  if (isSpecificItemControl(qItem, 'autocomplete')) {
+    return QItemChoiceControl.Autocomplete;
+  }
+
+  if (isSpecificItemControl(qItem, 'check-box')) {
+    return QItemChoiceControl.Checkbox;
+  }
+
+  if (isSpecificItemControl(qItem, 'radio-button')) {
+    return QItemChoiceControl.Radio;
+  }
+
+  if (isSpecificItemControl(qItem, 'drop-down')) {
+    return QItemChoiceControl.Select;
+  }
+
+  if (qItem.answerOption) {
+    return qItem.answerOption.length > 0 && qItem.answerOption.length < dropdownOptionsCount
+      ? QItemChoiceControl.Radio
+      : QItemChoiceControl.Select;
+  } else {
+    return QItemChoiceControl.Select;
+  }
+}
+
+/**
+ * Find and return corresponding answerOption based on selected answer in form
+ *
+ * @author Sean Fong
+ */
+export function findInAnswerOptions(
+  answerOptions: QuestionnaireItemAnswerOption[],
+  selected: string
+): QuestionnaireResponseItemAnswer | undefined {
+  for (const option of answerOptions) {
+    if (option['valueCoding']) {
+      if (selected === option.valueCoding.code) {
+        return option;
+      }
+    } else if (option['valueString']) {
+      if (selected === option.valueString) {
+        return option;
+      }
+    } else if (option['valueInteger']) {
+      if (selected === option.valueInteger.toString()) {
+        return option;
+      }
+    }
+  }
+}
+
+/**
+ * Find and return corresponding coding from AnswerValyeSet based on selected answer in form
+ *
+ * @author Sean Fong
+ */
+export function findInAnswerValueSetCodings(
+  codings: Coding[],
+  selected: string
+): QuestionnaireResponseItemAnswer | undefined {
+  for (const coding of codings) {
+    if (selected === coding.code) {
+      return coding;
+    }
+  }
+}
+
+/**
+ * Find and return string value from selected answer
+ *
+ * @author Sean Fong
+ */
+export function getQrChoiceValue(
+  qrChoice: QuestionnaireResponseItem,
+  returnNull?: boolean
+): string | null {
+  if (qrChoice['answer']) {
+    const answer = qrChoice['answer'][0];
+    if (answer['valueCoding']) {
+      return answer.valueCoding.code ? answer.valueCoding.code : '';
+    } else if (answer['valueString'] !== undefined) {
+      return answer.valueString;
+    } else if (answer['valueInteger']) {
+      return answer.valueInteger.toString();
+    }
+  }
+  return returnNull ? null : '';
+}
+
+/**
+ * Update choice checkbox group answers based on checkbox changes
+ *
+ * @author Sean Fong
+ */
+export function updateQrCheckboxAnswers(
+  changedValue: string,
+  answers: QuestionnaireResponseItemAnswer[],
+  answerOptions: QuestionnaireItemAnswerOption[],
+  qrChoiceCheckbox: QuestionnaireResponseItem,
+  isMultiSelection: boolean
+): QuestionnaireResponseItem | null {
+  // search for answer item of changedValue from list of answer options
+  const newAnswer = findInAnswerOptions(answerOptions, changedValue);
+  if (!newAnswer) return null;
+
+  if (isMultiSelection && answers.length > 0) {
+    // check and filter if new answer exists in existing qrAnswers
+    const updatedAnswers = answers.filter(
+      (answer) => JSON.stringify(answer) !== JSON.stringify(newAnswer)
+    );
+
+    // new answer is not present in existing answers, so we add it to the array
+    if (updatedAnswers.length === answers.length) {
+      updatedAnswers.push(newAnswer);
+    }
+
+    return { ...qrChoiceCheckbox, answer: updatedAnswers };
+  } else {
+    return answers.some((answer) => JSON.stringify(answer) === JSON.stringify(newAnswer))
+      ? { ...qrChoiceCheckbox, answer: [] }
+      : { ...qrChoiceCheckbox, answer: [newAnswer] };
+  }
+}
+
+/**
+ * Get choice orientation from its itemControl
+ *
+ * @author Sean Fong
+ */
+export function getChoiceOrientation(qItem: QuestionnaireItem): QItemChoiceOrientation {
+  const itemControl = qItem.extension?.find(
+    (extension: Extension) =>
+      extension.url === 'http://hl7.org/fhir/StructureDefinition/questionnaire-choiceOrientation'
+  );
+  if (itemControl) {
+    const code = itemControl.valueCode;
+    if (code) {
+      if (code === 'horizontal') {
+        return QItemChoiceOrientation.Horizontal;
+      } else if (code === 'vertical') {
+        return QItemChoiceOrientation.Vertical;
+      }
+    }
+  }
+  return QItemChoiceOrientation.Vertical;
+}
+
+/**
+ * Converts an array of codings to an array of valueCodings which can use the QuestionnaireItemAnswerOption type
+ *
+ * @author Sean Fong
+ */
+export function mapCodingsToOptions(codings: Coding[]): QuestionnaireItemAnswerOption[] {
+  return codings.map((coding) => {
+    return {
+      valueCoding: coding
+    };
+  });
+}

package/src/utils/debounce.js

@@ -0,0 +1,19 @@
+/*
+ * 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.
+ */
+export const DEBOUNCE_DURATION = 200;
+export const AUTOCOMPLETE_DEBOUNCE_DURATION = 300;
+//# sourceMappingURL=debounce.js.map

package/src/utils/debounce.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"debounce.js","sourceRoot":"","sources":["debounce.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;GAeG;AAEH,MAAM,CAAC,MAAM,iBAAiB,GAAG,GAAG,CAAC;AAErC,MAAM,CAAC,MAAM,8BAA8B,GAAG,GAAG,CAAC"}