142. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/27/2018 2:07:03 PM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

142.1 Files compared

# Location File Last Modified
1 BMS_v2.4_Code.zip\BMS_v2.4_Code\Database\BMSv2Updates\2.2.22.1 usp_Rpt_VISN_EmergencyManagementEvacuationRegulate_IconCounts.sql Wed Mar 21 14:50:06 2018 UTC
2 BMS_v2.4_Code.zip\BMS_v2.4_Code\Database\BMSv2Updates\2.2.22.1 usp_Rpt_VISN_EmergencyManagementEvacuationRegulate_IconCounts.sql Mon Mar 26 12:56:27 2018 UTC

142.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 922
Changed 1 2
Inserted 0 0
Removed 0 0

142.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

142.4 Active regular expressions

No regular expressions were active.

142.5 Comparison detail

  1   USE [BMS_D W]
  2   GO
  3   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Rpt_VI SN_Emergen cyManageme ntEvacuati onRegulate _IconCount s]    Scri pt Date: 9 /21/2017 2 :44:42 PM  ******/
  4   SET ANSI_N ULLS ON
  5   GO
  6   SET QUOTED _IDENTIFIE R ON
  7   GO
  8  
  9  
  10   /*
  11   exec sp_ex ecutesql N 'IF @IS_RE GULATE_REP ORT = 1
  12   BEGIN
  13   exec [usp_ Rpt_VISN_E mergencyMa nagementEv acuationRe gulate_Ico nCounts] @ USER_NAME, @VISNID,@D IVISION_ID , @DIVISIO N_NAME, @U serSalt
  14   END
  15   ELSE
  16   BEGIN
  17        SELEC T  
  18           NU LL AS ICON _ID,
  19           NU LL AS SHOR T_DESCRIPT ION,
  20           NU LL AS  IMA GE_BYTES,
  21           NU LL AS ICON _COUNT
  22   END',N'@IS _REGULATE_ REPORT bit ,
  23   @USER_NAME  nvarchar( 26),
  24   @VISNID          nvar char(200),
  25   @DIVISION_ ID nvarcha r(2),
  26   @DIVISION_ NAME nvarc har(9),
  27   @UserSalt  nvarchar(3 6)',
  28   @IS_REGULA TE_REPORT= 1,
  29   @USER_NAME =DNS.URLDN S            ',
  30   @VISNID=N' B86766B1-F 9C8-48E3-A 950-0926EF 13B542',
  31   @DIVISION_ ID=N'-1',
  32   @DIVISION_ NAME=N'All  Wards',
  33   @UserSalt= N'dmhhLm1l ZC52YS5nb3 ZcdmhhaXNk aG9ybmQ='
  34   */
  35  
  36   CREATE PRO CEDURE [db o].[usp_Rp t_VISN_Eme rgencyMana gementEvac uationRegu late_IconC ounts] 
  37           @U SER_NAME N VARCHAR(50 0) = NULL,
  38           @V ISNID          NVarch ar(250),
  39           -- @FACILITY_ EXTENSION  NVARCHAR(2 50),@DIVIS ION_ID INT  = NULL,
  40           @D IVISION_ID  INT = NUL L,
  41           @D IVISION_NA ME NVARCHA R(250),
  42           @U serSalt NV ARCHAR(250 )
  43   AS
  44   BEGIN
  45           -- CREATE FAC ILITY LIST  FROM VISN  CODE
  46                    CREA TE TABLE # FacilityLi st (
  47                             ID                Int,
  48                             Name     Varchar( 250), 
  49                             Source _ID        Varchar(25 0), 
  50                             CODE   Varchar(25 0))
  51  
  52                    INSE RT INTO #F acilityLis t
  53                    Sele ct DISTINC
  54                             DO3.ID ,
  55                             DO3.Na me, 
  56                             DO3.SO URCE_ID, 
  57                             DO3.CO DE 
  58                    FROM  bms_dw.db o.DIM_ORGA NIZATION D O
  59                    LEFT  JOIN bms_ dw.dbo.DIM _ORGANIZAT ION DO2
  60                             ON DO2 .DIM_ORGAN IZATION_ID  = DO.ID
  61                    LEFT  JOIN bms_ dw.dbo.DIM _ORGANIZAT ION DO3
  62                             ON DO2 .ID = DO3. DIM_ORGANI ZATION_ID
  63                             AND DO 3.DIM_ORGA NIZATION_T YPE_ID = 2
  64                    WHER E DO.sourc e_id = @VI SNID
  65  
  66              -- create  permission  table
  67                    CREA TE TABLE # PERMISSION
  68                    (
  69                     DIM _ORGANIZAT ION_ID INT ,
  70                     DIM _WARD_ID I NT
  71                    )
  72                    --in sert permi ssion for  the user
  73                    INSE RT INTO #P ERMISSION 
  74                             SELECT  * FROM db o.ufn_GetP ermissionB yUserName( @USER_NAME )
  75                                      CREATE N ONCLUSTERE D INDEX [D IM_ORGANIZ ATION_ID]  ON #PERMIS SION ([DIM _ORGANIZAT ION_ID] AS C)
  76                                               WITH (
  77                                                        P AD_INDEX   = OFF,
  78                                                        S TATISTICS_ NORECOMPUT E  = OFF,
  79                                                        S ORT_IN_TEM PDB = OFF,
  80                                                        I GNORE_DUP_ KEY = OFF,
  81                                                        D ROP_EXISTI NG = OFF,
  82                                                        O NLINE = OF F,
  83                                                        A LLOW_ROW_L OCKS  = ON ,
  84                                                        A LLOW_PAGE_ LOCKS  = O N)
  85                                      CREATE N ONCLUSTERE D INDEX DI M_WARD_ID  ON #PERMIS SION (DIM_ WARD_ID AS C)
  86                                               WITH (
  87                                                        P AD_INDEX   = OFF,
  88                                                        S TATISTICS_ NORECOMPUT E  = OFF,
  89                                                        S ORT_IN_TEM PDB = OFF,
  90                                                        I GNORE_DUP_ KEY = OFF,
  91                                                        D ROP_EXISTI NG = OFF,
  92                                                        O NLINE = OF F,
  93                                                        A LLOW_ROW_L OCKS  = ON ,
  94                                                        A LLOW_PAGE_ LOCKS  = O N) ;
  95                                                                 
  96           -- DECLARE @F ACILITY_ID  INT               -- Removed
  97           -- get facili ty id
  98           -- SET @FACIL ITY_ID = d bo.ufn_Get FacilityId ByIdentifi er(@FACILI TY_EXTENSI ON);    -- Removed
  99  
  100           -- check if t he user ha s permissi on for the  facility               
  101           IF  EXISTS(SE LECT 1 
  102                               FROM  #PERMISSI ON P
  103                               INNE R JOIN #Fa cilityList  FL  --Add ed
  104                               ON F L.ID = P.D IM_ORGANIZ ATION_ID   --Added
  105                               WHER E P.DIM_OR GANIZATION _ID in (FL .ID))  --M odified
  106                    BEGI N                    
  107                                      
  108                             CREATE  TABLE #WA RD (ID INT , NAME NVA RCHAR(250) , SPECIALT Y_NAME NVA RCHAR(250) , NUMA NVA RCHAR(250) , HAvBED N VARCHAR(50 ))
  109                             --IF @ DIVISION_I D = -1 OR  @DIVISION_ ID IS NULL  OR @DIVIS ION_ID = 0
  110                                      BEGIN
  111                                               INSERT INT O #WARD(ID , SPECIALT Y_NAME, NU MA, HAvBED )
  112                                               SELECT WAR D.ID, SPEC IALTY.DISP LAY_NAME,  NUMA.DISPL AY_NAME, H AvBED.DISP LAY_NAME
  113                                               FROM dbo.D IM_WARD AS  WARD
  114                                               --INNER JO IN dbo.ufn _GetWardsB yFacilityI d(@FACILIT Y_ID) AS F AC_WARD ON  FAC_WARD. ID = WARD. ID
  115                                               LEFT JOIN  dbo.DIM_SP ECIALTY AS  SPECIALTY  ON SPECIA LTY.ID = W ARD.VISTA_ DIM_SPECIA LTY_ID
  116                                               LEFT JOIN  dbo.DIM_NU MA AS NUMA  ON NUMA.I D = SPECIA LTY.DIM_NU MA_ID
  117                                               LEFT JOIN  dbo.DIM_HA vBED AS HA vBED ON HA vBED.ID =  SPECIALTY. DIM_HAvBED _ID
  118                                               WHERE WARD .STATUS =  'active'
  119                                      END
  120                                      /*ELSE
  121                                      BEGIN            
  122                                               INSERT INT O #WARD(ID , SPECIALT Y_NAME, NU MA, HAvBED )
  123                                               SELECT ACT IVE_WARD.I D, SPECIAL TY.DISPLAY _NAME, NUM A.DISPLAY_ NAME, HAvB ED.DISPLAY _NAME
  124                                               FROM GROUP _WARD_ORGA NIZATION a s WARD
  125                                               INNER JOIN  dbo.DIM_W ARD AS ACT IVE_WARD O N ACTIVE_W ARD.ID = W ARD.DIM_WA RD_ID
  126                                               LEFT JOIN  dbo.DIM_SP ECIALTY AS  SPECIALTY  ON SPECIA LTY.ID = A CTIVE_WARD .VISTA_DIM _SPECIALTY _ID
  127                                               LEFT JOIN  dbo.DIM_NU MA AS NUMA  ON NUMA.I D = SPECIA LTY.DIM_NU MA_ID
  128                                               LEFT JOIN  dbo.DIM_HA vBED AS HA vBED ON HA vBED.ID =  SPECIALTY. DIM_HAvBED _ID
  129                                               WHERE ACTI VE_WARD.ST ATUS = 'ac tive' AND  WARD.DIM_O RGANIZATIO N_ID = @DI VISION_ID                                                                                                                    
  130                                      END*/
  131                             
  132                             CREATE  TABLE #AC TIVE_ADMIS SION(
  133                             PATIEN T_ID INT,
  134                             BED_ID  INT,
  135                             WARD_I D INT
  136                             )
  137                             
  138                             CREATE  TABLE #AD MISSION_AN D_TRANSFER (
  139                             FACT_I D INT NOT  NULL ,
  140                             BED_ID  INT,
  141                             WARD_I D INT,
  142                             PATIEN T_ID INT,
  143                             CREATE D_DATE DAT ETIME NULL ,
  144                             IS_ADM ISSION_EVN  BIT)
  145                    
  146                             INSERT  INTO #ADM ISSION_AND _TRANSFER( FACT_ID, B ED_ID, WAR D_ID, PATI ENT_ID, CR EATED_DATE , IS_ADMIS SION_EVN)
  147                             SELECT  ADM_EVN.I D, ADM_EVN .DIM_BED_I D, ADM_EVN .DIM_WARD_ ID, ADM_EV N.DIM_PATI ENT_ID, AD M_EVN.ADMI SSION_DATE , 1
  148                             FROM F ACT_ADMISS ION_EVN AS  ADM_EVN
  149                             INNER  JOIN #WARD  AS WARD O N WARD.ID  = ADM_EVN. DIM_WARD_I D
  150                             WHERE  ADM_EVN.HA S_DISCHARG E = 0
  151  
  152                             INSERT  INTO #ADM ISSION_AND _TRANSFER( FACT_ID, B ED_ID, WAR D_ID, PATI ENT_ID, CR EATED_DATE , IS_ADMIS SION_EVN)
  153                             SELECT  MOV_EVN.F ACT_ADMISS ION_EVN_ID , MOV_EVN. DIM_BED_ID , MOV_EVN. DIM_WARD_I D, MOV_EVN .DIM_PATIE NT_ID, MOV _EVN.MOVEM ENT_DATE,  0
  154                             FROM F ACT_MOVEME NT_EVN AS  MOV_EVN
  155                             INNER  JOIN (SELE CT MAX(LAS T_MOV_EVN. MOVEMENT_D ATE) AS MO VEMENT_DAT E, LAST_MO V_EVN.FACT _ADMISSION _EVN_ID
  156                                                       FR OM FACT_MO VEMENT_EVN  LAST_MOV_ EVN
  157                                                       IN NER JOIN # ADMISSION_ AND_TRANSF ER AS ADM_ EVN ON ADM _EVN.FACT_ ID = LAST_ MOV_EVN.FA CT_ADMISSI ON_EVN_ID
  158                                                       GR OUP BY LAS T_MOV_EVN. FACT_ADMIS SION_EVN_I D) MAX_ME_ EVENT 
  159                                                       ON  MAX_ME_EV ENT.MOVEME NT_DATE =  MOV_EVN.MO VEMENT_DAT E AND MAX_ ME_EVENT.F ACT_ADMISS ION_EVN_ID  = MOV_EVN .FACT_ADMI SSION_EVN_ ID
  160                             
  161                             DELETE  DEL FROM  #ADMISSION _AND_TRANS FER AS DEL
  162                             INNER  JOIN #ADMI SSION_AND_ TRANSFER A S ADM ON A DM.FACT_ID  = DEL.FAC T_ID AND A DM.BED_ID  <> DEL.BED _ID AND AD M.IS_ADMIS SION_EVN =  1
  163                             WHERE  DEL.IS_ADM ISSION_EVN  = 0
  164                             
  165                             INSERT  INTO #ACT IVE_ADMISS ION(WARD_I D, BED_ID,  PATIENT_I D)
  166                             SELECT  ADMISSION _INFO.WARD _ID, ADMIS SION_INFO. BED_ID, AD MISSION_IN FO.PATIENT _ID
  167                             FROM # ADMISSION_ AND_TRANSF ER AS ADMI SSION_INFO
  168                             INNER  JOIN 
  169                             (   SE LECT MAX(C REATED_DAT E) AS CREA TED_DATE,  BED_ID
  170                                      FROM #AD MISSION_AN D_TRANSFER
  171                                      GROUP BY  BED_ID
  172                             ) LAST _ADMISISON _INFO ON L AST_ADMISI SON_INFO.C REATED_DAT E = ADMISS ION_INFO.C REATED_DAT E AND LAST _ADMISISON _INFO.BED_ ID = ADMIS SION_INFO. BED_ID
  173  
  174                             DROP T ABLE #ADMI SSION_AND_ TRANSFER
  175                             
  176                             CREATE  TABLE #TE MPPATIENTL IST (
  177                             PATIEN T_ID       Int,
  178                             ACT_ID   Int,
  179                             LAST_N AME        nvarchar(1 00),
  180                             LAST_N AME_INITIA L_AND_LAST _FOUR nvar char(110),
  181                             GENDER            nvarchar(2 50)
  182                             )
  183  
  184                             IF @DI VISION_ID  = -1 OR @D IVISION_ID  IS NULL
  185                             BEGIN
  186                                      INSERT I NTO #TEMPP ATIENTLIST
  187                                      SELECT 
  188                                               PATIENT.ID  as PATIEN T_ID,
  189                                               EVACUATION _PATIENT.S OURCE_ID A S ACT_ID,
  190                                               PATIENT.LA ST_NAME AS  LAST_NAME ,
  191                                               SUBSTRING( PATIENT.LA ST_NAME, 1 , 1) + SUB STRING(PAT IENT.SSN,  7, 5) AS L AST_NAME_I NITIAL_AND _LAST_FOUR ,
  192                                               PATIENT.GE NDER AS GE NDER
  193                                               --dbo.ufn_ GetEmergen cyImagesBy Evacuation (@FACILITY _ID, BED.I D, PATIENT .ID) AS CL INICAL_EQU IP_REQUIRE MENTS
  194                                      FROM dbo .FACT_WAIT ING_LIST A S EVACUATI ON_PATIENT
  195                                      INNER JO IN #Facili tyList FL 
  196                                               on FL.ID =  EVACUATIO N_PATIENT. FACILITY_D IM_ORGANIZ ATION_ID
  197                                      INNER JO IN DIM_PAT IENT AS PA TIENT 
  198                                               ON PATIENT .ID = EVAC UATION_PAT IENT.DIM_P ATIENT_ID
  199                                      LEFT JOI N DIM_EVAC _DISPOSITI ON_STATUS  AS CONCEPT _EVAC_DISP OSITION_ST ATUS 
  200                                               ON CONCEPT _EVAC_DISP OSITION_ST ATUS.ID =  EVACUATION _PATIENT.D IM_EVACUAT ION_DISPOS ITION_STAT US_ID
  201                                      LEFT JOI N dbo.DIM_ EVAC_TRANS PORTATION_ TYPE AS TR ANSPORTATI ON_TYPE 
  202                                               ON TRANSPO RTATION_TY PE.ID = EV ACUATION_P ATIENT.DIM _EVACUATIO N_TRANSPOR TATION_TYP E_ID
  203                                      LEFT JOI N dbo.DIM_ EVAC_TRANS PORTATION_ PROVIDER A S TRANSPOR TATION_PRO VIDER 
  204                                               ON TRANSPO RTATION_PR OVIDER.ID  = EVACUATI ON_PATIENT .DIM_EVACU ATION_TRAN SPORTATION _PROVIDER_ ID
  205                                      LEFT JOI N #ACTIVE_ ADMISSION  AS ADMISSI ON 
  206                                               ON ADMISSI ON.PATIENT _ID = EVAC UATION_PAT IENT.DIM_P ATIENT_ID
  207                                      LEFT JOI N #WARD AS  WARD 
  208                                               ON WARD.ID  = ADMISSI ON.WARD_ID
  209                                      LEFT JOI N dbo.DIM_ BED AS BED  
  210                                               ON BED.ID  = ADMISSIO N.BED_ID
  211                                      WHERE EV ACUATION_P ATIENT.REM OVED_DATE  IS NULL 
  212                                               --AND EVAC UATION_PAT IENT.FACIL ITY_DIM_OR GANIZATION _ID = @FAC ILITY_ID   --Removed
  213                                      AND EVAC UATION_PAT IENT.FACIL ITY_DIM_OR GANIZATION _ID in (FL .ID)           --Adde d
  214                                      AND EVAC UATION_PAT IENT.IS_EV ACUATION_P ATIENT = 1
  215                             END
  216                             ELSE
  217                             IF @DI VISION_ID  = 0
  218                             BEGIN
  219                                      INSERT I NTO #TEMPP ATIENTLIST
  220                                      SELECT 
  221                                               PATIENT.ID  as PATIEN T_ID,
  222                                               EVACUATION _PATIENT.S OURCE_ID A S ACT_ID,
  223                                               PATIENT.LA ST_NAME AS  LAST_NAME ,
  224                                               SUBSTRING( PATIENT.LA ST_NAME, 1 , 1) + SUB STRING(PAT IENT.SSN,  7, 5) AS L AST_NAME_I NITIAL_AND _LAST_FOUR ,
  225                                               PATIENT.GE NDER AS GE NDER
  226                                               --dbo.ufn_ GetEmergen cyImagesBy Evacuation (@FACILITY _ID, BED.I D, PATIENT .ID) AS CL INICAL_EQU IP_REQUIRE MENTS
  227                                      FROM dbo .FACT_WAIT ING_LIST A S EVACUATI ON_PATIENT
  228                                      INNER JO IN #Facili tyList FL 
  229                                               on FL.ID =  EVACUATIO N_PATIENT. FACILITY_D IM_ORGANIZ ATION_ID
  230                                      INNER JO IN DIM_PAT IENT AS PA TIENT 
  231                                               ON PATIENT .ID = EVAC UATION_PAT IENT.DIM_P ATIENT_ID
  232                                      LEFT JOI N DIM_EVAC _DISPOSITI ON_STATUS  AS CONCEPT _EVAC_DISP OSITION_ST ATUS 
  233                                               ON CONCEPT _EVAC_DISP OSITION_ST ATUS.ID =  EVACUATION _PATIENT.D IM_EVACUAT ION_DISPOS ITION_STAT US_ID
  234                                      LEFT JOI N dbo.DIM_ EVAC_TRANS PORTATION_ TYPE AS TR ANSPORTATI ON_TYPE 
  235                                               ON TRANSPO RTATION_TY PE.ID = EV ACUATION_P ATIENT.DIM _EVACUATIO N_TRANSPOR TATION_TYP E_ID
  236                                      LEFT JOI N dbo.DIM_ EVAC_TRANS PORTATION_ PROVIDER A S TRANSPOR TATION_PRO VIDER 
  237                                               ON TRANSPO RTATION_PR OVIDER.ID  = EVACUATI ON_PATIENT .DIM_EVACU ATION_TRAN SPORTATION _PROVIDER_ ID
  238                                      LEFT JOI N #ACTIVE_ ADMISSION  AS ADMISSI ON 
  239                                               ON ADMISSI ON.PATIENT _ID = EVAC UATION_PAT IENT.DIM_P ATIENT_ID
  240                                      LEFT JOI N #WARD AS  WARD 
  241                                               ON WARD.ID  = ADMISSI ON.WARD_ID
  242                                      LEFT JOI N dbo.DIM_ BED AS BED  
  243                                               ON BED.ID  = ADMISSIO N.BED_ID
  244                                      WHERE EV ACUATION_P ATIENT.REM OVED_DATE  IS NULL 
  245                                               --AND EVAC UATION_PAT IENT.FACIL ITY_DIM_OR GANIZATION _ID = @FAC ILITY_ID   --Removed
  246                                               AND EVACUA TION_PATIE NT.FACILIT Y_DIM_ORGA NIZATION_I D in (FL.I D)           --Added
  247                                               AND EVACUA TION_PATIE NT.IS_EVAC UATION_PAT IENT = 1
  248                                               AND NOT EX ISTS (Sele ct 1 FROM  #ACTIVE_AD MISSION WH ERE #ACTIV E_ADMISSIO N.PATIENT_ ID  = EVAC UATION_PAT IENT.DIM_P ATIENT_ID)
  249                             END
  250                             ELSE 
  251                             BEGIN
  252                                      INSERT I NTO #TEMPP ATIENTLIST
  253                                      SELECT 
  254                                               PATIENT.ID  as PATIEN T_ID,
  255                                               EVACUATION _PATIENT.S OURCE_ID A S ACT_ID,
  256                                               PATIENT.LA ST_NAME AS  LAST_NAME ,
  257                                               SUBSTRING( PATIENT.LA ST_NAME, 1 , 1) + SUB STRING(PAT IENT.SSN,  7, 5) AS L AST_NAME_I NITIAL_AND _LAST_FOUR ,
  258                                               PATIENT.GE NDER AS GE NDER
  259                                               --dbo.ufn_ GetEmergen cyImagesBy Evacuation (@FACILITY _ID, BED.I D, PATIENT .ID) AS CL INICAL_EQU IP_REQUIRE MENTS
  260                                      FROM dbo .FACT_WAIT ING_LIST A S EVACUATI ON_PATIENT
  261                                      INNER JO IN #Facili tyList FL 
  262                                               on FL.ID =  EVACUATIO N_PATIENT. FACILITY_D IM_ORGANIZ ATION_ID
  263                                      INNER JO IN DIM_PAT IENT AS PA TIENT 
  264                                               ON PATIENT .ID = EVAC UATION_PAT IENT.DIM_P ATIENT_ID
  265                                      LEFT JOI N DIM_EVAC _DISPOSITI ON_STATUS  AS CONCEPT _EVAC_DISP OSITION_ST ATUS 
  266                                               ON CONCEPT _EVAC_DISP OSITION_ST ATUS.ID =  EVACUATION _PATIENT.D IM_EVACUAT ION_DISPOS ITION_STAT US_ID
  267                                      LEFT JOI N dbo.DIM_ EVAC_TRANS PORTATION_ TYPE AS TR ANSPORTATI ON_TYPE 
  268                                               ON TRANSPO RTATION_TY PE.ID = EV ACUATION_P ATIENT.DIM _EVACUATIO N_TRANSPOR TATION_TYP E_ID
  269                                      LEFT JOI N dbo.DIM_ EVAC_TRANS PORTATION_ PROVIDER A S TRANSPOR TATION_PRO VIDER 
  270                                               ON TRANSPO RTATION_PR OVIDER.ID  = EVACUATI ON_PATIENT .DIM_EVACU ATION_TRAN SPORTATION _PROVIDER_ ID
  271                                      INNER JO IN #ACTIVE _ADMISSION  AS ADMISS ION 
  272                                               ON ADMISSI ON.PATIENT _ID = EVAC UATION_PAT IENT.DIM_P ATIENT_ID
  273                                      INNER JO IN #WARD A S WARD 
  274                                               ON WARD.ID  = ADMISSI ON.WARD_ID
  275                                      LEFT JOI N dbo.DIM_ BED AS BED  
  276                                               ON BED.ID  = ADMISSIO N.BED_ID
  277                                      WHERE EV ACUATION_P ATIENT.REM OVED_DATE  IS NULL 
  278                                               --AND EVAC UATION_PAT IENT.FACIL ITY_DIM_OR GANIZATION _ID = @FAC ILITY_ID   --Removed
  279                                               AND EVACUA TION_PATIE NT.FACILIT Y_DIM_ORGA NIZATION_I D in (FL.I D)           --Added
  280                                               AND EVACUA TION_PATIE NT.IS_EVAC UATION_PAT IENT = 1
  281                             END
  282  
  283                             CREATE  TABLE #TE MPICONLIST  (
  284                                      PATIENT_ ID      In t,
  285                                      BED_ID           In t,
  286                                      ICON_ID          In t,
  287                                      SHORT_DE SCRIPTION        nvar char(150),
  288                                      IMAGE_BY TES              nvar char(max)
  289                                      )
  290  
  291   --******** ********** ********** ********** ********** ********** ******
  292   --INSERT T HE DIFFERE NT ICON TY PES
  293   ---------- ---------- ---------- ---------- ---------- -----
  294   INSERT INT O #TEMPICO NLIST
  295                             SELECT  
  296                                      T.PATIEN T_ID,
  297                                      AA.BED_I D,
  298                                      DIF.ID a s ICON_ID,
  299                                      DIF.SHOR T_DESCRIPT ION,
  300                                      DIF.IMAG E_BYTES
  301                             FROM # TEMPPATIEN TLIST T
  302                             LEFT J OIN #ACTIV E_ADMISSIO N AS AA 
  303                                      ON AA.PA TIENT_ID =  T.PATIENT _ID
  304                             LEFT J OIN GROUP_ ICON_ASSOC IATION AS  GIA
  305                                      ON GIA.D IM_BED_ID  = AA.BED_I D
  306                             INNER  JOIN DIM_I CON_FLAG A S DIF 
  307                                      ON DIF.I D = GIA.DI M_ICON_FLA G_ID 
  308                             WHERE  GIA.DIM_IC ON_FLAG_ID  IS NOT NU LL
  309                                      AND DIF. SUBGROUP =  'EMERGENC Y_ICON' 
  310                                      AND DIF. ICON_NAME  NOT Like ' %evacuat%'
  311  
  312   --FROM FUN CTION ufn_ GetEmergen cyImagesBy Evacuation
  313   --Select D IF.IMAGE_B YTES
  314   --      FR OM GROUP_I CON_ASSOCI ATION AS G IA
  315   --      IN NER JOIN D IM_ICON_FL AG AS DIF 
  316   --               ON D IF.ID = GI A.DIM_ICON _FLAG_ID 
  317   --      WH ERE GIA .D IM_BED_ID  = @BED_ID 
  318   --               AND  GIA.DIM_IC ON_FLAG_ID  IS NOT NU LL
  319   --               AND  DIF.SUBGRO UP = 'EMER GENCY_ICON
  320   --               AND  DIF.ICON_N AME NOT Li ke '%evacu at%' 
  321           
  322   ---------- ---------- ---------- ---------- ---------- ---------- ---------- -
  323   INSERT INT O #TEMPICO NLIST
  324                             SELECT  
  325                                      T.PATIEN T_ID,
  326                                      AA.BED_I D,
  327                                      DIF.ID a s ICON_ID,
  328                                      DIF.SHOR T_DESCRIPT ION,
  329                                      DIF.IMAG E_BYTES
  330                             FROM # TEMPPATIEN TLIST T
  331                             LEFT J OIN #ACTIV E_ADMISSIO N AS AA 
  332                                      ON AA.PA TIENT_ID =  T.PATIENT _ID
  333                             LEFT J OIN GROUP_ ICON_ASSOC IATION AS  GIA
  334                                      ON GIA.D IM_PATIENT _ID = AA.P ATIENT_ID
  335                             INNER  JOIN DIM_I CON_FLAG A S DIF 
  336                                      ON DIF.I D = GIA.DI M_ICON_FLA G_ID 
  337                             WHERE  GIA.DIM_IC ON_FLAG_ID  IS NOT NU LL
  338                                      AND DIF. SUBGROUP =  'EMERGENC Y_ICON' 
  339                                      AND DIF. ICON_NAME  NOT Like ' %evacuat%'
  340  
  341   --FROM FUN CTION ufn_ GetEmergen cyImagesBy Evacuation  
  342   --Select D IF.IMAGE_B YTES
  343   --      FR OM GROUP_I CON_ASSOCI ATION AS G IA
  344   --      IN NER JOIN D IM_ICON_FL AG AS DIF 
  345   --               ON D IF.ID = GI A.DIM_ICON _FLAG_ID 
  346   --      WH ERE GIA .D IM_PATIENT _ID = @PAT IENT_ID 
  347   --               AND  GIA.DIM_IC ON_FLAG_ID  IS NOT NU LL
  348   --               AND  DIF.SUBGRO UP = 'EMER GENCY_ICON
  349   --               AND  DIF.ICON_N AME NOT Li ke '%evacu at%' 
  350           
  351   ---------- ---------- ---------- ---------- ---------- ---------- ---------- -
  352   INSERT INT O #TEMPICO NLIST
  353                             SELECT  
  354                                      T.PATIEN T_ID,
  355                                      AA.BED_I D,
  356                                      DIF.ID a s ICON_ID,
  357                                      DIF.SHOR T_DESCRIPT ION,
  358                                      DIF.IMAG E_BYTES
  359                             FROM # TEMPPATIEN TLIST T                            
  360                             LEFT J OIN #ACTIV E_ADMISSIO N AS AA 
  361                                      ON AA.PA TIENT_ID =  T.PATIENT _ID
  362                             LEFT J OIN GROUP_ ICON_ASSOC IATION AS  GIA
  363                                      ON GIA.D IM_BED_ID  = AA.BED_I D
  364                             INNER  JOIN DIM_I CON_FLAG A S DIF 
  365                                      ON DIF.I D = GIA.DI M_ICON_FLA G_ID 
  366                             INNER  JOIN DIM_I CON_FLAG_F ACILITY AS  IFF 
  367                                      ON IFF.I D = GIA.DI M_ICON_FLA G_FACILITY _ID
  368                             INNER  JOIN #Faci lityList F
  369                                      on FL.ID  = IFF.DIM _ORGANIZAT ION_FACILI TY_ID
  370                             WHERE  GIA.DIM_IC ON_FLAG_ID  IS NOT NU LL
  371                                      AND DIF. SUBGROUP =  'EMERGENC Y_ICON' 
  372                                      AND DIF. ICON_NAME  NOT Like ' %evacuat%'
  373                                      AND IFF. DIM_ORGANI ZATION_FAC ILITY_ID i n (FL.ID)
  374   --FROM FUN CTION ufn_ GetEmergen cyImagesBy Evacuation
  375   --Select D IF.IMAGE_B YTES
  376   --      FR OM GROUP_I CON_ASSOCI ATION AS G IA
  377   --      IN NER JOIN D IM_ICON_FL AG_FACILIT Y AS IFF 
  378   --               ON I FF.ID = GI A.DIM_ICON _FLAG_FACI LITY_ID
  379   --      IN NER JOIN D IM_ICON_FL AG AS DIF 
  380   --               ON D IF.ID = IF F.DIM_ICON _FLAG_ID 
  381   --      WH ERE IFF.DI M_ORGANIZA TION_FACIL ITY_ID = @ FACILITY_I
  382   --               AND  GIA.DIM_BE D_ID = @BE D_ID 
  383   --               AND  GIA.DIM_IC ON_FLAG_FA CILITY_ID  IS NOT NUL L
  384   --               AND  DIF.SUBGRO UP = 'EMER GENCY_ICON
  385   --               AND  DIF.ICON_N AME NOT Li ke '%evacu at%' 
  386   ---------- ---------- ---------- ---------- ---------- ---------- ----------
  387   INSERT INT O #TEMPICO NLIST
  388                             SELECT  
  389                                      T.PATIEN T_ID,
  390                                      AA.BED_I D,
  391                                      DIF.ID a s ICON_ID,
  392                                      DIF.SHOR T_DESCRIPT ION,
  393                                      DIF.IMAG E_BYTES
  394                             FROM # TEMPPATIEN TLIST T
  395                             LEFT J OIN #ACTIV E_ADMISSIO N AS AA 
  396                                      ON AA.PA TIENT_ID =  T.PATIENT _ID
  397                             LEFT J OIN GROUP_ ICON_ASSOC IATION AS  GIA
  398                                      ON GIA.D IM_PATIENT _ID = AA.P ATIENT_ID
  399                             INNER  JOIN DIM_I CON_FLAG A S DIF 
  400                                      ON DIF.I D = GIA.DI M_ICON_FLA G_ID 
  401                             INNER  JOIN DIM_I CON_FLAG_F ACILITY AS  IFF 
  402                                      ON IFF.I D = GIA.DI M_ICON_FLA G_FACILITY _ID
  403                             INNER  JOIN #Faci lityList F
  404                                      on FL.ID  = IFF.DIM _ORGANIZAT ION_FACILI TY_ID
  405                             WHERE  GIA.DIM_IC ON_FLAG_ID  IS NOT NU LL
  406                                      AND DIF. SUBGROUP =  'EMERGENC Y_ICON' 
  407                                      AND DIF. ICON_NAME  NOT Like ' %evacuat%'
  408                                      AND IFF. DIM_ORGANI ZATION_FAC ILITY_ID i n (FL.ID)
  409   --FROM FUN CTION ufn_ GetEmergen cyImagesBy Evacuation
  410   --Select D IF.IMAGE_B YTES
  411   --      FR OM GROUP_I CON_ASSOCI ATION AS G IA
  412   --      IN NER JOIN D IM_ICON_FL AG_FACILIT Y AS IFF 
  413   --               ON I FF.ID = GI A.DIM_ICON _FLAG_FACI LITY_ID
  414   --      IN NER JOIN D IM_ICON_FL AG AS DIF 
  415   --               ON D IF.ID = IF F.DIM_ICON _FLAG_ID 
  416   --      WH ERE IFF.DI M_ORGANIZA TION_FACIL ITY_ID = @ FACILITY_I
  417   --               AND  GIA.DIM_PA TIENT_ID =  @PATIENT_ ID 
  418   --               AND  GIA.DIM_IC ON_FLAG_FA CILITY_ID  IS NOT NUL L
  419   --               AND  DIF.SUBGRO UP = 'EMER GENCY_ICON
  420   --               AND  DIF.ICON_N AME NOT Li ke '%evacu at%' 
  421                             
  422                             
  423  
  424                             
  425   --******** ********** ********** ********** ********** ********** ******                        
  426                             CREATE  TABLE #TE MPICONCOUN T (
  427                                      ICON_ID          In t,
  428                                      SHORT_DE SCRIPTION        nvar char(150),
  429                                      IMAGE_BY TES              nvar char(max),
  430                                      ICON_COU NT               Int
  431                                      )
  432  
  433                             INSERT  INTO #TEM PICONCOUNT
  434                             SELECT  DISTINCT
  435                                      T.ICON_I D,
  436                                      T.SHORT_ DESCRIPTIO N,
  437                                      T.IMAGE_ BYTES,
  438                                      Count(T. Icon_ID) a s ICON_COU NT
  439                             FROM # TEMPICONLI ST T    
  440                             GROUP  BY T.ICON_ ID, T.SHOR T_DESCRIPT ION, T.IMA GE_BYTES
  441                             
  442                             Select  * from #T EMPICONCOU NT
  443                             --Sele ct * from  #TEMPICONL IST
  444                             
  445                    
  446                    DROP  TABLE #WA RD
  447                    DROP  TABLE #AC TIVE_ADMIS SION
  448                    END
  449                    
  450           IF  OBJECT_ID ('tempdb.. #PERMISSIO N') IS NOT  NULL
  451                    BEGI N
  452                             DROP T ABLE #PERM ISSION
  453                    END
  454  
  455   END
  456  
  457   DROP TABLE  #TEMPPATI ENTLIST
  458   DROP TABLE  #TEMPICON LIST
  459   DROP TABLE  #TEMPICON COUNT
  460  
  461  
  462