/* 0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0*/
/* This is c:\bethmoon\CalWORKs\Survey\formats.sas
   Created by Beth Roth, November 1998, for the CalWORKs County Survey */
/* 0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0-0*/

%macro formats;
value coid
	1 = "Alameda"
	2 = "Alpine"
	3 = "Amador"
	4 = "Butte"
	5 = "Calaveras"
	6 = "Colusa"
	7 = "Contra Costa"
	8 = "Del Norte"
	9 = "El Dorado"
	10 = "Fresno"
	11 = "Glenn"
	12 = "Humboldt"
	13 = "Imperial"
	14 = "Inyo"
	15 = "Kern"
	16 = "Kings"
	17 = "Lake"
	18 = "Lassen"
	19 = "Los Angeles"
	20 = "Madera"
	21 = "Marin"
	22 = "Mariposa"
	23 = "Mendocino"
	24 = "Merced"
	25 = "Modoc"
	26 = "Mono"
	27 = "Monterey"
	28 = "Napa"
	29 = "Nevada"
	30 = "Orange"
	31 = "Placer"
	32 = "Plumas"
	33 = "Riverside"
	34 = "Sacramento"
	35 = "San Benito"
	36 = "San Bernardino"
	37 = "San Diego"
	38 = "San Francisco"
	39 = "San Joaquin"
	40 = "San Luis Obispo"
	41 = "San Mateo"
	42 = "Santa Barbara"
	43 = "Santa Clara"
	44 = "Santa Cruz"
	45 = "Shasta"
	46 = "Sierra"
	47 = "Siskiyou"
	48 = "Solano"
	49 = "Sonoma"
	50 = "Stanislaus"
	51 = "Sutter"
	52 = "Tehama"
	53 = "Trinity"
	54 = "Tulare"
	55 = "Tuolumne"
	56 = "Ventura"
	57 = "Yolo"
	58 = "Yuba" ;

value q1f
	1 = "Pre-CalWORKs"
	2 = "Since CalWORKs"
	3 = "Underway"
	4 = "Under consideration"
	5 = "Not considered"
	.m = "Blank"
	.i = "Inappropriate response"
	.s = "Not applicable";


value $q2f
	'A' = "A: One stops"                   
	'B' = "B: Staff co-location"           
	'C' = "C: New offices"                 
	'D' = "D: New work space"              
	'E' = "E: Co-location w/ other agencies"
	'F' = "F: Linking info across divisions"
	'G' = "G: Linking county + private info"
	'H' = "H: Linking info across agencies"
	'I' = "I: Outsourcing operations"      
	'J' = "J: Outsourcing support services"
	'K' = "K: Reprogramming info systems"  
	'L' = "L: Consolidation"               
	'M' = "M: New agency or department"    
	'N' = "N: New agency structures/groups"
	'O' = "O: Pooling $, sharing costs"    
	'P' = "P: Retraining existing staff"
	'Q' = "Q: Caseworker reclassification" 
	'R' = "R: Adding caseworker staff"        
	'S' = "S: Reduce caseworker staff"     
	'T' = "T: Add research/eval. staff"    
	'U' = "U: Restructure fraud units"     
	'V' = "V: Other change (1)"            
	'W' = "W: Other change (2)" 
	'X' = "No responses at all"
	' '  = "Blank";

value q3f
	1 = "1-Not in place"
	2 = "2-In development"
	3 = "3-Planning underway"
	4 = "4-Draft under review"
	5 = "5-Final Report completed"
	.m = "Blank"  
	.i = "Inappropriate response"
	.s = "Not applicable";
/*
value q3f
	1 = "1 - Planning not yet in place"
	2 = "2 - Group/agenda/tasks in development"
	3 = "3 - Planning underway"
	4 = "4 - Draft plan under review"
	5 = "5 - Final Planning report completed"
	.m = "Blank"  
	.i = "Inappropriate response"
	.s = "Not applicable";
*/
value q6f
	1 = "Not planned"
	2 = "Plan in progress"
	3 = "Pilot operational"
	4 = "Partially operational"
	5 = "Fully operational"
	.m = "Blank"
	.i = "Inappropriate response"  
	.s = "Not applicable";

