184. EPMO Open Source Coordination Office Redaction File Detail Report

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.

184.1 Files compared

# 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\4.Stored Procedures dbo.usp_Update_Transfer.sql Wed Oct 23 12:51:11 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\4.Stored Procedures dbo.usp_Update_Transfer.sql Thu Oct 26 15:46:39 2017 UTC

184.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 8 242
Changed 7 52
Inserted 0 0
Removed 0 0

184.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

184.4 Active regular expressions

No regular expressions were active.

184.5 Comparison detail

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

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