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

package/src/FormSpec.FS/Helpers.ts

@@ -175,6 +175,8 @@ export function Helpers_FieldTypeUtils_getFieldTypeName(fieldType: any): string
     if (fieldType instanceof Spec_FieldType) {
         const ft = fieldType as Spec_FieldType_$union;
         switch (ft.tag) {
+            case /* Text */ 0:
+                return "Text";
             case /* TextArea */ 1:
                 return "TextArea";
             case /* Email */ 2:
@@ -217,10 +219,10 @@ export function Helpers_FieldTypeUtils_getFieldTypeName(fieldType: any): string
                 return "Signature";
             case /* Message */ 21:
                 return "Message";
-            case /* PluginField */ 22:
+            case /* PluginField */ 23:
                 return `PluginField(${ft.fields[0].PluginId})`;
             default:
-                return "Text";
+                throw new Error("Match failure: F1.Studio.Spec.FieldType");
         }
     }
     else {
@@ -341,8 +343,8 @@ export function Helpers_FieldTypeUtils_fieldTypesMatchByCaseName(fieldType1: any
                     }
                     break;
                 }
-                case /* PluginField */ 22: {
-                    if (ft2!.tag === /* PluginField */ 22) {
+                case /* PluginField */ 23: {
+                    if (ft2!.tag === /* PluginField */ 23) {
                         if (ft1!.fields[0].PluginId === ft2!.fields[0].PluginId) {
                             matchResult_1 = 10;
                             cfg1_1 = ft1!.fields[0];
@@ -411,7 +413,7 @@ export function Helpers_FormSpecMutators_updateFormFieldInFormSpecStep<UserField
         else {
             return s;
         }
-    }, formSpec.Steps), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta);
+    }, formSpec.Steps), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta, formSpec.CustomData, formSpec.Provenance);
 }
 
 /**
@@ -425,7 +427,7 @@ export function Helpers_FormSpecMutators_updateFormStepInFormSpec<UserField>(for
         else {
             return s;
         }
-    }, formSpec.Steps), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta);
+    }, formSpec.Steps), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta, formSpec.CustomData, formSpec.Provenance);
 }
 
 /**
@@ -440,7 +442,7 @@ export function Helpers_FormSpecMutators_addFormFieldToStep<UserField>(formStep:
         else {
             return s;
         }
-    }, formSpec.Steps), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta);
+    }, formSpec.Steps), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta, formSpec.CustomData, formSpec.Provenance);
 }
 
 /**
@@ -449,19 +451,19 @@ export function Helpers_FormSpecMutators_addFormFieldToStep<UserField>(formStep:
 export function Helpers_FormSpecMutators_removeFormFieldFromFormSpec<UserField>(formStepOrder: int32, formField: Spec_FormField$1<UserField>, formSpec: Spec_FormSpec$1<UserField>): Spec_FormSpec$1<UserField> {
     return new Spec_FormSpec$1(formSpec.Id, formSpec.Code, formSpec.Title, formSpec.Abstract, formSpec.Version, formSpec.FormSpecVersion, map_1<Spec_FormStep$1<UserField>, Spec_FormStep$1<UserField>>((s: Spec_FormStep$1<UserField>): Spec_FormStep$1<UserField> => {
         if (s.StepOrder === formStepOrder) {
-            return new Spec_FormStep$1(s.StepOrder, s.StepLabel, mapIndexed<Spec_FormField$1<UserField>, Spec_FormField$1<UserField>>((i: int32, f_1: Spec_FormField$1<UserField>): Spec_FormField$1<UserField> => (new Spec_FormField$1(i + 1, f_1.FieldKey, f_1.Label, f_1.Notes, f_1.DependsOn, f_1.IsOptional, f_1.IsDeprecated, f_1.FieldType, f_1.Value)), filter<Spec_FormField$1<UserField>>((f: Spec_FormField$1<UserField>): boolean => (f.FieldOrder !== formField.FieldOrder), s.Fields)));
+            return new Spec_FormStep$1(s.StepOrder, s.StepLabel, mapIndexed<Spec_FormField$1<UserField>, Spec_FormField$1<UserField>>((i: int32, f_1: Spec_FormField$1<UserField>): Spec_FormField$1<UserField> => (new Spec_FormField$1(i + 1, f_1.FieldKey, f_1.Label, f_1.Notes, f_1.DependsOn, f_1.IsOptional, f_1.IsDeprecated, f_1.NeedsDocumentation, f_1.Documentation, f_1.FieldType, f_1.Value)), filter<Spec_FormField$1<UserField>>((f: Spec_FormField$1<UserField>): boolean => (f.FieldOrder !== formField.FieldOrder), s.Fields)));
         }
         else {
             return s;
         }
-    }, formSpec.Steps), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta);
+    }, formSpec.Steps), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta, formSpec.CustomData, formSpec.Provenance);
 }
 
 /**
  * Inserts a form field at a specific position within a step.
  */
 export function Helpers_FormSpecMutators_insertFormFieldToStepAt<UserField>(formStep: Spec_FormStep$1<UserField>, newPositionFieldOrder: int32, fieldKey: Shared_FieldKey): FSharpList<Spec_FormField$1<UserField>> {
-    return mapIndexed<Spec_FormField$1<UserField>, Spec_FormField$1<UserField>>((index_1: int32, f_1: Spec_FormField$1<UserField>): Spec_FormField$1<UserField> => (new Spec_FormField$1(index_1 + 1, f_1.FieldKey, f_1.Label, f_1.Notes, f_1.DependsOn, f_1.IsOptional, f_1.IsDeprecated, f_1.FieldType, f_1.Value)), insertAt<Spec_FormField$1<UserField>>(newPositionFieldOrder - 1, find<Spec_FormField$1<UserField>>((f: Spec_FormField$1<UserField>): boolean => equals(f.FieldKey, fieldKey), formStep.Fields), formStep.Fields));
+    return mapIndexed<Spec_FormField$1<UserField>, Spec_FormField$1<UserField>>((index_1: int32, f_1: Spec_FormField$1<UserField>): Spec_FormField$1<UserField> => (new Spec_FormField$1(index_1 + 1, f_1.FieldKey, f_1.Label, f_1.Notes, f_1.DependsOn, f_1.IsOptional, f_1.IsDeprecated, f_1.NeedsDocumentation, f_1.Documentation, f_1.FieldType, f_1.Value)), insertAt<Spec_FormField$1<UserField>>(newPositionFieldOrder - 1, find<Spec_FormField$1<UserField>>((f: Spec_FormField$1<UserField>): boolean => equals(f.FieldKey, fieldKey), formStep.Fields), formStep.Fields));
 }
 
 /**
@@ -470,12 +472,12 @@ export function Helpers_FormSpecMutators_insertFormFieldToStepAt<UserField>(form
 export function Helpers_FormSpecMutators_moveFormFieldUpInFormSpec<UserField>(formStepOrder: int32, formField: Spec_FormField$1<UserField>, formSpec: Spec_FormSpec$1<UserField>): Spec_FormSpec$1<UserField> {
     return new Spec_FormSpec$1(formSpec.Id, formSpec.Code, formSpec.Title, formSpec.Abstract, formSpec.Version, formSpec.FormSpecVersion, map_1<Spec_FormStep$1<UserField>, Spec_FormStep$1<UserField>>((s: Spec_FormStep$1<UserField>): Spec_FormStep$1<UserField> => {
         if (s.StepOrder === formStepOrder) {
-            return new Spec_FormStep$1(s.StepOrder, s.StepLabel, mapIndexed<Spec_FormField$1<UserField>, Spec_FormField$1<UserField>>((index: int32, f_2: Spec_FormField$1<UserField>): Spec_FormField$1<UserField> => (new Spec_FormField$1(index + 1, f_2.FieldKey, f_2.Label, f_2.Notes, f_2.DependsOn, f_2.IsOptional, f_2.IsDeprecated, f_2.FieldType, f_2.Value)), sortBy<Spec_FormField$1<UserField>, int32>((f_1: Spec_FormField$1<UserField>): int32 => f_1.FieldOrder, map_1<Spec_FormField$1<UserField>, Spec_FormField$1<UserField>>((f: Spec_FormField$1<UserField>): Spec_FormField$1<UserField> => {
+            return new Spec_FormStep$1(s.StepOrder, s.StepLabel, mapIndexed<Spec_FormField$1<UserField>, Spec_FormField$1<UserField>>((index: int32, f_2: Spec_FormField$1<UserField>): Spec_FormField$1<UserField> => (new Spec_FormField$1(index + 1, f_2.FieldKey, f_2.Label, f_2.Notes, f_2.DependsOn, f_2.IsOptional, f_2.IsDeprecated, f_2.NeedsDocumentation, f_2.Documentation, f_2.FieldType, f_2.Value)), sortBy<Spec_FormField$1<UserField>, int32>((f_1: Spec_FormField$1<UserField>): int32 => f_1.FieldOrder, map_1<Spec_FormField$1<UserField>, Spec_FormField$1<UserField>>((f: Spec_FormField$1<UserField>): Spec_FormField$1<UserField> => {
                 if (f.FieldOrder === formField.FieldOrder) {
-                    return new Spec_FormField$1(formField.FieldOrder - 1, f.FieldKey, f.Label, f.Notes, f.DependsOn, f.IsOptional, f.IsDeprecated, f.FieldType, f.Value);
+                    return new Spec_FormField$1(formField.FieldOrder - 1, f.FieldKey, f.Label, f.Notes, f.DependsOn, f.IsOptional, f.IsDeprecated, f.NeedsDocumentation, f.Documentation, f.FieldType, f.Value);
                 }
                 else if (f.FieldOrder === (formField.FieldOrder - 1)) {
-                    return new Spec_FormField$1(formField.FieldOrder, f.FieldKey, f.Label, f.Notes, f.DependsOn, f.IsOptional, f.IsDeprecated, f.FieldType, f.Value);
+                    return new Spec_FormField$1(formField.FieldOrder, f.FieldKey, f.Label, f.Notes, f.DependsOn, f.IsOptional, f.IsDeprecated, f.NeedsDocumentation, f.Documentation, f.FieldType, f.Value);
                 }
                 else {
                     return f;
@@ -487,7 +489,7 @@ export function Helpers_FormSpecMutators_moveFormFieldUpInFormSpec<UserField>(fo
         else {
             return s;
         }
-    }, formSpec.Steps), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta);
+    }, formSpec.Steps), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta, formSpec.CustomData, formSpec.Provenance);
 }
 
 /**
@@ -496,12 +498,12 @@ export function Helpers_FormSpecMutators_moveFormFieldUpInFormSpec<UserField>(fo
 export function Helpers_FormSpecMutators_moveFormFieldDownInFormSpec<UserField>(formStepOrder: int32, formField: Spec_FormField$1<UserField>, formSpec: Spec_FormSpec$1<UserField>): Spec_FormSpec$1<UserField> {
     return new Spec_FormSpec$1(formSpec.Id, formSpec.Code, formSpec.Title, formSpec.Abstract, formSpec.Version, formSpec.FormSpecVersion, map_1<Spec_FormStep$1<UserField>, Spec_FormStep$1<UserField>>((s: Spec_FormStep$1<UserField>): Spec_FormStep$1<UserField> => {
         if (s.StepOrder === formStepOrder) {
-            return new Spec_FormStep$1(s.StepOrder, s.StepLabel, mapIndexed<Spec_FormField$1<UserField>, Spec_FormField$1<UserField>>((index: int32, f_2: Spec_FormField$1<UserField>): Spec_FormField$1<UserField> => (new Spec_FormField$1(index + 1, f_2.FieldKey, f_2.Label, f_2.Notes, f_2.DependsOn, f_2.IsOptional, f_2.IsDeprecated, f_2.FieldType, f_2.Value)), sortBy<Spec_FormField$1<UserField>, int32>((f_1: Spec_FormField$1<UserField>): int32 => f_1.FieldOrder, map_1<Spec_FormField$1<UserField>, Spec_FormField$1<UserField>>((f: Spec_FormField$1<UserField>): Spec_FormField$1<UserField> => {
+            return new Spec_FormStep$1(s.StepOrder, s.StepLabel, mapIndexed<Spec_FormField$1<UserField>, Spec_FormField$1<UserField>>((index: int32, f_2: Spec_FormField$1<UserField>): Spec_FormField$1<UserField> => (new Spec_FormField$1(index + 1, f_2.FieldKey, f_2.Label, f_2.Notes, f_2.DependsOn, f_2.IsOptional, f_2.IsDeprecated, f_2.NeedsDocumentation, f_2.Documentation, f_2.FieldType, f_2.Value)), sortBy<Spec_FormField$1<UserField>, int32>((f_1: Spec_FormField$1<UserField>): int32 => f_1.FieldOrder, map_1<Spec_FormField$1<UserField>, Spec_FormField$1<UserField>>((f: Spec_FormField$1<UserField>): Spec_FormField$1<UserField> => {
                 if (f.FieldOrder === formField.FieldOrder) {
-                    return new Spec_FormField$1(formField.FieldOrder + 1, f.FieldKey, f.Label, f.Notes, f.DependsOn, f.IsOptional, f.IsDeprecated, f.FieldType, f.Value);
+                    return new Spec_FormField$1(formField.FieldOrder + 1, f.FieldKey, f.Label, f.Notes, f.DependsOn, f.IsOptional, f.IsDeprecated, f.NeedsDocumentation, f.Documentation, f.FieldType, f.Value);
                 }
                 else if (f.FieldOrder === (formField.FieldOrder + 1)) {
-                    return new Spec_FormField$1(formField.FieldOrder, f.FieldKey, f.Label, f.Notes, f.DependsOn, f.IsOptional, f.IsDeprecated, f.FieldType, f.Value);
+                    return new Spec_FormField$1(formField.FieldOrder, f.FieldKey, f.Label, f.Notes, f.DependsOn, f.IsOptional, f.IsDeprecated, f.NeedsDocumentation, f.Documentation, f.FieldType, f.Value);
                 }
                 else {
                     return f;
@@ -513,7 +515,7 @@ export function Helpers_FormSpecMutators_moveFormFieldDownInFormSpec<UserField>(
         else {
             return s;
         }
-    }, formSpec.Steps), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta);
+    }, formSpec.Steps), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta, formSpec.CustomData, formSpec.Provenance);
 }
 
 /**
@@ -525,7 +527,7 @@ export function Helpers_FormSpecMutators_moveFieldByKeyToPositionInFormStepSpec<
         const formStep_1: Spec_FormStep$1<UserField> = value_1(formStep);
         return new Spec_FormSpec$1(formSpec.Id, formSpec.Code, formSpec.Title, formSpec.Abstract, formSpec.Version, formSpec.FormSpecVersion, map_1<Spec_FormStep$1<UserField>, Spec_FormStep$1<UserField>>((s: Spec_FormStep$1<UserField>): Spec_FormStep$1<UserField> => {
             if (s.StepOrder === formStep_1.StepOrder) {
-                return new Spec_FormStep$1(s.StepOrder, s.StepLabel, mapIndexed<Spec_FormField$1<UserField>, Spec_FormField$1<UserField>>((index_1: int32, f_1: Spec_FormField$1<UserField>): Spec_FormField$1<UserField> => (new Spec_FormField$1(index_1 + 1, f_1.FieldKey, f_1.Label, f_1.Notes, f_1.DependsOn, f_1.IsOptional, f_1.IsDeprecated, f_1.FieldType, f_1.Value)), List_distinct<Spec_FormField$1<UserField>>(insertAt<Spec_FormField$1<UserField>>(newPositionFieldOrder - 1, find<Spec_FormField$1<UserField>>((f: Spec_FormField$1<UserField>): boolean => equals(f.FieldKey, fieldKey), s.Fields), s.Fields), {
+                return new Spec_FormStep$1(s.StepOrder, s.StepLabel, mapIndexed<Spec_FormField$1<UserField>, Spec_FormField$1<UserField>>((index_1: int32, f_1: Spec_FormField$1<UserField>): Spec_FormField$1<UserField> => (new Spec_FormField$1(index_1 + 1, f_1.FieldKey, f_1.Label, f_1.Notes, f_1.DependsOn, f_1.IsOptional, f_1.IsDeprecated, f_1.NeedsDocumentation, f_1.Documentation, f_1.FieldType, f_1.Value)), List_distinct<Spec_FormField$1<UserField>>(insertAt<Spec_FormField$1<UserField>>(newPositionFieldOrder - 1, find<Spec_FormField$1<UserField>>((f: Spec_FormField$1<UserField>): boolean => equals(f.FieldKey, fieldKey), s.Fields), s.Fields), {
                     Equals: equals,
                     GetHashCode: safeHash,
                 })));
@@ -533,7 +535,7 @@ export function Helpers_FormSpecMutators_moveFieldByKeyToPositionInFormStepSpec<
             else {
                 return s;
             }
-        }, formSpec.Steps), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta);
+        }, formSpec.Steps), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta, formSpec.CustomData, formSpec.Provenance);
     }
     else {
         return formSpec;
@@ -556,7 +558,7 @@ export function Helpers_FormSpecMutators_moveFormStepUpInFormSpec<UserField>(for
         }
     }, formSpec.Steps), {
         Compare: comparePrimitives,
-    })), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta);
+    })), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta, formSpec.CustomData, formSpec.Provenance);
 }
 
 /**
@@ -575,14 +577,14 @@ export function Helpers_FormSpecMutators_moveFormStepDownInFormSpec<UserField>(f
         }
     }, formSpec.Steps), {
         Compare: comparePrimitives,
-    })), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta);
+    })), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta, formSpec.CustomData, formSpec.Provenance);
 }
 
 /**
  * Removes a form step from a FormSpec.
  */
 export function Helpers_FormSpecMutators_removeFormStepFromFormSpec<UserField>(formStepOrder: int32, formSpec: Spec_FormSpec$1<UserField>): Spec_FormSpec$1<UserField> {
-    return new Spec_FormSpec$1(formSpec.Id, formSpec.Code, formSpec.Title, formSpec.Abstract, formSpec.Version, formSpec.FormSpecVersion, mapIndexed<Spec_FormStep$1<UserField>, Spec_FormStep$1<UserField>>((i: int32, s_1: Spec_FormStep$1<UserField>): Spec_FormStep$1<UserField> => (new Spec_FormStep$1(i + 1, s_1.StepLabel, s_1.Fields)), filter<Spec_FormStep$1<UserField>>((s: Spec_FormStep$1<UserField>): boolean => (s.StepOrder !== formStepOrder), formSpec.Steps)), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta);
+    return new Spec_FormSpec$1(formSpec.Id, formSpec.Code, formSpec.Title, formSpec.Abstract, formSpec.Version, formSpec.FormSpecVersion, mapIndexed<Spec_FormStep$1<UserField>, Spec_FormStep$1<UserField>>((i: int32, s_1: Spec_FormStep$1<UserField>): Spec_FormStep$1<UserField> => (new Spec_FormStep$1(i + 1, s_1.StepLabel, s_1.Fields)), filter<Spec_FormStep$1<UserField>>((s: Spec_FormStep$1<UserField>): boolean => (s.StepOrder !== formStepOrder), formSpec.Steps)), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta, formSpec.CustomData, formSpec.Provenance);
 }
 
 /**
@@ -597,7 +599,7 @@ export function Helpers_FormSpecTransformers_flattenSpecSteps<UserField>(formSpe
             if (!isEmpty(steps)) {
                 const step: Spec_FormStep$1<UserField> = head(steps);
                 steps_mut = tail(steps);
-                acc_mut = append(acc, map_1<Spec_FormField$1<UserField>, Spec_FormField$1<UserField>>((field: Spec_FormField$1<UserField>): Spec_FormField$1<UserField> => (new Spec_FormField$1((step.StepOrder * 1000) + field.FieldOrder, field.FieldKey, field.Label, field.Notes, field.DependsOn, field.IsOptional, field.IsDeprecated, field.FieldType, field.Value)), step.Fields));
+                acc_mut = append(acc, map_1<Spec_FormField$1<UserField>, Spec_FormField$1<UserField>>((field: Spec_FormField$1<UserField>): Spec_FormField$1<UserField> => (new Spec_FormField$1((step.StepOrder * 1000) + field.FieldOrder, field.FieldKey, field.Label, field.Notes, field.DependsOn, field.IsOptional, field.IsDeprecated, field.NeedsDocumentation, field.Documentation, field.FieldType, field.Value)), step.Fields));
                 continue flatten;
             }
             else {
@@ -606,7 +608,7 @@ export function Helpers_FormSpecTransformers_flattenSpecSteps<UserField>(formSpe
             break;
         }
     };
-    return new Spec_FormSpec$1(formSpec.Id, formSpec.Code, formSpec.Title, formSpec.Abstract, formSpec.Version, formSpec.FormSpecVersion, singleton(new Spec_FormStep$1(1, "Complete Form", flatten(formSpec.Steps, empty<Spec_FormField$1<UserField>>()))), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta);
+    return new Spec_FormSpec$1(formSpec.Id, formSpec.Code, formSpec.Title, formSpec.Abstract, formSpec.Version, formSpec.FormSpecVersion, singleton(new Spec_FormStep$1(1, "Complete Form", flatten(formSpec.Steps, empty<Spec_FormField$1<UserField>>()))), formSpec.CategoryTags, formSpec.Score, formSpec.AssociatedCodes, formSpec.RequiresReview, formSpec.RequiresReviewAndApproval, formSpec.ClinicalPathway, formSpec.Lifecycle, formSpec.FilledMeta, formSpec.CustomData, formSpec.Provenance);
 }
 
 /**
@@ -630,7 +632,22 @@ export function Helpers_specFieldOptionsToValueOptions(options: FSharpList<Share
 export function Helpers_optionsFromSpecField(field: Spec_FormField$1<Spec_FieldType_$union>): FSharpList<Shared_FieldOption> {
     const matchValue: Spec_FieldType_$union = field.FieldType;
     switch (matchValue.tag) {
-        case /* PluginField */ 22:
+        case /* Checkbox */ 11:
+        case /* Email */ 2:
+        case /* Password */ 3:
+        case /* Search */ 4:
+        case /* Color */ 5:
+        case /* Number */ 6:
+        case /* Tel */ 7:
+        case /* Text */ 0:
+        case /* TextArea */ 1:
+        case /* Date */ 8:
+        case /* DateTimeLocal */ 9:
+        case /* Time */ 10:
+        case /* Message */ 21:
+        case /* Signature */ 20:
+            return empty<Shared_FieldOption>();
+        case /* PluginField */ 23:
             return empty<Shared_FieldOption>();
         case /* CheckboxList */ 16:
             return matchValue.fields[0].Options;
