Schedule of Changes to Oklahoma newkeys
/* ALTUS */
if year = 1987 and FSCSKEY = 'OK0121' then newkey = 'OK0002';
/* ARDMORE PL */
if year = 1987 and FSCSKEY = 'OK0007' then newkey = 'OK0006';
/* ARDMORE (CHICKASAW) */
if year = 1987 and FSCSKEY = 'OK0116' then newkey = 'OK0007';
/* CARMEN */
if year = 1987 and FSCSKEY = 'OK0017' then newkey = 'OK0016';
/* CARNEGIE */
if year = 1987 and FSCSKEY = 'OK0018' then newkey = 'OK0017';
/* CHANDLER */
if year = 1987 and FSCSKEY = 'OK0019' then newkey = 'OK0018';
/* CHELSEA */
if year = 1987 and FSCSKEY = 'OK0020' then newkey = 'OK0019';
/* CHEROKEE */
if year = 1987 and FSCSKEY = 'OK0021' then newkey = 'OK0020';
/* CHICKASHA */
if year = 1987 and FSCSKEY = 'OK0022' then newkey = 'OK0021';
/* CLAREMORE */
if year = 1987 and FSCSKEY = 'OK0023' then newkey = 'OK0112';
if year = 1988 and FSCSKEY = 'OK0022' then newkey = 'OK0112';
if year = 1989 and FSCSKEY = 'OK0022' then newkey = 'OK0112';
if year = 1990 and FSCSKEY = 'OK0022' then newkey = 'OK0112';
if year = 1991 and FSCSKEY = 'OK0022' then newkey = 'OK0112';
if year = 1992 and FSCSKEY = 'OK0022' then newkey = 'OK0112';
if year = 1993 and FSCSKEY = 'OK0022' then newkey = 'OK0112';
/* CLEVELAND */
if year = 1987 and FSCSKEY = 'OK0024' then newkey = 'OK0023';
/* CLINTON */
if year = 1987 and FSCSKEY = 'OK0123' then newkey = 'OK0024';
/* COWETA */
if year = 1987 and FSCSKEY = 'OK0026' then newkey = 'OK0025';
/* CRESCENT */
if year = 1987 and FSCSKEY = 'OK0027' then newkey = 'OK0026';
/* CUSHING */
if year = 1987 and FSCSKEY = 'OK0028' then newkey = 'OK0027';
/* DEWEY */
if year = 1987 and FSCSKEY = 'OK0030' then newkey = 'OK0029';
/* DRUMRIGHT */
if year = 1987 and FSCSKEY = 'OK0031' then newkey = 'OK0030';
/* DUNCAN */
if year = 1987 and FSCSKEY = 'OK0032' then newkey = 'OK0031';
/* DURANT */
if year = 1987 and FSCSKEY = 'OK0033' then newkey = 'OK0032';
/* EL RENO */
if year = 1987 and FSCSKEY = 'OK0034' then newkey = 'OK0033';
/* ELK CITY */
if year = 1987 and FSCSKEY = 'OK0035' then newkey = 'OK0034';
/* ENID */
if year = 1987 and FSCSKEY = 'OK0036' then newkey = 'OK0035';
/* FAIRFAX */
if year = 1987 and FSCSKEY = 'OK0038' then newkey = 'OK0036';
/* FAIRVIEW */
if year = 1987 and FSCSKEY = 'OK0039' then newkey = 'OK0037';
/* FREDERICK */
if year = 1987 and FSCSKEY = 'OK0040' then newkey = 'OK0038';
/* GEARY */
if year = 1987 and FSCSKEY = 'OK0042' then newkey = 'OK0039';
/* GRANDFIELD */
if year = 1987 and FSCSKEY = 'OK0043' then newkey = 'OK0040';
/* GUTHRIE */
if year = 1987 and FSCSKEY = 'OK0044' then newkey = 'OK0041';
/* GUYMON */
if year = 1987 and FSCSKEY = 'OK0045' then newkey = 'OK0042';
/* HENNESSEY */
if year = 1987 and FSCSKEY = 'OK0046' then newkey = 'OK0043';
/* HENRYETTA */
if year = 1987 and FSCSKEY = 'OK0047' then newkey = 'OK0044';
/* HINTON */
if year = 1987 and FSCSKEY = 'OK0048' then newkey = 'OK0045';
/* HOBART */
if year = 1987 and FSCSKEY = 'OK0049' then newkey = 'OK0046';
/* HOLDENVILLE */
if year = 1987 and FSCSKEY = 'OK0050' then newkey = 'OK0047';
/* HOMINY */
if year = 1987 and FSCSKEY = 'OK0051' then newkey = 'OK0048';
/* HOOKER */
if year = 1987 and FSCSKEY = 'OK0052' then newkey = 'OK0049';
/* INOLA */
if year = 1987 and FSCSKEY = 'OK0053' then newkey = 'OK0050';
/* KINGFISHER */
if year = 1987 and FSCSKEY = 'OK0055' then newkey = 'OK0052';
/* KONAWA */
if year = 1987 and FSCSKEY = 'OK0056' then newkey = 'OK0053';
/* LAWTON */
if year = 1987 and FSCSKEY = 'OK0058' then newkey = 'OK0054';
/* LINDSAY */
if year = 1987 and FSCSKEY = 'OK0059' then newkey = 'OK0055';
/* LOCUST GROVE */
if year = 1987 and FSCSKEY = 'OK0060' then newkey = 'OK0056';
/* MADILL */
if year = 1987 and FSCSKEY = 'OK0062' then newkey = 'OK0057';
/* MANGUM */
if year = 1987 and FSCSKEY = 'OK0063' then newkey = 'OK0058';
/* MANNFORD */
if year = 1987 and FSCSKEY = 'OK0064' then newkey = 'OK0059';
/* MARLOW */
if year = 1987 and FSCSKEY = 'OK0065' then newkey = 'OK0060';
/* MAYSVILLE */
if year = 1987 and FSCSKEY = 'OK0067' then newkey = 'OK0061';
/* MCALESTER */
if year = 1987 and FSCSKEY = 'OK0120' then newkey = 'OK0062';
/* MEDFORD */
if year = 1987 and FSCSKEY = 'OK0068' then newkey = 'OK0063';
/* MIAMI */
if year = 1987 and FSCSKEY = 'OK0069' then newkey = 'OK0064';
/* MT VIEW */
if year = 1987 and FSCSKEY = 'OK0070' then newkey = 'OK0065';
/* MUSKOGEE */
if year = 1987 and FSCSKEY = 'OK0117' then newkey = 'OK0066';
/* MUSTANG */
if year = 1987 and FSCSKEY = 'OK0072' then newkey = 'OK0067';
/* NASH */
if year = 1987 and FSCSKEY = 'OK0073' then newkey = 'OK0068';
/* NEWKIRK */
if year = 1987 and FSCSKEY = 'OK0074' then newkey = 'OK0069';
/* NORMAN */
if year = 1987 and FSCSKEY = 'OK0119' then newkey = 'OK0070';
/* NOWATA */
if year = 1987 and FSCSKEY = 'OK0075' then newkey = 'OK0071';
/* OILTON */
if year = 1987 and FSCSKEY = 'OK0076' then newkey = 'OK0072';
/* OKEENE */
if year = 1987 and FSCSKEY = 'OK0077' then newkey = 'OK0073';
/* OKLAHOMA CITY */
if year = 1987 and FSCSKEY = 'OK0118' then newkey = 'OK0074';
/* OKMULGEE */
if year = 1987 and FSCSKEY = 'OK0079' then newkey = 'OK0075';
/* PAULS VALLEY */
if year = 1987 and FSCSKEY = 'OK0080' then newkey = 'OK0076';
/* PAWHUSKA */
if year = 1987 and FSCSKEY = 'OK0081' then newkey = 'OK0077';
/* PAWNEE */
if year = 1987 and FSCSKEY = 'OK0082' then newkey = 'OK0078';
/* PERKINS */
if year = 1987 and FSCSKEY = 'OK0083' then newkey = 'OK0079';
/* PERRY */
if year = 1987 and FSCSKEY = 'OK0084' then newkey = 'OK0080';
/* PONCA CITY */
if year = 1987 and FSCSKEY = 'OK0085' then newkey = 'OK0081';
/* PRAGUE */
if year = 1987 and FSCSKEY = 'OK0087' then newkey = 'OK0082';
/* PRYOR */
if year = 1987 and FSCSKEY = 'OK0088' then newkey = 'OK0083';
/* RUSH SPRINGS */
if year = 1987 and FSCSKEY = 'OK0089' then newkey = 'OK0084';
/* SUPULPA */
if year = 1987 and FSCSKEY = 'OK0090' then newkey = 'OK0085';
/* SAYRE */
if year = 1987 and FSCSKEY = 'OK0091' then newkey = 'OK0086';
/* SEMINOLE */
if year = 1987 and FSCSKEY = 'OK0092' then newkey = 'OK0087';
/* SHATTUCK */
if year = 1987 and FSCSKEY = 'OK0093' then newkey = 'OK0088';
/* STILLWATER */
if year = 1987 and FSCSKEY = 'OK0096' then newkey = 'OK0113';
if year = 1988 and FSCSKEY = 'OK0089' then newkey = 'OK0113';
if year = 1989 and FSCSKEY = 'OK0089' then newkey = 'OK0113';
if year = 1990 and FSCSKEY = 'OK0089' then newkey = 'OK0113';
if year = 1991 and FSCSKEY = 'OK0089' then newkey = 'OK0113';
if year = 1992 and FSCSKEY = 'OK0089' then newkey = 'OK0113';
if year = 1993 and FSCSKEY = 'OK0089' then newkey = 'OK0113';
/* STRATFORD */
if year = 1987 and FSCSKEY = 'OK0097' then newkey = 'OK0090';
/* STROUD */
if year = 1987 and FSCSKEY = 'OK0098' then newkey = 'OK0091';
/* TONKAWA */
if year = 1987 and FSCSKEY = 'OK0102' then newkey = 'OK0092';
/* TULSA */
if year = 1987 and FSCSKEY = 'OK0122' then newkey = 'OK0093';
/* VINITA */
if year = 1987 and FSCSKEY = 'OK0104' then newkey = 'OK0094';
/* WAGONER */
if year = 1987 and FSCSKEY = 'OK0105' then newkey = 'OK0095';
/* WALTERS */
if year = 1987 and FSCSKEY = 'OK0106' then newkey = 'OK0096';
/* WATONGA */
if year = 1987 and FSCSKEY = 'OK0107' then newkey = 'OK0097';
/* WAURIKA */
if year = 1987 and FSCSKEY = 'OK0108' then newkey = 'OK0098';
/* WAYNOKA */
if year = 1987 and FSCSKEY = 'OK0109' then newkey = 'OK0099';
/* WETUMKA */
if year = 1987 and FSCSKEY = 'OK0110' then newkey = 'OK0100';
/* WEWOKA */
if year = 1987 and FSCSKEY = 'OK0111' then newkey = 'OK0101';
/* WOODWARD */
if year = 1987 and FSCSKEY = 'OK0112' then newkey = 'OK0102';
/* WYNNEWOOD */
if year = 1987 and FSCSKEY = 'OK0113' then newkey = 'OK0103';
/* YALE */
if year = 1987 and FSCSKEY = 'OK0114' then newkey = 'OK0104';
/* YUKON */
if year = 1987 and FSCSKEY = 'OK0115' then newkey = 'OK0105';
/*--------2003---------*/
/* KAW CITY */
if year = 1987 and FSCSKEY = 'OK0054' then newkey = 'OK8005';
if year = 1988 and FSCSKEY = 'OK0051' then newkey = 'OK8005';
if year = 1989 and FSCSKEY = 'OK0051' then newkey = 'OK8005';
if year = 1990 and FSCSKEY = 'OK0051' then newkey = 'OK8005';
if year = 1991 and FSCSKEY = 'OK0051' then newkey = 'OK8005';
if year = 1992 and FSCSKEY = 'OK0051' then newkey = 'OK8005';
if year = 1993 and FSCSKEY = 'OK0051' then newkey = 'OK8005';
if year = 1994 and FSCSKEY = 'OK0051' then newkey = 'OK8005';
if year = 1995 and FSCSKEY = 'OK0051' then newkey = 'OK8005';
if year = 1996 and FSCSKEY = 'OK0051' then newkey = 'OK8005';
if year = 1997 and FSCSKEY = 'OK0051' then newkey = 'OK8005';
if year = 1998 and FSCSKEY = 'OK0051' then newkey = 'OK8005';
if year = 1999 and FSCSKEY = 'OK0051' then newkey = 'OK8005';
/*-------2011---------------------------------------------------------------*/
if year = 1991 and FSCSKEY = 'OK0108' then newkey = 'OK0124';
if year = 1992 and FSCSKEY = 'OK0108' then newkey = 'OK0124';
if year = 1993 and FSCSKEY = 'OK0108' then newkey = 'OK0124';
if year = 1994 and FSCSKEY = 'OK0108' then newkey = 'OK0124';
if year = 1995 and FSCSKEY = 'OK0108' then newkey = 'OK0124';
if year = 1996 and FSCSKEY = 'OK0108' then newkey = 'OK0124';
if year = 1997 and FSCSKEY = 'OK0108' then newkey = 'OK0124';
if year = 1998 and FSCSKEY = 'OK0108' then newkey = 'OK0124';
if year = 1999 and FSCSKEY = 'OK0108' then newkey = 'OK0124';
if year = 2000 and FSCSKEY = 'OK0108' then newkey = 'OK0124';
if year = 2001 and FSCSKEY = 'OK0108' then newkey = 'OK0124';
/*-------2011---------------------------------------------------------------*/
/*-------2012---------------------------------------------------------------*/
/* Elgin Community Library elginlibrary.org */
if year = 1994 and FSCSKEY = 'OK0115' then newkey = 'OK0125';
if year = 1995 and FSCSKEY = 'OK0115' then newkey = 'OK0125';
if year = 1996 and FSCSKEY = 'OK0115' then newkey = 'OK0125';
if year = 1997 and FSCSKEY = 'OK0115' then newkey = 'OK0125';
if year = 1998 and FSCSKEY = 'OK0115' then newkey = 'OK0125';
if year = 1999 and FSCSKEY = 'OK0115' then newkey = 'OK0125';
if year = 2000 and FSCSKEY = 'OK0115' then newkey = 'OK0125';
if year = 2001 and FSCSKEY = 'OK0115' then newkey = 'OK0125';
/*-------2012---------------------------------------------------------------*/
December 16, 2022