1                                           The SAS System              13:37 Monday, February 1, 2010

NOTE: Copyright (c) 2002-2003 by SAS Institute Inc., Cary, NC, USA. 
NOTE: SAS (r) 9.1 (TS1M3)
      Licensed to META-XCEED INC, Site 0035729001.
NOTE: This session is executing on the XP_PRO  platform.



NOTE: SAS 9.1.3 Service Pack 2

NOTE: SAS initialization used:
      real time           0.17 seconds
      cpu time            0.18 seconds
      
WARNING:  C:\Program Files\SAS\SAS 9.1\dquality\sasmsg IS MISSING FROM CONCATENATION.

NOTE: AUTOEXEC processing beginning; file is D:\TEST 
      SCRIPT\CDISCBUILDER\cdisc_scripts\saspgm\autoexec.sas.

NOTE: Libref _CDISC_ was successfully assigned as follows: 
      Engine:        V9 
      Physical Name: D:\TEST SCRIPT\CDISCBUILDER\cdisc_scripts\saspgm
NOTE: Libref PGMDAT was successfully assigned as follows: 
      Engine:        V9 
      Physical Name: D:\TEST SCRIPT\CDISCBUILDER\cdisc_scripts\data

NOTE: AUTOEXEC processing completed.

1          /*------------------------------------------------------------*
2          * program:     VS.sas                                    *
3          * By:          Phuong Tran, 01/20/2010                          *
4          *-------------------------------------------------------------*/
5          
6          libname datalib '../data';
NOTE: Libname DATALIB refers to the same physical library as PGMDAT.
NOTE: Libref DATALIB was successfully assigned as follows: 
      Engine:        V9 
      Physical Name: D:\TEST SCRIPT\CDISCBUILDER\cdisc_scripts\data
7          options nofmterr;
8          
9          data datalib.VS (label="Vital Signs");
10         attrib STUDYID  label="Study Identifier" length=$100;
11         attrib DOMAIN   label="Domain Abbreviation" length=$100;
12         attrib USUBJID  label="Unique Subject Identifier" length=$100;
13         attrib VSSEQ    label="Sequence Number" length=8;
14         attrib VSGRPID  label="Group ID" length=$100;
15         attrib VSSPID   label="Sponsor-Defined Identifier" length=$100;
16         attrib VSTESTCD label="Vital Signs Test Short Name" length=$100 format=$VSTESTCD.;                                                                                  __________                                                                                  __________                                                                                  __________
                                                                                  484                                                                                  484                                                                                  484
NOTE 484-185: Format $VSTESTCD was not found or could not be loaded.

17         attrib VSTEST   label="Vital Signs Test Name" length=$100 format=$VSTEST.;                                                                            ________                                                                            ________                                                                            ________
                                                                            484                                                                            484                                                                            484
NOTE 484-185: Format $VSTEST was not found or could not be loaded.

2                                           The SAS System              13:37 Monday, February 1, 2010

18         attrib VSPOS    label="Vital Signs Position of Subject" length=$100 format=$POSITION.;                                                                                      __________                                                                                      __________                                                                                      __________
                                                                                      484                                                                                      484                                                                                      484
NOTE 484-185: Format $POSITION was not found or could not be loaded.

19         attrib VSORRESU label="Original Units" length=$100 format=$VSRESU.;                                                                     ________                                                                     ________                                                                     ________
                                                                     484                                                                     484                                                                     484
20         attrib VSSTRESU label="Standard Units" length=$100 format=$VSRESU.;                                                                     ________                                                                     ________                                                                     ________
                                                                     484                                                                     484                                                                     484
NOTE 484-185: Format $VSRESU was not found or could not be loaded.

21         attrib VSSTAT   label="Completion Status" length=$100 format=$ND.;                                                                        ____                                                                        ____                                                                        ____
                                                                        484                                                                        484                                                                        484
NOTE 484-185: Format $ND was not found or could not be loaded.

22         attrib VSLOC    label="Location of Vital Signs Measurement" length=$100 format=$LOC.;                                                                                          _____                                                                                          _____                                                                                          _____
                                                                                          484                                                                                          484                                                                                          484
NOTE 484-185: Format $LOC was not found or could not be loaded.

23         attrib VSBLFL   label="Baseline Flag" length=$100 format=$NY.;                                                                    ____                                                                    ____                                                                    ____
                                                                    484                                                                    484                                                                    484
24         attrib VSDRVFL  label="Derived Flag" length=$100 format=$NY.;                                                                   ____                                                                   ____                                                                   ____
                                                                   484                                                                   484                                                                   484
NOTE 484-185: Format $NY was not found or could not be loaded.

25         attrib VSDTC    label="Date/Time of Measurements" length=$100;
26         attrib VSORRES  label="Result or Finding in Original Units" length=$100;
27         attrib VSSTRESC label="Character Result/Finding in Std Format" length=$100;
28         attrib VSSTRESN label="Numeric Result/Finding in Standard Units" length=8;
29         attrib VISITNUM label="Visit Number" length=8;
30         attrib test label="test" length=$100;
31         
32         *** Test invalid DOMAIN ***;
33         
34          STUDYID  ="001";
35          DOMAIN   ="test";
36          USUBJID  ="001";
37          VSSEQ    =1;
38          VSGRPID  ="001";
39          VSSPID   ="001";
40          VSTESTCD ="BMI";
41          VSTEST   ="BSA";
42          VSPOS    ="FOWLERS";
43          VSORRESU ="kg/m2";
44          VSSTRESU ="m2";
45          VSSTAT   ="NOT DONE";
46          VSLOC    ="NASOPHARYNX";
47          VSBLFL   ="Y";
48          VSDRVFL  ="Y";
49          VSDTC    ="001";
50          VSORRES  ="001";
51          VSSTRESC ="001";
52          VSSTRESN ="1";
53          VISITNUM ="1";
54          test ="abc";
3                                           The SAS System              13:37 Monday, February 1, 2010

55         output;
56         
57         *** Test invalid VSTESTCD, VSTEST ***;
58         
59          STUDYID  ="001";
60          DOMAIN   ="DM";
61          USUBJID  ="001";
62          VSSEQ    =1;
63          VSGRPID  ="001";
64          VSSPID   ="001";
65          VSTESTCD ="test";
66          VSTEST   ="test";
67          VSPOS    ="LEFT LATERAL DECUBITUS";
68          VSORRESU ="F";
69          VSSTRESU ="cm";
70          VSSTAT   ="NOT DONE";
71          VSLOC    ="LARYNX";
72          VSBLFL   ="Y";
73          VSDRVFL  ="Y";
74          VSDTC    ="001";
75          VSORRES  ="001";
76          VSSTRESC ="001";
77          VSSTRESN ="1";
78          VISITNUM ="1";
79          test ="abc";
80         output;
81         
82         *** Test invalid VSPOS, VSSTAT, VSLOC ***;
83         
84          STUDYID  ="001";
85          DOMAIN   ="DM";
86          USUBJID  ="001";
87          VSSEQ    =1;
88          VSGRPID  ="001";
89          VSSPID   ="001";
90          VSTESTCD ="PULSE";
91          VSTEST   ="DIABP";
92          VSPOS    ="test";
93          VSORRESU ="%";
94          VSSTRESU ="C";
95          VSSTAT   ="test";
96          VSLOC    ="test";
97          VSBLFL   ="Y";
98          VSDRVFL  ="N";
99          VSDTC    ="001";
100         VSORRES  ="001";
101         VSSTRESC ="001";
102         VSSTRESN ="1";
103         VISITNUM ="1";
104         test ="abc";
105        
106        output;
107        
108        *** Test invalid VSORRESU, VSSTRESU ***;
4                                           The SAS System              13:37 Monday, February 1, 2010

109        
110         STUDYID  ="001";
111         DOMAIN   ="DM";
112         USUBJID  ="001";
113         VSSEQ    =1;
114         VSGRPID  ="001";
115         VSSPID   ="001";
116         VSTESTCD ="BODYFAT";
117         VSTEST   ="HR";
118         VSPOS    ="RIGHT LATERAL DECUBITUS";
119         VSORRESU ="test";
120         VSSTRESU ="test";
121         VSSTAT   ="NOT DONE";
122         VSLOC    ="NASAL CAVITY";
123         VSBLFL   ="Y";
124         VSDRVFL  ="N";
125         VSDTC    ="001";
126         VSORRES  ="001";
127         VSSTRESC ="001";
128         VSSTRESN ="1";
129          VISITNUM ="1";
130        test ="abc";
131        
132        output;
133        
134        *** Test invalid VSBLFL, VSDRVFL ***;
135        
136         STUDYID  ="001";
137         DOMAIN   ="DM";
138         USUBJID  ="001";
139         VSSEQ    =1;
140         VSGRPID  ="001";
141         VSSPID   ="001";
142         VSTESTCD ="FRMSIZE";
143         VSTEST   ="TEMP";
144         VSPOS    ="SUPINE";
145         VSORRESU ="BREATHS/MIN";
146         VSSTRESU ="BEATS/MIN";
147         VSSTAT   ="NOT DONE";
148         VSLOC    ="MUSCLE TISSUE";
149         VSBLFL   ="test";
150         VSDRVFL  ="test";
151         VSDTC    ="001";
152         VSORRES  ="001";
153         VSSTRESC ="001";
154         VSSTRESN ="1";
155          VISITNUM ="1";
156        test ="abc";
157        
158         output;
159        
160        run;

NOTE: Character values have been converted to numeric values at the places given by: (Line):(Column).
5                                           The SAS System              13:37 Monday, February 1, 2010

      52:12    53:12    77:12    78:12    102:12   103:12   128:12   129:13   154:12   155:13
NOTE: The data set DATALIB.VS has 5 observations and 21 variables.
NOTE: DATA statement used (Total process time):
      real time           0.06 seconds
      cpu time            0.06 seconds
      

161        
162        *** Apply the CDISC check ***;
163        %cdisc (datlib=datalib,
164                datname= vs);

