124. EPMO Open Source Coordination Office Redaction File Detail Report

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

124.1 Files compared

# Location File Last Modified
1 OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\BMS_Build_C72898\BMS_Source-BuildC72898.zip\C72898\Source\Sources\Database\CreationScripts\BMS\4.Stored Procedures dbo.usp_Get_Percentage_Of_Occupancy.sql Wed Oct 23 12:51:10 2013 UTC
2 OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\BMS_Build_C72898\BMS_Source-BuildC72898.zip\C72898\Source\Sources\Database\CreationScripts\BMS\4.Stored Procedures dbo.usp_Get_Percentage_Of_Occupancy.sql Thu Oct 26 15:45:53 2017 UTC

124.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 7 246
Changed 6 14
Inserted 0 0
Removed 0 0

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

124.4 Active regular expressions

No regular expressions were active.

124.5 Comparison detail

  1   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Get_Pe rcentage_O f_Occupanc y]    Scri pt Date: 0 7/25/2012  16:02:39 * *****/
  2   IF  EXISTS  (SELECT *  FROM sys. objects WH ERE object _id = OBJE CT_ID(N'[d bo].[usp_G et_Percent age_Of_Occ upancy]')  AND type i n (N'P', N 'PC'))
  3   DROP PROCE DURE [dbo] .[usp_Get_ Percentage _Of_Occupa ncy]
  4   GO
  5   SET ANSI_N ULLS ON
  6   GO
  7  
  8   SET QUOTED _IDENTIFIE R ON
  9   GO
  10   -- ======= ========== ========== ========== ========
  11   -- Author:                 PII
  12   -- Create  date: 18.0 4.2012
  13   -- Descrip tion: The  number of  occupied b eds.
  14   -- ======= ========== ========== ========== ========
  15  
  16   -- ======= ========== ========== ========== ========
  17   -- Update  by:    PII
  18   -- Update  date: 26.1 0.2012
  19   -- Descrip tion: Sepa rated even ts from ac ts. 
  20   -- ======= ========== ========== ========== ========
  21  
  22   CREATE PRO CEDURE [db o].[usp_Ge t_Percenta ge_Of_Occu pancy]         
  23           @V ISTA_SITES _LIST 
VARCHAR(MA X),
  24           @W ARD_LIST 
VARCHAR(MA X)
  25   AS
  26   BEGIN
  27   SET NOCOUN T ON                            
  28           
  29           CR EATE TABLE  #VISTA_SI TES (VISTA _SITE_UID  UNIQUEIDEN TIFIER)
  30       INSERT  INTO #VIS TA_SITES ( VISTA_SITE _UID)
  31       SELECT  VALUE FRO M dbo.fn_S plit(@VIST A_SITES_LI ST, ',')       
  32                    
  33           CR EATE TABLE  #WARDS (W ARD_UID UN IQUEIDENTI FIER)
  34       INSERT  INTO #WAR DS (WARD_U ID)
  35       SELECT  VALUE FRO M dbo.fn_S plit(@WARD _LIST, ',' )                                                                                                                   
  36  
  37           CR EATE TABLE  #OCCUPIED _BEDS (BED _UID UNIQU EIDENTIFIE R, DOMAIN 
VARCHAR(50 ), IS_OCCU PIED_BED B IT)
  38  
  39           -- GET ACTIVE  ADMISSION
  40           -- If more pa tients wer e admitted  in the sa me bed on  the whiteb oard is di splayed la st patient  admitted
  41           
  42           CR EATE TABLE  #ACTIVE_A DMISSION(
  43                              DOMAIN_ID 
VARCHAR(50 ),
  44                             BED_UI D UNIQUEID ENTIFIER)
  45                    
  46           CR EATE TABLE  #ADMISSIO N_AND_TRAN SFER(
  47                    ADMI SSION_ID I NT NOT NUL L ,
  48                    BED_ UID UNIQUE IDENTIFIER ,
  49                     DOMAIN_ID 
