@f1studio/form-spec 5.0.0-alpha.101

package/src/PathwayDataExtractor.ts

@@ -0,0 +1,290 @@
+import { ClinicalPathway_TerminalInfo, Shared_StateKey, ClinicalPathway_StateType_$union, ClinicalPathway_EvaluationInfo, ClinicalPathway_DecisionInfo, ClinicalPathway_ActionInfo_$union, ClinicalPathway_MedicationAction, ClinicalPathway_FieldValueSource_$union, ClinicalPathway_SetFieldValueAction, ClinicalPathway_NavigateToFormAction, ClinicalPathway_PrescriptionAction, ClinicalPathway_ProblemAction, ClinicalPathway_AlertAction, ClinicalPathway_TaskAction, ClinicalPathway_DocumentationAction, ClinicalPathway_ReferralAction, ClinicalPathway_TestAction, ClinicalPathway_EducationAction, ClinicalPathway_ProcedureAction } from "./FormSpec.js";
+import { split, replace, join, isNullOrWhiteSpace, substring, printf, toText } from "@fable-org/fable-library-js/String.js";
+import { singleton, append, map, empty, FSharpList, filter } from "@fable-org/fable-library-js/List.js";
+import { Option, value } from "@fable-org/fable-library-js/Option.js";
+import { item, map as map_1 } from "@fable-org/fable-library-js/Array.js";
+import { int32 } from "@fable-org/fable-library-js/Int32.js";
+
+export function extractActionText(action: ClinicalPathway_ActionInfo_$union): string {
+    switch (action.tag) {
+        case /* Procedure */ 4: {
+            const p: ClinicalPathway_ProcedureAction = action.fields[0];
+            return toText(printf("Procedure: %s"))(p.Name);
+        }
+        case /* Education */ 3: {
+            const e: ClinicalPathway_EducationAction = action.fields[0];
+            return "Education";
+        }
+        case /* Test */ 1: {
+            const t: ClinicalPathway_TestAction = action.fields[0];
+            return toText(printf("Test: %s"))(t.TestName);
+        }
+        case /* Referral */ 2: {
+            const r: ClinicalPathway_ReferralAction = action.fields[0];
+            return toText(printf("Refer to %s"))(r.Target);
+        }
+        case /* Documentation */ 5: {
+            const d: ClinicalPathway_DocumentationAction = action.fields[0];
+            return toText(printf("Document: %s"))(d.FormName);
+        }
+        case /* Task */ 6: {
+            const t_1: ClinicalPathway_TaskAction = action.fields[0];
+            return toText(printf("Task: %s"))(t_1.Description);
+        }
+        case /* Alert */ 7: {
+            const a: ClinicalPathway_AlertAction = action.fields[0];
+            return toText(printf("Alert: %s"))(a.Message);
+        }
+        case /* Problem */ 8: {
+            const p_1: ClinicalPathway_ProblemAction = action.fields[0];
+            return toText(printf("Problem: %s"))(p_1.ProblemName);
+        }
+        case /* Prescription */ 9: {
+            const p_2: ClinicalPathway_PrescriptionAction = action.fields[0];
+            return toText(printf("Prescription: %s"))(p_2.Medication);
+        }
+        case /* NavigateToForm */ 11: {
+            const n: ClinicalPathway_NavigateToFormAction = action.fields[0];
+            return toText(printf("Navigate to: %s"))(n.FormId);
+        }
+        case /* SetFieldValue */ 10: {
+            const s: ClinicalPathway_SetFieldValueAction = action.fields[0];
+            const fieldGuid: string = s.TargetField.fields[0];
+            const shortGuid: string = (fieldGuid.length > 8) ? (substring(fieldGuid, 0, 8) + "...") : fieldGuid;
+            let valueText: string;
+            const matchValue: ClinicalPathway_FieldValueSource_$union = s.Value;
+            switch (matchValue.tag) {
+                case /* FieldReference */ 1: {
+                    const g: string = matchValue.fields[0].fields[0];
+                    valueText = "from field";
+                    break;
+                }
+                case /* OptionKey */ 2: {
+                    const g_1: string = matchValue.fields[0].fields[0];
+                    valueText = "option";
+                    break;
+                }
+                default: {
+                    const v: string = matchValue.fields[0];
+                    valueText = (isNullOrWhiteSpace(v) ? "(empty)" : v);
+                }
+            }
+            return toText(printf("Set Field: %s = %s"))(shortGuid)(valueText);
+        }
+        default: {
+            const m: ClinicalPathway_MedicationAction = action.fields[0];
+            return toText(printf("Rx: %s"))(m.Name);
+        }
+    }
+}
+
+export function extractActionDetails(action: ClinicalPathway_ActionInfo_$union): string {
+    switch (action.tag) {
+        case /* Procedure */ 4:
+            return action.fields[0].Name;
+        case /* Education */ 3:
+            return join("; ", action.fields[0].Topics);
+        case /* Test */ 1: {
+            const t: ClinicalPathway_TestAction = action.fields[0];
+            return toText(printf("Test: %s"))(t.TestName);
+        }
+        case /* Referral */ 2: {
+            const r: ClinicalPathway_ReferralAction = action.fields[0];
+            return toText(printf("Refer to %s (%s)"))(r.Target)(r.Reason);
+        }
+        case /* Documentation */ 5: {
+            const d: ClinicalPathway_DocumentationAction = action.fields[0];
+            return toText(printf("Document: %s"))(d.FormName);
+        }
+        case /* Task */ 6: {
+            const t_1: ClinicalPathway_TaskAction = action.fields[0];
+            return toText(printf("Task: %s"))(t_1.Description);
+        }
+        case /* Alert */ 7: {
+            const a: ClinicalPathway_AlertAction = action.fields[0];
+            return toText(printf("Alert: %s"))(a.Message);
+        }
+        case /* Problem */ 8: {
+            const p_1: ClinicalPathway_ProblemAction = action.fields[0];
+            return toText(printf("Problem: %s"))(p_1.ProblemName);
+        }
+        case /* Prescription */ 9: {
+            const p_2: ClinicalPathway_PrescriptionAction = action.fields[0];
+            return toText(printf("Prescription: %s"))(p_2.Medication);
+        }
+        case /* NavigateToForm */ 11: {
+            const n: ClinicalPathway_NavigateToFormAction = action.fields[0];
+            return toText(printf("Navigate to: %s"))(n.FormId);
+        }
+        case /* SetFieldValue */ 10: {
+            const s: ClinicalPathway_SetFieldValueAction = action.fields[0];
+            const guid: string = s.TargetField.fields[0];
+            let valueText: string;
+            const matchValue: ClinicalPathway_FieldValueSource_$union = s.Value;
+            switch (matchValue.tag) {
+                case /* FieldReference */ 1: {
+                    valueText = (`from ${matchValue.fields[0].fields[0]}`);
+                    break;
+                }
+                case /* OptionKey */ 2: {
+                    valueText = (`option ${matchValue.fields[0].fields[0]}`);
+                    break;
+                }
+                default: {
+                    const v: string = matchValue.fields[0];
+                    valueText = (isNullOrWhiteSpace(v) ? "(empty)" : v);
+                }
+            }
+            return toText(printf("Set Field %s = %s"))(guid)(valueText);
+        }
+        default: {
+            const m: ClinicalPathway_MedicationAction = action.fields[0];
+            return toText(printf("%s %s %s %s"))(m.Name)(m.Dose)(m.Route)(m.Frequency);
+        }
+    }
+}
+
+export function extractActionType(action: ClinicalPathway_ActionInfo_$union): string {
+    switch (action.tag) {
+        case /* Procedure */ 4:
+            return "Procedure";
+        case /* Education */ 3:
+            return "Education";
+        case /* Test */ 1:
+            return "Test";
+        case /* Referral */ 2:
+            return "Referral";
+        case /* Documentation */ 5:
+            return "Documentation";
+        case /* Task */ 6:
+            return "Task";
+        case /* Alert */ 7:
+            return "Alert";
+        case /* Problem */ 8:
+            return "Problem";
+        case /* Prescription */ 9:
+            return "Prescription";
+        case /* SetFieldValue */ 10:
+            return "SetFieldValue";
+        case /* NavigateToForm */ 11:
+            return "NavigateToForm";
+        default:
+            return "Medication";
+    }
+}
+
+export function extractDecisionDetails(decision: ClinicalPathway_DecisionInfo): [string, FSharpList<string>] {
+    return [decision.Question, filter<string>((opt: string): boolean => {
+        if ((opt !== "Yes") && (opt !== "No")) {
+            return opt !== "None of the above";
+        }
+        else {
+            return false;
+        }
+    }, decision.Options)] as [string, FSharpList<string>];
+}
+
+export function extractEvaluationDetails(evaluation: ClinicalPathway_EvaluationInfo): [string, FSharpList<string>] {
+    let matchValue: Option<FSharpList<string>>;
+    return [evaluation.EvaluationName, (matchValue = evaluation.CriticalFindings, (matchValue == null) ? empty<string>() : value(matchValue))] as [string, FSharpList<string>];
+}
+
+export function extractEvaluationName(evaluation: ClinicalPathway_EvaluationInfo): string {
+    return evaluation.EvaluationName;
+}
+
+export function stateTypeToString(stateType: ClinicalPathway_StateType_$union): string {
+    switch (stateType.tag) {
+        case /* Decision */ 1:
+            return "Decision";
+        case /* Action */ 2:
+            return "Action";
+        case /* CompoundAction */ 3:
+            return "CompoundAction";
+        case /* ConditionalAction */ 4:
+            return "ConditionalAction";
+        case /* Terminal */ 5:
+            return "Terminal";
+        default:
+            return "Evaluation";
+    }
+}
+
+export function isTerminalState(stateType: ClinicalPathway_StateType_$union): boolean {
+    if (stateType.tag === /* Terminal */ 5) {
+        return true;
+    }
+    else {
+        return false;
+    }
+}
+
+export function extractCompoundActionTexts(actions: FSharpList<ClinicalPathway_ActionInfo_$union>): FSharpList<string> {
+    return map<ClinicalPathway_ActionInfo_$union, string>(extractActionText, actions);
+}
+
+export function extractCompoundActionDetails(actions: FSharpList<ClinicalPathway_ActionInfo_$union>): FSharpList<string> {
+    return map<ClinicalPathway_ActionInfo_$union, string>(extractActionDetails, actions);
+}
+
+export function sanitizeMermaidId(id: string): string {
+    return replace(replace(replace(id, "-", "_"), " ", "_"), ".", "_");
+}
+
+export function sanitizeMermaidText(text: string): string {
+    return replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(text, "\"", "\'"), "(", "-"), ")", "-"), "{", "-"), "}", "-"), "<", "-"), ">", "-"), "|", "/"), "`", "\'"), "\n", " "), "\r", " "), "  ", " ");
+}
+
+export function wrapTextForReactFlow(text: string, maxWidth: int32): string {
+    if (text.length <= maxWidth) {
+        return text;
+    }
+    else {
+        const words: string[] = map_1<string, string>((word: string): string => {
+            if (text.indexOf(`${word} =`) >= 0) {
+                return `${word} =`;
+            }
+            else if (text.indexOf(`${word},`) >= 0) {
+                return `${word},`;
+            }
+            else if (text.indexOf(`${word};`) >= 0) {
+                return `${word};`;
+            }
+            else if (text.indexOf(`${word}:`) >= 0) {
+                return `${word}:`;
+            }
+            else {
+                return word;
+            }
+        }, split(text, [" ", ",", ";", "=", ":"], undefined, 1));
+        let lines: FSharpList<string> = empty<string>();
+        let currentLine = "";
+        for (let idx = 0; idx <= (words.length - 1); idx++) {
+            const word_1: string = item(idx, words);
+            if (currentLine === "") {
+                currentLine = word_1;
+            }
+            else if (((currentLine + " ") + word_1).length <= maxWidth) {
+                currentLine = ((currentLine + " ") + word_1);
+            }
+            else {
+                lines = append(lines, singleton(currentLine));
+                currentLine = word_1;
+            }
+        }
+        if (currentLine !== "") {
+            lines = append(lines, singleton(currentLine));
+        }
+        return join("\n", lines);
+    }
+}
+
+export function extractStateKeyString(stateKey: Shared_StateKey): string {
+    return stateKey.fields[0];
+}
+
+export function getTerminalOutcome(terminal: ClinicalPathway_TerminalInfo): string {
+    return terminal.Outcome;
+}
+
+//# sourceMappingURL=PathwayDataExtractor.ts.map

