      *******************************************************
      *         GEOGRAPHIC ADJ FACTOR (GAF) COPYBOOK        *
      *            FOR FQHC PPS PRICER (COPYGAF)            *
      *-----------------------------------------------------*
      *  VERSION 2015.0                                     *
      *  TO BE USED WITH FQHCCAL VERSION 2014.0             *
      *  FOR THE JANUARY 2015 UPDATE                        *
      *-----------------------------------------------------*
      *                                                     *
      *       VARIABLES: CARRIER-LOCALITY                   *
      *                  EFFECTIVE DATE (YYYYMMDD)          *
      *                  GEOGRAPHIC ADJ FACTOR (GAF)        *
      *                                                     *
      *       SORTED BY CARRIER-LOCALITY AND EFFECTIVE      *
      *       DATE, ASCENDING ORDER                         *
      *                                                     *
      *******************************************************
       01  W-GAF-FILLS.
           03                          PIC X(40)   VALUE
               '0111203201410010115401112032015010101165'.
           03                          PIC X(40)   VALUE
               '0111203201504010116501112052014100101216'.
           03                          PIC X(40)   VALUE
               '0111205201501010122401112052015040101224'.
           03                          PIC X(40)   VALUE
               '0111206201410010121001112062015010101216'.
           03                          PIC X(40)   VALUE
               '0111206201504010112201112072014100101152'.
           03                          PIC X(40)   VALUE
               '0111207201501010115401112072015040101154'.
           03                          PIC X(40)   VALUE
               '0111209201410010120401112092015010101209'.
           03                          PIC X(40)   VALUE
               '0111209201504010120901112992014100101053'.
           03                          PIC X(40)   VALUE
               '0111299201501010105301112992015040101053'.
           03                          PIC X(40)   VALUE
               '0118217201410010110501182172015010101100'.
           03                          PIC X(40)   VALUE
               '0118217201504010110001182182014100101096'.
           03                          PIC X(40)   VALUE
               '0118218201501010110001182182015040101100'.
           03                          PIC X(40)   VALUE
               '0118226201410010112301182262015010101120'.
           03                          PIC X(40)   VALUE
               '0118226201504010112001182992014100101053'.
           03                          PIC X(40)   VALUE
               '0118299201501010105301182992015040101053'.
           03                          PIC X(40)   VALUE
               '0121201201410010107501212012015010101077'.
           03                          PIC X(40)   VALUE
               '0121201201504010107701312002014100101026'.
           03                          PIC X(40)   VALUE
               '0131200201501010102701312002015040101027'.
           03                          PIC X(40)   VALUE
               '0210201201410010130702102012015010101316'.
           03                          PIC X(40)   VALUE
               '0210201201504010131602202002014100100951'.
           03                          PIC X(40)   VALUE
               '0220200201501010095202202002015040100930'.
           03                          PIC X(40)   VALUE
               '0230201201410010102502302012015010101026'.
           03                          PIC X(40)   VALUE
               '0230201201504010102602302992014100100984'.
           03                          PIC X(40)   VALUE
               '0230299201501010098502302992015040100978'.
           03                          PIC X(40)   VALUE
               '0240202201410010108402402022015010101086'.
           03                          PIC X(40)   VALUE
               '0240202201504010108602402992014100101007'.
           03                          PIC X(40)   VALUE
               '0240299201501010100702402992015040101005'.
           03                          PIC X(40)   VALUE
               '0310200201410010099503102002015010101000'.
           03                          PIC X(40)   VALUE
               '0310200201504010099303202012014100101000'.
           03                          PIC X(40)   VALUE
               '0320201201501010100003202012015040100977'.
           03                          PIC X(40)   VALUE
               '0330201201410010100003302012015010101000'.
           03                          PIC X(40)   VALUE
               '0330201201504010098103402022014100101000'.
           03                          PIC X(40)   VALUE
               '0340202201501010100003402022015040100976'.
           03                          PIC X(40)   VALUE
               '0350209201410010096203502092015010100963'.
           03                          PIC X(40)   VALUE
               '0350209201504010094603602212014100101000'.
           03                          PIC X(40)   VALUE
               '0360221201501010100003602212015040100992'.
           03                          PIC X(40)   VALUE
               '0411201201410010100404112012015010101005'.
           03                          PIC X(40)   VALUE
               '0411201201504010100504212052014100100962'.
           03                          PIC X(40)   VALUE
               '0421205201501010096204212052015040100954'.
           03                          PIC X(40)   VALUE
               '0431200201410010093604312002015010100940'.
           03                          PIC X(40)   VALUE
               '0431200201504010091904412092014100101002'.
           03                          PIC X(40)   VALUE
               '0441209201501010100504412092015040101005'.
           03                          PIC X(40)   VALUE
               '0441211201410010101404412112015010101014'.
           03                          PIC X(40)   VALUE
               '0441211201504010101404412152014100101010'.
           03                          PIC X(40)   VALUE
               '0441215201501010101604412152015040101016'.
           03                          PIC X(40)   VALUE
               '0441218201410010100904412182015010101013'.
           03                          PIC X(40)   VALUE
               '0441218201504010101304412202014100100953'.
           03                          PIC X(40)   VALUE
               '0441220201501010095404412202015040100947'.
           03                          PIC X(40)   VALUE
               '0441228201410010099504412282015010101000'.
           03                          PIC X(40)   VALUE
               '0441228201504010100004412312014100101007'.
           03                          PIC X(40)   VALUE
               '0441231201501010100904412312015040101008'.
           03                          PIC X(40)   VALUE
               '0441299201410010096104412992015010100963'.
           03                          PIC X(40)   VALUE
               '0441299201504010095705102002014100100949'.
           03                          PIC X(40)   VALUE
               '0510200201501010095105102002015040100933'.
           03                          PIC X(40)   VALUE
               '0520200201410010095305202002015010100955'.
           03                          PIC X(40)   VALUE
               '0520200201504010093505302012014100100981'.
           03                          PIC X(40)   VALUE
               '0530201201501010097905302012015040100972'.
           03                          PIC X(40)   VALUE
               '0530202201410010097805302022015010100978'.
           03                          PIC X(40)   VALUE
               '0530202201504010096805302992014100100930'.
           03                          PIC X(40)   VALUE
               '0530299201501010092905302992015040100903'.
           03                          PIC X(40)   VALUE
               '0540200201410010095605402002015010100957'.
           03                          PIC X(40)   VALUE
               '0540200201504010093906102122014100100970'.
           03                          PIC X(40)   VALUE
               '0610212201501010096906102122015040100961'.
           03                          PIC X(40)   VALUE
               '0610215201410010104106102152015010101033'.
           03                          PIC X(40)   VALUE
               '0610215201504010103306102162014100101033'.
           03                          PIC X(40)   VALUE
               '0610216201501010102606102162015040101026'.
           03                          PIC X(40)   VALUE
               '0610299201410010095706102992015010100957'.
           03                          PIC X(40)   VALUE
               '0610299201504010094406202002014100101007'.
           03                          PIC X(40)   VALUE
               '0620200201501010100906202002015040101006'.
           03                          PIC X(40)   VALUE
               '0630200201410010098006302002015010100979'.
           03                          PIC X(40)   VALUE
               '0630200201504010097007102132014100100937'.
           03                          PIC X(40)   VALUE
               '0710213201501010093807102132015040100920'.
           03                          PIC X(40)   VALUE
               '0720201201410010099107202012015010100992'.
           03                          PIC X(40)   VALUE
               '0720201201504010098607202992014100100945'.
           03                          PIC X(40)   VALUE
               '0720299201501010094707202992015040100935'.
           03                          PIC X(40)   VALUE
               '0730200201410010093707302002015010100936'.
           03                          PIC X(40)   VALUE
               '0730200201504010091408102002014100100963'.
           03                          PIC X(40)   VALUE
               '0810200201501010096308102002015040100948'.
           03                          PIC X(40)   VALUE
               '0820201201410010101008202012015010100997'.
           03                          PIC X(40)   VALUE
               '0820201201504010099608202992014100100963'.
           03                          PIC X(40)   VALUE
               '0820299201501010096308202992015040100954'.
           03                          PIC X(40)   VALUE
               '0910203201410010101909102032015010101014'.
           03                          PIC X(40)   VALUE
               '0910203201504010100609102042014100101021'.
           03                          PIC X(40)   VALUE
               '0910204201501010101509102042015040101011'.
           03                          PIC X(40)   VALUE
               '0910299201410010098309102992015010100981'.
           03                          PIC X(40)   VALUE
               '0910299201504010097109202202014100100856'.
           03                          PIC X(40)   VALUE
               '0920220201501010086209202202015040100816'.
           03                          PIC X(40)   VALUE
               '0920250201410010100209202502015010100981'.
           03                          PIC X(40)   VALUE
               '0920250201504010096810102002014100100945'.
           03                          PIC X(40)   VALUE
               '1010200201501010094710102002015040100936'.
           03                          PIC X(40)   VALUE
               '1020201201410010100510202012015010101002'.
           03                          PIC X(40)   VALUE
               '1020201201504010100210202992014100100953'.
           03                          PIC X(40)   VALUE
               '1020299201501010095310202992015040100940'.
           03                          PIC X(40)   VALUE
               '1030235201410010095210302352015010100952'.
           03                          PIC X(40)   VALUE
               '1030235201504010093611202012014100100958'.
           03                          PIC X(40)   VALUE
               '1120201201501010095911202012015040100946'.
           03                          PIC X(40)   VALUE
               '1130200201410010099111302002015010100992'.
           03                          PIC X(40)   VALUE
               '1130200201504010098711402162014100100921'.
           03                          PIC X(40)   VALUE
               '1140216201501010092311402162015040100902'.
           03                          PIC X(40)   VALUE
               '1150200201410010096711502002015010100967'.
           03                          PIC X(40)   VALUE
               '1150200201504010095612102012014100101024'.
           03                          PIC X(40)   VALUE
               '1210201201501010102112102012015040101021'.
           03                          PIC X(40)   VALUE
               '1220201201410010112112202012015010101123'.
           03                          PIC X(40)   VALUE
               '1220201201504010112312302012014100101059'.
           03                          PIC X(40)   VALUE
               '1230201201501010105812302012015040101058'.
           03                          PIC X(40)   VALUE
               '1230299201410010102412302992015010101025'.
           03                          PIC X(40)   VALUE
               '1230299201504010102512402012014100101109'.
           03                          PIC X(40)   VALUE
               '1240201201501010110712402012015040101107'.
           03                          PIC X(40)   VALUE
               '1240299201410010107112402992015010101072'.
           03                          PIC X(40)   VALUE
               '1240299201504010107212502012014100101044'.
           03                          PIC X(40)   VALUE
               '1250201201501010105212502012015040101052'.
           03                          PIC X(40)   VALUE
               '1250299201410010096312502992015010100967'.
           03                          PIC X(40)   VALUE
               '1250299201504010096213102002014100101067'.
           03                          PIC X(40)   VALUE
               '1310200201501010106913102002015040101069'.
           03                          PIC X(40)   VALUE
               '1320201201410010110813202012015010101106'.
           03                          PIC X(40)   VALUE
               '1320201201504010110613202022014100101124'.
           03                          PIC X(40)   VALUE
               '1320202201501010112213202022015040101122'.
           03                          PIC X(40)   VALUE
               '1320203201410010103913202032015010101040'.
           03                          PIC X(40)   VALUE
               '1320203201504010104013282992014100100973'.
           03                          PIC X(40)   VALUE
               '1328299201501010097413282992015040100967'.
           03                          PIC X(40)   VALUE
               '1329204201410010112313292042015010101121'.
           03                          PIC X(40)   VALUE
               '1329204201504010112114112032014100101007'.
           03                          PIC X(40)   VALUE
               '1411203201501010100314112032015040100994'.
           03                          PIC X(40)   VALUE
               '1411299201410010095814112992015010100962'.
           03                          PIC X(40)   VALUE
               '1411299201504010094414212012014100101082'.
           03                          PIC X(40)   VALUE
               '1421201201501010108514212012015040101085'.
           03                          PIC X(40)   VALUE
               '1421299201410010103814212992015010101040'.
           03                          PIC X(40)   VALUE
               '1421299201504010104014312402014100101024'.
           03                          PIC X(40)   VALUE
               '1431240201501010102714312402015040101027'.
           03                          PIC X(40)   VALUE
               '1441201201410010103514412012015010101037'.
           03                          PIC X(40)   VALUE
               '1441201201504010103714512502014100101003'.
           03                          PIC X(40)   VALUE
               '1451250201501010100214512502015040100992'.
           03                          PIC X(40)   VALUE
               '1510200201410010094015102002015010100940'.
           03                          PIC X(40)   VALUE
               '1510200201504010092615202002014100100964'.
           03                          PIC X(40)   VALUE
               '1520200201501010096215202002015040100953'.
       01  W-GAF-TABLE REDEFINES W-GAF-FILLS.
           03  GAF-ENTRY OCCURS 270 TIMES
                   ASCENDING KEY IS GAF-CARRIER-LOC GAF-EFFDATE
                   INDEXED BY GAF-INDX.
               05  GAF-CARRIER-LOC     PIC X(7).
               05  GAF-EFFDATE         PIC 9(8).
               05  GAF-RATE            PIC 9(2)V9(3).
       01  GAF-MAX                     PIC S9(7)   COMP-3
                                       VALUE +270.
