Schedule of Changes to New Hampshire newkeys

New Hampshire proved to be complex. There are libraries with three, four, and even five FSCSKEYS and in a number of instances, two libraries shared an FSCSKEY in a given set of years. For those latter libraries, it was necessary to add CITY in the code as in ACWORTH immediately below. Also, that library has the note "(SILSBY)" to indicate that though the city is ACWORTH, the library is also known as the "Silsby" library for some years. Similar notes appear if a city has more than one library or in the case of other oddities such as a change in CITY but not in the name of the library. These notes are a means of distinguishing libraries or as an aid for anyone looking at this code.

This list is basically in order by FSCSKEY. The raw file was sorted by FSCSKEY and year and problems were resolved as they were encountered. For instance, NEW DURHAM for 1987 was in FSCSKEY NH0001 but the rest of NEW DURHAM's data were in NH0054. In 1988, NH0001 was ACWORTH which, it turned out, had its data scattered over five FSCSKEYs as can be seen. Each of those was resolved before going on to NH0002. As a result, then, NH0203 was dealt with out of its putative order. I had thought to sort by CITY as I have done in the case of other states but so many of the New Hampshire libraries change city names so often--even when the street address does not change--that I thought that arrangement would not materially ease the task of examining this code.

The LIBNAME "The Gafney Library, INC." was changed in 2003 to "Gafney Library, INC." This is for sorting of the List of Libraries more accurately. In 2004, this change was reversed. In FY 2004, this library is listed merely as Gafney Library, Inc.

/* NEW DURHAM        */
if year = 1987 and FSCSKEY = 'NH0001' then newkey = 'NH0054';

/* ACWORTH (SILSBY)  */
if year = 1987 and FSCSKEY = 'NH0203' then newkey = 'NH0237';
if year = 1988 and FSCSKEY = 'NH0001' then newkey = 'NH0237';

/* Takes care of the duplicate stub entry found 8/16/2006      */
if year = 1988 and FSCSKEY = 'NH0002' then delete;
/*                                                             */

if year = 1989 and FSCSKEY = 'NH0121' and CITY = 'Acworth' then newkey = 'NH0237';
if year = 1990 and FSCSKEY = 'NH0121' and CITY = 'Acworth' then newkey = 'NH0237';
if year = 1991 and FSCSKEY = 'NH0121' and CITY = 'Acworth' then newkey = 'NH0237';

/* NORTH WOODSTOCK   */
if year = 1987 and FSCSKEY = 'NH0002' then newkey = 'NH0149';

/* CENTER BARNSTEAD  */
if year = 1987 and FSCSKEY = 'NH0003' then newkey = 'NH0034';

/* HENNIKER          */
if year = 1987 and FSCSKEY = 'NH0178' then newkey = 'NH0003';

/* MERIDEN           */
if year = 1987 and FSCSKEY = 'NH0004' then newkey = 'NH0081';

/* HILL              */
if year = 1987 and FSCSKEY = 'NH0216' then newkey = 'NH0004';

/* EPPING            */
if year = 1987 and FSCSKEY = 'NH0005' then newkey = 'NH0188';

/* HILLSBORO (HILLSBOROUGH) */
if year = 1987 and FSCSKEY = 'NH0149' then newkey = 'NH0005';

/* RAYMOND           */
if year = 1987 and FSCSKEY = 'NH0006' then newkey = 'NH0085';

/* HINSDALE          */
if year = 1987 and FSCSKEY = 'NH0017' then newkey = 'NH0006';

/* LISBON            */
if year = 1987 and FSCSKEY = 'NH0007' then newkey = 'NH0026';

/* HOLDERNESS        */
if year = 1987 and FSCSKEY = 'NH0081' then newkey = 'NH0007';

/* [RUMNEY]          */
if year = 1987 and FSCSKEY = 'NH0008' then newkey = 'NH0091';

/* HOLLIS            */
if year = 1987 and FSCSKEY = 'NH0021' then newkey = 'NH0008';

/* EAST KINGSTON     */
if year = 1987 and FSCSKEY = 'NH0009' then newkey = 'NH0183';

/* HOOKSETT          */
if year = 1987 and FSCSKEY = 'NH0038' then newkey = 'NH0009';

/* WENTWORTH         */
if year = 1987 and FSCSKEY = 'NH0010' then newkey = 'NH0139';

/* CONTOOCOOK (HOPKINGTON) */
if year = 1987 and FSCSKEY = 'NH0163' then newkey = 'NH0010';

/* WEARE             */
if year = 1987 and FSCSKEY = 'NH0011' then newkey = 'NH0137';

/* HUDSON            */
if year = 1987 and FSCSKEY = 'NH0141' then newkey = 'NH0011';

/* GRANTHAM          */
if year = 1987 and FSCSKEY = 'NH0012' then newkey = 'NH0208';

/* ATKINSON          */
if year = 1987 and FSCSKEY = 'NH0206' then newkey = 'NH0012';

/* BELMONT           */
if year = 1987 and FSCSKEY = 'NH0013' then newkey = 'NH0088';

