@f1studio/form-spec 5.0.0-alpha.168 → 5.0.0-alpha.169

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

@@ -0,0 +1,115 @@
+import { FSharpResult$2_Error, FSharpResult$2_$union, FSharpResult$2_Ok } from "@fable-org/fable-library-js/Result.js";
+import { Record } from "@fable-org/fable-library-js/Types.js";
+import { defaultArg, bind, map, value as value_2, Option } from "@fable-org/fable-library-js/Option.js";
+import { tryFind, ofList, empty, FSharpMap } from "@fable-org/fable-library-js/Map.js";
+import { EncounterTypes, TemplateItem, ItemTrigger, ReleaseAvailability_readList, ReleaseAvailability_statedTrue, TemplateForm, FormTemplateServed, ScoringCatalog, ReleaseAvailability$1_$reflection, InstrumentMapEntry_$reflection, ElementTypeEntry_$reflection, ReleaseAvailability$1_$union, InstrumentMapEntry, ElementTypeEntry } from "../../CorEMR/FormTemplateDecoder.js";
+import { collect, cons, empty as empty_2, isEmpty, filter, map as map_1, singleton, FSharpList } from "@fable-org/fable-library-js/List.js";
+import { Trigger_$reflection, Trigger } from "../../../../vye-os-contracts-fs/src/CoreMR/FormTemplate.js";
+import { int32ToString, comparePrimitives, IComparable, IEquatable } from "@fable-org/fable-library-js/Util.js";
+import { record_type, list_type, option_type, class_type, string_type, TypeInfo } from "@fable-org/fable-library-js/Reflection.js";
+import { int32 } from "@fable-org/fable-library-js/Int32.js";
+import { toCoreMRFormData, mapFormClassification } from "./CorEMRTemplateMapper.js";
+import { Shared_FieldKey, Spec_FieldType_$union, Spec_FormSpec$1, Spec_FormClassification_$union } from "../../../FormSpec.js";
+import { CoreMRFormData } from "../../CorEMR/CoreMRTypes.js";
+import { empty as empty_1, singleton as singleton_1, append, delay, toList } from "@fable-org/fable-library-js/Seq.js";
+import { CoreMRSourceMap_$reflection, CoreMRStepMap, CoreMRFieldAnchor, CoreMRConversionResult, convertWithMap, CoreMRSourceMap, ListMetadata } from "./CoreMRSourceMap.js";
+import { convertFormTriggersToPathway } from "../../CorEMR/CoreMRPathwayMapper.js";
+import { ImportOrigin, ImportOriginModule_provenance } from "../../../Provenance.js";
+import { Auto_generateBoxedEncoder_437914C6, toString } from "../../../../Thoth.Json/packages/Thoth.Json/Encode.js";
+
+function ok<$a, $b>(v: $a): FSharpResult$2_$union<$a, $b> {
+    return FSharpResult$2_Ok<$a, $b>(v);
+}
+
+function err<$a, $b>(v: $a): FSharpResult$2_$union<$b, $a> {
+    return FSharpResult$2_Error<$b, $a>(v);
+}
+
+export class ServedFacts extends Record implements IEquatable<ServedFacts>, IComparable<ServedFacts> {
+    readonly ElementTypes: Option<FSharpMap<string, ElementTypeEntry>>;
+    readonly Instruments: FSharpMap<string, InstrumentMapEntry>;
+    readonly Triggers: ReleaseAvailability$1_$union<FSharpList<Trigger>>;
+    constructor(ElementTypes: Option<FSharpMap<string, ElementTypeEntry>>, Instruments: FSharpMap<string, InstrumentMapEntry>, Triggers: ReleaseAvailability$1_$union<FSharpList<Trigger>>) {
+        super();
+        this.ElementTypes = ElementTypes;
+        this.Instruments = Instruments;
+        this.Triggers = Triggers;
+    }
+}
+
+export function ServedFacts_$reflection(): TypeInfo {
+    return record_type("FormSpec.Integrations.CorEMR.CoreMRImportPipeline.ServedFacts", [], ServedFacts, () => [["ElementTypes", option_type(class_type("Microsoft.FSharp.Collections.FSharpMap`2", [string_type, ElementTypeEntry_$reflection()]))], ["Instruments", class_type("Microsoft.FSharp.Collections.FSharpMap`2", [string_type, InstrumentMapEntry_$reflection()])], ["Triggers", ReleaseAvailability$1_$reflection(list_type(Trigger_$reflection()))]]);
+}
+
+/**
+ * The instrument map conduit states, keyed by form id. ⛔ A release that states no scoring (9704) yields an
+ * empty map — the reason travels on the catalog's `Scoring`, not here.
+ */
+export function instrumentsOfScoring(scoring: ReleaseAvailability$1_$union<ScoringCatalog>): FSharpMap<string, InstrumentMapEntry> {
+    switch (scoring.tag) {
+        case /* NotInRelease */ 1:
+        case /* NotReadYet */ 2:
+            return empty<string, InstrumentMapEntry>({
+                Compare: comparePrimitives,
+            });
+        default:
+            return scoring.fields[0].InstrumentMap;
+    }
+}
+
+/**
+ * From ONE served form template — its own vocabulary entries, at most its own instrument entry, its triggers.
+ * ⭐ Equivalent for THIS form: `classificationOf` looks up only `string form.FormId`, and the converter
+ * looks up only the codes this form's items carry, which is exactly what conduit sent.
+ */
+export function ServedFactsModule_ofServed(served: FormTemplateServed): ServedFacts {
+    let matchValue: ReleaseAvailability$1_$union<Option<InstrumentMapEntry>>, entry: InstrumentMapEntry;
+    return new ServedFacts(served.ElementTypes, (matchValue = served.Instrument, (matchValue.tag === /* NotInRelease */ 1) ? empty<string, InstrumentMapEntry>({
+        Compare: comparePrimitives,
+    }) : ((matchValue.tag === /* NotReadYet */ 2) ? empty<string, InstrumentMapEntry>({
+        Compare: comparePrimitives,
+    }) : ((matchValue.fields[0] == null) ? empty<string, InstrumentMapEntry>({
+        Compare: comparePrimitives,
+    }) : ((entry = value_2(matchValue.fields[0]), ofList<string, InstrumentMapEntry>(singleton([int32ToString(served.Form.FormId), entry] as [string, InstrumentMapEntry]), {
+        Compare: comparePrimitives,
+    })))))), served.TriggerReads);
+}
+
+/**
+ * A form's classification: intake, a clinical instrument (CoreMR declares a `form_scores` row for it),
+ * or general. ⭐ Extracted from `runPipeline` unchanged so the rule has a test of its own
+ * (`FormSpec.FS.Tests` → "CoreMR classification"); the import baseline proves the extraction changed no byte.
+ */
+export function classificationOf(instruments: FSharpMap<string, InstrumentMapEntry>, form: TemplateForm): Spec_FormClassification_$union {
+    const preferredMapping: Option<InstrumentMapEntry> = tryFind<string, InstrumentMapEntry>(int32ToString(form.FormId), instruments);
+    return mapFormClassification(form.IsIntake ? "intake" : ((preferredMapping != null) ? "clinical_instrument" : undefined), map<InstrumentMapEntry, string>((m: InstrumentMapEntry): string => m.InstrumentType, preferredMapping), bind<InstrumentMapEntry, int32>((m_1: InstrumentMapEntry): Option<int32> => m_1.MaxScore, preferredMapping));
+}
+
+/**
+ * ⭐ `origin` is REQUIRED — the tenant and database this import is read FROM. ⛔ This is Studio's OWN
+ * provenance builder, a SECOND one beside `CoreMRSourceMap.convertWithMapAndProvenance`; both now take
+ * an origin, so neither can produce a blueprint that cannot be resolved back.
+ * ⭐ `importedAt` — the import's ONE clock read, taken by the CALLER at its edge (CTA-013): a pathway's
+ * `CreatedDate`. ⛔ Nothing below reads a clock.
+ */
+export function runPipeline(origin: ImportOrigin, importedAt: Date, facts: ServedFacts, form: TemplateForm): FSharpResult$2_$union<[Spec_FormSpec$1<Spec_FieldType_$union>, CoreMRSourceMap], FSharpList<string>> {
+    let enc: EncounterTypes, bind$0040: Spec_FormSpec$1<Spec_FieldType_$union>;
+    const formData: CoreMRFormData = toCoreMRFormData(defaultArg(facts.ElementTypes, empty<string, ElementTypeEntry>({
+        Compare: comparePrimitives,
+    })), form);
+    const listMetadata: ListMetadata = new ListMetadata(form.Scoring, (enc = form.EncounterTypes, toList<string>(delay<string>((): Iterable<string> => append<string>(enc.Medical ? singleton_1<string>("medical") : empty_1<string>(), delay<string>((): Iterable<string> => append<string>(enc.Mental ? singleton_1<string>("mental") : empty_1<string>(), delay<string>((): Iterable<string> => append<string>(enc.Dental ? singleton_1<string>("dental") : empty_1<string>(), delay<string>((): Iterable<string> => (ReleaseAvailability_statedTrue(enc.Other) ? singleton_1<string>("other") : empty_1<string>())))))))))), form.Usage, classificationOf(facts.Instruments, form));
+    const triggersByItemId: FSharpMap<int32, FSharpList<ItemTrigger>> = ofList<int32, FSharpList<ItemTrigger>>(map_1<TemplateItem, [int32, FSharpList<ItemTrigger>]>((i_1: TemplateItem): [int32, FSharpList<ItemTrigger>] => ([i_1.ItemId, ReleaseAvailability_readList<ItemTrigger>(i_1.Triggers)] as [int32, FSharpList<ItemTrigger>]), filter<TemplateItem>((i: TemplateItem): boolean => !isEmpty(ReleaseAvailability_readList<ItemTrigger>(i.Triggers)), form.Items)), {
+        Compare: comparePrimitives,
+    });
+    try {
+        const result: CoreMRConversionResult = convertWithMap(formData, listMetadata, undefined, triggersByItemId);
+        return ok<[Spec_FormSpec$1<Spec_FieldType_$union>, CoreMRSourceMap], FSharpList<string>>([(bind$0040 = result.FormSpec, new Spec_FormSpec$1(bind$0040.Id, bind$0040.Code, bind$0040.Title, bind$0040.Abstract, bind$0040.Version, bind$0040.FormSpecVersion, bind$0040.Steps, bind$0040.CategoryTags, bind$0040.Score, bind$0040.VendorScore, bind$0040.AssociatedCodes, bind$0040.RequiresReview, bind$0040.RequiresReviewAndApproval, convertFormTriggersToPathway(importedAt, form, facts.Triggers, ofList<int32, Shared_FieldKey>(map_1<CoreMRFieldAnchor, [int32, Shared_FieldKey]>((anchor: CoreMRFieldAnchor): [int32, Shared_FieldKey] => ([anchor.ItemId, anchor.FieldKey] as [int32, Shared_FieldKey]), collect<CoreMRStepMap, CoreMRFieldAnchor>((step: CoreMRStepMap): FSharpList<CoreMRFieldAnchor> => step.FieldAnchors, result.SourceMap.Steps)), {
+            Compare: comparePrimitives,
+        })), bind$0040.Lifecycle, bind$0040.FilledMeta, bind$0040.CustomData, ImportOriginModule_provenance(origin, toString(0, Auto_generateBoxedEncoder_437914C6(CoreMRSourceMap_$reflection(), undefined, undefined, undefined)(result.SourceMap))), result.SourceMap.Classification)), result.SourceMap] as [Spec_FormSpec$1<Spec_FieldType_$union>, CoreMRSourceMap]);
+    }
+    catch (ex: any) {
+        return err<FSharpList<string>, [Spec_FormSpec$1<Spec_FieldType_$union>, CoreMRSourceMap]>(cons("CorEMR conversion failed: " + ex.message, (ex.stack == null) ? empty_2<string>() : singleton("  Stack: " + ex.stack)));
+    }
+}
+
+//# sourceMappingURL=CoreMRImportPipeline.ts.map