785. EPMO Open Source Coordination Office Redaction File Detail Report

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

785.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_Bed_Reason_Comment.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_Bed_Reason_Comment.sql Thu Oct 26 19:45:37 2017 UTC

785.2 Comparison summary

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

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

785.4 Active regular expressions

No regular expressions were active.

785.5 Comparison detail

  1   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Insert _Bed_Reaso n_Comment]     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_Bed_ Reason_Com ment]') AN D type in  (N'P', N'P C'))
  3   DROP PROCE DURE [dbo] .[usp_Inse rt_Bed_Rea son_Commen t]
  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: 30.0 3.2012
  12   -- Descrip tion: hist ory bed re ason - com ment
  13   -- ======= ========== ========== ========== ========
  14   CREATE PRO CEDURE [db o].[usp_In sert_Bed_R eason_Comm ent] 
  15           @C REATION_DA TE DATETIM E,
  16           @T YPE_CODE N VARCHAR(10 0),
  17           @T YPE_CODE_S YSTEM NVAR CHAR(100),
  18           @T YPE_CODE_S YSTEM_NAME  NVARCHAR( 100),
  19           @T YPE_DISPLA Y_NAME NVA RCHAR(250) ,
  20           @R EASON_CODE  NVARCHAR( 100),
  21           @R EASON_CODE _SYSTEM NV ARCHAR(100 ),
  22           @R EASON_CODE _SYSTEM_NA ME NVARCHA R(100),
  23           @R EASON_DISP LAY_NAME N VARCHAR(25 0),
  24           @D IVISION_UI D UNIQUEID ENTIFIER,
  25           @B ED_UID UNI QUEIDENTIF IER,
  26           @C REATED_BY  NVARCHAR(2 50),
  27           @E DITED_BY N VARCHAR(25 0),
  28           @E DITED_DATE  DATETIME,
  29           @C OMPLETED_B Y NVARCHAR (250),
  30           @C OMPLETED_D ATE DATETI ME,
  31           @V ISTA_SITE_ UID UNIQUE IDENTIFIER ,
  32           @C OMMENT NVA RCHAR(MAX) ,
  33           @I S_CHANGED_ ONLY_COMME NT BIT,
  34           @I S_CLEAR_AL L BIT,
  35           @D IVISION_LI ST NVARCHA R(MAX),
  36           @E XPECTED_CO MPLETED_DA TE DATETIM E
  37   AS
  38   BEGIN
  39   SET NOCOUN T ON
  40  
  41           DE CLARE @TYP E_ID INT,  @REASON_ID  INT
  42  
  43           --  TYPE CONC EPT EXISTE NCE CHECK
  44           EX EC dbo.usp _Manage_Co ncept 
  45                    @COD E = @TYPE_ CODE, 
  46                    @COD E_SYSTEM =  @TYPE_COD E_SYSTEM, 
  47                    @COD E_SYSTEM_N AME = @TYP E_CODE_SYS TEM_NAME, 
  48                    @DIS PLAY_NAME  = @TYPE_DI SPLAY_NAME
  49                    @ID  = @TYPE_ID   OUTPUT
  50  
  51           --  REASON CO NCEPT EXIS TENCE CHEC K
  52           EX EC dbo.usp _Manage_Co ncept 
  53                    @COD E = @REASO N_CODE, 
  54                    @COD E_SYSTEM =  @REASON_C ODE_SYSTEM
  55                    @COD E_SYSTEM_N AME = @REA SON_CODE_S YSTEM_NAME
  56                    @DIS PLAY_NAME  = @REASON_ DISPLAY_NA ME, 
  57                    @ID  = @REASON_ ID  OUTPUT
  58           
  59           IF  @IS_CLEAR _ALL IS NO T NULL AND  @IS_CLEAR _ALL = 1
  60                    BEGI N
  61                             SET @C OMMENT = N ULL
  62                    END
  63                    
  64           IN SERT INTO  BED_REASON _COMMENT_H ISTORY
  65           (
  66                    DIVI SION_UID,
  67                    BED_ UID,
  68                    VIST A_SITE_UID ,
  69                    TYPE _ID,
  70                    REAS ON_ID,
  71                    COMM ENT,
  72                    CREA TIONBY,
  73                    CREA TION_DATE,
  74                    EDIT EDBY,
  75                    EDIT ED_DATE,
  76                    COMP LETEDBY,
  77                    COMP LETED_DATE
  78                    EXPE CTED_COMPL ETED_DATE
  79           )
  80           VA LUES
  81           (
  82                    @DIV ISION_UID,  
  83                    @BED _UID,
  84                    @VIS TA_SITE_UI D,
  85                    @TYP E_ID,
  86                    @REA SON_ID,
  87                    @COM MENT,
  88                    @CRE ATED_BY,
  89                    @CRE ATION_DATE ,
  90                    @EDI TED_BY,
  91                    @EDI TED_DATE,
  92                    @COM PLETED_BY,
  93                    @COM PLETED_DAT E,
  94                    @EXP ECTED_COMP LETED_DATE
  95           )
  96           
  97           IF  CAST(@DIV ISION_UID  AS NVARCHA R(50)) <>  @DIVISION_ LIST
  98           BE GIN
  99                    IF @ IS_CHANGED _ONLY_COMM ENT IS NUL L OR @IS_C HANGED_ONL Y_COMMENT  = 0
  100                    BEGI N
  101                             DECLAR E @COMMENT _BED_DIVIS ION NVARCH AR(MAX)
  102                             DECLAR E TABLES_C URSOR CURS OR
  103                                      FOR
  104                                               SELECT CAS T(VALUE AS  UNIQUEIDE NTIFIER)
  105                                               FROM dbo.f n_Split(@D IVISION_LI ST, ',')
  106                                      OPEN TAB LES_CURSOR ;
  107                                      DECLARE  @UID UNIQU EIDENTIFIE R
  108                                      FETCH NE XT FROM TA BLES_CURSO R INTO @UI D;
  109                                      WHILE (@ @FETCH_STA TUS <> -1)
  110                                               BEGIN;
  111                                                       IF  @IS_CLEAR _ALL IS NO T NULL AND  @IS_CLEAR _ALL = 1
  112                                                                BEGI N
  113                                                                         SET @C OMMENT_BED _DIVISION  = NULL
  114                                                                END
  115                                                       EL SE
  116                                                                BEGI N
  117                                                                
  118                                                                SET  @COMMENT_B ED_DIVISIO N = (SELEC T TOP 1 CO MMENT 
  119                                                                                                                                FROM B ED_REASON_ COMMENT_HI STORY 
  120                                                                                                                               WHERE B ED_UID = @ BED_UID AN D DIVISION _UID = @UI D  
  121                                                                                                                               ORDER B Y ID DESC)
  122                                                                END
  123                                                       IF  @UID <> @ DIVISION_U ID
  124                                                                BEGI N
  125                                                                         INSERT  INTO BED_ REASON_COM MENT_HISTO RY
  126                                                                                           (
  127                                                                                                   DI VISION_UID ,
  128                                                                                                   BE D_UID,
  129                                                                                                   VI STA_SITE_U ID,
  130                                                                                                   TY PE_ID,
  131                                                                                                   RE ASON_ID,
  132                                                                                                   CO MMENT,
  133                                                                                                   CR EATIONBY,
  134                                                                                                   CR EATION_DAT E,
  135                                                                                                   ED ITEDBY,
  136                                                                                                   ED ITED_DATE,
  137                                                                                                   CO MPLETEDBY,
  138                                                                                                   CO MPLETED_DA TE,
  139                                                                                                   EX PECTED_COM PLETED_DAT E
  140                                                                                           )
  141                                                                         VALUES
  142                                                                                           (
  143                                                                                                   @U ID,
  144                                                                                                   @B ED_UID,
  145                                                                                                   @V ISTA_SITE_ UID,
  146                                                                                                   @T YPE_ID,
  147                                                                                                   @R EASON_ID,
  148                                                                                                   @C OMMENT_BED _DIVISION,
  149                                                                                                   @C REATED_BY,
  150                                                                                                   @C REATION_DA TE,
  151                                                                                                   @E DITED_BY,
  152                                                                                                   @E DITED_DATE ,
  153                                                                                                   @C OMPLETED_B Y,
  154                                                                                                   @C OMPLETED_D ATE,
  155                                                                                                   @E XPECTED_CO MPLETED_DA TE
  156                                                                                           )
  157                                                                END
  158                                                       SE T @COMMENT _BED_DIVIS ION = NULL
  159                                                       FE TCH NEXT F ROM TABLES _CURSOR IN TO @UID;
  160                                               END;    
  161                             CLOSE  TABLES_CUR SOR;
  162                             DEALLO CATE TABLE S_CURSOR;
  163                    END
  164           EN D
  165   END
  166   GO