*options obs=100 ; options nocenter ; **------------------------------------------------ ; ** by Jean Roth Tue Jun 19 16:39:40 EDT 2012 ** This program reads the 1990 CMS Provider of Service File Data File ; ** Report errors to jroth@nber.org ; ** This program is distributed under the GNU GPL. ; ** See end of this file and ** http://www.gnu.org/licenses/ for details. ; ** ----------------------------------------------- ; * The following line should contain the directory where the SAS file is to be stored ; libname library "/homes/data/pos/1990/"; * The following line should contain the complete path and name of the raw data file. On a PC, use backslashes in paths as in C:\ ; FILENAME datafile "/homes/data/pos/1990/wm.provider.cy90.us100 "; * The following line should contain the name of the SAS dataset ; %let dataset = library.pos1990; DATA &dataset ; INFILE datafile LRECL = 20000 ; attrib prov1720 length=$1 label="Record Type"; attrib prov1680 length=$6 label="Provider Number"; attrib prov0605 length=$5 label="Intermediary Number"; attrib prov1565 length=$6 label="Effective Date of Participation"; attrib prov0100 length=$6 label="Change of Ownership Date"; attrib prov0500 length=$6 label="Survey Date"; attrib stapdate length=$6 label="State Survey Ag(enc)y Approval Date"; attrib prov2810 length=$6 label="Termination Date"; attrib detapdate length=$6 label="Determination Approved Date"; attrib hsqbdate length=$6 label="Health Standards Quality Board/Regional Office Receipt Date"; attrib category length=$2 label="Category (like PROV0075)"; attrib prov2880 length=$1 label="Type of Action"; attrib prov0455 length=$1 label="Eligibility"; attrib titlevi length=$1 label="Title VI Compliance"; attrib solvent length=$1 label="Statement of Financial Solvency"; attrib termination length=$1 label="Reason for Termination (like PROV2805)"; attrib nocomply length=$2 label="Not in Compliance"; attrib compliance length=$10 label="In Compliance (like PROV2715)"; attrib prov0755 length=4 label="Beds Certified"; attrib prov0740 length=4 label="Beds Total"; attrib prov0475 length=$38 label="Name of Facility"; attrib prov2720 length=$38 label="Street Address"; attrib prov0115 length=$33 label="City and State"; attrib prov2905 length=$5 label="ZIP Code"; attrib orbit length=3 label="Orbit Code"; attrib prov2890 length=$2 label="Type of Facility (8 values)"; attrib prov2885 length=$2 label="Type of Control (9 values)"; attrib state length=$2 label="State M2 - Numeric (like PROV2700 ?)"; attrib county length=$3 label="County SF14 - Numeric (like PROV2695 ?)"; attrib state_region length=$3 label="State-Region M3 Alpha-Numeric (like PROV2710 ?)"; attrib prov1545 length=$1 label="Over #1 SF11-Numeric"; attrib prov1550 length=$1 label="Over #2 SF12-Numeric"; attrib prov1555 length=$1 label="Over #3 SF13-Numeric"; attrib psrocode length=$4 label="PSRO Cod PR8 - See PRSO Code Book"; attrib recsize length=$3 label="Record Size PG - Program Generated"; attrib authdate length=$6 label="Authorized Official Date M53 YYMMDD"; attrib prov1605 length=$9 label="Telephone No. M7 - Numeric"; attrib prov0485 length=$4 label="Fiscal Year Ending Date L35-(YY)MMDD"; attrib pos_common length=$26 label="POS Common ** -No Desription"; attrib previnter1 length=$5 label="Previous Inter. #1 SF01- Prior to L31"; attrib previnter2 length=$5 label="Previous Inter. #2 SF02- Prior to SF01 "; attrib interchgdate length=$6 label="Inter chg date PG - Program Generated"; attrib intertype length=$1 label="Inter. Type PG - Program Generated"; attrib relatprov length=$6 label="Related Prov. No. SF20 - Provider No. of Parent Org."; attrib xrefprov length=$6 label="X-Ref Prov No of chgd facility SF03 - Prior to L1."; attrib statuscode length=$1 label="Status Code"; attrib lasttransaction length=$1 label="Last Transaction"; attrib participate length=3 label="Participating Non-Participating"; attrib facgroup length=3 label="Facility Group"; attrib prov1725 length=3 label="Region"; attrib ssamsa length=$3 label="PRO5-See SMSA Code Book"; attrib ssamsasz length=$1 label="SMSA Size"; INPUT @1 prov1720 $1. @2 prov1680 $6. @8 prov0605 $5. @13 prov1565 $6. @19 prov0100 $6. @25 prov0500 $6. @31 stapdate $6. @37 prov2810 $6. @43 detapdate $6. @49 hsqbdate $6. @55 category $2. @57 prov2880 $1. @58 prov0455 $1. @59 titlevi $1. @60 solvent $1. @61 termination $1. @62 nocomply $2. @64 compliance $10. @75 prov0755 5. @81 prov0740 5. @86 prov0475 $38. @124 prov2720 $38. @162 prov0115 $33. @195 prov2905 $5. @200 orbit 1. @201 prov2890 $2. @203 prov2885 $2. @205 state $2. @207 county $3. @210 state_region $3. @213 prov1545 $1. @214 prov1550 $1. @215 prov1555 $1. @216 psrocode $4. @220 recsize $3. @223 authdate $6. @229 prov1605 $9. @239 prov0485 $4. @243 pos_common $26. @268 previnter1 $5. @268 previnter2 $5. @279 interchgdate $6. @285 intertype $1. @286 relatprov $6. @292 xrefprov $6. @298 statuscode $1. @299 lasttransaction $1. @300 participate 1. @301 facgroup 1. @302 prov1725 2. @304 ssamsa $3. @307 ssamsasz $1. ; proc print data=&dataset. (obs=6); proc contents data=&dataset.; ** Copyright 2012 shared by the National Bureau of Economic Research and Jean Roth ; ** ** National Bureau of Economic Research. ; ** 1050 Massachusetts Avenue ; ** Cambridge, MA 02138 ; ** jroth@nber.org ; ** ** This program and all programs referenced in it are free software. You ; ** can redistribute the program or modify it under the terms of the GNU ; ** General Public License as published by the Free Software Foundation; ; ** either version 2 of the License, or (at your option) any later version. ; ** ** This program is distributed in the hope that it will be useful, ; ** but WITHOUT ANY WARRANTY -- without even the implied warranty of ; ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ; ** GNU General Public License for more details. ; ** ** You should have received a copy of the GNU General Public License ; ** along with this program -- if not, write to the Free Software ; ** Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 ; ** USA. ;