value q6_1f
	0 = "Not planned"
	1 = "Plan in progress"
	2 = "Pilot operational"
	3 = "Partially operational"
	4 = "Fully operational"
	.m = "Blank"
	.i = "Inappropriate response"  
	.s = "Not applicable";

value q7f
	1 = "Checked"
	0 = "Not checked"
	.m = "Not checked"
	.s = "Not applicable"
	.i = "Inappropriate response";


	value $q7var 
	'A' = 'A: New applicant orientation'
	'B' = 'B: Communicating rules'
	'C' = 'C: Appropriate work activities'
	'D' = 'D: Obtaining compliance'
	'E' = 'E: Coordinating 3-stage system'
	'F' = 'F: Integrated case management'
	'G' = 'G: Diversion'
	'H' = 'H: Detecting/prosecuting fraud'
	'I' = 'I: Transportation'
	'J' = 'J: Housing assistance'
	'K' = 'K: Ensuring transitional childcare'
	'L' = 'L: Ensuring transitional MediCal'
	'M' = 'M: Implementing sanctions'
	'N' = 'N: Determining exemptions'
	'O' = 'O: Working w/Non-profits'
	'P' = 'P: Working w/employment sector'
	'Q' = 'Q: Working w/other agencies'
	'R' = 'R: Improving information mgmt.'
	'S' = 'S: Monitoring program performance'
	'T' = 'T: Other'
	'U' = 'U: Other' ;

value yesno
	1 = "Yes"
	0 = "No"
	.m = "Blank"
	.i = "Inappropriate response"
	.s = "Not applicable" ;

value checked
	1 = "Checked"
	0 = "Not Checked"
	.m = "Blank"
	.s = "Not applicable" ;

value $q8open 
	'A' = "No HS diploma"
	'B' = "No work experience"
	'C' = "Teen parents"
	'D' = "Mental illness"
	'E' = "Substance abuse"
	'F' = "Health problem"
	'G' = "Domestic violence"
	'H' = "Language barrier"
	'I' = "Legal barrier"
	'J' = "Remote location"
	'K' = "Refugees" ;

value q8pat
	1 = "None checked"
	2 = "CalWORKs agency only"
	3 = "CalWORKs agency + contracted out"
	4 = "CalWORKs agency + referral"
	5 = "Agency, contracted out, and referral"
	6 = "Contracted out only"
	7 = "Contracted out + referral"
	8 = "Referral only"  ;

invalue q8patin
	'000' = 1
        '100' = 2
        '110' = 3
        '101' = 4
        '111' = 5
        '010' = 6
        '011' = 7
        '001' = 8 
	other = .m;

value q9f
	1 = "No shortfall"
	2 = "Current shortfall"
	3 = "Anticipated shortfall"
	.m = "Blank" 
	.i = "Inappropriate response"
	.s = "Not applicable" ;

value q10f
	1 = "Not a problem"
	2 = "Start-up problem"
	3 = "Minor problem"
	4 = "Major problem"
	.m = "Blank" 
	.i = "Inappropriate response"
	.s = "Not applicable";

value q10fut
	1 = "Anticipated" 
	0 = "Not anticipated"
	.m = "Blank"
	.i = "Inappropriate response"
	.s = "Not applicable";

value q11f
	1 = "Greatly hindered"
	2 = "Slightly hindered"
	3 = "No known effect/too soon to tell"
	4 = "Slightly facilitated"
	5 = "Greatly facilitated"
	.m = "Blank" 
	.i = "Blank"
	.s = "Not applicable";

	value $q11var 
	'A' = 'A: Supply of entry level jobs'
	'B' = 'B: Location of entry level jobs'
	'C' = 'C: Seasonality of work'
	'D' = 'D: Economic conditions'
	'E' = 'E: Local unemployment rate'
	'F' = 'F: Supply of low-income housing'
	'G' = 'G: Public transportation'
	'H' = 'H: State/Federal mandates'
	'I' = 'I: Language/cultural barriers'
	'J' = 'J: Collaboration w/counties'
	'K' = 'K: Subcounty regional planning'
	'L' = 'L: Pre-CalWORKs structure'
	'M' = 'M: Welfare agency culture'
	'N' = 'N: Size/budget of welfare agency'
	'O' = 'O: Availability of staff'
	'P' = 'P: Staff experience'
	'Q' = 'Q: Information automation'
	'R' = 'R: Staff training'
	'S' = 'S: Inter-agency relationships'
	'T' = 'T: Community involvement'
	'U' = 'U: Contracting for services'
	'V' = 'V: Welfare reform planning'
	'W' = 'W: Pilot program participation'
	'X' = 'X: Local publicity' ;


