@f1studio/form-spec 5.0.0-alpha.164 → 5.0.0-alpha.165

package/src/FormSpec.FS/Interop/FormSpec.Api.Option.ts

@@ -1,11 +1,11 @@
 import { FSharpRef, Record } from "@fable-org/fable-library-js/Types.js";
-import { uncurry2, IComparable, IEquatable } from "@fable-org/fable-library-js/Util.js";
+import { uncurry2, comparePrimitives, IComparable, IEquatable } from "@fable-org/fable-library-js/Util.js";
 import { obj_type, enum_type, int32_type, array_type, bool_type, option_type, record_type, string_type, TypeInfo } from "@fable-org/fable-library-js/Reflection.js";
-import { map as map_2, value as value_2, Option } from "@fable-org/fable-library-js/Option.js";
+import { bind, map as map_2, value as value_2, Option } from "@fable-org/fable-library-js/Option.js";
 import { int32 } from "@fable-org/fable-library-js/Int32.js";
-import { Spec_FormSpec$1_$reflection, Spec_FieldType_$reflection, Spec_FormClassification_General, Spec_FormLifecycle_Blueprint, Spec_FormSpec$1, Spec_FilledMeta, Spec_FormLifecycle_$union, ClinicalPathway_ClinicalPathwaySpec, Spec_Score, Spec_ScoreRange, Spec_ScoreColor_Danger, Spec_ScoreColor_Warning, Spec_ScoreColor_Success, Spec_ScoreColor_Info, Spec_ScoreColor_Link, Spec_ScoreColor_Primary, Spec_ScoreColor_Unspecified, Spec_ScoreColor_$union, Spec_FormStep$1, Spec_FormField$1, Shared_FieldValue_$union, Spec_FieldType_PluginField, Spec_PluginFieldConfig, Spec_FieldType_Message, Spec_FieldType_Signature, Spec_SignatureInfo, Spec_FieldType_Matrix, Spec_FieldType_TextAutoComplete, Spec_FieldType_TagList, Spec_FieldType_CheckboxList, Spec_FieldType_MultiChoice, Spec_MultiChoiceInfo, Spec_FieldType_Dropdown, Spec_FieldType_SingleChoice, Spec_FieldType_Radio, Spec_SingleChoiceInfo, Spec_FieldType_Checkbox, Spec_FieldType_Time, Spec_FieldType_DateTimeLocal, Spec_FieldType_Date, Spec_FieldType_Tel, Spec_FieldType_Number, Spec_FieldType_Color, Spec_FieldType_Search, Spec_FieldType_Password, Spec_FieldType_Email, Spec_FieldType_TextArea, Spec_FieldType_Text, Spec_TextInfo, Spec_FieldType_$union, Spec_MessageInfo, Spec_MatrixInfo, Spec_BooleanInfo, Spec_MessageType_Danger, Spec_MessageType_Info, Spec_MessageType_Error, Spec_MessageType_Success, Spec_MessageType_Warning, Spec_MessageType_$union, Spec_DependsOn, Spec_Evaluator_Contains, Spec_Evaluator_IsEmpty, Spec_Evaluator_Exists, Spec_Evaluator_LessThanOrEquals, Spec_Evaluator_LessThan, Spec_Evaluator_GreaterThanOrEquals, Spec_Evaluator_GreaterThan, Spec_Evaluator_NotEquals, Spec_Evaluator_Equals, Spec_Evaluator_$union, Shared_FieldOption, Shared_FieldOptionKey, Shared_MatrixItemKey, Shared_TransitionKey, Shared_StateKey, Shared_FieldKey } from "../FormSpec.js";
+import { Spec_FormSpec$1_$reflection, Spec_FieldType_$reflection, Spec_FormClassification_General, Spec_FormLifecycle_Blueprint, Spec_FormSpec$1, Spec_FilledMeta, Spec_FormLifecycle_$union, ClinicalPathway_ClinicalPathwaySpec, Spec_VendorScore, Spec_VendorScoreBand, Spec_Score, Spec_ScoreRange, Spec_ScoreColor_Danger, Spec_ScoreColor_Warning, Spec_ScoreColor_Success, Spec_ScoreColor_Info, Spec_ScoreColor_Link, Spec_ScoreColor_Primary, Spec_ScoreColor_Unspecified, Spec_ScoreColor_$union, Spec_FormStep$1, Spec_FormField$1, Shared_FieldValue_$union, Spec_FieldType_PluginField, Spec_PluginFieldConfig, Spec_FieldType_Message, Spec_FieldType_Signature, Spec_SignatureInfo, Spec_FieldType_Matrix, Spec_FieldType_TextAutoComplete, Spec_FieldType_TagList, Spec_FieldType_CheckboxList, Spec_FieldType_MultiChoice, Spec_MultiChoiceInfo, Spec_FieldType_Dropdown, Spec_FieldType_SingleChoice, Spec_FieldType_Radio, Spec_SingleChoiceInfo, Spec_FieldType_Checkbox, Spec_FieldType_Time, Spec_FieldType_DateTimeLocal, Spec_FieldType_Date, Spec_FieldType_Tel, Spec_FieldType_Number, Spec_FieldType_Color, Spec_FieldType_Search, Spec_FieldType_Password, Spec_FieldType_Email, Spec_FieldType_TextArea, Spec_FieldType_Text, Spec_TextInfo, Spec_FieldType_$union, Spec_MessageInfo, Spec_MatrixInfo, Spec_BooleanInfo, Spec_MessageType_Danger, Spec_MessageType_Info, Spec_MessageType_Error, Spec_MessageType_Success, Spec_MessageType_Warning, Spec_MessageType_$union, Spec_DependsOn, Spec_Evaluator_Contains, Spec_Evaluator_IsEmpty, Spec_Evaluator_Exists, Spec_Evaluator_LessThanOrEquals, Spec_Evaluator_LessThan, Spec_Evaluator_GreaterThanOrEquals, Spec_Evaluator_GreaterThan, Spec_Evaluator_NotEquals, Spec_Evaluator_Equals, Spec_Evaluator_$union, Shared_FieldOption, Shared_FieldOptionKey, Shared_MatrixItemKey, Shared_TransitionKey, Shared_StateKey, Shared_FieldKey } from "../FormSpec.js";
 import { tryParse } from "@fable-org/fable-library-js/Guid.js";
