@f1studio/form-spec 5.0.0-alpha.149 → 5.0.0-alpha.152

package/src/FormSpec.FS/Integrations/Adapters/CorEMR/CoreMREncoder.ts

@@ -3,7 +3,7 @@ import { orElse, defaultArg, map, value as value_3, bind, unwrap, Option } from
 import { int32, float64 } from "@fable-org/fable-library-js/Int32.js";
 import { comparePrimitives, stringHash, uncurry2, IComparable, IEquatable } from "@fable-org/fable-library-js/Util.js";
 import { record_type, option_type, float64_type, TypeInfo } from "@fable-org/fable-library-js/Reflection.js";
-import { fold, contains, exists, tail, mapIndexed, tryHead, choose, map as map_1, singleton, empty, tryFind, head, isEmpty, FSharpList, collect, filter } from "@fable-org/fable-library-js/List.js";
+import { exists, fold, contains, tail, mapIndexed, tryHead, choose, map as map_1, singleton, empty, tryFind, head, isEmpty, FSharpList, collect, filter } from "@fable-org/fable-library-js/List.js";
 import { Shared_MatrixItemKey, Shared_MatrixAnswer, Spec_MultiChoiceInfo, Spec_SingleChoiceInfo, Shared_FieldOption, Shared_FieldOptionKey, Shared_FieldKey, Spec_FormSpec$1, Shared_FieldValue, Shared_FieldAnswer, Shared_PluginDataProperty, Shared_FieldValue_$union, Spec_FormStep$1, Spec_FormField$1, Spec_PluginFieldConfig, Spec_FieldType_$union } from "../../../FormSpec.js";
 import { split, isNullOrWhiteSpace } from "@fable-org/fable-library-js/String.js";
 import { tryParse } from "@fable-org/fable-library-js/Double.js";
@@ -294,6 +294,8 @@ function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsId
                     const answers: FSharpSet<Shared_FieldAnswer> = (value_3(matchValue) as Shared_FieldValue<1>).fields[0];
                     const matchValue_3: int32 = anchor.ItemTypeId | 0;
                     switch (matchValue_3) {
+                        case 20:
+                        case 21:
                         case 26:
                         case 40:
                         case 41:
@@ -311,7 +313,7 @@ function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsId
                             }
                         }
                         default:
-                            throw new Error(`🚨 Multiple answers not supported for CoreMR ItemTypeId ${anchor.ItemTypeId} field ${anchor.FieldKey} - only bitmask types (26,40,41,143) support multiple selection!`);
+                            throw new Error(`🚨 Multiple answers not supported for CoreMR ItemTypeId ${anchor.ItemTypeId} field ${anchor.FieldKey} - only bitmask types (20,21,26,40,41,143) support multiple selection!`);
                     }
                 }
                 case /* Matrix */ 2: {
@@ -362,24 +364,6 @@ function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsId
                             return singleton(new CoreMRAnswer(anchor.Sequence, 0n, supportsTextContent(anchor) ? answer.Value : undefined));
                         case 20:
                         case 21:
-                        case 25:
-                        case 32: {
-                            const canonicalAnswer: string = Helpers_canonicalizeFieldKey(answer.Value);
-                            const scoreOpt: Option<int64> = map<CoreMRChoiceAnchor, int64>((c_1: CoreMRChoiceAnchor): int64 => c_1.Score, tryFind<CoreMRChoiceAnchor>((c: CoreMRChoiceAnchor): boolean => exists<Shared_FieldOption>((opt: Shared_FieldOption): boolean => {
-                                if (getFieldOptionKeyGuid(opt.OptionKey) === getFieldOptionKeyGuid(c.FieldOptionKey)) {
-                                    return Helpers_canonicalizeFieldKey(opt.Value) === canonicalAnswer;
-                                }
-                                else {
-                                    return false;
-                                }
-                            }, options), anchor.Choices));
-                            if (scoreOpt == null) {
-                                throw new Error(`🚨 No matching choice found for ItemTypeId ${anchor.ItemTypeId} field ${anchor.FieldKey} answer '${answer.Value}'`);
-                            }
-                            else {
-                                return singleton(new CoreMRAnswer(anchor.Sequence, value_3(scoreOpt), supportsOptionalNotes(anchor) ? answer.Documentation : undefined));
-                            }
-                        }
                         case 26:
                         case 40:
                         case 41:
@@ -413,6 +397,24 @@ function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsId
                                 return singleton(new CoreMRAnswer(anchor.Sequence, fold<int32, int64>((acc: int64, bit_1: int32): int64 => toInt64(op_BitwiseOr(acc, toInt64(op_LeftShift(1n, bit_1)))), 0n, bitPositions), supportsOptionalNotes(anchor) ? answer.Documentation : undefined));
                             }
                         }
