@f1studio/form-spec 5.0.0-alpha.112 → 5.0.0-alpha.116

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

@@ -1,34 +1,35 @@
+import { CoreMRStepMap, CoreMRSourceMap, CoreMRSourceMap_$reflection, CoreMRFieldAnchor, CoreMRFieldAnchor_$reflection, CoreMRMatrixItemAnchor, CoreMRMatrixItemAnchor_$reflection, CoreMRChoiceAnchor, CoreMRChoiceAnchor_$reflection, ValueEncodingInfo, ValueEncodingInfo_$reflection, coreMRExtra } from "./CoreMRSourceMap.js";
+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 { CoreMRStepMap, CoreMRSourceMap, CoreMRSourceMap_$reflection, CoreMRFieldAnchor, CoreMRFieldAnchor_$reflection, CoreMRMatrixItemAnchor, CoreMRMatrixItemAnchor_$reflection, CoreMRChoiceAnchor, CoreMRChoiceAnchor_$reflection, ValueEncodingInfo, ValueEncodingInfo_$reflection } from "./CoreMRSourceMap.js";
 import { FSharpResult$2_Ok, FSharpResult$2_Error, FSharpResult$2_$union } from "@fable-org/fable-library-js/Result.js";
-import { ExtraCoders, ErrorReason_$union } from "../../../../fable_modules/Thoth.Json.10.4.1/Types.fs.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 { 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 { 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, head, tail, map as map_1, isEmpty, choose, singleton, tryFind, empty, FSharpList } from "@fable-org/fable-library-js/List.js";
-import { orElse, map, value as value_10, Option, bind, defaultArg } from "@fable-org/fable-library-js/Option.js";
-import { empty as empty_1 } from "../../../../fable_modules/Thoth.Json.10.4.1/Extra.fs.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 { 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 { toList, FSharpSet } from "@fable-org/fable-library-js/Set.js";
-import { toInt32 } from "@fable-org/fable-library-js/BigInt.js";
+import { int64, fromInt32, toInt64 } from "@fable-org/fable-library-js/BigInt.js";
 import { computeBitmask } from "../../../BitmaskHelpers.js";
