132. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/27/2018 2:07:03 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.

132.1 Files compared

# Location File Last Modified
1 BMS_v2.4_Code.zip\BMS_v2.4_Code\Database\BMSv2Updates\2.1.6.3\Reports usp_Rpt_IconUsageHistory_Audit.sql Wed Mar 21 14:51:00 2018 UTC
2 BMS_v2.4_Code.zip\BMS_v2.4_Code\Database\BMSv2Updates\2.1.6.3\Reports usp_Rpt_IconUsageHistory_Audit.sql Mon Mar 26 14:15:26 2018 UTC

132.2 Comparison summary

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

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

132.4 Active regular expressions

No regular expressions were active.

132.5 Comparison detail

  1   USE [BMS_H ISTORY]
  2   GO
  3   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Rpt_Ic onUsageHis tory_Audit ]    Scrip t Date: 8/ 17/2016 3: 55:00 PM * *****/
  4   SET ANSI_N ULLS ON
  5   GO
  6   SET QUOTED _IDENTIFIE R ON
  7   GO
  8  
  9  
  10   ALTER PROC EDURE [dbo ].[usp_Rpt _IconUsage History_Au dit] 
  11           @U serID NVAR CHAR(500),
  12           @F ACILITIES_ IDS NVARCH AR(MAX) =  '',
  13           @D ATE_FROM D ATETIME,
  14           @D ATE_TO DAT ETIME,
  15           @R EPORT_TYPE  NVARCHAR( 50)
  16  
  17   /********* ********** ********** ********** ********** ********** ********** *********
  18   OBJECT/SCR IPT NAME    usp_Rpt_I conUsageHi story_Audi t
  19  
  20   PURPOSE     Icon Usag e Report ?  
  21  
  22   CREATE/CHA NGE HISTOR Y
  23       7/28/2 016 - Greg  Milner: C AST all th e uniqueid entifiers  in the fin al 
  24         FROM  clause to  be NVARCH AR(250) to  match BMS _EIS.ENTIT Y.IDENTIFI ER 
  25         and  this avoid  conversio n and card inality es timator pr oblems. 
  26  
  27   EXAMPLE US AGE: 
  28  
  29   exec usp_R pt_IconUsa geHistory_ Audit @Use rID=
D
N S . URL ',@FACILIT IES_IDS=N' 2F4332A8-9 489-4AC6-B BB9-771950 8A30E1',@D ATE_FROM=' 2016-07-19  00:00:01' ,@DATE_TO= '2016-07-1 9 23:59:59 ',@REPORT_ TYPE=N'Ico nUsage'
  30  
  31   ********** ********** ********** ********** ********** ********** ********** ********/
  32   AS
  33   BEGIN
  34   IF (@REPOR T_TYPE = ' IconUsage' )
  35   BEGIN
  36           /* SELECT NUL L as CODE,  NULL as [ DESCRIPTIO N], NULL a s FLAG_ID,  NULL as I CON_NAME,  NULL as AC TIVE, NULL  as PT_REC , 
  37                       N ULL as BED _REC, NULL  as IMAGE_ BYTES, NUL L as SHORT _DESCRIPTI ON, NULL a s IMAGE_NA ME, NULL a s SUBGROUP ,
  38                       N ULL as WAR D, NULL as  BED, NULL  as PATIEN T */
  39  
  40           DE CLARE @TBL _ICON_TYPE  TABLE (CO DE VARCHAR (250) PRIM ARY KEY)
  41  
  42           CR EATE TABLE  #TBL_FACI LITY (
  43                    SOUR CE_ID NVAR CHAR(250)  PRIMARY KE Y, 
  44                    FACI LITY_NAME  NVARCHAR(2 50), 
  45                    PFK_ ORGANIZATI ON INT,
  46                    TIME ZONE_OFFSE T INT)
  47           
  48           IN SERT INTO  #TBL_FACIL ITY(SOURCE _ID, FACIL ITY_NAME,  PFK_ORGANI ZATION, TI MEZONE_OFF SET) 
  49           SE LECT DISTI NCT CONVER T(NVARCHAR (250), FAC ILITY.VALU E), ORG.NA ME, ORG.PF K_ORGANIZA TION, NULL  -- [dbo]. [ufn_GetOf fsetByFaci lityUID](V ALUE) 
  50           FR OM dbo.ufn _Split(@FA CILITIES_I DS, ',') A S FACILITY
  51           IN NER JOIN B MS_EIS.dbo .ENTITY AS  ENTITY 
  52              ON ENTITY. IDENTIFIER  = FACILIT Y.VALUE 
  53           IN NER JOIN B MS_EIS.dbo .EHL7_ORGA NIZATION A S ORG 
  54              ON ORG.PFK _ORGANIZAT ION = ENTI TY.PK_ENTI TY
  55           
  56           IF  EXISTS(SE LECT 1  FR OM #TBL_FA CILITY)
  57                    BEGI N
  58  
  59     CREATE T ABLE #MYBE DSPATIENTS (
  60                    PK i nt PRIMARY  KEY,
  61                    ID i nt,
  62                    BED_ UID unique identifier ,
  63                    PATI ENT_UID un iqueidenti fier)
  64  
  65     INSERT # MYBEDSPATI ENTS
  66           SE LECT PK, I D, BED_UID , PATIENT_ UID 
  67           FR OM ICON_AS SOCIATION_ H
  68           WH ERE DATE B ETWEEN @DA TE_FROM AN D @DATE_TO
  69  
  70  
  71   --CREATE A DMISSIONS  HISTORY TA BLE BASED  ON FACILIT Y IDs
  72           CR EATE TABLE  #MYADMISS IONS(
  73                    ID I NT,
  74                    PATI ENT_UID un iqueidenti fier,
  75                    BED_ UID unique identifier ,
  76                    WARD _UID uniqu eidentifie r,
  77                    INIT IAL_BED_UI D uniqueid entifier,
  78                    INIT IAL_WARD_U ID uniquei dentifier,
  79                    VIST A_SITE_UID  uniqueide ntifier,
  80                    ADMI SSION_DATE  datetime,
  81                    DATE  datetime)
  82  
  83           IN SERT #MYAD MISSIONS
  84           SE LECT DISTI NCT ADMH.I D,ADMH.PAT IENT_UID,A DMH.BED_UI D,ADMH.WAR D_UID,ADMH .INITIAL_B ED_UID,ADM H.INITIAL_ WARD_UID,
  85                                               ADMH.VISTA _SITE_UID, ADMH.ADMIS SION_DATE, ADMH.DATE   
  86           FR OM BMS_DW. dbo.DIM_OR GANIZATION  FACILITY
  87           IN NER JOIN # TBL_FACILI TY myFAC 
  88                    ON F ACILITY.SO URCE_ID =  myFAC.SOUR CE_ID
  89           IN NER JOIN B MS_DW.dbo. DIM_ORGANI ZATION VIS TA_SITE
  90                    ON F ACILITY.DI M_ORGANIZA TION_ID =  VISTA_SITE .ID
  91           IN NER JOIN A DMISSION_E VN_H ADMH
  92                    ON V ISTA_SITE. SOURCE_ID  = ADMH.VIS TA_SITE_UI D
  93           WH ERE ADMH.B ED_UID IN  (SELECT BE D_UID FROM  #MYBEDSPA TIENTS) OR  ADMH.PATI ENT_UID IN  (SELECT P ATIENT_UID  FROM #MYB EDSPATIENT S)
  94  
  95                    CREA TE TABLE # TBL_TEMP 
  96                    (
  97                             ID INT  IDENTITY( 1,1) PRIMA RY KEY,
  98                             CODE_B  NVARCHAR( 250),
  99                             CODE_P  NVARCHAR( 250),
  100                             FLAG_I D INT,
  101                             [DESCR IPTION] NV ARCHAR(250 ), 
  102                             ICON_N AME NVARCH AR(250), 
  103                             ACTIVE  CHAR(1), 
  104                             PT_REC  NVARCHAR( 10), 
  105                             BED_RE C NVARCHAR (10),
  106                             IMAGE_ BYTES nvar char(max),
  107                             SHORT_ DESCRIPTIO N NVARCHAR (250),
  108                             IMAGE_ NAME nvarc har(250),
  109                             SUBGRO UP nvarcha r(250),
  110                             PATIEN T_P nvarch ar(250),
  111                             PATIEN T_B nvarch ar(250),
  112                             BED_B  nvarchar(2 0),
  113                             WARD_B  nvarchar( 100),
  114                             BED_P  nvarchar(2 0),
  115                             WARD_P  nvarchar( 100)
  116                    )
  117  
  118                    INSE RT INTO #T BL_TEMP(CO DE_B, CODE _P, FLAG_I D, ICON_NA ME, [DESCR IPTION],   ACTIVE, PT _REC, BED_ REC, IMAGE _BYTES, 
  119                                                                  SH ORT_DESCRI PTION, IMA GE_NAME, S UBGROUP, P ATIENT_P,  PATIENT_B,  BED_B, WA RD_B, BED_ P, WARD_P)           
  120                             SELECT   
  121                    SUBS TRING(ORG_ B.NAME, 4, 3) as CODE _B,
  122                                      SUBSTRIN G(ORG_P.NA ME, 4,3) A S CODE_P, 
  123                                      ICON_FLA G.ID as FL AG_ID, 
  124                                      RTRIM(IC ON_FLAG.[S HORT_DESCR IPTION]) a s [DESCRIP TION],
  125                                      RTRIM(IC ON_FLAG.IC ON_NAME) a s ICON_NAM E,
  126                                      'Y' AS A CTIVE, 
  127                                      CASE WHE N ICON_ASS OCIATION.P ATIENT_UID  IS NOT NU LL THEN 'Y ' ELSE 'N'  END AS PT _REC,
  128                                      CASE WHE N ICON_ASS OCIATION.B ED_UID IS  NOT NULL T HEN 'Y' EL SE 'N' END  AS BED_RE C,
  129                                      ICON_FLA G.IMAGE_BY TES,
  130                                      RTRIM(IC ON_FLAG.SH ORT_DESCRI PTION),
  131                                      ICON_FLA G.IMAGE_NA ME,
  132                                      RTRIM(IC ON_FLAG.SU BGROUP),
  133                                      PERSON_P .[NAME_FAM ILY] + SUB STRING(S1. [IDENTIFIE R_EXTENSIO N], 7, 5)  AS PATIENT _P,
  134                                      PERSON_B .[NAME_FAM ILY] + SUB STRING(S2. [IDENTIFIE R_EXTENSIO N], 7, 5)  AS PATIENT _B,
  135                                      BED_PLAC EB.NAME AS  BED_B,
  136                                      WARD_PLA CEB.NAME A S WARD_B,
  137                                      BED_PLAC EP.NAME AS  BED_P,
  138                                      WARD_PLA CEP.NAME a s WARD_P
  139                             FROM I CON_ASSOCI ATION_H AS  ICON_ASSO CIATION
  140                             INNER  JOIN ICON_ FLAG_H ICO N_FLAG ON  ICON_ASSOC IATION.ICO N_FLAG_ID  = ICON_FLA G.ID
  141                             LEFT J OIN #MYADM ISSIONS AD M_B ON ICO N_ASSOCIAT ION.BED_UI D = ADM_B. BED_UID
  142                             LEFT J OIN BMS_EI S.dbo.ENTI TY AS E1 O N E1.IDENT IFIER = CA ST(ICON_AS SOCIATION. PATIENT_UI D AS NVARC HAR(250))    --
  143                             LEFT J OIN BMS_EI S.dbo.EHL7 _PERSON AS  PERSON_P  ON PERSON_ P.PFK_PERS ON = E1.PK _ENTITY
  144                             LEFT J OIN BMS_EI S.dbo.EHL7 _UID AS S1  ON S1.FK_ ENTITY = P ERSON_P.PF K_PERSON A ND S1.IDEN TIFIER_ROO T = 'SSN'
  145                             LEFT J OIN BMS_EI S.dbo.ENTI TY AS E2 O N E2.IDENT IFIER = CA ST(ICON_AS SOCIATION. BED_UID AS  NVARCHAR( 250))
  146                             LEFT J OIN BMS_EI S.dbo.EHL7 _PLACE AS  BED_PLACEB  ON BED_PL ACEB.PFK_P LACE = E2. PK_ENTITY
  147                             LEFT J OIN BMS_EI S.dbo.ENTI TY AS E3 O N E3.IDENT IFIER = CA ST(ADM_B.W ARD_UID AS  NVARCHAR( 250))
  148                             LEFT J OIN BMS_EI S.dbo.EHL7 _PLACE AS  WARD_PLACE B ON WARD_ PLACEB.PFK _PLACE =E3 .PK_ENTITY
  149                             LEFT J OIN #MYADM ISSIONS AD M_P ON ICO N_ASSOCIAT ION.PATIEN T_UID = AD M_P.PATIEN T_UID
  150                             LEFT J OIN BMS_EI S.dbo.ENTI TY AS E4 O N E4.IDENT IFIER = CA ST(ADM_P.B ED_UID   A S NVARCHAR (250))
  151                             LEFT J OIN BMS_EI S.dbo.EHL7 _PLACE AS  BED_PLACEP  ON BED_PL ACEP.PFK_P LACE = E4. PK_ENTITY
  152                             LEFT J OIN BMS_EI S.dbo.ENTI TY AS E5 O N E5.IDENT IFIER = CA ST(ADM_P.W ARD_UID    AS NVARCHA R(250))
  153                             LEFT J OIN BMS_EI S.dbo.EHL7 _PLACE AS  WARD_PLACE P ON WARD_ PLACEP.PFK _PLACE = E 5.PK_ENTIT Y
  154                             LEFT J OIN BMS_EI S.dbo.ENTI TY AS E6 O N E6.IDENT IFIER = CA ST(ADM_B.V ISTA_SITE_ UID  AS NV ARCHAR(250 ))
  155                             LEFT J OIN BMS_EI S.dbo.EHL7 _ORGANIZAT ION ORG_B  ON ORG_B.P FK_ORGANIZ ATION = E6 .PK_ENTITY
  156                             LEFT J OIN BMS_EI S.dbo.ENTI TY AS E7 O N E7.IDENT IFIER = CA ST(ADM_P.V ISTA_SITE_ UID AS NVA RCHAR(250) )
  157                             LEFT J OIN BMS_EI S.dbo.EHL7 _ORGANIZAT ION ORG_P  ON ORG_P.P FK_ORGANIZ ATION = E7 .PK_ENTITY
  158                             LEFT J OIN BMS_EI S.dbo.ENTI TY AS E8 O N E8.IDENT IFIER = CA ST(ADM_B.P ATIENT_UID  AS NVARCH AR(250))
  159                             LEFT J OIN BMS_EI S.dbo.EHL7 _PERSON AS  PERSON_B  ON PERSON_ B.PFK_PERS ON = E8.PK _ENTITY
  160                             LEFT J OIN BMS_EI S.dbo.EHL7 _UID AS S2  ON S2.FK_ ENTITY = P ERSON_B.PF K_PERSON A ND S2.IDEN TIFIER_ROO T = 'SSN'
  161                    WHER E ICON_ASS OCIATION.D ATE BETWEE N @DATE_FR OM AND @DA TE_TO 
  162  
  163  
  164                    --se lect * fro m #TBL_TEM P
  165                             
  166                    -- c ount how m any patien ts or beds  have the  icon assoc iated
  167                    
  168                    sele ct ISNULL( ISNULL(COD E_B, CODE_ P), 'N/A')  AS CODE, 
  169                                --[ DESCRIPTIO N], 
  170                                FLA G_ID, 
  171                                ICO N_NAME, 
  172                                ACT IVE,
  173                                PT_ REC,
  174                                BED _REC,
  175                                IMA GE_BYTES,
  176                                --S HORT_DESCR IPTION,
  177                                IMA GE_NAME,
  178                                --S UBGROUP,
  179                                ISN ULL(ISNULL (WARD_B, W ARD_P), '' ) as WARD,
  180                                ISN ULL(ISNULL (BED_B, BE D_P), '')  as BED,
  181                                ISN ULL(ISNULL (PATIENT_B , PATIENT_ P), '') as  PATIENT
  182                    from  #TBL_TEMP  
  183                    WHER E ISNULL(C ODE_B,CODE _P) IS NOT  NULL
  184                    grou p by ISNUL L(CODE_B,  CODE_P), F LAG_ID, IC ON_NAME, A CTIVE, BED _REC, PT_R EC, IMAGE_ BYTES,  IM AGE_NAME,  ISNULL(WAR D_B, WARD_ P),ISNULL( PATIENT_B,  PATIENT_P ),
  185                    --[D ESCRIPTION ], SHORT_D ESCRIPTION , SUBGROUP ,
  186                                ISN ULL(BED_B,  BED_P) /* ) RESULT * /
  187                    orde r by CODE,  ICON_NAME
  188                                      
  189                    DROP  TABLE #TB L_TEMP
  190                    DROP  TABLE #TB L_FACILITY
  191                    DROP  TABLE #MY ADMISSIONS
  192  
  193           EN D
  194   END
  195   END
  196  

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