DM LOG 'CLEAR'; DM OUT 'CLEAR'; OPTIONS MERGENOBY=ERROR MSGLEVEL=I; * THESE PATHS WILL NEED TO CHANGE DEPENDING ON WHERE DATA AND STATEMENTS ARE STORED ON COMPUTER OR NETWORK. PROGRAM IS CURRENTLY SET UP TO APPLY CHARACTERISTICS FROM 2010 NAMCS/NHAMCS DRUG DATABASE TO 2005 NAMCS PUBLIC USE FILE. YOU WOULD NEED TO CHANGE INPUT DATA FILE AND INPUT FILE STATEMENT BELOW FOR USE WITH OTHER NAMCS AND NHAMCS PUBLIC USE FILES. THIS PROGRAM ASSUMES YOU ARE USING THE SAS INPUT STATEMENTS AVAILABLE AT THE AMBULATORY HEALTH CARE WEB SITE FOR NAMCS AND NHAMCS. (www.cdc.gov/nchs/namcs.htm and www.cdc.gov/nchs/nhamcs.htm) PLEASE CONTACT THE AMBULATORY AND HOSPITAL CARE STATISTICS BRANCH AT 301-458-4600 IF YOU HAVE QUESTIONS. (LAST MODIFIED 6/29/2012); FILENAME MCLFLAT 'C:\MYFILES\MEDCODE_DRUGID_MAP_2010.DATA'; *DRUG CHARACTERISTICS FILE; FILENAME VIS 'C:\MYFILES\NAM05'; *DATA FILE; FILENAME INPUT 'C:\MYFILES\NAM05inp.txt'; *INPUT; LIBNAME LIBOUT 'C:\MYFILES\'; *PATH FOR OUTPUT DATASET; %LET VISOUT=NEWDRUGCHAR; *OUTPUT DATASET NAME; PROC DATASETS LIBRARY=WORK KILL; QUIT; * CREATING DRUG CHARACTERISTICS FILE; DATA MULTUM; INFILE MCLFLAT LRECL=999 MISSOVER PAD; INPUT @001 MCLCODE $CHAR5. @006 MCLNAME $CHAR70. @076 DRUGID $CHAR6. @082 DRUGNAME $CHAR169. @251 PRESCR $CHAR1. @252 CONTSUB $CHAR1. @253 COMSTAT $CHAR1. @254 RXCAT1 $CHAR3. @257 RXCAT2 $CHAR3. @260 RXCAT3 $CHAR3. @263 RXCAT4 $CHAR3. @266 RXLV1C1 $CHAR3. @269 RXLV1C2 $CHAR3. @272 RXLV1C3 $CHAR3. @275 RXLV1C4 $CHAR3. @278 RXLV2C1 $CHAR3. @281 RXLV2C2 $CHAR3. @284 RXLV2C3 $CHAR3. @287 RXLV2C4 $CHAR3. @290 RXLV3C1 $CHAR3. @293 RXLV3C2 $CHAR3. @296 RXLV3C3 $CHAR3. @299 RXLV3C4 $CHAR3. ; RUN; * CREATING TEMPORARY FORMATS FOR DRUG ID; DATA DRUGID(KEEP=START LABEL FMTNAME HLO); SET MULTUM END=EOF; LENGTH START $5 LABEL $6 FMTNAME $8; FMTNAME = '$DRUGID'; START = MCLCODE; LABEL = DRUGID; OUTPUT; IF EOF THEN DO; LABEL = 'NOMAT'; HLO = 'O'; OUTPUT; END; RUN; * CREATING TEMPORARY FORMATS FOR PRESCRIPTION STATUS; DATA PRESCR(KEEP=START LABEL FMTNAME); SET MULTUM; LENGTH START $5 LABEL $5 FMTNAME $8; FMTNAME = 'PRESCR'; START = MCLCODE; LABEL = PRESCR; * CREATING TEMPORARY FORMATS FOR CONTROLLED STATUS; DATA CONTSUB(KEEP=START LABEL FMTNAME); SET MULTUM; LENGTH START $5 LABEL $5 FMTNAME $8; FMTNAME = 'CONTSUB'; START = MCLCODE; LABEL = CONTSUB; * CREATING TEMPORARY FORMATS FOR COMPOSITION STATUS; DATA COMSTAT(KEEP=START LABEL FMTNAME); SET MULTUM; LENGTH START $5 LABEL $5 FMTNAME $8; FMTNAME = 'COMSTAT'; START = MCLCODE; LABEL = COMSTAT; * CREATING TEMPORARY FORMATS FOR MULTUM DRUG CATEGORY; DATA RXCAT(KEEP=START LABEL FMTNAME); SET MULTUM; LENGTH START $5 ALLCAT LABEL $56 FMTNAME $8; FMTNAME = '$RXCAT'; START = MCLCODE; ALLCAT=CAT(RXCAT1,RXCAT2,RXCAT3,RXCAT4,RXLV1C1,RXLV1C2,RXLV1C3,RXLV1C4, RXLV2C1,RXLV2C2,RXLV2C3,RXLV2C4,RXLV3C1,RXLV3C2,RXLV3C3,RXLV3C4); LABEL = ALLCAT; RUN; DATA NUMCHR; SET PRESCR CONTSUB COMSTAT; PROC FORMAT CNTLIN=NUMCHR LIBRARY=WORK; PROC FORMAT CNTLIN=DRUGID LIBRARY=WORK; PROC FORMAT CNTLIN=RXCAT LIBRARY=WORK; RUN; * MAKING SURE ALL DATA IS REMOVED FROM TEMP LIBARAY; PROC DATASETS LIBRARY=WORK; DELETE DRUGID PRESCR CONTSUB COMSTAT RXCAT; QUIT; RUN; * CREATING VISIT FILE; DATA VIS; INFILE VIS LRECL=9999 MISSOVER; %INC INPUT; RUN; * INITIALIZING VARIABLES FOR APPLYING DRUG CHARACTERISTICS; %LET VAR1=; %LET VAR2=; %LET VAR3=; %LET VAR4=; %LET VARSTOP=; %LET I=; %LET J=; %LET K=; %LET PASSAR=; %LET VISYEAR=; *DROPPING DRUG CHARACTERISTICS FROM VISIT FILE; PROC SQL /*NOPRINT*/; SELECT NAME INTO: VAR1-:VAR4 FROM DICTIONARY.COLUMNS WHERE ((LIBNAME='WORK' AND MEMNAME = 'VIS') AND NAME IN ('DRG5ING5' 'DRG6ING5' 'DINGA25' 'ADRG2IN5' 'DRUG1CL2' 'DRG8ING5' 'DRUGID1')); QUIT; RUN; %MACRO DROPMED; %IF &VAR1 = DRG5ING5 %THEN %DO; %LET J = 5; %END; %IF &VAR2 = DRG6ING5 %THEN %DO; %LET J = 6; %END; /* VAR3 USED TWICE, ED FILES WILL NOT HAVE BOTH NAMES FOR ADVERSE DRUGS */ %IF &VAR3 = DINGA25 OR &VAR3 = ADRG2IN5 OR &VAR4 = DRG8ING5 OR &VAR1 = DRUGID1 %THEN %DO; %LET K = 8; %IF &VAR3 = DINGA25 OR &VAR3 = ADRG2IN5 %THEN %DO; %LET VISYEAR = EDONLY; %END; %END; %IF &K = 8 %THEN %DO; %LET I = 8; %END; %ELSE %DO; %LET I = &J; %END; DATA VISNDC; SET VIS; %IF &VAR3 = DINGA25 %THEN %DO; DROP GEN1--&VAR3; %END; %ELSE %IF &VAR3 = ADRG2IN5 %THEN %DO; DROP GEN1--&VAR3 DRUG1CL2--ADRG2CL3; %END; %ELSE %IF &VAR3 = DRUG1CL2 %THEN %DO; DROP GEN1--DRG6ING5 DRUG1CL2--DRUG6CL3; %END; %ELSE %IF &VAR2 = DRG6ING5 %THEN %DO; DROP GEN1--&VAR2; %END; %ELSE %IF &VAR4 = DRG8ING5 %THEN %DO; DROP GEN1--&VAR4; %END; %ELSE %IF &VAR1 = DRUGID1 %THEN %DO; DROP DRUGID1--RX8V3C4; %END; %ELSE %DO; DROP GEN1--DRG5ING5; %END; RUN; %MEND; %DROPMED; RUN; *CREATING NEW VISIT FILE WITH UPDATED DRUG CHARACTERISTICS; %MACRO CREATEMED; DATA VISNDC; SET VISNDC; LENGTH DRUGID1-DRUGID&I $6 PRESCR1-PRESCR&I 3 CONTSUB1-CONTSUB&I 3 COMSTAT1-COMSTAT&I 3 RX1CAT1 RX1CAT2 RX1CAT3 RX1CAT4 RX2CAT1 RX2CAT2 RX2CAT3 RX2CAT4 RX3CAT1 RX3CAT2 RX3CAT3 RX3CAT4 RX4CAT1 RX4CAT2 RX4CAT3 RX4CAT4 RX5CAT1 RX5CAT2 RX5CAT3 RX5CAT4 RX1V1C1 RX1V1C2 RX1V1C3 RX1V1C4 RX2V1C1 RX2V1C2 RX2V1C3 RX2V1C4 RX3V1C1 RX3V1C2 RX3V1C3 RX3V1C4 RX4V1C1 RX4V1C2 RX4V1C3 RX4V1C4 RX5V1C1 RX5V1C2 RX5V1C3 RX5V1C4 RX1V2C1 RX1V2C2 RX1V2C3 RX1V2C4 RX2V2C1 RX2V2C2 RX2V2C3 RX2V2C4 RX3V2C1 RX3V2C2 RX3V2C3 RX3V2C4 RX4V2C1 RX4V2C2 RX4V2C3 RX4V2C4 RX5V2C1 RX5V2C2 RX5V2C3 RX5V2C4 RX1V3C1 RX1V3C2 RX1V3C3 RX1V3C4 RX2V3C1 RX2V3C2 RX2V3C3 RX2V3C4 RX3V3C1 RX3V3C2 RX3V3C3 RX3V3C4 RX4V3C1 RX4V3C2 RX4V3C3 RX4V3C4 RX5V3C1 RX5V3C2 RX5V3C3 RX5V3C4 $3 CATEGORY $56; %IF &I = 5 %THEN %DO; %LET PASSAR= CATEG(5,16) RX1CAT1 RX1CAT2 RX1CAT3 RX1CAT4 RX1V1C1 RX1V1C2 RX1V1C3 RX1V1C4 RX1V2C1 RX1V2C2 RX1V2C3 RX1V2C4 RX1V3C1 RX1V3C2 RX1V3C3 RX1V3C4 RX2CAT1 RX2CAT2 RX2CAT3 RX2CAT4 RX2V1C1 RX2V1C2 RX2V1C3 RX2V1C4 RX2V2C1 RX2V2C2 RX2V2C3 RX2V2C4 RX2V3C1 RX2V3C2 RX2V3C3 RX2V3C4 RX3CAT1 RX3CAT2 RX3CAT3 RX3CAT4 RX3V1C1 RX3V1C2 RX3V1C3 RX3V1C4 RX3V2C1 RX3V2C2 RX3V2C3 RX3V2C4 RX3V3C1 RX3V3C2 RX3V3C3 RX3V3C4 RX4CAT1 RX4CAT2 RX4CAT3 RX4CAT4 RX4V1C1 RX4V1C2 RX4V1C3 RX4V1C4 RX4V2C1 RX4V2C2 RX4V2C3 RX4V2C4 RX4V3C1 RX4V3C2 RX4V3C3 RX4V3C4 RX5CAT1 RX5CAT2 RX5CAT3 RX5CAT4 RX5V1C1 RX5V1C2 RX5V1C3 RX5V1C4 RX5V2C1 RX5V2C2 RX5V2C3 RX5V2C4 RX5V3C1 RX5V3C2 RX5V3C3 RX5V3C4; %END; %IF &I = 6 %THEN %DO; LENGTH RX6CAT1 RX6CAT2 RX6CAT3 RX6CAT4 RX6V1C1 RX6V1C2 RX6V1C3 RX6V1C4 RX6V2C1 RX6V2C2 RX6V2C3 RX6V2C4 RX6V3C1 RX6V3C2 RX6V3C3 RX6V3C4 $3; %LET PASSAR = CATEG(6,16) RX1CAT1 RX1CAT2 RX1CAT3 RX1CAT4 RX1V1C1 RX1V1C2 RX1V1C3 RX1V1C4 RX1V2C1 RX1V2C2 RX1V2C3 RX1V2C4 RX1V3C1 RX1V3C2 RX1V3C3 RX1V3C4 RX2CAT1 RX2CAT2 RX2CAT3 RX2CAT4 RX2V1C1 RX2V1C2 RX2V1C3 RX2V1C4 RX2V2C1 RX2V2C2 RX2V2C3 RX2V2C4 RX2V3C1 RX2V3C2 RX2V3C3 RX2V3C4 RX3CAT1 RX3CAT2 RX3CAT3 RX3CAT4 RX3V1C1 RX3V1C2 RX3V1C3 RX3V1C4 RX3V2C1 RX3V2C2 RX3V2C3 RX3V2C4 RX3V3C1 RX3V3C2 RX3V3C3 RX3V3C4 RX4CAT1 RX4CAT2 RX4CAT3 RX4CAT4 RX4V1C1 RX4V1C2 RX4V1C3 RX4V1C4 RX4V2C1 RX4V2C2 RX4V2C3 RX4V2C4 RX4V3C1 RX4V3C2 RX4V3C3 RX4V3C4 RX5CAT1 RX5CAT2 RX5CAT3 RX5CAT4 RX5V1C1 RX5V1C2 RX5V1C3 RX5V1C4 RX5V2C1 RX5V2C2 RX5V2C3 RX5V2C4 RX5V3C1 RX5V3C2 RX5V3C3 RX5V3C4 RX6CAT1 RX6CAT2 RX6CAT3 RX6CAT4 RX6V1C1 RX6V1C2 RX6V1C3 RX6V1C4 RX6V2C1 RX6V2C2 RX6V2C3 RX6V2C4 RX6V3C1 RX6V3C2 RX6V3C3 RX6V3C4; %END; %IF &I = 8 %THEN %DO; LENGTH RX6CAT1 RX6CAT2 RX6CAT3 RX6CAT4 RX6V1C1 RX6V1C2 RX6V1C3 RX6V1C4 RX6V2C1 RX6V2C2 RX6V2C3 RX6V2C4 RX6V3C1 RX6V3C2 RX6V3C3 RX6V3C4 RX7CAT1 RX7CAT2 RX7CAT3 RX7CAT4 RX7V1C1 RX7V1C2 RX7V1C3 RX7V1C4 RX7V2C1 RX7V2C2 RX7V2C3 RX7V2C4 RX7V3C1 RX7V3C2 RX7V3C3 RX7V3C4 RX8CAT1 RX8CAT2 RX8CAT3 RX8CAT4 RX8V1C1 RX8V1C2 RX8V1C3 RX8V1C4 RX8V2C1 RX8V2C2 RX8V2C3 RX8V2C4 RX8V3C1 RX8V3C2 RX8V3C3 RX8V3C4 $3; %LET PASSAR = CATEG(8,16) RX1CAT1 RX1CAT2 RX1CAT3 RX1CAT4 RX1V1C1 RX1V1C2 RX1V1C3 RX1V1C4 RX1V2C1 RX1V2C2 RX1V2C3 RX1V2C4 RX1V3C1 RX1V3C2 RX1V3C3 RX1V3C4 RX2CAT1 RX2CAT2 RX2CAT3 RX2CAT4 RX2V1C1 RX2V1C2 RX2V1C3 RX2V1C4 RX2V2C1 RX2V2C2 RX2V2C3 RX2V2C4 RX2V3C1 RX2V3C2 RX2V3C3 RX2V3C4 RX3CAT1 RX3CAT2 RX3CAT3 RX3CAT4 RX3V1C1 RX3V1C2 RX3V1C3 RX3V1C4 RX3V2C1 RX3V2C2 RX3V2C3 RX3V2C4 RX3V3C1 RX3V3C2 RX3V3C3 RX3V3C4 RX4CAT1 RX4CAT2 RX4CAT3 RX4CAT4 RX4V1C1 RX4V1C2 RX4V1C3 RX4V1C4 RX4V2C1 RX4V2C2 RX4V2C3 RX4V2C4 RX4V3C1 RX4V3C2 RX4V3C3 RX4V3C4 RX5CAT1 RX5CAT2 RX5CAT3 RX5CAT4 RX5V1C1 RX5V1C2 RX5V1C3 RX5V1C4 RX5V2C1 RX5V2C2 RX5V2C3 RX5V2C4 RX5V3C1 RX5V3C2 RX5V3C3 RX5V3C4 RX6CAT1 RX6CAT2 RX6CAT3 RX6CAT4 RX6V1C1 RX6V1C2 RX6V1C3 RX6V1C4 RX6V2C1 RX6V2C2 RX6V2C3 RX6V2C4 RX6V3C1 RX6V3C2 RX6V3C3 RX6V3C4 RX7CAT1 RX7CAT2 RX7CAT3 RX7CAT4 RX7V1C1 RX7V1C2 RX7V1C3 RX7V1C4 RX7V2C1 RX7V2C2 RX7V2C3 RX7V2C4 RX7V3C1 RX7V3C2 RX7V3C3 RX7V3C4 RX8CAT1 RX8CAT2 RX8CAT3 RX8CAT4 RX8V1C1 RX8V1C2 RX8V1C3 RX8V1C4 RX8V2C1 RX8V2C2 RX8V2C3 RX8V2C4 RX8V3C1 RX8V3C2 RX8V3C3 RX8V3C4; %END; %IF &VISYEAR = EDONLY %THEN %DO; MED7=ADVDRUG1; MED8=ADVDRUG2; %END; ARRAY MEDS(&I) MED1-MED&I; ARRAY DRGID(&I) DRUGID1-DRUGID&I; ARRAY PRESCRS(&I) PRESCR1-PRESCR&I; ARRAY CONTSUBS(&I) CONTSUB1-CONTSUB&I; ARRAY COMSTATS(&I) COMSTAT1-COMSTAT&I; ARRAY &PASSAR; DO I=1 TO &I; IF SETTYPE IN (1,2) AND MEDS(I) = '70268' THEN MEDS(I)='11267'; IF MEDS(I) = '90000' THEN MEDS(I) = '-9'; * RECODING MEDCODES TO MATCH DRUG FILE, SOME DRUGS SET TO MISCELLANEOUS; IF MEDS(I) IN ( '01025' '04535' '06885' '08960' '09185' '09360' '11060' '12395' '14900' '15773' '17150' '19900' '24785' '24880' '28735' '30870' '32685' '32680' '32690' '40215' '40335' '93240' '93409' '94138' '96064' '96148' '97117' '35390' '40245' '40195' '08694') THEN MEDS(I)= '99980'; IF MEDS(I) NOT IN('90000' '88888' '-9') THEN DO; IF MEDS(I) = '08673' THEN MEDS(I) = '10743'; IF MEDS(I) = '05036' THEN MEDS(I) = '07016'; IF MEDS(I) = '04055' THEN MEDS(I) = '96009'; IF MEDS(I) = '04036' THEN MEDS(I) = '93371'; IF MEDS(I) = '04385' THEN MEDS(I) = '04370'; IF MEDS(I) = '04410' THEN MEDS(I) = '00061'; IF MEDS(I) = '08765' THEN MEDS(I) = '11615'; IF MEDS(I) = '08780' THEN MEDS(I) = '96045'; IF MEDS(I) = '14535' THEN MEDS(I) = '93195'; IF MEDS(I) = '15043' THEN MEDS(I) = '40840'; IF MEDS(I) = '15620' THEN MEDS(I) = '60735'; IF MEDS(I) = '15945' THEN MEDS(I) = '15955'; IF MEDS(I) = '19500' THEN MEDS(I) = '02109'; IF MEDS(I) = '19820' THEN MEDS(I) = '19830'; IF MEDS(I) = '20895' THEN MEDS(I) = '20890'; IF MEDS(I) = '21213' THEN MEDS(I) = '98157'; IF MEDS(I) = '23775' THEN MEDS(I) = '23765'; IF MEDS(I) = '24408' THEN MEDS(I) = '24405'; IF MEDS(I) = '25065' THEN MEDS(I) = '02161'; IF MEDS(I) = '25470' THEN MEDS(I) = '42985'; IF MEDS(I) = '28734' THEN MEDS(I) = '94051'; IF MEDS(I) = '32385' THEN MEDS(I) = '32390'; IF MEDS(I) = '32805' THEN MEDS(I) = '32800'; IF MEDS(I) = '40170' THEN MEDS(I) = '02059'; IF MEDS(I) = '40345' THEN MEDS(I) = '34560'; IF MEDS(I) = '41440' THEN MEDS(I) = '27785'; IF MEDS(I) = '42595' THEN MEDS(I) = '16210'; IF MEDS(I) = '60335' THEN MEDS(I) = '06963'; IF MEDS(I) = '60530' THEN MEDS(I) = '12620'; IF MEDS(I) = '60690' THEN MEDS(I) = '14217'; IF MEDS(I) = '60845' THEN MEDS(I) = '18020'; IF MEDS(I) = '61040' THEN MEDS(I) = '21385'; IF MEDS(I) = '61400' THEN MEDS(I) = '30240'; IF MEDS(I) = '61450' THEN MEDS(I) = '30781'; IF MEDS(I) = '89064' THEN MEDS(I) = '24885'; IF MEDS(I) = '91011' THEN MEDS(I) = '40460'; IF MEDS(I) = '92147' THEN MEDS(I) = '98110'; IF MEDS(I) = '92169' THEN MEDS(I) = '93052'; IF MEDS(I) = '92173' THEN MEDS(I) = '92175'; IF MEDS(I) = '93031' THEN MEDS(I) = '04803'; IF MEDS(I) = '93228' THEN MEDS(I) = '94127'; IF MEDS(I) = '93343' THEN MEDS(I) = '16710'; IF MEDS(I) = '93410' THEN MEDS(I) = '04020'; IF MEDS(I) = '94083' THEN MEDS(I) = '15035'; IF MEDS(I) = '94180' THEN MEDS(I) = '00324'; IF MEDS(I) = '96026' THEN MEDS(I) = '93336'; IF MEDS(I) = '97102' THEN MEDS(I) = '02352'; * ADDING ON NEW DRUG CHARACTERISTIC INFORMATION BY USING FORMATS; DRGID(I) = PUT(MEDS(I), $DRUGID.); IF DRGID(I) = 'NOMAT' THEN DO; PUT 'NO MATCH FOR MED CODE,MISSING DRUG ID ' YEAR= MEDS(I)=; END; ELSE DO; PRESCRS(I) = PUT(INPUT(MEDS(I),5.),PRESCR.); CONTSUBS(I) = PUT(INPUT(MEDS(I),5.),CONTSUB.); COMSTATS(I) = PUT(INPUT(MEDS(I),5.),COMSTAT.); CATEGORY = PUT(MEDS(I),$RXCAT.); DO D=1 TO 16; CATEG(I,D)=SUBSTR(CATEGORY,((3*D)-2),3); END; IF CATEG(I,1) = ' ' THEN DO; * WILL ONLY PRINT IF MATCH IN DATABASE AND NO MULTUM CATEGORY ONE; PUT 'NO MATCH FOR MULTUM CATEGORY ONE' MEDS(I)=; END; END; END; END; DROP I D CATEGORY; %IF &VISYEAR = EDONLY %THEN %DO; DROP MED7 MED8; *RENAMING ADVERSE DRUG CHARACTERISTICS; RENAME DRUGID7=DRUGIDA1 PRESCR7=PRESCRA1 CONTSUB7=CONTSUBA1 COMSTAT7=COMSTATA1 RX7CAT1=RXA1CAT1 RX7CAT2=RXA1CAT2 RX7CAT3=RXA1CAT3 RX7CAT4=RXA1CAT4 RX7V1C1=RXA1V1C1 RX7V1C2=RXA1V1C2 RX7V1C3=RXA1V1C3 RX7V1C4=RXA1V1C4 RX7V2C1=RXA1V2C1 RX7V2C2=RXA1V2C2 RX7V2C3=RXA1V2C3 RX7V2C4=RXA1V2C4 RX7V3C1=RXA1V3C1 RX7V3C2=RXA1V3C2 RX7V3C3=RXA1V3C3 RX7V3C4=RXA1V3C4 DRUGID8=DRUGIDA2 PRESCR8=PRESCRA2 CONTSUB8=CONTSUBA2 COMSTAT8=COMSTATA2 RX8CAT1=RXA2CAT1 RX8CAT2=RXA2CAT2 RX8CAT3=RXA2CAT3 RX8CAT4=RXA2CAT4 RX8V1C1=RXA2V1C1 RX8V1C2=RXA2V1C2 RX8V1C3=RXA2V1C3 RX8V1C4=RXA2V1C4 RX8V2C1=RXA2V2C1 RX8V2C2=RXA2V2C2 RX8V2C3=RXA2V2C3 RX8V2C4=RXA2V2C4 RX8V3C1=RXA2V3C1 RX8V3C2=RXA2V3C2 RX8V3C3=RXA2V3C3 RX8V3C4=RXA2V3C4 ; %END; RUN; %MEND; %CREATEMED; *CREATING PERMANENT OUTPUT DATASET; DATA LIBOUT.&VISOUT; SET VISNDC; RUN; PROC CONTENTS DATA=LIBOUT.NEWDRUGCHAR VARNUM; RUN;