165                             data misobs(keep=obsnum);
166                                retain obsnum 0;
167                                set datalib.vs(keep=STUDYID);
168                                obsnum=obsnum+1;
169                                if missing(STUDYID) then
170                                   output;
171                             run;

NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK.MISOBS has 0 observations and 1 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

172                             data misobs(keep=obsnum);
173                                retain obsnum 0;
174                                set datalib.vs(keep=DOMAIN);
175                                obsnum=obsnum+1;
176                                if missing(DOMAIN) then
177                                   output;
178                             run;

NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK.MISOBS has 0 observations and 1 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

179                             data misobs(keep=obsnum);
180                                retain obsnum 0;
181                                set datalib.vs(keep=USUBJID);
182                                obsnum=obsnum+1;
183                                if missing(USUBJID) then
184                                   output;
185                             run;

NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK.MISOBS has 0 observations and 1 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
6                                           The SAS System              13:37 Monday, February 1, 2010

      cpu time            0.01 seconds
      

186                             data misobs(keep=obsnum);
187                                retain obsnum 0;
188                                set datalib.vs(keep=VSSEQ);
189                                obsnum=obsnum+1;
190                                if missing(VSSEQ) then
191                                   output;
192                             run;

NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK.MISOBS has 0 observations and 1 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

193                             data misobs(keep=obsnum);
194                                retain obsnum 0;
195                                set datalib.vs(keep=VSTESTCD);
196                                obsnum=obsnum+1;
197                                if missing(VSTESTCD) then
198                                   output;
199                             run;

NOTE: Format $VSTESTCD was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK.MISOBS has 0 observations and 1 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

200                             data misobs(keep=obsnum);
201                                retain obsnum 0;
202                                set datalib.vs(keep=VSTEST);
203                                obsnum=obsnum+1;
204                                if missing(VSTEST) then
205                                   output;
206                             run;

NOTE: Format $VSTEST was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK.MISOBS has 0 observations and 1 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

207        proc sort data=datalib.vs out=noflag;
208        by usubjid VSBLFL;
209        run;

7                                           The SAS System              13:37 Monday, February 1, 2010

NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK.NOFLAG has 5 observations and 21 variables.
NOTE: PROCEDURE SORT used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

210        data noflag;
211        attrib _flag length=$1;
212        set noflag(keep=usubjid VSBLFL);
213        by usubjid VSBLFL;
214        retain _flag;
215        if first.usubjid then _flag=VSBLFL;
216        if last.usubjid and _flag = VSBLFL and _flag = 'N' then output;
217        run;

NOTE: Format $NY was not found or could not be loaded.
NOTE: There were 5 observations read from the data set WORK.NOFLAG.
NOTE: The data set WORK.NOFLAG has 0 observations and 3 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

218        data _25;
219        retain obsnum 0;
220        length value $20;
221        set datalib.vs(keep=VSORRES VSSTAT);
222        obsnum = obsnum + 1;
223        if (VSORRES = '' and VSSTAT = '') or (VSORRES ne '' and VSSTAT ne '') then do;
224        if VSORRES = '' then value = 'are null';
225        if VSORRES ne '' then value = 'have a value';
226        output;
227        end;
228        run;

NOTE: Format $ND was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK._25 has 5 observations and 4 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

229        data _26;
230        retain obsnum 0;
231        set datalib.vs(keep=VISITNUM);
232        obsnum = obsnum + 1;
233        attrib visitnumc length=$50;
234        visitnumc = compress(visitnum);
235        if index(visitnumc,'.') gt 0 then visitnumc = compress(scan(visitnumc,2,'.'));
236        if length(compress(visitnumc))>2 then output;
237        run;

8                                           The SAS System              13:37 Monday, February 1, 2010

NOTE: Numeric values have been converted to character values at the places given by: (Line):(Column).
      234:22   
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK._26 has 0 observations and 3 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

238        data _31;
239        retain obsnum 0;
240        set datalib.vs(keep=VSBLFL);
241        obsnum = obsnum + 1;
242        if trim(left(VSBLFL)) not in ('Y','') then output;
243        run;

NOTE: Format $NY was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK._31 has 1 observations and 2 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

244        data _32;
245        retain obsnum 0;
246        set datalib.vs(keep=VSDRVFL);
247        obsnum = obsnum + 1;
248        if trim(left(VSDRVFL)) not in ('Y','') then output;
249        run;

NOTE: Format $NY was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK._32 has 3 observations and 2 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

250        data _36;
251        retain obsnum 0;
252        set datalib.vs;
253        obsnum = obsnum + 1;
254        if upcase(VSSTAT) not in ('','NOT DONE') then output;
255        run;

NOTE: Format $VSTESTCD was not found or could not be loaded.
NOTE: Format $VSTEST was not found or could not be loaded.
NOTE: Format $POSITION was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $ND was not found or could not be loaded.
NOTE: Format $LOC was not found or could not be loaded.
NOTE: Format $NY was not found or could not be loaded.
9                                           The SAS System              13:37 Monday, February 1, 2010

NOTE: Format $NY was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK._36 has 1 observations and 22 variables.
NOTE: DATA statement used (Total process time):
      real time           0.03 seconds
      cpu time            0.03 seconds
      

256        data _40;
257        retain obsnum 0;
258        set datalib.vs(keep=VSORRES VSDRVFL);
259        obsnum = obsnum + 1;
260        if VSORRES = '' and VSDRVFL ="Y" then output;
261        run;

NOTE: Format $NY was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK._40 has 0 observations and 3 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

262        data _41;
263        retain obsnum 0;
264        set datalib.vs(keep=VSSTRESC VSDRVFL);
265        obsnum = obsnum + 1;
266        if VSSTRESC = '' and VSDRVFL ="Y" then output;
267        run;

NOTE: Format $NY was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK._41 has 0 observations and 3 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

268        data _42;
269        retain obsnum 0;
270        set datalib.vs(keep=VSTEST);
271        obsnum = obsnum + 1;
272        if length(trim(left(VSTEST))) > 40 then output;
273        run;

NOTE: Format $VSTEST was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK._42 has 0 observations and 2 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

274        data _43(keep= obsnum VSTESTCD status);
10                                          The SAS System              13:37 Monday, February 1, 2010

275        retain obsnum 0;
276        set datalib.vs(keep=VSTESTCD);
277        obsnum = obsnum + 1;
278        attrib status length=$50;
279        if length(trim(left(VSTESTCD))) > 8 then do;
280        status = 'greater than 8 characters.';
281        output;
282        end;
283        if substr(VSTESTCD,1,1) in ('1','2','3','4','5','6','7','8','9','0') then do;
284        status = 'starts with a number.';
285        output;
286        end;
287        spec = '~`@#$%^&*()-+={}|\][:";<>?,./';
288        if index(VSTESTCD,"'") gt 0 then do;
289        status = 'contains special character(s).';
290        output;
291        end;
292        else do;
293        do i=1 to length(trim(left(VSTESTCD)));
294        if index(spec,substr(VSTESTCD,i,1)) gt 0 then do;
295        status = 'contains special character(s).';
296        output;
297        end;
298        end;
299        end;
300        run;

NOTE: Format $VSTESTCD was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK._43 has 0 observations and 3 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

301        proc sort data=work._43 nodupkey;
302        by obsnum VSTESTCD status;
303        run;

NOTE: Input data set is empty.
NOTE: 0 observations with duplicate key values were deleted.
NOTE: The data set WORK._43 has 0 observations and 3 variables.
NOTE: PROCEDURE SORT used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

304        proc sort data=work._43;
305        by status obsnum VSTESTCD;
306        run;

NOTE: Input data set is empty.
NOTE: The data set WORK._43 has 0 observations and 3 variables.
NOTE: PROCEDURE SORT used (Total process time):
11                                          The SAS System              13:37 Monday, February 1, 2010

      real time           0.01 seconds
      cpu time            0.01 seconds
      

#nghi dsid=1 
case=52 
307        data _120;
308        retain obsnum 0;
309        set datalib.vs;
310        obsnum = obsnum + 1;
311        if DOMAIN ne "" and upcase(DOMAIN) ne "VS"
312        then do;
313        output;
314        end;
315        run;

NOTE: Format $VSTESTCD was not found or could not be loaded.
NOTE: Format $VSTEST was not found or could not be loaded.
NOTE: Format $POSITION was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $ND was not found or could not be loaded.
NOTE: Format $LOC was not found or could not be loaded.
NOTE: Format $NY was not found or could not be loaded.
NOTE: Format $NY was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK._120 has 5 observations and 22 variables.
NOTE: DATA statement used (Total process time):
      real time           0.03 seconds
      cpu time            0.03 seconds
      

316        data _120;
317        retain obsnum 0;
318        set datalib.vs;
319        obsnum = obsnum + 1;
320        if VSTEST ne "" and upcase(VSTEST) ne "BMI"
321        and upcase(VSTEST) ne "BODYFAT"
322        and upcase(VSTEST) ne "BSA"
323        and upcase(VSTEST) ne "DIABP"
324        and upcase(VSTEST) ne "FRMSIZE"
325        and upcase(VSTEST) ne "HEIGHT"
326        and upcase(VSTEST) ne "HR"
327        and upcase(VSTEST) ne "MAP"
328        and upcase(VSTEST) ne "PULSE"
329        and upcase(VSTEST) ne "RESP"
330        and upcase(VSTEST) ne "SYSBP"
331        and upcase(VSTEST) ne "TEMP"
332        and upcase(VSTEST) ne "WEIGHT"
333        then do;
334        output;
335        end;
336        run;

12                                          The SAS System              13:37 Monday, February 1, 2010

NOTE: Format $VSTESTCD was not found or could not be loaded.
NOTE: Format $VSTEST was not found or could not be loaded.
NOTE: Format $POSITION was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $ND was not found or could not be loaded.
NOTE: Format $LOC was not found or could not be loaded.
NOTE: Format $NY was not found or could not be loaded.
NOTE: Format $NY was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK._120 has 1 observations and 22 variables.
NOTE: DATA statement used (Total process time):
      real time           0.03 seconds
      cpu time            0.03 seconds
      

