668. EPMO Open Source Coordination Office Redaction File Detail Report

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

668.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 usp_Rpt_EmergencyManagementEvacuationRegulate.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 usp_Rpt_EmergencyManagementEvacuationRegulate.sql Thu Oct 26 19:34:32 2017 UTC

668.2 Comparison summary

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

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

668.4 Active regular expressions

No regular expressions were active.

668.5 Comparison detail

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

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