Fix Discordant Couple status logic

TIP-Global-Health · Oct 21, 2024 · 7b6dac9 · 7b6dac9
1 parent added61
commit 7b6dac9
Showing 1 changed file with 23 additions and 9 deletions.
diff --git a/client/src/elm/Pages/Prenatal/ProgressReport/View.elm b/client/src/elm/Pages/Prenatal/ProgressReport/View.elm
@@ -933,17 +933,31 @@ viewMedicalDiagnosisPane language currentDate isChw firstNurseEncounterMeasureme
                             in
                             if patientHIVNegative then
                                 getMeasurementValueFunc encounterData.measurements.partnerHIVTest
-                                    |> Maybe.andThen .hivSigns
-                                    |> Maybe.map
-                                        (\hivSigns ->
+                                    |> Maybe.andThen
+                                        (\value ->
                                             let
-                                                takingARV =
-                                                    EverySet.member PartnerTakingARV hivSigns
-
-                                                surpressedViralLoad =
-                                                    EverySet.member PartnerSurpressedViralLoad hivSigns
+                                                partnerHIVPositive =
+                                                    (value.executionNote == TestNoteKnownAsPositive)
+                                                        || (List.member value.executionNote [ TestNoteRunToday, TestNoteRunPreviously ]
+                                                                && (value.testResult == Just TestPositive)
+                                                           )
                                             in
-                                            Translate.DiscordantCoupleStatus takingARV surpressedViralLoad
+                                            if partnerHIVPositive then
+                                                Maybe.map
+                                                    (\hivSigns ->
+                                                        let
+                                                            takingARV =
+                                                                EverySet.member PartnerTakingARV hivSigns
+
+                                                            surpressedViralLoad =
+                                                                EverySet.member PartnerSurpressedViralLoad hivSigns
+                                                        in
+                                                        Translate.DiscordantCoupleStatus takingARV surpressedViralLoad
+                                                    )
+                                                    value.hivSigns
+
+                                            else
+                                                Nothing
                                         )
 
                             else