+                        case 25:
+                        case 32: {
+                            const canonicalAnswer: string = Helpers_canonicalizeFieldKey(answer.Value);
+                            const scoreOpt: Option<int64> = map<CoreMRChoiceAnchor, int64>((c_1: CoreMRChoiceAnchor): int64 => c_1.Score, tryFind<CoreMRChoiceAnchor>((c: CoreMRChoiceAnchor): boolean => exists<Shared_FieldOption>((opt: Shared_FieldOption): boolean => {
+                                if (getFieldOptionKeyGuid(opt.OptionKey) === getFieldOptionKeyGuid(c.FieldOptionKey)) {
+                                    return Helpers_canonicalizeFieldKey(opt.Value) === canonicalAnswer;
+                                }
+                                else {
+                                    return false;
+                                }
+                            }, options), anchor.Choices));
+                            if (scoreOpt == null) {
+                                throw new Error(`🚨 No matching choice found for ItemTypeId ${anchor.ItemTypeId} field ${anchor.FieldKey} answer '${answer.Value}'`);
+                            }
+                            else {
+                                return singleton(new CoreMRAnswer(anchor.Sequence, value_3(scoreOpt), supportsOptionalNotes(anchor) ? answer.Documentation : undefined));
+                            }
+                        }
                         case 30:
                         case 31: {
                             const valStr: string = canonicalizeForYesNo(answer.Value);
@@ -459,14 +461,14 @@ function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsId
                     return empty<CoreMRAnswer>();
                 case 20:
                 case 21:
-                case 25:
-                case 32:
-                    return empty<CoreMRAnswer>();
                 case 26:
                 case 40:
                 case 41:
                 case 143:
                     return empty<CoreMRAnswer>();
+                case 25:
+                case 32:
+                    return empty<CoreMRAnswer>();
                 case 30:
                 case 31:
                     return singleton(new CoreMRAnswer(anchor.Sequence, 2n, undefined));

package/src/FormSpec.FS/Integrations/Adapters/CorEMR/CoreMRSourceMap.ts

@@ -3,11 +3,12 @@ import { numberHash, comparePrimitives, IComparable, IEquatable } from "@fable-o
 import { class_type, list_type, option_type, int64_type, int32_type, record_type, bool_type, string_type, TypeInfo } from "@fable-org/fable-library-js/Reflection.js";
 import { getElementTypeInfo, ElementTypeInfo } from "./CorEMRElementTypeMap.js";
 import { int32 } from "@fable-org/fable-library-js/Int32.js";
-import { ofList, FSharpMap, tryFind } from "@fable-org/fable-library-js/Map.js";
-import { map, defaultArg, Option, value as value_2 } from "@fable-org/fable-library-js/Option.js";
+import { empty as empty_1, ofList, FSharpMap, tryFind } from "@fable-org/fable-library-js/Map.js";
+import { map, defaultArg, Option, value as value_3 } from "@fable-org/fable-library-js/Option.js";
 import { int64 } from "@fable-org/fable-library-js/BigInt.js";
 import { Spec_FormClassification_General, Spec_FormStep$1, Spec_FormField$1, Spec_MultiChoiceInfo, Spec_SingleChoiceInfo, Shared_FieldOption, Spec_FormSpec$1_$reflection, Spec_FieldType_$reflection, Spec_FieldType_$union, Spec_FormSpec$1, Spec_FormClassification_$reflection, Spec_FormClassification_$union, Shared_FieldKey_$reflection, Shared_FieldKey, Shared_MatrixItemKey_$reflection, Shared_MatrixItemKey, Shared_FieldOptionKey_$reflection, Shared_FieldOptionKey } from "../../../FormSpec.js";
 import { tryFind as tryFind_1, choose, item as item_1, length, mapIndexed, sortBy, empty, FSharpList } from "@fable-org/fable-library-js/List.js";
+import { ItemTrigger_$reflection, ItemTrigger } from "../../CorEMR/TemplateManifestDecoder.js";
 import { CoreMRFormData, CoreMRItem, CoreMRChoice, CoreMRTag_$reflection, CoreMRTrigger_$reflection, CoreMRTag, CoreMRTrigger } from "../../CorEMR/CoreMRTypes.js";
 import { List_groupBy } from "@fable-org/fable-library-js/Seq2.js";
 import { detectHeadings, groupItemsByHeadings, Section, HeadingItem } from "./CorEMRSectioning.js";
@@ -48,12 +49,12 @@ function getValueEncodingWithOverride(elementTypes: Option<FSharpMap<int32, Elem
         return getValueEncoding(itemTypeId);
     }
     else {
-        const matchValue: Option<ElementTypeInfo> = tryFind<int32, ElementTypeInfo>(itemTypeId, value_2(elementTypes));
+        const matchValue: Option<ElementTypeInfo> = tryFind<int32, ElementTypeInfo>(itemTypeId, value_3(elementTypes));
         if (matchValue == null) {
             return getValueEncoding(itemTypeId);
         }
         else {
-            return toValueEncodingInfo(value_2(matchValue));
+            return toValueEncodingInfo(value_3(matchValue));
         }
     }
 }
