[Feature] Completion reports - DO NOT MERGE

server/elm/src/App/Fetch.elm

@@ -2,6 +2,7 @@ module App.Fetch exposing (fetch)
 
 import App.Model exposing (..)
 import App.Types exposing (Page(..))
+import Pages.Completion.Fetch
 import Pages.Reports.Fetch
 import Pages.Scoreboard.Fetch
 
@@ -39,5 +40,12 @@ fetch model =
             Pages.Reports.Fetch.fetch model.backend model.reportsPage
                 |> List.map (\subMsg -> MsgBackend subMsg)
 
+        CompletionMenu ->
+            []
+
+        Completion ->
+            Pages.Completion.Fetch.fetch model.backend model.completionPage
+                |> List.map (\subMsg -> MsgBackend subMsg)
+
         NotFound ->
             []

server/elm/src/App/Model.elm

@@ -10,6 +10,8 @@ import App.Types exposing (Language(..), Page(..))
 import Backend.Model
 import Error.Model exposing (Error)
 import Json.Decode exposing (Value)
+import Pages.Completion.Model
+import Pages.CompletionMenu.Model
 import Pages.Reports.Model
 import Pages.ReportsMenu.Model
 import Pages.Scoreboard.Model
@@ -31,6 +33,8 @@ type Msg
     | MsgScoreboardPage Pages.Scoreboard.Model.Msg
     | MsgReportsMenuPage Pages.ReportsMenu.Model.Msg
     | MsgReportsPage Pages.Reports.Model.Msg
+    | MsgCompletionMenuPage Pages.CompletionMenu.Model.Msg
+    | MsgCompletionPage Pages.Completion.Model.Msg
     | SetCurrentTime Time.Posix
 
 
@@ -53,6 +57,8 @@ type alias Model =
     , scoreboardPage : Pages.Scoreboard.Model.Model
     , reportsMenuPage : Pages.ReportsMenu.Model.Model
     , reportsPage : Pages.Reports.Model.Model
+    , completionMenuPage : Pages.CompletionMenu.Model.Model
+    , completionPage : Pages.Completion.Model.Model
     }
 
 
@@ -68,4 +74,6 @@ emptyModel =
     , scoreboardPage = Pages.Scoreboard.Model.emptyModel
     , reportsMenuPage = Pages.ReportsMenu.Model.emptyModel
     , reportsPage = Pages.Reports.Model.emptyModel
+    , completionMenuPage = Pages.CompletionMenu.Model.emptyModel
+    , completionPage = Pages.Completion.Model.emptyModel
     }

server/elm/src/App/Types.elm

@@ -6,10 +6,12 @@ module App.Types exposing
 
 
 type Page
-    = ScoreboardMenu
-    | Scoreboard
+    = CompletionMenu
+    | Completion
     | ReportsMenu
     | Reports
+    | ScoreboardMenu
+    | Scoreboard
     | NotFound
 
 

server/elm/src/App/Update.elm

@@ -8,13 +8,17 @@ import App.Fetch exposing (fetch)
 import App.Model exposing (..)
 import App.Types exposing (Page(..))
 import App.Utils exposing (updateSubModel)
+import Backend.Completion.Model
+import Backend.CompletionMenu.Model
 import Backend.Model
 import Backend.Reports.Model
 import Backend.ReportsMenu.Model
 import Backend.Scoreboard.Model
 import Backend.ScoreboardMenu.Model
 import Backend.Update
 import Gizra.NominalDate exposing (fromLocalDateTime)
+import Pages.Completion.Update
+import Pages.CompletionMenu.Update
 import Pages.Reports.Update
 import Pages.ReportsMenu.Update
 import Pages.Scoreboard.Update
@@ -70,6 +74,24 @@ init flags =
                         model
                         |> Tuple.first
 