+import { FSharpSet, toList } from "@fable-org/fable-library-js/Set.js";
+
+const baseExtra: ExtraCoders = coreMRExtra;
 
 const sourceMapExtra: ExtraCoders = (() => {
     let copyOfStruct: string;
-    const valueEncodingDecoder: ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<ValueEncodingInfo, [string, ErrorReason_$union]>)) = Auto_generateBoxedDecoder_Z6670B51(ValueEncodingInfo_$reflection(), undefined, undefined);
-    const choiceAnchorDecoder: ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<CoreMRChoiceAnchor, [string, ErrorReason_$union]>)) = Auto_generateBoxedDecoder_Z6670B51(CoreMRChoiceAnchor_$reflection(), undefined, undefined);
-    const fieldKeyDecoder: ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<Shared_FieldKey, [string, ErrorReason_$union]>)) = Auto_generateBoxedDecoder_Z6670B51(Shared_FieldKey_$reflection(), undefined, undefined);
-    const matrixItemAnchorDecoder: ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<CoreMRMatrixItemAnchor, [string, ErrorReason_$union]>)) = Auto_generateBoxedDecoder_Z6670B51(CoreMRMatrixItemAnchor_$reflection(), undefined, undefined);
-    const encoder: ((arg0: CoreMRFieldAnchor) => any) = Auto_generateBoxedEncoder_437914C6(CoreMRFieldAnchor_$reflection(), undefined, undefined, undefined);
+    const valueEncodingDecoder: ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<ValueEncodingInfo, [string, ErrorReason_$union]>)) = Auto_generateBoxedDecoder_Z6670B51(ValueEncodingInfo_$reflection(), undefined, baseExtra);
+    const choiceAnchorDecoder: ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<CoreMRChoiceAnchor, [string, ErrorReason_$union]>)) = Auto_generateBoxedDecoder_Z6670B51(CoreMRChoiceAnchor_$reflection(), undefined, baseExtra);
+    const fieldKeyDecoder: ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<Shared_FieldKey, [string, ErrorReason_$union]>)) = Auto_generateBoxedDecoder_Z6670B51(Shared_FieldKey_$reflection(), undefined, baseExtra);
+    const matrixItemAnchorDecoder: ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<CoreMRMatrixItemAnchor, [string, ErrorReason_$union]>)) = Auto_generateBoxedDecoder_Z6670B51(CoreMRMatrixItemAnchor_$reflection(), undefined, baseExtra);
+    const encoder: ((arg0: CoreMRFieldAnchor) => any) = Auto_generateBoxedEncoder_437914C6(CoreMRFieldAnchor_$reflection(), undefined, baseExtra, undefined);
     return new ExtraCoders((copyOfStruct = newGuid(), copyOfStruct), add<string, [((arg0: any) => any), ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<any, [string, ErrorReason_$union]>))]>("FormSpec.Integrations.CorEMR.CoreMRSourceMap.CoreMRFieldAnchor", [encoder, (path_8: string): ((arg0: any) => FSharpResult$2_$union<CoreMRFieldAnchor, [string, ErrorReason_$union]>) => ((v: any): FSharpResult$2_$union<CoreMRFieldAnchor, [string, ErrorReason_$union]> => object<CoreMRFieldAnchor>((get$: IGetters): CoreMRFieldAnchor => {
         let objectArg: IRequiredGetter, objectArg_1: IRequiredGetter, objectArg_2: IRequiredGetter, objectArg_3: IRequiredGetter, objectArg_4: IRequiredGetter, objectArg_5: IRequiredGetter, objectArg_6: IOptionalGetter, objectArg_7: IOptionalGetter, objectArg_8: IOptionalGetter, objectArg_9: IOptionalGetter, objectArg_10: IRequiredGetter, objectArg_11: IRequiredGetter, objectArg_12: IRequiredGetter, objectArg_13: IOptionalGetter;
         return new CoreMRFieldAnchor((objectArg = get$.Required, objectArg.Field<int32>("ItemId", uncurry2(int))), (objectArg_1 = get$.Required, objectArg_1.Field<int32>("ItemTypeId", uncurry2(int))), (objectArg_2 = get$.Required, objectArg_2.Field<int32>("Sequence", uncurry2(int))), (objectArg_3 = get$.Required, objectArg_3.Field<int32>("NestingLevel", uncurry2(int))), (objectArg_4 = get$.Required, objectArg_4.Field<string>("Label", string)), (objectArg_5 = get$.Required, objectArg_5.Field<boolean>("IsRequired", bool)), (objectArg_6 = get$.Optional, objectArg_6.Field<string>("SequenceText", string)), (objectArg_7 = get$.Optional, objectArg_7.Field<string>("Code", string)), (objectArg_8 = get$.Optional, objectArg_8.Field<string>("Uuid", string)), (objectArg_9 = get$.Optional, objectArg_9.Field<string>("GenderRequired", string)), (objectArg_10 = get$.Required, objectArg_10.Field<ValueEncodingInfo>("Encoding", uncurry2(valueEncodingDecoder))), (objectArg_11 = get$.Required, objectArg_11.Field<FSharpList<CoreMRChoiceAnchor>>("Choices", (path_6: string, value_6: any): FSharpResult$2_$union<FSharpList<CoreMRChoiceAnchor>, [string, ErrorReason_$union]> => list_9<CoreMRChoiceAnchor>(uncurry2(choiceAnchorDecoder), path_6, value_6))), (objectArg_12 = get$.Required, objectArg_12.Field<Shared_FieldKey>("FieldKey", uncurry2(fieldKeyDecoder))), defaultArg((objectArg_13 = get$.Optional, objectArg_13.Field<FSharpList<CoreMRMatrixItemAnchor>>("MatrixItemAnchors", (path_7: string, value_7: any): FSharpResult$2_$union<FSharpList<CoreMRMatrixItemAnchor>, [string, ErrorReason_$union]> => list_9<CoreMRMatrixItemAnchor>(uncurry2(matrixItemAnchorDecoder), path_7, value_7))), empty<CoreMRMatrixItemAnchor>()));
-    }, path_8, v))] as [((arg0: any) => any), ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<any, [string, ErrorReason_$union]>))], empty_1.Coders));
+    }, path_8, v))] as [((arg0: any) => any), ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<any, [string, ErrorReason_$union]>))], baseExtra.Coders));
 })();
 
 /**
@@ -41,10 +42,12 @@ export function tryDecodeSourceMap(payloadJson: string): FSharpResult$2_$union<C
 }
 
 /**
- * Serialize CoreMRFormInsertRequest to JSON for bridge POST body
+ * Serialize CoreMRFormInsertRequest to JSON for bridge POST body.
+ * Uses coreMRExtra for int64 support (CoreMRAnswer.Value).
+ * Uses CamelCase so bridge receives formId, formName, answers, dryRun (Zod schema).
  */
 export function serializeRequest(req: CoreMRFormInsertRequest): string {
-    return toString(0, Auto_generateBoxedEncoder_437914C6(CoreMRFormInsertRequest_$reflection(), undefined, undefined, undefined)(req));
+    return toString(0, Auto_generateBoxedEncoder_437914C6(CoreMRFormInsertRequest_$reflection(), CaseStrategy_CamelCase(), baseExtra, undefined)(req));
 }
 
 function canonicalize(s: string): string {
@@ -64,9 +67,9 @@ function getFieldOptionKeyGuid(_arg: Shared_FieldOptionKey): string {
     return _arg.fields[0];
 }
 
-function getScoreFromOption(options: FSharpList<Shared_FieldOption>, selectedValue: string): Option<int32> {
+function getScoreFromOption(options: FSharpList<Shared_FieldOption>, selectedValue: string): Option<int64> {
     const canonicalSelected: string = canonicalize(selectedValue);
-    return bind<Shared_FieldOption, int32>((opt_1: Shared_FieldOption): Option<int32> => opt_1.Score, tryFind<Shared_FieldOption>((opt: Shared_FieldOption): boolean => (canonicalize(opt.Value) === canonicalSelected), options));
+    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 getOptionsFromFieldType(ft: Spec_FieldType_$union): FSharpList<Shared_FieldOption> {
@@ -126,131 +129,64 @@ 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 canonicalAnswer: string;
+    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;
     if (anchor.Encoding.IsSkip) {
         return empty<CoreMRAnswer>();
     }
     else if (anchor.Encoding.IsScaffold) {
-        return singleton(new CoreMRAnswer(anchor.Sequence, 2, undefined));
+        return singleton(new CoreMRAnswer(anchor.Sequence, 2n, undefined));
     }
     else {
-        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]> = 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);
-                        if (isEmpty(choicesWithBitPos)) {
-                            return empty<CoreMRAnswer>();
-                        }
-                        else {
-                            return singleton(new CoreMRAnswer(anchor.Sequence, ~~toInt32(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), 0), 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, 0, p_1!.Value));
-                        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<int32> = orElse(getScoreFromOption(options, answer.Value), (canonicalAnswer = canonicalize(answer.Value), map<CoreMRChoiceAnchor, int32>((c_1: CoreMRChoiceAnchor): int32 => 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, 0, 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")) ? 1 : 2, undefined));
-                        }
-                        case "zero":
-                        case "scaffold":
-                        case "unknown":
-                            return singleton(new CoreMRAnswer(anchor.Sequence, 0, answer.Value));
-                        default:
-                            return singleton(new CoreMRAnswer(anchor.Sequence, 0, answer.Value));
-                    }
-                }
+        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 {
-            const matchValue_1: string = anchor.Encoding.ValueEncoding;
-            switch (matchValue_1) {
-                case "1_yes_2_no":
-                    return singleton(new CoreMRAnswer(anchor.Sequence, 2, undefined));
-                case "choice_score":
-                    if (isEmpty(anchor.Choices)) {
-                        return empty<CoreMRAnswer>();
-                    }
-                    else {
-                        return singleton(new CoreMRAnswer(anchor.Sequence, 0, undefined));
-                    }
-                case "zero":
-                    return singleton(new CoreMRAnswer(anchor.Sequence, 0, undefined));
-                default:
-                    return empty<CoreMRAnswer>();
+            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;
+            }
+            else {
+                return false;
+            }
+        }, 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>()))))));
     }
 }
 
