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.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | BMS_Source.zip\Source\Sources\Database\BMSv2Updates\2.1.6.3\Reports | DROP_CREATE_BMS_DW_usp_Rpt_IconUsage.sql | Thu Aug 30 15:11:48 2018 UTC |
| 2 | BMS_Source.zip\Source\Sources\Database\BMSv2Updates\2.1.6.3\Reports | DROP_CREATE_BMS_DW_usp_Rpt_IconUsage.sql | Thu Aug 30 19:19:25 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 438 |
| Changed | 1 | 4 |
| Inserted | 0 | 0 |
| Removed | 0 | 0 |
| 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 |
No regular expressions were active.
| 1 | USE [BMS_D W] | |
| 2 | GO | |
| 3 | ||
| 4 | /****** Ob ject: Sto redProcedu re [dbo].[ usp_Rpt_Ic onUsage] Script D ate: 6/14/ 2016 9:11: 54 AM **** **/ | |
| 5 | DROP PROCE DURE [dbo] .[usp_Rpt_ IconUsage] | |
| 6 | GO | |
| 7 | ||
| 8 | /****** Ob ject: Sto redProcedu re [dbo].[ usp_Rpt_Ic onUsage] Script D ate: 6/14/ 2016 9:11: 54 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 sage_DH 'a ac.dva. DNS \bms_svc_s qa' | |
| 18 | --exec usp _Rpt_IconU sage_DH @U serID=N'aa c.dva. DNS \bms_svc_s qa',@FACIL ITIES_IDS= N'144;143_ 1,146;141_ 3,162;134_ 10,147;140 _4,163;133 _11,164;13 2_12,165;1 31_13,166; 130_14,148 ;139_5,145 ;142_2,149 ;138_6,150 ;137_7,151 ;136_8,168 ;128_16,16 7;129_15,1 97;99_45,1 98;98_46,1 99;97_47,1 69;127_17, 170;126_18 ,171;125_1 9,172;124_ 20,200;96_ 48,201;95_ 49,202;94_ 50,203;93_ 51,173;123 _21,174;12 2_22,175;1 21_23,176; 120_24,204 ;92_52,205 ;91_53,206 ;90_54,207 ;89_55,208 ;88_56,177 ;119_25,17 8;118_26,1 79;117_27, 180;116_28 ,209;87_57 ,210;86_58 ,224;72_72 ,225;71_73 ,181;115_2 9,182;114_ 30,183;113 _31,184;11 2_32,226;7 0_74,227;6 9_75,228;6 8_76,229;6 7_77,185;1 11_33,186; 110_34,187 ;109_35,18 8;108_36,2 30;66_78,2 31;65_79,2 32;64_80,2 33;63_81,2 34;62_82,1 89;107_37, 190;106_38 ,191;105_3 9,192;104_ 40,235;61_ 83,236;60_ 84,237;59_ 85,238;58_ 86,193;103 _41,194;10 2_42,195;1 01_43,196; 100_44,253 ;43_101,25 4;42_102,2 55;41_103, 256;40_104 ,211;85_59 ,212;84_60 ,213;83_61 ,214;82_62 ,257;39_10 5,258;38_1 06,259;37_ 107,260;36 _108,261;3 5_109,215; 81_63,216; 80_64,217; 79_65,218; 78_66,262; 34_110,263 ;33_111,26 4;32_112,2 65;31_113, 219;77_67, 220;76_68, 221;75_69, 222;74_70, 266;30_114 ,267;29_11 5,268;28_1 16,269;27_ 117,223;73 _71,239;57 _87,240;56 _88,241;55 _89,242;54 _90,270;26 _118,271;2 5_119,272; 24_120,273 ;23_121,24 3;53_91,24 4;52_92,24 5;51_93,24 6;50_94,30 2;1_143,27 4;22_122,2 75;21_123, 276;20_124 ,277;19_12 5,247;49_9 5,248;48_9 6,249;47_9 7,161;135_ 9,250;46_9 8,278;18_1 26,279;17_ 127,280;16 _128,295;8 _136,251;4 5_99,252;4 4_100,281; 15_129,282 ;14_130,28 3;13_131,2 96;7_137,2 97;6_138,2 98;5_139,2 99;4_140,2 84;12_132, 285;11_133 ,286;10_13 4,287;9_13 5,300;3_14 1,301;2_14 2',@ICON_T YPES=N'51; -1_4_24,30 ;-1_18_10, 53;-1_2_26 ,54;-1_1_2 7,33;-1_16 _12,20;-1_ 25_3,27;-1 _20_8,24;- 1_22_6,35; -2_15_13,3 2;-2_17_11 ,48;-2_7_2 1,26;-2_21 _7,21;-2_2 4_4,47;-2_ 8_20,42;-2 _12_16,18; -2_27_1,37 ;-2_14_14, 50;-2_5_23 ,29;-2_19_ 9,52;-2_3_ 25,44;-2_1 1_17,23;-2 _23_5,39;- 2_13_15,45 ;-2_10_18, 46;-2_9_19 ,49;-2_6_2 2,19;-3_26 _2' | |
| 19 | --exec usp _Rpt_IconU sage @User ID=NULL,@F ACILITIES_ IDS=NULL,@ ICON_TYPES =NULL | |
| 20 | ||
| 21 | CREATE PRO CEDURE [db o].[usp_Rp t_IconUsag e] | |
| 22 | @U serID NVAR CHAR(500), | |
| 23 | @F ACILITIES_ IDS NVARCH AR(MAX) = '', | |
| 24 | @I CON_TYPES NVARCHAR(M AX) = '' | |
| 25 | ||
| 26 | AS | |
| 27 | BEGIN | |
| 28 | DE CLARE @TBL _FACILITY TABLE (ID INT PRIMAR Y KEY) | |
| 29 | DE CLARE @TBL _ICON_TYPE TABLE (CO DE VARCHAR (250) PRIM ARY KEY) | |
| 30 | ||
| 31 | IN SERT INTO @TBL_FACIL ITY(ID) | |
| 32 | SE LECT CASE WHEN CHARI NDEX(';',F .ID) > 0 T HEN CAST(S UBSTRING(F .ID,1, CHA RINDEX(';' ,F.ID) -1) AS INT) | |
| 33 | EL SE CAST(F. ID AS INT) | |
| 34 | E ND | |
| 35 | FR OM (SELECT VALUE AS ID FROM d bo.ufn_Spl it(@FACILI TIES_IDS, ','))F | |
| 36 | ||
| 37 | IN SERT INTO @TBL_ICON_ TYPE(CODE) | |
| 38 | SE LECT CONVE RT(VARCHAR (20), VALU E) FROM db o.ufn_Spli t(@ICON_TY PES, ',') | |
| 39 | ||
| 40 | de clare @TBL _EMERGENCY _ICONS tab le (id int PRIMARY K EY) | |
| 41 | de clare @TBL _STANDARD_ ICONS tabl e (id int PRIMARY KE Y) | |
| 42 | de clare @TBL _SITE_CFG_ ICONS tabl e (id int PRIMARY KE Y) | |
| 43 | de clare @TBL _PARENT_SI TE_CFG_ICO NS TABLE(I D INT PRIM ARY KEY) | |
| 44 | ||
| 45 | in sert into @TBL_EMERG ENCY_ICONS (id) | |
| 46 | se lect case when chari ndex(';',c ode) > 0 t hen | |
| 47 | substr ing(code,1 ,charindex (';',code) -1) | |
| 48 | else c ode end | |
| 49 | fr om @TBL_IC ON_TYPE | |
| 50 | wh ere charin dex('-1',c ode) > 0 - - for emg icons | |
| 51 | ||
| 52 | -- if the ca tegory 'Em ergency Ma nagement I cons' is c hosen, all the icons of this t ype are co nsidered | |
| 53 | -- and it's id is dele ted | |
| 54 | if exists (s elect id f rom @TBL_E MERGENCY_I CONS where id = -1) | |
| 55 | be gin | |
| 56 | inse rt into @T BL_EMERGEN CY_ICONS | |
| 57 | sele ct id from dbo.dim_i con_flag | |
| 58 | wher e SUBGROUP = 'EMERGE NCY_ICON' and | |
| 59 | id not i n (select id from @T BL_EMERGEN CY_ICONS) | |
| 60 | ||
| 61 | dele te from @T BL_EMERGEN CY_ICONS | |
| 62 | wher e id = -1 | |
| 63 | ||
| 64 | en d | |
| 65 | ||
| 66 | in sert into @TBL_STAND ARD_ICONS( id) | |
| 67 | se lect case when chari ndex(';',c ode) > 0 t hen | |
| 68 | substr ing(code,1 ,charindex (';',code) -1) | |
| 69 | else c ode end | |
| 70 | fr om @TBL_IC ON_TYPE | |
| 71 | wh ere charin dex('-2',c ode) > 0 - - for stan dard icons | |
| 72 | ||
| 73 | -- if the ca tegory 'St andard Ico ns' is cho sen, all t he icons o f this typ e are cons idered | |
| 74 | -- and it's id is dele ted | |
| 75 | if exists (s elect id f rom @TBL_S TANDARD_IC ONS where id = -2) | |
| 76 | be gin | |
| 77 | inse rt into @T BL_STANDAR D_ICONS | |
| 78 | sele ct id from dbo.dim_i con_flag | |
| 79 | wher e SUBGROUP = 'STANDA RD_ICON' a nd | |
| 80 | id not i n (select id from @T BL_STANDAR D_ICONS) | |
| 81 | ||
| 82 | dele te from @T BL_STANDAR D_ICONS | |
| 83 | wher e id = -2 | |
| 84 | ||
| 85 | en d | |
| 86 | ||
| 87 | in sert into @TBL_PAREN T_SITE_CFG _ICONS(ID) | |
| 88 | se lect case when chari ndex(';',c ode) > 0 t hen | |
| 89 | substr ing(code,1 ,charindex (';',code) -1) | |
| 90 | else c ode end | |
| 91 | fr om @TBL_IC ON_TYPE | |
| 92 | wh ere charin dex('-3',c ode) > 0 - - for site configura ble icons | |
| 93 | ||
| 94 | -- if the ca tegory 'Si te Configu rable Icon s' is chos en, all th e icons of this type are consi dered | |
| 95 | IF EXISTS (S ELECT ID F ROM @TBL_P ARENT_SITE _CFG_ICONS WHERE ID = -3) | |
| 96 | BEGI N | |
| 97 | ||
| 98 | INSERT INTO @TBL _SITE_CFG_ ICONS(id) | |
| 99 | SELECT ID FROM d bo.DIM_ICO N_FLAG_FAC ILITY | |
| 100 | WHERE ICON_NAME IS NOT NUL L AND LEN( LTRIM(RTRI M(ICON_NAM E)))>0 | |
| 101 | END | |
| 102 | EL SE | |
| 103 | BEGI N | |
| 104 | INSERT INTO @TBL _SITE_CFG_ ICONS(id) | |
| 105 | SELECT DISTINCT ICON_F_FAC .ID | |
| 106 | FROM d bo.DIM_ICO N_FLAG_FAC ILITY AS I CON_F_FAC | |
| 107 | INNER JOIN @TBL_ PARENT_SIT E_CFG_ICON S AS PAREN T ON PAREN T.ID = ICO N_F_FAC.DI M_ICON_FLA G_ID | |
| 108 | END | |
| 109 | ||
| 110 | IF EXISTS(SE LECT 1 FR OM @TBL_FA CILITY) | |
| 111 | BEGI N | |
| 112 | ||
| 113 | CREA TE TABLE # TBL_TEMP | |
| 114 | ( | |
| 115 | ID INT IDENTITY( 1,1) PRIMA RY KEY, | |
| 116 | CODE N VARCHAR(25 0), | |
| 117 | FLAG_I D INT, | |
| 118 | [DESCR IPTION] NV ARCHAR(250 ), | |
| 119 | ICON_N AME NVARCH AR(250), | |
| 120 | ACTIVE CHAR(1), | |
| 121 | PT_REC NVARCHAR( 10), | |
| 122 | BED_RE C NVARCHAR (10), | |
| 123 | IMAGE_ BYTES nvar char(max) | |
| 124 | ) | |
| 125 | ||
| 126 | INSE RT INTO #T BL_TEMP(CO DE, FLAG_I D, ICON_NA ME, [DESCR IPTION], ACTIVE, PT _REC, BED_ REC, IMAGE _BYTES) | |
| 127 | SELE CT DISTINC T FAC.CODE , ICON_FLA G.ID as FL AG_ID, | |
| 128 | ICON_F LAG.ICON_N AME as ICO N_NAME, | |
| 129 | ICON_F LAG.[SHORT _DESCRIPTI ON] as [DE SCRIPTION] , | |
| 130 | 'Y' AS ACTIVE, | |
| 131 | 'N' AS PT_REC, | |
| 132 | 'Y' AS BED_REC, | |
| 133 | ICON_F LAG.IMAGE_ BYTES | |
| 134 | FROM dbo.GROUP _ICON_ASSO CIATION AS ICON_ASSO CIATION | |
| 135 | INNER JOIN dbo.G ROUP_BED_W ARDGROUP A S BED ON B ED.DIM_BED _ID = ICON _ASSOCIATI ON.DIM_BED _ID | |
| 136 | INNER JOIN dbo.D IM_ORGANIZ ATION AS D IVISION ON DIVISION. ID = BED.D IM_WARDGRO UP_ID | |
| 137 | INNER JOIN @TBL_ FACILITY A S FACILITY ON FACILI TY.ID = DI VISION.DIM _ORGANIZAT ION_ID | |
| 138 | INNER JOIN dbo.D IM_ICON_FL AG AS ICON _FLAG ON I CON_FLAG.I D = ICON_A SSOCIATION .DIM_ICON_ FLAG_ID | |
| 139 | INNER JOIN dbo.D IM_ORGANIZ ATION AS F AC ON FACI LITY.ID = FAC.ID | |
| 140 | LEFT J OIN @TBL_E MERGENCY_I CONS AS EM ERGENCY_IC ONS ON EME RGENCY_ICO NS.id = IC ON_ASSOCIA TION.DIM_I CON_FLAG_I D | |
| 141 | LEFT J OIN @TBL_S TANDARD_IC ONS AS STA NDARD_ICON S ON STAND ARD_ICONS. id = ICON_ ASSOCIATIO N.DIM_ICON _FLAG_ID | |
| 142 | WHER E ICON_ASS OCIATION.D IM_BED_ID IS NOT NUL L AND ICON _FLAG.ACTI VE = 1 AND ICON_FLAG .PUBLISHED = 1 | |
| 143 | AND (EMERGENCY _ICONS.id IS NOT NUL L OR STAND ARD_ICONS. id IS NOT NULL) | |
| 144 | AND( ICON_FLAG. SUBGROUP = 'EMERGENC Y_ICON' OR ICON_FLAG .SUBGROUP= 'STANDARD_ ICON') | |
| 145 | UNIO N ALL | |
| 146 | SELE CT DISTINC T FAC.CODE , ICON_FLA G_FACILITY .ID as FLA G_ID, | |
| 147 | ICON_F LAG.ICON_N AME as ICO N_NAME, | |
| 148 | ISNULL (ICON_FLAG _FACILITY. [DESCRIPTI ON],ICON_F LAG.[SHORT _DESCRIPTI ON]) as [D ESCRIPTION ], | |
| 149 | case I CON_FLAG_F ACILITY.AC TIVE when 0 then 'N' when 1 th en 'Y' en d as ACTIV E, | |
| 150 | 'N' AS PT_REC, | |
| 151 | 'Y' BE D_REC, | |
| 152 | ICON_F LAG.IMAGE_ BYTES | |
| 153 | FROM dbo.GROUP _ICON_ASSO CIATION AS ICON_ASSO CIATION | |
| 154 | INNE R JOIN @TB L_SITE_CFG _ICONS AS SITE_CFG_I CONS ON SI TE_CFG_ICO NS.ID = IC ON_ASSOCIA TION.DIM_I CON_FLAG_F ACILITY_ID | |
| 155 | INNE R JOIN dbo .DIM_ICON_ FLAG_FACIL ITY AS ICO N_FLAG_FAC ILITY ON ICON_FL AG_FACILIT Y.ID = SIT E_CFG_ICON S.ID | |
| 156 | INNE R JOIN dbo .DIM_ICON_ FLAG AS IC ON_FLAG ON ICON_FLAG .ID = ICON _FLAG_FACI LITY.DIM_I CON_FLAG_I D | |
| 157 | INNE R JOIN @TB L_FACILITY AS FACILI TY ON FACI LITY.ID = ICON_FLAG_ FACILITY.D IM_ORGANIZ ATION_FACI LITY_ID | |
| 158 | INNE R JOIN dbo .DIM_ORGAN IZATION AS FAC ON FA CILITY.ID = FAC.ID | |
| 159 | WHER E ICON_ASS OCIATION.D IM_BED_ID IS NOT NUL L AND ICON _FLAG.ACTI VE = 1 AND ICON_FLAG .PUBLISHED = 1 | |
| 160 | UNIO N ALL | |
| 161 | SELE CT DISTINC T FAC.CODE , ICON_FLA G_FACILITY .ID as FLA G_ID, | |
| 162 | ICON_F LAG.ICON_N AME as ICO N_NAME, | |
| 163 | ISNULL (ICON_FLAG _FACILITY. [DESCRIPTI ON],ICON_F LAG.[SHORT _DESCRIPTI ON]) as [D ESCRIPTION ], | |
| 164 | case I CON_FLAG_F ACILITY.AC TIVE when 0 then 'N' when 1 th en 'Y' en d as ACTIV E, | |
| 165 | 'Y' AS PT_REC, | |
| 166 | 'N' BE D_REC, | |
| 167 | ICON_F LAG.IMAGE_ BYTES | |
| 168 | FROM dbo.GROUP _ICON_ASSO CIATION AS ICON_ASSO CIATION | |
| 169 | INNE R JOIN @TB L_SITE_CFG _ICONS AS SITE_CFG_I CONS ON SI TE_CFG_ICO NS.ID = IC ON_ASSOCIA TION.DIM_I CON_FLAG_F ACILITY_ID | |
| 170 | INNE R JOIN dbo .DIM_ICON_ FLAG_FACIL ITY AS ICO N_FLAG_FAC ILITY ON ICON_FL AG_FACILIT Y.ID = SIT E_CFG_ICON S.ID | |
| 171 | INNE R JOIN dbo .DIM_ICON_ FLAG AS IC ON_FLAG ON ICON_FLAG .ID = ICON _FLAG_FACI LITY.DIM_I CON_FLAG_I D | |
| 172 | INNE R JOIN @TB L_FACILITY AS FACILI TY ON FACI LITY.ID = ICON_FLAG_ FACILITY.D IM_ORGANIZ ATION_FACI LITY_ID | |
| 173 | INNE R JOIN dbo .DIM_ORGAN IZATION AS FAC ON FA CILITY.ID = FAC.ID | |
| 174 | WHER E ICON_ASS OCIATION.D IM_PATIENT _ID IS NOT NULL AND ICON_FLAG. ACTIVE = 1 AND ICON_ FLAG.PUBLI SHED = 1 | |
| 175 | UNIO N ALL | |
| 176 | SELE CT DISTINC T FAC.CODE , ICON_FLA G.ID as FL AG_ID, | |
| 177 | ICON_F LAG.ICON_N AME as ICO N_NAME, | |
| 178 | ICON_F LAG.[SHORT _DESCRIPTI ON] as [DE SCRIPTION] , | |
| 179 | 'Y' AS ACTIVE, | |
| 180 | 'Y' AS PT_REC, | |
| 181 | 'N' AS BED_REC, | |
| 182 | ICON_F LAG.IMAGE_ BYTES | |
| 183 | FROM dbo.GROUP _ICON_ASSO CIATION AS ICON_ASSO CIATION | |
| 184 | INNER JOIN (SELE CT MAX(ID) AS ID, DI M_PATIENT_ ID | |
| 185 | FR OM FACT_AD MISSION_EV N | |
| 186 | GR OUP BY DIM _PATIENT_I D) AS LAST _ADM ON LA ST_ADM.DIM _PATIENT_I D = ICON_A SSOCIATION .DIM_PATIE NT_ID | |
| 187 | INNER JOIN FACT_ ADMISSION_ EVN AS ADM ON ADM.ID = LAST_AD M.ID | |
| 188 | INNER JOIN GROUP _WARD_ORGA NIZATION A S WARD ON WARD.DIM_W ARD_ID = A DM.DIM_WAR D_ID | |
| 189 | INNER JOIN dbo.D IM_ORGANIZ ATION AS D IVISION ON DIVISION. ID = WARD. DIM_ORGANI ZATION_ID | |
| 190 | INNER JOIN @TBL_ FACILITY A S FACILITY ON FACILI TY.ID = DI VISION.DIM _ORGANIZAT ION_ID | |
| 191 | INNER JOIN dbo.D IM_ORGANIZ ATION AS F AC ON FACI LITY.ID = FAC.ID | |
| 192 | INNER JOIN dbo.D IM_ICON_FL AG AS ICON _FLAG ON I CON_FLAG.I D = ICON_A SSOCIATION .DIM_ICON_ FLAG_ID | |
| 193 | LEFT J OIN @TBL_E MERGENCY_I CONS AS EM ERGENCY_IC ONS ON EME RGENCY_ICO NS.id = IC ON_ASSOCIA TION.DIM_I CON_FLAG_I D | |
| 194 | LEFT J OIN @TBL_S TANDARD_IC ONS AS STA NDARD_ICON S ON STAND ARD_ICONS. id = ICON_ ASSOCIATIO N.DIM_ICON _FLAG_ID | |
| 195 | WHER E ICON_ASS OCIATION.D IM_PATIENT _ID IS NOT NULL AND ICON_FLAG. ACTIVE = 1 AND ICON_ FLAG.PUBLI SHED = 1 | |
| 196 | AND (E MERGENCY_I CONS.id IS NOT NULL OR STANDAR D_ICONS.id IS NOT NU LL) | |
| 197 | AND(IC ON_FLAG.SU BGROUP = ' EMERGENCY_ ICON' OR I CON_FLAG.S UBGROUP='S TANDARD_IC ON') | |
| 198 | ||
| 199 | -- c ount how m any patien ts or beds have the icon assoc iated | |
| 200 | ||
| 201 | 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, IM AGE_BYTES | |
| 202 | FROM ( | |
| 203 | sele ct CODE, [ DESCRIPTIO N], FLAG_I D, ICON_NA ME, ACTIVE , | |
| 204 | cas e when PT_ REC = 'Y' then PT_RE C + ' (' + cast(coun t(*) as va rchar) + ' )' | |
| 205 | else 'N' e nd as PT_R EC, | |
| 206 | cas e when BED _REC = 'Y' then BED_ REC + ' (' + cast(co unt(*) as varchar) + ')' | |
| 207 | else 'N' e nd as BED_ REC, | |
| 208 | IMA GE_BYTES | |
| 209 | from #TBL_TEMP | |
| 210 | grou p by CODE, [DESCRIPT ION], FLAG _ID, ICON_ NAME, ACTI VE, BED_RE C, PT_REC, IMAGE_BYT ES ) RESUL T | |
| 211 | orde r by CODE, [DESCRIPT ION] | |
| 212 | ||
| 213 | DROP TABLE #TB L_TEMP | |
| 214 | ||
| 215 | EN D | |
| 216 | END | |
| 217 | ||
| 218 | ||
| 219 | GO | |
| 220 | ||
| 221 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.