@f1studio/form-spec 5.0.0-alpha.157 → 5.0.0-alpha.159

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

@@ -1,21 +1,22 @@
 import { FSharpRef, Record } from "@fable-org/fable-library-js/Types.js";
-import { orElse, defaultArg, map, value as value_3, bind, unwrap, Option } from "@fable-org/fable-library-js/Option.js";
+import { map as map_1, bind, orElse, defaultArg, value as value_21, unwrap, Option } from "@fable-org/fable-library-js/Option.js";
 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 { exists, fold, contains, tail, mapIndexed, singleton, tryHead, choose, map as map_1, 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 { list_type, int32_type, string_type, anonRecord_type, bool_type, record_type, option_type, float64_type, TypeInfo } from "@fable-org/fable-library-js/Reflection.js";
+import { Auto_generateBoxedEncoder_437914C6, toString } from "../../../../Thoth.Json/packages/Thoth.Json/Encode.js";
+import { ErrorReason_$union, CaseStrategy_CamelCase } from "../../../../Thoth.Json/packages/Thoth.Json/Types.js";
+import { int, IOptionalGetter, IGetters, bool, string, object, list as list_16, int64, field as field_1, fromString } from "../../../../Thoth.Json/packages/Thoth.Json/Decode.js";
+import { FSharpResult$2_Ok, FSharpResult$2_Error, FSharpResult$2_$union } from "@fable-org/fable-library-js/Result.js";
+import { op_LeftShift, op_BitwiseOr, fromInt32, toInt64, int64 as int64_1 } from "@fable-org/fable-library-js/BigInt.js";
+import { exists, fold, contains, tail, mapIndexed, tryHead, choose, singleton, tryFind, map, head, isEmpty, FSharpList, collect, filter, empty } from "@fable-org/fable-library-js/List.js";
+import { Shared_MatrixItemKey, Shared_MatrixAnswer, Spec_MultiChoiceInfo, Spec_SingleChoiceInfo, Shared_FieldOption, Shared_FieldOptionKey, Shared_FieldKey, Shared_PluginDataProperty, Spec_FormSpec$1, Shared_FieldValue, Shared_FieldAnswer, Shared_FieldValue_$union, Spec_FormStep$1, Spec_FormField$1, Spec_PluginFieldConfig, Spec_FieldType_$union } from "../../../FormSpec.js";
+import { split, isNullOrWhiteSpace, join } from "@fable-org/fable-library-js/String.js";
 import { tryParse } from "@fable-org/fable-library-js/Double.js";
 import { item } from "@fable-org/fable-library-js/Array.js";
-import { Auto_generateBoxedDecoder_Z6670B51, fromString } from "../../../../Thoth.Json/packages/Thoth.Json/Decode.js";
+import { Auto_generateBoxedDecoder_Z6670B51, fromString as fromString_1 } from "../../../../Thoth.Json/packages/Thoth.Json/Decode.js";
 import { CoreMRStepMap, CoreMRMatrixItemAnchor, CoreMRChoiceAnchor, CoreMRFieldAnchor, CoreMRSourceMap, CoreMRSourceMap_$reflection } from "./CoreMRSourceMap.js";
-import { FSharpResult$2_Ok, FSharpResult$2_Error, FSharpResult$2_$union } from "@fable-org/fable-library-js/Result.js";
-import { Auto_generateBoxedEncoder_437914C6, toString } from "../../../../Thoth.Json/packages/Thoth.Json/Encode.js";
 import { CoreMRAnswer, CoreMRFormInsertRequest, CoreMRFormInsertRequest_$reflection } from "./FormSpecToCoreMRInsert.js";
-import { CaseStrategy_CamelCase } from "../../../../Thoth.Json/packages/Thoth.Json/Types.js";
 import { Helpers_canonicalizeFieldKey } from "../../../Helpers.js";
-import { op_LeftShift, op_BitwiseOr, 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 { FSharpMap, ofList, tryFind as tryFind_1 } from "@fable-org/fable-library-js/Map.js";
@@ -30,7 +31,9 @@ export class ExtractedVitals extends Record implements IEquatable<ExtractedVital
     readonly RespiratoryRate: Option<float64>;
     readonly Spo2: Option<float64>;
     readonly PainScale: Option<float64>;
-    constructor(Temperature: Option<float64>, SystolicBp: Option<float64>, DiastolicBp: Option<float64>, HeartRate: Option<float64>, RespiratoryRate: Option<float64>, Spo2: Option<float64>, PainScale: Option<float64>) {
+    readonly Weight: Option<float64>;
+    readonly Height: Option<float64>;
+    constructor(Temperature: Option<float64>, SystolicBp: Option<float64>, DiastolicBp: Option<float64>, HeartRate: Option<float64>, RespiratoryRate: Option<float64>, Spo2: Option<float64>, PainScale: Option<float64>, Weight: Option<float64>, Height: Option<float64>) {
         super();
         this.Temperature = Temperature;
         this.SystolicBp = SystolicBp;
@@ -39,11 +42,13 @@ export class ExtractedVitals extends Record implements IEquatable<ExtractedVital
         this.RespiratoryRate = RespiratoryRate;
         this.Spo2 = Spo2;
         this.PainScale = PainScale;
+        this.Weight = Weight;
+        this.Height = Height;
     }
 }
 
 export function ExtractedVitals_$reflection(): TypeInfo {
-    return record_type("FormSpec.Integrations.CorEMR.CoreMREncoder.ExtractedVitals", [], ExtractedVitals, () => [["Temperature", option_type(float64_type)], ["SystolicBp", option_type(float64_type)], ["DiastolicBp", option_type(float64_type)], ["HeartRate", option_type(float64_type)], ["RespiratoryRate", option_type(float64_type)], ["Spo2", option_type(float64_type)], ["PainScale", option_type(float64_type)]]);
+    return record_type("FormSpec.Integrations.CorEMR.CoreMREncoder.ExtractedVitals", [], ExtractedVitals, () => [["Temperature", option_type(float64_type)], ["SystolicBp", option_type(float64_type)], ["DiastolicBp", option_type(float64_type)], ["HeartRate", option_type(float64_type)], ["RespiratoryRate", option_type(float64_type)], ["Spo2", option_type(float64_type)], ["PainScale", option_type(float64_type)], ["Weight", option_type(float64_type)], ["Height", option_type(float64_type)]]);
 }
 
 /**
@@ -51,17 +56,218 @@ export function ExtractedVitals_$reflection(): TypeInfo {
  * No Extra.* needed - using native Thoth.Json auto generation only
  * 🩺 Convert extracted vitals to CoreMR bridge API format (camelCase)
  */
-export function vitalsTobridge(vitals: ExtractedVitals): { diastolicBp?: float64, heartRate?: float64, respiratoryRate?: float64, spo2?: float64, systolicBp?: float64, temperature?: float64 } {
+export function vitalsTobridge(vitals: ExtractedVitals): { bmi?: float64, diastolicBp?: float64, heartRate?: float64, height?: float64, respiratoryRate?: float64, spo2?: float64, systolicBp?: float64, temperature?: float64, weight?: float64 } {
+    let matchValue: Option<float64>, matchValue_1: Option<float64>, w: float64, h_1: float64, w_1: float64;
     return {
+        bmi: unwrap((matchValue = vitals.Weight, (matchValue_1 = vitals.Height, (matchValue != null) ? ((matchValue_1 != null) ? (((w = value_21(matchValue), value_21(matchValue_1) > 0)) ? ((h_1 = value_21(matchValue_1), (w_1 = value_21(matchValue), (w_1 / (h_1 * h_1)) * 703))) : undefined) : undefined) : undefined))),
         diastolicBp: unwrap(vitals.DiastolicBp),
         heartRate: unwrap(vitals.HeartRate),
+        height: unwrap(vitals.Height),
         respiratoryRate: unwrap(vitals.RespiratoryRate),
         spo2: unwrap(vitals.Spo2),
         systolicBp: unwrap(vitals.SystolicBp),
         temperature: unwrap(vitals.Temperature),
+        weight: unwrap(vitals.Weight),
     };
 }
 
+/**
+ * Build the JSON request body for POST /vitals.
+ * Shared by Studio (Fable) and .NET tests — single source of truth for the payload shape.
+ */
+export function buildVitalsRequest(vitals: ExtractedVitals, dryRun: boolean): string {
+    const bridge: { bmi?: float64, diastolicBp?: float64, heartRate?: float64, height?: float64, respiratoryRate?: float64, spo2?: float64, systolicBp?: float64, temperature?: float64, weight?: float64 } = vitalsTobridge(vitals);
+    const payload: { bmi?: float64, diastolicBp?: float64, dryRun: boolean, heartRate?: float64, height?: float64, respiratoryRate?: float64, spo2?: float64, systolicBp?: float64, temperature?: float64, weight?: float64 } = {
+        bmi: unwrap(bridge.bmi),
+        diastolicBp: unwrap(bridge.diastolicBp),
+        dryRun: dryRun,
+        heartRate: unwrap(bridge.heartRate),
+        height: unwrap(bridge.height),
+        respiratoryRate: unwrap(bridge.respiratoryRate),
+        spo2: unwrap(bridge.spo2),
+        systolicBp: unwrap(bridge.systolicBp),
+        temperature: unwrap(bridge.temperature),
+        weight: unwrap(bridge.weight),
+    };
+    return toString(0, Auto_generateBoxedEncoder_437914C6(anonRecord_type(["bmi", option_type(float64_type)], ["diastolicBp", option_type(float64_type)], ["dryRun", bool_type], ["heartRate", option_type(float64_type)], ["height", option_type(float64_type)], ["respiratoryRate", option_type(float64_type)], ["spo2", option_type(float64_type)], ["systolicBp", option_type(float64_type)], ["temperature", option_type(float64_type)], ["weight", option_type(float64_type)]), CaseStrategy_CamelCase(), undefined, undefined)(payload));
+}
+
+/**
+ * Parse the /vitals response to extract flow_vitals.id.
+ * Shared by Studio (Fable) and .NET tests — single source of truth for response parsing.
+ */
+export function parseVitalsResponse(responseBody: string): FSharpResult$2_$union<int64_1, string> {
+    const matchValue: FSharpResult$2_$union<int64_1, string> = fromString<int64_1>((path_1: string, value_1: any): FSharpResult$2_$union<int64_1, [string, ErrorReason_$union]> => field_1<int64_1>("id", int64, path_1, value_1), responseBody);
+    if (matchValue.tag === /* Error */ 1) {
+        return FSharpResult$2_Error<int64_1, string>(`Failed to parse vitals response id: ${matchValue.fields[0]}`);
+    }
+    else {
+        return FSharpResult$2_Ok<int64_1, string>(matchValue.fields[0]);
+    }
+}
+
+export class ExtractedAllergy extends Record implements IEquatable<ExtractedAllergy>, IComparable<ExtractedAllergy> {
+    readonly Name: string;
+    readonly Category: int32;
+    readonly Severity: Option<int32>;
+    readonly Reaction: Option<string>;
+    readonly Remedy: Option<string>;
+    readonly StaffOnly: boolean;
+    constructor(Name: string, Category: int32, Severity: Option<int32>, Reaction: Option<string>, Remedy: Option<string>, StaffOnly: boolean) {
+        super();
+        this.Name = Name;
+        this.Category = (Category | 0);
+        this.Severity = Severity;
+        this.Reaction = Reaction;
+        this.Remedy = Remedy;
+        this.StaffOnly = StaffOnly;
+    }
+}
+
+export function ExtractedAllergy_$reflection(): TypeInfo {
+    return record_type("FormSpec.Integrations.CorEMR.CoreMREncoder.ExtractedAllergy", [], ExtractedAllergy, () => [["Name", string_type], ["Category", int32_type], ["Severity", option_type(int32_type)], ["Reaction", option_type(string_type)], ["Remedy", option_type(string_type)], ["StaffOnly", bool_type]]);
+}
+
+function categoryToInt(cat: string): int32 {
+    const matchValue: string = cat.toLowerCase();
+    switch (matchValue) {
+        case "drug":
+            return 0;
+        case "food":
+            return 1;
+        case "environmental":
+            return 2;
+        case "custom":
+            return 3;
+        default:
+            return 0;
+    }
+}
+
+function severityToInt(sev: string): Option<int32> {
+    const matchValue: string = sev.toLowerCase();
+    switch (matchValue) {
+        case "mild":
+            return 1;
+        case "moderate":
+            return 2;
+        case "severe":
+            return 3;
+        case "life_threatening":
+            return 4;
+        default:
+            return undefined;
+    }
+}
+
+/**
+ * Extract allergy entries from FormSpec (finds Type 140 allergy fields).
+ * Parses JSON from FieldValue.Single. Returns empty list if no allergies or unfilled.
+ */
+export function extractAllergiesFromFormSpec(spec: Spec_FormSpec$1<Spec_FieldType_$union>): FSharpList<ExtractedAllergy> {
+    try {
+        const allergyFields: FSharpList<Spec_FormField$1<Spec_FieldType_$union>> = filter<Spec_FormField$1<Spec_FieldType_$union>>((field: Spec_FormField$1<Spec_FieldType_$union>): boolean => {
+            const matchValue: Spec_FieldType_$union = field.FieldType;
+            let matchResult: int32, pf_1: Spec_PluginFieldConfig;
+            if (matchValue.tag === /* PluginField */ 23) {
+                if (matchValue.fields[0].PluginId === "Fable.Form.Simple.Bulma.Fields.AllergyFinderField") {
+                    matchResult = 0;
+                    pf_1 = matchValue.fields[0];
+                }
+                else {
+                    matchResult = 1;
+                }
+            }
+            else {
+                matchResult = 1;
+            }
+            switch (matchResult) {
+                case 0:
+                    return true;
+                default:
+                    return false;
+            }
+        }, 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, spec.Steps));
+        if (!isEmpty(allergyFields)) {
+            const matchValue_1: Option<Shared_FieldValue_$union> = head(allergyFields).Value;
+            let matchResult_1: int32, answer_1: Shared_FieldAnswer;
+            if (matchValue_1 != null) {
+                if (value_21(matchValue_1).tag === /* Single */ 0) {
+                    if (!isNullOrWhiteSpace((value_21(matchValue_1) as Shared_FieldValue<0>).fields[0].Value)) {
+                        matchResult_1 = 0;
+                        answer_1 = (value_21(matchValue_1) as Shared_FieldValue<0>).fields[0];
+                    }
+                    else {
+                        matchResult_1 = 1;
+                    }
+                }
+                else {
+                    matchResult_1 = 1;
+                }
+            }
+            else {
+                matchResult_1 = 1;
+            }
+            switch (matchResult_1) {
+                case 0: {
+                    const matchValue_2: FSharpResult$2_$union<FSharpList<ExtractedAllergy>, string> = fromString<FSharpList<ExtractedAllergy>>((path_15: string, value_20: any): FSharpResult$2_$union<FSharpList<ExtractedAllergy>, [string, ErrorReason_$union]> => list_16<ExtractedAllergy>((path_14: string, v: any): FSharpResult$2_$union<ExtractedAllergy, [string, ErrorReason_$union]> => object<ExtractedAllergy>((get$: IGetters): ExtractedAllergy => {
+                        let objectArg: IOptionalGetter, objectArg_1: IOptionalGetter, objectArg_2: IOptionalGetter, objectArg_3: IOptionalGetter, objectArg_4: IOptionalGetter, objectArg_5: IOptionalGetter, objectArg_6: IOptionalGetter, objectArg_7: IOptionalGetter, objectArg_8: IOptionalGetter, objectArg_9: IOptionalGetter, objectArg_10: IOptionalGetter, objectArg_11: IOptionalGetter;
+                        const name: string = defaultArg(orElse((objectArg = get$.Optional, objectArg.Field<string>("Name", string)), (objectArg_1 = get$.Optional, objectArg_1.Field<string>("name", string))), "");
+                        const category: string = defaultArg(orElse((objectArg_2 = get$.Optional, objectArg_2.Field<string>("Category", string)), (objectArg_3 = get$.Optional, objectArg_3.Field<string>("category", string))), "drug");
+                        const severity: string = defaultArg(orElse((objectArg_4 = get$.Optional, objectArg_4.Field<string>("Severity", string)), (objectArg_5 = get$.Optional, objectArg_5.Field<string>("severity", string))), "unknown");
+                        const reactions: FSharpList<string> = defaultArg(orElse((objectArg_6 = get$.Optional, objectArg_6.Field<FSharpList<string>>("Reactions", (path_7: string, value_10: any): FSharpResult$2_$union<FSharpList<string>, [string, ErrorReason_$union]> => list_16<string>(string, path_7, value_10))), (objectArg_7 = get$.Optional, objectArg_7.Field<FSharpList<string>>("reactions", (path_9: string, value_12: any): FSharpResult$2_$union<FSharpList<string>, [string, ErrorReason_$union]> => list_16<string>(string, path_9, value_12)))), empty<string>());
+                        const remedy: string = defaultArg(orElse((objectArg_8 = get$.Optional, objectArg_8.Field<string>("Remedy", string)), (objectArg_9 = get$.Optional, objectArg_9.Field<string>("remedy", string))), "");
+                        const staffOnly: boolean = defaultArg(orElse((objectArg_10 = get$.Optional, objectArg_10.Field<boolean>("StaffOnly", bool)), (objectArg_11 = get$.Optional, objectArg_11.Field<boolean>("staffOnly", bool))), false);
+                        return new ExtractedAllergy(name, categoryToInt(category), severityToInt(severity), isEmpty(reactions) ? undefined : join(", ", reactions), isNullOrWhiteSpace(remedy) ? undefined : remedy, staffOnly);
+                    }, path_14, v), path_15, value_20), answer_1!.Value);
+                    return (matchValue_2.tag === /* Error */ 1) ? empty<ExtractedAllergy>() : filter<ExtractedAllergy>((a: ExtractedAllergy): boolean => !isNullOrWhiteSpace(a.Name), matchValue_2.fields[0]);
+                }
+                default:
+                    return empty<ExtractedAllergy>();
+            }
+        }
+        else {
+            return empty<ExtractedAllergy>();
+        }
+    }
+    catch (matchValue_3: any) {
+        return empty<ExtractedAllergy>();
+    }
+}
+
+/**
+ * Build the JSON request body for POST /allergies.
+ * Shared by Studio (Fable) and .NET tests — single source of truth for the payload shape.
+ */
+export function buildAllergiesRequest(allergies: FSharpList<ExtractedAllergy>, dryRun: boolean): string {
+    const payload: { allergies: FSharpList<{ category: int32, name: string, reaction?: string, remedy?: string, severity?: int32, staffOnly: boolean }>, dryRun: boolean } = {
+        allergies: map<ExtractedAllergy, { category: int32, name: string, reaction?: string, remedy?: string, severity?: int32, staffOnly: boolean }>((a: ExtractedAllergy): { category: int32, name: string, reaction?: string, remedy?: string, severity?: int32, staffOnly: boolean } => ({
+            category: a.Category,
+            name: a.Name,
+            reaction: unwrap(a.Reaction),
+            remedy: unwrap(a.Remedy),
+            severity: unwrap(a.Severity),
+            staffOnly: a.StaffOnly,
+        }), allergies),
+        dryRun: dryRun,
+    };
+    return toString(0, Auto_generateBoxedEncoder_437914C6(anonRecord_type(["allergies", list_type(anonRecord_type(["category", int32_type], ["name", string_type], ["reaction", option_type(string_type)], ["remedy", option_type(string_type)], ["severity", option_type(int32_type)], ["staffOnly", bool_type]))], ["dryRun", bool_type]), CaseStrategy_CamelCase(), undefined, undefined)(payload));
+}
+
+/**
+ * Parse the /allergies response to extract created count.
+ * Shared by Studio (Fable) and .NET tests — single source of truth for response parsing.
+ */
+export function parseAllergiesResponse(responseBody: string): FSharpResult$2_$union<int32, string> {
+    const matchValue: FSharpResult$2_$union<int32, string> = fromString<int32>((path: string, value: any): FSharpResult$2_$union<int32, [string, ErrorReason_$union]> => field_1<int32>("count", uncurry2(int), path, value), responseBody);
+    if (matchValue.tag === /* Error */ 1) {
+        return FSharpResult$2_Error<int32, string>(`Failed to parse allergies response: ${matchValue.fields[0]}`);
+    }
+    else {
+        return FSharpResult$2_Ok<int32, string>(matchValue.fields[0]);
+    }
+}
+
 /**
  * 🩺 Extract vitals data from FormSpec for separate bridge submission
  * Finds Type 130 vitals fields and converts PluginData to bridge format
@@ -94,15 +300,15 @@ export function extractVitalsFromFormSpec(spec: Spec_FormSpec$1<Spec_FieldType_$
             const matchValue_1: Option<Shared_FieldValue_$union> = head(vitalsFields).Value;
             let matchResult_1: int32, props: FSharpList<Shared_PluginDataProperty>, answer: Shared_FieldAnswer;
             if (matchValue_1 != null) {
-                switch (value_3(matchValue_1).tag) {
+                switch (value_21(matchValue_1).tag) {
                     case /* PluginData */ 3: {
                         matchResult_1 = 0;
-                        props = (value_3(matchValue_1) as Shared_FieldValue<3>).fields[0];
+                        props = (value_21(matchValue_1) as Shared_FieldValue<3>).fields[0];
                         break;
                     }
                     case /* Single */ 0: {
                         matchResult_1 = 1;
-                        answer = (value_3(matchValue_1) as Shared_FieldValue<0>).fields[0];
+                        answer = (value_21(matchValue_1) as Shared_FieldValue<0>).fields[0];
                         break;
                     }
                     default:
@@ -132,7 +338,28 @@ export function extractVitalsFromFormSpec(spec: Spec_FormSpec$1<Spec_FieldType_$
                             }
                         }
                     }, tryFind<Shared_PluginDataProperty>((p: Shared_PluginDataProperty): boolean => (p.Name === propertyName), props!));