@@ -649,7 +666,7 @@ export function Helpers_optionsFromSpecField(field: Spec_FormField$1<Spec_FieldT
         case /* Matrix */ 19:
             return matchValue.fields[0].Options;
         default:
-            return empty<Shared_FieldOption>();
+            throw new Error("Match failure: F1.Studio.Spec.FieldType");
     }
 }
 

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

@@ -0,0 +1,37 @@
+import { isNullOrWhiteSpace, printf, toText } from "@fable-org/fable-library-js/String.js";
+import { exists, length, isEmpty, FSharpList, cons, singleton, empty } from "@fable-org/fable-library-js/List.js";
+import { FSharpResult$2_$union, FSharpResult$2_Ok, FSharpResult$2_Error } from "@fable-org/fable-library-js/Result.js";
+import { Spec_FieldType_$union, Spec_FormSpec$1 } from "../../../FormSpec.js";
+import { ListMetadata, convertWithMapAndProvenance } from "./CoreMRSourceMap.js";
+import { CoreMRChoice, CoreMRItem, CoreMRFormData } from "../../CorEMR/CoreMRTypes.js";
+import { buildReport } from "./CorEMRSemanticReportBuilder.js";
+import { defaultArg } from "@fable-org/fable-library-js/Option.js";
+import { nonHeadingItems } from "./CorEMRSectioning.js";
+import { int32ToString } from "@fable-org/fable-library-js/Util.js";
+import { FormSystemAdapter$1, FormSystemFeatures, FormMetadata } from "../FormSystemAdapter.js";
+
+/**
+ * Convert with list metadata (IsScored, EncounterTypes) from FormListItem.
+ * Use when importing from fetch-coremr-forms where FormListItem is available.
+ */
+export function convertWithListMetadata(formData: CoreMRFormData, listMetadata: ListMetadata): FSharpResult$2_$union<Spec_FormSpec$1<Spec_FieldType_$union>, FSharpList<string>> {
+    let arg: string;
+    try {
+        return FSharpResult$2_Ok<Spec_FormSpec$1<Spec_FieldType_$union>, FSharpList<string>>(convertWithMapAndProvenance(formData, listMetadata));
+    }
+    catch (ex: any) {
+        return FSharpResult$2_Error<Spec_FormSpec$1<Spec_FieldType_$union>, FSharpList<string>>(cons((arg = ex.message, toText(printf("CorEMR conversion failed: %s"))(arg)), (ex.stack == null) ? empty<string>() : singleton("  Stack: " + ex.stack)));
+    }
+}
+
+export const adapter: FormSystemAdapter$1<CoreMRFormData> = new FormSystemAdapter$1("coremr", (template: CoreMRFormData): FSharpResult$2_$union<Spec_FormSpec$1<Spec_FieldType_$union>, FSharpList<string>> => {
+    let arg: string;
+    try {
+        return FSharpResult$2_Ok<Spec_FormSpec$1<Spec_FieldType_$union>, FSharpList<string>>(convertWithMapAndProvenance(template, undefined));
+    }
+    catch (ex: any) {
+        return FSharpResult$2_Error<Spec_FormSpec$1<Spec_FieldType_$union>, FSharpList<string>>(cons((arg = ex.message, toText(printf("CorEMR conversion failed: %s"))(arg)), (ex.stack == null) ? empty<string>() : singleton("  Stack: " + ex.stack)));
+    }
+}, buildReport, (template_2: CoreMRFormData): FSharpResult$2_$union<void, FSharpList<string>> => (isEmpty(template_2.Items) ? FSharpResult$2_Error<void, FSharpList<string>>(singleton("Template has no items")) : (isNullOrWhiteSpace(template_2.Metadata.FormName) ? FSharpResult$2_Error<void, FSharpList<string>>(singleton("Template has no name")) : FSharpResult$2_Ok<void, FSharpList<string>>(undefined))), (template_3: CoreMRFormData): FormMetadata => (new FormMetadata(template_3.Metadata.FormName, defaultArg(template_3.Metadata.Description, ""), length<CoreMRItem>(nonHeadingItems(template_3.Items)), exists<CoreMRChoice>((c: CoreMRChoice): boolean => (c.Score > 0), template_3.Choices), !isEmpty(template_3.Triggers), int32ToString(template_3.Metadata.VersionNumber))), new FormSystemFeatures(true, true, true, true, true));
+
+//# sourceMappingURL=CorEMRAdapter.ts.map

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