337        data _120;
338        retain obsnum 0;
339        set datalib.vs;
340        obsnum = obsnum + 1;
341        if VSORRESU ne "" and upcase(VSORRESU) ne "VSRESU"
342        and upcase(VSORRESU) ne "%"
343        and upcase(VSORRESU) ne "BEATS/MIN"
344        and upcase(VSORRESU) ne "BREATHS/MIN"
345        and upcase(VSORRESU) ne "C"
346        and upcase(VSORRESU) ne "CM"
347        and upcase(VSORRESU) ne "F"
348        and upcase(VSORRESU) ne "G"
349        and upcase(VSORRESU) ne "IN"
350        and upcase(VSORRESU) ne "KG"
351        and upcase(VSORRESU) ne "KG/M2"
352        and upcase(VSORRESU) ne "LB"
353        and upcase(VSORRESU) ne "M2"
354        and upcase(VSORRESU) ne "MMHG"
355        and upcase(VSORRESU) ne "OHM"
356        then do;
357        output;
358        end;
359        run;

NOTE: Format $VSTESTCD was not found or could not be loaded.
NOTE: Format $VSTEST was not found or could not be loaded.
NOTE: Format $POSITION was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $ND was not found or could not be loaded.
NOTE: Format $LOC was not found or could not be loaded.
NOTE: Format $NY was not found or could not be loaded.
NOTE: Format $NY was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK._120 has 1 observations and 22 variables.
NOTE: DATA statement used (Total process time):
      real time           0.04 seconds
      cpu time            0.04 seconds
13                                          The SAS System              13:37 Monday, February 1, 2010

      

360        data _120;
361        retain obsnum 0;
362        set datalib.vs;
363        obsnum = obsnum + 1;
364        if VSSTRESU ne "" and upcase(VSSTRESU) ne "VSRESU"
365        and upcase(VSSTRESU) ne "%"
366        and upcase(VSSTRESU) ne "BEATS/MIN"
367        and upcase(VSSTRESU) ne "BREATHS/MIN"
368        and upcase(VSSTRESU) ne "C"
369        and upcase(VSSTRESU) ne "CM"
370        and upcase(VSSTRESU) ne "F"
371        and upcase(VSSTRESU) ne "G"
372        and upcase(VSSTRESU) ne "IN"
373        and upcase(VSSTRESU) ne "KG"
374        and upcase(VSSTRESU) ne "KG/M2"
375        and upcase(VSSTRESU) ne "LB"
376        and upcase(VSSTRESU) ne "M2"
377        and upcase(VSSTRESU) ne "MMHG"
378        and upcase(VSSTRESU) ne "OHM"
379        then do;
380        output;
381        end;
382        run;

NOTE: Format $VSTESTCD was not found or could not be loaded.
NOTE: Format $VSTEST was not found or could not be loaded.
NOTE: Format $POSITION was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $ND was not found or could not be loaded.
NOTE: Format $LOC was not found or could not be loaded.
NOTE: Format $NY was not found or could not be loaded.
NOTE: Format $NY was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK._120 has 1 observations and 22 variables.
NOTE: DATA statement used (Total process time):
      real time           0.07 seconds
      cpu time            0.03 seconds
      

383        data _120;
384        retain obsnum 0;
385        set datalib.vs;
386        obsnum = obsnum + 1;
387        if VSSTAT ne "" and upcase(VSSTAT) ne "ND"
388        and upcase(VSSTAT) ne "NOT DONE"
389        then do;
390        output;
391        end;
392        run;

NOTE: Format $VSTESTCD was not found or could not be loaded.
14                                          The SAS System              13:37 Monday, February 1, 2010

NOTE: Format $VSTEST was not found or could not be loaded.
NOTE: Format $POSITION was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $ND was not found or could not be loaded.
NOTE: Format $LOC was not found or could not be loaded.
NOTE: Format $NY was not found or could not be loaded.
NOTE: Format $NY was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK._120 has 1 observations and 22 variables.
NOTE: DATA statement used (Total process time):
      real time           0.03 seconds
      cpu time            0.03 seconds
      

393        data _120;
394        retain obsnum 0;
395        set datalib.vs;
396        obsnum = obsnum + 1;
397        if VSLOC ne "" and upcase(VSLOC) ne "LOC"
398        and upcase(VSLOC) ne "LIP"
399        and upcase(VSLOC) ne "HARD PALATE"
400        and upcase(VSLOC) ne "HYPOPHARYNX"
401        and upcase(VSLOC) ne "GASTRIC CARDIA"
402        and upcase(VSLOC) ne "FUNDUS OF THE STOMACH"
403        and upcase(VSLOC) ne "BODY OF STOMACH"
404        and upcase(VSLOC) ne "ANTRUM PYLORI"
405        and upcase(VSLOC) ne "GREATER CURVATURE OF THE STOMACH"
406        and upcase(VSLOC) ne "MIDDLE EAR"
407        and upcase(VSLOC) ne "MAXILLARY SINUS"
408        and upcase(VSLOC) ne "ETHMOID SINUS"
409        and upcase(VSLOC) ne "FRONTAL SINUS"
410        and upcase(VSLOC) ne "SUBGLOTTIS"
411        and upcase(VSLOC) ne "MANDIBLE"
412        and upcase(VSLOC) ne "SKIN OF THE TRUNK"
413        and upcase(VSLOC) ne "NIPPLE"
414        and upcase(VSLOC) ne "CERVIX UTERI"
415        and upcase(VSLOC) ne "MYOMETRIUM"
416        and upcase(VSLOC) ne "PARAMETRIUM"
417        and upcase(VSLOC) ne "CONJUNCTIVA"
418        and upcase(VSLOC) ne "CORNEA"
419        and upcase(VSLOC) ne "RETINA"
420        and upcase(VSLOC) ne "ORBIT"
421        and upcase(VSLOC) ne "FRONTAL LOBE"
422        and upcase(VSLOC) ne "PARIETAL LOBE"
423        and upcase(VSLOC) ne "BRAIN VENTRICLE"
424        and upcase(VSLOC) ne "PELVIC LYMPH NODE"
425        and upcase(VSLOC) ne "BONE"
426        and upcase(VSLOC) ne "ARTERY"
427        and upcase(VSLOC) ne "GALLBLADDER"
428        and upcase(VSLOC) ne "GASTROINTESTINAL SYSTEM"
429        and upcase(VSLOC) ne "LARGE INTESTINE"
430        and upcase(VSLOC) ne "APPENDIX"
431        and upcase(VSLOC) ne "COLON"
15                                          The SAS System              13:37 Monday, February 1, 2010

432        and upcase(VSLOC) ne "SMALL INTESTINE"
433        and upcase(VSLOC) ne "ILEUM"
434        and upcase(VSLOC) ne "JEJUNUM"
435        and upcase(VSLOC) ne "ESOPHAGUS"
436        and upcase(VSLOC) ne "STOMACH"
437        and upcase(VSLOC) ne "LIVER"
438        and upcase(VSLOC) ne "PANCREAS"
439        and upcase(VSLOC) ne "EAR"
440        and upcase(VSLOC) ne "THYROID GLAND"
441        and upcase(VSLOC) ne "EYE"
442        and upcase(VSLOC) ne "FALLOPIAN TUBE"
443        and upcase(VSLOC) ne "OVARY"
444        and upcase(VSLOC) ne "UTERUS"
445        and upcase(VSLOC) ne "VAGINA"
446        and upcase(VSLOC) ne "VULVA"
447        and upcase(VSLOC) ne "PENIS"
448        and upcase(VSLOC) ne "PROSTATE GLAND"
449        and upcase(VSLOC) ne "TESTIS"
450        and upcase(VSLOC) ne "URINARY SYSTEM"
451        and upcase(VSLOC) ne "BLADDER"
452        and upcase(VSLOC) ne "KIDNEY"
453        and upcase(VSLOC) ne "URETER"
454        and upcase(VSLOC) ne "URETHRA"
455        and upcase(VSLOC) ne "HEAD"
456        and upcase(VSLOC) ne "LARYNX"
457        and upcase(VSLOC) ne "ORAL CAVITY"
458        and upcase(VSLOC) ne "TONGUE"
459        and upcase(VSLOC) ne "NASOPHARYNX"
460        and upcase(VSLOC) ne "NASAL CAVITY"
461        and upcase(VSLOC) ne "PHARYNX"
462        and upcase(VSLOC) ne "PAROTID GLAND"
463        and upcase(VSLOC) ne "TRACHEA"
464        and upcase(VSLOC) ne "LIMB"
465        and upcase(VSLOC) ne "SPLEEN"
466        and upcase(VSLOC) ne "THYMUS GLAND"
467        and upcase(VSLOC) ne "BLOOD"
468        and upcase(VSLOC) ne "MUSCLE TISSUE"
469        and upcase(VSLOC) ne "BRAIN"
470        and upcase(VSLOC) ne "MEDULLA OBLONGATA"
471        and upcase(VSLOC) ne "BASAL GANGLIA"
472        and upcase(VSLOC) ne "PUTAMEN"
473        and upcase(VSLOC) ne "THALAMUS"
474        and upcase(VSLOC) ne "LUNG"
475        and upcase(VSLOC) ne "SKIN"
476        and upcase(VSLOC) ne "TYMPANIC MEMBRANE"
477        and upcase(VSLOC) ne "MASTOID PROCESS"
478        and upcase(VSLOC) ne "ABDOMINAL CAVITY"
479        and upcase(VSLOC) ne "ADRENAL GLAND"
480        and upcase(VSLOC) ne "AORTA"
481        and upcase(VSLOC) ne "AXILLA"
482        and upcase(VSLOC) ne "BILIARY TRACT"
483        and upcase(VSLOC) ne "BLOOD VESSEL"
484        and upcase(VSLOC) ne "BRACHIAL ARTERY"
485        and upcase(VSLOC) ne "BRACHIAL PLEXUS"
16                                          The SAS System              13:37 Monday, February 1, 2010