/* JACKSON           */
if year = 1987 and FSCSKEY = 'NH0161' then newkey = 'NH0013';

/* JAFFREY           */
if year = 1987 and FSCSKEY = 'NH0094' then newkey = 'NH0014';

/* SUNCOOK (PEMBROKE TOWN LIBRARY) */
if year = 1987 and FSCSKEY = 'NH0014' then newkey = 'NH0074';

/* JAFFREY           */
if year = 1987 and FSCSKEY = 'NH0094' then newkey = 'NH0014';

/* MARLOW            */
if year = 1987 and FSCSKEY = 'NH0015' then newkey = 'NH0037';

/* JEFFERSON         */
if year = 1987 and FSCSKEY = 'NH0098' then newkey = 'NH0015';

/* WESTMORELAND      */
if year = 1987 and FSCSKEY = 'NH0016' then newkey = 'NH0140';

/* KEENE (PL)        */
if year = 1987 and FSCSKEY = 'NH0190' then newkey = 'NH0016';

/* KENSINGTON        */
if year = 1987 and FSCSKEY = 'NH0066' then newkey = 'NH0017';

/* BARRINGTON        */
if year = 1987 and FSCSKEY = 'NH0018' then newkey = 'NH0045';

/* KINGSTON          */
if year = 1987 and FSCSKEY = 'NH0145' then newkey = 'NH0018';

/* OSSIPEE           */
if year = 1987 and FSCSKEY = 'NH0019' then newkey = 'NH0072';

/* LACONIA           */
if year = 1987 and FSCSKEY = 'NH0031' then newkey = 'NH0019';

/* AMHERST           */
if year = 1987 and FSCSKEY = 'NH0020' then newkey = 'NH0184';

/* LANCASTER         */
if year = 1987 and FSCSKEY = 'NH0121' then newkey = 'NH0020';

/* LEBANON           */
if year = 1987 and FSCSKEY = 'NH0025' then newkey = 'NH0021';

/* DANBURY           */
if year = 1987 and FSCSKEY = 'NH0022' then newkey = 'NH0242';
if year = 1989 and FSCSKEY = 'NH0126' then newkey = 'NH0242';
if year = 1990 and FSCSKEY = 'NH0126' then newkey = 'NH0242';
if year = 1991 and FSCSKEY = 'NH0126' then newkey = 'NH0242';

/* DURHAM (LEE)      */
if year = 1987 and FSCSKEY = 'NH0027' then newkey = 'NH0022';

/* NEWTON            */
if year = 1987 and FSCSKEY = 'NH0023' then newkey = 'NH0063';

/* AUBURN            */
if year = 1987 and FSCSKEY = 'NH0207' then newkey = 'NH0023';

/* FREEDOM           */
if year = 1987 and FSCSKEY = 'NH0024' then newkey = 'NH0198';

/* EAST LEMPSTER     */
if year = 1987 and FSCSKEY = 'NH0134' then newkey = 'NH0024';

/* LINCOLN           */
if year = 1987 and FSCSKEY = 'NH0067' then newkey = 'NH0025';

/* CHOCORUA          */
if year = 1987 and FSCSKEY = 'NH0026' then newkey = 'NH0239';
if year = 1988 and FSCSKEY = 'NH0120' then newkey = 'NH0239';
if year = 1989 and FSCSKEY = 'NH0123' then newkey = 'NH0239';
if year = 1990 and FSCSKEY = 'NH0123' then newkey = 'NH0239';
if year = 1991 and FSCSKEY = 'NH0123' then newkey = 'NH0239';

/* LITCHFIELD (HUDSON) */
if year = 1987 and FSCSKEY = 'NH0217' then newkey = 'NH0027';

/* PLAINFIELD        */
if year = 1987 and FSCSKEY = 'NH0028' then newkey = 'NH0080';

/* LITTLETON         */
if year = 1987 and FSCSKEY = 'NH0091' then newkey = 'NH0028';

/* PIERMONT          */
if year = 1987 and FSCSKEY = 'NH0029' then newkey = 'NH0076';

/* LITTLETON         */
if year = 1987 and FSCSKEY = 'NH0058' then newkey = 'NH0029';

/* NEWPORT (RICHARDS FREE LIBRARY) */
if year = 1987 and FSCSKEY = 'NH0030' then newkey = 'NH0062';

/* LOUDON            */
if year = 1987 and FSCSKEY = 'NH0034' then newkey = 'NH0030';

/* CONCORD           */
if year = 1987 and FSCSKEY = 'NH0030' then newkey = 'NH0062';

/* LOUDON            */
if year = 1987 and FSCSKEY = 'NH0034' then newkey = 'NH0030';

/* LYME              */
if year = 1987 and FSCSKEY = 'NH0049' then newkey = 'NH0031';

/* SANBORNTON        */
if year = 1987 and FSCSKEY = 'NH0032' then newkey = 'NH0095';

/* LYNDENBOROUGH     */
if year = 1987 and FSCSKEY = 'NH0186' then newkey = 'NH0032';

