@f1studio/form-spec 5.0.0-alpha.117 → 5.0.0-alpha.123

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

@@ -2,20 +2,20 @@ import { CoreMRStepMap, CoreMRSourceMap, CoreMRSourceMap_$reflection, CoreMRFiel
 import { CaseStrategy_CamelCase, ErrorReason_$union, ExtraCoders } from "../../../../fable_modules/Thoth.Json.10.4.1/Types.fs.js";
 import { fromString, Auto_generateBoxedDecoder_Z6670B51 } from "../../../../fable_modules/Thoth.Json.10.4.1/Decode.fs.js";
 import { FSharpResult$2_Ok, FSharpResult$2_Error, FSharpResult$2_$union } from "@fable-org/fable-library-js/Result.js";
-import { Spec_FormSpec$1, Spec_FormStep$1, Shared_PluginDataProperty, Shared_MatrixAnswer, Shared_FieldValue_$union, Shared_MatrixItemKey, Shared_FieldAnswer, Shared_FieldValue, Spec_FormField$1, Spec_FieldType_$union, Spec_MultiChoiceInfo, Spec_SingleChoiceInfo, Shared_FieldOption, Shared_FieldOptionKey, Shared_FieldKey, Shared_FieldKey_$reflection } from "../../../FormSpec.js";
+import { Spec_FormSpec$1, Spec_FormStep$1, Spec_FormField$1, Shared_PluginDataProperty, Shared_MatrixItemKey, Shared_MatrixAnswer, Shared_FieldAnswer, Shared_FieldValue, Shared_FieldValue_$union, Spec_FieldType_$union, Spec_MultiChoiceInfo, Spec_SingleChoiceInfo, Shared_FieldOption, Shared_FieldOptionKey, Shared_FieldKey, Shared_FieldKey_$reflection } from "../../../FormSpec.js";
 import { toString, Auto_generateBoxedEncoder_437914C6 } from "../../../../fable_modules/Thoth.Json.10.4.1/Encode.fs.js";
 import { newGuid } from "@fable-org/fable-library-js/Guid.js";
 import { FSharpMap, ofList, tryFind as tryFind_1, add } from "@fable-org/fable-library-js/Map.js";
 import { IOptionalGetter, IRequiredGetter, IGetters, list as list_9, bool, string, int, object } from "../../../../fable_modules/Thoth.Json.10.4.1/Decode.fs.js";
 import { comparePrimitives, uncurry2 } from "@fable-org/fable-library-js/Util.js";
 import { int32 } from "@fable-org/fable-library-js/Int32.js";
-import { collect, exists, map as map_1, choose, singleton, cons, tail, head, isEmpty, tryFind, empty, FSharpList } from "@fable-org/fable-library-js/List.js";
+import { collect, exists, head, tail, choose, isEmpty, map as map_1, singleton, tryFind, empty, FSharpList } from "@fable-org/fable-library-js/List.js";
 import { orElse, value as value_10, Option, map, bind, defaultArg } from "@fable-org/fable-library-js/Option.js";
 import { CoreMRAnswer, CoreMRFormInsertRequest, CoreMRFormInsertRequest_$reflection } from "./FormSpecToCoreMRInsert.js";
 import { isNullOrWhiteSpace } from "@fable-org/fable-library-js/String.js";
 import { int64, fromInt32, toInt64 } from "@fable-org/fable-library-js/BigInt.js";
+import { toList, FSharpSet } from "@fable-org/fable-library-js/Set.js";
 import { computeBitmask } from "../../../BitmaskHelpers.js";
-import { FSharpSet, toList } from "@fable-org/fable-library-js/Set.js";
 
 const baseExtra: ExtraCoders = coreMRExtra;
 
@@ -72,6 +72,15 @@ function getScoreFromOption(options: FSharpList<Shared_FieldOption>, selectedVal
     return bind<Shared_FieldOption, int64>((opt_1: Shared_FieldOption): Option<int64> => map<int32, int64>((value: int32): int64 => toInt64(fromInt32(value)), opt_1.Score), tryFind<Shared_FieldOption>((opt: Shared_FieldOption): boolean => (canonicalize(opt.Value) === canonicalSelected), options));
 }
 
+function supportsTextContent(anchor: CoreMRFieldAnchor): boolean {
+    if (anchor.Encoding.TextFieldRole === "content") {
+        return true;
+    }
+    else {
+        return anchor.Encoding.TextFieldRole === "iso_date";
+    }
+}
+
 function getOptionsFromFieldType(ft: Spec_FieldType_$union): FSharpList<Shared_FieldOption> {
     let matchResult: int32, info: Spec_SingleChoiceInfo, info_1: Spec_MultiChoiceInfo;
     switch (ft.tag) {
@@ -129,42 +138,8 @@ function getOptionsFromFieldType(ft: Spec_FieldType_$union): FSharpList<Shared_F
     }
 }
 
-function withDocumentation(field: Spec_FormField$1<Spec_FieldType_$union>, answers: FSharpList<CoreMRAnswer>): FSharpList<CoreMRAnswer> {
-    if (!field.NeedsDocumentation) {
-        return answers;
-    }
-    else {
-        const matchValue: Option<string> = field.Documentation;
-        let matchResult: int32, doc: string;
-        if (matchValue != null) {
-            if (value_10(matchValue) === "") {
-                matchResult = 0;
-            }
-            else {
-                matchResult = 1;
-                doc = value_10(matchValue);
-            }
-        }
-        else {
-            matchResult = 0;
-        }
-        switch (matchResult) {
-            case 0:
-                return answers;
-            default:
-                if (!isEmpty(answers)) {
-                    const first: CoreMRAnswer = head(answers);
-                    return cons(new CoreMRAnswer(first.Sequence, first.Value, doc!), tail(answers));
-                }
-                else {
-                    return answers;
-                }
-        }
-    }
-}
-
 function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, anchor: CoreMRFieldAnchor): FSharpList<CoreMRAnswer> {
-    let matchValue: Option<Shared_FieldValue_$union>, answers: FSharpSet<Shared_FieldAnswer>, options_1: FSharpList<Shared_FieldOption>, choicesWithBitPos: FSharpList<[string, int32]>, matrixAnswer: Shared_MatrixAnswer, options_2: FSharpList<Shared_FieldOption>, props: FSharpList<Shared_PluginDataProperty>, answer: Shared_FieldAnswer, options: FSharpList<Shared_FieldOption>, matchValue_2: string, matchValue_3: Option<int64>, canonicalAnswer: string, valStr: string, matchValue_1: string;
+    let canonicalAnswer: string;
     if (anchor.Encoding.IsSkip) {
         return empty<CoreMRAnswer>();
     }
@@ -172,21 +147,118 @@ function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, anchor:
         return singleton(new CoreMRAnswer(anchor.Sequence, 2n, undefined));
     }
     else {
-        return withDocumentation(field, (matchValue = field.Value, (matchValue != null) ? ((value_10(matchValue).tag === /* Multiple */ 1) ? ((answers = (value_10(matchValue) as Shared_FieldValue<1>).fields[0], (anchor.Encoding.ValueEncoding !== "choice_score") ? empty<CoreMRAnswer>() : ((options_1 = getOptionsFromFieldType(field.FieldType), (choicesWithBitPos = choose<CoreMRChoiceAnchor, [string, int32]>((c_2: CoreMRChoiceAnchor): Option<[string, int32]> => {
-            if (c_2.BitPosition != null) {
-                return [getFieldOptionKeyGuid(c_2.FieldOptionKey), value_10(c_2.BitPosition)] as [string, int32];
-            }
-            else {
-                return undefined;
-            }
-        }, anchor.Choices), isEmpty(choicesWithBitPos) ? empty<CoreMRAnswer>() : singleton(new CoreMRAnswer(anchor.Sequence, computeBitmask(choose<string, int32>((key: string): Option<int32> => map<[string, int32], int32>((tuple: [string, int32]): int32 => tuple[1], tryFind<[string, int32]>((tupledArg: [string, int32]): boolean => (tupledArg[0] === key), choicesWithBitPos)), choose<string, string>((valStr_1: string): Option<string> => map<Shared_FieldOption, string>((opt_2: Shared_FieldOption): string => getFieldOptionKeyGuid(opt_2.OptionKey), tryFind<Shared_FieldOption>((opt_1: Shared_FieldOption): boolean => (canonicalize(opt_1.Value) === canonicalize(valStr_1)), options_1)), map_1<Shared_FieldAnswer, string>((a: Shared_FieldAnswer): string => a.Value, toList<Shared_FieldAnswer>(answers))))), undefined))))))) : ((value_10(matchValue).tag === /* Matrix */ 2) ? ((matrixAnswer = (value_10(matchValue) as Shared_FieldValue<2>).fields[0], isEmpty(anchor.MatrixItemAnchors) ? empty<CoreMRAnswer>() : ((options_2 = getOptionsFromFieldType(field.FieldType), choose<CoreMRMatrixItemAnchor, CoreMRAnswer>((rowAnchor: CoreMRMatrixItemAnchor): Option<CoreMRAnswer> => map<string, CoreMRAnswer>((selectedValue: string): CoreMRAnswer => (new CoreMRAnswer(rowAnchor.Sequence, defaultArg(getScoreFromOption(options_2, selectedValue), 0n), undefined)), tryFind_1<Shared_MatrixItemKey, string>(rowAnchor.MatrixItemKey, matrixAnswer.Values)), anchor.MatrixItemAnchors))))) : ((value_10(matchValue).tag === /* PluginData */ 3) ? ((props = (value_10(matchValue) as Shared_FieldValue<3>).fields[0], !isEmpty(props) ? (isEmpty(tail(props)) ? (!isNullOrWhiteSpace(head(props).Value) ? singleton(new CoreMRAnswer(anchor.Sequence, 0n, head(props).Value)) : empty<CoreMRAnswer>()) : empty<CoreMRAnswer>()) : empty<CoreMRAnswer>())) : ((answer = (value_10(matchValue) as Shared_FieldValue<0>).fields[0], (options = getOptionsFromFieldType(field.FieldType), (matchValue_2 = anchor.Encoding.ValueEncoding, (matchValue_2 === "choice_score") ? ((matchValue_3 = orElse(getScoreFromOption(options, answer.Value), (canonicalAnswer = canonicalize(answer.Value), 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 canonicalize(opt.Value) === canonicalAnswer;
+        const matchValue: Option<Shared_FieldValue_$union> = field.Value;
+        if (matchValue != null) {
+            switch (value_10(matchValue).tag) {
+                case /* Multiple */ 1: {
+                    const answers: FSharpSet<Shared_FieldAnswer> = (value_10(matchValue) as Shared_FieldValue<1>).fields[0];
+                    if (anchor.Encoding.ValueEncoding !== "choice_score") {
+                        return empty<CoreMRAnswer>();
+                    }
+                    else {
+                        const options_1: FSharpList<Shared_FieldOption> = getOptionsFromFieldType(field.FieldType);
+                        const choicesWithBitPos: FSharpList<[string, int32]> = map_1<CoreMRChoiceAnchor, [string, int32]>((c_2: CoreMRChoiceAnchor): [string, int32] => {
+                            const bit: int32 = defaultArg(c_2.BitPosition, c_2.Sequence - 1) | 0;
+                            return [getFieldOptionKeyGuid(c_2.FieldOptionKey), bit] as [string, int32];
+                        }, anchor.Choices);
+                        if (isEmpty(choicesWithBitPos)) {
+                            return empty<CoreMRAnswer>();
+                        }
+                        else {
+                            return singleton(new CoreMRAnswer(anchor.Sequence, computeBitmask(choose<string, int32>((key: string): Option<int32> => map<[string, int32], int32>((tuple: [string, int32]): int32 => tuple[1], tryFind<[string, int32]>((tupledArg: [string, int32]): boolean => (tupledArg[0] === key), choicesWithBitPos)), choose<string, string>((valStr_1: string): Option<string> => map<Shared_FieldOption, string>((opt_2: Shared_FieldOption): string => getFieldOptionKeyGuid(opt_2.OptionKey), tryFind<Shared_FieldOption>((opt_1: Shared_FieldOption): boolean => (canonicalize(opt_1.Value) === canonicalize(valStr_1)), options_1)), map_1<Shared_FieldAnswer, string>((a: Shared_FieldAnswer): string => a.Value, toList<Shared_FieldAnswer>(answers))))), undefined));
+                        }
+                    }
+                }
+                case /* Matrix */ 2: {
+                    const matrixAnswer: Shared_MatrixAnswer = (value_10(matchValue) as Shared_FieldValue<2>).fields[0];
+                    if (isEmpty(anchor.MatrixItemAnchors)) {
+                        return empty<CoreMRAnswer>();
+                    }
+                    else {
+                        const options_2: FSharpList<Shared_FieldOption> = getOptionsFromFieldType(field.FieldType);
+                        return choose<CoreMRMatrixItemAnchor, CoreMRAnswer>((rowAnchor: CoreMRMatrixItemAnchor): Option<CoreMRAnswer> => map<string, CoreMRAnswer>((selectedValue: string): CoreMRAnswer => (new CoreMRAnswer(rowAnchor.Sequence, defaultArg(getScoreFromOption(options_2, selectedValue), 0n), undefined)), tryFind_1<Shared_MatrixItemKey, string>(rowAnchor.MatrixItemKey, matrixAnswer.Values)), anchor.MatrixItemAnchors);
+                    }
+                }
+                case /* PluginData */ 3: {
+                    const props: FSharpList<Shared_PluginDataProperty> = (value_10(matchValue) as Shared_FieldValue<3>).fields[0];
+                    let matchResult: int32, p_1: Shared_PluginDataProperty;
+                    if (!isEmpty(props)) {
+                        if (isEmpty(tail(props))) {
+                            if (!isNullOrWhiteSpace(head(props).Value)) {
+                                matchResult = 0;
+                                p_1 = head(props);
+                            }
+                            else {
+                                matchResult = 1;
+                            }
+                        }
+                        else {
+                            matchResult = 1;
+                        }
+                    }
+                    else {
+                        matchResult = 1;
+                    }
+                    switch (matchResult) {
+                        case 0:
+                            return singleton(new CoreMRAnswer(anchor.Sequence, 0n, supportsTextContent(anchor) ? p_1!.Value : undefined));
+                        default:
+                            return empty<CoreMRAnswer>();
+                    }
+                }
+                default: {
+                    const answer: Shared_FieldAnswer = (value_10(matchValue) as Shared_FieldValue<0>).fields[0];
+                    const options: FSharpList<Shared_FieldOption> = getOptionsFromFieldType(field.FieldType);
+                    const matchValue_2: string = anchor.Encoding.ValueEncoding;
+                    switch (matchValue_2) {
+                        case "choice_score": {
+                            const matchValue_3: Option<int64> = orElse(getScoreFromOption(options, answer.Value), (canonicalAnswer = canonicalize(answer.Value), 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 canonicalize(opt.Value) === canonicalAnswer;
+                                }
+                                else {
+                                    return false;
+                                }
+                            }, options), anchor.Choices))));
+                            if (matchValue_3 == null) {
+                                return singleton(new CoreMRAnswer(anchor.Sequence, 0n, undefined));
+                            }
+                            else {
+                                return singleton(new CoreMRAnswer(anchor.Sequence, value_10(matchValue_3), undefined));
+                            }
+                        }
+                        case "1_yes_2_no": {
+                            const valStr: string = canonicalize(answer.Value);
+                            return singleton(new CoreMRAnswer(anchor.Sequence, (((valStr === "yes") ? true : (valStr === "true")) ? true : (valStr === "1")) ? (1n) : (2n), undefined));
+                        }
+                        case "zero":
+                        case "scaffold":
+                        case "unknown":
+                            return singleton(new CoreMRAnswer(anchor.Sequence, 0n, supportsTextContent(anchor) ? answer.Value : undefined));
+                        default:
+                            return singleton(new CoreMRAnswer(anchor.Sequence, 0n, supportsTextContent(anchor) ? answer.Value : undefined));
+                    }
+                }
             }
-            else {
-                return false;
+        }
+        else {
+            const matchValue_1: string = anchor.Encoding.ValueEncoding;
+            switch (matchValue_1) {
+                case "1_yes_2_no":
+                    return singleton(new CoreMRAnswer(anchor.Sequence, 2n, undefined));
+                case "choice_score":
+                    if (isEmpty(anchor.Choices)) {
+                        return empty<CoreMRAnswer>();
+                    }
+                    else {
+                        return singleton(new CoreMRAnswer(anchor.Sequence, 0n, undefined));
+                    }
+                case "zero":
+                    return singleton(new CoreMRAnswer(anchor.Sequence, 0n, undefined));
+                default:
+                    return empty<CoreMRAnswer>();
             }
-        }, options), anchor.Choices)))), (matchValue_3 == null) ? singleton(new CoreMRAnswer(anchor.Sequence, 0n, undefined)) : singleton(new CoreMRAnswer(anchor.Sequence, value_10(matchValue_3), undefined)))) : ((matchValue_2 === "1_yes_2_no") ? ((valStr = canonicalize(answer.Value), singleton(new CoreMRAnswer(anchor.Sequence, (((valStr === "yes") ? true : (valStr === "true")) ? true : (valStr === "1")) ? (1n) : (2n), undefined)))) : ((matchValue_2 === "zero") ? singleton(new CoreMRAnswer(anchor.Sequence, 0n, answer.Value)) : ((matchValue_2 === "scaffold") ? singleton(new CoreMRAnswer(anchor.Sequence, 0n, answer.Value)) : ((matchValue_2 === "unknown") ? singleton(new CoreMRAnswer(anchor.Sequence, 0n, answer.Value)) : singleton(new CoreMRAnswer(anchor.Sequence, 0n, answer.Value))))))))))))) : ((matchValue_1 = anchor.Encoding.ValueEncoding, (matchValue_1 === "1_yes_2_no") ? singleton(new CoreMRAnswer(anchor.Sequence, 2n, undefined)) : ((matchValue_1 === "choice_score") ? (isEmpty(anchor.Choices) ? empty<CoreMRAnswer>() : singleton(new CoreMRAnswer(anchor.Sequence, 0n, undefined))) : ((matchValue_1 === "zero") ? singleton(new CoreMRAnswer(anchor.Sequence, 0n, undefined)) : empty<CoreMRAnswer>()))))));
+        }
     }
 }
 

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

