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

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

@@ -8,7 +8,7 @@ import { bind, map, defaultArg, Option, value as value_3 } from "@fable-org/fabl
 import { int64 } from "@fable-org/fable-library-js/BigInt.js";
 import { Spec_FormClassification_General, Spec_FormStep$1, Spec_FormField$1, Spec_MultiChoiceInfo, Spec_SingleChoiceInfo, Shared_FieldOption, Spec_FormSpec$1_$reflection, Spec_FieldType_$reflection, Spec_FieldType_$union, Spec_FormSpec$1, Spec_FormClassification_$reflection, Spec_FormClassification_$union, Shared_FieldKey_$reflection, Shared_FieldKey, Shared_MatrixItemKey_$reflection, Shared_MatrixItemKey, Shared_FieldOptionKey_$reflection, Shared_FieldOptionKey } from "../../../FormSpec.js";
 import { tryFind as tryFind_1, choose, item as item_1, length, mapIndexed, sortBy, empty, FSharpList } from "@fable-org/fable-library-js/List.js";
-import { FormScoring_$reflection, FormScoring, ItemTrigger_$reflection, ItemTrigger } from "../../CorEMR/TemplateManifestDecoder.js";
+import { FormScoring_$reflection, FormScoring, ItemTrigger_$reflection, ItemTrigger } from "../../CorEMR/FormTemplateDecoder.js";
 import { CoreMRFormData, CoreMRItem, CoreMRChoice, CoreMRTag_$reflection, CoreMRTrigger_$reflection, CoreMRTag, CoreMRTrigger } from "../../CorEMR/CoreMRTypes.js";
 import { List_groupBy } from "@fable-org/fable-library-js/Seq2.js";
 import { detectHeadings, groupItemsByHeadings, Section, HeadingItem } from "./CorEMRSectioning.js";