/* TEMPLE            */
if year = 1987 and FSCSKEY = 'NH0033' then newkey = 'NH0122';

/* MADISON           */
if year = 1987 and FSCSKEY = 'NH0115' then newkey = 'NH0033';

/* GREENFIELD        */
if year = 1987 and FSCSKEY = 'NH0035' then newkey = 'NH0209';

/* MADISON           */
if year = 1987 and FSCSKEY = 'NH0192' then newkey = 'NH0035';

/* MONT VERNON       */
if year = 1987 and FSCSKEY = 'NH0036' then newkey = 'NH0047';

/* MARLBOROUGH (FROST FREE) */
if year = 1987 and FSCSKEY = 'NH0075' then newkey = 'NH0036';

/* NASHUA            */
if year = 1987 and FSCSKEY = 'NH0037' then newkey = 'NH0049';

/* MASON             */
if year = 1987 and FSCSKEY = 'NH0073' then newkey = 'NH0038';

/* DOVER             */
if year = 1987 and FSCSKEY = 'NH0039' then newkey = 'NH0179';

/* MEREDITH          */
if year = 1987 and FSCSKEY = 'NH0083' then newkey = 'NH0039';

/* HAMPTON FALLS     */
if year = 1987 and FSCSKEY = 'NH0040' then newkey = 'NH0216';

/* MERRIMACK         */
if year = 1987 and FSCSKEY = 'NH0097' then newkey = 'NH0040';

/* COLEBROOK         */
if year = 1987 and FSCSKEY = 'NH0041' then newkey = 'NH0166';

/* MILAN PL          */
if year = 1987 and FSCSKEY = 'NH0158' then newkey = 'NH0041';
if year = 1989 and FSCSKEY = 'NH0229' then newkey = 'NH0230';
if year = 1990 and FSCSKEY = 'NH0229' then newkey = 'NH0230';

/* CONCORD (DUNBARTON) */
if year = 1987 and FSCSKEY = 'NH0042' then newkey = 'NH0181';

/* MILFORD           */
if year = 1987 and FSCSKEY = 'NH0140' then newkey = 'NH0042';

/* ALEXANDRIA (BRISTOL) */
if year = 1987 and FSCSKEY = 'NH0043' then newkey = 'NH0109';

/* MILTON (NUTE)     */
if year = 1987 and FSCSKEY = 'NH0218' then newkey = 'NH0043';

/* TILTON (NORTHFIELD--HALL MEMORIAL LIBRARY) */
if year = 1987 and FSCSKEY = 'NH0044' then newkey = 'NH0124';

/* MILTON MILLS      */
if year = 1987 and FSCSKEY = 'NH0157' then newkey = 'NH0044';

/* HANCOCK           */
if year = 1987 and FSCSKEY = 'NH0045' then newkey = 'NH0217';

/* ALTON             */
if year = 1987 and FSCSKEY = 'NH0046' then newkey = 'NH0174';

/* MONROE            */
if year = 1987 and FSCSKEY = 'NH0156' then newkey = 'NH0046';

/* FRANCONIA (ABBIE GREENLEAF) */
if year = 1987 and FSCSKEY = 'NH0047' then newkey = 'NH0195';

/* HANOVER (HOWE)    */
if year = 1987 and FSCSKEY = 'NH0048' then newkey = 'NH0218';

/* MOULTONBORO(UGH)  */
if year = 1987 and FSCSKEY = 'NH0127' then newkey = 'NH0048';

/* HAMPTON           */
if year = 1987 and FSCSKEY = 'NH0050' then newkey = 'NH0214';

/* NELSON (MARLBOROUGH) */
if year = 1987 and FSCSKEY = 'NH0120' then newkey = 'NH0050';

/* HAMPTON           */
if year = 1987 and FSCSKEY = 'NH0050' then newkey = 'NH0214';

/* NELSON (MARLBOROUGH) */
if year = 1987 and FSCSKEY = 'NH0120' then newkey = 'NH0050';

/* BRADFORD          */
if year = 1987 and FSCSKEY = 'NH0051' then newkey = 'NH0150';

/* NELSON (MARLBOROUGH) */
if year = 1987 and FSCSKEY = 'NH0142' then newkey = 'NH0051';

/* DERRY             */
if year = 1987 and FSCSKEY = 'NH0052' then newkey = 'NH0176';

/* NELSON (MARLBOROUGH) */
if year = 1987 and FSCSKEY = 'NH0220' then newkey = 'NH0052';

/* GILSUM            */
if year = 1987 and FSCSKEY = 'NH0053' then newkey = 'NH0244';

/* NEW CASTLE           */
if year = 1987 and FSCSKEY = 'NH0138' then newkey = 'NH0053';

/* GREENVILLE (CHAMBERLAIN) */
if year = 1987 and FSCSKEY = 'NH0054' then newkey = 'NH0211';

/* NEW IPSWITCH      */
if year = 1987 and FSCSKEY = 'NH0055' then newkey = 'NH0059';