@@ -266,7 +202,7 @@ function anchorToAnswers(fieldMap: FSharpMap<string, Spec_FormField$1<Spec_Field
         return empty<CoreMRAnswer>();
     }
     else if (anchor.Encoding.IsScaffold) {
-        return singleton(new CoreMRAnswer(anchor.Sequence, 2, undefined));
+        return singleton(new CoreMRAnswer(anchor.Sequence, 2n, undefined));
     }
     else if (field != null) {
         return fieldToAnswers(value_10(field), anchor);
@@ -275,16 +211,16 @@ function anchorToAnswers(fieldMap: FSharpMap<string, Spec_FormField$1<Spec_Field
         const matchValue: string = anchor.Encoding.ValueEncoding;
         switch (matchValue) {
             case "1_yes_2_no":
-                return singleton(new CoreMRAnswer(anchor.Sequence, 2, undefined));
+                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, 0, undefined));
+                    return singleton(new CoreMRAnswer(anchor.Sequence, 0n, undefined));
                 }
             case "zero":
-                return singleton(new CoreMRAnswer(anchor.Sequence, 0, undefined));
+                return singleton(new CoreMRAnswer(anchor.Sequence, 0n, undefined));
             default:
                 return empty<CoreMRAnswer>();
         }

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

@@ -1,19 +1,30 @@
+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 { 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";
+import { FSharpResult$2_$union } from "@fable-org/fable-library-js/Result.js";
+import { ExtraCoders, ErrorReason_$union } from "../../../../fable_modules/Thoth.Json.10.4.1/Types.fs.js";
+import { empty } from "../../../../fable_modules/Thoth.Json.10.4.1/Extra.fs.js";
 import { Record } from "@fable-org/fable-library-js/Types.js";
 import { numberHash, comparePrimitives, IComparable, IEquatable } from "@fable-org/fable-library-js/Util.js";
-import { class_type, list_type, option_type, int32_type, record_type, bool_type, string_type, TypeInfo } from "@fable-org/fable-library-js/Reflection.js";
+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, FSharpList } from "@fable-org/fable-library-js/List.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 { CoreMRFormData, CoreMRItem, CoreMRChoice, CoreMRTag_$reflection, CoreMRTrigger_$reflection, CoreMRTag, CoreMRTrigger } from "../../CorEMR/CoreMRTypes.js";
-import { tryFind as tryFind_1, FSharpMap, ofList } from "@fable-org/fable-library-js/Map.js";
 import { List_groupBy } from "@fable-org/fable-library-js/Seq2.js";
 import { detectHeadings, groupItemsByHeadings, Section, HeadingItem } from "./CorEMRSectioning.js";
 import { convertToFormSpec } from "./CorEMRTemplateToFormSpec.js";