+                CompletionMenu ->
+                    update
+                        (Backend.CompletionMenu.Model.SetData flags.appData
+                            |> Backend.Model.MsgCompletionMenu
+                            |> MsgBackend
+                        )
+                        model
+                        |> Tuple.first
+
+                Completion ->
+                    update
+                        (Backend.Completion.Model.SetData flags.appData
+                            |> Backend.Model.MsgCompletion
+                            |> MsgBackend
+                        )
+                        model
+                        |> Tuple.first
+
                 NotFound ->
                     model
 
@@ -100,6 +122,12 @@ resolveActivePage page =
         "reports-results" ->
             Reports
 
+        "completion-menu" ->
+            CompletionMenu
+
+        "completion-results" ->
+            Completion
+
         _ ->
             NotFound
 
@@ -162,6 +190,30 @@ update msg model =
                 (\subCmds -> MsgReportsPage subCmds)
                 model
 
+        MsgCompletionMenuPage subMsg ->
+            updateSubModel
+                subMsg
+                model.completionMenuPage
+                (\subMsg_ subModel -> Pages.CompletionMenu.Update.update subMsg_ subModel)
+                (\subModel model_ -> { model_ | completionMenuPage = subModel })
+                (\subCmds -> MsgCompletionMenuPage subCmds)
+                model
+
+        MsgCompletionPage subMsg ->
+            updateSubModel
+                subMsg
+                model.completionPage
+                (\subMsg_ subModel ->
+                    Pages.Completion.Update.update
+                        (fromLocalDateTime model.currentTime)
+                        model.backend
+                        subMsg_
+                        subModel
+                )
+                (\subModel model_ -> { model_ | completionPage = subModel })
+                (\subCmds -> MsgCompletionPage subCmds)
+                model
+
         SetCurrentTime date ->
             ( { model | currentTime = date }
             , Cmd.none

server/elm/src/App/View.elm

@@ -5,6 +5,8 @@ import App.Types exposing (Page(..))
 import Error.View
 import Gizra.NominalDate exposing (fromLocalDateTime)
 import Html exposing (..)
+import Pages.Completion.View
+import Pages.CompletionMenu.View
 import Pages.Reports.View
 import Pages.ReportsMenu.View
 import Pages.Scoreboard.View
@@ -58,6 +60,29 @@ view model =
                         model.reportsPage
                 ]
 
+        CompletionMenu ->
+            div []
+                [ Error.View.view model.language model.errors
+                , Html.map MsgCompletionMenuPage <|
+                    Pages.CompletionMenu.View.view
+                        model.language
+                        model.themePath
+                        model.backend
+                        model.completionMenuPage
+                ]
+
+        Completion ->
+            div []
+                [ Error.View.view model.language model.errors
+                , Html.map MsgCompletionPage <|
+                    Pages.Completion.View.view
+                        model.language
+                        (fromLocalDateTime model.currentTime)
+                        model.themePath
+                        model.backend
+                        model.completionPage
+                ]
+
         NotFound ->
             div []
                 [ text "Wrong page?" ]

server/elm/src/Backend/Completion/Decoder.elm