value q12pre
	1 = "None"
	2 = "None to regular"
	3 = "Regular"
	4 = "Regular to very extensive"
	5 = "Very extensive"
	.m = "Blank" 
	.i = "Inappropriate response"
	.s = "Not applicable";

value q12post
	1 = "Less"
	2 = "Same"
	3 = "More" 
	.m = "Blank" 
	.i = "Inappropriate response"
	.s = "Not applicable";

value attach
	1 = "Attachments included"
	0 = "No attachments included"
	.i = "Inappropriate response" 
	.s = "Not applicable";

%mend formats;

%macro fmtstmt;
coid	coid.

q1a q1b q1c q1d q1e q1f q1g q1h q1i q1j q1k q1l q1m q1n q1o q1p q1q q1r q1s q1t 
q1u q1v q1w 
	q1f.

q2a q2b q2c q2d q2e 
	$q2f.

q3a q3b q3c q3d q3e q3f q3g q3h q3i q3j q3k 
	q3f.

q6a q6b q6c q6d q6e q6f q6g q6h q6i q6j q6k q6l q6m q6n q6o q6p q6q q6r q6s q6t 
q6u 
	q6f. 

q7a q7b q7c q7d q7e q7f q7g q7h q7i q7j q7k q7l q7m q7n q7o q7p q7q q7r q7s q7t 
q7u 
	q7f.

q8a q8b q8c q8d q8e q8f q8g q8h q8i q8j q8k 
q8adir q8bdir q8cdir q8ddir q8edir q8fdir q8gdir q8hdir 
q8idir q8jdir q8kdir 
q8aout q8bout q8cout q8dout q8eout q8fout q8gout q8hout 
q8iout q8jout q8kout 
q8aref q8bref q8cref q8dref q8eref q8fref q8gref q8href 
q8iref q8jref q8kref 
	yesno.

q8ano q8bno q8cno q8dno q8eno q8fno q8gno q8hno 
q8ino q8jno q8kno 
	checked.


q8open1 q8open2 q8open3 
	$q8open. 

q9aa q9ba q9ab q9bb q9ac q9bc q9ad q9bd q9ae q9be q9af q9bf q9ag q9bg q9ah q9bh 
q9ai q9bi q9aj q9bj q9ak q9bk q9al q9bl q9am q9bm q9an q9bn q9ao q9bo q9ap q9bp
	q9f.

q10a q10b q10c q10d q10e q10f q10g q10h q10i q10j q10k q10l q10m q10n q10o q10p 
q10q q10r q10s q10t q10u 
	 q10f.

q10futa q10futb q10futc q10futd q10fute q10futf q10futg q10futh q10futi q10futj 
q10futk q10futl q10futm q10futn q10futo q10futp q10futq q10futr q10futs q10futt 
q10futu 
	q10fut.

q11a q11b q11c q11d q11e q11f q11g q11h q11i q11j q11k q11l q11m q11n q11o q11p 
q11q q11r q11s q11t q11u q11v q11w q11x q11y q11z 
	q11f.

q12prea q12preb q12prec q12pred q12pree q12pref q12preg q12preh q12prei q12prej 
q12prek q12prel q12prem q12pren q12preo q12prep q12preq q12prer q12pres q12pret 
q12preu q12prev q12prew q12prex q12prey q12prez q12preaa q12prebb q12precc 
q12predd q12preee q12preff q12pregg 
	q12pre.

q12posa q12posb q12posc q12posd q12pose q12posf q12posg q12posh q12posi q12posj 
q12posk q12posl q12posm q12posn q12poso q12posp q12posq q12posr q12poss q12post 
q12posu q12posv q12posw q12posx q12posy q12posz q12posaa q12posbb q12poscc 
q12posdd q12posee q12posff q12posgg 
	q12post.

q13 q14pre q14cur
	attach.
%mend fmtstmt;