Produced by Araxis Merge on 10/26/2017 10:43:31 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_Source_C72993\C72993-Sources.zip\C72993\Source\Sources\Database\CreationScripts\BMS\4.Stored Procedures | dbo.usp_Manage_Deleted_Movements.sql | Fri Nov 22 17:02:46 2013 UTC |
| 2 | OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\BMS_Source_C72993\C72993-Sources.zip\C72993\Source\Sources\Database\CreationScripts\BMS\4.Stored Procedures | dbo.usp_Manage_Deleted_Movements.sql | Thu Oct 26 18:29:11 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 210 |
| 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 | IF EXISTS (SELECT * FROM sys. objects WH ERE object _id = OBJE CT_ID(N'[d bo].[usp_M anage_Dele ted_Moveme nts]') AND type in ( N'P', N'PC ')) | |
| 2 | DROP PROCE DURE [dbo] .[usp_Mana ge_Deleted _Movements ] | |
| 3 | GO | |
| 4 | SET ANSI_N ULLS ON | |
| 5 | GO | |
| 6 | SET QUOTED _IDENTIFIE R ON | |
| 7 | GO | |
| 8 | -- ======= ========== ========== ========== ======== | |
| 9 | -- Author : PII | |
| 10 | -- Created date : 12/18/ 2012 | |
| 11 | -- Descrip tion : Delete movements . | |
| 12 | -- ======= ========== ========== ========== ======== | |
| 13 | CREATE PRO CEDURE [db o].[usp_Ma nage_Delet ed_Movemen ts] | |
| 14 | @I EN NVARCHA R(MAX), | |
| 15 | @V ISTA_SITE_ UID UNIQUE IDENTIFIER , | |
| 16 | @V ISTA_SITE_ CODE NVARC HAR(20) | |
| 17 | AS | |
| 18 | BEGIN | |
| 19 | SE T NOCOUNT ON; | |
| 20 | ||
| 21 | CR EATE TABLE #temp (NR INT, IEN NVARCHAR(2 0)) | |
| 22 | ||
| 23 | IN SERT INTO #temp (NR, IEN) | |
| 24 | SE LECT ID, V ALUE | |
| 25 | FROM dbo.fn_Sp lit_String (@IEN, ',' ) | |
| 26 | ||
| 27 | DE CLARE @I I NT, @MAX I NT, @tmpIE N NVARCHAR (20), @ID INT, @ADM_ ID INT, | |
| 28 | @ID2 I NT, @BED U NIQUEIDENT IFIER, @WA RD UNIQUEI DENTIFIER, @DIS_ID I NT, @MOVEM ENT_DATE D ATETIME | |
| 29 | SE LECT @MAX = COUNT(NR ) FROM #te mp | |
| 30 | SE T @I = 1 | |
| 31 | WH ILE (@I <= @MAX) | |
| 32 | BEGI N | |
| 33 | SELECT @tmpIEN = IEN FROM #temp WHER E NR = @I | |
| 34 | SELECT @ID = ID FROM SPECI ALTY_TRANS FER WHERE IEN = @tmp IEN AND VI STA_SITE_U ID = @VIST A_SITE_UID | |
| 35 | IF (@I D IS NOT N ULL) | |
| 36 | DELETE F ROM SPECIA LTY_TRANSF ER WHERE I D = @ID | |
| 37 | ELSE | |
| 38 | BEGIN | |
| 39 | SELECT @ID = ID, @AD M_ID = ADM ISSION_ID FROM DISCH ARGE_EVN W HERE IEN = @tmpIEN A ND VISTA_S ITE_UID = @VISTA_SIT E_UID | |
| 40 | IF (@ID IS NOT NULL) | |
| 41 | BE GIN | |
| 42 | IF N OT EXISTS (SELECT ID FROM DISC HARGE_EVN WHERE CAST (IEN AS BI GINT) > CA ST(@tmpIEN AS BIGINT ) AND ADMI SSION_ID = @ADM_ID) | |
| 43 | UPDATE ADMISSION _EVN | |
| 44 | SET HAS_ DISCHARGE = 0 WHERE ID = @ADM_ ID | |
| 45 | DELE TE FROM DI SCHARGE_EV N WHERE ID = @ID | |
| 46 | EN D | |
| 47 | ELSE | |
| 48 | BE GIN | |
| 49 | SELE CT @ID = I D, @ADM_ID = ADMISSI ON_ID, @BE D = OLD_BE D_UID, @WA RD = OLD_W ARD_UID, @ MOVEMENT_D ATE = MOVE MENT_DATE | |
| 50 | FROM M OVEMENT_EV N WHERE IE N = @tmpIE N AND VIST A_SITE_UID = @VISTA_ SITE_UID | |
| 51 | IF ( @ID IS NOT NULL) | |
| 52 | BEGIN | |
| 53 | SELECT T OP 1 @ID2 = ID FROM MOVEMENT_E VN WHERE A DMISSION_I D = @ADM_I D AND MOVE MENT_DATE > @MOVEMEN T_DATE ORD ER BY MOVE MENT_DATE | |
| 54 | IF (@ID2 IS NOT NU LL) | |
| 55 | UPDATE MOV EMENT_EVN | |
| 56 | SE T OLD_WARD _UID = @WA RD, OLD_BE D_UID = @B ED | |
| 57 | WH ERE ID = @ ID2 | |
| 58 | ELSE | |
| 59 | BEGIN | |
| 60 | UP DATE ADMIS SION_EVN | |
| 61 | SET WARD_UID = @WARD, BE D_UID = @B ED | |
| 62 | WHER E ID = @AD M_ID | |
| 63 | SE LECT @DIS_ ID = ID FR OM DISCHAR GE_EVN WHE RE ADMISSI ON_ID = @A DM_ID | |
| 64 | IF (@DIS_ID IS NOT NUL L) | |
| 65 | UPDA TE DISCHAR GE_EVN | |
| 66 | SET WA RD_UID = @ WARD, BED_ UID = @BED | |
| 67 | WHERE ID = @DIS_ ID | |
| 68 | END | |
| 69 | DELETE F ROM BED_SW ITCH WHERE IEN = @tm pIEN AND V ISTA_SITE_ UID = @VIS TA_SITE_UI D | |
| 70 | DELETE F ROM MOVEME NT_EVN WHE RE ID = @I D | |
| 71 | END | |
| 72 | ELSE | |
| 73 | BEGIN | |
| 74 | SELECT @ ID = ID FR OM ADMISSI ON_EVN WHE RE IEN = @ tmpIEN AND VISTA_SIT E_UID = @V ISTA_SITE_ UID | |
| 75 | IF (@ID IS NOT NUL L) | |
| 76 | BEGIN | |
| 77 | DE LETE FROM VISTA_INTE GRATION_LO G WHERE VI STA = @VIS TA_SITE_CO DE AND VIS TA_FILE = 'PM' | |
| 78 | AND IEN IN (SE LECT IEN F ROM SPECIA LTY_TRANSF ER WHERE A DMISSION_I D = @ID) | |
| 79 | DE LETE FROM SPECIALTY_ TRANSFER W HERE ADMIS SION_ID = @ID | |
| 80 | DE LETE FROM VISTA_INTE GRATION_LO G WHERE VI STA = @VIS TA_SITE_CO DE AND VIS TA_FILE = 'PM' | |
| 81 | AND IEN IN (SE LECT IEN F ROM MOVEME NT_EVN WHE RE ADMISSI ON_ID = @I D) | |
| 82 | DE LETE FROM MOVEMENT_E VN WHERE A DMISSION_I D = @ID | |
| 83 | DE LETE FROM VISTA_INTE GRATION_LO G WHERE VI STA = @VIS TA_SITE_CO DE AND VIS TA_FILE = 'PM' | |
| 84 | AND IEN IN (SE LECT IEN F ROM DISCHA RGE_EVN WH ERE ADMISS ION_ID = @ ID) | |
| 85 | DE LETE FROM DISCHARGE_ EVN WHERE ADMISSION_ ID = @ID | |
| 86 | DE LETE FROM BED_SWITCH WHERE ADM ISSION_ID = @ID | |
| 87 | DE LETE FROM ADMISSION_ LEVEL_OF_C ARE WHERE ADMISSION_ ID = @ID | |
| 88 | DE LETE FROM ADMISSION_ EVN WHERE ID = @ID | |
| 89 | END | |
| 90 | END | |
| 91 | SET @ID2 = NUL L | |
| 92 | SET @BED = NUL L | |
| 93 | SET @WARD = NU LL | |
| 94 | SET @DIS_ID = NULL | |
| 95 | SET @MOVEMENT_ DATE = NUL L | |
| 96 | EN D | |
| 97 | END | |
| 98 | DELETE FROM VIST A_INTEGRAT ION_LOG WH ERE VISTA = @VISTA_S ITE_CODE A ND VISTA_F ILE = 'PM' AND IEN = @tmpIEN | |
| 99 | SET @I = @I + 1 | |
| 100 | SET @I D = NULL | |
| 101 | SET @A DM_ID = NU LL | |
| 102 | END | |
| 103 | ||
| 104 | DR OP TABLE # temp | |
| 105 | END | |
| 106 | GO |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.