@@ -0,0 +1,70 @@
+module Backend.Completion.Decoder exposing (decodeCompletionData)
+
+import AssocList as Dict
+import Backend.Completion.Model exposing (..)
+import Backend.Completion.Utils exposing (..)
+import Backend.Decoder exposing (decodeSite, decodeWithFallback)
+import Date
+import EverySet exposing (EverySet)
+import Gizra.Json exposing (decodeFloat, decodeInt)
+import Gizra.NominalDate exposing (NominalDate, decodeYYYYMMDD, diffMonths)
+import Json.Decode exposing (Decoder, andThen, bool, fail, list, map, maybe, nullable, oneOf, string, succeed)
+import Json.Decode.Pipeline exposing (optional, optionalAt, required)
+import Maybe.Extra exposing (isNothing)
+
+
+decodeCompletionData : Decoder CompletionData
+decodeCompletionData =
+    succeed CompletionData
+        |> required "site" decodeSite
+        |> required "entity_name" string
+        |> required "entity_type" decodeSelectedEntity
+        |> required "results" (list (decodeEncounterData decodeNutritionActivities))
+
+
+decodeSelectedEntity : Decoder SelectedEntity
+decodeSelectedEntity =
+    string
+        |> andThen
+            (\entityType ->
+                case entityType of
+                    "global" ->
+                        succeed EntityGlobal
+
+                    "health-center" ->
+                        succeed EntityHealthCenter
+
+                    _ ->
+                        fail <| entityType ++ " is unknown SelectedEntity type"
+            )
+
+
+decodeEncounterData : Decoder (List activity) -> Decoder (EncounterData activity)
+decodeEncounterData activitiesDecoder =
+    succeed EncounterData
+        |> required "start_date" decodeYYYYMMDD
+        |> required "expected" activitiesDecoder
+        |> required "completed" activitiesDecoder
+        |> required "taken_by" (nullable (decodeWithFallback TakenByUnknown decodeTakenBy))
+
+
+decodeNutritionActivities : Decoder (List NutritionActivity)
+decodeNutritionActivities =
+    string
+        |> andThen
+            (String.split ","
+                >> List.map nutritionActivityFromMapping
+                >> Maybe.Extra.values
+                >> succeed
+            )
+
+
+decodeTakenBy : Decoder TakenBy
+decodeTakenBy =
+    string
+        |> andThen
+            (\takenBy ->
+                takenByFromString takenBy
+                    |> Maybe.map succeed
+                    |> Maybe.withDefault (fail <| takenBy ++ " is unknown TakenBy type")
+            )

server/elm/src/Backend/Completion/Model.elm

@@ -0,0 +1,51 @@
+module Backend.Completion.Model exposing (..)
+
+import App.Types exposing (Site)
+import AssocList as Dict exposing (Dict)
+import EverySet exposing (EverySet)
+import Gizra.NominalDate exposing (NominalDate)
+import Json.Encode exposing (Value)
+
+
+type alias CompletionData =
+    { site : Site
+    , entityName : String
+    , entityType : SelectedEntity
+    , nutritionIndividualData : List (EncounterData NutritionActivity)
+    }
+
+
+type SelectedEntity
+    = EntityGlobal
+    | EntityHealthCenter
+
+
+type alias EncounterData activity =
+    { startDate : NominalDate
+    , expectedActivities : List activity
+    , completedActivities : List activity
+    , takenBy : Maybe TakenBy
+    }
+
+
+type NutritionActivity
+    = NutritionHeight
+    | NutritionNutrition
+    | NutritionPhoto
+    | NutritionWeight
+    | NutritionMUAC
+    | NutritionContributingFactors
+    | NutritionFollowUp
+    | NutritionHealthEducation
+    | NutritionSendToHC
+    | NutritionNCDA
+
+
+type TakenBy
+    = TakenByNurse
+    | TakenByCHW
+    | TakenByUnknown
+
+
+type Msg
+    = SetData Value

server/elm/src/Backend/Completion/Update.elm

@@ -0,0 +1,24 @@
+module Backend.Completion.Update exposing (update)
+
+import Backend.Completion.Decoder exposing (decodeCompletionData)
+import Backend.Completion.Model exposing (Msg(..))
+import Backend.Model exposing (ModelBackend)
+import Backend.Types exposing (BackendReturn)
+import Error.Utils exposing (noError)
+import Gizra.NominalDate exposing (NominalDate)
+import Json.Decode exposing (decodeValue)
+
+
+update : NominalDate -> Msg -> ModelBackend -> BackendReturn Msg
+update currentDate msg model =
+    case msg of
+        SetData value ->
+            let
+                modelUpdated =
+                    { model | completionData = Just <| decodeValue decodeCompletionData value }
+            in
+            BackendReturn
+                modelUpdated
+                Cmd.none
+                noError
+                []