486        and upcase(VSLOC) ne "BRONCHUS"
487        and upcase(VSLOC) ne "CAROTID ARTERY"
488        and upcase(VSLOC) ne "CERVICAL VERTEBRA"
489        and upcase(VSLOC) ne "CLAVICLE"
490        and upcase(VSLOC) ne "COCCYX"
491        and upcase(VSLOC) ne "EPIGLOTTIS"
492        and upcase(VSLOC) ne "ETHMOID BONE"
493        and upcase(VSLOC) ne "EYELID"
494        and upcase(VSLOC) ne "FEMORAL ARTERY"
495        and upcase(VSLOC) ne "FEMORAL VEIN"
496        and upcase(VSLOC) ne "FEMUR"
497        and upcase(VSLOC) ne "FIBULA"
498        and upcase(VSLOC) ne "GANGLION"
499        and upcase(VSLOC) ne "GLOTTIS"
500        and upcase(VSLOC) ne "INGUINAL REGION"
501        and upcase(VSLOC) ne "HEART"
502        and upcase(VSLOC) ne "HUMERUS"
503        and upcase(VSLOC) ne "INTESTINE"
504        and upcase(VSLOC) ne "LENS"
505        and upcase(VSLOC) ne "LUMBAR VERTEBRA"
506        and upcase(VSLOC) ne "LYMPH NODE"
507        and upcase(VSLOC) ne "MEDIASTINUM"
508        and upcase(VSLOC) ne "METATARSAL BONE"
509        and upcase(VSLOC) ne "NOSE"
510        and upcase(VSLOC) ne "OPTIC NERVE"
511        and upcase(VSLOC) ne "PARANASAL SINUS"
512        and upcase(VSLOC) ne "PELVIS"
513        and upcase(VSLOC) ne "PERIPHERAL NERVE"
514        and upcase(VSLOC) ne "PERITONEUM"
515        and upcase(VSLOC) ne "RIB"
516        and upcase(VSLOC) ne "SCAPULA"
517        and upcase(VSLOC) ne "SCROTUM"
518        and upcase(VSLOC) ne "LUNATE BONE"
519        and upcase(VSLOC) ne "SKULL"
520        and upcase(VSLOC) ne "STERNUM"
521        and upcase(VSLOC) ne "TEMPORAL BONE"
522        and upcase(VSLOC) ne "THORACIC VERTEBRA"
523        and upcase(VSLOC) ne "THORAX"
524        and upcase(VSLOC) ne "TIBIA"
525        and upcase(VSLOC) ne "TONSIL"
526        and upcase(VSLOC) ne "TROCHLEAR NERVE"
527        and upcase(VSLOC) ne "UVEA"
528        and upcase(VSLOC) ne "VEIN"
529        and upcase(VSLOC) ne "VENA CAVA"
530        and upcase(VSLOC) ne "VOCAL CORD"
531        and upcase(VSLOC) ne "RADIAL ARTERY"
532        and upcase(VSLOC) ne "PLEURAL CAVITY"
533        and upcase(VSLOC) ne "CORONARY ARTERY"
534        and upcase(VSLOC) ne "SACRAL VERTEBRA"
535        and upcase(VSLOC) ne "SCAPHOID BONE"
536        and upcase(VSLOC) ne "PISIFORM BONE"
537        and upcase(VSLOC) ne "CAPITATE BONE"
538        and upcase(VSLOC) ne "TRAPEZIAL BONE"
539        and upcase(VSLOC) ne "TRIANGULAR BONE"
17                                          The SAS System              13:37 Monday, February 1, 2010

540        and upcase(VSLOC) ne "TRAPEZOID BONE"
541        and upcase(VSLOC) ne "HAMATE BONE"
542        and upcase(VSLOC) ne "SUPRACLAVICULAR LYMPH NODE"
543        and upcase(VSLOC) ne "AXILLARY LYMPH NODE"
544        and upcase(VSLOC) ne "BREAST"
545        and upcase(VSLOC) ne "VERTEBRAL COLUMN"
546        and upcase(VSLOC) ne "PERICARDIUM"
547        and upcase(VSLOC) ne "BODY"
548        and upcase(VSLOC) ne "JOINT"
549        and upcase(VSLOC) ne "LIGAMENT"
550        and upcase(VSLOC) ne "SKELETAL MUSCLE TISSUE"
551        and upcase(VSLOC) ne "BACK"
552        and upcase(VSLOC) ne "NECK"
553        and upcase(VSLOC) ne "FACE"
554        and upcase(VSLOC) ne "MUCOSA"
555        and upcase(VSLOC) ne "GASTRIC"
556        and upcase(VSLOC) ne "HEPATIC"
557        and upcase(VSLOC) ne "ANASTOMOSIS"
558        and upcase(VSLOC) ne "SHOULDER"
559        and upcase(VSLOC) ne "CHEST"
560        and upcase(VSLOC) ne "HILAR"
561        and upcase(VSLOC) ne "CORPUS LUTEUM"
562        and upcase(VSLOC) ne "MAXILLA"
563        and upcase(VSLOC) ne "ACETABULUM"
564        and upcase(VSLOC) ne "ACROMIOCLAVICULAR JOINT"
565        and upcase(VSLOC) ne "ACROMION"
566        and upcase(VSLOC) ne "ANKLE JOINT"
567        and upcase(VSLOC) ne "AORTIC ARCH"
568        and upcase(VSLOC) ne "ARM"
569        and upcase(VSLOC) ne "BASILIC VEIN"
570        and upcase(VSLOC) ne "C1 VERTEBRA"
571        and upcase(VSLOC) ne "C2 VERTEBRA"
572        and upcase(VSLOC) ne "C3 VERTEBRA"
573        and upcase(VSLOC) ne "C4 VERTEBRA"
574        and upcase(VSLOC) ne "C5 VERTEBRA"
575        and upcase(VSLOC) ne "C6 VERTEBRA"
576        and upcase(VSLOC) ne "C7 VERTEBRA"
577        and upcase(VSLOC) ne "CANINE TOOTH"
578        and upcase(VSLOC) ne "CEPHALIC VEIN"
579        and upcase(VSLOC) ne "CERVICAL LYMPH NODE"
580        and upcase(VSLOC) ne "COCCYGEAL VERTEBRA"
581        and upcase(VSLOC) ne "COSTAL CARTILAGE"
582        and upcase(VSLOC) ne "CUBOID BONE"
583        and upcase(VSLOC) ne "DORSALIS PEDIS ARTERY"
584        and upcase(VSLOC) ne "ELBOW JOINT"
585        and upcase(VSLOC) ne "ENDOMETRIAL CAVITY"
586        and upcase(VSLOC) ne "FACET JOINT"
587        and upcase(VSLOC) ne "FINGER"
588        and upcase(VSLOC) ne "FINGERNAIL"
589        and upcase(VSLOC) ne "FOOT"
590        and upcase(VSLOC) ne "FOREARM"
591        and upcase(VSLOC) ne "GASTROESOPHAGEAL JUNCTION"
592        and upcase(VSLOC) ne "GINGIVA"
593        and upcase(VSLOC) ne "GLENOID FOSSA"
18                                          The SAS System              13:37 Monday, February 1, 2010

594        and upcase(VSLOC) ne "GREAT TROCHANTER"
595        and upcase(VSLOC) ne "HAIR"
596        and upcase(VSLOC) ne "HAND"
597        and upcase(VSLOC) ne "HEAD OF THE HUMERUS"
598        and upcase(VSLOC) ne "HIP JOINT"
599        and upcase(VSLOC) ne "HYOID BONE"
600        and upcase(VSLOC) ne "ILIAC LYMPH NODE"
601        and upcase(VSLOC) ne "ILIUM"
602        and upcase(VSLOC) ne "INCISOR"
603        and upcase(VSLOC) ne "INCUS"
604        and upcase(VSLOC) ne "INGUINAL LYMPH NODE"
605        and upcase(VSLOC) ne "INTERPHALANGEAL JOINT OF THE HAND"
606        and upcase(VSLOC) ne "ISCHIUM"
607        and upcase(VSLOC) ne "JAW JOINT"
608        and upcase(VSLOC) ne "KNEE JOINT"
609        and upcase(VSLOC) ne "L1 VERTEBRA"
610        and upcase(VSLOC) ne "L2 VERTEBRA"
611        and upcase(VSLOC) ne "L3 VERTEBRA"
612        and upcase(VSLOC) ne "L4 VERTEBRA"
613        and upcase(VSLOC) ne "L5 VERTEBRA"
614        and upcase(VSLOC) ne "LACRIMAL BONE"
615        and upcase(VSLOC) ne "LEG"
616        and upcase(VSLOC) ne "LIVER FISSURE"
617        and upcase(VSLOC) ne "LYMPH NODE HILUM"
618        and upcase(VSLOC) ne "MALLEUS"
619        and upcase(VSLOC) ne "MEDIASTINAL LYMPH NODE"
620        and upcase(VSLOC) ne "METATARSOPHALANGEAL JOINT"
621        and upcase(VSLOC) ne "NAIL"
622        and upcase(VSLOC) ne "NASAL BONE"
623        and upcase(VSLOC) ne "NASAL SEPTUM"
624        and upcase(VSLOC) ne "NAVICULAR BONE"
625        and upcase(VSLOC) ne "NOSTRIL"
626        and upcase(VSLOC) ne "OLECRANON"
627        and upcase(VSLOC) ne "OLFACTORY MUCOSA"
628        and upcase(VSLOC) ne "PAROTID GLAND LYMPH NODE"
629        and upcase(VSLOC) ne "PATELLA"
630        and upcase(VSLOC) ne "PELVIC BONE"
631        and upcase(VSLOC) ne "PERINEUM"
632        and upcase(VSLOC) ne "PHARYNGEAL TONSIL"
633        and upcase(VSLOC) ne "PORTAL VEIN"
634        and upcase(VSLOC) ne "PYLORIC SPHINCTER"
635        and upcase(VSLOC) ne "SACROILIAC JOINT"
636        and upcase(VSLOC) ne "SACRUM"
637        and upcase(VSLOC) ne "SHOULDER JOINT"
638        and upcase(VSLOC) ne "SINUS"
639        and upcase(VSLOC) ne "STERNOCLAVICULAR JOINT"
640        and upcase(VSLOC) ne "SYNOVIAL FLUID"
641        and upcase(VSLOC) ne "T1 VERTEBRA"
642        and upcase(VSLOC) ne "T10 VERTEBRA"
643        and upcase(VSLOC) ne "T11 VERTEBRA"
644        and upcase(VSLOC) ne "T12 VERTEBRA"
645        and upcase(VSLOC) ne "T2 VERTEBRA"
646        and upcase(VSLOC) ne "T3 VERTEBRA"
647        and upcase(VSLOC) ne "T4 VERTEBRA"
19                                          The SAS System              13:37 Monday, February 1, 2010

