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

47.1 Files compared

# Location File Last Modified
1 BMS_Source.zip\Source\Sources\Database\BMSv2Updates\2.2.8.3\Reports usp_Rpt_DischargeOrderDiff.sql Thu Aug 30 15:11:48 2018 UTC
2 BMS_Source.zip\Source\Sources\Database\BMSv2Updates\2.2.8.3\Reports usp_Rpt_DischargeOrderDiff.sql Thu Aug 30 19:20:12 2018 UTC

47.2 Comparison summary

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

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

47.4 Active regular expressions

No regular expressions were active.

47.5 Comparison detail

  1   USE [BMS_D W]
  2   GO
  3   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Rpt_Di schargeOrd erDiff]     Script Da te: 6/10/2 016 10:20: 49 AM **** **/
  4   SET ANSI_N ULLS ON
  5   GO
  6   SET QUOTED _IDENTIFIE R ON
  7   GO
  8   --exec usp _Rpt_Disch argeOrderD iff @WARDG ROUP_ID=-1 ,@START_DA TE='2012-0 3-24 00:00 :00',@END_ DATE='2016 -06-29 00: 00:00',@US ER_NAME=N' aac.dva. DNS     \bms_svc_s qa',@FACIL ITY_EXTENS ION=N'6937 8E0F-B210- 493B-B2A1- 2130C9F7F3 94',@TIME_ ZONE_MINUT ES_OFFSET= 0
  9   --exec usp _Rpt_Disch argeOrderD iff @WARDG ROUP_ID=-1 ,@START_DA TE='2009-0 3-24 00:00 :00',@END_ DATE='2016 -06-29 00: 00:00',@US ER_NAME=N' aac.dva. DNS     \bms_svc_s qa',@FACIL ITY_EXTENS ION=N'6937 8E0F-B210- 493B-B2A1- 2130C9F7F3 94',@TIME_ ZONE_MINUT ES_OFFSET= -360
  10  
  11   CREATE PRO CEDURE [db o].[usp_Rp t_Discharg eOrderDiff ] 
  12           @W ARDGROUP_I D INT,
  13           @S TART_DATE  DATETIME,
  14           @E ND_DATE DA TETIME,
  15           @U SER_NAME N VARCHAR(10 0)=NULL,
  16           @F ACILITY_EX TENSION NV ARCHAR(250 ),
  17           @T IME_ZONE_M INUTES_OFF SET INT   
  18   AS
  19   BEGIN
  20  
  21           IF  @START_DA TE > @END_ DATE
  22                    RAIS ERROR ('Th e start da te is grea ter than t he end dat e. Please  correct.',  18, 13)
  23           EL SE
  24           BE GIN
  25           
  26           se t @START_D ATE = DATE ADD (minut e , -@TIME _ZONE_MINU TES_OFFSET  , @START_ DATE );
  27           se t @END_DAT E = DATEAD D (minute  , -@TIME_Z ONE_MINUTE S_OFFSET ,  @END_DATE  );
  28           --  create pe rmission t able
  29           CR EATE TABLE  #PERMISSI ON
  30           (
  31            D IM_ORGANIZ ATION_ID I NT,
  32            D IM_WARD_ID  INT
  33           )
  34       --inse rt permiss ion for th e user
  35       INSERT  INTO #PER MISSION 
  36                    SELE CT * FROM  dbo.ufn_Ge tPermissio nByUserNam e(@USER_NA ME)
  37                             CREATE  NONCLUSTE RED INDEX  [DIM_ORGAN IZATION_ID ] ON #PERM ISSION ([D IM_ORGANIZ ATION_ID]  ASC)
  38                                      WITH (
  39                                                PAD_INDEX   = OFF,
  40                                                STATISTIC S_NORECOMP UTE  = OFF ,
  41                                                SORT_IN_T EMPDB = OF F,
  42                                                IGNORE_DU P_KEY = OF F,
  43                                                DROP_EXIS TING = OFF ,
  44                                                ONLINE =  OFF,
  45                                                ALLOW_ROW _LOCKS  =  ON,
  46                                                ALLOW_PAG E_LOCKS  =  ON)
  47                             CREATE  NONCLUSTE RED INDEX  DIM_WARD_I D ON #PERM ISSION (DI M_WARD_ID  ASC)
  48                                      WITH (
  49                                                PAD_INDEX   = OFF,
  50                                                STATISTIC S_NORECOMP UTE  = OFF ,
  51                                                SORT_IN_T EMPDB = OF F,
  52                                                IGNORE_DU P_KEY = OF F,
  53                                                DROP_EXIS TING = OFF ,
  54                                                ONLINE =  OFF,
  55                                                ALLOW_ROW _LOCKS  =  ON,
  56                                                ALLOW_PAG E_LOCKS  =  ON) ;
  57           
  58           -- select * f rom #PERMI SSION
  59           
  60           DE CLARE @FAC ILITY_ID I NT
  61           -- get facili ty id
  62           SE T @FACILIT Y_ID = dbo .ufn_GetFa cilityIdBy Identifier (@FACILITY _EXTENSION );
  63           
  64           -- check if t he user ha s permissi on for the  facility               
  65           IF  EXISTS(SE LECT 1 
  66                               FROM  #PERMISSI ON
  67                               WHER E DIM_ORGA NIZATION_I D = @FACIL ITY_ID)
  68                    BEGI N
  69                                                       
  70                                      DECLARE  @WARD TABL E(ID INT P RIMARY KEY );
  71                    
  72                                --  insert war ds belongi ng to @FAC ILITY_ID 
  73                                      IF @WARD GROUP_ID =  -1
  74                                               INSERT INT O @WARD(ID )
  75                                               SELECT WAR D.ID FROM  dbo.ufn_Ge tWardsByFa cilityId(@ FACILITY_I D) as WARD
  76                                               INNER JOIN  dbo.DIM_W ARD AS ACT IVE_WARD O N ACTIVE_W ARD.ID = W ARD.ID
  77                                               WHERE ACTI VE_WARD.ST ATUS = 'ac tive'
  78                                      ELSE
  79                                               INSERT INT O @WARD(ID ) -- VALUE S (@WARD_I D)
  80                                               SELECT DIM _WARD_ID F ROM dbo.GR OUP_WARD_O RGANIZATIO N GWO
  81                                               WHERE DIM_ ORGANIZATI ON_ID = @W ARDGROUP_I D
  82  
  83                                      SELECT W ARD.NAME A S WARD_NAM E,
  84                                                  PATIENT .LAST_NAME  + ' ' + R IGHT(PATIE NT.SSN,4)  as PATIENT _NAME,
  85                                                  PATIENT .ID as Pat ientID,
  86                                                  PHYSICI AN.FULL_NA ME AS PHYS ICIAN,
  87                                                  CONVERT (VARCHAR,  DATEADD (m inute, @TI ME_ZONE_MI NUTES_OFFS ET, DISCH_ REQ.ORDERE D_DATE), 1 01) + ' ' 
  88                                                  + CONVE RT(VARCHAR (5), DATEA DD (minute , @TIME_ZO NE_MINUTES _OFFSET, D ISCH_REQ.O RDERED_DAT E), 108) A S ORDERED_ DATE,
  89                                                  CONVERT (VARCHAR,  DATEADD (m inute, @TI ME_ZONE_MI NUTES_OFFS ET, DISCHA RGE.DISCHA RGED_DATE) , 101) + '  ' 
  90                                                  + CONVE RT(VARCHAR (5), DATEA DD (minute , @TIME_ZO NE_MINUTES _OFFSET, D ISCHARGE.D ISCHARGED_ DATE), 108 ) AS DISCH ARGED_DATE ,
  91                                                  CONVERT (VARCHAR,  DATEADD (m inute, @TI ME_ZONE_MI NUTES_OFFS ET, DISCHA RGE.ENTERE D_DATE), 1 01) + ' ' 
  92                                                  + CONVE RT(VARCHAR (5), DATEA DD (minute , @TIME_ZO NE_MINUTES _OFFSET, D ISCHARGE.E NTERED_DAT E), 108) A S ENTERED_ DATE,
  93                                                  CONVERT (VARCHAR,  DATEADD (m inute, @TI ME_ZONE_MI NUTES_OFFS ET, DISCH_ REQ.SIGNED _DATE), 10 1) + ' ' 
  94                                                  + CONVE RT(VARCHAR (5), DATEA DD (minute , @TIME_ZO NE_MINUTES _OFFSET, D ISCH_REQ.S IGNED_DATE ), 108) AS  SIGNED_DA TE,
  95                                                  CONVERT (VARCHAR,  DATEADD (m inute, @TI ME_ZONE_MI NUTES_OFFS ET, MOVEME NT.MOVEMEN T_DATE), 1 01) + ' ' 
  96                                                  + CONVE RT(VARCHAR (5), DATEA DD (minute , @TIME_ZO NE_MINUTES _OFFSET, M OVEMENT.MO VEMENT_DAT E), 108) A S MOVEMENT _DATE,
  97                                                  --dbo.u fn_GetDate Diff(DISCH _REQ.SIGNE D_DATE, DI SCHARGE.DI SCHARGED_D ATE) AS DI FF,
  98                                                  --DATED IFF(MINUTE ,DISCHARGE .ENTERED_D ATE, DISCH ARGE.DISCH ARGED_DATE ) AS DIFF_ MINUTE,
  99                                                  --ORDER ED_DATE,
  100                                                  dbo.ufn _GetDateDi ff(DISCH_R EQ.SIGNED_ DATE, MOVE MENT.MOVEM ENT_DATE)  AS SIGNED_ DIFF,
  101                                                  DISCHAR GE.ID as D ISCHARGE_I D,  
  102                                                  DISCHAR GE.VISTA_S ITE_DIM_OR GANIZATION _ID as Org ID, 
  103                                                  DISCHAR GE.SOURCE_ ID,
  104                                                  --MOVEM ENT.MOVEME NT_DATE, 
  105                                                  DISCHAR GE.IEN AS  DISCHARGE_ IEN 
  106                                                  --MOVEM ENT.IEN AS  MOVEMENT_ IEN
  107                                      FROM dbo .FACT_DISC HARGE_EVN  AS DISCHAR GE
  108                                               INNER JOIN  dbo.DIM_W ARD AS WAR D ON WARD. ID = DISCH ARGE.DIM_W ARD_ID
  109                                               INNER JOIN  dbo.DIM_P ATIENT AS  PATIENT ON  PATIENT.I D = DISCHA RGE.DIM_PA TIENT_ID                                      
  110                                              
  111                                               LEFT JOIN  DBO.FACT_D ISCHARGE_R EQ AS DISC H_REQ ON D ISCH_REQ.I D = 
  112                                                                  (S ELECT MAX( ID) AS ID
  113                                                                   F ROM DBO.FA CT_DISCHAR GE_REQ AS  DISCH_REQ 
  114                                                                   W HERE DISCH _REQ.DIM_P ATIENT_ID  = DISCHARG E.DIM_PATI ENT_ID
  115                                                                   A ND DISCH_R EQ.VISTA_S ITE_DIM_OR GANIZATION _ID = DISC HARGE.VIST A_SITE_DIM _ORGANIZAT ION_ID
  116                                                                   A ND ORDERED _DATE BETW EEN @START _DATE AND  DATEADD(ms , -3, @END _DATE + 1) )  
  117                                               LEFT JOIN  dbo.DIM_PH YSICIAN AS  PHYSICIAN  On PHYSIC IAN.ID = D ISCH_REQ.S IGNED_BY_D IM_PHYSICI AN_ID
  118                                               LEFT JOIN  dbo.FACT_M OVEMENT_EV N MOVEMENT  ON DISCHA RGE.DIM_PA TIENT_ID =  MOVEMENT. DIM_PATIEN T_ID  
  119                                      WHERE DI SCHARGE.EN TERED_DATE  BETWEEN @ START_DATE  AND DATEA DD(ms, -3,  @END_DATE  + 1)
  120                                               --AND DISC HARGE.REQ_ CANCELED_D ATE IS NUL L
  121                                               AND DISCHA RGE.DISCHA RGED_DATE  IS NOT NUL L
  122                                               AND DISCHA RGE.DIM_WA RD_ID IN ( SELECT ID  FROM @WARD )
  123                    END
  124  
  125  
  126           DR OP TABLE # PERMISSION           
  127           
  128           EN D
  129   END

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