/*------------------------------------------------------------* 
* program:     cdisc55.sas                                    * 
* Description: Case #55. Original Units Null For Findings domains, this identifies records that *
*              violate the condition [Result or Finding in Original UnitsU is null],*
*              limited to records where [Result or Finding in Original Units is null].* 
* By:          Sy Truong, 10/14/2009                          * 
*-------------------------------------------------------------*/
libname templib '../data';
data templib.lb(label="Laboratory Data");
attrib STUDYID length=$7 label="Study Identifier";
attrib DOMAIN length=$2 label="Domain Abbreviation";
attrib USUBJID length=$14 label="Unique Subject Identifier";
attrib LBSEQ length=8 label="Sequence Number";
attrib LBREFID length=$7 label="Specimen ID";
attrib LBTESTCD length=$7 label="LAB Test or Examination Short Name";
attrib LBTEST length=$22 label="LAB Test or Examination Name";
attrib LBCAT length=$10 label="Category for Lab Test";

attrib LBORRES length=$8 label="Result or Finding in Original Units";
attrib LBORRESU length=$7 label="Original Units";
/*
attrib LBORNRLO length=$8 label="Reference Range Lower Limit in Orig Unit";
attrib LBORNRHI length=$8 label="Reference Range Upper Limit in Orig Unit";
attrib LBSTRESC length=$8 label="Character Result/Finding in Std Format";
attrib LBSTRESN length=8 label="Numeric Result/Finding in Standard Units";
attrib LBSTRESU length=$7 label="Standard Units";
attrib LBSTNRLO length=8 label="Reference Range Lower Limit-Std Units";
attrib LBSTNRHI length=8 label="Reference Range Upper Limit-Std Units";
attrib LBSTNRC length=$19 label="Reference Range for Char Rslt-Std Units";
attrib LBNRIND length=$1 label="Reference Range Indicator";
attrib LBSPEC length=$5 label="Specimen Type";
attrib LBMETHOD length=$8 label="Method of Test or Examination";

attrib LBBLFL length=$1 label="Baseline Flag";
attrib LBFAST length=$1 label="Fasting Status";
*/
attrib VISITNUM length=8 label="Visit Number";
attrib VISIT length=$7 label="Visit Name";
attrib VISITDY length=8 label="Planned Study Day of Visit";
attrib LBDTC length=$16 label="LBDTC";
attrib LBDY length=8 label="Study Day of Specimen Collection";

attrib LBDTC label="Date/Time of Specimen Collection" length=$20;
attrib LBENDTC label="End Date/Time of Specimen Collection" length=$50;



STUDYID="CDISC01";
DOMAIN="LB";
USUBJID="CDISC01.100008";
LBSEQ=1;
LBREFID="B232115";
LBTESTCD="BILI";
LBTEST="Bilirubin";
LBCAT="Chemistry";
LBORRES="0.4";
LBORRESU="MG/DL";
/*
LBORNRLO=".0";
LBORNRHI="1.1";
LBSTRESC="6.8";
LBSTRESN=6.8;
LBSTRESU="UMOL/L";
LBSTNRLO=0;
LBSTNRHI=18.8;
LBSTNRC="";
LBNRIND="N";
LBSPEC="Blood";
LBMETHOD="";
LBBLFL="Y";
LBFAST="Y";
*/
VISITNUM=1;
VISIT="SCREEN";
VISITDY=-13;
LBDTC="2003-04-15T11:20";
LBDY=-14;
LBDTC='12/09/2009';
LBENDTC="12/09/2009";

output;
STUDYID="CDISC01";
DOMAIN="LB";
USUBJID="CDISC01.100008";
LBSEQ=2;
LBREFID="B290028";
LBTESTCD="BILI";
LBTEST="Bilirubin";
LBCAT="Chemistry";
LBORRES="";
LBORRESU="";
/*
LBORNRLO=".0";
LBORNRHI="1.1";
LBSTRESC="5.1";
LBSTRESN=5.1;
LBSTRESU="UMOL/L";
LBSTNRLO=0;
LBSTNRHI=18.8;
LBSTNRC="";
LBNRIND="N";
LBSPEC="Blood";
LBMETHOD="";
LBBLFL="";
LBFAST="N";
*/
VISITNUM=10;
VISIT="WEEK 24";
VISITDY=169;
LBDTC="2003-10-13T11:55";
LBDY=168;
LBDTC='12/09/2009';
LBENDTC="12/09/2009";

output;
STUDYID="CDISC01";
DOMAIN="LB";
USUBJID="CDISC01.100008";
LBSEQ=3;
LBREFID="B232115";
LBTESTCD="BUN";
LBTEST="Blood Urea Nitrogen";
LBCAT="Chemistry";
LBORRES="";
LBORRESU="MG/DL";
/*
LBORNRLO="9";
LBORNRHI="24";
LBSTRESC="9.28";
LBSTRESN=9.28;
LBSTRESU="MMOL/L";
LBSTNRLO=3.21;
LBSTNRHI=8.57;
LBSTNRC="";
LBNRIND="H";
LBSPEC="Blood";
LBMETHOD="";
LBBLFL="Y";
LBFAST="Y";
*/
VISITNUM=1;
VISIT="SCREEN";
VISITDY=-13;
LBDTC='12/09/2009';
LBENDTC="12/09/2009";
LBDY=-14;
output;
STUDYID="CDISC01";
DOMAIN="LB";
USUBJID="CDISC01.100008";
LBSEQ=4;
LBREFID="B290028";
LBTESTCD="BUN";
LBTEST="Blood Urea Nitrogen";
LBCAT="Chemistry";
LBORRES="18";
LBORRESU="MG/DL";
/*
LBORNRLO="9";
LBORNRHI="24";
LBSTRESC="6.43";
LBSTRESN=6.43;
LBSTRESU="MMOL/L";
LBSTNRLO=3.21;
LBSTNRHI=8.57;
LBSTNRC="";
LBNRIND="N";
LBSPEC="Blood";
LBMETHOD="";
LBBLFL="";
LBFAST="N";
*/
VISITNUM=10;
VISIT="WEEK 24";
VISITDY=169;
LBDTC="2003-10-13T11:55";
LBDY=168;
LBDTC='12/09/2009';
LBENDTC="12/09/2009";

output;
run;
%cdisc(datlib=templib,datname=lb);