DIM
/
Endoscopies
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Browse Source

Initial commit

master
Maxime Wack 7 years ago
commit
3fbfc0a8c7
5 changed files with 895 additions and 0 deletions
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +362
    -0
      actes.csv
  2. +218
    -0
      endoscopies.rmd
  3. BIN
      endoscopies_ext.wid
  4. BIN
      endoscopies_hos.wid
  5. +315
    -0
      index.Rmd

+ 362
- 0
actes.csv View File

@@ -0,0 +1,362 @@
Code;Libelle;Appareil
ABSA012;Fermeture d'une brèche ostéodurale ou d'une méningocèle de l'étage antérieur de la base du crâne, par endoscopie;ORL
ACHA003;Biopsie de lésion de la base du crâne, par endoscopie buccale ou nasale;ORL
AHQE002;Électromyographie de détection des muscles du larynx par électrode aiguille, par laryngoscopie;ORL
BBCE001;Dacryo-cysto-rhinostomie [DCR], par endoscopie nasale;ORL
BBQE900;Endoscopie des voies lacrymales;ORL
CBQE001;Examen unilatéral ou bilatéral de l'oreille externe et/ou moyenne, sous microscope ou par endoscopie méatale;ORL
CBQE900;Fibroendoscopie de l'oreille moyenne, par voie tubaire;ORL
EBNE001;Coagulation bilatérale de l'artère sphénopalatine, par endoscopie nasale;ORL
EBNE002;Coagulation unilatérale de l'artère sphénopalatine, par endoscopie nasale;ORL
GAME001;Turbinoplastie ou turbinectomie inférieure et/ou moyenne unilatérale ou bilatérale, par endoscopie;ORL
GAME002;Plastie unilatérale ou bilatérale de la cavité nasale pour rhinite atrophique, par endoscopie;ORL
GAQE001;Endoscopie de la cavité nasale et du rhinopharynx [cavum], par voie nasale;ORL
GAQE003;Endoscopie de la cavité nasale, par voie nasale;ORL
GASE001;Hémostase intranasale par cautérisation ou électrocoagulation, par endoscopie;ORL
GASE002;Hémostase intranasale par injection unilatérale ou bilatérale transmuqueuse d'agent pharmacologique, par endoscopie;ORL
GBFA007;Exérèse de lésion du sinus sphénoïdal, par endoscopie;ORL
GBFA008;Ethmoïdectomie antérieure bilatérale avec septoplastie nasale, par endoscopie;ORL
GBJA001;Évacuation unilatérale ou bilatérale de collection du sinus frontal, par endoscopie nasale et par abord direct;ORL
GBJE001;Évacuation de collection du sinus frontal, par endoscopie nasale;ORL
GBJE002;Évacuation de collection du sinus sphénoïdal, par endoscopie directe ou transethmoïdale;ORL
GBPA003;Sinusotomie frontale unilatérale ou bilatérale avec résection du septum et du plancher nasaux, par endoscopie nasale ou par abord direct;ORL
GBPE001;Méatotomie nasale moyenne, par endoscopie;ORL
GBPE002;Marsupialisation de mucocèle du sinus ethmoïdal et/ou du sinus frontal, par endoscopie;ORL
GBPE003;Méatotomie nasale inférieure bilatérale, par endoscopie;ORL
GBQA002;Sinusoscopie maxillaire, par voie méatale inférieure et/ou par abord de la fosse canine [abord vestibulaire];ORL
GBQE001;Sinusoscopie sphénoïdale;ORL
GBQE002;Sinusoscopie frontale;ORL
GCME001;Plastie des choanes par endoscopie nasale avec laser, pour imperforation bilatérale;ORL
GCME002;Plastie des choanes par endoscopie nasale avec laser, pour imperforation unilatérale;ORL
GCME003;Plastie des choanes par endoscopie nasale sans laser, pour imperforation bilatérale;ORL
GCME004;Plastie des choanes par endoscopie nasale sans laser, pour imperforation unilatérale;ORL
GCQE001;Fibroscopie du pharynx et du larynx, par voie nasale;ORL
GCQE002;Endoscopie du rhinopharynx [cavum], par voie buccale sous anesthésie générale;ORL
GCQE003;Fibroscopie du pharynx et du larynx par voie nasale, avec examen stroboscopique du larynx;ORL
GDFE001;Aryténoïdectomie, par laryngoscopie directe;ORL
GDFE002;Exérèse de lésion ou épluchage de la muqueuse du plan glottique, par laryngoscopie directe avec laser;ORL
GDFE003;Cordectomie laryngée, par laryngoscopie directe avec laser;ORL
GDFE004;Exérèse de lésion ou épluchage de la muqueuse du plan glottique, par laryngoscopie directe sans laser;ORL
GDFE005;Résection ou section des plis aryépiglottiques, par laryngoscopie directe sans laser;ORL
GDFE006;Exérèse de lésion laryngée infraglottique, par laryngoscopie directe avec laser;ORL
GDFE007;Cordectomie laryngée, par laryngoscopie directe sans laser;ORL
GDFE008;Épiglottectomie partielle, par laryngoscopie directe sans laser;ORL
GDFE009;Épiglottectomie partielle, par laryngoscopie directe avec laser;ORL
GDFE010;Exérèse du vestibule du larynx, par laryngoscopie directe avec laser;ORL
GDFE011;Exérèse de lésion laryngée infraglottique, par laryngoscopie directe sans laser;ORL
GDFE012;Dilatation et/ou résection de sténose du larynx, par endoscopie sans laser;ORL
GDFE013;Résection ou section des plis aryépiglottiques, par laryngoscopie directe avec laser;ORL
GDFE014;Exérèse de lésion sousmuqueuse du plan glottique, par laryngoscopie directe;ORL
GDFE015;Exérèse du vestibule du larynx, par laryngoscopie directe sans laser;ORL
GDFE016;Dilatation et/ou résection de sténose du larynx, par endoscopie avec laser;ORL
GDGE001;Ablation de corps étranger du larynx, par laryngoscopie directe;ORL
GDHE001;Biopsie oro-pharyngo-laryngée, par laryngoscopie indirecte;ORL
GDLE001;Pose ou changement de prothèse de calibrage du larynx, par laryngoscopie directe;ORL
GDLE003;Injection de graisse dans le pli vocal [corde vocale], par laryngoscopie directe;ORL
GDLE004;Injection de substance hétérologue dans le pli vocal [corde vocale], par laryngoscopie directe;ORL
GDNE001;Coagulation d'un œdème du larynx, par laryngoscopie directe avec laser;ORL
GDNE002;Destruction de lésion du larynx, par laryngoscopie directe sans laser;ORL
GDNE003;Destruction de lésion du larynx, par laryngoscopie directe avec laser;ORL
GDNE004;Coagulation d'un œdème du larynx, par laryngoscopie directe sans laser;ORL
GDPE001;Désobstruction du larynx, par laryngoscopie directe avec laser;ORL
GDPE002;Cordotomie postérieure, par laryngoscopie directe sans laser;ORL
GDPE003;Cordotomie postérieure, par laryngoscopie directe avec laser;ORL
GDQE002;Laryngoscopie indirecte au laryngoscope rigide, avec examen stroboscopique du larynx;ORL
GDQE003;Laryngoscopie indirecte au laryngoscope rigide;ORL
GDQE007;Exploration de pli vocal [corde vocale], par laryngoscopie directe [Cordotomie exploratrice endoscopique];ORL
GKGE002;Ablation d'implant phonatoire œsotrachéal ou de tube de calibrage intralaryngé, par endoscopie;ORL
GKKE002;Changement d'implant phonatoire œsotrachéal, par endoscopie;ORL
GKQE001;Bilan phonétique de la parole avec fibroscopie du pharynx et du larynx par voie nasale;ORL
GKQP010;Bilan instrumental de la phonation avec enregistrement vidéoscopique et/ou photographique, et examen stroboscopique du larynx;ORL
HDFE001;Résection et/ou dilatation de sténose du pharynx, par endoscopie avec laser;ORL
HDFE002;Exérèse de lésion de l'hypopharynx, par endoscopie;ORL
HDFE003;Résection et/ou dilatation de sténose du pharynx, par endoscopie sans laser;ORL
HDGE001;Ablation de corps étranger de l'oropharynx, par endoscopie rigide;ORL
HDGE002;Ablation de corps étranger de l'oropharynx, par laryngoscopie indirecte;ORL
HDNE001;Destruction de lésion de l'hypopharynx avec laser, par endoscopie;ORL
HDNE002;Destruction de lésion de l'hypopharynx sans laser, par endoscopie;ORL
HDPE001;Myotomie du faisceau cricopharyngien du muscle constricteur inférieur du pharynx, par endoscopie avec laser;ORL
HDPE002;Myotomie du faisceau cricopharyngien du muscle constricteur inférieur du pharynx, par endoscopie sans laser;ORL
HDQE001;Orohypopharyngoscopie avec laryngoscopie directe;ORL
LAFA015;Ethmoïdectomie totale unilatérale avec septoplastie nasale et sphénoïdotomie, par endoscopie;ORL
LAFA016;Ethmoïdectomie totale unilatérale avec septoplastie nasale, par endoscopie;ORL
LAFA017;Ethmoïdectomie totale unilatérale avec sphénoïdotomie, par endoscopie;ORL
LAFA018;Ethmoïdectomie totale bilatérale avec sphénoïdotomie, par endoscopie;ORL
LAFA019;Ethmoïdectomie totale bilatérale avec septoplastie nasale et sphénoïdotomie, par endoscopie;ORL
LAFA020;Ethmoïdectomie totale bilatérale avec septoplastie nasale, par endoscopie;ORL
LAFA021;Ethmoïdectomie antérieure, par endoscopie;ORL
LAFA022;Ethmoïdectomie totale bilatérale, par endoscopie;ORL
LAFA023;Ethmoïdectomie antérieure unilatérale avec septoplastie nasale, par endoscopie;ORL
LAFA024;Ethmoïdectomie totale unilatérale, par endoscopie;ORL
AJLJ002;Infiltration thérapeutique transgastrique des nerfs splanchniques, avec guidage échoendoscopique;Digestif
EHNE001;Séance de sclérose et/ou de ligature de varices œsogastriques en dehors de la période hémorragique, par endoscopie;Digestif
EHNE002;Sclérose et/ou ligature de varices œsogastriques en période hémorragique, par endoscopie;Digestif
HEAE001;Dilatation rétrograde de l'œsophage, par endoscopie rigide;Digestif
HEAE002;Dilatation antérograde de l'œsophage, par endoscopie rigide;Digestif
HEAE003;Dilatation antérograde de l'œsophage, par fibroscopie;Digestif
HEFE001;Exérèse d'un polype de 1cm et plus de diamètre ou de 4 polypes ou plus de l'œsophage, de l'estomac et/ou du duodénum, par œso-gastro-duodénoscopie;Digestif
HEFE002;Exérèse de 1 à 3 polypes de moins de 1cm de diamètre de l'œsophage, de l'estomac et/ou du duodénum, par œso-gastro-duodénoscopie;Digestif
HEFE003;Séance de mucosectomie de l'œsophage, de l'estomac ou du duodénum, par œso-gastro-duodénoscopie;Digestif
HEGE001;Ablation de corps étranger de l'œsophage, par endoscopie rigide;Digestif
HEGE002;Ablation de corps étranger de l'œsophage, de l'estomac et/ou du duodénum, par œso-gastro-duodénoscopie;Digestif
HEGE003;Ablation d'une endoprothèse de l'œsophage, par endoscopie;Digestif
HEKE001;Changement d'une endoprothèse de l'œsophage, par endoscopie;Digestif
HELE001;Pose de guide intraœsophagien pour curiethérapie [endobrachytherapy], par fibroscopie;Digestif
HELE002;Pose d'une endoprothèse de l'œsophage, par endoscopie;Digestif
HELE900;Séance d'injection de toxine botulique au niveau du sphincter inférieur de l'œsophage, par endoscopie;Digestif
HEME002;Création d'une fistule œsotrachéale avec pose d'implant phonatoire, par endoscopie;Digestif
HEME900;Correction d'un reflux gastroœsophagien, par endoscopie;Digestif
HENE001;Séance de destruction photodynamique de lésion de l'œsophage et/ou de l'estomac avec laser, par œso-gastro-duodénoscopie;Digestif
HENE002;Séance de destruction de lésion de l'œsophage et/ou de l'estomac avec laser, par œso-gastro-duodénoscopie;Digestif
HENE004;Séance de destruction de lésion de l'œsophage et/ou de l'estomac sans laser, par œso-gastro-duodénoscopie;Digestif
HENE900;Séance de destruction d'une hétérotopie de la muqueuse de l'œsophage inférieur, par endoscopie;Digestif
HEQE001;Œsophagoscopie au tube rigide;Digestif
HEQE002;Endoscopie œso-gastro-duodénale;Digestif
HEQE003;Endoscopie œso-gastro-duodénale avec test à l'uréase, avant l'âge de 6 ans;Digestif
HEQE004;Endoscopie œso-gastro-duodénale peropératoire;Digestif
HEQE005;Endoscopie œso-gastro-duodénale avec test à l'uréase, après l'âge de 6 ans;Digestif
HEQJ001;Échoendoscopie œsogastrique sans biopsie;Digestif
HEQJ002;Échoendoscopie œsogastrique avec biopsie transœsogastrique guidée;Digestif
HESE001;Hémostase de lésion de l'œsophage, de l'estomac et/ou du duodénum avec laser, par œso-gastro-duodénoscopie;Digestif
HESE002;Hémostase de lésion de l'œsophage, de l'estomac et/ou du duodénum sans laser, par œso-gastro-duodénoscopie;Digestif
HFAE001;Dilatation du pylore, par œso-gastro-duodénoscopie;Digestif
HFCB001;Gastrostomie, par voie transcutanée avec guidage endoscopique;Digestif
HFKE001;Changement d'une sonde de gastrostomie ou de gastrojéjunostomie, par œso-gastro-duodénoscopie;Digestif
HFLE001;Pose d'une sonde gastrique, duodénale ou jéjunale, par œso-gastro-duodénoscopie;Digestif
HGAE001;Dilatation d'une sténose iléale, par iléoscopie;Digestif
HGFE001;Exérèse d'un polype de plus de 1cm de diamètre ou de 4 polypes ou plus de l'intestin grêle, par iléoscopie;Digestif
HGFE002;Exérèse de 1 à 3 polypes de moins de 1cm de diamètre de l'intestin grêle, par iléoscopie;Digestif
HGFE003;Exérèse d'un polype de plus de 1cm de diamètre ou de 4 polypes ou plus de l'intestin grêle, par jéjunoscopie;Digestif
HGFE004;Exérèse de 1 à 3 polypes de moins de 1cm de diamètre de l'intestin grêle, par jéjunoscopie;Digestif
HGFE005;Exérèse de la papille duodénale majeure, par œso-gastro-duodénoscopie;Digestif
HGGE001;Ablation d'une endoprothèse du duodénum, par œso-gastro-duodénoscopie;Digestif
HGKE001;Changement d'une endoprothèse du duodénum, par œso-gastro-duodénoscopie;Digestif
HGLE001;Pose d'une endoprothèse du duodénum, par œso-gastro-duodénoscopie;Digestif
HGNE001;Séance de destruction de lésion du duodénum, par œso-gastro-duodénoscopie;Digestif
HGQE001;Entéroscopie jéjunale avec entéroscopie iléale;Digestif
HGQE002;Duodénoscopie par appareil à vision latérale;Digestif
HGQE003;Entéroscopie jéjunale [Jéjunoscopie];Digestif
HGQE004;Entéroscopie jéjunale et/ou iléale peropératoire;Digestif
HGQE005;Entéroscopie iléale [Iléoscopie];Digestif
HGQJ001;Échoendoscopie duodénale avec biopsie transduodénale guidée;Digestif
HGQJ002;Échoendoscopie duodénale sans biopsie;Digestif
HGSE001;Hémostase de lésion intestinale sans laser, par jéjunoscopie;Digestif
HGSE002;Hémostase de lésion intestinale avec laser, par jéjunoscopie;Digestif
HGSE003;Hémostase de lésion intestinale sans laser, par iléoscopie;Digestif
HGSE004;Hémostase de lésion intestinale avec laser, par iléoscopie;Digestif
HHAE001;Dilatation d'une sténose du côlon et/ou du rectum, par endoscopie;Digestif
HHEE001;Détorsion d'un volvulus du côlon, par endoscopie;Digestif
HHFE001;Exérèse de 1 à 3 polypes de moins de 1cm de diamètre du côlon et/ou du rectum, par rectosigmoïdoscopie ou par coloscopie partielle;Digestif
HHFE002;Exérèse de 1 à 3 polypes de moins de 1cm de diamètre du côlon et/ou du rectum, par coloscopie totale;Digestif
HHFE004;Exérèse d'un polype de plus de 1cm de diamètre ou de 4 polypes ou plus du côlon et/ou du rectum, par coloscopie totale;Digestif
HHFE005;Exérèse d'un polype de plus de 1cm de diamètre ou de 4 polypes ou plus du côlon et/ou du rectum, par rectosigmoïdoscopie ou par coloscopie partielle;Digestif
HHFE006;Séance de mucosectomie rectocolique, par endoscopie;Digestif
HHGE002;Ablation de corps étranger du côlon et/ou du rectum, par endoscopie;Digestif
HHGE010;Ablation d'une endoprothèse du côlon, par coloscopie;Digestif
HHJE001;Exsufflation du côlon, par endoscopie;Digestif
HHLE005;Pose d'une endoprothèse du côlon, par coloscopie;Digestif
HHNE001;Séance de destruction de lésion du côlon et/ou du rectum sans laser, par coloscopie totale;Digestif
HHNE002;Séance de destruction de lésion du côlon et/ou du rectum avec laser, par coloscopie totale;Digestif
HHNE003;Séance de destruction de lésion du côlon et/ou du rectum avec laser, par rectosigmoïdoscopie ou par coloscopie partielle;Digestif
HHNE004;Séance de destruction de lésion du côlon et/ou du rectum sans laser, par rectosigmoïdoscopie ou par coloscopie partielle;Digestif
HHQE001;Coloscopie peropératoire;Digestif
HHQE002;Coloscopie totale, avec franchissement de l'orifice iléocolique;Digestif
HHQE003;Exploration complète du côlon après colectomie droite, par endoscopie;Digestif
HHQE004;Coloscopie partielle au delà du côlon sigmoïde;Digestif
HHQE005;Coloscopie totale avec visualisation du bas-fond cæcal, sans franchissement de l'orifice iléocolique;Digestif
HHQJ002;Échoendoscopie colique sans biopsie;Digestif
HHSE001;Hémostase de lésion du côlon avec laser, par rectosigmoïdoscopie ou par coloscopie partielle;Digestif
HHSE002;Hémostase de lésion du côlon sans laser, par coloscopie totale;Digestif
HHSE003;Hémostase de lésion du côlon avec laser, par coloscopie totale;Digestif
HHSE004;Hémostase de lésion du côlon sans laser, par rectosigmoïdoscopie ou par coloscopie partielle;Digestif
HJQE001;Rectosigmoïdoscopie;Digestif
HJQE002;Rectoscopie au tube rigide;Digestif
HJQJ001;Échoendoscopie anorectale avec biopsie transanorectale guidée;Digestif
HJQJ002;Échoendoscopie anorectale sans biopsie;Digestif
HKQE001;Anuscopie;Digestif
HMAE001;Dilatation de l'ampoule hépatopancréatique [du sphincter d'Oddi], par œso-gastro-duodénoscopie;Digestif
HMAE002;Dilatation rétrograde de conduit biliaire, par œso-gastro-duodénoscopie;Digestif
HMGE001;Ablation d'endoprothèse biliaire et/ou pancréatique, par œso-gastro-duodénoscopie;Digestif
HMGE002;Ablation de calcul de la voie biliaire principale, par œso-gastro-duodénoscopie;Digestif
HMGH001;Ablation de calcul de la voie biliaire principale, par œso-gastro-duodénoscopie et par voie transcutanée avec guidage échographique et/ou radiologique;Digestif
HMJE001;Drainage de conduit biliaire ou pancréatique par voie nasale, au cours d'une endoscopie œso-gastro-duodénale;Digestif
HMKE001;Changement d'une endoprothèse biliaire, par œso-gastro-duodénoscopie;Digestif
HMKE002;Changement de plusieurs endoprothèses biliaires, par œso-gastro-duodénoscopie;Digestif
HMLE002;Pose d'une endoprothèse biliaire, par œso-gastro-duodénoscopie;Digestif
HMLE003;Pose de plusieurs endoprothèses biliaires, par œso-gastro-duodénoscopie;Digestif
HMLH001;Pose d'une endoprothèse biliaire, par œso-gastro-duodénoscopie et par voie transcutanée avec guidage échographique et/ou radiologique;Digestif
HMNE001;Lithotritie mécanique des conduits biliaires, par œso-gastro-duodénoscopie;Digestif
HMNE002;Lithotritie des conduits biliaires par ondes de choc, par cholangioscopie rétrograde;Digestif
HMPE001;Section du versant biliaire du muscle sphincter de l'ampoule hépatopancréatique [sphincter d'Oddi], par œso-gastro-duodénoscopie [Sphinctérotomie biliaire endoscopique];Digestif
HMQH001;Cholangioscopie, par voie buccale;Digestif
HMQH002;Cholangiopancréatographie rétrograde avec manométrie oddienne, par œso-gastro-duodénoscopie;Digestif
HMQH003;Cholangiographie rétrograde avec infundibulotomie [ponction diathermique de l'infundibulum biliaire] ou précoupe de la papille duodénale majeure, par œso-gastro-duodénoscopie;Digestif
HMQH005;Cholangiopancréatographie rétrograde sans manométrie oddienne, par œso-gastro-duodénoscopie;Digestif
HMQH007;Cholangiographie rétrograde, par œso-gastro-duodénoscopie;Digestif
HMQJ001;Échoendoscopie biliopancréatique sans biopsie;Digestif
HMQJ002;Échoendoscopie biliopancréatique avec biopsie transbiliopancréatique guidée;Digestif
HNAE001;Dilatation du conduit pancréatique, par œso-gastro-duodénoscopie;Digestif
HNCE001;Anastomose entre un faux kyste du pancréas et l'estomac ou le duodénum, par œso-gastro-duodénoscopie sans guidage [Kystogastrostomie ou kystoduodénostomie endoscopique];Digestif
HNCJ001;Anastomose entre un faux kyste du pancréas et l'estomac ou le duodénum, par œso-gastro-duodénoscopie avec guidage échoendoscopique;Digestif
HNGE001;Ablation de calcul pancréatique, par œso-gastro-duodénoscopie;Digestif
HNKE001;Changement d'une endoprothèse du conduit pancréatique, par œso-gastro-duodénoscopie;Digestif
HNLE001;Pose d'une endoprothèse du conduit pancréatique, par œso-gastro-duodénoscopie;Digestif
HNPE002;Section du versant pancréatique du muscle sphincter de l'ampoule hépatopancréatique [sphincter d'Oddi], par œso-gastro-duodénoscopie [Sphinctérotomie pancréatique endoscopique];Digestif
HNPE003;Sphinctérotomie de la papille duodénale mineure [papille accessoire], par œso-gastro-duodénoscopie;Digestif
HNQH001;Pancréatographie rétrograde par cathétérisme de la papille duodénale mineure [papille accessoire], par œso-gastro-duodénoscopie;Digestif
HNQH002;Pancréaticoscopie par voie buccale;Digestif
HNQH003;Pancréatographie rétrograde par cathétérisme de la papille duodénale majeure, par œso-gastro-duodénoscopie;Digestif
HQQE001;Bilan fonctionnel de la déglutition avec fibroscopie du pharynx et du larynx par voie nasale, essai alimentaire et enregistrement vidéo;Digestif
HZHE001;Prélèvement pour analyse biologique, au cours d'une endoscopie diagnostique des voies digestives;Digestif
HZHE002;Biopsie et/ou brossage cytologique de la paroi du tube digestif ou de conduit biliopancréatique, au cours d'une endoscopie diagnostique;Digestif
HZHE004;Coloration et/ou tatouage de la paroi du tube digestif, au cours d'une endoscopie diagnostique;Digestif
HZHE005;Macrobiopsie de la paroi du tube digestif, au cours d'une endoscopie diagnostique;Digestif
GDQE004;Fibroscopie du larynx et de la trachée;Respiratoire
GDQE005;Laryngoscopie directe [Laryngoscopie en suspension];Respiratoire
GDQE001;Laryngo-trachéo-bronchoscopie au tube rigide;Respiratoire
GEFE001;Séance de résection et/ou de dilatation de sténose de la trachée, par endoscopie avec laser;Respiratoire
GEFE002;Séance de résection et/ou de dilatation de sténose de la trachée, par endoscopie sans laser;Respiratoire
GEGE001;Ablation de corps étranger intratrachéal et/ou intrabronchique, par bronchoscopie au tube rigide;Respiratoire
GEGE003;Ablation de corps étranger intratrachéal et/ou intrabronchique, par fibroscopie;Respiratoire
GEHE001;Biopsie trachéale et/ou bronchique, au cours d'une endoscopie diagnostique des voies aériennes;Respiratoire
GEJE001;Aspiration intrabronchique à visée thérapeutique, par fibroscopie [Fibroaspiration bronchique];Respiratoire
GEJE002;Lavage pulmonaire unilatéral à visée thérapeutique pour protéinose alvéolaire, par endoscopie;Respiratoire
GEJE003;Aspiration intrabronchique à visée thérapeutique chez un patient intubé ou trachéotomisé, par fibroscopie;Respiratoire
GELE001;Intubation trachéale par fibroscopie ou dispositif laryngé particulier, au cours d'une anesthésie générale;Respiratoire
GELE002;Instillation intrabronchique d'agent pharmacologique à visée thérapeutique, par bronchoscopie au tube rigide;Respiratoire
GELE003;Pose intrabronchique de matériel à visée hémostatique, par fibroscopie;Respiratoire
GELE004;Intubation trachéale, par fibroscopie ou dispositif laryngé particulier;Respiratoire
GELE005;Instillation intrabronchique d'agent pharmacologique à visée thérapeutique, par fibroscopie;Respiratoire
GELE006;Pose de tuteur trachéal, par endoscopie;Respiratoire
GELE007;Pose intrabronchique de matériel à visée hémostatique, par bronchoscopie au tube rigide;Respiratoire
GELE008;Pose d'une endoprothèse trachéobronchique, par endoscopie;Respiratoire
GELE009;Pose de guide intrabronchique pour curiethérapie [endobrachytherapy], par fibroscopie;Respiratoire
GENE001;Destruction mécanique de lésion de l'arbre trachéobronchique, par bronchoscopie au tube rigide;Respiratoire
GENE002;Destruction de lésion de l'arbre trachéobronchique avec laser, par fibroscopie;Respiratoire
GENE003;Destruction tissulaire photodynamique de lésion de l'arbre trachéobronchique avec laser, par fibroscopie;Respiratoire
GENE004;Destruction de lésion de l'arbre trachéobronchique avec laser, par bronchoscopie au tube rigide;Respiratoire
GENE005;Destruction de lésion de l'arbre trachéobronchique par cryothérapie ou thermocoagulation, par fibroscopie;Respiratoire
GENE006;Destruction de lésion de l'arbre trachéobronchique par cryothérapie ou thermocoagulation, par bronchoscopie au tube rigide;Respiratoire
GENE008;Destruction mécanique de lésion de l'arbre trachéobronchique, par fibroscopie;Respiratoire
GEQE001;Bronchoscopie au tube rigide, avec prélèvement médiastinal à l'aiguille par voie transbronchique;Respiratoire
GEQE002;Fibroscopie bronchique, avec prélèvement lymphonodal à l'aiguille par voie transbronchique;Respiratoire
GEQE003;Fibroscopie trachéobronchique avec photodétection de lésion par autofluorescence avec laser;Respiratoire
GEQE004;Fibroscopie bronchique, avec lavage bronchioloalvéolaire à visée diagnostique;Respiratoire
GEQE005;Bronchoscopie au tube rigide, avec biopsie pulmonaire par voie transbronchique sans guidage;Respiratoire
GEQE006;Fibroscopie bronchique, avec biopsie pulmonaire par voie transbronchique sans guidage;Respiratoire
GEQE007;Fibroscopie bronchique;Respiratoire
GEQE008;Bronchoscopie au tube rigide;Respiratoire
GEQE009;Fibroscopie bronchique avec lavage bronchioloalvéolaire à visée diagnostique, chez un patient intubé ou trachéotomisé;Respiratoire
GEQE010;Fibroscopie trachéobronchique avec photodétection de lésion par autofluorescence sans laser;Respiratoire
GEQE012;Fibroscopie bronchique, chez un patient intubé ou trachéotomisé;Respiratoire
GEQE013;Examen panendoscopique des voies aérodigestives supérieures avec trachéoscopie et œsophagoscopie;Respiratoire
GEQH002;Fibroscopie bronchique, avec biopsie pulmonaire par voie transbronchique avec guidage radiologique;Respiratoire
GEQH003;Bronchoscopie au tube rigide, avec biopsie pulmonaire par voie transbronchique avec guidage radiologique;Respiratoire
JANE002;Fragmentation intrarénale de calcul caliciel inférieur avec ondes de choc ou laser [Lithotritie intrarénale], par urétéronéphroscopie;Genito-urinaire
JANE005;Fragmentation intrarénale de calcul avec ondes de choc ou laser [Lithotritie intrarénale], par urétéronéphroscopie;Genito-urinaire
JANJ002;Fragmentation intrarénale de calcul par ondes de choc [Lithotritie intrarénale], par néphroscopie par une néphrostomie déjà en place;Genito-urinaire
JBFE001;Exérèse de tumeur pyélique et/ou calicielle, par endoscopie rétrograde;Genito-urinaire
JBHE001;Biopsie de la voie excrétrice supérieure, par endoscopie rétrograde;Genito-urinaire
JBNE004;Destruction de tumeur calicielle et/ou pyélique avec laser, par urétéronéphroscopie;Genito-urinaire
JBPE001;Urétéropyélotomie ou urétérotomie, par urétéroscopie rétrograde;Genito-urinaire
JBPE002;Urétéropyélotomie ou urétérotomie, par néphroscopie par une néphrostomie déjà en place;Genito-urinaire
JBPG001;Urétéropyélotomie ou urétérotomie, par néphroscopie par voie transcutanée;Genito-urinaire
JBQE001;Urétéro-pyélo-caliscopie rétrograde, par voie urétrale;Genito-urinaire
JCAE001;Dilatation de l'uretère, par urétéroscopie rétrograde;Genito-urinaire
JCAH001;Dilatation de l'uretère, par urétrocystoscopie avec guidage radiologique;Genito-urinaire
JCEE001;Refoulement de calcul de l'uretère par sonde urétérale, par endoscopie rétrograde;Genito-urinaire
JCFE001;Exérèse de tumeur de l'uretère lombal, par urétéroscopie rétrograde;Genito-urinaire
JCFE002;Exérèse de tumeur de l'uretère pelvien, par urétéroscopie rétrograde;Genito-urinaire
JCFE003;Exérèse de tumeur de l'uretère iliaque, par urétéroscopie rétrograde;Genito-urinaire
JCGE001;Ablation et/ou fragmentation de calcul de l'uretère pelvien, par urétéroscopie rétrograde;Genito-urinaire
JCGE003;Ablation unilatérale ou bilatérale d'une sonde urétérale, par endoscopie rétrograde;Genito-urinaire
JCGE004;Ablation d'une endoprothèse urétérale, par endoscopie rétrograde;Genito-urinaire
JCGE005;Ablation et/ou fragmentation de calcul de l'uretère iliaque, par urétéroscopie rétrograde;Genito-urinaire
JCGE006;Ablation et/ou fragmentation de calcul de l'uretère lombal, par urétéroscopie rétrograde;Genito-urinaire
JCGH004;Ablation et/ou fragmentation de calcul de l'uretère, par urétrocystoscopie avec guidage échographique et/ou radiologique;Genito-urinaire
JCKE001;Changement d'une sonde urétérale, par endoscopie rétrograde;Genito-urinaire
JCKE002;Changement d’une endoprothèse urétérale, par endoscopie rétrograde;Genito-urinaire
JCLE001;Pose d'une sonde urétérale à visée thérapeutique, par endoscopie rétrograde;Genito-urinaire
JCLE002;Pose d'une endoprothèse urétérale, par endoscopie rétrograde;Genito-urinaire
JCLE003;Pose d'une sonde urétérale à visée diagnostique, par endoscopie rétrograde;Genito-urinaire
JCLE004;Injection sousmuqueuse intra-urétérale de matériel hétérologue, par endoscopie;Genito-urinaire
JCNE001;Destruction d'un moignon de l'uretère, par urétéroscopie rétrograde;Genito-urinaire
JCNE002;Destruction de tumeur de l'uretère pelvien, par urétéroscopie rétrograde;Genito-urinaire
JCNE003;Destruction de tumeur de l'uretère iliaque, par urétéroscopie rétrograde;Genito-urinaire
JCNE004;Destruction de tumeur de l'uretère lombal, par urétéroscopie rétrograde;Genito-urinaire
JCPE001;Incision d'une urétérocèle, par endoscopie;Genito-urinaire
JCPE002;Incision du méat urétéral, par endoscopie;Genito-urinaire
JCQE001;Urétéroscopie par une urétérostomie cutanée directe;Genito-urinaire
JCQE003;Urétéroscopie rétrograde, par voie urétrale;Genito-urinaire
JDDA003;Cervicocystopexie par bandelette par abord vaginal et par voie transcutanée, avec guidage endoscopique;Genito-urinaire
JDDA008;Cervicocystopexie indirecte par abord vaginal et par voie abdominale, avec guidage endoscopique;Genito-urinaire
JDDB007;Soutènement vésical par bandelette synthétique infra-urétrale, par voie transvaginale et par voie transrétropubienne, avec contrôle endoscopique;Genito-urinaire
JDFE001;Résection de 4 tumeurs de la vessie ou plus, par endoscopie;Genito-urinaire
JDFE002;Résection de 1 à 3 tumeurs de la vessie, par endoscopie;Genito-urinaire
JDFE003;Résection du col de la vessie, par endoscopie;Genito-urinaire
JDGE001;Ablation de calcul ou de corps étranger de la vessie, par endoscopie;Genito-urinaire
JDHE001;Biopsie de la vessie à l'anse coupante, par endoscopie;Genito-urinaire
JDHE002;Biopsie de la vessie à la pince, par endoscopie;Genito-urinaire
JDHE003;Biopsie randomisée de la vessie, par endoscopie;Genito-urinaire
JDJE001;Décaillotage de la vessie, par endoscopie;Genito-urinaire
JDLE332;Injection de toxine botulique dans la musculeuse vésicale, par urétrocystoscopie;Genito-urinaire
JDNE001;Destruction de lésion de la vessie, par endoscopie;Genito-urinaire
JDPE001;Incision de collet de diverticule de la vessie, par urétrocystoscopie;Genito-urinaire
JDPE002;Incision cervicale ou cervicoprostatique, par endoscopie;Genito-urinaire
JDQE001;Fibroscopie urétrovésicale;Genito-urinaire
JDQE002;Exploration endoscopique d'une néovessie intestinale;Genito-urinaire
JDQE003;Urétrocystoscopie à l'endoscope rigide;Genito-urinaire
JECE001;Ouverture de diverticule de l'urètre, par endoscopie;Genito-urinaire
JEEE001;Alignement de rupture traumatique de l’urètre, par endoscopie;Genito-urinaire
JEFE001;Résection de tumeur de l'urètre, par endoscopie;Genito-urinaire
JEFE003;Résection du sphincter strié de l'urètre, par endoscopie;Genito-urinaire
JEFE004;Résection de sténose de l'urètre à l'anse coupante, par endoscopie;Genito-urinaire
JEFE005;Résection de valve de l'urètre, par endoscopie;Genito-urinaire
JEGE001;Ablation de corps étranger de l'urètre, par urétroscopie;Genito-urinaire
JEGE002;Ablation d'une endoprothèse temporaire de l'urètre, par endoscopie;Genito-urinaire
JEGE003;Épilation de l'urètre, par endoscopie;Genito-urinaire
JEGE004;Ablation d'une endoprothèse définitive de l'urètre, par endoscopie;Genito-urinaire
JEHE001;Biopsie de l'urètre à l'anse coupante, par endoscopie;Genito-urinaire
JEHE002;Biopsie de l'urètre à la pince, par endoscopie;Genito-urinaire
JEKE001;Changement d'une endoprothèse de l'urètre, par endoscopie;Genito-urinaire
JELD001;Injection sousmuqueuse périurétrocervicale de matériel hétérologue par voie transvaginale, avec guidage endoscopique;Genito-urinaire
JELE001;Injection sousmuqueuse intra-urétrale de matériel hétérologue, par endoscopie;Genito-urinaire
JELE002;Pose d'une endoprothèse de l'urètre, par endoscopie;Genito-urinaire
JELE003;Pose d'une endoprothèse de l'urètre cervicoprostatique, par endoscopie;Genito-urinaire
JENE001;Destruction de lésion de l'urètre, par endoscopie;Genito-urinaire
JEPE001;Incision du sphincter strié de l'urètre, par endoscopie;Genito-urinaire
JEPE002;Urétrotomie, par endoscopie;Genito-urinaire
JEPH001;Incision de valve de l'urètre par endoscopie, avec contrôle radiologique;Genito-urinaire
JFQC001;Exploration de l'espace rétropéritonéal et de son contenu, par rétropéritonéoscopie [Rétropéritonéoscopie exploratrice];Genito-urinaire
JGFA014;Résection palliative de la prostate [Recalibrage de l'urètre], par urétrocystoscopie;Genito-urinaire
JGFA015;Résection d'une hypertrophie de la prostate, par urétrocystoscopie ;Genito-urinaire
JGFA016;Résection ou marsupialisation de collection de la prostate ou de diverticule de l'urètre, par urétrocystoscopie;Genito-urinaire
JGFE004;Résection et/ou désobstruction des conduits éjaculateurs, par urétrocystoscopie;Genito-urinaire
JGFE023;Résection d'une hypertrophie de la prostate sans laser, par urétrocystoscopie;Genito-urinaire
JGFE365;Résection d'une hypertrophie de la prostate avec laser, par urétrocystoscopie ;Genito-urinaire
JGNE003;Destruction d'une hypertrophie de la prostate par radiofréquence, par urétrocystoscopie avec guidage échographique;Genito-urinaire
JGNE171;Destruction d’une hypertrophie de la prostate par laser [photovaporisation], par urétrocystoscopie;Genito-urinaire
JGQH003;Déférentovésiculographie unilatérale ou bilatérale, par cathétérisme endoscopique des conduits éjaculateurs;Genito-urinaire
JHQP002;Péniscopie;Genito-urinaire
JJLE001;Cathétérisme rétrograde unilatéral ou bilatéral de la trompe utérine, par hystéroscopie;Genito-urinaire
JJPE001;Interruption unilatérale ou bilatérale de la perméabilité des trompes utérines par insertion de dispositif intratubaire, par hystéroscopie;Genito-urinaire
JKFE001;Exérèse de polype de l'utérus, par hystéroscopie;Genito-urinaire
JKFE002;Résection de myome de l'utérus, par hystéroscopie;Genito-urinaire
JKFE003;Exérèse de lésion du col de l'utérus, par colposcopie;Genito-urinaire
JKGE001;Ablation d'un dispositif intra-utérin, par hystéroscopie;Genito-urinaire
JKGE002;Ablation de corps étranger de l'utérus, par hystéroscopie;Genito-urinaire
JKND003;Destruction de lésion du col de l'utérus par colposcopie, avec laser;Genito-urinaire
JKND004;Destruction de lésion du col de l'utérus par colposcopie, sans laser;Genito-urinaire
JKNE001;Abrasion de la muqueuse de l'utérus [Endométrectomie], par hystéroscopie;Genito-urinaire
JKPE001;Section ou résection de cloison utérine, par hystéroscopie;Genito-urinaire
JKPE002;Section et/ou destruction de synéchies de l'utérus, par hystéroscopie;Genito-urinaire
JKPJ001;Section et/ou destruction de synéchies de l'utérus, par hystéroscopie avec guidage échographique;Genito-urinaire
JKQE001;Hystéroscopie avec curetage de la cavité de l'utérus;Genito-urinaire
JKQE002;Hystéroscopie;Genito-urinaire
JLGE001;Ablation de corps étranger du vagin, par vaginoscopie;Genito-urinaire
JLQE001;Vaginoscopie;Genito-urinaire
JLQE002;Colposcopie;Genito-urinaire
JMQP001;Vulvoscopie;Genito-urinaire
JPQE001;Amnioscopie;Genito-urinaire
JZQE001;Exploration endoscopique d'une malformation cloacale;Genito-urinaire
ZCQC001;Exploration de la cavité abdominale par cœlioscopie, avec hystéroscopie;Genito-urinaire

+ 218
- 0
endoscopies.rmd View File

@@ -0,0 +1,218 @@
---
title: Endoscopies
output:
html_document:
toc: true
toc_float: true
params:
endoscopies: NA
endoscopies_ext: NA
endoscopies_hos: NA
liste_actes: NA
---

```{r setup, message = F, warning = F, echo = F}
library(tidyverse)
library(DT)
library(knitr)
library(magrittr)
library(stringr)

opts_chunk$set(message = F,
echo = F,
warning = F)
options(DT.options = list(paging = F,
searching = F,
info = F,
dom = "Bfrtip",
buttons = c("copy", "excel")))
```

# Codes utilisés {.tabset}

## ORL

```{r liste_orl}
liste_actes %>%
filter(Appareil == "ORL") %>%
select(- Appareil) %>%
datatable(rownames = F, options = list(paging = T, searching = T))
```

## Digestif

```{r liste_dig}
liste_actes %>%
filter(Appareil == "Digestif") %>%
select(- Appareil) %>%
datatable(rownames = F, options = list(paging = T, searching = T))
```

## Respiratoire

```{r liste_respi}
liste_actes %>%
filter(Appareil == "Respiratoire") %>%
select(- Appareil) %>%
datatable(rownames = F, options = list(paging = T, searching = T))
```

## Génito-urinaire

```{r liste_uro}
liste_actes %>%
filter(Appareil == "Genito-urinaire") %>%
select(- Appareil) %>%
datatable(rownames = F, options = list(paging = T, searching = T))
```

# Global

## Total

```{r global_total}
endoscopies() %>%
summarise(Venues = n_distinct(Venue)) %>%
datatable(rownames = F,
extensions = "Buttons")
```

## Par service exécutant
```{r global_par_service}
endoscopies() %>%
group_by(Service) %>%
summarise(Venues = n_distinct(Venue)) %>%
ungroup %>%
arrange(desc(Venues)) %>%
datatable(rownames = F,
extensions = "Buttons")
```

# Externe

## Total
```{r ext_total}
endoscopies_ext() %>%
summarise(Venues = n_distinct(Venue),
Valorisation = sum(Tarif)) %>%
datatable(rownames = F,
extensions = "Buttons") %>%
formatCurrency(2, currency = "€", dec.mark = ",", mark = " ", before = F)
```

## Par appareil
```{r ext_par_appareil}
endoscopies_ext() %>%
group_by(Appareil) %>%
summarise(Venues = n_distinct(Venue),
Valorisation = sum(Tarif)) %>%
arrange(desc(Valorisation)) %>%
datatable(rownames = F,
extensions = "Buttons") %>%
formatCurrency(3, currency = "€", dec.mark = ",", mark = " ", before = F)
```

## Par acte
```{r ext_par_acte}
endoscopies_ext() %>%
group_by(Acte, Acte_libelle) %>%
summarise(Venues = n_distinct(Venue),
Valorisation = sum(Tarif)) %>%
ungroup %>%
arrange(desc(Valorisation)) %>%
datatable(options = list(paging = T, searching = T),
colnames = c("Libelle" = "Acte_libelle"),
rownames = F,
extensions = "Buttons") %>%
formatCurrency(4, currency = "€", dec.mark = ",", mark = " ", before = F)
```

## Par service exécutant
```{r ext_par_service}
endoscopies_ext() %>%
group_by(Service) %>%
summarise(Venues = n_distinct(Venue),
Valorisation = sum(Tarif)) %>%
ungroup %>%
arrange(desc(Valorisation)) %>%
datatable(rownames = F,
extensions = "Buttons") %>%
formatCurrency(3, currency = "€", dec.mark = ",", mark = " ", before = F)
```

## Par service exécutant et par acte
```{r ext_par_acte_et_service}
endoscopies_ext() %>%
group_by(Service, Acte, Acte_libelle) %>%
summarise(Venues = n_distinct(Venue),
Valorisation = sum(Tarif)) %>%
arrange(Service, desc(Valorisation)) %>%
ungroup %>%
datatable(options = list(paging = T, searching = T),
colnames = c("Libelle" = "Acte_libelle"),
rownames = F,
extensions = "Buttons",
filter = "top") %>%
formatCurrency(5, currency = "€", dec.mark = ",", mark = " ", before = F)
```


# Hospitalisation

## Total
```{r total_hos}
endoscopies_hos() %>%
summarise(RSS = n(),
Valorisation = sum(Valorisation)) %>%
datatable(rownames = F,
extensions = "Buttons") %>%
formatCurrency(2, currency = "€", dec.mark = ",", mark = " ", before = F)
```

## Par durée d'hospitalisation
```{r hos_par_durée}
endoscopies_hos() %>%
group_by(Type_duree) %>%
summarise(RSS = n(),
Valorisation = sum(Valorisation)) %>%
datatable(rownames = F,
colnames = c("Durée" = "Type_duree"),
extensions = "Buttons") %>%
formatCurrency(3, currency = "€", dec.mark = ",", mark = " ", before = F)
```

## Par GHM {.tabset}

### 0 ou 1j
```{r ghm_hos_0j}
endoscopies_hos() %>%
filter(Type_duree == "0 ou 1 j") %>%
group_by(GHM, GHM_libelle) %>%
summarise(RSS = n(),
Valorisation = sum(Valorisation)) %>%
ungroup %>%
arrange(desc(RSS)) %>%
datatable(rownames = F,
colnames = c("Libelle GHM" = "GHM_libelle"),
options = list(paging = T),
extensions = "Buttons") %>%
formatCurrency(4, currency = "€", dec.mark = ",", mark = " ", before = F) %>%
formatRound(5)
```

### 1+ j
```{r ghm_hos_1j}
endoscopies_hos() %>%
filter(Type_duree == "1+ j") %>%
group_by(GHM, GHM_libelle) %>%
summarise(RSS = n(),
Valorisation = sum(Valorisation)) %>%
ungroup %>%
arrange(desc(RSS)) %>%
datatable(rownames = F,
colnames = c("Libelle GHM" = "GHM_libelle"),
options = list(paging = T),
extensions = "Buttons") %>%
formatCurrency(4, currency = "€", dec.mark = ",", mark = " ", before = F) %>%
formatRound(5)
```

BIN
endoscopies_ext.wid View File


BIN
endoscopies_hos.wid View File


+ 315
- 0
index.Rmd View File

@@ -0,0 +1,315 @@
---
title: Endoscopies
runtime: shiny
output:
html_document:
toc: true
toc_float: true
---

```{r setup, message = F, warning = F, echo = F}
library(tidyverse)
library(DT)
library(knitr)
library(magrittr)
library(stringr)

opts_chunk$set(message = F,
echo = F,
warning = F)
options(DT.options = list(paging = F,
searching = F,
info = F,
dom = "Bfrtip",
buttons = c("copy", "excel")),
shiny.maxRequestSize = 100*1024^2)
```

# {.tabset}

## Chargement des données

Les fichiers doivent être fournis au format CSV avec les paramètres suivants :

* séparateur de champs = ,
* guillemets = "
* encodage = UTF-8
* séparateur de décimales = ,

### Endoscopies en externe

Le fichier doit être issu de la [requête suivante](endoscopies_ext.wid).

### Endoscopies en hospitalisation

Le fichier doit être issu de la [requête suivante](endoscopies_hos.wid).

```{r data}
inputPanel(
fileInput("ext", "Endoscopies externes", accept = "text/csv"),
fileInput("hos", "Endoscopies hospitalisations", accept = "text/csv"),
downloadButton("report", "Générer le rapport")
)

read_csv2("actes.csv") -> liste_actes

endoscopies <- reactive(
{
req(input$ext)

read_csv(input$ext$datapath, locale = locale(decimal_mark = ",")) %>%
setNames(c("Venue", "Intervention", "Acte", "Tarif", "Acte_libelle", "Service", "Type_venue")) %>%
left_join(liste_actes %>% select(Code, Appareil), by = c("Acte" = "Code")) %>%
dmap_if(is.character, factor) %>%
filter(Tarif != 0) %>%
distinct
}
)

endoscopies_ext <- reactive(
{
req(endoscopies())

endoscopies() %>%
filter(Type_venue != 2)
})

endoscopies_hos <- reactive(
{
req(input$hos)

read_csv(input$hos$datapath, locale = locale(decimal_mark = ",")) %>%
setNames(c("RSS", "Durée", "GHM", "GHM_libelle", "Valorisation")) %>%
distinct %>%
mutate(Type_duree = `Durée` %>% cut(c(-Inf, 1.5, Inf), labels = c("0 ou 1 j", "1+ j")))
})

```

```{r report}
output$report <- downloadHandler(filename = "endoscopies.html",
content = function(file)
{
tempReport <- file.path(tempdir(), "endoscopies.rmd")
file.copy("endoscopies.rmd", tempReport, overwrite = T)
rmarkdown::render(tempReport, output_file = file, params = list(liste_actes = liste_actes, endoscopies = endoscopies(), endoscopies_ext = endoscopies_ext(), endoscopies_hos = endoscopies_hos()))
})
```

## Rapport

### Codes utilisés {.tabset}

#### ORL
```{r liste_orl}
liste_actes %>%
filter(Appareil == "ORL") %>%
select(- Appareil) %>%
datatable(rownames = F, options = list(paging = T, searching = T))
```

#### Digestif
```{r liste_dig}
liste_actes %>%
filter(Appareil == "Digestif") %>%
select(- Appareil) %>%
datatable(rownames = F, options = list(paging = T, searching = T))
```

#### Respiratoire
```{r liste_respi}
liste_actes %>%
filter(Appareil == "Respiratoire") %>%
select(- Appareil) %>%
datatable(rownames = F, options = list(paging = T, searching = T))
```

#### Génito-urinaire
```{r liste_uro}
liste_actes %>%
filter(Appareil == "Genito-urinaire") %>%
select(- Appareil) %>%
datatable(rownames = F, options = list(paging = T, searching = T))
```

### Global

#### Total
```{r global_total}
renderDataTable(
{
endoscopies() %>%
summarise(Venues = n_distinct(Venue)) %>%
datatable(rownames = F,
extensions = "Buttons")
})
```

#### Par service exécutant
```{r global_par_service}
renderDataTable(
{
endoscopies() %>%
group_by(Service) %>%
summarise(Venues = n_distinct(Venue)) %>%
ungroup %>%
arrange(desc(Venues)) %>%
datatable(rownames = F,
extensions = "Buttons")
})
```

### Externe

#### Total
```{r ext_total}
renderDataTable(
{
endoscopies_ext() %>%
summarise(Venues = n_distinct(Venue),
Valorisation = sum(Tarif)) %>%
datatable(rownames = F,
extensions = "Buttons") %>%
formatCurrency(2, currency = "€", dec.mark = ",", mark = " ", before = F)
})
```

#### Par appareil
```{r ext_par_appareil}
renderDataTable(
{
endoscopies_ext() %>%
group_by(Appareil) %>%
summarise(Venues = n_distinct(Venue),
Valorisation = sum(Tarif)) %>%
arrange(desc(Valorisation)) %>%
datatable(rownames = F,
extensions = "Buttons") %>%
formatCurrency(3, currency = "€", dec.mark = ",", mark = " ", before = F)
})
```

#### Par acte
```{r ext_par_acte}
renderDataTable(
{
endoscopies_ext() %>%
group_by(Acte, Acte_libelle) %>%
summarise(Venues = n_distinct(Venue),
Valorisation = sum(Tarif)) %>%
ungroup %>%
arrange(desc(Valorisation)) %>%
datatable(options = list(paging = T, searching = T),
colnames = c("Libelle" = "Acte_libelle"),
rownames = F,
extensions = "Buttons") %>%
formatCurrency(4, currency = "€", dec.mark = ",", mark = " ", before = F)
})
```

#### Par service exécutant
```{r ext_par_service}
renderDataTable(
{
endoscopies_ext() %>%
group_by(Service) %>%
summarise(Venues = n_distinct(Venue),
Valorisation = sum(Tarif)) %>%
ungroup %>%
arrange(desc(Valorisation)) %>%
datatable(rownames = F,
extensions = "Buttons") %>%
formatCurrency(3, currency = "€", dec.mark = ",", mark = " ", before = F)
})
```

#### Par service exécutant et par acte
```{r ext_par_acte_et_service}
renderDataTable(
{
endoscopies_ext() %>%
group_by(Service, Acte, Acte_libelle) %>%
summarise(Venues = n_distinct(Venue),
Valorisation = sum(Tarif)) %>%
arrange(Service, desc(Valorisation)) %>%
ungroup %>%
datatable(options = list(paging = T, searching = T),
colnames = c("Libelle" = "Acte_libelle"),
rownames = F,
extensions = "Buttons",
filter = "top") %>%
formatCurrency(5, currency = "€", dec.mark = ",", mark = " ", before = F)
})
```

### Hospitalisation

#### Total
```{r total_hos}
renderDataTable(
{
endoscopies_hos() %>%
summarise(RSS = n(),
Valorisation = sum(Valorisation)) %>%
datatable(rownames = F,
extensions = "Buttons") %>%
formatCurrency(2, currency = "€", dec.mark = ",", mark = " ", before = F)
})
```

#### Par durée d'hospitalisation
```{r hos_par_durée}
renderDataTable(
{
endoscopies_hos() %>%
group_by(Type_duree) %>%
summarise(RSS = n(),
Valorisation = sum(Valorisation)) %>%
datatable(rownames = F,
colnames = c("Durée" = "Type_duree"),
extensions = "Buttons") %>%
formatCurrency(3, currency = "€", dec.mark = ",", mark = " ", before = F)
})
```

#### Par GHM {.tabset}

##### 0 ou 1j
```{r ghm_hos_0j}
renderDataTable(
{
endoscopies_hos() %>%
filter(Type_duree == "0 ou 1 j") %>%
group_by(GHM, GHM_libelle) %>%
summarise(RSS = n(),
Valorisation = sum(Valorisation)) %>%
ungroup %>%
arrange(desc(RSS)) %>%
datatable(rownames = F,
colnames = c("Libelle GHM" = "GHM_libelle"),
options = list(paging = T),
extensions = "Buttons") %>%
formatCurrency(4, currency = "€", dec.mark = ",", mark = " ", before = F) %>%
formatRound(5)
})
```

##### 1+ j
```{r ghm_hos_1j}
renderDataTable(
{
endoscopies_hos() %>%
filter(Type_duree == "1+ j") %>%
group_by(GHM, GHM_libelle) %>%
summarise(RSS = n(),
Valorisation = sum(Valorisation)) %>%
ungroup %>%
arrange(desc(RSS)) %>%
datatable(rownames = F,
colnames = c("Libelle GHM" = "GHM_libelle"),
options = list(paging = T),
extensions = "Buttons") %>%
formatCurrency(4, currency = "€", dec.mark = ",", mark = " ", before = F) %>%
formatRound(5)
})
```

Write Preview
Loading…
Cancel
Save