/* NEWFIELDS         */
if year = 1987 and FSCSKEY = 'NH0131' then newkey = 'NH0055';

/* HAMPSTEAD         */
if year = 1987 and FSCSKEY = 'NH0056' then newkey = 'NH0213';

/* BARTLETT          */
if year = 1987 and FSCSKEY = 'NH0198' then newkey = 'NH0056';

/* ETNA              */
if year = 1987 and FSCSKEY = 'NH0057' then newkey = 'NH0243';
if year = 1989 and FSCSKEY = 'NH0128' then newkey = 'NH0243';
if year = 1990 and FSCSKEY = 'NH0128' then newkey = 'NH0243';
if year = 1991 and FSCSKEY = 'NH0128' then newkey = 'NH0243';

/* NEW HAMPTON       */
if year = 1987 and FSCSKEY = 'NH0153' then newkey = 'NH0057';

/* NEWINGTON (PORTSMOUTH)  */
if year = 1987 and FSCSKEY = 'NH0221' then newkey = 'NH0058';

/* RINDGE            */
if year = 1987 and FSCSKEY = 'NH0059' then newkey = 'NH0087';

/* ROCHESTER         */
if year = 1987 and FSCSKEY = 'NH0060' then newkey = 'NH0089';

/* NEW LONDON        */
if year = 1987 and FSCSKEY = 'NH0068' then newkey = 'NH0060';

/* SALEM             */
if year = 1987 and FSCSKEY = 'NH0061' then newkey = 'NH0093';

/* NEW MARKET        */
if year = 1987 and FSCSKEY = 'NH0222' then newkey = 'NH0061';

/* WATERVILLE VALLEY */
if year = 1987 and FSCSKEY = 'NH0062' then newkey = 'NH0136';

/* GREENVILLE (GREENLAND--WEEKS PL) */
if year = 1987 and FSCSKEY = 'NH0063' then newkey = 'NH0210';

/* NORTH HAMPTON     */
if year = 1987 and FSCSKEY = 'NH0116' then newkey = 'NH0064';

/* CONCORD           */
if year = 1987 and FSCSKEY = 'NH0064' then newkey = 'NH0167';

/* HAVERHILL         */
if year = 1987 and FSCSKEY = 'NH0065' then newkey = 'NH0223';

/* GROVETON          */
if year = 1987 and FSCSKEY = 'NH0182' then newkey = 'NH0065';

/* NORTHWOOD         */
if year = 1987 and FSCSKEY = 'NH0154' then newkey = 'NH0066';

/* BATH              */
if year = 1987 and FSCSKEY = 'NH0143' then newkey = 'NH0067';

/* NOTTINGHAM        */
if year = 1987 and FSCSKEY = 'NH0122' then newkey = 'NH0068';

/* SANBORNVILLE (GAFNEY) */
if year = 1987 and FSCSKEY = 'NH0069' then newkey = 'NH0129';

/* CANAAN (ORANGE TOWN)  */

/* NEWPORT (UNITY)   */
if year = 1987 and FSCSKEY = 'NH0070' then newkey = 'NH0127';
if year = 1989 and FSCSKEY = 'NH0127' and CITY = 'Newport' then newkey = 'NH0127';
if year = 1990 and FSCSKEY = 'NH0127' and CITY = 'Newport' then newkey = 'NH0127';
if year = 1991 and FSCSKEY = 'NH0127' and CITY = 'Newport' then newkey = 'NH0127';

/* ORFORD (SOCIAL LIBRARY) */
if year = 1988 and FSCSKEY = 'NH0070' then newkey = 'NH0249';
if year = 1989 and FSCSKEY = 'NH0070' then newkey = 'NH0249';
if year = 1990 and FSCSKEY = 'NH0070' then newkey = 'NH0249';
if year = 1991 and FSCSKEY = 'NH0070' then newkey = 'NH0249';
if year = 1992 and FSCSKEY = 'NH0070' then newkey = 'NH0249';
if year = 1993 and FSCSKEY = 'NH0070' then newkey = 'NH0249';
if year = 1994 and FSCSKEY = 'NH0070' then newkey = 'NH0249';
if year = 1995 and FSCSKEY = 'NH0070' then newkey = 'NH0249';
if year = 1996 and FSCSKEY = 'NH0070' then newkey = 'NH0249';
if year = 1997 and FSCSKEY = 'NH0070' then newkey = 'NH0249';

/* SALISBURY         */
if year = 1987 and FSCSKEY = 'NH0071' then newkey = 'NH0094';

/* ORFORD (FREE LIBRARY) */
if year = 1987 and FSCSKEY = 'NH0109' then newkey = 'NH0071';

/* PETERBOROUGH      */
if year = 1987 and FSCSKEY = 'NH0072' then newkey = 'NH0075';

/* PELHAM            */
if year = 1987 and FSCSKEY = 'NH0123' then newkey = 'NH0073';

/* WINDHAM           */
if year = 1987 and FSCSKEY = 'NH0074' then newkey = 'NH0147';

