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