      *******************************************************
      *         GEOGRAPHIC ADJ FACTOR (GAF) COPYBOOK        *
      *            FOR FQHC PPS PRICER (COPYGAF)            *
      *-----------------------------------------------------*
      *  VERSION 2018.2                                     *
      *  TO BE USED WITH FQHCCAL VERSION 2018.2             *
      *  RATES REVISED FOR THE 2018 EXTENDERS               *
      *  LEGISLATION (WORK GPCI FLOOR EXTENDER)             *
      *  AND NEW CARRIER NUMBERS                            *
      *  EFFECTIVE 1/1/18 - 12/31/18                        *
      *-----------------------------------------------------*
      *                                                     *
      *       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
               '0111205201701010120801112052018010101192'.
           03                          PIC X(40)   VALUE
               '0111206201410010121001112062015010101216'.
           03                          PIC X(40)   VALUE
               '0111206201701010120401112062018010101192'.
           03                          PIC X(40)   VALUE
               '0111207201410010115201112072015010101154'.
           03                          PIC X(40)   VALUE
               '0111207201701010117301112072018010101192'.
           03                          PIC X(40)   VALUE
               '0111209201410010120401112092015010101209'.
           03                          PIC X(40)   VALUE
               '0111209201701010121001112092018010101210'.
           03                          PIC X(40)   VALUE
               '0111251201701010115701112512018010101149'.
           03                          PIC X(40)   VALUE
               '0111252201701010115801112522018010101164'.
           03                          PIC X(40)   VALUE
               '0111253201701010115701112532018010101149'.
           03                          PIC X(40)   VALUE
               '0111254201701010105001112542018010101045'.
           03                          PIC X(40)   VALUE
               '0111255201701010105001112552018010101045'.
           03                          PIC X(40)   VALUE
               '0111256201701010105001112562018010101045'.
           03                          PIC X(40)   VALUE
               '0111257201701010105001112572018010101045'.
           03                          PIC X(40)   VALUE
               '0111258201701010105001112582018010101045'.
           03                          PIC X(40)   VALUE
               '0111259201701010105001112592018010101045'.
           03                          PIC X(40)   VALUE
               '0111260201701010105001112602018010101045'.
           03                          PIC X(40)   VALUE
               '0111261201701010105001112612018010101045'.
           03                          PIC X(40)   VALUE
               '0111262201701010105001112622018010101045'.
           03                          PIC X(40)   VALUE
               '0111263201701010105001112632018010101054'.
           03                          PIC X(40)   VALUE
               '0111264201701010105201112642018010101056'.
           03                          PIC X(40)   VALUE
               '0111265201701010107301112652018010101100'.
           03                          PIC X(40)   VALUE
               '0111266201701010106101112662018010101076'.
           03                          PIC X(40)   VALUE
               '0111267201701010105601112672018010101064'.
           03                          PIC X(40)   VALUE
               '0111268201701010105001112682018010101045'.
           03                          PIC X(40)   VALUE
               '0111269201701010105001112692018010101045'.
           03                          PIC X(40)   VALUE
               '0111270201701010105001112702018010101045'.
           03                          PIC X(40)   VALUE
               '0111275201701010105001112752018010101045'.
           03                          PIC X(40)   VALUE
               '0111299201410010105301112992015010101053'.
           03                          PIC X(40)   VALUE
               '0118217201410010110501182172015010101100'.
           03                          PIC X(40)   VALUE
               '0118217201701010109801182172018010101095'.
           03                          PIC X(40)   VALUE
               '0118218201410010109601182182015010101100'.
           03                          PIC X(40)   VALUE
               '0118218201701010110401182182018010101107'.
           03                          PIC X(40)   VALUE
               '0118226201410010112301182262015010101120'.
           03                          PIC X(40)   VALUE
               '0118226201701010111401182262018010101107'.
           03                          PIC X(40)   VALUE
               '0118271201701010105001182712018010101045'.
           03                          PIC X(40)   VALUE
               '0118272201701010105401182722018010101059'.
           03                          PIC X(40)   VALUE
               '0118273201701010105001182732018010101048'.
           03                          PIC X(40)   VALUE
               '0118274201701010105501182742018010101065'.
           03                          PIC X(40)   VALUE
               '0118299201410010105301182992015010101053'.
           03                          PIC X(40)   VALUE
               '0121201201410010107501212012015010101077'.
           03                          PIC X(40)   VALUE
               '0121201201701010107301212012018010101069'.
           03                          PIC X(40)   VALUE
               '0131200201410010102601312002015010101027'.
           03                          PIC X(40)   VALUE
               '0131200201701010101801312002018010101009'.
           03                          PIC X(40)   VALUE
               '0210201201410010130702102012015010101316'.
           03                          PIC X(40)   VALUE
               '0210201201701010131802102012018010101321'.
           03                          PIC X(40)   VALUE
               '0220200201410010095102202002015010100952'.
           03                          PIC X(40)   VALUE
               '0220200201701010095302202002018010100954'.
           03                          PIC X(40)   VALUE
               '0230201201410010102502302012015010101026'.
           03                          PIC X(40)   VALUE
               '0230201201701010102902302012018010101031'.
           03                          PIC X(40)   VALUE
               '0230299201410010098402302992015010100985'.
           03                          PIC X(40)   VALUE
               '0230299201701010098502302992018010100985'.
           03                          PIC X(40)   VALUE
               '0240202201410010108402402022015010101086'.
           03                          PIC X(40)   VALUE
               '0240202201701010108502402022018010101083'.
           03                          PIC X(40)   VALUE
               '0240299201410010100702402992015010101007'.
           03                          PIC X(40)   VALUE
               '0240299201701010100602402992018010101005'.
           03                          PIC X(40)   VALUE
               '0310200201410010099503102002015010101000'.
           03                          PIC X(40)   VALUE
               '0310200201701010099303102002018010100986'.
           03                          PIC X(40)   VALUE
               '0320201201410010100003202012015010101000'.
           03                          PIC X(40)   VALUE
               '0320201201701010100003202012018010101000'.
           03                          PIC X(40)   VALUE
               '0330201201410010100003302012015010101000'.
           03                          PIC X(40)   VALUE
               '0330201201701010100003302012018010101000'.
           03                          PIC X(40)   VALUE
               '0340202201410010100003402022015010101000'.
           03                          PIC X(40)   VALUE
               '0340202201701010100003402022018010101000'.
           03                          PIC X(40)   VALUE
               '0350209201410010096203502092015010100963'.
           03                          PIC X(40)   VALUE
               '0350209201701010096503502092018010100966'.
           03                          PIC X(40)   VALUE
               '0360221201410010100003602212015010101000'.
           03                          PIC X(40)   VALUE
               '0360221201701010100003602212018010101000'.
           03                          PIC X(40)   VALUE
               '0411201201410010100404112012015010101005'.
           03                          PIC X(40)   VALUE
               '0411201201701010100704112012018010101008'.
           03                          PIC X(40)   VALUE
               '0421205201410010096204212052015010100962'.
           03                          PIC X(40)   VALUE
               '0421205201701010096304212052018010100963'.
           03                          PIC X(40)   VALUE
               '0431200201410010093604312002015010100940'.
           03                          PIC X(40)   VALUE
               '0431200201701010094504312002018010100949'.
           03                          PIC X(40)   VALUE
               '0441209201410010100204412092015010101005'.
           03                          PIC X(40)   VALUE
               '0441209201701010100804412092018010101009'.
           03                          PIC X(40)   VALUE
               '0441211201410010101404412112015010101014'.
           03                          PIC X(40)   VALUE
               '0441211201701010101404412112018010101013'.
           03                          PIC X(40)   VALUE
               '0441215201410010101004412152015010101016'.
           03                          PIC X(40)   VALUE
               '0441215201701010101604412152018010101016'.
           03                          PIC X(40)   VALUE
               '0441218201410010100904412182015010101013'.
           03                          PIC X(40)   VALUE
               '0441218201701010101504412182018010101016'.
           03                          PIC X(40)   VALUE
               '0441220201410010095304412202015010100954'.
           03                          PIC X(40)   VALUE
               '0441220201701010095904412202018010100964'.
           03                          PIC X(40)   VALUE
               '0441228201410010099504412282015010101000'.
           03                          PIC X(40)   VALUE
               '0441228201701010099904412282018010100997'.
           03                          PIC X(40)   VALUE
               '0441231201410010100704412312015010101009'.
           03                          PIC X(40)   VALUE
               '0441231201701010100904412312018010101010'.
           03                          PIC X(40)   VALUE
               '0441299201410010096104412992015010100963'.
           03                          PIC X(40)   VALUE
               '0441299201701010096704412992018010100971'.
           03                          PIC X(40)   VALUE
               '0510200201410010094905102002015010100951'.
           03                          PIC X(40)   VALUE
               '0510200201701010095405102002018010100956'.
           03                          PIC X(40)   VALUE
               '0520200201410010095305202002015010100955'.
           03                          PIC X(40)   VALUE
               '0520200201701010095605202002018010100958'.
           03                          PIC X(40)   VALUE
               '0530201201410010098105302012015010100979'.
           03                          PIC X(40)   VALUE
               '0530201201701010098005302012018010100981'.
           03                          PIC X(40)   VALUE
               '0530202201410010097805302022015010100978'.
           03                          PIC X(40)   VALUE
               '0530202201701010098005302022018010100983'.
           03                          PIC X(40)   VALUE
               '0530299201410010093005302992015010100929'.
           03                          PIC X(40)   VALUE
               '0530299201701010093305302992018010100936'.
           03                          PIC X(40)   VALUE
               '0540200201410010095605402002015010100957'.
           03                          PIC X(40)   VALUE
               '0540200201701010095705402002018010100958'.
           03                          PIC X(40)   VALUE
               '0610212201410010097006102122015010100969'.
           03                          PIC X(40)   VALUE
               '0610212201701010097006102122018010100970'.
           03                          PIC X(40)   VALUE
               '0610215201410010104106102152015010101033'.
           03                          PIC X(40)   VALUE
               '0610215201701010103206102152018010101030'.
           03                          PIC X(40)   VALUE
               '0610216201410010103306102162015010101026'.
           03                          PIC X(40)   VALUE
               '0610216201701010102306102162018010101020'.
           03                          PIC X(40)   VALUE
               '0610299201410010095706102992015010100957'.
           03                          PIC X(40)   VALUE
               '0610299201701010096006102992018010100962'.
           03                          PIC X(40)   VALUE
               '0620200201410010100706202002015010101009'.
           03                          PIC X(40)   VALUE
               '0620200201701010100706202002018010101005'.
           03                          PIC X(40)   VALUE
               '0630200201410010098006302002015010100979'.
           03                          PIC X(40)   VALUE
               '0630200201701010097906302002018010100980'.
           03                          PIC X(40)   VALUE
               '0710213201410010093707102132015010100938'.
           03                          PIC X(40)   VALUE
               '0710213201701010093907102132018010100940'.
           03                          PIC X(40)   VALUE
               '0720201201410010099107202012015010100992'.
           03                          PIC X(40)   VALUE
               '0720201201701010098807202012018010100984'.
           03                          PIC X(40)   VALUE
               '0720299201410010094507202992015010100947'.
           03                          PIC X(40)   VALUE
               '0720299201701010094707202992018010100947'.
           03                          PIC X(40)   VALUE
               '0730200201410010093707302002015010100936'.
           03                          PIC X(40)   VALUE
               '0730200201701010093807302002018010100939'.
           03                          PIC X(40)   VALUE
               '0810200201410010096308102002015010100963'.
           03                          PIC X(40)   VALUE
               '0810200201701010096308102002018010100962'.
           03                          PIC X(40)   VALUE
               '0820201201410010101008202012015010100997'.
           03                          PIC X(40)   VALUE
               '0820201201701010099608202012018010100995'.
           03                          PIC X(40)   VALUE
               '0820299201410010096308202992015010100963'.
           03                          PIC X(40)   VALUE
               '0820299201701010096308202992018010100962'.
           03                          PIC X(40)   VALUE
               '0910203201410010101909102032015010101014'.
           03                          PIC X(40)   VALUE
               '0910203201701010101009102032018010101006'.
           03                          PIC X(40)   VALUE
               '0910204201410010102109102042015010101015'.
           03                          PIC X(40)   VALUE
               '0910204201701010101509102042018010101014'.
           03                          PIC X(40)   VALUE
               '0910299201410010098309102992015010100981'.
           03                          PIC X(40)   VALUE
               '0910299201701010097909102992018010100978'.
           03                          PIC X(40)   VALUE
               '0920220201410010085609202202015010100862'.
           03                          PIC X(40)   VALUE
               '0920220201701010093309202202018010101003'.
           03                          PIC X(40)   VALUE
               '0930250201410010100209302502015010100981'.
           03                          PIC X(40)   VALUE
               '0930250201701010100309302502018010101003'.
           03                          PIC X(40)   VALUE
               '1011200201410010094510112002015010100947'.
           03                          PIC X(40)   VALUE
               '1011200201701010094810112002018010100948'.
           03                          PIC X(40)   VALUE
               '1021201201410010100510212012015010101002'.
           03                          PIC X(40)   VALUE
               '1021201201701010100010212012018010100999'.
           03                          PIC X(40)   VALUE
               '1021299201410010095310212992015010100953'.
           03                          PIC X(40)   VALUE
               '1021299201701010095310212992018010100953'.
           03                          PIC X(40)   VALUE
               '1031235201410010095210312352015010100952'.
           03                          PIC X(40)   VALUE
               '1031235201701010095310312352018010100954'.
           03                          PIC X(40)   VALUE
               '1120201201410010095811202012015010100959'.
           03                          PIC X(40)   VALUE
               '1120201201701010095911202012018010100959'.
           03                          PIC X(40)   VALUE
               '1130200201410010099111302002015010100992'.
           03                          PIC X(40)   VALUE
               '1130200201701010099311302002018010100993'.
           03                          PIC X(40)   VALUE
               '1140216201410010092111402162015010100923'.
           03                          PIC X(40)   VALUE
               '1140216201701010092811402162018010100933'.
           03                          PIC X(40)   VALUE
               '1150200201410010096711502002015010100967'.
           03                          PIC X(40)   VALUE
               '1150200201701010096811502002018010100968'.
           03                          PIC X(40)   VALUE
               '1210201201410010102412102012015010101021'.
           03                          PIC X(40)   VALUE
               '1210201201701010101712102012018010101013'.
           03                          PIC X(40)   VALUE
               '1220201201410010112112202012015010101123'.
           03                          PIC X(40)   VALUE
               '1220201201701010112212202012018010101120'.
           03                          PIC X(40)   VALUE
               '1230201201410010105912302012015010101058'.
           03                          PIC X(40)   VALUE
               '1230201201701010105712302012018010101057'.
           03                          PIC X(40)   VALUE
               '1230299201410010102412302992015010101025'.
           03                          PIC X(40)   VALUE
               '1230299201701010102312302992018010101020'.
           03                          PIC X(40)   VALUE
               '1240201201410010110912402012015010101107'.
           03                          PIC X(40)   VALUE
               '1240201201701010110712402012018010101106'.
           03                          PIC X(40)   VALUE
               '1240299201410010107112402992015010101072'.
           03                          PIC X(40)   VALUE
               '1240299201701010107112402992018010101070'.
           03                          PIC X(40)   VALUE
               '1250201201410010104412502012015010101052'.
           03                          PIC X(40)   VALUE
               '1250201201701010105012502012018010101046'.
           03                          PIC X(40)   VALUE
               '1250299201410010096312502992015010100967'.
           03                          PIC X(40)   VALUE
               '1250299201701010096912502992018010100970'.
           03                          PIC X(40)   VALUE
               '1310200201410010106713102002015010101069'.
           03                          PIC X(40)   VALUE
               '1310200201701010106713102002018010101064'.
           03                          PIC X(40)   VALUE
               '1320201201410010110813202012015010101106'.
           03                          PIC X(40)   VALUE
               '1320201201701010110913202012018010101112'.
           03                          PIC X(40)   VALUE
               '1320202201410010112413202022015010101122'.
           03                          PIC X(40)   VALUE
               '1320202201701010112013202022018010101118'.
           03                          PIC X(40)   VALUE
               '1320203201410010103913202032015010101040'.
           03                          PIC X(40)   VALUE
               '1320203201701010104113202032018010101041'.
           03                          PIC X(40)   VALUE
               '1328299201410010097313282992015010100974'.
           03                          PIC X(40)   VALUE
               '1328299201701010097613282992018010100977'.
           03                          PIC X(40)   VALUE
               '1329204201410010112313292042015010101121'.
           03                          PIC X(40)   VALUE
               '1329204201701010112113292042018010101121'.
           03                          PIC X(40)   VALUE
               '1411203201410010100714112032015010101003'.
           03                          PIC X(40)   VALUE
               '1411203201701010100314112032018010101003'.
           03                          PIC X(40)   VALUE
               '1411299201410010095814112992015010100962'.
           03                          PIC X(40)   VALUE
               '1411299201701010096314112992018010100963'.
           03                          PIC X(40)   VALUE
               '1421201201410010108214212012015010101085'.
           03                          PIC X(40)   VALUE
               '1421201201701010109314212012018010101101'.
           03                          PIC X(40)   VALUE
               '1421299201410010103814212992015010101040'.
           03                          PIC X(40)   VALUE
               '1421299201701010104114212992018010101042'.
           03                          PIC X(40)   VALUE
               '1431240201410010102414312402015010101027'.
           03                          PIC X(40)   VALUE
               '1431240201701010102414312402018010101021'.
           03                          PIC X(40)   VALUE
               '1441201201410010103514412012015010101037'.
           03                          PIC X(40)   VALUE
               '1441201201701010103814412012018010101038'.
           03                          PIC X(40)   VALUE
               '1451250201410010100314512502015010101002'.
           03                          PIC X(40)   VALUE
               '1451250201701010100514512502018010101007'.
           03                          PIC X(40)   VALUE
               '1510200201410010094015102002015010100940'.
           03                          PIC X(40)   VALUE
               '1510200201701010094215102002018010100944'.
           03                          PIC X(40)   VALUE
               '1520200201410010096415202002015010100962'.
           03                          PIC X(40)   VALUE
               '1520200201701010096215202002018010100961'.
       01  W-GAF-TABLE REDEFINES W-GAF-FILLS.
           03  GAF-ENTRY OCCURS 404 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 +404.
