Merge branch 'master' into mfm_sept_okt23

statisticsnorway · Nov 2, 2023 · beec745 · beec745
2 parents 793aea5 + 7037c44
commit beec745
Show file tree

Hide file tree

Showing 4 changed files with 67 additions and 17 deletions.
diff --git a/Droplister/Droplister_v2.py b/Droplister/Droplister_v2.py
@@ -7,9 +7,9 @@
 #       format_version: '1.5'
 #       jupytext_version: 1.15.2
 #   kernelspec:
-#     display_name: spesh
+#     display_name: stat-helse-test
 #     language: python
-#     name: spesh
+#     name: stat-helse-test
 # ---
 
 # + [markdown] toc-hr-collapsed=true
@@ -725,6 +725,7 @@ def lag_navn_orgnr_kolonner(fvdf, ant_kolonner, med_foretak = True):
     columns={"NAVN_KLASS": "FORETAKETS_NAVN"}
 )
 
+
 # +
 finne_virksomheter_df2 = pd.merge(
     SFUklass, skj46O, how="left", on=["ORGNR_FORETAK", "NAVN_KLASS", "HELSEREGION"]
@@ -742,13 +743,13 @@ def lag_navn_orgnr_kolonner(fvdf, ant_kolonner, med_foretak = True):
 
 skj46O = pd.merge(skj46O, undervirksomheter_navn_og_kolonner, how="left", on="ORGNR_FORETAK")
 
-skj46O = pd.merge(skj46O, finne_virksomheter_df, how="left", on="ORGNR_FORETAK")
+skj46O = pd.merge(skj46O, finne_virksomheter_df, how="left", on=["ORGNR_FORETAK", "NAVN_KLASS"])
 
 skj46O['USERID'] = skj46O['ORGNR_FORETAK']
 skj46O = skj46O.rename(columns={"ORGNR_FORETAK": "FORETAKETS_ORGNR",
                                 "NAVN_KLASS": "FORETAKETS_NAVN"})
-# -
 
+# +
 skj46O = pd.merge(skj46O, regionoppslag, how="left", on="HELSEREGION")
 
 skj46O = skj46O[kolonner]

diff --git a/Institusjonslister/Institusjonslister.R b/Institusjonslister/Institusjonslister.R
@@ -14,7 +14,7 @@ suppressPackageStartupMessages({
 
 # ## Angir årgang og kobler til Oracle
 
-aargang <- 2022
+aargang <- 2023
 
 # Logg på for å få tilgang til Oracle 
 con <- fellesr::dynarev_uttrekk(con_ask = "con") # fellesr::
@@ -53,14 +53,34 @@ RHF <- klassR::GetKlass(603, output_level = 2) %>%
                 RHF = NAVN) %>%
   dplyr::select(ORGNR_FORETAK, NAVN, RHF, Helseregion, Foretakstype)
 
-stotteforetak <- klassR::GetKlass(605, output_style = "wide") %>%
-  dplyr::rename(ORGNR_FORETAK = code3, 
-                NAVN = name3, 
-                RHF = name2, 
-                Helseregion = code1) %>%
-  dplyr::mutate(Foretakstype = "Støtteforetak") %>%
+# +
+RHF_region <- RHF %>%
+select(Helseregion, RHF)
+
+stotteforetak <- klassR::GetKlass(605, date = c(paste0(aargang, "-01-01"))) %>%
+  dplyr::filter(!is.na(parentCode), nchar(parentCode) <= 2) %>%
+  dplyr::rename(ORGNR_FORETAK = code,
+                NAVN = name,
+                Helseregion = parentCode) %>%
+  dplyr::mutate(Foretakstype = "Støtteforetak") %>% # OBS: legg til orgnummer?
+  dplyr::left_join(RHF_region, by = "Helseregion") %>%
+  dplyr::mutate(RHF = case_when(is.na(RHF) ~ "FELLESEIDE STØTTEFORETAK", TRUE ~ RHF)) %>%
+  dplyr::filter(!grepl("RHF", NAVN)) %>%
   dplyr::select(ORGNR_FORETAK, NAVN, RHF, Helseregion, Foretakstype)
 
+# # HELSE MIDT-NORGE RHF HELSEPLATTFORMEN
+# stotteforetak_2 <- klassR::GetKlass(605, output_style = "wide", date = c(paste0(aargang, "-01-01"))) %>%
+#   dplyr::rename(ORGNR_FORETAK = code3, 
+#                 NAVN = name3, 
+#                 RHF = name2, 
+#                 Helseregion = code1) %>%
+#   dplyr::mutate(Foretakstype = "Støtteforetak") %>%
+#   dplyr::select(ORGNR_FORETAK, NAVN, RHF, Helseregion, Foretakstype)
+
+# stotteforetak <- rbind(stotteforetak_1, stotteforetak_2)
+# stotteforetak
+# -
+
 offentlig <- rbind(HF, RHF, stotteforetak)
 
 oppdrag <- klassR::GetKlass(604, output_style = "wide") %>%
@@ -89,6 +109,9 @@ delreg <- fellesr::dynarev_uttrekk(delregnr = c(paste0(24, substr(aargang, 3, 4)
                                    sfu_cols = T, 
                                    con_ask = F)
 
+delreg %>%
+filter(ORGNR == "918098275")
+
 delreg <- delreg %>%
   dplyr::filter(is.na(KVITT_TYPE)) %>%
   dplyr::filter(!is.na(ORGNR)) %>%
@@ -135,9 +158,15 @@ offentlig <- offentlig %>%
 delreg$ORGNR_FORETAK <- as.character(delreg$ORGNR_FORETAK)
 delreg_offentlig <- dplyr::inner_join(offentlig, delreg, by = c("ORGNR_FORETAK"))
 
+# +
+# delreg_offentlig %>%
+# filter(ORGNR_FORETAK == "983658776")
+# -
+
 delreg_offentlig_test <- delreg_offentlig %>%
   dplyr::select(Foretakstype, Helseregion, RHF, ORGNR_FORETAK, H_VAR1_A, ORGNR, NAVN, NYTT_NAVN,
-                SKJEMA_TYPE, SN07_1, SN07_1_navn, F_POSTNR, F_POSTSTED) %>%
+                # SKJEMA_TYPE, 
+                SN07_1, SN07_1_navn, F_POSTNR, F_POSTSTED) %>%
   dplyr::rename(Foretakstype = Foretakstype,
                 Helseregion = Helseregion,
                 Helseregion_navn = RHF,
@@ -146,7 +175,7 @@ delreg_offentlig_test <- delreg_offentlig %>%
                 Bedriftsorgnr = ORGNR,
                 HF_navn = NAVN,
                 Institusjonsnavn = NYTT_NAVN,
-                Skjematype = SKJEMA_TYPE,
+                # Skjematype = SKJEMA_TYPE,
                 Næringskode = SN07_1,
                 Næringsnavn = SN07_1_navn,
                 Postnummer = F_POSTNR, 

diff --git a/Opptaksområder/KLASS DPS/DPS, Korrespondansetabell opptaksområde-kommune.ipynb b/Opptaksområder/KLASS DPS/DPS, Korrespondansetabell opptaksområde-kommune.ipynb
@@ -144,12 +144,12 @@
     "\n",
     "# Kristiansand og Trondheim fix #\n",
     "\n",
-    "kristiansand <- data.frame(OPPTAK_NUMMER = c(\"48\", \"52\"), \n",
+    "kristiansand <- data.frame(OPPTAK_NUMMER = c(\"D62\", \"D63\"), \n",
     "                          OPPTAK = c(\"Solvang\", \"Strømme\"), \n",
     "                          KOMMUNENUMMER = c(\"4204\", \"4204\"), \n",
     "                          KOMMUNENAVN = c(\"Kristiansand\", \"Kristiansand\"))\n",
     "\n",
-    "trondheim <- data.frame(OPPTAK_NUMMER = c(\"36\", \"37\"), \n",
+    "trondheim <- data.frame(OPPTAK_NUMMER = c(\"D33\", \"D34\"), \n",
     "                          OPPTAK = c(\"Nidaros\", \"Nidelv\"), \n",
     "                          KOMMUNENUMMER = c(\"5001\", \"5001\"), \n",
     "                          KOMMUNENAVN = c(\"Trondheim\", \"Trondheim\")) # OBS: Trondheim - Tråanten i 2023?\n",
@@ -164,7 +164,27 @@
    "metadata": {},
    "outputs": [],
    "source": [
-    "length(unique(opptaksomrader_KLASS_3$KOMMUNENUMMER))"
+    "length(unique(opptaksomrader_KLASS_3$KOMMUNENUMMER)) # skal være lik antall kommuner"
+   ]
+  },
+  {
+   "cell_type": "code",
+   "execution_count": null,
+   "id": "429764e0-19db-48b6-ad54-88db34e46ebb",
+   "metadata": {
+    "tags": []
+   },
+   "outputs": [],
+   "source": [
+    "nrow(opptaksomrader_KLASS_3) # skal være høyere enn antall kommuner"
+   ]
+  },
+  {
+   "cell_type": "markdown",
+   "id": "6a28bb98-d824-4d0b-8619-d63cfdfa3a28",
+   "metadata": {},
+   "source": [
+    "OBS: endre filsti"
    ]
   },
   {

diff --git a/requirements.txt b/requirements.txt
@@ -39,7 +39,7 @@ findspark==1.3.0
 fsspec @ file:///home/conda/feedstock_root/build_artifacts/fsspec_1596221475257/work
 gcsfs==0.6.2
 gitdb==4.0.5
-GitPython==3.1.35
+GitPython==3.1.37
 gmpy2==2.1.0b1
 google-auth==1.21.1
 google-auth-oauthlib==0.4.1