30. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 8/31/2018 11:26:36 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.

30.1 Files compared

# Location File Last Modified
1 BMS_Source.zip\Source\Sources\Database\BMSv2Updates\2.1.6.3\Reports DROP_CREATE_BMS_HISTORY_usp_Rpt_IconUsageHistory_Audit.sql Thu Aug 30 15:11:46 2018 UTC
2 BMS_Source.zip\Source\Sources\Database\BMSv2Updates\2.1.6.3\Reports DROP_CREATE_BMS_HISTORY_usp_Rpt_IconUsageHistory_Audit.sql Thu Aug 30 19:19:27 2018 UTC

30.2 Comparison summary

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

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

30.4 Active regular expressions

No regular expressions were active.

30.5 Comparison detail

  1   USE [BMS_H ISTORY]
  2   GO
  3  
  4   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Rpt_Ic onUsageHis tory_Audit ]    Scrip t Date: 6/ 14/2016 9: 13:31 AM * *****/
  5   DROP PROCE DURE [dbo] .[usp_Rpt_ IconUsageH istory_Aud it]
  6   GO
  7  
  8   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Rpt_Ic onUsageHis tory_Audit ]    Scrip t Date: 6/ 14/2016 9: 13:31 AM * *****/
  9   SET ANSI_N ULLS ON
  10   GO
  11  
  12   SET QUOTED _IDENTIFIE R ON
  13   GO
  14  
  15  
  16  
  17   --exec usp _Rpt_IconU sageHistor y_Audit @U serID=N'aa c.dva. DNS     \bms_svc_s qa',@FACIL ITIES_IDS= N'144;143_ 1,145;142_ 2,146;141_ 3,147;140_ 4,148;139_ 5,149;138_ 6,150;137_ 7,151;136_ 8,161;135_ 9,162;134_ 10,163;133 _11,164;13 2_12,165;1 31_13,166; 130_14,167 ;129_15,16 8;128_16,1 69;127_17, 170;126_18 ,171;125_1 9,172;124_ 20,173;123 _21,174;12 2_22,175;1 21_23,176; 120_24,177 ;119_25,17 8;118_26,1 79;117_27, 180;116_28 ,181;115_2 9,182;114_ 30,183;113 _31,184;11 2_32,185;1 11_33,186; 110_34,187 ;109_35,18 8;108_36,1 89;107_37, 190;106_38 ,191;105_3 9,192;104_ 40,193;103 _41,194;10 2_42,195;1 01_43,196; 100_44,197 ;99_45,198 ;98_46,199 ;97_47,200 ;96_48,201 ;95_49,202 ;94_50,203 ;93_51,204 ;92_52,205 ;91_53,206 ;90_54,207 ;89_55,208 ;88_56,209 ;87_57,210 ;86_58,211 ;85_59,212 ;84_60,213 ;83_61,214 ;82_62,215 ;81_63,216 ;80_64,217 ;79_65,218 ;78_66,219 ;77_67,220 ;76_68,221 ;75_69,222 ;74_70,223 ;73_71,224 ;72_72,225 ;71_73,226 ;70_74,227 ;69_75,228 ;68_76,229 ;67_77,230 ;66_78,231 ;65_79,232 ;64_80,233 ;63_81,234 ;62_82,235 ;61_83,236 ;60_84,237 ;59_85,238 ;58_86,239 ;57_87,240 ;56_88,241 ;55_89,242 ;54_90,243 ;53_91,244 ;52_92,245 ;51_93,246 ;50_94,247 ;49_95,248 ;48_96,249 ;47_97,250 ;46_98,251 ;45_99,252 ;44_100,25 3;43_101,2 54;42_102, 255;41_103 ,256;40_10 4,257;39_1 05,258;38_ 106,259;37 _107,260;3 6_108,261; 35_109,262 ;34_110,26 3;33_111,2 64;32_112, 265;31_113 ,266;30_11 4,267;29_1 15,268;28_ 116,269;27 _117,270;2 6_118,271; 25_119,272 ;24_120,27 3;23_121,2 74;22_122, 275;21_123 ,276;20_12 4,277;19_1 25,278;18_ 126,279;17 _127,280;1 6_128,281; 15_129,282 ;14_130,28 3;13_131,2 84;12_132, 285;11_133 ,286;10_13 4,287;9_13 5,295;8_13 6,296;7_13 7,297;6_13 8,298;5_13 9,299;4_14 0,300;3_14 1,301;2_14 2,302;1_14 3',@DATE_F ROM = '1/1 /2008', @D ATE_TO='12 /29/2016'
  18   --exec usp _Rpt_IconU sageHistor y_Audit_Te st @UserID =N'
