Produced by Araxis Merge on 10/26/2017 10:44:49 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\MaintenanceScripts | usp_Filter_Patient_Waiting_Date_View.sql | Wed Oct 18 18:58:10 2017 UTC |
| 2 | OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\Source\Sources\Database\MaintenanceScripts | usp_Filter_Patient_Waiting_Date_View.sql | Thu Oct 26 19:53:10 2017 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 3 | 192 |
| Changed | 2 | 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] | |
| 2 | GO | |
| 3 | /****** Ob ject: Sto redProcedu re [dbo].[ usp_Filter _Patient_W aiting_Dat e_View] Script Da te: 02/11/ 2016 11:01 :21 ****** / | |
| 4 | SET ANSI_N ULLS ON | |
| 5 | GO | |
| 6 | SET QUOTED _IDENTIFIE R ON | |
| 7 | GO | |
| 8 | ||
| 9 | -- ======= ========== ========== ========== ======== | |
| 10 | -- Author:
|
|
| 11 | -- Create date: 10.1 2.2011 | |
| 12 | -- Descrip tion: Filt er transfe rs by faci lity. | |
| 13 | -- ======= ========== ========== ========== ======== | |
| 14 | -- ======= ========== ========== ========== ======== | |
| 15 | -- Update by: PII | |
| 16 | -- Update date: 10/2 5/2011 | |
| 17 | -- Descrip tion: Filt er transfe rs by faci lity | |
| 18 | -- ======= ========== ========== ========== ======== | |
| 19 | -- Updated By: Silvia Pletea | |
| 20 | -- Updated date: 02. 16.2012 | |
| 21 | -- Descrip tion: Adde d new para meter: @IS _CURRENT_W AITING_LIS T. If this is true r eturn all the patien ts where | |
| 22 | -- transfe r event is null else filter by event dat e. | |
| 23 | -- ======= ========== ========== ========== ======== | |
| 24 | ||
| 25 | ALTER PROC EDURE [dbo ].[usp_Fil ter_Patien t_Waiting_ Date_View] | |
| 26 | @F ACILITY_RE GION NVARC HAR(100), | |
| 27 | @F ACILITY_VI SN NVARCHA R(100), | |
| 28 | @S PECIALTY_C ODE NVARCH AR(100), | |
| 29 | @S PECIALTY_C ODE_SYSTEM NVARCHAR( 100), | |
| 30 | @C REATION_DA TE DATETIM E = NULL, | |
| 31 | @I S_CURRENT_ WAITING_LI ST BIT, | |
| 32 | @I S_DISPLAY_ ONLY_NATIO NAL_PATIEN TS BIT | |
| 33 | AS | |
| 34 | BEGIN | |
| 35 | SE T NOCOUNT ON; | |
| 36 | ||
| 37 | DE CLARE @SQL NVARCHAR( MAX), @SQL _SECURITY NVARCHAR(M AX), @DOMA IN NVARCHA R(250), @S PECIALTY_I D INT, @SQ L_WHERE NV ARCHAR(MAX ) | |
| 38 | SE T @DOMAIN = dbo.F_GE T_CURRENT_ DOMAIN() | |
| 39 | ||
| 40 | IF (dbo.F_GE T_IS_SUPER USER() != 1) | |
| 41 | SET @SQL_SECUR ITY = COAL ESCE(@SQL_ SECURITY, '') + 'INN ER JOIN vP olicyConte xt V ON V. resource_r oot = ''' + @DOMAIN + ''' | |
| 42 | AND V. resource_e xtension = CAST(TR.F ACILITY_UI D AS nvarc har(36)) A ND v.actio n_name = ' 'BMS, Read ''' | |
| 43 | EL SE | |
| 44 | SET @SQL_SECUR ITY = '' | |
| 45 | ||
| 46 | SE T @SQL_WHE RE = COALE SCE(@SQL_W HERE,'') | |
| 47 | IF (@SPECIAL TY_CODE IS NOT NULL) | |
| 48 | BE GIN | |
| 49 | SELE CT TOP(1) @SPECIALTY _ID = ID F ROM CONCEP T WHERE CO DE = @SPEC IALTY_CODE AND CODE_ SYSTEM = @ SPECIALTY_ CODE_SYSTE M | |
| 50 | IF ( @SPECIALTY _ID IS NUL L) | |
| 51 | RETURN | |
| 52 | SET @SQL_WHERE = @SQL_WH ERE + ' AN D REQSP.ID = '+ CAST (@SPECIALT Y_ID AS NV ARCHAR(10) ) +' ' | |
| 53 | EN D | |
| 54 | IF (@FACILIT Y_REGION I S NOT NULL ) | |
| 55 | SET @SQL_WHERE = @SQL_WH ERE + ' AN D [TR].[FA CILITY_REG ION] = '+ @FACILITY_ REGION +' ' | |
| 56 | IF (@FACILIT Y_VISN IS NOT NULL) | |
| 57 | SET @SQL_WHERE = @SQL_WH ERE + ' AN D [TR].[FA CILITY_VIS N] = '+ @F ACILITY_VI SN +' ' | |
| 58 | ||
| 59 | IF (@IS_CURRE NT_WAITING _LIST = 1) | |
| 60 | SET @SQL_WHERE = @SQL_WH ERE + ' AN D TE.ACT_I D IS NULL' | |
| 61 | EL SE | |
| 62 | SET @SQL_WHERE = @SQL_WH ERE + ' AN D (TE.ACT_ ID IS NULL OR TE.ACT _ID IS NOT NULL AND AEVN.CREAT ION_DATE > ''' + CON VERT(VARCH AR(25), @C REATION_DA TE, 126) + ''')' | |
| 63 | ||
| 64 | IF (@IS_DISPL AY_ONLY_NA TIONAL_PAT IENTS = 1) | |
| 65 | SET @SQL_WHERE = @SQL_WH ERE + ' AN D TR.IS_NA TIONAL_WAI T_LIST = 1 ' | |
| 66 | ||
| 67 | SE T @SQL = C OALESCE(@S QL,'') + ' | |
| 68 | SELE CT DISTINC T | |
| 69 | [A].[C REATION_DA TE] AS [CR EATION_DAT E], | |
| 70 | [A].[C ANCELED_DA TE] AS [CA NCELED_DAT E], | |
| 71 | [A].[D OMAIN_ID] AS [DOMAIN _ID], | |
| 72 | [A].[P ATIENT_UID ] AS [PATI ENT_UID], | |
| 73 | [TE].[ ADMISSION_ FACILITY_U ID] AS [EV N_ADMISSIO N_FACILITY _UID], | |
| 74 | [TE].[ DISPOSITIO N_DATE] AS [EVN_DISP OSITION_DA TE], | |
| 75 | [TR].[ FACILITY_U ID] AS [RE Q_FACILITY _UID], | |
| 76 | [REQSP ].[DISPLAY _NAME] AS [REQ_SPECI ALITY_DISP LAY_NAME], | |
| 77 | [TR].[ FACILITY_R EGION] AS [REGION_CO DE], | |
| 78 | [TR].[ FACILITY_V ISN] AS [V ISN_CODE], | |
| 79 | [TR].[ REQUESTED_ DATE] AS [ EVN_EVENT_ DATE], | |
| 80 | [TR].[ ENTERED_BY ] AS [ENTE R_BY], | |
| 81 | [TR].[ LAST_EDIT_ BY] AS [LA ST_EDIT_BY ], | |
| 82 | [TR].[ EDITED] AS [LAST_EDI T_DATE], | |
| 83 | [TR].[ IS_NATIONA L_WAIT_LIS T] AS [IS_ NATIONAL_W AIT_LIST], | |
| 84 | [TR].[ CREATED] A S [REQ_CRE ATED], | |
| 85 | [TE].[ CREATED] A S [EVN_CRE ATED] | |
| 86 | FROM ACT A | |
| 87 | INNER JOIN TRANS FER_REQ TR ON A.ID = TR.ACT_ID | |
| 88 | LEFT J OIN ACT AS AEVN ON A EVN.PARENT _ACT_ID = TR.ACT_ID | |
| 89 | LEFT J OIN TRANSF ER_EVN AS TE ON TE.A CT_ID = AE VN.ID | |
| 90 | LEFT J OIN CONCEP T AS REQSP ON TR.SPE CIALITY_ID = REQSP.I D | |
| 91 | ' + | |
| 92 | --@SQL _SECURITY + | |
| 93 | ' WHER E 1 = 1 ' + @SQL_WHE RE + ' | |
| 94 | ORDE R BY [A].[ CREATION_D ATE] ' | |
| 95 | ||
| 96 | EXEC UTE sp_exe cutesql @S QL | |
| 97 | END | |
| 98 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.