/*------------------------------------------------------------*
* program:     cdisc105.sas                                     *
* Description: Case #105. SUPPQUAL Study ID For Supplemental Qualifiers domains, this identifies records*
*              where values for [Study Identifier, Unique Subject Identifier, Identifying Variable, *
*              Identifying Variable Value, Qualifier Variable Name] variable(s) are not unique.*
* By:          Sy Truong, 10/14/2009                          *
*-------------------------------------------------------------*/
 
libname templib '../data';
options nofmterr;
*** Create some data to be selected ***;
data templib.SUPPAE(label="Inclusion/Exclusion Criteria Not Met");
attrib STUDYID	label="Study IdentifIEr" length=$100;
attrib RDOMAIN	label="Related RDOMAIN Abbreviation" length=$100;
attrib USUBJID	label="Unique Subject IdentifIEr" length=$100;
attrib IDVAR	label="Identifying Variable" length=$100;
attrib IDVARVAL	label="Identifying Variable Value" length=$100;
attrib QNAM	    label="Qualifier Variable Name" length=$100;
attrib QLABEL	label="Qualifier Variable Label" length=$100;
attrib QVAL	    label="Data Value" length=$100;
attrib QORIG	label="Category of Question" length=$100;
attrib QEVAL	label="Subcategory for Question" length=$100;

STUDYID = 'test';RDOMAIN = 'test';USUBJID = '123';IDVAR = 'AESEQ';IDVARVAL = '1';QNAM = 'AETRTEM';QLABEL = 'test';QVAL = 'test';QORIG = 'test';QEVAL = 'test';
output;
STUDYID = 'test';RDOMAIN = 'test';USUBJID = '123';IDVAR = 'AESEQ';IDVARVAL = '1';QNAM = 'AETRTEM';QLABEL = 'test';QVAL = 'test';QORIG = 'test';QEVAL = 'test';

output;
STUDYID = 'test';RDOMAIN = 'test';USUBJID = '456';IDVAR = 'AESEQ';IDVARVAL = '1';QNAM = 'HLT';QLABEL = 'test';QVAL = 'test';QORIG = 'test';QEVAL = 'test';

output;
STUDYID = 'test';RDOMAIN = 'test';USUBJID = '456';IDVAR = 'AESEQ';IDVARVAL = '1';QNAM = 'LLT';QLABEL = 'test';QVAL = 'test';QORIG = 'test';QEVAL = 'test';
output;

STUDYID = 'test';RDOMAIN = 'test';USUBJID = '123';IDVAR = 'AESEQ';IDVARVAL = '2';QNAM = 'AETRTEM';QLABEL = 'test';QVAL = 'test';QORIG = 'test';QEVAL = 'test';

output;
STUDYID = 'test';RDOMAIN = 'test';USUBJID = '789';IDVAR = 'AESEQ';IDVARVAL = '2';QNAM = 'HLGT';QLABEL = 'test';QVAL = 'test';QORIG = 'test';QEVAL = 'test';

output;
STUDYID = 'test';RDOMAIN = 'test';USUBJID = '789';IDVAR = 'AESEQ';IDVARVAL = '2';QNAM = 'HLT';QLABEL = 'test';QVAL = 'test';QORIG = 'test';QEVAL = 'test';

output;
STUDYID = 'test6';RDOMAIN = 'test';USUBJID = '789';IDVAR = 'AESEQ';IDVARVAL = '2';QNAM = 'LLT';QLABEL = 'test';QVAL = 'test';QORIG = 'test';QEVAL = 'test';

output;

run;
%cdisc(datlib=templib,datname=SUPPAE);
ight have been removed, had its name changed, or is temporarily unavailable.</font></td>
  </tr>
  
  <tr>
    <td width="400" colspan="2">
	<font style="COLOR:000000; FONT: 8pt/11pt verdana">

	<hr color="#C0C0C0" noshade>
	
    <p>Please try the following:</p>

	<ul>
      <li>If you typed the page address in the Address bar, make sure that it is spelled correctly.<br>
      </li>
	  
      <li>Open the 
	  
	  <script>
	  <!--
	  if (!((window.navigator.userAgent.indexOf("MSIE") > 0) && (window.navigator.appVersion.charAt(0) == "2")))
	  { 
	  	Homepage();
	  }
	  //-->
	   </script>

	   home page, and then look for links to the information you want.</li>
	   
      <li>Click the <a href="javascript:history.back(1)">Back</a> button to try another link.</li>
    </ul>
    
    <h2 style="font:8pt/11pt verdana; color:000000">HTTP 404 - File not found<br>
    Internet Information Services<BR></h2>
	 
	<hr color="#C0C0C0" noshade>
	
	<p>Technical Information (for support personnel)</p>
	
<ul>
<li>More information:<br>
<a href="http://www.microsoft.com/ContentRedirect.asp?prd=iis&sbp=&pver=5.0&pid=&ID=404&cat=web&os=&over=&hrd=&Opt1=&Opt2=&Opt3=" target="_blank">Microsoft Support</a>
</li>
</ul> 

    </font></td>
  </tr>
  
</table>
</body>
</html>