/* SANDOWN           */
if year = 1987 and FSCSKEY = 'NH0076' then newkey = 'NH0096';

/* UNION             */
if year = 1987 and FSCSKEY = 'NH0077' then newkey = 'NH0130';

/* PITTSBURG         */
if year = 1987 and FSCSKEY = 'NH0160' then newkey = 'NH0077';

/* DEEREFIELD        */
if year = 1987 and FSCSKEY = 'NH0078' then newkey = 'NH0173';

/* BEDFORD           */
if year = 1987 and FSCSKEY = 'NH0201' then newkey = 'NH0078';

/* EXETER            */
if year = 1987 and FSCSKEY = 'NH0079' then newkey = 'NH0191';

/* PITTSFIELD        */
if year = 1987 and FSCSKEY = 'NH0082' then newkey = 'NH0079';

/* PLYMOUTH (PL) (PEASE) */
if year = 1987 and FSCSKEY = 'NH0199' then newkey = 'NH0083';

/* PLAISTOW          */
if year = 1987 and FSCSKEY = 'NH0085' then newkey = 'NH0082';

/* NORTH CONWAY      */
if year = 1987 and FSCSKEY = 'NH0080' then newkey = 'NH0169';

/* CHESTER           */
if year = 1987 and FSCSKEY = 'NH0084' then newkey = 'NH0241';
if year = 1989 and FSCSKEY = 'NH0125' then newkey = 'NH0241';
if year = 1990 and FSCSKEY = 'NH0125' then newkey = 'NH0241';
if year = 1991 and FSCSKEY = 'NH0125' then newkey = 'NH0241';

/* PORTSMOUTH        */
if year = 1987 and FSCSKEY = 'NH0191' then newkey = 'NH0084';

/* BRISTOL (MINOT-SLEEPER) */
if year = 1987 and FSCSKEY = 'NH0086' then newkey = 'NH0153';

/* RICHMOND          */
if year = 1987 and FSCSKEY = 'NH0188' then newkey = 'NH0086';

/* GOFFSTOWN         */
if year = 1987 and FSCSKEY = 'NH0087' then newkey = 'NH0204';

/* EAST DERRY        */
if year = 1987 and FSCSKEY = 'NH0088' then newkey = 'NH0177';

/* DURHAM (PL)       */
if year = 1987 and FSCSKEY = 'NH0089' then newkey = 'NH9975';
/* U OF NEW HAMPSHIRE??? */

/* WOLFEBORO         */
if year = 1987 and FSCSKEY = 'NH0090' then newkey = 'NH0148';

/* EAST ROCHESTER    */
if year = 1987 and FSCSKEY = 'NH0183' then newkey = 'NH0090';

/* CHICHESTER (TOWN LIBRARY) */
if year = 1987 and FSCSKEY = 'NH0092' then newkey = 'NH0163';

/* RYE               */
if year = 1987 and FSCSKEY = 'NH0107' then newkey = 'NH0092';

/* CHESTERFIELD      */
if year = 1987 and FSCSKEY = 'NH0093' then newkey = 'NH0162';

/* SEABROOK          */
if year = 1987 and FSCSKEY = 'NH0095' then newkey = 'NH0098';

/* EAST SWANZEY      */
if year = 1987 and FSCSKEY = 'NH0096' then newkey = 'NH0117';

/* CENTER SANDWICH   */
if year = 1987 and FSCSKEY = 'NH0224' then newkey = 'NH0097';

/* HEBRON            */
if year = 1987 and FSCSKEY = 'NH0099' then newkey = 'NH0224';

/* BENNINGTON        */
if year = 1987 and FSCSKEY = 'NH0168' then newkey = 'NH0099';

/* GRAFTON           */
if year = 1987 and FSCSKEY = 'NH0100' then newkey = 'NH0207';

/* SOMERSWORTH       */
if year = 1987 and FSCSKEY = 'NH0225' then newkey = 'NH0101';
if year = 1988 and FSCSKEY = 'NH0100' then newkey = 'NH0101';

/* ALLENSTOWN (SUNCOOK-PL) */
if year = 1987 and FSCSKEY = 'NH0101' then newkey = 'NH0155';

/* GORHAM (SHELBURNE PL) */
if year = 1987 and FSCSKEY = 'NH0124' then newkey = 'NH0246';
if year = 1988 and FSCSKEY = 'NH0101' then newkey = 'NH0246';
if year = 1989 and FSCSKEY = 'NH0127' and CITY = 'Gorham' then newkey = 'NH0246';
if year = 1990 and FSCSKEY = 'NH0127' and CITY = 'Shelburne' then newkey = 'NH0246';
if year = 1991 and FSCSKEY = 'NH0127' and CITY = 'Shelburne' then newkey = 'NH0246';

/* CANAAN (TOWN LIBRARY) */
if year = 1987 and FSCSKEY = 'NH0102' then newkey = 'NH0156';

/* SOUTH HAMPTON     */
if year = 1987 and FSCSKEY = 'NH0165' then newkey = 'NH0102';