648        and upcase(VSLOC) ne "T5 VERTEBRA"
649        and upcase(VSLOC) ne "T6 VERTEBRA"
650        and upcase(VSLOC) ne "T7 VERTEBRA"
651        and upcase(VSLOC) ne "T8 VERTEBRA"
652        and upcase(VSLOC) ne "T9 VERTEBRA"
653        and upcase(VSLOC) ne "TARSUS BONE"
654        and upcase(VSLOC) ne "THIGH"
655        and upcase(VSLOC) ne "TOE"
656        and upcase(VSLOC) ne "TOENAIL"
657        and upcase(VSLOC) ne "TRAPEZIUS MUSCLE"
658        and upcase(VSLOC) ne "TROCHANTER"
659        and upcase(VSLOC) ne "TRUNK"
660        and upcase(VSLOC) ne "TUNICA INTIMA"
661        and upcase(VSLOC) ne "VOMER"
662        and upcase(VSLOC) ne "WRIST JOINT"
663        and upcase(VSLOC) ne "XIPHOID PROCESS"
664        and upcase(VSLOC) ne "GASTROINTESTINAL TRACT"
665        and upcase(VSLOC) ne "ANUS"
666        and upcase(VSLOC) ne "REGIONAL LYMPH NODE"
667        and upcase(VSLOC) ne "STERNAL MANUBRIUM"
668        and upcase(VSLOC) ne "PALATINE BONE"
669        and upcase(VSLOC) ne "LEG SKIN"
670        and upcase(VSLOC) ne "ARM SKIN"
671        and upcase(VSLOC) ne "ABDOMINAL SKIN"
672        and upcase(VSLOC) ne "RIB 9"
673        and upcase(VSLOC) ne "RIB 8"
674        and upcase(VSLOC) ne "RIB 7"
675        and upcase(VSLOC) ne "RIB 6"
676        and upcase(VSLOC) ne "RIB 5"
677        and upcase(VSLOC) ne "RIB 4"
678        and upcase(VSLOC) ne "RIB 3"
679        and upcase(VSLOC) ne "RIB 2"
680        and upcase(VSLOC) ne "RIB 12"
681        and upcase(VSLOC) ne "RIB 11"
682        and upcase(VSLOC) ne "RIB 10"
683        and upcase(VSLOC) ne "RIB 1"
684        and upcase(VSLOC) ne "HAND PHALANX"
685        and upcase(VSLOC) ne "FOOT PHALANX"
686        and upcase(VSLOC) ne "TALUS"
687        and upcase(VSLOC) ne "SCIATIC NERVE"
688        and upcase(VSLOC) ne "THROAT"
689        and upcase(VSLOC) ne "FEMORAL NECK"
690        and upcase(VSLOC) ne "MALE GENITALIA"
691        and upcase(VSLOC) ne "FEMALE GENITALIA"
692        and upcase(VSLOC) ne "UNCINATE PROCESS OF PANCREAS"
693        and upcase(VSLOC) ne "CHEST WALL"
694        and upcase(VSLOC) ne "INFRACLAVICULAR LYMPH NODE"
695        and upcase(VSLOC) ne "FACIAL BONE"
696        and upcase(VSLOC) ne "WAIST"
697        and upcase(VSLOC) ne "HIP"
698        and upcase(VSLOC) ne "CELIAC LYMPH NODE"
699        and upcase(VSLOC) ne "TOOTH CANAL"
700        and upcase(VSLOC) ne "EPICONDYLE"
701        then do;
20                                          The SAS System              13:37 Monday, February 1, 2010

702        output;
703        end;
704        run;

NOTE: Format $VSTESTCD was not found or could not be loaded.
NOTE: Format $VSTEST was not found or could not be loaded.
NOTE: Format $POSITION was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $ND was not found or could not be loaded.
NOTE: Format $LOC was not found or could not be loaded.
NOTE: Format $NY was not found or could not be loaded.
NOTE: Format $NY was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK._120 has 1 observations and 22 variables.
NOTE: DATA statement used (Total process time):
      real time           0.07 seconds
      cpu time            0.07 seconds
      

705        data _120;
706        retain obsnum 0;
707        set datalib.vs;
708        obsnum = obsnum + 1;
709        if VSBLFL ne "" and upcase(VSBLFL) ne "NY"
710        and upcase(VSBLFL) ne "N"
711        and upcase(VSBLFL) ne "NOT APPLICABLE"
712        and upcase(VSBLFL) ne "UNKNOWN"
713        and upcase(VSBLFL) ne "Y"
714        then do;
715        output;
716        end;
717        run;

NOTE: Format $VSTESTCD was not found or could not be loaded.
NOTE: Format $VSTEST was not found or could not be loaded.
NOTE: Format $POSITION was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $ND was not found or could not be loaded.
NOTE: Format $LOC was not found or could not be loaded.
NOTE: Format $NY was not found or could not be loaded.
NOTE: Format $NY was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK._120 has 1 observations and 22 variables.
NOTE: DATA statement used (Total process time):
      real time           0.03 seconds
      cpu time            0.03 seconds
      

718        data _120;
719        retain obsnum 0;
720        set datalib.vs;
721        obsnum = obsnum + 1;
21                                          The SAS System              13:37 Monday, February 1, 2010

722        if VSDRVFL ne "" and upcase(VSDRVFL) ne "NY"
723        and upcase(VSDRVFL) ne "N"
724        and upcase(VSDRVFL) ne "NOT APPLICABLE"
725        and upcase(VSDRVFL) ne "UNKNOWN"
726        and upcase(VSDRVFL) ne "Y"
727        then do;
728        output;
729        end;
730        run;

NOTE: Format $VSTESTCD was not found or could not be loaded.
NOTE: Format $VSTEST was not found or could not be loaded.
NOTE: Format $POSITION was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $VSRESU was not found or could not be loaded.
NOTE: Format $ND was not found or could not be loaded.
NOTE: Format $LOC was not found or could not be loaded.
NOTE: Format $NY was not found or could not be loaded.
NOTE: Format $NY was not found or could not be loaded.
NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: The data set WORK._120 has 1 observations and 22 variables.
NOTE: DATA statement used (Total process time):
      real time           0.03 seconds
      cpu time            0.03 seconds
      

########### 71-80 
731        proc sort data=datalib.vs out=vs nodupkey;
732        by usubjid;
733        run;

NOTE: There were 5 observations read from the data set DATALIB.VS.
NOTE: 4 observations with duplicate key values were deleted.
NOTE: The data set WORK.VS has 1 observations and 21 variables.
NOTE: PROCEDURE SORT used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

NOTE: Table WORK._72 created, with 0 rows and 1 columns.

734                 proc sort data=cdisc nodupkey;
735                    by libname datname datlab variable length label type case comment;
736                 run;

NOTE: There were 15 observations read from the data set WORK.CDISC.
NOTE: 0 observations with duplicate key values were deleted.
NOTE: The data set WORK.CDISC has 15 observations and 11 variables.
NOTE: PROCEDURE SORT used (Total process time):
      real time           0.03 seconds
      cpu time            0.03 seconds
      

737              proc sort data = work.cdisc;
22                                          The SAS System              13:37 Monday, February 1, 2010

738                 by libname datname datlab variable case;
739              run;

NOTE: There were 15 observations read from the data set WORK.CDISC.
NOTE: The data set WORK.CDISC has 15 observations and 11 variables.
NOTE: PROCEDURE SORT used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

740        
741              proc format;
742                 *** Generate the comments for the CDISC evaluation case number ***;
743                 value $casefmt
744                 '1' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#1">1</a>'
745                 '2' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#2">2</a>'
746                 '3' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#3">3</a>'
747                 '4' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#4">4</a>'
748                 '5' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#5">5</a>'
749                 '6' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#6">6</a>'
750                 '7' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#7">7</a>'
751                 '8' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#8">8</a>'
752                 '9' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#9">9</a>'
753                 '10' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#10">10</a>'
754                 '11' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#11">11</a>'
755                 '12' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#12">12</a>'
756                 '13' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#13">13</a>'
757                 '14' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#14">14</a>'
758                 '15' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#15">15</a>'
759                 '16' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#16">16</a>'
760                 '17' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#17">17</a>'
761                 '18' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#18">18</a>'
762                 '19' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#19">19</a>'
763                 '20' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#20">20</a>'
764                 '21' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#21">21</a>'
765                 '22' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#22">22</a>'
766                 '23' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#23">23</a>'
767                 '24' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#24">24</a>'
768                 '25' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#25">25</a>'
769                 '26' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#26">26</a>'
770                 '27' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#27">27</a>'
771                 '28' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#28">28</a>'
772                 '29' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#29">29</a>'
773                 '30' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#30">30</a>'
774                 '31' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#31">31</a>'
775                 '32' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#32">32</a>'
776                 '33' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#33">33</a>'
777                 '34' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#34">34</a>'
778                 '35' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#35">35</a>'
779                 '36' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#36">36</a>'
780                 '37' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#37">37</a>'
781                 '38' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#38">38</a>'
782                 '39' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#39">39</a>'
783                 '40' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#40">40</a>'
23                                          The SAS System              13:37 Monday, February 1, 2010