-                    return new ExtractedVitals(getVitalValue("temperature"), getVitalValue("systolic_bp"), getVitalValue("diastolic_bp"), getVitalValue("pulse"), getVitalValue("respiration"), getVitalValue("oxygen_saturation"), getVitalValue("pain_scale"));
+                    const getStringProp = (name: string): Option<string> => map_1<Shared_PluginDataProperty, string>((p_3: Shared_PluginDataProperty): string => p_3.Value, tryFind<Shared_PluginDataProperty>((p_2: Shared_PluginDataProperty): boolean => (p_2.Name === name), props!));
+                    const weightUnit: string = defaultArg(getStringProp("weight_unit"), "lbs");
+                    const heightUnit: string = defaultArg(getStringProp("height_unit"), "in");
+                    const rawWeight: Option<float64> = getVitalValue("weight");
+                    const rawHeight: Option<float64> = getVitalValue("height");
+                    const weightLbs: Option<float64> = map_1<float64, float64>((w: float64): float64 => {
+                        if (weightUnit === "kg") {
+                            return w * 2.20462;
+                        }
+                        else {
+                            return w;
+                        }
+                    }, rawWeight);
+                    const heightIn: Option<float64> = map_1<float64, float64>((h: float64): float64 => {
+                        if (heightUnit === "cm") {
+                            return h / 2.54;
+                        }
+                        else {
+                            return h;
+                        }
+                    }, rawHeight);
+                    return new ExtractedVitals(getVitalValue("temperature"), getVitalValue("systolic_bp"), getVitalValue("diastolic_bp"), getVitalValue("pulse"), getVitalValue("respiration"), getVitalValue("oxygen_saturation"), getVitalValue("pain_scale"), weightLbs, heightIn);
                 }
                 case 1: {
                     const parts: string[] = split(answer!.Value, ["|"], undefined, 0);
@@ -154,7 +381,29 @@ export function extractVitalsFromFormSpec(spec: Spec_FormSpec$1<Spec_FieldType_$
                             return undefined;
                         }
                     };