-import { Auto_generateBoxedEncoder_437914C6, toString } from "../../../../fable_modules/Thoth.Json.10.4.1/Encode.fs.js";
 import { IntegrationProvenance } from "../../../Provenance.js";
 
+export const coreMRExtra: ExtraCoders = new ExtraCoders((() => {
+    let copyOfStruct: string = newGuid();
+    return copyOfStruct;
+})(), add<string, [((arg0: any) => any), ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<any, [string, ErrorReason_$union]>))]>("System.Int64", [int64, int64_2] as [((arg0: any) => any), ((arg0: string) => ((arg0: any) => FSharpResult$2_$union<any, [string, ErrorReason_$union]>))], empty.Coders));
+
 export class ValueEncodingInfo extends Record implements IEquatable<ValueEncodingInfo>, IComparable<ValueEncodingInfo> {
     readonly ValueEncoding: string;
     readonly TextFieldRole: string;
@@ -46,16 +57,16 @@ export class CoreMRChoiceAnchor extends Record implements IEquatable<CoreMRChoic
     readonly ChoiceId: int32;
     readonly Sequence: int32;
     readonly Text: string;
-    readonly Score: int32;
+    readonly Score: int64_1;
     readonly BitPosition: Option<int32>;
     readonly Code: Option<string>;
     readonly FieldOptionKey: Shared_FieldOptionKey;
-    constructor(ChoiceId: int32, Sequence: int32, Text$: string, Score: int32, BitPosition: Option<int32>, Code: Option<string>, FieldOptionKey: Shared_FieldOptionKey) {
+    constructor(ChoiceId: int32, Sequence: int32, Text$: string, Score: int64_1, BitPosition: Option<int32>, Code: Option<string>, FieldOptionKey: Shared_FieldOptionKey) {
         super();
         this.ChoiceId = (ChoiceId | 0);
         this.Sequence = (Sequence | 0);
         this.Text = Text$;
-        this.Score = (Score | 0);
+        this.Score = Score;
         this.BitPosition = BitPosition;
         this.Code = Code;
         this.FieldOptionKey = FieldOptionKey;
@@ -63,7 +74,7 @@ export class CoreMRChoiceAnchor extends Record implements IEquatable<CoreMRChoic
 }
 
 export function CoreMRChoiceAnchor_$reflection(): TypeInfo {
-    return record_type("FormSpec.Integrations.CorEMR.CoreMRSourceMap.CoreMRChoiceAnchor", [], CoreMRChoiceAnchor, () => [["ChoiceId", int32_type], ["Sequence", int32_type], ["Text", string_type], ["Score", int32_type], ["BitPosition", option_type(int32_type)], ["Code", option_type(string_type)], ["FieldOptionKey", Shared_FieldOptionKey_$reflection()]]);
+    return record_type("FormSpec.Integrations.CorEMR.CoreMRSourceMap.CoreMRChoiceAnchor", [], CoreMRChoiceAnchor, () => [["ChoiceId", int32_type], ["Sequence", int32_type], ["Text", string_type], ["Score", int64_type], ["BitPosition", option_type(int32_type)], ["Code", option_type(string_type)], ["FieldOptionKey", Shared_FieldOptionKey_$reflection()]]);
 }
 
 export class CoreMRMatrixItemAnchor extends Record implements IEquatable<CoreMRMatrixItemAnchor>, IComparable<CoreMRMatrixItemAnchor> {
@@ -280,7 +291,7 @@ function getFieldOptions(field: Spec_FormField$1<Spec_FieldType_$union>): FSharp
         case 2:
             return info_2!.Options;
         default:
-            return empty<Shared_FieldOption>();
+            return empty_1<Shared_FieldOption>();
     }
 }
 
@@ -293,7 +304,7 @@ export function buildFieldAnchor(item: CoreMRItem, choices: FSharpList<CoreMRCho
         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_1<CoreMRMatrixItemAnchor>());
 }
 
 export class ListMetadata extends Record implements IEquatable<ListMetadata>, IComparable<ListMetadata> {
@@ -336,7 +347,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<CoreMRChoice>()), field);
+                return buildFieldAnchor(item, defaultArg(tryFind_1<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);
@@ -345,8 +356,8 @@ 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<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<CoreMRAbsorbedItem>(), formData.Triggers, formData.Tags, formSpec.Id);
+    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);
 }
 
 /**
@@ -365,7 +376,7 @@ export function convertWithMap(formData: CoreMRFormData, listMetadata: Option<Li
 export function convertWithMapAndProvenance(formData: CoreMRFormData, listMetadata: Option<ListMetadata>): Spec_FormSpec$1<Spec_FieldType_$union> {
     const result: CoreMRConversionResult = convertWithMap(formData, listMetadata);
     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))));
+    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))));
 }
 
 //# sourceMappingURL=CoreMRSourceMap.ts.map

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

@@ -3,7 +3,8 @@ import { int32 } from "@fable-org/fable-library-js/Int32.js";
 import { empty as empty_1, ofList, toList, isEmpty as isEmpty_1, tryFind as tryFind_1, FSharpMap } from "@fable-org/fable-library-js/Map.js";
 import { Spec_FormSpec$1, Spec_FormStep$1, Spec_FormField$1, Shared_PluginDataProperty, Shared_MatrixAnswer, Shared_FieldValue, Shared_FieldValue_$union, Spec_FieldType_$union, Spec_MultiChoiceInfo, Spec_SingleChoiceInfo, Shared_FieldAnswer, Shared_FieldOption, Shared_FieldKey_$reflection, Shared_FieldKey } from "../../../FormSpec.js";
 import { compare, uncurry2, uncurry3, IComparable, IEquatable } from "@fable-org/fable-library-js/Util.js";
-import { bool_type, list_type, option_type, record_type, class_type, string_type, int32_type, TypeInfo } from "@fable-org/fable-library-js/Reflection.js";
+import { bool_type, list_type, option_type, int64_type, record_type, class_type, string_type, int32_type, TypeInfo } from "@fable-org/fable-library-js/Reflection.js";
+import { fromInt32, toInt64, int64 } from "@fable-org/fable-library-js/BigInt.js";
 import { defaultArg, toArray, value as value_6, map, bind, Option } from "@fable-org/fable-library-js/Option.js";
 import { map as map_1, choose, mapIndexed, collect, head, tail, isEmpty, ofArray, empty, tryFind, FSharpList } from "@fable-org/fable-library-js/List.js";
 import { Helpers_canonicalizeFieldKey } from "../../../Helpers.js";
@@ -33,18 +34,18 @@ export function CoreMRPublishMetadata_$reflection(): TypeInfo {
 
 export class CoreMRAnswer extends Record implements IEquatable<CoreMRAnswer>, IComparable<CoreMRAnswer> {
     readonly Sequence: int32;
-    readonly Value: int32;
+    readonly Value: int64;
     readonly Text: Option<string>;
-    constructor(Sequence: int32, Value: int32, Text$: Option<string>) {
+    constructor(Sequence: int32, Value: int64, Text$: Option<string>) {
         super();
         this.Sequence = (Sequence | 0);
-        this.Value = (Value | 0);
+        this.Value = Value;
         this.Text = Text$;
     }
 }
 
 export function CoreMRAnswer_$reflection(): TypeInfo {
-    return record_type("FormSpec.Integrations.CorEMR.CoreMRAnswer", [], CoreMRAnswer, () => [["Sequence", int32_type], ["Value", int32_type], ["Text", option_type(string_type)]]);
+    return record_type("FormSpec.Integrations.CorEMR.CoreMRAnswer", [], CoreMRAnswer, () => [["Sequence", int32_type], ["Value", int64_type], ["Text", option_type(string_type)]]);
 }
 
 export class CoreMRFormInsertRequest extends Record implements IEquatable<CoreMRFormInsertRequest>, IComparable<CoreMRFormInsertRequest> {
@@ -74,10 +75,10 @@ function FormSpecToCoreMRInsert_singleToAnswer(fieldKey: Shared_FieldKey, option
     return map<int32, CoreMRAnswer>((seq: int32): CoreMRAnswer => {
         const matchValue: Option<int32> = FormSpecToCoreMRInsert_getScoreFromOption(options, answer.Value);
         if (matchValue == null) {
-            return new CoreMRAnswer(seq, 0, answer.Value);
+            return new CoreMRAnswer(seq, toInt64(fromInt32(0)), answer.Value);
         }
         else {
-            return new CoreMRAnswer(seq, value_6(matchValue), undefined);
+            return new CoreMRAnswer(seq, toInt64(fromInt32(value_6(matchValue))), undefined);
         }
     }, tryFind_1<Shared_FieldKey, int32>(fieldKey, seqMap));
 }
@@ -171,7 +172,7 @@ function FormSpecToCoreMRInsert_fieldToAnswers(field: Spec_FormField$1<Spec_Fiel
                 }
                 switch (matchResult) {
                     case 0:
-                        return ofArray(toArray<CoreMRAnswer>(map<int32, CoreMRAnswer>((seq: int32): CoreMRAnswer => (new CoreMRAnswer(seq, 0, p_1!.Value)), tryFind_1<Shared_FieldKey, int32>(field.FieldKey, seqMap))));
+                        return ofArray(toArray<CoreMRAnswer>(map<int32, CoreMRAnswer>((seq: int32): CoreMRAnswer => (new CoreMRAnswer(seq, toInt64(fromInt32(0)), p_1!.Value)), tryFind_1<Shared_FieldKey, int32>(field.FieldKey, seqMap))));
                     default:
                         return empty<CoreMRAnswer>();
                 }
@@ -251,7 +252,7 @@ function FormSpecToCoreMRInsert_fieldToValueAndText(field: Spec_FormField$1<Spec
  */
 export function FormSpecToCoreMRInsert_convertToCoreMRInsertPayload(filledFormSpec: Spec_FormSpec$1<Spec_FieldType_$union>, metadata: CoreMRPublishMetadata, scaffoldMode: boolean, dryRun: boolean): CoreMRFormInsertRequest {
     let allFields: FSharpList<Spec_FormField$1<Spec_FieldType_$union>>, acc: FSharpList<CoreMRAnswer>;
-    return new CoreMRFormInsertRequest(metadata.FormId, metadata.FormName, scaffoldMode ? undefined : ((allFields = collect<Spec_FormStep$1<Spec_FieldType_$union>, Spec_FormField$1<Spec_FieldType_$union>>((step: Spec_FormStep$1<Spec_FieldType_$union>): FSharpList<Spec_FormField$1<Spec_FieldType_$union>> => step.Fields, filledFormSpec.Steps), (acc = (isEmpty_1<Shared_FieldKey, int32>(metadata.FieldKeyToSequence) ? mapIndexed<[int32, Option<string>], CoreMRAnswer>((i: int32, tupledArg: [int32, Option<string>]): CoreMRAnswer => (new CoreMRAnswer((2 * i) + 1, tupledArg[0], tupledArg[1])), choose<Spec_FormField$1<Spec_FieldType_$union>, [int32, Option<string>]>(FormSpecToCoreMRInsert_fieldToValueAndText, allFields)) : collect<Spec_FormField$1<Spec_FieldType_$union>, CoreMRAnswer>((f: Spec_FormField$1<Spec_FieldType_$union>): FSharpList<CoreMRAnswer> => FormSpecToCoreMRInsert_fieldToAnswers(f, metadata.FieldKeyToSequence), allFields)), isEmpty(acc) ? undefined : acc))), dryRun);
+    return new CoreMRFormInsertRequest(metadata.FormId, metadata.FormName, scaffoldMode ? undefined : ((allFields = collect<Spec_FormStep$1<Spec_FieldType_$union>, Spec_FormField$1<Spec_FieldType_$union>>((step: Spec_FormStep$1<Spec_FieldType_$union>): FSharpList<Spec_FormField$1<Spec_FieldType_$union>> => step.Fields, filledFormSpec.Steps), (acc = (isEmpty_1<Shared_FieldKey, int32>(metadata.FieldKeyToSequence) ? mapIndexed<[int32, Option<string>], CoreMRAnswer>((i: int32, tupledArg: [int32, Option<string>]): CoreMRAnswer => (new CoreMRAnswer((2 * i) + 1, toInt64(fromInt32(tupledArg[0])), tupledArg[1])), choose<Spec_FormField$1<Spec_FieldType_$union>, [int32, Option<string>]>(FormSpecToCoreMRInsert_fieldToValueAndText, allFields)) : collect<Spec_FormField$1<Spec_FieldType_$union>, CoreMRAnswer>((f: Spec_FormField$1<Spec_FieldType_$union>): FSharpList<CoreMRAnswer> => FormSpecToCoreMRInsert_fieldToAnswers(f, metadata.FieldKeyToSequence), allFields)), isEmpty(acc) ? undefined : acc))), dryRun);
 }
 
 const CoreMRPublishMetadataCustomData_key = "coremr_publish";

