Produced by Araxis Merge on 8/31/2018 11:26:37 AM Central 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.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | BMS_Source.zip\Source\Sources\Database\BMSv2Updates\2.2.22.1 | usp_Rpt_VISN_EmergencyManagementEvacuationRoster.sql | Thu Aug 30 15:00:04 2018 UTC |
| 2 | BMS_Source.zip\Source\Sources\Database\BMSv2Updates\2.2.22.1 | usp_Rpt_VISN_EmergencyManagementEvacuationRoster.sql | Fri Aug 31 11:52:07 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 3 | 616 |
| Changed | 2 | 6 |
| Inserted | 0 | 0 |
| Removed | 0 | 0 |
| 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 |
No regular expressions were active.
| 1 | USE [BMS_D W] | |
| 2 | GO | |
| 3 | /****** Ob ject: Sto redProcedu re [dbo].[ usp_Rpt_VI SN_Emergen cyManageme ntEvacuati onRoster] Script Date: 9/21 /2017 2:44 :44 PM *** ***/ | |
| 4 | SET ANSI_N ULLS ON | |
| 5 | GO | |
| 6 | SET QUOTED _IDENTIFIE R ON | |
| 7 | GO | |
| 8 | ||
| 9 | /* | |
| 10 | exec sp_ex ecutesql N 'IF @IS_Ro ster_REPOR T = 1 | |
| 11 | BEGIN | |
| 12 | exec [usp_ Rpt_VISN_E mergencyMa nagementEv acuationRo ster] @USE R_NAME,@VI SNID,@DIVI SION_ID, @ DIVISION_N AME, @User Salt | |
| 13 | END | |
| 14 | ELSE | |
| 15 | BEGIN | |
| 16 | SELE CT NULL A S ACT_ID, | |
| 17 | NULL AS LAST_N AME, | |
| 18 | NULL AS LAST_N AME_INITIA L_AND_LAST _FOUR, | |
| 19 | NULL AS GENDER , | |
| 20 | NULL AS WARD_S PECIALTY_N AME, | |
| 21 | NULL AS WARD_N UMA_NAME, | |
| 22 | NULL AS WARD_H AvBED_NAME , | |
| 23 | NULL CLINICAL_ EQUIP_REQU IREMENTS, | |
| 24 | NULL AS ENROUT E_MA, | |
| 25 | NULL AS ENROUT E_NMA, | |
| 26 | NULL AS DESTIN ATION_ADDR ESS, | |
| 27 | NULL AS DESTIN ATION_CITY _STATE, | |
| 28 | NULL AS DESTIN ATION_POC_ TELEPHONE, | |
| 29 | NULL AS ORIGIN ATOR_POC_T ELEPHONE, | |
| 30 | NULL AS VEHICL E_ID, | |
| 31 | NULL AS SEAT_P OSITION, | |
| 32 | NULL AS ARRIVA L_TIME, | |
| 33 | NULL AS ENROUT E_MA_TELEP HONE, | |
| 34 | NULL AS ENROUT E_NMA_TELE PHONE, | |
| 35 | NULL AS SENDIN G_FACILITY _NAME, | |
| 36 | NULL AS SENDIN G_FACILITY _ADDRESS, | |
| 37 | NULL AS SENDIN G_FACILITY _CITY_STAT E, | |
| 38 | NULL AS SENDIN G_FACILITY _POC_NAME, | |
| 39 | NULL AS SENDIN G_FACILITY _TELEPHONE , | |
| 40 | NULL AS OPERAT OR_NAME, | |
| 41 | NULL AS OPERAT OR_TELEPHO NE, | |
| 42 | NULL AS PERSON AL_ITEMS, | |
| 43 | NULL AS PATIEN T_LINK | |
| 44 | END',N'@IS _ROSTER_RE PORT bit, | |
| 45 | @USER_NAME nvarchar( 26), | |
| 46 | @VISNID nvar char(200), | |
| 47 | @DIVISION_ ID nvarcha r(2), | |
| 48 | @DIVISION_ NAME nvarc har(9), | |
| 49 | @UserSalt nvarchar(3 6)', | |
| 50 | @IS_ROSTER _REPORT=1, | |
| 51 | @USER_NAME =N'vhaisdh ornd@ DNS ', | |
| 52 | @VISNID=N' REDACTED', | |
| 53 | @DIVISION_ ID=N'-1', | |
| 54 | @DIVISION_ NAME=N'All Wards', | |
| 55 | @UserSalt= N'REDACTED ' | |
| 56 | */ | |
| 57 | alter PROC EDURE [dbo ].[usp_Rpt _VISN_Emer gencyManag ementEvacu ationRoste r] | |
| 58 | @U SER_NAME N VARCHAR(50 0) = NULL, | |
| 59 | @V ISNID NVarch ar(250), | |
| 60 | -- @FACILITY_ EXTENSION NVARCHAR(2 50), | |
| 61 | @D IVISION_ID INT = NUL L, | |
| 62 | @D IVISION_NA ME NVARCHA R(250), | |
| 63 | @U serSalt NV ARCHAR(250 ) | |
| 64 | AS | |
| 65 | BEGIN | |
| 66 | -- CREATE FAC ILITY LIST FROM VISN CODE | |
| 67 | CREA TE TABLE # FacilityLi st ( | |
| 68 | ID Int, | |
| 69 | Name Varchar( 250), | |
| 70 | Source _ID Varchar(25 0), | |
| 71 | CODE Varchar(25 0)) | |
| 72 | ||
| 73 | INSE RT INTO #F acilityLis t | |
| 74 | Sele ct DISTINC T | |
| 75 | DO3.ID , | |
| 76 | DO3.Na me, | |
| 77 | DO3.SO URCE_ID, | |
| 78 | DO3.CO DE | |
| 79 | FROM bms_dw.db o.DIM_ORGA NIZATION D O | |
| 80 | LEFT JOIN bms_ dw.dbo.DIM _ORGANIZAT ION DO2 | |
| 81 | ON DO2 .DIM_ORGAN IZATION_ID = DO.ID | |
| 82 | LEFT JOIN bms_ dw.dbo.DIM _ORGANIZAT ION DO3 | |
| 83 | ON DO2 .ID = DO3. DIM_ORGANI ZATION_ID | |
| 84 | AND DO 3.DIM_ORGA NIZATION_T YPE_ID = 2 | |
| 85 | WHER E DO.sourc e_id = @VI SNID | |
| 86 | ||
| 87 | -- create pe rmission t able | |
| 88 | CREA TE TABLE # PERMISSION | |
| 89 | ( | |
| 90 | DIM _ORGANIZAT ION_ID INT , | |
| 91 | DIM _WARD_ID I NT | |
| 92 | ) | |
| 93 | --in sert permi ssion for the user | |
| 94 | INSE RT INTO #P ERMISSION | |
| 95 | SELECT * FROM db o.ufn_GetP ermissionB yUserName( @USER_NAME ) | |
| 96 | CREATE N ONCLUSTERE D INDEX [D IM_ORGANIZ ATION_ID] ON #PERMIS SION ([DIM _ORGANIZAT ION_ID] AS C) | |
| 97 | WITH ( | |
| 98 | P AD_INDEX = OFF, | |
| 99 | S TATISTICS_ NORECOMPUT E = OFF, | |
| 100 | S ORT_IN_TEM PDB = OFF, | |
| 101 | I GNORE_DUP_ KEY = OFF, | |
| 102 | D ROP_EXISTI NG = OFF, | |
| 103 | O NLINE = OF F, | |
| 104 | A LLOW_ROW_L OCKS = ON , | |
| 105 | A LLOW_PAGE_ LOCKS = O N) | |
| 106 | CREATE N ONCLUSTERE D INDEX DI M_WARD_ID ON #PERMIS SION (DIM_ WARD_ID AS C) | |
| 107 | WITH ( | |
| 108 | P AD_INDEX = OFF, | |
| 109 | S TATISTICS_ NORECOMPUT E = OFF, | |
| 110 | S ORT_IN_TEM PDB = OFF, | |
| 111 | I GNORE_DUP_ KEY = OFF, | |
| 112 | D ROP_EXISTI NG = OFF, | |
| 113 | O NLINE = OF F, | |
| 114 | A LLOW_ROW_L OCKS = ON , | |
| 115 | A LLOW_PAGE_ LOCKS = O N) ; | |
| 116 | ||
| 117 | -- DECLARE @F ACILITY_ID INT --REMOVED | |
| 118 | -- get facili ty id | |
| 119 | -- SET @FACIL ITY_ID = d bo.ufn_Get FacilityId ByIdentifi er(@FACILI TY_EXTENSI ON); -- REMOVED | |
| 120 | ||
| 121 | -- check if t he user ha s permissi on for the facility | |
| 122 | IF EXISTS(SE LECT 1 | |
| 123 | FROM #PERMISSIO N P | |
| 124 | INNE R JOIN #Fa cilityList FL --Add ed | |
| 125 | ON F L.ID = P.D IM_ORGANIZ ATION_ID --Added | |
| 126 | WHER E P.DIM_OR GANIZATION _ID in (FL .ID)) --M odified | |
| 127 | BEGI N | |
| 128 | ||
| 129 | CREATE TABLE #WA RD (ID INT , NAME NVA RCHAR(250) , SPECIALT Y_NAME NVA RCHAR(250) , NUMA NVA RCHAR(250) , HAvBED N VARCHAR(50 )) | |
| 130 | --IF @ DIVISION_I D = -1 OR @DIVISION_ ID IS NULL OR @DIVIS ION_ID = 0 | |
| 131 | BEGIN | |
| 132 | INSERT INT O #WARD(ID , SPECIALT Y_NAME, NU MA, HAvBED ) | |
| 133 | SELECT WAR D.ID, SPEC IALTY.DISP LAY_NAME, NUMA.DISPL AY_NAME, H AvBED.DISP LAY_NAME | |
| 134 | FROM dbo.D IM_WARD AS WARD | |
| 135 | --INNER JO IN dbo.ufn _GetWardsB yFacilityI d(@FACILIT Y_ID) AS F AC_WARD ON FAC_WARD. ID = WARD. ID | |
| 136 | LEFT JOIN dbo.DIM_SP ECIALTY AS SPECIALTY ON SPECIA LTY.ID = W ARD.VISTA_ DIM_SPECIA LTY_ID | |
| 137 | LEFT JOIN dbo.DIM_NU MA AS NUMA ON NUMA.I D = SPECIA LTY.DIM_NU MA_ID | |
| 138 | LEFT JOIN dbo.DIM_HA vBED AS HA vBED ON HA vBED.ID = SPECIALTY. DIM_HAvBED _ID | |
| 139 | WHERE WARD .STATUS = 'active' | |
| 140 | END | |
| 141 | /*ELSE | |
| 142 | BEGIN | |
| 143 | INSERT INT O #WARD(ID , SPECIALT Y_NAME, NU MA, HAvBED ) | |
| 144 | SELECT ACT IVE_WARD.I D, SPECIAL TY.DISPLAY _NAME, NUM A.DISPLAY_ NAME, HAvB ED.DISPLAY _NAME | |
| 145 | FROM GROUP _WARD_ORGA NIZATION a s WARD | |
| 146 | INNER JOIN dbo.DIM_W ARD AS ACT IVE_WARD O N ACTIVE_W ARD.ID = W ARD.DIM_WA RD_ID | |
| 147 | LEFT JOIN dbo.DIM_SP ECIALTY AS SPECIALTY ON SPECIA LTY.ID = A CTIVE_WARD .VISTA_DIM _SPECIALTY _ID | |
| 148 | LEFT JOIN dbo.DIM_NU MA AS NUMA ON NUMA.I D = SPECIA LTY.DIM_NU MA_ID | |
| 149 | LEFT JOIN dbo.DIM_HA vBED AS HA vBED ON HA vBED.ID = SPECIALTY. DIM_HAvBED _ID | |
| 150 | WHERE ACTI VE_WARD.ST ATUS = 'ac tive' AND WARD.DIM_O RGANIZATIO N_ID = @DI VISION_ID | |
| 151 | END*/ | |
| 152 | ||
| 153 | CREATE TABLE #AC TIVE_ADMIS SION( | |
| 154 | PATIEN T_ID INT, | |
| 155 | BED_ID INT, | |
| 156 | WARD_I D INT | |
| 157 | ) | |
| 158 | ||
| 159 | CREATE TABLE #AD MISSION_AN D_TRANSFER ( | |
| 160 | FACT_I D INT NOT NULL , | |
| 161 | BED_ID INT, | |
| 162 | WARD_I D INT, | |
| 163 | PATIEN T_ID INT, | |
| 164 | CREATE D_DATE DAT ETIME NULL , | |
| 165 | IS_ADM ISSION_EVN BIT) | |
| 166 | ||
| 167 | INSERT INTO #ADM ISSION_AND _TRANSFER( FACT_ID, B ED_ID, WAR D_ID, PATI ENT_ID, CR EATED_DATE , IS_ADMIS SION_EVN) | |
| 168 | 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 | |
| 169 | FROM F ACT_ADMISS ION_EVN AS ADM_EVN | |
| 170 | INNER JOIN #WARD AS WARD O N WARD.ID = ADM_EVN. DIM_WARD_I D | |
| 171 | WHERE ADM_EVN.HA S_DISCHARG E = 0 | |
| 172 | ||
| 173 | INSERT INTO #ADM ISSION_AND _TRANSFER( FACT_ID, B ED_ID, WAR D_ID, PATI ENT_ID, CR EATED_DATE , IS_ADMIS SION_EVN) | |
| 174 | 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 | |
| 175 | FROM F ACT_MOVEME NT_EVN AS MOV_EVN | |
| 176 | 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 | |
| 177 | FR OM FACT_MO VEMENT_EVN LAST_MOV_ EVN | |
| 178 | IN NER JOIN # ADMISSION_ AND_TRANSF ER AS ADM_ EVN ON ADM _EVN.FACT_ ID = LAST_ MOV_EVN.FA CT_ADMISSI ON_EVN_ID | |
| 179 | GR OUP BY LAS T_MOV_EVN. FACT_ADMIS SION_EVN_I D) MAX_ME_ EVENT | |
| 180 | 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 | |
| 181 | ||
| 182 | DELETE DEL FROM #ADMISSION _AND_TRANS FER AS DEL | |
| 183 | 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 | |
| 184 | WHERE DEL.IS_ADM ISSION_EVN = 0 | |
| 185 | ||
| 186 | INSERT INTO #ACT IVE_ADMISS ION(WARD_I D, BED_ID, PATIENT_I D) | |
| 187 | SELECT ADMISSION _INFO.WARD _ID, ADMIS SION_INFO. BED_ID, AD MISSION_IN FO.PATIENT _ID | |
| 188 | FROM # ADMISSION_ AND_TRANSF ER AS ADMI SSION_INFO | |
| 189 | INNER JOIN | |
| 190 | ( SE LECT MAX(C REATED_DAT E) AS CREA TED_DATE, BED_ID | |
| 191 | FROM #AD MISSION_AN D_TRANSFER | |
| 192 | GROUP BY BED_ID | |
| 193 | ) 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 | |
| 194 | ||
| 195 | DROP T ABLE #ADMI SSION_AND_ TRANSFER | |
| 196 | ||
| 197 | IF @DI VISION_ID = -1 OR @D IVISION_ID IS NULL | |
| 198 | BEGIN | |
| 199 | SELECT E VACUATION_ PATIENT.SO URCE_ID AS ACT_ID, | |
| 200 | PATIENT. LAST_NAME AS LAST_NA ME, | |
| 201 | SUBSTRIN G(PATIENT. LAST_NAME, 1, 1) + S UBSTRING(P ATIENT.SSN , 7, 5) AS LAST_NAME _INITIAL_A ND_LAST_FO UR, | |
| 202 | PATIENT. GENDER AS GENDER, | |
| 203 | ISNULL(S UBSTRING(C ONCEPT_EVA C_DISPOSIT ION_STATUS .DISPLAY_N AME, 1, 4) , '') AS E VAC_DISPOS ITION_STAT US, | |
| 204 | 'VS: ' + ISNULL(WA RD.SPECIAL TY_NAME, ' ') AS WARD _SPECIALTY _NAME, | |
| 205 | 'NU: ' + ISNULL(WA RD.NUMA, ' ') AS WARD _NUMA_NAME , | |
| 206 | 'HV: ' + ISNULL(WA RD.HAvBED, '') AS WAR D_HAvBED_N AME, | |
| 207 | PATIENT. ADMITTING_ DIAGNOSIS AS PRESENT ING_PROBLE M, | |
| 208 | ISNULL(W ARD.NAME, '') + ' - ' + ISNULL (BED.NAME, '') AS C URRENT_LOC ATION, | |
| 209 | --dbo.uf n_GetEmerg encyImages ByEvacuati on(@FACILI TY_ID, BED .ID, PATIE NT.ID) AS CLINICAL_E QUIP_REQUI REMENTS, - -REMOVED | |
| 210 | dbo.ufn_ GetEmergen cyImagesBy Evacuation (FL.ID, AD MISSION.BE D_ID, PATI ENT.ID) AS CLINICAL_ EQUIP_REQU IREMENTS, --Added | |
| 211 | EVACUATI ON_PATIENT .EVACUATIO N_TRANSPOR TATION_CAR E_LEVEL AS TRANSPOR T_CARE_LEV EL, | |
| 212 | EVACUATI ON_PATIENT .EVACUATIO N_ENROUTE_ MEDICAL_AT TENDANT_NU MBER AS EN ROUTE_MA, | |
| 213 | EVACUATI ON_PATIENT .EVACUATIO N_ENROUTE_ NON_MEDICA L_ATTENDAN T_NUMBER A S ENROUTE_ NMA, | |
| 214 | EVACUATI ON_PATIENT .EVACUATIO N_COMMENTS AS EVACUA TION_COMME NTS, | |
| 215 | [dbo].[u fn_Encrypt ] ('idAdmi ssion=' + cast(EVACU ATION_PATI ENT.SOURCE _ID as nva rchar(100) ) | |
| 216 | + '&isFrom Evacuation Report=tru e&selected DivisionNa me=' + @DI VISION_NAM E + '&sele ctedDivisi onId=' | |
| 217 | + cast(@DI VISION_ID as nvarcha r(100)) | |
| 218 | + '&isRost erReport=t rue&isRegu lateReport =false&isM anifestRep ort=false& isTransfer Report=fal se', @User Salt) AS P ATIENT_LIN K | |
| 219 | FROM dbo .FACT_WAIT ING_LIST A S EVACUATI ON_PATIENT | |
| 220 | INNER JO IN #Facili tyList FL on FL.ID = EVACUATIO N_PATIENT. FACILITY_D IM_ORGANIZ ATION_ID | |
| 221 | INNER JO IN DIM_PAT IENT AS PA TIENT ON P ATIENT.ID = EVACUATI ON_PATIENT .DIM_PATIE NT_ID | |
| 222 | LEFT JOI N DIM_EVAC _DISPOSITI ON_STATUS AS CONCEPT _EVAC_DISP OSITION_ST ATUS ON CO NCEPT_EVAC _DISPOSITI ON_STATUS. ID = EVACU ATION_PATI ENT.DIM_EV ACUATION_D ISPOSITION _STATUS_ID | |
| 223 | LEFT JOI N #ACTIVE_ ADMISSION AS ADMISSI ON ON ADMI SSION.PATI ENT_ID = E VACUATION_ PATIENT.DI M_PATIENT_ ID | |
| 224 | LEFT JOI N #WARD AS WARD ON W ARD.ID = A DMISSION.W ARD_ID | |
| 225 | LEFT JOI N dbo.DIM_ BED AS BED ON BED.ID = ADMISSI ON.BED_ID | |
| 226 | WHERE EV ACUATION_P ATIENT.REM OVED_DATE IS NULL | |
| 227 | --AND EV ACUATION_P ATIENT.FAC ILITY_DIM_ ORGANIZATI ON_ID = @F ACILITY_ID --Remove d | |
| 228 | AND EVAC UATION_PAT IENT.FACIL ITY_DIM_OR GANIZATION _ID in (FL .ID) --Adde d | |
| 229 | AND EVAC UATION_PAT IENT.IS_EV ACUATION_P ATIENT = 1 | |
| 230 | END | |
| 231 | ELSE | |
| 232 | IF @DI VISION_ID = 0 | |
| 233 | BEGIN | |
| 234 | SELECT E VACUATION_ PATIENT.SO URCE_ID AS ACT_ID, | |
| 235 | PATIENT. LAST_NAME AS LAST_NA ME, | |
| 236 | SUBSTRIN G(PATIENT. LAST_NAME, 1, 1) + S UBSTRING(P ATIENT.SSN , 7, 5) AS LAST_NAME _INITIAL_A ND_LAST_FO UR, | |
| 237 | PATIENT. GENDER AS GENDER, | |
| 238 | ISNULL(S UBSTRING(C ONCEPT_EVA C_DISPOSIT ION_STATUS .DISPLAY_N AME, 1, 4) , '') AS E VAC_DISPOS ITION_STAT US, | |
| 239 | 'VS: ' A S WARD_SPE CIALTY_NAM E, | |
| 240 | 'NU: ' A S WARD_NUM A_NAME, | |
| 241 | 'HV: ' A S WARD_HAv BED_NAME, | |
| 242 | PATIENT. ADMITTING_ DIAGNOSIS AS PRESENT ING_PROBLE M, | |
| 243 | ISNULL(W ARD.NAME, '') + ' - ' + ISNULL (BED.NAME, '') AS C URRENT_LOC ATION, | |
| 244 | --dbo.uf n_GetEmerg encyImages ByEvacuati on(@FACILI TY_ID, ADM ISSION.BED _ID, PATIE NT.ID) AS CLINICAL_E QUIP_REQUI REMENTS, - -Removed | |
| 245 | dbo.ufn_ GetEmergen cyImagesBy Evacuation (FL.ID, AD MISSION.BE D_ID, PATI ENT.ID) AS CLINICAL_ EQUIP_REQU IREMENTS, --Added | |
| 246 | EVACUATI ON_PATIENT .EVACUATIO N_TRANSPOR TATION_CAR E_LEVEL AS TRANSPOR T_CARE_LEV EL, | |
| 247 | EVACUATI ON_PATIENT .EVACUATIO N_ENROUTE_ MEDICAL_AT TENDANT_NU MBER AS EN ROUTE_MA, | |
| 248 | EVACUATI ON_PATIENT .EVACUATIO N_ENROUTE_ NON_MEDICA L_ATTENDAN T_NUMBER A S ENROUTE_ NMA, | |
| 249 | EVACUATI ON_PATIENT .EVACUATIO N_COMMENTS AS EVACUA TION_COMME NTS, | |
| 250 | [dbo].[u fn_Encrypt ] ('idAdmi ssion=' + cast(EVACU ATION_PATI ENT.SOURCE _ID as nva rchar(100) ) | |
| 251 | + '&isFrom Evacuation Report=tru e&selected DivisionNa me=' + @DI VISION_NAM E + '&sele ctedDivisi onId=' | |
| 252 | + cast(@DI VISION_ID as nvarcha r(100)) | |
| 253 | + '&isRost erReport=t rue&isRegu lateReport =false&isM anifestRep ort=false& isTransfer Report=fal se', @User Salt) AS P ATIENT_LIN K | |
| 254 | FROM dbo .FACT_WAIT ING_LIST A S EVACUATI ON_PATIENT | |
| 255 | INNER JO IN #Facili tyList FL on FL.ID = EVACUATIO N_PATIENT. FACILITY_D IM_ORGANIZ ATION_ID | |
| 256 | INNER JO IN DIM_PAT IENT AS PA TIENT ON P ATIENT.ID = EVACUATI ON_PATIENT .DIM_PATIE NT_ID | |
| 257 | LEFT JOI N DIM_EVAC _DISPOSITI ON_STATUS AS CONCEPT _EVAC_DISP OSITION_ST ATUS ON CO NCEPT_EVAC _DISPOSITI ON_STATUS. ID = EVACU ATION_PATI ENT.DIM_EV ACUATION_D ISPOSITION _STATUS_ID | |
| 258 | LEFT JOI N #ACTIVE_ ADMISSION AS ADMISSI ON ON ADMI SSION.PATI ENT_ID = E VACUATION_ PATIENT.DI M_PATIENT_ ID | |
| 259 | LEFT JOI N #WARD AS WARD ON W ARD.ID = A DMISSION.W ARD_ID | |
| 260 | LEFT JOI N dbo.DIM_ BED AS BED ON BED.ID = ADMISSI ON.BED_ID | |
| 261 | WHERE EV ACUATION_P ATIENT.REM OVED_DATE IS NULL | |
| 262 | --AND EVAC UATION_PAT IENT.FACIL ITY_DIM_OR GANIZATION _ID = @FAC ILITY_ID --Removed | |
| 263 | AND EVACUA TION_PATIE NT.FACILIT Y_DIM_ORGA NIZATION_I D in (FL.I D) --Added | |
| 264 | AND EVACUA TION_PATIE NT.IS_EVAC UATION_PAT IENT = 1 | |
| 265 | AND NOT EXISTS (Se lect 1 FRO M #ACTIVE_ ADMISSION WHERE #ACT IVE_ADMISS ION.PATIEN T_ID = EV ACUATION_P ATIENT.DIM _PATIENT_I D) | |
| 266 | END | |
| 267 | ELSE | |
| 268 | BEGIN | |
| 269 | SELECT E VACUATION_ PATIENT.SO URCE_ID AS ACT_ID, | |
| 270 | PATIENT. LAST_NAME AS LAST_NA ME, | |
| 271 | SUBSTRIN G(PATIENT. LAST_NAME, 1, 1) + S UBSTRING(P ATIENT.SSN , 7, 5) AS LAST_NAME _INITIAL_A ND_LAST_FO UR, | |
| 272 | PATIENT. GENDER AS GENDER, | |
| 273 | ISNULL(S UBSTRING(C ONCEPT_EVA C_DISPOSIT ION_STATUS .DISPLAY_N AME, 1, 4) , '') AS E VAC_DISPOS ITION_STAT US, | |
| 274 | 'VS: ' + ISNULL(WA RD.SPECIAL TY_NAME, ' ') AS WARD _SPECIALTY _NAME, | |
| 275 | 'NU: ' + ISNULL(WA RD.NUMA, ' ') AS WARD _NUMA_NAME , | |
| 276 | 'HV: ' + ISNULL(WA RD.HAvBED, '') AS WAR D_HAvBED_N AME, | |
| 277 | PATIENT. ADMITTING_ DIAGNOSIS AS PRESENT ING_PROBLE M, | |
| 278 | ISNULL(W ARD.NAME, '') + ' - ' + ISNULL (BED.NAME, '') AS C URRENT_LOC ATION, | |
| 279 | --dbo.uf n_GetEmerg encyImages ByEvacuati on(@FACILI TY_ID, ADM ISSION.BED _ID, PATIE NT.ID) AS CLINICAL_E QUIP_REQUI REMENTS, - -Removed | |
| 280 | dbo.ufn_ GetEmergen cyImagesBy Evacuation (FL.ID, AD MISSION.BE D_ID, PATI ENT.ID) AS CLINICAL_ EQUIP_REQU IREMENTS, --Added | |
| 281 | EVACUATI ON_PATIENT .EVACUATIO N_TRANSPOR TATION_CAR E_LEVEL AS TRANSPOR T_CARE_LEV EL, | |
| 282 | EVACUATI ON_PATIENT .EVACUATIO N_ENROUTE_ MEDICAL_AT TENDANT_NU MBER AS EN ROUTE_MA, | |
| 283 | EVACUATI ON_PATIENT .EVACUATIO N_ENROUTE_ NON_MEDICA L_ATTENDAN T_NUMBER A S ENROUTE_ NMA, | |
| 284 | EVACUATI ON_PATIENT .EVACUATIO N_COMMENTS AS EVACUA TION_COMME NTS, | |
| 285 | [dbo].[u fn_Encrypt ] ('idAdmi ssion=' + cast(EVACU ATION_PATI ENT.SOURCE _ID as nva rchar(100) ) | |
| 286 | + '&isFrom Evacuation Report=tru e&selected DivisionNa me=' + @DI VISION_NAM E + '&sele ctedDivisi onId=' | |
| 287 | + cast(@DI VISION_ID as nvarcha r(100)) | |
| 288 | + '&isRost erReport=t rue&isRegu lateReport =false&isM anifestRep ort=false& isTransfer Report=fal se', @User Salt) AS P ATIENT_LIN K | |
| 289 | FROM dbo .FACT_WAIT ING_LIST A S EVACUATI ON_PATIENT | |
| 290 | INNER JO IN #Facili tyList FL on FL.ID = EVACUATIO N_PATIENT. FACILITY_D IM_ORGANIZ ATION_ID | |
| 291 | INNER JO IN DIM_PAT IENT AS PA TIENT ON P ATIENT.ID = EVACUATI ON_PATIENT .DIM_PATIE NT_ID | |
| 292 | LEFT JOI N DIM_EVAC _DISPOSITI ON_STATUS AS CONCEPT _EVAC_DISP OSITION_ST ATUS ON CO NCEPT_EVAC _DISPOSITI ON_STATUS. ID = EVACU ATION_PATI ENT.DIM_EV ACUATION_D ISPOSITION _STATUS_ID | |
| 293 | INNER JO IN #ACTIVE _ADMISSION AS ADMISS ION ON ADM ISSION.PAT IENT_ID = EVACUATION _PATIENT.D IM_PATIENT _ID | |
| 294 | INNER JO IN #WARD A S WARD ON WARD.ID = ADMISSION. WARD_ID | |
| 295 | LEFT JOI N dbo.DIM_ BED AS BED ON BED.ID = ADMISSI ON.BED_ID | |
| 296 | WHERE EV ACUATION_P ATIENT.REM OVED_DATE IS NULL | |
| 297 | --AND EVAC UATION_PAT IENT.FACIL ITY_DIM_OR GANIZATION _ID = @FAC ILITY_ID --Removed | |
| 298 | AND EVACUA TION_PATIE NT.FACILIT Y_DIM_ORGA NIZATION_I D in (FL.I D) --Added | |
| 299 | AND EVACUA TION_PATIE NT.IS_EVAC UATION_PAT IENT = 1 | |
| 300 | END | |
| 301 | ||
| 302 | DROP T ABLE #WARD | |
| 303 | DROP T ABLE #ACTI VE_ADMISSI ON | |
| 304 | END | |
| 305 | ||
| 306 | IF OBJECT_ID ('tempdb.. #PERMISSIO N') IS NOT NULL | |
| 307 | BEGI N | |
| 308 | DROP T ABLE #PERM ISSION | |
| 309 | END | |
| 310 | END | |
| 311 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.