@f1studio/form-spec 5.0.0-alpha.152 → 5.0.0-alpha.155

package/src/FormSpec.FS/TriggerActionDto.ts

@@ -0,0 +1,135 @@
+import { Record } from "@fable-org/fable-library-js/Types.js";
+import { int32 } from "@fable-org/fable-library-js/Int32.js";
+import { map, value, Option } from "@fable-org/fable-library-js/Option.js";
+import { IComparable, IEquatable } from "@fable-org/fable-library-js/Util.js";
+import { record_type, bool_type, option_type, int32_type, string_type, TypeInfo } from "@fable-org/fable-library-js/Reflection.js";
+import { ClinicalPathway_ActionInfo_$union, ClinicalPathway_ProblemAction, ClinicalPathway_AlertAction, ClinicalPathway_RecurrencePattern, ClinicalPathway_RecurrenceEnd_$union, ClinicalPathway_TaskAction, ClinicalPathway_DueDate_$union, ClinicalPathway_TaskPriority_$union } from "./FormSpec.js";
+import { fromDateTimeOffset, today, addDays, toString } from "@fable-org/fable-library-js/Date.js";
+import { FSharpList, choose } from "@fable-org/fable-library-js/List.js";
+
+export class TriggerActionDto extends Record implements IEquatable<TriggerActionDto>, IComparable<TriggerActionDto> {
+    readonly ActionType: string;
+    readonly TriggerId: int32;
+    readonly TriggerActionId: int32;
+    readonly CategoryId: int32;
+    readonly CategoryName: string;
+    readonly Priority: Option<int32>;
+    readonly Description: Option<string>;
+    readonly DateStart: Option<string>;
+    readonly AllDay: Option<boolean>;
+    readonly ScheduleEnd: Option<string>;
+    readonly ProblemListId: Option<int32>;
+    readonly FormItemId: Option<int32>;
+    constructor(ActionType: string, TriggerId: int32, TriggerActionId: int32, CategoryId: int32, CategoryName: string, Priority: Option<int32>, Description: Option<string>, DateStart: Option<string>, AllDay: Option<boolean>, ScheduleEnd: Option<string>, ProblemListId: Option<int32>, FormItemId: Option<int32>) {
+        super();
+        this.ActionType = ActionType;
+        this.TriggerId = (TriggerId | 0);
+        this.TriggerActionId = (TriggerActionId | 0);
+        this.CategoryId = (CategoryId | 0);
+        this.CategoryName = CategoryName;
+        this.Priority = Priority;
+        this.Description = Description;
+        this.DateStart = DateStart;
+        this.AllDay = AllDay;
+        this.ScheduleEnd = ScheduleEnd;
+        this.ProblemListId = ProblemListId;
+        this.FormItemId = FormItemId;
+    }
+}
+
+export function TriggerActionDto_$reflection(): TypeInfo {
+    return record_type("F1.Studio.TriggerActions.TriggerActionDto", [], TriggerActionDto, () => [["ActionType", string_type], ["TriggerId", int32_type], ["TriggerActionId", int32_type], ["CategoryId", int32_type], ["CategoryName", string_type], ["Priority", option_type(int32_type)], ["Description", option_type(string_type)], ["DateStart", option_type(string_type)], ["AllDay", option_type(bool_type)], ["ScheduleEnd", option_type(string_type)], ["ProblemListId", option_type(int32_type)], ["FormItemId", option_type(int32_type)]]);
+}
+
+/**
+ * Convert ClinicalPathway.TaskPriority DU → CoreMR int (1=High, 2=Medium, 3=Low)
+ */
+export function convertPriority(priority: ClinicalPathway_TaskPriority_$union): int32 {
+    switch (priority.tag) {
+        case /* Medium */ 1:
+            return 2;
+        case /* Low */ 2:
+            return 3;
+        default:
+            return 1;
+    }
+}
+
+/**
+ * Convert ClinicalPathway.DueDate DU → ISO 8601 date string
+ */
+export function convertDueDate(dueDate: ClinicalPathway_DueDate_$union): string {
+    switch (dueDate.tag) {
+        case /* Tomorrow */ 1:
+            return toString(addDays(today(), 1), "o");
+        case /* DaysFromNow */ 2: {
+            const days: int32 = dueDate.fields[0] | 0;
+            return toString(addDays(today(), days), "o");
+        }
+        case /* SpecificDate */ 3:
+            return toString(fromDateTimeOffset(dueDate.fields[0], 0), "o");
+        default:
+            return toString(today(), "o");
+    }
+}
+
+function requireCategoryId(actionType: string, categoryName: string, categoryIdOpt: Option<int32>): int32 {
+    if (categoryIdOpt == null) {
+        throw new Error(`TriggerActionDto.convert: missing categoryId for actionType='${actionType}' category='${categoryName}'. CoreMR submit requires provenance category IDs.`);
+    }
+    else if (value(categoryIdOpt) > 0) {
+        const id_1: int32 = value(categoryIdOpt) | 0;
+        return id_1 | 0;
+    }
+    else {
+        const id_2: int32 = value(categoryIdOpt) | 0;
+        throw new Error(`TriggerActionDto.convert: invalid categoryId=${id_2} for actionType='${actionType}' category='${categoryName}'. categoryId must be > 0.`);
+    }
+}
+
+/**
+ * Convert a list of ClinicalPathway ActionInfo (from PathwayExecutor.ExecutedActions)
+ * into a list of TriggerActionDto ready for JSON serialization and bridge POST.
+ * 
+ * Only converts CoreMR-actionable types: Task, Alert, Problem.
+ * Skips: Medication, Education, Referral, Procedure, Documentation, Prescription,
+ * SetFieldValue, NavigateToForm (these are either Phase 2 or F1-internal).
+ * 
+ * Task with Recurrence.IsSome → ActionType = "recurring_task"
+ * Task with Recurrence.IsNone → ActionType = "task"
+ */
+export function convert(actions: FSharpList<ClinicalPathway_ActionInfo_$union>): FSharpList<TriggerActionDto> {
+    return choose<ClinicalPathway_ActionInfo_$union, TriggerActionDto>((action: ClinicalPathway_ActionInfo_$union): Option<TriggerActionDto> => {
+        switch (action.tag) {
+            case /* Task */ 6: {
+                const taskAction: ClinicalPathway_TaskAction = action.fields[0];
+                const actionType: string = (taskAction.Recurrence != null) ? "recurring_task" : "task";
+                return new TriggerActionDto(actionType, 0, 0, requireCategoryId(actionType, taskAction.Category, taskAction.CategoryId), taskAction.Category, convertPriority(taskAction.Priority), taskAction.Description, convertDueDate(taskAction.DueDate), true, map<ClinicalPathway_RecurrencePattern, string>((r: ClinicalPathway_RecurrencePattern): string => {
+                    const matchValue: ClinicalPathway_RecurrenceEnd_$union = r.Until;
+                    switch (matchValue.tag) {
+                        case /* AfterOccurrences */ 1: {
+                            const n: int32 = matchValue.fields[0] | 0;
+                            return toString(addDays(today(), n), "o");
+                        }
+                        case /* Never */ 2:
+                            return toString(addDays(today(), 7), "o");
+                        default:
+                            return toString(fromDateTimeOffset(matchValue.fields[0], 0), "o");
+                    }
+                }, taskAction.Recurrence), undefined, undefined);
+            }
+            case /* Alert */ 7: {
+                const alertAction: ClinicalPathway_AlertAction = action.fields[0];
+                return new TriggerActionDto("alert", 0, 0, requireCategoryId("alert", alertAction.Category, alertAction.CategoryId), alertAction.Category, undefined, undefined, undefined, undefined, undefined, undefined, undefined);
+            }
+            case /* Problem */ 8: {
+                const problemAction: ClinicalPathway_ProblemAction = action.fields[0];
+                return new TriggerActionDto("problem", 0, 0, requireCategoryId("problem", problemAction.ProblemName, problemAction.CategoryId), problemAction.ProblemName, undefined, undefined, undefined, undefined, undefined, undefined, undefined);
+            }
+            default:
+                return undefined;
+        }
+    }, actions);
+}
+
+//# sourceMappingURL=TriggerActionDto.ts.map