D NS     HORND@ DNS             ',@FACILIT IES_IDS=N' 155;141_3, 157;139_5, 154;142_2, 158;138_6, 159;137_7, 160;136_8, 161;135_9, 162;134_10 ,163;133_1 1,156;140_ 4,164;132_ 12,165;131 _13,166;13 0_14,167;1 29_15,168; 128_16,169 ;127_17,17 0;126_18,1 71;125_19, 172;124_20 ,173;123_2 1,174;122_ 22,175;121 _23,176;12 0_24,177;1 19_25,178; 118_26,179 ;117_27,18 0;116_28,1 81;115_29, 182;114_30 ,183;113_3 1,184;112_ 32,185;111 _33,186;11 0_34,187;1 09_35,188; 108_36,189 ;107_37,19 0;106_38,1 91;105_39, 192;104_40 ,193;103_4 1,194;102_ 42,195;101 _43,196;10 0_44,197;9 9_45,198;9 8_46,199;9 7_47,200;9 6_48,201;9 5_49,202;9 4_50,203;9 3_51,204;9 2_52,205;9 1_53,206;9 0_54,207;8 9_55,208;8 8_56,209;8 7_57,210;8 6_58,211;8 5_59,212;8 4_60,213;8 3_61,214;8 2_62,215;8 1_63,216;8 0_64,217;7 9_65,218;7 8_66,219;7 7_67,220;7 6_68,221;7 5_69,222;7 4_70,223;7 3_71,224;7 2_72,225;7 1_73,226;7 0_74,227;6 9_75,228;6 8_76,229;6 7_77,230;6 6_78,231;6 5_79,232;6 4_80,233;6 3_81,234;6 2_82,235;6 1_83,236;6 0_84,237;5 9_85,238;5 8_86,239;5 7_87,240;5 6_88,241;5 5_89,242;5 4_90,243;5 3_91,244;5 2_92,245;5 1_93,246;5 0_94,247;4 9_95,248;4 8_96,249;4 7_97,250;4 6_98,251;4 5_99,252;4 4_100,253; 43_101,254 ;42_102,25 5;41_103,2 56;40_104, 257;39_105 ,258;38_10 6,259;37_1 07,260;36_ 108,261;35 _109,262;3 4_110,263; 33_111,264 ;32_112,26 5;31_113,2 66;30_114, 267;29_115 ,295;1_143 ,268;28_11 6,269;27_1 17,270;26_ 118,271;25 _119,272;2 4_120,273; 23_121,274 ;22_122,15 3;143_1,27 5;21_123,2 76;20_124, 277;19_125 ,278;18_12 6,279;17_1 27,280;16_ 128,281;15 _129,282;1 4_130,283; 13_131,284 ;12_132,28 5;11_133,2 86;10_134, 287;9_135, 288;8_136, 289;7_137, 290;6_138, 291;5_139, 292;4_140, 293;3_141, 294;2_142' ,@DATE_FRO M='2016-03 -07 00:00: 01',@DATE_ TO='2016-0 5-09 23:59 :59'
  19   CREATE PRO CEDURE [db o].[usp_Rp t_IconUsag eHistory_A udit] 
  20           @U serID NVAR CHAR(500),
  21           @F ACILITIES_ IDS NVARCH AR(MAX) =  '',
  22           @D ATE_FROM D ATETIME,
  23           @D ATE_TO DAT ETIME,
  24           @R EPORT_TYPE  NVARCHAR( 50)
  25  
  26   AS
  27   BEGIN
  28   IF (@REPOR T_TYPE = ' IconUsage' )
  29   BEGIN
  30           /* 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 , 
  31                       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 ,
  32                       N ULL as WAR D, NULL as  BED, NULL  as PATIEN T */
  33  
  34           DE CLARE @TBL _FACILITY  TABLE (ID  INT PRIMAR Y KEY)
  35           DE CLARE @TBL _ICON_TYPE  TABLE (CO DE VARCHAR (250) PRIM ARY KEY)
  36                                                        
  37           IN SERT INTO  @TBL_FACIL ITY(ID) 
  38           SE LECT CASE  WHEN CHARI NDEX(';',F .ID) > 0 T HEN CAST(S UBSTRING(F .ID,1, CHA RINDEX(';' ,F.ID) -1)  AS INT) 
  39                                 EL SE CAST(F. ID AS INT)  
  40                       E ND
  41           FR OM (SELECT   VALUE AS  ID FROM d bo.ufn_Spl it(@FACILI TIES_IDS,  ','))F
  42  
  43   /*
  44           IN SERT INTO  @TBL_ICON_ TYPE(CODE)  
  45           SE LECT CONVE RT(VARCHAR (20), VALU E) FROM db o.ufn_Spli t(@ICON_TY PES, ',')
  46           
  47           de clare @TBL _ICONS tab le (id int  PRIMARY K EY)
  48           
  49           in sert into  @TBL_ICONS (id)
  50           se lect case  when chari ndex(';',c ode) > 0 t hen 
  51                             substr ing(code,1 ,charindex (';',code)  -1) 
  52                             else c ode end
  53           fr om @TBL_IC ON_TYPE
  54           wh ere charin dex('-2',c ode) > 0 - - for stan dard icons
  55           
  56           if  exists (s elect id f rom @TBL_I CONS where  id = -2)
  57           be gin
  58                    inse rt into @T BL_ICONS
  59                    sele ct id from  BMS_DW.db o.dim_icon _flag 
  60                    wher e id not i n (select  id from @T BL_ICONS)
  61                                      
  62                    dele te from @T BL_ICONS
  63                    wher e id = -2            
  64           
  65           en d
  66           */
  67           
  68           IF  EXISTS(SE LECT 1  FR OM @TBL_FA CILITY)
  69                    BEGI N
  70                    
  71                    CREA TE TABLE # TBL_TEMP 
  72                    (
  73                             ID INT  IDENTITY( 1,1) PRIMA RY KEY,
  74                             CODE_B  NVARCHAR( 250),
  75                             CODE_P  NVARCHAR( 250),
  76                             FLAG_I D INT,
  77                             [DESCR IPTION] NV ARCHAR(250 ), 
  78                             ICON_N AME NVARCH AR(250), 
  79                             ACTIVE  CHAR(1), 
  80                             PT_REC  NVARCHAR( 10), 
  81                             BED_RE C NVARCHAR (10),
  82                             IMAGE_ BYTES nvar char(max),
  83                             SHORT_ DESCRIPTIO N NVARCHAR (250),
  84                             IMAGE_ NAME nvarc har(250),
  85                             SUBGRO UP nvarcha r(250),
  86                             PATIEN T_P nvarch ar(250),
  87                             PATIEN T_B nvarch ar(250),
  88                             BED_B  nvarchar(2 0),
  89                             WARD_B  nvarchar( 100),
  90                             BED_P  nvarchar(2 0),
  91                             WARD_P  nvarchar( 100)
  92                    )
  93  
  94                    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, 
  95                                                                  SH ORT_DESCRI PTION, IMA GE_NAME, S UBGROUP, P ATIENT_P,  PATIENT_B,  BED_B, WA RD_B, BED_ P, WARD_P)           
  96                             SELECT   SUBSTRIN G(ORG_B.NA ME, 4,3) a s CODE_B,
  97                                      SUBSTRIN G(ORG_P.NA ME, 4,3) A S CODE_P, 
  98                                      ICON_FLA G.ID as FL AG_ID, 
  99                                      RTRIM(IC ON_FLAG.[S HORT_DESCR IPTION]) a s [DESCRIP TION],
  100                                      RTRIM(IC ON_FLAG.IC ON_NAME) a s ICON_NAM E,
  101                                      'Y' AS A CTIVE, 
  102                                      CASE WHE N ICON_ASS OCIATION.P ATIENT_UID  IS NOT NU LL THEN 'Y ' ELSE 'N'  END AS PT _REC,
  103                                      CASE WHE N ICON_ASS OCIATION.B ED_UID IS  NOT NULL T HEN 'Y' EL SE 'N' END  AS BED_RE C,
  104                                      ICON_FLA G.IMAGE_BY TES,
  105                                      RTRIM(IC ON_FLAG.SH ORT_DESCRI PTION),
  106                                      ICON_FLA G.IMAGE_NA ME,
  107                                      RTRIM(IC ON_FLAG.SU BGROUP),
  108                                      PERSON_P .[NAME_FAM ILY] + SUB STRING(S1. [IDENTIFIE R_EXTENSIO N], 7, 5)  AS PATIENT _P,
  109                                      PERSON_B .[NAME_FAM ILY] + SUB STRING(S2. [IDENTIFIE R_EXTENSIO N], 7, 5)  AS PATIENT _B,
  110                                      BED_PLAC EB.NAME AS  BED_B,
  111                                      WARD_PLA CEB.NAME A S WARD_B,
  112                                      BED_PLAC EP.NAME AS  BED_P,
  113                                      WARD_PLA CEP.NAME a s WARD_P
  114                             FROM I CON_ASSOCI ATION_H AS  ICON_ASSO CIATION
  115                             INNER  JOIN ICON_ FLAG_H ICO N_FLAG ON  ICON_ASSOC IATION.ICO N_FLAG_ID  = ICON_FLA G.ID
  116                             LEFT J OIN ADMISS ION_EVN_H  ADM_B ON I CON_ASSOCI ATION.BED_ UID = ADM_ B.BED_UID
  117                             LEFT J OIN BMS_EI S.dbo.ENTI TY AS E1 O N E1.IDENT IFIER = IC ON_ASSOCIA TION.PATIE NT_UID
  118                             LEFT J OIN BMS_EI S.dbo.EHL7 _PERSON AS  PERSON_P  ON PERSON_ P.PFK_PERS ON = E1.PK _ENTITY
  119                             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'
  120                             LEFT J OIN BMS_EI S.dbo.ENTI TY AS E2 O N E2.IDENT IFIER = IC ON_ASSOCIA TION.BED_U ID
  121                             LEFT J OIN BMS_EI S.dbo.EHL7 _PLACE AS  BED_PLACEB  ON BED_PL ACEB.PFK_P LACE = E2. PK_ENTITY
  122                             LEFT J OIN BMS_EI S.dbo.ENTI TY AS E3 O N E3.IDENT IFIER = AD M_B.WARD_U ID
  123                             LEFT J OIN BMS_EI S.dbo.EHL7 _PLACE AS  WARD_PLACE B ON WARD_ PLACEB.PFK _PLACE =E3 .PK_ENTITY
  124                             LEFT J OIN ADMISS ION_EVN_H  ADM_P ON I CON_ASSOCI ATION.PATI ENT_UID =  ADM_P.PATI ENT_UID
  125                             LEFT J OIN BMS_EI S.dbo.ENTI TY AS E4 O N E4.IDENT IFIER = AD M_P.BED_UI D 
  126                             LEFT J OIN BMS_EI S.dbo.EHL7 _PLACE AS  BED_PLACEP  ON BED_PL ACEP.PFK_P LACE = E4. PK_ENTITY
  127                             LEFT J OIN BMS_EI S.dbo.ENTI TY AS E5 O N E5.IDENT IFIER = AD M_P.WARD_U ID 
  128                             LEFT J OIN BMS_EI S.dbo.EHL7 _PLACE AS  WARD_PLACE P ON WARD_ PLACEP.PFK _PLACE = E 5.PK_ENTIT Y
  129                             LEFT J OIN BMS_EI S.dbo.ENTI TY AS E6 O N E6.IDENT IFIER = AD M_B.VISTA_ SITE_UID
  130                             LEFT J OIN BMS_EI S.dbo.EHL7 _ORGANIZAT ION ORG_B  ON ORG_B.P FK_ORGANIZ ATION = E6 .PK_ENTITY
  131                             LEFT J OIN BMS_EI S.dbo.ENTI TY AS E7 O N E7.IDENT IFIER = AD M_P.VISTA_ SITE_UID
  132                             LEFT J OIN BMS_EI S.dbo.EHL7 _ORGANIZAT ION ORG_P  ON ORG_P.P FK_ORGANIZ ATION = E7 .PK_ENTITY
  133                             LEFT J OIN BMS_EI S.dbo.ENTI TY AS E8 O N E8.IDENT IFIER = AD M_B.PATIEN T_UID
  134                             LEFT J OIN BMS_EI S.dbo.EHL7 _PERSON AS  PERSON_B  ON PERSON_ B.PFK_PERS ON = E8.PK _ENTITY
  135                             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'
  136                    WHER E ICON_ASS OCIATION.D ATE BETWEE N @DATE_FR OM AND @DA TE_TO 
  137  
  138                    --se lect * fro m #TBL_TEM P
  139                             
  140                    -- c ount how m any patien ts or beds  have the  icon assoc iated
  141                    
  142   /*               SELE CT RESULT. CODE, RESU LT.[DESCRI PTION], RE SULT.FLAG_ ID, RESULT .ICON_NAME , RESULT.A CTIVE, RES ULT.PT_REC , RESULT.B ED_REC, 
  143                             IMAGE_ BYTES, SHO RT_DESCRIP TION, IMAG E_NAME, SU BGROUP, WA RD, BED, P ATIENT
  144                    FROM  ( */
  145                    sele ct ISNULL( ISNULL(COD E_B, CODE_ P), 'N/A')  AS CODE, 
  146                                --[ DESCRIPTIO N], 
  147                                FLA G_ID, 
  148                                ICO N_NAME, 
  149                                ACT IVE,
  150                                PT_ REC,
  151                                BED _REC,
  152                                IMA GE_BYTES,
  153                                --S HORT_DESCR IPTION,
  154                                IMA GE_NAME,
  155                                --S UBGROUP,
  156                                ISN ULL(ISNULL (WARD_B, W ARD_P), '' ) as WARD,
  157                                ISN ULL(ISNULL (BED_B, BE D_P), '')  as BED,
  158                                ISN ULL(ISNULL (PATIENT_B , PATIENT_ P), '') as  PATIENT
  159                    from  #TBL_TEMP  
  160                    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 ),
  161                    --[D ESCRIPTION ], SHORT_D ESCRIPTION , SUBGROUP ,
  162                                ISN ULL(BED_B,  BED_P) /* ) RESULT * /
  163                    orde r by CODE,  ICON_NAME
  164                    
  165                    DROP  TABLE #TB L_TEMP
  166                    
  167           EN D
  168   END
  169   END
  170  
  171  
  172   GO
  173  
  174  

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