Produced by Araxis Merge on 8/31/2018 11:26:38 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.2.8.3\Reports | usp_Rpt_WhiteboardAuditLog.sql | Thu Aug 30 15:11:48 2018 UTC |
| 2 | BMS_Source.zip\Source\Sources\Database\BMSv2Updates\2.2.8.3\Reports | usp_Rpt_WhiteboardAuditLog.sql | Thu Aug 30 19:20:13 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 930 |
| 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_H ISTORY] | |
| 2 | GO | |
| 3 | /****** Ob ject: Sto redProcedu re [dbo].[ usp_Rpt_Wh iteboardAu ditLog] Script Da te: 6/10/2 016 10:32: 28 AM **** **/ | |
| 4 | SET ANSI_N ULLS ON | |
| 5 | GO | |
| 6 | SET QUOTED _IDENTIFIE R ON | |
| 7 | GO | |
| 8 | --Whiteboa rd Audit L og Report | |
| 9 | -- | |
| 10 | --exec usp _Rpt_White boardAudit Log @DATE_ FROM='2010 -05-10 00: 00:01',@DA TE_TO='201 6-05-17 23 :59:59',@T IME_ZONE_M INUTES_OFF SET=-360,@ UserID=N'
|
|
| 11 | --exec usp _Rpt_White boardAudit Log @DATE_ FROM='2012 -05-14 00: 00:01',@DA TE_TO='201 6-06-01 23 :59:59',@T IME_ZONE_M INUTES_OFF SET=0,@Use rID=N'
|
|
| 12 | ||
| 13 | /* | |
| 14 | AUDIT TABL ES | |
| 15 | BED_REASON _COMMENT_H ISTORY_H ( BED_UID, D IVISION_UI D, VISTA_S ITE_UID) G OOD | |
| 16 | BED_UNAVAI LABLE_H (B ED_UID, VI STA_SITE_U ID, ACT_ID *) GOOD | |
| 17 | BED_UNAVAI LABLE_WARD _H (BED_UN AVAILABLE_ ID, WARD_U ID) GOOD | |
| 18 | ICON_ASSOC IATION_H ( BED_UID, I CON_FLAG_I D, ICON_FL AG_FACILIT Y_ID) GOOD | |
| 19 | BED_STAFF_ H (BED_UID , DIVISION _UID, PATI ENT_UID, F ACILITY_UI D) NO DATA | |
| 20 | */ | |
| 21 | ||
| 22 | ALTER PROC EDURE [dbo ].[usp_Rpt _Whiteboar dAuditLog] | |
| 23 | @D ATE_FROM D ATETIME, | |
| 24 | @D ATE_TO DAT ETIME, | |
| 25 | @T IME_ZONE_M INUTES_OFF SET INT, | |
| 26 | @U serID NVAR CHAR(500), | |
| 27 | @F ACILITIES_ IDS NVARCH AR(MAX) = '', | |
| 28 | @R EPORT_TYPE NVARCHAR( 50) | |
| 29 | AS | |
| 30 | BEGIN | |
| 31 | SET NOCOUN T ON; | |
| 32 | ||
| 33 | IF (@REPOR T_TYPE = ' Whiteboard UsageAudit Log') | |
| 34 | BEGIN | |
| 35 | ||
| 36 | CR EATE TABLE #TBL_FACI LITY ( | |
| 37 | SOUR CE_ID NVAR CHAR(250) PRIMARY KE Y, | |
| 38 | FACI LITY_NAME NVARCHAR(2 50), | |
| 39 | TIME ZONE_OFFSE T INT) | |
| 40 | ||
| 41 | IN SERT INTO #TBL_FACIL ITY(SOURCE _ID, FACIL ITY_NAME, TIMEZONE_O FFSET) | |
| 42 | SE LECT DISTI NCT CONVER T(NVARCHAR (250), FAC ILITY.VALU E), ORG.NA ME, [dbo] .[ufn_GetO ffsetByFac ilityUID]( VALUE) | |
| 43 | FR OM dbo.ufn _Split(@FA CILITIES_I DS, ',') A S FACILITY | |
| 44 | IN NER JOIN B MS_EIS.dbo .ENTITY AS ENTITY | |
| 45 | ON ENTITY. IDENTIFIER = FACILIT Y.VALUE | |
| 46 | IN NER JOIN B MS_EIS.dbo .EHL7_ORGA NIZATION A S ORG | |
| 47 | ON ORG.PFK _ORGANIZAT ION = ENTI TY.PK_ENTI TY | |
| 48 | ||
| 49 | -- select * f rom #TBL_F ACILITY | |
| 50 | ||
| 51 | CR EATE TABLE #WARDS ( | |
| 52 | WARD _ID int, | |
| 53 | SOUR CE_ID nvar char(250), | |
| 54 | WARD _NAME varc har(100), | |
| 55 | FACI LITY_NAME varchar(10 0) | |
| 56 | ) | |
| 57 | ||
| 58 | IN SERT INTO #WARDS | |
| 59 | SE LECT WARDG ROUP.ID, W ARDGROUP.S OURCE_ID, WARDGROUP. NAME, FACI LITY.NAME FROM BMS_D W.dbo.DIM_ ORGANIZATI ON AS WARD GROUP | |
| 60 | INNER JO IN BMS_DW. dbo.DIM_OR GANIZATION AS FACILI TY | |
| 61 | ON WARDG ROUP.DIM_O RGANIZATIO N_ID = FAC ILITY.ID | |
| 62 | INNER JO IN #TBL_FA CILITY myF AC ON FACI LITY.SOURC E_ID = myF AC.SOURCE_ ID | |
| 63 | WHERE WA RDGROUP.DI M_ORGANIZA TION_TYPE_ ID =6 | |
| 64 | ||
| 65 | -- select * f rom #WARDS | |
| 66 | ||
| 67 | CR EATE TABLE #BEDUNAVA ILABLE ( | |
| 68 | PK int , | |
| 69 | ACT_ID int, | |
| 70 | DIVISI ON_UID uni queidentif ier, | |
| 71 | BED_UI D uniqueid entifier, | |
| 72 | BED_Na me Varchar(25 0), --JP ADDED 06/0 8/16 | |
| 73 | VISTA_ SITE_UID u niqueident ifier, | |
| 74 | COMMEN T varchar( max), | |
| 75 | Histor y_Comment nvarchar(m ax), --JP ADDED 06/ 08/16 | |
| 76 | TYPE_I D int, | |
| 77 | REASON _ID int, | |
| 78 | IS_UNA VAILABLE_F ROM_VISTA bit, | |
| 79 | CREATI ON_BY nvar char(250), | |
| 80 | EDITED _BY nvarch ar(250), | |
| 81 | EDITED _DATE date time, | |
| 82 | EXPECT ED_COMPLET ED_DATE da tetime, | |
| 83 | COMPLE TED_BY nva rchar(250) , | |
| 84 | COMPLE TED_DATE d atetime, | |
| 85 | TRANSA CTION_TYPE _CODE varc har(50), | |
| 86 | DATE d atetime, | |
| 87 | CREATE D_BY nvarc har(50), | |
| 88 | WARD_U ID uniquei dentifier, | |
| 89 | WARD_N AME varcha r(30), | |
| 90 | W_TRAN SACTION_TY PE_CODE va rchar(50), | |
| 91 | W_DATE datetime, | |
| 92 | ACTION _TYPE varc har(20) | |
| 93 | ) | |
| 94 | IN SERT #BEDU NAVAILABLE | |
| 95 | SE LECT BEDU HISTORY.PK , | |
| 96 | BEDUHI STORY.ACT_ ID, | |
| 97 | BEDUHI STORY.DIVI SION_UID, | |
| 98 | BEDUHI STORY.BED_ UID, | |
| 99 | BED.Na me as BED_ Name, --JP ADDED 06/ 08/16 | |
| 100 | BEDUHI STORY.VIST A_SITE_UID , | |
| 101 | BEDUHI STORY.COMM ENT, | |
| 102 | BRCHH. Comment as History_C omment, -- JP ADDED 0 6/08/16 | |
| 103 | BEDUHI STORY.TYPE _ID, | |
| 104 | BEDUHI STORY.REAS ON_ID, | |
| 105 | BEDUHI STORY.IS_U NAVAILABLE _FROM_VIST A, | |
| 106 | BEDUHI STORY.CREA TION_BY, | |
| 107 | BEDUHI STORY.EDIT ED_BY, | |
| 108 | BEDUHI STORY.EDIT ED_DATE, | |
| 109 | BEDUHI STORY.EXPE CTED_COMPL ETED_DATE, | |
| 110 | BEDUHI STORY.COMP LETED_BY, | |
| 111 | BEDUHI STORY.COMP LETED_DATE , | |
| 112 | BEDUHI STORY.TRAN SACTION_TY PE_CODE, | |
| 113 | BEDUHI STORY.DATE , | |
| 114 | BEDUHI STORY.CREA TED_BY, | |
| 115 | BEDWAR DUHISTORY. WARD_UID, | |
| 116 | PLACE. NAME as WA RD_NAME, | |
| 117 | BEDWAR DUHISTORY. TRANSACTIO N_TYPE_COD E, | |
| 118 | BEDWAR DUHISTORY. DATE, | |
| 119 | CASE W HEN BEDUHI STORY.TRAN SACTION_TY PE_CODE = 'I' THEN ' NEW RECORD ' | |
| 120 | WHEN BE DUHISTORY. TRANSACTIO N_TYPE_COD E = 'U' TH EN 'UPDATE D' | |
| 121 | WHEN BE DUHISTORY. TRANSACTIO N_TYPE_COD E = 'D' TH EN 'DELETE D' | |
| 122 | END as ACTIONTYP E | |
| 123 | FR OM BED_UNA VAILABLE_H BEDUHISTO RY | |
| 124 | LE FT JOIN BE D_UNAVAILA BLE_WARD_H BEDWARDUH ISTORY | |
| 125 | ON BEDUHISTO RY.ACT_ID = BEDWARDU HISTORY.BE D_UNAVAILA BLE_ID | |
| 126 | IN NER JOIN B MS_DW.dbo. DIM_BED BE D ON BEDUH ISTORY.BED _UID = BED .SOURCE_ID | |
| 127 | IN NER JOIN B MS_DW.dbo. GROUP_BED_ WARDGROUP as GBWG ON GBWG.DIM_ BED_ID = B ED.ID | |
| 128 | IN NER JOIN # WARDS WARD S ON GBWG. DIM_WARDGR OUP_ID =WA RDS.WARD_I D | |
| 129 | -- INNER JOIN #WARDS WA RDS ON BED WARDUHISTO RY.WARD_UI D = WARDS. SOURCE_ID | |
| 130 | LE FT JOIN BM S_EIS.dbo. ENTITY AS ENTITY ON ENTITY.IDE NTIFIER = BEDWARDUHI STORY.WARD _UID | |
| 131 | LE FT JOIN BM S_EIS.dbo. EHL7_PLACE AS PLACE ON PLACE.P FK_PLACE = ENTITY.PK _ENTITY | |
| 132 | LE FT JOIN BM S_DW.dbo.D IM_WARD WA RD ON PLAC E.PFK_PLAC E = WARD.S OURCE_PK | |
| 133 | LE FT JOIN BM S_HISTORY. dbo.BED_RE ASON_COMME NT_HISTORY _H BRCHH | |
| 134 | ON BRCHH.B ED_UID = B EDUHISTORY .BED_UID | |
| 135 | WH ERE BEDUHI STORY.DATE BETWEEN @ DATE_FROM AND @DATE_ TO | |
| 136 | OP TION (MAXD OP 1) | |
| 137 | ||
| 138 | -- SELECT * F ROM #TRANH ISTORY | |
| 139 | ||
| 140 | CR EATE TABLE #WBHISTOR Y( | |
| 141 | ENTE RED_DATE d atetime, | |
| 142 | COMP LETED_DATE datetime, | |
| 143 | EDIT ED datetim e, | |
| 144 | EDIT ED_BY nvar char(250), | |
| 145 | PATI ENT_NAME n varchar(25 0), | |
| 146 | BED_ NAME nvarc har(100), | |
| 147 | ACT_ ID int, | |
| 148 | ACTI ON_TYPE va rchar(25), | |
| 149 | TRAN _UPDS varc har(max), | |
| 150 | TRAN _COMMENTS varchar(ma x), | |
| 151 | UPDA TE_TYPE va rchar(30) | |
| 152 | ) | |
| 153 | IN SERT INTO #WBHISTORY | |
| 154 | SE LECT DISTI NCT | |
| 155 | C ONVERT(VAR CHAR, DATE ADD (minut e, @TIME_Z ONE_MINUTE S_OFFSET, H_BEDU.DAT E), 101) + ' ' | |
| 156 | + CON VERT(VARCH AR(5), DAT EADD (minu te, @TIME_ ZONE_MINUT ES_OFFSET, H_BEDU.DA TE), 108) as ENTERED _DATE, | |
| 157 | C ONVERT(VAR CHAR, DATE ADD (minut e, @TIME_Z ONE_MINUTE S_OFFSET, H_BEDU.COM PLETED_DAT E), 101) + ' ' | |
| 158 | + CON VERT(VARCH AR(5), DAT EADD (minu te, @TIME_ ZONE_MINUT ES_OFFSET, H_BEDU.CO MPLETED_DA TE), 108) as COMPLET ED_DATE, | |
| 159 | C ONVERT(VAR CHAR, DATE ADD (minut e, @TIME_Z ONE_MINUTE S_OFFSET, H_BEDU.EDI TED_DATE), 101) + ' ' | |
| 160 | + CON VERT(VARCH AR(5), DAT EADD (minu te, @TIME_ ZONE_MINUT ES_OFFSET, H_BEDU.ED ITED_DATE) , 108) as EDITED, | |
| 161 | ||
| 162 | - -MODIFICAT ION BY JP 06/08/16 | |
| 163 | C ASE WHEN H _BEDU.ACTI ON_TYPE = 'NEW RECOR D' Then H_ BEDU.CREAT ION_BY | |
| 164 | WHEN H _BEDU.ACTI ON_TYPE = 'UPDATED' and H_BEDU .COMPLETED _BY is not null and H_BEDU.EDI TED_BY is null | |
| 165 | Then H_BED U.COMPLETE D_BY | |
| 166 | WHEN H_ BEDU.ACTIO N_TYPE = ' UPDATED' a nd H_BEDU. EDITED_BY is not nul l and H_BE DU.COMPLET ED_BY is n ull | |
| 167 | Then H_BED U.EDITED_B Y | |
| 168 | WHEN H_B EDU.ACTION _TYPE = 'U PDATED' an d H_BEDU.E DITED_BY i s not null and H_BED U.COMPLETE D_BY is no t null | |
| 169 | Then H_BED U.COMPLETE D_BY | |
| 170 | END as E DITED_BY, | |
| 171 | - -H_BEDU.ED ITED_BY, | |
| 172 | ||
| 173 | N ULL as PAT IENT_NAME, | |
| 174 | - -BED.NAME as BED_NAM E, --JP DELETED 0 6/08/16 | |
| 175 | H _BEDU.BED_ Name as BE D_NAME, -- JP ADDED 0 6/08/16 | |
| 176 | H _BEDU.ACT_ ID, | |
| 177 | H _BEDU.ACTI ON_TYPE, | |
| 178 | CA SE WHEN H_ BEDU.TRANS ACTION_TYP E_CODE = ' U' THEN | |
| 179 | CASE WHEN H_BE DU.REASON_ ID <> PREV IOUS_H_BED U.REASON_I D OR (H_BE DU.REASON_ ID IS NULL AND PREVI OUS_H_BEDU .REASON_ID IS NOT NU LL) OR (H_ BEDU.REASO N_ID IS NO T NULL AND PREVIOUS_ H_BEDU.REA SON_ID IS NULL) | |
| 180 | THEN 'REASON FR OM ' + ISN ULL(REASON .DISPLAY_N AME,'<EMPT Y>') + ' T O ' + ISNU LL(REASON. DISPLAY_NA ME,'') + c har(13)+ch ar(10) ELS E '' END + ' '+ | |
| 181 | CA SE WHEN H_ BEDU.COMPL ETED_BY <> PREVIOUS_ H_BEDU.COM PLETED_BY OR (H_BEDU .COMPLETED _BY IS NUL L AND PREV IOUS_H_BED U.COMPLETE D_BY IS NO T NULL) OR (H_BEDU.C OMPLETED_B Y IS NOT N ULL AND PR EVIOUS_H_B EDU.COMPLE TED_BY IS NULL) | |
| 182 | THEN 'COMPLETED BY FROM ' + ISNULL( PREVIOUS_H _BEDU.COMP LETED_BY,' <EMPTY>') + ' TO ' + ISNULL(H_ BEDU.COMPL ETED_BY,'' ) + char(1 3)+char(10 ) ELSE '' END + ' '+ | |
| 183 | CASE WHEN H_BE DU.COMPLET ED_DATE <> PREVIOUS_ H_BEDU.COM PLETED_DAT E OR (H_BE DU.COMPLET ED_DATE IS NULL AND PREVIOUS_H _BEDU.COMP LETED_DATE IS NOT NU LL) OR (H_ BEDU.COMPL ETED_DATE IS NOT NUL L AND PREV IOUS_H_BED U.COMPLETE D_DATE IS NULL) | |
| 184 | THEN ' COMPLETED DATE FROM ' + CASE W HEN PREVIO US_H_BEDU. COMPLETED_ DATE IS NU LL THEN '< Empty>' EL SE ISNULL( convert(va rchar(20), PREVIOUS_H _BEDU.COMP LETED_DATE ,101), '') + ' ' + I SNULL(conv ert(varcha r(20),PREV IOUS_H_BED U.COMPLETE D_DATE,108 ), '') + ' ' + ISNUL L(right(co nvert(varc har(30),PR EVIOUS_H_B EDU.COMPLE TED_DATE,1 09),2),'') END + | |
| 185 | ' TO ' + CASE WHEN H_BEDU.CO MPLETED_DA TE IS NULL THEN '<Em pty>' ELSE ISNULL(co nvert(varc har(20),H_ BEDU.COMPL ETED_DATE, 101), '') + ' ' + IS NULL(conve rt(varchar (20),H_BED U.COMPLETE D_DATE,108 ),'') + ' ' + ISNULL (right(con vert(varch ar(30),H_B EDU.COMPLE TED_DATE,1 09),2),'') + char(13 )+char(10) END ELSE '' END + ' ' + | |
| 186 | CASE WHEN H_BE DU.TYPE_ID <> PREVIO US_H_BEDU. TYPE_ID OR (H_BEDU.T YPE_ID IS NULL AND P REVIOUS_H_ BEDU.TYPE_ ID IS NOT NULL) OR ( H_BEDU.TYP E_ID IS NO T NULL AND PREVIOUS_ H_BEDU.TYP E_ID IS NU LL) | |
| 187 | THEN 'TYPE FROM ' + ISNUL L(TYPECODE .DISPLAY_N AME,'<EMPT Y>') + ' T O ' + ISNU LL(TYPECOD E.DISPLAY_ NAME,'') + char(13)+ char(10) E LSE '' END + ' '+ | |
| 188 | CASE WHEN H_BE DU.IS_UNAV AILABLE_FR OM_VISTA < > PREVIOUS _H_BEDU.IS _UNAVAILAB LE_FROM_VI STA THEN ' UNAVAILABL E FROM VIS TA FROM ' + | |
| 189 | CASE W HEN PREVIO US_H_BEDU. IS_UNAVAIL ABLE_FROM_ VISTA = 1 THEN 'Yes' ELSE 'No' END + ' T O ' + | |
| 190 | CASE W HEN H_BEDU .IS_UNAVAI LABLE_FROM _VISTA = 1 THEN 'Yes ' ELSE 'No ' END + ch ar(13)+cha r(10) ELSE '' END + ' ' + | |
| 191 | CASE WHEN H_BE DU.EXPECTE D_COMPLETE D_DATE <> PREVIOUS_H _BEDU.EXPE CTED_COMPL ETED_DATE OR (H_BEDU .EXPECTED_ COMPLETED_ DATE IS NU LL AND PRE VIOUS_H_BE DU.EXPECTE D_COMPLETE D_DATE IS NOT NULL) OR (H_BEDU .EXPECTED_ COMPLETED_ DATE IS NO T NULL AND PREVIOUS_ H_BEDU.EXP ECTED_COMP LETED_DATE IS NULL) | |
| 192 | THEN ' EXPECTED C OMPLETED D ATE FROM ' + CASE WH EN PREVIOU S_H_BEDU.E XPECTED_CO MPLETED_DA TE IS NULL THEN '<Em pty>' ELSE ISNULL(co nvert(varc har(20),PR EVIOUS_H_B EDU.EXPECT ED_COMPLET ED_DATE,10 1), '') + ' ' + ISNU LL(convert (varchar(2 0),PREVIOU S_H_BEDU.E XPECTED_CO MPLETED_DA TE,108), ' ') + ' ' + ISNULL(ri ght(conver t(varchar( 30),PREVIO US_H_BEDU. EXPECTED_C OMPLETED_D ATE,109),2 ),'') END + | |
| 193 | ' TO ' + CASE WHEN H_BEDU.EX PECTED_COM PLETED_DAT E IS NULL THEN '<Emp ty>' ELSE ISNULL(con vert(varch ar(20),H_B EDU.EXPECT ED_COMPLET ED_DATE,10 1), '') + ' ' + ISNU LL(convert (varchar(2 0),H_BEDU. EXPECTED_C OMPLETED_D ATE,108),' ') + ' ' + ISNULL(ri ght(conver t(varchar( 30),H_BEDU .EXPECTED_ COMPLETED_ DATE,109), 2),'') + c har(13)+ch ar(10) END ELSE '' E ND + ' ' + | |
| 194 | CASE WHEN H_BE DU.WARD_UI D <> PREVI OUS_H_BEDU .WARD_UID OR (H_BEDU .WARD_UID IS NULL AN D PREVIOUS _H_BEDU.WA RD_UID IS NOT NULL) OR (H_BEDU .WARD_UID IS NOT NUL L AND PREV IOUS_H_BED U.WARD_UID IS NULL) | |
| 195 | THEN 'WARD FROM ' + ISNUL L(WARD.NAM E,'<EMPTY> ') + ' TO ' + ISNULL (WARD2.NAM E,'') + ch ar(13)+cha r(10) ELSE '' END | |
| 196 | ||
| 197 | EL SE '' | |
| 198 | EN D as TRAN_ UPDS, | |
| 199 | ||
| 200 | -- MODIFICATI ON BY JP 0 6/08/16 | |
| 201 | -- CASE WHEN H_BEDU.COM MENT <> PR EVIOUS_H_B EDU.COMMEN T OR (H_BE DU.COMMENT IS NULL A ND PREVIOU S_H_BEDU.C OMMENT IS NOT NULL) OR (H_BEDU .COMMENT I S NOT NULL AND PREVI OUS_H_BEDU .COMMENT I S NULL) | |
| 202 | -- THEN 'COMMENT FROM ' + ISNULL(PRE VIOUS_H_BE DU.COMMENT ,'<EMPTY>' ) + ' TO ' + ISNULL( H_BEDU.COM MENT,'') + char(13)+ char(10) E LSE '' END as TRAN_C OMMENTS, | |
| 203 | CA SE WHEN H_ BEDU.Histo ry_Comment <> PREVIO US_H_BEDU. History_Co mment OR ( H_BEDU.His tory_Comme nt IS NULL AND PREVI OUS_H_BEDU .History_C omment IS NOT NULL) OR (H_BEDU .History_C omment IS NOT NULL A ND PREVIOU S_H_BEDU.H istory_Com ment IS NU LL) | |
| 204 | THEN 'COMMENT FROM ' + ISNULL(PRE VIOUS_H_BE DU.History _Comment,' <EMPTY>') + ' TO ' + ISNULL(H_ BEDU.Histo ry_Comment ,'') + cha r(13)+char (10) ELSE '' END as TRAN_COMME NTS, | |
| 205 | ||
| 206 | 'B ED UNAVAIL ABLE' as U PDATE_TYPE | |
| 207 | FR OM #BEDUNA VAILABLE H _BEDU | |
| 208 | LE FT JOIN #B EDUNAVAILA BLE AS PRE VIOUS_H_BE DU ON | |
| 209 | PR EVIOUS_H_B EDU.ACT_ID = H_BEDU. ACT_ID AND | |
| 210 | PR EVIOUS_H_B EDU.PK < H _BEDU.PK | |
| 211 | LE FT JOIN BM S_EIS.dbo. ENTITY AS E1 ON E1.I DENTIFIER = PREVIOUS _H_BEDU.BE D_UID | |
| 212 | LE FT JOIN BM S_EIS.dbo. EHL7_PLACE AS BED ON BED.PFK_P LACE = E1. PK_ENTITY | |
| 213 | LE FT JOIN BM S_EIS.dbo. ENTITY AS E2 ON E2.I DENTIFIER = H_BEDU.B ED_UID | |
| 214 | LE FT JOIN BM S_EIS.dbo. EHL7_PLACE AS BED2 O N BED.PFK_ PLACE = E2 .PK_ENTITY | |
| 215 | LE FT JOIN CO NCEPT_H as REASON ON H_BEDU.RE ASON_ID = REASON.ID AND REASON .CODE_SYST EM_NAME = 'Unavailab leReason' | |
| 216 | LE FT JOIN CO NCEPT_H as TYPECODE ON H_BEDU. TYPE_ID = TYPECODE.I D AND TYPE CODE.CODE_ SYSTEM_NAM E = 'Admin URType' | |
| 217 | LE FT JOIN BM S_EIS.dbo. ENTITY AS E3 ON E3.I DENTIFIER = PREVIOUS _H_BEDU.WA RD_UID | |
| 218 | LE FT JOIN BM S_EIS.dbo. EHL7_PLACE AS WARD O N WARD.PFK _PLACE =E3 .PK_ENTITY | |
| 219 | LE FT JOIN BM S_EIS.dbo. ENTITY AS E4 ON E4.I DENTIFIER = H_BEDU.W ARD_UID | |
| 220 | LE FT JOIN BM S_EIS.dbo. EHL7_PLACE AS WARD2 ON WARD2.P FK_PLACE = E4.PK_ENTI TY | |
| 221 | ||
| 222 | --select * from #WBH ISTORY | |
| 223 | OP TION (MAXD OP 1) | |
| 224 | ||
| 225 | CR EATE TABLE #BEDSTAFF ( | |
| 226 | PK i nt, | |
| 227 | BED_ UID unique identifier , | |
| 228 | DIVI SION_UID u niqueident ifier, | |
| 229 | STAF F nvarchar (250), | |
| 230 | PATI ENT_UID un iqueidenti fier, | |
| 231 | FACI LITY_UID u niqueident ifier, | |
| 232 | TRAN SACTION_TY PE_CODE va rchar(50), | |
| 233 | DATE datetime, | |
| 234 | CREA TED_BY nva rchar(50), | |
| 235 | ACTI ON_TYPE va rchar(25) | |
| 236 | ) | |
| 237 | IN SERT INTO #BEDSTAFF | |
| 238 | SE LECT PK, | |
| 239 | BED_UI D, | |
| 240 | DIVISI ON_UID, | |
| 241 | STAFF, | |
| 242 | PATIEN T_UID, | |
| 243 | FACILI TY_UID, | |
| 244 | TRANSA CTION_TYPE _CODE, | |
| 245 | DATE, | |
| 246 | CREATE D_BY, | |
| 247 | CASE W HEN BED_ST AFF_H.TRAN SACTION_TY PE_CODE = 'I' THEN ' NEW RECORD ' | |
| 248 | WHEN BE D_STAFF_H. TRANSACTIO N_TYPE_COD E = 'U' TH EN 'UPDATE D' | |
| 249 | WHEN BE D_STAFF_H. TRANSACTIO N_TYPE_COD E = 'D' TH EN 'DELETE D' END | |
| 250 | AS ACT ION_TYPE | |
| 251 | FR OM BED_ STAFF_H | |
| 252 | IN NER JOIN # TBL_FACILI TY FAC | |
| 253 | ON BED_STAFF _H.FACILIT Y_UID = FA C.SOURCE_I D | |
| 254 | ||
| 255 | IN SERT INTO #WBHISTORY | |
| 256 | SE LECT DISTI NCT | |
| 257 | C ONVERT(VAR CHAR, DATE ADD (minut e, @TIME_Z ONE_MINUTE S_OFFSET, H_BSTAFF.D ATE), 101) + ' ' | |
| 258 | + CON VERT(VARCH AR(5), DAT EADD (minu te, @TIME_ ZONE_MINUT ES_OFFSET, H_BSTAFF. DATE), 108 ) as ENTER ED_DATE, | |
| 259 | N ULL AS COM PLETED_DAT E, | |
| 260 | N ULL AS EDI TED, | |
| 261 | U H.NAME AS CREATED_BY , | |
| 262 | P ERSON.[NAM E_FAMILY] + SUBSTRIN G(S1.[IDEN TIFIER_EXT ENSION], 7 , 5) AS PA TIENT_NAME , | |
| 263 | B ED.NAME as BED_NAME, | |
| 264 | N ULL AS ACT _ID, | |
| 265 | H _BSTAFF.AC TION_TYPE, | |
| 266 | C ASE WHEN H _BSTAFF.TR ANSACTION_ TYPE_CODE = 'U' THEN | |
| 267 | CASE WHE N H_BSTAFF .STAFF <> PREVIOUS_H _BSTAFF.ST AFF OR (H_ BSTAFF.STA FF IS NULL AND PREVI OUS_H_BSTA FF.STAFF I S NOT NULL ) OR (H_BS TAFF.STAFF IS NOT NU LL AND PRE VIOUS_H_BS TAFF.STAFF IS NULL) | |
| 268 | THEN 'S TAFF FROM ' + ISNULL (PREVIOUS_ H_BSTAFF.S TAFF,'<EMP TY>') + ' TO ' + ISN ULL(H_BSTA FF.STAFF,' ') + char( 13)+char(1 0) ELSE '' END | |
| 269 | E LSE | |
| 270 | 'BED STA FF: ' + IS NULL(H_BST AFF.STAFF, '') | |
| 271 | E ND AS TRAN _UPDS, | |
| 272 | N ULL AS TRA N_COMMENTS , | |
| 273 | ' BED STAFF' AS UPDATE _TYPE | |
| 274 | FR OM #BEDSTA FF H_BSTAF F | |
| 275 | LE FT JOIN #B EDSTAFF AS PREVIOUS_ H_BSTAFF O N | |
| 276 | PR EVIOUS_H_B STAFF.BED_ UID = H_BS TAFF.BED_U ID AND | |
| 277 | PR EVIOUS_H_B STAFF.PK < H_BSTAFF. PK | |
| 278 | LE FT JOIN BM S_EIS.dbo. ENTITY AS E5 ON E5.I DENTIFIER = H_BSTAFF .BED_UID | |
| 279 | LE FT JOIN BM S_EIS.dbo. EHL7_PLACE AS BED ON BED.PFK_P LACE = E5. PK_ENTITY | |
| 280 | LE FT JOIN BM S_EIS.dbo. ENTITY AS E6 ON E6.I DENTIFIER = H_BSTAFF .PATIENT_U ID | |
| 281 | LE FT JOIN BM S_EIS.dbo. EHL7_PERSO N AS PERSO N ON PERSO N.PFK_PERS ON = E6.PK _ENTITY | |
| 282 | LE FT JOIN BM S_EIS.dbo. EHL7_UID A S S1 ON S1 .FK_ENTITY = PERSON. PFK_PERSON AND S1.ID ENTIFIER_R OOT = 'SSN ' | |
| 283 | LE FT JOIN BM S_HISTORY. dbo.USER_H UH ON H_B STAFF.CREA TED_BY = U H.SID | |
| 284 | ||
| 285 | CR EATE TABLE #BRCH( | |
| 286 | PK i nt, | |
| 287 | BED_ REASON_COM MENT_HISTO RY_ID int, | |
| 288 | DIVI SION_UID u niqueident ifier, | |
| 289 | BED_ UID unique identifier , | |
| 290 | VIST A_SITE_UID uniqueide ntifier, | |
| 291 | COMM ENT nvarch ar(max), | |
| 292 | TYPE _ID int, | |
| 293 | REAS ON_ID int, | |
| 294 | CREA TION_DATE datetime, | |
| 295 | CREA TION_BY nv archar(250 ), | |
| 296 | EDIT ED_BY nvar char(250), | |
| 297 | EDIT ED_DATE da tetime, | |
| 298 | EXPE CTED_COMPL ETED_DATE datetime, | |
| 299 | COMP LETED_BY n varchar(25 0), | |
| 300 | COMP LETED_DATE datetime, | |
| 301 | TRAN SACTION_TY PE_CODE va rchar(50), | |
| 302 | DATE datetime, | |
| 303 | CREA TED_BY nva rchar(50), | |
| 304 | ACTI ON_TYPE va rchar(20) | |
| 305 | ) | |
| 306 | ||
| 307 | IN SERT #BRCH | |
| 308 | SELE CT PK, | |
| 309 | BED_REAS ON_COMMENT _HISTORY_I D, | |
| 310 | DIVISION _UID, | |
| 311 | BED_UID, | |
| 312 | VISTA_SI TE_UID, | |
| 313 | BRCH.COM MENT, | |
| 314 | TYPE_ID, | |
| 315 | REASON_I D, | |
| 316 | CREATION _DATE, | |
| 317 | CREATION _BY, | |
| 318 | EDITED_B Y, | |
| 319 | EDITED_D ATE, | |
| 320 | EXPECTED _COMPLETED _DATE, | |
| 321 | COMPLETE D_BY, | |
| 322 | COMPLETE D_DATE, | |
| 323 | TRANSACT ION_TYPE_C ODE, | |
| 324 | DATE, | |
| 325 | CREATED_ BY, | |
| 326 | CASE WHE N BRCH.TRA NSACTION_T YPE_CODE = 'I' THEN 'NEW RECOR D' | |
| 327 | WHEN BR CH.TRANSAC TION_TYPE_ CODE = 'U' THEN 'UPD ATED' | |
| 328 | WHEN BR CH.TRANSAC TION_TYPE_ CODE = 'D' THEN 'DEL ETED' END | |
| 329 | AS ACT ION_TYPE | |
| 330 | FROM BED_REASO N_COMMENT_ HISTORY_H BRCH | |
| 331 | INNE R JOIN BMS _DW.dbo.DI M_BED BED ON BRCH.BE D_UID = BE D.SOURCE_I D | |
| 332 | INNE R JOIN BMS _DW.dbo.GR OUP_BED_WA RDGROUP as GBWG ON G BWG.DIM_BE D_ID = BED .ID | |
| 333 | INNE R JOIN #WA RDS WARDS ON GBWG.DI M_WARDGROU P_ID =WARD S.WARD_ID | |
| 334 | ||
| 335 | IN SERT INTO #WBHISTORY | |
| 336 | SE LECT DISTI NCT | |
| 337 | C ONVERT(VAR CHAR, DATE ADD (minut e, @TIME_Z ONE_MINUTE S_OFFSET, H_BRCH.DAT E), 101) + ' ' | |
| 338 | + CON VERT(VARCH AR(5), DAT EADD (minu te, @TIME_ ZONE_MINUT ES_OFFSET, H_BRCH.DA TE), 108) as ENTERED _DATE, | |
| 339 | C ONVERT(VAR CHAR, DATE ADD (minut e, @TIME_Z ONE_MINUTE S_OFFSET, H_BRCH.COM PLETED_DAT E), 101) + ' ' | |
| 340 | + CON VERT(VARCH AR(5), DAT EADD (minu te, @TIME_ ZONE_MINUT ES_OFFSET, H_BRCH.CO MPLETED_DA TE), 108) AS COMPLET ED_DATE, | |
| 341 | N ULL AS EDI TED, | |
| 342 | ||
| 343 | -- MODIFICATI ON BY JP 0 6/08/16 | |
| 344 | C ASE WHEN H _BRCH.ACTI ON_TYPE = 'NEW RECOR D' Then H_ BRCH.CREAT ION_BY | |
| 345 | WHEN H _BRCH.ACTI ON_TYPE = 'UPDATED' and H_BRCH .COMPLETED _BY is not null and H_BRCH.EDI TED_BY is null | |
| 346 | Then H_BRC H.COMPLETE D_BY | |
| 347 | WHEN H_ BRCH.ACTIO N_TYPE = ' UPDATED' a nd H_BRCH. EDITED_BY is not nul l and H_BR CH.COMPLET ED_BY is n ull | |
| 348 | Then H_BRC H.EDITED_B Y | |
| 349 | WHEN H_B RCH.ACTION _TYPE = 'U PDATED' an d H_BRCH.E DITED_BY i s not null and H_BRC H.COMPLETE D_BY is no t null | |
| 350 | Then H_BRC H.COMPLETE D_BY | |
| 351 | END as E DITED_BY, | |
| 352 | - -H_BRCH.ED ITED_BY, | |
| 353 | ||
| 354 | N ULL AS PAT IENT_NAME, | |
| 355 | B ED.NAME as BED_NAME, | |
| 356 | N ULL AS ACT _ID, | |
| 357 | H _BRCH.ACTI ON_TYPE, | |
| 358 | C ASE WHEN H _BRCH.TRAN SACTION_TY PE_CODE IN ('I','U', 'D') THEN | |
| 359 | C ASE WHEN H _BRCH.COMP LETED_DATE <> PREVIO US_H_BRCH. COMPLETED_ DATE OR (H _BRCH.COMP LETED_DATE IS NULL A ND PREVIOU S_H_BRCH.C OMPLETED_D ATE IS NOT NULL) OR (H_BRCH.CO MPLETED_DA TE IS NOT NULL AND P REVIOUS_H_ BRCH.COMPL ETED_DATE IS NULL) | |
| 360 | T HEN 'COMPL ETED DATE FROM ' + C ASE WHEN P REVIOUS_H_ BRCH.COMPL ETED_DATE IS NULL TH EN '<Empty >' ELSE IS NULL(conve rt(varchar (20),PREVI OUS_H_BRCH .COMPLETED _DATE,101) , '') + ' ' + ISNULL (convert(v archar(20) ,PREVIOUS_ H_BRCH.COM PLETED_DAT E,108), '' ) + ' ' + ISNULL(rig ht(convert (varchar(3 0),PREVIOU S_H_BRCH.C OMPLETED_D ATE,109),2 ),'') END + | |
| 361 | ' TO ' + CASE WHEN H_BRCH.CO MPLETED_DA TE IS NULL THEN '<Em pty>' ELSE ISNULL(co nvert(varc har(20),H_ BRCH.COMPL ETED_DATE, 101), '') + ' ' + IS NULL(conve rt(varchar (20),H_BRC H.COMPLETE D_DATE,108 ),'') + ' ' + ISNULL (right(con vert(varch ar(30),H_B RCH.COMPLE TED_DATE,1 09),2),'') + char(13 )+char(10) END ELSE '' END + ' ' + | |
| 362 | C ASE WHEN H _BRCH.EXPE CTED_COMPL ETED_DATE <> PREVIOU S_H_BRCH.E XPECTED_CO MPLETED_DA TE OR (H_B RCH.EXPECT ED_COMPLET ED_DATE IS NULL AND PREVIOUS_H _BRCH.EXPE CTED_COMPL ETED_DATE IS NOT NUL L) OR (H_B RCH.EXPECT ED_COMPLET ED_DATE IS NOT NULL AND PREVIO US_H_BRCH. EXPECTED_C OMPLETED_D ATE IS NUL L) | |
| 363 | T HEN 'EXPEC TED COMPLE TED DATE F ROM ' + CA SE WHEN PR EVIOUS_H_B RCH.EXPECT ED_COMPLET ED_DATE IS NULL THEN '<Empty>' ELSE ISNU LL(convert (varchar(2 0),PREVIOU S_H_BRCH.E XPECTED_CO MPLETED_DA TE,101), ' ') + ' ' + ISNULL(co nvert(varc har(20),PR EVIOUS_H_B RCH.EXPECT ED_COMPLET ED_DATE,10 8), '') + ' ' + ISNU LL(right(c onvert(var char(30),P REVIOUS_H_ BRCH.EXPEC TED_COMPLE TED_DATE,1 09),2),'') END + | |
| 364 | ' TO ' + CASE WHEN H_BRCH.EX PECTED_COM PLETED_DAT E IS NULL THEN '<Emp ty>' ELSE ISNULL(con vert(varch ar(20),H_B RCH.EXPECT ED_COMPLET ED_DATE,10 1), '') + ' ' + ISNU LL(convert (varchar(2 0),H_BRCH. EXPECTED_C OMPLETED_D ATE,108),' ') + ' ' + ISNULL(ri ght(conver t(varchar( 30),H_BRCH .EXPECTED_ COMPLETED_ DATE,109), 2),'') + c har(13)+ch ar(10) END ELSE '' E ND + ' ' + | |
| 365 | CASE WHEN H_BRCH.TY PE_ID <> P REVIOUS_H_ BRCH.TYPE_ ID --OR (H _BRCH.TYPE _ID IS NUL L AND PREV IOUS_H_BRC H.TYPE_ID IS NOT NUL L) OR (H_B RCH.TYPE_I D IS NOT N ULL AND PR EVIOUS_H_B RCH.TYPE_I D IS NULL) | |
| 366 | T HEN 'TYPE FROM ' + ISNULL(TYP ECODE.DISP LAY_NAME,' <EMPTY>') + ' TO ' + ISNULL(TY PECODE.DIS PLAY_NAME, '') + char (13)+char( 10) ELSE ' ' END + ' '+ | |
| 367 | C ASE WHEN H _BRCH.REAS ON_ID <> P REVIOUS_H_ BRCH.REASO N_ID --OR (H_BRCH.RE ASON_ID IS NULL AND PREVIOUS_H _BRCH.REAS ON_ID IS N OT NULL) O R (H_BRCH. REASON_ID IS NOT NUL L AND PREV IOUS_H_BRC H.REASON_I D IS NULL) | |
| 368 | T HEN 'REAS ON FROM ' + ISNULL(R EASON.DISP LAY_NAME,' <EMPTY>') + ' TO ' + ISNULL(RE ASON.DISPL AY_NAME,'' ) + char(1 3)+char(10 ) ELSE '' END + ' ' + | |
| 369 | C ASE WHEN H _BRCH.COMP LETED_BY < > PREVIOUS _H_BRCH.CO MPLETED_BY OR (H_BRC H.COMPLETE D_BY IS NU LL AND PRE VIOUS_H_BR CH.COMPLET ED_BY IS N OT NULL) O R (H_BRCH. COMPLETED_ BY IS NOT NULL AND P REVIOUS_H_ BRCH.COMPL ETED_BY IS NULL) | |
| 370 | T HEN 'COMP LETED BY F ROM ' + IS NULL(PREVI OUS_H_BRCH .COMPLETED _BY,'<EMPT Y>') + ' T O ' + ISNU LL(H_BRCH. COMPLETED_ BY,'') + c har(13)+ch ar(10) ELS E '' END | |
| 371 | E ND AS TRAN _UPDS, | |
| 372 | C ASE WHEN H _BRCH.COMM ENT <> PRE VIOUS_H_BR CH.COMMENT OR (H_BRC H.COMMENT IS NULL AN D PREVIOUS _H_BRCH.CO MMENT IS N OT NULL) O R (H_BRCH. COMMENT IS NOT NULL AND PREVIO US_H_BRCH. COMMENT IS NULL) | |
| 373 | T HEN 'COMM ENT FROM ' + ISNULL( PREVIOUS_H _BRCH.COMM ENT,'<EMPT Y>') + ' T O ' + ISNU LL(H_BRCH. COMMENT,'' ) + char(1 3)+char(10 ) ELSE '' END AS TR AN_COMMENT S, | |
| 374 | ' BED REASON COMMENT' AS UPDATE_ TYPE | |
| 375 | FR OM #BRCH H _BRCH | |
| 376 | LE FT JOIN #B RCH AS PRE VIOUS_H_BR CH ON | |
| 377 | PR EVIOUS_H_B RCH.BED_UI D = H_BRCH .BED_UID A ND | |
| 378 | PR EVIOUS_H_B RCH.PK < H _BRCH.PK | |
| 379 | LE FT JOIN BM S_EIS.dbo. ENTITY AS E5 ON E5.I DENTIFIER = H_BRCH.B ED_UID | |
| 380 | LE FT JOIN BM S_EIS.dbo. EHL7_PLACE AS BED ON BED.PFK_P LACE = E5. PK_ENTITY | |
| 381 | LE FT JOIN CO NCEPT_H as REASON ON H_BRCH.RE ASON_ID = REASON.ID AND REASON .CODE_SYST EM_NAME = 'Unavailab leReason' | |
| 382 | LE FT JOIN CO NCEPT_H as TYPECODE ON H_BRCH. TYPE_ID = TYPECODE.I D AND TYPE CODE.CODE_ SYSTEM_NAM E = 'Admin URType' | |
| 383 | -- WHERE H_BR CH.COMMENT IS NOT NU LL AND H_B RCH.TRANSA CTION_TYPE _CODE <> ' N' | |
| 384 | ||
| 385 | CR EATE TABLE #IAH( | |
| 386 | PK int, | |
| 387 | BE D_UID uniq ueidentifi er, | |
| 388 | PA TIENT_UID uniqueiden tifier, | |
| 389 | IC ON_FLAG_ID int, | |
| 390 | IC ON_FLAG_FA CILITY_ID int, | |
| 391 | TR ANSACTION_ TYPE_CODE varchar(50 ), | |
| 392 | DA TE datetim e, | |
| 393 | CR EATED_BY n varchar(50 ), | |
| 394 | AC TION_TYPE varchar(20 ), | |
| 395 | IC ON_NAME va rchar(150) , | |
| 396 | FA CILITY_ICO N_NAME var char(150), | |
| 397 | FA CILITY_UID uniqueide ntifier | |
| 398 | ) | |
| 399 | ||
| 400 | IN SERT INTO #IAH | |
| 401 | SE LECT IAH. PK, | |
| 402 | BED_UI D, | |
| 403 | PATIEN T_UID, | |
| 404 | IAH.IC ON_FLAG_ID , | |
| 405 | IAH.IC ON_FLAG_FA CILITY_ID, | |
| 406 | IAH.TR ANSACTION_ TYPE_CODE, | |
| 407 | IAH.DA TE, | |
| 408 | IAH.CR EATED_BY, | |
| 409 | CASE W HEN IAH.TR ANSACTION_ TYPE_CODE = 'I' THEN 'NEW RECO RD' | |
| 410 | WHEN IA H.TRANSACT ION_TYPE_C ODE = 'U' THEN 'UPDA TED' | |
| 411 | WHEN IA H.TRANSACT ION_TYPE_C ODE = 'D' THEN 'DELE TED' END | |
| 412 | AS ACT ION_TYPE, | |
| 413 | FLAG.I CON_NAME, | |
| 414 | FLAG_F .ICON_NAME as FACILI TY_ICON_NA ME, | |
| 415 | FLAG_F AC.FACILIT Y_UID | |
| 416 | FR OM ICON_AS SOCIATION_ H IAH | |
| 417 | LE FT JOIN IC ON_FLAG_H FLAG | |
| 418 | ON IAH.ICON_ FLAG_ID = FLAG.ID | |
| 419 | LE FT JOIN IC ON_FLAG_FA CILITY_H F LAG_FAC | |
| 420 | ON IAH.ICON_ FLAG_FACIL ITY_ID = F LAG_FAC.ID | |
| 421 | LE FT JOIN IC ON_FLAG_H FLAG_F | |
| 422 | ON FLAG_FAC. ICON_FLAG_ ID = FLAG_ F.ID | |
| 423 | ||
| 424 | IN SERT #WBHI STORY | |
| 425 | SE LECT DISTI NCT | |
| 426 | C ONVERT(VAR CHAR, DATE ADD (minut e, @TIME_Z ONE_MINUTE S_OFFSET, H_IAH.DATE ), 101) + ' ' | |
| 427 | + CON VERT(VARCH AR(5), DAT EADD (minu te, @TIME_ ZONE_MINUT ES_OFFSET, H_IAH.DAT E), 108) a s ENTERED_ DATE, | |
| 428 | N ULL AS COM PLETED_DAT E, | |
| 429 | N ULL AS EDI TED, | |
| 430 | U H.NAME AS CREATED_BY , | |
| 431 | N ULL AS PAT IENT_NAME, | |
| 432 | B ED.NAME as BED_NAME, | |
| 433 | N ULL AS ACT _ID, | |
| 434 | H _IAH.ACTIO N_TYPE, | |
| 435 | C ASE WHEN H _IAH.TRANS ACTION_TYP E_CODE = ' U' THEN | |
| 436 | CASE WHEN H_IA H.ICON_FLA G_ID <> PR EVIOUS_H_I AH.ICON_FL AG_ID OR ( H_IAH.ICON _FLAG_ID I S NULL AND PREVIOUS_ H_IAH.ICON _FLAG_ID I S NOT NULL ) OR (H_IA H.ICON_FLA G_ID IS NO T NULL AND PREVIOUS_ H_IAH.ICON _FLAG_ID I S NULL) | |
| 437 | THEN 'ICON FROM ' + ISNUL L(PREVIOUS _H_IAH.ICO N_NAME,'<E MPTY>') + ' TO ' + I SNULL(H_IA H.ICON_NAM E,'') + ch ar(13)+cha r(10) END | |
| 438 | E LSE | |
| 439 | ISNULL(H _IAH.ICON_ NAME, H_IA H.FACILITY _ICON_NAME ) | |
| 440 | E ND as TRAN _UPDS, | |
| 441 | N ULL as TRA N_COMMENTS , | |
| 442 | ' ICON ASSOC IATION' as UPDATE_TY PE | |
| 443 | FR OM #IAH H_ IAH | |
| 444 | LE FT JOIN #I AH AS PREV IOUS_H_IAH ON | |
| 445 | PR EVIOUS_H_I AH.BED_UID = H_IAH.B ED_UID AND | |
| 446 | PR EVIOUS_H_I AH.PK < H_ IAH.PK | |
| 447 | LE FT JOIN BM S_EIS.dbo. ENTITY AS E1 ON E1.I DENTIFIER = H_IAH.BE D_UID | |
| 448 | LE FT JOIN BM S_EIS.dbo. EHL7_PLACE AS BED ON BED.PFK_P LACE = E1. PK_ENTITY | |
| 449 | LE FT JOIN BM S_DW.dbo.D IM_BED as BED2 on BE D2.SOURCE_ ID = H_IAH .BED_UID | |
| 450 | LE FT JOIN BM S_DW.dbo.G ROUP_BED_W ARDGROUP a s GBWG ON GBWG.DIM_B ED_ID = BE D2.ID | |
| 451 | IN NER JOIN # WARDS WARD S ON GBWG. DIM_WARDGR OUP_ID = W ARDS.WARD_ ID | |
| 452 | LE FT JOIN BM S_HISTORY. dbo.USER_H UH ON H_I AH.CREATED _BY = UH.S ID | |
| 453 | ||
| 454 | SE LECT * FRO M #WBHISTO RY | |
| 455 | ||
| 456 | -- SELECT * F ROM #WARDS | |
| 457 | -- SELECT * F ROM #BEDUN AVAILABLE | |
| 458 | ||
| 459 | DR OP TABLE # WBHISTORY | |
| 460 | DR OP TABLE # BEDUNAVAIL ABLE | |
| 461 | DR OP TABLE # BEDSTAFF | |
| 462 | DR OP TABLE # TBL_FACILI TY | |
| 463 | DR OP TABLE # WARDS | |
| 464 | DR OP TABLE # BRCH | |
| 465 | DR OP TABLE # IAH | |
| 466 | END | |
| 467 | END |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.