@@ -0,0 +1,103 @@
+import { Record } from "@fable-org/fable-library-js/Types.js";
+import { IComparable, IEquatable } from "@fable-org/fable-library-js/Util.js";
+import { record_type, bool_type, string_type, TypeInfo } from "@fable-org/fable-library-js/Reflection.js";
+import { int32 } from "@fable-org/fable-library-js/Int32.js";
+
+export class ElementTypeInfo extends Record implements IEquatable<ElementTypeInfo>, IComparable<ElementTypeInfo> {
+    readonly Code: string;
+    readonly ValueEncoding: string;
+    readonly TextFieldRole: string;
+    readonly IsPlusNotes: boolean;
+    readonly IsScaffold: boolean;
+    readonly IsSkip: boolean;
+    readonly IsNeedsDocumentation: boolean;
+    constructor(Code: string, ValueEncoding: string, TextFieldRole: string, IsPlusNotes: boolean, IsScaffold: boolean, IsSkip: boolean, IsNeedsDocumentation: boolean) {
+        super();
+        this.Code = Code;
+        this.ValueEncoding = ValueEncoding;
+        this.TextFieldRole = TextFieldRole;
+        this.IsPlusNotes = IsPlusNotes;
+        this.IsScaffold = IsScaffold;
+        this.IsSkip = IsSkip;
+        this.IsNeedsDocumentation = IsNeedsDocumentation;
+    }
+}
+
+export function ElementTypeInfo_$reflection(): TypeInfo {
+    return record_type("FormSpec.Integrations.CorEMR.CorEMRElementTypeMap.ElementTypeInfo", [], ElementTypeInfo, () => [["Code", string_type], ["ValueEncoding", string_type], ["TextFieldRole", string_type], ["IsPlusNotes", bool_type], ["IsScaffold", bool_type], ["IsSkip", bool_type], ["IsNeedsDocumentation", bool_type]]);
+}
+
+export function getElementTypeInfo(itemTypeId: int32): ElementTypeInfo {
+    switch (itemTypeId) {
+        case 1:
+            return new ElementTypeInfo("text", "zero", "content", false, false, false, false);
+        case 2:
+            return new ElementTypeInfo("text_multiline", "zero", "content", false, false, false, false);
+        case 20:
+            return new ElementTypeInfo("dropdown", "choice_score", "ignored", false, false, false, false);
+        case 21:
+            return new ElementTypeInfo("dropdown_notes", "choice_score", "optional_notes", true, false, false, true);
+        case 25:
+            return new ElementTypeInfo("dropdown_notes_ui", "choice_score", "ignored", false, false, false, true);
+        case 26:
+            return new ElementTypeInfo("chips_notes", "choice_score", "optional_notes", true, false, false, true);
+        case 30:
+            return new ElementTypeInfo("yes_no_text", "1_yes_2_no", "optional_notes", false, false, false, true);
+        case 31:
+            return new ElementTypeInfo("yes_no_notes", "1_yes_2_no", "optional_notes", true, false, false, true);
+        case 32:
+            return new ElementTypeInfo("exam_3choice", "choice_score", "ignored", false, false, false, false);
+        case 40:
+            return new ElementTypeInfo("checkbox", "choice_score", "ignored", false, false, false, false);
+        case 41:
+            return new ElementTypeInfo("checkbox_notes", "choice_score", "optional_notes", true, false, false, true);
+        case 50:
+            return new ElementTypeInfo("date", "zero", "iso_date", false, false, false, false);
+        case 51:
+            return new ElementTypeInfo("signature_date", "zero", "content", false, false, false, false);
+        case 60:
+            return new ElementTypeInfo("datetime", "zero", "iso_date", false, false, false, false);
+        case 61:
+            return new ElementTypeInfo("signature", "skip", "skip", false, false, true, false);
+        case 110:
+            return new ElementTypeInfo("heading", "scaffold", "ignored", false, true, false, false);
+        case 120:
+            return new ElementTypeInfo("instructions", "scaffold", "ignored", false, true, false, false);
+        case 121:
+            return new ElementTypeInfo("group_row", "scaffold", "ignored", false, true, false, false);
+        case 130:
+            return new ElementTypeInfo("vitals_widget", "scaffold", "ignored", false, true, false, false);
+        case 131:
+            return new ElementTypeInfo("linked_data", "scaffold", "ignored", false, true, false, false);
+        case 132:
+            return new ElementTypeInfo("linked_data_rare", "scaffold", "ignored", false, true, false, false);
+        case 133:
+            return new ElementTypeInfo("sub_header", "scaffold", "ignored", false, true, false, false);
+        case 134:
+            return new ElementTypeInfo("score_display", "scaffold", "ignored", false, true, false, false);
+        case 135:
+            return new ElementTypeInfo("score_explanation", "scaffold", "ignored", false, true, false, false);
+        case 138:
+            return new ElementTypeInfo("unknown_138", "scaffold", "ignored", false, true, false, false);
+        case 140:
+            return new ElementTypeInfo("allergy_autofill", "scaffold", "ignored", false, true, false, false);
+        case 143:
+            return new ElementTypeInfo("chips_ros", "choice_score", "ignored", false, false, false, false);
+        default:
+            return new ElementTypeInfo(`unknown_${itemTypeId}`, "unknown", "unknown", false, false, true, false);
+    }
+}
+
+export function elementTypeCode(itemTypeId: int32): string {
+    return getElementTypeInfo(itemTypeId).Code;
+}
+
+/**
+ * HasText = "content" | "optional_notes", HasDate = "iso_date"
+ */
+export function hasTextHasDate(itemTypeId: int32): [boolean, boolean] {
+    const info: ElementTypeInfo = getElementTypeInfo(itemTypeId);
+    return [(info.TextFieldRole === "content") ? true : (info.TextFieldRole === "optional_notes"), info.TextFieldRole === "iso_date"] as [boolean, boolean];
+}
+
+//# sourceMappingURL=CorEMRElementTypeMap.ts.map

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