package/src/FormSpec.FS/Integrations/CorEMR/CoreMRTypes.ts

@@ -1,9 +1,10 @@
 import { Union, Record } from "@fable-org/fable-library-js/Types.js";
 import { IComparable, IEquatable } from "@fable-org/fable-library-js/Util.js";
-import { union_type, list_type, float64_type, obj_type, array_type, option_type, bool_type, anonRecord_type, class_type, int32_type, record_type, string_type, TypeInfo } from "@fable-org/fable-library-js/Reflection.js";
+import { union_type, list_type, int64_type, float64_type, obj_type, array_type, option_type, bool_type, anonRecord_type, class_type, int32_type, record_type, string_type, TypeInfo } from "@fable-org/fable-library-js/Reflection.js";
 import { float64, int32 } from "@fable-org/fable-library-js/Int32.js";
 import { FSharpMap } from "@fable-org/fable-library-js/Map.js";
 import { Option } from "@fable-org/fable-library-js/Option.js";
+import { int64 } from "@fable-org/fable-library-js/BigInt.js";
 import { FSharpList } from "@fable-org/fable-library-js/List.js";
 
 export class ElementType extends Record implements IEquatable<ElementType>, IComparable<ElementType> {
@@ -457,17 +458,17 @@ export class CoreMRChoice extends Record implements IEquatable<CoreMRChoice>, IC
     readonly ItemId: int32;
     readonly Sequence: int32;
     readonly Text: string;
-    readonly Score: int32;
+    readonly Score: int64;
     readonly BitPosition: Option<int32>;
     readonly Code: Option<string>;
     readonly Highlight: Option<string>;
-    constructor(ChoiceId: int32, ItemId: int32, Sequence: int32, Text$: string, Score: int32, BitPosition: Option<int32>, Code: Option<string>, Highlight: Option<string>) {
+    constructor(ChoiceId: int32, ItemId: int32, Sequence: int32, Text$: string, Score: int64, BitPosition: Option<int32>, Code: Option<string>, Highlight: Option<string>) {
         super();
         this.ChoiceId = (ChoiceId | 0);
         this.ItemId = (ItemId | 0);
         this.Sequence = (Sequence | 0);
         this.Text = Text$;
-        this.Score = (Score | 0);
+        this.Score = Score;
         this.BitPosition = BitPosition;
         this.Code = Code;
         this.Highlight = Highlight;
@@ -475,7 +476,7 @@ export class CoreMRChoice extends Record implements IEquatable<CoreMRChoice>, IC
 }
 
 export function CoreMRChoice_$reflection(): TypeInfo {
-    return record_type("FormSpec.Integrations.CorEMR.CoreMRTypes.CoreMRChoice", [], CoreMRChoice, () => [["ChoiceId", int32_type], ["ItemId", int32_type], ["Sequence", int32_type], ["Text", string_type], ["Score", int32_type], ["BitPosition", option_type(int32_type)], ["Code", option_type(string_type)], ["Highlight", option_type(string_type)]]);
+    return record_type("FormSpec.Integrations.CorEMR.CoreMRTypes.CoreMRChoice", [], CoreMRChoice, () => [["ChoiceId", int32_type], ["ItemId", int32_type], ["Sequence", int32_type], ["Text", string_type], ["Score", int64_type], ["BitPosition", option_type(int32_type)], ["Code", option_type(string_type)], ["Highlight", option_type(string_type)]]);
 }
 
 export class CoreMRTriggerCondition extends Record implements IEquatable<CoreMRTriggerCondition>, IComparable<CoreMRTriggerCondition> {