@@ -142,8 +142,8 @@ export function CoreMRFieldAnchor_$reflection(): TypeInfo {
 export class CoreMRStepAnchor extends Record implements IEquatable<CoreMRStepAnchor>, IComparable<CoreMRStepAnchor> {
     readonly HeadingItemId: Option<int32>;
     readonly HeadingSequence: int32;
-    readonly HeadingLabel: string;
-    constructor(HeadingItemId: Option<int32>, HeadingSequence: int32, HeadingLabel: string) {
+    readonly HeadingLabel: Option<string>;
+    constructor(HeadingItemId: Option<int32>, HeadingSequence: int32, HeadingLabel: Option<string>) {
         super();
         this.HeadingItemId = HeadingItemId;
         this.HeadingSequence = (HeadingSequence | 0);
@@ -152,7 +152,7 @@ export class CoreMRStepAnchor extends Record implements IEquatable<CoreMRStepAnc
 }
 
 export function CoreMRStepAnchor_$reflection(): TypeInfo {
-    return record_type("FormSpec.Integrations.CorEMR.CoreMRSourceMap.CoreMRStepAnchor", [], CoreMRStepAnchor, () => [["HeadingItemId", option_type(int32_type)], ["HeadingSequence", int32_type], ["HeadingLabel", string_type]]);
+    return record_type("FormSpec.Integrations.CorEMR.CoreMRSourceMap.CoreMRStepAnchor", [], CoreMRStepAnchor, () => [["HeadingItemId", option_type(int32_type)], ["HeadingSequence", int32_type], ["HeadingLabel", option_type(string_type)]]);
 }
 
 export class CoreMRAbsorbedItem extends Record implements IEquatable<CoreMRAbsorbedItem>, IComparable<CoreMRAbsorbedItem> {
@@ -195,7 +195,7 @@ export class CoreMRSourceMap extends Record implements IEquatable<CoreMRSourceMa
     readonly FormId: int32;
     readonly VersionId: int32;
     readonly VersionNumber: int32;
-    readonly FormName: Option<string>;
+    readonly FormName: string;
     readonly FormCode: string;
     readonly FormCodeSource: string;
     readonly Description: Option<string>;
@@ -213,7 +213,7 @@ export class CoreMRSourceMap extends Record implements IEquatable<CoreMRSourceMa
     readonly Triggers: FSharpList<CoreMRTrigger>;
     readonly Tags: FSharpList<CoreMRTag>;
     readonly FormSpecId: string;
-    constructor(FormId: int32, VersionId: int32, VersionNumber: int32, FormName: Option<string>, FormCode: string, FormCodeSource: string, Description: Option<string>, RequiresSignature: boolean, IsIntake: boolean, Scoring: Option<FormScoring>, EncounterTypes: FSharpList<string>, Usage: Option<string>, Classification: Spec_FormClassification_$union, StructureHash: Option<string>, ClinicalHash: Option<string>, CosmeticHash: Option<string>, Steps: FSharpList<CoreMRStepMap>, AbsorbedItems: FSharpList<CoreMRAbsorbedItem>, Triggers: FSharpList<CoreMRTrigger>, Tags: FSharpList<CoreMRTag>, FormSpecId: string) {
+    constructor(FormId: int32, VersionId: int32, VersionNumber: int32, FormName: string, FormCode: string, FormCodeSource: string, Description: Option<string>, RequiresSignature: boolean, IsIntake: boolean, Scoring: Option<FormScoring>, EncounterTypes: FSharpList<string>, Usage: Option<string>, Classification: Spec_FormClassification_$union, StructureHash: Option<string>, ClinicalHash: Option<string>, CosmeticHash: Option<string>, Steps: FSharpList<CoreMRStepMap>, AbsorbedItems: FSharpList<CoreMRAbsorbedItem>, Triggers: FSharpList<CoreMRTrigger>, Tags: FSharpList<CoreMRTag>, FormSpecId: string) {
         super();
         this.FormId = (FormId | 0);
         this.VersionId = (VersionId | 0);
@@ -240,7 +240,7 @@ export class CoreMRSourceMap extends Record implements IEquatable<CoreMRSourceMa
 }
 
 export function CoreMRSourceMap_$reflection(): TypeInfo {
-    return record_type("FormSpec.Integrations.CorEMR.CoreMRSourceMap.CoreMRSourceMap", [], CoreMRSourceMap, () => [["FormId", int32_type], ["VersionId", int32_type], ["VersionNumber", int32_type], ["FormName", option_type(string_type)], ["FormCode", string_type], ["FormCodeSource", string_type], ["Description", option_type(string_type)], ["RequiresSignature", bool_type], ["IsIntake", bool_type], ["Scoring", option_type(FormScoring_$reflection())], ["EncounterTypes", list_type(string_type)], ["Usage", option_type(string_type)], ["Classification", Spec_FormClassification_$reflection()], ["StructureHash", option_type(string_type)], ["ClinicalHash", option_type(string_type)], ["CosmeticHash", option_type(string_type)], ["Steps", list_type(CoreMRStepMap_$reflection())], ["AbsorbedItems", list_type(CoreMRAbsorbedItem_$reflection())], ["Triggers", list_type(CoreMRTrigger_$reflection())], ["Tags", list_type(CoreMRTag_$reflection())], ["FormSpecId", class_type("System.Guid")]]);
+    return record_type("FormSpec.Integrations.CorEMR.CoreMRSourceMap.CoreMRSourceMap", [], CoreMRSourceMap, () => [["FormId", int32_type], ["VersionId", int32_type], ["VersionNumber", int32_type], ["FormName", string_type], ["FormCode", string_type], ["FormCodeSource", string_type], ["Description", option_type(string_type)], ["RequiresSignature", bool_type], ["IsIntake", bool_type], ["Scoring", option_type(FormScoring_$reflection())], ["EncounterTypes", list_type(string_type)], ["Usage", option_type(string_type)], ["Classification", Spec_FormClassification_$reflection()], ["StructureHash", option_type(string_type)], ["ClinicalHash", option_type(string_type)], ["CosmeticHash", option_type(string_type)], ["Steps", list_type(CoreMRStepMap_$reflection())], ["AbsorbedItems", list_type(CoreMRAbsorbedItem_$reflection())], ["Triggers", list_type(CoreMRTrigger_$reflection())], ["Tags", list_type(CoreMRTag_$reflection())], ["FormSpecId", class_type("System.Guid")]]);
 }
 
 export class CoreMRConversionResult extends Record implements IEquatable<CoreMRConversionResult>, IComparable<CoreMRConversionResult> {
@@ -339,7 +339,7 @@ export function ListMetadata_$reflection(): TypeInfo {
  * Build the complete SourceMap from raw CoreMR data and the resulting FormSpec.
  * When listMetadata is Some (from the templates catalog during import), Scoring, EncounterTypes,
  * Usage and Classification are populated. IsIntake always comes from formData.Metadata.
- * When elementTypes is Some (from bridge templates endpoint), use it for ValueEncoding; else fallback to CorEMRElementTypeMap.
+ * `elementTypes`: `None` = the ENCODING comes from `CorEMRElementTypeMap`'s constant — FLIP-8's to replace (named, not hidden).
  */
 export function buildSourceMap(elementTypes: Option<FSharpMap<int32, ElementTypeInfo>>, triggersByItemId: FSharpMap<int32, FSharpList<ItemTrigger>>, formData: CoreMRFormData, formSpec: Spec_FormSpec$1<Spec_FieldType_$union>, listMetadata: Option<ListMetadata>): CoreMRSourceMap {
     const formCode: string = defaultArg(formSpec.Code, `CORE-${formData.Metadata.FormId}`);
@@ -378,7 +378,7 @@ export function buildSourceMap(elementTypes: Option<FSharpMap<int32, ElementType
  * Convert CoreMR form data to FormSpec with full source mapping.
  * When listMetadata is Some (from the templates catalog during import), Scoring, EncounterTypes,
  * Usage and Classification are populated. IsIntake always comes from formData.Metadata.
- * When elementTypes is Some (from bridge templates endpoint), use it for ValueEncoding; else fallback to CorEMRElementTypeMap.
+ * `elementTypes`: `None` = the ENCODING comes from `CorEMRElementTypeMap`'s constant — FLIP-8's to replace (named, not hidden).
  */
 export function convertWithMap(formData: CoreMRFormData, listMetadata: Option<ListMetadata>, elementTypes: Option<FSharpMap<int32, ElementTypeInfo>>, triggersByItemId: FSharpMap<int32, FSharpList<ItemTrigger>>): CoreMRConversionResult {
     const formSpec: Spec_FormSpec$1<Spec_FieldType_$union> = convertToFormSpec(bind<ListMetadata, FormScoring>((m: ListMetadata): Option<FormScoring> => m.Scoring, listMetadata), formData);
@@ -389,7 +389,7 @@ export function convertWithMap(formData: CoreMRFormData, listMetadata: Option<Li
  * Convert CoreMR form data to FormSpec with Provenance attached (for persist on import).
  * When listMetadata is Some (from the templates catalog during import), Scoring, EncounterTypes,
  * Usage and Classification are populated. IsIntake always comes from formData.Metadata.
- * When elementTypes is Some (from bridge templates endpoint), use it for ValueEncoding; else fallback to CorEMRElementTypeMap.
+ * `elementTypes`: `None` = the ENCODING comes from `CorEMRElementTypeMap`'s constant — FLIP-8's to replace (named, not hidden).
  * ⭐ `origin` is REQUIRED. A blueprint imported without naming its tenant and database produces a
  * provenance that cannot be resolved back — measured 2026-09-23: 228 of 228 imports were unresolvable.
  */

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

@@ -1,106 +1,79 @@
-import { List_distinctBy } from "@fable-org/fable-library-js/Seq2.js";
-import { TriggerCondition, TriggerAction, ItemTrigger } from "../../CorEMR/TemplateManifestDecoder.js";
-import { tryParse, int32 } from "@fable-org/fable-library-js/Int32.js";
-import { map as map_1, tryHead, ofArray, tryFind, tryPick, FSharpList, collect } from "@fable-org/fable-library-js/List.js";
-import { CoreMRSourceMap_$reflection, CoreMRSourceMap, CoreMRStepMap, CoreMRFieldAnchor } from "./CoreMRSourceMap.js";
-import { uncurry2, numberHash } from "@fable-org/fable-library-js/Util.js";
-import { FSharpRef } from "@fable-org/fable-library-js/Types.js";
-import { value as value_1, bind, defaultArg, map, Option } from "@fable-org/fable-library-js/Option.js";
-import { tryFind as tryFind_1 } from "@fable-org/fable-library-js/Map.js";
-import { TriggerAction as TriggerAction_1 } from "../../../../vye-os-contracts-fs/src/Clinical/TriggerAction.js";
-import { convertActionsToBaseDtos } from "../../../TriggerActionDto.js";
-import { IntegrationProvenance } from "../../../Provenance.js";
-import { Auto_generateBoxedDecoder_Z6670B51, fromString } from "../../../../Thoth.Json/packages/Thoth.Json/Decode.js";
-import { FSharpResult$2_$union } from "@fable-org/fable-library-js/Result.js";
-import { Spec_FieldType_$union, Spec_FormSpec$1, ClinicalPathway_ActionInfo_$union } from "../../../FormSpec.js";
+import { Record } from "@fable-org/fable-library-js/Types.js";
+import { IComparable, IEquatable } from "@fable-org/fable-library-js/Util.js";
+import { list_type, record_type, string_type, TypeInfo } from "@fable-org/fable-library-js/Reflection.js";
+import { choose, map, FSharpList } from "@fable-org/fable-library-js/List.js";
+import { TriggerAction_$reflection, TriggerAction } from "../../../../vye-os-contracts-fs/src/Clinical/TriggerAction.js";
+import { ActionWrite_$union, convertActionToBaseDto } from "../../../TriggerActionDto.js";
+import { ClinicalPathway_PathwayAction, ClinicalPathway_CoreMRTriggerRef, ClinicalPathway_ActionOrigin_$union } from "../../../FormSpec.js";
+import { FSharpResult$2_$union, FSharpResult$2_Ok, FSharpResult$2_Error } from "@fable-org/fable-library-js/Result.js";
+import { Option } from "@fable-org/fable-library-js/Option.js";
 
-function collectTriggers(sourceMap: CoreMRSourceMap): FSharpList<ItemTrigger> {
-    return List_distinctBy<ItemTrigger, int32>((t: ItemTrigger): int32 => t.TriggerId, collect<CoreMRStepMap, ItemTrigger>((step: CoreMRStepMap): FSharpList<ItemTrigger> => collect<CoreMRFieldAnchor, ItemTrigger>((anchor: CoreMRFieldAnchor): FSharpList<ItemTrigger> => anchor.Triggers, step.FieldAnchors), sourceMap.Steps), {
-        Equals: (x: int32, y: int32): boolean => (x === y),
-        GetHashCode: numberHash,
-    });
-}
-
-function tryParseInt(s: string): Option<int32> {
-    let matchValue: [boolean, int32];
-    let outArg = 0;
-    matchValue = ([tryParse(s, 511, false, 32, new FSharpRef<int32>((): int32 => outArg, (v: int32): void => {
-        outArg = (v | 0);
-    })), outArg] as [boolean, int32]);
-    if (matchValue[0]) {
-        return matchValue[1];
-    }
-    else {
-        return undefined;
+export class NotWrittenAction extends Record implements IEquatable<NotWrittenAction>, IComparable<NotWrittenAction> {
+    readonly Action: string;
+    readonly Reason: string;
+    constructor(Action: string, Reason: string) {
+        super();
+        this.Action = Action;
+        this.Reason = Reason;
     }
 }
 
-function findMatchingTriggerAction(dto: TriggerAction_1, triggers: FSharpList<ItemTrigger>): Option<[ItemTrigger, TriggerAction]> {
-    return tryPick<ItemTrigger, [ItemTrigger, TriggerAction]>((trigger: ItemTrigger): Option<[ItemTrigger, TriggerAction]> => map<TriggerAction, [ItemTrigger, TriggerAction]>((action_1: TriggerAction): [ItemTrigger, TriggerAction] => ([trigger, action_1] as [ItemTrigger, TriggerAction]), tryFind<TriggerAction>((action: TriggerAction): boolean => {
-        if ((action.ActionType.toLowerCase() === dto.ActionType) ? true : ((dto.ActionType === "recurring_task") && (action.ActionType.toLowerCase() === "recurring_task"))) {
-            return defaultArg(tryPick<string, int32>((key: string): Option<int32> => bind<string, int32>(tryParseInt, tryFind_1<string, string>(key, action.Params)), ofArray(["id", "category_id", "cat_id", "problem_list_id", "medset_id"])), 0) === dto.CategoryId;
-        }
-        else {
-            return false;
-        }
-    }, trigger.Actions)), triggers);
+export function NotWrittenAction_$reflection(): TypeInfo {
+    return record_type("FormSpec.Integrations.CorEMR.CoreMRTriggerEnrichment.NotWrittenAction", [], NotWrittenAction, () => [["Action", string_type], ["Reason", string_type]]);
 }
 
-function enrichDto(triggers: FSharpList<ItemTrigger>, dto: TriggerAction_1): TriggerAction_1 {
-    const matchValue: Option<[ItemTrigger, TriggerAction]> = findMatchingTriggerAction(dto, triggers);
-    if (matchValue == null) {
-        return dto;
-    }
-    else {
-        const trigger: ItemTrigger = value_1(matchValue)[0];
-        return new TriggerAction_1(dto.ActionType, trigger.TriggerId, value_1(matchValue)[1].ActionId, dto.CategoryId, dto.CategoryName, dto.Priority, dto.Description, dto.DateStart, dto.AllDay, dto.ScheduleEnd, dto.ProblemListId, map<TriggerCondition, int32>((c: TriggerCondition): int32 => c.SourceFieldId, tryHead<TriggerCondition>(trigger.Conditions)), dto.TreatmentId, dto.ScheduleId, dto.ProviderId, dto.Signature, dto.SourceRelatedId, dto.RelatedType, dto.Chronic, dto.Severity, dto.Inflammation, dto.MedsetId, dto.PharmacyId);
+export class CoreMRActionWrites extends Record implements IEquatable<CoreMRActionWrites>, IComparable<CoreMRActionWrites> {
+    readonly Written: FSharpList<TriggerAction>;
+    readonly NotWritten: FSharpList<NotWrittenAction>;
+    constructor(Written: FSharpList<TriggerAction>, NotWritten: FSharpList<NotWrittenAction>) {
+        super();
+        this.Written = Written;
+        this.NotWritten = NotWritten;
     }
 }
 
+export function CoreMRActionWrites_$reflection(): TypeInfo {
+    return record_type("FormSpec.Integrations.CorEMR.CoreMRTriggerEnrichment.CoreMRActionWrites", [], CoreMRActionWrites, () => [["Written", list_type(TriggerAction_$reflection())], ["NotWritten", list_type(NotWrittenAction_$reflection())]]);
+}
+
 /**
- * FULL CoreMR conversion: ActionInfo → TriggerActionDto with provenance enrichment.
- * 
- * THIS is the function production uses (DynamicFormPreview.fs calls this on publish).
- * DO NOT call convertActionsToBaseDtos directly for CoreMR publishing — you'll miss
- * trigger IDs from provenance.
- * 
- * What it does:
- * 1. Converts ALL supported action types via convertActionsToBaseDtos (Task, Alert, Problem, Treatment, Medset)
- * 2. Enriches DTOs with triggerId/triggerActionId/formItemId from provenance
- * 3. Enriches problem DTOs with chronic flag from trigger params
- * 
- * If no provenance (hand-authored pathway) → returns base DTOs with zeros (safe fallback).
+ * The CoreMR write of each executed pathway action, in order: WRITTEN with the identity its origin states, or
+ * NOT WRITTEN with the reason (no CoreMR home — `convertActionToBaseDto` — or `Authored`).
+ * Production callers: f1-api `FormSpecService` (publish-preview, filled-form export).
  */
-export function convertActionsForCoreMR(actions: FSharpList<ClinicalPathway_ActionInfo_$union>, formSpec: Spec_FormSpec$1<Spec_FieldType_$union>): FSharpList<TriggerAction_1> {
-    const baseDtos: FSharpList<TriggerAction_1> = convertActionsToBaseDtos(actions);
-    const matchValue: Option<IntegrationProvenance> = formSpec.Provenance;
-    let matchResult: int32, p_1: IntegrationProvenance;
-    if (matchValue != null) {
-        if (value_1(matchValue).Vendor === "coremr") {
-            matchResult = 0;
-            p_1 = value_1(matchValue);
-        }
-        else {
-            matchResult = 1;
-        }
-    }
-    else {
-        matchResult = 1;
-    }
-    switch (matchResult) {
-        case 0: {
-            const matchValue_1: FSharpResult$2_$union<CoreMRSourceMap, string> = fromString<CoreMRSourceMap>(uncurry2(Auto_generateBoxedDecoder_Z6670B51(CoreMRSourceMap_$reflection(), undefined, undefined)), p_1!.Payload);
-            if (matchValue_1.tag === /* Error */ 1) {
-                return baseDtos;
+export function convertActionsForCoreMR(actions: FSharpList<ClinicalPathway_PathwayAction>): CoreMRActionWrites {
+    const outcomes: FSharpList<FSharpResult$2_$union<TriggerAction, NotWrittenAction>> = map<ClinicalPathway_PathwayAction, FSharpResult$2_$union<TriggerAction, NotWrittenAction>>((pa: ClinicalPathway_PathwayAction): FSharpResult$2_$union<TriggerAction, NotWrittenAction> => {
+        const matchValue: ActionWrite_$union = convertActionToBaseDto(pa.Action);
+        if (matchValue.tag === /* Written */ 0) {
+            const dto: TriggerAction = matchValue.fields[0];
+            const matchValue_1: ClinicalPathway_ActionOrigin_$union = pa.Origin;
+            if (matchValue_1.tag === /* Authored */ 0) {
+                return FSharpResult$2_Error<TriggerAction, NotWrittenAction>(new NotWrittenAction(dto.ActionType, "hand-authored: it names no CoreMR trigger action, so CoreMR cannot record it"));
             }
             else {
-                const triggers: FSharpList<ItemTrigger> = collectTriggers(matchValue_1.fields[0]);
-                return map_1<TriggerAction_1, TriggerAction_1>((dto: TriggerAction_1): TriggerAction_1 => enrichDto(triggers, dto), baseDtos);
+                const origin: ClinicalPathway_CoreMRTriggerRef = matchValue_1.fields[0];
+                return FSharpResult$2_Ok<TriggerAction, NotWrittenAction>(new TriggerAction(dto.ActionType, origin.TriggerId, origin.ActionId, dto.CategoryId, dto.CategoryName, dto.Priority, dto.Description, dto.DateStart, dto.AllDay, dto.ScheduleEnd, dto.ProblemListId, origin.SourceItem, dto.TreatmentId, dto.ScheduleId, dto.ProviderId, dto.Signature, dto.SourceRelatedId, dto.RelatedType, dto.Chronic, dto.Severity, dto.Inflammation, dto.MedsetId, dto.PharmacyId));
             }
         }
-        default:
-            return baseDtos;
-    }
+        else {
+            return FSharpResult$2_Error<TriggerAction, NotWrittenAction>(new NotWrittenAction(matchValue.fields[0], matchValue.fields[1]));
+        }
+    }, actions);
+    return new CoreMRActionWrites(choose<FSharpResult$2_$union<TriggerAction, NotWrittenAction>, TriggerAction>((_arg: FSharpResult$2_$union<TriggerAction, NotWrittenAction>): Option<TriggerAction> => {
+        if (_arg.tag === /* Error */ 1) {
+            return undefined;
+        }
+        else {
+            return _arg.fields[0];
+        }
+    }, outcomes), choose<FSharpResult$2_$union<TriggerAction, NotWrittenAction>, NotWrittenAction>((_arg_1: FSharpResult$2_$union<TriggerAction, NotWrittenAction>): Option<NotWrittenAction> => {
+        if (_arg_1.tag === /* Ok */ 0) {
+            return undefined;
+        }
+        else {
+            return _arg_1.fields[0];
+        }
+    }, outcomes));
 }
 
 //# sourceMappingURL=CoreMRTriggerEnrichment.ts.map