@@ -0,0 +1,129 @@
+import { isNullOrWhiteSpace } from "@fable-org/fable-library-js/String.js";
+import { Helpers_generateDeterministicGuidRaw, Helpers_canonicalizeFieldKey } from "../../../Helpers.js";
+import { defaultArg, Option, value as value_1 } from "@fable-org/fable-library-js/Option.js";
+import { int32 } from "@fable-org/fable-library-js/Int32.js";
+import { CoreMRChoice, CoreMRItem } from "../../CorEMR/CoreMRTypes.js";
+import { Spec_FormField$1, Spec_FieldType_$union, Spec_FieldType_UnsupportedField, Spec_UnsupportedFieldInfo, Spec_FieldType_PluginField, Spec_PluginFieldConfig, Spec_FieldType_Message, Spec_MessageInfo, Spec_MessageType_Info, Spec_FieldType_DateTimeLocal, Spec_FieldType_Signature, Spec_SignatureInfo, Spec_FieldType_Date, Spec_FieldType_Radio, Spec_FieldType_CheckboxList, Spec_MultiChoiceInfo, Spec_FieldType_Dropdown, Spec_SingleChoiceInfo, Spec_FieldType_TextArea, Spec_FieldType_Text, Spec_TextInfo, Shared_FieldOption, Shared_FieldOptionKey, Shared_FieldKey } from "../../../FormSpec.js";
+import { sort, isEmpty, ofArray, FSharpList, sortBy, map } from "@fable-org/fable-library-js/List.js";
+import { comparePrimitives } from "@fable-org/fable-library-js/Util.js";
+import { getElementTypeInfo } from "./CorEMRElementTypeMap.js";
+import { normalizeChoiceScores } from "../../../BitmaskHelpers.js";
+
+function buildNamespacedFieldSeed(formCode: string, stepOrder: int32, item: CoreMRItem): string {
+    let matchValue: Option<string>;
+    return `formspec.${isNullOrWhiteSpace(formCode) ? "unknown" : Helpers_canonicalizeFieldKey(formCode)}:step${stepOrder}.${isNullOrWhiteSpace(item.Label) ? ((matchValue = item.Uuid, (matchValue == null) ? (`item_id_${item.ItemId}`) : (`item_uuid_${value_1(matchValue)}`))) : Helpers_canonicalizeFieldKey(item.Label)}`;
+}
+
+export function generateNamespacedFieldKey(formCode: string, stepOrder: int32, item: CoreMRItem): Shared_FieldKey {
+    return new Shared_FieldKey(Helpers_generateDeterministicGuidRaw(buildNamespacedFieldSeed(formCode, stepOrder, item)));
+}
+
+/**
+ * Map CoreMR choices to FormSpec FieldOptions.
+ * Choices come from the item_choices table (LEFT JOIN in the generator query).
+ * Score is NOT propagated to FormSpec — it's only used by the answer pipeline.
+ */
+export function mapChoices(choices: FSharpList<CoreMRChoice>): FSharpList<Shared_FieldOption> {
+    return map<CoreMRChoice, Shared_FieldOption>((c_1: CoreMRChoice): Shared_FieldOption => (new Shared_FieldOption(c_1.Text, Helpers_canonicalizeFieldKey(c_1.Text), new Shared_FieldOptionKey(Helpers_generateDeterministicGuidRaw(`coremr:choice:${c_1.ChoiceId}:${c_1.Text}`)), undefined)), sortBy<CoreMRChoice, int32>((c: CoreMRChoice): int32 => c.Sequence, choices, {
+        Compare: comparePrimitives,
+    }));
+}
+
+function buildImplicitYesNoOptions(item: CoreMRItem): FSharpList<Shared_FieldOption> {
+    return ofArray([new Shared_FieldOption("Yes", "yes", new Shared_FieldOptionKey(Helpers_generateDeterministicGuidRaw(`coremr:implicit:${item.ItemId}:yes`)), undefined), new Shared_FieldOption("No", "no", new Shared_FieldOptionKey(Helpers_generateDeterministicGuidRaw(`coremr:implicit:${item.ItemId}:no`)), undefined)]);
+}
+
+/**
+ * Determine if item is a "Plus Notes" type that should enable the Notes field.
+ */
+export function isPlusNotesType(item: CoreMRItem): boolean {
+    return getElementTypeInfo(item.ItemTypeId).IsPlusNotes;
+}
+
+/**
+ * Types 21, 25, 26, 30, 31, 41 — "with Notes" types that need Documentation field.
+ */
+export function isNeedsDocumentationType(item: CoreMRItem): boolean {
+    return getElementTypeInfo(item.ItemTypeId).IsNeedsDocumentation;
+}
+
+export function mapFieldType(item: CoreMRItem, choices: FSharpList<CoreMRChoice>): Spec_FieldType_$union {
+    const mappedChoices: FSharpList<Shared_FieldOption> = mapChoices(choices);
+    const hasChoices: boolean = !isEmpty(mappedChoices);
+    const matchValue: int32 = item.ItemTypeId | 0;
+    switch (matchValue) {
+        case 1:
+            return Spec_FieldType_Text(new Spec_TextInfo(undefined));
+        case 2:
+            return Spec_FieldType_TextArea(new Spec_TextInfo(undefined));
+        case 20:
+            return Spec_FieldType_Dropdown(new Spec_SingleChoiceInfo(mappedChoices));
+        case 21:
+            return Spec_FieldType_Dropdown(new Spec_SingleChoiceInfo(mappedChoices));
+        case 25:
+            return Spec_FieldType_Dropdown(new Spec_SingleChoiceInfo(mappedChoices));
+        case 26:
+            return Spec_FieldType_CheckboxList(new Spec_MultiChoiceInfo(mappedChoices));
+        case 30:
+            return Spec_FieldType_Radio(new Spec_SingleChoiceInfo(hasChoices ? mappedChoices : buildImplicitYesNoOptions(item)));
+        case 31:
+            return Spec_FieldType_Radio(new Spec_SingleChoiceInfo(hasChoices ? mappedChoices : buildImplicitYesNoOptions(item)));
+        case 32:
+            return Spec_FieldType_Dropdown(new Spec_SingleChoiceInfo(mappedChoices));
+        case 40:
+            if (normalizeChoiceScores(sort<int32>(map<CoreMRChoice, int32>((c: CoreMRChoice): int32 => c.Score, choices), {
+                Compare: comparePrimitives,
+            }))[1]) {
+                return Spec_FieldType_CheckboxList(new Spec_MultiChoiceInfo(mappedChoices));
+            }
+            else {
+                return Spec_FieldType_Radio(new Spec_SingleChoiceInfo(mappedChoices));
+            }
+        case 41:
+            if (normalizeChoiceScores(sort<int32>(map<CoreMRChoice, int32>((c_1: CoreMRChoice): int32 => c_1.Score, choices), {
+                Compare: comparePrimitives,
+            }))[1]) {
+                return Spec_FieldType_CheckboxList(new Spec_MultiChoiceInfo(mappedChoices));
+            }
+            else {
+                return Spec_FieldType_Radio(new Spec_SingleChoiceInfo(mappedChoices));
+            }
+        case 50:
+            return Spec_FieldType_Date(new Spec_TextInfo(undefined));
+        case 51:
+            return Spec_FieldType_Signature(new Spec_SignatureInfo(undefined));
+        case 60:
+            return Spec_FieldType_DateTimeLocal(new Spec_TextInfo(undefined));
+        case 61:
+            return Spec_FieldType_Signature(new Spec_SignatureInfo(undefined));
+        case 110:
+            throw new Error("Type 110 (Heading) should be filtered out before mapping to FieldType");
+        case 120:
+            return Spec_FieldType_Message(new Spec_MessageInfo("", Spec_MessageType_Info(), item.Label, undefined));
+        case 121:
+            return Spec_FieldType_Message(new Spec_MessageInfo("", Spec_MessageType_Info(), item.Label, undefined));
+        case 130:
+            return Spec_FieldType_PluginField(new Spec_PluginFieldConfig("Fable.Form.Simple.Bulma.Fields.VitalsField", undefined, undefined));
+        case 131:
+        case 132:
+            return Spec_FieldType_Message(new Spec_MessageInfo("", Spec_MessageType_Info(), item.Label, undefined));
+        case 133:
+        case 134:
+        case 135:
+        case 140:
+            return Spec_FieldType_Message(new Spec_MessageInfo("", Spec_MessageType_Info(), item.Label, undefined));
+        case 143:
+            return Spec_FieldType_CheckboxList(new Spec_MultiChoiceInfo(mappedChoices));
+        default:
+            return Spec_FieldType_UnsupportedField(new Spec_UnsupportedFieldInfo(item.ItemId, defaultArg(item.Code, ""), matchValue));
+    }
+}
+
+export function mapToFormField(formCode: string, stepOrder: int32, item: CoreMRItem, choices: FSharpList<CoreMRChoice>): Spec_FormField$1<Spec_FieldType_$union> {
+    const fieldType: Spec_FieldType_$union = mapFieldType(item, choices);
+    const mainLabel: string = item.Label.trim();
+    const notesField: Option<string> = isPlusNotesType(item) ? "" : undefined;
+    return new Spec_FormField$1(item.Sequence, generateNamespacedFieldKey(formCode, stepOrder, item), mainLabel, notesField, undefined, !item.IsRequired, false, isNeedsDocumentationType(item), undefined, fieldType, undefined);
+}
+
+//# sourceMappingURL=CorEMRFieldTypeMapper.ts.map