-import { ofArray, reverse, empty, FSharpList, cons, map, toArray } from "@fable-org/fable-library-js/List.js";
+import { sortBy, isEmpty, ofArray, reverse, empty, FSharpList, cons, map, toArray } from "@fable-org/fable-library-js/List.js";
 import { sumBy, tryFind, collect, map as map_1, fold } from "@fable-org/fable-library-js/Array.js";
 import { Auto_generateBoxedEncoder_437914C6, toString } from "../../Thoth.Json/packages/Thoth.Json/Encode.js";
 import { FSharpResult$2_$union, Result_ToOption } from "@fable-org/fable-library-js/Result.js";
@@ -366,6 +366,34 @@ export function Types_ClinicalPathwaySpecTS_$reflection(): TypeInfo {
     return record_type("F1.Studio.FormSpec.Interop.OptionBased.Types.ClinicalPathwaySpecTS", [], Types_ClinicalPathwaySpecTS, () => [["PathwayId", string_type], ["PathwayName", string_type], ["Version", string_type], ["ProtocolSource", string_type]]);
 }
 
+export class Types_VendorScoreBandTS extends Record implements IEquatable<Types_VendorScoreBandTS>, IComparable<Types_VendorScoreBandTS> {
+    readonly Label: string;
+    readonly Min: int32;
+    constructor(Label: string, Min: int32) {
+        super();
+        this.Label = Label;
+        this.Min = (Min | 0);
+    }
+}
+
+export function Types_VendorScoreBandTS_$reflection(): TypeInfo {
+    return record_type("F1.Studio.FormSpec.Interop.OptionBased.Types.VendorScoreBandTS", [], Types_VendorScoreBandTS, () => [["Label", string_type], ["Min", int32_type]]);
+}
+
+export class Types_VendorScoreTS extends Record implements IEquatable<Types_VendorScoreTS>, IComparable<Types_VendorScoreTS> {
+    readonly ScaleName: string;
+    readonly Bands: Types_VendorScoreBandTS[];
+    constructor(ScaleName: string, Bands: Types_VendorScoreBandTS[]) {
+        super();
+        this.ScaleName = ScaleName;
+        this.Bands = Bands;
+    }
+}
+
+export function Types_VendorScoreTS_$reflection(): TypeInfo {
+    return record_type("F1.Studio.FormSpec.Interop.OptionBased.Types.VendorScoreTS", [], Types_VendorScoreTS, () => [["ScaleName", string_type], ["Bands", array_type(Types_VendorScoreBandTS_$reflection())]]);
+}
+
 export class Types_FormSpecTS extends Record implements IEquatable<Types_FormSpecTS> {
     readonly Id: string;
     readonly Code: Option<string>;
@@ -376,13 +404,14 @@ export class Types_FormSpecTS extends Record implements IEquatable<Types_FormSpe
     readonly Steps: Types_FormStepTS[];
     readonly CategoryTags: string[];
     readonly Score: Option<Types_ScoreTS>;
+    readonly VendorScore: Option<Types_VendorScoreTS>;
     readonly AssociatedCodes: string[];
     readonly RequiresReview: boolean;
     readonly RequiresReviewAndApproval: boolean;
     readonly ClinicalPathway: Option<Types_ClinicalPathwaySpecTS>;
     readonly Lifecycle: string;
     readonly FilledMeta: Option<any>;
-    constructor(Id: string, Code: Option<string>, Title: string, Abstract: string, Version: string, FormSpecVersion: string, Steps: Types_FormStepTS[], CategoryTags: string[], Score: Option<Types_ScoreTS>, AssociatedCodes: string[], RequiresReview: boolean, RequiresReviewAndApproval: boolean, ClinicalPathway: Option<Types_ClinicalPathwaySpecTS>, Lifecycle: string, FilledMeta: Option<any>) {
+    constructor(Id: string, Code: Option<string>, Title: string, Abstract: string, Version: string, FormSpecVersion: string, Steps: Types_FormStepTS[], CategoryTags: string[], Score: Option<Types_ScoreTS>, VendorScore: Option<Types_VendorScoreTS>, AssociatedCodes: string[], RequiresReview: boolean, RequiresReviewAndApproval: boolean, ClinicalPathway: Option<Types_ClinicalPathwaySpecTS>, Lifecycle: string, FilledMeta: Option<any>) {
         super();
         this.Id = Id;
         this.Code = Code;
@@ -393,6 +422,7 @@ export class Types_FormSpecTS extends Record implements IEquatable<Types_FormSpe
         this.Steps = Steps;
         this.CategoryTags = CategoryTags;
         this.Score = Score;
+        this.VendorScore = VendorScore;
         this.AssociatedCodes = AssociatedCodes;
         this.RequiresReview = RequiresReview;
         this.RequiresReviewAndApproval = RequiresReviewAndApproval;
@@ -403,7 +433,7 @@ export class Types_FormSpecTS extends Record implements IEquatable<Types_FormSpe
 }
 
 export function Types_FormSpecTS_$reflection(): TypeInfo {
-    return record_type("F1.Studio.FormSpec.Interop.OptionBased.Types.FormSpecTS", [], Types_FormSpecTS, () => [["Id", string_type], ["Code", option_type(string_type)], ["Title", string_type], ["Abstract", string_type], ["Version", string_type], ["FormSpecVersion", string_type], ["Steps", array_type(Types_FormStepTS_$reflection())], ["CategoryTags", array_type(string_type)], ["Score", option_type(Types_ScoreTS_$reflection())], ["AssociatedCodes", array_type(string_type)], ["RequiresReview", bool_type], ["RequiresReviewAndApproval", bool_type], ["ClinicalPathway", option_type(Types_ClinicalPathwaySpecTS_$reflection())], ["Lifecycle", string_type], ["FilledMeta", option_type(obj_type)]]);
+    return record_type("F1.Studio.FormSpec.Interop.OptionBased.Types.FormSpecTS", [], Types_FormSpecTS, () => [["Id", string_type], ["Code", option_type(string_type)], ["Title", string_type], ["Abstract", string_type], ["Version", string_type], ["FormSpecVersion", string_type], ["Steps", array_type(Types_FormStepTS_$reflection())], ["CategoryTags", array_type(string_type)], ["Score", option_type(Types_ScoreTS_$reflection())], ["VendorScore", option_type(Types_VendorScoreTS_$reflection())], ["AssociatedCodes", array_type(string_type)], ["RequiresReview", bool_type], ["RequiresReviewAndApproval", bool_type], ["ClinicalPathway", option_type(Types_ClinicalPathwaySpecTS_$reflection())], ["Lifecycle", string_type], ["FilledMeta", option_type(obj_type)]]);
 }
 
 /**
@@ -1381,6 +1411,31 @@ export function Converters_scoreFromTS(score: Types_ScoreTS): Option<Spec_Score>
     }
 }
 
+/**
+ * Convert F# VendorScore to TypeScript representation
+ */
+export function Converters_vendorScoreToTS(score: Spec_VendorScore): Types_VendorScoreTS {
+    return new Types_VendorScoreTS(score.ScaleName, toArray<Types_VendorScoreBandTS>(map<Spec_VendorScoreBand, Types_VendorScoreBandTS>((b: Spec_VendorScoreBand): Types_VendorScoreBandTS => (new Types_VendorScoreBandTS(b.Label, b.Min)), score.Bands)));
+}
+
+/**
+ * Convert TypeScript VendorScore to F# representation.
+ * ⛔ Refuses a scale with no bands — see <c>Spec.VendorScore</c>. A named scale whose bands
+ * did not survive cannot say what a total means, and half a sentence invites the reader to
+ * invent the other half.
+ */
+export function Converters_vendorScoreFromTS(score: Types_VendorScoreTS): Option<Spec_VendorScore> {
+    const bands: FSharpList<Spec_VendorScoreBand> = map<Types_VendorScoreBandTS, Spec_VendorScoreBand>((b: Types_VendorScoreBandTS): Spec_VendorScoreBand => (new Spec_VendorScoreBand(b.Label, b.Min)), ofArray<Types_VendorScoreBandTS>(score.Bands));
+    if (isEmpty(bands)) {
+        return undefined;
+    }
+    else {
+        return new Spec_VendorScore(score.ScaleName, sortBy<Spec_VendorScoreBand, int32>((b_1: Spec_VendorScoreBand): int32 => b_1.Min, bands, {
+            Compare: comparePrimitives,
+        }));
+    }
+}
+
 /**
  * Convert F# ClinicalPathwaySpec to TypeScript representation (simplified)
  */
@@ -1413,7 +1468,7 @@ export function Converters_lifecycleToString(lifecycle: Spec_FormLifecycle_$unio
 }
 
 export function Converters_formSpecToTS(spec: Spec_FormSpec$1<Spec_FieldType_$union>): Types_FormSpecTS {
-    return new Types_FormSpecTS(spec.Id, spec.Code, spec.Title, spec.Abstract, spec.Version, spec.FormSpecVersion, toArray<Types_FormStepTS>(map<Spec_FormStep$1<Spec_FieldType_$union>, Types_FormStepTS>(Converters_formStepToTS, spec.Steps)), toArray<string>(spec.CategoryTags), map_2<Spec_Score, Types_ScoreTS>(Converters_scoreToTS, spec.Score), toArray<string>(spec.AssociatedCodes), spec.RequiresReview, spec.RequiresReviewAndApproval, map_2<ClinicalPathway_ClinicalPathwaySpec, Types_ClinicalPathwaySpecTS>(Converters_clinicalPathwayToTS, spec.ClinicalPathway), Converters_lifecycleToString(spec.Lifecycle), map_2<Spec_FilledMeta, any>((value: Spec_FilledMeta): any => value, spec.FilledMeta));
+    return new Types_FormSpecTS(spec.Id, spec.Code, spec.Title, spec.Abstract, spec.Version, spec.FormSpecVersion, toArray<Types_FormStepTS>(map<Spec_FormStep$1<Spec_FieldType_$union>, Types_FormStepTS>(Converters_formStepToTS, spec.Steps)), toArray<string>(spec.CategoryTags), map_2<Spec_Score, Types_ScoreTS>(Converters_scoreToTS, spec.Score), map_2<Spec_VendorScore, Types_VendorScoreTS>(Converters_vendorScoreToTS, spec.VendorScore), toArray<string>(spec.AssociatedCodes), spec.RequiresReview, spec.RequiresReviewAndApproval, map_2<ClinicalPathway_ClinicalPathwaySpec, Types_ClinicalPathwaySpecTS>(Converters_clinicalPathwayToTS, spec.ClinicalPathway), Converters_lifecycleToString(spec.Lifecycle), map_2<Spec_FilledMeta, any>((value: Spec_FilledMeta): any => value, spec.FilledMeta));
 }
 
 /**
@@ -1455,7 +1510,7 @@ export function Converters_formSpecFromTS(spec: Types_FormSpecTS): Option<Spec_F
             return undefined;
         }
         else {
-            return new Spec_FormSpec$1(matchValue[1], spec.Code, spec.Title, spec.Abstract, spec.Version, spec.FormSpecVersion, reverse<Spec_FormStep$1<Spec_FieldType_$union>>(value_2(convertedSteps)), ofArray<string>(spec.CategoryTags), scoreResult, ofArray<string>(spec.AssociatedCodes), spec.RequiresReview, spec.RequiresReviewAndApproval, undefined, Spec_FormLifecycle_Blueprint(), undefined, undefined, undefined, Spec_FormClassification_General());
+            return new Spec_FormSpec$1(matchValue[1], spec.Code, spec.Title, spec.Abstract, spec.Version, spec.FormSpecVersion, reverse<Spec_FormStep$1<Spec_FieldType_$union>>(value_2(convertedSteps)), ofArray<string>(spec.CategoryTags), scoreResult, bind<Types_VendorScoreTS, Spec_VendorScore>(Converters_vendorScoreFromTS, spec.VendorScore), ofArray<string>(spec.AssociatedCodes), spec.RequiresReview, spec.RequiresReviewAndApproval, undefined, Spec_FormLifecycle_Blueprint(), undefined, undefined, undefined, Spec_FormClassification_General());
         }
     }
     else {

package/src/FormSpec.FS/Provenance.ts

@@ -1,19 +1,65 @@
 import { Record } from "@fable-org/fable-library-js/Types.js";
 import { IComparable, IEquatable } from "@fable-org/fable-library-js/Util.js";
 import { record_type, string_type, TypeInfo } from "@fable-org/fable-library-js/Reflection.js";
+import { isNullOrWhiteSpace } from "@fable-org/fable-library-js/String.js";
 
 export class IntegrationProvenance extends Record implements IEquatable<IntegrationProvenance>, IComparable<IntegrationProvenance> {
-    readonly IntegrationKey: string;
+    readonly Vendor: string;
+    readonly TenantId: string;
+    readonly SiteId: string;
     readonly Payload: string;
-    constructor(IntegrationKey: string, Payload: string) {
+    constructor(Vendor: string, TenantId: string, SiteId: string, Payload: string) {
         super();
-        this.IntegrationKey = IntegrationKey;
+        this.Vendor = Vendor;
+        this.TenantId = TenantId;
+        this.SiteId = SiteId;
         this.Payload = Payload;
     }
 }
 
 export function IntegrationProvenance_$reflection(): TypeInfo {
-    return record_type("F1.Studio.Provenance.IntegrationProvenance", [], IntegrationProvenance, () => [["IntegrationKey", string_type], ["Payload", string_type]]);
+    return record_type("F1.Studio.Provenance.IntegrationProvenance", [], IntegrationProvenance, () => [["Vendor", string_type], ["TenantId", string_type], ["SiteId", string_type], ["Payload", string_type]]);
+}
+
+export class ImportOrigin extends Record implements IEquatable<ImportOrigin>, IComparable<ImportOrigin> {
+    readonly Vendor: string;
+    readonly TenantId: string;
+    readonly SiteId: string;
+    constructor(Vendor: string, TenantId: string, SiteId: string) {
+        super();
+        this.Vendor = Vendor;
+        this.TenantId = TenantId;
+        this.SiteId = SiteId;
+    }
+}
+
+export function ImportOrigin_$reflection(): TypeInfo {
+    return record_type("F1.Studio.Provenance.ImportOrigin", [], ImportOrigin, () => [["Vendor", string_type], ["TenantId", string_type], ["SiteId", string_type]]);
+}
+
+/**
+ * ⛔ FAILS LOUDLY. A blank tenant or site is not "unknown, fill it in later" — it is an import
+ * whose payload can never be resolved back, and it must not be written at all.
+ */
+export function ImportOriginModule_create(vendor: string, tenantId: string, siteId: string): ImportOrigin {
+    const blank = isNullOrWhiteSpace;
+    if (blank(vendor)) {
+        throw new Error("ImportOrigin: vendor is required (e.g. \"coremr\").");
+    }
+    if (blank(tenantId)) {
+        throw new Error("ImportOrigin: tenantId is required — a blueprint belongs to an organisation.");
+    }
+    if (blank(siteId)) {
+        throw new Error("ImportOrigin: siteId is required — every formId/itemId/choiceId in the payload is scoped to ONE CoreMR database, and without it the provenance cannot be resolved back.");
+    }
+    return new ImportOrigin(vendor.trim(), tenantId.trim(), siteId.trim());
+}
+
+/**
+ * The provenance for a payload read under this origin.
+ */
+export function ImportOriginModule_provenance(o: ImportOrigin, payload: string): IntegrationProvenance {
+    return new IntegrationProvenance(o.Vendor, o.TenantId, o.SiteId, payload);
 }
 
 //# sourceMappingURL=Provenance.ts.map