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.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | registries.zip\registries\Combined_registries_code\Registries VIRP Database\Database Objects\VIRP Build Four | VIRP_Build_Four_CRS_SP_Script.sql | Wed Jun 27 16:56:54 2018 UTC |
| 2 | registries.zip\registries\Combined_registries_code\Registries VIRP Database\Database Objects\VIRP Build Four | VIRP_Build_Four_CRS_SP_Script.sql | Wed Jun 27 17:35:44 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 3 | 698 |
| Changed | 2 | 4 |
| Inserted | 0 | 0 |
| Removed | 0 | 0 |
| 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 |
No regular expressions were active.
| 1 | /****** Ob ject: Sto redProcedu re [CRS].[ usp_APPT_A PPOINTMENT _getitemsB yReferral] Script Date: 3/1 2/2018 3:0 5:25 PM ** ****/ | |
| 2 | IF EXISTS (SELECT * FROM sys. objects WH ERE object _id = OBJE CT_ID(N'[C RS].[usp_A PPT_APPOIN TMENT_geti temsByRefe rral]') AN D type in (N'P', N'P C')) | |
| 3 | DROP PROCE DURE [CRS] .[usp_APPT _APPOINTME NT_getitem sByReferra l] | |
| 4 | GO | |
| 5 | ||
| 6 | /****** Ob ject: Sto redProcedu re [CRS].[ usp_APPT_A PPOINTMENT _getitemsB yReferral] Script Date: 3/1 2/2018 3:0 5:25 PM ** ****/ | |
| 7 | SET ANSI_N ULLS ON | |
| 8 | GO | |
| 9 | ||
| 10 | SET QUOTED _IDENTIFIE R ON | |
| 11 | GO | |
| 12 | ||
| 13 | IF NOT EXI STS (SELEC T * FROM s ys.objects WHERE obj ect_id = O BJECT_ID(N '[CRS].[us p_APPT_APP OINTMENT_g etitemsByR eferral]') AND type in (N'P', N'PC')) | |
| 14 | BEGIN | |
| 15 | EXEC dbo.s p_executes ql @statem ent = N' | |
| 16 | ||
| 17 | ||
| 18 | ||
| 19 | -- ======= ========== ========== ========== ======== | |
| 20 | -- Author: | |
| 21 | -- Create date: 5/ 7/2018 | |
| 22 | -- Descrip tion: Ge t all Appo intment re cords by R eferral | |
| 23 | -- ======= ========== ========== ========== ======== | |
| 24 | CREATE PRO CEDURE [CR S].[usp_AP PT_APPOINT MENT_getit emsByRefer ral] (@CUR RENT_USER varchar(30 ), @CURREN T_REGISTRY _ID int, @ REFERRAL_I D int) | |
| 25 | AS | |
| 26 | BEGIN | |
| 27 | -- SET NOCOU NT ON adde d to preve nt extra r esult sets from | |
| 28 | -- interferi ng with SE LECT state ments. | |
| 29 | SE T NOCOUNT ON; | |
| 30 | ||
| 31 | DE CLARE @Err orMsg varc har(max); | |
| 32 | ||
| 33 | IF ([CRS].[V alidateUse r](@CURREN T_USER, @C URRENT_REG ISTRY_ID) = 0) | |
| 34 | BE GIN | |
| 35 | SET @ErrorMsg = ''User i s not auth orized to perform th is action. ''; | |
| 36 | EXEC [CRS].[In sDBLog] @C URRENT_REG ISTRY_ID, 0, ''CRS.u sp_APPT_AP POINTMENT_ getitemsBy Referral'' , @ErrorMs g, ''User is not par t of this Registry'' , @CURRENT _USER | |
| 37 | SELE CT @ErrorM sg as [Err orMsg]; | |
| 38 | RETU RN | |
| 39 | EN D | |
| 40 | ||
| 41 | SE LECT | |
| 42 | a.* | |
| 43 | FR OM | |
| 44 | [CRS ].[vw_APPT _APPOINTME NT] a | |
| 45 | inner join CRS.S PATIENT s on a.patie ntsid=s.pa tientsid | |
| 46 | inner join CRS.P ATIENT p o n s.patien ticn=p.pat ienticn | |
| 47 | inner join CRS.R EFERRAL r on p.patie nt_id=r.pa tient_id | |
| 48 | WH ERE r.REFE RRAL_ID = @REFERRAL_ ID | |
| 49 | OR DER BY a.A PPOINTMENT DATETIME | |
| 50 | ||
| 51 | END | |
| 52 | ||
| 53 | ' | |
| 54 | END | |
| 55 | GO | |
| 56 | ||
| 57 | ---------- ---------- ---------- - | |
| 58 | --Add Appo intments a s CORE Typ e | |
| 59 | ---------- ---------- ---------- - | |
| 60 | ||
| 61 | if not exi sts(select * from CR S.STD_REGI STRY_CORE_ TYPES wher e DESCRIPT ION_TEXT=' Appointmen ts') | |
| 62 | begin | |
| 63 | in sert into CRS.STD_RE GISTRY_COR E_TYPES (T ABLE_NAME, CODE,NAME, DESCRIPTIO N_TEXT,CRE ATEDBY,UPD ATEDBY,CRE ATED,UPDAT ED,DEFAULT _FLAG) | |
| 64 | va lues ('APP T_APPOINTM ENT','Appo intments', 'Appointme nts','Appo intments', 'InsertScr ipt','Inse rtScript', CURRENT_TI MESTAMP,CU RRENT_TIME STAMP,1); | |
| 65 | end | |
| 66 | go | |
| 67 | ||
| 68 | ---------- ---------- ---------- --- | |
| 69 | --Associat e Appointm ents with KDR | |
| 70 | ---------- ---------- ---------- --- | |
| 71 | ||
| 72 | if exists( select ID from CRS.S TD_REGISTR Y where CO DE='KDR') | |
| 73 | begin | |
| 74 | if not exist s(select * from CRS. REGISTRY_C ORE_DATA w here STD_R EGISTRY_ID =(select I D from CRS .STD_REGIS TRY where CODE='KDR' ) and CORE _TYPE_ID=( select COR E_TYPE_ID from CRS.S TD_REGISTR Y_CORE_TYP ES where D ESCRIPTION _TEXT='App ointments' )) | |
| 75 | be gin | |
| 76 | inse rt into CR S.REGISTRY _CORE_DATA (STD_REGI STRY_ID,CO RE_TYPE_ID ,CREATEDBY ,UPDATEDBY ,CREATED,U PDATED,SEL ECTED_FLAG ) | |
| 77 | valu es ((selec t ID from CRS.STD_RE GISTRY whe re CODE='K DR'),(sele ct CORE_TY PE_ID from CRS.STD_R EGISTRY_CO RE_TYPES w here DESCR IPTION_TEX T='Appoint ments'),'I nsertScrip t','Insert Script',CU RRENT_TIME STAMP,CURR ENT_TIMEST AMP,1); | |
| 78 | en d | |
| 79 | end | |
| 80 | go | |
| 81 | ||
| 82 | ---------- ---------- -------- | |
| 83 | --Add Enco unter as C ORE Type | |
| 84 | ---------- ---------- -------- | |
| 85 | ||
| 86 | if not exi sts(select * from CR S.STD_REGI STRY_CORE_ TYPES wher e DESCRIPT ION_TEXT=' Encounter' ) | |
| 87 | begin | |
| 88 | in sert into CRS.STD_RE GISTRY_COR E_TYPES (T ABLE_NAME, CODE,NAME, DESCRIPTIO N_TEXT,CRE ATEDBY,UPD ATEDBY,CRE ATED,UPDAT ED,DEFAULT _FLAG) | |
| 89 | va lues ('ENC _ENCOUNTER ','Encount er','Encou nter','Enc ounter','I nsertScrip t','Insert Script',CU RRENT_TIME STAMP,CURR ENT_TIMEST AMP,1); | |
| 90 | end | |
| 91 | go | |
| 92 | ||
| 93 | ---------- ---------- ---------- ---------- ---------- | |
| 94 | --Associat e Encounte r with the existing Registries | |
| 95 | ---------- ---------- ---------- ---------- ---------- | |
| 96 | ||
| 97 | if exists( select ID from CRS.S TD_REGISTR Y where CO DE='KDR') | |
| 98 | begin | |
| 99 | if not exist s(select * from CRS. REGISTRY_C ORE_DATA w here STD_R EGISTRY_ID =(select I D from CRS .STD_REGIS TRY where CODE='KDR' ) and CORE _TYPE_ID=( select COR E_TYPE_ID from CRS.S TD_REGISTR Y_CORE_TYP ES where D ESCRIPTION _TEXT='Enc ounter')) | |
| 100 | be gin | |
| 101 | inse rt into CR S.REGISTRY _CORE_DATA (STD_REGI STRY_ID,CO RE_TYPE_ID ,CREATEDBY ,UPDATEDBY ,CREATED,U PDATED,SEL ECTED_FLAG ) | |
| 102 | valu es ((selec t ID from CRS.STD_RE GISTRY whe re CODE='K DR'),(sele ct CORE_TY PE_ID from CRS.STD_R EGISTRY_CO RE_TYPES w here DESCR IPTION_TEX T='Encount er'),'Inse rtScript', 'InsertScr ipt',CURRE NT_TIMESTA MP,CURRENT _TIMESTAMP ,0); | |
| 103 | en d | |
| 104 | end | |
| 105 | go | |
| 106 | ||
| 107 | if exists( select ID from CRS.S TD_REGISTR Y where CO DE='TR') | |
| 108 | begin | |
| 109 | if not exist s(select * from CRS. REGISTRY_C ORE_DATA w here STD_R EGISTRY_ID =(select I D from CRS .STD_REGIS TRY where CODE='TR') and CORE_ TYPE_ID=(s elect CORE _TYPE_ID f rom CRS.ST D_REGISTRY _CORE_TYPE S where DE SCRIPTION_ TEXT='Enco unter')) | |
| 110 | be gin | |
| 111 | inse rt into CR S.REGISTRY _CORE_DATA (STD_REGI STRY_ID,CO RE_TYPE_ID ,CREATEDBY ,UPDATEDBY ,CREATED,U PDATED,SEL ECTED_FLAG ) | |
| 112 | valu es ((selec t ID from CRS.STD_RE GISTRY whe re CODE='T R'),(selec t CORE_TYP E_ID from CRS.STD_RE GISTRY_COR E_TYPES wh ere DESCRI PTION_TEXT ='Encounte r'),'Inser tScript',' InsertScri pt',CURREN T_TIMESTAM P,CURRENT_ TIMESTAMP, 0); | |
| 113 | en d | |
| 114 | end | |
| 115 | go | |
| 116 | ||
| 117 | if exists( select ID from CRS.S TD_REGISTR Y where CO DE='AR') | |
| 118 | begin | |
| 119 | if not exist s(select * from CRS. REGISTRY_C ORE_DATA w here STD_R EGISTRY_ID =(select I D from CRS .STD_REGIS TRY where CODE='AR') and CORE_ TYPE_ID=(s elect CORE _TYPE_ID f rom CRS.ST D_REGISTRY _CORE_TYPE S where DE SCRIPTION_ TEXT='Enco unter')) | |
| 120 | be gin | |
| 121 | inse rt into CR S.REGISTRY _CORE_DATA (STD_REGI STRY_ID,CO RE_TYPE_ID ,CREATEDBY ,UPDATEDBY ,CREATED,U PDATED,SEL ECTED_FLAG ) | |
| 122 | valu es ((selec t ID from CRS.STD_RE GISTRY whe re CODE='A R'),(selec t CORE_TYP E_ID from CRS.STD_RE GISTRY_COR E_TYPES wh ere DESCRI PTION_TEXT ='Encounte r'),'Inser tScript',' InsertScri pt',CURREN T_TIMESTAM P,CURRENT_ TIMESTAMP, 0); | |
| 123 | en d | |
| 124 | end | |
| 125 | go | |
| 126 | ||
| 127 | if exists( select ID from CRS.S TD_REGISTR Y where CO DE='HR') | |
| 128 | begin | |
| 129 | if not exist s(select * from CRS. REGISTRY_C ORE_DATA w here STD_R EGISTRY_ID =(select I D from CRS .STD_REGIS TRY where CODE='HR') and CORE_ TYPE_ID=(s elect CORE _TYPE_ID f rom CRS.ST D_REGISTRY _CORE_TYPE S where DE SCRIPTION_ TEXT='Enco unter')) | |
| 130 | be gin | |
| 131 | inse rt into CR S.REGISTRY _CORE_DATA (STD_REGI STRY_ID,CO RE_TYPE_ID ,CREATEDBY ,UPDATEDBY ,CREATED,U PDATED,SEL ECTED_FLAG ) | |
| 132 | valu es ((selec t ID from CRS.STD_RE GISTRY whe re CODE='H R'),(selec t CORE_TYP E_ID from CRS.STD_RE GISTRY_COR E_TYPES wh ere DESCRI PTION_TEXT ='Encounte r'),'Inser tScript',' InsertScri pt',CURREN T_TIMESTAM P,CURRENT_ TIMESTAMP, 0); | |
| 133 | en d | |
| 134 | end | |
| 135 | go | |
| 136 | ||
| 137 | if exists( select ID from CRS.S TD_REGISTR Y where CO DE='ONC') | |
| 138 | begin | |
| 139 | if not exist s(select * from CRS. REGISTRY_C ORE_DATA w here STD_R EGISTRY_ID =(select I D from CRS .STD_REGIS TRY where CODE='ONC' ) and CORE _TYPE_ID=( select COR E_TYPE_ID from CRS.S TD_REGISTR Y_CORE_TYP ES where D ESCRIPTION _TEXT='Enc ounter')) | |
| 140 | be gin | |
| 141 | inse rt into CR S.REGISTRY _CORE_DATA (STD_REGI STRY_ID,CO RE_TYPE_ID ,CREATEDBY ,UPDATEDBY ,CREATED,U PDATED,SEL ECTED_FLAG ) | |
| 142 | valu es ((selec t ID from CRS.STD_RE GISTRY whe re CODE='O NC'),(sele ct CORE_TY PE_ID from CRS.STD_R EGISTRY_CO RE_TYPES w here DESCR IPTION_TEX T='Encount er'),'Inse rtScript', 'InsertScr ipt',CURRE NT_TIMESTA MP,CURRENT _TIMESTAMP ,0); | |
| 143 | en d | |
| 144 | end | |
| 145 | go | |
| 146 | ||
| 147 | ---------- ---------- ---------- --- | |
| 148 | --Add Pati ent - Race as CORE T ype | |
| 149 | ---------- ---------- ---------- --- | |
| 150 | ||
| 151 | if not exi sts(select * from CR S.STD_REGI STRY_CORE_ TYPES wher e DESCRIPT ION_TEXT=' Patient - Race') | |
| 152 | begin | |
| 153 | in sert into CRS.STD_RE GISTRY_COR E_TYPES (T ABLE_NAME, CODE,NAME, DESCRIPTIO N_TEXT,CRE ATEDBY,UPD ATEDBY,CRE ATED,UPDAT ED,DEFAULT _FLAG) | |
| 154 | va lues ('PAT SUB_PATIEN TRACE','Pa tient - Ra ce','Patie nt - Race' ,'Patient - Race','I nsertScrip t','Insert Script',CU RRENT_TIME STAMP,CURR ENT_TIMEST AMP,1); | |
| 155 | end | |
| 156 | go | |
| 157 | ||
| 158 | ---------- ---------- ---------- ---------- ---------- ----- | |
| 159 | --Associat e Patient - Race wit h the exis ting Regis tries | |
| 160 | ---------- ---------- ---------- ---------- ---------- ----- | |
| 161 | ||
| 162 | if exists( select ID from CRS.S TD_REGISTR Y where CO DE='KDR') | |
| 163 | begin | |
| 164 | if not exist s(select * from CRS. REGISTRY_C ORE_DATA w here STD_R EGISTRY_ID =(select I D from CRS .STD_REGIS TRY where CODE='KDR' ) and CORE _TYPE_ID=( select COR E_TYPE_ID from CRS.S TD_REGISTR Y_CORE_TYP ES where D ESCRIPTION _TEXT='Pat ient - Rac e')) | |
| 165 | be gin | |
| 166 | inse rt into CR S.REGISTRY _CORE_DATA (STD_REGI STRY_ID,CO RE_TYPE_ID ,CREATEDBY ,UPDATEDBY ,CREATED,U PDATED,SEL ECTED_FLAG ) | |
| 167 | valu es ((selec t ID from CRS.STD_RE GISTRY whe re CODE='K DR'),(sele ct CORE_TY PE_ID from CRS.STD_R EGISTRY_CO RE_TYPES w here DESCR IPTION_TEX T='Patient - Race'), 'InsertScr ipt','Inse rtScript', CURRENT_TI MESTAMP,CU RRENT_TIME STAMP,0); | |
| 168 | en d | |
| 169 | end | |
| 170 | go | |
| 171 | ||
| 172 | if exists( select ID from CRS.S TD_REGISTR Y where CO DE='TR') | |
| 173 | begin | |
| 174 | if not exist s(select * from CRS. REGISTRY_C ORE_DATA w here STD_R EGISTRY_ID =(select I D from CRS .STD_REGIS TRY where CODE='TR') and CORE_ TYPE_ID=(s elect CORE _TYPE_ID f rom CRS.ST D_REGISTRY _CORE_TYPE S where DE SCRIPTION_ TEXT='Pati ent - Race ')) | |
| 175 | be gin | |
| 176 | inse rt into CR S.REGISTRY _CORE_DATA (STD_REGI STRY_ID,CO RE_TYPE_ID ,CREATEDBY ,UPDATEDBY ,CREATED,U PDATED,SEL ECTED_FLAG ) | |
| 177 | valu es ((selec t ID from CRS.STD_RE GISTRY whe re CODE='T R'),(selec t CORE_TYP E_ID from CRS.STD_RE GISTRY_COR E_TYPES wh ere DESCRI PTION_TEXT ='Patient - Race'),' InsertScri pt','Inser tScript',C URRENT_TIM ESTAMP,CUR RENT_TIMES TAMP,0); | |
| 178 | en d | |
| 179 | end | |
| 180 | go | |
| 181 | ||
| 182 | if exists( select ID from CRS.S TD_REGISTR Y where CO DE='AR') | |
| 183 | begin | |
| 184 | if not exist s(select * from CRS. REGISTRY_C ORE_DATA w here STD_R EGISTRY_ID =(select I D from CRS .STD_REGIS TRY where CODE='AR') and CORE_ TYPE_ID=(s elect CORE _TYPE_ID f rom CRS.ST D_REGISTRY _CORE_TYPE S where DE SCRIPTION_ TEXT='Pati ent - Race ')) | |
| 185 | be gin | |
| 186 | inse rt into CR S.REGISTRY _CORE_DATA (STD_REGI STRY_ID,CO RE_TYPE_ID ,CREATEDBY ,UPDATEDBY ,CREATED,U PDATED,SEL ECTED_FLAG ) | |
| 187 | valu es ((selec t ID from CRS.STD_RE GISTRY whe re CODE='A R'),(selec t CORE_TYP E_ID from CRS.STD_RE GISTRY_COR E_TYPES wh ere DESCRI PTION_TEXT ='Patient - Race'),' InsertScri pt','Inser tScript',C URRENT_TIM ESTAMP,CUR RENT_TIMES TAMP,0); | |
| 188 | en d | |
| 189 | end | |
| 190 | go | |
| 191 | ||
| 192 | if exists( select ID from CRS.S TD_REGISTR Y where CO DE='HR') | |
| 193 | begin | |
| 194 | if not exist s(select * from CRS. REGISTRY_C ORE_DATA w here STD_R EGISTRY_ID =(select I D from CRS .STD_REGIS TRY where CODE='HR') and CORE_ TYPE_ID=(s elect CORE _TYPE_ID f rom CRS.ST D_REGISTRY _CORE_TYPE S where DE SCRIPTION_ TEXT='Pati ent - Race ')) | |
| 195 | be gin | |
| 196 | inse rt into CR S.REGISTRY _CORE_DATA (STD_REGI STRY_ID,CO RE_TYPE_ID ,CREATEDBY ,UPDATEDBY ,CREATED,U PDATED,SEL ECTED_FLAG ) | |
| 197 | valu es ((selec t ID from CRS.STD_RE GISTRY whe re CODE='H R'),(selec t CORE_TYP E_ID from CRS.STD_RE GISTRY_COR E_TYPES wh ere DESCRI PTION_TEXT ='Patient - Race'),' InsertScri pt','Inser tScript',C URRENT_TIM ESTAMP,CUR RENT_TIMES TAMP,0); | |
| 198 | en d | |
| 199 | end | |
| 200 | go | |
| 201 | ||
| 202 | if exists( select ID from CRS.S TD_REGISTR Y where CO DE='ONC') | |
| 203 | begin | |
| 204 | if not exist s(select * from CRS. REGISTRY_C ORE_DATA w here STD_R EGISTRY_ID =(select I D from CRS .STD_REGIS TRY where CODE='ONC' ) and CORE _TYPE_ID=( select COR E_TYPE_ID from CRS.S TD_REGISTR Y_CORE_TYP ES where D ESCRIPTION _TEXT='Pat ient - Rac e')) | |
| 205 | be gin | |
| 206 | inse rt into CR S.REGISTRY _CORE_DATA (STD_REGI STRY_ID,CO RE_TYPE_ID ,CREATEDBY ,UPDATEDBY ,CREATED,U PDATED,SEL ECTED_FLAG ) | |
| 207 | valu es ((selec t ID from CRS.STD_RE GISTRY whe re CODE='O NC'),(sele ct CORE_TY PE_ID from CRS.STD_R EGISTRY_CO RE_TYPES w here DESCR IPTION_TEX T='Patient - Race'), 'InsertScr ipt','Inse rtScript', CURRENT_TI MESTAMP,CU RRENT_TIME STAMP,0); | |
| 208 | en d | |
| 209 | end | |
| 210 | go | |
| 211 | ||
| 212 | ---------- ---------- | |
| 213 | --ADD KDR STOP CODES | |
| 214 | ---------- ---------- | |
| 215 | if NOT EXI STS(select COHORT_TY PE_ID from CRS.STD_R EGISTRY_CO HORT_TYPES t inner j oin CRS.RE GISTRY_COH ORT_DATA r on r.std_ registry_c ohort_type _id=t.coho rt_type_id where r.s td_registr y_id=(sele ct ID from CRS.STD_R EGISTRY wh ere CODE=' KDR') and t.descript ion_text=' StopCode' and t.code in ('313' ,'602','60 3','604',' 605','606' ,'607','60 8')) | |
| 216 | begin | |
| 217 | in sert into CRS.REGIST RY_COHORT_ DATA (std_ registry_i d,std_regi stry_cohor t_type_id, createdby, updatedby, created,up dated,sele cted_flag) | |
| 218 | se lect (sele ct ID from CRS.STD_R EGISTRY wh ere CODE=' KDR'),COHO RT_TYPE_ID ,' DN S \ DN S BLANCT',' DN S \ DN S BLANCT',cu rrent_time stamp,curr ent_timest amp,1 from CRS.STD_R EGISTRY_CO HORT_TYPES where des cription_t ext='StopC ode' and c ode in ('3 13','602', '603','604 ','605','6 06','607', '608') ord er by COHO RT_TYPE_ID | |
| 219 | end | |
| 220 | ||
| 221 | ---------- ---------- - | |
| 222 | --ADD KDR LOINC CODE S | |
| 223 | ---------- ---------- - | |
| 224 | if NOT EXI STS(select COHORT_TY PE_ID from CRS.STD_R EGISTRY_CO HORT_TYPES t inner j oin CRS.RE GISTRY_COH ORT_DATA r on r.std_ registry_c ohort_type _id=t.coho rt_type_id where r.s td_registr y_id=(sele ct ID from CRS.STD_R EGISTRY wh ere CODE=' KDR') and t.descript ion_text=' LOINCCode' and t.cod e in ('112 18-5','128 42-1','149 56-7','149 57-5','175 3-3','1754 -1','1755- 8','1757-4 ','18373-1 ','20454-5 ','21028-6 ','21059-1 ','21482-5 ','24355-0 ','24356-8 ','24357-6 ','24365-9 ','26801-1 ','27298-9 ','2887-8' ,'2888-6', '2889-4',' 30003-8',' 32209-9',' 32551-4',' 35663-4',' 39264-7',' 39265-4',' 40662-9',' 40663-7',' 43605-5',' 43606-3',' 43607-1',' 45060-1',' 49002-9',' 49023-5',' 50209-6',' 50554-5',' 50556-0',' 50561-0',' 50564-4',' 50749-1',' 50949-7',' 53121-0',' 53525-2',' 53530-2',' 53531-0',' 57019-2',' 57020-0',' 57369-1',' 57735-3',' 5804-0','5 8431-8','5 8448-2','5 8992-9','6 1196-2','6 3474-1')) | |
| 225 | begin | |
| 226 | in sert into CRS.REGIST RY_COHORT_ DATA (std_ registry_i d,std_regi stry_cohor t_type_id, createdby, updatedby, created,up dated,sele cted_flag) | |
| 227 | se lect (sele ct ID from CRS.STD_R EGISTRY wh ere CODE=' KDR'),COHO RT_TYPE_ID ,' DN S \ DN S BLANCT',' DN S \ DN S BLANCT',cu rrent_time stamp,curr ent_timest amp,1 from CRS.STD_R EGISTRY_CO HORT_TYPES where des cription_t ext='LOINC Code' and code in (' 11218-5',' 12842-1',' 14956-7',' 14957-5',' 1753-3','1 754-1','17 55-8','175 7-4','1837 3-1','2045 4-5','2102 8-6','2105 9-1','2148 2-5','2435 5-0','2435 6-8','2435 7-6','2436 5-9','2680 1-1','2729 8-9','2887 -8','2888- 6','2889-4 ','30003-8 ','32209-9 ','32551-4 ','35663-4 ','39264-7 ','39265-4 ','40662-9 ','40663-7 ','43605-5 ','43606-3 ','43607-1 ','45060-1 ','49002-9 ','49023-5 ','50209-6 ','50554-5 ','50556-0 ','50561-0 ','50564-4 ','50749-1 ','50949-7 ','53121-0 ','53525-2 ','53530-2 ','53531-0 ','57019-2 ','57020-0 ','57369-1 ','57735-3 ','5804-0' ,'58431-8' ,'58448-2' ,'58992-9' ,'61196-2' ,'63474-1' ) order by COHORT_TY PE_ID | |
| 228 | end | |
| 229 | ||
| 230 | /****** Ob ject: Vie w [CRS].[v w_ICD9_Com orbidCondi tion] S cript Date : 5/11/201 8 9:24:20 AM ******/ | |
| 231 | IF EXISTS (SELECT * FROM sys. views WHER E object_i d = OBJECT _ID(N'[CRS ].[vw_ICD9 _ComorbidC ondition]' )) | |
| 232 | DROP VIEW [CRS].[vw_ ICD9_Comor bidConditi on] | |
| 233 | GO | |
| 234 | ||
| 235 | /****** Ob ject: Vie w [CRS].[v w_ICD9_Com orbidCondi tion] S cript Date : 5/11/201 8 9:24:20 AM ******/ | |
| 236 | SET ANSI_N ULLS ON | |
| 237 | GO | |
| 238 | ||
| 239 | SET QUOTED _IDENTIFIE R ON | |
| 240 | GO | |
| 241 | ||
| 242 | IF NOT EXI STS (SELEC T * FROM s ys.views W HERE objec t_id = OBJ ECT_ID(N'[ CRS].[vw_I CD9_Comorb idConditio n]')) | |
| 243 | EXEC dbo.s p_executes ql @statem ent = N' | |
| 244 | CREATE VIE W [CRS].[ vw_ICD9_Co morbidCond ition] AS | |
| 245 | SELECT [IC D9SID] | |
| 246 | ,[IC DIEN] | |
| 247 | ,[ST A3N] | |
| 248 | ,[IC D9CODE] | |
| 249 | ,[IC D9Descript ion] | |
| 250 | ,[DR GIDENTIFIE R] | |
| 251 | ,[DR GCONDITION COMORBIDIT YEXCLUSION SID] | |
| 252 | ,[RE PRODUCTIVE SYSTEMMDC1 3FLAG] | |
| 253 | ,[MU LTIPLESIGN IFICANTTRA UMAMDC24] | |
| 254 | ,[HI VMDC25] | |
| 255 | ,[EX PANDEDICDF LAG] | |
| 256 | ,[UN ACCEPTABLE ASPRIMARYF LAG] | |
| 257 | ,[DR GCONDITION COMORBIDIT YEXCLUSION IEN] | |
| 258 | ,[IC DCODINGSYS TEMIEN] | |
| 259 | ,(CASE | |
| 260 | WHEN [ ICD9CODE] in (''250. 00'',''250 .01'',''25 0.02'',''2 50.03'','' 250.10'',' '250.11'', ''250.12'' ,''250.13' ',''250.20 '',''250.2 1'',''250. 22'',''250 .23'',''25 0.30'',''2 50.31'','' 250.32'',' '250.33'', ''250.40'' ,''250.41' ',''250.42 '',''250.4 3'',''250. 50'',''250 .51'',''25 0.52'',''2 50.53'','' 250.60'',' '250.61'', ''250.62'' ,''250.63' ',''250.70 '',''250.7 1'',''250. 72'',''250 .73'',''25 0.80'',''2 50.81'','' 250.82'',' '250.83'', ''250.90'' ,''250.91' ',''250.92 '',''250.9 3'',''357. 2'',''362. 01'',''362 .02'',''36 6.41'') TH EN ''Diabe tes'' | |
| 261 | WHEN [ ICD9CODE] in (''401. 0'',''402. 00'',''402 .01'',''40 3.0'',''40 3.00'',''4 03.01'','' 404.0'','' 404.00'',' '404.01'', ''404.02'' ,''404.03' ',''405.01 '',''405.0 9'') THEN ''Hyperten sion'' | |
| 262 | WHEN [ ICD9CODE] in (''278. 0'',''278. 00'',''278 .01'',''27 8.02'',''2 78.03'') T HEN ''Obes ity'' | |
| 263 | WHEN [ ICD9CODE] in (''042. '',''042.0 '',''042.1 '',''042.2 '',''042.9 '',''043.0 '',''043.1 '',''043.2 '',''043.3 '',''043.9 '',''044.0 '',''044.9 '',''079.5 3'',''795. 71'',''795 .8'') THEN ''HIV'' | |
| 264 | WHEN [ ICD9CODE] in (''070. 41'',''070 .44'',''07 0.51'',''0 70.54'','' 070.70'',' '070.71'') THEN ''He patitis C' ' | |
| 265 | WHEN [ ICD9CODE] in (''429. 2'') THEN ''Cardiova scular Dis ease'' | |
| 266 | ELSE ' 'Other'' | |
| 267 | END) as [G roupName] | |
| 268 | FROM [CRS] .[STD_ICD9 _CODE] | |
| 269 | WHERE | |
| 270 | [I CD9CODE] i n ( | |
| 271 | ''25 0.00'',''2 50.01'','' 250.02'',' '250.03'', ''250.10'' ,''250.11' ',''250.12 '',''250.1 3'',''250. 20'',''250 .21'',''25 0.22'',''2 50.23'','' 250.30'',' '250.31'', ''250.32'' ,''250.33' ',''250.40 '',''250.4 1'',''250. 42'',''250 .43'',''25 0.50'',''2 50.51'','' 250.52'',' '250.53'', ''250.60'' ,''250.61' ',''250.62 '',''250.6 3'',''250. 70'',''250 .71'',''25 0.72'',''2 50.73'','' 250.80'',' '250.81'', ''250.82'' ,''250.83' ',''250.90 '',''250.9 1'',''250. 92'',''250 .93'',''35 7.2'',''36 2.01'',''3 62.02'','' 366.41'' | |
| 272 | ,''4 01.0'',''4 02.00'','' 402.01'',' '403.0'',' '403.00'', ''403.01'' ,''404.0'' ,''404.00' ',''404.01 '',''404.0 2'',''404. 03'',''405 .01'',''40 5.09'' | |
| 273 | ,''2 78.0'',''2 78.00'','' 278.01'',' '278.02'', ''278.03'' | |
| 274 | ,''0 42.'',''04 2.0'',''04 2.1'',''04 2.2'',''04 2.9'',''04 3.0'',''04 3.1'',''04 3.2'',''04 3.3'',''04 3.9'',''04 4.0'',''04 4.9'',''07 9.53'',''7 95.71'','' 795.8'' | |
| 275 | ,''0 70.41'','' 070.44'',' '070.51'', ''070.54'' ,''070.70' ',''070.71 '' | |
| 276 | ,''4 29.2'' | |
| 277 | ) | |
| 278 | ' | |
| 279 | GO | |
| 280 | ||
| 281 | /****** Ob ject: Vie w [CRS].[v w_ICD10_Co morbidCond ition] Script Dat e: 5/11/20 18 9:25:26 AM ****** / | |
| 282 | IF EXISTS (SELECT * FROM sys. views WHER E object_i d = OBJECT _ID(N'[CRS ].[vw_ICD1 0_Comorbid Condition] ')) | |
| 283 | DROP VIEW [CRS].[vw_ ICD10_Como rbidCondit ion] | |
| 284 | GO | |
| 285 | ||
| 286 | /****** Ob ject: Vie w [CRS].[v w_ICD10_Co morbidCond ition] Script Dat e: 5/11/20 18 9:25:26 AM ****** / | |
| 287 | SET ANSI_N ULLS ON | |
| 288 | GO | |
| 289 | ||
| 290 | SET QUOTED _IDENTIFIE R ON | |
| 291 | GO | |
| 292 | ||
| 293 | IF NOT EXI STS (SELEC T * FROM s ys.views W HERE objec t_id = OBJ ECT_ID(N'[ CRS].[vw_I CD10_Comor bidConditi on]')) | |
| 294 | EXEC dbo.s p_executes ql @statem ent = N' | |
| 295 | CREATE VIE W [CRS].[ vw_ICD10_C omorbidCon dition] AS | |
| 296 | SELECT [IC D10SID] | |
| 297 | ,[IC DIEN] | |
| 298 | ,[ST A3N] | |
| 299 | ,[IC D10CODE] | |
| 300 | ,[IC D10Descrip tion] | |
| 301 | ,[DR GIDENTIFIE R] | |
| 302 | ,[DR GCONDITION COMORBIDIT YEXCLUSION SID] | |
| 303 | ,[RE PRODUCTIVE SYSTEMMDC1 3FLAG] | |
| 304 | ,[MU LTIPLESIGN IFICANTTRA UMAMDC24] | |
| 305 | ,[HI VMDC25] | |
| 306 | ,[EX PANDEDICDF LAG] | |
| 307 | ,[UN ACCEPTABLE ASPRIMARYF LAG] | |
| 308 | ,[IC D10POAEXEM PTFLAG] | |
| 309 | ,[DR GCONDITION COMORBIDIT YEXCLUSION IEN] | |
| 310 | ,[IC DCODINGSYS TEMIEN] | |
| 311 | ,(CASE | |
| 312 | WHEN [ ICD10CODE] in (''E08 .36'',''E0 8.42'',''E 09.36'','' E09.42'',' 'E10.10'', ''E10.11'' ,''E10.21' ',''E10.29 '',''E10.3 11'',''E10 .319'',''E 10.36'','' E10.37X1'' ,''E10.37X 2'',''E10. 37X3'',''E 10.37X9'', ''E10.39'' ,''E10.40' ',''E10.42 '',''E10.5 1'',''E10. 618'',''E1 0.620'','' E10.621'', ''E10.622' ',''E10.62 8'',''E10. 630'',''E1 0.638'','' E10.641'', ''E10.649' ',''E10.65 '',''E10.6 9'',''E10. 8'',''E10. 9'',''E11. 00'',''E11 .01'',''E1 1.10'',''E 11.11'','' E11.21'',' 'E11.29'', ''E11.311' ',''E11.31 9'',''E11. 3591'',''E 11.3592'', ''E11.3593 '',''E11.3 599'',''E1 1.36'',''E 11.39'','' E11.40'',' 'E11.42'', ''E11.51'' ,''E11.618 '',''E11.6 20'',''E11 .621'',''E 11.622'',' 'E11.628'' ,''E11.630 '',''E11.6 38'',''E11 .641'',''E 11.649'',' 'E11.65'', ''E11.69'' ,''E11.8'' ,''E11.9'' ,''E13.10' ',''E13.36 '',''E13.4 2'') THEN ''Diabetes '' | |
| 313 | WHEN [ ICD10CODE] in (''I10 .'',''I11. 0'',''I11. 9'',''I12. 0'',''I12. 9'',''I13. 0'',''I13. 10'',''I13 .11'',''I1 3.2'',''I1 5.0'',''I1 5.8'') THE N ''Hypert ension'' | |
| 314 | WHEN [ ICD10CODE] in (''E66 .01'',''E6 6.2'',''E6 6.3'',''E6 6.9'') THE N ''Obesit y'' | |
| 315 | WHEN [ ICD10CODE] in (''B20 .'',''B97. 35'',''R75 .'') THEN ''HIV'' | |
| 316 | WHEN [ ICD10CODE] in (''B17 .10'',''B1 7.11'',''B 18.2'',''B 19.20'','' B19.21'') THEN ''Hep atitis C'' | |
| 317 | WHEN [ ICD10CODE] in (''I25 .10'',''I2 5.110'','' I25.111'', ''I25.118' ',''I25.11 9'') THEN ''Cardiova scular Dis ease'' | |
| 318 | ELSE ' 'Other'' | |
| 319 | END) as [G roupName] | |
| 320 | FROM [CRS] .[STD_ICD1 0_CODE] | |
| 321 | WHERE | |
| 322 | [I CD10CODE] in ( | |
| 323 | ''E0 8.36'',''E 08.42'','' E09.36'',' 'E09.42'', ''E10.10'' ,''E10.11' ',''E10.21 '',''E10.2 9'',''E10. 311'',''E1 0.319'','' E10.36'',' 'E10.37X1' ',''E10.37 X2'',''E10 .37X3'','' E10.37X9'' ,''E10.39' ',''E10.40 '',''E10.4 2'',''E10. 51'',''E10 .618'',''E 10.620'',' 'E10.621'' ,''E10.622 '',''E10.6 28'',''E10 .630'',''E 10.638'',' 'E10.641'' ,''E10.649 '',''E10.6 5'',''E10. 69'',''E10 .8'',''E10 .9'',''E11 .00'',''E1 1.01'',''E 11.10'','' E11.11'',' 'E11.21'', ''E11.29'' ,''E11.311 '',''E11.3 19'',''E11 .3591'','' E11.3592'' ,''E11.359 3'',''E11. 3599'',''E 11.36'','' E11.39'',' 'E11.40'', ''E11.42'' ,''E11.51' ',''E11.61 8'',''E11. 620'',''E1 1.621'','' E11.622'', ''E11.628' ',''E11.63 0'',''E11. 638'',''E1 1.641'','' E11.649'', ''E11.65'' ,''E11.69' ',''E11.8' ',''E11.9' ',''E13.10 '',''E13.3 6'',''E13. 42'' | |
| 324 | ,''I 10.'',''I1 1.0'',''I1 1.9'',''I1 2.0'',''I1 2.9'',''I1 3.0'',''I1 3.10'',''I 13.11'','' I13.2'','' I15.0'','' I15.8'' | |
| 325 | ,''E 66.01'','' E66.2'','' E66.3'','' E66.9'' | |
| 326 | ,''B 20.'',''B9 7.35'',''R 75.'' | |
| 327 | ,''B 17.10'','' B17.11'',' 'B18.2'',' 'B19.20'', ''B19.21'' | |
| 328 | ,''I 25.10'','' I25.110'', ''I25.111' ',''I25.11 8'',''I25. 119'' | |
| 329 | ) | |
| 330 | ' | |
| 331 | GO | |
| 332 | ||
| 333 | ||
| 334 | /***** Add Insurance to framew ork data o ptions *** ***/ | |
| 335 | if not exi sts(select * from CR S.STD_REGI STRY_CORE_ TYPES wher e DESCRIPT ION_TEXT=' Patient - Insurance' ) | |
| 336 | begin | |
| 337 | in sert into CRS.STD_RE GISTRY_COR E_TYPES (T ABLE_NAME, CODE,NAME, DESCRIPTIO N_TEXT,CRE ATEDBY,UPD ATEDBY,CRE ATED,UPDAT ED,DEFAULT _FLAG) | |
| 338 | va lues ('SPA TIENT_SPAT IENTINSURA NCE','Pati ent - Insu rance','Pa tient - In surance',' Patient - Insurance' ,'InsertSc ript','Ins ertScript' ,CURRENT_T IMESTAMP,C URRENT_TIM ESTAMP,1); | |
| 339 | end | |
| 340 | go | |
| 341 | ||
| 342 | ||
| 343 | /***** Add Insurance framework data to t ransplant registry * *****/ | |
| 344 | if exists( select ID from CRS.S TD_REGISTR Y where CO DE='TR') | |
| 345 | begin | |
| 346 | if not exist s(select * from CRS. REGISTRY_C ORE_DATA w here STD_R EGISTRY_ID =(select I D from CRS .STD_REGIS TRY where CODE='TR') and CORE_ TYPE_ID=(s elect CORE _TYPE_ID f rom CRS.ST D_REGISTRY _CORE_TYPE S where DE SCRIPTION_ TEXT='Pati ent - Insu rance')) | |
| 347 | be gin | |
| 348 | inse rt into CR S.REGISTRY _CORE_DATA (STD_REGI STRY_ID,CO RE_TYPE_ID ,CREATEDBY ,UPDATEDBY ,CREATED,U PDATED,SEL ECTED_FLAG ) | |
| 349 | valu es ((selec t ID from CRS.STD_RE GISTRY whe re CODE='T R'),(selec t CORE_TYP E_ID from CRS.STD_RE GISTRY_COR E_TYPES wh ere DESCRI PTION_TEXT ='Patient - Insuranc e'),'Inser tScript',' InsertScri pt',CURREN T_TIMESTAM P,CURRENT_ TIMESTAMP, 1); | |
| 350 | en d | |
| 351 | end |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.