-                    return new ExtractedVitals(parseAt(0), parseAt(1), parseAt(2), parseAt(3), parseAt(4), parseAt(5), parseAt(6));
+                    const isMetric: boolean = (parts.length > 9) && (item(9, parts).trim().toLowerCase() === "metric");
+                    return new ExtractedVitals(map_1<float64, float64>((v_6: float64): float64 => {
+                        if (isMetric) {
+                            return ((v_6 * 9) / 5) + 32;
+                        }
+                        else {
+                            return v_6;
+                        }
+                    }, parseAt(0)), parseAt(1), parseAt(2), parseAt(3), parseAt(4), parseAt(5), parseAt(6), map_1<float64, float64>((v_4: float64): float64 => {
+                        if (isMetric) {
+                            return v_4 * 2.20462;
+                        }
+                        else {
+                            return v_4;
+                        }
+                    }, parseAt(7)), map_1<float64, float64>((v_5: float64): float64 => {
+                        if (isMetric) {
+                            return v_5 / 2.54;
+                        }
+                        else {
+                            return v_5;
+                        }
+                    }, parseAt(8)));
                 }
                 default:
                     return undefined;
@@ -175,7 +424,7 @@ export function extractVitalsFromFormSpec(spec: Spec_FormSpec$1<Spec_FieldType_$
  * Native Thoth.Json auto generation with full int64 support.
  */
 export function tryDecodeSourceMap(payloadJson: string): FSharpResult$2_$union<CoreMRSourceMap, string> {
-    return fromString<CoreMRSourceMap>(uncurry2(Auto_generateBoxedDecoder_Z6670B51(CoreMRSourceMap_$reflection(), undefined, undefined)), payloadJson);
+    return fromString_1<CoreMRSourceMap>(uncurry2(Auto_generateBoxedDecoder_Z6670B51(CoreMRSourceMap_$reflection(), undefined, undefined)), payloadJson);
 }
 
 /**
@@ -204,9 +453,9 @@ function getFieldOptionKeyGuid(_arg: Shared_FieldOptionKey): string {
     return _arg.fields[0];
 }
 
-function getScoreFromOption(options: FSharpList<Shared_FieldOption>, selectedValue: string): Option<int64> {
+function getScoreFromOption(options: FSharpList<Shared_FieldOption>, selectedValue: string): Option<int64_1> {
     const canonicalSelected: string = Helpers_canonicalizeFieldKey(selectedValue);
-    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 => (Helpers_canonicalizeFieldKey(opt.Value) === canonicalSelected), options));
+    return bind<Shared_FieldOption, int64_1>((opt_1: Shared_FieldOption): Option<int64_1> => map_1<int32, int64_1>((value: int32): int64_1 => toInt64(fromInt32(value)), opt_1.Score), tryFind<Shared_FieldOption>((opt: Shared_FieldOption): boolean => (Helpers_canonicalizeFieldKey(opt.Value) === canonicalSelected), options));
 }
 
 function supportsTextContent(anchor: CoreMRFieldAnchor): boolean {
@@ -279,16 +528,27 @@ function getOptionsFromFieldType(ft: Spec_FieldType_$union): FSharpList<Shared_F
     }
 }
 
-function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsIdOpt: Option<int64>, anchor: CoreMRFieldAnchor): FSharpList<CoreMRAnswer> {
-    if (anchor.Encoding.IsSkip ? true : anchor.Encoding.IsScaffold) {
+function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsIdOpt: Option<int64_1>, anchor: CoreMRFieldAnchor): FSharpList<CoreMRAnswer> {
+    if (anchor.Encoding.IsSkip) {
+        return empty<CoreMRAnswer>();
+    }
+    else if (anchor.ItemTypeId === 130) {
+        if (vitalsIdOpt == null) {
+            return empty<CoreMRAnswer>();
+        }
+        else {
+            return singleton(new CoreMRAnswer(anchor.Sequence, value_21(vitalsIdOpt), undefined));
+        }
+    }
+    else if (anchor.Encoding.IsScaffold) {
         return empty<CoreMRAnswer>();
     }
     else {
         const matchValue: Option<Shared_FieldValue_$union> = field.Value;
         if (matchValue != null) {
-            switch (value_3(matchValue).tag) {
+            switch (value_21(matchValue).tag) {
                 case /* Multiple */ 1: {
-                    const answers: FSharpSet<Shared_FieldAnswer> = (value_3(matchValue) as Shared_FieldValue<1>).fields[0];
+                    const answers: FSharpSet<Shared_FieldAnswer> = (value_21(matchValue) as Shared_FieldValue<1>).fields[0];
                     const matchValue_3: int32 = anchor.ItemTypeId | 0;
                     switch (matchValue_3) {
                         case 20:
@@ -298,7 +558,7 @@ function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsId
                         case 41:
                         case 143: {
                             const options_1: FSharpList<Shared_FieldOption> = getOptionsFromFieldType(field.FieldType);
-                            const choicesWithBitPos_1: FSharpList<[string, int32]> = map_1<CoreMRChoiceAnchor, [string, int32]>((c_3: CoreMRChoiceAnchor): [string, int32] => {
+                            const choicesWithBitPos_1: FSharpList<[string, int32]> = map<CoreMRChoiceAnchor, [string, int32]>((c_3: CoreMRChoiceAnchor): [string, int32] => {
                                 const bit_2: int32 = defaultArg(c_3.BitPosition, c_3.Sequence - 1) | 0;
                                 return [getFieldOptionKeyGuid(c_3.FieldOptionKey), bit_2] as [string, int32];
                             }, anchor.Choices);
@@ -306,7 +566,7 @@ function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsId
                                 throw new Error(`🚨 ItemTypeId ${anchor.ItemTypeId} multiple choice field ${anchor.FieldKey} has no choices`);
                             }
                             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_1: [string, int32]): boolean => (tupledArg_1[0] === key), choicesWithBitPos_1)), choose<string, string>((valStr_1: string): Option<string> => map<Shared_FieldOption, string>((opt_4: Shared_FieldOption): string => getFieldOptionKeyGuid(opt_4.OptionKey), tryFind<Shared_FieldOption>((opt_3: Shared_FieldOption): boolean => (Helpers_canonicalizeFieldKey(opt_3.Value) === Helpers_canonicalizeFieldKey(valStr_1)), options_1)), map_1<Shared_FieldAnswer, string>((a: Shared_FieldAnswer): string => a.Value, toList<Shared_FieldAnswer>(answers))))), supportsOptionalNotes(anchor) ? bind<Shared_FieldAnswer, string>((fa: Shared_FieldAnswer): Option<string> => fa.Documentation, tryHead<Shared_FieldAnswer>(toList<Shared_FieldAnswer>(answers))) : undefined));
