42. EPMO Open Source Coordination Office Redaction File Detail Report

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.

42.1 Files compared

# Location File Last Modified
1 BMS_Source.zip\Source\Sources\Database\BMSv2Updates\2.2.22.1 usp_Rpt_VISN_EmergencyManagementEvacuationPTTransfer.sql Thu Aug 30 15:00:04 2018 UTC
2 BMS_Source.zip\Source\Sources\Database\BMSv2Updates\2.2.22.1 usp_Rpt_VISN_EmergencyManagementEvacuationPTTransfer.sql Fri Aug 31 11:51:18 2018 UTC

42.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 590
Changed 2 6
Inserted 0 0
Removed 0 0

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

42.4 Active regular expressions

No regular expressions were active.

42.5 Comparison detail

  1   USE [BMS_D W]
  2   GO
  3   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Rpt_VI SN_Emergen cyManageme ntEvacuati onPTTransf er]    Scr ipt Date:  9/21/2017  2:44:39 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_TR ANSFER_REP ORT = 1
  12   BEGIN
  13   exec [usp_ Rpt_VISN_E mergencyMa nagementEv acuationPT Transfer]  @USER_NAME ,@VISNID,  @DIVISION_ ID, @DIVIS ION_NAME,  @UserSalt
  14   END
  15   ELSE
  16   BEGIN
  17           SE LECT  
  18           NU LL AS ACT_ ID,
  19           NU LL AS FIRS T_NAME,
  20           NU LL AS LAST _NAME,
  21           NU LL AS LAST _NAME_INIT IAL_AND_LA ST_FOUR,
  22           NU LL AS GEND ER,
  23           NU LL AS DEST INATION_EV ACUATE_TO,
  24           NU LL AS DEST INATION_AD DRESS,
  25           NU LL AS DEST INATION_CI TY_STATE,
  26           NU LL AS DEST INATION_PO C_TELEPHON E,
  27           NU LL AS EVAC UATION_COM MENTS,
  28           NU LL AS PATI ENT_LINK,
  29           NU LL AS SEND ING_FACILI TY_NAME,
  30           NU LL AS SEND ING_FACILI TY_ADDRESS ,
  31           NU LL AS SEND ING_FACILI TY_CITY_ST ATE,
  32           NU LL AS SEND ING_FACILI TY_TELEPHO NE
  33   END',N'@IS _TRANSFER_ REPORT bit ,
  34   @USER_NAME  nvarchar( 26),
  35   @VISNID          nvar char(200),
  36   @DIVISION_ ID nvarcha r(2),
  37   @DIVISION_ NAME nvarc har(9),
  38   @UserSalt  nvarchar(3 6)',
  39   @IS_TRANSF ER_REPORT= 1,
  40   @USER_NAME =N'vhaisdh ornd@ DNS             ',
  41   @VISNID=N' REDACTED',
  42   @DIVISION_ ID=N'-1',
  43   @DIVISION_ NAME=N'All  Wards',
  44   @UserSalt= N'REDACTED '
  45  
  46   */
  47  
  48   CREATE PRO CEDURE [db o].[usp_Rp t_VISN_Eme rgencyMana gementEvac uationPTTr ansfer] 
  49           @U SER_NAME N VARCHAR(50 0) = NULL,
  50           @V ISNID          NVarch ar(250),
  51           -- @FACILITY_ EXTENSION  NVARCHAR(2 50),
  52           @D IVISION_ID  INT = NUL L,
  53           @D IVISION_NA ME NVARCHA R(250),
  54           @U serSalt NV ARCHAR(250 )
  55   AS
  56   BEGIN
  57           -- CREATE FAC ILITY LIST  FROM VISN  CODE
  58                    CREA TE TABLE # FacilityLi st (
  59                             ID                Int,
  60                             Name     Varchar( 250), 
  61                             Source _ID        Varchar(25 0), 
  62                             CODE   Varchar(25 0))
  63  
  64                    INSE RT INTO #F acilityLis t
  65                    Sele ct DISTINC T 
  66                             DO3.ID ,
  67                             DO3.Na me, 
  68                             DO3.SO URCE_ID, 
  69                             DO3.CO DE 
  70                    FROM  bms_dw.db o.DIM_ORGA NIZATION D O
  71                    LEFT  JOIN bms_ dw.dbo.DIM _ORGANIZAT ION DO2
  72                             ON DO2 .DIM_ORGAN IZATION_ID  = DO.ID
  73                    LEFT  JOIN bms_ dw.dbo.DIM _ORGANIZAT ION DO3
  74                             ON DO2 .ID = DO3. DIM_ORGANI ZATION_ID
  75                             AND DO 3.DIM_ORGA NIZATION_T YPE_ID = 2
  76                    WHER E DO.sourc e_id = @VI SNID
  77                    -- c reate perm ission tab le
  78                    CREA TE TABLE # PERMISSION
  79                    (
  80                     DIM _ORGANIZAT ION_ID INT ,
  81                     DIM _WARD_ID I NT
  82                    )
  83                    --in sert permi ssion for  the user
  84                    INSE RT INTO #P ERMISSION 
  85                             SELECT  * FROM db o.ufn_GetP ermissionB yUserName( @USER_NAME )
  86                                      CREATE N ONCLUSTERE D INDEX [D IM_ORGANIZ ATION_ID]  ON #PERMIS SION ([DIM _ORGANIZAT ION_ID] AS C)
  87                                               WITH (
  88                                                        P AD_INDEX   = OFF,
  89                                                        S TATISTICS_ NORECOMPUT E  = OFF,
  90                                                        S ORT_IN_TEM PDB = OFF,
  91                                                        I GNORE_DUP_ KEY = OFF,
  92                                                        D ROP_EXISTI NG = OFF,
  93                                                        O NLINE = OF F,
  94                                                        A LLOW_ROW_L OCKS  = ON ,
  95                                                        A LLOW_PAGE_ LOCKS  = O N)
  96                                      CREATE N ONCLUSTERE D INDEX DI M_WARD_ID  ON #PERMIS SION (DIM_ WARD_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           
  107           -- DECLARE @F ACILITY_ID  INT               -- Removed
  108           -- get facili ty id
  109           -- SET @FACIL ITY_ID = d bo.ufn_Get FacilityId ByIdentifi er(@FACILI TY_EXTENSI ON);                      --Remo ved
  110  
  111  
  112           -- check if t he user ha s permissi on for the  facility      
  113                    IF E XISTS(SELE CT 1 
  114                               FROM  #PERMISSI ON P
  115                               INNE R JOIN #Fa cilityList  FL  --Add ed
  116                               ON F L.ID = P.D IM_ORGANIZ ATION_ID   --Added
  117                               WHER E P.DIM_OR GANIZATION _ID in (FL .ID))  --M odified
  118                    BEGI N                    
  119                                              
  120                             CREATE  TABLE #WA RD (ID INT , SPECIALT Y_NAME NVA RCHAR(250) , NUMA NVA RCHAR(250) , HAvBED N VARCHAR(50 ))
  121                             --IF @ DIVISION_I D = -1 OR  @DIVISION_ ID IS NULL  OR @DIVIS ION_ID = 0
  122                                      BEGIN
  123                                               INSERT INT O #WARD(ID , SPECIALT Y_NAME, NU MA, HAvBED )
  124                                               SELECT WAR D.ID, SPEC IALTY.DISP LAY_NAME,  NUMA.DISPL AY_NAME, H AvBED.DISP LAY_NAME
  125                                               FROM dbo.D IM_WARD AS  WARD
  126                                               --INNER JO IN dbo.ufn _GetWardsB yFacilityI d(@FACILIT Y_ID) AS F AC_WARD ON  FAC_WARD. ID = WARD. ID   --Rem oved
  127                                               LEFT JOIN  dbo.DIM_SP ECIALTY AS  SPECIALTY  ON SPECIA LTY.ID = W ARD.VISTA_ DIM_SPECIA LTY_ID
  128                                               LEFT JOIN  dbo.DIM_NU MA AS NUMA  ON NUMA.I D = SPECIA LTY.DIM_NU MA_ID
  129                                               LEFT JOIN  dbo.DIM_HA vBED AS HA vBED ON HA vBED.ID =  SPECIALTY. DIM_HAvBED _ID
  130                                               WHERE WARD .STATUS =  'active'
  131                                      END
  132                                      /*ELSE
  133                                      BEGIN            
  134                                               INSERT INT O #WARD(ID , SPECIALT Y_NAME, NU MA, HAvBED )
  135                                               SELECT ACT IVE_WARD.I D, SPECIAL TY.DISPLAY _NAME, NUM A.DISPLAY_ NAME, HAvB ED.DISPLAY _NAME
  136                                               FROM GROUP _WARD_ORGA NIZATION a s WARD
  137                                               INNER JOIN  dbo.DIM_W ARD AS ACT IVE_WARD O N ACTIVE_W ARD.ID = W ARD.DIM_WA RD_ID
  138                                               LEFT JOIN  dbo.DIM_SP ECIALTY AS  SPECIALTY  ON SPECIA LTY.ID = A CTIVE_WARD .VISTA_DIM _SPECIALTY _ID
  139                                               LEFT JOIN  dbo.DIM_NU MA AS NUMA  ON NUMA.I D = SPECIA LTY.DIM_NU MA_ID
  140                                               LEFT JOIN  dbo.DIM_HA vBED AS HA vBED ON HA vBED.ID =  SPECIALTY. DIM_HAvBED _ID
  141                                               WHERE ACTI VE_WARD.ST ATUS = 'ac tive' AND  WARD.DIM_O RGANIZATIO N_ID = @DI VISION_ID                                                                                                                    
  142                                      END*/
  143                                      
  144                             CREATE  TABLE #AC TIVE_ADMIS SION(
  145                             PATIEN T_ID INT,
  146                             BED_ID  INT,
  147                             WARD_I D INT
  148                             )
  149                             
  150                             CREATE  TABLE #AD MISSION_AN D_TRANSFER (
  151                             FACT_I D INT NOT  NULL ,
  152                             BED_ID  INT,
  153                             WARD_I D INT,
  154                             PATIEN T_ID INT,
  155                             CREATE D_DATE DAT ETIME NULL ,
  156                             IS_ADM ISSION_EVN  BIT)
  157                    
  158                             INSERT  INTO #ADM ISSION_AND _TRANSFER( FACT_ID, B ED_ID, WAR D_ID, PATI ENT_ID, CR EATED_DATE , IS_ADMIS SION_EVN)
  159                             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
  160                             FROM F ACT_ADMISS ION_EVN AS  ADM_EVN
  161                             INNER  JOIN #WARD  AS WARD O N WARD.ID  = ADM_EVN. DIM_WARD_I D
  162                             WHERE  ADM_EVN.HA S_DISCHARG E = 0
  163  
  164                             INSERT  INTO #ADM ISSION_AND _TRANSFER( FACT_ID, B ED_ID, WAR D_ID, PATI ENT_ID, CR EATED_DATE , IS_ADMIS SION_EVN)
  165                             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
  166                             FROM F ACT_MOVEME NT_EVN AS  MOV_EVN
  167                             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
  168                                                       FR OM FACT_MO VEMENT_EVN  LAST_MOV_ EVN
  169                                                       IN NER JOIN # ADMISSION_ AND_TRANSF ER AS ADM_ EVN ON ADM _EVN.FACT_ ID = LAST_ MOV_EVN.FA CT_ADMISSI ON_EVN_ID
  170                                                       GR OUP BY LAS T_MOV_EVN. FACT_ADMIS SION_EVN_I D) MAX_ME_ EVENT 
  171                                                       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
  172                             
  173                             DELETE  DEL FROM  #ADMISSION _AND_TRANS FER AS DEL
  174                             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
  175                             WHERE  DEL.IS_ADM ISSION_EVN  = 0
  176  
  177                             INSERT  INTO #ACT IVE_ADMISS ION(WARD_I D, BED_ID,  PATIENT_I D)
  178                             SELECT  ADMISSION _INFO.WARD _ID, ADMIS SION_INFO. BED_ID, AD MISSION_IN FO.PATIENT _ID
  179                             FROM # ADMISSION_ AND_TRANSF ER AS ADMI SSION_INFO
  180                             INNER  JOIN 
  181                             (   SE LECT MAX(C REATED_DAT E) AS CREA TED_DATE,  BED_ID
  182                                      FROM #AD MISSION_AN D_TRANSFER
  183                                      GROUP BY  BED_ID
  184                             ) 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
  185  
  186                             DROP T ABLE #ADMI SSION_AND_ TRANSFER
  187                             
  188                             IF @DI VISION_ID  = -1 OR @D IVISION_ID  IS NULL
  189                             BEGIN
  190                                      SELECT E VACUATION_ PATIENT.SO URCE_ID AS  ACT_ID,
  191                                      PATIENT. FIRST_NAME  AS FIRST_ NAME,
  192                                      PATIENT. LAST_NAME  AS LAST_NA ME,
  193                                      SUBSTRIN G(PATIENT. LAST_NAME,  1, 1) + S UBSTRING(P ATIENT.SSN , 7, 5) AS  LAST_NAME _INITIAL_A ND_LAST_FO UR,
  194                                      PATIENT. GENDER AS  GENDER,
  195                                      EVACUATI ON_PATIENT .EVACUATIO N_TRANSFER _EVACUATE_ TO AS DEST INATION_EV ACUATE_TO,
  196                                      EVACUATI ON_PATIENT .EVACUATIO N_DESTINAT ION_ADDRES S AS DESTI NATION_ADD RESS,
  197                                      EVACUATI ON_PATIENT .EVACUATIO N_DESTINAT ION_CITY_S TATE AS DE STINATION_ CITY_STATE ,
  198                                      EVACUATI ON_PATIENT .EVACUATIO N_DESTINAT ION_POC_TE LEPHONE AS  DESTINATI ON_POC_TEL EPHONE,
  199                                      EVACUATI ON_PATIENT .EVACUATIO N_COMMENTS  AS EVACUA TION_COMME NTS,
  200                                      [dbo].[u fn_Encrypt ] ('idAdmi ssion=' +  cast(EVACU ATION_PATI ENT.SOURCE _ID as nva rchar(100) ) 
  201                                               + '&isFrom Evacuation Report=tru e&selected DivisionNa me=' + @DI VISION_NAM E + '&sele ctedDivisi onId=' 
  202                                               + cast(@DI VISION_ID  as nvarcha r(100)) 
  203                                               + '&isRost erReport=f alse&isReg ulateRepor t=false&is ManifestRe port=false &isTransfe rReport=tr ue', @User Salt) AS P ATIENT_LIN K,
  204                                      EVACUATI ON_PATIENT .EVACUATIO N_ORIGINAT ING_FACILI TY_NAME AS  SENDING_F ACILITY_NA ME,
  205                                      EVACUATI ON_PATIENT .EVACUATIO N_ORIGINAT ING_ADDRES S AS SENDI NG_FACILIT Y_ADDRESS,
  206                                      EVACUATI ON_PATIENT .EVACUATIO N_ORIGINAT ING_CITY_S TATE AS SE NDING_FACI LITY_CITY_ STATE,
  207                                      EVACUATI ON_PATIENT .EVACUATIO N_ORIGINAT OR_POC_TEL EPHONE AS  SENDING_FA CILITY_TEL EPHONE                                                                           
  208                                      FROM dbo .FACT_WAIT ING_LIST A S EVACUATI ON_PATIENT
  209                                      INNER JO IN #Facili tyList FL  on FL.ID =  EVACUATIO N_PATIENT. FACILITY_D IM_ORGANIZ ATION_ID
  210                                      INNER JO IN DIM_PAT IENT AS PA TIENT ON P ATIENT.ID  = EVACUATI ON_PATIENT .DIM_PATIE NT_ID
  211                                      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
  212                                      LEFT JOI N #ACTIVE_ ADMISSION  ADMISSION  ON ADMISSI ON.PATIENT _ID = EVAC UATION_PAT IENT.DIM_P ATIENT_ID
  213                                      LEFT JOI N #WARD AS  WARD ON W ARD.ID = A DMISSION.W ARD_ID
  214                                      WHERE EV ACUATION_P ATIENT.REM OVED_DATE  IS NULL 
  215                                               --AND EVAC UATION_PAT IENT.FACIL ITY_DIM_OR GANIZATION _ID = @FAC ILITY_ID   --Removed
  216                                               AND EVACUA TION_PATIE NT.FACILIT Y_DIM_ORGA NIZATION_I D in (FL.I D)           --Added
  217                                               AND EVACUA TION_PATIE NT.IS_EVAC UATION_PAT IENT = 1
  218                                      Order By  EVACUATIO N_PATIENT. SOURCE_ID
  219                             END
  220                             ELSE
  221                             IF @DI VISION_ID  = 0
  222                             BEGIN
  223                                      SELECT E VACUATION_ PATIENT.SO URCE_ID AS  ACT_ID,
  224                                      PATIENT. FIRST_NAME  AS FIRST_ NAME,
  225                                      PATIENT. LAST_NAME  AS LAST_NA ME,
  226                                      SUBSTRIN G(PATIENT. LAST_NAME,  1, 1) + S UBSTRING(P ATIENT.SSN , 7, 5) AS  LAST_NAME _INITIAL_A ND_LAST_FO UR,
  227                                      PATIENT. GENDER AS  GENDER,
  228                                      EVACUATI ON_PATIENT .EVACUATIO N_TRANSFER _EVACUATE_ TO AS DEST INATION_EV ACUATE_TO,
  229                                      EVACUATI ON_PATIENT .EVACUATIO N_DESTINAT ION_ADDRES S AS DESTI NATION_ADD RESS,
  230                                      EVACUATI ON_PATIENT .EVACUATIO N_DESTINAT ION_CITY_S TATE AS DE STINATION_ CITY_STATE ,
  231                                      EVACUATI ON_PATIENT .EVACUATIO N_DESTINAT ION_POC_TE LEPHONE AS  DESTINATI ON_POC_TEL EPHONE,
  232                                      EVACUATI ON_PATIENT .EVACUATIO N_COMMENTS  AS EVACUA TION_COMME NTS,
  233                                      [dbo].[u fn_Encrypt ] ('idAdmi ssion=' +  cast(EVACU ATION_PATI ENT.SOURCE _ID as nva rchar(100) ) 
  234                                               + '&isFrom Evacuation Report=tru e&selected DivisionNa me=' + @DI VISION_NAM E + '&sele ctedDivisi onId=' 
  235                                               + cast(@DI VISION_ID  as nvarcha r(100)) 
  236                                               + '&isRost erReport=f alse&isReg ulateRepor t=false&is ManifestRe port=false &isTransfe rReport=tr ue', @User Salt) AS P ATIENT_LIN K,
  237                                      EVACUATI ON_PATIENT .EVACUATIO N_ORIGINAT ING_FACILI TY_NAME AS  SENDING_F ACILITY_NA ME,
  238                                      EVACUATI ON_PATIENT .EVACUATIO N_ORIGINAT ING_ADDRES S AS SENDI NG_FACILIT Y_ADDRESS,
  239                                      EVACUATI ON_PATIENT .EVACUATIO N_ORIGINAT ING_CITY_S TATE AS SE NDING_FACI LITY_CITY_ STATE,
  240                                      EVACUATI ON_PATIENT .EVACUATIO N_ORIGINAT OR_POC_TEL EPHONE AS  SENDING_FA CILITY_TEL EPHONE                                                                           
  241                                      FROM dbo .FACT_WAIT ING_LIST A S EVACUATI ON_PATIENT
  242                                      INNER JO IN #Facili tyList FL  on FL.ID =  EVACUATIO N_PATIENT. FACILITY_D IM_ORGANIZ ATION_ID
  243                                      INNER JO IN DIM_PAT IENT AS PA TIENT ON P ATIENT.ID  = EVACUATI ON_PATIENT .DIM_PATIE NT_ID
  244                                      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
  245                                      LEFT JOI N #ACTIVE_ ADMISSION  ADMISSION  ON ADMISSI ON.PATIENT _ID = EVAC UATION_PAT IENT.DIM_P ATIENT_ID
  246                                      LEFT JOI N #WARD AS  WARD ON W ARD.ID = A DMISSION.W ARD_ID
  247                                      WHERE EV ACUATION_P ATIENT.REM OVED_DATE  IS NULL 
  248                                      --AND EV ACUATION_P ATIENT.FAC ILITY_DIM_ ORGANIZATI ON_ID = @F ACILITY_ID   --Remove d
  249                                      AND EVAC UATION_PAT IENT.FACIL ITY_DIM_OR GANIZATION _ID in (FL .ID)           --Adde d
  250                                      AND EVAC UATION_PAT IENT.IS_EV ACUATION_P ATIENT = 1
  251                                      AND NOT  EXISTS (Se lect 1 FRO M #ACTIVE_ ADMISSION 
  252                                               WHERE #ACT IVE_ADMISS ION.PATIEN T_ID  = EV ACUATION_P ATIENT.DIM _PATIENT_I D)
  253                                      Order By  EVACUATIO N_PATIENT. SOURCE_ID
  254                             END
  255                             ELSE 
  256                             BEGIN
  257                                      SELECT E VACUATION_ PATIENT.SO URCE_ID AS  ACT_ID,
  258                                      PATIENT. FIRST_NAME  AS FIRST_ NAME,
  259                                      PATIENT. LAST_NAME  AS LAST_NA ME,
  260                                      SUBSTRIN G(PATIENT. LAST_NAME,  1, 1) + S UBSTRING(P ATIENT.SSN , 7, 5) AS  LAST_NAME _INITIAL_A ND_LAST_FO UR,
  261                                      PATIENT. GENDER AS  GENDER,
  262                                      EVACUATI ON_PATIENT .EVACUATIO N_TRANSFER _EVACUATE_ TO AS DEST INATION_EV ACUATE_TO,
  263                                      EVACUATI ON_PATIENT .EVACUATIO N_DESTINAT ION_ADDRES S AS DESTI NATION_ADD RESS,
  264                                      EVACUATI ON_PATIENT .EVACUATIO N_DESTINAT ION_CITY_S TATE AS DE STINATION_ CITY_STATE ,
  265                                      EVACUATI ON_PATIENT .EVACUATIO N_DESTINAT ION_POC_TE LEPHONE AS  DESTINATI ON_POC_TEL EPHONE,
  266                                      EVACUATI ON_PATIENT .EVACUATIO N_COMMENTS  AS EVACUA TION_COMME NTS,
  267                                      [dbo].[u fn_Encrypt ] ('idAdmi ssion=' +  cast(EVACU ATION_PATI ENT.SOURCE _ID as nva rchar(100) ) 
  268                                               + '&isFrom Evacuation Report=tru e&selected DivisionNa me=' + @DI VISION_NAM E + '&sele ctedDivisi onId=' 
  269                                               + cast(@DI VISION_ID  as nvarcha r(100)) 
  270                                               + '&isRost erReport=f alse&isReg ulateRepor t=false&is ManifestRe port=false &isTransfe rReport=tr ue', @User Salt) AS P ATIENT_LIN K,
  271                                      EVACUATI ON_PATIENT .EVACUATIO N_ORIGINAT ING_FACILI TY_NAME AS  SENDING_F ACILITY_NA ME,
  272                                      EVACUATI ON_PATIENT .EVACUATIO N_ORIGINAT ING_ADDRES S AS SENDI NG_FACILIT Y_ADDRESS,
  273                                      EVACUATI ON_PATIENT .EVACUATIO N_ORIGINAT ING_CITY_S TATE AS SE NDING_FACI LITY_CITY_ STATE,
  274                                      EVACUATI ON_PATIENT .EVACUATIO N_ORIGINAT OR_POC_TEL EPHONE AS  SENDING_FA CILITY_TEL EPHONE                                                                           
  275                                      FROM dbo .FACT_WAIT ING_LIST A S EVACUATI ON_PATIENT
  276                                      INNER JO IN #Facili tyList FL  on FL.ID =  EVACUATIO N_PATIENT. FACILITY_D IM_ORGANIZ ATION_ID
  277                                      INNER JO IN DIM_PAT IENT AS PA TIENT ON P ATIENT.ID  = EVACUATI ON_PATIENT .DIM_PATIE NT_ID
  278                                      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
  279                                      INNER JO IN #ACTIVE _ADMISSION  ADMISSION  ON ADMISS ION.PATIEN T_ID = EVA CUATION_PA TIENT.DIM_ PATIENT_ID
  280                                      INNER JO IN #WARD A S WARD ON  WARD.ID =  ADMISSION. WARD_ID
  281                                      WHERE EV ACUATION_P ATIENT.REM OVED_DATE  IS NULL 
  282                                               --AND EVAC UATION_PAT IENT.FACIL ITY_DIM_OR GANIZATION _ID = @FAC ILITY_ID   --Removed
  283                                               AND EVACUA TION_PATIE NT.FACILIT Y_DIM_ORGA NIZATION_I D in (FL.I D)           --Added 
  284                                               AND EVACUA TION_PATIE NT.IS_EVAC UATION_PAT IENT = 1
  285                                      Order By  EVACUATIO N_PATIENT. SOURCE_ID
  286                             END
  287                             
  288                             DROP T ABLE #WARD
  289                             DROP T ABLE #ACTI VE_ADMISSI ON             
  290                    END
  291           
  292                    
  293           IF  OBJECT_ID ('tempdb.. #PERMISSIO N') IS NOT  NULL
  294                    BEGI N
  295                             DROP T ABLE #PERM ISSION
  296                    END
  297   END
  298  

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