@@ -1,5 +1,5 @@
 import { newGuid } from "@fable-org/fable-library-js/Guid.js";
-import { tryFind as tryFind_1, FSharpMap, ofList, add } from "@fable-org/fable-library-js/Map.js";
+import { ofList, FSharpMap, tryFind, add } from "@fable-org/fable-library-js/Map.js";
 import { Auto_generateBoxedEncoder_437914C6, toString, int64 } from "../../../../fable_modules/Thoth.Json.10.4.1/Encode.fs.js";
 import { int64 as int64_1 } from "@fable-org/fable-library-js/BigInt.js";
 import { int64 as int64_2 } from "../../../../fable_modules/Thoth.Json.10.4.1/Decode.fs.js";
@@ -11,9 +11,9 @@ 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 { map, value as value_2, defaultArg, Option } from "@fable-org/fable-library-js/Option.js";
-import { 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, Shared_FieldKey_$reflection, Shared_FieldKey, Shared_MatrixItemKey_$reflection, Shared_MatrixItemKey, Shared_FieldOptionKey_$reflection, Shared_FieldOptionKey } from "../../../FormSpec.js";
-import { tryFind, choose, item as item_1, length, mapIndexed, sortBy, empty as empty_1, FSharpList } from "@fable-org/fable-library-js/List.js";
+import { map, defaultArg, Option, value as value_2 } from "@fable-org/fable-library-js/Option.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 as empty_1, FSharpList } from "@fable-org/fable-library-js/List.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";
@@ -53,6 +53,21 @@ function getValueEncoding(itemTypeId: int32): ValueEncodingInfo {
     return toValueEncodingInfo(getElementTypeInfo(itemTypeId));
 }
 