/* WILMOT            */
if year = 1987 and FSCSKEY = 'NH0103' then newkey = 'NH0143';

/* SPRINGFIELD       */
if year = 1987 and FSCSKEY = 'NH0144' then newkey = 'NH0103';

/* BOW               */
if year = 1987 and FSCSKEY = 'NH0104' then newkey = 'NH0142';

/* GROVETON (STARK)  */
if year = 1987 and FSCSKEY = 'NH0179' then newkey = 'NH0104';

/* CANDIA            */
if year = 1987 and FSCSKEY = 'NH0105' then newkey = 'NH0157';

/* (WEST) STEWARTSTOWN */
if year = 1987 and FSCSKEY = 'NH0112' then newkey = 'NH0105';

/* CTR.TUFTONBORO    */
if year = 1987 and FSCSKEY = 'NH0106' then newkey = 'NH0126';
if year = 1989 and FSCSKEY = 'NH0126' and CITY = 'Center Tuftonboro' then newkey = 'NH0126';
if year = 1990 and FSCSKEY = 'NH0126' and CITY = 'Center Tuftonboro' then newkey = 'NH0126';
if year = 1991 and FSCSKEY = 'NH0126' and CITY = 'Center Tuftonboro' then newkey = 'NH0126';

/* STODDARD          */
if year = 1987 and FSCSKEY = 'NH0227' then newkey = 'NH0106';

/* CENTER STRAFFORD  */
if year = 1987 and FSCSKEY = 'NH0228' then newkey = 'NH0107';

/* WEBSTER           */
if year = 1987 and FSCSKEY = 'NH0108' then newkey = 'NH0138';

/* NORTH STRATFORD (LAURA JOHNSON) (GROVETON) */
if year = 1987 and FSCSKEY = 'NH0229' then newkey = 'NH0108';

/* CENTER HARBOR     */
if year = 1987 and FSCSKEY = 'NH0110' then newkey = 'NH0160';

/* BERLIN            */
if year = 1987 and FSCSKEY = 'NH0189' then newkey = 'NH0110';

/* NORTH STRATFORD (STRATFORD PL) */
if year = 1987 and FSCSKEY = 'NH0230' then newkey = 'NH0111';

/* CENTER HARBOR     */
if year = 1987 and FSCSKEY = 'NH0110' then newkey = 'NH0160';

/* HEBRON (GROTON)   */
if year = 1987 and FSCSKEY = 'NH0111' then newkey = 'NH0212';

/* STRATHAM          */
if year = 1987 and FSCSKEY = 'NH0152' then newkey = 'NH0112';

/* ENFIELD           */
if year = 1987 and FSCSKEY = 'NH0113' then newkey = 'NH0187';

/* SUGAR HILL        */
if year = 1987 and FSCSKEY = 'NH0177' then newkey = 'NH0113';

/* TAMWORTH          */
if year = 1987 and FSCSKEY = 'NH0114' then newkey = 'NH0238';
if year = 1988 and FSCSKEY = 'NH0119' then newkey = 'NH0238';
if year = 1989 and FSCSKEY = 'NH0122' and CITY = 'Tamworth' then newkey = 'NH0238';
if year = 1990 and FSCSKEY = 'NH0122' and CITY = 'Tamworth' then newkey = 'NH0238';
if year = 1991 and FSCSKEY = 'NH0122' and CITY = 'Tamworth' then newkey = 'NH0238';

/* SULLIVAN          */
if year = 1987 and FSCSKEY = 'NH0231' then newkey = 'NH0114';

/* SUNAPEE           */
if year = 1987 and FSCSKEY = 'NH0147' then newkey = 'NH0115';

/* SURRY             */
if year = 1987 and FSCSKEY = 'NH0139' then newkey = 'NH0116';

/* BOSCAWEN          */
if year = 1987 and FSCSKEY = 'NH0117' then newkey = 'NH0131';

/* WITHEFIELD (DALTON) */
if year = 1987 and FSCSKEY = 'NH0118' then newkey = 'NH0171';

/* WEST SWANZEY      */
if year = 1987 and FSCSKEY = 'NH0233' then newkey = 'NH0118';

/* FITZWILLIAM       */
if year = 1987 and FSCSKEY = 'NH0119' then newkey = 'NH0193';

/* BETHLEHEM         */
if year = 1987 and FSCSKEY = 'NH0150' and CITY = 'BETHLEHEM' then newkey = 'NH0121';
if year = 1989 and FSCSKEY = 'NH0121' and CITY = 'Bethlehem' then newkey = 'NH0121';
if year = 1990 and FSCSKEY = 'NH0121' and CITY = 'Bethlehem' then newkey = 'NH0121';
if year = 1991 and FSCSKEY = 'NH0121' and CITY = 'Bethlehem' then newkey = 'NH0121';