784                 '41' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#41">41</a>'
785                 '42' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#42">42</a>'
786                 '43' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#43">43</a>'
787                 '44' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#44">44</a>'
788                 '45' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#45">45</a>'
789                 '46' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#46">46</a>'
790                 '47' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#47">47</a>'
791                 '48' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#48">48</a>'
792                 '49' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#49">49</a>'
793                 '50' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#50">50</a>'
794                 '51' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#51">51</a>'
795                 '52' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#52">52</a>'
796                 '53' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#53">53</a>'
797                 '54' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#54">54</a>'
798                 '55' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#55">55</a>'
799                 '56' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#56">56</a>'
800                 '57' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#57">57</a>'
801                 '58' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#58">58</a>'
802                 '59' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#59">59</a>'
803                 '60' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#60">60</a>'
804                 '61' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#61">61</a>'
805                 '62' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#62">62</a>'
806                 '63' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#63">63</a>'
807                 '64' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#64">64</a>'
808                 '65' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#65">65</a>'
809                 '66' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#66">66</a>'
810                 '67' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#67">67</a>'
811                 '68' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#68">68</a>'
812                 '69' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#69">69</a>'
813                 '70' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#70">70</a>'
814                 '71' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#71">71</a>'
815                 '72' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#72">72</a>'
816                 '73' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#73">73</a>'
817                 '74' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#74">74</a>'
818                 '75' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#75">75</a>'
819                 '76' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#76">76</a>'
820                 '77' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#77">77</a>'
821                 '78' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#78">78</a>'
822                 '79' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#79">79</a>'
823                 '80' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#80">80</a>'
824                 '81' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#81">81</a>'
825                 '82' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#82">82</a>'
826                 '83' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#83">83</a>'
827                 '84' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#84">84</a>'
828                 '85' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#85">85</a>'
829                 '86' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#86">86</a>'
830                 '87' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#87">87</a>'
831                 '88' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#88">88</a>'
832                 '89' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#89">89</a>'
833                 '90' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#90">90</a>'
834                 '91' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#91">91</a>'
835                 '92' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#92">92</a>'
836                 '93' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#93">93</a>'
837                 '94' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#94">94</a>'
24                                          The SAS System              13:37 Monday, February 1, 2010

838                 '95' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#95">95</a>'
839                 '96' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#96">96</a>'
840                 '97' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#97">97</a>'
841                 '98' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#98">98</a>'
842                 '99' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#99">99</a>'
843                 '100' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#100">100</a>'
844                 '101' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#101">101</a>'
845                 '102' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#102">102</a>'
846                 '103' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#103">103</a>'
847                 '104' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#104">104</a>'
848                 '105' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#105">105</a>'
849                 '106' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#106">106</a>'
850                 '107' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#107">107</a>'
851                 '108' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#108">108</a>'
852                 '109' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#109">109</a>'
853                 '110' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#110">110</a>'
854                 '111' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#111">111</a>'
855                 '112' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#112">112</a>'
856                 '113' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#113">113</a>'
857                 '114' = '<a href="http://meta-x.com/cdiscbuilder/cdisc.html#Extra
857      ! Variables">114</a>';
NOTE: Format $CASEFMT has been output.
858        
859        
860        
861                 *** Generate the format for the bookmark of variables ***;
862                 value $bookfmt
863                 "vs.studyid" = '<a name="vs.studyid">vs.studyid</a>'
864                 "vs.domain" = '<a name="vs.domain">vs.domain</a>'
865                 "vs.usubjid" = '<a name="vs.usubjid">vs.usubjid</a>'
866                 "vs.vsseq" = '<a name="vs.vsseq">vs.vsseq</a>'
867                 "vs.vsgrpid" = '<a name="vs.vsgrpid">vs.vsgrpid</a>'
868                 "vs.vsspid" = '<a name="vs.vsspid">vs.vsspid</a>'
869                 "vs.vstestcd" = '<a name="vs.vstestcd">vs.vstestcd</a>'
870                 "vs.vstest" = '<a name="vs.vstest">vs.vstest</a>'
871                 "vs.vspos" = '<a name="vs.vspos">vs.vspos</a>'
872                 "vs.vsorresu" = '<a name="vs.vsorresu">vs.vsorresu</a>'
873                 "vs.vsstresu" = '<a name="vs.vsstresu">vs.vsstresu</a>'
874                 "vs.vsstat" = '<a name="vs.vsstat">vs.vsstat</a>'
875                 "vs.vsloc" = '<a name="vs.vsloc">vs.vsloc</a>'
876                 "vs.vsblfl" = '<a name="vs.vsblfl">vs.vsblfl</a>'
877                 "vs.vsdrvfl" = '<a name="vs.vsdrvfl">vs.vsdrvfl</a>'
878                 "vs.vsdtc" = '<a name="vs.vsdtc">vs.vsdtc</a>'
879                 "vs.vsorres" = '<a name="vs.vsorres">vs.vsorres</a>'
880                 "vs.vsstresc" = '<a name="vs.vsstresc">vs.vsstresc</a>'
881                 "vs.vsstresn" = '<a name="vs.vsstresn">vs.vsstresn</a>'
882                 "vs.visitnum" = '<a name="vs.visitnum">vs.visitnum</a>'
883                 "vs.test" = '<a name="vs.test">vs.test</a>'
884                 ;
NOTE: Format $BOOKFMT has been output.
885        
886                 *** Generate the format for dataset linking ***;
887                 value $datfmt
888                 "ae" = '<a name="ae">ae</a><br>'
25                                          The SAS System              13:37 Monday, February 1, 2010

889                 "ce" = '<a name="ce">ce</a><br>'
890                 "cm" = '<a name="cm">cm</a><br>'
891                 "co" = '<a name="co">co</a><br>'
892                 "config" = '<a name="config">config</a><br>'
893                 "da" = '<a name="da">da</a><br>'
894                 "dm" = '<a name="dm">dm</a><br>'
895                 "ds" = '<a name="ds">ds</a><br>'
896                 "dv" = '<a name="dv">dv</a><br>'
897                 "eg" = '<a name="eg">eg</a><br>'
898                 "ex" = '<a name="ex">ex</a><br>'
899                 "fa" = '<a name="fa">fa</a><br>'
900                 "ie" = '<a name="ie">ie</a><br>'
901                 "lb" = '<a name="lb">lb</a><br>'
902                 "mb" = '<a name="mb">mb</a><br>'
903                 "mh" = '<a name="mh">mh</a><br>'
904                 "ms" = '<a name="ms">ms</a><br>'
905                 "pc" = '<a name="pc">pc</a><br>'
906                 "pe" = '<a name="pe">pe</a><br>'
907                 "pp" = '<a name="pp">pp</a><br>'
908                 "qs" = '<a name="qs">qs</a><br>'
909                 "relrec" = '<a name="relrec">relrec</a><br>'
910                 "sc" = '<a name="sc">sc</a><br>'
911                 "se" = '<a name="se">se</a><br>'
912                 "su" = '<a name="su">su</a><br>'
913                 "supp" = '<a name="supp">supp</a><br>'
914                 "sv" = '<a name="sv">sv</a><br>'
915                 "ta" = '<a name="ta">ta</a><br>'
916                 "te" = '<a name="te">te</a><br>'
917                 "ti" = '<a name="ti">ti</a><br>'
918                 "ts" = '<a name="ts">ts</a><br>'
919                 "tv" = '<a name="tv">tv</a><br>'
920                 "vs" = '<a name="vs">vs</a><br>'
921                 "_3_1_2" = '<a name="_3_1_2">_3_1_2</a><br>'
922                 ;
NOTE: Format $DATFMT has been output.
923              run;

NOTE: PROCEDURE FORMAT used (Total process time):
      real time           0.09 seconds
      cpu time            0.03 seconds
      

924        
925              data work.cdisc;
926                 set work.cdisc;
927                 by libname datname datlab variable case;
928        
929                 attrib datvar label="Dataset and Variable" length=$100 format=$bookfmt.;
930                 if variable ne '' then
931                 datvar = compress(lowcase(datname) || "." || lowcase(variable));
932                 else datvar = lowcase(datname);
933                 /*format case casefmt.;*/
934                 attrib charcase label = "Case Number" length = $10;
935                 charcase = trim(left(put(case, best.)));
26                                          The SAS System              13:37 Monday, February 1, 2010

936                 format charcase $casefmt.;
937                 *format datname $datfmt.;
938              run;

NOTE: There were 15 observations read from the data set WORK.CDISC.
NOTE: The data set WORK.CDISC has 15 observations and 13 variables.
NOTE: DATA statement used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

939        
940              *** Remove The Special Characters ******;
941              proc template;
942                 define style styles.test/store=work.test;
943                 parent=styles.default;
944                 style byline from titlesandfooters /
945                    protectspecialchars=off;
946                 end;
NOTE: STYLE 'Styles.Test' has been saved to: WORK.TEST
947              run;
NOTE: PROCEDURE TEMPLATE used (Total process time):
      real time           0.10 seconds
      cpu time            0.03 seconds
      

948        
949              proc sort data = work.cdisc;
950                 by libname datname datlab variable case;
951              run;

NOTE: There were 15 observations read from the data set WORK.CDISC.
NOTE: The data set WORK.CDISC has 15 observations and 13 variables.
NOTE: PROCEDURE SORT used (Total process time):
      real time           0.01 seconds
      cpu time            0.01 seconds
      

952        
953              ods listing close;
954              ods html file='cdisc114.html' style=styles.mxistyle;
NOTE: Writing HTML Body file: cdisc114.html
955              data work.vs (drop=usrname datetime);
956                 set work.cdisc;
957                 where lowcase(datname)=lowcase("vs");
958              run;

NOTE: There were 15 observations read from the data set WORK.CDISC.
      WHERE LOWCASE(datname)='vs';
NOTE: The data set WORK.VS has 15 observations and 11 variables.
NOTE: DATA statement used (Total process time):
      real time           0.03 seconds
      cpu time            0.03 seconds
      
27                                          The SAS System              13:37 Monday, February 1, 2010


