118. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/27/2018 2:07:02 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.

118.1 Files compared

# Location File Last Modified
1 BMS_v2.4_Code.zip\BMS_v2.4_Code\Database\BMSv2Updates\2.1.6.3\Reports DROP_CREATE_BMS_DW_usp_EmergencyManagementEvacuationRegulate.sql Wed Mar 21 14:51:00 2018 UTC
2 BMS_v2.4_Code.zip\BMS_v2.4_Code\Database\BMSv2Updates\2.1.6.3\Reports DROP_CREATE_BMS_DW_usp_EmergencyManagementEvacuationRegulate.sql Mon Mar 26 14:25:01 2018 UTC

118.2 Comparison summary

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

118.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

118.4 Active regular expressions

No regular expressions were active.

118.5 Comparison detail

  1   USE [BMS_D W]
  2   GO
  3  
  4   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Rpt_Em ergencyMan agementEva cuationReg ulate]     Script Dat e: 6/14/20 16 9:18:05  AM ****** /
  5   DROP PROCE DURE [dbo] .[usp_Rpt_ EmergencyM anagementE vacuationR egulate]
  6   GO
  7  
  8   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Rpt_Em ergencyMan agementEva cuationReg ulate]     Script Dat e: 6/14/20 16 9:18:05  AM ****** /
  9   SET ANSI_N ULLS ON
  10   GO
  11  
  12   SET QUOTED _IDENTIFIE R ON
  13   GO
  14  
  15  
  16  
  17   /*
  18   exec [usp_ Rpt_Emerge ncyManagem entEvacuat ionRegulat e] ' DNS . URL \bms_svc_s qa',Null,  Null, Null , Null
  19   CURRENT ST ATUS = 55. 01 added.  Can't test  Locally. 
  20   */
  21  
  22   CREATE PRO CEDURE [db o].[usp_Rp t_Emergenc yManagemen tEvacuatio nRegulate]  
  23           @U SER_NAME N VARCHAR(50 0) = NULL,
  24           @F ACILITY_EX TENSION NV ARCHAR(250 ),
  25           @D IVISION_ID  INT = NUL L,
  26           @D IVISION_NA ME NVARCHA R(250),
  27           @U serSalt NV ARCHAR(250 )
  28   AS
  29   BEGIN
  30  
  31              -- create  permission  table
  32                    CREA TE TABLE # PERMISSION
  33                    (
  34                     DIM _ORGANIZAT ION_ID INT ,
  35                     DIM _WARD_ID I NT
  36                    )
  37                    --in sert permi ssion for  the user
  38                    INSE RT INTO #P ERMISSION 
  39                             SELECT  * FROM db o.ufn_GetP ermissionB yUserName( @USER_NAME )
  40                                      CREATE N ONCLUSTERE D INDEX [D IM_ORGANIZ ATION_ID]  ON #PERMIS SION ([DIM _ORGANIZAT ION_ID] AS C)
  41                                               WITH (
  42                                                        P AD_INDEX   = OFF,
  43                                                        S TATISTICS_ NORECOMPUT E  = OFF,
  44                                                        S ORT_IN_TEM PDB = OFF,
  45                                                        I GNORE_DUP_ KEY = OFF,
  46                                                        D ROP_EXISTI NG = OFF,
  47                                                        O NLINE = OF F,
  48                                                        A LLOW_ROW_L OCKS  = ON ,
  49                                                        A LLOW_PAGE_ LOCKS  = O N)
  50                                      CREATE N ONCLUSTERE D INDEX DI M_WARD_ID  ON #PERMIS SION (DIM_ WARD_ID AS C)
  51                                               WITH (
  52                                                        P AD_INDEX   = OFF,
  53                                                        S TATISTICS_ NORECOMPUT E  = OFF,
  54                                                        S ORT_IN_TEM PDB = OFF,
  55                                                        I GNORE_DUP_ KEY = OFF,
  56                                                        D ROP_EXISTI NG = OFF,
  57                                                        O NLINE = OF F,
  58                                                        A LLOW_ROW_L OCKS  = ON ,
  59                                                        A LLOW_PAGE_ LOCKS  = O N) ;
  60                                                                 
  61           DE CLARE @FAC ILITY_ID I NT
  62           -- get facili ty id
  63           SE T @FACILIT Y_ID = dbo .ufn_GetFa cilityIdBy Identifier (@FACILITY _EXTENSION );
  64           -- check if t he user ha s permissi on for the  facility               
  65           IF  EXISTS(SE LECT 1 
  66                               FROM  #PERMISSI ON
  67                               WHER E DIM_ORGA NIZATION_I D = @FACIL ITY_ID)
  68                    BEGI N                    
  69                                      
  70                             CREATE  TABLE #WA RD (ID INT , NAME NVA RCHAR(250) , SPECIALT Y_NAME NVA RCHAR(250) , NUMA NVA RCHAR(250) , HAvBED N VARCHAR(50 ))
  71                             IF @DI VISION_ID  = -1 OR @D IVISION_ID  IS NULL
  72                                      BEGIN
  73                                               INSERT INT O #WARD(ID , NAME, SP ECIALTY_NA ME, NUMA,  HAvBED)
  74                                               SELECT WAR D.ID, WARD .NAME, SPE CIALTY.DIS PLAY_NAME,  NUMA.DISP LAY_NAME,  HAvBED.DIS PLAY_NAME
  75                                               FROM dbo.D IM_WARD AS  WARD
  76                                               INNER JOIN  dbo.ufn_G etWardsByF acilityId( @FACILITY_ ID) AS FAC _WARD ON F AC_WARD.ID  = WARD.ID
  77                                               LEFT JOIN  dbo.DIM_SP ECIALTY AS  SPECIALTY  ON SPECIA LTY.ID = W ARD.VISTA_ DIM_SPECIA LTY_ID
  78                                               LEFT JOIN  dbo.DIM_NU MA AS NUMA  ON NUMA.I D = SPECIA LTY.DIM_NU MA_ID
  79                                               LEFT JOIN  dbo.DIM_HA vBED AS HA vBED ON HA vBED.ID =  SPECIALTY. DIM_HAvBED _ID
  80                                               WHERE WARD .STATUS =  'active'
  81                                      END
  82                             ELSE
  83                                      BEGIN            
  84                                               INSERT INT O #WARD(ID , NAME, SP ECIALTY_NA ME, NUMA,  HAvBED)
  85                                               SELECT ACT IVE_WARD.I D, ACTIVE_ WARD.NAME,  SPECIALTY .DISPLAY_N AME, NUMA. DISPLAY_NA ME, HAvBED .DISPLAY_N AME
  86                                               FROM GROUP _WARD_ORGA NIZATION a s WARD
  87                                               INNER JOIN  dbo.DIM_W ARD AS ACT IVE_WARD O N ACTIVE_W ARD.ID = W ARD.ID
  88                                               LEFT JOIN  dbo.DIM_SP ECIALTY AS  SPECIALTY  ON SPECIA LTY.ID = A CTIVE_WARD .VISTA_DIM _SPECIALTY _ID
  89                                               LEFT JOIN  dbo.DIM_NU MA AS NUMA  ON NUMA.I D = SPECIA LTY.DIM_NU MA_ID
  90                                               LEFT JOIN  dbo.DIM_HA vBED AS HA vBED ON HA vBED.ID =  SPECIALTY. DIM_HAvBED _ID
  91                                               WHERE ACTI VE_WARD.ST ATUS = 'ac tive' AND  WARD.DIM_O RGANIZATIO N_ID = @DI VISION_ID                                                                                                                    
  92                                      END
  93                             
  94                             CREATE  TABLE #AC TIVE_ADMIS SION(
  95                             PATIEN T_ID INT,
  96                             BED_ID  INT,
  97                             WARD_I D INT
  98                             )
  99                             
  100                             CREATE  TABLE #AD MISSION_AN D_TRANSFER (
  101                             FACT_I D INT NOT  NULL ,
  102                             BED_ID  INT,
  103                             WARD_I D INT,
  104                             PATIEN T_ID INT,
  105                             CREATE D_DATE DAT ETIME NULL ,
  106                             IS_ADM ISSION_EVN  BIT)
  107                    
  108                             INSERT  INTO #ADM ISSION_AND _TRANSFER( FACT_ID, B ED_ID, WAR D_ID, PATI ENT_ID, CR EATED_DATE , IS_ADMIS SION_EVN)
  109                             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
  110                             FROM F ACT_ADMISS ION_EVN AS  ADM_EVN
  111                             INNER  JOIN #WARD  AS WARD O N WARD.ID  = ADM_EVN. DIM_WARD_I D
  112                             WHERE  ADM_EVN.HA S_DISCHARG E = 0
  113  
  114                             INSERT  INTO #ADM ISSION_AND _TRANSFER( FACT_ID, B ED_ID, WAR D_ID, PATI ENT_ID, CR EATED_DATE , IS_ADMIS SION_EVN)
  115                             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
  116                             FROM F ACT_MOVEME NT_EVN AS  MOV_EVN
  117                             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
  118                                                       FR OM FACT_MO VEMENT_EVN  LAST_MOV_ EVN
  119                                                       IN NER JOIN # ADMISSION_ AND_TRANSF ER AS ADM_ EVN ON ADM _EVN.FACT_ ID = LAST_ MOV_EVN.FA CT_ADMISSI ON_EVN_ID
  120                                                       GR OUP BY LAS T_MOV_EVN. FACT_ADMIS SION_EVN_I D) MAX_ME_ EVENT 
  121                                                       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
  122                             
  123                             DELETE  DEL FROM  #ADMISSION _AND_TRANS FER AS DEL
  124                             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
  125                             WHERE  DEL.IS_ADM ISSION_EVN  = 0
  126                             
  127                             INSERT  INTO #ACT IVE_ADMISS ION(WARD_I D, BED_ID,  PATIENT_I D)
  128                             SELECT  ADMISSION _INFO.WARD _ID, ADMIS SION_INFO. BED_ID, AD MISSION_IN FO.PATIENT _ID
  129                             FROM # ADMISSION_ AND_TRANSF ER AS ADMI SSION_INFO
  130                             INNER  JOIN 
  131                             (   SE LECT MAX(C REATED_DAT E) AS CREA TED_DATE,  BED_ID
  132                                      FROM #AD MISSION_AN D_TRANSFER
  133                                      GROUP BY  BED_ID
  134                             ) 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
  135  
  136                             DROP T ABLE #ADMI SSION_AND_ TRANSFER
  137                             
  138                             SELECT  EVACUATIO N_PATIENT. SOURCE_ID  AS ACT_ID,
  139                             PATIEN T.LAST_NAM E AS LAST_ NAME,
  140                             SUBSTR ING(PATIEN T.LAST_NAM E, 1, 1) +  SUBSTRING (PATIENT.S SN, 7, 5)  AS LAST_NA ME_INITIAL _AND_LAST_ FOUR,
  141                             PATIEN T.GENDER A S GENDER,
  142                             'VS: '  + ISNULL( WARD.SPECI ALTY_NAME,  '') AS WA RD_SPECIAL TY_NAME,
  143                'NU: ' +  ISNULL(WA RD.NUMA, ' ') AS WARD _NUMA_NAME ,
  144                'HV: ' +  ISNULL(WA RD.HAvBED, '') AS WAR D_HAvBED_N AME,                          
  145                             PATIEN T.ADMITTIN G_DIAGNOSI S AS PRESE NTING_PROB LEM,
  146                             ISNULL (WARD.NAME , '') + '  - ' + ISNU LL(BED.NAM E, '')  AS  CURRENT_L OCATION,
  147                             dbo.uf n_GetEmerg encyImages ByEvacuati on(@FACILI TY_ID, BED .ID, PATIE NT.ID) AS  CLINICAL_E QUIP_REQUI REMENTS,
  148                             EVACUA TION_PATIE NT.EVACUAT ION_TRANSP ORTATION_C ARE_LEVEL  AS  TRANSP ORT_CARE_L EVEL,                
  149                             EVACUA TION_PATIE NT.EVACUAT ION_ENROUT E_MEDICAL_ ATTENDANT  AS ENROUTE _MA,
  150                             EVACUA TION_PATIE NT.EVACUAT ION_ENROUT E_NON_MEDI CAL_ATTEND ANT AS ENR OUTE_NMA,                                                  
  151                             TRANSP ORTATION_T YPE.DISPLA Y_NAME AS  TRANSPORTA TION_TYPE,
  152                             TRANSP ORTATION_P ROVIDER.DI SPLAY_NAME  AS TRANSP ORTATION_P ROVIDER,
  153                             EVACUA TION_PATIE NT.EVACUAT ION_TRANSP ORTATION_C OMMENTS AS  TRANSPORT ATION_COMM ENTS,
  154                             EVACUA TION_PATIE NT.EVACUAT ION_VEHICL E_ID as VE HICLE_ID,
  155                             EVACUA TION_PATIE NT.EVACUAT ION_VEHICL E_SEAT_POS ITION as S EAT_POSITI ON,
  156                             [dbo]. [ufn_Encry pt] ('idAd mission='  + cast(EVA CUATION_PA TIENT.SOUR CE_ID as n varchar(10 0)) 
  157                                      + '&isFr omEvacuati onReport=t rue&select edDivision Name=' + @ DIVISION_N AME + '&se lectedDivi sionId=' 
  158                                      + cast(@ DIVISION_I D as nvarc har(100)) 
  159                                      + '&isRo sterReport =false&isR egulateRep ort=true&i sManifestR eport=fals e&isTransf erReport=f alse', @Us erSalt) AS  PATIENT_L INK
  160                             FROM d bo.FACT_WA ITING_LIST  AS EVACUA TION_PATIE NT
  161                             INNER  JOIN DIM_P ATIENT AS  PATIENT ON  PATIENT.I D = EVACUA TION_PATIE NT.DIM_PAT IENT_ID
  162                             LEFT J OIN DIM_EV AC_DISPOSI TION_STATU S AS CONCE PT_EVAC_DI SPOSITION_ STATUS ON  CONCEPT_EV AC_DISPOSI TION_STATU S.ID = EVA CUATION_PA TIENT.DIM_ EVACUATION _DISPOSITI ON_STATUS_ ID
  163                             LEFT J OIN dbo.DI M_EVAC_TRA NSPORTATIO N_TYPE AS  TRANSPORTA TION_TYPE  ON TRANSPO RTATION_TY PE.ID = EV ACUATION_P ATIENT.DIM _EVACUATIO N_TRANSPOR TATION_TYP E_ID
  164                             LEFT J OIN dbo.DI M_EVAC_TRA NSPORTATIO N_PROVIDER  AS TRANSP ORTATION_P ROVIDER ON  TRANSPORT ATION_PROV IDER.ID =  EVACUATION _PATIENT.D IM_EVACUAT ION_TRANSP ORTATION_P ROVIDER_ID
  165                             LEFT J OIN #ACTIV E_ADMISSIO N AS ADMIS SION ON AD MISSION.PA TIENT_ID =  EVACUATIO N_PATIENT. DIM_PATIEN T_ID
  166                             LEFT J OIN #WARD  AS WARD ON  WARD.ID =  ADMISSION .WARD_ID
  167                             LEFT J OIN dbo.DI M_BED AS B ED ON BED. ID = ADMIS SION.BED_I D
  168                             WHERE  EVACUATION _PATIENT.R EMOVED_DAT E IS NULL  AND EVACUA TION_PATIE NT.FACILIT Y_DIM_ORGA NIZATION_I D = @FACIL ITY_ID AND  EVACUATIO N_PATIENT. IS_EVACUAT ION_PATIEN T = 1
  169                             DROP T ABLE #WARD
  170                             DROP T ABLE #ACTI VE_ADMISSI ON                                                
  171                    END
  172                    
  173           IF  OBJECT_ID ('tempdb.. #PERMISSIO N') IS NOT  NULL
  174                    BEGI N
  175                             DROP T ABLE #PERM ISSION
  176                    END
  177   END
  178  
  179  
  180  
  181  
  182   GO
  183  
  184  

Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.