/* THORTON           */
if year = 1987 and FSCSKEY = 'NH0185' then newkey = 'NH0123';
if year = 1989 and FSCSKEY = 'NH0123' and CITY = 'Thornton' then newkey = 'NH0123';
if year = 1990 and FSCSKEY = 'NH0123' and CITY = 'Thornton' then newkey = 'NH0123';
if year = 1991 and FSCSKEY = 'NH0123' and CITY = 'Thornton' then newkey = 'NH0123';

/* SANBORNVILLE (WAKEFIELD) */
if year = 1987 and FSCSKEY = 'NH0132' then newkey = 'NH0128';
if year = 1989 and FSCSKEY = 'NH0128' and CITY = 'Sanbornville' then newkey = 'NH0128';
if year = 1990 and FSCSKEY = 'NH0128' and CITY = 'Sanbornville' then newkey = 'NH0128';
if year = 1991 and FSCSKEY = 'NH0128' and CITY = 'Sanbornville' then newkey = 'NH0128';

/* MILAN (DUMMER)    */
if year = 1987 and FSCSKEY = 'NH0133' then newkey = 'NH0230';
if year = 1989 and FSCSKEY = 'NH0229' then newkey = 'NH0230';

/* Takes care of the duplicate stub entry found 8/16/2006      */
if year = 1990 and FSCSKEY = 'NH0229' then delete;
/*                                                             */

/* GORHAM (PL)       */
if year = 1987 and FSCSKEY = 'NH0171' then newkey = 'NH0205';

/* ASHLAND           */
if year = 1987 and FSCSKEY = 'NH0205' then newkey = 'NH0240';
if year = 1989 and FSCSKEY = 'NH0124' and CITY = 'Ashland' then newkey = 'NH0240';
if year = 1990 and FSCSKEY = 'NH0124' and CITY = 'Ashland' then newkey = 'NH0240';
if year = 1991 and FSCSKEY = 'NH0124' and CITY = 'Ashland' then newkey = 'NH0240';

/* BROOKLINE         */
if year = 1987 and FSCSKEY = 'NH0125' then newkey = 'NH0154';

/* TROY              */
if year = 1987 and FSCSKEY = 'NH0155' then newkey = 'NH0125';
if year = 1989 and FSCSKEY = 'NH0125' and CITY = 'Troy' then newkey = 'NH0125';
if year = 1990 and FSCSKEY = 'NH0125' and CITY = 'Troy' then newkey = 'NH0125';
if year = 1991 and FSCSKEY = 'NH0125' and CITY = 'Troy' then newkey = 'NH0125';

/* ANDOVER           */
if year = 1987 and FSCSKEY = 'NH0126' then newkey = 'NH0196';

/* WHITEFIELD        */
if year = 1987 and FSCSKEY = 'NH0128' then newkey = 'NH0141';

/* FARMINGTON        */
if year = 1987 and FSCSKEY = 'NH0129' then newkey = 'NH0192';

/* GILSUM            */
if year = 1989 and FSCSKEY = 'NH0129' and CITY = 'Gilsum' then newkey = 'NH0244';
if year = 1990 and FSCSKEY = 'NH0129' and CITY = 'Gilsum' then newkey = 'NH0244';
if year = 1991 and FSCSKEY = 'NH0129' and CITY = 'Gilsum' then newkey = 'NH0244';

/* HILLSBORO         */
if year = 1987 and FSCSKEY = 'NH0130' then newkey = 'NH0175';

/* WALPOLE           */
if year = 1987 and FSCSKEY = 'NH0202' then newkey = 'NH0132';

/* WARNER            */
if year = 1987 and FSCSKEY = 'NH0135' then newkey = 'NH0133';

/* WARREN            */
if year = 1987 and FSCSKEY = 'NH0172' then newkey = 'NH0134';

/* WASHINGTON        */
if year = 1987 and FSCSKEY = 'NH0136' then newkey = 'NH0135';

/* WOODSVILLE        */
if year = 1987 and FSCSKEY = 'NH0137' then newkey = 'NH0220';

/* WILTON            */
if year = 1987 and FSCSKEY = 'NH0159' then newkey = 'NH0144';

/* WINCHESTER        */
if year = 1987 and FSCSKEY = 'NH0234' then newkey = 'NH0145';

/* ALSTEAD           */
if year = 1987 and FSCSKEY = 'NH0146' then newkey = 'NH0165';

/* ASHUELOT          */
if year = 1987 and FSCSKEY = 'NH0181' then newkey = 'NH0146';

/* FRANCESTOWN       */
if year = 1987 and FSCSKEY = 'NH0148' then newkey = 'NH0194';

/* DANVILLE          */
if year = 1987 and FSCSKEY = 'NH0151' then newkey = 'NH0172';