959                       data vs(drop=xxx);
960                          set vs;
961                          retain xxx 0;
962                          if xxx = 2 then xxx = 1;
963                          else xxx = xxx + 1;
964                          yyy = compress(put(xxx,best.));
965                       run;

NOTE: There were 15 observations read from the data set WORK.VS.
NOTE: The data set WORK.VS has 15 observations and 12 variables.
NOTE: DATA statement used (Total process time):
      real time           0.03 seconds
      cpu time            0.03 seconds
      

966        
967              %let newlab = %nrbquote();
968              title1 height=2 '<a name="vs"> Findings from CDISC Evaluation</a>';
969              title2 height=2 "Data Table Name = vs Data Table Label=&newlab";
970              footnote1 height=2 "Generated on: 02/01/2010,  1:37:03 pm, Administrator";
971              footnote2 height=2 "Located at: D:\TEST SCRIPT\CDISCBUILDER\cdisc_scripts\data";
972               proc report data = work.vs nowindows;
973                    column obs libname datvar label type length charcase comment yyy;
974                       define obs/computed 'Obs';
975                       define libname/width=20;
976                       define datvar/width=50;
977                       define label/width=50;
978                       define type/width=20;
979                       define length/width=50;
980                       define comment/width=50;
981                       define charcase/width=50;
982                       define yyy/ noprint;
983        
984                    compute yyy;
985                       if yyy = "2" then do;
986                          call define (_row_,'style','STYLE=[BACKGROUND=cxFFFFCC]');
987                       end;
988                    endcompute;
989        
990                    compute charcase;
991                       if charcase='1' then call define
991      ! ('charcase','style','STYLE=[BACKGROUND=CXccffcc JUST=CENTER]');
992                       if charcase='2' then call define
992      ! ('charcase','style','STYLE=[BACKGROUND=CXcd0030 JUST=CENTER]');
993                       if charcase='3' then call define
993      ! ('charcase','style','STYLE=[BACKGROUND=CXcd0094 JUST=CENTER]');
994                       if charcase='4' then call define
994      ! ('charcase','style','STYLE=[BACKGROUND=CXcd00f8 JUST=CENTER]');
995                       if charcase='5' then call define
995      ! ('charcase','style','STYLE=[BACKGROUND=CXcd015c JUST=CENTER]');
996                       if charcase='6' then call define
996      ! ('charcase','style','STYLE=[BACKGROUND=CXcd01c0 JUST=CENTER]');
997                       if charcase='7' then call define
28                                          The SAS System              13:37 Monday, February 1, 2010

997      ! ('charcase','style','STYLE=[BACKGROUND=CXcd0224 JUST=CENTER]');
998                       if charcase='8' then call define
998      ! ('charcase','style','STYLE=[BACKGROUND=CXcd0288 JUST=CENTER]');
999                       if charcase='9' then call define
999      ! ('charcase','style','STYLE=[BACKGROUND=CXcd02ec JUST=CENTER]');
1000                      if charcase='10' then call define
1000     ! ('charcase','style','STYLE=[BACKGROUND=CXcd0350 JUST=CENTER]');
1001                      if charcase='11' then call define
1001     ! ('charcase','style','STYLE=[BACKGROUND=CXcd03b4 JUST=CENTER]');
1002                      if charcase='12' then call define
1002     ! ('charcase','style','STYLE=[BACKGROUND=CXcd0418 JUST=CENTER]');
1003                      if charcase='13' then call define
1003     ! ('charcase','style','STYLE=[BACKGROUND=CXcd047c JUST=CENTER]');
1004                      if charcase='14' then call define
1004     ! ('charcase','style','STYLE=[BACKGROUND=CXcd04e0 JUST=CENTER]');
1005                      if charcase='15' then call define
1005     ! ('charcase','style','STYLE=[BACKGROUND=CXcd0544 JUST=CENTER]');
1006                      if charcase='16' then call define
1006     ! ('charcase','style','STYLE=[BACKGROUND=CXcd05a8 JUST=CENTER]');
1007                      if charcase='17' then call define
1007     ! ('charcase','style','STYLE=[BACKGROUND=CXcd060c JUST=CENTER]');
1008                      if charcase='18' then call define
1008     ! ('charcase','style','STYLE=[BACKGROUND=CXcd0670 JUST=CENTER]');
1009                      if charcase='19' then call define
1009     ! ('charcase','style','STYLE=[BACKGROUND=CXcd06d4 JUST=CENTER]');
1010                      if charcase='20' then call define
1010     ! ('charcase','style','STYLE=[BACKGROUND=CXcd0738 JUST=CENTER]');
1011                      if charcase='21' then call define
1011     ! ('charcase','style','STYLE=[BACKGROUND=CXffffcc JUST=CENTER]');
1012                      if charcase='22' then call define
1012     ! ('charcase','style','STYLE=[BACKGROUND=CX398C54 JUST=CENTER]');
1013                      if charcase='23' then call define
1013     ! ('charcase','style','STYLE=[BACKGROUND=CX398d1c JUST=CENTER]');
1014                      if charcase='24' then call define
1014     ! ('charcase','style','STYLE=[BACKGROUND=CX398d80 JUST=CENTER]');
1015                      if charcase='25' then call define
1015     ! ('charcase','style','STYLE=[BACKGROUND=CX398de4 JUST=CENTER]');
1016                      if charcase='26' then call define
1016     ! ('charcase','style','STYLE=[BACKGROUND=CX398e48 JUST=CENTER]');
1017                      if charcase='27' then call define
1017     ! ('charcase','style','STYLE=[BACKGROUND=CX398eac JUST=CENTER]');
1018                      if charcase='28' then call define
1018     ! ('charcase','style','STYLE=[BACKGROUND=CX398f10 JUST=CENTER]');
1019                      if charcase='29' then call define
1019     ! ('charcase','style','STYLE=[BACKGROUND=CX398f74 JUST=CENTER]');
1020                      if charcase='30' then call define
1020     ! ('charcase','style','STYLE=[BACKGROUND=CX398fd8 JUST=CENTER]');
1021                      if charcase='31' then call define
1021     ! ('charcase','style','STYLE=[BACKGROUND=CX39903c JUST=CENTER]');
1022                      if charcase='32' then call define
1022     ! ('charcase','style','STYLE=[BACKGROUND=CX3990a0 JUST=CENTER]');
1023                      if charcase='33' then call define
1023     ! ('charcase','style','STYLE=[BACKGROUND=CX399104 JUST=CENTER]');
1024                      if charcase='34' then call define
29                                          The SAS System              13:37 Monday, February 1, 2010

1024     ! ('charcase','style','STYLE=[BACKGROUND=CX399168 JUST=CENTER]');
1025                      if charcase='35' then call define
1025     ! ('charcase','style','STYLE=[BACKGROUND=CX3991cc JUST=CENTER]');
1026                      if charcase='36' then call define
1026     ! ('charcase','style','STYLE=[BACKGROUND=CX399230 JUST=CENTER]');
1027                      if charcase='37' then call define
1027     ! ('charcase','style','STYLE=[BACKGROUND=CX399294 JUST=CENTER]');
1028                      if charcase='38' then call define
1028     ! ('charcase','style','STYLE=[BACKGROUND=CX3992f8 JUST=CENTER]');
1029                      if charcase='39' then call define
1029     ! ('charcase','style','STYLE=[BACKGROUND=CX39935c JUST=CENTER]');
1030                      if charcase='40' then call define
1030     ! ('charcase','style','STYLE=[BACKGROUND=CX3993c0 JUST=CENTER]');
1031                      if charcase='41' then call define
1031     ! ('charcase','style','STYLE=[BACKGROUND=CXffcccc JUST=CENTER]');
1032                      if charcase='42' then call define
1032     ! ('charcase','style','STYLE=[BACKGROUND=CXffcd30 JUST=CENTER]');
1033                      if charcase='43' then call define
1033     ! ('charcase','style','STYLE=[BACKGROUND=CXffcd94 JUST=CENTER]');
1034                      if charcase='44' then call define
1034     ! ('charcase','style','STYLE=[BACKGROUND=CXffcdf8 JUST=CENTER]');
1035                      if charcase='45' then call define
1035     ! ('charcase','style','STYLE=[BACKGROUND=CXffce5c JUST=CENTER]');
1036                      if charcase='46' then call define
1036     ! ('charcase','style','STYLE=[BACKGROUND=CXffcec0 JUST=CENTER]');
1037                      if charcase='47' then call define
1037     ! ('charcase','style','STYLE=[BACKGROUND=CXffcf24 JUST=CENTER]');
1038                      if charcase='48' then call define
1038     ! ('charcase','style','STYLE=[BACKGROUND=CXffcf88 JUST=CENTER]');
1039                      if charcase='49' then call define
1039     ! ('charcase','style','STYLE=[BACKGROUND=CXffcfec JUST=CENTER]');
1040                      if charcase='50' then call define
1040     ! ('charcase','style','STYLE=[BACKGROUND=CXffd050 JUST=CENTER]');
1041                      if charcase='51' then call define
1041     ! ('charcase','style','STYLE=[BACKGROUND=CXffd0b4 JUST=CENTER]');
1042                      if charcase='52' then call define
1042     ! ('charcase','style','STYLE=[BACKGROUND=CXffd118 JUST=CENTER]');
1043                      if charcase='53' then call define
1043     ! ('charcase','style','STYLE=[BACKGROUND=CXffd17c JUST=CENTER]');
1044                      if charcase='54' then call define
1044     ! ('charcase','style','STYLE=[BACKGROUND=CXffd1e0 JUST=CENTER]');
1045                      if charcase='55' then call define
1045     ! ('charcase','style','STYLE=[BACKGROUND=CXffd244 JUST=CENTER]');
1046                      if charcase='56' then call define
1046     ! ('charcase','style','STYLE=[BACKGROUND=CXffd2a8 JUST=CENTER]');
1047                      if charcase='57' then call define
1047     ! ('charcase','style','STYLE=[BACKGROUND=CXffd30c JUST=CENTER]');
1048                      if charcase='58' then call define
1048     ! ('charcase','style','STYLE=[BACKGROUND=CXffd370 JUST=CENTER]');
1049                      if charcase='59' then call define
1049     ! ('charcase','style','STYLE=[BACKGROUND=CXffd3d4 JUST=CENTER]');
1050                      if charcase='60' then call define
1050     ! ('charcase','style','STYLE=[BACKGROUND=CXffd438 JUST=CENTER]');
1051                      if charcase='61' then call define
30                                          The SAS System              13:37 Monday, February 1, 2010

