      *******************************************************
      *         GEOGRAPHIC ADJ FACTOR (GAF) COPYBOOK        *
      *            FOR FQHC PPS PRICER (COPYGAF)            *
      *-----------------------------------------------------*
      *  VERSION 2017.1                                     *
      *  TO BE USED WITH FQHCCAL VERSION 2015.0             *
      *  FOR THE 2015 EXTENDERS LEGISLATION                 *
      *  (RATES EFFECTIVE 4/1/2015 REMOVED;                 *
      *   RATES EFFECTIVE 1/1/2015 TO BE USED FOR           *
      *   ENTIRE CY 2015)                                   *
      *-----------------------------------------------------*
      *                                                     *
      *       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
               '0111205201410010121601112052015010101224'.
           03                          PIC X(40)   VALUE
               '0111205201701010120801112062014100101210'.
           03                          PIC X(40)   VALUE
               '0111206201501010121601112062017010101204'.
           03                          PIC X(40)   VALUE
               '0111207201410010115201112072015010101154'.
           03                          PIC X(40)   VALUE
               '0111207201701010117301112092014100101204'.
           03                          PIC X(40)   VALUE
               '0111209201501010120901112092017010101210'.
           03                          PIC X(40)   VALUE
               '0111251201701010115701112522017010101158'.
           03                          PIC X(40)   VALUE
               '0111253201701010115701112542017010101050'.
           03                          PIC X(40)   VALUE
               '0111255201701010105001112562017010101050'.
           03                          PIC X(40)   VALUE
               '0111257201701010105001112582017010101050'.
           03                          PIC X(40)   VALUE
               '0111259201701010105001112602017010101050'.
           03                          PIC X(40)   VALUE
               '0111261201701010105001112622017010101050'.
           03                          PIC X(40)   VALUE
               '0111263201701010105001112642017010101052'.
           03                          PIC X(40)   VALUE
               '0111265201701010107301112662017010101061'.
           03                          PIC X(40)   VALUE
               '0111267201701010105601112682017010101050'.
           03                          PIC X(40)   VALUE
               '0111269201701010105001112702017010101050'.
           03                          PIC X(40)   VALUE
               '0111275201701010105001112992014100101053'.
           03                          PIC X(40)   VALUE
               '0111299201501010105301182172014100101105'.
           03                          PIC X(40)   VALUE
               '0118217201501010110001182172017010101098'.
           03                          PIC X(40)   VALUE
               '0118218201410010109601182182015010101100'.
           03                          PIC X(40)   VALUE
               '0118218201701010110401182262014100101123'.
           03                          PIC X(40)   VALUE
               '0118226201501010112001182262017010101114'.
           03                          PIC X(40)   VALUE
               '0118271201701010105001182720170101101054'.
           03                          PIC X(40)   VALUE
               '0118273201701010105001182742017010101055'.
           03                          PIC X(40)   VALUE
               '0118299201410010105301182992015010101053'.
           03                          PIC X(40)   VALUE
               '0121201201410010107501212012015010101077'.
           03                          PIC X(40)   VALUE
               '0121201201701010107301312002014100101026'.
           03                          PIC X(40)   VALUE
               '0131200201501010102701312002017010101018'.
           03                          PIC X(40)   VALUE
               '0210201201410010130702102012015010101316'.
           03                          PIC X(40)   VALUE
               '0210201201701010131802202002014100100951'.
           03                          PIC X(40)   VALUE
               '0220200201501010095202202002017010100953'.
           03                          PIC X(40)   VALUE
               '0230201201410010102502302012015010101026'.
           03                          PIC X(40)   VALUE
               '0230201201701010102902302992014100100984'.
           03                          PIC X(40)   VALUE
               '0230299201501010098502302992017010100985'.
           03                          PIC X(40)   VALUE
               '0240202201410010108402402022015010101086'.
           03                          PIC X(40)   VALUE
               '0240202201701010108502402992014100101007'.
           03                          PIC X(40)   VALUE
               '0240299201501010100702402992017010101006'.
           03                          PIC X(40)   VALUE
               '0310200201410010099503102002015010101000'.
           03                          PIC X(40)   VALUE
               '0310200201701010099303202012014100101000'.
           03                          PIC X(40)   VALUE
               '0320201201501010100003202012017010101000'.
           03                          PIC X(40)   VALUE
               '0330201201410010100003302012015010101000'.
           03                          PIC X(40)   VALUE
               '0330201201701010100003402022014100101000'.
           03                          PIC X(40)   VALUE
               '0340202201501010100003402022017010101000'.
           03                          PIC X(40)   VALUE
               '0350209201410010096203502092015010100963'.
           03                          PIC X(40)   VALUE
               '0350209201701010096503602212014100101000'.
           03                          PIC X(40)   VALUE
               '0360221201501010100003602212017010101000'.
           03                          PIC X(40)   VALUE
               '0411201201410010100404112012015010101005'.
           03                          PIC X(40)   VALUE
               '0411201201701010100704212052014100100962'.
           03                          PIC X(40)   VALUE
               '0421205201501010096204212052017010100963'.
           03                          PIC X(40)   VALUE
               '0431200201410010093604312002015010100940'.
           03                          PIC X(40)   VALUE
               '0431200201701010094504412092014100101002'.
           03                          PIC X(40)   VALUE
               '0441209201501010100504412092017010101008'.
           03                          PIC X(40)   VALUE
               '0441211201410010101404412112015010101014'.
           03                          PIC X(40)   VALUE
               '0441211201701010101404412152014100101010'.
           03                          PIC X(40)   VALUE
               '0441215201501010101604412152017010101016'.
           03                          PIC X(40)   VALUE
               '0441218201410010100904412182015010101013'.
           03                          PIC X(40)   VALUE
               '0441218201701010101504412202014100100953'.
           03                          PIC X(40)   VALUE
               '0441220201501010095404412202017010100959'.
           03                          PIC X(40)   VALUE
               '0441228201410010099504412282015010101000'.
           03                          PIC X(40)   VALUE
               '0441228201701010099904412312014100101007'.
           03                          PIC X(40)   VALUE
               '0441231201501010100904412312017010101009'.
           03                          PIC X(40)   VALUE
               '0441299201410010096104412992015010100963'.
           03                          PIC X(40)   VALUE
               '0441299201701010096705102002014100100949'.
           03                          PIC X(40)   VALUE
               '0510200201501010095105102002017010100954'.
           03                          PIC X(40)   VALUE
               '0520200201410010095305202002015010100955'.
           03                          PIC X(40)   VALUE
               '0520200201701010095605302012014100100981'.
           03                          PIC X(40)   VALUE
               '0530201201501010097905302012017010100980'.
           03                          PIC X(40)   VALUE
               '0530202201410010097805302022015010100978'.
           03                          PIC X(40)   VALUE
               '0530202201701010098005302992014100100930'.
           03                          PIC X(40)   VALUE
               '0530299201501010092905302992017010100933'.
           03                          PIC X(40)   VALUE
               '0540200201410010095605402002015010100957'.
           03                          PIC X(40)   VALUE
               '0540200201701010095706102122014100100970'.
           03                          PIC X(40)   VALUE
               '0610212201501010096906102122017010100970'.
           03                          PIC X(40)   VALUE
               '0610215201410010104106102152015010101033'.
           03                          PIC X(40)   VALUE
               '0610215201701010103206102162014100101033'.
           03                          PIC X(40)   VALUE
               '0610216201501010102606102162017010101023'.
           03                          PIC X(40)   VALUE
               '0610299201410010095706102992015010100957'.
           03                          PIC X(40)   VALUE
               '0610299201701010096006202002014100101007'.
           03                          PIC X(40)   VALUE
               '0620200201501010100906202002017010101007'.
           03                          PIC X(40)   VALUE
               '0630200201410010098006302002015010100979'.
           03                          PIC X(40)   VALUE
               '0630200201701010097907102132014100100937'.
           03                          PIC X(40)   VALUE
               '0710213201501010093807102132017010100939'.
           03                          PIC X(40)   VALUE
               '0720201201410010099107202012015010100992'.
           03                          PIC X(40)   VALUE
               '0720201201701010098807202992014100100945'.
           03                          PIC X(40)   VALUE
               '0720299201501010094707202992017010100947'.
           03                          PIC X(40)   VALUE
               '0730200201410010093707302002015010100936'.
           03                          PIC X(40)   VALUE
               '0730200201701010093808102002014100100963'.
           03                          PIC X(40)   VALUE
               '0810200201501010096308102002017010100963'.
           03                          PIC X(40)   VALUE
               '0820201201410010101008202012015010100997'.
           03                          PIC X(40)   VALUE
               '0820201201701010099608202992014100100963'.
           03                          PIC X(40)   VALUE
               '0820299201501010096308202992017010100963'.
           03                          PIC X(40)   VALUE
               '0910203201410010101909102032015010101014'.
           03                          PIC X(40)   VALUE
               '0910203201701010101009102042014100101021'.
           03                          PIC X(40)   VALUE
               '0910204201501010101509102042017010101015'.
           03                          PIC X(40)   VALUE
               '0910299201410010098309102992015010100981'.
           03                          PIC X(40)   VALUE
               '0910299201701010097909202202014100100856'.
           03                          PIC X(40)   VALUE
               '0920220201501010086209202202017010100933'.
           03                          PIC X(40)   VALUE
               '0930250201410010100209302502015010100981'.
           03                          PIC X(40)   VALUE
               '0930250201701010100310102002014100100945'.
           03                          PIC X(40)   VALUE
               '1010200201501010094710102002017010100948'.
           03                          PIC X(40)   VALUE
               '1020201201410010100510202012015010101002'.
           03                          PIC X(40)   VALUE
               '1020201201701010100010202992014100100953'.
           03                          PIC X(40)   VALUE
               '1020299201501010095310202992017010100953'.
           03                          PIC X(40)   VALUE
               '1030235201410010095210302352015010100952'.
           03                          PIC X(40)   VALUE
               '1030235201701010095311202012014100100958'.
           03                          PIC X(40)   VALUE
               '1120201201501010095911202012017010100959'.
           03                          PIC X(40)   VALUE
               '1130200201410010099111302002015010100992'.
           03                          PIC X(40)   VALUE
               '1130200201701010099311402162014100100921'.
           03                          PIC X(40)   VALUE
               '1140216201501010092311402162017010100928'.
           03                          PIC X(40)   VALUE
               '1150200201410010096711502002015010100967'.
           03                          PIC X(40)   VALUE
               '1150200201701010096812102012014100101024'.
           03                          PIC X(40)   VALUE
               '1210201201501010102112102012017010101017'.
           03                          PIC X(40)   VALUE
               '1220201201410010112112202012015010101123'.
           03                          PIC X(40)   VALUE
               '1220201201701010112212302012014100101059'.
           03                          PIC X(40)   VALUE
               '1230201201501010105812302012017010101057'.
           03                          PIC X(40)   VALUE
               '1230299201410010102412302992015010101025'.
           03                          PIC X(40)   VALUE
               '1230299201701010102312402012014100101109'.
           03                          PIC X(40)   VALUE
               '1240201201501010110712402012017010101107'.
           03                          PIC X(40)   VALUE
               '1240299201410010107112402992015010101072'.
           03                          PIC X(40)   VALUE
               '1240299201701010107112502012014100101044'.
           03                          PIC X(40)   VALUE
               '1250201201501010105212502012017010101050'.
           03                          PIC X(40)   VALUE
               '1250299201410010096312502992015010100967'.
           03                          PIC X(40)   VALUE
               '1250299201701010096913102002014100101067'.
           03                          PIC X(40)   VALUE
               '1310200201501010106913102002017010101067'.
           03                          PIC X(40)   VALUE
               '1320201201410010110813202012015010101106'.
           03                          PIC X(40)   VALUE
               '1320201201701010110913202022014100101124'.
           03                          PIC X(40)   VALUE
               '1320202201501010112213202022017010101120'.
           03                          PIC X(40)   VALUE
               '1320203201410010103913202032015010101040'.
           03                          PIC X(40)   VALUE
               '1320203201701010104113282992014100100973'.
           03                          PIC X(40)   VALUE
               '1328299201501010097413282992017010100976'.
           03                          PIC X(40)   VALUE
               '1329204201410010112313292042015010101121'.
           03                          PIC X(40)   VALUE
               '1329204201701010112114112032014100101007'.
           03                          PIC X(40)   VALUE
               '1411203201501010100314112032017010101003'.
           03                          PIC X(40)   VALUE
               '1411299201410010095814112992015010100962'.
           03                          PIC X(40)   VALUE
               '1411299201701010096314212012014100101082'.
           03                          PIC X(40)   VALUE
               '1421201201501010108514212012017010101093'.
           03                          PIC X(40)   VALUE
               '1421299201410010103814212992015010101040'.
           03                          PIC X(40)   VALUE
               '1421299201701010104114312402014100101024'.
           03                          PIC X(40)   VALUE
               '1431240201501010102714312402017010101024'.
           03                          PIC X(40)   VALUE
               '1441201201410010103514412012015010101037'.
           03                          PIC X(40)   VALUE
               '1441201201701010103814512502014100101003'.
           03                          PIC X(40)   VALUE
               '1451250201501010100214512502017010101005'.
           03                          PIC X(40)   VALUE
               '1510200201410010094015102002015010100940'.
           03                          PIC X(40)   VALUE
               '1510200201701010094215202002014100100964'.
           03                          PIC X(40)   VALUE
               '1520200201501010096215202002017010100962'.
       01  W-GAF-TABLE REDEFINES W-GAF-FILLS.
           03  GAF-ENTRY OCCURS 292 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 +292.