+                                return singleton(new CoreMRAnswer(anchor.Sequence, computeBitmask(choose<string, int32>((key: string): Option<int32> => map_1<[string, int32], int32>((tuple: [string, int32]): int32 => tuple[1], tryFind<[string, int32]>((tupledArg_1: [string, int32]): boolean => (tupledArg_1[0] === key), choicesWithBitPos_1)), choose<string, string>((valStr_1: string): Option<string> => map_1<Shared_FieldOption, string>((opt_4: Shared_FieldOption): string => getFieldOptionKeyGuid(opt_4.OptionKey), tryFind<Shared_FieldOption>((opt_3: Shared_FieldOption): boolean => (Helpers_canonicalizeFieldKey(opt_3.Value) === Helpers_canonicalizeFieldKey(valStr_1)), options_1)), map<Shared_FieldAnswer, string>((a: Shared_FieldAnswer): string => a.Value, toList<Shared_FieldAnswer>(answers))))), supportsOptionalNotes(anchor) ? bind<Shared_FieldAnswer, string>((fa: Shared_FieldAnswer): Option<string> => fa.Documentation, tryHead<Shared_FieldAnswer>(toList<Shared_FieldAnswer>(answers))) : undefined));
                             }
                         }
                         default:
@@ -314,18 +574,18 @@ function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsId
                     }
                 }
                 case /* Matrix */ 2: {
-                    const matrixAnswer: Shared_MatrixAnswer = (value_3(matchValue) as Shared_FieldValue<2>).fields[0];
+                    const matrixAnswer: Shared_MatrixAnswer = (value_21(matchValue) as Shared_FieldValue<2>).fields[0];
                     if (isEmpty(anchor.MatrixItemAnchors)) {
                         return empty<CoreMRAnswer>();
                     }
                     else {
                         const options_2: FSharpList<Shared_FieldOption> = getOptionsFromFieldType(field.FieldType);
                         const docForFirst: Option<string> = supportsOptionalNotes(anchor) ? matrixAnswer.Documentation : undefined;
-                        return choose<Option<CoreMRAnswer>, CoreMRAnswer>((x_1: Option<CoreMRAnswer>): Option<CoreMRAnswer> => x_1, mapIndexed<CoreMRMatrixItemAnchor, Option<CoreMRAnswer>>((i: int32, rowAnchor: CoreMRMatrixItemAnchor): Option<CoreMRAnswer> => map<string, CoreMRAnswer>((selectedValue_1: string): CoreMRAnswer => (new CoreMRAnswer(rowAnchor.Sequence, defaultArg(getScoreFromOption(options_2, selectedValue_1), 0n), (i === 0) ? docForFirst : undefined)), tryFind_1<Shared_MatrixItemKey, string>(rowAnchor.MatrixItemKey, matrixAnswer.Values)), anchor.MatrixItemAnchors));
+                        return choose<Option<CoreMRAnswer>, CoreMRAnswer>((x_1: Option<CoreMRAnswer>): Option<CoreMRAnswer> => x_1, mapIndexed<CoreMRMatrixItemAnchor, Option<CoreMRAnswer>>((i: int32, rowAnchor: CoreMRMatrixItemAnchor): Option<CoreMRAnswer> => map_1<string, CoreMRAnswer>((selectedValue_1: string): CoreMRAnswer => (new CoreMRAnswer(rowAnchor.Sequence, defaultArg(getScoreFromOption(options_2, selectedValue_1), 0n), (i === 0) ? docForFirst : undefined)), tryFind_1<Shared_MatrixItemKey, string>(rowAnchor.MatrixItemKey, matrixAnswer.Values)), anchor.MatrixItemAnchors));
                     }
                 }
                 case /* PluginData */ 3: {
-                    const props: FSharpList<Shared_PluginDataProperty> = (value_3(matchValue) as Shared_FieldValue<3>).fields[0];
+                    const props: FSharpList<Shared_PluginDataProperty> = (value_21(matchValue) as Shared_FieldValue<3>).fields[0];
                     let matchResult: int32, p_1: Shared_PluginDataProperty;
                     if (!isEmpty(props)) {
                         if (isEmpty(tail(props))) {
@@ -352,7 +612,7 @@ function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsId
                     }
                 }
                 default: {
-                    const answer: Shared_FieldAnswer = (value_3(matchValue) as Shared_FieldValue<0>).fields[0];
+                    const answer: Shared_FieldAnswer = (value_21(matchValue) as Shared_FieldValue<0>).fields[0];
                     const options: FSharpList<Shared_FieldOption> = getOptionsFromFieldType(field.FieldType);
                     const matchValue_2: int32 = anchor.ItemTypeId | 0;
                     switch (matchValue_2) {
@@ -365,7 +625,7 @@ function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsId
                         case 40:
                         case 41:
                         case 143: {
-                            const choicesWithBitPos: FSharpList<[string, int32]> = map_1<CoreMRChoiceAnchor, [string, int32]>((c_2: CoreMRChoiceAnchor): [string, int32] => {
+                            const choicesWithBitPos: FSharpList<[string, int32]> = map<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);
@@ -375,7 +635,7 @@ function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsId
                             else {
                                 const selectedKeys: FSharpList<string> = choose<string, string>((selectedValue: string): Option<string> => {
                                     const canonicalSelected: string = Helpers_canonicalizeFieldKey(selectedValue);
-                                    return map<Shared_FieldOption, string>((opt_2: Shared_FieldOption): string => getFieldOptionKeyGuid(opt_2.OptionKey), tryFind<Shared_FieldOption>((opt_1: Shared_FieldOption): boolean => (Helpers_canonicalizeFieldKey(opt_1.Value) === canonicalSelected), options));
+                                    return map_1<Shared_FieldOption, string>((opt_2: Shared_FieldOption): string => getFieldOptionKeyGuid(opt_2.OptionKey), tryFind<Shared_FieldOption>((opt_1: Shared_FieldOption): boolean => (Helpers_canonicalizeFieldKey(opt_1.Value) === canonicalSelected), options));
                                 }, singleton(answer.Value));
                                 const bitPositions: FSharpList<int32> = choose<[string, int32], int32>((tupledArg: [string, int32]): Option<int32> => {
                                     if (contains<string>(tupledArg[0], selectedKeys, {
@@ -391,13 +651,13 @@ function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsId
                                 if (isEmpty(bitPositions)) {
                                     throw new Error(`🚨 No matching bitmask choice found for ItemTypeId ${anchor.ItemTypeId} field ${anchor.FieldKey} answer '${answer.Value}'`);
                                 }
-                                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));
+                                return singleton(new CoreMRAnswer(anchor.Sequence, fold<int32, int64_1>((acc: int64_1, bit_1: int32): int64_1 => 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 => {
+                            const scoreOpt: Option<int64_1> = map_1<CoreMRChoiceAnchor, int64_1>((c_1: CoreMRChoiceAnchor): int64_1 => 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;
                                 }
@@ -409,7 +669,7 @@ function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsId
                                 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));
+                                return singleton(new CoreMRAnswer(anchor.Sequence, value_21(scoreOpt), supportsOptionalNotes(anchor) ? answer.Documentation : undefined));
                             }
                         }
                         case 30:
@@ -435,7 +695,6 @@ function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsId
                         case 110:
                         case 120:
                         case 121:
-                        case 130:
                         case 131:
                         case 132:
                         case 133:
@@ -479,7 +738,6 @@ function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsId
                 case 110:
                 case 120:
                 case 121:
-                case 130:
                 case 131:
                 case 132:
                 case 133:
@@ -496,18 +754,29 @@ function fieldToAnswers(field: Spec_FormField$1<Spec_FieldType_$union>, vitalsId
 }
 
 function buildFieldByKeyMap(spec: Spec_FormSpec$1<Spec_FieldType_$union>): FSharpMap<string, Spec_FormField$1<Spec_FieldType_$union>> {
-    return ofList<string, Spec_FormField$1<Spec_FieldType_$union>>(map_1<Spec_FormField$1<Spec_FieldType_$union>, [string, Spec_FormField$1<Spec_FieldType_$union>]>((f: Spec_FormField$1<Spec_FieldType_$union>): [string, Spec_FormField$1<Spec_FieldType_$union>] => ([getFieldKeyGuid(f.FieldKey), f] as [string, Spec_FormField$1<Spec_FieldType_$union>]), 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, spec.Steps)), {
+    return ofList<string, Spec_FormField$1<Spec_FieldType_$union>>(map<Spec_FormField$1<Spec_FieldType_$union>, [string, Spec_FormField$1<Spec_FieldType_$union>]>((f: Spec_FormField$1<Spec_FieldType_$union>): [string, Spec_FormField$1<Spec_FieldType_$union>] => ([getFieldKeyGuid(f.FieldKey), f] as [string, Spec_FormField$1<Spec_FieldType_$union>]), 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, spec.Steps)), {
         Compare: comparePrimitives,
     });
 }
 
-function anchorToAnswers(fieldMap: FSharpMap<string, Spec_FormField$1<Spec_FieldType_$union>>, vitalsIdOpt: Option<int64>, anchor: CoreMRFieldAnchor): FSharpList<CoreMRAnswer> {
+function anchorToAnswers(fieldMap: FSharpMap<string, Spec_FormField$1<Spec_FieldType_$union>>, vitalsIdOpt: Option<int64_1>, anchor: CoreMRFieldAnchor): FSharpList<CoreMRAnswer> {
     const field: Option<Spec_FormField$1<Spec_FieldType_$union>> = tryFind_1<string, Spec_FormField$1<Spec_FieldType_$union>>(getFieldKeyGuid(anchor.FieldKey), fieldMap);
-    if (anchor.Encoding.IsSkip ? true : anchor.Encoding.IsScaffold) {
+    if (anchor.Encoding.IsSkip) {
+        return empty<CoreMRAnswer>();
+    }
+    else if (anchor.ItemTypeId === 130) {
+        if (vitalsIdOpt == null) {
+            return empty<CoreMRAnswer>();
+        }
+        else {
+            return singleton(new CoreMRAnswer(anchor.Sequence, value_21(vitalsIdOpt), undefined));
+        }
+    }
+    else if (anchor.Encoding.IsScaffold) {
         return empty<CoreMRAnswer>();
     }
     else if (field != null) {
-        return fieldToAnswers(value_3(field), vitalsIdOpt, anchor);
+        return fieldToAnswers(value_21(field), vitalsIdOpt, anchor);
     }
     else {
         const matchValue: string = anchor.Encoding.ValueEncoding;
@@ -534,7 +803,7 @@ function anchorToAnswers(fieldMap: FSharpMap<string, Spec_FormField$1<Spec_Field
  * Uses provided flow_vitals.id for Type 130 vitals fields.
  * This is the NEW smart coordination function that handles vitals references.
  */
-export function encodeToFormAnswersWithVitals(provenancePayload: string, filledFormSpec: Spec_FormSpec$1<Spec_FieldType_$union>, vitalsIdOpt: Option<int64>, scaffoldMode: boolean, dryRun: boolean): FSharpResult$2_$union<CoreMRFormInsertRequest, string> {
+export function encodeToFormAnswersWithVitals(provenancePayload: string, filledFormSpec: Spec_FormSpec$1<Spec_FieldType_$union>, vitalsIdOpt: Option<int64_1>, scaffoldMode: boolean, dryRun: boolean): FSharpResult$2_$union<CoreMRFormInsertRequest, string> {
     let msg: string, acc: FSharpList<CoreMRAnswer>;
     const matchValue: FSharpResult$2_$union<CoreMRSourceMap, string> = tryDecodeSourceMap(provenancePayload);
     if (matchValue.tag === /* Ok */ 0) {
@@ -546,7 +815,7 @@ export function encodeToFormAnswersWithVitals(provenancePayload: string, filledF
         }
         catch (matchValue_1: any) {
             const activePatternResult: Option<string> = Operators_FailurePattern(matchValue_1);
-            return (activePatternResult != null) ? ((msg = value_3(activePatternResult), FSharpResult$2_Error<CoreMRFormInsertRequest, string>(`CoreMR encoding failed: ${msg}`))) : FSharpResult$2_Error<CoreMRFormInsertRequest, string>(`Unexpected error during CoreMR encoding: ${matchValue_1.message}`);
+            return (activePatternResult != null) ? ((msg = value_21(activePatternResult), FSharpResult$2_Error<CoreMRFormInsertRequest, string>(`CoreMR encoding failed: ${msg}`))) : FSharpResult$2_Error<CoreMRFormInsertRequest, string>(`Unexpected error during CoreMR encoding: ${matchValue_1.message}`);
         }
     }
     else {
@@ -594,7 +863,7 @@ export function encodeToFormAnswers(provenancePayload: string, filledFormSpec: S
             }
             catch (matchValue_1: any) {
                 const activePatternResult: Option<string> = Operators_FailurePattern(matchValue_1);
-                return (activePatternResult != null) ? ((msg = value_3(activePatternResult), FSharpResult$2_Error<CoreMRFormInsertRequest, string>(`CoreMR encoding failed: ${msg}`))) : FSharpResult$2_Error<CoreMRFormInsertRequest, string>(`Unexpected error during CoreMR encoding: ${matchValue_1.message}`);
+                return (activePatternResult != null) ? ((msg = value_21(activePatternResult), FSharpResult$2_Error<CoreMRFormInsertRequest, string>(`CoreMR encoding failed: ${msg}`))) : FSharpResult$2_Error<CoreMRFormInsertRequest, string>(`Unexpected error during CoreMR encoding: ${matchValue_1.message}`);
             }
         }
     }