      *******************************************************
      *         GEOGRAPHIC ADJ FACTOR (GAF) COPYBOOK        *
      *            FOR FQHC PPS PRICER (COPYGAF)            *
      *-----------------------------------------------------*
      *  VERSION 2019.2                                     *
      *  ADDED VI CARRIER/LOCALITY 09202/50 CYS 2017 - 2019 *
      *-----------------------------------------------------*
      *                                                     *
      *       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
               '0111205201901010119201112062014100101210'.
           03                          PIC X(40)   VALUE
               '0111206201501010121601112062017010101204'.
           03                          PIC X(40)   VALUE
               '0111206201801010119201112062019010101192'.
           03                          PIC X(40)   VALUE
               '0111207201410010115201112072015010101154'.
           03                          PIC X(40)   VALUE
               '0111207201701010117301112072018010101192'.
           03                          PIC X(40)   VALUE
               '0111207201901010119201112092014100101204'.
           03                          PIC X(40)   VALUE
               '0111209201501010120901112092017010101210'.
           03                          PIC X(40)   VALUE
               '0111209201801010121001112092019010101210'.
           03                          PIC X(40)   VALUE
               '0111251201701010115701112512018010101149'.
           03                          PIC X(40)   VALUE
               '0111251201901010114901112522017010101158'.
           03                          PIC X(40)   VALUE
               '0111252201801010116401112522019010101171'.
           03                          PIC X(40)   VALUE
               '0111253201701010115701112532018010101149'.
           03                          PIC X(40)   VALUE
               '0111253201901010114901112542017010101050'.
           03                          PIC X(40)   VALUE
               '0111254201801010104501112542019010101045'.
           03                          PIC X(40)   VALUE
               '0111255201701010105001112552018010101045'.
           03                          PIC X(40)   VALUE
               '0111255201901010104501112562017010101050'.
           03                          PIC X(40)   VALUE
               '0111256201801010104501112562019010101045'.
           03                          PIC X(40)   VALUE
               '0111257201701010105001112572018010101045'.
           03                          PIC X(40)   VALUE
               '0111257201901010104601112582017010101050'.
           03                          PIC X(40)   VALUE
               '0111258201801010104501112582019010101045'.
           03                          PIC X(40)   VALUE
               '0111259201701010105001112592018010101045'.
           03                          PIC X(40)   VALUE
               '0111259201901010104501112602017010101050'.
           03                          PIC X(40)   VALUE
               '0111260201801010104501112602019010101045'.
           03                          PIC X(40)   VALUE
               '0111261201701010105001112612018010101045'.
           03                          PIC X(40)   VALUE
               '0111261201901010104501112622017010101050'.
           03                          PIC X(40)   VALUE
               '0111262201801010104501112622019010101046'.
           03                          PIC X(40)   VALUE
               '0111263201701010105001112632018010101054'.
           03                          PIC X(40)   VALUE
               '0111263201901010105701112642017010101052'.
           03                          PIC X(40)   VALUE
               '0111264201801010105601112642019010101061'.
           03                          PIC X(40)   VALUE
               '0111265201701010107301112652018010101100'.
           03                          PIC X(40)   VALUE
               '0111265201901010112801112662017010101061'.
           03                          PIC X(40)   VALUE
               '0111266201801010107601112662019010101091'.
           03                          PIC X(40)   VALUE
               '0111267201701010105601112672018010101064'.
           03                          PIC X(40)   VALUE
               '0111267201901010107401112682017010101050'.
           03                          PIC X(40)   VALUE
               '0111268201801010104501112682019010101045'.
           03                          PIC X(40)   VALUE
               '0111269201701010105001112692018010101045'.
           03                          PIC X(40)   VALUE
               '0111269201901010104501112702017010101050'.
           03                          PIC X(40)   VALUE
               '0111270201801010104501112702019010101045'.
           03                          PIC X(40)   VALUE
               '0111275201701010105001112752018010101045'.
           03                          PIC X(40)   VALUE
               '0111275201901010104501112992014100101053'.
           03                          PIC X(40)   VALUE
               '0111299201501010105301182172014100101105'.
           03                          PIC X(40)   VALUE
               '0118217201501010110001182172017010101098'.
           03                          PIC X(40)   VALUE
               '0118217201801010109501182172019010101095'.
           03                          PIC X(40)   VALUE
               '0118218201410010109601182182015010101100'.
           03                          PIC X(40)   VALUE
               '0118218201701010110401182182018010101107'.
           03                          PIC X(40)   VALUE
               '0118218201901010110701182262014100101123'.
           03                          PIC X(40)   VALUE
               '0118226201501010112001182262017010101114'.
           03                          PIC X(40)   VALUE
               '0118226201801010110701182262019010101107'.
           03                          PIC X(40)   VALUE
               '0118271201701010105001182712018010101045'.
           03                          PIC X(40)   VALUE
               '0118271201901010104501182722017010101054'.
           03                          PIC X(40)   VALUE
               '0118272201801010105901182722019010101067'.
           03                          PIC X(40)   VALUE
               '0118273201701010105001182732018010101048'.
           03                          PIC X(40)   VALUE
               '0118273201901010105001182742017010101055'.
           03                          PIC X(40)   VALUE
               '0118274201801010106501182742019010101076'.
           03                          PIC X(40)   VALUE
               '0118299201410010105301182992015010101053'.
           03                          PIC X(40)   VALUE
               '0121201201410010107501212012015010101077'.
           03                          PIC X(40)   VALUE
               '0121201201701010107301212012018010101069'.
           03                          PIC X(40)   VALUE
               '0121201201901010106901312002014100101026'.
           03                          PIC X(40)   VALUE
               '0131200201501010102701312002017010101018'.
           03                          PIC X(40)   VALUE
               '0131200201801010100901312002019010101009'.
           03                          PIC X(40)   VALUE
               '0210201201410010130702102012015010101316'.
           03                          PIC X(40)   VALUE
               '0210201201701010131802102012018010101321'.
           03                          PIC X(40)   VALUE
               '0210201201901010132102202002014100100951'.
           03                          PIC X(40)   VALUE
               '0220200201501010095202202002017010100953'.
           03                          PIC X(40)   VALUE
               '0220200201801010095402202002019010100954'.
           03                          PIC X(40)   VALUE
               '0230201201410010102502302012015010101026'.
           03                          PIC X(40)   VALUE
               '0230201201701010102902302012018010101031'.
           03                          PIC X(40)   VALUE
               '0230201201901010103102302992014100100984'.
           03                          PIC X(40)   VALUE
               '0230299201501010098502302992017010100985'.
           03                          PIC X(40)   VALUE
               '0230299201801010098502302992019010100985'.
           03                          PIC X(40)   VALUE
               '0240202201410010108402402022015010101086'.
           03                          PIC X(40)   VALUE
               '0240202201701010108502402022018010101083'.
           03                          PIC X(40)   VALUE
               '0240202201901010108302402992014100101007'.
           03                          PIC X(40)   VALUE
               '0240299201501010100702402992017010101006'.
           03                          PIC X(40)   VALUE
               '0240299201801010100502402992019010101005'.
           03                          PIC X(40)   VALUE
               '0310200201410010099503102002015010101000'.
           03                          PIC X(40)   VALUE
               '0310200201701010099303102002018010100986'.
           03                          PIC X(40)   VALUE
               '0310200201901010098603202012014100101000'.
           03                          PIC X(40)   VALUE
               '0320201201501010100003202012017010101000'.
           03                          PIC X(40)   VALUE
               '0320201201801010100003202012019010101000'.
           03                          PIC X(40)   VALUE
               '0330201201410010100003302012015010101000'.
           03                          PIC X(40)   VALUE
               '0330201201701010100003302012018010101000'.
           03                          PIC X(40)   VALUE
               '0330201201901010100003402022014100101000'.
           03                          PIC X(40)   VALUE
               '0340202201501010100003402022017010101000'.
           03                          PIC X(40)   VALUE
               '0340202201801010100003402022019010101000'.
           03                          PIC X(40)   VALUE
               '0350209201410010096203502092015010100963'.
           03                          PIC X(40)   VALUE
               '0350209201701010096503502092018010100966'.
           03                          PIC X(40)   VALUE
               '0350209201901010096603602212014100101000'.
           03                          PIC X(40)   VALUE
               '0360221201501010100003602212017010101000'.
           03                          PIC X(40)   VALUE
               '0360221201801010100003602212019010101000'.
           03                          PIC X(40)   VALUE
               '0411201201410010100404112012015010101005'.
           03                          PIC X(40)   VALUE
               '0411201201701010100704112012018010101008'.
           03                          PIC X(40)   VALUE
               '0411201201901010100804212052014100100962'.
           03                          PIC X(40)   VALUE
               '0421205201501010096204212052017010100963'.
           03                          PIC X(40)   VALUE
               '0421205201801010096304212052019010100963'.
           03                          PIC X(40)   VALUE
               '0431200201410010093604312002015010100940'.
           03                          PIC X(40)   VALUE
               '0431200201701010094504312002018010100949'.
           03                          PIC X(40)   VALUE
               '0431200201901010094904412092014100101002'.
           03                          PIC X(40)   VALUE
               '0441209201501010100504412092017010101008'.
           03                          PIC X(40)   VALUE
               '0441209201801010100904412092019010101009'.
           03                          PIC X(40)   VALUE
               '0441211201410010101404412112015010101014'.
           03                          PIC X(40)   VALUE
               '0441211201701010101404412112018010101013'.
           03                          PIC X(40)   VALUE
               '0441211201901010101304412152014100101010'.
           03                          PIC X(40)   VALUE
               '0441215201501010101604412152017010101016'.
           03                          PIC X(40)   VALUE
               '0441215201801010101604412152019010101016'.
           03                          PIC X(40)   VALUE
               '0441218201410010100904412182015010101013'.
           03                          PIC X(40)   VALUE
               '0441218201701010101504412182018010101016'.
           03                          PIC X(40)   VALUE
               '0441218201901010101604412202014100100953'.
           03                          PIC X(40)   VALUE
               '0441220201501010095404412202017010100959'.
           03                          PIC X(40)   VALUE
               '0441220201801010096404412202019010100964'.
           03                          PIC X(40)   VALUE
               '0441228201410010099504412282015010101000'.
           03                          PIC X(40)   VALUE
               '0441228201701010099904412282018010100997'.
           03                          PIC X(40)   VALUE
               '0441228201901010099704412312014100101007'.
           03                          PIC X(40)   VALUE
               '0441231201501010100904412312017010101009'.
           03                          PIC X(40)   VALUE
               '0441231201801010101004412312019010101010'.
           03                          PIC X(40)   VALUE
               '0441299201410010096104412992015010100963'.
           03                          PIC X(40)   VALUE
               '0441299201701010096704412992018010100971'.
           03                          PIC X(40)   VALUE
               '0441299201901010097105102002014100100949'.
           03                          PIC X(40)   VALUE
               '0510200201501010095105102002017010100954'.
           03                          PIC X(40)   VALUE
               '0510200201801010095605102002019010100956'.
           03                          PIC X(40)   VALUE
               '0520200201410010095305202002015010100955'.
           03                          PIC X(40)   VALUE
               '0520200201701010095605202002018010100958'.
           03                          PIC X(40)   VALUE
               '0520200201901010095805302012014100100981'.
           03                          PIC X(40)   VALUE
               '0530201201501010097905302012017010100980'.
           03                          PIC X(40)   VALUE
               '0530201201801010098105302012019010100981'.
           03                          PIC X(40)   VALUE
               '0530202201410010097805302022015010100978'.
           03                          PIC X(40)   VALUE
               '0530202201701010098005302022018010100983'.
           03                          PIC X(40)   VALUE
               '0530202201901010098305302992014100100930'.
           03                          PIC X(40)   VALUE
               '0530299201501010092905302992017010100933'.
           03                          PIC X(40)   VALUE
               '0530299201801010093605302992019010100936'.
           03                          PIC X(40)   VALUE
               '0540200201410010095605402002015010100957'.
           03                          PIC X(40)   VALUE
               '0540200201701010095705402002018010100958'.
           03                          PIC X(40)   VALUE
               '0540200201901010095806102122014100100970'.
           03                          PIC X(40)   VALUE
               '0610212201501010096906102122017010100970'.
           03                          PIC X(40)   VALUE
               '0610212201801010097006102122019010100970'.
           03                          PIC X(40)   VALUE
               '0610215201410010104106102152015010101033'.
           03                          PIC X(40)   VALUE
               '0610215201701010103206102152018010101030'.
           03                          PIC X(40)   VALUE
               '0610215201901010103006102162014100101033'.
           03                          PIC X(40)   VALUE
               '0610216201501010102606102162017010101023'.
           03                          PIC X(40)   VALUE
               '0610216201801010102006102162019010101020'.
           03                          PIC X(40)   VALUE
               '0610299201410010095706102992015010100957'.
           03                          PIC X(40)   VALUE
               '0610299201701010096006102992018010100962'.
           03                          PIC X(40)   VALUE
               '0610299201901010096206202002014100101007'.
           03                          PIC X(40)   VALUE
               '0620200201501010100906202002017010101007'.
           03                          PIC X(40)   VALUE
               '0620200201801010100506202002019010101005'.
           03                          PIC X(40)   VALUE
               '0630200201410010098006302002015010100979'.
           03                          PIC X(40)   VALUE
               '0630200201701010097906302002018010100980'.
           03                          PIC X(40)   VALUE
               '0630200201901010098007102132014100100937'.
           03                          PIC X(40)   VALUE
               '0710213201501010093807102132017010100939'.
           03                          PIC X(40)   VALUE
               '0710213201801010094007102132019010100940'.
           03                          PIC X(40)   VALUE
               '0720201201410010099107202012015010100992'.
           03                          PIC X(40)   VALUE
               '0720201201701010098807202012018010100984'.
           03                          PIC X(40)   VALUE
               '0720201201901010098407202992014100100945'.
           03                          PIC X(40)   VALUE
               '0720299201501010094707202992017010100947'.
           03                          PIC X(40)   VALUE
               '0720299201801010094707202992019010100947'.
           03                          PIC X(40)   VALUE
               '0730200201410010093707302002015010100936'.
           03                          PIC X(40)   VALUE
               '0730200201701010093807302002018010100939'.
           03                          PIC X(40)   VALUE
               '0730200201901010093908102002014100100963'.
           03                          PIC X(40)   VALUE
               '0810200201501010096308102002017010100963'.
           03                          PIC X(40)   VALUE
               '0810200201801010096208102002019010100962'.
           03                          PIC X(40)   VALUE
               '0820201201410010101008202012015010100997'.
           03                          PIC X(40)   VALUE
               '0820201201701010099608202012018010100995'.
           03                          PIC X(40)   VALUE
               '0820201201901010099508202992014100100963'.
           03                          PIC X(40)   VALUE
               '0820299201501010096308202992017010100963'.
           03                          PIC X(40)   VALUE
               '0820299201801010096208202992019010100962'.
           03                          PIC X(40)   VALUE
               '0910203201410010101909102032015010101014'.
           03                          PIC X(40)   VALUE
               '0910203201701010101009102032018010101006'.
           03                          PIC X(40)   VALUE
               '0910203201901010100609102042014100101021'.
           03                          PIC X(40)   VALUE
               '0910204201501010101509102042017010101015'.
           03                          PIC X(40)   VALUE
               '0910204201801010101409102042019010101014'.
           03                          PIC X(40)   VALUE
               '0910299201410010098309102992015010100981'.
           03                          PIC X(40)   VALUE
               '0910299201701010097909102992018010100978'.
           03                          PIC X(40)   VALUE
               '0910299201901010097809202202014100100856'.
           03                          PIC X(40)   VALUE
               '0920220201501010086209202202017010100933'.
           03                          PIC X(40)   VALUE
               '0920220201801010100309202202019010101003'.
           03                          PIC X(40)   VALUE
               '0920250201701010100309202502018010101003'.
           03                          PIC X(40)   VALUE
               '0920250201901010100309302502014100101002'.
           03                          PIC X(40)   VALUE
               '0930250201501010098109302502017010101003'.
           03                          PIC X(40)   VALUE
               '0930250201801010100309302502019010101003'.
           03                          PIC X(40)   VALUE
               '1011200201410010094510112002015010100947'.
           03                          PIC X(40)   VALUE
               '1011200201701010094810112002018010100948'.
           03                          PIC X(40)   VALUE
               '1011200201901010094810212012014100101005'.
           03                          PIC X(40)   VALUE
               '1021201201501010100210212012017010101000'.
           03                          PIC X(40)   VALUE
               '1021201201801010099910212012019010100999'.
           03                          PIC X(40)   VALUE
               '1021299201410010095310212992015010100953'.
           03                          PIC X(40)   VALUE
               '1021299201701010095310212992018010100953'.
           03                          PIC X(40)   VALUE
               '1021299201901010095310312352014100100952'.
           03                          PIC X(40)   VALUE
               '1031235201501010095210312352017010100953'.
           03                          PIC X(40)   VALUE
               '1031235201801010095410312352019010100954'.
           03                          PIC X(40)   VALUE
               '1120201201410010095811202012015010100959'.
           03                          PIC X(40)   VALUE
               '1120201201701010095911202012018010100959'.
           03                          PIC X(40)   VALUE
               '1120201201901010095911302002014100100991'.
           03                          PIC X(40)   VALUE
               '1130200201501010099211302002017010100993'.
           03                          PIC X(40)   VALUE
               '1130200201801010099311302002019010100993'.
           03                          PIC X(40)   VALUE
               '1140216201410010092111402162015010100923'.
           03                          PIC X(40)   VALUE
               '1140216201701010092811402162018010100933'.
           03                          PIC X(40)   VALUE
               '1140216201901010093311502002014100100967'.
           03                          PIC X(40)   VALUE
               '1150200201501010096711502002017010100968'.
           03                          PIC X(40)   VALUE
               '1150200201801010096811502002019010100968'.
           03                          PIC X(40)   VALUE
               '1210201201410010102412102012015010101021'.
           03                          PIC X(40)   VALUE
               '1210201201701010101712102012018010101013'.
           03                          PIC X(40)   VALUE
               '1210201201901010101312202012014100101121'.
           03                          PIC X(40)   VALUE
               '1220201201501010112312202012017010101122'.
           03                          PIC X(40)   VALUE
               '1220201201801010112012202012019010101120'.
           03                          PIC X(40)   VALUE
               '1230201201410010105912302012015010101058'.
           03                          PIC X(40)   VALUE
               '1230201201701010105712302012018010101057'.
           03                          PIC X(40)   VALUE
               '1230201201901010105712302992014100101024'.
           03                          PIC X(40)   VALUE
               '1230299201501010102512302992017010101023'.
           03                          PIC X(40)   VALUE
               '1230299201801010102012302992019010101020'.
           03                          PIC X(40)   VALUE
               '1240201201410010110912402012015010101107'.
           03                          PIC X(40)   VALUE
               '1240201201701010110712402012018010101106'.
           03                          PIC X(40)   VALUE
               '1240201201901010110612402992014100101071'.
           03                          PIC X(40)   VALUE
               '1240299201501010107212402992017010101071'.
           03                          PIC X(40)   VALUE
               '1240299201801010107012402992019010101070'.
           03                          PIC X(40)   VALUE
               '1250201201410010104412502012015010101052'.
           03                          PIC X(40)   VALUE
               '1250201201701010105012502012018010101046'.
           03                          PIC X(40)   VALUE
               '1250201201901010104612502992014100100963'.
           03                          PIC X(40)   VALUE
               '1250299201501010096712502992017010100969'.
           03                          PIC X(40)   VALUE
               '1250299201801010097012502992019010100970'.
           03                          PIC X(40)   VALUE
               '1310200201410010106713102002015010101069'.
           03                          PIC X(40)   VALUE
               '1310200201701010106713102002018010101064'.
           03                          PIC X(40)   VALUE
               '1310200201901010106413202012014100101108'.
           03                          PIC X(40)   VALUE
               '1320201201501010110613202012017010101109'.
           03                          PIC X(40)   VALUE
               '1320201201801010111213202012019010101112'.
           03                          PIC X(40)   VALUE
               '1320202201410010112413202022015010101122'.
           03                          PIC X(40)   VALUE
               '1320202201701010112013202022018010101118'.
           03                          PIC X(40)   VALUE
               '1320202201901010111813202032014100101039'.
           03                          PIC X(40)   VALUE
               '1320203201501010104013202032017010101041'.
           03                          PIC X(40)   VALUE
               '1320203201801010104113202032019010101041'.
           03                          PIC X(40)   VALUE
               '1328299201410010097313282992015010100974'.
           03                          PIC X(40)   VALUE
               '1328299201701010097613282992018010100977'.
           03                          PIC X(40)   VALUE
               '1328299201901010097713292042014100101123'.
           03                          PIC X(40)   VALUE
               '1329204201501010112113292042017010101121'.
           03                          PIC X(40)   VALUE
               '1329204201801010112113292042019010101121'.
           03                          PIC X(40)   VALUE
               '1411203201410010100714112032015010101003'.
           03                          PIC X(40)   VALUE
               '1411203201701010100314112032018010101003'.
           03                          PIC X(40)   VALUE
               '1411203201901010100314112992014100100958'.
           03                          PIC X(40)   VALUE
               '1411299201501010096214112992017010100963'.
           03                          PIC X(40)   VALUE
               '1411299201801010096314112992019010100963'.
           03                          PIC X(40)   VALUE
               '1421201201410010108214212012015010101085'.
           03                          PIC X(40)   VALUE
               '1421201201701010109314212012018010101101'.
           03                          PIC X(40)   VALUE
               '1421201201901010110114212992014100101038'.
           03                          PIC X(40)   VALUE
               '1421299201501010104014212992017010101041'.
           03                          PIC X(40)   VALUE
               '1421299201801010104214212992019010101042'.
           03                          PIC X(40)   VALUE
               '1431240201410010102414312402015010101027'.
           03                          PIC X(40)   VALUE
               '1431240201701010102414312402018010101021'.
           03                          PIC X(40)   VALUE
               '1431240201901010102114412012014100101035'.
           03                          PIC X(40)   VALUE
               '1441201201501010103714412012017010101038'.
           03                          PIC X(40)   VALUE
               '1441201201801010103814412012019010101038'.
           03                          PIC X(40)   VALUE
               '1451250201410010100314512502015010101002'.
           03                          PIC X(40)   VALUE
               '1451250201701010100514512502018010101007'.
           03                          PIC X(40)   VALUE
               '1451250201901010100715102002014100100940'.
           03                          PIC X(40)   VALUE
               '1510200201501010094015102002017010100942'.
           03                          PIC X(40)   VALUE
               '1510200201801010094415102002019010100944'.
           03                          PIC X(40)   VALUE
               '1520200201410010096415202002015010100962'.
           03                          PIC X(40)   VALUE
               '1520200201701010096215202002018010100961'.
           03                          PIC X(20)   VALUE
               '15202002019010100961'.
       01  W-GAF-TABLE REDEFINES W-GAF-FILLS.
           03  GAF-ENTRY OCCURS 519 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 +519.