1051     ! ('charcase','style','STYLE=[BACKGROUND=CXccccff JUST=CENTER]');
1052                      if charcase='62' then call define
1052     ! ('charcase','style','STYLE=[BACKGROUND=CXcccd63 JUST=CENTER]');
1053                      if charcase='63' then call define
1053     ! ('charcase','style','STYLE=[BACKGROUND=CXcccdc7 JUST=CENTER]');
1054                      if charcase='64' then call define
1054     ! ('charcase','style','STYLE=[BACKGROUND=CXccce2b JUST=CENTER]');
1055                      if charcase='65' then call define
1055     ! ('charcase','style','STYLE=[BACKGROUND=CXccce8f JUST=CENTER]');
1056                      if charcase='66' then call define
1056     ! ('charcase','style','STYLE=[BACKGROUND=CXcccef3 JUST=CENTER]');
1057                      if charcase='67' then call define
1057     ! ('charcase','style','STYLE=[BACKGROUND=CXcccf57 JUST=CENTER]');
1058                      if charcase='68' then call define
1058     ! ('charcase','style','STYLE=[BACKGROUND=CXcccfbb JUST=CENTER]');
1059                      if charcase='69' then call define
1059     ! ('charcase','style','STYLE=[BACKGROUND=CXccd01f JUST=CENTER]');
1060                      if charcase='70' then call define
1060     ! ('charcase','style','STYLE=[BACKGROUND=CXccd083 JUST=CENTER]');
1061                      if charcase='71' then call define
1061     ! ('charcase','style','STYLE=[BACKGROUND=CXccd0e7 JUST=CENTER]');
1062                      if charcase='72' then call define
1062     ! ('charcase','style','STYLE=[BACKGROUND=CXccd14b JUST=CENTER]');
1063                      if charcase='73' then call define
1063     ! ('charcase','style','STYLE=[BACKGROUND=CXccd1af JUST=CENTER]');
1064                      if charcase='74' then call define
1064     ! ('charcase','style','STYLE=[BACKGROUND=CXccd213 JUST=CENTER]');
1065                      if charcase='75' then call define
1065     ! ('charcase','style','STYLE=[BACKGROUND=CXccd277 JUST=CENTER]');
1066                      if charcase='76' then call define
1066     ! ('charcase','style','STYLE=[BACKGROUND=CXccd2db JUST=CENTER]');
1067                      if charcase='77' then call define
1067     ! ('charcase','style','STYLE=[BACKGROUND=CXccd33f JUST=CENTER]');
1068                      if charcase='78' then call define
1068     ! ('charcase','style','STYLE=[BACKGROUND=CXccd3a3 JUST=CENTER]');
1069                      if charcase='79' then call define
1069     ! ('charcase','style','STYLE=[BACKGROUND=CXccd407 JUST=CENTER]');
1070                      if charcase='80' then call define
1070     ! ('charcase','style','STYLE=[BACKGROUND=CXccd46b JUST=CENTER]');
1071                      if charcase='81' then call define
1071     ! ('charcase','style','STYLE=[BACKGROUND=CX99ccff JUST=CENTER]');
1072                      if charcase='82' then call define
1072     ! ('charcase','style','STYLE=[BACKGROUND=CX99cd63 JUST=CENTER]');
1073                      if charcase='83' then call define
1073     ! ('charcase','style','STYLE=[BACKGROUND=CX99cdc7 JUST=CENTER]');
1074                      if charcase='84' then call define
1074     ! ('charcase','style','STYLE=[BACKGROUND=CX99ce2b JUST=CENTER]');
1075                      if charcase='85' then call define
1075     ! ('charcase','style','STYLE=[BACKGROUND=CX99ce8f JUST=CENTER]');
1076                      if charcase='86' then call define
1076     ! ('charcase','style','STYLE=[BACKGROUND=CX99cef3 JUST=CENTER]');
1077                      if charcase='87' then call define
1077     ! ('charcase','style','STYLE=[BACKGROUND=CX99cf57 JUST=CENTER]');
1078                      if charcase='88' then call define
31                                          The SAS System              13:37 Monday, February 1, 2010

1078     ! ('charcase','style','STYLE=[BACKGROUND=CX99cfbb JUST=CENTER]');
1079                      if charcase='89' then call define
1079     ! ('charcase','style','STYLE=[BACKGROUND=CX99d01f JUST=CENTER]');
1080                      if charcase='90' then call define
1080     ! ('charcase','style','STYLE=[BACKGROUND=CX99d083 JUST=CENTER]');
1081                      if charcase='91' then call define
1081     ! ('charcase','style','STYLE=[BACKGROUND=CX99d0e7 JUST=CENTER]');
1082                      if charcase='92' then call define
1082     ! ('charcase','style','STYLE=[BACKGROUND=CX99d14b JUST=CENTER]');
1083                      if charcase='93' then call define
1083     ! ('charcase','style','STYLE=[BACKGROUND=CX99d1af JUST=CENTER]');
1084                      if charcase='94' then call define
1084     ! ('charcase','style','STYLE=[BACKGROUND=CX99d213 JUST=CENTER]');
1085                      if charcase='95' then call define
1085     ! ('charcase','style','STYLE=[BACKGROUND=CX99d277 JUST=CENTER]');
1086                      if charcase='96' then call define
1086     ! ('charcase','style','STYLE=[BACKGROUND=CX99d2db JUST=CENTER]');
1087                      if charcase='97' then call define
1087     ! ('charcase','style','STYLE=[BACKGROUND=CX99d33f JUST=CENTER]');
1088                      if charcase='98' then call define
1088     ! ('charcase','style','STYLE=[BACKGROUND=CX99d3a3 JUST=CENTER]');
1089                      if charcase='99' then call define
1089     ! ('charcase','style','STYLE=[BACKGROUND=CX99d407 JUST=CENTER]');
1090                      if charcase='100' then call define
1090     ! ('charcase','style','STYLE=[BACKGROUND=CX99d46b JUST=CENTER]');
1091                      if charcase='101' then call define
1091     ! ('charcase','style','STYLE=[BACKGROUND=CXffcc99 JUST=CENTER]');
1092                      if charcase='102' then call define
1092     ! ('charcase','style','STYLE=[BACKGROUND=CXffccfd JUST=CENTER]');
1093                      if charcase='103' then call define
1093     ! ('charcase','style','STYLE=[BACKGROUND=CXffcd61 JUST=CENTER]');
1094                      if charcase='104' then call define
1094     ! ('charcase','style','STYLE=[BACKGROUND=CXffcdc5 JUST=CENTER]');
1095                      if charcase='105' then call define
1095     ! ('charcase','style','STYLE=[BACKGROUND=CXffce29 JUST=CENTER]');
1096                      if charcase='106' then call define
1096     ! ('charcase','style','STYLE=[BACKGROUND=CXffce8d JUST=CENTER]');
1097                      if charcase='107' then call define
1097     ! ('charcase','style','STYLE=[BACKGROUND=CXffcef1 JUST=CENTER]');
1098                      if charcase='108' then call define
1098     ! ('charcase','style','STYLE=[BACKGROUND=CXffcf55 JUST=CENTER]');
1099                      if charcase='109' then call define
1099     ! ('charcase','style','STYLE=[BACKGROUND=CXffcfb9 JUST=CENTER]');
1100                      if charcase='110' then call define
1100     ! ('charcase','style','STYLE=[BACKGROUND=CXffd01d JUST=CENTER]');
1101                      if charcase='111' then call define
1101     ! ('charcase','style','STYLE=[BACKGROUND=CXffd081 JUST=CENTER]');
1102                      if charcase='112' then call define
1102     ! ('charcase','style','STYLE=[BACKGROUND=CXffd0e5 JUST=CENTER]');
1103                      if charcase='113' then call define
1103     ! ('charcase','style','STYLE=[BACKGROUND=CXffd149 JUST=CENTER]');
1104                      if charcase='114' then call define
1104     ! ('charcase','style','STYLE=[BACKGROUND=CXffd1ad JUST=CENTER]');
1105                      if charcase='115' then call define
32                                          The SAS System              13:37 Monday, February 1, 2010

1105     ! ('charcase','style','STYLE=[BACKGROUND=CXffd211 JUST=CENTER]');
1106                      if charcase='116' then call define
1106     ! ('charcase','style','STYLE=[BACKGROUND=CXffd275 JUST=CENTER]');
1107                      if charcase='117' then call define
1107     ! ('charcase','style','STYLE=[BACKGROUND=CXffd2d9 JUST=CENTER]');
1108                      if charcase='118' then call define
1108     ! ('charcase','style','STYLE=[BACKGROUND=CXffd33d JUST=CENTER]');
1109                      if charcase='119' then call define
1109     ! ('charcase','style','STYLE=[BACKGROUND=CXffd3a1 JUST=CENTER]');
1110                   endcomp;
1111       
1112                   compute obs;
1113                      dobs + 1;
1114                      obs = dobs;
1115                   endcompute;
1116                run;

NOTE: There were 15 observations read from the data set WORK.VS.
NOTE: PROCEDURE REPORT used (Total process time):
      real time           0.14 seconds
      cpu time            0.06 seconds
      

1117             run;
1118             ods html close;
1119             ods listing;
NOTE: PROCEDURE DISPLAY used (Total process time):
      real time           2.71 seconds
      cpu time            2.10 seconds
      


NOTE: SAS Institute Inc., SAS Campus Drive, Cary, NC USA 27513-2414
NOTE: The SAS System used:
      real time           3.01 seconds
      cpu time            2.38 seconds
      
