809. EPMO Open Source Coordination Office Redaction File Detail Report

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

809.1 Files compared

# Location File Last Modified
1 OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\Source\Sources\Database\CreationScripts\BMS\4.Stored Procedures dbo.usp_Insert_Transfer.sql Wed Oct 18 19:07:02 2017 UTC
2 OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\Source\Sources\Database\CreationScripts\BMS\4.Stored Procedures dbo.usp_Insert_Transfer.sql Thu Oct 26 19:45:37 2017 UTC

809.2 Comparison summary

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

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

809.4 Active regular expressions

No regular expressions were active.

809.5 Comparison detail

  1   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Insert _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_I nsert_Tran sfer]') AN D type in  (N'P', N'P C'))
  3   DROP PROCE DURE [dbo] .[usp_Inse rt_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: Inse rts a tran sfer reque st, intent  or event.
  13   -- ======= ========== ========== ========== ========
  14   CREATE PRO CEDURE [db o].[usp_In sert_Trans fer] 
  15           @A CT_ID INT  OUTPUT,
  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 N VARCHAR(50 ),
  21           @I EN VARCHAR (50),
  22           @P ATIENT_UID  UNIQUEIDE NTIFIER,
  23           @R EQ_ERA_COD E NVARCHAR (100),
  24           @R EQ_ERA_COD E_SYSTEM N VARCHAR(10 0),
  25           @R EQ_ERA_COD E_SYSTEM_N AME NVARCH AR(100),
  26           @R EQ_ERA_DIS PLAY_NAME  NVARCHAR(2 50),
  27           @R EQ_FACILIT Y_UID UNIQ UEIDENTIFI ER,
  28           @R EQ_DIAGNOS IS NVARCHA R(250),
  29           @R EQ_CURRENT _LOCATION  NVARCHAR(1 50),
  30           @R EQ_COMMENT S NVARCHAR (250),
  31           @R EQ_CONTRAC T_CODE NVA RCHAR(100) ,
  32           @R EQ_CONTRAC T_CODE_SYS TEM NVARCH AR(100),
  33           @R EQ_CONTRAC T_CODE_SYS TEM_NAME N VARCHAR(10 0),
  34           @R EQ_CONTRAC T_DISPLAY_ NAME NVARC HAR(250),
  35           @R EQ_SPECIAL ITY_CODE N VARCHAR(10 0),
  36           @R EQ_SPECIAL ITY_CODE_S YSTEM      NVARCHAR(1 00),
  37           @R EQ_SPECIAL ITY_CODE_S YSTEM_NAME  NVARCHAR( 100),
  38           @R EQ_SPECIAL ITY_DISPLA Y_NAME NVA RCHAR(250) ,
  39           @R EQ_LOCATIO N_ADMISSIO N_DATE DAT ETIME,
  40           @R EQ_FACILIT Y_REGION N VARCHAR(10 0),
  41           @R EQ_FACILIT Y_VISN NVA RCHAR(100) ,
  42           @R EQ_ENTERED _BY NVARCH AR(100) =  NULL,
  43           @R EQ_LAST_ED IT_BY NVAR CHAR(100)  = 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  NVARCHAR(1 00),
  48           @E VN_DISPOSI TION_CODE_ SYSTEM NVA RCHAR(100) ,
  49           @E VN_DISPOSI TION_CODE_ SYSTEM_NAM E NVARCHAR (100),
  50           @E VN_DISPOSI TION_DISPL AY_NAME NV ARCHAR(250 ),
  51           @E VN_ADMISSI ON_FACILIT Y_UID      UNIQUEIDEN TIFIER,
  52           @E VN_COMMENT  NVARCHAR( 150),
  53           @E VN_DISPOSI TION_DATE  DATETIME =  NULL,
  54           @O PERATION_T YPE CHAR(3 ),
  55           @I S_NATIONAL _WAIT_LIST  BIT
  56  
  57   AS
  58   BEGIN
  59   SET NOCOUN T ON
  60  
  61           EX EC dbo.usp _Insert_Ac t
  62                    @PAT IENT_UID =  @PATIENT_ UID,
  63                    @CRE ATION_DATE  = @CREATI ON_DATE,
  64                    @CAN CELED_DATE  = @CANCEL ED_DATE,
  65                    @PAR ENT_ACT_ID  = @PARENT _ACT_ID,
  66                    @FLO W_ID = @FL OW_ID,
  67                    @DOM AIN_ID = @ DOMAIN_ID,
  68                    @IEN  = @IEN,
  69                    @ID  = @ACT_ID  OUTPUT
  70  
  71           IF  @OPERATIO N_TYPE = ' REQ'
  72                    BEGI N
  73                             DECLAR E @CONTRAC T_ID INT,  @ERA_ID IN T, @SPECIA LITY_ID IN T
  74  
  75                             -- CON TRACT CONC EPT EXISTE NCE CHECK
  76                             EXEC d bo.usp_Man age_Concep t 
  77                                      @CODE =  @REQ_CONTR ACT_CODE, 
  78                                      @CODE_SY STEM = @RE Q_CONTRACT _CODE_SYST EM, 
  79                                      @CODE_SY STEM_NAME  = @REQ_CON TRACT_CODE _SYSTEM_NA ME, 
  80                                      @DISPLAY _NAME = @R EQ_CONTRAC T_DISPLAY_ NAME, 
  81                                      @ID = @C ONTRACT_ID   OUTPUT
  82  
  83                             -- ERA  CONCEPT E XISTENCE C HECK
  84                             EXEC d bo.usp_Man age_Concep t 
  85                                      @CODE =  @REQ_ERA_C ODE, 
  86                                      @CODE_SY STEM = @RE Q_ERA_CODE _SYSTEM, 
  87                                      @CODE_SY STEM_NAME  = @REQ_ERA _CODE_SYST EM_NAME, 
  88                                      @DISPLAY _NAME = @R EQ_ERA_DIS PLAY_NAME,  
  89                                      @ID = @E RA_ID  OUT PUT
  90  
  91                             -- SPE CIALITY CO NCEPT EXIS TENCE CHEC K
  92                             EXEC d bo.usp_Man age_Concep t 
  93                                      @CODE =  @REQ_SPECI ALITY_CODE , 
  94                                      @CODE_SY STEM = @RE Q_SPECIALI TY_CODE_SY STEM, 
  95                                      @CODE_SY STEM_NAME  = @REQ_SPE CIALITY_CO DE_SYSTEM_ NAME, 
  96                                      @DISPLAY _NAME = @R EQ_SPECIAL ITY_DISPLA Y_NAME, 
  97                                      @ID = @S PECIALITY_ ID  OUTPUT
  98  
  99                             SELECT  TOP 1 @AC T_ID = ID  FROM ACT W HERE FLOW_ ID = @FLOW _ID AND PA RENT_ACT_I D IS NULL  ORDER BY I D DESC
  100  
  101                             INSERT  INTO TRAN SFER_REQ
  102                             (
  103                                      ACT_ID,
  104                                      ERA_ID,
  105                                      FACILITY _UID,
  106                                      VISTA_SI TE_UID,
  107                                      CONTRACT _ID,
  108                                      SPECIALI TY_ID,
  109                                      DIAGNOSI S,
  110                                      CURRENT_ LOCATION,
  111                                      COMMENTS ,
  112                                      LOCATION _ADMISSION _DATE,
  113                                      FACILITY _REGION,
  114                                      FACILITY _VISN,
  115                                      REQUESTE D_DATE,
  116                                      ENTERED_ BY,
  117                                      LAST_EDI T_BY,
  118                                      EDITED,
  119                                      IS_NATIO NAL_WAIT_L IST
  120                             )
  121                             VALUES
  122                             (
  123                                      @ACT_ID  ,
  124                                      @ERA_ID,
  125                                      @REQ_FAC ILITY_UID,
  126                                      @REQ_VIS TA_SITE_UI D,
  127                                      @CONTRAC T_ID,
  128                                      @SPECIAL ITY_ID,
  129                                      @REQ_DIA GNOSIS,
  130                                      @REQ_CUR RENT_LOCAT ION,
  131                                      @REQ_COM MENTS,
  132                                      @REQ_LOC ATION_ADMI SSION_DATE ,
  133                                      @REQ_FAC ILITY_REGI ON,
  134                                      @REQ_FAC ILITY_VISN ,
  135                                      @REQ_REQ UESTED_DAT E,
  136                                      @REQ_ENT ERED_BY,
  137                                      @REQ_LAS T_EDIT_BY,
  138                                      @REQ_EDI TED,
  139                                      @IS_NATI ONAL_WAIT_ LIST
  140                             )
  141                    END
  142           EL SE
  143                    IF @ OPERATION_ TYPE = 'EV N'
  144                             BEGIN                              
  145                                      DECLARE  @DISPOSITI ON_ID INT
  146  
  147                                      -- DISPO SITION CON CEPT EXIST ENCE CHECK
  148                                      EXEC dbo .usp_Manag e_Concept 
  149                                               @CODE = @E VN_DISPOSI TION_CODE,  
  150                                               @CODE_SYST EM = @EVN_ DISPOSITIO N_CODE_SYS TEM, 
  151                                               @CODE_SYST EM_NAME =  @EVN_DISPO SITION_COD E_SYSTEM_N AME, 
  152                                               @DISPLAY_N AME = @EVN _DISPOSITI ON_DISPLAY _NAME, 
  153                                               @ID = @DIS POSITION_I D  OUTPUT
  154  
  155                                      SELECT T OP 1 @ACT_ ID = ID FR OM ACT WHE RE FLOW_ID  = @FLOW_I D AND PARE NT_ACT_ID  = @PARENT_ ACT_ID ORD ER BY ID D ESC
  156  
  157                                      INSERT I NTO TRANSF ER_EVN
  158                                      (
  159                                               ACT_ID,
  160                                               COMMENT,
  161                                               ADMISSION_ FACILITY_U ID,
  162                                               DISPOSITIO N_ID,
  163                                               DISPOSITIO N_DATE
  164                                      )
  165                                      VALUES
  166                                      (
  167                                               @ACT_ID,
  168                                               @EVN_COMME NT,
  169                                               @EVN_ADMIS SION_FACIL ITY_UID,
  170                                               @DISPOSITI ON_ID,
  171                                               @EVN_DISPO SITION_DAT E                                      
  172                                      )       
  173                             END
  174  
  175   END
  176   GO

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