@@ -113,7 +114,8 @@ export class CoreMRFieldAnchor extends Record implements IEquatable<CoreMRFieldA
     readonly Choices: FSharpList<CoreMRChoiceAnchor>;
     readonly FieldKey: Shared_FieldKey;
     readonly MatrixItemAnchors: FSharpList<CoreMRMatrixItemAnchor>;
-    constructor(ItemId: int32, ItemTypeId: int32, Sequence: int32, NestingLevel: int32, Label: string, IsRequired: boolean, SequenceText: Option<string>, Code: Option<string>, Uuid: Option<string>, GenderRequired: Option<string>, Encoding: ValueEncodingInfo, Choices: FSharpList<CoreMRChoiceAnchor>, FieldKey: Shared_FieldKey, MatrixItemAnchors: FSharpList<CoreMRMatrixItemAnchor>) {
+    readonly Triggers: FSharpList<ItemTrigger>;
+    constructor(ItemId: int32, ItemTypeId: int32, Sequence: int32, NestingLevel: int32, Label: string, IsRequired: boolean, SequenceText: Option<string>, Code: Option<string>, Uuid: Option<string>, GenderRequired: Option<string>, Encoding: ValueEncodingInfo, Choices: FSharpList<CoreMRChoiceAnchor>, FieldKey: Shared_FieldKey, MatrixItemAnchors: FSharpList<CoreMRMatrixItemAnchor>, Triggers: FSharpList<ItemTrigger>) {
         super();
         this.ItemId = (ItemId | 0);
         this.ItemTypeId = (ItemTypeId | 0);
@@ -129,11 +131,12 @@ export class CoreMRFieldAnchor extends Record implements IEquatable<CoreMRFieldA
         this.Choices = Choices;
         this.FieldKey = FieldKey;
         this.MatrixItemAnchors = MatrixItemAnchors;
+        this.Triggers = Triggers;
     }
 }
 
 export function CoreMRFieldAnchor_$reflection(): TypeInfo {
-    return record_type("FormSpec.Integrations.CorEMR.CoreMRSourceMap.CoreMRFieldAnchor", [], CoreMRFieldAnchor, () => [["ItemId", int32_type], ["ItemTypeId", int32_type], ["Sequence", int32_type], ["NestingLevel", int32_type], ["Label", string_type], ["IsRequired", bool_type], ["SequenceText", option_type(string_type)], ["Code", option_type(string_type)], ["Uuid", option_type(string_type)], ["GenderRequired", option_type(string_type)], ["Encoding", ValueEncodingInfo_$reflection()], ["Choices", list_type(CoreMRChoiceAnchor_$reflection())], ["FieldKey", Shared_FieldKey_$reflection()], ["MatrixItemAnchors", list_type(CoreMRMatrixItemAnchor_$reflection())]]);
+    return record_type("FormSpec.Integrations.CorEMR.CoreMRSourceMap.CoreMRFieldAnchor", [], CoreMRFieldAnchor, () => [["ItemId", int32_type], ["ItemTypeId", int32_type], ["Sequence", int32_type], ["NestingLevel", int32_type], ["Label", string_type], ["IsRequired", bool_type], ["SequenceText", option_type(string_type)], ["Code", option_type(string_type)], ["Uuid", option_type(string_type)], ["GenderRequired", option_type(string_type)], ["Encoding", ValueEncodingInfo_$reflection()], ["Choices", list_type(CoreMRChoiceAnchor_$reflection())], ["FieldKey", Shared_FieldKey_$reflection()], ["MatrixItemAnchors", list_type(CoreMRMatrixItemAnchor_$reflection())], ["Triggers", list_type(ItemTrigger_$reflection())]]);
 }
 
 export class CoreMRStepAnchor extends Record implements IEquatable<CoreMRStepAnchor>, IComparable<CoreMRStepAnchor> {
@@ -307,7 +310,7 @@ export function buildFieldAnchor(elementTypes: Option<FSharpMap<int32, ElementTy
         Compare: comparePrimitives,
     });
     const fieldOptions: FSharpList<Shared_FieldOption> = getFieldOptions(field);
