2. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 7/5/2018 7:15:19 AM Central 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.

2.1 Files compared

# Location File Last Modified
1 registries.zip\registries\Combined_registries_code\Registries VIRP Database\Database Objects\VIRP Build Three VIRP_Build_Three_CRS_Table_Script.sql Wed Jun 27 16:56:50 2018 UTC
2 registries.zip\registries\Combined_registries_code\Registries VIRP Database\Database Objects\VIRP Build Three VIRP_Build_Three_CRS_Table_Script.sql Thu Jun 28 12:07:30 2018 UTC

2.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 7434
Changed 2 4
Inserted 0 0
Removed 0 0

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

2.4 Active regular expressions

No regular expressions were active.

2.5 Comparison detail

  1   /*
  2   Run this s cript on:
  3  
  4             DNS            .aac.dva. DNS     .CRS        This datab ase will b e modified
  5  
  6   to synchro nize it wi th:
  7  
  8             DNS            .aac.dva. DNS     .CRS
  9  
  10   You are re commended  to back up  your data base befor e running  this scrip t
  11  
  12   Script cre ated by SQ L Compare  version 11 .1.3 from  Red Gate S oftware Lt d at 3/28/ 2018 6:41: 52 PM
  13  
  14   */
  15   SET NUMERI C_ROUNDABO RT OFF
  16   GO
  17   SET ANSI_P ADDING, AN SI_WARNING S, CONCAT_ NULL_YIELD S_NULL, AR ITHABORT,  QUOTED_IDE NTIFIER, A NSI_NULLS  ON
  18   GO
  19   SET XACT_A BORT ON
  20   GO
  21   SET TRANSA CTION ISOL ATION LEVE L SERIALIZ ABLE
  22   GO
  23   BEGIN TRAN SACTION
  24   GO
  25   IF @@ERROR  <> 0 SET  NOEXEC ON
  26   GO
  27   PRINT N'Cr eating [CR S].[STD_NA TIONALDRUG ]'
  28   GO
  29   IF OBJECT_ ID(N'[CRS] .[STD_NATI ONALDRUG]' , 'U') IS  NULL
  30   CREATE TAB LE [CRS].[ STD_NATION ALDRUG]
  31   (
  32   [NationalD rugSID] [i nt] NULL,
  33   [NationalD rugIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  34   [Sta3n] [s mallint] N ULL,
  35   [DrugNameW ithoutDose SID] [int]  NULL,
  36   [NationalF ormularyFl ag] [varch ar] (1) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  37   [DrugNameW ithDose] [ varchar] ( 100) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  38   [NationalF ormularyNa me] [varch ar] (100)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  39   [VADrugPri ntName] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  40   [VAProduct Identifier ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  41   [CMOPTrans mitFlag] [ varchar] ( 1) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  42   [CSFederal Schedule]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  43   [ProductSo urce] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  44   [GCNSeqNo]  [int] NUL L,
  45   [PreviousG CNSeqNo] [ int] NULL,
  46   [NDCToGCNS eqNo] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  47   [Strength]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  48   [StrengthN umeric] [d ecimal] (1 8, 0) NULL ,
  49   [DosageFor mSID] [int ] NULL,
  50   [DispenseU nitSID] [i nt] NULL,
  51   [DrugUnitS ID] [int]  NULL,
  52   [PrimaryDr ugClassSID ] [int] NU LL,
  53   [DSSNumber ] [int] NU LL,
  54   [Inactivat ionDate] [ date] NULL ,
  55   [Inactivat ionVistaEr rorDate] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  56   [Inactivat ionDateTra nsformSID]  [bigint]  NULL,
  57   [ExcludeFr omDrugInte ractionChe ckFlag] [c har] (1) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  58   [OverrideD oseCheckEx clusionFla g] [char]  (1) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  59   [CreateDef aultPossib leDosageFl ag] [char]  (1) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  60   [PossibleD osagesToCr eateIndica tor] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  61   [FDAMedGui de] [varch ar] (255)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  62   [Chargemas terService Code] [int ] NULL,
  63   [Outpatien tOrInpatie ntPackageU se] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  64   [MaxSingle Dose] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  65   [MinSingle Dose] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  66   [MaxDailyD ose] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  67   [MinDailyD ose] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  68   [MaxCumula tiveDose]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  69   [MasterEnt ryForVUIDF lag] [varc har] (1) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  70   [VUID] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  71   [DispenseU nitIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  72   [DosageFor mIEN] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  73   [DrugNameW ithoutDose IEN] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  74   [DrugUnitI EN] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  75   [PrimaryDr ugClassIEN ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  76   [ETLBatchI D] [int] N ULL,
  77   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  78   [VistaCrea teDate] [d atetime] N ULL,
  79   [VistaEdit Date] [dat etime] NUL L,
  80   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  81   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  82   [Created]  [datetime]  NULL,
  83   [Updated]  [datetime]  NULL
  84   )
  85   GO
  86   IF @@ERROR  <> 0 SET  NOEXEC ON
  87   GO
  88   PRINT N'Cr eating ind ex [Cluste redIndex-S ID] on [CR S].[STD_NA TIONALDRUG ]'
  89   GO
  90   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'Clus teredIndex -SID' AND  object_id  = OBJECT_I D(N'[CRS]. [STD_NATIO NALDRUG]') )
  91   CREATE UNI QUE CLUSTE RED INDEX  [Clustered Index-SID]  ON [CRS]. [STD_NATIO NALDRUG] ( [NationalD rugSID])
  92   GO
  93   IF @@ERROR  <> 0 SET  NOEXEC ON
  94   GO
  95   PRINT N'Cr eating ind ex [NonClu steredInde x-SID-ETLI D] on [CRS ].[STD_NAT IONALDRUG] '
  96   GO
  97   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-SID-ET LID' AND o bject_id =  OBJECT_ID (N'[CRS].[ STD_NATION ALDRUG]'))
  98   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-SID-E TLID] ON [ CRS].[STD_ NATIONALDR UG] ([Nati onalDrugSI D], [ETLBa tchID])
  99   GO
  100   IF @@ERROR  <> 0 SET  NOEXEC ON
  101   GO
  102   PRINT N'Cr eating [CR S].[STD_DR UGNAMEWITH OUTDOSE]'
  103   GO
  104   IF OBJECT_ ID(N'[CRS] .[STD_DRUG NAMEWITHOU TDOSE]', ' U') IS NUL L
  105   CREATE TAB LE [CRS].[ STD_DRUGNA MEWITHOUTD OSE]
  106   (
  107   [DrugNameW ithoutDose SID] [int]  NULL,
  108   [DrugNameW ithoutDose IEN] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  109   [Sta3n] [s mallint] N ULL,
  110   [DrugNameW ithoutDose ] [varchar ] (100) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  111   [Inactivat ionDate] [ date] NULL ,
  112   [VUID] [in t] NULL,
  113   [ETLBatchI D] [int] N ULL,
  114   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  115   [VistaCrea teDate] [d atetime] N ULL,
  116   [VistaEdit Date] [dat etime] NUL L,
  117   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  118   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  119   [Created]  [datetime]  NULL,
  120   [Updated]  [datetime]  NULL
  121   )
  122   GO
  123   IF @@ERROR  <> 0 SET  NOEXEC ON
  124   GO
  125   PRINT N'Cr eating ind ex [Cluste redIndx-SI D] on [CRS ].[STD_DRU GNAMEWITHO UTDOSE]'
  126   GO
  127   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'Clus teredIndx- SID' AND o bject_id =  OBJECT_ID (N'[CRS].[ STD_DRUGNA MEWITHOUTD OSE]'))
  128   CREATE UNI QUE CLUSTE RED INDEX  [Clustered Indx-SID]  ON [CRS].[ STD_DRUGNA MEWITHOUTD OSE] ([Dru gNameWitho utDoseSID] )
  129   GO
  130   IF @@ERROR  <> 0 SET  NOEXEC ON
  131   GO
  132   PRINT N'Cr eating ind ex [NonClu steredIndx -SID-ETLID ] on [CRS] .[STD_DRUG NAMEWITHOU TDOSE]'
  133   GO
  134   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dx-SID-ETL ID' AND ob ject_id =  OBJECT_ID( N'[CRS].[S TD_DRUGNAM EWITHOUTDO SE]'))
  135   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndx-SID-ET LID] ON [C RS].[STD_D RUGNAMEWIT HOUTDOSE]  ([DrugName WithoutDos eSID], [ET LBatchID])
  136   GO
  137   IF @@ERROR  <> 0 SET  NOEXEC ON
  138   GO
  139   PRINT N'Cr eating [CR S].[vw_Tra nsplantReg istryMedic ations]'
  140   GO
  141   IF OBJECT_ ID(N'[CRS] .[vw_Trans plantRegis tryMedicat ions]', 'V ') IS NULL
  142   EXEC sp_ex ecutesql N '/*RTC#666 418
  143   Date 3/12/ 2018 wal
  144   */
  145   CREATE VIE W [CRS].[v w_Transpla ntRegistry Medication s] AS
  146   SELECT
  147      a.RxOut patSID 
  148     ,a.RxNum ber
  149     ,a.Issue Date
  150     ,a.RxSta tus
  151     ,a.Cance lDate
  152     ,a.Finis hingDateTi me
  153     ,a.Patie ntSID
  154     ,a.Provi derSID
  155     ,a.Patie ntStatus
  156     ,a.MaxRe fills
  157     ,a.LastD ispensedDa te
  158     ,a.NextP ossibleFil lDate
  159     ,a.Prior FillDate
  160     ,a.HoldD ate
  161     ,a.Trade LabelName
  162     ,a.Order edQuantity
  163     ,a.Order edQuantity Numeric
  164     FROM [CR S].[RXOUTP AT] AS a
  165     INNER JO IN crs.Std _NationalD rug AS b 
  166           ON  b.Nationa lDrugSID =  a.Nationa lDrugSID
  167     INNER JO IN crs.STD _DRUGNAMEW ITHOUTDOSE  AS c ON c .DrugNameW ithoutDose SID = b.Dr ugNameWith outDoseSID
  168     WHERE b. NationalDr ugSID <> - 1 AND a.Rx Number <>  ''*Unknown  at this t ime*''
  169     AND a.Rx Status IN  (''ACTIVE' ',''HOLD'' ,''SUSPEND ED'')
  170     AND CONV ERT(DATE,a .IssueDate ) <= CONVE RT(DATE,GE TDATE()-30 )
  171     AND c.Dr ugNameWith outDose IN  (''Azathi oprine'',  ''Cyclospo rine'', '' Everolimus '', ''Myco phenolate' ', ''Sirol imus'', '' Prednisone '',''Tacro limus'')
  172   '
  173   GO
  174   IF @@ERROR  <> 0 SET  NOEXEC ON
  175   GO
  176   PRINT N'Cr eating [CR S].[usp_Pa tient_Indi vidual_Add ]'
  177   GO
  178   IF OBJECT_ ID(N'[CRS] .[usp_Pati ent_Indivi dual_Add]' , 'P') IS  NULL
  179   EXEC sp_ex ecutesql N '-- ====== ========== ========== ========== =========
  180   -- Author:  Whitney L awson        
  181   -- Create  date:   11 /28/2017
  182   -- Descrip tion:   Ad d an indiv idual to a  Registry  Cohort
  183   -- ======= ========== ========== ========== ========
  184   Create PRO CEDURE [CR S].[usp_Pa tient_Indi vidual_Add
  185   (@Update_U SER VARCHA R(30), @CU RRENT_REGI STRY_ID IN T, @PATIEN T_ICN VARC HAR(50))
  186   AS
  187   BEGIN TRY
  188   SET NOCOUN T ON
  189   DECLARE @C ohortTypeI d INT
  190   SET @Cohor tTypeId =( SELECT DIS TINCT COHO RT_TYPE_ID
  191                         FROM [CRS] .[CRS].[ST D_REGISTRY _COHORT_TY PES]
  192                         WHERE DESC RIPTION_TE XT = ''Pat ientICN'')
  193  
  194   UPDATE [CR S].[CRS].[ STD_REGIST RY_COHORT_ TYPES]
  195   SET NAME =  @PATIENT_ ICN
  196      ,CODE =  @PATIENT_ ICN
  197   WHERE COHO RT_TYPE_ID  = @Cohort TypeId;
  198  
  199   INSERT INT O [CRS].[R EGISTRY_CO HORT_DATA]
  200               ([STD_REG ISTRY_ID]
  201               ,[STD_REG ISTRY_COHO RT_TYPE_ID ]
  202               ,[VALUE]
  203               ,[COMMENT ]
  204               ,[CREATED BY]
  205               ,[UPDATED BY]
  206               ,[CREATED ]
  207               ,[UPDATED ]
  208               ,[SELECTE D_FLAG])
  209        VALUE S
  210               (@Current _REGISTRY_ ID
  211               ,@CohortT ypeId
  212               ,NULL
  213               ,NULL
  214               ,@Update_ USER
  215               ,@Update_ USER
  216               ,GETDATE( )
  217               ,GETDATE( )
  218               ,1);
  219   END TRY
  220   BEGIN CATC H
  221    EXEC [CRS ].[InsDBLo g] @CURREN T_REGISTRY _ID,1,''CR S.usp_Pati ent_Indivi dual_Add'' , @@Error, ''Error Ad ding Indiv idual Pati ent to reg istry'', @ Update_USE R
  222   END CATCH
  223   '
  224   GO
  225   IF @@ERROR  <> 0 SET  NOEXEC ON
  226   GO
  227   PRINT N'Cr eating [CR S].[STD_LA BCHEMTESTU RGENCY]'
  228   GO
  229   IF OBJECT_ ID(N'[CRS] .[STD_LABC HEMTESTURG ENCY]', 'U ') IS NULL
  230   CREATE TAB LE [CRS].[ STD_LABCHE MTESTURGEN CY]
  231   (
  232   [LabChemTe stUrgencyS ID] [int]  NULL,
  233   [LabChemTe stUrgencyI EN] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  234   [Sta3n] [s mallint] N ULL,
  235   [Urgency]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  236   [UrgencyAb breviation ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  237   [LabCollec tFlag] [ch ar] (1) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  238   [WorkloadO nlyFlag] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  239   [HL7Code]  [varchar]  (100) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  240   [LabCodeSI D] [int] N ULL,
  241   [LabelPrin tFlag] [ch ar] (1) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  242   [LabCodeIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  243   [ETLBatchI D] [int] N ULL,
  244   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  245   [VistaCrea teDate] [d atetime] N ULL,
  246   [VistaEdit Date] [dat etime] NUL L,
  247   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  248   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  249   [Created]  [datetime]  NULL,
  250   [Updated]  [datetime]  NULL
  251   )
  252   GO
  253   IF @@ERROR  <> 0 SET  NOEXEC ON
  254   GO
  255   PRINT N'Cr eating ind ex [indx_S id] on [CR S].[STD_LA BCHEMTESTU RGENCY]'
  256   GO
  257   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'indx _Sid' AND  object_id  = OBJECT_I D(N'[CRS]. [STD_LABCH EMTESTURGE NCY]'))
  258   CREATE UNI QUE CLUSTE RED INDEX  [indx_Sid]  ON [CRS]. [STD_LABCH EMTESTURGE NCY] ([Lab ChemTestUr gencySID])
  259   GO
  260   IF @@ERROR  <> 0 SET  NOEXEC ON
  261   GO
  262   PRINT N'Cr eating ind ex [indx_S ID_LabSid]  on [CRS]. [STD_LABCH EMTESTURGE NCY]'
  263   GO
  264   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'indx _SID_LabSi d' AND obj ect_id = O BJECT_ID(N '[CRS].[ST D_LABCHEMT ESTURGENCY ]'))
  265   CREATE NON CLUSTERED  INDEX [ind x_SID_LabS id] ON [CR S].[STD_LA BCHEMTESTU RGENCY] ([ LabChemTes tUrgencySI D], [LabCo deSID])
  266   GO
  267   IF @@ERROR  <> 0 SET  NOEXEC ON
  268   GO
  269   PRINT N'Cr eating [CR S].[STD_LA BCHEMTEST] '
  270   GO
  271   IF OBJECT_ ID(N'[CRS] .[STD_LABC HEMTEST]',  'U') IS N ULL
  272   CREATE TAB LE [CRS].[ STD_LABCHE MTEST]
  273   (
  274   [LABCHEMTE STSID] [in t] NOT NUL L,
  275   [LABCHEMTE STIEN] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N OT NULL,
  276   [STA3N] [s mallint] N OT NULL,
  277   [LABCHEMTE STNAME] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  278   [LABCHEMPR INTTESTNAM E] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  279   [NLTNATION ALVALABCOD ESID] [int ] NULL,
  280   [NATIONALV ALABCODESI D] [int] N ULL,
  281   [LABCHEMTE STLOCATION ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  282   [LABTESTTY PE] [char]  (1) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  283   [REQUIREDT ESTFLAG] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  284   [TESTCOST]  [smallmon ey] NULL,
  285   [SNOMEDPRO CEDURESID]  [int] NUL L,
  286   [HIGHESTLA BCHEMTESTU RGENCYSID]  [int] NUL L,
  287   [FORCEDLAB CHEMTESTUR GENCYSID]  [int] NULL ,
  288   [DEFAULTSP ECIMENSITE CPTSID] [i nt] NULL,
  289   [HCSPCSCPT SID] [int]  NULL,
  290   [COLLECTIO NSAMPLESID ] [int] NU LL,
  291   [BILLABLEF LAG] [char ] (1) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  292   [UNIQUECOL LECTIONSAM PLEFLAG] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  293   [UNIQUEACC ESSIONNUMB ERFLAG] [c har] (1) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  294   [COLLECTIO NSAMPLEIEN ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  295   [DEFAULTSP ECIMENSITE CPTIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  296   [FORCEDLAB CHEMTESTUR GENCYIEN]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  297   [HCSPCSCPT IEN] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  298   [HIGHESTLA BCHEMTESTU RGENCYIEN]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  299   [NATIONALV ALABCODEIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  300   [NLTNATION ALVALABCOD EIEN] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  301   [SNOMEDPRO CEDUREIEN]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  302   [ETLBATCHI D] [int] N ULL,
  303   [OPCODE] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NOT  NULL,
  304   [VISTACREA TEDATE] [d atetime] N ULL,
  305   [VISTAEDIT DATE] [dat etime] NUL L,
  306   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  307   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  308   [Created]  [datetime]  NULL,
  309   [Updated]  [datetime]  NULL
  310   )
  311   GO
  312   IF @@ERROR  <> 0 SET  NOEXEC ON
  313   GO
  314   PRINT N'Cr eating ind ex [indx_P atSid] on  [CRS].[STD _LABCHEMTE ST]'
  315   GO
  316   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'indx _PatSid' A ND object_ id = OBJEC T_ID(N'[CR S].[STD_LA BCHEMTEST] '))
  317   CREATE UNI QUE CLUSTE RED INDEX  [indx_PatS id] ON [CR S].[STD_LA BCHEMTEST]  ([LABCHEM TESTSID])
  318   GO
  319   IF @@ERROR  <> 0 SET  NOEXEC ON
  320   GO
  321   PRINT N'Cr eating ind ex [indx_P atSid_ETLB atch] on [ CRS].[STD_ LABCHEMTES T]'
  322   GO
  323   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'indx _PatSid_ET LBatch' AN D object_i d = OBJECT _ID(N'[CRS ].[STD_LAB CHEMTEST]' ))
  324   CREATE NON CLUSTERED  INDEX [ind x_PatSid_E TLBatch] O N [CRS].[S TD_LABCHEM TEST] ([LA BCHEMTESTS ID], [ETLB ATCHID])
  325   GO
  326   IF @@ERROR  <> 0 SET  NOEXEC ON
  327   GO
  328   PRINT N'Cr eating [CR S].[PATIEN T_REGISTRY ]'
  329   GO
  330   IF OBJECT_ ID(N'[CRS] .[PATIENT_ REGISTRY]' , 'U') IS  NULL
  331   CREATE TAB LE [CRS].[ PATIENT_RE GISTRY]
  332   (
  333   [PATIENTSI D] [int] N ULL,
  334   [PATIENTIC N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  335   [STD_REGIS TRY_ID] [i nt] NULL
  336   )
  337   GO
  338   IF @@ERROR  <> 0 SET  NOEXEC ON
  339   GO
  340   PRINT N'Cr eating ind ex [indx_P atSid_PatI CN_RegId]  on [CRS].[ PATIENT_RE GISTRY]'
  341   GO
  342   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'indx _PatSid_Pa tICN_RegId ' AND obje ct_id = OB JECT_ID(N' [CRS].[PAT IENT_REGIS TRY]'))
  343   CREATE UNI QUE NONCLU STERED IND EX [indx_P atSid_PatI CN_RegId]  ON [CRS].[ PATIENT_RE GISTRY] ([ PATIENTSID ], [PATIEN TICN], [ST D_REGISTRY _ID])
  344   GO
  345   IF @@ERROR  <> 0 SET  NOEXEC ON
  346   GO
  347   PRINT N'Cr eating [db o].[usp_EM ERGENCYROU TINELABS]'
  348   GO
  349   IF OBJECT_ ID(N'[dbo] .[usp_EMER GENCYROUTI NELABS]',  'P') IS NU LL
  350   EXEC sp_ex ecutesql N 'CREATE PR OCEDURE [d bo].[usp_E MERGENCYRO UTINELABS]  
  351   (@CURRENT_ USER VARCH AR(30), @C URRENT_REG ISTRY_ID I NT, @REFER RAL_ID INT ,@YEAR INT , @MONTH I NT)
  352   AS
  353   BEGIN
  354   SET NOCOUN T ON;
  355  
  356           DE CLARE @Err orMsg VARC HAR(MAX);
  357  
  358           IF  ([CRS].[V alidateUse r](@CURREN T_USER, @C URRENT_REG ISTRY_ID)  = 0)
  359           BE GIN
  360                    SET  @ErrorMsg  = ''User i s not auth orized to  perform th is action. '';
  361                    EXEC  [CRS].[In sDBLog] @C URRENT_REG ISTRY_ID,  0, ''usp_E mergencyRo utineLabs' ', @ErrorM sg, ''User  is not pa rt of this  Registry' ', @CURREN T_USER
  362                    SELE CT @ErrorM sg AS [Err orMsg];
  363                    RETU RN
  364           EN D
  365  
  366     SELECT 
  367     DATEPART (YEAR,c.LA BCHEMCOMPL ETEDATETIM E) AS [Yea r]
  368     ,c.PATIE NTSID
  369     ,cl.LABC HEMTESTNAM E
  370     ,cl.LABC HEMPRINTTE STNAME
  371     ,c.LABCH EMCOMPLETE DATETIME
  372     ,c.LABCH EMRESULTVA LUE
  373     ,c.LABCH EMRESULTNU MERICVALUE
  374     ,c.UNITS
  375     ,c.ABNOR MAL
  376     ,c.REFHI GH
  377     ,c.REFLO W
  378     ,CASE WH EN cu.urge ncy LIKE ' 'stat%'' T HEN  ''Eme rgency'' 
  379           WH EN cu.urge ncy LIKE ' 'routine%' ' THEN ''R outine'' E ND AS [Lab Type]
  380     FROM crs .CHEM_LABC HEM AS c W ITH (NOLOC K)
  381     INNER JO IN [CRS].[ STD_LABCHE MTEST] AS  cl  ON cl. LABCHEMTES TSID = c.L ABCHEMTEST SID
  382     INNER JO IN [CRS].[ STD_LABCHE MTESTURGEN CY] AS cu  ON cu.LabC hemTestUrg encySID =  cl.[HIGHES TLABCHEMTE STURGENCYS ID]
  383         OR c u.LabChemT estUrgency SID = cl.[ FORCEDLABC HEMTESTURG ENCYSID] 
  384     INNER JO IN crs.PAT IENT_REGIS TRY AS pr  ON pr.PATI ENTSID = c .PATIENTSI D
  385       WHERE   ((DATEPAR T(YEAR,c.L ABCHEMCOMP LETEDATETI ME) >= @YE AR AND  DA TEPART(mon th,c.LABCH EMCOMPLETE DATETIME)  =@MONTH)
  386           AN D pr.STD_R EGISTRY_ID  = @CURREN T_REGISTRY _ID
  387           AN D (cu.urge ncy LIKE ' 'stat%'' o r cu.urgen cy LIKE '' routine%'' ))
  388   END    
  389   '
  390   GO
  391   IF @@ERROR  <> 0 SET  NOEXEC ON
  392   GO
  393   PRINT N'Cr eating [CR S].[INPAT_ INPATIENTI CDPROCEDUR E]'
  394   GO
  395   IF OBJECT_ ID(N'[CRS] .[INPAT_IN PATIENTICD PROCEDURE] ', 'U') IS  NULL
  396   CREATE TAB LE [CRS].[ INPAT_INPA TIENTICDPR OCEDURE]
  397   (
  398   [Inpatient ICDProcedu reSID] [bi gint] NULL ,
  399   [PTFIEN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  400   [PTFChild_ 45_05IEN]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  401   [OrdinalNu mber] [sma llint] NUL L,
  402   [Sta3n] [s mallint] N ULL,
  403   [PatientSI D] [int] N ULL,
  404   [Inpatient SID] [bigi nt] NULL,
  405   [AdmitDate Time] [dat etime2] NU LL,
  406   [AdmitVist aErrorDate ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  407   [AdmitDate TimeTransf ormSID] [b igint] NUL L,
  408   [AdmitDate SID] [int]  NULL,
  409   [Discharge DateTime]  [datetime2 ] NULL,
  410   [DIscharge VistaError Date] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  411   [Discharge DateTimeTr ansformSID ] [bigint]  NULL,
  412   [Discharge DateSID] [ int] NULL,
  413   [ICD9Proce dureSID] [ int] NULL,
  414   [ICD10Proc edureSID]  [int] NULL ,
  415   [ICDProced ureDateTim e] [dateti me2] NULL,
  416   [ICDProced ureVistaEr rorDate] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  417   [ICDProced ureDateTim eTransform SID] [bigi nt] NULL,
  418   [ICDProced ureDateSID ] [int] NU LL,
  419   [DialysisT reatmentCo unt] [smal lint] NULL ,
  420   [DialysisT ypeSID] [i nt] NULL,
  421   [Specialty SID] [int]  NULL,
  422   [DialysisT ypeIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  423   [ICDProced ureIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  424   [PatientIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  425   [Specialty IEN] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  426   [ETLBatchI D] [int] N ULL,
  427   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  428   [VistaCrea teDate] [d atetime] N ULL,
  429   [VistaEdit Date] [dat etime] NUL L,
  430   [StdRegist ryId] [int ] NULL,
  431   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  432   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  433   [Created]  [datetime]  NULL,
  434   [UPDATED]  [datetime]  NULL
  435   )
  436   GO
  437   IF @@ERROR  <> 0 SET  NOEXEC ON
  438   GO
  439   PRINT N'Cr eating ind ex [NonClu steredInde x-PatSid-E TLid] on [ CRS].[INPA T_INPATIEN TICDPROCED URE]'
  440   GO
  441   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-PatSid -ETLid' AN D object_i d = OBJECT _ID(N'[CRS ].[INPAT_I NPATIENTIC DPROCEDURE ]'))
  442   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-PatSi d-ETLid] O N [CRS].[I NPAT_INPAT IENTICDPRO CEDURE] ([ PatientSID ], [ETLBat chID], [In patientICD ProcedureS ID])
  443   GO
  444   IF @@ERROR  <> 0 SET  NOEXEC ON
  445   GO
  446   PRINT N'Cr eating ind ex [NonClu steredInde x-PatSid-D ialSid] on  [CRS].[IN PAT_INPATI ENTICDPROC EDURE]'
  447   GO
  448   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-PatSid -DialSid'  AND object _id = OBJE CT_ID(N'[C RS].[INPAT _INPATIENT ICDPROCEDU RE]'))
  449   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-PatSi d-DialSid]  ON [CRS]. [INPAT_INP ATIENTICDP ROCEDURE]  ([PatientS ID], [Dial ysisTypeSI D])
  450   GO
  451   IF @@ERROR  <> 0 SET  NOEXEC ON
  452   GO
  453   PRINT N'Cr eating ind ex [NonClu steredInde x-DialSid]  on [CRS]. [INPAT_INP ATIENTICDP ROCEDURE]'
  454   GO
  455   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-DialSi d' AND obj ect_id = O BJECT_ID(N '[CRS].[IN PAT_INPATI ENTICDPROC EDURE]'))
  456   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-DialS id] ON [CR S].[INPAT_ INPATIENTI CDPROCEDUR E] ([Dialy sisTypeSID ])
  457   GO
  458   IF @@ERROR  <> 0 SET  NOEXEC ON
  459   GO
  460   PRINT N'Cr eating [CR S].[INPAT_ CENSUSICDP ROCEDURE]'
  461   GO
  462   IF OBJECT_ ID(N'[CRS] .[INPAT_CE NSUSICDPRO CEDURE]',  'U') IS NU LL
  463   CREATE TAB LE [CRS].[ INPAT_CENS USICDPROCE DURE]
  464   (
  465   [CensusICD ProcedureS ID] [bigin t] NULL,
  466   [PTFIEN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  467   [PTFChild_ 45_05IEN]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  468   [OrdinalNu mber] [sma llint] NUL L,
  469   [Sta3n] [s mallint] N ULL,
  470   [CensusSID ] [bigint]  NULL,
  471   [PatientSI D] [int] N ULL,
  472   [ParentFee BasisFlag]  [char] (1 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  473   [AdmitDate Time] [dat etime2] NU LL,
  474   [AdmitVist aErrorDate ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  475   [AdmitDate TimeTransf ormSID] [b igint] NUL L,
  476   [AdmitDate SID] [int]  NULL,
  477   [CensusDat eTime] [da tetime2] N ULL,
  478   [CensusVis taErrorDat e] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  479   [CensusDat eTimeTrans formSID] [ bigint] NU LL,
  480   [CensusDat eSID] [int ] NULL,
  481   [ICD9Proce dureSID] [ int] NULL,
  482   [ICD10Proc edureSID]  [int] NULL ,
  483   [ICDProced ureDateTim e] [dateti me2] NULL,
  484   [ICDProced ureVistaEr rorDate] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  485   [ICDProced ureDateTim eTransform SID] [bigi nt] NULL,
  486   [ICDProced ureDateSID ] [int] NU LL,
  487   [DialysisT reatmentCo unt] [smal lint] NULL ,
  488   [DialysisT ypeSID] [i nt] NULL,
  489   [Specialty SID] [int]  NULL,
  490   [DialysisT ypeIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  491   [ICDProced ureIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  492   [PatientIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  493   [Specialty IEN] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  494   [ETLBatchI D] [int] N ULL,
  495   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  496   [VistaCrea teDate] [d atetime] N ULL,
  497   [VistaEdit Date] [dat etime] NUL L,
  498   [StdRegist ryId] [int ] NULL,
  499   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  500   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  501   [Created]  [datetime]  NULL,
  502   [UPDATED]  [datetime]  NULL
  503   )
  504   GO
  505   IF @@ERROR  <> 0 SET  NOEXEC ON
  506   GO
  507   PRINT N'Cr eating ind ex [NonClu steredInde x-SID-ETLi d] on [CRS ].[INPAT_C ENSUSICDPR OCEDURE]'
  508   GO
  509   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-SID-ET Lid' AND o bject_id =  OBJECT_ID (N'[CRS].[ INPAT_CENS USICDPROCE DURE]'))
  510   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-SID-E TLid] ON [ CRS].[INPA T_CENSUSIC DPROCEDURE ] ([Census ICDProcedu reSID], [E TLBatchID] )
  511   GO
  512   IF @@ERROR  <> 0 SET  NOEXEC ON
  513   GO
  514   PRINT N'Cr eating ind ex [NonClu steredInde x-PatSid-E TLid] on [ CRS].[INPA T_CENSUSIC DPROCEDURE ]'
  515   GO
  516   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-PatSid -ETLid' AN D object_i d = OBJECT _ID(N'[CRS ].[INPAT_C ENSUSICDPR OCEDURE]') )
  517   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-PatSi d-ETLid] O N [CRS].[I NPAT_CENSU SICDPROCED URE] ([Pat ientSID],  [DialysisT ypeSID])
  518   GO
  519   IF @@ERROR  <> 0 SET  NOEXEC ON
  520   GO
  521   PRINT N'Cr eating [CR S].[Dialys isType]'
  522   GO
  523   IF OBJECT_ ID(N'[CRS] .[Dialysis Type]', 'U ') IS NULL
  524   CREATE TAB LE [CRS].[ DialysisTy pe]
  525   (
  526   [DialysisT ypeSID] [i nt] NULL,
  527   [DialysisT ypeIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  528   [Sta3n] [s mallint] N ULL,
  529   [DialysisT ypeDescrip tion] [var char] (255 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  530   [DialysisT ypeCode] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  531   [ETLBatchI D] [int] N ULL,
  532   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  533   [VistaCrea teDate] [d atetime] N ULL,
  534   [VistaEdit Date] [dat etime] NUL L,
  535   [StdRegist ryId] [int ] NULL,
  536   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  537   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  538   [Created]  [datetime]  NULL,
  539   [UPDATED]  [datetime]  NULL
  540   )
  541   GO
  542   IF @@ERROR  <> 0 SET  NOEXEC ON
  543   GO
  544   PRINT N'Cr eating ind ex [Cluste redIndex-S id] on [CR S].[Dialys isType]'
  545   GO
  546   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'Clus teredIndex -Sid' AND  object_id  = OBJECT_I D(N'[CRS]. [DialysisT ype]'))
  547   CREATE CLU STERED IND EX [Cluste redIndex-S id] ON [CR S].[Dialys isType] ([ DialysisTy peSID], [E TLBatchID] )
  548   GO
  549   IF @@ERROR  <> 0 SET  NOEXEC ON
  550   GO
  551   PRINT N'Cr eating ind ex [NonClu steredInde x-Sid-Type ] on [CRS] .[Dialysis Type]'
  552   GO
  553   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-Sid-Ty pe' AND ob ject_id =  OBJECT_ID( N'[CRS].[D ialysisTyp e]'))
  554   CREATE UNI QUE NONCLU STERED IND EX [NonClu steredInde x-Sid-Type ] ON [CRS] .[Dialysis Type] ([Di alysisType SID], [Dia lysisTypeD escription ])
  555   GO
  556   IF @@ERROR  <> 0 SET  NOEXEC ON
  557   GO
  558   PRINT N'Cr eating ind ex [NonClu steredInde x-] on [CR S].[Dialys isType]'
  559   GO
  560   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-' AND  object_id  = OBJECT_I D(N'[CRS]. [DialysisT ype]'))
  561   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-] ON  [CRS].[Dia lysisType]  ([Dialysi sTypeDescr iption])
  562   GO
  563   IF @@ERROR  <> 0 SET  NOEXEC ON
  564   GO
  565   PRINT N'Cr eating [CR S].[usp_HE MODIALYSIS ]'
  566   GO
  567   IF OBJECT_ ID(N'[CRS] .[usp_HEMO DIALYSIS]' , 'P') IS  NULL
  568   EXEC sp_ex ecutesql N '
  569     CREATE P ROC [CRS]. [usp_HEMOD IALYSIS] A S   
  570     /*
  571     Created  by: WAL
  572     DATE: 02 /15/2018
  573     RTC#3623 51
  574     */
  575               SELECT 
  576          DIS TINCT
  577               ISNULL(c. PatientSid ,d.Patient Sid) AS Pa tientSid
  578              ,b.Patient FirstName
  579              ,b.Patient LastName
  580              ,b.ScrSSN
  581              ,b.DateofD eath
  582         ,a.[ DialysisTy peSID]
  583         ,a.[ DialysisTy peDescript ion]
  584         ,a.[ DialysisTy peCode]
  585              ,c.[AdmitD ateTime]
  586         ,c.[ DischargeD ateTime]
  587              ,c.[AdmitV istaErrorD ate]
  588         ,c.[ DIschargeV istaErrorD ate]
  589   FROM [CRS] .[CRS].[Di alysisType ] AS a
  590   LEFT JOIN  CRS.[CRS]. [INPAT_INP ATIENTICDP ROCEDURE]   AS c ON c .DialysisT ypeSID = a .DialysisT ypeSID
  591              AND c.pati entsid IS  NOT NULL 
  592   LEFT JOIN  CRS.[CRS]. [INPAT_CEN SUSICDPROC EDURE] AS  d ON d.Dia lysisTypeS ID = a.Dia lysisTypeS ID
  593              AND d.pati entsid IS  NOT NULL
  594   INNER JOIN  CRS.SPATI ENT AS b O N c.patien tsid = b.p atientsid 
  595   WHERE a.di alysistype descriptio n LIKE ''% hemodialys is%''
  596   ORDER BY   patientsid ,c.AdmitDa teTime DES C
  597  
  598  
  599  
  600   '
  601   GO
  602   IF @@ERROR  <> 0 SET  NOEXEC ON
  603   GO
  604   PRINT N'Cr eating [CR S].[usp_PE RITONEAL]'
  605   GO
  606   IF OBJECT_ ID(N'[CRS] .[usp_PERI TONEAL]',  'P') IS NU LL
  607   EXEC sp_ex ecutesql N '  CREATE  PROC [CRS] .[usp_PERI TONEAL] AS    
  608     /*
  609     Created  by: WAL
  610     DATE: 02 /15/2018
  611     RTC#
  612     */
  613               SELECT 
  614          DIS TINCT
  615              ISNULL(c.P atientSid, d.PatientS id) AS Pat ientSid
  616              ,b.Patient FirstName
  617              ,b.Patient LastName
  618              ,b.ScrSSN
  619              ,b.DateofD eath
  620         ,a.[ DialysisTy peSID]
  621         ,a.[ DialysisTy peDescript ion]
  622         ,a.[ DialysisTy peCode]
  623              ,c.[AdmitD ateTime]
  624         ,c.[ DischargeD ateTime]
  625              ,c.[AdmitV istaErrorD ate]
  626         ,c.[ DIschargeV istaErrorD ate]
  627   FROM [CRS] .[CRS].[Di alysisType ] AS a
  628   LEFT JOIN  CRS.[CRS]. [INPAT_INP ATIENTICDP ROCEDURE]   AS c ON c .DialysisT ypeSID = a .DialysisT ypeSID
  629              AND c.pati entsid IS  NOT NULL 
  630   LEFT JOIN  CRS.[CRS]. [INPAT_CEN SUSICDPROC EDURE] AS  d ON d.Dia lysisTypeS ID = a.Dia lysisTypeS ID
  631              AND d.pati entsid IS  NOT NULL
  632   INNER JOIN  CRS.SPATI ENT AS b O N c.patien tsid = b.p atientsid  OR  d.pati entsid = b .patientsi d
  633   WHERE a.di alysistype descriptio n LIKE ''% PERITONEAL %''
  634         
  635   ORDER BY   patientsid ,c.AdmitDa teTime DES C
  636  
  637  
  638   '
  639   GO
  640   IF @@ERROR  <> 0 SET  NOEXEC ON
  641   GO
  642   PRINT N'Cr eating [CR S].[Patien t_Master]'
  643   GO
  644   IF OBJECT_ ID(N'[CRS] .[Patient_ Master]',  'U') IS NU LL
  645   CREATE TAB LE [CRS].[ Patient_Ma ster]
  646   (
  647   [PatientIC N] [varcha r] (20) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NOT N ULL,
  648   [PatientID ] [bigint]  NULL,
  649   [PK_ID] [i nt] NULL,
  650   [PatientSI D] [int] N ULL
  651   )
  652   GO
  653   IF @@ERROR  <> 0 SET  NOEXEC ON
  654   GO
  655   PRINT N'Cr eating pri mary key [ PK_Patient _Master] o n [CRS].[P atient_Mas ter]'
  656   GO
  657   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'PK_P atient_Mas ter' AND o bject_id =  OBJECT_ID (N'[CRS].[ Patient_Ma ster]'))
  658   ALTER TABL E [CRS].[P atient_Mas ter] ADD C ONSTRAINT  [PK_Patien t_Master]  PRIMARY KE Y CLUSTERE D  ([Patie ntICN])
  659   GO
  660   IF @@ERROR  <> 0 SET  NOEXEC ON
  661   GO
  662   PRINT N'Cr eating ind ex [idx_CR S_Patient_ Master_PKI D] on [CRS ].[Patient _Master]'
  663   GO
  664   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'idx_ CRS_Patien t_Master_P KID' AND o bject_id =  OBJECT_ID (N'[CRS].[ Patient_Ma ster]'))
  665   CREATE NON CLUSTERED  INDEX [idx _CRS_Patie nt_Master_ PKID] ON [ CRS].[Pati ent_Master ] ([PK_ID] ) INCLUDE  ([PatientI CN])
  666   GO
  667   IF @@ERROR  <> 0 SET  NOEXEC ON
  668   GO
  669   PRINT N'Cr eating [CR S].[usp_RE FERRAL_get itemsCommo nByRegistr y_Test]'
  670   GO
  671   IF OBJECT_ ID(N'[CRS] .[usp_REFE RRAL_getit emsCommonB yRegistry_ Test]', 'P ') IS NULL
  672   EXEC sp_ex ecutesql N '
  673  
  674  
  675   -- ======= ========== ========== ========== ========
  676   -- Author:         
  677   -- Create  date:   12 /28/2015
  678   -- Descrip tion:   Ge t all reco rds by Reg istry and  Status
  679   ---                Up dated Stor ed Procedu re to Disp lay either  Zip or Po stalCode f rom SPATIE NT table.
  680   -- ======= ========== ========== ========== ========
  681   CREATE PRO CEDURE [CR S].[usp_RE FERRAL_get itemsCommo nByRegistr y_Test] (
  682   @CURRENT_U SER varcha r(30)
  683   , @CURRENT _REGISTRY_ ID int
  684   , @SEARCH_ COLUMN var char(100)  = ''''
  685   , @SEARCH_ TEXT varch ar(100) =  ''''
  686   , @SORT_EX PRESSION v archar(100 ) = ''''
  687   , @START_R OW int = 1
  688   , @MAX_ROW S int = 10 )
  689   AS
  690   BEGIN
  691   --drop tab le #temppa tient
  692   --create t able #temp patient (s tdregistry id int,pat ienticn va rchar(12), pk_id int  )
  693   --Create C lustered i ndex IDX_P KID_TEMP o n #temppat ient (stdr egistryid,  patientic n,pk_id);
  694   --INSERT # temppatien t
  695   --select s tdregistry id,patient icn,max(pk _id) pk_id
  696   --from crs .spatient
  697   --where st dregistryi d  = 5--@C URRENT_REG ISTRY_ID
  698   --group by  stdregist ryid,patie nticn
  699   --select *  from #tem ppatient
  700  
  701                                                                                  --order  by stdregi stryid,pat ienticn,pk _id)
  702  
  703           --  SET NOCOU NT ON adde d to preve nt extra r esult sets  from
  704           --  interferi ng with SE LECT state ments.
  705           SE T NOCOUNT  ON;
  706  
  707           DE CLARE @Err orMsg varc har(max);
  708  
  709           IF  ([CRS].[V alidateUse r](@CURREN T_USER, @C URRENT_REG ISTRY_ID)  = 0)
  710           BE GIN
  711                    SET  @ErrorMsg  = ''User i s not auth orized to  perform th is action. '';
  712                    EXEC  [CRS].[In sDBLog] @C URRENT_REG ISTRY_ID,  0, ''CRS.u sp_REFERRA L_getitems ByRegistry Status'',  @ErrorMsg,  ''User is  not part  of this Re gistry'',  @CURRENT_U SER
  713                    SELE CT @ErrorM sg as [Err orMsg];
  714                    RETU RN
  715           EN D
  716  
  717           IF  (@START_R OW = 0)
  718                    SET  @START_ROW  = 1;
  719  
  720           IF  (LTRIM(RT RIM(@SEARC H_TEXT)) =  '''')
  721                    SET  @SEARCH_CO LUMN = ''' ';
  722  
  723           DE CLARE @Ref erralTable 1 TABLE 
  724           (
  725                    [REF ERRAL_PROV IDER_ID] i nt
  726                    ,[RE FERRAL_REF ERRAL_DATE ] datetime
  727                    ,[RE FERRAL_REF ERRAL_ID]  int
  728                    ,[RE FERRAL_PAT IENT_ID] i nt
  729                    ,[ST D_REGISTRY _NAME] var char(100)
  730                    ,[PA TIENT_BIRT H_DATE] da tetime
  731                    ,[PA TIENT_FIRS T_NAME] va rchar(50)
  732                    ,[PA TIENT_LAST _NAME] var char(50)
  733                    ,[ST D_REFERRAL STS_CODE]  varchar(50 )
  734                    ,[SP ATIENT_Cit y] varchar (50)
  735                    ,[SP ATIENT_Gen der] char( 1)
  736                    ,[SP ATIENT_Pos talCode] v archar(50)
  737                    ,[SP ATIENT_Sta te] varcha r(30)
  738                    ,[SP ATIENT_Pat ientLastFo ur] varcha r(4));
  739  
  740           -- First filt er out dup licates
  741           IN SERT INTO  @ReferralT able1 ([RE FERRAL_PRO VIDER_ID], [REFERRAL_ REFERRAL_D ATE],[REFE RRAL_REFER RAL_ID],[R EFERRAL_PA TIENT_ID], [STD_REGIS TRY_NAME], [PATIENT_B IRTH_DATE] ,[PATIENT_ FIRST_NAME ],[PATIENT _LAST_NAME ],[STD_REF ERRALSTS_C ODE],[SPAT IENT_City] ,[SPATIENT _Gender],[ SPATIENT_P ostalCode] ,[SPATIENT _State],[S PATIENT_Pa tientLastF our])
  742           SE LECT
  743                    [REF ERRAL_PROV IDER_ID]
  744                    ,[RE FERRAL_REF ERRAL_DATE ]
  745                    ,[RE FERRAL_REF ERRAL_ID]
  746                    ,[RE FERRAL_PAT IENT_ID]
  747                    ,[ST D_REGISTRY _NAME]
  748                    ,[PA TIENT_BIRT H_DATE]
  749                    ,[PA TIENT_FIRS T_NAME]
  750                    ,[PA TIENT_LAST _NAME]
  751                    ,[ST D_REFERRAL STS_CODE]
  752                    ,[SP ATIENT_Cit y]
  753                    ,[SP ATIENT_Gen der]
  754                    ,[SP ATIENT_Pos talCode]
  755                    ,[SP ATIENT_Sta te]
  756                    ,[SP ATIENT_Pat ientLastFo ur]
  757           FR OM (
  758                    SELE CT 
  759                             ROW_NU MBER() OVE R(PARTITIO N BY [CRS] .[REFERRAL ].[REFERRA L_ID] ORDE R BY [CRS] .[REFERRAL ].[REFERRA L_ID] DESC ) AS [Row]
  760                             ,[CRS] .[REFERRAL ].[PROVIDE R_ID] AS [ REFERRAL_P ROVIDER_ID ]
  761                             ,[CRS] .[REFERRAL ].[REFERRA L_DATE] AS  [REFERRAL _REFERRAL_ DATE]
  762                             ,[CRS] .[REFERRAL ].[REFERRA L_ID] AS [ REFERRAL_R EFERRAL_ID ]
  763                             ,[CRS] .[REFERRAL ].[PATIENT _ID] AS [R EFERRAL_PA TIENT_ID]
  764  
  765                             ,[CRS] .[STD_REGI STRY].[NAM E] AS [STD _REGISTRY_ NAME]
  766  
  767                             ,[CRS] .[PATIENT] .[BIRTH_DA TE] AS [PA TIENT_BIRT H_DATE]
  768                             ,[CRS] .[PATIENT] .[FIRST_NA ME] AS [PA TIENT_FIRS T_NAME]
  769                             ,[CRS] .[PATIENT] .[LAST_NAM E] AS [PAT IENT_LAST_ NAME]
  770  
  771                             ,[CRS] .[STD_REFE RRALSTS].[ CODE] AS [ STD_REFERR ALSTS_CODE ]
  772  
  773                             ,[CRS] .[SPATIENT ].[City] A S [SPATIEN T_City]
  774                             ,[CRS] .[SPATIENT ].[Gender]  AS [SPATI ENT_Gender ]
  775                             ,ISNUL L([CRS].[S PATIENT].[ PostalCode ],[CRS].[S PATIENT].[ Zip])  AS  [SPATIENT_ PostalCode ]
  776                             ,[CRS] .[SPATIENT ].[State]  AS [SPATIE NT_State]
  777                             ,RIGHT (ISNULL([C RS].[SPATI ENT].[Pati entSSN], ' '0000''),  4) AS [SPA TIENT_Pati entLastFou r]
  778                    
  779                    from  
  780                             [CRS]. [REFERRAL]
  781                             INNER  JOIN [CRS] .[STD_REGI STRY] ON [ CRS].[REFE RRAL].[STD _REGISTRY_ ID] = [CRS ].[STD_REG ISTRY].[ID ]
  782                             
  783                                      INNER JO IN [CRS].[ STD_REFERR ALSTS] ON  [CRS].[REF ERRAL].[ST D_REFERRAL STS_ID] =  [CRS].[STD _REFERRALS TS].[ID] 
  784                                      INNER JO IN [CRS].[ PATIENT] O N [CRS].[R EFERRAL].[ PATIENT_ID ] = [CRS]. [PATIENT]. [Patient_I D]
  785                                      JOIN [CR S].[Patien t_Master]  ON [CRS].[ REFERRAL]. [Patient_I D] = [CRS] .[Patient_ Master].[P atientID]
  786                                      JOIN [CR S].[sPatie nt] on [CR S].[Patien t_Master]. pk_id = [C RS].[sPati ent].pk_ID   --and [C RS].[Patie nt_Master] .PatientIC N = [CRS]. [sPatient] .PatientIC
  787                                                                                   
  788                             --INNE R JOIN #te mppatient  t on  t.[P atientICN]  = [CRS].[ PATIENT].[ PatientICN
  789                             --INNE R JOIN [CR S].[sPATIE NT] ON  t. stdregistr yid = [CRS ].[sPATIEN T].[stdreg istryid] A ND
  790                             --   t .[PatientI CN] = [CRS ].[sPATIEN T].[Patien tICN] and
  791                             --  t. pk_id = [C RS].[sPATI ENT].[pk_i d]  
  792  
  793                             --INNE R JOIN (se lect stdre gistryid,p atienticn, max(pk_id)  pk_id
  794                             --                                          from c rs.spatien t
  795                             --                                          where  stdregistr yid = @CUR RENT_REGIS TRY_ID
  796                             --                                          group  by stdregi stryid,pat ienticn) a s t on  t. [PatientIC N] = [CRS] .[PATIENT] .[PatientI CN] 
  797                             --      INNER JOI N [CRS].[s PATIENT] O N  t.stdre gistryid =   [CRS].[s PATIENT].[ stdregistr yid] AND
  798                             --         t.[Pat ientICN] =  [CRS].[sP ATIENT].[P atientICN]  and
  799                             --t.pk _id = [CRS ].[sPATIEN T].[pk_id]   
  800                    WHER
  801                             [CRS]. [REFERRAL] .[STD_REGI STRY_ID] =  @CURRENT_ REGISTRY_I D
  802                             AND (I SNULL(@SEA RCH_COLUMN , '''') =  '''' 
  803                                               OR (@SEARC H_COLUMN =  ''STD_REF ERRALSTS_C ODE'' AND  [CRS].[STD _REFERRALS TS].[CODE]  LIKE ''%' ' + @SEARC H_TEXT + ' '%'')
  804                                               OR (@SEARC H_COLUMN =  ''REFERRA L_DATE'' A ND [CRS].[ REFERRAL]. [REFERRAL_ DATE] LIKE  ''%'' + @ SEARCH_TEX T + ''%'')
  805                                               OR (@SEARC H_COLUMN =  ''PATIENT _LastFour' ' AND RIGH T(ISNULL([ CRS].[SPAT IENT].[Pat ientSSN],  ''0000''),  4) LIKE ' '%'' + @SE ARCH_TEXT  + ''%'')
  806                                               OR (@SEARC H_COLUMN =  ''PATIENT _LAST_NAME '' AND [CR S].[PATIEN T].[LAST_N AME] LIKE  ''%'' + @S EARCH_TEXT  + ''%'')
  807                                               OR (@SEARC H_COLUMN =  ''PATIENT _FIRST_NAM E'' AND [C RS].[PATIE NT].[FIRST _NAME] LIK E ''%'' +  @SEARCH_TE XT + ''%'' )
  808                                               OR (@SEARC H_COLUMN =  ''PATIENT _BIRTH_DAT E'' AND [C RS].[PATIE NT].[BIRTH _DATE] LIK E ''%'' +  @SEARCH_TE XT + ''%'' )
  809                                               OR (@SEARC H_COLUMN =  ''PATIENT _Gender''  AND [CRS]. [SPATIENT] .[Gender]  LIKE ''%''  + @SEARCH _TEXT + '' %'')
  810                                               OR (@SEARC H_COLUMN =  ''PATIENT _City'' AN D [CRS].[S PATIENT].[ City] LIKE  ''%'' + @ SEARCH_TEX T + ''%'')
  811                                               OR (@SEARC H_COLUMN =  ''PATIENT _State'' A ND [CRS].[ SPATIENT]. [State] LI KE ''%'' +  @SEARCH_T EXT + ''%' ')
  812                                               OR (@SEARC H_COLUMN =  ''PATIENT _PostalCod e'' AND IS NULL([CRS] .[SPATIENT ].[PostalC ode],[CRS] .[SPATIENT ].[Zip]) L IKE ''%''  + @SEARCH_ TEXT + ''% '')
  813                                      )
  814           )  t
  815           WH ERE t.[Row ] = 1;
  816  
  817           -- Order and  limit reco rds return ed
  818           SE LECT 
  819                    [REF ERRAL_PROV IDER_ID]
  820                    ,[RE FERRAL_REF ERRAL_DATE ]
  821                    ,[RE FERRAL_REF ERRAL_ID]
  822                    ,[RE FERRAL_PAT IENT_ID]
  823                    ,[ST D_REGISTRY _NAME]
  824                    ,[PA TIENT_BIRT H_DATE]
  825                    ,[PA TIENT_FIRS T_NAME]
  826                    ,[PA TIENT_LAST _NAME]
  827                    ,[ST D_REFERRAL STS_CODE]
  828                    ,[SP ATIENT_Cit y]
  829                    ,[SP ATIENT_Gen der]
  830                    ,[SP ATIENT_Pos talCode]
  831                    ,[SP ATIENT_Sta te]
  832                    ,[SP ATIENT_Pat ientLastFo ur] 
  833           FR OM (
  834                    SELE CT 
  835                             ROW_NU MBER() OVE R(ORDER BY  
  836                                      (CASE
  837                                               WHEN @SORT _EXPRESSIO N = ''REFE RRAL_DATE' ' THEN [RE FERRAL_REF ERRAL_DATE ]
  838                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_BIRTH_ DATE'' THE N [PATIENT _BIRTH_DAT E] 
  839                                      END) ASC
  840                                      ,(CASE
  841                                               WHEN @SORT _EXPRESSIO N = ''REFE RRAL_DATE  DESC'' THE N [REFERRA L_REFERRAL _DATE]
  842                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_BIRTH_ DATE DESC' ' THEN [PA TIENT_BIRT H_DATE] 
  843                                      END) DES C
  844                                      ,(CASE
  845                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_FIRST_ NAME'' THE N [PATIENT _FIRST_NAM E]
  846                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_LAST_N AME'' THEN  [PATIENT_ LAST_NAME]
  847                                               WHEN @SORT _EXPRESSIO N = ''STD_ REFERRALST S_CODE'' T HEN [STD_R EFERRALSTS _CODE]
  848                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_City''  THEN [SPA TIENT_City ]
  849                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_Gender '' THEN [S PATIENT_Ge nder]
  850                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_Postal Code'' THE N [SPATIEN T_PostalCo de]
  851                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_State' ' THEN [SP ATIENT_Sta te]
  852                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_LastFo ur'' THEN  [SPATIENT_ PatientLas tFour]
  853                                      END) ASC
  854                                      ,(CASE
  855                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_FIRST_ NAME DESC' ' THEN [PA TIENT_FIRS T_NAME]
  856                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_LAST_N AME DESC''  THEN [PAT IENT_LAST_ NAME]
  857                                               WHEN @SORT _EXPRESSIO N = ''STD_ REFERRALST S_CODE DES C'' THEN [ STD_REFERR ALSTS_CODE ]
  858                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_City D ESC'' THEN  [SPATIENT _City]
  859                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_Gender  DESC'' TH EN [SPATIE NT_Gender]
  860                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_Postal Code DESC' ' THEN [SP ATIENT_Pos talCode]
  861                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_State  DESC'' THE N [SPATIEN T_State]
  862                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_LastFo ur DESC''  THEN [SPAT IENT_Patie ntLastFour ]
  863                                      END) DES C) AS [Num ]
  864                             ,[REFE RRAL_PROVI DER_ID]
  865                             ,[REFE RRAL_REFER RAL_DATE]
  866                             ,[REFE RRAL_REFER RAL_ID]
  867                             ,[REFE RRAL_PATIE NT_ID]
  868                             ,[STD_ REGISTRY_N AME]
  869                             ,[PATI ENT_BIRTH_ DATE]
  870                             ,[PATI ENT_FIRST_ NAME]
  871                             ,[PATI ENT_LAST_N AME]
  872                             ,[STD_ REFERRALST S_CODE]
  873                             ,[SPAT IENT_City]
  874                             ,[SPAT IENT_Gende r]
  875                             ,[SPAT IENT_Posta lCode]
  876                             ,[SPAT IENT_State ]
  877                             ,[SPAT IENT_Patie ntLastFour
  878                    FROM  @Referral Table1
  879           )  t
  880           WH ERE t.[NUM ] >= @STAR T_ROW AND  t.[NUM] <  (@START_RO W + @MAX_R OWS);
  881  
  882   END
  883  
  884  
  885  
  886   '
  887   GO
  888   IF @@ERROR  <> 0 SET  NOEXEC ON
  889   GO
  890   PRINT N'Cr eating [CR S].[usp_PA TIENT_geti temsCommon ByRegistry _Test]'
  891   GO
  892   IF OBJECT_ ID(N'[CRS] .[usp_PATI ENT_getite msCommonBy Registry_T est]', 'P' ) IS NULL
  893   EXEC sp_ex ecutesql N '
  894  
  895   -- ======= ========== ========== ========== ========
  896   -- Author:         
  897   -- Create  date:   12 /28/2015
  898   -- Descrip tion:   Ge t all reco rds by Reg istry and  Status
  899   ---                Up dated Stor ed Procedu re to Disp lay either  Zip or Po stalCode f rom SPATIE NT table.
  900   -- ======= ========== ========== ========== ========
  901   CREATE PRO CEDURE [CR S].[usp_PA TIENT_geti temsCommon ByRegistry _Test] (
  902   @CURRENT_U SER varcha r(30)
  903   , @CURRENT _REGISTRY_ ID int
  904   , @SEARCH_ COLUMN var char(100)  = ''''
  905   , @SEARCH_ TEXT varch ar(100) =  ''''
  906   , @SORT_EX PRESSION v archar(100 ) = ''''
  907   , @START_R OW int = 1
  908   , @MAX_ROW S int = 10 )
  909   AS
  910   BEGIN
  911           --  SET NOCOU NT ON adde d to preve nt extra r esult sets  from
  912           --  interferi ng with SE LECT state ments.
  913           SE T NOCOUNT  ON;
  914  
  915           DE CLARE @Err orMsg varc har(max);
  916  
  917           IF  ([CRS].[V alidateUse r](@CURREN T_USER, @C URRENT_REG ISTRY_ID)  = 0)
  918           BE GIN
  919                    SET  @ErrorMsg  = ''User i s not auth orized to  perform th is action. '';
  920                    EXEC  [CRS].[In sDBLog] @C URRENT_REG ISTRY_ID,  0, ''CRS.u sp_PATIENT _getitemsC ommonByReg istry'', @ ErrorMsg,  ''User is  not part o f this Reg istry'', @ CURRENT_US ER
  921                    SELE CT @ErrorM sg as [Err orMsg];
  922                    RETU RN
  923           EN D
  924  
  925           IF  (@START_R OW = 0)
  926                    SET  @START_ROW  = 1;
  927  
  928           IF  (LTRIM(RT RIM(@SEARC H_TEXT)) =  '''')
  929                    SET  @SEARCH_CO LUMN = ''' ';
  930  
  931           DE CLARE @Ref erralTable 1 TABLE 
  932           (
  933                    [REF ERRAL_PROV IDER_ID] i nt
  934                    ,[RE FERRAL_REF ERRAL_DATE ] datetime
  935                    ,[RE FERRAL_REF ERRAL_ID]  int
  936                    ,[RE FERRAL_PAT IENT_ID] i nt
  937                    ,[ST D_REGISTRY _NAME] var char(100)
  938                    ,[PA TIENT_BIRT H_DATE] da tetime
  939                    ,[PA TIENT_FIRS T_NAME] va rchar(50)
  940                    ,[PA TIENT_LAST _NAME] var char(50)
  941                    ,[ST D_REFERRAL STS_CODE]  varchar(50 )
  942                    ,[SP ATIENT_Cit y] varchar (50)
  943                    ,[SP ATIENT_Gen der] char( 1)
  944                    ,[SP ATIENT_Pos talCode] v archar(50)
  945                    ,[SP ATIENT_Sta te] varcha r(30)
  946                    ,[SP ATIENT_Pat ientLastFo ur] varcha r(4));
  947  
  948           -- First filt er out dup licates
  949           IN SERT INTO  @ReferralT able1 ([RE FERRAL_PRO VIDER_ID], [REFERRAL_ REFERRAL_D ATE],[REFE RRAL_REFER RAL_ID],[R EFERRAL_PA TIENT_ID], [STD_REGIS TRY_NAME], [PATIENT_B IRTH_DATE] ,[PATIENT_ FIRST_NAME ],[PATIENT _LAST_NAME ],[STD_REF ERRALSTS_C ODE],[SPAT IENT_City] ,[SPATIENT _Gender],[ SPATIENT_P ostalCode] ,[SPATIENT _State],[S PATIENT_Pa tientLastF our])
  950           SE LECT
  951                    [REF ERRAL_PROV IDER_ID]
  952                    ,[RE FERRAL_REF ERRAL_DATE ]
  953                    ,[RE FERRAL_REF ERRAL_ID]
  954                    ,[RE FERRAL_PAT IENT_ID]
  955                    ,[ST D_REGISTRY _NAME]
  956                    ,[PA TIENT_BIRT H_DATE]
  957                    ,[PA TIENT_FIRS T_NAME]
  958                    ,[PA TIENT_LAST _NAME]
  959                    ,[ST D_REFERRAL STS_CODE]
  960                    ,[SP ATIENT_Cit y]
  961                    ,[SP ATIENT_Gen der]
  962                    ,[SP ATIENT_Pos talCode]
  963                    ,[SP ATIENT_Sta te]
  964                    ,[SP ATIENT_Pat ientLastFo ur]
  965           FR OM (
  966                    SELE CT TOP 100 0
  967                             ROW_NU MBER() OVE R(PARTITIO N BY [CRS] .[REFERRAL ].[PATIENT _ID] ORDER  BY [CRS]. [REFERRAL] .[PATIENT_ ID] DESC)  AS [Row]
  968                             ,[CRS] .[REFERRAL ].[PROVIDE R_ID] AS [ REFERRAL_P ROVIDER_ID ]
  969                             ,[CRS] .[REFERRAL ].[REFERRA L_DATE] AS  [REFERRAL _REFERRAL_ DATE]
  970                             ,[CRS] .[REFERRAL ].[REFERRA L_ID] AS [ REFERRAL_R EFERRAL_ID ]
  971                             ,[CRS] .[REFERRAL ].[PATIENT _ID] AS [R EFERRAL_PA TIENT_ID]
  972  
  973                             ,[CRS] .[STD_REGI STRY].[NAM E] AS [STD _REGISTRY_ NAME]
  974  
  975                             ,[CRS] .[PATIENT] .[BIRTH_DA TE] AS [PA TIENT_BIRT H_DATE]
  976                             ,[CRS] .[PATIENT] .[FIRST_NA ME] AS [PA TIENT_FIRS T_NAME]
  977                             ,[CRS] .[PATIENT] .[LAST_NAM E] AS [PAT IENT_LAST_ NAME]
  978  
  979                             ,[CRS] .[STD_REFE RRALSTS].[ CODE] AS [ STD_REFERR ALSTS_CODE ]
  980  
  981                             ,[CRS] .[SPATIENT ].[City] A S [SPATIEN T_City]
  982                             ,[CRS] .[SPATIENT ].[Gender]  AS [SPATI ENT_Gender ]
  983                             ,ISNUL L([CRS].[S PATIENT].[ PostalCode ],[CRS].[S PATIENT].[ Zip])  AS  [SPATIENT_ PostalCode ]
  984                             ,[CRS] .[SPATIENT ].[State]  AS [SPATIE NT_State]
  985                             ,RIGHT (ISNULL([C RS].[SPATI ENT].[Pati entSSN], ' '0000''),  4) AS [SPA TIENT_Pati entLastFou r]
  986                    FROM  
  987                             [CRS]. [REFERRAL]
  988                                      INNER JO IN [CRS].[ STD_REGIST RY] ON [CR S].[STD_RE GISTRY].[I D] = [CRS] .[REFERRAL ].[STD_REG ISTRY_ID]
  989                                      INNER JO IN [CRS].[ PATIENT] O N [CRS].[P ATIENT].[P atient_ID]  = [CRS].[ REFERRAL]. [PATIENT_I D]
  990                                      INNER JO IN [CRS].[ STD_REFERR ALSTS] ON  [CRS].[STD _REFERRALS TS].[ID] =  [CRS].[RE FERRAL].[S TD_REFERRA LSTS_ID]
  991                                      LEFT OUT ER JOIN [C RS].[sPATI ENT] ON [C RS].[sPATI ENT].[Pati entICN] =  [CRS].[PAT IENT].[Pat ientICN]
  992                    WHER
  993                             [CRS]. [REFERRAL] .[STD_REGI STRY_ID] =  @CURRENT_ REGISTRY_I D
  994                             AND (I SNULL(@SEA RCH_COLUMN , '''') =  '''' 
  995                                               OR (@SEARC H_COLUMN =  ''PATIENT _ID'' AND  [CRS].[REF ERRAL].[PA TIENT_ID]  = @SEARCH_ TEXT)
  996                                               OR (@SEARC H_COLUMN =  ''REFERRA L_ID'' AND  [CRS].[RE FERRAL].[R EFERRAL_ID ] = @SEARC H_TEXT)
  997                                               OR (@SEARC H_COLUMN =  ''PROVIDE R_ID'' AND  [CRS].[RE FERRAL].[P ROVIDER_ID ] = @SEARC H_TEXT)
  998                                               OR (@SEARC H_COLUMN =  ''STD_REF ERRALSTS_C ODE'' AND  [CRS].[STD _REFERRALS TS].[CODE]  LIKE ''%' ' + @SEARC H_TEXT + ' '%'')
  999                                               OR (@SEARC H_COLUMN =  ''REFERRA L_DATE'' A ND [CRS].[ REFERRAL]. [REFERRAL_ DATE] LIKE  ''%'' + @ SEARCH_TEX T + ''%'')
  1000                                               OR (@SEARC H_COLUMN =  ''PATIENT _LastFour' ' AND RIGH T(ISNULL([ CRS].[SPAT IENT].[Pat ientSSN],  ''0000''),  4) LIKE ' '%'' + @SE ARCH_TEXT  + ''%'')
  1001                                               OR (@SEARC H_COLUMN =  ''PATIENT _LAST_NAME '' AND [CR S].[PATIEN T].[LAST_N AME] LIKE  ''%'' + @S EARCH_TEXT  + ''%'')
  1002                                               OR (@SEARC H_COLUMN =  ''PATIENT _FIRST_NAM E'' AND [C RS].[PATIE NT].[FIRST _NAME] LIK E ''%'' +  @SEARCH_TE XT + ''%'' )
  1003                                               OR (@SEARC H_COLUMN =  ''PATIENT _BIRTH_DAT E'' AND [C RS].[PATIE NT].[BIRTH _DATE] LIK E ''%'' +  @SEARCH_TE XT + ''%'' )
  1004                                               OR (@SEARC H_COLUMN =  ''PATIENT _Gender''  AND [CRS]. [SPATIENT] .[Gender]  LIKE ''%''  + @SEARCH _TEXT + '' %'')
  1005                                               OR (@SEARC H_COLUMN =  ''PATIENT _City'' AN D [CRS].[S PATIENT].[ City] LIKE  ''%'' + @ SEARCH_TEX T + ''%'')
  1006                                               OR (@SEARC H_COLUMN =  ''PATIENT _State'' A ND [CRS].[ SPATIENT]. [State] LI KE ''%'' +  @SEARCH_T EXT + ''%' ')
  1007                                               OR (@SEARC H_COLUMN =  ''PATIENT _PostalCod e'' AND IS NULL([CRS] .[SPATIENT ].[PostalC ode],[CRS] .[SPATIENT ].[Zip]) L IKE ''%''  + @SEARCH_ TEXT + ''% '')
  1008                                      )
  1009           )  t
  1010           WH ERE t.[Row ] = 1;
  1011  
  1012           -- Order and  limit reco rds return ed
  1013           SE LECT
  1014                    [REF ERRAL_PROV IDER_ID]
  1015                    ,[RE FERRAL_REF ERRAL_DATE ]
  1016                    ,[RE FERRAL_REF ERRAL_ID]
  1017                    ,[RE FERRAL_PAT IENT_ID]
  1018                    ,[ST D_REGISTRY _NAME]
  1019                    ,[PA TIENT_BIRT H_DATE]
  1020                    ,[PA TIENT_FIRS T_NAME]
  1021                    ,[PA TIENT_LAST _NAME]
  1022                    ,[ST D_REFERRAL STS_CODE]
  1023                    ,[SP ATIENT_Cit y]
  1024                    ,[SP ATIENT_Gen der]
  1025                    ,[SP ATIENT_Pos talCode]
  1026                    ,[SP ATIENT_Sta te]
  1027                    ,[SP ATIENT_Pat ientLastFo ur] 
  1028           FR OM (
  1029                    SELE CT 
  1030                             ROW_NU MBER() OVE R(ORDER BY  
  1031                                      (CASE
  1032                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_ID'' T HEN [REFER RAL_PATIEN T_ID]
  1033                                               WHEN @SORT _EXPRESSIO N = ''REFE RRAL_ID''  THEN [REFE RRAL_REFER RAL_ID] 
  1034                                               WHEN @SORT _EXPRESSIO N = ''PROV IDER_ID''  THEN [REFE RRAL_PROVI DER_ID] 
  1035                                      END) ASC
  1036                                      ,(CASE
  1037                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_ID DES C'' THEN [ REFERRAL_P ATIENT_ID]
  1038                                               WHEN @SORT _EXPRESSIO N = ''REFE RRAL_ID DE SC'' THEN  [REFERRAL_ REFERRAL_I D] 
  1039                                               WHEN @SORT _EXPRESSIO N = ''PROV IDER_ID DE SC'' THEN  [REFERRAL_ PROVIDER_I D] 
  1040                                      END) DES C
  1041                                      ,(CASE
  1042                                               WHEN @SORT _EXPRESSIO N = ''REFE RRAL_DATE' ' THEN [RE FERRAL_REF ERRAL_DATE ]
  1043                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_BIRTH_ DATE'' THE N [PATIENT _BIRTH_DAT E] 
  1044                                      END) ASC
  1045                                      ,(CASE
  1046                                               WHEN @SORT _EXPRESSIO N = ''REFE RRAL_DATE  DESC'' THE N [REFERRA L_REFERRAL _DATE]
  1047                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_BIRTH_ DATE DESC' ' THEN [PA TIENT_BIRT H_DATE] 
  1048                                      END) DES C
  1049                                      ,(CASE
  1050                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_FIRST_ NAME'' THE N [PATIENT _FIRST_NAM E]
  1051                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_LAST_N AME'' THEN  [PATIENT_ LAST_NAME]
  1052                                               WHEN @SORT _EXPRESSIO N = ''STD_ REFERRALST S_CODE'' T HEN [STD_R EFERRALSTS _CODE]
  1053                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_City''  THEN [SPA TIENT_City ]
  1054                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_Gender '' THEN [S PATIENT_Ge nder]
  1055                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_Postal Code'' THE N [SPATIEN T_PostalCo de]
  1056                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_State' ' THEN [SP ATIENT_Sta te]
  1057                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_LastFo ur'' THEN  [SPATIENT_ PatientLas tFour]
  1058                                      END) ASC
  1059                                      ,(CASE
  1060                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_FIRST_ NAME DESC' ' THEN [PA TIENT_FIRS T_NAME]
  1061                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_LAST_N AME DESC''  THEN [PAT IENT_LAST_ NAME]
  1062                                               WHEN @SORT _EXPRESSIO N = ''STD_ REFERRALST S_CODE DES C'' THEN [ STD_REFERR ALSTS_CODE ]
  1063                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_City D ESC'' THEN  [SPATIENT _City]
  1064                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_Gender  DESC'' TH EN [SPATIE NT_Gender]
  1065                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_Postal Code DESC' ' THEN [SP ATIENT_Pos talCode]
  1066                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_State  DESC'' THE N [SPATIEN T_State]
  1067                                               WHEN @SORT _EXPRESSIO N = ''PATI ENT_LastFo ur DESC''  THEN [SPAT IENT_Patie ntLastFour ]
  1068                                      END) DES C) AS [Num ]
  1069                             ,[REFE RRAL_PROVI DER_ID]
  1070                             ,[REFE RRAL_REFER RAL_DATE]
  1071                             ,[REFE RRAL_REFER RAL_ID]
  1072                             ,[REFE RRAL_PATIE NT_ID]
  1073                             ,[STD_ REGISTRY_N AME]
  1074                             ,[PATI ENT_BIRTH_ DATE]
  1075                             ,[PATI ENT_FIRST_ NAME]
  1076                             ,[PATI ENT_LAST_N AME]
  1077                             ,[STD_ REFERRALST S_CODE]
  1078                             ,[SPAT IENT_City]
  1079                             ,[SPAT IENT_Gende r]
  1080                             ,[SPAT IENT_Posta lCode]
  1081                             ,[SPAT IENT_State ]
  1082                             ,[SPAT IENT_Patie ntLastFour
  1083                    FROM  @Referral Table1
  1084           )  t
  1085           WH ERE t.[NUM ] >= @STAR T_ROW AND  t.[NUM] <  (@START_RO W + @MAX_R OWS);
  1086  
  1087   END
  1088  
  1089  
  1090   '
  1091   GO
  1092   IF @@ERROR  <> 0 SET  NOEXEC ON
  1093   GO
  1094   PRINT N'Cr eating [CR S].[vw_Pat ient_Searc h]'
  1095   GO
  1096   IF OBJECT_ ID(N'[CRS] .[vw_Patie nt_Search] ', 'V') IS  NULL
  1097   EXEC sp_ex ecutesql N '
  1098  
  1099           Cr eate View  [CRS].[vw_ Patient_Se arch]
  1100           as
  1101           SE LECT   [PA TIENT_ICN]                             = PM .PatientIC N
  1102                             ,[PATI ENT_FIRST_ NAME]            = Lt rim(Rtrim( D.[Patient FirstName] ))
  1103                             ,[PATI ENT_LAST_N AME]             = lt rim(Rtrim( D.[Patient LastName]) )
  1104                             ,[PATI ENT_BIRTH_ DATE]            = Ca st(D.[Date OfBirth] a s date)
  1105                             ,[SPAT IENT_Gende r]                        = Ltri m(Rtrim(D. [Gender]))
  1106                             ,[SPAT IENT_Posta lCode]           = IS NULL(D.[Po stalCode], D.[Zip])
  1107                             ,[SPAT IENT_City]                           = ltri m(Rtrim(D. [CITY]))
  1108                             ,[SPAT IENT_State ]                         = ltri m(Rtrim(D. [State]))
  1109                             ,[SPAT IENT_Patie ntLastFour ]     = RI GHT(ISNULL (D.[Patien tSSN], ''0 000''), 4)
  1110           FR OM CRS.Pat ient_Maste r          as PM
  1111           JO IN [CRS].[ SPATIENT]             as D
  1112                    on P M.PK_ID =  D.PK_ID'
  1113   GO
  1114   IF @@ERROR  <> 0 SET  NOEXEC ON
  1115   GO
  1116   PRINT N'Cr eating [CR S].[STD_IC D10_Code]'
  1117   GO
  1118   IF OBJECT_ ID(N'[CRS] .[STD_ICD1 0_Code]',  'U') IS NU LL
  1119   CREATE TAB LE [CRS].[ STD_ICD10_ Code]
  1120   (
  1121   [ICD10SID]  [int] NOT  NULL,
  1122   [ICDIEN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NOT NULL,
  1123   [STA3N] [s mallint] N OT NULL,
  1124   [ICD10CODE ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  1125   [ICD10Desc ription] [ varchar] ( 255) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  1126   [DRGIDENTI FIER] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  1127   [DRGCONDIT IONCOMORBI DITYEXCLUS IONSID] [i nt] NULL,
  1128   [REPRODUCT IVESYSTEMM DC13FLAG]  [char] (1)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  1129   [MULTIPLES IGNIFICANT TRAUMAMDC2 4] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  1130   [HIVMDC25]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  1131   [EXPANDEDI CDFLAG] [c har] (1) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  1132   [UNACCEPTA BLEASPRIMA RYFLAG] [c har] (1) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  1133   [ICD10POAE XEMPTFLAG]  [char] (1 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  1134   [DRGCONDIT IONCOMORBI DITYEXCLUS IONIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  1135   [ICDCODING SYSTEMIEN]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  1136   [ETLBATCHI D] [int] N ULL,
  1137   [OPCODE] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NOT  NULL,
  1138   [VISTACREA TEDATE] [d atetime] N ULL,
  1139   [VISTAEDIT DATE] [dat etime] NUL L,
  1140   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  1141   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  1142   [Created]  [datetime]  NULL,
  1143   [Updated]  [datetime]  NULL
  1144   )
  1145   GO
  1146   IF @@ERROR  <> 0 SET  NOEXEC ON
  1147   GO
  1148   PRINT N'Cr eating ind ex [NonClu steredInde x_STD_ICD1 0Code_ICD1 0SID] on [ CRS].[STD_ ICD10_Code ]'
  1149   GO
  1150   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex_STD_IC D10Code_IC D10SID' AN D object_i d = OBJECT _ID(N'[CRS ].[STD_ICD 10_Code]') )
  1151   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex_STD_I CD10Code_I CD10SID] O N [CRS].[S TD_ICD10_C ode] ([ICD 10SID])
  1152   GO
  1153   IF @@ERROR  <> 0 SET  NOEXEC ON
  1154   GO
  1155   PRINT N'Cr eating [CR S].[COMORB IDICD10DIA GNOSISVERS ION]'
  1156   GO
  1157   IF OBJECT_ ID(N'[CRS] .[COMORBID ICD10DIAGN OSISVERSIO N]', 'U')  IS NULL
  1158   CREATE TAB LE [CRS].[ COMORBIDIC D10DIAGNOS ISVERSION]
  1159   (
  1160   [ComorbidI CD10Diagno sisVersion SID] [int]  NULL,
  1161   [ICD10SID]  [int] NUL L,
  1162   [ICDIEN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  1163   [ComorbidI CD10Diagno sisVersion IEN] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  1164   [Sta3n] [s mallint] N ULL,
  1165   [Complicat ionComorbi dity] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  1166   [PrimaryCa tegory] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  1167   [StartEffe ctiveDate]  [date] NU LL,
  1168   [StartEffe ctiveVista ErrorDate]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  1169   [StartEffe ctiveDateT ransformSI D] [bigint ] NULL,
  1170   [EndEffect iveDate] [ date] NULL ,
  1171   [EndEffect iveVistaEr rorDate] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  1172   [EndEffect iveDateTra nsformSID]  [bigint]  NULL,
  1173   [CurrentVe rsionFlag]  [char] (1 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  1174   [StdRegist ryId] [int ] NULL,
  1175   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  1176   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  1177   [Created]  [datetime]  NULL,
  1178   [Updated]  [datetime]  NULL,
  1179   [ETLBatchI D] [int] N ULL,
  1180   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  1181   [VistaCrea teDate] [d atetime] N ULL,
  1182   [VistaEdit Date] [dat etime] NUL L
  1183   )
  1184   GO
  1185   IF @@ERROR  <> 0 SET  NOEXEC ON
  1186   GO
  1187   PRINT N'Cr eating [CR S].[vw_COM ORBIDICD10 DIAGNOSIS] '
  1188   GO
  1189   IF OBJECT_ ID(N'[CRS] .[vw_COMOR BIDICD10DI AGNOSIS]',  'V') IS N ULL
  1190   EXEC sp_ex ecutesql N '
  1191   CREATE VIE W [CRS].[v w_COMORBID ICD10DIAGN OSIS] AS
  1192   SELECT 
  1193          a.[ Sta3n]
  1194         ,a.[ Complicati onComorbid ity]
  1195         ,a.[ PrimaryCat egory]
  1196              ,b.[ICD10C ODE]
  1197              ,b.[ICD10D escription ]
  1198         ,a.[ StartEffec tiveDate]
  1199         ,a.[ StartEffec tiveVistaE rrorDate]
  1200         ,a.[ StartEffec tiveDateTr ansformSID ]
  1201         ,a.[ EndEffecti veDate]
  1202         ,a.[ EndEffecti veVistaErr orDate]
  1203         ,a.[ EndEffecti veDateTran sformSID]
  1204         ,a.[ CurrentVer sionFlag]
  1205         ,a.[ VistaCreat eDate]
  1206         ,a.[ VistaEditD ate]
  1207              ,a.[ICD10S ID]
  1208     FROM [CR S].[COMORB IDICD10DIA GNOSISVERS ION] AS a
  1209     INNER JO IN [CRS].[ STD_ICD10_ CODE] AS b  ON b.ICD1 0SID = a.I CD10SID
  1210  
  1211   '
  1212   GO
  1213   IF @@ERROR  <> 0 SET  NOEXEC ON
  1214   GO
  1215   PRINT N'Cr eating [CR S].[STD_IC D9_CODE]'
  1216   GO
  1217   IF OBJECT_ ID(N'[CRS] .[STD_ICD9 _CODE]', ' U') IS NUL L
  1218   CREATE TAB LE [CRS].[ STD_ICD9_C ODE]
  1219   (
  1220   [ICD9SID]  [int] NOT  NULL,
  1221   [ICDIEN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NOT NULL,
  1222   [STA3N] [s mallint] N OT NULL,
  1223   [ICD9CODE]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  1224   [ICD9Descr iption] [v archar] (2 55) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  1225   [DRGIDENTI FIER] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  1226   [DRGCONDIT IONCOMORBI DITYEXCLUS IONSID] [i nt] NULL,
  1227   [REPRODUCT IVESYSTEMM DC13FLAG]  [char] (1)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  1228   [MULTIPLES IGNIFICANT TRAUMAMDC2 4] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  1229   [HIVMDC25]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  1230   [EXPANDEDI CDFLAG] [c har] (1) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  1231   [UNACCEPTA BLEASPRIMA RYFLAG] [c har] (1) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  1232   [DRGCONDIT IONCOMORBI DITYEXCLUS IONIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  1233   [ICDCODING SYSTEMIEN]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  1234   [ETLBATCHI D] [int] N ULL,
  1235   [OPCODE] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NOT  NULL,
  1236   [VISTACREA TEDATE] [d atetime] N ULL,
  1237   [VISTAEDIT DATE] [dat etime] NUL L,
  1238   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  1239   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  1240   [Created]  [datetime]  NULL,
  1241   [Updated]  [datetime]  NULL
  1242   )
  1243   GO
  1244   IF @@ERROR  <> 0 SET  NOEXEC ON
  1245   GO
  1246   PRINT N'Cr eating [CR S].[COMORB IDICD9DIAG NOSISVERSI ON]'
  1247   GO
  1248   IF OBJECT_ ID(N'[CRS] .[COMORBID ICD9DIAGNO SISVERSION ]', 'U') I S NULL
  1249   CREATE TAB LE [CRS].[ COMORBIDIC D9DIAGNOSI SVERSION]
  1250   (
  1251   [ComorbidI CD9Diagnos isVersionS ID] [int]  NULL,
  1252   [ICD9SID]  [int] NULL ,
  1253   [ICDIEN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  1254   [ComorbidI CD9Diagnos isVersionI EN] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  1255   [Sta3n] [s mallint] N ULL,
  1256   [Complicat ionComorbi dity] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  1257   [PrimaryCa tegory] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  1258   [StartEffe ctiveDate]  [date] NU LL,
  1259   [StartEffe ctiveVista ErrorDate]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  1260   [StartEffe ctiveDateT ransformSI D] [bigint ] NULL,
  1261   [EndEffect iveDate] [ date] NULL ,
  1262   [EndEffect iveVistaEr rorDate] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  1263   [EndEffect iveDateTra nsformSID]  [bigint]  NULL,
  1264   [CurrentVe rsionFlag]  [char] (1 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  1265   [StdRegist ryId] [int ] NULL,
  1266   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  1267   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  1268   [Created]  [datetime]  NULL,
  1269   [Updated]  [datetime]  NULL,
  1270   [ETLBatchI D] [int] N ULL,
  1271   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  1272   [VistaCrea teDate] [d atetime] N ULL,
  1273   [VistaEdit Date] [dat etime] NUL L
  1274   )
  1275   GO
  1276   IF @@ERROR  <> 0 SET  NOEXEC ON
  1277   GO
  1278   PRINT N'Cr eating [CR S].[vw_COM ORBIDICD9D IAGNOSIS]'
  1279   GO
  1280   IF OBJECT_ ID(N'[CRS] .[vw_COMOR BIDICD9DIA GNOSIS]',  'V') IS NU LL
  1281   EXEC sp_ex ecutesql N '
  1282   CREATE VIE W  [CRS].[ vw_COMORBI DICD9DIAGN OSIS] AS 
  1283   Select
  1284          a.[ Sta3n]
  1285         ,a.[ Complicati onComorbid ity]
  1286         ,a.[ PrimaryCat egory]
  1287              ,b.[ICD9CO DE]
  1288              ,b.[ICD9De scription]
  1289         ,a.[ StartEffec tiveDate]
  1290         ,a.[ StartEffec tiveVistaE rrorDate]
  1291         ,a.[ StartEffec tiveDateTr ansformSID ]
  1292         ,a.[ EndEffecti veDate]
  1293         ,a.[ EndEffecti veVistaErr orDate]
  1294         ,a.[ EndEffecti veDateTran sformSID]
  1295         ,a.[ CurrentVer sionFlag]
  1296         ,a.[ VistaCreat eDate]
  1297         ,a.[ VistaEditD ate]
  1298              ,a.[ICD9SI D]
  1299     FROM [CR S].[COMORB IDICD9DIAG NOSISVERSI ON] AS a 
  1300     INNER JO IN [CRS].[ STD_ICD9_C ODE] AS b  ON b.ICD9S ID = a.ICD 9SID 
  1301  
  1302   '
  1303   GO
  1304   IF @@ERROR  <> 0 SET  NOEXEC ON
  1305   GO
  1306   PRINT N'Cr eating [CR S].[vw_Inp atientICD1 0DIAGNOSIS ]'
  1307   GO
  1308   IF OBJECT_ ID(N'[CRS] .[vw_Inpat ientICD10D IAGNOSIS]' , 'V') IS  NULL
  1309   EXEC sp_ex ecutesql N 'CREATE VI EW  [CRS]. [vw_Inpati entICD10DI AGNOSIS] A
  1310   SELECT 
  1311          A.[ InpatientD iagnosisSI D]
  1312         ,A.[ PTFIEN]
  1313         ,A.[ Sta3n]
  1314         ,A.[ OrdinalNum ber]
  1315         ,A.[ InpatientS ID]
  1316         ,A.[ PatientSID ]
  1317         ,A.[ DischargeD ateTime]
  1318         ,A.[ DischargeV istaErrorD ate]
  1319         ,A.[ DischargeD ateTimeTra nsformSID]
  1320         ,A.[ DischargeD ateSID]
  1321         --,A .[ICD9SID]
  1322         ,A.[ ICD10SID]
  1323              ,B.[ICD10C ODE]
  1324              ,B.[ICD10D escription ]
  1325         ,A.[ ETLBatchID ]
  1326         ,A.[ OpCode]
  1327         ,A.[ VistaCreat eDate]
  1328         ,A.[ VistaEditD ate]
  1329         ,A.[ StdRegistr yId]
  1330         ,A.[ CreatedBy]
  1331         ,A.[ UpdatedBy]
  1332         ,A.[ Created]
  1333         ,A.[ Updated]
  1334     FROM 
  1335     [CRS].[I NPATIENT_D IAGNOSIS]  A
  1336     JOIN [CR S].[STD_IC D10_CODE]  B ON A.icd 10sid = B. icd10sid
  1337     WHERE B. ICD10CODE  in (
  1338   ''E11.29''
  1339   ,''I12.0''
  1340   ,''I12.9''
  1341   ,''I13.0''
  1342   ,''I13.10' '
  1343   ,''I13.11' '
  1344   ,''I13.2''
  1345   ,''I15.0''
  1346   ,''I70.1''
  1347   ,''I72.2''
  1348   ,''I77.3''
  1349   ,''I82.3''
  1350   ,''K76.7''
  1351   ,''N00.3''
  1352   ,''N00.9''
  1353   ,''N01.3''
  1354   ,''N02.2''
  1355   ,''N02.8''
  1356   ,''N03.2''
  1357   ,''N03.3''
  1358   ,''N03.5''
  1359   ,''N03.8''
  1360   ,''N03.9''
  1361   ,''N04.0''
  1362   ,''N04.3''
  1363   ,''N04.4''
  1364   ,''N04.8''
  1365   ,''N04.9''
  1366   ,''N05.2''
  1367   ,''N05.5''
  1368   ,''N05.8''
  1369   ,''N05.9''
  1370   ,''N08.''
  1371   ,''N10.''
  1372   ,''N11.9''
  1373   ,''N12.''
  1374   ,''N13.30' '
  1375   ,''N15.9''
  1376   ,''N17.0''
  1377   ,''N17.1''
  1378   ,''N17.2''
  1379   ,''N17.8''
  1380   ,''N17.9''
  1381   ,''N18.1''
  1382   ,''N18.2''
  1383   ,''N18.3''
  1384   ,''N18.4''
  1385   ,''N18.5''
  1386   ,''N18.6''
  1387   ,''N18.9''
  1388   ,''N19.''
  1389   ,''N20.0''
  1390   ,''N25.1''
  1391   ,''N25.81' '
  1392   ,''N25.89' '
  1393   ,''N26.1''
  1394   ,''N26.9''
  1395   ,''N28.1''
  1396   ,''N28.81' '
  1397   ,''N28.89' '
  1398   ,''N28.9''
  1399   ,''Q61.02' '
  1400   ,''Q61.3''
  1401   ,''Q61.5''
  1402   ,''Q61.9''
  1403   ,''Q63.8''
  1404   ,''R88.0''
  1405   ,''Z49.01' '
  1406   ,''Z49.02' '
  1407   ,''Z49.31' '
  1408   ,''Z49.32' '
  1409   ,''Z91.15' '
  1410   ,''Z94.0''
  1411   ,''Z99.2'' )'
  1412   GO
  1413   IF @@ERROR  <> 0 SET  NOEXEC ON
  1414   GO
  1415   PRINT N'Cr eating [CR S].[vw_Inp atientICD9 DIAGNOSIS] '
  1416   GO
  1417   IF OBJECT_ ID(N'[CRS] .[vw_Inpat ientICD9DI AGNOSIS]',  'V') IS N ULL
  1418   EXEC sp_ex ecutesql N 'CREATE VI EW  [CRS]. [vw_Inpati entICD9DIA GNOSIS] AS  
  1419   SELECT 
  1420          A.[ InpatientD iagnosisSI D]
  1421         ,A.[ PTFIEN]
  1422         ,A.[ Sta3n]
  1423         ,A.[ OrdinalNum ber]
  1424         ,A.[ InpatientS ID]
  1425         ,A.[ PatientSID ]
  1426         ,A.[ DischargeD ateTime]
  1427         ,A.[ DischargeV istaErrorD ate]
  1428         ,A.[ DischargeD ateTimeTra nsformSID]
  1429         ,A.[ DischargeD ateSID]
  1430         ,A.[ ICD9SID]
  1431         --,A .[ICD10SID ]
  1432              ,B.[ICD9CO DE]
  1433              ,B.[ICD9De scription]
  1434         ,A.[ ETLBatchID ]
  1435         ,A.[ OpCode]
  1436         ,A.[ VistaCreat eDate]
  1437         ,A.[ VistaEditD ate]
  1438         ,A.[ StdRegistr yId]
  1439         ,A.[ CreatedBy]
  1440         ,A.[ UpdatedBy]
  1441         ,A.[ Created]
  1442         ,A.[ Updated]
  1443     FROM 
  1444     [CRS].[I NPATIENT_D IAGNOSIS]  A
  1445     JOIN [CR S].[STD_IC D9_CODE] B  ON A.icd9 sid = B.ic d9sid
  1446     WHERE B. ICD9CODE i n (
  1447   ''016.01''
  1448   ,''016.03' '
  1449   ,''016.05' '
  1450   ,''095.4''
  1451   ,''189.0''
  1452   ,''189.9''
  1453   ,''223.0''
  1454   ,''249.41' '
  1455   ,''274.10' '
  1456   ,''283.11' '
  1457   ,''403.01' '
  1458   ,''403.91' '
  1459   ,''404.0''
  1460   ,''404.02' '
  1461   ,''404.1''
  1462   ,''404.13' '
  1463   ,''404.9''
  1464   ,''404.92' '
  1465   ,''447.3''
  1466   ,''453.3''
  1467   ,''016.00' '
  1468   ,''016.02' '
  1469   ,''016.04' '
  1470   ,''016.06' '
  1471   ,''236.91' '
  1472   ,''249.40' '
  1473   ,''250.40' '
  1474   ,''250.41' '
  1475   ,''250.42' '
  1476   ,''250.43' '
  1477   ,''271.4''
  1478   ,''403.0''
  1479   ,''403.1''
  1480   ,''403.11' '
  1481   ,''403.9''
  1482   ,''404.01' '
  1483   ,''404.03' '
  1484   ,''404.11' '
  1485   ,''404.12' '
  1486   ,''404.91' '
  1487   ,''404.93' '
  1488   ,''405.01' '
  1489   ,''440.1''
  1490   ,''442.1''
  1491   ,''572.4''
  1492   ,''580.0''
  1493   ,''580.4''
  1494   ,''580.81' '
  1495   ,''580.89' '
  1496   ,''580.9''
  1497   ,''581.0''
  1498   ,''581.1''
  1499   ,''581.2''
  1500   ,''581.3''
  1501   ,''581.81' '
  1502   ,''581.89' '
  1503   ,''581.9''
  1504   ,''582.0''
  1505   ,''582.1''
  1506   ,''582.2''
  1507   ,''582.4''
  1508   ,''582.81' '
  1509   ,''582.89' '
  1510   ,''582.9''
  1511   ,''583.0''
  1512   ,''583.1''
  1513   ,''583.2''
  1514   ,''583.4''
  1515   ,''583.6''
  1516   ,''583.7''
  1517   ,''583.81' '
  1518   ,''583.89' '
  1519   ,''583.9''
  1520   ,''584.5''
  1521   ,''584.6''
  1522   ,''584.7''
  1523   ,''584.8''
  1524   ,''584.9''
  1525   ,''585.''
  1526   ,''585.1''
  1527   ,''585.2''
  1528   ,''585.3''
  1529   ,''585.4''
  1530   ,''585.5''
  1531   ,''585.6''
  1532   ,''585.9''
  1533   ,''586.''
  1534   ,''587.''
  1535   ,''588.0''
  1536   ,''588.1''
  1537   ,''588.81' '
  1538   ,''588.89' '
  1539   ,''588.9''
  1540   ,''589.0''
  1541   ,''589.1''
  1542   ,''589.9''
  1543   ,''590.00' '
  1544   ,''590.01' '
  1545   ,''590.10' '
  1546   ,''590.11' '
  1547   ,''590.80' '
  1548   ,''590.9''
  1549   ,''591.''
  1550   ,''592.0''
  1551   ,''593.0''
  1552   ,''593.1''
  1553   ,''593.2''
  1554   ,''593.3''
  1555   ,''593.4''
  1556   ,''593.5''
  1557   ,''593.6''
  1558   ,''593.7''
  1559   ,''593.71' '
  1560   ,''593.72' '
  1561   ,''593.73' '
  1562   ,''593.81' '
  1563   ,''593.89' '
  1564   ,''593.9''
  1565   ,''642.10' '
  1566   ,''642.11' '
  1567   ,''642.12' '
  1568   ,''642.13' '
  1569   ,''642.14' '
  1570   ,''646.20' '
  1571   ,''646.21' '
  1572   ,''646.22' '
  1573   ,''646.23' '
  1574   ,''646.24' '
  1575   ,''753.0''
  1576   ,''753.1''
  1577   ,''753.11' '
  1578   ,''753.12' '
  1579   ,''753.13' '
  1580   ,''753.14' '
  1581   ,''753.15' '
  1582   ,''753.16' '
  1583   ,''753.17' '
  1584   ,''753.19' '
  1585   ,''753.2''
  1586   ,''753.21' '
  1587   ,''753.22' '
  1588   ,''753.23' '
  1589   ,''753.29' '
  1590   ,''753.3''
  1591   ,''794.4''
  1592   ,''V45.1''
  1593   ,''V45.11' '
  1594   ,''V45.12' '
  1595   ,''V56.0''
  1596   ,''V56.1''
  1597   ,''V56.8'' )'
  1598   GO
  1599   IF @@ERROR  <> 0 SET  NOEXEC ON
  1600   GO
  1601   PRINT N'Cr eating [CR S].[vw_Out PatICD9DIA GNOSIS]'
  1602   GO
  1603   IF OBJECT_ ID(N'[CRS] .[vw_OutPa tICD9DIAGN OSIS]', 'V ') IS NULL
  1604   EXEC sp_ex ecutesql N '
  1605   CREATE VIE W [CRS].[v w_OutPatIC D9DIAGNOSI S] AS 
  1606   SELECT 
  1607              A.[VDIAGNO SISSID]
  1608         ,A.[ VDIAGNOSIS IEN]
  1609         ,A.[ STA3N]
  1610         ,A.[ ICD9SID]
  1611              ,B.[ICD9CO DE]
  1612              ,B.[ICD9De scription]
  1613         --,A .[ICD10SID ]
  1614         ,A.[ PATIENTSID ]
  1615         ,A.[ VISITSID]
  1616         ,A.[ EVENTDATET IME]
  1617         ,A.[ EVENTVISTA ERRORDATE]
  1618         ,A.[ EVENTDATET IMETRANSFO RMSID]
  1619         ,A.[ VISITDATET IME]
  1620         ,A.[ VISITVISTA ERRORDATE]
  1621         ,A.[ VISITDATET IMETRANSFO RMSID]
  1622         ,A.[ VDIAGNOSIS DATETIME]
  1623         ,A.[ VDIAGNOSIS DATESID]
  1624         ,A.[ PROVIDERNA RRATIVESID ]
  1625         ,A.[ MODIFIER]
  1626         ,A.[ PRIMARYSEC ONDARY]
  1627         ,A.[ INJURYDATE TIME]
  1628         ,A.[ INJURYVIST AERRORDATE ]
  1629         ,A.[ INJURYDATE TIMETRANSF ORMSID]
  1630         ,A.[ CLINICALTE RMSID]
  1631         ,A.[ PROBLEMLIS TSID]
  1632         ,A.[ ORDERINGRE SULTING]
  1633         ,A.[ ORDERINGPR OVIDERSID]
  1634         ,A.[ ENCOUNTERP ROVIDERSID ]
  1635         ,A.[ SERVICECON NECTEDFLAG ]
  1636         ,A.[ AGENTORANG EFLAG]
  1637         ,A.[ IONIZINGRA DIATIONFLA G]
  1638         ,A.[ SWASIACOND ITIONSFLAG ]
  1639         ,A.[ MILITARYSE XUALTRAUMA FLAG]
  1640         ,A.[ HEADNECKCA NCERFLAG]
  1641         ,A.[ COMBATFLAG ]
  1642         ,A.[ SHIPBOARDH AZARDDEFEN SEFLAG]
  1643         ,A.[ EDITEDFLAG ]
  1644         ,A.[ AUDITTRAIL ]
  1645         ,A.[ CATEGORYOF PROVIDERNA RRATIVESID ]
  1646         ,A.[ COMMENTS]
  1647         ,A.[ VERIFIED]
  1648         ,A.[ VISTAPACKA GESID]
  1649         ,A.[ PCEDATASOU RCESID]
  1650         ,A.[ WORKLOADLO GICFLAG]
  1651         ,A.[ ETLBATCHID ]
  1652         ,A.[ OPCODE]
  1653         ,A.[ VISTACREAT EDATE]
  1654         ,A.[ VISTAEDITD ATE]
  1655         ,A.[ StdRegistr yId]
  1656         ,A.[ CreatedBy]
  1657         ,A.[ UpdatedBy]
  1658         ,A.[ Created]
  1659         ,A.[ Updated]
  1660     FROM [CR S].[OUTPAT _VDIAGNOSI S] A 
  1661     JOIN [CR S].[STD_IC D9_CODE] B  ON A.icd9 sid = B.ic d9sid
  1662     WHERE B. ICD9CODE i n (
  1663   ''016.01''
  1664   ,''016.03' '
  1665   ,''016.05' '
  1666   ,''095.4''
  1667   ,''189.0''
  1668   ,''189.9''
  1669   ,''223.0''
  1670   ,''249.41' '
  1671   ,''274.10' '
  1672   ,''283.11' '
  1673   ,''403.01' '
  1674   ,''403.91' '
  1675   ,''404.0''
  1676   ,''404.02' '
  1677   ,''404.1''
  1678   ,''404.13' '
  1679   ,''404.9''
  1680   ,''404.92' '
  1681   ,''447.3''
  1682   ,''453.3''
  1683   ,''016.00' '
  1684   ,''016.02' '
  1685   ,''016.04' '
  1686   ,''016.06' '
  1687   ,''236.91' '
  1688   ,''249.40' '
  1689   ,''250.40' '
  1690   ,''250.41' '
  1691   ,''250.42' '
  1692   ,''250.43' '
  1693   ,''271.4''
  1694   ,''403.0''
  1695   ,''403.1''
  1696   ,''403.11' '
  1697   ,''403.9''
  1698   ,''404.01' '
  1699   ,''404.03' '
  1700   ,''404.11' '
  1701   ,''404.12' '
  1702   ,''404.91' '
  1703   ,''404.93' '
  1704   ,''405.01' '
  1705   ,''440.1''
  1706   ,''442.1''
  1707   ,''572.4''
  1708   ,''580.0''
  1709   ,''580.4''
  1710   ,''580.81' '
  1711   ,''580.89' '
  1712   ,''580.9''
  1713   ,''581.0''
  1714   ,''581.1''
  1715   ,''581.2''
  1716   ,''581.3''
  1717   ,''581.81' '
  1718   ,''581.89' '
  1719   ,''581.9''
  1720   ,''582.0''
  1721   ,''582.1''
  1722   ,''582.2''
  1723   ,''582.4''
  1724   ,''582.81' '
  1725   ,''582.89' '
  1726   ,''582.9''
  1727   ,''583.0''
  1728   ,''583.1''
  1729   ,''583.2''
  1730   ,''583.4''
  1731   ,''583.6''
  1732   ,''583.7''
  1733   ,''583.81' '
  1734   ,''583.89' '
  1735   ,''583.9''
  1736   ,''584.5''
  1737   ,''584.6''
  1738   ,''584.7''
  1739   ,''584.8''
  1740   ,''584.9''
  1741   ,''585.''
  1742   ,''585.1''
  1743   ,''585.2''
  1744   ,''585.3''
  1745   ,''585.4''
  1746   ,''585.5''
  1747   ,''585.6''
  1748   ,''585.9''
  1749   ,''586.''
  1750   ,''587.''
  1751   ,''588.0''
  1752   ,''588.1''
  1753   ,''588.81' '
  1754   ,''588.89' '
  1755   ,''588.9''
  1756   ,''589.0''
  1757   ,''589.1''
  1758   ,''589.9''
  1759   ,''590.00' '
  1760   ,''590.01' '
  1761   ,''590.10' '
  1762   ,''590.11' '
  1763   ,''590.80' '
  1764   ,''590.9''
  1765   ,''591.''
  1766   ,''592.0''
  1767   ,''593.0''
  1768   ,''593.1''
  1769   ,''593.2''
  1770   ,''593.3''
  1771   ,''593.4''
  1772   ,''593.5''
  1773   ,''593.6''
  1774   ,''593.7''
  1775   ,''593.71' '
  1776   ,''593.72' '
  1777   ,''593.73' '
  1778   ,''593.81' '
  1779   ,''593.89' '
  1780   ,''593.9''
  1781   ,''642.10' '
  1782   ,''642.11' '
  1783   ,''642.12' '
  1784   ,''642.13' '
  1785   ,''642.14' '
  1786   ,''646.20' '
  1787   ,''646.21' '
  1788   ,''646.22' '
  1789   ,''646.23' '
  1790   ,''646.24' '
  1791   ,''753.0''
  1792   ,''753.1''
  1793   ,''753.11' '
  1794   ,''753.12' '
  1795   ,''753.13' '
  1796   ,''753.14' '
  1797   ,''753.15' '
  1798   ,''753.16' '
  1799   ,''753.17' '
  1800   ,''753.19' '
  1801   ,''753.2''
  1802   ,''753.21' '
  1803   ,''753.22' '
  1804   ,''753.23' '
  1805   ,''753.29' '
  1806   ,''753.3''
  1807   ,''794.4''
  1808   ,''V45.1''
  1809   ,''V45.11' '
  1810   ,''V45.12' '
  1811   ,''V56.0''
  1812   ,''V56.1''
  1813   ,''V56.8'' )'
  1814   GO
  1815   IF @@ERROR  <> 0 SET  NOEXEC ON
  1816   GO
  1817   PRINT N'Cr eating [CR S].[vw_Out PatICD10DI AGNOSIS]'
  1818   GO
  1819   IF OBJECT_ ID(N'[CRS] .[vw_OutPa tICD10DIAG NOSIS]', ' V') IS NUL L
  1820   EXEC sp_ex ecutesql N '
  1821   CREATE VIE W [CRS].[v w_OutPatIC D10DIAGNOS IS] AS 
  1822   SELECT 
  1823              A.[VDIAGNO SISSID]
  1824         ,A.[ VDIAGNOSIS IEN]
  1825         ,A.[ STA3N]
  1826         --,A .[ICD9SID]
  1827              ,A.[ICD10S ID]
  1828              ,B.[ICD10C ODE]
  1829              ,B.[ICD10D escription ]     
  1830         ,A.[ PATIENTSID ]
  1831         ,A.[ VISITSID]
  1832         ,A.[ EVENTDATET IME]
  1833         ,A.[ EVENTVISTA ERRORDATE]
  1834         ,A.[ EVENTDATET IMETRANSFO RMSID]
  1835         ,A.[ VISITDATET IME]
  1836         ,A.[ VISITVISTA ERRORDATE]
  1837         ,A.[ VISITDATET IMETRANSFO RMSID]
  1838         ,A.[ VDIAGNOSIS DATETIME]
  1839         ,A.[ VDIAGNOSIS DATESID]
  1840         ,A.[ PROVIDERNA RRATIVESID ]
  1841         ,A.[ MODIFIER]
  1842         ,A.[ PRIMARYSEC ONDARY]
  1843         ,A.[ INJURYDATE TIME]
  1844         ,A.[ INJURYVIST AERRORDATE ]
  1845         ,A.[ INJURYDATE TIMETRANSF ORMSID]
  1846         ,A.[ CLINICALTE RMSID]
  1847         ,A.[ PROBLEMLIS TSID]
  1848         ,A.[ ORDERINGRE SULTING]
  1849         ,A.[ ORDERINGPR OVIDERSID]
  1850         ,A.[ ENCOUNTERP ROVIDERSID ]
  1851         ,A.[ SERVICECON NECTEDFLAG ]
  1852         ,A.[ AGENTORANG EFLAG]
  1853         ,A.[ IONIZINGRA DIATIONFLA G]
  1854         ,A.[ SWASIACOND ITIONSFLAG ]
  1855         ,A.[ MILITARYSE XUALTRAUMA FLAG]
  1856         ,A.[ HEADNECKCA NCERFLAG]
  1857         ,A.[ COMBATFLAG ]
  1858         ,A.[ SHIPBOARDH AZARDDEFEN SEFLAG]
  1859         ,A.[ EDITEDFLAG ]
  1860         ,A.[ AUDITTRAIL ]
  1861         ,A.[ CATEGORYOF PROVIDERNA RRATIVESID ]
  1862         ,A.[ COMMENTS]
  1863         ,A.[ VERIFIED]
  1864         ,A.[ VISTAPACKA GESID]
  1865         ,A.[ PCEDATASOU RCESID]
  1866         ,A.[ WORKLOADLO GICFLAG]
  1867         ,A.[ ETLBATCHID ]
  1868         ,A.[ OPCODE]
  1869         ,A.[ VISTACREAT EDATE]
  1870         ,A.[ VISTAEDITD ATE]
  1871         ,A.[ StdRegistr yId]
  1872         ,A.[ CreatedBy]
  1873         ,A.[ UpdatedBy]
  1874         ,A.[ Created]
  1875         ,A.[ Updated]
  1876     FROM [CR S].[OUTPAT _VDIAGNOSI S] A 
  1877     JOIN [CR S].[STD_IC D10_CODE]  B ON A.icd 10sid = B. icd10sid
  1878       WHERE  B.ICD10COD E in (
  1879   ''E11.29''
  1880   ,''I12.0''
  1881   ,''I12.9''
  1882   ,''I13.0''
  1883   ,''I13.10' '
  1884   ,''I13.11' '
  1885   ,''I13.2''
  1886   ,''I15.0''
  1887   ,''I70.1''
  1888   ,''I72.2''
  1889   ,''I77.3''
  1890   ,''I82.3''
  1891   ,''K76.7''
  1892   ,''N00.3''
  1893   ,''N00.9''
  1894   ,''N01.3''
  1895   ,''N02.2''
  1896   ,''N02.8''
  1897   ,''N03.2''
  1898   ,''N03.3''
  1899   ,''N03.5''
  1900   ,''N03.8''
  1901   ,''N03.9''
  1902   ,''N04.0''
  1903   ,''N04.3''
  1904   ,''N04.4''
  1905   ,''N04.8''
  1906   ,''N04.9''
  1907   ,''N05.2''
  1908   ,''N05.5''
  1909   ,''N05.8''
  1910   ,''N05.9''
  1911   ,''N08.''
  1912   ,''N10.''
  1913   ,''N11.9''
  1914   ,''N12.''
  1915   ,''N13.30' '
  1916   ,''N15.9''
  1917   ,''N17.0''
  1918   ,''N17.1''
  1919   ,''N17.2''
  1920   ,''N17.8''
  1921   ,''N17.9''
  1922   ,''N18.1''
  1923   ,''N18.2''
  1924   ,''N18.3''
  1925   ,''N18.4''
  1926   ,''N18.5''
  1927   ,''N18.6''
  1928   ,''N18.9''
  1929   ,''N19.''
  1930   ,''N20.0''
  1931   ,''N25.1''
  1932   ,''N25.81' '
  1933   ,''N25.89' '
  1934   ,''N26.1''
  1935   ,''N26.9''
  1936   ,''N28.1''
  1937   ,''N28.81' '
  1938   ,''N28.89' '
  1939   ,''N28.9''
  1940   ,''Q61.02' '
  1941   ,''Q61.3''
  1942   ,''Q61.5''
  1943   ,''Q61.9''
  1944   ,''Q63.8''
  1945   ,''R88.0''
  1946   ,''Z49.01' '
  1947   ,''Z49.02' '
  1948   ,''Z49.31' '
  1949   ,''Z49.32' '
  1950   ,''Z91.15' '
  1951   ,''Z94.0''
  1952   ,''Z99.2'' )'
  1953   GO
  1954   IF @@ERROR  <> 0 SET  NOEXEC ON
  1955   GO
  1956   PRINT N'Cr eating [CR S].[Format ICD9]'
  1957   GO
  1958   IF NOT EXI STS (SELEC T 1 FROM s ys.objects  WHERE obj ect_id = O BJECT_ID(N '[CRS].[Fo rmatICD9]' ) AND (typ e = 'IF' O R type = ' FN' OR typ e = 'TF'))
  1959   EXEC sp_ex ecutesql N '
  1960  
  1961   -- ======= ========== ========== ========== ========
  1962   -- Author:                <Autho r,,Name>
  1963   -- Create  date: <Cre ate Date,  ,>
  1964   -- Descrip tion: <Des cription,  ,>
  1965   -- ======= ========== ========== ========== ========
  1966   CREATE FUN CTION [CRS ].[FormatI CD9] (@COD E varchar( 100))
  1967   RETURNS va rchar(100)
  1968   AS
  1969   BEGIN
  1970           DE CLARE @obj Return var char(100);
  1971           DE CLARE @i i nt;
  1972           DE CLARE @num 1 varchar( 100);
  1973           DE CLARE @num 2 varchar( 100);
  1974  
  1975           IF  @CODE LIK E ''%V%''
  1976                    SET  @objReturn  = REPLACE (@CODE,''. '','''');
  1977           EL SE IF @COD E LIKE ''% .%''
  1978                    BEGI N
  1979                             SET @i  = CHARIND EX(''.'',@ CODE);
  1980                             SET @n um1 = SUBS TRING(@COD E,0,@i);
  1981                             SET @n um2 = SUBS TRING(@COD E,@i+1,LEN (@CODE)-@i );
  1982  
  1983                             SET @o bjReturn =  
  1984                             (CASE 
  1985                                      WHEN LEN (@num1) =  1
  1986                                               THEN ''00' ' + @num1  + @num2
  1987                                      WHEN LEN (@num1) =  2
  1988                                               THEN ''0''  + @num1 +  @num2
  1989                                      WHEN LEN (@num1) =  3
  1990                                               THEN @num1  + @num2
  1991                             END);
  1992                    END
  1993           EL SE
  1994                    BEGI N
  1995                             SET @o bjReturn =  
  1996                             (CASE 
  1997                                      WHEN LEN (@CODE) =  1
  1998                                               THEN ''00' ' + @CODE  + ''0''
  1999                                      WHEN LEN (@CODE) =  2
  2000                                               THEN ''0''  + @CODE +  ''0''
  2001                                      WHEN LEN (@CODE) =  3
  2002                                               THEN @CODE  + ''0''
  2003                             END);
  2004                    END
  2005  
  2006           RE TURN @objR eturn;
  2007   END
  2008  
  2009  
  2010   '
  2011   GO
  2012   IF @@ERROR  <> 0 SET  NOEXEC ON
  2013   GO
  2014   PRINT N'Cr eating [CR S].[GetAge ByDate]'
  2015   GO
  2016   IF NOT EXI STS (SELEC T 1 FROM s ys.objects  WHERE obj ect_id = O BJECT_ID(N '[CRS].[Ge tAgeByDate ]') AND (t ype = 'IF'  OR type =  'FN' OR t ype = 'TF' ))
  2017   EXEC sp_ex ecutesql N '
  2018  
  2019   -- ======= ========== ========== ========== ========
  2020   -- Author:                <Autho r,,Name>
  2021   -- Create  date: <Cre ate Date,  ,>
  2022   -- Descrip tion: <Des cription,  ,>
  2023   -- ======= ========== ========== ========== ========
  2024   CREATE FUN CTION [CRS ].[GetAgeB yDate] (@B irthDate d ate)
  2025   RETURNS in t
  2026   AS
  2027   BEGIN
  2028           DE CLARE @obj Return int ;
  2029  
  2030           SE LECT @objR eturn = (C ONVERT(int ,CONVERT(c har(8),CUR RENT_TIMES TAMP,112)) -CONVERT(c har(8),@Bi rthDate,11 2))/10000
  2031  
  2032           RE TURN @objR eturn;
  2033   END
  2034  
  2035  
  2036   '
  2037   GO
  2038   IF @@ERROR  <> 0 SET  NOEXEC ON
  2039   GO
  2040   PRINT N'Cr eating [CR S].[ICD10_ ICD9_XREF] '
  2041   GO
  2042   IF OBJECT_ ID(N'[CRS] .[ICD10_IC D9_XREF]',  'U') IS N ULL
  2043   CREATE TAB LE [CRS].[ ICD10_ICD9 _XREF]
  2044   (
  2045   [ICD10] [n varchar] ( 255) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2046   [ICD9] [nv archar] (2 55) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2047   [FLAGS] [n varchar] ( 255) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL
  2048   )
  2049   GO
  2050   IF @@ERROR  <> 0 SET  NOEXEC ON
  2051   GO
  2052   PRINT N'Cr eating [CR S].[ICD9_I CD10_XREF] '
  2053   GO
  2054   IF OBJECT_ ID(N'[CRS] .[ICD9_ICD 10_XREF]',  'U') IS N ULL
  2055   CREATE TAB LE [CRS].[ ICD9_ICD10 _XREF]
  2056   (
  2057   [ICD9] [nv archar] (2 55) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2058   [ICD10] [n varchar] ( 255) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2059   [FLAGS] [n varchar] ( 255) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL
  2060   )
  2061   GO
  2062   IF @@ERROR  <> 0 SET  NOEXEC ON
  2063   GO
  2064   PRINT N'Cr eating [CR S].[PATIEN T_CPT]'
  2065   GO
  2066   IF OBJECT_ ID(N'[CRS] .[PATIENT_ CPT]', 'U' ) IS NULL
  2067   CREATE TAB LE [CRS].[ PATIENT_CP T]
  2068   (
  2069   [PATIENTSI D] [int] N ULL,
  2070   [CPTSID] [ int] NULL,
  2071   [CPTCODE]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2072   [CPTName]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2073   [CPTDescri ption] [va rchar] (80 00) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2074   [CPTCatego ry] [varch ar] (100)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2075   [MajorCPTC ategory] [ varchar] ( 100) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2076   [StdRegist ryId] [int ] NULL,
  2077   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2078   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2079   [Created]  [datetime]  NULL,
  2080   [Updated]  [datetime]  NULL
  2081   )
  2082   GO
  2083   IF @@ERROR  <> 0 SET  NOEXEC ON
  2084   GO
  2085   PRINT N'Cr eating ind ex [indx-P atSid] on  [CRS].[PAT IENT_CPT]'
  2086   GO
  2087   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'indx -PatSid' A ND object_ id = OBJEC T_ID(N'[CR S].[PATIEN T_CPT]'))
  2088   CREATE NON CLUSTERED  INDEX [ind x-PatSid]  ON [CRS].[ PATIENT_CP T] ([PATIE NTSID])
  2089   GO
  2090   IF @@ERROR  <> 0 SET  NOEXEC ON
  2091   GO
  2092   PRINT N'Cr eating ind ex [indx-P atSid-CPTS ID] on [CR S].[PATIEN T_CPT]'
  2093   GO
  2094   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'indx -PatSid-CP TSID' AND  object_id  = OBJECT_I D(N'[CRS]. [PATIENT_C PT]'))
  2095   CREATE NON CLUSTERED  INDEX [ind x-PatSid-C PTSID] ON  [CRS].[PAT IENT_CPT]  ([PATIENTS ID], [CPTS ID])
  2096   GO
  2097   IF @@ERROR  <> 0 SET  NOEXEC ON
  2098   GO
  2099   PRINT N'Cr eating [CR S].[PATIEN T_H]'
  2100   GO
  2101   IF OBJECT_ ID(N'[CRS] .[PATIENT_ H]', 'U')  IS NULL
  2102   CREATE TAB LE [CRS].[ PATIENT_H]
  2103   (
  2104   [Audit_Pat ient_H_ID]  [int] NOT  NULL IDEN TITY(1, 1) ,
  2105   [Audit_Dat e] [dateti me] NULL,
  2106   [Audit_Typ e] [varcha r] (20) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2107   [Audit_App licationUs er] [varch ar] (128)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2108   [Audit_SQL User] [var char] (100 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2109   [PATIENT_I D] [int] N ULL,
  2110   [FIRST_NAM E] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2111   [MIDDLE_NA ME] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2112   [LAST_NAME ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2113   [EMAIL_ADD RESS] [var char] (128 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2114   [BIRTH_DAT E] [date]  NULL,
  2115   [DEATH_DAT E] [date]  NULL,
  2116   [CELL_PHON E] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2117   [PERFERRED _ADDRESS_T YPE] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2118   [CREATEDBY ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2119   [CREATED]  [datetime]  NULL,
  2120   [UPDATEDBY ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2121   [UPDATED]  [datetime]  NULL,
  2122   [OEFOIF_IN D] [bit] N ULL,
  2123   [PatientIC N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2124   [PATIENTSI D] [int] N ULL,
  2125   [STA3N] [s mallint] N ULL
  2126   )
  2127   GO
  2128   IF @@ERROR  <> 0 SET  NOEXEC ON
  2129   GO
  2130   PRINT N'Cr eating pri mary key [ PK_PATIENT _H] on [CR S].[PATIEN T_H]'
  2131   GO
  2132   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'PK_P ATIENT_H'  AND object _id = OBJE CT_ID(N'[C RS].[PATIE NT_H]'))
  2133   ALTER TABL E [CRS].[P ATIENT_H]  ADD CONSTR AINT [PK_P ATIENT_H]  PRIMARY KE Y CLUSTERE D  ([Audit _Patient_H _ID])
  2134   GO
  2135   IF @@ERROR  <> 0 SET  NOEXEC ON
  2136   GO
  2137   PRINT N'Cr eating [CR S].[PATIEN T_ICD10]'
  2138   GO
  2139   IF OBJECT_ ID(N'[CRS] .[PATIENT_ ICD10]', ' U') IS NUL L
  2140   CREATE TAB LE [CRS].[ PATIENT_IC D10]
  2141   (
  2142   [PATIENTSI D] [int] N ULL,
  2143   [ICD10SID]  [int] NUL L,
  2144   [ICD10CODE ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2145   [ICD10Desc ription] [ varchar] ( 255) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2146   [StdRegist ryId] [int ] NULL,
  2147   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2148   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2149   [Created]  [datetime]  NULL,
  2150   [Updated]  [datetime]  NULL
  2151   )
  2152   GO
  2153   IF @@ERROR  <> 0 SET  NOEXEC ON
  2154   GO
  2155   PRINT N'Cr eating ind ex [indx_P atSid] on  [CRS].[PAT IENT_ICD10 ]'
  2156   GO
  2157   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'indx _PatSid' A ND object_ id = OBJEC T_ID(N'[CR S].[PATIEN T_ICD10]') )
  2158   CREATE NON CLUSTERED  INDEX [ind x_PatSid]  ON [CRS].[ PATIENT_IC D10] ([PAT IENTSID])
  2159   GO
  2160   IF @@ERROR  <> 0 SET  NOEXEC ON
  2161   GO
  2162   PRINT N'Cr eating ind ex [indx_P atSid_ICD1 0] on [CRS ].[PATIENT _ICD10]'
  2163   GO
  2164   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'indx _PatSid_IC D10' AND o bject_id =  OBJECT_ID (N'[CRS].[ PATIENT_IC D10]'))
  2165   CREATE NON CLUSTERED  INDEX [ind x_PatSid_I CD10] ON [ CRS].[PATI ENT_ICD10]  ([PATIENT SID], [ICD 10CODE])
  2166   GO
  2167   IF @@ERROR  <> 0 SET  NOEXEC ON
  2168   GO
  2169   PRINT N'Cr eating [CR S].[PATIEN T_ICD9]'
  2170   GO
  2171   IF OBJECT_ ID(N'[CRS] .[PATIENT_ ICD9]', 'U ') IS NULL
  2172   CREATE TAB LE [CRS].[ PATIENT_IC D9]
  2173   (
  2174   [PATIENTSI D] [int] N ULL,
  2175   [ICD9SID]  [int] NULL ,
  2176   [ICD9CODE]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2177   [ICD9Descr iption] [v archar] (2 55) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2178   [StdRegist ryId] [int ] NULL,
  2179   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2180   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2181   [Created]  [datetime]  NULL,
  2182   [Updated]  [datetime]  NULL
  2183   )
  2184   GO
  2185   IF @@ERROR  <> 0 SET  NOEXEC ON
  2186   GO
  2187   PRINT N'Cr eating ind ex [indx_P atSid] on  [CRS].[PAT IENT_ICD9] '
  2188   GO
  2189   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'indx _PatSid' A ND object_ id = OBJEC T_ID(N'[CR S].[PATIEN T_ICD9]'))
  2190   CREATE NON CLUSTERED  INDEX [ind x_PatSid]  ON [CRS].[ PATIENT_IC D9] ([PATI ENTSID])
  2191   GO
  2192   IF @@ERROR  <> 0 SET  NOEXEC ON
  2193   GO
  2194   PRINT N'Cr eating ind ex [indx_P atSid_ICD9 ] on [CRS] .[PATIENT_ ICD9]'
  2195   GO
  2196   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'indx _PatSid_IC D9' AND ob ject_id =  OBJECT_ID( N'[CRS].[P ATIENT_ICD 9]'))
  2197   CREATE NON CLUSTERED  INDEX [ind x_PatSid_I CD9] ON [C RS].[PATIE NT_ICD9] ( [PATIENTSI D], [ICD9C ODE])
  2198   GO
  2199   IF @@ERROR  <> 0 SET  NOEXEC ON
  2200   GO
  2201   PRINT N'Cr eating [CR S].[PATIEN T_PROVIDER ]'
  2202   GO
  2203   IF OBJECT_ ID(N'[CRS] .[PATIENT_ PROVIDER]' , 'U') IS  NULL
  2204   CREATE TAB LE [CRS].[ PATIENT_PR OVIDER]
  2205   (
  2206   [ID] [int]  NOT NULL  IDENTITY(1 , 1),
  2207   [PROVIDER_ ID] [int]  NULL,
  2208   [STAFFSID]  [int] NOT  NULL,
  2209   [STAFFIEN]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NOT NUL L,
  2210   [STA3N] [s mallint] N OT NULL,
  2211   [PATIENTSI D] [int] N OT NULL,
  2212   [PATIENTIC N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2213   [CREATEDBY ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2214   [UPDATEDBY ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2215   [CREATED]  [datetime]  NULL,
  2216   [UPDATED]  [datetime]  NULL
  2217   )
  2218   WITH
  2219   (
  2220   DATA_COMPR ESSION = P AGE
  2221   )
  2222   GO
  2223   IF @@ERROR  <> 0 SET  NOEXEC ON
  2224   GO
  2225   PRINT N'Cr eating ind ex [Cluste redIndex-P atSid-Sid- SIEN-STA]  on [CRS].[ PATIENT_PR OVIDER]'
  2226   GO
  2227   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'Clus teredIndex -PatSid-Si d-SIEN-STA ' AND obje ct_id = OB JECT_ID(N' [CRS].[PAT IENT_PROVI DER]'))
  2228   CREATE UNI QUE CLUSTE RED INDEX  [Clustered Index-PatS id-Sid-SIE N-STA] ON  [CRS].[PAT IENT_PROVI DER] ([PAT IENTSID],  [STAFFSID] , [STAFFIE N], [STA3N ]) WITH (D ATA_COMPRE SSION = PA GE)
  2229   GO
  2230   IF @@ERROR  <> 0 SET  NOEXEC ON
  2231   GO
  2232   PRINT N'Cr eating ind ex [NonClu steredInde x-Provider -PatSid] o n [CRS].[P ATIENT_PRO VIDER]'
  2233   GO
  2234   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-Provid er-PatSid'  AND objec t_id = OBJ ECT_ID(N'[ CRS].[PATI ENT_PROVID ER]'))
  2235   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-Provi der-PatSid ] ON [CRS] .[PATIENT_ PROVIDER]  ([PROVIDER _ID], [PAT IENTSID])
  2236   GO
  2237   IF @@ERROR  <> 0 SET  NOEXEC ON
  2238   GO
  2239   PRINT N'Cr eating ind ex [NonClu steredInde x-PatSid]  on [CRS].[ PATIENT_PR OVIDER]'
  2240   GO
  2241   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-PatSid ' AND obje ct_id = OB JECT_ID(N' [CRS].[PAT IENT_PROVI DER]'))
  2242   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-PatSi d] ON [CRS ].[PATIENT _PROVIDER]  ([PATIENT SID])
  2243   GO
  2244   IF @@ERROR  <> 0 SET  NOEXEC ON
  2245   GO
  2246   PRINT N'Cr eating [CR S].[PATSUB _PATIENTRA CE]'
  2247   GO
  2248   IF OBJECT_ ID(N'[CRS] .[PATSUB_P ATIENTRACE ]', 'U') I S NULL
  2249   CREATE TAB LE [CRS].[ PATSUB_PAT IENTRACE]
  2250   (
  2251   [PatientRa ceSID] [in t] NULL,
  2252   [PatientIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2253   [PatientRa ceIEN] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2254   [Sta3n] [s mallint] N ULL,
  2255   [PatientSI D] [int] N ULL,
  2256   [RaceSID]  [int] NULL ,
  2257   [Race] [va rchar] (45 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2258   [Collectio nMethodSID ] [int] NU LL,
  2259   [Collectio nMethod] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2260   [LegacyRac eSID] [int ] NULL,
  2261   [LegacyRac e] [varcha r] (45) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2262   [Collectio nMethodIEN ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2263   [LegacyRac eIEN] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2264   [RaceIEN]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2265   [ETLBatchI D] [int] N ULL,
  2266   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2267   [VistaCrea teDate] [d atetime] N ULL,
  2268   [VistaEdit Date] [dat etime] NUL L,
  2269   [StdRegist ryId] [int ] NULL,
  2270   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2271   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2272   [Created]  [datetime]  NULL,
  2273   [Updated]  [datetime]  NULL
  2274   )
  2275   WITH
  2276   (
  2277   DATA_COMPR ESSION = P AGE
  2278   )
  2279   GO
  2280   IF @@ERROR  <> 0 SET  NOEXEC ON
  2281   GO
  2282   PRINT N'Cr eating ind ex [NonClu steredInde x-PatSid-P RaceSid-ET LID] on [C RS].[PATSU B_PATIENTR ACE]'
  2283   GO
  2284   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-PatSid -PRaceSid- ETLID' AND  object_id  = OBJECT_ ID(N'[CRS] .[PATSUB_P ATIENTRACE ]'))
  2285   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-PatSi d-PRaceSid -ETLID] ON  [CRS].[PA TSUB_PATIE NTRACE] ([ PatientSID ], [Patien tRaceSID],  [ETLBatch ID]) WITH  (DATA_COMP RESSION =  PAGE)
  2286   GO
  2287   IF @@ERROR  <> 0 SET  NOEXEC ON
  2288   GO
  2289   PRINT N'Cr eating ind ex [NonClu steredInde x-PatSID-R ace] on [C RS].[PATSU B_PATIENTR ACE]'
  2290   GO
  2291   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-PatSID -Race' AND  object_id  = OBJECT_ ID(N'[CRS] .[PATSUB_P ATIENTRACE ]'))
  2292   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-PatSI D-Race] ON  [CRS].[PA TSUB_PATIE NTRACE] ([ PatientSID ], [Race])  WITH (DAT A_COMPRESS ION = PAGE )
  2293   GO
  2294   IF @@ERROR  <> 0 SET  NOEXEC ON
  2295   GO
  2296   PRINT N'Cr eating [CR S].[REGIST RY_LOINCCo de]'
  2297   GO
  2298   IF OBJECT_ ID(N'[CRS] .[REGISTRY _LOINCCode ]', 'U') I S NULL
  2299   CREATE TAB LE [CRS].[ REGISTRY_L OINCCode]
  2300   (
  2301   [LOINCCode _ID] [int]  NOT NULL  IDENTITY(1 , 1),
  2302   [REGISTRY_ ID] [int]  NOT NULL,
  2303   [REGISTRYN ame] [varc har] (30)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NOT  NULL,
  2304   [LOINCCode ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2305   [Component ] [varchar ] (255) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2306   [CREATEDBY ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NOT NU LL,
  2307   [UPDATEDBY ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NOT NU LL,
  2308   [CREATED]  [datetime]  NOT NULL,
  2309   [UPDATED]  [datetime]  NOT NULL
  2310   )
  2311   GO
  2312   IF @@ERROR  <> 0 SET  NOEXEC ON
  2313   GO
  2314   PRINT N'Cr eating pri mary key [ PK_REG_LOI NCCode] on  [CRS].[RE GISTRY_LOI NCCode]'
  2315   GO
  2316   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'PK_R EG_LOINCCo de' AND ob ject_id =  OBJECT_ID( N'[CRS].[R EGISTRY_LO INCCode]') )
  2317   ALTER TABL E [CRS].[R EGISTRY_LO INCCode] A DD CONSTRA INT [PK_RE G_LOINCCod e] PRIMARY  KEY CLUST ERED  ([LO INCCode_ID ])
  2318   GO
  2319   IF @@ERROR  <> 0 SET  NOEXEC ON
  2320   GO
  2321   PRINT N'Cr eating [CR S].[REGIST RY_STOPCod e]'
  2322   GO
  2323   IF OBJECT_ ID(N'[CRS] .[REGISTRY _STOPCode] ', 'U') IS  NULL
  2324   CREATE TAB LE [CRS].[ REGISTRY_S TOPCode]
  2325   (
  2326   [StopCode_ ID] [int]  NOT NULL I DENTITY(1,  1),
  2327   [REGISTRY_ ID] [int]  NOT NULL,
  2328   [REGISTRYN ame] [varc har] (30)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NOT  NULL,
  2329   [StopCode]  [smallint ] NOT NULL ,
  2330   [StopCodeN ame] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2331   [CREATEDBY ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NOT NU LL,
  2332   [UPDATEDBY ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NOT NU LL,
  2333   [CREATED]  [datetime]  NOT NULL,
  2334   [UPDATED]  [datetime]  NOT NULL
  2335   )
  2336   GO
  2337   IF @@ERROR  <> 0 SET  NOEXEC ON
  2338   GO
  2339   PRINT N'Cr eating pri mary key [ PK_REG_STO PCode] on  [CRS].[REG ISTRY_STOP Code]'
  2340   GO
  2341   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'PK_R EG_STOPCod e' AND obj ect_id = O BJECT_ID(N '[CRS].[RE GISTRY_STO PCode]'))
  2342   ALTER TABL E [CRS].[R EGISTRY_ST OPCode] AD D CONSTRAI NT [PK_REG _STOPCode]  PRIMARY K EY CLUSTER ED  ([Stop Code_ID])
  2343   GO
  2344   IF @@ERROR  <> 0 SET  NOEXEC ON
  2345   GO
  2346   PRINT N'Cr eating [CR S].[SPATIE NT_H]'
  2347   GO
  2348   IF OBJECT_ ID(N'[CRS] .[SPATIENT _H]', 'U')  IS NULL
  2349   CREATE TAB LE [CRS].[ SPATIENT_H ]
  2350   (
  2351   [Audit_SPa tient_H_ID ] [int] NO T NULL IDE NTITY(1, 1 ),
  2352   [Audit_Dat e] [dateti me] NULL,
  2353   [Audit_Typ e] [varcha r] (20) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2354   [Audit_App licationUs er] [varch ar] (128)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2355   [Audit_SQL User] [var char] (100 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2356   [Patient_I D] [int] N ULL,
  2357   [PatientSI D] [int] N ULL,
  2358   [PatientIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2359   [Sta3n] [s mallint] N ULL,
  2360   [PatientNa me] [varch ar] (100)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2361   [PatientLa stName] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2362   [PatientFi rstName] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2363   [PatientSS N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2364   [ScrSSN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2365   [StreetAdd ress1] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2366   [StreetAdd ress2] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2367   [StreetAdd ress3] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2368   [City] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2369   [Zip] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2370   [Zip4] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2371   [PostalCod e] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2372   [Province]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2373   [CountrySI D] [int] N ULL,
  2374   [Country]  [varchar]  (100) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2375   [PhoneResi dence] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2376   [PhoneWork ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2377   [PhoneCell ular] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2378   [MothersMa idenName]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2379   [DateOfDea th] [date]  NULL,
  2380   [DateOfDea thText] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2381   [EmailAddr ess] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2382   [BadAddres sIndicator ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2383   [ExcludeFr omFacility DirectoryF lag] [char ] (1) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2384   [AddressCh angeInstit utionSID]  [int] NULL ,
  2385   [AddressCh angeStaffS ID] [int]  NULL,
  2386   [Confident ialAddress ActiveFlag ] [char] ( 1) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2387   [MedicaidN umber] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2388   [RaceSID]  [int] NULL ,
  2389   [Gender] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2390   [Age] [num eric] (18,  0) NULL,
  2391   [StateSID]  [int] NUL L,
  2392   [State] [v archar] (3 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2393   [County] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2394   [Deceased]  [char] (1 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2395   [PatientIC N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2396   [PatientIC NChecksum]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2397   [PseudoSSN Flag] [cha r] (1) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2398   [PeriodOfS erviceSID]  [int] NUL L,
  2399   [PeriodOfS ervice] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2400   [MaritalSt atusSID] [ int] NULL,
  2401   [MaritalSt atus] [var char] (25)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2402   [PercentSe rviceConne ct] [int]  NULL,
  2403   [Insurance CoverageFl ag] [char]  (1) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2404   [ReligionS ID] [int]  NULL,
  2405   [Religion]  [varchar]  (30) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2406   [VeteranFl ag] [char]  (1) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2407   [EnteredIn toFileDate ] [date] N ULL,
  2408   [EnteredIn toFileVist aErrorDate ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2409   [EnteredIn toFileDate TransformS ID] [bigin t] NULL,
  2410   [Eligibili tySID] [in t] NULL,
  2411   [Eligibili ty] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2412   [Eligibili tyVACode]  [numeric]  (18, 0) NU LL,
  2413   [DateOfBir th] [date]  NULL,
  2414   [DateOfBir thText] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2415   [Sensitive Flag] [cha r] (1) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2416   [LastServi ceEntryDat e] [date]  NULL,
  2417   [LastServi ceEntryVis taErrorDat e] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2418   [LastServi ceEntryDat eTransform SID] [bigi nt] NULL,
  2419   [LastServi ceSeparati onDate] [d ate] NULL,
  2420   [LastServi ceSeparati onVistaErr orDate] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2421   [LastServi ceSeparati onDateTran sformSID]  [bigint] N ULL,
  2422   [CombatFro mVistaDate ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2423   [CombatToV istaDate]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2424   [Eligibili tyStatus]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2425   [Eligibili tyVerifica tionSource ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2426   [GISLocato rName] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2427   [GISMatchS tatusCode]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2428   [GISMatchS core] [int ] NULL,
  2429   [GISMatchM ethodCode]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2430   [GISMatche dAddress]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2431   [GISAddres sType] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2432   [GISStreet Side] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2433   [GISPatien tAddressLo ngitude] [ float] NUL L,
  2434   [GISPatien tAddressLa titude] [f loat] NULL ,
  2435   [GISAddres sUpdatedDa te] [date]  NULL,
  2436   [GISFIPSCo de] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2437   [GISMarket ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2438   [GISSubmar ket] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2439   [GISSector ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2440   [GISURH] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2441   [GISCongre ssDistrict ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2442   [AddressCh angeInstit utionIEN]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2443   [AddressCh angeStaffI EN] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2444   [CDDetermi ningInstit utionIEN]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2445   [CountryIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2446   [CurrentMe ansTestSta tusIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2447   [Eligibili tyIEN] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2448   [MaritalSt atusIEN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2449   [PeriodOfS erviceIEN]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2450   [POWLocati onIEN] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2451   [Preferred Institutio nIEN] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2452   [PurpleHea rtInstitut ionIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2453   [RaceIEN]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2454   [ReligionI EN] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2455   [RoomBedIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2456   [StateIEN]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2457   [Temporary AddressCha ngeInstitu tionIEN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2458   [ETLBatchI D] [int] N ULL,
  2459   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2460   [VistaCrea teDate] [d atetime] N ULL,
  2461   [VistaEdit Date] [dat etime] NUL L,
  2462   [OEF_OIF_I ND] [bit]  NULL,
  2463   [STD_ENTHN ICITY_ID]  [int] NULL ,
  2464   [STD_GENDE R_ID] [int ] NULL,
  2465   [STD_MARIT ALSTATUS_I D] [int] N ULL,
  2466   [STD_RACE_ ID] [int]  NULL,
  2467   [STD_SERVI CEBRANCH_I D] [int] N ULL,
  2468   [STD_COMBA TLOCATION_ ID] [int]  NULL,
  2469   [StdRegist ryId] [int ] NULL,
  2470   [DEFAULT_R ECORD] [bi t] NULL,
  2471   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2472   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2473   [Created]  [datetime]  NULL,
  2474   [Updatedat e] [dateti me] NULL,
  2475   [Race] [va rchar] (45 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2476   [PK_ID] [i nt] NULL
  2477   )
  2478   GO
  2479   IF @@ERROR  <> 0 SET  NOEXEC ON
  2480   GO
  2481   PRINT N'Cr eating ind ex [NonClu steredInde x-Sid] on  [CRS].[SPA TIENT_H]'
  2482   GO
  2483   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-Sid' A ND object_ id = OBJEC T_ID(N'[CR S].[SPATIE NT_H]'))
  2484   CREATE UNI QUE NONCLU STERED IND EX [NonClu steredInde x-Sid] ON  [CRS].[SPA TIENT_H] ( [Audit_SPa tient_H_ID ])
  2485   GO
  2486   IF @@ERROR  <> 0 SET  NOEXEC ON
  2487   GO
  2488   PRINT N'Cr eating ind ex [NonClu steredInde x-Sid_PatS id] on [CR S].[SPATIE NT_H]'
  2489   GO
  2490   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-Sid_Pa tSid' AND  object_id  = OBJECT_I D(N'[CRS]. [SPATIENT_ H]'))
  2491   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-Sid_P atSid] ON  [CRS].[SPA TIENT_H] ( [Audit_SPa tient_H_ID ], [Patien tSID])
  2492   GO
  2493   IF @@ERROR  <> 0 SET  NOEXEC ON
  2494   GO
  2495   PRINT N'Cr eating [CR S].[SPATIE NT_MILITAR YSERVICEEP ISODE]'
  2496   GO
  2497   IF OBJECT_ ID(N'[CRS] .[SPATIENT _MILITARYS ERVICEEPIS ODE]', 'U' ) IS NULL
  2498   CREATE TAB LE [CRS].[ SPATIENT_M ILITARYSER VICEEPISOD E]
  2499   (
  2500   [MilitaryS erviceEpis odeSID] [b igint] NUL L,
  2501   [PatientSI D] [int] N ULL,
  2502   [PatientIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2503   [MilitaryS erviceEpis odeIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2504   [Sta3n] [s mallint] N ULL,
  2505   [ServiceEn tryDate] [ date] NULL ,
  2506   [ServiceEn tryVistaEr rorDate] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2507   [ServiceEn tryDateTra nsformSID]  [bigint]  NULL,
  2508   [ServiceSe parationDa te] [date]  NULL,
  2509   [ServiceSe parationVi staErrorDa te] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2510   [ServiceSe parationDa teTransfor mSID] [big int] NULL,
  2511   [BranchOfS erviceSID]  [int] NUL L,
  2512   [ServiceCo mponent] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2513   [ServiceNu mber] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2514   [Discharge TypeSID] [ int] NULL,
  2515   [DataLocke dFlag] [ch ar] (1) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2516   [BranchOfS erviceIEN]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2517   [Discharge TypeIEN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2518   [ETLBatchI D] [int] N ULL,
  2519   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2520   [VistaCrea teDate] [d atetime] N ULL,
  2521   [VistaEdit Date] [dat etime] NUL L,
  2522   [StdRegist ryId] [int ] NULL,
  2523   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2524   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2525   [Created]  [datetime]  NULL,
  2526   [Updated]  [datetime]  NULL
  2527   )
  2528   GO
  2529   IF @@ERROR  <> 0 SET  NOEXEC ON
  2530   GO
  2531   PRINT N'Cr eating ind ex [Cluste redIndex-S id] on [CR S].[SPATIE NT_MILITAR YSERVICEEP ISODE]'
  2532   GO
  2533   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'Clus teredIndex -Sid' AND  object_id  = OBJECT_I D(N'[CRS]. [SPATIENT_ MILITARYSE RVICEEPISO DE]'))
  2534   CREATE UNI QUE CLUSTE RED INDEX  [Clustered Index-Sid]  ON [CRS]. [SPATIENT_ MILITARYSE RVICEEPISO DE] ([Mili taryServic eEpisodeSI D])
  2535   GO
  2536   IF @@ERROR  <> 0 SET  NOEXEC ON
  2537   GO
  2538   PRINT N'Cr eating ind ex [NonClu steredInde x-Sid_ETLI D] on [CRS ].[SPATIEN T_MILITARY SERVICEEPI SODE]'
  2539   GO
  2540   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-Sid_ET LID' AND o bject_id =  OBJECT_ID (N'[CRS].[ SPATIENT_M ILITARYSER VICEEPISOD E]'))
  2541   CREATE UNI QUE NONCLU STERED IND EX [NonClu steredInde x-Sid_ETLI D] ON [CRS ].[SPATIEN T_MILITARY SERVICEEPI SODE] ([Mi litaryServ iceEpisode SID], [ETL BatchID])
  2542   GO
  2543   IF @@ERROR  <> 0 SET  NOEXEC ON
  2544   GO
  2545   PRINT N'Cr eating ind ex [NonClu steredInde x-Sid_PatS id_SepDate ] on [CRS] .[SPATIENT _MILITARYS ERVICEEPIS ODE]'
  2546   GO
  2547   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-Sid_Pa tSid_SepDa te' AND ob ject_id =  OBJECT_ID( N'[CRS].[S PATIENT_MI LITARYSERV ICEEPISODE ]'))
  2548   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-Sid_P atSid_SepD ate] ON [C RS].[SPATI ENT_MILITA RYSERVICEE PISODE] ([ MilitarySe rviceEpiso deSID], [P atientSID] , [Service Separation Date])
  2549   GO
  2550   IF @@ERROR  <> 0 SET  NOEXEC ON
  2551   GO
  2552   PRINT N'Cr eating [CR S].[SPATIE NT_PLACEOF BIRTH]'
  2553   GO
  2554   IF OBJECT_ ID(N'[CRS] .[SPATIENT _PLACEOFBI RTH]', 'U' ) IS NULL
  2555   CREATE TAB LE [CRS].[ SPATIENT_P LACEOFBIRT H]
  2556   (
  2557   [PlaceOfBi rthSID] [i nt] NULL,
  2558   [PatientIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2559   [PatientSI D] [int] N ULL,
  2560   [Sta3n] [s mallint] N ULL,
  2561   [BirthDate Time] [dat etime2] NU LL,
  2562   [BirthVist aErrorDate ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2563   [BirthDate TimeTransf ormSID] [b igint] NUL L,
  2564   [MultipleB irthFlag]  [char] (1)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2565   [PatientPl aceOfBirth City] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2566   [PatientPl aceOfBirth State] [va rchar] (30 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2567   [PatientPl aceOfBirth StateSID]  [int] NULL ,
  2568   [MotherNam e] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2569   [MotherMai denName] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2570   [FatherNam e] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2571   [PatientPl aceOfBirth StateIEN]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2572   [ETLBatchI D] [int] N ULL,
  2573   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2574   [VistaCrea teDate] [d atetime] N ULL,
  2575   [VistaEdit Date] [dat etime] NUL L,
  2576   [StdRegist ryId] [int ] NULL,
  2577   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2578   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2579   [Created]  [datetime]  NULL,
  2580   [Updated]  [datetime]  NULL
  2581   )
  2582   GO
  2583   IF @@ERROR  <> 0 SET  NOEXEC ON
  2584   GO
  2585   PRINT N'Cr eating ind ex [Cluste redIndex-S id] on [CR S].[SPATIE NT_PLACEOF BIRTH]'
  2586   GO
  2587   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'Clus teredIndex -Sid' AND  object_id  = OBJECT_I D(N'[CRS]. [SPATIENT_ PLACEOFBIR TH]'))
  2588   CREATE UNI QUE CLUSTE RED INDEX  [Clustered Index-Sid]  ON [CRS]. [SPATIENT_ PLACEOFBIR TH] ([Plac eOfBirthSI D])
  2589   GO
  2590   IF @@ERROR  <> 0 SET  NOEXEC ON
  2591   GO
  2592   PRINT N'Cr eating ind ex [NonClu steredInde x-Sid_ETLI D] on [CRS ].[SPATIEN T_PLACEOFB IRTH]'
  2593   GO
  2594   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-Sid_ET LID' AND o bject_id =  OBJECT_ID (N'[CRS].[ SPATIENT_P LACEOFBIRT H]'))
  2595   CREATE UNI QUE NONCLU STERED IND EX [NonClu steredInde x-Sid_ETLI D] ON [CRS ].[SPATIEN T_PLACEOFB IRTH] ([Pl aceOfBirth SID], [ETL BatchID])
  2596   GO
  2597   IF @@ERROR  <> 0 SET  NOEXEC ON
  2598   GO
  2599   PRINT N'Cr eating ind ex [NonClu steredInde x-Sid_PatS id_BirDt]  on [CRS].[ SPATIENT_P LACEOFBIRT H]'
  2600   GO
  2601   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-Sid_Pa tSid_BirDt ' AND obje ct_id = OB JECT_ID(N' [CRS].[SPA TIENT_PLAC EOFBIRTH]' ))
  2602   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-Sid_P atSid_BirD t] ON [CRS ].[SPATIEN T_PLACEOFB IRTH] ([Pl aceOfBirth SID], [Pat ientSID],  [BirthDate Time])
  2603   GO
  2604   IF @@ERROR  <> 0 SET  NOEXEC ON
  2605   GO
  2606   PRINT N'Cr eating [CR S].[SPATIE NT_SPATIEN TADDRESS]'
  2607   GO
  2608   IF OBJECT_ ID(N'[CRS] .[SPATIENT _SPATIENTA DDRESS]',  'U') IS NU LL
  2609   CREATE TAB LE [CRS].[ SPATIENT_S PATIENTADD RESS]
  2610   (
  2611   [SPatientA ddressSID]  [int] NUL L,
  2612   [PatientSI D] [int] N ULL,
  2613   [PatientIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2614   [Sta3n] [s mallint] N ULL,
  2615   [OrdinalNu mber] [sma llint] NUL L,
  2616   [AddressTy pe] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2617   [NameOfCon tact] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2618   [Relations hipToPatie nt] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2619   [BadAddres sIndicator ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2620   [StreetAdd ress1] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2621   [StreetAdd ress2] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2622   [StreetAdd ress3] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2623   [City] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2624   [County] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2625   [State] [v archar] (3 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2626   [StateSID]  [int] NUL L,
  2627   [Zip] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2628   [Zip4] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2629   [Province]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2630   [PostalCod e] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2631   [Country]  [varchar]  (100) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2632   [Employmen tStatus] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2633   [Occupatio n] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2634   [Retiremen tDateTime]  [datetime 2] NULL,
  2635   [Retiremen tVistaErro rDate] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2636   [Retiremen tDateTimeT ransformSI D] [bigint ] NULL,
  2637   [AddressSt artDateTim e] [dateti me2] NULL,
  2638   [AddressSt artVistaEr rorDate] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2639   [AddressSt artDateTim eTransform SID] [bigi nt] NULL,
  2640   [AddressEn dDateTime]  [datetime 2] NULL,
  2641   [AddressEn dVistaErro rDate] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2642   [AddressEn dDateTimeT ransformSI D] [bigint ] NULL,
  2643   [AddressCh angeStaffS ID] [int]  NULL,
  2644   [AddressCh angeInstit utionSID]  [int] NULL ,
  2645   [AddressCh angeDateTi me] [datet ime2] NULL ,
  2646   [AddressCh angeVistaE rrorDate]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2647   [AddressCh angeDateTi meTransfor mSID] [big int] NULL,
  2648   [AddressCh angeSource ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2649   [GISLocato rName] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2650   [GISMatchS tatusCode]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2651   [GISMatchS core] [int ] NULL,
  2652   [GISMatchM ethodCode]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2653   [GISMatche dAddress]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2654   [GISAddres sType] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2655   [GISStreet Side] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2656   [GISPatien tAddressLo ngitude] [ float] NUL L,
  2657   [GISPatien tAddressLa titude] [f loat] NULL ,
  2658   [GISAddres sUpdatedDa te] [date]  NULL,
  2659   [GISFIPSCo de] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2660   [GISMarket ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2661   [GISSubmar ket] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2662   [GISSector ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2663   [GISURH] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2664   [GISCongre ssDistrict ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2665   [AddressCh angeInstit utionIEN]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2666   [AddressCh angeStaffI EN] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2667   [StateIEN]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2668   [ETLBatchI D] [int] N ULL,
  2669   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2670   [VistaCrea teDate] [d atetime] N ULL,
  2671   [VistaEdit Date] [dat etime] NUL L,
  2672   [StdRegist ryId] [int ] NULL,
  2673   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2674   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2675   [Created]  [datetime]  NULL,
  2676   [Updated]  [datetime]  NULL
  2677   )
  2678   GO
  2679   IF @@ERROR  <> 0 SET  NOEXEC ON
  2680   GO
  2681   PRINT N'Cr eating ind ex [Cluste redIndex-S id] on [CR S].[SPATIE NT_SPATIEN TADDRESS]'
  2682   GO
  2683   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'Clus teredIndex -Sid' AND  object_id  = OBJECT_I D(N'[CRS]. [SPATIENT_ SPATIENTAD DRESS]'))
  2684   CREATE UNI QUE CLUSTE RED INDEX  [Clustered Index-Sid]  ON [CRS]. [SPATIENT_ SPATIENTAD DRESS] ([S PatientAdd ressSID])
  2685   GO
  2686   IF @@ERROR  <> 0 SET  NOEXEC ON
  2687   GO
  2688   PRINT N'Cr eating ind ex [NonClu steredInde x-Sid_ETLI D] on [CRS ].[SPATIEN T_SPATIENT ADDRESS]'
  2689   GO
  2690   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-Sid_ET LID' AND o bject_id =  OBJECT_ID (N'[CRS].[ SPATIENT_S PATIENTADD RESS]'))
  2691   CREATE UNI QUE NONCLU STERED IND EX [NonClu steredInde x-Sid_ETLI D] ON [CRS ].[SPATIEN T_SPATIENT ADDRESS] ( [SPatientA ddressSID] , [ETLBatc hID])
  2692   GO
  2693   IF @@ERROR  <> 0 SET  NOEXEC ON
  2694   GO
  2695   PRINT N'Cr eating ind ex [NonClu steredInde x-Sid_PatS id_EtlId]  on [CRS].[ SPATIENT_S PATIENTADD RESS]'
  2696   GO
  2697   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-Sid_Pa tSid_EtlId ' AND obje ct_id = OB JECT_ID(N' [CRS].[SPA TIENT_SPAT IENTADDRES S]'))
  2698   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-Sid_P atSid_EtlI d] ON [CRS ].[SPATIEN T_SPATIENT ADDRESS] ( [SPatientA ddressSID] , [Patient SID], [ETL BatchID])
  2699   GO
  2700   IF @@ERROR  <> 0 SET  NOEXEC ON
  2701   GO
  2702   PRINT N'Cr eating [CR S].[SPATIE NT_SPATIEN TDISABILIT Y]'
  2703   GO
  2704   IF OBJECT_ ID(N'[CRS] .[SPATIENT _SPATIENTD ISABILITY] ', 'U') IS  NULL
  2705   CREATE TAB LE [CRS].[ SPATIENT_S PATIENTDIS ABILITY]
  2706   (
  2707   [SPatientD isabilityS ID] [int]  NULL,
  2708   [PatientSI D] [int] N ULL,
  2709   [PatientIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2710   [Sta3n] [s mallint] N ULL,
  2711   [ClaimFold erInstitut ionSID] [i nt] NULL,
  2712   [ClaimNumb er] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2713   [ServiceCo nnectedFla g] [char]  (1) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2714   [ServiceCo nnectedPer cent] [dec imal] (18,  0) NULL,
  2715   [SCAwardDa teTime] [d atetime2]  NULL,
  2716   [SCAwardVi staErrorDa te] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2717   [SCAwardDa teTimeTran sformSID]  [bigint] N ULL,
  2718   [SCEffecti veDateTime ] [datetim e2] NULL,
  2719   [SCEffecti veVistaErr orDate] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2720   [SCEffecti veDateTime TransformS ID] [bigin t] NULL,
  2721   [MedalOfHo norFlag] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2722   [SpinalCor dInjuryCod e] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2723   [SHADFlag]  [char] (1 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2724   [AgentOran geExposure Code] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2725   [AgentOran geRegistra tionDateTi me] [datet ime2] NULL ,
  2726   [AgentOran geRegistra tionVistaE rrorDate]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2727   [AgentOran geRegistra tionDateTi meTransfor mSID] [big int] NULL,
  2728   [AgentOran geLocation ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2729   [AgentOran geReported DateTime]  [datetime2 ] NULL,
  2730   [AgentOran geReported VistaError Date] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2731   [AgentOran geReported DateTimeTr ansformSID ] [bigint]  NULL,
  2732   [AgentOran geExamDate Time] [dat etime2] NU LL,
  2733   [AgentOran geExamVist aErrorDate ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2734   [AgentOran geExamDate TimeTransf ormSID] [b igint] NUL L,
  2735   [AgentOran geRegistra tionNumber ] [decimal ] (18, 0)  NULL,
  2736   [IonizingR adiationCo de] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2737   [IonizingR adiationDa teTime] [d atetime2]  NULL,
  2738   [IonizingR adiationVi staErrorDa te] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2739   [IonizingR adiationDa teTimeTran sformSID]  [bigint] N ULL,
  2740   [IonizingR adiationEx posureCode ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2741   [SWAsiaCod e] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2742   [SWAsiaReg istrationD ateTime] [ datetime2]  NULL,
  2743   [SWAsiaReg istrationV istaErrorD ate] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2744   [SWAsiaReg istrationD ateTimeTra nsformSID]  [bigint]  NULL,
  2745   [SWAsiaExa mDateTime]  [datetime 2] NULL,
  2746   [SWAsiaExa mVistaErro rDate] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2747   [SWAsiaExa mDateTimeT ransformSI D] [bigint ] NULL,
  2748   [POWStatus Code] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2749   [POWLocati on] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2750   [POWLocati onSID] [in t] NULL,
  2751   [POWStartD ateTime] [ datetime2]  NULL,
  2752   [POWStartV istaErrorD ate] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2753   [POWStartD ateTimeTra nsformSID]  [bigint]  NULL,
  2754   [POWEndDat eTime] [da tetime2] N ULL,
  2755   [POWEndVis taErrorDat e] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2756   [POWEndDat eTimeTrans formSID] [ bigint] NU LL,
  2757   [POWVerifi edDateTime ] [datetim e2] NULL,
  2758   [POWVerifi edVistaErr orDate] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2759   [POWVerifi edDateTime TransformS ID] [bigin t] NULL,
  2760   [CombatSer viceFlag]  [char] (1)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2761   [CombatSer viceLocati on] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2762   [CombatSer viceStartD ateTime] [ datetime2]  NULL,
  2763   [CombatSer viceStartV istaErrorD ate] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2764   [CombatSer viceStartD ateTimeTra nsformSID]  [bigint]  NULL,
  2765   [CombatSer viceEndDat eTime] [da tetime2] N ULL,
  2766   [CombatSer viceEndVis taErrorDat e] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2767   [CombatSer viceEndDat eTimeTrans formSID] [ bigint] NU LL,
  2768   [CombatEli gibilityEn dDateTime]  [datetime 2] NULL,
  2769   [CombatEli gibilityEn dVistaErro rDate] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2770   [CombatEli gibilityEn dDateTimeT ransformSI D] [bigint ] NULL,
  2771   [CombatEli gibilityCh angeDateTi me] [datet ime2] NULL ,
  2772   [CombatEli gibilityCh angeVistaE rrorDate]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2773   [CombatEli gibilityCh angeDateTi meTransfor mSID] [big int] NULL,
  2774   [CampLejeu neFlag] [c har] (1) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2775   [CampLejeu neModified DateTime]  [datetime2 ] NULL,
  2776   [CampLejeu neModified VistaError Date] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2777   [CampLejeu neModified DateTimeTr ansformSID ] [bigint]  NULL,
  2778   [CampLejeu neModified Site] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2779   [CampLejeu neModified Source] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2780   [CampLejeu neDataLock edFlag] [c har] (1) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2781   [Unemploya bleFlag] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2782   [Receiving VADisabili ty] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2783   [VADisabil ityAmount]  [decimal]  (18, 0) N ULL,
  2784   [PTDisabil ityFlag] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2785   [PTEffecti veDateTime ] [datetim e2] NULL,
  2786   [PTEffecti veVistaErr orDate] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2787   [PTEffecti veDateTime TransformS ID] [bigin t] NULL,
  2788   [AidAndAtt endanceCod e] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2789   [AidAndAtt endanceAmo unt] [deci mal] (18,  0) NULL,
  2790   [Houseboun dCode] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2791   [Houseboun dAmount] [ decimal] ( 18, 0) NUL L,
  2792   [Receiving VAPension]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2793   [VAPension Amount] [d ecimal] (1 8, 0) NULL ,
  2794   [VAPension EffectiveD ateTime] [ datetime2]  NULL,
  2795   [VAPension EffectiveV istaErrorD ate] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2796   [VAPension EffectiveD ateTimeTra nsformSID]  [bigint]  NULL,
  2797   [VAPension Reason] [v archar] (1 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2798   [VAPension Terminatio nDateTime]  [datetime 2] NULL,
  2799   [VAPension Terminatio nVistaErro rDate] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2800   [VAPension Terminatio nDateTimeT ransformSI D] [bigint ] NULL,
  2801   [FirstTerm inationPen sionReason ] [varchar ] (150) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2802   [SecondTer minationPe nsionReaso n] [varcha r] (150) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2803   [ThirdTerm inationPen sionReason ] [varchar ] (150) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2804   [FourthTer minationPe nsionReaso n] [varcha r] (150) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2805   [VAPension IndicatorL ockedFlag]  [char] (1 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2806   [VAPension EffectiveD ateLockedF lag] [char ] (1) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2807   [TotalVACh eckAmount]  [decimal]  (18, 0) N ULL,
  2808   [GovIssued Insurance]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2809   [GovIssued InsuranceA mount] [de cimal] (18 , 0) NULL,
  2810   [Receiving MilitaryRe tirement]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2811   [Discharge DueToDisab ilityFlag]  [char] (1 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2812   [MilitaryD isabilityR etirementF lag] [char ] (1) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2813   [MilitaryD isabilityR etirementC ode] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2814   [Receiving SocialSecu rityBenefi t] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2815   [Receiving SocialSecu rityInsura nce] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2816   [SocialSec urityInsur anceAmount ] [decimal ] (18, 0)  NULL,
  2817   [OtherReti rementType Code] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2818   [OtherReti rementAmou nt] [decim al] (18, 0 ) NULL,
  2819   [OtherInco meAmount]  [decimal]  (18, 0) NU LL,
  2820   [MonetaryB enefitVeri fiedDateTi me] [datet ime2] NULL ,
  2821   [MonetaryB enefitVeri fiedVistaE rrorDate]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2822   [MonetaryB enefitVeri fiedDateTi meTransfor mSID] [big int] NULL,
  2823   [ClaimFold erInstitut ionIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2824   [POWLocati onIEN] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2825   [ETLBatchI D] [int] N ULL,
  2826   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2827   [VistaCrea teDate] [d atetime] N ULL,
  2828   [VistaEdit Date] [dat etime] NUL L,
  2829   [StdRegist ryId] [int ] NULL,
  2830   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2831   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2832   [Created]  [datetime]  NULL,
  2833   [Updated]  [datetime]  NULL
  2834   )
  2835   GO
  2836   IF @@ERROR  <> 0 SET  NOEXEC ON
  2837   GO
  2838   PRINT N'Cr eating ind ex [Cluste redIndex-S id] on [CR S].[SPATIE NT_SPATIEN TDISABILIT Y]'
  2839   GO
  2840   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'Clus teredIndex -Sid' AND  object_id  = OBJECT_I D(N'[CRS]. [SPATIENT_ SPATIENTDI SABILITY]' ))
  2841   CREATE UNI QUE CLUSTE RED INDEX  [Clustered Index-Sid]  ON [CRS]. [SPATIENT_ SPATIENTDI SABILITY]  ([SPatient Disability SID])
  2842   GO
  2843   IF @@ERROR  <> 0 SET  NOEXEC ON
  2844   GO
  2845   PRINT N'Cr eating ind ex [NonClu steredInde x-Sid_ETLI D] on [CRS ].[SPATIEN T_SPATIENT DISABILITY ]'
  2846   GO
  2847   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-Sid_ET LID' AND o bject_id =  OBJECT_ID (N'[CRS].[ SPATIENT_S PATIENTDIS ABILITY]') )
  2848   CREATE UNI QUE NONCLU STERED IND EX [NonClu steredInde x-Sid_ETLI D] ON [CRS ].[SPATIEN T_SPATIENT DISABILITY ] ([SPatie ntDisabili tySID], [E TLBatchID] )
  2849   GO
  2850   IF @@ERROR  <> 0 SET  NOEXEC ON
  2851   GO
  2852   PRINT N'Cr eating ind ex [NonClu steredInde x-PatSid_F lag_Percen t] on [CRS ].[SPATIEN T_SPATIENT DISABILITY ]'
  2853   GO
  2854   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-PatSid _Flag_Perc ent' AND o bject_id =  OBJECT_ID (N'[CRS].[ SPATIENT_S PATIENTDIS ABILITY]') )
  2855   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-PatSi d_Flag_Per cent] ON [ CRS].[SPAT IENT_SPATI ENTDISABIL ITY] ([Pat ientSID],  [ServiceCo nnectedFla g], [Servi ceConnecte dPercent])
  2856   GO
  2857   IF @@ERROR  <> 0 SET  NOEXEC ON
  2858   GO
  2859   PRINT N'Cr eating [CR S].[SPATIE NT_SPATIEN TPHONE]'
  2860   GO
  2861   IF OBJECT_ ID(N'[CRS] .[SPATIENT _SPATIENTP HONE]', 'U ') IS NULL
  2862   CREATE TAB LE [CRS].[ SPATIENT_S PATIENTPHO NE]
  2863   (
  2864   [SPatientP honeSID] [ int] NULL,
  2865   [PatientIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2866   [PatientSI D] [int] N ULL,
  2867   [Sta3n] [s mallint] N ULL,
  2868   [OrdinalNu mber] [sma llint] NUL L,
  2869   [PatientCo ntactType]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2870   [NameOfCon tact] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2871   [Relations hipToPatie nt] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2872   [PhoneNumb er] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2873   [WorkPhone Number] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2874   [EmailAddr ess] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2875   [ChangeDat eTime] [da tetime2] N ULL,
  2876   [ChangeVis taErrorDat e] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2877   [ChangeDat eTimeTrans formSID] [ bigint] NU LL,
  2878   [ChangeIns titutionSI D] [int] N ULL,
  2879   [ChangeSou rce] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2880   [ChangeIns titutionIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2881   [ETLBatchI D] [int] N ULL,
  2882   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2883   [VistaCrea teDate] [d atetime] N ULL,
  2884   [VistaEdit Date] [dat etime] NUL L,
  2885   [StdRegist ryId] [int ] NULL,
  2886   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2887   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2888   [Created]  [datetime]  NULL,
  2889   [Updated]  [datetime]  NULL
  2890   )
  2891   GO
  2892   IF @@ERROR  <> 0 SET  NOEXEC ON
  2893   GO
  2894   PRINT N'Cr eating ind ex [Cluste redIndex-S id] on [CR S].[SPATIE NT_SPATIEN TPHONE]'
  2895   GO
  2896   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'Clus teredIndex -Sid' AND  object_id  = OBJECT_I D(N'[CRS]. [SPATIENT_ SPATIENTPH ONE]'))
  2897   CREATE UNI QUE CLUSTE RED INDEX  [Clustered Index-Sid]  ON [CRS]. [SPATIENT_ SPATIENTPH ONE] ([SPa tientPhone SID])
  2898   GO
  2899   IF @@ERROR  <> 0 SET  NOEXEC ON
  2900   GO
  2901   PRINT N'Cr eating ind ex [NonClu steredInde x-Sid_ETLI D] on [CRS ].[SPATIEN T_SPATIENT PHONE]'
  2902   GO
  2903   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-Sid_ET LID' AND o bject_id =  OBJECT_ID (N'[CRS].[ SPATIENT_S PATIENTPHO NE]'))
  2904   CREATE UNI QUE NONCLU STERED IND EX [NonClu steredInde x-Sid_ETLI D] ON [CRS ].[SPATIEN T_SPATIENT PHONE] ([S PatientPho neSID], [E TLBatchID] )
  2905   GO
  2906   IF @@ERROR  <> 0 SET  NOEXEC ON
  2907   GO
  2908   PRINT N'Cr eating ind ex [NonClu steredInde x-PatSid_O rdNum] on  [CRS].[SPA TIENT_SPAT IENTPHONE] '
  2909   GO
  2910   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-PatSid _OrdNum' A ND object_ id = OBJEC T_ID(N'[CR S].[SPATIE NT_SPATIEN TPHONE]'))
  2911   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-PatSi d_OrdNum]  ON [CRS].[ SPATIENT_S PATIENTPHO NE] ([Pati entSID], [ OrdinalNum ber])
  2912   GO
  2913   IF @@ERROR  <> 0 SET  NOEXEC ON
  2914   GO
  2915   PRINT N'Cr eating [CR S].[SPATIE NT_SPATIEN T]'
  2916   GO
  2917   IF OBJECT_ ID(N'[CRS] .[SPATIENT _SPATIENT] ', 'U') IS  NULL
  2918   CREATE TAB LE [CRS].[ SPATIENT_S PATIENT]
  2919   (
  2920   [PatientSI D] [int] N ULL,
  2921   [PatientIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2922   [Sta3n] [s mallint] N ULL,
  2923   [PatientNa me] [varch ar] (100)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2924   [PatientLa stName] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2925   [PatientFi rstName] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2926   [TestPatie ntFlag] [c har] (1) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2927   [CDWPossib leTestPati entFlag] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2928   [VeteranFl ag] [char]  (1) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2929   [PatientTy pe] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2930   [PatientTy peSID] [in t] NULL,
  2931   [PatientIC N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2932   [ScrSSN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2933   [PatientSS N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2934   [PseudoSSN Reason] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2935   [SSNVerifi cationStat us] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2936   [Governmen tEmployeeF lag] [char ] (1) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2937   [Sensitive Flag] [cha r] (1) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2938   [Age] [num eric] (18,  0) NULL,
  2939   [BirthDate Time] [dat etime2] NU LL,
  2940   [BirthVist aErrorDate ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2941   [BirthDate TimeTransf ormSID] [b igint] NUL L,
  2942   [DeceasedF lag] [char ] (1) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2943   [DeathDate Time] [dat etime2] NU LL,
  2944   [DeathVist aErrorDate ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2945   [DeathDate TimeTransf ormSID] [b igint] NUL L,
  2946   [DeathEnte redByStaff SID] [int]  NULL,
  2947   [DeathNoti ficationSo urce] [var char] (100 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2948   [DeathDocu mentationT ype] [varc har] (100)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2949   [DeathModi fiedDateTi me] [datet ime2] NULL ,
  2950   [DeathModi fiedVistaE rrorDate]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2951   [DeathModi fiedDateTi meTransfor mSID] [big int] NULL,
  2952   [DeathLast UpdatedByS taffSID] [ int] NULL,
  2953   [Gender] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2954   [SelfIdent ifiedGende r] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2955   [Religion]  [varchar]  (30) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2956   [ReligionS ID] [int]  NULL,
  2957   [MaritalSt atus] [var char] (25)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  2958   [MaritalSt atusSID] [ int] NULL,
  2959   [Collatera lSponsorPa tientSID]  [int] NULL ,
  2960   [CurrentEn rollmentSI D] [bigint ] NULL,
  2961   [MeansTest Status] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2962   [CurrentMe ansTestSta tusSID] [i nt] NULL,
  2963   [PeriodOfS ervice] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2964   [PeriodOfS erviceSID]  [int] NUL L,
  2965   [Operation DesertShie ldRank] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2966   [ODSRankTy pe] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2967   [ODSRecall edCode] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  2968   [ODSTreatm entDateTim e] [dateti me2] NULL,
  2969   [ODSTreatm entVistaEr rorDate] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2970   [ODSTreatm entDateTim eTransform SID] [bigi nt] NULL,
  2971   [FederalAg encySID] [ int] NULL,
  2972   [FilipinoV eteranCode ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2973   [ServiceCo nnectedFla g] [char]  (1) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2974   [Eligibili ty] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2975   [Eligibili tyVACode]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2976   [Eligibili tySID] [in t] NULL,
  2977   [Eligibili tyStatus]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  2978   [Eligibili tyStatusDa teTime] [d atetime2]  NULL,
  2979   [Eligibili tyStatusVi staErrorDa te] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2980   [Eligibili tyStatusDa teTimeTran sformSID]  [bigint] N ULL,
  2981   [Eligibili tyVerifica tionSource ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2982   [Eligibili tyVerifica tionMethod ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  2983   [Eligibili tyInterimD ateTime] [ datetime2]  NULL,
  2984   [Eligibili tyInterimV istaErrorD ate] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  2985   [Eligibili tyInterimD ateTimeTra nsformSID]  [bigint]  NULL,
  2986   [Eligibili tyEnteredS taffSID] [ int] NULL,
  2987   [Ineligibl eReason] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2988   [Ineligibl eVAROReaso n] [varcha r] (100) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  2989   [Ineligibl eCity] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2990   [Ineligibl eStateSID]  [int] NUL L,
  2991   [Ineligibl eDateTime]  [datetime 2] NULL,
  2992   [Ineligibl eVistaErro rDate] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  2993   [Ineligibl eDateTimeT ransformSI D] [bigint ] NULL,
  2994   [Ineligibl eSource] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  2995   [PatientMi ssingSourc e] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  2996   [PatientMi ssingDateT ime] [date time2] NUL L,
  2997   [PatientMi ssingVista ErrorDate]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  2998   [PatientMi ssingDateT imeTransfo rmSID] [bi gint] NULL ,
  2999   [PatientMi ssingCity]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3000   [PatientMi ssingState SID] [int]  NULL,
  3001   [FugitiveF elonFlag]  [char] (1)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  3002   [FFFEntere dDateTime]  [datetime 2] NULL,
  3003   [FFFEntere dVistaErro rDate] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3004   [FFFEntere dDateTimeT ransformSI D] [bigint ] NULL,
  3005   [FFFEntere dStaffSID]  [int] NUL L,
  3006   [FFFRemove dReason] [ varchar] ( 100) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  3007   [FFFRemove dDateTime]  [datetime 2] NULL,
  3008   [FFFRemove dVistaErro rDate] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3009   [FFFRemove dDateTimeT ransformSI D] [bigint ] NULL,
  3010   [FFFRemove dStaffSID]  [int] NUL L,
  3011   [PatientEn teredBySta ffSID] [in t] NULL,
  3012   [PatientEn teredCode]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3013   [PatientEn teredRemar k] [varcha r] (100) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  3014   [PatientEn teredDateT ime] [date time2] NUL L,
  3015   [PatientEn teredVista ErrorDate]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3016   [PatientEn teredDateT imeTransfo rmSID] [bi gint] NULL ,
  3017   [Duplicate RecordStat us] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  3018   [Destinati onMergePat ientSID] [ int] NULL,
  3019   [Preferred Institutio nSID] [int ] NULL,
  3020   [Preferred Institutio nSource] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  3021   [Emergency ResponseIn dicator] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  3022   [Insurance CoverageFl ag] [char]  (1) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  3023   [MedicaidE ligibleFla g] [char]  (1) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  3024   [MedicaidN umber] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3025   [MedicaidI nquireDate Time] [dat etime2] NU LL,
  3026   [MedicaidI nquireVist aErrorDate ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3027   [MedicaidI nquireDate TimeTransf ormSID] [b igint] NUL L,
  3028   [VeteranTr ansportati onProgramF lag] [char ] (1) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3029   [Collatera lSponsorPa tientIEN]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  3030   [CurrentEn rollmentIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  3031   [CurrentMe ansTestSta tusIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  3032   [DeathEnte redByStaff IEN] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3033   [DeathLast UpdatedByS taffIEN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  3034   [Destinati onMergePat ientIEN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  3035   [Eligibili tyEnteredS taffIEN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  3036   [Eligibili tyIEN] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3037   [FederalAg encyIEN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  3038   [FFFEntere dStaffIEN]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3039   [FFFRemove dStaffIEN]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3040   [Ineligibl eStateIEN]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3041   [MaritalSt atusIEN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  3042   [PatientEn teredBySta ffIEN] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3043   [PatientMi ssingState IEN] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3044   [PatientTy peIEN] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3045   [PeriodOfS erviceIEN]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3046   [Preferred Institutio nIEN] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  3047   [ReligionI EN] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  3048   [ETLBatchI D] [int] N ULL,
  3049   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3050   [VistaCrea teDate] [d atetime] N ULL,
  3051   [VistaEdit Date] [dat etime] NUL L,
  3052   [StdRegist ryId] [int ] NULL,
  3053   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3054   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3055   [Created]  [datetime]  NULL,
  3056   [Updated]  [datetime]  NULL
  3057   )
  3058   GO
  3059   IF @@ERROR  <> 0 SET  NOEXEC ON
  3060   GO
  3061   PRINT N'Cr eating ind ex [Cluste redIndex-P atSid] on  [CRS].[SPA TIENT_SPAT IENT]'
  3062   GO
  3063   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'Clus teredIndex -PatSid' A ND object_ id = OBJEC T_ID(N'[CR S].[SPATIE NT_SPATIEN T]'))
  3064   CREATE UNI QUE CLUSTE RED INDEX  [Clustered Index-PatS id] ON [CR S].[SPATIE NT_SPATIEN T] ([Patie ntSID])
  3065   GO
  3066   IF @@ERROR  <> 0 SET  NOEXEC ON
  3067   GO
  3068   PRINT N'Cr eating ind ex [NonClu steredInde x-SID_ETLI d] on [CRS ].[SPATIEN T_SPATIENT ]'
  3069   GO
  3070   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-SID_ET LId' AND o bject_id =  OBJECT_ID (N'[CRS].[ SPATIENT_S PATIENT]') )
  3071   CREATE UNI QUE NONCLU STERED IND EX [NonClu steredInde x-SID_ETLI d] ON [CRS ].[SPATIEN T_SPATIENT ] ([Patien tSID], [ET LBatchID])
  3072   GO
  3073   IF @@ERROR  <> 0 SET  NOEXEC ON
  3074   GO
  3075   PRINT N'Cr eating ind ex [NonClu steredInde x-PatSid_P atICN] on  [CRS].[SPA TIENT_SPAT IENT]'
  3076   GO
  3077   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-PatSid _PatICN' A ND object_ id = OBJEC T_ID(N'[CR S].[SPATIE NT_SPATIEN T]'))
  3078   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-PatSi d_PatICN]  ON [CRS].[ SPATIENT_S PATIENT] ( [PatientSI D], [Patie ntICN])
  3079   GO
  3080   IF @@ERROR  <> 0 SET  NOEXEC ON
  3081   GO
  3082   PRINT N'Cr eating ind ex [NonClu steredInde x-Name_ICN _SSN] on [ CRS].[SPAT IENT_SPATI ENT]'
  3083   GO
  3084   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-Name_I CN_SSN' AN D object_i d = OBJECT _ID(N'[CRS ].[SPATIEN T_SPATIENT ]'))
  3085   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-Name_ ICN_SSN] O N [CRS].[S PATIENT_SP ATIENT] ([ PatientNam e], [Patie ntLastName ], [Patien tFirstName ], [Patien tICN], [Pa tientSSN])
  3086   GO
  3087   IF @@ERROR  <> 0 SET  NOEXEC ON
  3088   GO
  3089   PRINT N'Cr eating [CR S].[STD_AP POINTMENTS TATUS]'
  3090   GO
  3091   IF OBJECT_ ID(N'[CRS] .[STD_APPO INTMENTSTA TUS]', 'U' ) IS NULL
  3092   CREATE TAB LE [CRS].[ STD_APPOIN TMENTSTATU S]
  3093   (
  3094   [Appointme ntStatusSI D] [smalli nt] NULL,
  3095   [Appointme ntStatusIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  3096   [Sta3n] [s mallint] N ULL,
  3097   [Appointme ntStatus]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  3098   [Appointme ntStatusAb breviation ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3099   [CheckInAl lowedFlag]  [char] (1 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3100   [CancelAll owedFlag]  [char] (1)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  3101   [NoShowAll owedFlag]  [char] (1)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  3102   [CheckOutA llowedFlag ] [char] ( 1) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  3103   [ETLBatchI D] [int] N ULL,
  3104   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3105   [VistaCrea teDate] [d atetime] N ULL,
  3106   [VistaEdit Date] [dat etime] NUL L,
  3107   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3108   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3109   [Created]  [datetime]  NULL,
  3110   [Updated]  [datetime]  NULL
  3111   )
  3112   GO
  3113   IF @@ERROR  <> 0 SET  NOEXEC ON
  3114   GO
  3115   PRINT N'Cr eating ind ex [Cluste redIndex-S ID] on [CR S].[STD_AP POINTMENTS TATUS]'
  3116   GO
  3117   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'Clus teredIndex -SID' AND  object_id  = OBJECT_I D(N'[CRS]. [STD_APPOI NTMENTSTAT US]'))
  3118   CREATE UNI QUE CLUSTE RED INDEX  [Clustered Index-SID]  ON [CRS]. [STD_APPOI NTMENTSTAT US] ([Appo intmentSta tusSID])
  3119   GO
  3120   IF @@ERROR  <> 0 SET  NOEXEC ON
  3121   GO
  3122   PRINT N'Cr eating ind ex [NonClu steredInde x-SID-ETLI D] on [CRS ].[STD_APP OINTMENTST ATUS]'
  3123   GO
  3124   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-SID-ET LID' AND o bject_id =  OBJECT_ID (N'[CRS].[ STD_APPOIN TMENTSTATU S]'))
  3125   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-SID-E TLID] ON [ CRS].[STD_ APPOINTMEN TSTATUS] ( [Appointme ntStatusSI D], [ETLBa tchID])
  3126   GO
  3127   IF @@ERROR  <> 0 SET  NOEXEC ON
  3128   GO
  3129   PRINT N'Cr eating [CR S].[STD_Ap pointmentT ype]'
  3130   GO
  3131   IF OBJECT_ ID(N'[CRS] .[STD_Appo intmentTyp e]', 'U')  IS NULL
  3132   CREATE TAB LE [CRS].[ STD_Appoin tmentType]
  3133   (
  3134   [Appointme ntTypeSID]  [smallint ] NULL,
  3135   [Appointme ntTypeIEN]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3136   [Sta3n] [s mallint] N ULL,
  3137   [Appointme ntType] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  3138   [IgnoreMea nsTestBill ingFlag] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3139   [InactiveF lag] [char ] (1) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3140   [Appointme ntTypeSyno nym] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3141   [DualEligi bilityAllo wedFlag] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3142   [Eligibili tySID] [in t] NULL,
  3143   [Eligibili tyIEN] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3144   [ETLBatchI D] [int] N ULL,
  3145   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3146   [VistaCrea teDate] [d atetime] N ULL,
  3147   [VistaEdit Date] [dat etime] NUL L,
  3148   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3149   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3150   [Created]  [datetime]  NULL,
  3151   [Updated]  [datetime]  NULL
  3152   )
  3153   GO
  3154   IF @@ERROR  <> 0 SET  NOEXEC ON
  3155   GO
  3156   PRINT N'Cr eating ind ex [Cluste redIndex-S ID] on [CR S].[STD_Ap pointmentT ype]'
  3157   GO
  3158   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'Clus teredIndex -SID' AND  object_id  = OBJECT_I D(N'[CRS]. [STD_Appoi ntmentType ]'))
  3159   CREATE UNI QUE CLUSTE RED INDEX  [Clustered Index-SID]  ON [CRS]. [STD_Appoi ntmentType ] ([Appoin tmentTypeS ID])
  3160   GO
  3161   IF @@ERROR  <> 0 SET  NOEXEC ON
  3162   GO
  3163   PRINT N'Cr eating ind ex [NonClu steredInde x-SID-ETLI D] on [CRS ].[STD_App ointmentTy pe]'
  3164   GO
  3165   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-SID-ET LID' AND o bject_id =  OBJECT_ID (N'[CRS].[ STD_Appoin tmentType] '))
  3166   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-SID-E TLID] ON [ CRS].[STD_ Appointmen tType] ([A ppointment TypeSID],  [ETLBatchI D])
  3167   GO
  3168   IF @@ERROR  <> 0 SET  NOEXEC ON
  3169   GO
  3170   PRINT N'Cr eating [CR S].[STD_DI ALYSISTYPE ]'
  3171   GO
  3172   IF OBJECT_ ID(N'[CRS] .[STD_DIAL YSISTYPE]' , 'U') IS  NULL
  3173   CREATE TAB LE [CRS].[ STD_DIALYS ISTYPE]
  3174   (
  3175   [DialysisT ypeSID] [i nt] NULL,
  3176   [DialysisT ypeIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  3177   [Sta3n] [s mallint] N ULL,
  3178   [DialysisT ypeDescrip tion] [var char] (255 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3179   [DialysisT ypeCode] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  3180   [ETLBatchI D] [int] N ULL,
  3181   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3182   [VistaCrea teDate] [d atetime] N ULL,
  3183   [VistaEdit Date] [dat etime] NUL L,
  3184   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3185   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3186   [Created]  [datetime]  NULL,
  3187   [UPDATED]  [datetime]  NULL
  3188   )
  3189   GO
  3190   IF @@ERROR  <> 0 SET  NOEXEC ON
  3191   GO
  3192   PRINT N'Cr eating [CR S].[STD_IC D10Procedu re_Code]'
  3193   GO
  3194   IF OBJECT_ ID(N'[CRS] .[STD_ICD1 0Procedure _Code]', ' U') IS NUL L
  3195   CREATE TAB LE [CRS].[ STD_ICD10P rocedure_C ode]
  3196   (
  3197   [ICD10PROC EDURESID]  [int] NOT  NULL,
  3198   [ICDPROCED UREIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NOT NULL,
  3199   [STA3N] [s mallint] N OT NULL,
  3200   [ICD10PROC EDURECODE]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3201   [ICD10Proc edureDescr iption] [v archar] (2 55) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  3202   [ICDEXPAND EDFLAG] [c har] (1) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  3203   [ICDCODING SYSTEMIEN]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3204   [ETLBATCHI D] [int] N ULL,
  3205   [OPCODE] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NOT  NULL,
  3206   [VISTACREA TEDATE] [d atetime] N ULL,
  3207   [VISTAEDIT DATE] [dat etime] NUL L,
  3208   [CreatedBy ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3209   [UpdatedBy ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3210   [Created]  [datetime]  NULL,
  3211   [Updated]  [datetime]  NULL
  3212   )
  3213   GO
  3214   IF @@ERROR  <> 0 SET  NOEXEC ON
  3215   GO
  3216   PRINT N'Cr eating [CR S].[STD_IC D9Procedur e_Code]'
  3217   GO
  3218   IF OBJECT_ ID(N'[CRS] .[STD_ICD9 Procedure_ Code]', 'U ') IS NULL
  3219   CREATE TAB LE [CRS].[ STD_ICD9Pr ocedure_Co de]
  3220   (
  3221   [ICD9PROCE DURESID] [ int] NOT N ULL,
  3222   [ICD9PROCE DUREIEN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NOT NULL,
  3223   [STA3N] [s mallint] N OT NULL,
  3224   [ICD9PROCE DURECODE]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  3225   [ICD9Proce dureDescri ption] [va rchar] (25 5) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  3226   [ICDEXPAND EDFLAG] [c har] (1) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  3227   [ICDCODING SYSTEMIEN]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3228   [ETLBATCHI D] [int] N ULL,
  3229   [OPCODE] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NOT  NULL,
  3230   [VISTACREA TEDATE] [d atetime] N ULL,
  3231   [VISTAEDIT DATE] [dat etime] NUL L,
  3232   [CreatedBy ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3233   [UpdatedBy ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3234   [Created]  [datetime]  NULL,
  3235   [Updated]  [datetime]  NULL
  3236   )
  3237   GO
  3238   IF @@ERROR  <> 0 SET  NOEXEC ON
  3239   GO
  3240   PRINT N'Cr eating [CR S].[STD_LO CALDRUG]'
  3241   GO
  3242   IF OBJECT_ ID(N'[CRS] .[STD_LOCA LDRUG]', ' U') IS NUL L
  3243   CREATE TAB LE [CRS].[ STD_LOCALD RUG]
  3244   (
  3245   [LocalDrug SID] [int]  NULL,
  3246   [LocalDrug IEN] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3247   [Sta3n] [s mallint] N ULL,
  3248   [LocalDrug NameWithDo se] [varch ar] (100)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3249   [NonFormul aryFlag] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3250   [NationalF ormularyFl ag] [char]  (1) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  3251   [Inactivat ionDate] [ date] NULL ,
  3252   [Inactivat ionVistaEr rorDate] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  3253   [Inactivat ionDateTra nsformSID]  [bigint]  NULL,
  3254   [LocalDrug Message] [ varchar] ( 100) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  3255   [QuantityD ispensedMe ssage] [va rchar] (10 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  3256   [WarningLa bel] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3257   [WarningMe ssageList]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3258   [StandardS ig] [varch ar] (100)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3259   [DEAHandli ng] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  3260   [MaxDosePe rDay] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  3261   [MaxDosePe rDayNumeri c] [decima l] (18, 0)  NULL,
  3262   [OrderUnit ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3263   [PricePerO rderUnit]  [smallmone y] NULL,
  3264   [DispenseU nit] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3265   [DispenseU nitsPerOrd erUnit] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  3266   [DispenseU nitsPerOrd erUnitNume ric] [deci mal] (18,  0) NULL,
  3267   [PricePerD ispenseUni t] [smallm oney] NULL ,
  3268   [CMOPDispe nseFlag] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3269   [CMOPID] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  3270   [VAClassif ication] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  3271   [BestDrugC lass] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  3272   [NationalD rugSID] [i nt] NULL,
  3273   [NationalD rugNameWit hDose] [va rchar] (10 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  3274   [DrugClass SID] [int]  NULL,
  3275   [DrugClass ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3276   [Applicati onPackageU se] [varch ar] (100)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3277   [NDC] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  3278   [DrugNameW ithoutDose SID] [int]  NULL,
  3279   [DrugNameW ithoutDose ] [varchar ] (100) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  3280   [DayOrDose Limit] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3281   [UnitDoseS cheduleTyp e] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  3282   [UnitDoseS chedule] [ varchar] ( 100) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  3283   [PharmacyO rderableIt emSID] [in t] NULL,
  3284   [PharmacyO rderableIt em] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  3285   [UnitDoseM edicationR outeSID] [ int] NULL,
  3286   [UnitDoseM edicationR oute] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  3287   [Correspon dingInpati entLocalDr ugSID] [in t] NULL,
  3288   [Correspon dingInpati entLocalDr ugNameWith Dose] [var char] (100 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3289   [Correspon dingOutpat ientLocalD rugSID] [i nt] NULL,
  3290   [Correspon dingOutpat ientLocalD rugNameWit hDose] [va rchar] (10 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  3291   [NCPDPDisp enseUnit]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  3292   [NCPDPQuan tityMultip lier] [dec imal] (18,  0) NULL,
  3293   [DAW] [int ] NULL,
  3294   [Topograph ySID] [int ] NULL,
  3295   [SourceOfS upply] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3296   [Associate dLabChemTe stSID] [in t] NULL,
  3297   [FederalSt ockNumber]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3298   [NationalD rug] [varc har] (100)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  3299   [Associate dLabChemTe stIEN] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3300   [Correspon dingInpati entLocalDr ugIEN] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3301   [Correspon dingOutpat ientLocalD rugIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  3302   [DrugClass IEN] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3303   [DrugNameW ithoutDose IEN] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3304   [NationalD rugIEN] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  3305   [PharmacyO rderableIt emIEN] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3306   [Topograph yIEN] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  3307   [UnitDoseM edicationR outeIEN] [ varchar] ( 50) COLLAT E SQL_Lati n1_General _CP1_CI_AS  NULL,
  3308   [ETLBatchI D] [int] N ULL,
  3309   [OpCode] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3310   [VistaCrea teDate] [d atetime] N ULL,
  3311   [VistaEdit Date] [dat etime] NUL L,
  3312   [StdRegist ryId] [int ] NULL,
  3313   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3314   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3315   [Created]  [datetime]  NULL,
  3316   [Updated]  [datetime]  NULL
  3317   )
  3318   GO
  3319   IF @@ERROR  <> 0 SET  NOEXEC ON
  3320   GO
  3321   PRINT N'Cr eating [CR S].[STD_LO INC_Code]'
  3322   GO
  3323   IF OBJECT_ ID(N'[CRS] .[STD_LOIN C_Code]',  'U') IS NU LL
  3324   CREATE TAB LE [CRS].[ STD_LOINC_ Code]
  3325   (
  3326   [LOINCSID]  [int] NOT  NULL,
  3327   [Sta3n] [s mallint] N OT NULL,
  3328   [LOINCIEN]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NOT NUL L,
  3329   [LOINC] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  3330   [Component ] [varchar ] (250) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  3331   [Property]  [varchar]  (70) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3332   [TimeAspec t] [varcha r] (70) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  3333   [ScaleType ] [varchar ] (70) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3334   [MethodTyp e] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  3335   [NonPatien tSpecimen]  [varchar]  (70) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3336   [Units] [v archar] (7 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  3337   [ETLBatchI D] [int] N ULL,
  3338   [OPCODE] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NOT  NULL,
  3339   [VISTACREA TEDATE] [d atetime] N ULL,
  3340   [VISTAEDIT DATE] [dat etime] NUL L,
  3341   [CreatedBy ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3342   [UpdatedBy ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3343   [Created]  [datetime]  NULL,
  3344   [Updated]  [datetime]  NULL
  3345   )
  3346   GO
  3347   IF @@ERROR  <> 0 SET  NOEXEC ON
  3348   GO
  3349   PRINT N'Cr eating ind ex [NonClu steredInde x_STD_LOIN C_Code_LOI NCSID] on  [CRS].[STD _LOINC_Cod e]'
  3350   GO
  3351   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex_STD_LO INC_Code_L OINCSID' A ND object_ id = OBJEC T_ID(N'[CR S].[STD_LO INC_Code]' ))
  3352   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex_STD_L OINC_Code_ LOINCSID]  ON [CRS].[ STD_LOINC_ Code] ([LO INCSID])
  3353   GO
  3354   IF @@ERROR  <> 0 SET  NOEXEC ON
  3355   GO
  3356   PRINT N'Cr eating [CR S].[STD_St opCode]'
  3357   GO
  3358   IF OBJECT_ ID(N'[CRS] .[STD_Stop Code]', 'U ') IS NULL
  3359   CREATE TAB LE [CRS].[ STD_StopCo de]
  3360   (
  3361   [STOPCODES ID] [int]  NOT NULL,
  3362   [STOPCODEI EN] [varch ar] (50) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NOT  NULL,
  3363   [STA3N] [s mallint] N OT NULL,
  3364   [STOPCODE]  [smallint ] NULL,
  3365   [STOPCODEN AME] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3366   [INACTIVED ATE] [date ] NULL,
  3367   [CONVERTTO STOPCODEIE N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  3368   [COSTDISTR IBUTIONCEN TER] [varc har] (50)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3369   [RESTRICTI ONTYPE] [c har] (1) C OLLATE SQL _Latin1_Ge neral_CP1_ CI_AS NULL ,
  3370   [RESTRICTI ONDATE] [d ate] NULL,
  3371   [ETLBATCHI D] [int] N ULL,
  3372   [OPCODE] [ char] (1)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NOT  NULL,
  3373   [VISTACREA TEDATE] [d atetime] N ULL,
  3374   [VISTAEDIT DATE] [dat etime] NUL L,
  3375   [CreatedBy ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3376   [UpdatedBy ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3377   [Created]  [datetime]  NULL,
  3378   [Updated]  [datetime]  NULL
  3379   )
  3380   GO
  3381   IF @@ERROR  <> 0 SET  NOEXEC ON
  3382   GO
  3383   PRINT N'Cr eating ind ex [NonClu steredInde x_DIM_Stop Code_STOPC ODESID] on  [CRS].[ST D_StopCode ]'
  3384   GO
  3385   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex_DIM_St opCode_STO PCODESID'  AND object _id = OBJE CT_ID(N'[C RS].[STD_S topCode]') )
  3386   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex_DIM_S topCode_ST OPCODESID]  ON [CRS]. [STD_StopC ode] ([STO PCODESID])
  3387   GO
  3388   IF @@ERROR  <> 0 SET  NOEXEC ON
  3389   GO
  3390   PRINT N'Cr eating [CR S].[TRANSP LANTREGIST RY_TRACER] '
  3391   GO
  3392   IF OBJECT_ ID(N'[CRS] .[TRANSPLA NTREGISTRY _TRACER]',  'U') IS N ULL
  3393   CREATE TAB LE [CRS].[ TRANSPLANT REGISTRY_T RACER]
  3394   (
  3395   [Transplan tID] [int]  NULL,
  3396   [LocationI D] [int] N ULL,
  3397   [LocationN ame] [varc har] (255)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  3398   [FirstName ] [varchar ] (50) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3399   [MiddleNam e] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL,
  3400   [LastName]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3401   [SSN] [var char] (9)  COLLATE SQ L_Latin1_G eneral_CP1 _CI_AS NUL L,
  3402   [DateOfBir th] [date]  NULL,
  3403   [Gender] [ varchar] ( 1) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  3404   [DateOfDea th] [date]  NULL,
  3405   [PatientLa stUpdated]  [datetime ] NULL,
  3406   [Transplan tType] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3407   [Organ] [v archar] (5 0) COLLATE  SQL_Latin 1_General_ CP1_CI_AS  NULL,
  3408   [Transplan tDate] [da te] NULL,
  3409   [KidneyDia lysis] [bi t] NULL,
  3410   [DialysisS tartDate]  [datetime]  NULL,
  3411   [MELDScore ] [int] NU LL,
  3412   [LASScrore ] [float]  NULL,
  3413   [MCADType]  [varchar]  (50) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3414   [Transplan tCreatedDa te] [datet ime] NULL,
  3415   [Transplan tLastUpdat e] [dateti me] NULL,
  3416   [LivingDon orProcedur eType] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3417   [DonorFirs tName] [va rchar] (50 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3418   [DonorMidd leInitial]  [varchar]  (20) COLL ATE SQL_La tin1_Gener al_CP1_CI_ AS NULL,
  3419   [DonorLast Name] [var char] (50)  COLLATE S QL_Latin1_ General_CP 1_CI_AS NU LL,
  3420   [DonorRela tionType]  [varchar]  (50) COLLA TE SQL_Lat in1_Genera l_CP1_CI_A S NULL,
  3421   [DonorLast Update] [d atetime] N ULL,
  3422   [StdRegist ryId] [int ] NULL,
  3423   [CreatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3424   [UpdatedBy ] [varchar ] (30) COL LATE SQL_L atin1_Gene ral_CP1_CI _AS NULL,
  3425   [Created]  [datetime]  NULL,
  3426   [Updated]  [datetime]  NULL,
  3427   [ClosedDat e] [dateti me] NULL,
  3428   [ClosureRe ason] [var char] (250 ) COLLATE  SQL_Latin1 _General_C P1_CI_AS N ULL,
  3429   [Processed Flag] [bit ] NULL,
  3430   [PatientIC N] [varcha r] (50) CO LLATE SQL_ Latin1_Gen eral_CP1_C I_AS NULL
  3431   )
  3432   GO
  3433   IF @@ERROR  <> 0 SET  NOEXEC ON
  3434   GO
  3435   PRINT N'Cr eating ind ex [Cluste redIndex-F N-MN-LN-SS N-TT-Or] o n [CRS].[T RANSPLANTR EGISTRY_TR ACER]'
  3436   GO
  3437   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'Clus teredIndex -FN-MN-LN- SSN-TT-Or'  AND objec t_id = OBJ ECT_ID(N'[ CRS].[TRAN SPLANTREGI STRY_TRACE R]'))
  3438   CREATE CLU STERED IND EX [Cluste redIndex-F N-MN-LN-SS N-TT-Or] O N [CRS].[T RANSPLANTR EGISTRY_TR ACER] ([Fi rstName],  [MiddleNam e], [LastN ame], [SSN ], [Transp lantType],  [Organ])
  3439   GO
  3440   IF @@ERROR  <> 0 SET  NOEXEC ON
  3441   GO
  3442   PRINT N'Cr eating ind ex [NonClu steredInde x-ID-SSN-D OD] on [CR S].[TRANSP LANTREGIST RY_TRACER] '
  3443   GO
  3444   IF NOT EXI STS (SELEC T 1 FROM s ys.indexes  WHERE nam e = N'NonC lusteredIn dex-ID-SSN -DOD' AND  object_id  = OBJECT_I D(N'[CRS]. [TRANSPLAN TREGISTRY_ TRACER]'))
  3445   CREATE NON CLUSTERED  INDEX [Non ClusteredI ndex-ID-SS N-DOD] ON  [CRS].[TRA NSPLANTREG ISTRY_TRAC ER] ([Tran splantID],  [SSN], [D ateOfDeath ])
  3446   GO
  3447   IF @@ERROR  <> 0 SET  NOEXEC ON
  3448   GO
  3449   PRINT N'Cr eating [CR S].[GetAgg regatesRep ort]'
  3450   GO
  3451   IF OBJECT_ ID(N'[CRS] .[GetAggre gatesRepor t]', 'P')  IS NULL
  3452   EXEC sp_ex ecutesql N '
  3453   CREATE PRO CEDURE [CR S].[GetAgg regatesRep ort]
  3454           @C oreTypeOne  varchar(1 00) = NULL ,
  3455           @C oreCodeOne  varchar(1 00) = NULL ,
  3456           @C ohortTypeO ne varchar (100) = NU LL,
  3457           @C ohortCodeO ne varchar (100) = NU LL,
  3458           @C oreTypeTwo  varchar(1 00) = NULL ,
  3459           @C oreCodeTwo  varchar(1 00) = NULL ,
  3460           @C ohortTypeT wo varchar (100) = NU LL,
  3461           @C ohortCodeT wo varchar (100) = NU LL
  3462   AS
  3463   BEGIN
  3464  
  3465           --  SET NOCOU NT ON adde d to preve nt extra r esult sets  from
  3466           --  interferi ng with SE LECT state ments.
  3467           SE T NOCOUNT  ON;
  3468  
  3469           DE CLARE @Sel ect varcha r(4000)
  3470           DE CLARE @Whe re varchar (4000)
  3471           DE CLARE @Joi ns varchar (4000)
  3472           DE CLARE @Sel ectAs varc har(4000)
  3473           DE CLARE @Fie lds varcha r(4000)
  3474           DE CLARE @Gro upBy varch ar(4000)
  3475           DE CLARE @Fie ld varchar (1000) = N ULL
  3476  
  3477           SE T @Where =  '' WHERE  (RF.STD_RE GISTRY_ID  = ''''12'' '')''
  3478  
  3479           SE T @Joins =  '' LEFT J OIN CRS.PA TIENT PT O N PT.PATIE NTSID = SP T.PatientS ID''
  3480           SE T @Joins =  @Joins +  '' LEFT JO IN CRS.REF ERRAL RF O N RF.PATIE NT_ID = PT .PATIENT_I D''
  3481  
  3482           SE T @Fields  = NULL
  3483  
  3484           SE T @GroupBy  = NULL
  3485           SE T @Field =  NULL
  3486  
  3487           IF  @CoreType One IS NOT  NULL
  3488                    BEGI N
  3489                    
  3490                             --Chec k for Core  types sta rts here
  3491  
  3492                             IF @Co reTypeOne  = ''Allerg y''
  3493                                      BEGIN
  3494                                               SET @Joins  = @Joins  + '' LEFT  JOIN CRS.A llergy AL  ON AL.Pati entSID = S PT.Patient SID''
  3495                                               SET @Field  = '' AL.A llergyType ''
  3496                                      END
  3497  
  3498                             IF @Co reTypeOne  = ''Patien t - Ethnic ity''
  3499                                      BEGIN
  3500                                               SET @Joins  = @Joins  + '' LEFT  JOIN CRS.P ATIENT_ETH NICITY PE  ON PE.Pati entSID = S PT.Patient SID''
  3501                                               SET @Field  = '' PE.E thnicity''
  3502                                      END
  3503  
  3504                             IF @Co reTypeOne  = ''Patien t - OEF/OI F''
  3505                                      BEGIN
  3506                                               SET @Joins  = @Joins  + '' LEFT  JOIN CRS.O EFOIF_SERV ICE OS ON  OS.Patient SID = SPT. PatientSID ''
  3507                                               SET @Field  = '' OS.L ocationOfS ervice''
  3508                                      END
  3509  
  3510                             --Chec k for Core  types sta rts here
  3511  
  3512                             IF @Fi elds IS NU LL
  3513                                      BEGIN
  3514                                               SET @Selec tAs = @Fie ld + '' AS  CoreTypeO ne''
  3515                                      END
  3516                             ELSE
  3517                                      BEGIN
  3518                                               SET @Selec tAs = @Sel ectAs + '' , '' + @Fi eld + '' A S CoreType One''
  3519                                      END
  3520  
  3521                             IF @Fi elds IS NU LL
  3522                                      BEGIN
  3523                                               SET @Field s = @Field
  3524                                      END
  3525                             ELSE
  3526                                      BEGIN
  3527                                               SET @Field s = @Field s + '', ''  + @Field
  3528                                      END
  3529  
  3530                             IF @Co reCodeOne  IS NULL
  3531                                      BEGIN
  3532                                               SET @Where  = @Where  + '' AND ( '' + @Fiel d + '' IS  NOT NULL)' '
  3533                                      END
  3534                             ELSE
  3535                                      BEGIN
  3536                                               SET @Where  = @Where  + '' AND ( '' + @Fiel d + ''=''' ''' + @Cor eCodeOne +  '''''')''
  3537                                      END
  3538                    END
  3539  
  3540           IF  @CohortTy peOne IS N OT NULL
  3541                    BEGI N
  3542                    
  3543                             --Chec k for Coho rt types s tarts here
  3544  
  3545                             IF @Co hortTypeOn e = ''Gend er''
  3546                                      BEGIN
  3547                                               SET @Field  = ''SPT.G ender''
  3548                                      END
  3549                             ELSE I F @CohortT ypeOne = ' 'Ethnicity ''
  3550                                      BEGIN
  3551                                               SET @Joins  = @Joins  + '' LEFT  JOIN CRS.P ATIENT_ETH NICITY PE  ON PE.Pati entSID = S PT.Patient SID''
  3552                                               SET @Field  = ''PE.Et hnicity''
  3553                                      END
  3554                             
  3555  
  3556                             --Chec k for Coho rt types e nds here
  3557  
  3558                             IF @Fi elds IS NU LL
  3559                                      BEGIN
  3560                                               SET @Selec tAs = @Fie ld + '' AS  CohortTyp eOne''
  3561                                      END
  3562                             ELSE
  3563                                      BEGIN
  3564                                               SET @Selec tAs = @Sel ectAs + '' , '' + @Fi eld + '' A S CohortTy peOne''
  3565                                      END
  3566  
  3567                             IF @Fi elds IS NU LL
  3568                                      BEGIN
  3569                                               SET @Field s = @Field
  3570                                      END
  3571                             ELSE
  3572                                      BEGIN
  3573                                               SET @Field s = @Field s + '',''  + @Field
  3574                                      END
  3575                             IF @Co hortCodeOn e IS NULL
  3576                                      BEGIN
  3577                                               SET @Where  = @Where  + '' AND ( '' + @Fiel d + '' IS  NOT NULL)' '
  3578                                      END
  3579                             ELSE
  3580                                      BEGIN
  3581  
  3582                                               SET @Where  = @Where  + '' AND ( '' + @Fiel d + ''=''' ''' + @Coh ortCodeOne  + '''''') ''
  3583                                      END
  3584                    END
  3585  
  3586           IF  @CoreType Two IS NOT  NULL
  3587                    BEGI N
  3588                    
  3589                             --Chec k for Addi tional Cor e types st arts here
  3590  
  3591                             IF @Co reTypeTwo  = ''Allerg y''
  3592                                      BEGIN
  3593                                               SET @Joins  = @Joins  + '' LEFT  JOIN CRS.A llergy AL  ON AL.Pati entSID = S PT.Patient SID''
  3594                                               SET @Field  = '' AL.A llergyType ''
  3595                                      END
  3596  
  3597                             IF @Co reTypeTwo  = ''Patien t - Ethnic ity''
  3598                                      BEGIN
  3599                                               SET @Joins  = @Joins  + '' LEFT  JOIN CRS.P ATIENT_ETH NICITY PE  ON PE.Pati entSID = S PT.Patient SID''
  3600                                               SET @Field  = '' PE.E thnicity''
  3601                                      END
  3602  
  3603                             IF @Co reTypeTwo  = ''Patien t - OEF/OI F''
  3604                                      BEGIN
  3605                                               SET @Joins  = @Joins  + '' LEFT  JOIN CRS.O EFOIF_SERV ICE OS ON  OS.Patient SID = SPT. PatientSID ''
  3606                                               SET @Field  = '' OS.L ocationOfS ervice''
  3607                                      END
  3608  
  3609                             --Chec k for Addi tional Cor e types st arts here
  3610  
  3611                             IF @Fi elds IS NU LL
  3612                                      BEGIN
  3613                                               SET @Selec tAs = @Fie ld + '' AS  CoreTypeT wo''
  3614                                      END
  3615                             ELSE
  3616                                      BEGIN
  3617                                               SET @Selec tAs = @Sel ectAs + '' , '' + @Fi eld + '' A S CoreType Two''
  3618                                      END
  3619  
  3620                             IF @Fi elds IS NU LL
  3621                                      BEGIN
  3622                                               SET @Field s = @Field
  3623                                      END
  3624                             ELSE
  3625                                      BEGIN
  3626                                               SET @Field s = @Field s + '', ''  + @Field
  3627                                      END
  3628  
  3629                             IF @Co reCodeTwo  IS NULL
  3630                                      BEGIN
  3631                                               SET @Where  = @Where  + '' AND ( '' + @Fiel d + '' IS  NOT NULL)' '
  3632                                      END
  3633                             ELSE
  3634                                      BEGIN
  3635                                               SET @Where  = @Where  + '' AND ( '' + @Fiel d + ''=''' ''' + @Cor eCodeTwo +  '''''')''
  3636                                      END
  3637                    END
  3638  
  3639           IF  @CohortTy peTwo IS N OT NULL
  3640                    BEGI N
  3641                    
  3642                             --Chec k for Addi tional Coh ort types  starts her e
  3643  
  3644                             IF @Co hortTypeTw o = ''Gend er''
  3645                                      BEGIN
  3646                                               SET @Field  = ''SPT.G ender''
  3647                                      END
  3648                             ELSE I F @CohortT ypeTwo = ' 'Ethnicity ''
  3649                                      BEGIN
  3650                                               SET @Joins  = @Joins  + '' LEFT  JOIN CRS.P ATIENT_ETH NICITY PE  ON PE.Pati entSID = S PT.Patient SID''
  3651                                               SET @Field  = ''PE.Et hnicity''
  3652                                      END
  3653                             
  3654  
  3655                             --Chec k for Addi tional Coh ort types  ends here
  3656  
  3657                             IF @Fi elds IS NU LL
  3658                                      BEGIN
  3659                                               SET @Selec tAs = @Fie ld + '' AS  CohortTyp eTwo''
  3660                                      END
  3661                             ELSE
  3662                                      BEGIN
  3663                                               SET @Selec tAs = @Sel ectAs + '' , '' + @Fi eld + '' A S CohortTy peTwo''
  3664                                      END
  3665  
  3666                             IF @Fi elds IS NU LL
  3667                                      BEGIN
  3668                                               SET @Field s = @Field
  3669                                      END
  3670                             ELSE
  3671                                      BEGIN
  3672                                               SET @Field s = @Field s + '',''  + @Field
  3673                                      END
  3674                             IF @Co hortCodeTw o IS NULL
  3675                                      BEGIN
  3676                                               SET @Where  = @Where  + '' AND ( '' + @Fiel d + '' IS  NOT NULL)' '
  3677                                      END
  3678                             ELSE
  3679                                      BEGIN
  3680  
  3681                                               SET @Where  = @Where  + '' AND ( '' + @Fiel d + ''=''' ''' + @Coh ortCodeTwo  + '''''') ''
  3682                                      END
  3683                    END
  3684  
  3685           IF  @Fields I S NULL
  3686                    BEGI N
  3687                             SET @F ields = ''  SPT.PATIE NTFIRSTNAM E, SPT.PAT IENTLASTNA ME ''
  3688                    END
  3689  
  3690           SE T @GroupBy  = '' GROU P BY '' +  @Fields
  3691  
  3692           SE T @Select  = ''SELECT  '' + @Sel ectAs + '' , COUNT(DI STINCT SPT .PatientSI D) AS Coun t FROM CRS .SPATIENT  SPT''
  3693           IF  @Joins IS  NOT NULL
  3694                    BEGI N
  3695                             SET @S elect = @S elect + @J oins
  3696                    END
  3697           SE T @Select  = @Select  + @Where
  3698           SE T @Select  = @Select  + @GroupBy
  3699  
  3700           EX EC (@Selec t)
  3701  
  3702   END
  3703   '
  3704   GO
  3705   IF @@ERROR  <> 0 SET  NOEXEC ON
  3706   GO
  3707   COMMIT TRA NSACTION
  3708   GO
  3709   IF @@ERROR  <> 0 SET  NOEXEC ON
  3710   GO
  3711   DECLARE @S uccess AS  BIT
  3712   SET @Succe ss = 1
  3713   SET NOEXEC  OFF
  3714   IF (@Succe ss = 1) PR INT 'The d atabase up date succe eded'
  3715   ELSE BEGIN
  3716           IF  @@TRANCOU NT > 0 ROL LBACK TRAN SACTION
  3717           PR INT 'The d atabase up date faile d'
  3718   END
  3719   GO