From 337ce6ab7d053f760dfdd73b7deac75aea1fd494 Mon Sep 17 00:00:00 2001 From: Shivank Kacker Date: Fri, 14 Jun 2024 17:12:14 +0530 Subject: [PATCH] Added label to painscale preview (#7994) --- .../Pain/CriticalCare__PainInputModal.res | 20 +++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) diff --git a/src/Components/CriticalCareRecording/Pain/CriticalCare__PainInputModal.res b/src/Components/CriticalCareRecording/Pain/CriticalCare__PainInputModal.res index 0946e7d8163..3ee3a2d8d2a 100644 --- a/src/Components/CriticalCareRecording/Pain/CriticalCare__PainInputModal.res +++ b/src/Components/CriticalCareRecording/Pain/CriticalCare__PainInputModal.res @@ -134,8 +134,24 @@ let make = ( :
-
+
{str(Belt.Float.toString(painScale))} +
color + }, + ), + (), + )}> + {str( + switch getLabels(Belt.Float.toInt(painScale)) { + | (label, _) => label + }, + )} +
{str("Pain Scale")}
@@ -159,7 +175,7 @@ let make = ( ?