VARCHAR(50 ),
  50                    CREA TED_DATE D ATETIME NU LL,
  51                    IS_A DMISSION_E VN BIT)
  52                    
  53           -- GET ACTIVE  ADMISSION
  54           -- Remove dup licate bed  if more p atients we re admitte d in this  bed.
  55           
  56           IF  (@VISTA_S ITES_LIST  IS NULL OR  LEN(@VIST A_SITES_LI ST) = 0)
  57                    BEGI N
  58                             INSERT  INTO #ADM ISSION_AND _TRANSFER( ADMISSION_ ID, BED_UI D, CREATED _DATE, DOM AIN_ID, IS _ADMISSION _EVN)
  59                             SELECT  ADM_EVN.I D, ADM_EVN .BED_UID,  ADM_EVN.AD MISSION_DA TE, ADM_EV N.DOMAIN_I D, 1
  60                             FROM A DMISSION_E VN AS ADM_ EVN
  61                             INNER  JOIN #WARD S AS WARD  ON WARD.WA RD_UID = A DM_EVN.WAR D_UID
  62                             WHERE  ADM_EVN.HA S_DISCHARG E = 0
  63                    END
  64           EL SE
  65                    BEGI N
  66                             INSERT  INTO #ADM ISSION_AND _TRANSFER( ADMISSION_ ID, BED_UI D, CREATED _DATE, DOM AIN_ID, IS _ADMISSION _EVN)
  67                             SELECT  ADM_EVN.I D, ADM_EVN .BED_UID,  ADM_EVN.AD MISSION_DA TE, ADM_EV N.DOMAIN_I D, 1
  68                             FROM A DMISSION_E VN AS ADM_ EVN
  69                             INNER  JOIN #VIST A_SITES AS  VS ON ADM _EVN.VISTA _SITE_UID  = VS.VISTA _SITE_UID
  70                             WHERE  ADM_EVN.HA S_DISCHARG E = 0
  71                    END
  72  
  73           IN SERT INTO  #ADMISSION _AND_TRANS FER(ADMISS ION_ID, BE D_UID, CRE ATED_DATE,  DOMAIN_ID , IS_ADMIS SION_EVN)
  74           SE LECT MOV_E VN.ADMISSI ON_ID, MOV _EVN.BED_U ID, MOV_EV N.MOVEMENT _DATE, MOV _EVN.DOMAI N_ID, 0
  75           FR OM MOVEMEN T_EVN AS M OV_EVN
  76           IN NER JOIN ( SELECT MAX (LAST_MOV_ EVN.MOVEME NT_DATE) A S MOVEMENT _DATE, LAS T_MOV_EVN. ADMISSION_ ID
  77                                      FROM MOV EMENT_EVN  LAST_MOV_E VN
  78                                      INNER JO IN #ADMISS ION_AND_TR ANSFER AS  ADM_EVN ON  ADM_EVN.A DMISSION_I D = LAST_M OV_EVN.ADM ISSION_ID
  79                                      GROUP BY  LAST_MOV_ EVN.ADMISS ION_ID) MA X_ME_EVENT  
  80                                      ON MAX_M E_EVENT.MO VEMENT_DAT E = MOV_EV N.MOVEMENT _DATE AND  MAX_ME_EVE NT.ADMISSI ON_ID = MO V_EVN.ADMI SSION_ID
  81  
  82           DE LETE DEL F ROM #ADMIS SION_AND_T RANSFER AS  DEL
  83           IN NER JOIN # ADMISSION_ AND_TRANSF ER AS ADM  ON ADM.ADM ISSION_ID  = DEL.ADMI SSION_ID A ND ADM.BED _UID <> DE L.BED_UID  AND ADM.IS _ADMISSION _EVN = 1
  84           WH ERE DEL.IS _ADMISSION _EVN = 0
  85           
  86           IN SERT INTO  #ACTIVE_AD MISSION(BE D_UID, DOM AIN_ID)
  87           SE LECT ADMIS SION_INFO. BED_UID, A DMISSION_I NFO.DOMAIN _ID
  88           FR OM #ADMISS ION_AND_TR ANSFER AS  ADMISSION_ INFO
  89           IN NER JOIN 
  90           (    SELECT M AX(CREATED _DATE) AS  CREATED_DA TE, BED_UI D
  91                    FROM  #ADMISSIO N_AND_TRAN SFER
  92                    GROU P BY BED_U ID
  93           )  LAST_ADMIS ISON_INFO  ON LAST_AD MISISON_IN FO.CREATED _DATE = AD MISSION_IN FO.CREATED _DATE AND  LAST_ADMIS ISON_INFO. BED_UID =  ADMISSION_ INFO.BED_U ID
  94  
  95           DR OP TABLE # ADMISSION_ AND_TRANSF ER
  96           
  97           IN SERT INTO  #OCCUPIED_ BEDS (BED_ UID, DOMAI N, IS_OCCU PIED_BED)
  98           SE LECT ADMIS SION.BED_U ID, ADMISS ION.DOMAIN _ID, 1
  99           FR OM #ACTIVE _ADMISSION  AS ADMISS ION
  100           LE FT JOIN BE D_UNAVAILA BLE AS BU  ON ADMISSI ON.BED_UID  = BU.BED_ UID AND BU .COMPLETED _DATE IS N ULL
  101           LE FT JOIN CO NCEPT AS C ONCEPT ON  CONCEPT.ID  = BU.TYPE _ID 
  102           WH ERE CONCEP T.ID IS NU LL OR (CON CEPT.CODE  <> 'OOS' A ND CONCEPT .CODE <> ' DND')
  103           
  104           DR OP TABLE # ACTIVE_ADM ISSION
  105           
  106           SE LECT  ISNU LL(OCC.BED _UID,UNV.B ED_UID) AS  BED_UID, 
  107                             ISNULL (OCC.DOMAI N, UNV.DOM AIN) AS W_ DOMAIN_ID,   
  108                             OCC.IS _OCCUPIED_ BED AS IS_ OCCUPIED_B ED,
  109                             UNV.IS _UNAVAILAB LE_BED AS  IS_UNAVAIL ABLE_BED
  110           FR OM #OCCUPI ED_BEDS AS  OCC
  111                    FULL  OUTER JOI N 
  112                             (SELEC T DISTINCT  BU.BED_UI D AS BED_U ID,
  113                                               ACT.DOMAIN _ID AS DOM AIN,
  114                                               1 AS IS_UN AVAILABLE_ BED
  115                             FROM B ED_UNAVAIL ABLE AS BU
  116                                      INNER JO IN  (SELEC T BED_UID,  MAX(ACT_I D)AS ACT_I D
  117                                                                         FROM B ED_UNAVAIL ABLE
  118                                                                                  WHERE CO MPLETED_DA TE IS NULL  AND (@VIS TA_SITES_L IST = '' O R VISTA_SI TE_UID IN  (SELECT VI STA_SITE_U ID FROM #V ISTA_SITES ))
  119                                                                                           GROUP BY B ED_UID) MA X_BU ON MA X_BU.ACT_I D = BU.ACT _ID
  120                                      INNER JO IN BED_UNA VAILABLE_W ARD AS BU_ W ON BU_W. ID = (SELE CT TOP 1 I D FROM BED _UNAVAILAB LE_WARD AS  MAX_BU_W  WHERE  MAX _BU_W.BED_ UNAVAILABL E_ID = MAX _BU.ACT_ID  AND (@WAR D_LIST = ' ' OR MAX_B U_W.WARD_U ID IN (SEL ECT WARD_U ID FROM #W ARDS)))
  121                                      INNER JO IN ACT AS  ACT ON BU. ACT_ID = A CT.ID
  122                                      LEFT JOI N CONCEPT  AS CONCEPT  ON CONCEP T.ID = BU. TYPE_ID
  123                             WHERE  CONCEPT.CO DE = 'OOS'  OR CONCEP T.CODE = ' DND') AS U NV ON UNV. BED_UID =  OCC.BED_UI D 
  124           
  125           DR OP TABLE # OCCUPIED_B EDS
  126           DR OP TABLE # WARDS
  127           DR OP TABLE # VISTA_SITE S
  128  
  129   END
  130   GO

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