Produced by Araxis Merge on 10/26/2017 10:44:44 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.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\Source\Sources\Database\BMSv2Updates\2.1.6.3\Reports | DROP_CREATE_BMS_DW_usp_Rpt_IconUsage.sql | Wed Oct 18 19:06:46 2017 UTC |
| 2 | OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\Source\Sources\Database\BMSv2Updates\2.1.6.3\Reports | DROP_CREATE_BMS_DW_usp_Rpt_IconUsage.sql | Thu Oct 26 19:34:32 2017 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 ' DNS ' | |
| 18 | --exec usp _Rpt_IconU sage_DH @U serID=N' DNS ',@FACILIT IES_IDS=N' 144;143_1, 146;141_3, 162;134_10 ,147;140_4 ,163;133_1 1,164;132_ 12,165;131 _13,166;13 0_14,148;1 39_5,145;1 42_2,149;1 38_6,150;1 37_7,151;1 36_8,168;1 28_16,167; 129_15,197 ;99_45,198 ;98_46,199 ;97_47,169 ;127_17,17 0;126_18,1 71;125_19, 172;124_20 ,200;96_48 ,201;95_49 ,202;94_50 ,203;93_51 ,173;123_2 1,174;122_ 22,175;121 _23,176;12 0_24,204;9 2_52,205;9 1_53,206;9 0_54,207;8 9_55,208;8 8_56,177;1 19_25,178; 118_26,179 ;117_27,18 0;116_28,2 09;87_57,2 10;86_58,2 24;72_72,2 25;71_73,1 81;115_29, 182;114_30 ,183;113_3 1,184;112_ 32,226;70_ 74,227;69_ 75,228;68_ 76,229;67_ 77,185;111 _33,186;11 0_34,187;1 09_35,188; 108_36,230 ;66_78,231 ;65_79,232 ;64_80,233 ;63_81,234 ;62_82,189 ;107_37,19 0;106_38,1 91;105_39, 192;104_40 ,235;61_83 ,236;60_84 ,237;59_85 ,238;58_86 ,193;103_4 1,194;102_ 42,195;101 _43,196;10 0_44,253;4 3_101,254; 42_102,255 ;41_103,25 6;40_104,2 11;85_59,2 12;84_60,2 13;83_61,2 14;82_62,2 57;39_105, 258;38_106 ,259;37_10 7,260;36_1 08,261;35_ 109,215;81 _63,216;80 _64,217;79 _65,218;78 _66,262;34 _110,263;3 3_111,264; 32_112,265 ;31_113,21 9;77_67,22 0;76_68,22 1;75_69,22 2;74_70,26 6;30_114,2 67;29_115, 268;28_116 ,269;27_11 7,223;73_7 1,239;57_8 7,240;56_8 8,241;55_8 9,242;54_9 0,270;26_1 18,271;25_ 119,272;24 _120,273;2 3_121,243; 53_91,244; 52_92,245; 51_93,246; 50_94,302; 1_143,274; 22_122,275 ;21_123,27 6;20_124,2 77;19_125, 247;49_95, 248;48_96, 249;47_97, 161;135_9, 250;46_98, 278;18_126 ,279;17_12 7,280;16_1 28,295;8_1 36,251;45_ 99,252;44_ 100,281;15 _129,282;1 4_130,283; 13_131,296 ;7_137,297 ;6_138,298 ;5_139,299 ;4_140,284 ;12_132,28 5;11_133,2 86;10_134, 287;9_135, 300;3_141, 301;2_142' ,@ICON_TYP ES=N'51;-1 _4_24,30;- 1_18_10,53 ;-1_2_26,5 4;-1_1_27, 33;-1_16_1 2,20;-1_25 _3,27;-1_2 0_8,24;-1_ 22_6,35;-2 _15_13,32; -2_17_11,4 8;-2_7_21, 26;-2_21_7 ,21;-2_24_ 4,47;-2_8_ 20,42;-2_1 2_16,18;-2 _27_1,37;- 2_14_14,50 ;-2_5_23,2 9;-2_19_9, 52;-2_3_25 ,44;-2_11_ 17,23;-2_2 3_5,39;-2_ 13_15,45;- 2_10_18,46 ;-2_9_19,4 9;-2_6_22, 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.