-    return new CoreMRFieldAnchor(item.ItemId, item.ItemTypeId, item.Sequence, item.NestingLevel, item.Label, item.IsRequired, item.SequenceText, item.Code, item.Uuid, item.GenderRequired, encoding, mapIndexed<CoreMRChoice, CoreMRChoiceAnchor>((i: int32, choice: CoreMRChoice): CoreMRChoiceAnchor => (new CoreMRChoiceAnchor(choice.ChoiceId, choice.Sequence, choice.Text, choice.Score, choice.BitPosition, choice.Code, (i < length(fieldOptions)) ? item_1(i, fieldOptions).OptionKey : (new Shared_FieldOptionKey("00000000-0000-0000-0000-000000000000")))), sortedChoices), field.FieldKey, empty<CoreMRMatrixItemAnchor>());
+    return new CoreMRFieldAnchor(item.ItemId, item.ItemTypeId, item.Sequence, item.NestingLevel, item.Label, item.IsRequired, item.SequenceText, item.Code, item.Uuid, item.GenderRequired, encoding, mapIndexed<CoreMRChoice, CoreMRChoiceAnchor>((i: int32, choice: CoreMRChoice): CoreMRChoiceAnchor => (new CoreMRChoiceAnchor(choice.ChoiceId, choice.Sequence, choice.Text, choice.Score, choice.BitPosition, choice.Code, (i < length(fieldOptions)) ? item_1(i, fieldOptions).OptionKey : (new Shared_FieldOptionKey("00000000-0000-0000-0000-000000000000")))), sortedChoices), field.FieldKey, empty<CoreMRMatrixItemAnchor>(), empty<ItemTrigger>());
 }
 
 export class ListMetadata extends Record implements IEquatable<ListMetadata>, IComparable<ListMetadata> {
@@ -335,7 +338,7 @@ export function ListMetadata_$reflection(): TypeInfo {
  * When listMetadata is Some (from FormListItem during import), IsScored and EncounterTypes are populated.
  * When elementTypes is Some (from bridge templates endpoint), use it for ValueEncoding; else fallback to CorEMRElementTypeMap.
  */
-export function buildSourceMap(elementTypes: Option<FSharpMap<int32, ElementTypeInfo>>, formData: CoreMRFormData, formSpec: Spec_FormSpec$1<Spec_FieldType_$union>, listMetadata: Option<ListMetadata>): CoreMRSourceMap {
+export function buildSourceMap(elementTypes: Option<FSharpMap<int32, ElementTypeInfo>>, triggersByItemId: FSharpMap<int32, FSharpList<ItemTrigger>>, formData: CoreMRFormData, formSpec: Spec_FormSpec$1<Spec_FieldType_$union>, listMetadata: Option<ListMetadata>): CoreMRSourceMap {
     const formCode: string = defaultArg(formSpec.Code, `CORE-${formData.Metadata.FormId}`);
     const choicesByItem: FSharpMap<int32, FSharpList<CoreMRChoice>> = ofList<int32, FSharpList<CoreMRChoice>>(List_groupBy<CoreMRChoice, int32>((c: CoreMRChoice): int32 => c.ItemId, formData.Choices, {
         Equals: (x: int32, y: int32): boolean => (x === y),
@@ -348,13 +351,14 @@ export function buildSourceMap(elementTypes: Option<FSharpMap<int32, ElementType
         stepOrder = ((stepOrder + 1) | 0);
         const formStep: Option<Spec_FormStep$1<Spec_FieldType_$union>> = tryFind_1<Spec_FormStep$1<Spec_FieldType_$union>>((s: Spec_FormStep$1<Spec_FieldType_$union>): boolean => (s.StepOrder === stepOrder), formSpec.Steps);
         if (formStep != null) {
-            const step: Spec_FormStep$1<Spec_FieldType_$union> = value_2(formStep);
+            const step: Spec_FormStep$1<Spec_FieldType_$union> = value_3(formStep);
             if (length(section.Items) !== length(step.Fields)) {
                 throw new Error(`CoreMR section mismatch: step ${stepOrder} has ${length(section.Items)} section items but ${length(step.Fields)} fields. Lengths must match.`);
             }
             const fieldAnchors: FSharpList<CoreMRFieldAnchor> = mapIndexed<CoreMRItem, CoreMRFieldAnchor>((i: int32, item: CoreMRItem): CoreMRFieldAnchor => {
                 const field: Spec_FormField$1<Spec_FieldType_$union> = item_1(i, step.Fields);
-                return buildFieldAnchor(elementTypes, item, defaultArg(tryFind<int32, FSharpList<CoreMRChoice>>(item.ItemId, choicesByItem), empty<CoreMRChoice>()), field);
+                const anchor: CoreMRFieldAnchor = buildFieldAnchor(elementTypes, item, defaultArg(tryFind<int32, FSharpList<CoreMRChoice>>(item.ItemId, choicesByItem), empty<CoreMRChoice>()), field);
+                return new CoreMRFieldAnchor(anchor.ItemId, anchor.ItemTypeId, anchor.Sequence, anchor.NestingLevel, anchor.Label, anchor.IsRequired, anchor.SequenceText, anchor.Code, anchor.Uuid, anchor.GenderRequired, anchor.Encoding, anchor.Choices, anchor.FieldKey, anchor.MatrixItemAnchors, defaultArg(tryFind<int32, FSharpList<ItemTrigger>>(item.ItemId, triggersByItemId), empty<ItemTrigger>()));
             }, section.Items);
             const headingItemId: Option<int32> = map<HeadingItem, int32>((h: HeadingItem): int32 => h.ItemId, section.Heading);
             return new CoreMRStepMap(stepOrder, new CoreMRStepAnchor(headingItemId, section.HeadingSequence, section.HeadingLabel), fieldAnchors);
@@ -372,9 +376,9 @@ export function buildSourceMap(elementTypes: Option<FSharpMap<int32, ElementType
  * When listMetadata is Some (from FormListItem during import), IsScored and EncounterTypes are populated in the SourceMap.
  * When elementTypes is Some (from bridge templates endpoint), use it for ValueEncoding; else fallback to CorEMRElementTypeMap.
  */
-export function convertWithMap(formData: CoreMRFormData, listMetadata: Option<ListMetadata>, elementTypes: Option<FSharpMap<int32, ElementTypeInfo>>): CoreMRConversionResult {
+export function convertWithMap(formData: CoreMRFormData, listMetadata: Option<ListMetadata>, elementTypes: Option<FSharpMap<int32, ElementTypeInfo>>, triggersByItemId: FSharpMap<int32, FSharpList<ItemTrigger>>): CoreMRConversionResult {
     const formSpec: Spec_FormSpec$1<Spec_FieldType_$union> = convertToFormSpec(formData);
-    return new CoreMRConversionResult(formSpec, buildSourceMap(elementTypes, formData, formSpec, listMetadata));
+    return new CoreMRConversionResult(formSpec, buildSourceMap(elementTypes, triggersByItemId, formData, formSpec, listMetadata));
 }
 
 /**
@@ -383,7 +387,9 @@ export function convertWithMap(formData: CoreMRFormData, listMetadata: Option<Li
  * When elementTypes is Some (from bridge templates endpoint), use it for ValueEncoding; else fallback to CorEMRElementTypeMap.
  */
 export function convertWithMapAndProvenance(formData: CoreMRFormData, listMetadata: Option<ListMetadata>, elementTypes: Option<FSharpMap<int32, ElementTypeInfo>>): Spec_FormSpec$1<Spec_FieldType_$union> {
-    const result: CoreMRConversionResult = convertWithMap(formData, listMetadata, elementTypes);
+    const result: CoreMRConversionResult = convertWithMap(formData, listMetadata, elementTypes, empty_1<int32, FSharpList<ItemTrigger>>({
+        Compare: comparePrimitives,
+    }));
     const bind$0040: Spec_FormSpec$1<Spec_FieldType_$union> = result.FormSpec;
     return new Spec_FormSpec$1(bind$0040.Id, bind$0040.Code, bind$0040.Title, bind$0040.Abstract, bind$0040.Version, bind$0040.FormSpecVersion, bind$0040.Steps, bind$0040.CategoryTags, bind$0040.Score, bind$0040.AssociatedCodes, bind$0040.RequiresReview, bind$0040.RequiresReviewAndApproval, bind$0040.ClinicalPathway, bind$0040.Lifecycle, bind$0040.FilledMeta, bind$0040.CustomData, new IntegrationProvenance("coremr", toString(0, Auto_generateBoxedEncoder_437914C6(CoreMRSourceMap_$reflection(), undefined, undefined, undefined)(result.SourceMap))), result.SourceMap.Classification);
 }