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 | usp_Rpt_IconUsageHistory.sql | Thu Aug 30 15:11:46 2018 UTC |
| 2 | BMS_Source.zip\Source\Sources\Database\BMSv2Updates\2.1.6.3\Reports | usp_Rpt_IconUsageHistory.sql | Thu Aug 30 19:19:32 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 452 |
| Changed | 1 | 2 |
| 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_H ISTORY] | |
| 2 | GO | |
| 3 | /****** Ob ject: Sto redProcedu re [dbo].[ usp_Rpt_Ic onUsageHis tory] S cript Date : 8/17/201 6 8:05:18 AM ******/ | |
| 4 | SET ANSI_N ULLS ON | |
| 5 | GO | |
| 6 | SET QUOTED _IDENTIFIE R ON | |
| 7 | GO | |
| 8 | ||
| 9 | ALTER PROC EDURE [dbo ].[usp_Rpt _IconUsage History] | |
| 10 | @U serID NVAR CHAR(500), | |
| 11 | @F ACILITIES_ IDS NVARCH AR(MAX) = '', | |
| 12 | @I CON_TYPES NVARCHAR(M AX), | |
| 13 | @D ATE_FROM D ATETIME, | |
| 14 | @D ATE_TO DAT ETIME, | |
| 15 | @I CON_GROUP nvarchar(2 0) | |
| 16 | ||
| 17 | /********* ********** ********** ********** ********** ********** ********** ********* | |
| 18 | OBJECT/SCR IPT NAME usp_Rpt_I conUsageHi story | |
| 19 | ||
| 20 | PURPOSE Icon Usag e Report ? | |
| 21 | ||
| 22 | CREATE/CHA NGE HISTOR Y | |
| 23 | 7/28/2 016 - Greg ilner: CA ST all the uniqueide ntifiers i n the fina l | |
| 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 @UserID=N' DNS \vhaisdhor nd',@FACIL ITIES_IDS= N'2F4332A8 -9489-4AC6 -BBB9-7719 508A30E1', @ICON_TYPE S=N'59;-1_ 1_41,51;-1 _9_33,57;- 1_3_39,30; -1_29_13,5 3;-1_7_35, 54;-1_6_36 ,33;-1_26_ 16,20;-1_3 9_3,27;-1_ 32_10,24;- 1_35_7,56; -2_4_38,35 ;-2_24_18, 32;-2_27_1 5,48;-2_12 _30,26;-2_ 33_9,21;-2 _38_4,47;- 2_13_29,42 ;-2_17_25, 18;-2_41_1 ,37;-2_22_ 20,50;-2_1 0_32,29;-2 _30_12,52; -2_8_34,44 ;-2_16_26, 23;-2_36_6 ,39;-2_20_ 22,45;-2_1 5_27,46;-2 _14_28,55; -2_5_37,58 ;-2_2_40,4 9;-2_11_31 ,22;-3_37_ 5,25;-3_34 _8,28;-3_3 1_11,34;-3 _25_17,36; -3_23_19,3 1;-3_28_14 ,38;-3_21_ 21,19;-3_4 0_2,41;-3_ 18_24,40;- 3_19_23',@ DATE_FROM= '2016-07-0 1 00:00:01 ',@DATE_TO ='2016-08- 10 23:59:5 9',@ICON_G ROUP=N'-1, -2,-3' | |
| 30 | ||
| 31 | ********** ********** ********** ********** ********** ********** ********** ********/ | |
| 32 | AS | |
| 33 | BEGIN | |
| 34 | ||
| 35 | /* 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 , | |
| 36 | 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 , | |
| 37 | N ULL as WAR D, NULL as BED, NULL as PATIEN T */ | |
| 38 | ||
| 39 | DE CLARE @TBL _ICON_TYPE TABLE (CO DE VARCHAR (250) PRIM ARY KEY) | |
| 40 | DE CLARE @TBL _ICON_GROU P TABLE (C ODE VARCHA R(20) PRIM ARY KEY) | |
| 41 | DE CLARE @TBL _ICON_SUBG ROUP TABLE (NAME VAR CHAR(30) P RIMARY KEY ) | |
| 42 | DE CLARE @TBL _ENTITY TA BLE (PK_EN TITY INT P RIMARY KEY , IDENTIFI ER NVARCHA R(250)) | |
| 43 | ||
| 44 | IN SERT INTO @TBL_ENTIT Y | |
| 45 | SELE CT PK_ENTI TY, IDENTI FIER FROM BMS_EIS.db o.ENTITY | |
| 46 | ||
| 47 | ||
| 48 | IN SERT INTO @TBL_ICON_ TYPE(CODE) | |
| 49 | SE LECT CONVE RT(VARCHAR (20), VALU E) FROM db o.ufn_Spli t(@ICON_TY PES, ',') | |
| 50 | ||
| 51 | IN SERT INTO @TBL_ICON_ GROUP(CODE ) | |
| 52 | SE LECT CONVE RT(VARCHAR (50), VALU E) FROM db o.ufn_Spli t(@ICON_GR OUP, ',') | |
| 53 | ||
| 54 | IN SERT INTO @TBL_ICON_ SUBGROUP ( NAME) | |
| 55 | SE LECT | |
| 56 | CASE WHEN IG.C ODE = '-1' THEN 'EME RGENCY_ICO N' | |
| 57 | WHEN IG.CODE = '-2' THEN 'STANDARD_ ICON' | |
| 58 | WHEN IG.CODE = '-3' THEN 'SITE_CONF IGURABLE_I CON' | |
| 59 | END | |
| 60 | FR OM @TBL_IC ON_GROUP I G | |
| 61 | ||
| 62 | DE CLARE @TBL _ICONS tab le (id int PRIMARY K EY) | |
| 63 | ||
| 64 | IN SERT INTO @TBL_ICONS (id) | |
| 65 | SE LECT CASE WHEN CHARI NDEX(';',c ode) > 0 t hen | |
| 66 | substr ing(code,1 ,charindex (';',code) -1) | |
| 67 | else c ode end | |
| 68 | fr om @TBL_IC ON_TYPE | |
| 69 | ||
| 70 | CR EATE TABLE #TBL_FACI LITY ( | |
| 71 | SOUR CE_ID NVAR CHAR(250) PRIMARY KE Y, | |
| 72 | FACI LITY_NAME NVARCHAR(2 50), | |
| 73 | PFK_ ORGANIZATI ON INT, | |
| 74 | TIME ZONE_OFFSE T INT) | |
| 75 | ||
| 76 | IN SERT INTO #TBL_FACIL ITY(SOURCE _ID, FACIL ITY_NAME, PFK_ORGANI ZATION, TI MEZONE_OFF SET) | |
| 77 | 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) | |
| 78 | FR OM dbo.ufn _Split(@FA CILITIES_I DS, ',') A S FACILITY | |
| 79 | IN NER JOIN B MS_EIS.dbo .ENTITY AS ENTITY | |
| 80 | ON ENTITY. IDENTIFIER = FACILIT Y.VALUE | |
| 81 | IN NER JOIN B MS_EIS.dbo .EHL7_ORGA NIZATION A S ORG | |
| 82 | ON ORG.PFK _ORGANIZAT ION = ENTI TY.PK_ENTI TY | |
| 83 | ||
| 84 | IF EXISTS(SE LECT 1 FR OM #TBL_FA CILITY) | |
| 85 | BEGI N | |
| 86 | ||
| 87 | CREATE T ABLE #MYBE DSPATIENTS ( | |
| 88 | PK i nt PRIMARY KEY, | |
| 89 | ID i nt, | |
| 90 | BED_ UID unique identifier , | |
| 91 | PATI ENT_UID un iqueidenti fier) | |
| 92 | ||
| 93 | INSERT # MYBEDSPATI ENTS | |
| 94 | SE LECT PK, I D, BED_UID , PATIENT_ UID | |
| 95 | FR OM ICON_AS SOCIATION_ H | |
| 96 | WH ERE DATE B ETWEEN @DA TE_FROM AN D @DATE_TO | |
| 97 | ||
| 98 | -- select * f rom #MYBED SPATIENTS | |
| 99 | --CREATE A DMISSIONS HISTORY TA BLE BASED ON FACILIT Y IDs | |
| 100 | CR EATE TABLE #MYADMISS IONS( | |
| 101 | ID I NT, | |
| 102 | PATI ENT_UID un iqueidenti fier, | |
| 103 | BED_ UID unique identifier , | |
| 104 | WARD _UID uniqu eidentifie r, | |
| 105 | INIT IAL_BED_UI D uniqueid entifier, | |
| 106 | INIT IAL_WARD_U ID uniquei dentifier, | |
| 107 | VIST A_SITE_UID uniqueide ntifier, | |
| 108 | ADMI SSION_DATE datetime, | |
| 109 | DATE datetime) | |
| 110 | ||
| 111 | IN SERT #MYAD MISSIONS | |
| 112 | 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, | |
| 113 | ADMH.VISTA _SITE_UID, ADMH.ADMIS SION_DATE, ADMH.DATE | |
| 114 | FR OM BMS_DW. dbo.DIM_OR GANIZATION FACILITY | |
| 115 | IN NER JOIN # TBL_FACILI TY myFAC | |
| 116 | ON F ACILITY.SO URCE_ID = myFAC.SOUR CE_ID | |
| 117 | IN NER JOIN B MS_DW.dbo. DIM_ORGANI ZATION VIS TA_SITE | |
| 118 | ON F ACILITY.DI M_ORGANIZA TION_ID = VISTA_SITE .ID | |
| 119 | IN NER JOIN A DMISSION_E VN_H ADMH | |
| 120 | ON V ISTA_SITE. SOURCE_ID = ADMH.VIS TA_SITE_UI D | |
| 121 | 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) | |
| 122 | ||
| 123 | CREA TE TABLE # TBL_TEMP | |
| 124 | ( | |
| 125 | ID INT IDENTITY( 1,1) PRIMA RY KEY, | |
| 126 | CODE_B NVARCHAR( 250), | |
| 127 | CODE_P NVARCHAR( 250), | |
| 128 | FLAG_I D INT, | |
| 129 | [DESCR IPTION] NV ARCHAR(250 ), | |
| 130 | ICON_N AME NVARCH AR(250), | |
| 131 | ACTIVE CHAR(1), | |
| 132 | PT_REC NVARCHAR( 10), | |
| 133 | BED_RE C NVARCHAR (10), | |
| 134 | IMAGE_ BYTES nvar char(max), | |
| 135 | SHORT_ DESCRIPTIO N NVARCHAR (250), | |
| 136 | IMAGE_ NAME nvarc har(250), | |
| 137 | SUBGRO UP nvarcha r(250), | |
| 138 | PATIEN T_P nvarch ar(250), | |
| 139 | PATIEN T_B nvarch ar(250), | |
| 140 | BED_B nvarchar(2 0), | |
| 141 | WARD_B nvarchar( 100), | |
| 142 | BED_P nvarchar(2 0), | |
| 143 | WARD_P nvarchar( 100) | |
| 144 | ) | |
| 145 | ||
| 146 | 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, | |
| 147 | SH ORT_DESCRI PTION, IMA GE_NAME, S UBGROUP, P ATIENT_P, PATIENT_B, BED_B, WA RD_B, BED_ P, WARD_P) | |
| 148 | SELECT | |
| 149 | SUBS TRING(ORG_ B.NAME, 4, 3) as CODE _B, | |
| 150 | SUBSTRIN G(ORG_P.NA ME, 4,3) A S CODE_P, | |
| 151 | ICON_FLA G.ID as FL AG_ID, | |
| 152 | RTRIM(IC ON_FLAG.[S HORT_DESCR IPTION]) a s [DESCRIP TION], | |
| 153 | RTRIM(IC ON_FLAG.IC ON_NAME) a s ICON_NAM E, | |
| 154 | 'Y' AS A CTIVE, | |
| 155 | CASE WHE N ICON_ASS OCIATION.P ATIENT_UID IS NOT NU LL THEN 'Y ' ELSE 'N' END AS PT _REC, | |
| 156 | CASE WHE N ICON_ASS OCIATION.B ED_UID IS NOT NULL T HEN 'Y' EL SE 'N' END AS BED_RE C, | |
| 157 | ICON_FLA G.IMAGE_BY TES, | |
| 158 | RTRIM(IC ON_FLAG.SH ORT_DESCRI PTION), | |
| 159 | ICON_FLA G.IMAGE_NA ME, | |
| 160 | RTRIM(IC ON_FLAG.SU BGROUP), | |
| 161 | PERSON_P .[NAME_FAM ILY] + SUB STRING(S1. [IDENTIFIE R_EXTENSIO N], 7, 5) AS PATIENT _P, | |
| 162 | PERSON_B .[NAME_FAM ILY] + SUB STRING(S2. [IDENTIFIE R_EXTENSIO N], 7, 5) AS PATIENT _B, | |
| 163 | BED_PLAC EB.NAME AS BED_B, | |
| 164 | WARD_PLA CEB.NAME A S WARD_B, | |
| 165 | BED_PLAC EP.NAME AS BED_P, | |
| 166 | WARD_PLA CEP.NAME a s WARD_P | |
| 167 | FROM I CON_ASSOCI ATION_H AS ICON_ASSO CIATION | |
| 168 | INNER JOIN ICON_ FLAG_H ICO N_FLAG ON ICON_ASSOC IATION.ICO N_FLAG_ID = ICON_FLA G.ID | |
| 169 | INNER JOIN @TBL_ ICONS ICON S ON ICON_ ASSOCIATIO N.ICON_FLA G_ID = ICO NS.ID | |
| 170 | LEFT J OIN #MYADM ISSIONS AD M_B ON ICO N_ASSOCIAT ION.BED_UI D = ADM_B. BED_UID | |
| 171 | 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)) -- | |
| 172 | LEFT J OIN BMS_EI S.dbo.EHL7 _PERSON AS PERSON_P ON PERSON_ P.PFK_PERS ON = E1.PK _ENTITY | |
| 173 | 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' | |
| 174 | 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)) | |
| 175 | LEFT J OIN BMS_EI S.dbo.EHL7 _PLACE AS BED_PLACEB ON BED_PL ACEB.PFK_P LACE = E2. PK_ENTITY | |
| 176 | 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)) | |
| 177 | LEFT J OIN BMS_EI S.dbo.EHL7 _PLACE AS WARD_PLACE B ON WARD_ PLACEB.PFK _PLACE =E3 .PK_ENTITY | |
| 178 | LEFT J OIN #MYADM ISSIONS AD M_P ON ICO N_ASSOCIAT ION.PATIEN T_UID = AD M_P.PATIEN T_UID | |
| 179 | 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)) | |
| 180 | LEFT J OIN BMS_EI S.dbo.EHL7 _PLACE AS BED_PLACEP ON BED_PL ACEP.PFK_P LACE = E4. PK_ENTITY | |
| 181 | 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)) | |
| 182 | LEFT J OIN BMS_EI S.dbo.EHL7 _PLACE AS WARD_PLACE P ON WARD_ PLACEP.PFK _PLACE = E 5.PK_ENTIT Y | |
| 183 | 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 )) | |
| 184 | LEFT J OIN BMS_EI S.dbo.EHL7 _ORGANIZAT ION ORG_B ON ORG_B.P FK_ORGANIZ ATION = E6 .PK_ENTITY | |
| 185 | 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) ) | |
| 186 | LEFT J OIN BMS_EI S.dbo.EHL7 _ORGANIZAT ION ORG_P ON ORG_P.P FK_ORGANIZ ATION = E7 .PK_ENTITY | |
| 187 | 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)) | |
| 188 | LEFT J OIN BMS_EI S.dbo.EHL7 _PERSON AS PERSON_B ON PERSON_ B.PFK_PERS ON = E8.PK _ENTITY | |
| 189 | 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' | |
| 190 | WHER E ICON_ASS OCIATION.D ATE BETWEE N @DATE_FR OM AND @DA TE_TO | |
| 191 | ||
| 192 | ||
| 193 | ||
| 194 | --se lect * fro m #TBL_TEM P | |
| 195 | ||
| 196 | -- c ount how m any patien ts or beds have the icon assoc iated | |
| 197 | ||
| 198 | sele ct ISNULL( ISNULL(COD E_B, CODE_ P), 'N/A') AS CODE, | |
| 199 | --[ DESCRIPTIO N], | |
| 200 | FLA G_ID, | |
| 201 | ICO N_NAME, | |
| 202 | ACT IVE, | |
| 203 | PT_ REC, | |
| 204 | BED _REC, | |
| 205 | IMA GE_BYTES, | |
| 206 | --S HORT_DESCR IPTION, | |
| 207 | IMA GE_NAME, | |
| 208 | --S UBGROUP, | |
| 209 | ISN ULL(ISNULL (WARD_B, W ARD_P), '' ) as WARD, | |
| 210 | ISN ULL(ISNULL (BED_B, BE D_P), '') as BED, | |
| 211 | ISN ULL(ISNULL (PATIENT_B , PATIENT_ P), '') as PATIENT | |
| 212 | from #TBL_TEMP T | |
| 213 | INNE R JOIN @TB L_ICON_SUB GROUP ISG ON T.SUBGR OUP = ISG. NAME | |
| 214 | WHER E ISNULL(C ODE_B, COD E_P) IS NO T NULL | |
| 215 | 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 ), | |
| 216 | --[D ESCRIPTION ], SHORT_D ESCRIPTION , SUBGROUP , | |
| 217 | ISN ULL(BED_B, BED_P) /* ) RESULT * / | |
| 218 | orde r by CODE, ICON_NAME | |
| 219 | ||
| 220 | DROP TABLE #TB L_TEMP | |
| 221 | DROP TABLE #TB L_FACILITY | |
| 222 | DROP TABLE #MY ADMISSIONS | |
| 223 | ||
| 224 | EN D | |
| 225 | ||
| 226 | END | |
| 227 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.