+function getValueEncodingWithOverride(elementTypes: Option<FSharpMap<int32, ElementTypeInfo>>, itemTypeId: int32): ValueEncodingInfo {
+    if (elementTypes == null) {
+        return getValueEncoding(itemTypeId);
+    }
+    else {
+        const matchValue: Option<ElementTypeInfo> = tryFind<int32, ElementTypeInfo>(itemTypeId, value_2(elementTypes));
+        if (matchValue == null) {
+            return getValueEncoding(itemTypeId);
+        }
+        else {
+            return toValueEncodingInfo(value_2(matchValue));
+        }
+    }
+}
+
 export class CoreMRChoiceAnchor extends Record implements IEquatable<CoreMRChoiceAnchor>, IComparable<CoreMRChoiceAnchor> {
     readonly ChoiceId: int32;
     readonly Sequence: int32;
@@ -191,11 +206,10 @@ export class CoreMRSourceMap extends Record implements IEquatable<CoreMRSourceMa
     readonly FormCode: string;
     readonly FormCodeSource: string;
     readonly Description: Option<string>;
-    readonly IsIntake: boolean;
     readonly RequiresSignature: boolean;
-    readonly IsScored: Option<boolean>;
     readonly EncounterTypes: FSharpList<string>;
     readonly Usage: Option<string>;
+    readonly Classification: Spec_FormClassification_$union;
     readonly StructureHash: Option<string>;
     readonly ClinicalHash: Option<string>;
     readonly CosmeticHash: Option<string>;
@@ -204,7 +218,7 @@ export class CoreMRSourceMap extends Record implements IEquatable<CoreMRSourceMa
     readonly Triggers: FSharpList<CoreMRTrigger>;
     readonly Tags: FSharpList<CoreMRTag>;
     readonly FormSpecId: string;
-    constructor(FormId: int32, VersionId: int32, VersionNumber: int32, FormName: Option<string>, FormCode: string, FormCodeSource: string, Description: Option<string>, IsIntake: boolean, RequiresSignature: boolean, IsScored: Option<boolean>, EncounterTypes: FSharpList<string>, Usage: Option<string>, StructureHash: Option<string>, ClinicalHash: Option<string>, CosmeticHash: Option<string>, Steps: FSharpList<CoreMRStepMap>, AbsorbedItems: FSharpList<CoreMRAbsorbedItem>, Triggers: FSharpList<CoreMRTrigger>, Tags: FSharpList<CoreMRTag>, FormSpecId: string) {
+    constructor(FormId: int32, VersionId: int32, VersionNumber: int32, FormName: Option<string>, FormCode: string, FormCodeSource: string, Description: Option<string>, RequiresSignature: boolean, EncounterTypes: FSharpList<string>, Usage: Option<string>, Classification: Spec_FormClassification_$union, StructureHash: Option<string>, ClinicalHash: Option<string>, CosmeticHash: Option<string>, Steps: FSharpList<CoreMRStepMap>, AbsorbedItems: FSharpList<CoreMRAbsorbedItem>, Triggers: FSharpList<CoreMRTrigger>, Tags: FSharpList<CoreMRTag>, FormSpecId: string) {
         super();
         this.FormId = (FormId | 0);
         this.VersionId = (VersionId | 0);
@@ -213,11 +227,10 @@ export class CoreMRSourceMap extends Record implements IEquatable<CoreMRSourceMa
         this.FormCode = FormCode;
         this.FormCodeSource = FormCodeSource;
         this.Description = Description;
-        this.IsIntake = IsIntake;
         this.RequiresSignature = RequiresSignature;
-        this.IsScored = IsScored;
         this.EncounterTypes = EncounterTypes;
         this.Usage = Usage;
+        this.Classification = Classification;
         this.StructureHash = StructureHash;
         this.ClinicalHash = ClinicalHash;
         this.CosmeticHash = CosmeticHash;
@@ -230,7 +243,7 @@ export class CoreMRSourceMap extends Record implements IEquatable<CoreMRSourceMa
 }
 
 export function CoreMRSourceMap_$reflection(): TypeInfo {
-    return record_type("FormSpec.Integrations.CorEMR.CoreMRSourceMap.CoreMRSourceMap", [], CoreMRSourceMap, () => [["FormId", int32_type], ["VersionId", int32_type], ["VersionNumber", int32_type], ["FormName", option_type(string_type)], ["FormCode", string_type], ["FormCodeSource", string_type], ["Description", option_type(string_type)], ["IsIntake", bool_type], ["RequiresSignature", bool_type], ["IsScored", option_type(bool_type)], ["EncounterTypes", list_type(string_type)], ["Usage", option_type(string_type)], ["StructureHash", option_type(string_type)], ["ClinicalHash", option_type(string_type)], ["CosmeticHash", option_type(string_type)], ["Steps", list_type(CoreMRStepMap_$reflection())], ["AbsorbedItems", list_type(CoreMRAbsorbedItem_$reflection())], ["Triggers", list_type(CoreMRTrigger_$reflection())], ["Tags", list_type(CoreMRTag_$reflection())], ["FormSpecId", class_type("System.Guid")]]);
+    return record_type("FormSpec.Integrations.CorEMR.CoreMRSourceMap.CoreMRSourceMap", [], CoreMRSourceMap, () => [["FormId", int32_type], ["VersionId", int32_type], ["VersionNumber", int32_type], ["FormName", option_type(string_type)], ["FormCode", string_type], ["FormCodeSource", string_type], ["Description", option_type(string_type)], ["RequiresSignature", bool_type], ["EncounterTypes", list_type(string_type)], ["Usage", option_type(string_type)], ["Classification", Spec_FormClassification_$reflection()], ["StructureHash", option_type(string_type)], ["ClinicalHash", option_type(string_type)], ["CosmeticHash", option_type(string_type)], ["Steps", list_type(CoreMRStepMap_$reflection())], ["AbsorbedItems", list_type(CoreMRAbsorbedItem_$reflection())], ["Triggers", list_type(CoreMRTrigger_$reflection())], ["Tags", list_type(CoreMRTag_$reflection())], ["FormSpecId", class_type("System.Guid")]]);
 }
 
 export class CoreMRConversionResult extends Record implements IEquatable<CoreMRConversionResult>, IComparable<CoreMRConversionResult> {
@@ -298,8 +311,8 @@ function getFieldOptions(field: Spec_FormField$1<Spec_FieldType_$union>): FSharp
 /**
  * Build a FieldAnchor from a CoreMR item and its mapped FormField
  */
-export function buildFieldAnchor(item: CoreMRItem, choices: FSharpList<CoreMRChoice>, field: Spec_FormField$1<Spec_FieldType_$union>): CoreMRFieldAnchor {
-    const encoding: ValueEncodingInfo = getValueEncoding(item.ItemTypeId);
+export function buildFieldAnchor(elementTypes: Option<FSharpMap<int32, ElementTypeInfo>>, item: CoreMRItem, choices: FSharpList<CoreMRChoice>, field: Spec_FormField$1<Spec_FieldType_$union>): CoreMRFieldAnchor {
+    const encoding: ValueEncodingInfo = getValueEncodingWithOverride(elementTypes, item.ItemTypeId);
     const sortedChoices: FSharpList<CoreMRChoice> = sortBy<CoreMRChoice, int32>((c: CoreMRChoice): int32 => c.Sequence, choices, {
         Compare: comparePrimitives,
     });
@@ -311,24 +324,28 @@ export class ListMetadata extends Record implements IEquatable<ListMetadata>, IC
     readonly IsIntake: Option<boolean>;
     readonly IsScored: Option<boolean>;
     readonly EncounterTypes: FSharpList<string>;
-    constructor(IsIntake: Option<boolean>, IsScored: Option<boolean>, EncounterTypes: FSharpList<string>) {
+    readonly Usage: Option<string>;
+    readonly Classification: Spec_FormClassification_$union;
+    constructor(IsIntake: Option<boolean>, IsScored: Option<boolean>, EncounterTypes: FSharpList<string>, Usage: Option<string>, Classification: Spec_FormClassification_$union) {
         super();
         this.IsIntake = IsIntake;
         this.IsScored = IsScored;
         this.EncounterTypes = EncounterTypes;
+        this.Usage = Usage;
+        this.Classification = Classification;
     }
 }
 
 export function ListMetadata_$reflection(): TypeInfo {
-    return record_type("FormSpec.Integrations.CorEMR.CoreMRSourceMap.ListMetadata", [], ListMetadata, () => [["IsIntake", option_type(bool_type)], ["IsScored", option_type(bool_type)], ["EncounterTypes", list_type(string_type)]]);
+    return record_type("FormSpec.Integrations.CorEMR.CoreMRSourceMap.ListMetadata", [], ListMetadata, () => [["IsIntake", option_type(bool_type)], ["IsScored", option_type(bool_type)], ["EncounterTypes", list_type(string_type)], ["Usage", option_type(string_type)], ["Classification", Spec_FormClassification_$reflection()]]);
 }
 
 /**
  * Build the complete SourceMap from raw CoreMR data and the resulting FormSpec.
  * 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(formData: CoreMRFormData, formSpec: Spec_FormSpec$1<Spec_FieldType_$union>, listMetadata: Option<ListMetadata>): CoreMRSourceMap {
-    let matchValue: Option<boolean>;
+export function buildSourceMap(elementTypes: Option<FSharpMap<int32, ElementTypeInfo>>, 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),
@@ -339,7 +356,7 @@ export function buildSourceMap(formData: CoreMRFormData, formSpec: Spec_FormSpec
     let stepOrder = 0;
     const stepMaps: FSharpList<CoreMRStepMap> = choose<Section, CoreMRStepMap>((section: Section): Option<CoreMRStepMap> => {
         stepOrder = ((stepOrder + 1) | 0);
-        const formStep: Option<Spec_FormStep$1<Spec_FieldType_$union>> = tryFind<Spec_FormStep$1<Spec_FieldType_$union>>((s: Spec_FormStep$1<Spec_FieldType_$union>): boolean => (s.StepOrder === stepOrder), formSpec.Steps);
+        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);
             if (length(section.Items) !== length(step.Fields)) {
@@ -347,7 +364,7 @@ export function buildSourceMap(formData: CoreMRFormData, formSpec: Spec_FormSpec
             }
             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(item, defaultArg(tryFind_1<int32, FSharpList<CoreMRChoice>>(item.ItemId, choicesByItem), empty_1<CoreMRChoice>()), field);
+                return buildFieldAnchor(elementTypes, item, defaultArg(tryFind<int32, FSharpList<CoreMRChoice>>(item.ItemId, choicesByItem), empty_1<CoreMRChoice>()), field);
             }, 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);
@@ -356,27 +373,29 @@ export function buildSourceMap(formData: CoreMRFormData, formSpec: Spec_FormSpec
             return undefined;
         }
     }, groupItemsByHeadings(detectHeadings(formData.Items), formData.Items));
-    const listMeta: ListMetadata = defaultArg<ListMetadata>(listMetadata, new ListMetadata(undefined, undefined, empty_1<string>()));
-    return new CoreMRSourceMap(formData.Metadata.FormId, formData.Metadata.VersionId, formData.Metadata.VersionNumber, formData.Metadata.FormName, formCode, "name", formData.Metadata.Description, (matchValue = listMeta.IsIntake, (matchValue == null) ? formData.Metadata.IsIntake : value_2(matchValue)), formData.Metadata.RequiresSignature, listMeta.IsScored, listMeta.EncounterTypes, undefined, undefined, undefined, undefined, stepMaps, empty_1<CoreMRAbsorbedItem>(), formData.Triggers, formData.Tags, formSpec.Id);
+    const listMeta: ListMetadata = defaultArg<ListMetadata>(listMetadata, new ListMetadata(undefined, undefined, empty_1<string>(), undefined, Spec_FormClassification_General()));
+    return new CoreMRSourceMap(formData.Metadata.FormId, formData.Metadata.VersionId, formData.Metadata.VersionNumber, formData.Metadata.FormName, formCode, "name", formData.Metadata.Description, formData.Metadata.RequiresSignature, listMeta.EncounterTypes, listMeta.Usage, listMeta.Classification, undefined, undefined, undefined, stepMaps, empty_1<CoreMRAbsorbedItem>(), formData.Triggers, formData.Tags, formSpec.Id);
 }
 
 /**
  * Convert CoreMR form data to FormSpec with full source mapping.
  * 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>): CoreMRConversionResult {
+export function convertWithMap(formData: CoreMRFormData, listMetadata: Option<ListMetadata>, elementTypes: Option<FSharpMap<int32, ElementTypeInfo>>): CoreMRConversionResult {
     const formSpec: Spec_FormSpec$1<Spec_FieldType_$union> = convertToFormSpec(formData);
-    return new CoreMRConversionResult(formSpec, buildSourceMap(formData, formSpec, listMetadata));
+    return new CoreMRConversionResult(formSpec, buildSourceMap(elementTypes, formData, formSpec, listMetadata));
 }
 
 /**
  * Convert CoreMR form data to FormSpec with Provenance attached (for persist on import).
  * 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 convertWithMapAndProvenance(formData: CoreMRFormData, listMetadata: Option<ListMetadata>): Spec_FormSpec$1<Spec_FieldType_$union> {
-    const result: CoreMRConversionResult = convertWithMap(formData, listMetadata);
+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 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, coreMRExtra, undefined)(result.SourceMap))));
+    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, coreMRExtra, undefined)(result.SourceMap))), result.SourceMap.Classification);
 }
 
 //# sourceMappingURL=CoreMRSourceMap.ts.map