000100 IDENTIFICATION DIVISION.                                         00010000
000200 PROGRAM-ID.    HHDRV181.                                         00020000
000300 DATE-COMPILED.                                                   00030000
000400******************************************************************00040000
000500*                        CMS                                     *00050000
000600******************************************************************00060000
000700* LUPA = LOW UTILIZATION PAYMENT ADJUSTMENT                      *00070000
000800******************************************************************00080000
000900*REMARKS.                                                         00090000
001000*     HHDRV040   NATIONAL HHA FOR OCT 1, 2003                     00100000
001100*                LOADS ALL FILES                                  00110000
001200*                     HRG , REVENUE , MSA TABLES                  00120000
001300*                MSA = ML00.@DBA2652.WIPREREC.#020709.M2          00130000
001400*                      APPLYING FY 2003 INDEX IN FY 2004          00140000
001500*                      FY 2003 WAGE INDEX                         00150000
001600*                      PRE-RECLASSIED AND PRE-FLOOR               00160000
001700*     HHDRV041 NEW RATES APR 1, 2004                              00170000
001800*     HHDRV050 NEW RATES JAN 1, 2005                              00180000
001900*              MSA = ML00.@DBA2652.WI2005.PFPREC.#041030.SCR401U  00190000
002000*                    APPLYING CY 2005                             00200000
002100*                    CY 2005 WAGE INDEX                           00210000
002200*                    PRE-RECLASSIED AND PRE-FLOOR                 00220000
002300*     HHDRV060 NEW RATES JAN 1, 2006                              00230000
002400*             CBSA = ML00.@DBA2652.WI06.CBSA.#050301.SNF-STANLY   00240000
002500*                    APPLYING CY 2006                             00250000
002600*                    CY 2006 WAGE INDEX                           00260000
002700*                    PRE-RECLASSIED AND PRE-FLOOR                 00270000
002800*     HHDRV061 NEW RATES JAN 1, 2006                              00280000
002900*              CY 2006 WAGE INDEX                                 00290000
003000*              PRE-RECLASSIED AND PRE-FLOOR RURAL DIFFERENTIAL    00300000
003100*     HHDRV062 ADDED RURAL DIFFERENTIAL LOGIC FOR SPECIFIC CBSA   00310000
003200*              CODES, INITIALIZE THE TABLES BEFORE LOADING        00320000
003300*     HHDRV063 CICS VERSION JUL 1, 2006                           00330000
003400*     HHDRV070 CICS VERSION JAN 1, 2007                           00340000
003500*     HHDRV071 CICS VERSION JAN 1, 2007 CORRECT LUPA RATE         00350000
003600*              CORRECT LUPA RATE DETERMINATION IF LOGIC           00360000
003700*     HHDRV083 CICS VERSION JAN 1, 2008 CORRECT LUPA RATE         00370000
003800*              CORRECT LUPA RATE DETERMINATION IF LOGIC           00380000
003900*     HHDRV084 KEEP LUPA HIPPS CODES FROM RE-CODING AND           00390000
004000*              CORRECT  HIPPS RECODE LOGIC                        00400000
004100*     HHDRV090 KEEP LUPA HIPPS CODES FROM RE-CODING AND           00410000
004200*              CORRECT  HIPPS RECODE LOGIC                        00420000
004300*     HHDRV091 LUPA PAYMNT ZERO FOR ZERO REV VISITS               00430000
004400*     HHDRV092 HIPPS CODE RECODING FOR 5 IN POS 1                 00440000
004500*     HHDRV100 EXPAND BILLING RECORD TO 500 BYTES - BETA VERSION  00450000
004600*     HHDRV152 CY 2015.2 UPDATE                                   00460000
004700*     HHDRV160 CY 2016.0 UPDATE                                   00470000
004800*              ADDED 2016 UPDATE IN  **RECODING LOGIC **          00480000
004900*     HHDRV161 CY 2016.1 UPDATE                                   00490000
005000*              THIS RELEASE CORRECTS LOGIC THAT WAS INCORRECTLY   00500000
005100*              RECODING CLAIMS WHEN THE PROVIDER-SUBMITTED        00510000
005200*              HIPPS CODES BEGINS WITH 5 OR WHEN 20 OR MORE       00520000
005300*              THERAPY VISITS ARE PROVIDED AND THE                00530000
005400*              PROVIDER-SUBMITTED CODE IS RECODED TO A            00540000
005500*              HIPPS CODE BEGINNING WITH 5.                       00550000
005600*     HHDRV170 CY 2017.0 UPDATE                                   00560000
005610*     HHDRV180 CY 2018.0 UPDATE                                   00561000
005620*     HHDRV181 CY 2018.1 UPDATE                                   00562000
005630*                                                                 00563000
005640***************************************************************   00564000
005650*     RETURN CODES                                                00565000
005660*          00 = FINAL PAYMENT                                     00566000
005670*               TOB = 329,339,327,337                             00567000
005680*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00568000
005690*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00569000
005700*                  OR 32F OR 32K OR 32P OR 32H                    00570000
005800*                  OR 33F OR 33K OR 33P OR 33H                    00580000
005900*               WITH HRG,REVENUE CODE WHERE NO OUTLIER APPLIES    00590000
006000*          01 = FINAL PAYMENT                                     00600000
006100*               TOB = 329,339,327,337                             00610000
006200*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00620000
006300*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00630000
006400*                  OR 32F OR 32K OR 32P OR 32H                    00640000
006500*                  OR 33F OR 33K OR 33P OR 33H                    00650000
006600*               WITH HRG,REVENUE CODE WHERE OUTLIER APPLIES       00660000
006700*          03 = INITIAL HALF PAYMENT PAYMENT WILL BE ZERO         00670000
006800*               TOB = 332 AND 322                                 00680000
006900*          04 = INITIAL HALF PAYMENT PAID AT 50%                  00690000
007000*               TOB = 332 AND 322                                 00700000
007100*               WITH INITIAL (FIRST) HRG AND NO REVENUE CODES     00710000
007200*          05 = INITIAL HALF PAYMENT PAID AT 60%                  00720000
007300*               TOB = 332 AND 322                                 00730000
007400*               WITH INITIAL (FIRST) HRG AND NO REVENUE CODES     00740000
007500*          06 = LUPA PAYMENT ONLY                                 00750000
007600*               TOB = 329,339,327,337                             00760000
007700*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00770000
007800*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00780000
007900*                  OR 32F OR 32K OR 32P OR 32H                    00790000
008000*                  OR 33F OR 33K OR 33P OR 33H                    00800000
008100*               WITH REVENUE CODES AND REVENUE QTYS < 5       *   00810000
008200******************************************************************00820000
008300**  RTC CODES 07,08,09,11,12,13 EFFECTIVE 10/01/2002          ****00830000
008400******************************************************************00840000
008500******************************************************************00850000
008600*          07 = FINAL PAYMENT, SCIC, PEP = N, NO OUTLIER          00860000
008700*               TOB = 329,339,327,337                             00870000
008800*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00880000
008900*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00890000
009000*                  OR 32F OR 32K OR 32P OR 32H                    00900000
009100*                  OR 33F OR 33K OR 33P OR 33H                    00910000
009200*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        00920000
009300*               WITH MORE THAN ONE HRG OCCURRENCE             *   00930000
009400*          08 = FINAL PAYMENT, SCIC, PEP = N, WITH OUTLIER        00940000
009500*               TOB = 329,339,327,337                             00950000
009600*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00960000
009700*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00970000
009800*                  OR 32F OR 32K OR 32P OR 32H                    00980000
009900*                  OR 33F OR 33K OR 33P OR 33H                    00990000
010000*               WITH REVENUE CODE WHERE OUTLIER APPLIES           01000000
010100*               WITH MORE THAN ONE HRG OCCURRENCE             *   01010000
010200******************************************************************01020000
010300*          09 = FINAL PAYMENT, PEP = Y, NO OUTLIER                01030000
010400*               TOB = 329,339,327,337                             01040000
010500*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             01050000
010600*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             01060000
010700*                  OR 32F OR 32K OR 32P OR 32H                    01070000
010800*                  OR 33F OR 33K OR 33P OR 33H                    01080000
010900*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        01090000
011000*               WITH ONE HRG OCCURRENCE                       *   01100000
011100*          11 = FINAL PAYMENT, PEP = Y, WITH OUTLIER              01110000
011200*               TOB = 329,339,327,337                             01120000
011300*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             01130000
011400*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             01140000
011500*                  OR 32F OR 32K OR 32P OR 32H                    01150000
011600*                  OR 33F OR 33K OR 33P OR 33H                    01160000
011700*               WITH REVENUE CODE WHERE OUTLIER APPLIES           01170000
011800*               WITH ONE HRG OCCURRENCE                       *   01180000
011900******************************************************************01190000
012000*          12 = FINAL PAYMENT, SCIC, PEP = Y, NO OUTLIER          01200000
012100*               TOB = 329,339,327,337                             01210000
012200*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             01220000
012300*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             01230000
012400*                  OR 32F OR 32K OR 32P OR 32H                    01240000
012500*                  OR 33F OR 33K OR 33P OR 33H                    01250000
012600*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        01260000
012700*               WITH MORE THAN ONE HRG OCCURRENCE             *   01270000
012800*          13 = FINAL PAYMENT, SCIC, PEP = Y, WITH OUTLIER        01280000
012900*               TOB = 329,339,327,337                             01290000
013000*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             01300000
013100*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             01310000
013200*                  OR 32F OR 32K OR 32P OR 32H                    01320000
013300*                  OR 33F OR 33K OR 33P OR 33H                    01330000
013400*               WITH REVENUE CODE WHERE OUTLIER APPLIES           01340000
013500*               WITH MORE THAN ONE HRG OCCURRENCE             *   01350000
013600******************************************************************01360000
013700******************************************************************01370000
013800******************************************************************01380000
013900******************************************************************01390000
014000*                                                             *   01400000
014100*            HHA-RTC   NO PAYMENTS RETURNED                   *   01410000
014200*                                                             *   01420000
014300*              10 = INVALID TOB                               *   01430000
014400*                                                             *   01440000
014500*              15 = INVALID PEP DAYS                          *   01450000
014600*                   FOR SHORTENED EPISODE                     *   01460000
014700*                                                             *   01470000
014800*              20 = INVALID PEP INDICATOR                     *   01480000
014900*                                                             *   01490000
015000*              25 = INVALID MED REVIEW INDICATOR              *   01500000
015100*                                                             *   01510000
015200*              30 = INVALID MSA CODE                          *   01520000
015300*                                                             *   01530000
015400*              35 = INVALID INITIAL PAYMENT INDICATOR         *   01540000
015500*                        0 = MAKE NORMAL INITIAL PAYMENT      *   01550000
015600*                        1 = MAKE ZERO PAYMANT                *   01560000
015700*                                                             *   01570000
015800*              40 = FROM DATE  < OCT 1, 2000 OR INVALID       *   01580000
015900*                   THRU DATE  < OCT 1, 2000 OR INVALID       *   01590000
016000*                   ADMIT DATE < OCT 1, 2000 OR INVALID       *   01600000
016100*                                                             *   01610000
016200*              70 = INVALID OR NO HRG CODE PRESENT            *   01620000
016300*                                                             *   01630000
016400*              75 = NO HRG PRESENT IN FIRST OCCURANCE AND     *   01640000
016500*                   REVENUE-QTY-COV-VISITS > 4  AND           *   01650000
016600*                       TOB = 329,339,327,337                 *   01660000
016700*                          OR 32G OR 33G OR 32I OR 33I OR 32Q *   01670000
016800*                          OR 32J OR 33J OR 32M OR 33M OR 33Q *   01680000
016900*                          OR 32F OR 32K OR 32P OR 32H            01690000
017000*                          OR 33F OR 33K OR 33P OR 33H            01700000
017100*                                                             *   01710000
017200*              80 = INVALID REVENUE CODE                      *   01720000
017300*                                                             *   01730000
017400*              85 = NO REVENUE CODE PRESENT                   *   01740000
017500*                   WITH TOB 329 OR 339 OR 327 OR 337 OR 32Q  *   01750000
017600*                         OR 32G OR 33G OR 32I OR 33I OR 33Q  *   01760000
017700*                         OR 32J OR 33J OR 32M OR 33M         *   01770000
017800*                         OR 32F OR 32K OR 32P OR 32H             01780000
017900*                         OR 33F OR 33K OR 33P OR 33H             01790000
018000*                                                             *   01800000
018100***************************************************************   01810000
018200******************************************************************01820000
018300                                                                  01830000
018400 ENVIRONMENT                     DIVISION.                        01840000
018500 CONFIGURATION                   SECTION.                         01850000
018600 SOURCE-COMPUTER.                IBM-370.                         01860000
018700 OBJECT-COMPUTER.                IBM-370.                         01870000
018800                                                                  01880000
018900 INPUT-OUTPUT SECTION.                                            01890000
019000 FILE-CONTROL.                                                    01900000
019100                                                                  01910000
019200 DATA DIVISION.                                                   01920000
019300 FILE SECTION.                                                    01930000
019400 WORKING-STORAGE SECTION.                                         01940000
019500 77  W-STORAGE-REF               PIC X(49)  VALUE                 01950000
019600     'HHA D R I V E R   - W O R K I N G   S T O R A G E'.         01960000
019700 01  DRV-VERSION                 PIC X(07)  VALUE 'D2018.1'.      01970000
019800 01  HHCAL016                    PIC X(08)  VALUE 'HHCAL016'.     01980000
019900 01  HHCAL023                    PIC X(08)  VALUE 'HHCAL023'.     01990000
020000 01  HHCAL033                    PIC X(08)  VALUE 'HHCAL033'.     02000000
020100 01  HHCAL044                    PIC X(08)  VALUE 'HHCAL044'.     02010000
020200 01  HHCAL053                    PIC X(08)  VALUE 'HHCAL053'.     02020000
020300 01  HHCAL066                    PIC X(08)  VALUE 'HHCAL066'.     02030000
020400 01  HHCAL074                    PIC X(08)  VALUE 'HHCAL074'.     02040000
020500 01  HHCAL088                    PIC X(08)  VALUE 'HHCAL088'.     02050000
020600 01  HHCAL095                    PIC X(08)  VALUE 'HHCAL095'.     02060000
020700 01  HHCAL10D                    PIC X(08)  VALUE 'HHCAL10D'.     02070000
020800 01  HHCAL10A                    PIC X(08)  VALUE 'HHCAL10A'.     02080000
020900 01  HHCAL113                    PIC X(08)  VALUE 'HHCAL113'.     02090000
021000 01  HHCAL122                    PIC X(08)  VALUE 'HHCAL122'.     02100000
021100 01  HHCAL132                    PIC X(08)  VALUE 'HHCAL132'.     02110000
021200 01  HHCAL145                    PIC X(08)  VALUE 'HHCAL145'.     02120000
021300 01  HHCAL152                    PIC X(08)  VALUE 'HHCAL152'.     02130000
021400 01  HHCAL160                    PIC X(08)  VALUE 'HHCAL160'.     02140000
021500 01  HHCAL171                    PIC X(08)  VALUE 'HHCAL171'.     02150000
021600 01  HHCAL181                    PIC X(08)  VALUE 'HHCAL181'.     02160000
021700 01  SUB1                        PIC 9(03)  VALUE 0.              02170000
021800 01  EOF-SW                      PIC 9(01)  VALUE 0.              02180000
021900 01  EOF-MSA                     PIC 9(01)  VALUE 0.              02190000
022000 01  EOF-CBSA                    PIC 9(01)  VALUE 0.              02200000
022100 01  EOF-HRG                     PIC 9(01)  VALUE 0.              02210000
022200 01  SEARCH-HRG.                                                  02220000
022300     05  SEARCH-HRG1             PIC X(01).                       02230000
022400     05  SEARCH-HRG2             PIC X(01).                       02240000
022500     05  SEARCH-HRG3             PIC X(01).                       02250000
022600     05  SEARCH-HRG4             PIC X(01).                       02260000
022700     05  SEARCH-HRG5             PIC X(01).                       02270000
022800 01  WORK-ORIG-HRG.                                               02280000
022900     05  WORK-ORIG-HRG1          PIC X(01).                       02290000
023000     05  WORK-ORIG-HRG2          PIC X(01).                       02300000
023100     05  WORK-ORIG-HRG3          PIC X(01).                       02310000
023200     05  WORK-ORIG-HRG4          PIC X(01).                       02320000
023300     05  WORK-ORIG-HRG5          PIC X(01).                       02330000
023400 01  WORK-HRG.                                                    02340000
023500     05  WORK-HRG1               PIC X(01).                       02350000
023600     05  WORK-HRG2               PIC X(01).                       02360000
023700     05  WORK-HRG3               PIC X(01).                       02370000
023800     05  WORK-HRG4               PIC X(01).                       02380000
023900     05  WORK-HRG5               PIC X(01).                       02390000
024000 01  EOF-REV                     PIC 9(01)  VALUE 0.              02400000
024100 01  LOAD-TABLES-SW              PIC 9(01)  VALUE 0.              02410000
024200 01  TABLES-LOADED-SW            PIC 9(01)  VALUE 0.              02420000
024300 01  HRG-RECODE-SW               PIC 9(01)  VALUE 0.              02430000
024400 01  HRG-KEEP5-SW1               PIC 9(01)  VALUE 0.              02440000
024500 01  HRG-CT                      PIC 9(10)  VALUE 0.              02450000
024600 01  TB-REV-DOLL-RATE-UNITS.                                      02460000
024700     05  WK-REV-DOLL-RATE-UNITS  PIC 9(07)V9(02)                  02470000
024800                                 OCCURS 6.                        02480000
024900 01  TB-STDV-DATA.                                                02490000
025000     05 TB-STDV-TABLE           OCCURS 6.                         02500000
025100        10  TB-STDV-REV-CODE           PIC X(04).                 02510000
025200        10  TB-STDV-REV-DOLL-RATE      PIC 9(07)V9(02).           02520000
025300 01  SUBSCRIPTS.                                                  02530000
025400     05  SS-REV                  PIC 9      VALUE 0.              02540000
025500 01  WK-600-DATA.                                                 02550000
025600     05  WK-DATA              PIC X(250).                         02560000
025700     05  WK-REV-DATA.                                             02570000
025800         10  WK-REVENUE-DATA     OCCURS 6.                        02580000
025900             15  WK-REVENUE-CODE                PIC X(04).        02590000
026000             15  WK-REVENUE-QTY-COV-VISITS      PIC 9(03).        02600000
026100             15  WK-REVENUE-EARLIEST-DATE       PIC 9(08).        02610000
026200             15  WK-REVENUE-DOLL-RATE           PIC 9(07)V9(02).  02620000
026300             15  WK-REVENUE-COST                PIC 9(07)V9(02).  02630000
026400             15  WK-REVENUE-ADD-ON-VISIT-AMT    PIC 9(07)V9(02).  02640000
026500     05  WK-PASSBACK-DATA     PIC X(030).                         02650000
026600     05  WK-CASE-MIX-DATA     PIC X(016).                         02660000
026700     05  WK-PROV-TOTAL-DATA   PIC X(021).                         02670000
026800                                                                  02680000
026900 01  MSA-STAT.                                                    02690000
027000     05  MSA-STAT1               PIC X.                           02700000
027100     05  MSA-STAT2               PIC X.                           02710000
027200 01  CBSA-STAT.                                                   02720000
027300     05  CBSA-STAT1               PIC X.                          02730000
027400     05  CBSA-STAT2               PIC X.                          02740000
027500 01  HRG-STAT.                                                    02750000
027600     05  HRG-STAT1               PIC X.                           02760000
027700     05  HRG-STAT2               PIC X.                           02770000
027800 01  REV-STAT.                                                    02780000
027900     05  REV-STAT1               PIC X.                           02790000
028000     05  REV-STAT2               PIC X.                           02800000
028100                                                                  02810000
028200 LINKAGE SECTION.                                                 02820000
028300*******************************************************           02830000
028400*******************************************************           02840000
028500*    PASSED TO HHCAL PROGRAM                          *           02850000
028600*******************************************************           02860000
028700 01  WAGE-INDEX-DATA.                                             02870000
028800     02  WIR-MSA               PIC X(04).                         02880000
028900     02  WIR-EFFDATE           PIC X(08).                         02890000
029000     02  WIR-AREA-WAGEIND      PIC 9(02)V9(04).                   02900000
029100                                                                  02910000
029200 01  MSA-WI-TABLE.                                                02920000
029300     05  M-MSA-DATA        OCCURS 4000                            02930000
029400                           INDEXED BY MU1 MU2 MU3.                02940000
029500         10  TB-MSA        PIC X(04).                             02950000
029600         10  FILLER        PIC X(01).                             02960000
029700         10  TB-EFFDATE    PIC X(08).                             02970000
029800         10  FILLER        PIC X(01).                             02980000
029900         10  TB-WAGEIND    PIC 9(02)V9(04).                       02990000
030000                                                                  03000000
030100 01  CBSA-WAGE-INDEX-DATA.                                        03010000
030200     02  WIR-CBSA              PIC X(05).                         03020000
030300     02  WIR-CBSA-EFFDATE      PIC X(08).                         03030000
030400     02  WIR-CBSA-WAGEIND      PIC 9(02)V9(04).                   03040000
030500                                                                  03050000
030600 01  CBSA-WI-TABLE.                                               03060000
030700     05  T-CBSA-DATA        OCCURS 7000                           03070000
030800                           INDEXED BY MA1 MA2 MA3.                03080000
030900         10  T-CBSA            PIC X(05).                         03090000
031000         10  FILLER            PIC X(01).                         03100000
031100         10  T-CBSA-EFFDATE    PIC X(08).                         03110000
031200         10  FILLER            PIC X(01).                         03120000
031300         10  T-CBSA-WAGEIND    PIC 9(02)V9(04).                   03130000
031400                                                                  03140000
031500 01  HRG-WI-TABLE.                                                03150000
031600     05  M-HRG-DATA        OCCURS 4000                            03160000
031700                           INDEXED BY HU1 HU2 HU3.                03170000
031800         10  TB-HRG-HRG        PIC X(05).                         03180000
031900         10  FILLER            PIC X(01).                         03190000
032000         10  TB-HRG-EFFDATE    PIC X(08).                         03200000
032100         10  FILLER            PIC X(01).                         03210000
032200         10  TB-HRG-WGTS       PIC 9(02)V9(04).                   03220000
032300         10  FILLER            PIC X(01).                         03230000
032400         10  TB-HRG-HRG2       PIC X(05).                         03240000
032500         10  FILLER            PIC X(01).                         03250000
032600         10  TB-HRG-WGTS2      PIC 9(02)V9(04).                   03260000
032700                                                                  03270000
032800 01  REVENUE-TABLE.                                               03280000
032900     05  M-REV-DATA        OCCURS 200                             03290000
033000                           INDEXED BY RU1 RU2 RU3.                03300000
033100         10  TB-REV-CODE.                                         03310000
033200             15  TB-REV-CODE-1ST.                                 03320000
033300                 88  TB-REV-CODE-RURAL-CHECK   VALUE '99'.        03330000
033400                 20  TB-REV-CODE-RURAL       PIC XX.              03340000
033500             15  TB-REV-CODE-2ND           PIC XX.                03350000
033600         10  FILLER                        PIC X(01).             03360000
033700         10  TB-REV-EFFDATE                PIC X(08).             03370000
033800         10  FILLER                        PIC X(01).             03380000
033900         10  TB-REV-DOLL-RATE-NRURAL       PIC 9(07)V9(02).       03390000
034000         10  FILLER                        PIC X(01).             03400000
034100         10  TB-REV-DOLL-RATE-RURAL        PIC 9(07)V9(02).       03410000
034200         10  FILLER                        PIC X.                 03420000
034300         10  TB-DOLL-RATE-NRURAL-NOSUBMIT  PIC 9(07)V9(02).       03430000
034400         10  FILLER                        PIC X.                 03440000
034500         10  TB-DOLL-RATE-RURAL-NOSUBMIT   PIC 9(07)V9(02).       03450000
034600         10  FILLER                        PIC X(01).             03460000
034700         10  TB-REV-UDOLL-RATE-NRURAL      PIC 9(07)V9(02).       03470000
034800         10  FILLER                        PIC X(01).             03480000
034900         10  TB-REV-UDOLL-RATE-RURAL       PIC 9(07)V9(02).       03490000
035000         10  FILLER                        PIC X.                 03500000
035100         10  TB-UDOLL-RATE-NRURAL-NOSUBMIT PIC 9(07)V9(02).       03510000
035200         10  FILLER                        PIC X.                 03520000
035300         10  TB-UDOLL-RATE-RURAL-NOSUBMIT  PIC 9(07)V9(02).       03530000
035400                                                                  03540000
035500*******************************************************           03550000
035600* NATIONAL HHA RECORD FORMAT PASSED TO HHCAL PROGRAM  *           03560000
035700*******************************************************           03570000
035800 01  HHA-INPUT-DATA.                                              03580000
035900     05  HHA-DATA.                                                03590000
036000         10  HHA-NPI                 PIC X(10).                   03600000
036100         10  HHA-HIC                 PIC X(12).                   03610000
036200         10  HHA-PROV-NO             PIC X(06).                   03620000
036300         10  HHA-TOB                 PIC XXX.                     03630000
036400             88 HHA-VALID-TOB-CLAIM       VALUE                   03640000
036500             '329', '339', '327', '337',                          03650000
036600             '32G', '33G', '32I', '33I',                          03660000
036700             '32J', '33J', '32M', '33M', '32Q',                   03670000
036800             '32F', '32K', '32P', '32H', '33Q',                   03680000
036900             '33F', '33K', '33P', '33H'.                          03690000
037000             88 HHA-VALID-TOB-RAP         VALUE                   03700000
037100             '322', '332'.                                        03710000
037200*                                                             *   03720000
037300         10  HHA-PEP-INDICATOR       PIC X.                       03730000
037400         10  HHA-PEP-DAYS            PIC 999.                     03740000
037500         10  HHA-INIT-PAY-INDICATOR  PIC X.                       03750000
037600             88  HHA-WITH-DATA-CHECK VALUE '0', '1'.              03760000
037700             88  HHA-NO-DATA-CHECK   VALUE '2', '3'.              03770000
037800         10  FILLER                  PIC X(07).                   03780000
037900         10  HHA-MSA1                PIC 9(07)V9(02).             03790000
038000         10  HHA-MSA2-DATA REDEFINES HHA-MSA1.                    03800000
038100             15  FILLER             PIC XXX.                      03810000
038200             15  HHA-MSA2.                                        03820000
038300                 20  HHA-MSA2-1ST.                                03830000
038400                     25  HHA-MSA2-RURAL        PIC XX.            03840000
038500                         88  HHA-MSA2-RURAL-CHECK  VALUE '99'.    03850000
038600                 20  HHA-MSA2-2ND              PIC XX.            03860000
038700             15  FILLER             PIC XX.                       03870000
038800         10  HHA-CBSA-DATA REDEFINES HHA-MSA1.                    03880000
038900             15  FILLER             PIC XX.                       03890000
039000             15  HHA-CBSA.                                        03900000
039100                 88  HHA-CBSA-RURAL-CHECK-ALL VALUE               03910000
039200                 '50001', '50002', '50005', '50007', '50025',     03920000
039300                 '50028', '50031', '50035', '50036', '50037',     03930000
039400                 '50041', '50045', '50047', '50048', '50050',     03940000
039500                 '50056', '50057', '50066', '50068', '50071',     03950000
039600                 '50073', '50080', '50084', '50087', '50089',     03960000
039700                 '50090', '50091', '50103', '50104', '50111',     03970000
039800                 '50115', '50117', '50118', '50120', '50121',     03980000
039900                 '50139', '50146', '50147', '50149', '50151',     03990000
040000                 '50164', '50165', '50168', '50169', '50173',     04000000
040100                 '50174', '50177', '50180', '50182', '50183'.     04010000
040200                                                                  04020000
040300                 20  HHA-CBSA-1ST.                                04030000
040400                     25  HHA-CBSA-RURAL        PIC XXX.           04040000
040500                         88  HHA-CBSA-RURAL-CHECK  VALUE '999'.   04050000
040600                 20  HHA-CBSA-2ND              PIC XX.            04060000
040700             15  FILLER             PIC XX.                       04070000
040800         10  HHA-SERV-FROM-DATE.                                  04080000
040900             15  HHA-FROM-CC         PIC XX.                      04090000
041000             15  HHA-FROM-YYMMDD.                                 04100000
041100                 25  HHA-FROM-YY     PIC XX.                      04110000
041200                 25  HHA-FROM-MM     PIC XX.                      04120000
041300                 25  HHA-FROM-DD     PIC XX.                      04130000
041400         10  HHA-SERV-THRU-DATE.                                  04140000
041500             15  HHA-THRU-CC         PIC XX.                      04150000
041600             15  HHA-THRU-YYMMDD.                                 04160000
041700                 25  HHA-THRU-YY     PIC XX.                      04170000
041800                 25  HHA-THRU-MM     PIC XX.                      04180000
041900                 25  HHA-THRU-DD     PIC XX.                      04190000
042000         10  HHA-ADMIT-DATE.                                      04200000
042100             15  HHA-ADMIT-CC        PIC XX.                      04210000
042200             15  HHA-ADMIT-YYMMDD.                                04220000
042300                 25  HHA-ADMIT-YY    PIC XX.                      04230000
042400                 25  HHA-ADMIT-MM    PIC XX.                      04240000
042500                 25  HHA-ADMIT-DD    PIC XX.                      04250000
042600         10  HHA-HRG-DATA      OCCURS 6.                          04260000
042700             15  HHA-MED-REVIEW-INDICATOR PIC X.                  04270000
042800             15  HHA-HRG-INPUT-CODE       PIC X(05).              04280000
042900             15  HHA-HRG-OUTPUT-CODE      PIC X(05).              04290000
043000             15  HHA-HRG-NO-OF-DAYS       PIC 9(03).              04300000
043100             15  HHA-HRG-WGTS             PIC 9(02)V9(04).        04310000
043200             15  HHA-HRG-PAY              PIC 9(07)V9(02).        04320000
043300         10  HHA-REVENUE-DATA     OCCURS 6.                       04330000
043400             15  HHA-REVENUE-CODE                PIC X(04).       04340000
043500             15  HHA-REVENUE-QTY-COV-VISITS      PIC 9(03).       04350000
043600             15  HHA-REVENUE-QTY-OUTL-UNITS      PIC 9(05).       04360000
043700             15  HHA-REVENUE-EARLIEST-DATE       PIC 9(08).       04370000
043800             15  HHA-REVENUE-DOLL-RATE           PIC 9(07)V9(02). 04380000
043900             15  HHA-REVENUE-COST                PIC 9(07)V9(02). 04390000
044000             15  HHA-REVENUE-ADD-ON-VISIT-AMT    PIC 9(07)V9(02). 04400000
044100     05  HHA-PASSBACK-DATA.                                       04410000
044200         10  HHA-PAY-RTC                PIC 99.                   04420000
044300         10  HHA-REVENUE-SUM1-3-QTY-THR PIC 9(05).                04430000
044400         10  HHA-REVENUE-SUM1-6-QTY-ALL PIC 9(05).                04440000
044500         10  HHA-OUTLIER-PAYMENT        PIC 9(07)V9(02).          04450000
044600         10  HHA-TOTAL-PAYMENT          PIC 9(07)V9(02).          04460000
044700     05  HHA-CASE-MIX-DATA.                                       04470000
044800         10  HHA-LUPA-ADD-ON-PAYMENT    PIC 9(03)V9(02).          04480000
044900         10  HHA-LUPA-SRC-ADM           PIC X.                    04490000
045000         10  HHA-RECODE-IND             PIC X.                    04500000
045100         10  HHA-EPISODE-TIMING         PIC 9.                    04510000
045200         10  HHA-SEVERITY-POINTS.                                 04520000
045300             15  HHA-CLINICAL-SEV-EQ1   PIC X(01).                04530000
045400             15  HHA-FUNCTION-SEV-EQ1   PIC X(01).                04540000
045500             15  HHA-CLINICAL-SEV-EQ2   PIC X(01).                04550000
045600             15  HHA-FUNCTION-SEV-EQ2   PIC X(01).                04560000
045700             15  HHA-CLINICAL-SEV-EQ3   PIC X(01).                04570000
045800             15  HHA-FUNCTION-SEV-EQ3   PIC X(01).                04580000
045900             15  HHA-CLINICAL-SEV-EQ4   PIC X(01).                04590000
046000             15  HHA-FUNCTION-SEV-EQ4   PIC X(01).                04600000
046100     05  HHA-PROV-TOTAL-DATA.                                     04610000
046200         10  HHA-PROV-OUTLIER-PAY-TOTAL PIC 9(08)V9(02).          04620000
046300         10  HHA-PROV-PAYMENT-TOTAL     PIC 9(09)V9(02).          04630000
046400     05  HHA-PROV-VBP-ADJ-FAC           PIC 9V9(5).               04640000
046500     05  HHA-VBP-ADJ-AMT                PIC S9(7)V99.             04650000
046510     05  HHA-PPS-STD-VALUE              PIC 9(7)V99.              04651000
046520     05  FILLER                         PIC X(27).                04652000
046530                                                                  04653000
046540*******************************************************           04654000
046550*    RETURNED BY HHCAL PROGRAM AND PASSED ON TO MGR   *           04655000
046560*******************************************************           04656000
046570 01  HOLD-VARIABLES-DATA.                                         04657000
046580     02  HOLD-VAR-DATA.                                           04658000
046590         05  PRICER-OPTION-SW              PIC X(01).             04659000
046600         05  HHOPN-VERSION                 PIC X(07).             04660000
046700         05  HHDRV-VERSION                 PIC X(07).             04670000
046800         05  HHCAL-VERSION                 PIC X(07).             04680000
046900         05  FILLER                        PIC X(20).             04690000
047000                                                                  04700000
047100**===========================================================     04710000
047200 PROCEDURE  DIVISION USING WAGE-INDEX-DATA                        04720000
047300                           MSA-WI-TABLE                           04730000
047400                           CBSA-WAGE-INDEX-DATA                   04740000
047500                           CBSA-WI-TABLE                          04750000
047600                           HRG-WI-TABLE                           04760000
047700                           REVENUE-TABLE                          04770000
047800                           HHA-INPUT-DATA                         04780000
047900                           HOLD-VARIABLES-DATA.                   04790000
048000                                                                  04800000
048100 0000-MAINLINE  SECTION.                                          04810000
048200                                                                  04820000
048300     MOVE DRV-VERSION TO HHDRV-VERSION.                           04830000
048400                                                                  04840000
048500 0100-PROCESS-RECORDS.                                            04850000
048600                                                                  04860000
048700     MOVE ALL '0' TO HHA-PASSBACK-DATA.                           04870000
048800     MOVE SPACES  TO CBSA-WAGE-INDEX-DATA.                        04880000
048900     INITIALIZE      TB-REV-DOLL-RATE-UNITS.                      04890000
049000                                                                  04900000
049100     IF HHA-VALID-TOB-CLAIM OR                                    04910000
049200        HHA-VALID-TOB-RAP                                         04920000
049300        NEXT SENTENCE                                             04930000
049400     ELSE                                                         04940000
049500        MOVE '10' TO HHA-PAY-RTC                                  04950000
049600        GOBACK.                                                   04960000
049700                                                                  04970000
049800     IF HHA-SERV-FROM-DATE < 20001001 OR                          04980000
049900        HHA-SERV-THRU-DATE < 20001001 OR                          04990000
050000        HHA-ADMIT-DATE < 20001001                                 05000000
050100        MOVE '40' TO HHA-PAY-RTC                                  05010000
050200        GOBACK.                                                   05020000
050300                                                                  05030000
050400     IF HHA-ADMIT-DATE >                                          05040000
050500        HHA-SERV-FROM-DATE                                        05050000
050600        MOVE '40' TO HHA-PAY-RTC                                  05060000
050700        GOBACK.                                                   05070000
050800                                                                  05080000
050900     IF HHA-REVENUE-QTY-COV-VISITS (1) NOT NUMERIC                05090000
051000        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (1).            05100000
051100     IF HHA-REVENUE-QTY-COV-VISITS (2) NOT NUMERIC                05110000
051200        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (2).            05120000
051300     IF HHA-REVENUE-QTY-COV-VISITS (3) NOT NUMERIC                05130000
051400        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (3).            05140000
051500     IF HHA-REVENUE-QTY-COV-VISITS (4) NOT NUMERIC                05150000
051600        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (4).            05160000
051700     IF HHA-REVENUE-QTY-COV-VISITS (5) NOT NUMERIC                05170000
051800        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (5).            05180000
051900     IF HHA-REVENUE-QTY-COV-VISITS (6) NOT NUMERIC                05190000
052000        MOVE ZEROES TO HHA-REVENUE-QTY-COV-VISITS (6).            05200000
052100                                                                  05210000
052200     IF HHA-REVENUE-QTY-OUTL-UNITS (1) NOT NUMERIC                05220000
052300        MOVE ZEROES TO HHA-REVENUE-QTY-OUTL-UNITS (1).            05230000
052400     IF HHA-REVENUE-QTY-OUTL-UNITS (2) NOT NUMERIC                05240000
052500        MOVE ZEROES TO HHA-REVENUE-QTY-OUTL-UNITS (2).            05250000
052600     IF HHA-REVENUE-QTY-OUTL-UNITS (3) NOT NUMERIC                05260000
052700        MOVE ZEROES TO HHA-REVENUE-QTY-OUTL-UNITS (3).            05270000
052800     IF HHA-REVENUE-QTY-OUTL-UNITS (4) NOT NUMERIC                05280000
052900        MOVE ZEROES TO HHA-REVENUE-QTY-OUTL-UNITS (4).            05290000
053000     IF HHA-REVENUE-QTY-OUTL-UNITS (5) NOT NUMERIC                05300000
053100        MOVE ZEROES TO HHA-REVENUE-QTY-OUTL-UNITS (5).            05310000
053200     IF HHA-REVENUE-QTY-OUTL-UNITS (6) NOT NUMERIC                05320000
053300        MOVE ZEROES TO HHA-REVENUE-QTY-OUTL-UNITS (6).            05330000
053400                                                                  05340000
053500     COMPUTE HHA-REVENUE-SUM1-3-QTY-THR =                         05350000
053600                 HHA-REVENUE-QTY-COV-VISITS (1) +                 05360000
053700                 HHA-REVENUE-QTY-COV-VISITS (2) +                 05370000
053800                 HHA-REVENUE-QTY-COV-VISITS (3).                  05380000
053900                                                                  05390000
054000     COMPUTE HHA-REVENUE-SUM1-6-QTY-ALL =                         05400000
054100                 HHA-REVENUE-QTY-COV-VISITS (1) +                 05410000
054200                 HHA-REVENUE-QTY-COV-VISITS (2) +                 05420000
054300                 HHA-REVENUE-QTY-COV-VISITS (3) +                 05430000
054400                 HHA-REVENUE-QTY-COV-VISITS (4) +                 05440000
054500                 HHA-REVENUE-QTY-COV-VISITS (5) +                 05450000
054600                 HHA-REVENUE-QTY-COV-VISITS (6).                  05460000
054700                                                                  05470000
054800     IF  ((HHA-VALID-TOB-CLAIM) AND                               05480000
054900         (HHA-REVENUE-SUM1-6-QTY-ALL > 4) AND                     05490000
055000         (HHA-HRG-INPUT-CODE (1) = SPACE))                        05500000
055100         MOVE '75' TO HHA-PAY-RTC                                 05510000
055200         GOBACK.                                                  05520000
055300                                                                  05530000
055400     IF  ((HHA-VALID-TOB-RAP  ) AND                               05540000
055500         (HHA-HRG-INPUT-CODE (1) = SPACE))                        05550000
055600         MOVE '70' TO HHA-PAY-RTC                                 05560000
055700         GOBACK.                                                  05570000
055800                                                                  05580000
055900     IF HHA-PAY-RTC NOT = '00'                                    05590000
056000        GOBACK.                                                   05600000
056100                                                                  05610000
056200     IF  ((HHA-VALID-TOB-CLAIM) AND                               05620000
056300         (HHA-REVENUE-CODE (1) = SPACE OR                         05630000
056400          HHA-REVENUE-CODE (2) = SPACE OR                         05640000
056500          HHA-REVENUE-CODE (3) = SPACE OR                         05650000
056600          HHA-REVENUE-CODE (4) = SPACE OR                         05660000
056700          HHA-REVENUE-CODE (5) = SPACE OR                         05670000
056800          HHA-REVENUE-CODE (6) = SPACE))                          05680000
056900         MOVE '85' TO HHA-PAY-RTC.                                05690000
057000                                                                  05700000
057100     IF HHA-PAY-RTC NOT = '00'                                    05710000
057200        GOBACK.                                                   05720000
057300                                                                  05730000
057400     IF HHA-SERV-THRU-DATE < 20060101                             05740000
057500        PERFORM 1600-GET-MSA THRU 1600-EXIT                       05750000
057600     ELSE                                                         05760000
057700        PERFORM 1250-GET-CBSA THRU 1250-EXIT.                     05770000
057800                                                                  05780000
057900     IF HHA-SERV-THRU-DATE < 20060101                             05790000
058000        IF HHA-PAY-RTC = '00'                                     05800000
058100           PERFORM 1700-GET-WAGE-INDEX THRU 1700-EXIT             05810000
058200           VARYING MU2 FROM MU1 BY 1 UNTIL                        05820000
058300           TB-MSA (MU2) NOT = HHA-MSA2.                           05830000
058400                                                                  05840000
058500     IF HHA-SERV-THRU-DATE > 20051231                             05850000
058600        IF HHA-PAY-RTC = '00'                                     05860000
058700           PERFORM 1260-GET-CBSA-WAGE-INDEX THRU 1260-EXIT        05870000
058800           VARYING MA2 FROM MA1 BY 1 UNTIL                        05880000
058900           T-CBSA (MA2) NOT = HHA-CBSA.                           05890000
059000                                                                  05900000
059100     IF HHA-PAY-RTC = '00'                                        05910000
059200        MOVE 0 TO  HRG-RECODE-SW                                  05920000
059300                                                                  05930000
059400        PERFORM 2000-GET-HRG THRU 2000-EXIT                       05940000
059500             VARYING SUB1 FROM 1 BY 1 UNTIL                       05950000
059600*           (HHA-HRG-INPUT-CODE (SUB1) = SPACES OR                05960000
059700             SUB1 > 6.                                            05970000
059800                                                                  05980000
059900     IF HHA-PAY-RTC = '00'                                        05990000
060000        IF (HHA-VALID-TOB-CLAIM)                                  06000000
060100           PERFORM 2700-GET-REV THRU 2700-EXIT                    06010000
060200               VARYING SUB1 FROM 1 BY 1 UNTIL                     06020000
060300*             (HHA-REVENUE-CODE (SUB1) = SPACES OR                06030000
060400                SUB1 > 6.                                         06040000
060500                                                                  06050000
060600     IF HHA-PAY-RTC NOT = '00'                                    06060000
060700         GOBACK.                                                  06070000
060800                                                                  06080000
060900*******************************************************           06090000
061000*****    FY 2018 VERSION B                                        06100000
061100***                                                               06110000
061200     IF  HHA-SERV-THRU-DATE > 20171231                            06120000
061300         CALL  HHCAL181   USING HHA-INPUT-DATA                    06130000
061400                                HOLD-VARIABLES-DATA               06140000
061500                                CBSA-WAGE-INDEX-DATA              06150000
061600                                TB-REV-DOLL-RATE-UNITS            06160000
061700                                TB-STDV-DATA                      06170000
061800         GOBACK.                                                  06180000
061900                                                                  06190000
062000*******************************************************           06200000
062100*****    FY 2017 VERSION 1                                        06210000
062200***                                                               06220000
062300     IF  HHA-SERV-THRU-DATE > 20161231                            06230000
062400         CALL  HHCAL171   USING HHA-INPUT-DATA                    06240000
062500                                HOLD-VARIABLES-DATA               06250000
062600                                CBSA-WAGE-INDEX-DATA              06260000
062610                                TB-REV-DOLL-RATE-UNITS            06261000
062620         GOBACK.                                                  06262000
062630                                                                  06263000
062640*******************************************************           06264000
062650*****    FY 2016 VERSION 0                                        06265000
062660***                                                               06266000
062670     IF  HHA-SERV-THRU-DATE > 20151231                            06267000
062680         PERFORM Z900-CONV-650-TO-600 THRU Z900-EXIT              06268000
062690         CALL  HHCAL160   USING WK-600-DATA                       06269000
062700                                HOLD-VARIABLES-DATA               06270000
062800                                CBSA-WAGE-INDEX-DATA              06280000
062900         PERFORM Z950-CONV-600-TO-650 THRU Z950-EXIT              06290000
063000         GOBACK.                                                  06300000
063100                                                                  06310000
063200*******************************************************           06320000
063300*****    FY 2015 VERSION 0                                        06330000
063400***                                                               06340000
063500     IF  HHA-SERV-THRU-DATE > 20141231                            06350000
063600         PERFORM Z900-CONV-650-TO-600 THRU Z900-EXIT              06360000
063700         CALL  HHCAL152   USING WK-600-DATA                       06370000
063800                                HOLD-VARIABLES-DATA               06380000
063900                                CBSA-WAGE-INDEX-DATA              06390000
064000         PERFORM Z950-CONV-600-TO-650 THRU Z950-EXIT              06400000
064100         GOBACK.                                                  06410000
064200                                                                  06420000
064300*******************************************************           06430000
064400*****    FY 2014 VERSION 0                                        06440000
064500***                                                               06450000
064600     IF  HHA-SERV-THRU-DATE > 20131231                            06460000
064700         PERFORM Z900-CONV-650-TO-600 THRU Z900-EXIT              06470000
064800         CALL  HHCAL145   USING WK-600-DATA                       06480000
064900                                HOLD-VARIABLES-DATA               06490000
065000                                CBSA-WAGE-INDEX-DATA              06500000
065100         PERFORM Z950-CONV-600-TO-650 THRU Z950-EXIT              06510000
065200         GOBACK.                                                  06520000
065300                                                                  06530000
065400*******************************************************           06540000
065500*****    FY 2013 VERSION 0                                        06550000
065600***                                                               06560000
065700     IF  HHA-SERV-THRU-DATE > 20121231                            06570000
065800         PERFORM Z900-CONV-650-TO-600 THRU Z900-EXIT              06580000
065900         CALL  HHCAL132   USING WK-600-DATA                       06590000
066000                                HOLD-VARIABLES-DATA               06600000
066100                                CBSA-WAGE-INDEX-DATA              06610000
066200         PERFORM Z950-CONV-600-TO-650 THRU Z950-EXIT              06620000
066300         GOBACK.                                                  06630000
066400                                                                  06640000
066500*******************************************************           06650000
066600*****    FY 2012 VERSION 0                                        06660000
066700***                                                               06670000
066800     IF  HHA-SERV-THRU-DATE > 20111231                            06680000
066900         PERFORM Z900-CONV-650-TO-600 THRU Z900-EXIT              06690000
067000         CALL  HHCAL122   USING WK-600-DATA                       06700000
067100                                HOLD-VARIABLES-DATA               06710000
067200                                CBSA-WAGE-INDEX-DATA              06720000
067300         PERFORM Z950-CONV-600-TO-650 THRU Z950-EXIT              06730000
067400         GOBACK.                                                  06740000
067500                                                                  06750000
067600*******************************************************           06760000
067700*****    FY 2011 VERSION 0                                        06770000
067800***                                                               06780000
067900     IF  HHA-SERV-THRU-DATE > 20101231                            06790000
068000         PERFORM Z900-CONV-650-TO-600 THRU Z900-EXIT              06800000
068100         CALL  HHCAL113   USING WK-600-DATA                       06810000
068200                                HOLD-VARIABLES-DATA               06820000
068300                                CBSA-WAGE-INDEX-DATA              06830000
068400         PERFORM Z950-CONV-600-TO-650 THRU Z950-EXIT              06840000
068500         GOBACK.                                                  06850000
068600                                                                  06860000
068700*******************************************************           06870000
068800*****    FY 2010 VERSION B                                        06880000
068900***                                                               06890000
069000     IF  HHA-SERV-THRU-DATE > 20100331                            06900000
069100         PERFORM Z900-CONV-650-TO-600 THRU Z900-EXIT              06910000
069200         CALL  HHCAL10A   USING WK-600-DATA                       06920000
069300                                HOLD-VARIABLES-DATA               06930000
069400                                CBSA-WAGE-INDEX-DATA              06940000
069500         PERFORM Z950-CONV-600-TO-650 THRU Z950-EXIT              06950000
069600         GOBACK.                                                  06960000
069700                                                                  06970000
069800*******************************************************           06980000
069900*****    FY 2010 VERSION A                                        06990000
070000***                                                               07000000
070100     IF  HHA-SERV-THRU-DATE > 20091231                            07010000
070200         PERFORM Z900-CONV-650-TO-600 THRU Z900-EXIT              07020000
070300         CALL  HHCAL10D   USING WK-600-DATA                       07030000
070400                                HOLD-VARIABLES-DATA               07040000
070500                                CBSA-WAGE-INDEX-DATA              07050000
070600         PERFORM Z950-CONV-600-TO-650 THRU Z950-EXIT              07060000
070700         GOBACK.                                                  07070000
070800                                                                  07080000
070900*******************************************************           07090000
071000*****    FY 2009 VERSION 3                                        07100000
071100***                                                               07110000
071200     IF  HHA-SERV-THRU-DATE > 20081231                            07120000
071300         PERFORM Z900-CONV-650-TO-600 THRU Z900-EXIT              07130000
071400         CALL  HHCAL095   USING WK-600-DATA                       07140000
071500                                HOLD-VARIABLES-DATA               07150000
071600                                CBSA-WAGE-INDEX-DATA              07160000
071700         PERFORM Z950-CONV-600-TO-650 THRU Z950-EXIT              07170000
071800         GOBACK.                                                  07180000
071900                                                                  07190000
072000*******************************************************           07200000
072100*****    FY 2008 VERSION 6                                        07210000
072200***                                                               07220000
072300     IF  HHA-SERV-THRU-DATE > 20071231                            07230000
072400         PERFORM Z900-CONV-650-TO-600 THRU Z900-EXIT              07240000
072500         CALL  HHCAL088   USING WK-600-DATA                       07250000
072600                                HOLD-VARIABLES-DATA               07260000
072700                                CBSA-WAGE-INDEX-DATA              07270000
072800         PERFORM Z950-CONV-600-TO-650 THRU Z950-EXIT              07280000
072900         GOBACK.                                                  07290000
073000                                                                  07300000
073100*******************************************************           07310000
073200*****    FY 2007 VERSION 2                                        07320000
073300***                                                               07330000
073400     IF  HHA-SERV-THRU-DATE > 20061231                            07340000
073500         PERFORM Z900-CONV-650-TO-600 THRU Z900-EXIT              07350000
073600         CALL  HHCAL074   USING WK-600-DATA                       07360000
073700                                HOLD-VARIABLES-DATA               07370000
073800                                CBSA-WAGE-INDEX-DATA              07380000
073900         PERFORM Z950-CONV-600-TO-650 THRU Z950-EXIT              07390000
074000         GOBACK.                                                  07400000
074100                                                                  07410000
074200*******************************************************           07420000
074300*******************************************************           07430000
074400*****    FY 2006 VERSION 4                                        07440000
074500***                                                               07450000
074600     IF  HHA-SERV-THRU-DATE > 20051231                            07460000
074700         PERFORM Z900-CONV-650-TO-600 THRU Z900-EXIT              07470000
074800         CALL  HHCAL066   USING WK-600-DATA                       07480000
074900                                HOLD-VARIABLES-DATA               07490000
075000                                CBSA-WAGE-INDEX-DATA              07500000
075100         PERFORM Z950-CONV-600-TO-650 THRU Z950-EXIT              07510000
075200         GOBACK.                                                  07520000
075300                                                                  07530000
075400*******************************************************           07540000
075500*******************************************************           07550000
075600*****    FY 2005 VERSION 1                                        07560000
075700***                                                               07570000
075800     IF  HHA-SERV-THRU-DATE > 20041231                            07580000
075900         PERFORM Z900-CONV-650-TO-600 THRU Z900-EXIT              07590000
076000         CALL  HHCAL053   USING WK-600-DATA                       07600000
076100                                HOLD-VARIABLES-DATA               07610000
076200                                WAGE-INDEX-DATA                   07620000
076300         PERFORM Z950-CONV-600-TO-650 THRU Z950-EXIT              07630000
076400         GOBACK.                                                  07640000
076500                                                                  07650000
076600*******************************************************           07660000
076700*******************************************************           07670000
076800*****    FY 2004 VERSION 2                                        07680000
076900***                                                               07690000
077000     IF  HHA-SERV-THRU-DATE > 20030930                            07700000
077100         PERFORM Z900-CONV-650-TO-600 THRU Z900-EXIT              07710000
077200         CALL  HHCAL044   USING WK-600-DATA                       07720000
077300                                HOLD-VARIABLES-DATA               07730000
077400                                WAGE-INDEX-DATA                   07740000
077500         PERFORM Z950-CONV-600-TO-650 THRU Z950-EXIT              07750000
077600         GOBACK.                                                  07760000
077700                                                                  07770000
077800*******************************************************           07780000
077900*****    FY 2003 VERSION 1                                        07790000
078000***                                                               07800000
078100     IF  HHA-SERV-THRU-DATE > 20020930                            07810000
078200         PERFORM Z900-CONV-650-TO-600 THRU Z900-EXIT              07820000
078300         CALL  HHCAL033   USING WK-600-DATA                       07830000
078400                                HOLD-VARIABLES-DATA               07840000
078500                                WAGE-INDEX-DATA                   07850000
078600         PERFORM Z950-CONV-600-TO-650 THRU Z950-EXIT              07860000
078700         GOBACK.                                                  07870000
078800                                                                  07880000
078900*******************************************************           07890000
079000*****    FY 2002 VERSION 1                                        07900000
079100***                                                               07910000
079200     IF  HHA-SERV-THRU-DATE > 20010930                            07920000
079300         PERFORM Z900-CONV-650-TO-600 THRU Z900-EXIT              07930000
079400         CALL  HHCAL023   USING WK-600-DATA                       07940000
079500                                HOLD-VARIABLES-DATA               07950000
079600                                WAGE-INDEX-DATA                   07960000
079700         PERFORM Z950-CONV-600-TO-650 THRU Z950-EXIT              07970000
079800         GOBACK.                                                  07980000
079900                                                                  07990000
080000*******************************************************           08000000
080100*****    FY 2001 VERSION 4                                        08010000
080200***                                                               08020000
080300     IF  HHA-SERV-THRU-DATE > 20000930                            08030000
080400         PERFORM Z900-CONV-650-TO-600 THRU Z900-EXIT              08040000
080500         CALL  HHCAL016   USING WK-600-DATA                       08050000
080600                                HOLD-VARIABLES-DATA               08060000
080700                                WAGE-INDEX-DATA                   08070000
080800         PERFORM Z950-CONV-600-TO-650 THRU Z950-EXIT              08080000
080900         GOBACK.                                                  08090000
081000                                                                  08100000
081100*******************************************************           08110000
081200     MOVE '40' TO HHA-PAY-RTC.                                    08120000
081300     GOBACK.                                                      08130000
081400                                                                  08140000
081500 0100-EXIT.  EXIT.                                                08150000
081600                                                                  08160000
081700 1250-GET-CBSA.                                                   08170000
081800     SET MA1 TO 1.                                                08180000
081900                                                                  08190000
082000     SEARCH T-CBSA-DATA VARYING MA1                               08200000
082100            AT END                                                08210000
082200               MOVE '30' TO HHA-PAY-RTC                           08220000
082300               GO TO 1250-EXIT                                    08230000
082400            WHEN T-CBSA (MA1) = HHA-CBSA                          08240000
082500               SET MA2 TO MA1.                                    08250000
082600                                                                  08260000
082700 1250-EXIT.  EXIT.                                                08270000
082800                                                                  08280000
082900 1260-GET-CBSA-WAGE-INDEX.                                        08290000
083000                                                                  08300000
083100     IF HHA-VALID-TOB-CLAIM OR HHA-VALID-TOB-RAP                  08310000
083200       IF HHA-SERV-THRU-DATE (1:4) = T-CBSA-EFFDATE (MA2) (1:4)   08320000
083300         IF HHA-SERV-THRU-DATE NOT < T-CBSA-EFFDATE (MA2)         08330000
083400            MOVE T-CBSA       (MA2) TO WIR-CBSA                   08340000
083500            MOVE T-CBSA-EFFDATE (MA2) TO WIR-CBSA-EFFDATE         08350000
083600            MOVE T-CBSA-WAGEIND (MA2) TO WIR-CBSA-WAGEIND         08360000
083700            MOVE '00' TO HHA-PAY-RTC                              08370000
083800            GO TO 1260-EXIT.                                      08380000
083900                                                                  08390000
084000     IF WIR-CBSA-WAGEIND NOT NUMERIC                              08400000
084100           MOVE '30' TO HHA-PAY-RTC.                              08410000
084200                                                                  08420000
084300 1260-EXIT.  EXIT.                                                08430000
084400                                                                  08440000
084500 1600-GET-MSA.                                                    08450000
084600     SET MU1 TO 1.                                                08460000
084700                                                                  08470000
084800     SEARCH M-MSA-DATA VARYING MU1                                08480000
084900            AT END                                                08490000
085000               MOVE '30' TO HHA-PAY-RTC                           08500000
085100               GO TO 1600-EXIT                                    08510000
085200            WHEN TB-MSA (MU1) = HHA-MSA2                          08520000
085300               SET MU2 TO MU1.                                    08530000
085400                                                                  08540000
085500 1600-EXIT.  EXIT.                                                08550000
085600                                                                  08560000
085700 1700-GET-WAGE-INDEX.                                             08570000
085800                                                                  08580000
085900     IF HHA-VALID-TOB-RAP                                         08590000
086000        IF HHA-SERV-FROM-DATE NOT < TB-EFFDATE (MU2)              08600000
086100           MOVE TB-MSA     (MU2) TO WIR-MSA                       08610000
086200           MOVE TB-EFFDATE (MU2) TO WIR-EFFDATE                   08620000
086300           MOVE TB-WAGEIND (MU2) TO WIR-AREA-WAGEIND.             08630000
086400                                                                  08640000
086500     IF HHA-VALID-TOB-CLAIM                                       08650000
086600        IF HHA-SERV-THRU-DATE NOT < TB-EFFDATE (MU2)              08660000
086700           MOVE TB-MSA     (MU2) TO WIR-MSA                       08670000
086800           MOVE TB-EFFDATE (MU2) TO WIR-EFFDATE                   08680000
086900           MOVE TB-WAGEIND (MU2) TO WIR-AREA-WAGEIND.             08690000
087000                                                                  08700000
087100 1700-EXIT.  EXIT.                                                08710000
087200                                                                  08720000
087300 2000-GET-HRG.                                                    08730000
087400                                                                  08740000
087500     IF HHA-HRG-INPUT-CODE (SUB1) = SPACES                        08750000
087600        MOVE 6 TO SUB1                                            08760000
087700        GO TO 2000-EXIT.                                          08770000
087800                                                                  08780000
087900     MOVE HHA-HRG-INPUT-CODE (SUB1) TO SEARCH-HRG.                08790000
088000     MOVE HHA-HRG-INPUT-CODE (SUB1) TO WORK-HRG.                  08800000
088100     MOVE HHA-HRG-INPUT-CODE (SUB1) TO WORK-ORIG-HRG.             08810000
088200     MOVE HHA-HRG-INPUT-CODE (SUB1) TO HHA-HRG-OUTPUT-CODE (SUB1).08820000
088300                                                                  08830000
088400     IF HHA-MED-REVIEW-INDICATOR (SUB1) = 'Y' AND                 08840000
088500        HHA-RECODE-IND = '0'                                      08850000
088600        GO TO 2000-SEARCH-HRG.                                    08860000
088700                                                                  08870000
088800******************************************************************08880000
088900*  IF LUPA SKIP RECODING OF HIPPS CODE                           *08890000
089000******************************************************************08900000
089100                                                                  08910000
089200     IF HHA-VALID-TOB-CLAIM AND                                   08920000
089300         (HHA-REVENUE-SUM1-6-QTY-ALL < 5 )                        08930000
089400        GO TO 2000-SEARCH-HRG.                                    08940000
089500                                                                  08950000
089600*================================================================*08960000
089700*             *** RECODESTART ***                                *08970000
089800*================================================================*08980000
089900                                                                  08990000
090000     IF HHA-VALID-TOB-RAP                                         09000000
090100        GO TO 2000-SEARCH-HRG.                                    09010000
090200                                                                  09020000
090300     IF SEARCH-HRG1 = '0' OR '6' OR '7' OR '8' OR '9'             09030000
090400        MOVE '70' TO HHA-PAY-RTC                                  09040000
090500        MOVE 6 TO SUB1                                            09050000
090600        GO TO 2000-EXIT.                                          09060000
090700                                                                  09070000
090800******************************************************************09080000
090900*   RECODING OF HIPPS CODE DEPENDING ON CLAIM INFORMATION        *09090000
091000******************************************************************09100000
091100                                                                  09110000
091200     IF HHA-RECODE-IND = '1' OR '3'                               09120000
091300        PERFORM 2300-RECODE-HRG THRU 2300-EXIT                    09130000
091400         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)              09140000
091500         MOVE WORK-HRG TO SEARCH-HRG                              09150000
091600        GO TO 2000-GET-HRG-TWO.                                   09160000
091700                                                                  09170000
091800**** V161 ****                                                    09180000
091900     IF WORK-HRG1 = '5' AND                                       09190000
092000        HHA-REVENUE-SUM1-3-QTY-THR < 20                           09200000
092100        PERFORM 2305-RECODE-EPISODE THRU 2305-EXIT                09210000
092200         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)              09220000
092300         MOVE WORK-HRG TO SEARCH-HRG                              09230000
092400        GO TO 2000-GET-HRG-TWO.                                   09240000
092500                                                                  09250000
092600                                                                  09260000
092700     IF SEARCH-HRG1 = '1' OR '2' OR '3' OR '4' OR '5'             09270000
092800        PERFORM 2430-RECODE-HRG4-1 THRU 2430-EXIT                 09280000
092900         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)              09290000
093000         MOVE WORK-HRG TO SEARCH-HRG                              09300000
093100        GO TO 2000-GET-HRG-TWO.                                   09310000
093200                                                                  09320000
093300                                                                  09330000
093400 2000-GET-HRG-TWO.                                                09340000
093500                                                                  09350000
093600     IF HHA-RECODE-IND = '1' OR '3'                               09360000
093700        PERFORM 2300-RECODE-HRG THRU 2300-EXIT                    09370000
093800         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)              09380000
093900         MOVE WORK-HRG TO SEARCH-HRG                              09390000
094000        GO TO 2000-SEARCH-HRG.                                    09400000
094100                                                                  09410000
094200     IF WORK-HRG1 = '5' AND                                       09420000
094300        WORK-ORIG-HRG1 NOT = '5'                                  09430000
094400        PERFORM 2305-RECODE-EPISODE THRU 2305-EXIT                09440000
094500         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)              09450000
094600         MOVE WORK-HRG TO SEARCH-HRG                              09460000
094700        GO TO 2000-SEARCH-HRG.                                    09470000
094800                                                                  09480000
094900     IF SEARCH-HRG1 = '1' OR '2' OR '3' OR '4' OR '5'             09490000
095000        PERFORM 2430-RECODE-HRG4-1 THRU 2430-EXIT                 09500000
095100         MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)              09510000
095200         MOVE WORK-HRG TO SEARCH-HRG.                             09520000
095300                                                                  09530000
095400 2000-SEARCH-HRG.                                                 09540000
095500                                                                  09550000
095600     IF SEARCH-HRG1 = '1' OR '2' OR '3' OR '4' OR '5'             09560000
095700        MOVE ' ' TO SEARCH-HRG5.                                  09570000
095800                                                                  09580000
095900                                                                  09590000
096000     SET HU1 TO 1.                                                09600000
096100     SEARCH M-HRG-DATA VARYING HU1                                09610000
096200            AT END                                                09620000
096300               MOVE '70' TO HHA-PAY-RTC                           09630000
096400               MOVE 6 TO SUB1                                     09640000
096500               GO TO 2000-EXIT                                    09650000
096600            WHEN TB-HRG-HRG (HU1) = SEARCH-HRG                    09660000
096700               SET HU2 TO HU1                                     09670000
096800               PERFORM 2100-GET-HRG-WIEGHTS THRU 2100-EXIT.       09680000
096900                                                                  09690000
097000 2000-EXIT.  EXIT.                                                09700000
097100                                                                  09710000
097200 2100-GET-HRG-WIEGHTS.                                            09720000
097300                                                                  09730000
097400      PERFORM 2200-GET-HRG-SEARCH THRU 2200-EXIT                  09740000
097500           VARYING HU2 FROM HU1 BY 1 UNTIL                        09750000
097600           TB-HRG-HRG (HU2) NOT = SEARCH-HRG.                     09760000
097700                                                                  09770000
097800 2100-EXIT.   EXIT.                                               09780000
097900                                                                  09790000
098000 2200-GET-HRG-SEARCH.                                             09800000
098100                                                                  09810000
098200     IF HHA-VALID-TOB-RAP                                         09820000
098300        IF HHA-SERV-FROM-DATE NOT < TB-HRG-EFFDATE (HU2)          09830000
098400*          MOVE HHA-HRG-INPUT-CODE (SUB1)                         09840000
098500*                                 TO HHA-HRG-OUTPUT-CODE (SUB1)   09850000
098600           MOVE TB-HRG-WGTS (HU2) TO HHA-HRG-WGTS (SUB1).         09860000
098700                                                                  09870000
098800     IF HHA-VALID-TOB-CLAIM                                       09880000
098900        IF HHA-SERV-THRU-DATE NOT < TB-HRG-EFFDATE (HU2)          09890000
099000           PERFORM 2250-CHECK-FOR-WHICH-HRG THRU 2250-EXIT.       09900000
099100                                                                  09910000
099200 2200-EXIT.  EXIT.                                                09920000
099300                                                                  09930000
099400 2250-CHECK-FOR-WHICH-HRG.                                        09940000
099500                                                                  09950000
099600     IF HHA-MED-REVIEW-INDICATOR (SUB1) NOT = 'Y' AND             09960000
099700                                        NOT = 'N'                 09970000
099800               MOVE '25' TO HHA-PAY-RTC                           09980000
099900               MOVE 6 TO SUB1                                     09990000
100000               GO TO 2250-EXIT.                                   10000000
100100                                                                  10010000
100200     IF SEARCH-HRG1    = '1' OR '2' OR '3' OR '4' OR '5'          10020000
100300             MOVE TB-HRG-WGTS (HU2) TO HHA-HRG-WGTS (SUB1)        10030000
100400             MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)          10040000
100500               GO TO 2250-EXIT.                                   10050000
100600                                                                  10060000
100700     IF (HHA-REVENUE-SUM1-3-QTY-THR < 10)                         10070000
100800        IF (HHA-MED-REVIEW-INDICATOR (SUB1) = 'N')                10080000
100900          IF TB-HRG-HRG (HU2) NOT = TB-HRG-HRG2 (HU2)             10090000
101000             MOVE TB-HRG-HRG2 (HU2) TO HHA-HRG-OUTPUT-CODE (SUB1) 10100000
101100             MOVE TB-HRG-WGTS2 (HU2) TO HHA-HRG-WGTS (SUB1)       10110000
101200          ELSE                                                    10120000
101300             MOVE TB-HRG-HRG  (HU2) TO HHA-HRG-OUTPUT-CODE (SUB1) 10130000
101400             MOVE TB-HRG-WGTS (HU2) TO HHA-HRG-WGTS (SUB1)        10140000
101500        ELSE                                                      10150000
101600           MOVE TB-HRG-HRG  (HU2) TO HHA-HRG-OUTPUT-CODE (SUB1)   10160000
101700           MOVE TB-HRG-WGTS (HU2) TO HHA-HRG-WGTS (SUB1)          10170000
101800     ELSE                                                         10180000
101900       MOVE TB-HRG-HRG  (HU2) TO HHA-HRG-OUTPUT-CODE (SUB1)       10190000
102000       MOVE TB-HRG-WGTS (HU2) TO HHA-HRG-WGTS (SUB1).             10200000
102100                                                                  10210000
102200     IF (HHA-REVENUE-SUM1-6-QTY-ALL < 5)                          10220000
102300       MOVE TB-HRG-HRG  (HU2) TO HHA-HRG-OUTPUT-CODE (SUB1)       10230000
102400       MOVE ZEROES            TO HHA-HRG-WGTS (SUB1).             10240000
102500                                                                  10250000
102600                                                                  10260000
102700 2250-EXIT.  EXIT.                                                10270000
102800                                                                  10280000
102900 2300-RECODE-HRG.                                                 10290000
103000                                                                  10300000
103100       MOVE ZEROES            TO HRG-KEEP5-SW1.                   10310000
103200                                                                  10320000
103300     IF HHA-RECODE-IND = '1'                                      10330000
103400        PERFORM 2310-RECODE-HRG1 THRU 2310-EXIT                   10340000
103500               GO TO 2300-EXIT.                                   10350000
103600                                                                  10360000
103700                                                                  10370000
103800     IF HHA-RECODE-IND = '3'                                      10380000
103900        PERFORM 2312-RECODE-HRG2 THRU 2312-EXIT                   10390000
104000               GO TO 2300-EXIT.                                   10400000
104100                                                                  10410000
104200                                                                  10420000
104300 2300-EXIT.  EXIT.                                                10430000
104400                                                                  10440000
104500 2305-RECODE-EPISODE.                                             10450000
104600                                                                  10460000
104700     IF HHA-EPISODE-TIMING = 1                                    10470000
104800        PERFORM 2410-RECODE-EPP1 THRU 2410-EXIT                   10480000
104900               GO TO 2305-EXIT.                                   10490000
105000                                                                  10500000
105100                                                                  10510000
105200     IF HHA-EPISODE-TIMING = 2                                    10520000
105300        PERFORM 2415-RECODE-EPP2 THRU 2415-EXIT                   10530000
105400               GO TO 2305-EXIT.                                   10540000
105500                                                                  10550000
105600                                                                  10560000
105700 2305-EXIT.  EXIT.                                                10570000
105800                                                                  10580000
105900 2310-RECODE-HRG1.                                                10590000
106000                                                                  10600000
106100       IF (HHA-REVENUE-SUM1-3-QTY-THR < 14)                       10610000
106200         MOVE '1' TO WORK-HRG1                                    10620000
106300        PERFORM 2315-RECODE-HRG1-1 THRU 2315-EXIT                 10630000
106400               GO TO 2310-EXIT.                                   10640000
106500                                                                  10650000
106600       IF (HHA-REVENUE-SUM1-3-QTY-THR > 13 AND                    10660000
106700           HHA-REVENUE-SUM1-3-QTY-THR < 20)                       10670000
106800             MOVE '2' TO WORK-HRG1                                10680000
106900        PERFORM 2320-RECODE-HRG1-2 THRU 2320-EXIT                 10690000
107000               GO TO 2310-EXIT.                                   10700000
107100                                                                  10710000
107200**** V161 ****                                                    10720000
107300*      IF (HHA-REVENUE-SUM1-3-QTY-THR > 19)                       10730000
107400*            MOVE '2' TO WORK-HRG1                                10740000
107500*            MOVE '1' TO HRG-KEEP5-SW1                            10750000
107600*       PERFORM 2320-RECODE-HRG1-2 THRU 2320-EXIT                 10760000
107700*              GO TO 2310-EXIT.                                   10770000
107800                                                                  10780000
107900 2310-EXIT.  EXIT.                                                10790000
108000                                                                  10800000
108100 2312-RECODE-HRG2.                                                10810000
108200                                                                  10820000
108300       IF (HHA-REVENUE-SUM1-3-QTY-THR < 14)                       10830000
108400         MOVE '3' TO WORK-HRG1                                    10840000
108500        PERFORM 2325-RECODE-HRG1-3 THRU 2325-EXIT                 10850000
108600               GO TO 2312-EXIT.                                   10860000
108700                                                                  10870000
108800       IF (HHA-REVENUE-SUM1-3-QTY-THR > 13 AND                    10880000
108900           HHA-REVENUE-SUM1-3-QTY-THR < 20)                       10890000
109000             MOVE '4' TO WORK-HRG1                                10900000
109100        PERFORM 2330-RECODE-HRG1-4 THRU 2330-EXIT                 10910000
109200               GO TO 2312-EXIT.                                   10920000
109300                                                                  10930000
109400**** V161 ****                                                    10940000
109500*      IF (HHA-REVENUE-SUM1-3-QTY-THR > 20)                       10950000
109600*            MOVE '4' TO WORK-HRG1                                10960000
109700*            MOVE '1' TO HRG-KEEP5-SW1                            10970000
109800*       PERFORM 2330-RECODE-HRG1-4 THRU 2330-EXIT                 10980000
109900*              GO TO 2312-EXIT.                                   10990000
110000                                                                  11000000
110100 2312-EXIT.  EXIT.                                                11010000
110200                                                                  11020000
110300 2410-RECODE-EPP1.                                                11030000
110400                                                                  11040000
110500       IF (HHA-REVENUE-SUM1-3-QTY-THR < 14)                       11050000
110600         MOVE '1' TO WORK-HRG1                                    11060000
110700        PERFORM 2315-RECODE-HRG1-1 THRU 2315-EXIT                 11070000
110800               GO TO 2410-EXIT.                                   11080000
110900                                                                  11090000
111000       IF (HHA-REVENUE-SUM1-3-QTY-THR > 13 AND                    11100000
111100           HHA-REVENUE-SUM1-3-QTY-THR < 20)                       11110000
111200             MOVE '2' TO WORK-HRG1                                11120000
111300        PERFORM 2320-RECODE-HRG1-2 THRU 2320-EXIT                 11130000
111400               GO TO 2410-EXIT.                                   11140000
111500                                                                  11150000
111600**** V161 ****                                                    11160000
111700*      IF (HHA-REVENUE-SUM1-3-QTY-THR > 19)                       11170000
111800*        MOVE 'K' TO WORK-HRG4                                    11180000
111900*        IF WORK-ORIG-HRG1 = '1' OR '2'                           11190000
112000*           PERFORM 2475-RECODE-HRG5-3  THRU 2475-EXIT            11200000
112100*        ELSE                                                     11210000
112200*           PERFORM 2480-RECODE-HRG5-4 THRU 2480-EXIT             11220000
112300*              GO TO 2410-EXIT.                                   11230000
112400                                                                  11240000
112500                                                                  11250000
112600 2410-EXIT.  EXIT.                                                11260000
112700                                                                  11270000
112800 2415-RECODE-EPP2.                                                11280000
112900                                                                  11290000
113000       IF (HHA-REVENUE-SUM1-3-QTY-THR < 14)                       11300000
113100         MOVE '3' TO WORK-HRG1                                    11310000
113200        PERFORM 2325-RECODE-HRG1-3 THRU 2325-EXIT                 11320000
113300               GO TO 2415-EXIT.                                   11330000
113400                                                                  11340000
113500                                                                  11350000
113600       IF (HHA-REVENUE-SUM1-3-QTY-THR > 13 AND                    11360000
113700           HHA-REVENUE-SUM1-3-QTY-THR < 20)                       11370000
113800             MOVE '4' TO WORK-HRG1                                11380000
113900        PERFORM 2330-RECODE-HRG1-4 THRU 2330-EXIT                 11390000
114000               GO TO 2415-EXIT.                                   11400000
114100                                                                  11410000
114200**** V161 ****                                                    11420000
114300*      IF (HHA-REVENUE-SUM1-3-QTY-THR > 19)                       11430000
114400*            MOVE 'K' TO WORK-HRG4                                11440000
114500*        IF WORK-ORIG-HRG1 = '1' OR '2'                           11450000
114600*           PERFORM 2475-RECODE-HRG5-3  THRU 2475-EXIT            11460000
114700*        ELSE                                                     11470000
114800*           PERFORM 2480-RECODE-HRG5-4 THRU 2480-EXIT             11480000
114900*              GO TO 2415-EXIT.                                   11490000
115000                                                                  11500000
115100 2415-EXIT.  EXIT.                                                11510000
115200                                                                  11520000
115300 2430-RECODE-HRG4-1.                                              11530000
115400                                                                  11540000
115500     IF WORK-HRG1 = '1' OR '3'                                    11550000
115600        PERFORM 2440-RECODE-HRG4-2  THRU 2440-EXIT                11560000
115700        GO TO 2430-EXIT.                                          11570000
115800                                                                  11580000
115900                                                                  11590000
116000     IF WORK-HRG1 = '2' OR '4'                                    11600000
116100        PERFORM 2450-RECODE-HRG4-3  THRU 2450-EXIT                11610000
116200        GO TO 2430-EXIT.                                          11620000
116300                                                                  11630000
116400 2430-EXIT.  EXIT.                                                11640000
116500                                                                  11650000
116600                                                                  11660000
116700 2440-RECODE-HRG4-2.                                              11670000
116800                                                                  11680000
116900     IF  HHA-REVENUE-SUM1-3-QTY-THR < 6                           11690000
117000             MOVE 'K' TO WORK-HRG4.                               11700000
117100                                                                  11710000
117200     IF  HHA-REVENUE-SUM1-3-QTY-THR = 6                           11720000
117300             MOVE 'L' TO WORK-HRG4.                               11730000
117400                                                                  11740000
117500                                                                  11750000
117600     IF (HHA-REVENUE-SUM1-3-QTY-THR >  6 AND                      11760000
117700         HHA-REVENUE-SUM1-3-QTY-THR < 10)                         11770000
117800             MOVE 'M' TO WORK-HRG4.                               11780000
117900                                                                  11790000
118000     IF  HHA-REVENUE-SUM1-3-QTY-THR = 10                          11800000
118100             MOVE 'N' TO WORK-HRG4.                               11810000
118200                                                                  11820000
118300     IF (HHA-REVENUE-SUM1-3-QTY-THR > 10 AND                      11830000
118400         HHA-REVENUE-SUM1-3-QTY-THR < 14)                         11840000
118500             MOVE 'P' TO WORK-HRG4.                               11850000
118600                                                                  11860000
118700     IF (WORK-HRG1 = '1' AND                                      11870000
118800         HHA-REVENUE-SUM1-3-QTY-THR > 13 AND                      11880000
118900         HHA-REVENUE-SUM1-3-QTY-THR < 20)                         11890000
119000           MOVE '2' TO WORK-HRG1                                  11900000
119100           MOVE '1' TO HHA-RECODE-IND                             11910000
119200           COMPUTE HRG-RECODE-SW = HRG-RECODE-SW + 1              11920000
119300           GO TO 2440-EXIT.                                       11930000
119400                                                                  11940000
119500                                                                  11950000
119600     IF (WORK-HRG1 = '3' AND                                      11960000
119700         HHA-REVENUE-SUM1-3-QTY-THR > 13 AND                      11970000
119800         HHA-REVENUE-SUM1-3-QTY-THR < 20)                         11980000
119900           MOVE '4' TO WORK-HRG1                                  11990000
120000           MOVE '3' TO HHA-RECODE-IND                             12000000
120100           COMPUTE HRG-RECODE-SW = HRG-RECODE-SW + 1              12010000
120200           GO TO 2440-EXIT.                                       12020000
120300                                                                  12030000
120400                                                                  12040000
120500     IF (WORK-HRG1 = '1' AND                                      12050000
120600         HHA-REVENUE-SUM1-3-QTY-THR > 19)                         12060000
120700           MOVE '5' TO WORK-HRG1                                  12070000
120800*          MOVE '1' TO HHA-RECODE-IND                             12080000
120900          PERFORM 2475-RECODE-HRG5-3  THRU 2475-EXIT              12090000
121000           GO TO 2440-EXIT.                                       12100000
121100                                                                  12110000
121200                                                                  12120000
121300     IF (WORK-HRG1 = '3' AND                                      12130000
121400         HHA-REVENUE-SUM1-3-QTY-THR > 19)                         12140000
121500           MOVE '5' TO WORK-HRG1                                  12150000
121600*          MOVE '1' TO HHA-RECODE-IND                             12160000
121700          PERFORM 2480-RECODE-HRG5-4  THRU 2480-EXIT              12170000
121800           GO TO 2440-EXIT.                                       12180000
121900                                                                  12190000
122000                                                                  12200000
122100 2440-EXIT.  EXIT.                                                12210000
122200                                                                  12220000
122300                                                                  12230000
122400 2450-RECODE-HRG4-3.                                              12240000
122500                                                                  12250000
122600                                                                  12260000
122700     IF (HHA-REVENUE-SUM1-3-QTY-THR > 13 AND                      12270000
122800         HHA-REVENUE-SUM1-3-QTY-THR < 16)                         12280000
122900             MOVE 'K' TO WORK-HRG4                                12290000
123000             GO TO 2450-EXIT.                                     12300000
123100                                                                  12310000
123200     IF (HHA-REVENUE-SUM1-3-QTY-THR > 15 AND                      12320000
123300         HHA-REVENUE-SUM1-3-QTY-THR < 18)                         12330000
123400             MOVE 'L' TO WORK-HRG4                                12340000
123500             GO TO 2450-EXIT.                                     12350000
123600                                                                  12360000
123700     IF (HHA-REVENUE-SUM1-3-QTY-THR > 17 AND                      12370000
123800         HHA-REVENUE-SUM1-3-QTY-THR < 20)                         12380000
123900             MOVE 'M' TO WORK-HRG4                                12390000
124000             GO TO 2450-EXIT.                                     12400000
124100                                                                  12410000
124200     IF (WORK-HRG1 = '2' AND                                      12420000
124300         HHA-REVENUE-SUM1-3-QTY-THR < 14)                         12430000
124400           MOVE '1' TO WORK-HRG1                                  12440000
124500           MOVE '1' TO HHA-RECODE-IND                             12450000
124600           COMPUTE HRG-RECODE-SW = HRG-RECODE-SW + 1              12460000
124700             GO TO 2450-EXIT.                                     12470000
124800                                                                  12480000
124900                                                                  12490000
125000     IF (WORK-HRG1 = '4' AND                                      12500000
125100         HHA-REVENUE-SUM1-3-QTY-THR < 14)                         12510000
125200           MOVE '3' TO WORK-HRG1                                  12520000
125300           MOVE '3' TO HHA-RECODE-IND                             12530000
125400           COMPUTE HRG-RECODE-SW = HRG-RECODE-SW + 1              12540000
125500             GO TO 2450-EXIT.                                     12550000
125600                                                                  12560000
125700                                                                  12570000
125800     IF (WORK-HRG1 = '2' AND                                      12580000
125900         HHA-REVENUE-SUM1-3-QTY-THR > 19)                         12590000
126000           MOVE '5' TO WORK-HRG1                                  12600000
126100*          MOVE '1' TO HHA-RECODE-IND                             12610000
126200*       IF HRG-KEEP5-SW1 = 1                                      12620000
126300*         PERFORM 2480-RECODE-HRG5-4  THRU 2480-EXIT              12630000
126400*          MOVE WORK-HRG TO HHA-HRG-OUTPUT-CODE (SUB1)            12640000
126500*          MOVE WORK-HRG TO SEARCH-HRG                            12650000
126600*          GO TO 2450-EXIT                                        12660000
126700*       ELSE                                                      12670000
126800          PERFORM 2475-RECODE-HRG5-3  THRU 2475-EXIT              12680000
126900           GO TO 2450-EXIT.                                       12690000
127000                                                                  12700000
127100     IF (WORK-HRG1 = '4' AND                                      12710000
127200         HHA-REVENUE-SUM1-3-QTY-THR > 19)                         12720000
127300           MOVE '5' TO WORK-HRG1                                  12730000
127400*          MOVE '1' TO HHA-RECODE-IND                             12740000
127500          PERFORM 2480-RECODE-HRG5-4  THRU 2480-EXIT              12750000
127600           GO TO 2450-EXIT.                                       12760000
127700                                                                  12770000
127800                                                                  12780000
127900 2450-EXIT.  EXIT.                                                12790000
128000                                                                  12800000
128100                                                                  12810000
128200 2600-RECODE-HRG-POS4.                                            12820000
128300                                                                  12830000
128400        IF  HHA-REVENUE-SUM1-3-QTY-THR < 6                        12840000
128500             MOVE 'K' TO WORK-HRG4.                               12850000
128600                                                                  12860000
128700        IF  HHA-REVENUE-SUM1-3-QTY-THR = 6                        12870000
128800             MOVE 'L' TO WORK-HRG4.                               12880000
128900                                                                  12890000
129000        IF (HHA-REVENUE-SUM1-3-QTY-THR >  6 AND                   12900000
129100            HHA-REVENUE-SUM1-3-QTY-THR < 10)                      12910000
129200             MOVE 'M' TO WORK-HRG4.                               12920000
129300                                                                  12930000
129400        IF  HHA-REVENUE-SUM1-3-QTY-THR = 10                       12940000
129500             MOVE 'N' TO WORK-HRG4.                               12950000
129600                                                                  12960000
129700        IF (HHA-REVENUE-SUM1-3-QTY-THR > 10 AND                   12970000
129800            HHA-REVENUE-SUM1-3-QTY-THR < 14)                      12980000
129900             MOVE 'P' TO WORK-HRG4.                               12990000
130000                                                                  13000000
130100        IF (HHA-REVENUE-SUM1-3-QTY-THR > 13 AND                   13010000
130200            HHA-REVENUE-SUM1-3-QTY-THR < 16)                      13020000
130300             MOVE 'K' TO WORK-HRG4.                               13030000
130400                                                                  13040000
130500        IF (HHA-REVENUE-SUM1-3-QTY-THR > 15 AND                   13050000
130600            HHA-REVENUE-SUM1-3-QTY-THR < 18)                      13060000
130700             MOVE 'L' TO WORK-HRG4.                               13070000
130800                                                                  13080000
130900        IF (HHA-REVENUE-SUM1-3-QTY-THR > 17 AND                   13090000
131000            HHA-REVENUE-SUM1-3-QTY-THR < 20)                      13100000
131100             MOVE 'M' TO WORK-HRG4.                               13110000
131200                                                                  13120000
131300        IF  HHA-REVENUE-SUM1-3-QTY-THR > 19                       13130000
131400             MOVE 'K' TO WORK-HRG4.                               13140000
131500                                                                  13150000
131600 2600-EXIT.  EXIT.                                                13160000
131700***===================================================***         13170000
131800                                                                  13180000
131900 2700-GET-REV.                                                    13190000
132000                                                                  13200000
132100     IF HHA-REVENUE-CODE (SUB1) = SPACES                          13210000
132200        MOVE 6 TO SUB1                                            13220000
132300        GO TO 2700-EXIT.                                          13230000
132400                                                                  13240000
132500     SET RU1 TO 1.                                                13250000
132600     SEARCH M-REV-DATA VARYING RU1                                13260000
132700            AT END                                                13270000
132800               MOVE '80' TO HHA-PAY-RTC                           13280000
132900               MOVE 6 TO SUB1                                     13290000
133000               GO TO 2700-EXIT                                    13300000
133100            WHEN TB-REV-CODE (RU1) = HHA-REVENUE-CODE (SUB1)      13310000
133200               SET RU2 TO RU1                                     13320000
133300               PERFORM 2750-GET-REV-DOLLARS THRU 2750-EXIT.       13330000
133400                                                                  13340000
133500 2700-EXIT.  EXIT.                                                13350000
133600                                                                  13360000
133700 2750-GET-REV-DOLLARS.                                            13370000
133800                                                                  13380000
133900      PERFORM 2800-GET-REV-SEARCH THRU 2800-EXIT                  13390000
134000           VARYING RU2 FROM RU1 BY 1 UNTIL                        13400000
134100           TB-REV-CODE (RU2) NOT = HHA-REVENUE-CODE (SUB1).       13410000
134200                                                                  13420000
134300 2750-EXIT.   EXIT.                                               13430000
134400                                                                  13440000
134500 2800-GET-REV-SEARCH.                                             13450000
134600                                                                  13460000
134700     IF HHA-SERV-THRU-DATE NOT < TB-REV-EFFDATE (RU2)             13470000
134800         MOVE TB-REV-CODE             (RU2) TO                    13480000
134900              TB-STDV-REV-CODE      (SUB1)                        13490000
135000         MOVE TB-REV-DOLL-RATE-NRURAL (RU2) TO                    13500000
135100              TB-STDV-REV-DOLL-RATE (SUB1)                        13510000
135200         MOVE TB-REV-DOLL-RATE-NRURAL (RU2) TO                    13520000
135300              HHA-REVENUE-DOLL-RATE (SUB1)                        13530000
135400         MOVE TB-REV-UDOLL-RATE-NRURAL (RU2) TO                   13540000
135500              WK-REV-DOLL-RATE-UNITS (SUB1)                       13550000
135600     ELSE                                                         13560000
135700         GO TO 2800-EXIT.                                         13570000
135800                                                                  13580000
135900     IF HHA-SERV-THRU-DATE > 20010331 AND                         13590000
136000        HHA-SERV-THRU-DATE < 20060101                             13600000
136100        IF HHA-MSA2-RURAL-CHECK                                   13610000
136200            MOVE TB-REV-DOLL-RATE-RURAL (RU2) TO                  13620000
136300                 HHA-REVENUE-DOLL-RATE (SUB1).                    13630000
136400                                                                  13640000
136500     IF HHA-SERV-THRU-DATE > 20051231 AND                         13650000
136600        HHA-SERV-THRU-DATE < 20070101 AND                         13660000
136700        HHA-SERV-FROM-DATE > 20051231                             13670000
136800        IF HHA-CBSA-RURAL-CHECK                                   13680000
136900        OR HHA-CBSA-RURAL-CHECK-ALL                               13690000
137000            MOVE TB-REV-DOLL-RATE-RURAL (RU2) TO                  13700000
137100                 HHA-REVENUE-DOLL-RATE (SUB1)                     13710000
137200            GO TO 2800-EXIT.                                      13720000
137300                                                                  13730000
137400     IF HHA-SERV-THRU-DATE > 20061231 AND                         13740000
137500        HHA-SERV-FROM-DATE > 20061231 AND                         13750000
137600        HHA-SERV-THRU-DATE < 20070101                             13760000
137700        IF HHA-CBSA-RURAL-CHECK                                   13770000
137800        OR HHA-CBSA-RURAL-CHECK-ALL                               13780000
137900            IF HHA-WITH-DATA-CHECK                                13790000
138000                MOVE TB-REV-DOLL-RATE-RURAL (RU2) TO              13800000
138100                     HHA-REVENUE-DOLL-RATE (SUB1)                 13810000
138200            ELSE                                                  13820000
138300                MOVE TB-DOLL-RATE-RURAL-NOSUBMIT (RU2) TO         13830000
138400                     HHA-REVENUE-DOLL-RATE (SUB1)                 13840000
138500            END-IF                                                13850000
138600        ELSE                                                      13860000
138700            IF HHA-WITH-DATA-CHECK                                13870000
138800                MOVE TB-REV-DOLL-RATE-NRURAL (RU2) TO             13880000
138900                     HHA-REVENUE-DOLL-RATE (SUB1)                 13890000
139000            ELSE                                                  13900000
139100                MOVE TB-DOLL-RATE-NRURAL-NOSUBMIT (RU2) TO        13910000
139200                     HHA-REVENUE-DOLL-RATE (SUB1)                 13920000
139300            END-IF                                                13930000
139400        END-IF                                                    13940000
139500     END-IF.                                                      13950000
139600                                                                  13960000
139700     IF HHA-CBSA-RURAL-CHECK                                      13970000
139800     OR HHA-CBSA-RURAL-CHECK-ALL                                  13980000
139900        MOVE TB-REV-CODE             (RU2) TO                     13990000
140000             TB-STDV-REV-CODE      (SUB1)                         14000000
140100        MOVE TB-REV-DOLL-RATE-NRURAL (RU2) TO                     14010000
140200             TB-STDV-REV-DOLL-RATE  (SUB1)                        14020000
140300        IF HHA-WITH-DATA-CHECK                                    14030000
140400            MOVE TB-REV-DOLL-RATE-RURAL (RU2) TO                  14040000
140500                 HHA-REVENUE-DOLL-RATE (SUB1)                     14050000
140600            MOVE TB-REV-UDOLL-RATE-RURAL (RU2) TO                 14060000
140700              WK-REV-DOLL-RATE-UNITS (SUB1)                       14070000
140800        ELSE                                                      14080000
140900            MOVE TB-DOLL-RATE-RURAL-NOSUBMIT (RU2) TO             14090000
141000                 HHA-REVENUE-DOLL-RATE (SUB1)                     14100000
141100            MOVE TB-UDOLL-RATE-RURAL-NOSUBMIT (RU2) TO            14110000
141200              WK-REV-DOLL-RATE-UNITS (SUB1)                       14120000
141300        END-IF                                                    14130000
141400     ELSE                                                         14140000
141500        MOVE TB-REV-CODE             (RU2) TO                     14150000
141600             TB-STDV-REV-CODE      (SUB1)                         14160000
141700        MOVE TB-REV-DOLL-RATE-NRURAL (RU2) TO                     14170000
141800             TB-STDV-REV-DOLL-RATE  (SUB1)                        14180000
141900        IF HHA-WITH-DATA-CHECK                                    14190000
142000           MOVE TB-REV-DOLL-RATE-NRURAL (RU2) TO                  14200000
142100                HHA-REVENUE-DOLL-RATE (SUB1)                      14210000
142200           MOVE TB-REV-UDOLL-RATE-NRURAL (RU2) TO                 14220000
142300              WK-REV-DOLL-RATE-UNITS (SUB1)                       14230000
142400        ELSE                                                      14240000
142500            MOVE TB-DOLL-RATE-NRURAL-NOSUBMIT (RU2) TO            14250000
142600                 HHA-REVENUE-DOLL-RATE (SUB1)                     14260000
142700            MOVE TB-UDOLL-RATE-NRURAL-NOSUBMIT (RU2) TO           14270000
142800              WK-REV-DOLL-RATE-UNITS (SUB1)                       14280000
142900        END-IF                                                    14290000
143000     END-IF.                                                      14300000
143100                                                                  14310000
143200 2800-EXIT.  EXIT.                                                14320000
143300                                                                  14330000
143400*================================================================*14340000
143500*                *** RECODING LOGIC ***                          *14350000
143600*================================================================*14360000
143700                                                                  14370000
143800 2315-RECODE-HRG1-1.                                              14380000
143900                                                                  14390000
144000     IF HHA-SERV-THRU-DATE < 20150101                             14400000
144100        PERFORM 2315-RECODE-HRG1-1-2014                           14410000
144200           THRU 2315-RECORD-HRG1-1-2014-EXIT                      14420000
144300     ELSE                                                         14430000
144400     IF HHA-SERV-THRU-DATE < 20160101                             14440000
144500        PERFORM 2315-RECODE-HRG1-1-2015                           14450000
144600           THRU 2315-RECORD-HRG1-1-2015-EXIT                      14460000
144700     ELSE                                                         14470000
144800     IF HHA-SERV-THRU-DATE < 20170101                             14480000
144900        PERFORM 2315-RECODE-HRG1-1-2016                           14490000
145000           THRU 2315-RECORD-HRG1-1-2016-EXIT                      14500000
145100     ELSE                                                         14510000
145200     IF HHA-SERV-THRU-DATE < 20180101                             14520000
145300        PERFORM 2315-RECODE-HRG1-1-2017                           14530000
145400           THRU 2315-RECORD-HRG1-1-2017-EXIT                      14540000
145410     ELSE                                                         14541000
145420     IF HHA-SERV-THRU-DATE < 20190101                             14542000
145430        PERFORM 2315-RECODE-HRG1-1-2018                           14543000
145440           THRU 2315-RECORD-HRG1-1-2018-EXIT                      14544000
145450     END-IF.                                                      14545000
145460                                                                  14546000
145470     PERFORM 2430-RECODE-HRG4-1 THRU 2430-EXIT.                   14547000
145480                                                                  14548000
145490 2315-EXIT.  EXIT.                                                14549000
145500                                                                  14550000
145600 2315-RECODE-HRG1-1-2014.                                         14560000
145700                                                                  14570000
145800     IF HHA-CLINICAL-SEV-EQ1 = 'A' OR 'B' OR 'C' OR 'D'           14580000
145900        MOVE 'A'     TO WORK-HRG2.                                14590000
146000                                                                  14600000
146100     IF HHA-CLINICAL-SEV-EQ1 = 'E' OR 'F' OR 'G' OR 'H'           14610000
146200        MOVE 'B'     TO WORK-HRG2.                                14620000
146300                                                                  14630000
146400     IF HHA-CLINICAL-SEV-EQ1 = 'I' OR 'J' OR 'K' OR               14640000
146500                               'L' OR 'M' OR 'N' OR 'O' OR        14650000
146600                 'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR        14660000
146700                 'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                  14670000
146800        MOVE 'C'     TO WORK-HRG2.                                14680000
146900                                                                  14690000
147000     IF HHA-FUNCTION-SEV-EQ1 = 'A' OR 'B' OR 'C' OR 'D' OR 'E'    14700000
147100        MOVE 'F'     TO WORK-HRG3.                                14710000
147200                                                                  14720000
147300     IF HHA-FUNCTION-SEV-EQ1 = 'F'                                14730000
147400        MOVE 'G'     TO WORK-HRG3.                                14740000
147500                                                                  14750000
147600     IF HHA-FUNCTION-SEV-EQ1 =     'G' OR 'H' OR 'I' OR           14760000
147700                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR       14770000
147800                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       14780000
147900                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 14790000
148000        MOVE 'H'     TO WORK-HRG3.                                14800000
148100                                                                  14810000
148200 2315-RECORD-HRG1-1-2014-EXIT.                                    14820000
148300     EXIT.                                                        14830000
148400                                                                  14840000
148500 2315-RECODE-HRG1-1-2015.                                         14850000
148600                                                                  14860000
148700     IF HHA-CLINICAL-SEV-EQ1 = 'A' OR 'B'                         14870000
148800        MOVE 'A'     TO WORK-HRG2.                                14880000
148900                                                                  14890000
149000     IF HHA-CLINICAL-SEV-EQ1 = 'C' OR 'D'                         14900000
149100        MOVE 'B'     TO WORK-HRG2.                                14910000
149200                                                                  14920000
149300     IF HHA-CLINICAL-SEV-EQ1 = 'E' OR 'F' OR 'G' OR 'H' OR        14930000
149400                               'I' OR 'J' OR 'K' OR               14940000
149500                               'L' OR 'M' OR 'N' OR 'O' OR        14950000
149600                 'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR        14960000
149700                 'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                  14970000
149800        MOVE 'C'     TO WORK-HRG2.                                14980000
149900                                                                  14990000
150000     IF HHA-FUNCTION-SEV-EQ1 = 'A' OR 'B' OR 'C' OR 'D' OR 'E'    15000000
150100                            OR 'F' OR 'G' OR 'H' OR 'I' OR 'J'    15010000
150200                            OR 'K' OR 'L' OR 'M' OR 'N' OR 'O'    15020000
150300        MOVE 'F'     TO WORK-HRG3.                                15030000
150400                                                                  15040000
150500     IF HHA-FUNCTION-SEV-EQ1 = 'P'                                15050000
150600        MOVE 'G'     TO WORK-HRG3.                                15060000
150700                                                                  15070000
150800     IF HHA-FUNCTION-SEV-EQ1 =     'Q' OR 'R' OR 'S' OR           15080000
150900                                'T' OR 'U' OR 'V' OR              15090000
151000                                'W' OR 'X' OR 'Y' OR 'Z'          15100000
151100        MOVE 'H'     TO WORK-HRG3.                                15110000
151200                                                                  15120000
151300 2315-RECORD-HRG1-1-2015-EXIT.                                    15130000
151400     EXIT.                                                        15140000
151500                                                                  15150000
151600 2315-RECODE-HRG1-1-2016.                                         15160000
151700                                                                  15170000
151800     IF HHA-CLINICAL-SEV-EQ1 = 'A' OR 'B'                         15180000
151900        MOVE 'A'     TO WORK-HRG2.                                15190000
152000                                                                  15200000
152100     IF HHA-CLINICAL-SEV-EQ1 = 'C' OR 'D'                         15210000
152200        MOVE 'B'     TO WORK-HRG2.                                15220000
152300                                                                  15230000
152400     IF HHA-CLINICAL-SEV-EQ1 = 'E' OR 'F' OR 'G' OR 'H' OR        15240000
152500                               'I' OR 'J' OR 'K' OR               15250000
152600                               'L' OR 'M' OR 'N' OR 'O' OR        15260000
152700                 'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR        15270000
152800                 'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                  15280000
152900        MOVE 'C'     TO WORK-HRG2.                                15290000
153000                                                                  15300000
153100     IF HHA-FUNCTION-SEV-EQ1 = 'A' OR 'B' OR 'C' OR 'D' OR 'E'    15310000
153200                            OR 'F' OR 'G' OR 'H' OR 'I' OR 'J'    15320000
153300                            OR 'K' OR 'L' OR 'M' OR 'N' OR 'O'    15330000
153400        MOVE 'F'     TO WORK-HRG3.                                15340000
153500                                                                  15350000
153600     IF HHA-FUNCTION-SEV-EQ1 = 'P'                                15360000
153700        MOVE 'G'     TO WORK-HRG3.                                15370000
153800                                                                  15380000
153900     IF HHA-FUNCTION-SEV-EQ1 =     'Q' OR 'R' OR 'S' OR           15390000
154000                                'T' OR 'U' OR 'V' OR              15400000
154100                                'W' OR 'X' OR 'Y' OR 'Z'          15410000
154200        MOVE 'H'     TO WORK-HRG3.                                15420000
154300                                                                  15430000
154400 2315-RECORD-HRG1-1-2016-EXIT.                                    15440000
154500     EXIT.                                                        15450000
154600                                                                  15460000
154700 2315-RECODE-HRG1-1-2017.                                         15470000
154800                                                                  15480000
154900     IF HHA-CLINICAL-SEV-EQ1 = 'A' OR 'B'                         15490000
155000        MOVE 'A'     TO WORK-HRG2.                                15500000
155100                                                                  15510000
155200     IF HHA-CLINICAL-SEV-EQ1 = 'C' OR 'D'                         15520000
155300        MOVE 'B'     TO WORK-HRG2.                                15530000
155400                                                                  15540000
155500     IF HHA-CLINICAL-SEV-EQ1 = 'E' OR 'F' OR 'G' OR 'H' OR        15550000
155600                               'I' OR 'J' OR 'K' OR               15560000
155700                               'L' OR 'M' OR 'N' OR 'O' OR        15570000
155800                 'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR        15580000
155900                 'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                  15590000
156000        MOVE 'C'     TO WORK-HRG2.                                15600000
156100                                                                  15610000
156200     IF HHA-FUNCTION-SEV-EQ1 = 'A' OR 'B' OR 'C' OR 'D' OR 'E'    15620000
156300                            OR 'F' OR 'G' OR 'H' OR 'I' OR 'J'    15630000
156400                            OR 'K' OR 'L' OR 'M' OR 'N'           15640000
156500        MOVE 'F'     TO WORK-HRG3.                                15650000
156600                                                                  15660000
156700     IF HHA-FUNCTION-SEV-EQ1 = 'O'                                15670000
156800        MOVE 'G'     TO WORK-HRG3.                                15680000
156900                                                                  15690000
157000     IF HHA-FUNCTION-SEV-EQ1 = 'P' OR 'Q' OR 'R' OR 'S' OR        15700000
157100                               'T' OR 'U' OR 'V' OR               15710000
157200                               'W' OR 'X' OR 'Y' OR 'Z'           15720000
157300        MOVE 'H'     TO WORK-HRG3.                                15730000
157400                                                                  15740000
157500 2315-RECORD-HRG1-1-2017-EXIT.                                    15750000
157600     EXIT.                                                        15760000
157700                                                                  15770000
157800 2315-RECODE-HRG1-1-2018.                                         15780000
157900                                                                  15790000
158000     IF HHA-CLINICAL-SEV-EQ1 = 'A' OR 'B'                         15800000
158100        MOVE 'A'     TO WORK-HRG2.                                15810000
158110                                                                  15811000
158120     IF HHA-CLINICAL-SEV-EQ1 = 'C' OR 'D'                         15812000
158130        MOVE 'B'     TO WORK-HRG2.                                15813000
158140                                                                  15814000
158150     IF HHA-CLINICAL-SEV-EQ1 = 'E' OR 'F' OR 'G' OR 'H' OR        15815000
158160                               'I' OR 'J' OR 'K' OR               15816000
158170                               'L' OR 'M' OR 'N' OR 'O' OR        15817000
158180                 'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR        15818000
158190                 'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                  15819000
158191        MOVE 'C'     TO WORK-HRG2.                                15819100
158192                                                                  15819200
158193     IF HHA-FUNCTION-SEV-EQ1 = 'A' OR 'B' OR 'C' OR 'D' OR 'E'    15819300
158194                            OR 'F' OR 'G' OR 'H' OR 'I' OR 'J'    15819400
158195                            OR 'K' OR 'L' OR 'M' OR 'N'           15819500
158196        MOVE 'F'     TO WORK-HRG3.                                15819600
158197                                                                  15819700
158198     IF HHA-FUNCTION-SEV-EQ1 = 'O'                                15819800
158199        MOVE 'G'     TO WORK-HRG3.                                15819900
158200                                                                  15820000
158201     IF HHA-FUNCTION-SEV-EQ1 = 'P' OR 'Q' OR 'R' OR 'S' OR        15820100
158202                               'T' OR 'U' OR 'V' OR               15820200
158203                               'W' OR 'X' OR 'Y' OR 'Z'           15820300
158204        MOVE 'H'     TO WORK-HRG3.                                15820400
158205                                                                  15820500
158206 2315-RECORD-HRG1-1-2018-EXIT.                                    15820600
158207     EXIT.                                                        15820700
158208                                                                  15820800
158209 2320-RECODE-HRG1-2.                                              15820900
158210                                                                  15821000
158220     IF HHA-SERV-THRU-DATE < 20150101                             15822000
158230        PERFORM 2320-RECODE-HRG1-2-2014                           15823000
158240           THRU 2320-RECORD-HRG1-2-2014-EXIT                      15824000
158250     ELSE                                                         15825000
158260     IF HHA-SERV-THRU-DATE < 20160101                             15826000
158270        PERFORM 2320-RECODE-HRG1-2-2015                           15827000
158280           THRU 2320-RECORD-HRG1-2-2015-EXIT                      15828000
158290     ELSE                                                         15829000
158300     IF HHA-SERV-THRU-DATE < 20170101                             15830000
158400        PERFORM 2320-RECODE-HRG1-2-2016                           15840000
158500           THRU 2320-RECORD-HRG1-2-2016-EXIT                      15850000
158600     ELSE                                                         15860000
158700     IF HHA-SERV-THRU-DATE < 20180101                             15870000
158800        PERFORM 2320-RECODE-HRG1-2-2017                           15880000
158900           THRU 2320-RECORD-HRG1-2-2017-EXIT                      15890000
159000     ELSE                                                         15900000
159100     IF HHA-SERV-THRU-DATE < 20190101                             15910000
159200        PERFORM 2320-RECODE-HRG1-2-2018                           15920000
159300           THRU 2320-RECORD-HRG1-2-2018-EXIT                      15930000
159400     END-IF.                                                      15940000
159500                                                                  15950000
159600     PERFORM 2430-RECODE-HRG4-1  THRU 2430-EXIT.                  15960000
159700                                                                  15970000
159800 2320-EXIT.                                                       15980000
159900     EXIT.                                                        15990000
160000                                                                  16000000
160100 2320-RECODE-HRG1-2-2014.                                         16010000
160200                                                                  16020000
160300     IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D' OR        16030000
160400                               'E' OR 'F'                         16040000
160500        MOVE 'A'     TO WORK-HRG2.                                16050000
160600                                                                  16060000
160700     IF HHA-CLINICAL-SEV-EQ2 = 'G' OR 'H' OR                      16070000
160800                               'I' OR 'J' OR 'K' OR 'L' OR        16080000
160900                               'M' OR 'N'                         16090000
161000        MOVE 'B'     TO WORK-HRG2.                                16100000
161100                                                                  16110000
161200     IF HHA-CLINICAL-SEV-EQ2 = 'O' OR 'P' OR 'Q' OR 'R' OR        16120000
161300                               'S' OR 'T' OR 'U' OR               16130000
161400                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    16140000
161500        MOVE 'C'     TO WORK-HRG2.                                16150000
161600                                                                  16160000
161700     IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D' OR        16170000
161800                               'E' OR 'F'                         16180000
161900        MOVE 'F'     TO WORK-HRG3.                                16190000
162000                                                                  16200000
162100     IF HHA-FUNCTION-SEV-EQ2 = 'G'                                16210000
162200        MOVE 'G'     TO WORK-HRG3.                                16220000
162300                                                                  16230000
162400     IF HHA-FUNCTION-SEV-EQ2 =     'H' OR 'I' OR                  16240000
162500                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR       16250000
162600                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       16260000
162700                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 16270000
162800        MOVE 'H'     TO WORK-HRG3.                                16280000
162900                                                                  16290000
163000 2320-RECORD-HRG1-2-2014-EXIT.                                    16300000
163100     EXIT.                                                        16310000
163200                                                                  16320000
163300 2320-RECODE-HRG1-2-2015.                                         16330000
163400                                                                  16340000
163500     IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B'                         16350000
163600        MOVE 'A'     TO WORK-HRG2.                                16360000
163700                                                                  16370000
163800     IF HHA-CLINICAL-SEV-EQ2 = 'C' OR 'D' OR 'E' OR               16380000
163900                               'F' OR 'G' OR 'H'                  16390000
164000        MOVE 'B'     TO WORK-HRG2.                                16400000
164100                                                                  16410000
164200     IF HHA-CLINICAL-SEV-EQ2 = 'I' OR 'J' OR 'K' OR 'L' OR        16420000
164300                               'M' OR 'N' OR                      16430000
164400                               'O' OR 'P' OR 'Q' OR 'R' OR        16440000
164500                               'S' OR 'T' OR 'U' OR               16450000
164600                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    16460000
164700        MOVE 'C'     TO WORK-HRG2.                                16470000
164800                                                                  16480000
164900     IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D'           16490000
165000        MOVE 'F'     TO WORK-HRG3.                                16500000
165100                                                                  16510000
165200     IF HHA-FUNCTION-SEV-EQ2 = 'E' OR 'F' OR 'G' OR               16520000
165300                               'H' OR 'I' OR                      16530000
165400                               'J' OR 'K' OR 'L' OR 'M' OR 'N'    16540000
165500        MOVE 'G'     TO WORK-HRG3.                                16550000
165600                                                                  16560000
165700     IF HHA-FUNCTION-SEV-EQ2 =     'O' OR                         16570000
165800                                'P' OR 'Q' OR 'R' OR              16580000
165900                                'S' OR 'T' OR 'U' OR              16590000
166000                                'V' OR 'W' OR 'X' OR 'Y' OR 'Z'   16600000
166100        MOVE 'H'     TO WORK-HRG3.                                16610000
166200                                                                  16620000
166300 2320-RECORD-HRG1-2-2015-EXIT.                                    16630000
166400     EXIT.                                                        16640000
166500                                                                  16650000
166600 2320-RECODE-HRG1-2-2016.                                         16660000
166700                                                                  16670000
166800     IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B'                         16680000
166900        MOVE 'A'     TO WORK-HRG2.                                16690000
167000                                                                  16700000
167100     IF HHA-CLINICAL-SEV-EQ2 = 'C' OR 'D' OR 'E' OR               16710000
167200                               'F' OR 'G' OR 'H'                  16720000
167300        MOVE 'B'     TO WORK-HRG2.                                16730000
167400                                                                  16740000
167500     IF HHA-CLINICAL-SEV-EQ2 = 'I' OR 'J' OR 'K' OR 'L' OR        16750000
167600                               'M' OR 'N' OR                      16760000
167700                               'O' OR 'P' OR 'Q' OR 'R' OR        16770000
167800                               'S' OR 'T' OR 'U' OR               16780000
167900                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    16790000
168000        MOVE 'C'     TO WORK-HRG2.                                16800000
168100                                                                  16810000
168200     IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D' OR        16820000
168300                               'E' OR 'F' OR 'G'                  16830000
168400        MOVE 'F'     TO WORK-HRG3.                                16840000
168500                                                                  16850000
168600     IF HHA-FUNCTION-SEV-EQ2 = 'H' OR 'I' OR                      16860000
168700                               'J' OR 'K' OR 'L' OR 'M' OR 'N'    16870000
168800        MOVE 'G'     TO WORK-HRG3.                                16880000
168900                                                                  16890000
169000     IF HHA-FUNCTION-SEV-EQ2 =  'O' OR                            16900000
169100                                'P' OR 'Q' OR 'R' OR              16910000
169200                                'S' OR 'T' OR 'U' OR              16920000
169300                                'V' OR 'W' OR 'X' OR 'Y' OR 'Z'   16930000
169400        MOVE 'H'     TO WORK-HRG3.                                16940000
169500                                                                  16950000
169600 2320-RECORD-HRG1-2-2016-EXIT.                                    16960000
169700     EXIT.                                                        16970000
169800                                                                  16980000
169900 2320-RECODE-HRG1-2-2017.                                         16990000
170000                                                                  17000000
170100     IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B'                         17010000
170200        MOVE 'A'     TO WORK-HRG2.                                17020000
170300                                                                  17030000
170400     IF HHA-CLINICAL-SEV-EQ2 = 'C' OR 'D' OR 'E' OR               17040000
170500                               'F' OR 'G' OR 'H'                  17050000
170600        MOVE 'B'     TO WORK-HRG2.                                17060000
170700                                                                  17070000
170800     IF HHA-CLINICAL-SEV-EQ2 = 'I' OR 'J' OR 'K' OR 'L' OR        17080000
170900                               'M' OR 'N' OR                      17090000
171000                               'O' OR 'P' OR 'Q' OR 'R' OR        17100000
171100                               'S' OR 'T' OR 'U' OR               17110000
171200                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    17120000
171300        MOVE 'C'     TO WORK-HRG2.                                17130000
171400                                                                  17140000
171500     IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D' OR        17150000
171600                               'E' OR 'F' OR 'G'                  17160000
171700        MOVE 'F'     TO WORK-HRG3.                                17170000
171800                                                                  17180000
171900     IF HHA-FUNCTION-SEV-EQ2 = 'H' OR 'I' OR                      17190000
172000                               'J' OR 'K' OR 'L' OR 'M' OR 'N'    17200000
172100        MOVE 'G'     TO WORK-HRG3.                                17210000
172200                                                                  17220000
172300     IF HHA-FUNCTION-SEV-EQ2 =  'O' OR                            17230000
172400                                'P' OR 'Q' OR 'R' OR              17240000
172500                                'S' OR 'T' OR 'U' OR              17250000
172600                                'V' OR 'W' OR 'X' OR 'Y' OR 'Z'   17260000
172700        MOVE 'H'     TO WORK-HRG3.                                17270000
172800                                                                  17280000
172900 2320-RECORD-HRG1-2-2017-EXIT.                                    17290000
173000     EXIT.                                                        17300000
173100                                                                  17310000
173200 2320-RECODE-HRG1-2-2018.                                         17320000
173300                                                                  17330000
173400     IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B'                         17340000
173500        MOVE 'A'     TO WORK-HRG2.                                17350000
173600                                                                  17360000
173610     IF HHA-CLINICAL-SEV-EQ2 = 'C' OR 'D' OR 'E' OR               17361000
173620                               'F' OR 'G' OR 'H'                  17362000
173630        MOVE 'B'     TO WORK-HRG2.                                17363000
173640                                                                  17364000
173650     IF HHA-CLINICAL-SEV-EQ2 = 'I' OR 'J' OR 'K' OR 'L' OR        17365000
173660                               'M' OR 'N' OR                      17366000
173670                               'O' OR 'P' OR 'Q' OR 'R' OR        17367000
173680                               'S' OR 'T' OR 'U' OR               17368000
173690                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    17369000
173691        MOVE 'C'     TO WORK-HRG2.                                17369100
173692                                                                  17369200
173693* V180 UPDATED                                                    17369300
173694                                                                  17369400
173695**   IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D' OR        17369500
173696**                             'E' OR 'F' OR 'G'                  17369600
173697**      MOVE 'F'     TO WORK-HRG3.                                17369700
173698                                                                  17369800
173699     IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D' OR        17369900
173700                               'E' OR 'F' OR 'G' OR 'H'           17370000
173701        MOVE 'F'     TO WORK-HRG3.                                17370100
173702                                                                  17370200
173703**   IF HHA-FUNCTION-SEV-EQ2 = 'H' OR 'I' OR                      17370300
173704**                             'J' OR 'K' OR 'L' OR 'M' OR 'N'    17370400
173705**      MOVE 'G'     TO WORK-HRG3.                                17370500
173706                                                                  17370600
173707     IF HHA-FUNCTION-SEV-EQ2 = 'I' OR 'J' OR                      17370700
173708                               'K' OR 'L' OR 'M' OR 'N' OR        17370800
173709                               'O' OR 'P'                         17370900
173710        MOVE 'G'     TO WORK-HRG3.                                17371000
173711                                                                  17371100
173712**   IF HHA-FUNCTION-SEV-EQ2 =  'O' OR                            17371200
173713**                              'P' OR 'Q' OR 'R' OR              17371300
173714**                              'S' OR 'T' OR 'U' OR              17371400
173715**                              'V' OR 'W' OR 'X' OR 'Y' OR 'Z'   17371500
173716**      MOVE 'H'     TO WORK-HRG3.                                17371600
173717                                                                  17371700
173718     IF HHA-FUNCTION-SEV-EQ2 =  'Q' OR 'R' OR                     17371800
173719                                'S' OR 'T' OR 'U' OR              17371900
173720                                'V' OR 'W' OR 'X' OR 'Y' OR 'Z'   17372000
173721        MOVE 'H'     TO WORK-HRG3.                                17372100
173722                                                                  17372200
173723 2320-RECORD-HRG1-2-2018-EXIT.                                    17372300
173724     EXIT.                                                        17372400
173725                                                                  17372500
173726 2325-RECODE-HRG1-3.                                              17372600
173727                                                                  17372700
173728     IF HHA-SERV-THRU-DATE < 20150101                             17372800
173729        PERFORM 2325-RECODE-HRG1-3-2014                           17372900
173730           THRU 2325-RECORD-HRG1-3-2014-EXIT                      17373000
173740     ELSE                                                         17374000
173750     IF HHA-SERV-THRU-DATE < 20160101                             17375000
173760        PERFORM 2325-RECODE-HRG1-3-2015                           17376000
173770           THRU 2325-RECORD-HRG1-3-2015-EXIT                      17377000
173780     ELSE                                                         17378000
173790     IF HHA-SERV-THRU-DATE < 20170101                             17379000
173800        PERFORM 2325-RECODE-HRG1-3-2016                           17380000
173900           THRU 2325-RECORD-HRG1-3-2016-EXIT                      17390000
174000     ELSE                                                         17400000
174100     IF HHA-SERV-THRU-DATE < 20180101                             17410000
174200        PERFORM 2325-RECODE-HRG1-3-2017                           17420000
174300           THRU 2325-RECORD-HRG1-3-2017-EXIT                      17430000
174400     ELSE                                                         17440000
174500     IF HHA-SERV-THRU-DATE < 20190101                             17450000
174600        PERFORM 2325-RECODE-HRG1-3-2018                           17460000
174700           THRU 2325-RECORD-HRG1-3-2018-EXIT                      17470000
174800     END-IF.                                                      17480000
174900                                                                  17490000
175000     PERFORM 2430-RECODE-HRG4-1 THRU 2430-EXIT.                   17500000
175100                                                                  17510000
175200 2325-EXIT.                                                       17520000
175300     EXIT.                                                        17530000
175400                                                                  17540000
175500 2325-RECODE-HRG1-3-2014.                                         17550000
175600                                                                  17560000
175700     IF HHA-CLINICAL-SEV-EQ3 = 'A' OR 'B'                         17570000
175800        MOVE 'A'     TO WORK-HRG2.                                17580000
175900                                                                  17590000
176000     IF HHA-CLINICAL-SEV-EQ3 = 'C' OR 'D' OR 'E'                  17600000
176100        MOVE 'B'     TO WORK-HRG2.                                17610000
176200                                                                  17620000
176300     IF HHA-CLINICAL-SEV-EQ3 = 'F' OR 'G' OR 'H' OR               17630000
176400                               'I' OR 'J' OR 'K' OR 'L' OR        17640000
176500                               'M' OR 'N' OR 'O' OR               17650000
176600                 'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR        17660000
176700                 'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                  17670000
176800        MOVE 'C'     TO WORK-HRG2.                                17680000
176900                                                                  17690000
177000     IF HHA-FUNCTION-SEV-EQ3 = 'A' OR 'B' OR 'C' OR 'D' OR        17700000
177100                               'E' OR 'F' OR 'G' OR 'H'           17710000
177200        MOVE 'F'     TO WORK-HRG3.                                17720000
177300                                                                  17730000
177400     IF HHA-FUNCTION-SEV-EQ3 = 'I'                                17740000
177500        MOVE 'G'     TO WORK-HRG3.                                17750000
177600                                                                  17760000
177700     IF HHA-FUNCTION-SEV-EQ3 =     'J' OR 'K' OR                  17770000
177800                                'L' OR 'M' OR 'N' OR 'O' OR       17780000
177900                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       17790000
178000                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 17800000
178100        MOVE 'H'     TO WORK-HRG3.                                17810000
178200                                                                  17820000
178300 2325-RECORD-HRG1-3-2014-EXIT.                                    17830000
178400     EXIT.                                                        17840000
178500                                                                  17850000
178600 2325-RECODE-HRG1-3-2015.                                         17860000
178700                                                                  17870000
178800     IF HHA-CLINICAL-SEV-EQ3 = 'A'                                17880000
178900        MOVE 'A'     TO WORK-HRG2.                                17890000
179000                                                                  17900000
179100     IF HHA-CLINICAL-SEV-EQ3 = 'B'                                17910000
179200        MOVE 'B'     TO WORK-HRG2.                                17920000
179300                                                                  17930000
179400     IF HHA-CLINICAL-SEV-EQ3 = 'C' OR 'D' OR 'E' OR               17940000
179500                               'F' OR 'G' OR 'H' OR               17950000
179600                               'I' OR 'J' OR 'K' OR 'L' OR        17960000
179700                               'M' OR 'N' OR 'O' OR               17970000
179800                 'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR        17980000
179900                 'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                  17990000
180000        MOVE 'C'     TO WORK-HRG2.                                18000000
180100                                                                  18010000
180200     IF HHA-FUNCTION-SEV-EQ3 = 'A' OR 'B' OR 'C' OR 'D' OR        18020000
180300                               'E' OR 'F' OR 'G' OR 'H' OR        18030000
180400                               'I' OR 'J'                         18040000
180500        MOVE 'F'     TO WORK-HRG3.                                18050000
180600                                                                  18060000
180700     IF HHA-FUNCTION-SEV-EQ3 = 'K'                                18070000
180800        MOVE 'G'     TO WORK-HRG3.                                18080000
180900                                                                  18090000
181000     IF HHA-FUNCTION-SEV-EQ3 = 'L' OR 'M' OR 'N' OR 'O' OR        18100000
181100                               'P' OR 'Q' OR                      18110000
181200                               'R' OR 'S' OR 'T' OR 'U' OR        18120000
181300                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    18130000
181400        MOVE 'H'     TO WORK-HRG3.                                18140000
181500                                                                  18150000
181600 2325-RECORD-HRG1-3-2015-EXIT.                                    18160000
181700     EXIT.                                                        18170000
181800                                                                  18180000
181900 2325-RECODE-HRG1-3-2016.                                         18190000
182000                                                                  18200000
182100     IF HHA-CLINICAL-SEV-EQ3 = 'A'                                18210000
182200        MOVE 'A'     TO WORK-HRG2.                                18220000
182300                                                                  18230000
182400     IF HHA-CLINICAL-SEV-EQ3 = 'B'                                18240000
182500        MOVE 'B'     TO WORK-HRG2.                                18250000
182600                                                                  18260000
182700     IF HHA-CLINICAL-SEV-EQ3 = 'C' OR 'D' OR 'E' OR               18270000
182800                               'F' OR 'G' OR 'H' OR               18280000
182900                               'I' OR 'J' OR 'K' OR 'L' OR        18290000
183000                               'M' OR 'N' OR 'O' OR               18300000
183100                 'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR        18310000
183200                 'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                  18320000
183300        MOVE 'C'     TO WORK-HRG2.                                18330000
183400                                                                  18340000
183500     IF HHA-FUNCTION-SEV-EQ3 = 'A' OR 'B' OR 'C' OR 'D' OR        18350000
183600                               'E' OR 'F' OR 'G'                  18360000
183700        MOVE 'F'     TO WORK-HRG3.                                18370000
183800                                                                  18380000
183900     IF HHA-FUNCTION-SEV-EQ3 = 'H' OR 'I' OR 'J' OR 'K'           18390000
184000        MOVE 'G'     TO WORK-HRG3.                                18400000
184100                                                                  18410000
184200     IF HHA-FUNCTION-SEV-EQ3 = 'L' OR 'M' OR 'N' OR 'O' OR        18420000
184300                               'P' OR 'Q' OR                      18430000
184400                               'R' OR 'S' OR 'T' OR 'U' OR        18440000
184500                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    18450000
184600        MOVE 'H'     TO WORK-HRG3.                                18460000
184700                                                                  18470000
184800 2325-RECORD-HRG1-3-2016-EXIT.                                    18480000
184900     EXIT.                                                        18490000
185000                                                                  18500000
185100 2325-RECODE-HRG1-3-2017.                                         18510000
185200                                                                  18520000
185300     IF HHA-CLINICAL-SEV-EQ3 = 'A' OR 'B'                         18530000
185400        MOVE 'A'     TO WORK-HRG2.                                18540000
185500                                                                  18550000
185600     IF HHA-CLINICAL-SEV-EQ3 = 'C'                                18560000
185700        MOVE 'B'     TO WORK-HRG2.                                18570000
185800                                                                  18580000
185900     IF HHA-CLINICAL-SEV-EQ3 = 'D' OR 'E' OR                      18590000
186000                               'F' OR 'G' OR 'H' OR               18600000
186100                               'I' OR 'J' OR 'K' OR 'L' OR        18610000
186200                               'M' OR 'N' OR 'O' OR               18620000
186300                 'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR        18630000
186400                 'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                  18640000
186500        MOVE 'C'     TO WORK-HRG2.                                18650000
186600                                                                  18660000
186700     IF HHA-FUNCTION-SEV-EQ3 = 'A' OR 'B' OR 'C' OR 'D' OR        18670000
186800                               'E' OR 'F' OR 'G'                  18680000
186900        MOVE 'F'     TO WORK-HRG3.                                18690000
187000                                                                  18700000
187100     IF HHA-FUNCTION-SEV-EQ3 = 'H' OR 'I' OR 'J' OR 'K'           18710000
187200        MOVE 'G'     TO WORK-HRG3.                                18720000
187300                                                                  18730000
187400     IF HHA-FUNCTION-SEV-EQ3 = 'L' OR 'M' OR 'N' OR 'O' OR        18740000
187500                               'P' OR 'Q' OR                      18750000
187600                               'R' OR 'S' OR 'T' OR 'U' OR        18760000
187700                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    18770000
187800        MOVE 'H'     TO WORK-HRG3.                                18780000
187900                                                                  18790000
188000 2325-RECORD-HRG1-3-2017-EXIT.                                    18800000
188100     EXIT.                                                        18810000
188200                                                                  18820000
188300 2325-RECODE-HRG1-3-2018.                                         18830000
188400                                                                  18840000
188500     IF HHA-CLINICAL-SEV-EQ3 = 'A' OR 'B'                         18850000
188600        MOVE 'A'     TO WORK-HRG2.                                18860000
188700                                                                  18870000
188800     IF HHA-CLINICAL-SEV-EQ3 = 'C'                                18880000
188810        MOVE 'B'     TO WORK-HRG2.                                18881000
188820                                                                  18882000
188830     IF HHA-CLINICAL-SEV-EQ3 = 'D' OR 'E' OR                      18883000
188840                               'F' OR 'G' OR 'H' OR               18884000
188850                               'I' OR 'J' OR 'K' OR 'L' OR        18885000
188860                               'M' OR 'N' OR 'O' OR               18886000
188870                 'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR        18887000
188880                 'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                  18888000
188890        MOVE 'C'     TO WORK-HRG2.                                18889000
188891                                                                  18889100
188892     IF HHA-FUNCTION-SEV-EQ3 = 'A' OR 'B' OR 'C' OR 'D' OR        18889200
188893                               'E' OR 'F' OR 'G'                  18889300
188894        MOVE 'F'     TO WORK-HRG3.                                18889400
188895                                                                  18889500
188896     IF HHA-FUNCTION-SEV-EQ3 = 'H' OR 'I' OR 'J' OR 'K'           18889600
188897        MOVE 'G'     TO WORK-HRG3.                                18889700
188898                                                                  18889800
188899     IF HHA-FUNCTION-SEV-EQ3 = 'L' OR 'M' OR 'N' OR 'O' OR        18889900
188900                               'P' OR 'Q' OR                      18890000
188901                               'R' OR 'S' OR 'T' OR 'U' OR        18890100
188902                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    18890200
188903        MOVE 'H'     TO WORK-HRG3.                                18890300
188904                                                                  18890400
188905 2325-RECORD-HRG1-3-2018-EXIT.                                    18890500
188906     EXIT.                                                        18890600
188907                                                                  18890700
188908 2330-RECODE-HRG1-4.                                              18890800
188909                                                                  18890900
188910     IF HHA-SERV-THRU-DATE < 20150101                             18891000
188920        PERFORM 2330-RECODE-HRG1-4-2014                           18892000
188930           THRU 2330-RECORD-HRG1-4-2014-EXIT                      18893000
188940     ELSE                                                         18894000
188950     IF HHA-SERV-THRU-DATE < 20160101                             18895000
188960        PERFORM 2330-RECODE-HRG1-4-2015                           18896000
188970           THRU 2330-RECORD-HRG1-4-2015-EXIT                      18897000
188980     ELSE                                                         18898000
188990     IF HHA-SERV-THRU-DATE < 20170101                             18899000
189000        PERFORM 2330-RECODE-HRG1-4-2016                           18900000
189100           THRU 2330-RECORD-HRG1-4-2016-EXIT                      18910000
189200     ELSE                                                         18920000
189300     IF HHA-SERV-THRU-DATE < 20180101                             18930000
189400        PERFORM 2330-RECODE-HRG1-4-2017                           18940000
189500           THRU 2330-RECORD-HRG1-4-2017-EXIT                      18950000
189600     ELSE                                                         18960000
189700     IF HHA-SERV-THRU-DATE < 20190101                             18970000
189800        PERFORM 2330-RECODE-HRG1-4-2018                           18980000
189900           THRU 2330-RECORD-HRG1-4-2018-EXIT                      18990000
190000     END-IF.                                                      19000000
190100                                                                  19010000
190200     PERFORM 2430-RECODE-HRG4-1 THRU 2430-EXIT.                   19020000
190300                                                                  19030000
190400 2330-EXIT.  EXIT.                                                19040000
190500                                                                  19050000
190600 2330-RECODE-HRG1-4-2014.                                         19060000
190700                                                                  19070000
190800     IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D' OR        19080000
190900                               'E' OR 'F' OR 'G' OR 'H'           19090000
191000        MOVE 'A'     TO WORK-HRG2.                                19100000
191100                                                                  19110000
191200                                                                  19120000
191300     IF HHA-CLINICAL-SEV-EQ4 = 'I' OR 'J' OR 'K' OR 'L' OR        19130000
191400                               'M' OR 'N' OR 'O' OR 'P'           19140000
191500        MOVE 'B'     TO WORK-HRG2.                                19150000
191600                                                                  19160000
191700     IF HHA-CLINICAL-SEV-EQ4 = 'Q' OR 'R' OR 'S' OR               19170000
191800                               'T' OR 'U' OR                      19180000
191900                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    19190000
192000        MOVE 'C'     TO WORK-HRG2.                                19200000
192100                                                                  19210000
192200     IF HHA-FUNCTION-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D' OR        19220000
192300                               'E' OR 'F' OR 'G'                  19230000
192400        MOVE 'F'     TO WORK-HRG3.                                19240000
192500                                                                  19250000
192600     IF HHA-FUNCTION-SEV-EQ4 = 'H'                                19260000
192700        MOVE 'G'     TO WORK-HRG3.                                19270000
192800                                                                  19280000
192900     IF HHA-FUNCTION-SEV-EQ4 =     'I' OR 'J' OR 'K' OR           19290000
193000                                'L' OR 'M' OR 'N' OR 'O' OR       19300000
193100                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       19310000
193200                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 19320000
193300        MOVE 'H'     TO WORK-HRG3.                                19330000
193400                                                                  19340000
193500 2330-RECORD-HRG1-4-2014-EXIT.                                    19350000
193600     EXIT.                                                        19360000
193700                                                                  19370000
193800 2330-RECODE-HRG1-4-2015.                                         19380000
193900                                                                  19390000
194000     IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D' OR        19400000
194100                               'E' OR 'F'                         19410000
194200        MOVE 'A'     TO WORK-HRG2.                                19420000
194300                                                                  19430000
194400                                                                  19440000
194500     IF HHA-CLINICAL-SEV-EQ4 = 'G' OR 'H' OR                      19450000
194600                               'I' OR 'J' OR 'K' OR 'L' OR        19460000
194700                               'M'                                19470000
194800        MOVE 'B'     TO WORK-HRG2.                                19480000
194900                                                                  19490000
195000     IF HHA-CLINICAL-SEV-EQ4 = 'N' OR 'O' OR 'P' OR               19500000
195100                               'Q' OR 'R' OR 'S' OR               19510000
195200                               'T' OR 'U' OR                      19520000
195300                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    19530000
195400        MOVE 'C'     TO WORK-HRG2.                                19540000
195500                                                                  19550000
195600     IF HHA-FUNCTION-SEV-EQ4 = 'A'                                19560000
195700        MOVE 'F'     TO WORK-HRG3.                                19570000
195800                                                                  19580000
195900     IF HHA-FUNCTION-SEV-EQ4 = 'B' OR                             19590000
196000                               'C' OR 'D' OR 'E' OR               19600000
196100                               'F' OR 'G' OR 'H'                  19610000
196200        MOVE 'G'     TO WORK-HRG3.                                19620000
196300                                                                  19630000
196400     IF HHA-FUNCTION-SEV-EQ4 =     'I' OR 'J' OR 'K' OR           19640000
196500                                'L' OR 'M' OR 'N' OR 'O' OR       19650000
196600                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       19660000
196700                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 19670000
196800        MOVE 'H'     TO WORK-HRG3.                                19680000
196900                                                                  19690000
197000 2330-RECORD-HRG1-4-2015-EXIT.                                    19700000
197100     EXIT.                                                        19710000
197200                                                                  19720000
197300 2330-RECODE-HRG1-4-2016.                                         19730000
197400                                                                  19740000
197500     IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D'           19750000
197600        MOVE 'A'     TO WORK-HRG2.                                19760000
197700                                                                  19770000
197800     IF HHA-CLINICAL-SEV-EQ4 = 'E' OR 'F' OR 'G' OR 'H' OR        19780000
197900                               'I' OR 'J' OR 'K' OR 'L' OR        19790000
198000                               'M'                                19800000
198100        MOVE 'B'     TO WORK-HRG2.                                19810000
198200                                                                  19820000
198300     IF HHA-CLINICAL-SEV-EQ4 = 'N' OR 'O' OR 'P' OR               19830000
198400                               'Q' OR 'R' OR 'S' OR               19840000
198500                               'T' OR 'U' OR                      19850000
198600                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    19860000
198700        MOVE 'C'     TO WORK-HRG2.                                19870000
198800                                                                  19880000
198900     IF HHA-FUNCTION-SEV-EQ4 = 'A'                                19890000
199000        MOVE 'F'     TO WORK-HRG3.                                19900000
199100                                                                  19910000
199200     IF HHA-FUNCTION-SEV-EQ4 = 'B' OR                             19920000
199300                               'C' OR 'D' OR 'E' OR               19930000
199400                               'F' OR 'G' OR 'H'                  19940000
199500        MOVE 'G'     TO WORK-HRG3.                                19950000
199600                                                                  19960000
199700     IF HHA-FUNCTION-SEV-EQ4 =     'I' OR 'J' OR 'K' OR           19970000
199800                                'L' OR 'M' OR 'N' OR 'O' OR       19980000
199900                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       19990000
200000                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 20000000
200100        MOVE 'H'     TO WORK-HRG3.                                20010000
200200                                                                  20020000
200300 2330-RECORD-HRG1-4-2016-EXIT.                                    20030000
200400     EXIT.                                                        20040000
200500                                                                  20050000
200600 2330-RECODE-HRG1-4-2017.                                         20060000
200700                                                                  20070000
200800     IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B'                         20080000
200900        MOVE 'A'     TO WORK-HRG2.                                20090000
201000                                                                  20100000
201100     IF HHA-CLINICAL-SEV-EQ4 = 'C' OR 'D' OR 'E' OR 'F' OR        20110000
201200                               'G' OR 'H' OR 'I' OR 'J'           20120000
201300        MOVE 'B'     TO WORK-HRG2.                                20130000
201400                                                                  20140000
201500     IF HHA-CLINICAL-SEV-EQ4 = 'K' OR 'L' OR 'M' OR               20150000
201600                               'N' OR 'O' OR 'P' OR               20160000
201700                               'Q' OR 'R' OR 'S' OR               20170000
201800                               'T' OR 'U' OR                      20180000
201900                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    20190000
202000        MOVE 'C'     TO WORK-HRG2.                                20200000
202100                                                                  20210000
202200     IF HHA-FUNCTION-SEV-EQ4 = 'A' OR 'B'                         20220000
202300        MOVE 'F'     TO WORK-HRG3.                                20230000
202400                                                                  20240000
202500     IF HHA-FUNCTION-SEV-EQ4 = 'C' OR 'D' OR 'E' OR               20250000
202600                               'F' OR 'G' OR 'H' OR               20260000
202700                               'I' OR 'J'                         20270000
202800        MOVE 'G'     TO WORK-HRG3.                                20280000
202900                                                                  20290000
203000     IF HHA-FUNCTION-SEV-EQ4 =                                    20300000
203100                         'K' OR 'L' OR 'M' OR 'N' OR 'O' OR       20310000
203200                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       20320000
203300                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 20330000
203400        MOVE 'H'     TO WORK-HRG3.                                20340000
203500                                                                  20350000
203600 2330-RECORD-HRG1-4-2017-EXIT.                                    20360000
203700     EXIT.                                                        20370000
203800                                                                  20380000
203900 2330-RECODE-HRG1-4-2018.                                         20390000
204000                                                                  20400000
204100     IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B'                         20410000
204200        MOVE 'A'     TO WORK-HRG2.                                20420000
204300                                                                  20430000
204400     IF HHA-CLINICAL-SEV-EQ4 = 'C' OR 'D' OR 'E' OR 'F' OR        20440000
204410                               'G' OR 'H' OR 'I' OR 'J'           20441000
204420        MOVE 'B'     TO WORK-HRG2.                                20442000
204430                                                                  20443000
204440     IF HHA-CLINICAL-SEV-EQ4 = 'K' OR 'L' OR 'M' OR               20444000
204450                               'N' OR 'O' OR 'P' OR               20445000
204460                               'Q' OR 'R' OR 'S' OR               20446000
204470                               'T' OR 'U' OR                      20447000
204480                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    20448000
204490        MOVE 'C'     TO WORK-HRG2.                                20449000
204491                                                                  20449100
204492* V180 UPDATED                                                    20449200
204493                                                                  20449300
204494**   IF HHA-FUNCTION-SEV-EQ4 = 'A' OR 'B'                         20449400
204495**      MOVE 'F'     TO WORK-HRG3.                                20449500
204496                                                                  20449600
204497     IF HHA-FUNCTION-SEV-EQ4 = 'A' OR 'B' OR 'C'                  20449700
204498        MOVE 'F'     TO WORK-HRG3.                                20449800
204499                                                                  20449900
204500**   IF HHA-FUNCTION-SEV-EQ4 = 'C' OR 'D' OR 'E' OR               20450000
204501**                             'F' OR 'G' OR 'H' OR               20450100
204502**                             'I' OR 'J'                         20450200
204503**      MOVE 'G'     TO WORK-HRG3.                                20450300
204504                                                                  20450400
204505     IF HHA-FUNCTION-SEV-EQ4 = 'D' OR 'E' OR                      20450500
204506                               'F' OR 'G' OR 'H'                  20450600
204507        MOVE 'G'     TO WORK-HRG3.                                20450700
204508                                                                  20450800
204509**   IF HHA-FUNCTION-SEV-EQ4 =                                    20450900
204510**                       'K' OR 'L' OR 'M' OR 'N' OR 'O' OR       20451000
204511**                'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       20451100
204512**                'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 20451200
204513**      MOVE 'H'     TO WORK-HRG3.                                20451300
204514                                                                  20451400
204515     IF HHA-FUNCTION-SEV-EQ4 = 'I' OR 'J' OR                      20451500
204516                         'K' OR 'L' OR 'M' OR 'N' OR 'O' OR       20451600
204517                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       20451700
204518                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 20451800
204519        MOVE 'H'     TO WORK-HRG3.                                20451900
204520                                                                  20452000
204521 2330-RECORD-HRG1-4-2018-EXIT.                                    20452100
204522     EXIT.                                                        20452200
204523                                                                  20452300
204524 2475-RECODE-HRG5-3.                                              20452400
204525                                                                  20452500
204526     IF HHA-SERV-THRU-DATE < 20150101                             20452600
204527        PERFORM 2475-RECODE-HRG5-3-2014                           20452700
204528           THRU 2475-RECORD-HRG5-3-2014-EXIT                      20452800
204529     ELSE                                                         20452900
204530     IF HHA-SERV-THRU-DATE < 20160101                             20453000
204540        PERFORM 2475-RECODE-HRG5-3-2015                           20454000
204550           THRU 2475-RECORD-HRG5-3-2015-EXIT                      20455000
204560     ELSE                                                         20456000
204570     IF HHA-SERV-THRU-DATE < 20170101                             20457000
204580        PERFORM 2475-RECODE-HRG5-3-2016                           20458000
204590           THRU 2475-RECORD-HRG5-3-2016-EXIT                      20459000
204600     ELSE                                                         20460000
204700     IF HHA-SERV-THRU-DATE < 20180101                             20470000
204800        PERFORM 2475-RECODE-HRG5-3-2017                           20480000
204900           THRU 2475-RECORD-HRG5-3-2017-EXIT                      20490000
205000     ELSE                                                         20500000
205100     IF HHA-SERV-THRU-DATE < 20190101                             20510000
205200        PERFORM 2475-RECODE-HRG5-3-2018                           20520000
205300           THRU 2475-RECORD-HRG5-3-2018-EXIT                      20530000
205400     END-IF.                                                      20540000
205500                                                                  20550000
205600     PERFORM 2600-RECODE-HRG-POS4 THRU 2600-EXIT.                 20560000
205700                                                                  20570000
205800 2475-EXIT.                                                       20580000
205900     EXIT.                                                        20590000
206000                                                                  20600000
206100 2475-RECODE-HRG5-3-2014.                                         20610000
206200                                                                  20620000
206300     IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D' OR        20630000
206400                               'E' OR 'F' OR 'G'                  20640000
206500        MOVE 'A'     TO WORK-HRG2.                                20650000
206600                                                                  20660000
206700     IF HHA-CLINICAL-SEV-EQ2 = 'H' OR                             20670000
206800                               'I' OR 'J' OR 'K' OR 'L' OR        20680000
206900                               'M' OR 'N'                         20690000
207000        MOVE 'B'     TO WORK-HRG2.                                20700000
207100                                                                  20710000
207200     IF HHA-CLINICAL-SEV-EQ2 = 'O' OR 'P' OR 'Q' OR 'R' OR        20720000
207300                               'S' OR 'T' OR 'U' OR               20730000
207400                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    20740000
207500        MOVE 'C'     TO WORK-HRG2.                                20750000
207600                                                                  20760000
207700     IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D' OR        20770000
207800                               'E' OR 'F'                         20780000
207900        MOVE 'F'     TO WORK-HRG3.                                20790000
208000                                                                  20800000
208100     IF HHA-FUNCTION-SEV-EQ2 = 'G'                                20810000
208200        MOVE 'G'     TO WORK-HRG3.                                20820000
208300                                                                  20830000
208400     IF HHA-FUNCTION-SEV-EQ2 =     'H' OR 'I' OR                  20840000
208500                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR       20850000
208600                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       20860000
208700                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 20870000
208800        MOVE 'H'     TO WORK-HRG3.                                20880000
208900                                                                  20890000
209000                                                                  20900000
209100     IF HHA-REVENUE-SUM1-3-QTY-THR > 19                           20910000
209200          MOVE 'K' TO WORK-HRG4.                                  20920000
209300                                                                  20930000
209400 2475-RECORD-HRG5-3-2014-EXIT.                                    20940000
209500     EXIT.                                                        20950000
209600                                                                  20960000
209700 2475-RECODE-HRG5-3-2015.                                         20970000
209800                                                                  20980000
209900     IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D'           20990000
210000        MOVE 'A'     TO WORK-HRG2.                                21000000
210100                                                                  21010000
210200     IF HHA-CLINICAL-SEV-EQ2 = 'E' OR 'F' OR 'G' OR 'H' OR        21020000
210300                               'I' OR 'J' OR 'K' OR 'L' OR        21030000
210400                               'M' OR 'N' OR 'O' OR 'P' OR        21040000
210500                               'Q'                                21050000
210600        MOVE 'B'     TO WORK-HRG2.                                21060000
210700                                                                  21070000
210800     IF HHA-CLINICAL-SEV-EQ2 = 'R' OR                             21080000
210900                               'S' OR 'T' OR 'U' OR               21090000
211000                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    21100000
211100        MOVE 'C'     TO WORK-HRG2.                                21110000
211200                                                                  21120000
211300     IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C'                  21130000
211400        MOVE 'F'     TO WORK-HRG3.                                21140000
211500                                                                  21150000
211600     IF HHA-FUNCTION-SEV-EQ2 = 'D' OR                             21160000
211700                               'E' OR 'F'                         21170000
211800        MOVE 'G'     TO WORK-HRG3.                                21180000
211900                                                                  21190000
212000     IF HHA-FUNCTION-SEV-EQ2 =     'G' OR 'H' OR 'I' OR           21200000
212100                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR       21210000
212200                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       21220000
212300                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 21230000
212400        MOVE 'H'     TO WORK-HRG3.                                21240000
212500                                                                  21250000
212600**** V161 ****                                                    21260000
212700     IF HHA-REVENUE-SUM1-3-QTY-THR > 19                           21270000
212800          MOVE 'K' TO WORK-HRG4.                                  21280000
212900                                                                  21290000
213000 2475-RECORD-HRG5-3-2015-EXIT.                                    21300000
213100     EXIT.                                                        21310000
213200                                                                  21320000
213300 2475-RECODE-HRG5-3-2016.                                         21330000
213400                                                                  21340000
213500     IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D'           21350000
213600        MOVE 'A'     TO WORK-HRG2.                                21360000
213700                                                                  21370000
213800     IF HHA-CLINICAL-SEV-EQ2 = 'E' OR 'F' OR 'G' OR 'H' OR        21380000
213900                               'I' OR 'J' OR 'K' OR 'L' OR        21390000
214000                               'M' OR 'N' OR 'O' OR 'P' OR        21400000
214100                               'Q'                                21410000
214200        MOVE 'B'     TO WORK-HRG2.                                21420000
214300                                                                  21430000
214400     IF HHA-CLINICAL-SEV-EQ2 = 'R' OR                             21440000
214500                               'S' OR 'T' OR 'U' OR               21450000
214600                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    21460000
214700        MOVE 'C'     TO WORK-HRG2.                                21470000
214800                                                                  21480000
214900     IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C'                  21490000
215000        MOVE 'F'     TO WORK-HRG3.                                21500000
215100                                                                  21510000
215200     IF HHA-FUNCTION-SEV-EQ2 = 'D' OR                             21520000
215300                               'E' OR 'F' OR 'G'                  21530000
215400        MOVE 'G'     TO WORK-HRG3.                                21540000
215500                                                                  21550000
215600     IF HHA-FUNCTION-SEV-EQ2 =  'H' OR 'I' OR                     21560000
215700                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR       21570000
215800                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       21580000
215900                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 21590000
216000        MOVE 'H'     TO WORK-HRG3.                                21600000
216100                                                                  21610000
216200     IF HHA-REVENUE-SUM1-3-QTY-THR > 19                           21620000
216300          MOVE 'K' TO WORK-HRG4.                                  21630000
216400                                                                  21640000
216500 2475-RECORD-HRG5-3-2016-EXIT.                                    21650000
216600     EXIT.                                                        21660000
216700                                                                  21670000
216800 2475-RECODE-HRG5-3-2017.                                         21680000
216900                                                                  21690000
217000     IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D'           21700000
217100        MOVE 'A'     TO WORK-HRG2.                                21710000
217200                                                                  21720000
217300     IF HHA-CLINICAL-SEV-EQ2 = 'E' OR 'F' OR 'G' OR 'H' OR        21730000
217400                               'I' OR 'J' OR 'K' OR 'L' OR        21740000
217500                               'M' OR 'N' OR 'O' OR 'P' OR        21750000
217600                               'Q'                                21760000
217700        MOVE 'B'     TO WORK-HRG2.                                21770000
217800                                                                  21780000
217900     IF HHA-CLINICAL-SEV-EQ2 = 'R' OR                             21790000
218000                               'S' OR 'T' OR 'U' OR               21800000
218100                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    21810000
218200        MOVE 'C'     TO WORK-HRG2.                                21820000
218300                                                                  21830000
218400     IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C'                  21840000
218500        MOVE 'F'     TO WORK-HRG3.                                21850000
218600                                                                  21860000
218700     IF HHA-FUNCTION-SEV-EQ2 = 'D' OR                             21870000
218800                               'E' OR 'F' OR 'G'                  21880000
218900        MOVE 'G'     TO WORK-HRG3.                                21890000
219000                                                                  21900000
219100     IF HHA-FUNCTION-SEV-EQ2 =  'H' OR 'I' OR                     21910000
219200                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR       21920000
219300                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       21930000
219400                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 21940000
219500        MOVE 'H'     TO WORK-HRG3.                                21950000
219600                                                                  21960000
219700     IF HHA-REVENUE-SUM1-3-QTY-THR > 19                           21970000
219800          MOVE 'K' TO WORK-HRG4.                                  21980000
219900                                                                  21990000
220000 2475-RECORD-HRG5-3-2017-EXIT.                                    22000000
220100     EXIT.                                                        22010000
220200                                                                  22020000
220300 2475-RECODE-HRG5-3-2018.                                         22030000
220400                                                                  22040000
220500     IF HHA-CLINICAL-SEV-EQ2 = 'A' OR 'B' OR 'C' OR 'D'           22050000
220600        MOVE 'A'     TO WORK-HRG2.                                22060000
220700                                                                  22070000
220800     IF HHA-CLINICAL-SEV-EQ2 = 'E' OR 'F' OR 'G' OR 'H' OR        22080000
220900                               'I' OR 'J' OR 'K' OR 'L' OR        22090000
221000                               'M' OR 'N' OR 'O' OR 'P' OR        22100000
221100                               'Q'                                22110000
221200        MOVE 'B'     TO WORK-HRG2.                                22120000
221210                                                                  22121000
221220     IF HHA-CLINICAL-SEV-EQ2 = 'R' OR                             22122000
221230                               'S' OR 'T' OR 'U' OR               22123000
221240                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    22124000
221250        MOVE 'C'     TO WORK-HRG2.                                22125000
221260                                                                  22126000
221270     IF HHA-FUNCTION-SEV-EQ2 = 'A' OR 'B' OR 'C'                  22127000
221280        MOVE 'F'     TO WORK-HRG3.                                22128000
221290                                                                  22129000
221300     IF HHA-FUNCTION-SEV-EQ2 = 'D' OR                             22130000
221301                               'E' OR 'F' OR 'G'                  22130100
221302        MOVE 'G'     TO WORK-HRG3.                                22130200
221303                                                                  22130300
221304     IF HHA-FUNCTION-SEV-EQ2 =  'H' OR 'I' OR                     22130400
221305                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR       22130500
221306                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       22130600
221307                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 22130700
221308        MOVE 'H'     TO WORK-HRG3.                                22130800
221309                                                                  22130900
221310     IF HHA-REVENUE-SUM1-3-QTY-THR > 19                           22131000
221311          MOVE 'K' TO WORK-HRG4.                                  22131100
221312                                                                  22131200
221313 2475-RECORD-HRG5-3-2018-EXIT.                                    22131300
221314     EXIT.                                                        22131400
221315                                                                  22131500
221316 2480-RECODE-HRG5-4.                                              22131600
221317                                                                  22131700
221318     IF HHA-SERV-THRU-DATE < 20150101                             22131800
221319        PERFORM 2480-RECODE-HRG5-4-2014                           22131900
221320           THRU 2480-RECORD-HRG5-4-2014-EXIT                      22132000
221330     ELSE                                                         22133000
221340     IF HHA-SERV-THRU-DATE < 20160101                             22134000
221350        PERFORM 2480-RECODE-HRG5-4-2015                           22135000
221360           THRU 2480-RECORD-HRG5-4-2015-EXIT                      22136000
221370     ELSE                                                         22137000
221380     IF HHA-SERV-THRU-DATE < 20170101                             22138000
221390        PERFORM 2480-RECODE-HRG5-4-2016                           22139000
221400           THRU 2480-RECORD-HRG5-4-2016-EXIT                      22140000
221500     ELSE                                                         22150000
221600     IF HHA-SERV-THRU-DATE < 20180101                             22160000
221700        PERFORM 2480-RECODE-HRG5-4-2017                           22170000
221800           THRU 2480-RECORD-HRG5-4-2017-EXIT                      22180000
221900     ELSE                                                         22190000
222000     IF HHA-SERV-THRU-DATE < 20190101                             22200000
222100        PERFORM 2480-RECODE-HRG5-4-2018                           22210000
222200           THRU 2480-RECORD-HRG5-4-2018-EXIT                      22220000
222300     END-IF.                                                      22230000
222400                                                                  22240000
222500     PERFORM 2600-RECODE-HRG-POS4 THRU 2600-EXIT.                 22250000
222600                                                                  22260000
222700 2480-EXIT.  EXIT.                                                22270000
222800                                                                  22280000
222900 2480-RECODE-HRG5-4-2014.                                         22290000
223000                                                                  22300000
223100     IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D' OR        22310000
223200                               'E' OR 'F' OR 'G'                  22320000
223300        MOVE 'A'     TO WORK-HRG2.                                22330000
223400                                                                  22340000
223500     IF HHA-CLINICAL-SEV-EQ4 = 'H' OR                             22350000
223600                               'I' OR 'J' OR 'K' OR 'L' OR        22360000
223700                               'M' OR 'N'                         22370000
223800        MOVE 'B'     TO WORK-HRG2.                                22380000
223900                                                                  22390000
224000     IF HHA-CLINICAL-SEV-EQ4 = 'O' OR 'P' OR 'Q' OR 'R' OR        22400000
224100                               'S' OR 'T' OR 'U' OR               22410000
224200                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    22420000
224300        MOVE 'C'     TO WORK-HRG2.                                22430000
224400                                                                  22440000
224500     IF HHA-FUNCTION-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D' OR        22450000
224600                               'E' OR 'F'                         22460000
224700        MOVE 'F'     TO WORK-HRG3.                                22470000
224800                                                                  22480000
224900     IF HHA-FUNCTION-SEV-EQ4 = 'G'                                22490000
225000        MOVE 'G'     TO WORK-HRG3.                                22500000
225100                                                                  22510000
225200     IF HHA-FUNCTION-SEV-EQ4 =     'H' OR 'I' OR                  22520000
225300                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR       22530000
225400                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       22540000
225500                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 22550000
225600        MOVE 'H'     TO WORK-HRG3.                                22560000
225700                                                                  22570000
225800     IF HHA-REVENUE-SUM1-3-QTY-THR > 19                           22580000
225900          MOVE 'K' TO WORK-HRG4.                                  22590000
226000                                                                  22600000
226100 2480-RECORD-HRG5-4-2014-EXIT.                                    22610000
226200     EXIT.                                                        22620000
226300                                                                  22630000
226400 2480-RECODE-HRG5-4-2015.                                         22640000
226500                                                                  22650000
226600     IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D'           22660000
226700        MOVE 'A'     TO WORK-HRG2.                                22670000
226800                                                                  22680000
226900     IF HHA-CLINICAL-SEV-EQ4 = 'E' OR                             22690000
227000                               'F' OR 'G' OR 'H' OR               22700000
227100                               'I' OR 'J' OR 'K' OR 'L' OR        22710000
227200                               'M' OR 'N' OR                      22720000
227300                               'O' OR 'P' OR 'Q'                  22730000
227400        MOVE 'B'     TO WORK-HRG2.                                22740000
227500                                                                  22750000
227600     IF HHA-CLINICAL-SEV-EQ4 = 'R' OR                             22760000
227700                               'S' OR 'T' OR 'U' OR               22770000
227800                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    22780000
227900        MOVE 'C'     TO WORK-HRG2.                                22790000
228000                                                                  22800000
228100     IF HHA-FUNCTION-SEV-EQ4 = 'A' OR 'B' OR 'C'                  22810000
228200        MOVE 'F'     TO WORK-HRG3.                                22820000
228300                                                                  22830000
228400     IF HHA-FUNCTION-SEV-EQ4 = 'D' OR                             22840000
228500                               'E' OR 'F'                         22850000
228600        MOVE 'G'     TO WORK-HRG3.                                22860000
228700                                                                  22870000
228800     IF HHA-FUNCTION-SEV-EQ4 =     'G' OR 'H' OR 'I' OR           22880000
228900                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR       22890000
229000                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       22900000
229100                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 22910000
229200        MOVE 'H'     TO WORK-HRG3.                                22920000
229300                                                                  22930000
229400 2480-RECORD-HRG5-4-2015-EXIT.                                    22940000
229500     EXIT.                                                        22950000
229600                                                                  22960000
229700 2480-RECODE-HRG5-4-2016.                                         22970000
229800                                                                  22980000
229900     IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D'           22990000
230000        MOVE 'A'     TO WORK-HRG2.                                23000000
230100                                                                  23010000
230200     IF HHA-CLINICAL-SEV-EQ4 = 'E' OR                             23020000
230300                               'F' OR 'G' OR 'H' OR               23030000
230400                               'I' OR 'J' OR 'K' OR 'L' OR        23040000
230500                               'M' OR 'N' OR                      23050000
230600                               'O' OR 'P' OR 'Q'                  23060000
230700        MOVE 'B'     TO WORK-HRG2.                                23070000
230800                                                                  23080000
230900     IF HHA-CLINICAL-SEV-EQ4 = 'R' OR                             23090000
231000                               'S' OR 'T' OR 'U' OR               23100000
231100                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    23110000
231200        MOVE 'C'     TO WORK-HRG2.                                23120000
231300                                                                  23130000
231400     IF HHA-FUNCTION-SEV-EQ4 = 'A' OR 'B' OR 'C'                  23140000
231500        MOVE 'F'     TO WORK-HRG3.                                23150000
231600                                                                  23160000
231700     IF HHA-FUNCTION-SEV-EQ4 = 'D' OR                             23170000
231800                               'E' OR 'F' OR 'G'                  23180000
231900        MOVE 'G'     TO WORK-HRG3.                                23190000
232000                                                                  23200000
232100     IF HHA-FUNCTION-SEV-EQ4 =  'H' OR 'I' OR                     23210000
232200                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR       23220000
232300                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       23230000
232400                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 23240000
232500        MOVE 'H'     TO WORK-HRG3.                                23250000
232600                                                                  23260000
232700 2480-RECORD-HRG5-4-2016-EXIT.                                    23270000
232800     EXIT.                                                        23280000
232900                                                                  23290000
233000 2480-RECODE-HRG5-4-2017.                                         23300000
233100                                                                  23310000
233200     IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D'           23320000
233300        MOVE 'A'     TO WORK-HRG2.                                23330000
233400                                                                  23340000
233500     IF HHA-CLINICAL-SEV-EQ4 = 'E' OR                             23350000
233600                               'F' OR 'G' OR 'H' OR               23360000
233700                               'I' OR 'J' OR 'K' OR 'L' OR        23370000
233800                               'M' OR 'N' OR                      23380000
233900                               'O' OR 'P' OR 'Q'                  23390000
234000        MOVE 'B'     TO WORK-HRG2.                                23400000
234100                                                                  23410000
234200     IF HHA-CLINICAL-SEV-EQ4 = 'R' OR                             23420000
234300                               'S' OR 'T' OR 'U' OR               23430000
234400                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    23440000
234500        MOVE 'C'     TO WORK-HRG2.                                23450000
234600                                                                  23460000
234700     IF HHA-FUNCTION-SEV-EQ4 = 'A' OR 'B' OR 'C'                  23470000
234800        MOVE 'F'     TO WORK-HRG3.                                23480000
234900                                                                  23490000
235000     IF HHA-FUNCTION-SEV-EQ4 = 'D' OR                             23500000
235100                               'E' OR 'F' OR 'G'                  23510000
235200        MOVE 'G'     TO WORK-HRG3.                                23520000
235300                                                                  23530000
235400     IF HHA-FUNCTION-SEV-EQ4 =  'H' OR 'I' OR                     23540000
235500                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR       23550000
235600                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       23560000
235700                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 23570000
235800        MOVE 'H'     TO WORK-HRG3.                                23580000
235900                                                                  23590000
236000 2480-RECORD-HRG5-4-2017-EXIT.                                    23600000
236100     EXIT.                                                        23610000
236200                                                                  23620000
236300 2480-RECODE-HRG5-4-2018.                                         23630000
236400                                                                  23640000
236500     IF HHA-CLINICAL-SEV-EQ4 = 'A' OR 'B' OR 'C' OR 'D'           23650000
236600        MOVE 'A'     TO WORK-HRG2.                                23660000
236700                                                                  23670000
236800     IF HHA-CLINICAL-SEV-EQ4 = 'E' OR                             23680000
236900                               'F' OR 'G' OR 'H' OR               23690000
236910                               'I' OR 'J' OR 'K' OR 'L' OR        23691000
236920                               'M' OR 'N' OR                      23692000
236930                               'O' OR 'P' OR 'Q'                  23693000
236940        MOVE 'B'     TO WORK-HRG2.                                23694000
236950                                                                  23695000
236960     IF HHA-CLINICAL-SEV-EQ4 = 'R' OR                             23696000
236970                               'S' OR 'T' OR 'U' OR               23697000
236980                               'V' OR 'W' OR 'X' OR 'Y' OR 'Z'    23698000
236990        MOVE 'C'     TO WORK-HRG2.                                23699000
236991                                                                  23699100
236992     IF HHA-FUNCTION-SEV-EQ4 = 'A' OR 'B' OR 'C'                  23699200
236993        MOVE 'F'     TO WORK-HRG3.                                23699300
236994                                                                  23699400
236995     IF HHA-FUNCTION-SEV-EQ4 = 'D' OR                             23699500
236996                               'E' OR 'F' OR 'G'                  23699600
236997        MOVE 'G'     TO WORK-HRG3.                                23699700
236998                                                                  23699800
236999     IF HHA-FUNCTION-SEV-EQ4 =  'H' OR 'I' OR                     23699900
237000                  'J' OR 'K' OR 'L' OR 'M' OR 'N' OR 'O' OR       23700000
237001                  'P' OR 'Q' OR 'R' OR 'S' OR 'T' OR 'U' OR       23700100
237002                  'V' OR 'W' OR 'X' OR 'Y' OR 'Z'                 23700200
237003        MOVE 'H'     TO WORK-HRG3.                                23700300
237004                                                                  23700400
237005 2480-RECORD-HRG5-4-2018-EXIT.                                    23700500
237006     EXIT.                                                        23700600
237007                                                                  23700700
237008**----------------------------------------------------            23700800
237009*  HHA-WITH-DATA-CHECK  (0, 1)                                    23700900
237010*  HHA-NO-DATA-CHECK (2, 3)                                       23701000
237020*                                                                 23702000
237030*COL 1 TB-REV-DOLL-RATE-NRURAL                                    23703000
237040*COL 2 TB-REV-DOLL-RATE-RURAL                                     23704000
237050*COL 3 TB-DOLL-RATE-NRURAL-NOSUBMIT                               23705000
237060*COL 4 TB-DOLL-RATE-RURAL-NOSUBMIT                                23706000
237070*                                                                 23707000
237080*                                                                 23708000
237090                                                                  23709000
237100 Z900-CONV-650-TO-600.                                            23710000
237200                                                                  23720000
237300     INITIALIZE                  WK-DATA.                         23730000
237400     MOVE HHA-DATA            TO WK-DATA.                         23740000
237500     MOVE HHA-PASSBACK-DATA   TO WK-PASSBACK-DATA                 23750000
237600     MOVE HHA-CASE-MIX-DATA   TO WK-CASE-MIX-DATA                 23760000
237700     MOVE HHA-PROV-TOTAL-DATA TO WK-PROV-TOTAL-DATA               23770000
237800                                                                  23780000
237900     PERFORM VARYING SS-REV FROM 1 BY 1                           23790000
238000             UNTIL SS-REV > 6                                     23800000
238100       MOVE HHA-REVENUE-CODE (SS-REV)                             23810000
238200         TO  WK-REVENUE-CODE (SS-REV)                             23820000
238300       MOVE HHA-REVENUE-QTY-COV-VISITS (SS-REV)                   23830000
238400         TO  WK-REVENUE-QTY-COV-VISITS (SS-REV)                   23840000
238500       MOVE HHA-REVENUE-EARLIEST-DATE (SS-REV)                    23850000
238600         TO  WK-REVENUE-EARLIEST-DATE (SS-REV)                    23860000
238700       MOVE HHA-REVENUE-DOLL-RATE (SS-REV)                        23870000
238800         TO  WK-REVENUE-DOLL-RATE (SS-REV)                        23880000
238900       MOVE HHA-REVENUE-COST (SS-REV)                             23890000
239000         TO  WK-REVENUE-COST (SS-REV)                             23900000
239100       MOVE HHA-REVENUE-ADD-ON-VISIT-AMT (SS-REV)                 23910000
239200         TO  WK-REVENUE-ADD-ON-VISIT-AMT (SS-REV)                 23920000
239300     END-PERFORM.                                                 23930000
239400                                                                  23940000
239500 Z900-EXIT. EXIT.                                                 23950000
239600                                                                  23960000
239700 Z950-CONV-600-TO-650.                                            23970000
239800                                                                  23980000
239900     MOVE WK-DATA            TO HHA-DATA.                         23990000
240000     MOVE WK-PASSBACK-DATA   TO HHA-PASSBACK-DATA                 24000000
240100     MOVE WK-CASE-MIX-DATA   TO HHA-CASE-MIX-DATA                 24010000
240200     MOVE WK-PROV-TOTAL-DATA TO HHA-PROV-TOTAL-DATA               24020000
240300                                                                  24030000
240400     PERFORM VARYING SS-REV FROM 1 BY 1                           24040000
240500             UNTIL SS-REV > 6                                     24050000
240600       MOVE WK-REVENUE-CODE (SS-REV)                              24060000
240700         TO  HHA-REVENUE-CODE (SS-REV)                            24070000
240800       MOVE WK-REVENUE-QTY-COV-VISITS (SS-REV)                    24080000
240900         TO  HHA-REVENUE-QTY-COV-VISITS (SS-REV)                  24090000
241000       MOVE WK-REVENUE-EARLIEST-DATE (SS-REV)                     24100000
241100         TO  HHA-REVENUE-EARLIEST-DATE (SS-REV)                   24110000
241200       MOVE WK-REVENUE-DOLL-RATE (SS-REV)                         24120000
241300         TO  HHA-REVENUE-DOLL-RATE (SS-REV)                       24130000
241400       MOVE WK-REVENUE-COST (SS-REV)                              24140000
241500         TO  HHA-REVENUE-COST (SS-REV)                            24150000
241600       MOVE WK-REVENUE-ADD-ON-VISIT-AMT (SS-REV)                  24160000
241700         TO  HHA-REVENUE-ADD-ON-VISIT-AMT (SS-REV)                24170000
241800     END-PERFORM.                                                 24180000
241900                                                                  24190000
242000 Z950-EXIT. EXIT.                                                 24200000
242100*****        LAST STATEMENT               *************           24210000
