119. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 4/12/2018 10:19:04 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.

119.1 Files compared

# Location File Last Modified
1 MSSRe Build 4.zip\DatabaseScripts\DatabasePatches\R12 TBI_Sprint12_InstallScript.sql Tue Apr 10 19:45:42 2018 UTC
2 MSSRe Build 4.zip\DatabaseScripts\DatabasePatches\R12 TBI_Sprint12_InstallScript.sql Thu Apr 12 12:18:47 2018 UTC

119.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 32 512
Changed 31 62
Inserted 0 0
Removed 0 0

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

119.4 Active regular expressions

No regular expressions were active.

119.5 Comparison detail

  1   --TBI Foll ow Up Form  16A
  2   IF NOT EXI STS (SELEC T * FROM d bo.STD_QUE STION q IN NER JOIN d bo.STD_SUR VEY_TYPE t  ON t.ID =  q.STD_SUR VEY_TYPE_I D WHERE t. CODE = 'CO MP TBI FOL LOW-UP' AN D q.QUESTI ON_NUMBER  = '16-A')
  3   BEGIN
  4           DE CLARE @std _survey_ty pe_id int;
  5           DE CLARE @sor t_order in t;
  6           DE CLARE @max _choice_id  int;
  7           DE CLARE @std _question_ id int;
  8           
  9           SE LECT @std_ survey_typ e_id = ID  FROM dbo.S TD_SURVEY_ TYPE WHERE  CODE = 'C OMP TBI FO LLOW-UP';
  10           SE LECT @sort _order = S ORT_ORDER  FROM dbo.S TD_QUESTIO N WHERE ST D_SURVEY_T YPE_ID = @ std_survey _type_id A ND QUESTIO N_NUMBER =  '16';
  11           SE LECT @max_ choice_id  = MAX(STD_ QUESTION_C HOICE_ID)  FROM [dbo] .[STD_QUES TION_CHOIC E];
  12           
  13           UP DATE dbo.S TD_QUESTIO N SET SORT _ORDER = ( SORT_ORDER  + 1)
  14           WH ERE STD_SU RVEY_TYPE_ ID = @std_ survey_typ e_id AND S ORT_ORDER  > @sort_or der;
  15           
  16           IN SERT INTO  [dbo].[STD _QUESTION]  ([STD_SUR VEY_TYPE_I D],[QUESTI ON_NUMBER] ,[QUESTION _TEXT],[SO RT_ORDER], [CREATEDBY ],[CREATED ],[UPDATED BY],[UPDAT ED],[INACT IVE_FLAG], [INACTIVE_ DATE])
  17           VA LUES (@std _survey_ty pe_id,'16- A','Was a  medication  reconcili ation perf ormed?',(@ sort_order  + 1),'
P II ',CURRENT_ TIMESTAMP, '
P II ',CURRENT_ TIMESTAMP, 0,NULL);
  18           
  19           SE LECT @std_ question_i d = @@IDEN TITY;
  20  
  21           IN SERT INTO  [dbo].[STD _QUESTION_ CHOICE] ([ STD_QUESTI ON_CHOICE_ ID],[STD_Q UESTION_ID ],[CHOICE_ NAME],[CHO ICE_TEXT], [CHOICE_SO RT_ORDER], [INACTIVE_ FLAG],[INA CTIVE_DATE ],[CREATED BY],[UPDAT EDBY],[CRE ATED],[UPD ATED])
  22           VA LUES ((@ma x_choice_i d + 1),@st d_question _id,'Not a sked (due  to respons es to othe r question s)','Not a sked (due  to respons es to othe r question s)',NULL,0 ,NULL,'
P II ','
P II ',CURRENT_ TIMESTAMP, CURRENT_TI MESTAMP);
  23  
  24           IN SERT INTO  [dbo].[STD _QUESTION_ CHOICE] ([ STD_QUESTI ON_CHOICE_ ID],[STD_Q UESTION_ID ],[CHOICE_ NAME],[CHO ICE_TEXT], [CHOICE_SO RT_ORDER], [INACTIVE_ FLAG],[INA CTIVE_DATE ],[CREATED BY],[UPDAT EDBY],[CRE ATED],[UPD ATED])
  25           VA LUES ((@ma x_choice_i d + 2),@st d_question _id,'Yes', 'Yes',1,0, NULL,'
P II ','
P II ',CURRENT_ TIMESTAMP, CURRENT_TI MESTAMP);
  26           
  27           IN SERT INTO  [dbo].[STD _QUESTION_ CHOICE] ([ STD_QUESTI ON_CHOICE_ ID],[STD_Q UESTION_ID ],[CHOICE_ NAME],[CHO ICE_TEXT], [CHOICE_SO RT_ORDER], [INACTIVE_ FLAG],[INA CTIVE_DATE ],[CREATED BY],[UPDAT EDBY],[CRE ATED],[UPD ATED])
  28           VA LUES ((@ma x_choice_i d + 3),@st d_question _id,'No',' No medicat ion change s made dur ing this c linic visi t',2,0,NUL L,'
P II ','
P II ',CURRENT_ TIMESTAMP, CURRENT_TI MESTAMP);
  29   END
  30   GO
  31  
  32   --TBI Foll ow Up Form  16B
  33   IF NOT EXI STS (SELEC T * FROM d bo.STD_QUE STION q IN NER JOIN d bo.STD_SUR VEY_TYPE t  ON t.ID =  q.STD_SUR VEY_TYPE_I D WHERE t. CODE = 'CO MP TBI FOL LOW-UP' AN D q.QUESTI ON_NUMBER  = '16-B')
  34   BEGIN
  35           DE CLARE @std _survey_ty pe_id int;
  36           DE CLARE @sor t_order in t;
  37           DE CLARE @max _choice_id  int;
  38           DE CLARE @std _question_ id int;
  39           
  40           SE LECT @std_ survey_typ e_id = ID  FROM dbo.S TD_SURVEY_ TYPE WHERE  CODE = 'C OMP TBI FO LLOW-UP';
  41           SE LECT @sort _order = S ORT_ORDER  FROM dbo.S TD_QUESTIO N WHERE ST D_SURVEY_T YPE_ID = @ std_survey _type_id A ND QUESTIO N_NUMBER =  '16-A';
  42           SE LECT @max_ choice_id  = MAX(STD_ QUESTION_C HOICE_ID)  FROM [dbo] .[STD_QUES TION_CHOIC E];
  43           
  44           UP DATE dbo.S TD_QUESTIO N SET SORT _ORDER = ( SORT_ORDER  + 1)
  45           WH ERE STD_SU RVEY_TYPE_ ID = @std_ survey_typ e_id AND S ORT_ORDER  > @sort_or der;
  46           
  47           IN SERT INTO  [dbo].[STD _QUESTION]  ([STD_SUR VEY_TYPE_I D],[QUESTI ON_NUMBER] ,[QUESTION _TEXT],[SO RT_ORDER], [CREATEDBY ],[CREATED ],[UPDATED BY],[UPDAT ED],[INACT IVE_FLAG], [INACTIVE_ DATE])
  48           VA LUES (@std _survey_ty pe_id,'16- B','Was a  printed me dication l ist given  to the pat ient?',(@s ort_order  + 1),'
P II ',CURRENT_ TIMESTAMP, '
P II ',CURRENT_ TIMESTAMP, 0,NULL);
  49           
  50           SE LECT @std_ question_i d = @@IDEN TITY;
  51  
  52           IN SERT INTO  [dbo].[STD _QUESTION_ CHOICE] ([ STD_QUESTI ON_CHOICE_ ID],[STD_Q UESTION_ID ],[CHOICE_ NAME],[CHO ICE_TEXT], [CHOICE_SO RT_ORDER], [INACTIVE_ FLAG],[INA CTIVE_DATE ],[CREATED BY],[UPDAT EDBY],[CRE ATED],[UPD ATED])
  53           VA LUES ((@ma x_choice_i d + 1),@st d_question _id,'Not a sked (due  to respons es to othe r question s)','Not a sked (due  to respons es to othe r question s)',NULL,0 ,NULL,'
P II ','
P II ',CURRENT_ TIMESTAMP, CURRENT_TI MESTAMP);
  54  
  55           IN SERT INTO  [dbo].[STD _QUESTION_ CHOICE] ([ STD_QUESTI ON_CHOICE_ ID],[STD_Q UESTION_ID ],[CHOICE_ NAME],[CHO ICE_TEXT], [CHOICE_SO RT_ORDER], [INACTIVE_ FLAG],[INA CTIVE_DATE ],[CREATED BY],[UPDAT EDBY],[CRE ATED],[UPD ATED])
  56           VA LUES ((@ma x_choice_i d + 2),@st d_question _id,'Yes', 'Yes',1,0, NULL,'
P II ','
P II ',CURRENT_ TIMESTAMP, CURRENT_TI MESTAMP);
  57           
  58           IN SERT INTO  [dbo].[STD _QUESTION_ CHOICE] ([ STD_QUESTI ON_CHOICE_ ID],[STD_Q UESTION_ID ],[CHOICE_ NAME],[CHO ICE_TEXT], [CHOICE_SO RT_ORDER], [INACTIVE_ FLAG],[INA CTIVE_DATE ],[CREATED BY],[UPDAT EDBY],[CRE ATED],[UPD ATED])
  59           VA LUES ((@ma x_choice_i d + 3),@st d_question _id,'No',' No',2,0,NU LL,'
P II ','
P II ',CURRENT_ TIMESTAMP, CURRENT_TI MESTAMP);
  60   END
  61   GO
  62  
  63   --TBI Foll ow Up Form  16C
  64   IF NOT EXI STS (SELEC T * FROM d bo.STD_QUE STION q IN NER JOIN d bo.STD_SUR VEY_TYPE t  ON t.ID =  q.STD_SUR VEY_TYPE_I D WHERE t. CODE = 'CO MP TBI FOL LOW-UP' AN D q.QUESTI ON_NUMBER  = '16-C')
  65   BEGIN
  66           DE CLARE @std _survey_ty pe_id int;
  67           DE CLARE @sor t_order in t;
  68           DE CLARE @max _choice_id  int;
  69           DE CLARE @std _question_ id int;
  70           
  71           SE LECT @std_ survey_typ e_id = ID  FROM dbo.S TD_SURVEY_ TYPE WHERE  CODE = 'C OMP TBI FO LLOW-UP';
  72           SE LECT @sort _order = S ORT_ORDER  FROM dbo.S TD_QUESTIO N WHERE ST D_SURVEY_T YPE_ID = @ std_survey _type_id A ND QUESTIO N_NUMBER =  '16-B';
  73           SE LECT @max_ choice_id  = MAX(STD_ QUESTION_C HOICE_ID)  FROM [dbo] .[STD_QUES TION_CHOIC E];
  74           
  75           UP DATE dbo.S TD_QUESTIO N SET SORT _ORDER = ( SORT_ORDER  + 1)
  76           WH ERE STD_SU RVEY_TYPE_ ID = @std_ survey_typ e_id AND S ORT_ORDER  > @sort_or der;
  77           
  78           IN SERT INTO  [dbo].[STD _QUESTION]  ([STD_SUR VEY_TYPE_I D],[QUESTI ON_NUMBER] ,[QUESTION _TEXT],[SO RT_ORDER], [CREATEDBY ],[CREATED ],[UPDATED BY],[UPDAT ED],[INACT IVE_FLAG], [INACTIVE_ DATE])
  79           VA LUES (@std _survey_ty pe_id,'16- C','Please  explain i n free tex t box belo w:',(@sort _order + 1 ),'
P II ',CURRENT_ TIMESTAMP, '
P II ',CURRENT_ TIMESTAMP, 0,NULL);
  80           
  81           SE LECT @std_ question_i d = @@IDEN TITY;
  82           
  83           IN SERT INTO  [dbo].[STD _QUESTION_ CHOICE] ([ STD_QUESTI ON_CHOICE_ ID],[STD_Q UESTION_ID ],[CHOICE_ NAME],[CHO ICE_TEXT], [CHOICE_SO RT_ORDER], [INACTIVE_ FLAG],[INA CTIVE_DATE ],[CREATED BY],[UPDAT EDBY],[CRE ATED],[UPD ATED])
  84           VA LUES ((@ma x_choice_i d + 1),@st d_question _id,'Not a sked (due  to respons es to othe r question s)','Not a sked (due  to respons es to othe r question s)',NULL,0 ,NULL,'
P II ','
P II ',CURRENT_ TIMESTAMP, CURRENT_TI MESTAMP);
  85  
  86           IN SERT INTO  [dbo].[STD _QUESTION_ CHOICE] ([ STD_QUESTI ON_CHOICE_ ID],[STD_Q UESTION_ID ],[CHOICE_ NAME],[CHO ICE_TEXT], [CHOICE_SO RT_ORDER], [INACTIVE_ FLAG],[INA CTIVE_DATE ],[CREATED BY],[UPDAT EDBY],[CRE ATED],[UPD ATED])
  87           VA LUES ((@ma x_choice_i d + 2),@st d_question _id,'Expla nation Inp ut:','Expl anation In put:',1,0, NULL,'
P II ','
P II ',CURRENT_ TIMESTAMP, CURRENT_TI MESTAMP);
  88   END
  89   GO
  90  
  91   --TBI Foll ow Up Form  19
  92   BEGIN
  93           DE CLARE @std _survey_ty pe_id int;
  94           SE LECT @std_ survey_typ e_id = ID  FROM dbo.S TD_SURVEY_ TYPE WHERE  CODE = 'C OMP TBI FO LLOW-UP';
  95  
  96           UP DATE dbo.S TD_QUESTIO N SET QUES TION_TEXT= 'Based on  the histor y of the i njury and  the course  of clinic al symptom s, has the  Veteran e xperienced  a new TBI  since the ir last di agnosis?', UPDATEDBY= '
P II ',UPDATED= CURRENT_TI MESTAMP
  97           WH ERE STD_SU RVEY_TYPE_ ID = @std_ survey_typ e_id AND Q UESTION_NU MBER = '19 '
  98   END
  99   GO
  100  
  101   --TBI CTBI E Form 21A
  102   IF NOT EXI STS (SELEC T * FROM d bo.STD_QUE STION q IN NER JOIN d bo.STD_SUR VEY_TYPE t  ON t.ID =  q.STD_SUR VEY_TYPE_I D WHERE t. CODE = 'CO MP TBI EVA L' AND q.Q UESTION_NU MBER = '21 -A')
  103   BEGIN
  104           DE CLARE @std _survey_ty pe_id int;
  105           DE CLARE @sor t_order in t;
  106           DE CLARE @max _choice_id  int;
  107           DE CLARE @std _question_ id int;
  108           
  109           SE LECT @std_ survey_typ e_id = ID  FROM dbo.S TD_SURVEY_ TYPE WHERE  CODE = 'C OMP TBI EV AL';
  110           SE LECT @sort _order = S ORT_ORDER  FROM dbo.S TD_QUESTIO N WHERE ST D_SURVEY_T YPE_ID = @ std_survey _type_id A ND QUESTIO N_NUMBER =  '21';
  111           SE LECT @max_ choice_id  = MAX(STD_ QUESTION_C HOICE_ID)  FROM [dbo] .[STD_QUES TION_CHOIC E];
  112           
  113           UP DATE dbo.S TD_QUESTIO N SET SORT _ORDER = ( SORT_ORDER  + 1)
  114           WH ERE STD_SU RVEY_TYPE_ ID = @std_ survey_typ e_id AND S ORT_ORDER  > @sort_or der;
  115           
  116           IN SERT INTO  [dbo].[STD _QUESTION]  ([STD_SUR VEY_TYPE_I D],[QUESTI ON_NUMBER] ,[QUESTION _TEXT],[SO RT_ORDER], [CREATEDBY ],[CREATED ],[UPDATED BY],[UPDAT ED],[INACT IVE_FLAG], [INACTIVE_ DATE])
  117           VA LUES (@std _survey_ty pe_id,'21- A','Was a  medication  reconcili ation perf ormed?',(@ sort_order  + 1),'
P II ',CURRENT_ TIMESTAMP, '
P II ',CURRENT_ TIMESTAMP, 0,NULL);
  118           
  119           SE LECT @std_ question_i d = @@IDEN TITY;
  120  
  121           IN SERT INTO  [dbo].[STD _QUESTION_ CHOICE] ([ STD_QUESTI ON_CHOICE_ ID],[STD_Q UESTION_ID ],[CHOICE_ NAME],[CHO ICE_TEXT], [CHOICE_SO RT_ORDER], [INACTIVE_ FLAG],[INA CTIVE_DATE ],[CREATED BY],[UPDAT EDBY],[CRE ATED],[UPD ATED])
  122           VA LUES ((@ma x_choice_i d + 1),@st d_question _id,'Not a sked (due  to respons es to othe r question s)','Not a sked (due  to respons es to othe r question s)',NULL,0 ,NULL,'
P II ','
P II ',CURRENT_ TIMESTAMP, CURRENT_TI MESTAMP);
  123           
  124           IN SERT INTO  [dbo].[STD _QUESTION_ CHOICE] ([ STD_QUESTI ON_CHOICE_ ID],[STD_Q UESTION_ID ],[CHOICE_ NAME],[CHO ICE_TEXT], [CHOICE_SO RT_ORDER], [INACTIVE_ FLAG],[INA CTIVE_DATE ],[CREATED BY],[UPDAT EDBY],[CRE ATED],[UPD ATED])
  125           VA LUES ((@ma x_choice_i d + 2),@st d_question _id,'Yes', 'Yes',1,0, NULL,'
P II ','
P II ',CURRENT_ TIMESTAMP, CURRENT_TI MESTAMP);
  126           
  127           IN SERT INTO  [dbo].[STD _QUESTION_ CHOICE] ([ STD_QUESTI ON_CHOICE_ ID],[STD_Q UESTION_ID ],[CHOICE_ NAME],[CHO ICE_TEXT], [CHOICE_SO RT_ORDER], [INACTIVE_ FLAG],[INA CTIVE_DATE ],[CREATED BY],[UPDAT EDBY],[CRE ATED],[UPD ATED])
  128           VA LUES ((@ma x_choice_i d + 3),@st d_question _id,'No',' No medicat ion change s made dur ing this c linic visi t',2,0,NUL L,'
P II ','
P II ',CURRENT_ TIMESTAMP, CURRENT_TI MESTAMP);
  129   END
  130   GO
  131  
  132   --TBI CTBI E Form 21B
  133   IF NOT EXI STS (SELEC T * FROM d bo.STD_QUE STION q IN NER JOIN d bo.STD_SUR VEY_TYPE t  ON t.ID =  q.STD_SUR VEY_TYPE_I D WHERE t. CODE = 'CO MP TBI EVA L' AND q.Q UESTION_NU MBER = '21 -B')
  134   BEGIN
  135           DE CLARE @std _survey_ty pe_id int;
  136           DE CLARE @sor t_order in t;
  137           DE CLARE @max _choice_id  int;
  138           DE CLARE @std _question_ id int;
  139           
  140           SE LECT @std_ survey_typ e_id = ID  FROM dbo.S TD_SURVEY_ TYPE WHERE  CODE = 'C OMP TBI EV AL';
  141           SE LECT @sort _order = S ORT_ORDER  FROM dbo.S TD_QUESTIO N WHERE ST D_SURVEY_T YPE_ID = @ std_survey _type_id A ND QUESTIO N_NUMBER =  '21-A';
  142           SE LECT @max_ choice_id  = MAX(STD_ QUESTION_C HOICE_ID)  FROM [dbo] .[STD_QUES TION_CHOIC E];
  143           
  144           UP DATE dbo.S TD_QUESTIO N SET SORT _ORDER = ( SORT_ORDER  + 1)
  145           WH ERE STD_SU RVEY_TYPE_ ID = @std_ survey_typ e_id AND S ORT_ORDER  > @sort_or der;
  146           
  147           IN SERT INTO  [dbo].[STD _QUESTION]  ([STD_SUR VEY_TYPE_I D],[QUESTI ON_NUMBER] ,[QUESTION _TEXT],[SO RT_ORDER], [CREATEDBY ],[CREATED ],[UPDATED BY],[UPDAT ED],[INACT IVE_FLAG], [INACTIVE_ DATE])
  148           VA LUES (@std _survey_ty pe_id,'21- B','Was a  printed me dication l ist given  to the pat ient?',(@s ort_order  + 1),'
P II ',CURRENT_ TIMESTAMP, '
P II ',CURRENT_ TIMESTAMP, 0,NULL);
  149           
  150           SE LECT @std_ question_i d = @@IDEN TITY;
  151           
  152           IN SERT INTO  [dbo].[STD _QUESTION_ CHOICE] ([ STD_QUESTI ON_CHOICE_ ID],[STD_Q UESTION_ID ],[CHOICE_ NAME],[CHO ICE_TEXT], [CHOICE_SO RT_ORDER], [INACTIVE_ FLAG],[INA CTIVE_DATE ],[CREATED BY],[UPDAT EDBY],[CRE ATED],[UPD ATED])
  153           VA LUES ((@ma x_choice_i d + 1),@st d_question _id,'Not a sked (due  to respons es to othe r question s)','Not a sked (due  to respons es to othe r question s)',NULL,0 ,NULL,'
P II ','
P II ',CURRENT_ TIMESTAMP, CURRENT_TI MESTAMP);
  154  
  155           IN SERT INTO  [dbo].[STD _QUESTION_ CHOICE] ([ STD_QUESTI ON_CHOICE_ ID],[STD_Q UESTION_ID ],[CHOICE_ NAME],[CHO ICE_TEXT], [CHOICE_SO RT_ORDER], [INACTIVE_ FLAG],[INA CTIVE_DATE ],[CREATED BY],[UPDAT EDBY],[CRE ATED],[UPD ATED])
  156           VA LUES ((@ma x_choice_i d + 2),@st d_question _id,'Yes', 'Yes',1,0, NULL,'
P II ','
P II ',CURRENT_ TIMESTAMP, CURRENT_TI MESTAMP);
  157           
  158           IN SERT INTO  [dbo].[STD _QUESTION_ CHOICE] ([ STD_QUESTI ON_CHOICE_ ID],[STD_Q UESTION_ID ],[CHOICE_ NAME],[CHO ICE_TEXT], [CHOICE_SO RT_ORDER], [INACTIVE_ FLAG],[INA CTIVE_DATE ],[CREATED BY],[UPDAT EDBY],[CRE ATED],[UPD ATED])
  159           VA LUES ((@ma x_choice_i d + 3),@st d_question _id,'No',' No',2,0,NU LL,'
P II ','
P II ',CURRENT_ TIMESTAMP, CURRENT_TI MESTAMP);
  160   END
  161   GO
  162  
  163   --TBI CTBI E Form 21C
  164   IF NOT EXI STS (SELEC T * FROM d bo.STD_QUE STION q IN NER JOIN d bo.STD_SUR VEY_TYPE t  ON t.ID =  q.STD_SUR VEY_TYPE_I D WHERE t. CODE = 'CO MP TBI EVA L' AND q.Q UESTION_NU MBER = '21 -C')
  165   BEGIN
  166           DE CLARE @std _survey_ty pe_id int;
  167           DE CLARE @sor t_order in t;
  168           DE CLARE @max _choice_id  int;
  169           DE CLARE @std _question_ id int;
  170           
  171           SE LECT @std_ survey_typ e_id = ID  FROM dbo.S TD_SURVEY_ TYPE WHERE  CODE = 'C OMP TBI EV AL';
  172           SE LECT @sort _order = S ORT_ORDER  FROM dbo.S TD_QUESTIO N WHERE ST D_SURVEY_T YPE_ID = @ std_survey _type_id A ND QUESTIO N_NUMBER =  '21-B';
  173           SE LECT @max_ choice_id  = MAX(STD_ QUESTION_C HOICE_ID)  FROM [dbo] .[STD_QUES TION_CHOIC E];
  174           
  175           UP DATE dbo.S TD_QUESTIO N SET SORT _ORDER = ( SORT_ORDER  + 1)
  176           WH ERE STD_SU RVEY_TYPE_ ID = @std_ survey_typ e_id AND S ORT_ORDER  > @sort_or der;
  177           
  178           IN SERT INTO  [dbo].[STD _QUESTION]  ([STD_SUR VEY_TYPE_I D],[QUESTI ON_NUMBER] ,[QUESTION _TEXT],[SO RT_ORDER], [CREATEDBY ],[CREATED ],[UPDATED BY],[UPDAT ED],[INACT IVE_FLAG], [INACTIVE_ DATE])
  179           VA LUES (@std _survey_ty pe_id,'21- C','Please  explain i n free tex t box belo w:',(@sort _order + 1 ),'
P II ',CURRENT_ TIMESTAMP, '
P II ',CURRENT_ TIMESTAMP, 0,NULL);
  180           
  181           SE LECT @std_ question_i d = @@IDEN TITY;
  182           
  183           IN SERT INTO  [dbo].[STD _QUESTION_ CHOICE] ([ STD_QUESTI ON_CHOICE_ ID],[STD_Q UESTION_ID ],[CHOICE_ NAME],[CHO ICE_TEXT], [CHOICE_SO RT_ORDER], [INACTIVE_ FLAG],[INA CTIVE_DATE ],[CREATED BY],[UPDAT EDBY],[CRE ATED],[UPD ATED])
  184           VA LUES ((@ma x_choice_i d + 1),@st d_question _id,'Not a sked (due  to respons es to othe r question s)','Not a sked (due  to respons es to othe r question s)',NULL,0 ,NULL,'
P II ','
P II ',CURRENT_ TIMESTAMP, CURRENT_TI MESTAMP);
  185  
  186           IN SERT INTO  [dbo].[STD _QUESTION_ CHOICE] ([ STD_QUESTI ON_CHOICE_ ID],[STD_Q UESTION_ID ],[CHOICE_ NAME],[CHO ICE_TEXT], [CHOICE_SO RT_ORDER], [INACTIVE_ FLAG],[INA CTIVE_DATE ],[CREATED BY],[UPDAT EDBY],[CRE ATED],[UPD ATED])
  187           VA LUES ((@ma x_choice_i d + 2),@st d_question _id,'Expla nation Inp ut:','Expl anation In put:',1,0, NULL,'
P II ','
P II ',CURRENT_ TIMESTAMP, CURRENT_TI MESTAMP);
  188   END
  189   GO
  190  
  191   --TBI CTBI E Form 27
  192   BEGIN
  193           DE CLARE @std _survey_ty pe_id int;
  194           SE LECT @std_ survey_typ e_id = ID  FROM dbo.S TD_SURVEY_ TYPE WHERE  CODE = 'C OMP TBI EV AL';
  195  
  196           UP DATE dbo.S TD_QUESTIO N SET QUES TION_TEXT= 'Based on  the histor y of the i njury and  the course  of clinic al symptom s, did the  Veteran s ustain a T BI during  OEF/OIF de ployment?' ,UPDATEDBY ='
P II ',UPDATED= CURRENT_TI MESTAMP
  197           WH ERE STD_SU RVEY_TYPE_ ID = @std_ survey_typ e_id AND Q UESTION_NU MBER = '27 '
  198   END
  199   GO
  200  
  201   /* 
  202   -- Create  script for  db object s & refere nces - TBI :109772 
  203  
  204           1.  creates n ew crs set ting recor d for the  report bui lder URL
  205           2.  creates n ew procedu re to retu rn data re quired for  the Cube  details sc reen.
  206                    - La st Update  Date
  207  
  208  
  209   -- Testing
  210           Ex ec [TBI].[ GET_CUBE_S ETTINGS]
  211  
  212   */
  213  
  214   Declare 
  215   @StdRegId  int,
  216   @RBurl var char(1000) ,
  217   @ExcelInst ructions v archar(100 0)
  218  
  219   --- set Re gistry
  220   Select @St dRegId = [ id] from [ dbo].[std_ registry]  where ([CO DE] = 'TBI ')
  221   set @Excel Instructio ns = '\\ PII \CRS Team  Share\Inst ructions\T BI\TBI_Cub e_wExcel.d ocx'
  222  
  223   --- set UR Ls
  224   if (Server Property(' Servername ') = ' DN S
')
  225   Begin
  226           se t @RBurl =  'http:// URL : PORT /reportser ver/report builder/re portbuilde r.applicat ion'
  227   End     
  228   else if (S erverPrope rty('Serve rname') =  ' DN S
')
  229   Begin
  230           se t @RBurl =  'http:// URL /reportser ver/report builder/re portbuilde r.applicat ion'
  231   End
  232   else if (S erverPrope rty('Serve rname') =  ' DN S
')
  233   begin
  234           se t @RBurl =  'http:// URL /reportser ver/report builder/re portbuilde r.applicat ion'
  235   End
  236  
  237   -- Create  new CRS Se tting reco rd
  238   if not exi sts (selec t 1 from [ dbo].[CRS_ SETTINGS]  where ([na me] = 'Rep ort Builde r URL') an d ([std_re gistry_id]  = @stdReg Id))
  239   Begin
  240           In sert into  [dbo].[CRS _SETTINGS]
  241           ([ STD_REGIST RY_ID], [N ame], [Val ue], [Desc ription],  [comments] , [created ], [create dby])
  242           Se lect @StdR egId, 'Rep ort Builde r URL', @R Burl, 'The  URL for t he report  builder in  the appop iate envir onment', N ull, getda te(), 'vaa itcrollim'
  243   End
  244  
  245   if not exi sts (selec t 1 from [ dbo].[CRS_ SETTINGS]  where ([na me] = 'Cub e Excel In structions ') and ([s td_registr y_id] = @s tdRegId))
  246   Begin
  247           In sert into  [dbo].[CRS _SETTINGS]
  248           ([ STD_REGIST RY_ID], [N ame], [Val ue], [Desc ription],  [comments] , [created ], [create dby])
  249           Se lect @StdR egId, 'Cub e Excel In structions ', @ExcelI nstruction s, 'These  instructio ns can be  used to se tup a MS E xcel link  to one of  the three  Analysis S ervices TB I Cube dat abases', N ull, getda te(), 'vaa itcrollim'
  250   End
  251  
  252   if not exi sts (selec t 1 from [ dbo].[CRS_ SETTINGS]  where ([na me] = 'Cub e Last Upd ate') and  ([std_regi stry_id] =  @stdRegId ))
  253   Begin
  254           In sert into  [dbo].[CRS _SETTINGS]
  255           ([ STD_REGIST RY_ID], [N ame], [Val ue], [Desc ription],  [comments] , [created ], [create dby])
  256           Se lect @StdR egId, 'Cub e Last Upd ate', 'Mar  14 2014 1 0:26AM', ' The date t he cube wa s last pro cessed', N ull, getda te(), 'vaa itcrollim'
  257   End
  258  
  259  
  260  
  261   GO
  262   IF  EXISTS  (SELECT *  FROM sys. objects WH ERE object _id = OBJE CT_ID(N'[T BI].[GET_C UBE_SETTIN GS]') AND  type in (N 'P', N'PC' ))
  263   DROP PROCE DURE [TBI] .[GET_CUBE _SETTINGS]
  264   GO
  265   CREATE PRO CEDURE [TB I].[GET_CU BE_SETTING S]
  266   AS
  267   Begin
  268           De clare 
  269           @S tdRegId in t
  270           
  271           De clare @res ult table  ([name] va rchar(100) , [value]  varchar(10 00))
  272  
  273           -- - set Regi stry
  274           Se lect @StdR egId = [id ] from [db o].[std_re gistry] wh ere ([CODE ] = 'TBI')
  275           
  276           In sert into  @result 
  277           ([ Name], [Va lue])
  278           Se lect [name ], [VALUE]
  279           fr om [dbo].[ CRS_SETTIN GS]
  280           wh ere [STD_R EGISTRY_ID ] = @StdRe gId 
  281  
  282           --  return re sult
  283           Se lect [Name ], [value]  from @Res ult order  by [name]
  284   End
  285  
  286   GO
  287  

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