654. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 10/26/2017 10:44:43 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.

654.1 Files compared

# Location File Last Modified
1 OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\Source\Sources\Database\BMSv2Updates\2.1.6.3\Reports DROP_CREATE_BMS_DW_usp_EmergencyManagementEvacuationManifest.sql Wed Oct 18 19:06:44 2017 UTC
2 OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\Source\Sources\Database\BMSv2Updates\2.1.6.3\Reports DROP_CREATE_BMS_DW_usp_EmergencyManagementEvacuationManifest.sql Thu Oct 26 19:34:32 2017 UTC

654.2 Comparison summary

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

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

654.4 Active regular expressions

No regular expressions were active.

654.5 Comparison detail

  1   USE [BMS_D W]
  2   GO
  3  
  4   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Rpt_Em ergencyMan agementEva cuationMan ifest]     Script Dat e: 6/14/20 16 9:19:13  AM ****** /
  5   DROP PROCE DURE [dbo] .[usp_Rpt_ EmergencyM anagementE vacuationM anifest]
  6   GO
  7  
  8   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Rpt_Em ergencyMan agementEva cuationMan ifest]     Script Dat e: 6/14/20 16 9:19:13  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_R pt_Emergen cyManageme ntEvacuati onManifest  ' DNS ',Null, Nu ll, Null,  Null
  19   CURRENT ST ATUS = 56. 01, 56.04,  56.05 add ed. 
  20   Need Info  on 56.02,  56.03
  21   Can't test  Locally. 
  22   */
  23  
  24   CREATE PRO CEDURE [db o].[usp_Rp t_Emergenc yManagemen tEvacuatio nManifest]  
  25           @U SER_NAME N VARCHAR(50 0) = NULL,
  26           @F ACILITY_EX TENSION NV ARCHAR(250 ),
  27           @D IVISION_ID  INT = NUL L,
  28           @D IVISION_NA ME NVARCHA R(250),
  29           @U serSalt NV ARCHAR(250 )
  30   AS
  31   BEGIN
  32  
  33               -- create  permissio n table
  34                    CREA TE TABLE # PERMISSION
  35                    (
  36                     DIM _ORGANIZAT ION_ID INT ,
  37                     DIM _WARD_ID I NT
  38                    )
  39                    --in sert permi ssion for  the user
  40                    INSE RT INTO #P ERMISSION 
  41                             SELECT  * FROM db o.ufn_GetP ermissionB yUserName( @USER_NAME )
  42                                      CREATE N ONCLUSTERE D INDEX [D IM_ORGANIZ ATION_ID]  ON #PERMIS SION ([DIM _ORGANIZAT ION_ID] AS C)
  43                                               WITH (
  44                                                        P AD_INDEX   = OFF,
  45                                                        S TATISTICS_ NORECOMPUT E  = OFF,
  46                                                        S ORT_IN_TEM PDB = OFF,
  47                                                        I GNORE_DUP_ KEY = OFF,
  48                                                        D ROP_EXISTI NG = OFF,
  49                                                        O NLINE = OF F,
  50                                                        A LLOW_ROW_L OCKS  = ON ,
  51                                                        A LLOW_PAGE_ LOCKS  = O N)
  52                                      CREATE N ONCLUSTERE D INDEX DI M_WARD_ID  ON #PERMIS SION (DIM_ WARD_ID AS C)
  53                                               WITH (
  54                                                        P AD_INDEX   = OFF,
  55                                                        S TATISTICS_ NORECOMPUT E  = OFF,
  56                                                        S ORT_IN_TEM PDB = OFF,
  57                                                        I GNORE_DUP_ KEY = OFF,
  58                                                        D ROP_EXISTI NG = OFF,
  59                                                        O NLINE = OF F,
  60                                                        A LLOW_ROW_L OCKS  = ON ,
  61                                                        A LLOW_PAGE_ LOCKS  = O N) ;
  62                                                                 
  63           DE CLARE @FAC ILITY_ID I NT
  64           -- get facili ty id
  65           SE T @FACILIT Y_ID = dbo .ufn_GetFa cilityIdBy Identifier (@FACILITY _EXTENSION );                        
  66           -- check if t he user ha s permissi on for the  facility               
  67           IF  EXISTS(SE LECT 1 
  68                               FROM  #PERMISSI ON
  69                               WHER E DIM_ORGA NIZATION_I D = @FACIL ITY_ID)
  70                    BEGI N                    
  71                                              
  72                             CREATE  TABLE #WA RD (ID INT , SPECIALT Y_NAME NVA RCHAR(250) , NUMA NVA RCHAR(250) , HAvBED N VARCHAR(50 ))
  73                             IF @DI VISION_ID  = -1 OR @D IVISION_ID  IS NULL
  74                                      BEGIN
  75                                               INSERT INT O #WARD(ID , SPECIALT Y_NAME, NU MA, HAvBED )
  76                                               SELECT WAR D.ID, SPEC IALTY.DISP LAY_NAME,  NUMA.DISPL AY_NAME, H AvBED.DISP LAY_NAME
  77                                               FROM dbo.D IM_WARD AS  WARD
  78                                               INNER JOIN  dbo.ufn_G etWardsByF acilityId( @FACILITY_ ID) AS FAC _WARD ON F AC_WARD.ID  = WARD.ID
  79                                               LEFT JOIN  dbo.DIM_SP ECIALTY AS  SPECIALTY  ON SPECIA LTY.ID = W ARD.VISTA_ DIM_SPECIA LTY_ID
  80                                               LEFT JOIN  dbo.DIM_NU MA AS NUMA  ON NUMA.I D = SPECIA LTY.DIM_NU MA_ID
  81                                               LEFT JOIN  dbo.DIM_HA vBED AS HA vBED ON HA vBED.ID =  SPECIALTY. DIM_HAvBED _ID
  82                                               WHERE WARD .STATUS =  'active'
  83                                      END
  84                             ELSE
  85                                      BEGIN            
  86                                               INSERT INT O #WARD(ID , SPECIALT Y_NAME, NU MA, HAvBED )
  87                                               SELECT ACT IVE_WARD.I D, SPECIAL TY.DISPLAY _NAME, NUM A.DISPLAY_ NAME, HAvB ED.DISPLAY _NAME
  88                                               FROM GROUP _WARD_ORGA NIZATION a s WARD
  89                                               INNER JOIN  dbo.DIM_W ARD AS ACT IVE_WARD O N ACTIVE_W ARD.ID = W ARD.ID
  90                                               LEFT JOIN  dbo.DIM_SP ECIALTY AS  SPECIALTY  ON SPECIA LTY.ID = A CTIVE_WARD .VISTA_DIM _SPECIALTY _ID
  91                                               LEFT JOIN  dbo.DIM_NU MA AS NUMA  ON NUMA.I D = SPECIA LTY.DIM_NU MA_ID
  92                                               LEFT JOIN  dbo.DIM_HA vBED AS HA vBED ON HA vBED.ID =  SPECIALTY. DIM_HAvBED _ID
  93                                               WHERE ACTI VE_WARD.ST ATUS = 'ac tive' AND  WARD.DIM_O RGANIZATIO N_ID = @DI VISION_ID                                                                                                                    
  94                                      END
  95                             
  96                             CREATE  TABLE #AC TIVE_ADMIS SION(
  97                             PATIEN T_ID INT,
  98                             BED_ID  INT,
  99                             WARD_I D INT
  100                             )
  101                             
  102                             CREATE  TABLE #AD MISSION_AN D_TRANSFER (
  103                             FACT_I D INT NOT  NULL ,
  104                             BED_ID  INT,
  105                             WARD_I D INT,
  106                             PATIEN T_ID INT,
  107                             CREATE D_DATE DAT ETIME NULL ,
  108                             IS_ADM ISSION_EVN  BIT)
  109                    
  110                             INSERT  INTO #ADM ISSION_AND _TRANSFER( FACT_ID, B ED_ID, WAR D_ID, PATI ENT_ID, CR EATED_DATE , IS_ADMIS SION_EVN)
  111                             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
  112                             FROM F ACT_ADMISS ION_EVN AS  ADM_EVN
  113                             INNER  JOIN #WARD  AS WARD O N WARD.ID  = ADM_EVN. DIM_WARD_I D
  114                             WHERE  ADM_EVN.HA S_DISCHARG E = 0
  115  
  116                             INSERT  INTO #ADM ISSION_AND _TRANSFER( FACT_ID, B ED_ID, WAR D_ID, PATI ENT_ID, CR EATED_DATE , IS_ADMIS SION_EVN)
  117                             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
  118                             FROM F ACT_MOVEME NT_EVN AS  MOV_EVN
  119                             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
  120                                                       FR OM FACT_MO VEMENT_EVN  LAST_MOV_ EVN
  121                                                       IN NER JOIN # ADMISSION_ AND_TRANSF ER AS ADM_ EVN ON ADM _EVN.FACT_ ID = LAST_ MOV_EVN.FA CT_ADMISSI ON_EVN_ID
  122                                                       GR OUP BY LAS T_MOV_EVN. FACT_ADMIS SION_EVN_I D) MAX_ME_ EVENT 
  123                                                       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
  124                             
  125                             DELETE  DEL FROM  #ADMISSION _AND_TRANS FER AS DEL
  126                             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
  127                             WHERE  DEL.IS_ADM ISSION_EVN  = 0
  128                             
  129                             INSERT  INTO #ACT IVE_ADMISS ION(WARD_I D, BED_ID,  PATIENT_I D)
  130                             SELECT  ADMISSION _INFO.WARD _ID, ADMIS SION_INFO. BED_ID, AD MISSION_IN FO.PATIENT _ID
  131                             FROM # ADMISSION_ AND_TRANSF ER AS ADMI SSION_INFO
  132                             INNER  JOIN 
  133                             (   SE LECT MAX(C REATED_DAT E) AS CREA TED_DATE,  BED_ID
  134                                      FROM #AD MISSION_AN D_TRANSFER
  135                                      GROUP BY  BED_ID
  136                             ) 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
  137  
  138                             DROP T ABLE #ADMI SSION_AND_ TRANSFER
  139                             
  140                             SELECT  EVACUATIO N_PATIENT. SOURCE_ID  AS ACT_ID,
  141                             PATIEN T.LAST_NAM E AS LAST_ NAME,
  142                             SUBSTR ING(PATIEN T.LAST_NAM E, 1, 1) +  SUBSTRING (PATIENT.S SN, 7, 5)  AS LAST_NA ME_INITIAL _AND_LAST_ FOUR,
  143                             PATIEN T.GENDER A S GENDER,
  144                             'VS: '  + ISNULL( WARD.SPECI ALTY_NAME,  '') AS WA RD_SPECIAL TY_NAME,
  145                'NU: ' +  ISNULL(WA RD.NUMA, ' ') AS WARD _NUMA_NAME ,
  146                'HV: ' +  ISNULL(WA RD.HAvBED, '') AS WAR D_HAvBED_N AME,                                   
  147                             dbo.uf n_GetEmerg encyImages ByEvacuati on(@FACILI TY_ID, ADM ISSION.BED _ID, PATIE NT.ID) AS  CLINICAL_E QUIP_REQUI REMENTS,
  148                             EVACUA TION_PATIE NT.EVACUAT ION_ENROUT E_MEDICAL_ ATTENDANT  AS ENROUTE _MA,
  149                             EVACUA TION_PATIE NT.EVACUAT ION_ENROUT E_NON_MEDI CAL_ATTEND ANT AS ENR OUTE_NMA,                                                  
  150                             EVACUA TION_PATIE NT.EVACUAT ION_DESTIN ATION_ADDR ESS AS DES TINATION_A DDRESS,
  151                             EVACUA TION_PATIE NT.EVACUAT ION_DESTIN ATION_CITY _STATE AS  DESTINATIO N_CITY_STA TE,
  152                             EVACUA TION_PATIE NT.EVACUAT ION_DESTIN ATION_POC_ TELEPHONE  AS DESTINA TION_POC_T ELEPHONE,                                                                                                    
  153                             EVACUA TION_PATIE NT.EVACUAT ION_ORIGIN ATOR_POC_T ELEPHONE A S ORIGINAT OR_POC_TEL EPHONE,
  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                             EVACUA TION_PATIE NT.EVACUAT ION_ARRIVA L_TIME as  ARRIVAL_TI ME,
  157                             EVACUA TION_PATIE NT.EVACUAT ION_MA_TEL EPHONE AS  ENROUTE_MA _TELEPHONE ,
  158                             EVACUA TION_PATIE NT.EVACUAT ION_NMA_TE LEPHONE AS  ENROUTE_N MA_TELEPHO NE,
  159                             EVACUA TION_PATIE NT.EVACUAT ION_ORIGIN ATING_FACI LITY_NAME  AS SENDING _FACILITY_ NAME,
  160                             EVACUA TION_PATIE NT.EVACUAT ION_ORIGIN ATING_ADDR ESS AS SEN DING_FACIL ITY_ADDRES S,
  161                             EVACUA TION_PATIE NT.EVACUAT ION_ORIGIN ATING_CITY _STATE AS  SENDING_FA CILITY_CIT Y_STATE,
  162                             EVACUA TION_PATIE NT.EVACUAT ION_ORIGIN ATOR_POC_T ELEPHONE A S SENDING_ FACILITY_T ELEPHONE,
  163                             EVACUA TION_PATIE NT.EVACUAT ION_VEHICL E_OPERATOR _NAME AS O PERATOR_NA ME,                                                                         
  164                             EVACUA TION_PATIE NT.EVACUAT ION_VEHICL E_OPERATOR _TELEPHONE  AS OPERAT OR_TELEPHO NE,
  165                             NULL A S PERSONAL _ITEMS,
  166                             [dbo]. [ufn_Encry pt] ('idAd mission='  + cast(EVA CUATION_PA TIENT.SOUR CE_ID as n varchar(10 0)) 
  167                                      + '&isFr omEvacuati onReport=t rue&select edDivision Name=' + @ DIVISION_N AME + '&se lectedDivi sionId=' 
  168                                      + cast(@ DIVISION_I D as nvarc har(100)) 
  169                                      + '&isRo sterReport =false&isR egulateRep ort=false& isManifest Report=tru e&isTransf erReport=f alse', @Us erSalt) AS  PATIENT_L INK       
  170                             FROM d bo.FACT_WA ITING_LIST  AS EVACUA TION_PATIE NT
  171                             INNER  JOIN DIM_P ATIENT AS  PATIENT ON  PATIENT.I D = EVACUA TION_PATIE NT.DIM_PAT IENT_ID
  172                             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
  173                             LEFT J OIN #ACTIV E_ADMISSIO N ADMISSIO N ON ADMIS SION.PATIE NT_ID = EV ACUATION_P ATIENT.DIM _PATIENT_I D
  174                             LEFT J OIN #WARD  AS WARD ON  WARD.ID =  ADMISSION .WARD_ID
  175                             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
  176                             
  177                             DROP T ABLE #WARD
  178                             DROP T ABLE #ACTI VE_ADMISSI ON             
  179                    END
  180           
  181                    
  182           IF  OBJECT_ID ('tempdb.. #PERMISSIO N') IS NOT  NULL
  183                    BEGI N
  184                             DROP T ABLE #PERM ISSION
  185                    END
  186   END
  187  
  188  
  189   GO
  190  
  191  

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