/* PLYMOUTH (BRIDGEWATER) */
if year = 1987 and FSCSKEY = 'NH0166' then newkey = 'NH0248';
if year = 1988 and FSCSKEY = 'NH0152' then newkey = 'NH0248';
if year = 1989 and FSCSKEY = 'NH0152' then newkey = 'NH0248';
if year = 1990 and FSCSKEY = 'NH0152' then newkey = 'NH0248';
if year = 1991 and FSCSKEY = 'NH0152' then newkey = 'NH0248';
if year = 1992 and FSCSKEY = 'NH0152' then newkey = 'NH0248';
if year = 1993 and FSCSKEY = 'NH0152' then newkey = 'NH0248';
if year = 1994 and FSCSKEY = 'NH0152' then newkey = 'NH0248';
if year = 1995 and FSCSKEY = 'NH0152' then newkey = 'NH0248';
if year = 1996 and FSCSKEY = 'NH0152' then newkey = 'NH0248';
if year = 1997 and FSCSKEY = 'NH0152' then newkey = 'NH0248';

/* CANTERBURY        */
if year = 1987 and FSCSKEY = 'NH0193' then newkey = 'NH0158';

/* TWIN MOUNTAIN     */
if year = 1987 and FSCSKEY = 'NH0210' then newkey = 'NH0159';

/* CHARLESTOWN       */
if year = 1987 and FSCSKEY = 'NH0174' then newkey = 'NH0161';

/* NORTH HAVERHILL   */
if year = 1987 and FSCSKEY = 'NH0164' then newkey = 'NH0221';

/* CLAREMONT         */
if year = 1987 and FSCSKEY = 'NH0211' then newkey = 'NH0164';

/* HARRISVILLE       */
if year = 1987 and FSCSKEY = 'NH0167' then newkey = 'NH0219';

/* CONWAY            */
if year = 1987 and FSCSKEY = 'NH0196' then newkey = 'NH0168';

/* PIKE              */
if year = 1987 and FSCSKEY = 'NH0170' then newkey = 'NH0222';

/* CORNISH FLAT      */
if year = 1987 and FSCSKEY = 'NH0187' then newkey = 'NH0170';

/* FRANCONIA (EASTON) */
if year = 1987 and FSCSKEY = 'NH0173' then newkey = 'NH0185';

/* GILFORD           */
if year = 1987 and FSCSKEY = 'NH0175' then newkey = 'NH0200';

/* ERROL             */
if year = 1987 and FSCSKEY = 'NH0176' then newkey = 'NH0190';

/* RUMNEY            */
if year = 1987 and FSCSKEY = 'NH0180' then newkey = 'NH0178';

/* DUBLIN            */
if year = 1987 and FSCSKEY = 'NH0200' then newkey = 'NH0180';

/* GILMANTON (CORNER) */
if year = 1987 and FSCSKEY = 'NH0184' then newkey = 'NH0202';

/* CENTER OSSIPEE    */
if year = 1987 and FSCSKEY = 'NH0214' then newkey = 'NH0186';

/* EPSOM             */
if year = 1987 and FSCSKEY = 'NH0215' then newkey = 'NH0189';

/* PORTSMOUTH (PL)   */
if year = 1987 and FSCSKEY = 'NH0191' then newkey = 'NH0084';

/* PITTSFIELD (LOWER GILMANTON) */
if year = 1987 and FSCSKEY = 'NH0194' then newkey = 'NH0203';

/* FRANKLIN          */
if year = 1987 and FSCSKEY = 'NH0195' then newkey = 'NH0197';

/* FREEMONT          */
if year = 1987 and FSCSKEY = 'NH0197' then newkey = 'NH0199';

/* GILMANTON IRON WORKS  */
if year = 1988 and FSCSKEY = 'NH0201' then newkey = 'NH0251';
if year = 1989 and FSCSKEY = 'NH0201' then newkey = 'NH0251';
if year = 1990 and FSCSKEY = 'NH0201' then newkey = 'NH0251';
if year = 1991 and FSCSKEY = 'NH0201' then newkey = 'NH0251';
if year = 1992 and FSCSKEY = 'NH0201' then newkey = 'NH0251';
if year = 1993 and FSCSKEY = 'NH0201' then newkey = 'NH0251';
if year = 1994 and FSCSKEY = 'NH0201' then newkey = 'NH0251';
if year = 1995 and FSCSKEY = 'NH0201' then newkey = 'NH0251';
if year = 1996 and FSCSKEY = 'NH0201' then newkey = 'NH0251';
if year = 1997 and FSCSKEY = 'NH0201' then newkey = 'NH0251';

/* ANTRIM            */
if year = 1987 and FSCSKEY = 'NH0204' then newkey = 'NH0215';

/* NEWPORT (CROYDON) */
if year = 1987 and FSCSKEY = 'NH0212' then newkey = 'NH0245';
if year = 1991 and FSCSKEY = 'NH0231' and CITY = 'Newport' then newkey = 'NH0245';

/* EXETER (MARY E. BARTLETT) */
if year = 1987 and FSCSKEY = 'NH0208' then newkey = 'NH9976';

/* PLYMOUTH (CAMPTON GRANGE) */
if year = 1987 and FSCSKEY = 'NH0209' then newkey = 'NH9977';

/* JEFFERSON (RANDOLPH PUBLIC LIBRARY) */
if year = 1987 and FSCSKEY = 'NH0223' then newkey = 'NH9978';


December 16, 2022