package/src/plugins/allergyfinder/src/AllergyLogic.ts

@@ -1,8 +1,8 @@
-import { FSharpRef, toString as toString_1, Record } from "@fable-org/fable-library-js/Types.js";
-import { uncurry2, int32ToString, stringHash, IComparable, IEquatable } from "@fable-org/fable-library-js/Util.js";
+import { FSharpRef, Record } from "@fable-org/fable-library-js/Types.js";
+import { uncurry2, stringHash, IComparable, IEquatable } from "@fable-org/fable-library-js/Util.js";
 import { int32_type, record_type, bool_type, array_type, string_type, TypeInfo } from "@fable-org/fable-library-js/Reflection.js";
 import { tryParse, int32 } from "@fable-org/fable-library-js/Int32.js";
-import { compare, isNullOrEmpty, isNullOrWhiteSpace } from "@fable-org/fable-library-js/String.js";
+import { compare, isNullOrWhiteSpace } from "@fable-org/fable-library-js/String.js";
 import { tryFind, append as append_1, map, contains } from "@fable-org/fable-library-js/Array.js";
 import { empty, singleton, append, delay, toArray } from "@fable-org/fable-library-js/Seq.js";
 import { fromString, IOptionalGetter, IGetters, bool, array as array_3, IRequiredGetter, string, object } from "../../../Thoth.Json/packages/Thoth.Json/Decode.js";