package/src/PathwayDataExtractor.ts.map

@@ -0,0 +1 @@
+{"version":3,"sources":["../FormSpec.FS/PathwayDataExtractor.fs"],"names":["action","p","e","t","r","d","a","n","s","fieldGuid","shortGuid","valueText","matchValue","g","v","m","guid","decision","opt","evaluation","stateType","extractActionText","actions","extractActionDetails","id","text","maxWidth","words","word","lines","currentLine","idx","stateKey","terminal"],"mappings":";;;;;;;;YAcUA;;AAEMC,uDAAK,AAAAD;AAAA,mBAAA,OAAQ,OAAA,kBAAgB,AAAAC;;;AAC7BC,uDAAK,AAAAF;mBAAA;;;AACVG,kDAAK,AAAAH;AAAA,mBAAA,OAAQ,OAAA,aAAW,AAAAG;;;AACpBC,sDAAK,AAAAJ;AAAA,mBAAA,OAAQ,OAAA,gBAAc,AAAAI;;;AACtBC,2DAAK,AAAAL;AAAA,mBAAA,OAAQ,OAAA,iBAAe,AAAAK;;;AACrCF,oDAAK,AAAAH;AAAA,mBAAA,OAAQ,OAAA,aAAW,AAAAG;;;AACvBG,mDAAK,AAAAN;AAAA,mBAAA,OAAQ,OAAA,cAAY,AAAAM;;;AACvBL,uDAAK,AAAAD;AAAA,mBAAA,OAAQ,OAAA,gBAAc,AAAAC;;;AACtBA,4DAAK,AAAAD;AAAA,mBAAA,OAAQ,OAAA,qBAAmB,AAAAC;;;AAC9BM,4DAAK,AAAAP;AAAA,mBAAA,OAAQ,OAAA,oBAAkB,AAAAO;;;AAChCC,2DACR,AAAAR;AAAAS,sCAAgB,AAAyB,AAAAD;AACzCE,sCAAY,CAAG,AAAAD,mBAAmB,MAAO,UAAAA,WAAoB,GAAG,KAAK,SAAWA;AAChFE;AACMC,wEAAA,AAAAJ;oBAAAI;;AAEuDC,sCAAjB,AAAAD;AAH5CD,gCAGwE;;;;AACVE,wCAAvB,AAAAD;AAJvCD,gCAIyE;;;;AAFzCG,sCAAK,AAAAF;AAAA,AAFrCD,iCAEqC,AAAG,mBAA0BG,KAAQ,YAAeA;;;AAG7F,mBAAA,OAAQ,OAAA,uBAAqBJ,WAAUC;;;AAnB9BI,wDAAK,AAAAf;AAAA,mBAAA,OAAQ,OAAA,WAAS,AAAAe;;;;;;YAuB7Bf;;AAEW,mBAAA,AAAAA;;AACY,mBAAA,KAAc,MAA1B,AAAAA;;AACVG,kDAAK,AAAAH;AAAA,mBAAA,OAAQ,OAAA,aAAW,AAAAG;;;AACpBC,sDAAK,AAAAJ;AAAA,mBAAA,OAAQ,OAAA,qBAAmB,AAAAI,UAAS,AAAAA;;;AACpCC,2DAAK,AAAAL;AAAA,mBAAA,OAAQ,OAAA,iBAAe,AAAAK;;;AACrCF,oDAAK,AAAAH;AAAA,mBAAA,OAAQ,OAAA,aAAW,AAAAG;;;AACvBG,mDAAK,AAAAN;AAAA,mBAAA,OAAQ,OAAA,cAAY,AAAAM;;;AACvBL,uDAAK,AAAAD;AAAA,mBAAA,OAAQ,OAAA,gBAAc,AAAAC;;;AACtBA,4DAAK,AAAAD;AAAA,mBAAA,OAAQ,OAAA,qBAAmB,AAAAC;;;AAC9BM,4DAAK,AAAAP;AAAA,mBAAA,OAAQ,OAAA,oBAAkB,AAAAO;;;AAChCC,2DACR,AAAAR;AAAiBgB,iCAAjB,AAAyB,AAAAR;AACzBG;AACMC,wEAAA,AAAAJ;oBAAAI;;AADND,iCAGwE,QAA5B,AAAAC;;;;AAH5CD,iCAIyE,UAAlC,AAAAC;;;;AAFPE,sCAAK,AAAAF;AAAA,AAFrCD,iCAEqC,AAAG,mBAA0BG,KAAQ,YAAeA;;;AAG7F,mBAAA,OAAQ,OAAA,sBAAqBE,MAAiBL;;;AAlBrCI,wDAAK,AAAAf;AAAA,mBAAA,OAAQ,OAAA,gBAAc,AAAAe,QAAO,AAAAA,QAAO,AAAAA,SAAQ,AAAAA;;;;;;YAsBxDf;;mBAEW;;mBACA;;mBACL;;mBACI;;mBACK;;mBACT;;mBACC;;mBACE;;mBACK;;mBACC;;mBACC;;mBAXJ;;;;;YAeH,AAAAiB,mBAGR;AAAwB,YAAA,CAAA,AAAAC,QAAO,WAAS,AAAAA,QAAO;AAAQ,mBAAA,AAAAA,QAAO;;;mBAAtC;;OAD3B,AAAAD;;;;QAQML;YAFC,AAAAO,4BAEDP,aAAA,AAAAO,6BAAA,CAAA,AAAAP,sBAEI,wBADSA;;;;WAMvB,AAAAO;;;;YAIMC;;mBAEU;;mBACF;;mBACQ;;mBACG;;mBACT;;mBALE;;;;;AASZ,QAAA,AAAAA;eACU;;;eACT;;;;;WAII,\u002BCAASC,mBAApBC;;;;WAIW,\u002BCAASC,sBAApBD;;;;WAIA,QAAA,QAAA,QAAAE,IAAW,KAAK,MAAa,KAAK,MAAa,KAAK;;;;WAKpD,QAAA,QAAA,QAAA,QAAA,QAAA,QAAA,QAAA,QAAA,QAAA,QAAA,QAAA,QAAAC,MAEa,MAAM,OAEN,KAAK,MACL,KAAK,MAEL,KAAK,MACL,KAAK,MAEL,KAAK,MACL,KAAK,MAEL,KAAK,MAEL,KAAK,OAEL,MAAM,MACN,MAAM,MAEN,MAAM;;;;AAKnB,QAAG,AAAAA,eAAeC;eACdD;;;AAGIE,gCAEG;AAEC,gBAAG,AAAAF,aAAc,GAAGG;uBAAe,GAAGA;;iBACtC,IAAK,AAAAH,aAAc,GAAGG;uBAAc,GAAGA;;iBACvC,IAAK,AAAAH,aAAc,GAAGG;uBAAc,GAAGA;;iBACvC,IAAK,AAAAH,aAAc,GAAGG;uBAAc,GAAGA;;;uBAClCA;;WAPT,MAAAH,OAAa,KAAK,KAAK,KAAK,KAAK,iBAAO;AAUhCI,wCAAQ;AACRC,0BAAc;AAE1B,uBAAA,GAAIC,QAAJ,AAAYJ,eAAZ,IAAII;AAAAH,mCAAK,KAALG,KAAQJ;AACR,gBAAG,AAAAG,gBAAc;AACb,AAAAA,8BAAeF;;iBACnB,IAAK,CAAC,CAAA,AAAAE,cAAc,OAAMF,kBAAgBF;AACtC,AAAAI,\u002BBAAe,CAAA,AAAAA,cAAc,OAAMF;;;AAEnC,AAAAC,wBAAS,OAAAA,OAAQ,UAACC;AAClB,AAAAA,8BAAeF;;;AAEvB,YAAG,AAAAE,gBAAe;AACd,AAAAD,oBAAS,OAAAA,OAAQ,UAACC;;AAGtB,eAAA,KAAc,MAAKD;;;;;WAInB,AAAAG;;;;WAKJ,AAAAC","file":null,"sourcesContent":null,"sourceRoot":null}