Produced by Araxis Merge on 10/26/2017 10:43:16 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\BMS_Build_C72898\BMS_Source-BuildC72898.zip\C72898\Source\Sources\Database\CreationScripts\BMS_DW\2.Functions | dbo.ufn_GetPatientIntraWardTransferTransaction.UserDefinedFunction.sql | Wed Oct 23 12:51:17 2013 UTC |
| 2 | OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\BMS_Build_C72898\BMS_Source-BuildC72898.zip\C72898\Source\Sources\Database\CreationScripts\BMS_DW\2.Functions | dbo.ufn_GetPatientIntraWardTransferTransaction.UserDefinedFunction.sql | Thu Oct 26 15:57:31 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 156 |
| Changed | 1 | 10 |
| 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 | /****** Ob ject: Use rDefinedFu nction [db o].[ufn_Ge tPatientIn traWardTra nsferTrans action] Script Da te: 03/21/ 2012 16:03 :44 ****** / | |
| 2 | IF EXISTS (SELECT * FROM sys. objects WH ERE object _id = OBJE CT_ID(N'[d bo].[ufn_G etPatientI ntraWardTr ansferTran saction]') AND type in (N'FN', N'IF', N' TF', N'FS' , N'FT')) | |
| 3 | DROP FUNCT ION [dbo]. [ufn_GetPa tientIntra WardTransf erTransact ion] | |
| 4 | GO | |
| 5 | ||
| 6 | SET ANSI_N ULLS ON | |
| 7 | GO | |
| 8 | SET QUOTED _IDENTIFIE R ON | |
| 9 | GO | |
| 10 | -- ======= ========== ========== ========== ======== | |
| 11 | -- Author: Silvic a Pletea | |
| 12 | -- Create date: 30/0 5/2012 | |
| 13 | -- Descrip tion: Func tion for g etting the patient m ovements d ata (intra ward tran sfer) | |
| 14 | -- ======= ========== ========== ========== ======== | |
| 15 | CREATE FUN CTION [dbo ].[ufn_Get PatientInt raWardTran sferTransa ction] | |
| 16 | ( | |
| 17 | @F ACILITY_ID INT, | |
| 18 | @D IVISION_ID INT, | |
| 19 | @S TART_DATE DATETIME, | |
| 20 | @E ND_DATE DA TETIME, | |
| 21 | @T IME_ZONE_M INUTES_OFF SET INT | |
| 22 | ) | |
| 23 | RETURNS @P ATIENT_MOV EMENT TABL E | |
| 24 | ( | |
| 25 | IE N INT, | |
| 26 | RE CORD_DATE VARCHAR(30 ), | |
| 27 | EN TERED_DATE VARCHAR(3 0), | |
| 28 | DI FF VARCHAR (10), | |
| 29 | WA RD_NAME
|
|
| 30 | BE D_NAME
|
|
| 31 | PA TIENT_NAME
|
|
| 32 | TY PE_OF_TRAN SACTION
|
|
| 33 | TY PE_OF_MOVE MENT
|
|
| 34 | DI FF_MINUTE INT | |
| 35 | ) | |
| 36 | AS | |
| 37 | BEGIN | |
| 38 | ||
| 39 | DECL ARE @WARD TABLE(ID I NT PRIMARY KEY); | |
| 40 | ||
| 41 | -- inser t wards be longing to @FACILITY _ID or by @divis ion_id | |
| 42 | IF @ DIVISION_I D = -1 | |
| 43 | INSERT INTO @WAR D(ID) | |
| 44 | SELECT WARD.ID F ROM dbo.uf n_GetWards ByFacility Id(@FACILI TY_ID) AS WARD | |
| 45 | INNER JOIN dbo.D IM_WARD AS ACTIVE_WA RD ON ACTI VE_WARD.ID = WARD.ID | |
| 46 | WHERE ACTIVE_WAR D.STATUS = 'active' | |
| 47 | ELSE | |
| 48 | INSERT INTO @WAR D(ID) -- V ALUES (@WA RD_ID) | |
| 49 | SELECT DIM_WARD_ ID FROM db o.GROUP_WA RD_ORGANIZ ATION GWO | |
| 50 | WHERE DIM_ORGANI ZATION_ID = @DIVISIO N_ID | |
| 51 | ||
| 52 | DELE TE FROM @W ARD WHERE ID NOT IN (SELECT DI M_WARD_ID FROM dbo.F ACT_BED_SW ITCH) | |
| 53 | ||
| 54 | INSE RT INTO @P ATIENT_MOV EMENT(IEN, RECORD_DA TE, ENTERE D_DATE, DI FF, WARD_N AME, BED_N AME, PATIE NT_NAME, T YPE_OF_TRA NSACTION, TYPE_OF_MO VEMENT, DI FF_MINUTE) | |
| 55 | SELECT BED_SWITCH .IEN, | |
| 56 | CO NVERT(VARC HAR, DATEA DD (minute ,@TIME_ZO NE_MINUTES _OFFSET , BED_SWITCH .ENTERED_D ATE), 101) + ' ' + C ONVERT(VAR CHAR(5), D ATEADD (mi nute ,@TIM E_ZONE_MIN UTES_OFFSE T , BED_SW ITCH.ENTER ED_DATE), 108), | |
| 57 | CO NVERT(VARC HAR, DATEA DD (minute ,@TIME_ZO NE_MINUTES _OFFSET , BED_SWITCH .ENTERED_D ATE), 101) + ' ' + C ONVERT(VAR CHAR(5), D ATEADD (mi nute ,@TIM E_ZONE_MIN UTES_OFFSE T , BED_SW ITCH.ENTER ED_DATE), 108), | |
| 58 | '00:00 ', | |
| 59 | WARD.N AME, | |
| 60 | BE D.NAME, | |
| 61 | PA TIENT.LAST _NAME + ' ' + RIGHT( PATIENT.SS N,4), | |
| 62 | 'I NTRA WARD TRANSFER', | |
| 63 | CA SE WHEN MO V.ID IS NU LL THEN | |
| 64 | ADM_ MOVEMENT_T YPE.DISPLA Y_NAME | |
| 65 | ELS E | |
| 66 | MOV_ MOVEMENT_T YPE.DISPLA Y_NAME | |
| 67 | END, | |
| 68 | 0 | |
| 69 | ||
| 70 | FR OM dbo.FAC T_BED_SWIT CH AS BED_ SWITCH | |
| 71 | IN NER JOIN @ WARD AS W ON W.ID = BED_SWITCH .DIM_WARD_ ID | |
| 72 | IN NER JOIN d bo.FACT_AD MISSION_EV N adm ON a dm.ID = BE D_SWITCH.F ACT_ADMISS ION_EVN_ID | |
| 73 | IN NER JOIN d bo.DIM_PAT IENT AS PA TIENT ON P ATIENT.ID = BED_SWIT CH.DIM_PAT IENT_ID | |
| 74 | IN NER JOIN d bo.DIM_BED AS BED ON BED.ID = BED_SWITCH .DIM_BED_I D | |
| 75 | IN NER JOIN d bo.DIM_WAR D AS WARD ON WARD.ID = BED_SWI TCH.DIM_WA RD_ID | |
| 76 | LE FT JOIN d bo.FACT_MO VEMENT_EVN MOV ON MO V.FACT_ADM ISSION_EVN _ID = ADM. ID AND MOV .IEN = BED _SWITCH.IE N | |
| 77 | LE FT JOIN db o.DIM_MOVE MENT_TYPE AS ADM_MOV EMENT_TYPE ON ADM_MO VEMENT_TYP E.ID = adm .DIM_MOVEM ENT_TYPE_I D | |
| 78 | LE FT JOIN db o.DIM_MOVE MENT_TYPE AS MOV_MOV EMENT_TYPE ON MOV_MO VEMENT_TYP E.ID = MOV .DIM_MOVEM ENT_TYPE_I D | |
| 79 | WH ERE ((@END _DATE IS N ULL AND BE D_SWITCH.E NTERED_DAT E >= @STAR T_DATE) OR BED_SWITC H.ENTERED_ DATE BETWE EN @START_ DATE AND @END_DATE) | |
| 80 | ||
| 81 | RE TURN | |
| 82 | END | |
| 83 | GO |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.