696. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 10/26/2017 10:44:45 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.

696.1 Files compared

# Location File Last Modified
1 OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\Source\Sources\Database\BMSv2Updates\2.2.20.2 usp_Update_Transfer.sql Wed Oct 18 19:03:32 2017 UTC
2 OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\Source\Sources\Database\BMSv2Updates\2.2.20.2 usp_Update_Transfer.sql Thu Oct 26 19:41:50 2017 UTC

696.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 302
Changed 1 2
Inserted 0 0
Removed 0 0

696.3 Comparison options

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

696.4 Active regular expressions

No regular expressions were active.

696.5 Comparison detail

  1   USE [BMS]
  2   GO
  3   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Update _Transfer]     Script  Date: 8/2 1/2017 3:5 0:15 PM ** ****/
  4   SET ANSI_N ULLS ON
  5   GO
  6   SET QUOTED _IDENTIFIE R ON
  7   GO
  8   -- ======= ========== ========== ========== ========
  9   -- Author:                 PII
  10   -- Create  date: 08.0 9.2011
  11   -- Descrip tion: Upda tes a tran sfer reque st, intent  or event.
  12   -- ======= ========== ========== ========== ========
  13   ALTER PROC EDURE [dbo ].[usp_Upd ate_Transf er] 
  14           @A CT_ID INT,
  15           @C REATION_DA TE DATETIM E,
  16           @C ANCELED_DA TE DATETIM E,
  17           @P ARENT_ACT_ ID INT,
  18           @F LOW_ID UNI QUEIDENTIF IER,
  19           @D OMAIN_ID N VARCHAR(50 ),
  20           @I EN VARCHAR (50),
  21           @P ATIENT_UID  UNIQUEIDE NTIFIER,
  22           @R EQ_ERA_COD E NVARCHAR (100),
  23           @R EQ_ERA_COD E_SYSTEM N VARCHAR(10 0),
  24           @R EQ_ERA_COD E_SYSTEM_N AME NVARCH AR(100),
  25           @R EQ_ERA_DIS PLAY_NAME  NVARCHAR(2 50),
  26           @R EQ_FACILIT Y_UID UNIQ UEIDENTIFI ER,
  27           @R EQ_DIAGNOS IS NVARCHA R(250),
  28           @R EQ_CURRENT _LOCATION  NVARCHAR(1 50),
  29           @R EQ_COMMENT S NVARCHAR (250),
  30           @R EQ_CONTRAC T_CODE NVA RCHAR(100) ,
  31           @R EQ_CONTRAC T_CODE_SYS TEM NVARCH AR(100),
  32           @R EQ_CONTRAC T_CODE_SYS TEM_NAME N VARCHAR(10 0),
  33           @R EQ_CONTRAC T_DISPLAY_ NAME NVARC HAR(250),
  34           @R EQ_SPECIAL ITY_CODE N VARCHAR(10 0),
  35           @R EQ_SPECIAL ITY_CODE_S YSTEM      NVARCHAR(1 00),
  36           @R EQ_SPECIAL ITY_CODE_S YSTEM_NAME  NVARCHAR( 100),
  37           @R EQ_SPECIAL ITY_DISPLA Y_NAME NVA RCHAR(250) ,
  38           @R EQ_LOCATIO N_ADMISSIO N_DATE DAT ETIME,
  39           @R EQ_FACILIT Y_REGION N VARCHAR(10 0),
  40           @R EQ_FACILIT Y_VISN NVA RCHAR(100) ,
  41           @R EQ_ENTERED _BY NVARCH AR(100) =  NULL,
  42           @R EQ_LAST_ED IT_BY NVAR CHAR(100)  = NULL,
  43           @R EQ_EDITED  DATETIME =  NULL,
  44           @R EQ_REQUEST ED_DATE DA TETIME = N ULL,
  45           @R EQ_VISTA_S ITE_UID UN IQUEIDENTI FIER,
  46           @E VN_DISPOSI TION_CODE  NVARCHAR(1 00),
  47           @E VN_DISPOSI TION_CODE_ SYSTEM NVA RCHAR(100) ,
  48           @E VN_DISPOSI TION_CODE_ SYSTEM_NAM E NVARCHAR (100),
  49           @E VN_DISPOSI TION_DISPL AY_NAME NV ARCHAR(250 ),
  50           @E VN_ADMISSI ON_FACILIT Y_UID      UNIQUEIDEN TIFIER,
  51           @E VN_COMMENT  NVARCHAR( 150),
  52           @E VN_DISPOSI TION_DATE  DATETIME =  NULL,
  53           @I S_NATIONAL _WAIT_LIST  BIT,
  54           @T YPE_OF_BED _WARD NVAR CHAR(250),
  55           @I S_FEE bit,
  56           @T RANSFER_CO ORDINATOR  nvarchar(2 50),
  57           @T RANSFER_CO ORDINATOR_ PHONE nvar char(100)
  58   AS
  59   BEGIN
  60   SET NOCOUN T ON
  61  
  62           DE CLARE @TRA NSFER_TYPE  CHAR(3)
  63           SE T @TRANSFE R_TYPE = [ dbo].ufn_G et_Transfe r_Type(@AC T_ID)
  64  
  65           EX EC dbo.usp _Update_Ac t
  66                    @PAT IENT_UID =  @PATIENT_ UID,
  67                    @CRE ATION_DATE  = @CREATI ON_DATE,
  68                    @CAN CELED_DATE  = @CANCEL ED_DATE,
  69                    @PAR ENT_ACT_ID  = @PARENT _ACT_ID,
  70                    @FLO W_ID = @FL OW_ID,
  71                    @DOM AIN_ID = @ DOMAIN_ID,
  72                    @IEN  = @IEN,
  73                    @ID  = @ACT_ID
  74  
  75           IF  @TRANSFER _TYPE = 'R EQ'
  76                    BEGI N
  77                             DECLAR E @CONTRAC T_ID INT,  @ERA_ID IN T, @SPECIA LITY_ID IN T
  78  
  79                             -- CON TRACT CONC EPT EXISTE NCE CHECK
  80                             EXEC d bo.usp_Man age_Concep t 
  81                                      @CODE =  @REQ_CONTR ACT_CODE, 
  82                                      @CODE_SY STEM = @RE Q_CONTRACT _CODE_SYST EM, 
  83                                      @CODE_SY STEM_NAME  = @REQ_CON TRACT_CODE _SYSTEM_NA ME, 
  84                                      @DISPLAY _NAME = @R EQ_CONTRAC T_DISPLAY_ NAME, 
  85                                      @ID = @C ONTRACT_ID   OUTPUT
  86  
  87                             -- ERA  CONCEPT E XISTENCE C HECK
  88                             EXEC d bo.usp_Man age_Concep t 
  89                                      @CODE =  @REQ_ERA_C ODE, 
  90                                      @CODE_SY STEM = @RE Q_ERA_CODE _SYSTEM, 
  91                                      @CODE_SY STEM_NAME  = @REQ_ERA _CODE_SYST EM_NAME, 
  92                                      @DISPLAY _NAME = @R EQ_ERA_DIS PLAY_NAME,  
  93                                      @ID = @E RA_ID  OUT PUT
  94  
  95                             -- SPE CIALITY CO NCEPT EXIS TENCE CHEC K
  96                             EXEC d bo.usp_Man age_Concep t 
  97                                      @CODE =  @REQ_SPECI ALITY_CODE , 
  98                                      @CODE_SY STEM = @RE Q_SPECIALI TY_CODE_SY STEM, 
  99                                      @CODE_SY STEM_NAME  = @REQ_SPE CIALITY_CO DE_SYSTEM_ NAME, 
  100                                      @DISPLAY _NAME = @R EQ_SPECIAL ITY_DISPLA Y_NAME, 
  101                                      @ID = @S PECIALITY_ ID  OUTPUT
  102  
  103                             UPDATE  TRANSFER_ REQ
  104                                      SET
  105                                               ACT_ID = @ ACT_ID,
  106                                               ERA_ID = @ ERA_ID,
  107                                               FACILITY_U ID = @REQ_ FACILITY_U ID,
  108                                               VISTA_SITE _UID = @RE Q_VISTA_SI TE_UID,
  109                                               CONTRACT_I D = @CONTR ACT_ID,
  110                                               SPECIALITY _ID = @SPE CIALITY_ID ,
  111                                               DIAGNOSIS  = @REQ_DIA GNOSIS,
  112                                               CURRENT_LO CATION = @ REQ_CURREN T_LOCATION ,
  113                                               COMMENTS =  @REQ_COMM ENTS,
  114                                               LOCATION_A DMISSION_D ATE = @REQ _LOCATION_ ADMISSION_ DATE,
  115                                               FACILITY_R EGION = @R EQ_FACILIT Y_REGION,
  116                                               FACILITY_V ISN = @REQ _FACILITY_ VISN,
  117                                               REQUESTED_ DATE = @RE Q_REQUESTE D_DATE,
  118                                               --ENTERED_ BY = @REQ_ ENTERED_BY ,
  119                                               LAST_EDIT_ BY = @REQ_ LAST_EDIT_ BY,
  120                                               EDITED = @ REQ_EDITED ,
  121                                               IS_NATIONA L_WAIT_LIS T = @IS_NA TIONAL_WAI T_LIST,
  122                                               TYPE_OF_BE D_WARD = @ TYPE_OF_BE D_WARD,
  123                                               IS_FEE = @ IS_FEE,
  124                                               TRANSFER_C OORDINATOR  = @TRANSF ER_COORDIN ATOR,
  125                                               TRANSFER_C OORDINATOR _PHONE= @T RANSFER_CO ORDINATOR_ PHONE
  126                                      WHERE AC T_ID = @AC T_ID
  127                    END
  128           EL SE IF @TRA NSFER_TYPE  = 'EVN'
  129                    BEGI N
  130                             DECLAR E @DISPOSI TION_ID IN T
  131  
  132                             -- DIS POSITION C ONCEPT EXI STENCE CHE CK
  133                             EXEC d bo.usp_Man age_Concep t 
  134                                      @CODE =  @EVN_DISPO SITION_COD E, 
  135                                      @CODE_SY STEM = @EV N_DISPOSIT ION_CODE_S YSTEM, 
  136                                      @CODE_SY STEM_NAME  = @EVN_DIS POSITION_C ODE_SYSTEM _NAME, 
  137                                      @DISPLAY _NAME = @E VN_DISPOSI TION_DISPL AY_NAME, 
  138                                      @ID = @D ISPOSITION _ID  OUTPU T
  139  
  140                             UPDATE  TRANSFER_ EVN
  141                                      SET
  142                                               ACT_ID = @ ACT_ID,
  143                                               COMMENT  = @EVN_COMME NT,
  144                                               ADMISSION_ FACILITY_U ID = @EVN_ ADMISSION_ FACILITY_U ID,
  145                                               DISPOSITIO N_ID = @DI SPOSITION_ ID,
  146                                               DISPOSITIO N_DATE = @ EVN_DISPOS ITION_DATE                                            
  147                                      WHERE AC T_ID = @AC T_ID
  148                    END
  149  
  150           IF  @@ERROR<> 0 RETURN
  151           
  152   END

Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.