@@ -10,10 +10,7 @@ import { bind, map as map_1, Option, defaultArgWith, orElse, defaultArg } from "
 import { FSharpResult$2_$union } from "@fable-org/fable-library-js/Result.js";
 import { ErrorReason_$union } from "../../../Thoth.Json/packages/Thoth.Json/Types.js";
 import { newGuid } from "@fable-org/fable-library-js/Guid.js";
-import { Shared_FieldValue_PluginData, Shared_PluginDataProperty, Shared_PluginPropertyKey } from "../../../FormSpec.FS/FormSpec.js";
-import { toString, list, nil, object as object_1 } from "../../../Thoth.Json/packages/Thoth.Json/Encode.js";
-import { ofArray } from "@fable-org/fable-library-js/List.js";
-import { Convert_fieldValueToTs } from "../../../FormSpec.FS/Interop/Facade/BlueprintFilledForm.js";
+import { Shared_PluginDataProperty, Shared_PluginPropertyKey } from "../../../FormSpec.FS/FormSpec.js";
 
 export class AllergyEntryData extends Record implements IEquatable<AllergyEntryData>, IComparable<AllergyEntryData> {
     readonly Id: string;
@@ -153,21 +150,6 @@ export const PropertyKeys_HasSevereAllergy: Shared_PluginPropertyKey = new Share
 
 export const PropertyKeys_AllergiesJson: Shared_PluginPropertyKey = new Shared_PluginPropertyKey("af100003-af10-af10-af10-af10af10af10");
 
-function allergyEntryEncoder(a: AllergyEntryData): any {
-    return object_1([["Id", a.Id] as [string, any], ["Name", a.Name] as [string, any], ["SubstanceName", a.SubstanceName] as [string, any], ["NdcCode", isNullOrEmpty(a.NdcCode) ? nil : a.NdcCode] as [string, any], ["Category", a.Category] as [string, any], ["Severity", a.Severity] as [string, any], ["Reactions", list(ofArray<any>(map<string, any>((value_6: string): any => value_6, a.Reactions)))] as [string, any], ["Remedy", isNullOrEmpty(a.Remedy) ? nil : a.Remedy] as [string, any], ["OnsetTiming", isNullOrEmpty(a.OnsetTiming) ? nil : a.OnsetTiming] as [string, any], ["StaffOnly", a.StaffOnly] as [string, any], ["Notes", isNullOrEmpty(a.Notes) ? nil : a.Notes] as [string, any]]);
-}
-
-/**
- * Serialize allergy entries to the canonical TS wire format.
- * Returns the output of Convert.fieldValueToTs(FieldValue.PluginData [...]).
- * TypeScript passes this directly to onValueChange — zero ad-hoc construction.
- */
-export function serializeAllergiesToCanonical(entries: AllergyEntryData[]): any {
-    const hasSevere: boolean = entries.some((e: AllergyEntryData): boolean => isSevere(e.Severity));
-    const allergiesJson: string = toString(0, list(ofArray<any>(map<AllergyEntryData, any>(allergyEntryEncoder, entries))));
-    return Convert_fieldValueToTs(Shared_FieldValue_PluginData(ofArray([new Shared_PluginDataProperty(PropertyKeys_AllergyCount, "allergy_count", "int", int32ToString(entries.length), "Allergy Count", undefined, undefined), new Shared_PluginDataProperty(PropertyKeys_HasSevereAllergy, "has_severe_allergy", "bool", toString_1(hasSevere).toLowerCase(), "Has Severe Allergy", undefined, undefined), new Shared_PluginDataProperty(PropertyKeys_AllergiesJson, "allergies_json", "string", allergiesJson, "Allergies Data", undefined, undefined)])));
-}
-
 /**
  * Validate plugin data from the wire format.
  * Takes array (not list) of PluginDataProperty for TS interop.