      *******************************************************
      *         GEOGRAPHIC ADJ FACTOR (GAF) COPYBOOK        *
      *            FOR FQHC PPS PRICER (COPYGAF)            *
      *-----------------------------------------------------*
      *  VERSION 2015.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
               '0111206201410010121001112062015010101216'.
           03                          PIC X(40)   VALUE
               '0111207201410010115201112072015010101154'.
           03                          PIC X(40)   VALUE
               '0111209201410010120401112092015010101209'.
           03                          PIC X(40)   VALUE
               '0111299201410010105301112992015010101053'.
           03                          PIC X(40)   VALUE
               '0118217201410010110501182172015010101100'.
           03                          PIC X(40)   VALUE
               '0118218201410010109601182182015010101100'.
           03                          PIC X(40)   VALUE
               '0118226201410010112301182262015010101120'.
           03                          PIC X(40)   VALUE
               '0118299201410010105301182992015010101053'.
           03                          PIC X(40)   VALUE
               '0121201201410010107501212012015010101077'.
           03                          PIC X(40)   VALUE
               '0131200201410010102601312002015010101027'.
           03                          PIC X(40)   VALUE
               '0210201201410010130702102012015010101316'.
           03                          PIC X(40)   VALUE
               '0220200201410010095102202002015010100952'.
           03                          PIC X(40)   VALUE
               '0230201201410010102502302012015010101026'.
           03                          PIC X(40)   VALUE
               '0230299201410010098402302992015010100985'.
           03                          PIC X(40)   VALUE
               '0240202201410010108402402022015010101086'.
           03                          PIC X(40)   VALUE
               '0240299201410010100702402992015010101007'.
           03                          PIC X(40)   VALUE
               '0310200201410010099503102002015010101000'.
           03                          PIC X(40)   VALUE
               '0320201201410010100003202012015010101000'.
           03                          PIC X(40)   VALUE
               '0330201201410010100003302012015010101000'.
           03                          PIC X(40)   VALUE
               '0340202201410010100003402022015010101000'.
           03                          PIC X(40)   VALUE
               '0350209201410010096203502092015010100963'.
           03                          PIC X(40)   VALUE
               '0360221201410010100003602212015010101000'.
           03                          PIC X(40)   VALUE
               '0411201201410010100404112012015010101005'.
           03                          PIC X(40)   VALUE
               '0421205201410010096204212052015010100962'.
           03                          PIC X(40)   VALUE
               '0431200201410010093604312002015010100940'.
           03                          PIC X(40)   VALUE
               '0441209201410010100204412092015010101005'.
           03                          PIC X(40)   VALUE
               '0441211201410010101404412112015010101014'.
           03                          PIC X(40)   VALUE
               '0441215201410010101004412152015010101016'.
           03                          PIC X(40)   VALUE
               '0441218201410010100904412182015010101013'.
           03                          PIC X(40)   VALUE
               '0441220201410010095304412202015010100954'.
           03                          PIC X(40)   VALUE
               '0441228201410010099504412282015010101000'.
           03                          PIC X(40)   VALUE
               '0441231201410010100704412312015010101009'.
           03                          PIC X(40)   VALUE
               '0441299201410010096104412992015010100963'.
           03                          PIC X(40)   VALUE
               '0510200201410010094905102002015010100951'.
           03                          PIC X(40)   VALUE
               '0520200201410010095305202002015010100955'.
           03                          PIC X(40)   VALUE
               '0530201201410010098105302012015010100979'.
           03                          PIC X(40)   VALUE
               '0530202201410010097805302022015010100978'.
           03                          PIC X(40)   VALUE
               '0530299201410010093005302992015010100929'.
           03                          PIC X(40)   VALUE
               '0540200201410010095605402002015010100957'.
           03                          PIC X(40)   VALUE
               '0610212201410010097006102122015010100969'.
           03                          PIC X(40)   VALUE
               '0610215201410010104106102152015010101033'.
           03                          PIC X(40)   VALUE
               '0610216201410010103306102162015010101026'.
           03                          PIC X(40)   VALUE
               '0610299201410010095706102992015010100957'.
           03                          PIC X(40)   VALUE
               '0620200201410010100706202002015010101009'.
           03                          PIC X(40)   VALUE
               '0630200201410010098006302002015010100979'.
           03                          PIC X(40)   VALUE
               '0710213201410010093707102132015010100938'.
           03                          PIC X(40)   VALUE
               '0720201201410010099107202012015010100992'.
           03                          PIC X(40)   VALUE
               '0720299201410010094507202992015010100947'.
           03                          PIC X(40)   VALUE
               '0730200201410010093707302002015010100936'.
           03                          PIC X(40)   VALUE
               '0810200201410010096308102002015010100963'.
           03                          PIC X(40)   VALUE
               '0820201201410010101008202012015010100997'.
           03                          PIC X(40)   VALUE
               '0820299201410010096308202992015010100963'.
           03                          PIC X(40)   VALUE
               '0910203201410010101909102032015010101014'.
           03                          PIC X(40)   VALUE
               '0910204201410010102109102042015010101015'.
           03                          PIC X(40)   VALUE
               '0910299201410010098309102992015010100981'.
           03                          PIC X(40)   VALUE
               '0920220201410010085609202202015010100862'.
           03                          PIC X(40)   VALUE
               '0920250201410010100209202502015010100981'.
           03                          PIC X(40)   VALUE
               '1010200201410010094510102002015010100947'.
           03                          PIC X(40)   VALUE
               '1020201201410010100510202012015010101002'.
           03                          PIC X(40)   VALUE
               '1020299201410010095310202992015010100953'.
           03                          PIC X(40)   VALUE
               '1030235201410010095210302352015010100952'.
           03                          PIC X(40)   VALUE
               '1120201201410010095811202012015010100959'.
           03                          PIC X(40)   VALUE
               '1130200201410010099111302002015010100992'.
           03                          PIC X(40)   VALUE
               '1140216201410010092111402162015010100923'.
           03                          PIC X(40)   VALUE
               '1150200201410010096711502002015010100967'.
           03                          PIC X(40)   VALUE
               '1210201201410010102412102012015010101021'.
           03                          PIC X(40)   VALUE
               '1220201201410010112112202012015010101123'.
           03                          PIC X(40)   VALUE
               '1230201201410010105912302012015010101058'.
           03                          PIC X(40)   VALUE
               '1230299201410010102412302992015010101025'.
           03                          PIC X(40)   VALUE
               '1240201201410010110912402012015010101107'.
           03                          PIC X(40)   VALUE
               '1240299201410010107112402992015010101072'.
           03                          PIC X(40)   VALUE
               '1250201201410010104412502012015010101052'.
           03                          PIC X(40)   VALUE
               '1250299201410010096312502992015010100967'.
           03                          PIC X(40)   VALUE
               '1310200201410010106713102002015010101069'.
           03                          PIC X(40)   VALUE
               '1320201201410010110813202012015010101106'.
           03                          PIC X(40)   VALUE
               '1320202201410010112413202022015010101122'.
           03                          PIC X(40)   VALUE
               '1320203201410010103913202032015010101040'.
           03                          PIC X(40)   VALUE
               '1328299201410010097313282992015010100974'.
           03                          PIC X(40)   VALUE
               '1329204201410010112313292042015010101121'.
           03                          PIC X(40)   VALUE
               '1411203201410010100714112032015010101003'.
           03                          PIC X(40)   VALUE
               '1411299201410010095814112992015010100962'.
           03                          PIC X(40)   VALUE
               '1421201201410010108214212012015010101085'.
           03                          PIC X(40)   VALUE
               '1421299201410010103814212992015010101040'.
           03                          PIC X(40)   VALUE
               '1431240201410010102414312402015010101027'.
           03                          PIC X(40)   VALUE
               '1441201201410010103514412012015010101037'.
           03                          PIC X(40)   VALUE
               '1451250201410010100314512502015010101002'.
           03                          PIC X(40)   VALUE
               '1510200201410010094015102002015010100940'.
           03                          PIC X(40)   VALUE
               '1520200201410010096415202002015010100962'.
       01  W-GAF-TABLE REDEFINES W-GAF-FILLS.
           03  GAF-ENTRY OCCURS 180 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 +180.
