000100 IDENTIFICATION DIVISION.                                         00010000
000200 PROGRAM-ID.    HHCAL20X.                                         00020000
000201 DATE-COMPILED.                                                   00020100
000202******************************************************************00020200
000203*                        CMS                                     *00020300
000204******************************************************************00020400
000205*  A). NATIONAL HHA PRICER                                       *00020500
000206*  B). NATIONAL HHA PRICER EFFECTIVE OCT 1 2001                  *00020600
000207*  C). THERE ARE YEARLY HHA PRICER MODULES THAT WILL             *00020700
000208*      CALCULATE THE HRG'S,REVENUE CODES AND TYPE OF BILLS       *00020800
000209******************************************************************00020900
000210* LUPA = LOW UTILIZATION PAYMENT ADJUSTMENT                      *00021000
000220******************************************************************00022000
000230*                CY2020.X CHANGES                                *00023000
000240*----------------------------------------------------------------*00024000
000250* UPDATED RATES                                                  *00025000
000251* UPDATED RURAL ADD-ON VALUES                                    *00025100
000252* UPDATED SUPPLY ADD-ON VALUES                                   *00025200
000253* UPDATED WS-STDV-RURAL-FAC FROM 1.0043 TO 1.0024                *00025300
000254******************************************************************00025400
000255*            RETURN CODE VALUES (HHA-RTC)                         00025500
000256*                                                                 00025600
000257*        HHA-RTC  WITH PAYMENTS RETURNED                          00025700
000258*                                                                 00025800
000259*     RETURN CODES                                                00025900
000260*          00 = FINAL PAYMENT                                     00026000
000270*               TOB = 329,339,327,337                             00027000
000280*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00028000
000290*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00029000
000300*                  OR 32F OR 32K OR 32P OR 32H                    00030000
000400*                  OR 33F OR 33K OR 33P OR 33H                    00040000
000500*               WITH HRG,REVENUE CODE WHERE NO OUTLIER APPLIES    00050000
000600*          01 = FINAL PAYMENT                                     00060000
000700*               TOB = 329,339,327,337                             00070000
000800*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00080000
000900*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00090000
001000*                  OR 32F OR 32K OR 32P OR 32H                    00100000
001100*                  OR 33F OR 33K OR 33P OR 33H                    00110000
001200*               WITH HRG,REVENUE CODE WHERE OUTLIER APPLIES       00120000
001300*          03 = INITIAL HALF PAYMENT PAYMENT WILL BE ZERO         00130000
001400*               TOB = 332 AND 322                                 00140000
001500*          04 = INITIAL HALF PAYMENT PAID AT 50%                  00150000
001600*               TOB = 332 AND 322                                 00160000
001700*               WITH INITIAL (FIRST) HRG AND NO REVENUE CODES     00170000
001800*          05 = INITIAL HALF PAYMENT PAID AT 60%                  00180000
001900*               TOB = 332 AND 322                                 00190000
002000*               WITH INITIAL (FIRST) HRG AND NO REVENUE CODES     00200000
002100*       06,14 = LUPA PAYMENT ONLY                                 00210000
002200*               TOB = 329,339,327,337                             00220000
002300*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00230000
002400*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00240000
002500*                  OR 32F OR 32K OR 32P OR 32H                    00250000
002600*                  OR 33F OR 33K OR 33P OR 33H                    00260000
002700*               WITH REVENUE CODES AND REVENUE QTYS < 5       *   00270000
002800******************************************************************00280000
002900*          07 = FINAL PAYMENT, SCIC, PEP = N, NO OUTLIER          00290000
003000*               TOB = 329,339,327,337                             00300000
003100*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00310000
003200*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00320000
003300*                  OR 32F OR 32K OR 32P OR 32H                    00330000
003400*                  OR 33F OR 33K OR 33P OR 33H                    00340000
003500*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        00350000
003600*               WITH MORE THAN ONE HRG OCCURRENCE             *   00360000
003700*          08 = FINAL PAYMENT, SCIC, PEP = N, WITH OUTLIER        00370000
003800*               TOB = 329,339,327,337                             00380000
003900*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00390000
004000*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00400000
004100*                  OR 32F OR 32K OR 32P OR 32H                    00410000
004200*                  OR 33F OR 33K OR 33P OR 33H                    00420000
004300*               WITH REVENUE CODE WHERE OUTLIER APPLIES           00430000
004400*               WITH MORE THAN ONE HRG OCCURRENCE             *   00440000
004500******************************************************************00450000
004600*          09 = FINAL PAYMENT, PEP = Y, NO OUTLIER                00460000
004700*               TOB = 329,339,327,337                             00470000
004800*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00480000
004900*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00490000
005000*                  OR 32F OR 32K OR 32P OR 32H                    00500000
005100*                  OR 33F OR 33K OR 33P OR 33H                    00510000
005200*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        00520000
005300*               WITH ONE HRG OCCURRENCE                       *   00530000
005400*          11 = FINAL PAYMENT, PEP = Y, WITH OUTLIER              00540000
005500*               TOB = 329,339,327,337                             00550000
005600*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00560000
005700*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00570000
005800*                  OR 32F OR 32K OR 32P OR 32H                    00580000
005900*                  OR 33F OR 33K OR 33P OR 33H                    00590000
006000*               WITH REVENUE CODE WHERE OUTLIER APPLIES           00600000
006100*               WITH ONE HRG OCCURRENCE                       *   00610000
006200******************************************************************00620000
006300*          12 = FINAL PAYMENT, SCIC, PEP = Y, NO OUTLIER          00630000
006400*               TOB = 329,339,327,337                             00640000
006500*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00650000
006600*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00660000
006700*                  OR 32F OR 32K OR 32P OR 32H                    00670000
006800*                  OR 33F OR 33K OR 33P OR 33H                    00680000
006900*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        00690000
007000*               WITH MORE THAN ONE HRG OCCURRENCE             *   00700000
007100*          13 = FINAL PAYMENT, SCIC, PEP = Y, WITH OUTLIER        00710000
007200*               TOB = 329,339,327,337                             00720000
007300*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00730000
007400*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00740000
007500*                  OR 32F OR 32K OR 32P OR 32H                    00750000
007600*                  OR 33F OR 33K OR 33P OR 33H                    00760000
007700*               WITH REVENUE CODE WHERE OUTLIER APPLIES           00770000
007800*               WITH MORE THAN ONE HRG OCCURRENCE             *   00780000
007900******************************************************************00790000
008000******************************************************************00800000
008100*                                                             *   00810000
008200*            HHA-RTC   NO PAYMENTS RETURNED                   *   00820000
008300*                                                             *   00830000
008400*              10 = INVALID TOB                               *   00840000
008500*                                                             *   00850000
008600*              15 = INVALID PEP DAYS                          *   00860000
008700*                   FOR SHORTENED EPISODE                     *   00870000
008800*                                                             *   00880000
008900*              16 = INVALID HRG DAYS , > 60 DAYS              *   00890000
009000*                                                             *   00900000
009100*              20 = INVALID PEP INDICATOR                     *   00910000
009200*                                                             *   00920000
009300*              25 = INVALID MED REVIEW INDICATOR              *   00930000
009400*                                                             *   00940000
009500*              30 = INVALID CBSA CODE                         *   00950000
009600*                                                             *   00960000
009700*              31 = COUNTY CODE MISSING OR INVALID            *   00970000
009800*                                                             *   00980000
009900*              35 = INVALID INITIAL PAYMENT INDICATOR         *   00990000
010000*                        0 = MAKE NORMAL INITIAL PAYMENT      *   01000000
010100*                        1 = MAKE ZERO PAYMANT                *   01010000
010200*                                                             *   01020000
010300*              40 = INVALID SERVICE THRU DATE FOR             *   01030000
010400*                      CURRENT CALENDER YEAR                  *   01040000
010500*                                                             *   01050000
010600*              70 = INVALID OR NO HRG CODE PRESENT            *   01060000
010700*                                                             *   01070000
010800*              75 = NO HRG PRESENT IN FIRST OCCURANCE AND     *   01080000
010900*                   REVENUE-QTY-COV-VISITS > 4  AND           *   01090000
011000*                       TOB = 329,339,327,337                 *   01100000
011100*                          OR 32G OR 33G OR 32I OR 33I        *   01110000
011200*                          OR 32J OR 33J OR 32M OR 33M        *   01120000
011300*                          OR 32F OR 32K OR 32P OR 32H            01130000
011400*                          OR 33F OR 33K OR 33P OR 33H            01140000
011500*                                                             *   01150000
011600*              80 = INVALID REVENUE CODE                      *   01160000
011700*                                                             *   01170000
011800*              85 = NO REVENUE CODE PRESENT                   *   01180000
011900*                   WITH TOB 329 OR 339 OR 327 OR 337         *   01190000
012000*                         OR 32G OR 33G OR 32I OR 33I         *   01200000
012100*                         OR 32J OR 33J OR 32M OR 33M         *   01210000
012200*                         OR 32F OR 32K OR 32P OR 32H             01220000
012300*                         OR 33F OR 33K OR 33P OR 33H             01230000
012400*                                                             *   01240000
012500***************************************************************   01250000
012600                                                                  01260000
012700 ENVIRONMENT DIVISION.                                            01270000
012800 CONFIGURATION SECTION.                                           01280000
012900 SOURCE-COMPUTER.            IBM-370.                             01290000
013000 OBJECT-COMPUTER.            IBM-370.                             01300000
013100 INPUT-OUTPUT  SECTION.                                           01310000
013200 FILE-CONTROL.                                                    01320000
013300                                                                  01330000
013400 DATA DIVISION.                                                   01340000
013500 FILE SECTION.                                                    01350000
013600                                                                  01360000
013700 WORKING-STORAGE SECTION.                                         01370000
013800 01  W-STORAGE-REF                  PIC X(46)  VALUE              01380000
013900     'HHCAL20X       - W O R K I N G   S T O R A G E'.            01390000
014000 01  CAL-VERSION                    PIC X(07)  VALUE 'C2020.X'.   01400000
014100 01  CO1                            PIC S9(04) COMP SYNC.         01410000
014200 01  SUB1                           PIC S9(04) COMP SYNC.         01420000
014300 01  SS-QCV                         PIC S9(04) COMP SYNC.         01430000
014400 01  SS-ADJ                         PIC S9(04) COMP SYNC.         01440000
014500 01  R1                             PIC S9(04) COMP SYNC.         01450000
014600 01  R2                             PIC S9(04) COMP SYNC.         01460000
014700 01  R3                             PIC S9(04) COMP SYNC.         01470000
014800 01  WS-STD-VALUE-NLUPA-AMT         PIC 9(7)V9(2) VALUE 0.        01480000
014900 01  WS-STD-VALUE-NLUPA-OUTL        PIC 9(7)V9(2) VALUE 0.        01490000
015000 01  WS-STDV-LUPA-ADDON-FAC         PIC 9(1)V9(4) VALUE 0.        01500000
015100 01  WS-STDV-RURAL-FAC              PIC 9V9999 VALUE 1.0024.      01510000
015200 01  WS-STDV-EPISODE-AMT            PIC 9(05)V9(02) VALUE 0.      01520000
015300 01  WS-STDV-FED-SUPPLY-ADJ         PIC S9(07)V9(02) VALUE 0.     01530000
015400*-------------------------------------------------------------*   01540000
015500*    RURAL ADD ON PERCENTAGES FOR CY2020                      *   01550000
015600*-------------------------------------------------------------*   01560000
015700 01  WS-RURAL-ADDON-A               PIC 9V999 VALUE 1.005.        01570000
015800 01  WS-RURAL-ADDON-B               PIC 9V999 VALUE 1.030.        01580000
015810 01  WS-RURAL-ADDON-C               PIC 9V999 VALUE 1.020.        01581000
015820 01  WS-RURAL-CATEGORY              PIC X     VALUE SPACE.        01582000
015830***************************************************************   01583000
015840*   YEARCHANGE - UPDATED FOR 2020.X                           *   01584000
015850*-------------------------------------------------------------*   01585000
015860* - FROM CLAIM EXAMPLE SPREAD SHEET HIPPSPAYCALC TAB          *   01586000
015870***************************************************************   01587000
015880 01  LABOR-NLABOR-PERCENT.                                        01588000
015890     05 LABOR-PERCENT        PIC 9V9(05)  VALUE 0.76100.          01589000
015900     05 NONLABOR-PERCENT     PIC 9V9(05)  VALUE 0.23900.          01590000
016000***************************************************************   01600000
016100*   YEARCHANGE - NO CHANGE FOR 2020.X                         *   01610000
016200***************************************************************   01620000
016300 01  LUPA-ADD-ON                  PIC 9(03)V9(02) VALUE 093.96.   01630000
016400 01  LUPA-ADD-ON-RURAL            PIC 9(03)V9(02) VALUE 096.78.   01640000
016500 01  LUPA-ADD-ON-2PERCENT         PIC 9(03)V9(02) VALUE 095.85.   01650000
016600 01  LUPA-ADD-ON-2PERCENT-RUR     PIC 9(03)V9(02) VALUE 098.73.   01660000
016700***************************************************************   01670000
016800*   YEARCHANGE - NO CHANGE FOR 2019                           *   01680000
016900***************************************************************   01690000
017000 01  LUPA-ADD-ON-SN4              PIC 9(01)V9(04) VALUE 00.8451.  01700000
017100 01  LUPA-ADD-ON-PT1              PIC 9(01)V9(04) VALUE 00.6700.  01710000
017200 01  LUPA-ADD-ON-SLT3             PIC 9(01)V9(04) VALUE 00.6266.  01720000
017300***************************************************************** 01730000
017400*   YEARCHANGE - NO CHANGE FOR 2019                           *   01740000
017500***    EXAMPLE    *********************************************** 01750000
017600*** FED-EPISODE-RATE-AMT TIMES 1.13 = OUTLIER-THRESHOLD-AMT ***** 01760000
017700******  2327.68 TIMES 0.65  = 1512.99  ROUNDED UP  ************** 01770000
017800***************************************************************** 01780000
017900 01  OUTL-LOSS-SHAR-RATIO-PERCENT PIC 9(01)V9(02) VALUE 0.80.     01790000
018000                                                                  01800000
018100 01  LUPA-LABOR-ADJ               PIC 9(03)V9(02).                01810000
018200 01  LUPA-NON-LABOR-ADJ           PIC 9(03)V9(02).                01820000
018300 01  FED-EPISODE-RATE-AMT         PIC 9(05)V9(02) VALUE 0.        01830000
018400 01  OUTLIER-THRESHOLD-AMT        PIC 9(05)V9(02) VALUE 0.        01840000
018500                                                                  01850000
018600 01  WK-PEP-DAYS           PIC S9(04)       VALUE 0.              01860000
018700 01  WK-HRG-NO-OF-DAYS     PIC S9(04)       VALUE 0.              01870000
018800 01  WK-HRG-NO-OF-DAYS-FAC PIC S9(04)V9(06) VALUE 0.              01880000
018900 01  WK-HRG-NO-OF-DAYS-TOT PIC S9(04)       VALUE 0.              01890000
019000 01  WK-RTC-ADJ-IND        PIC 9            VALUE 0.              01900000
019100 01  WK-ALL-TOTALS.                                               01910000
019200     05  FED-ADJ                        PIC S9(07)V9(02).         01920000
019300     05  FED-ADJP                       PIC S9(07)V9(02).         01930000
019400     05  FED-ADJ1                       PIC S9(07)V9(02).         01940000
019500     05  FED-ADJ2                       PIC S9(07)V9(02).         01950000
019600     05  FED-ADJ3                       PIC S9(07)V9(02).         01960000
019700     05  FED-ADJ4                       PIC S9(07)V9(02).         01970000
019800     05  FED-ADJ5                       PIC S9(07)V9(02).         01980000
019900     05  FED-ADJ6                       PIC S9(07)V9(02).         01990000
020000     05  FED-LUPA-ADJ1                  PIC S9(07)V9(02).         02000000
020100     05  FED-LUPA-ADJ2                  PIC S9(07)V9(02).         02010000
020200     05  FED-LUPA-ADJ3                  PIC S9(07)V9(02).         02020000
020300     05  FED-LUPA-ADJ4                  PIC S9(07)V9(02).         02030000
020400     05  FED-LUPA-ADJ5                  PIC S9(07)V9(02).         02040000
020500     05  FED-LUPA-ADJ6                  PIC S9(07)V9(02).         02050000
020600     05  FED-LABOR-ADJ                  PIC S9(07)V9(02).         02060000
020700     05  FED-LABOR-ADJP                 PIC S9(07)V9(02).         02070000
020800     05  FED-LABOR-ADJ1                 PIC S9(07)V9(02).         02080000
020900     05  FED-LABOR-ADJ2                 PIC S9(07)V9(02).         02090000
021000     05  FED-LABOR-ADJ3                 PIC S9(07)V9(02).         02100000
021100     05  FED-LABOR-ADJ4                 PIC S9(07)V9(02).         02110000
021200     05  FED-LABOR-ADJ5                 PIC S9(07)V9(02).         02120000
021300     05  FED-LABOR-ADJ6                 PIC S9(07)V9(02).         02130000
021400     05  FED-LABOR-LUPA-ADJ1            PIC S9(07)V9(02).         02140000
021500     05  FED-LABOR-LUPA-ADJ2            PIC S9(07)V9(02).         02150000
021600     05  FED-LABOR-LUPA-ADJ3            PIC S9(07)V9(02).         02160000
021700     05  FED-LABOR-LUPA-ADJ4            PIC S9(07)V9(02).         02170000
021800     05  FED-LABOR-LUPA-ADJ5            PIC S9(07)V9(02).         02180000
021900     05  FED-LABOR-LUPA-ADJ6            PIC S9(07)V9(02).         02190000
022000     05  FED-SUPPLY-ADJ                 PIC S9(07)V9(02).         02200000
022100     05  FED-NON-LABOR-ADJ              PIC S9(07)V9(02).         02210000
022200     05  FED-NON-LABOR-ADJP             PIC S9(07)V9(02).         02220000
022300     05  FED-NON-LABOR-ADJ1             PIC S9(07)V9(02).         02230000
022400     05  FED-NON-LABOR-ADJ2             PIC S9(07)V9(02).         02240000
022500     05  FED-NON-LABOR-ADJ3             PIC S9(07)V9(02).         02250000
022600     05  FED-NON-LABOR-ADJ4             PIC S9(07)V9(02).         02260000
022700     05  FED-NON-LABOR-ADJ5             PIC S9(07)V9(02).         02270000
022800     05  FED-NON-LABOR-ADJ6             PIC S9(07)V9(02).         02280000
022900     05  FED-NON-LABOR-LUPA-ADJ1        PIC S9(07)V9(02).         02290000
023000     05  FED-NON-LABOR-LUPA-ADJ2        PIC S9(07)V9(02).         02300000
023100     05  FED-NON-LABOR-LUPA-ADJ3        PIC S9(07)V9(02).         02310000
023200     05  FED-NON-LABOR-LUPA-ADJ4        PIC S9(07)V9(02).         02320000
023300     05  FED-NON-LABOR-LUPA-ADJ5        PIC S9(07)V9(02).         02330000
023400     05  FED-NON-LABOR-LUPA-ADJ6        PIC S9(07)V9(02).         02340000
023500     05  OUT-THRES-AMT-ADJ              PIC S9(07)V9(02).         02350000
023600     05  OUT-THRES-LABOR-ADJ            PIC S9(07)V9(02).         02360000
023700     05  OUT-THRES-NON-LABOR-ADJ        PIC S9(07)V9(02).         02370000
023800     05  WK-3000-PEP-N-PRETOT-PAY       PIC S9(07)V9(02).         02380000
023900     05  WK-3000-PEP-N-PAYMENT          PIC S9(07)V9(02).         02390000
024000     05  WK-4000-PEP-Y-PRETOT-PAY       PIC S9(07)V9(02).         02400000
024100     05  WK-4000-PEP-Y-PAYMENT          PIC S9(07)V9(02).         02410000
024200     05  WK-5000-PEP-N-PRETOT-PAY       PIC S9(07)V9(02).         02420000
024300     05  WK-5000-PEP-N-PAYMENT          PIC S9(07)V9(02).         02430000
024400     05  WK-6000-PEP-Y-PRETOT-PAY       PIC S9(07)V9(02).         02440000
024500     05  WK-6000-PEP-Y-PAYMENT          PIC S9(07)V9(02).         02450000
024600     05  WK-6050-PEP-Y-TOT-DAYS         PIC S9(04).               02460000
024700     05  WK-7000-OUTLIER-VALUE-A        PIC S9(07)V9(02).         02470000
024800     05  WK-7000-AB-DIFF                PIC S9(07)V9(02).         02480000
024900     05  WK-7000-CALC                   PIC S9(07)V9(02).         02490000
025000     05  WK-8000-OUTLIER-VALUE-B        PIC S9(07)V9(02).         02500000
025100     05  WK-8000-OUTLIER-LAB-NLAB       PIC S9(07)V9(02).         02510000
025200     05  WK-9100-TOTAL-PAYMENT          PIC 9(07)V9(02).          02520000
025300     05  WK-10000-OUTLIER-POOL-DIF      PIC S9(07)V9(02).         02530000
025400     05  WK-10000-OUTLIER-POOL-PERCENT  PIC S9(09)V9(02).         02540000
025500     05  WK-10000-OUTLIER-AVAIL-POOL    PIC S9(09)V9(02).         02550000
025600                                                                  02560000
025700 01  WORK-HRG.                                                    02570000
025800     05  WORK-HRG1                      PIC X(01).                02580000
025900     05  WORK-HRG2                      PIC X(01).                02590000
026000     05  WORK-HRG3                      PIC X(01).                02600000
026100     05  WORK-HRG4                      PIC X(01).                02610000
026200     05  WORK-HRG5                      PIC X(01).                02620000
026300                                                                  02630000
026400*----------------------------------------------------------------*02640000
026500 01  HOLD-HHA-DATA.                                               02650000
026600     05  H-HHA-INPUT-DATA.                                        02660000
026700         10  H-HHA-NPI                 PIC X(10).                 02670000
026800         10  H-HHA-HIC                 PIC X(12).                 02680000
026900         10  H-HHA-PROV-NO             PIC X(06).                 02690000
027000         10  H-HHA-TOB                 PIC XXX.                   02700000
027100             88 H-VALID-TOB-CLAIM       VALUE                     02710000
027200             '329', '339', '327', '337',                          02720000
027300             '32G', '33G', '32I', '33I',                          02730000
027400             '32J', '33J', '32M', '33M', '32Q',                   02740000
027500             '32F', '32K', '32P', '32H', '33Q',                   02750000
027600             '33F', '33K', '33P', '33H'.                          02760000
027700             88 H-VALID-TOB-RAP         VALUE                     02770000
027800             '322', '332'.                                        02780000
027900*                                                             *   02790000
028000         10  H-HHA-PEP-INDICATOR       PIC X.                     02800000
028100         10  H-HHA-PEP-DAYS            PIC 999.                   02810000
028200         10  H-HHA-INIT-PAY-INDICATOR  PIC X.                     02820000
028300             88 H-HHA-WITH-DATA-CHECK VALUE '0', '1'.             02830000
028400             88 H-HHA-NO-DATA-CHECK   VALUE '2', '3'.             02840000
028500         10  H-HHA-COUNTY-CODE         PIC X(05).                 02850000
028600         10  FILLER                    PIC X(02).                 02860000
028700         10  H-HHA-MSA1                PIC 9(07)V9(02).           02870000
028800         10  H-HHA-MSA2-DATA REDEFINES H-HHA-MSA1.                02880000
028900             15  FILLER             PIC XXX.                      02890000
029000             15  H-HHA-MSA2         PIC XXXX.                     02900000
029100             15  FILLER             PIC XX.                       02910000
029200         10  H-HHA-CBSA-DATA REDEFINES H-HHA-MSA1.                02920000
029300             15  FILLER             PIC XX.                       02930000
029400             15  H-HHA-CBSA         PIC XXXXX.                    02940000
029500             15  FILLER             PIC XX.                       02950000
029600         10  H-HHA-SERV-FROM-DATE.                                02960000
029700             15  H-HHA-FROM-CC         PIC XX.                    02970000
029800             15  H-HHA-FROM-YYMMDD.                               02980000
029900                 25  H-HHA-FROM-YY     PIC XX.                    02990000
030000                 25  H-HHA-FROM-MM     PIC XX.                    03000000
030100                 25  H-HHA-FROM-DD     PIC XX.                    03010000
030200         10  H-HHA-SERV-THRU-DATE.                                03020000
030300             15  H-HHA-THRU-CC         PIC XX.                    03030000
030400             15  H-HHA-THRU-YYMMDD.                               03040000
030500                 25  H-HHA-THRU-YY     PIC XX.                    03050000
030600                 25  H-HHA-THRU-MM     PIC XX.                    03060000
030700                 25  H-HHA-THRU-DD     PIC XX.                    03070000
030800         10  H-HHA-ADMIT-DATE.                                    03080000
030900             15  H-HHA-ADMIT-CC        PIC XX.                    03090000
031000             15  H-HHA-ADMIT-YYMMDD.                              03100000
031100                 25  H-HHA-ADMIT-YY    PIC XX.                    03110000
031200                 25  H-HHA-ADMIT-MM    PIC XX.                    03120000
031300                 25  H-HHA-ADMIT-DD    PIC XX.                    03130000
031400         10  H-HHA-HRG-DATA      OCCURS 6.                        03140000
031500             15  H-HHA-MED-REVIEW-INDICATOR PIC X.                03150000
031600             15  H-HHA-HRG-INPUT-CODE       PIC X(05).            03160000
031700             15  H-HHA-HRG-OUTPUT-CODE      PIC X(05).            03170000
031800             15  H-HHA-HRG-NO-OF-DAYS       PIC 9(03).            03180000
031900             15  H-HHA-HRG-WGTS             PIC 9(02)V9(04).      03190000
032000             15  H-HHA-HRG-PAY              PIC 9(07)V9(02).      03200000
032100         10  H-HHA-REVENUE-DATA     OCCURS 6.                     03210000
032200             15  H-HHA-REVENUE-CODE             PIC X(04).        03220000
032300             15  H-HHA-REVENUE-QTY-COV-VISITS   PIC 9(03).        03230000
032400             15  H-HHA-REVENUE-QTY-OUTL-UNITS   PIC 9(05).        03240000
032500             15  H-HHA-REVENUE-EARLIEST-DATE    PIC 9(08).        03250000
032600             15  H-HHA-REVENUE-DOLL-RATE        PIC 9(07)V9(02).  03260000
032700             15  H-HHA-REVENUE-COST             PIC 9(07)V9(02).  03270000
032800             15  H-HHA-REVENUE-ADD-ON-VISIT-AMT PIC 9(07)V9(02).  03280000
032900     05  H-HHA-PASSBACK-DATA.                                     03290000
033000         10  H-HHA-PAY-RTC                PIC 99.                 03300000
033100         10  H-HHA-REVENUE-SUM1-3-QTY-THR PIC 9(05).              03310000
033200         10  H-HHA-REVENUE-SUM1-6-QTY-ALL PIC 9(05).              03320000
033300         10  H-HHA-OUTLIER-PAYMENT        PIC 9(07)V9(02).        03330000
033400         10  H-HHA-TOTAL-PAYMENT          PIC 9(07)V9(02).        03340000
033500     05  H-HHA-CASE-MIX-DATA.                                     03350000
033600         10  H-HHA-LUPA-ADD-ON-PAYMENT    PIC 9(03)V9(02).        03360000
033700         10  H-HHA-LUPA-SRC-ADM           PIC X.                  03370000
033800         10  H-HHA-RECODE-IND             PIC X.                  03380000
033900         10  H-HHA-EPISODE-TIMING         PIC 9.                  03390000
034000         10  H-HHA-SEVERITY-POINTS.                               03400000
034100             15  H-HHA-CLINICAL-SEV-EQ1   PIC X(01).              03410000
034200             15  H-HHA-FUNCTION-SEV-EQ1   PIC X(01).              03420000
034300             15  H-HHA-CLINICAL-SEV-EQ2   PIC X(01).              03430000
034400             15  H-HHA-FUNCTION-SEV-EQ2   PIC X(01).              03440000
034500             15  H-HHA-CLINICAL-SEV-EQ3   PIC X(01).              03450000
034600             15  H-HHA-FUNCTION-SEV-EQ3   PIC X(01).              03460000
034700             15  H-HHA-CLINICAL-SEV-EQ4   PIC X(01).              03470000
034800             15  H-HHA-FUNCTION-SEV-EQ4   PIC X(01).              03480000
034900     05  H-HHA-PROV-TOTAL-DATA.                                   03490000
035000         10  H-HHA-PROV-OUTLIER-PAY-TOTAL PIC 9(08)V9(02).        03500000
035100         10  H-HHA-PROV-PAYMENT-TOTAL     PIC 9(09)V9(02).        03510000
035200     05  H-HHA-PROV-VBP-ADJ-FAC           PIC 9V9(5).             03520000
035300     05  H-HHA-VBP-ADJ-AMT                PIC S9(7)V99.           03530000
035400     05  H-HHA-PPS-STD-VALUE              PIC 9(7)V99.            03540000
035500     05  FILLER                           PIC X(27).              03550000
035600*----------------------------------------------------------------*03560000
035700*    STATE & COUNTY CODE RURAL ADD ON TABLE                      *03570000
035800*----------------------------------------------------------------*03580000
035900     COPY ADDONTBL.                                               03590000
036000*----------------------------------------------------------------*03600000
036100 LINKAGE SECTION.                                                 03610000
036200***************************************************************   03620000
036300*                 * * * * * * * * *                           *   03630000
036400***************************************************************   03640000
036500***************************************************************   03650000
036600*    THIS DATA IS CALCULATED BY THIS HHAPR  SUBROUTINE        *   03660000
036610*    AND PASSED BACK TO THE CALLING PROGRAM                   *   03661000
036620***************************************************************   03662000
036630 01  HHA-INPUT-DATA.                                              03663000
036640     05  HHA-DATA.                                                03664000
036650         10  HHA-NPI                 PIC X(10).                   03665000
036660         10  HHA-HIC                 PIC X(12).                   03666000
036670         10  HHA-PROV-NO             PIC X(06).                   03667000
036680         10  HHA-TOB                 PIC XXX.                     03668000
036690             88 HHA-VALID-TOB-CLAIM       VALUE                   03669000
036700             '329', '339', '327', '337',                          03670000
036800             '32G', '33G', '32I', '33I',                          03680000
036900             '32J', '33J', '32M', '33M', '32Q',                   03690000
037000             '32F', '32K', '32P', '32H', '33Q',                   03700000
037100             '33F', '33K', '33P', '33H'.                          03710000
037200             88 HHA-VALID-TOB-RAP         VALUE                   03720000
037300             '322', '332'.                                        03730000
037400*                                                             *   03740000
037500         10  HHA-PEP-INDICATOR       PIC X.                       03750000
037600         10  HHA-PEP-DAYS            PIC 999.                     03760000
037700         10  HHA-INIT-PAY-INDICATOR  PIC X.                       03770000
037800             88  HHA-WITH-DATA-CHECK VALUE '0', '1'.              03780000
037900             88  HHA-NO-DATA-CHECK   VALUE '2', '3'.              03790000
038000         10  HHA-COUNTY-CODE         PIC X(05).                   03800000
038100         10  FILLER                  PIC X(02).                   03810000
038200         10  HHA-MSA1                PIC 9(07)V9(02).             03820000
038300         10  HHA-MSA2-DATA REDEFINES HHA-MSA1.                    03830000
038400             15  FILLER             PIC XXX.                      03840000
038500             15  HHA-MSA2.                                        03850000
038600                 25  HHA-MSA2-RURAL-1ST.                          03860000
038700                     30  HHA-RURAL-MSA         PIC XX.            03870000
038800                     88  HHA-MSA-RURAL-CHECK   VALUE '99'.        03880000
038900                 25  HHA-MSA2-RURAL-2ND        PIC XX.            03890000
039000             15  FILLER             PIC XX.                       03900000
039100         10  HHA-CBSA-DATA REDEFINES HHA-MSA1.                    03910000
039200             15  FILLER             PIC XX.                       03920000
039300             15  HHA-CBSA.                                        03930000
039400                 88  HHA-CBSA-RURAL-CHECK-ALL VALUE               03940000
039500                 '50001', '50002', '50005', '50007', '50025',     03950000
039600                 '50028', '50031', '50035', '50036', '50037',     03960000
039700                 '50041', '50045', '50047', '50048', '50050',     03970000
039800                 '50056', '50057', '50066', '50068', '50071',     03980000
039900                 '50073', '50080', '50084', '50087', '50089',     03990000
040000                 '50090', '50091', '50103', '50104', '50111',     04000000
040100                 '50115', '50117', '50118', '50120', '50121',     04010000
040200                 '50139', '50146', '50147', '50149', '50151',     04020000
040300                 '50164', '50165', '50168', '50169', '50173',     04030000
040400                 '50174', '50177', '50180', '50182', '50183'.     04040000
040500*                                                                 04050000
040600                 25  HHA-CBSA-RURAL-1ST.                          04060000
040700                     30  HHA-RURAL-CBSA        PIC XXX.           04070000
040800                     88  HHA-CBSA-RURAL-CHECK   VALUE '999'.      04080000
040900                 25  HHA-CBSA-RURAL-2ND        PIC XX.            04090000
041000             15  FILLER             PIC XX.                       04100000
041100         10  HHA-SERV-FROM-DATE.                                  04110000
041200             15  HHA-FROM-CC         PIC XX.                      04120000
041300             15  HHA-FROM-YYMMDD.                                 04130000
041400                 25  HHA-FROM-YY     PIC XX.                      04140000
041500                 25  HHA-FROM-MM     PIC XX.                      04150000
041600                 25  HHA-FROM-DD     PIC XX.                      04160000
041700         10  HHA-SERV-THRU-DATE.                                  04170000
041800             15  HHA-THRU-CC         PIC XX.                      04180000
041900             15  HHA-THRU-YYMMDD.                                 04190000
042000                 25  HHA-THRU-YY     PIC XX.                      04200000
042100                 25  HHA-THRU-MM     PIC XX.                      04210000
042200                 25  HHA-THRU-DD     PIC XX.                      04220000
042300         10  HHA-ADMIT-DATE.                                      04230000
042400             15  HHA-ADMIT-CC        PIC XX.                      04240000
042500             15  HHA-ADMIT-YYMMDD.                                04250000
042600                 25  HHA-ADMIT-YY    PIC XX.                      04260000
042700                 25  HHA-ADMIT-MM    PIC XX.                      04270000
042800                 25  HHA-ADMIT-DD    PIC XX.                      04280000
042900         10  HHA-HRG-DATA      OCCURS 6.                          04290000
043000             15  HHA-MED-REVIEW-INDICATOR PIC X.                  04300000
043100             15  HHA-HRG-INPUT-CODE       PIC X(05).              04310000
043200             15  HHA-HRG-OUTPUT-CODE      PIC X(05).              04320000
043300             15  HHA-HRG-NO-OF-DAYS       PIC 9(03).              04330000
043400             15  HHA-HRG-WGTS             PIC 9(02)V9(04).        04340000
043500             15  HHA-HRG-PAY              PIC 9(07)V9(02).        04350000
043600         10  HHA-REVENUE-DATA     OCCURS 6.                       04360000
043700             15  HHA-REVENUE-CODE             PIC X(04).          04370000
043800             15  HHA-REVENUE-QTY-COV-VISITS   PIC 9(03).          04380000
043900             15  HHA-REVENUE-QTY-OUTL-UNITS   PIC 9(05).          04390000
044000             15  HHA-REVENUE-EARLIEST-DATE    PIC 9(08).          04400000
044100             15  HHA-REVENUE-DOLL-RATE        PIC 9(07)V9(02).    04410000
044200             15  HHA-REVENUE-COST             PIC 9(07)V9(02).    04420000
044300             15  HHA-REVENUE-ADD-ON-VISIT-AMT PIC 9(07)V9(02).    04430000
044400     05  HHA-PASSBACK-DATA.                                       04440000
044500         10  HHA-PAY-RTC                PIC 99.                   04450000
044600         10  HHA-REVENUE-SUM1-3-QTY-THR PIC 9(05).                04460000
044700         10  HHA-REVENUE-SUM1-6-QTY-ALL PIC 9(05).                04470000
044800         10  HHA-OUTLIER-PAYMENT        PIC 9(07)V9(02).          04480000
044900         10  HHA-TOTAL-PAYMENT          PIC 9(07)V9(02).          04490000
045000     05  HHA-CASE-MIX-DATA.                                       04500000
045100         10  HHA-LUPA-ADD-ON-PAYMENT      PIC 9(03)V9(02).        04510000
045200         10  HHA-LUPA-SRC-ADM             PIC X.                  04520000
045300         10  HHA-RECODE-IND               PIC X.                  04530000
045400         10  HHA-EPISODE-TIMING           PIC 9.                  04540000
045500         10  HHA-SEVERITY-POINTS.                                 04550000
045600             15  HHA-CLINICAL-SEV-EQ1     PIC X(01).              04560000
045700             15  HHA-FUNCTION-SEV-EQ1     PIC X(01).              04570000
045800             15  HHA-CLINICAL-SEV-EQ2     PIC X(01).              04580000
045900             15  HHA-FUNCTION-SEV-EQ2     PIC X(01).              04590000
046000             15  HHA-CLINICAL-SEV-EQ3     PIC X(01).              04600000
046100             15  HHA-FUNCTION-SEV-EQ3     PIC X(01).              04610000
046200             15  HHA-CLINICAL-SEV-EQ4     PIC X(01).              04620000
046300             15  HHA-FUNCTION-SEV-EQ4     PIC X(01).              04630000
046400     05  HHA-PROV-TOTAL-DATA.                                     04640000
046500         10  HHA-PROV-OUTLIER-PAY-TOTAL PIC 9(08)V9(02).          04650000
046600         10  HHA-PROV-PAYMENT-TOTAL     PIC 9(09)V9(02).          04660000
046700     05  HHA-PROV-VBP-ADJ-FAC           PIC 9V9(5).               04670000
046800     05  HHA-VBP-ADJ-AMT                PIC S9(7)V99.             04680000
046900     05  HHA-PPS-STD-VALUE              PIC 9(7)V99.              04690000
047000     05  FILLER                         PIC X(27).                04700000
047100*----------------------------------------------------------------*04710000
047200                                                                  04720000
047300 01  HOLD-VARIABLES-DATA.                                         04730000
047400     02  HOLD-VAR-DATA.                                           04740000
047500         05  PRICER-OPTION-SW                   PIC X(01).        04750000
047600         05  HHOPN-VERSION                      PIC X(07).        04760000
047700         05  HHDRV-VERSION                      PIC X(07).        04770000
047800         05  HHCAL-VERSION                      PIC X(07).        04780000
047900         05  FILLER                             PIC X(20).        04790000
048000                                                                  04800000
048100 01  CBSA-WAGE-INDEX-DATA.                                        04810000
048200     02  HOLD-WIR-DATA.                                           04820000
048300         05  WIR-CBSA                       PIC X(05).            04830000
048400         05  WIR-CBSA-EFFDATE               PIC X(08).            04840000
048500         05  WIR-CBSA-WAGEIND               PIC 9(02)V9(04).      04850000
048600                                                                  04860000
048700 01  TB-REV-DOLL-RATE-UNITS.                                      04870000
048800     05 WK-REV-DOLL-RATE-UNITS  PIC 9(07)V9(02)                   04880000
048900                                OCCURS 6.                         04890000
049000 01  TB-STDV-DATA.                                                04900000
049100     05 TB-STDV-TABLE           OCCURS 6.                         04910000
049200        10  TB-STDV-REV-CODE           PIC X(04).                 04920000
049300        10  TB-STDV-REV-DOLL-RATE      PIC 9(07)V9(02).           04930000
049400                                                                  04940000
049500 PROCEDURE DIVISION  USING HHA-INPUT-DATA                         04950000
049600                           HOLD-VARIABLES-DATA                    04960000
049700                           CBSA-WAGE-INDEX-DATA                   04970000
049800                           TB-REV-DOLL-RATE-UNITS                 04980000
049900                           TB-STDV-DATA.                          04990000
050000                                                                  05000000
050100***************************************************************   05010000
050200*    PROCESSING:                                              *   05020000
050300*        A. WILL PROCESS NATIONAL HHA FOR CY 2010             *   05030000
050400*                STARTING JAN 1, 2010                         *   05040000
050500***************************************************************   05050000
050600                                                                  05060000
050700     MOVE CAL-VERSION TO HHCAL-VERSION.                           05070000
050800                                                                  05080000
050900     PERFORM 200-MAINLINE-CONTROL THRU 200-EXIT.                  05090000
051000                                                                  05100000
051100*         YEARCHANGE  2014.1                      ===========**   05110000
051200     MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT.                        05120000
051300*         YEARCHANGE  2014.1                      ===========**   05130000
051400                                                                  05140000
051500*----------------------------------------------------------------*05150000
051600* CALCULATE THE HHA-PPS-STD-VALUE                                *05160000
051700*----------------------------------------------------------------*05170000
051800     PERFORM 9200-CALC-STD-VALUE  THRU 9200-EXIT.                 05180000
051900*----------------------------------------------------------------*05190000
052000* CALCULATE THE HHA-VBP-ADJ-AMT                                  *05200000
052010*----------------------------------------------------------------*05201000
052020     PERFORM 9100-VBP-CALC        THRU 9100-EXIT.                 05202000
052030                                                                  05203000
052040     MOVE HOLD-HHA-DATA TO HHA-INPUT-DATA.                        05204000
052050                                                                  05205000
052060     GOBACK.                                                      05206000
052070                                                                  05207000
052080 200-MAINLINE-CONTROL.                                            05208000
052090                                                                  05209000
052100     MOVE HHA-INPUT-DATA TO HOLD-HHA-DATA.                        05210000
052200                                                                  05220000
052300     MOVE SPACE   TO WS-RURAL-CATEGORY.                           05230000
052400                                                                  05240000
052500     MOVE ALL '0' TO                                              05250000
052510                     WK-ALL-TOTALS                                05251000
052520                     WK-HRG-NO-OF-DAYS                            05252000
052530                     WK-HRG-NO-OF-DAYS-TOT                        05253000
052540                     WK-RTC-ADJ-IND                               05254000
052550                     WK-PEP-DAYS                                  05255000
052560                     H-HHA-PASSBACK-DATA                          05256000
052570                     H-HHA-HRG-PAY (1)                            05257000
052580                     H-HHA-HRG-PAY (2)                            05258000
052590                     H-HHA-HRG-PAY (3)                            05259000
052600                     H-HHA-HRG-PAY (4)                            05260000
052700                     H-HHA-HRG-PAY (5)                            05270000
052800                     H-HHA-HRG-PAY (6)                            05280000
052900                     H-HHA-REVENUE-COST (1)                       05290000
053000                     H-HHA-REVENUE-COST (2)                       05300000
053100                     H-HHA-REVENUE-COST (3)                       05310000
053200                     H-HHA-REVENUE-COST (4)                       05320000
053300                     H-HHA-REVENUE-COST (5)                       05330000
053400                     H-HHA-REVENUE-COST (6)                       05340000
053500                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)           05350000
053600                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)           05360000
053700                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)           05370000
053800                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)           05380000
053900                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (5)           05390000
054000                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (6).          05400000
054100                                                                  05410000
054200     IF  H-HHA-PAY-RTC = 00                                       05420000
054300         PERFORM 400-CALC-THE-HHA THRU 400-EXIT.                  05430000
054400                                                                  05440000
054500 200-EXIT.   EXIT.                                                05450000
054600                                                                  05460000
054700 400-CALC-THE-HHA.                                                05470000
054800                                                                  05480000
054900*    IF H-HHA-SERV-THRU-DATE < 20070101                           05490000
055000*        MOVE '40' TO H-HHA-PAY-RTC                               05500000
055100*        GO TO 400-EXIT.                                          05510000
055200                                                                  05520000
055300     IF H-HHA-ADMIT-DATE >                                        05530000
055400        H-HHA-SERV-FROM-DATE                                      05540000
055500         MOVE '40' TO H-HHA-PAY-RTC                               05550000
055600         GO TO 400-EXIT.                                          05560000
055700                                                                  05570000
055800     IF (H-VALID-TOB-RAP  AND                                     05580000
055900        (H-HHA-HRG-INPUT-CODE (1) = SPACE))                       05590000
056000        MOVE '70' TO H-HHA-PAY-RTC                                05600000
056100        GO TO 400-EXIT.                                           05610000
056200                                                                  05620000
056300     IF (H-VALID-TOB-CLAIM AND                                    05630000
056400         (H-HHA-REVENUE-SUM1-6-QTY-ALL > 4 ) AND                  05640000
056500         (H-HHA-HRG-INPUT-CODE (1) = SPACE))                      05650000
056600        MOVE '75' TO H-HHA-PAY-RTC                                05660000
056700        GO TO 400-EXIT.                                           05670000
056800                                                                  05680000
056900     IF (H-VALID-TOB-CLAIM AND                                    05690000
057000         (H-HHA-REVENUE-CODE (1) = SPACE))                        05700000
057100        MOVE '85' TO H-HHA-PAY-RTC                                05710000
057200        GO TO 400-EXIT.                                           05720000
057300                                                                  05730000
057400     IF (H-VALID-TOB-CLAIM AND                                    05740000
057500         (H-HHA-HRG-INPUT-CODE (2) NOT = SPACES) AND              05750000
057600         (H-HHA-PEP-INDICATOR = 'Y') AND                          05760000
057700         (H-HHA-PEP-DAYS NOT NUMERIC OR                           05770000
057800          H-HHA-PEP-DAYS = ZEROES))                               05780000
057900        MOVE '15' TO H-HHA-PAY-RTC                                05790000
058000        GO TO 400-EXIT.                                           05800000
058100                                                                  05810000
058200     IF H-HHA-PAY-RTC NOT = 00 GO TO 400-EXIT.                    05820000
058300                                                                  05830000
058400***************************************************************   05840000
058500*                 YEARCHANGE                                  *   05850000
058600*-------------------------------------------------------------*   05860000
058700* RATES AND THRESHOLDS ARE APPLIED FOR RURAL AND NON-RURAL    *   05870000
058800*-------------------------------------------------------------*   05880000
058900* OUTLIER-THRESHOLD-AMT = FED-EPISODE-RATE-AMT X .51          *   05890000
059000***************************************************************   05900000
059100*-------------------------------------------------------------*   05910000
059200*   NON-RURAL, REPORTING DATA  -  TABLE 1                     *   05920000
059300*   ( SAVE FOR STANDARD VALUE CALCULATION )                   *   05930000
059400*-------------------------------------------------------------*   05940000
059500     MOVE 03220.79           TO  WS-STDV-EPISODE-AMT.             05950000
059600*-------------------------------------------------------------*   05960000
059610*   RURAL, REPORTING DATA    - TABLE 8, 1ST GROUP, 2ND COL    *   05961000
059620*-------------------------------------------------------------*   05962000
059630     IF HHA-CBSA-RURAL-CHECK                                      05963000
059640     OR HHA-CBSA-RURAL-CHECK-ALL                                  05964000
059650        IF HHA-WITH-DATA-CHECK                                    05965000
059660           MOVE 03220.79 TO   FED-EPISODE-RATE-AMT                05966000
059670           MOVE 01642.60 TO   OUTLIER-THRESHOLD-AMT               05967000
059671           PERFORM 2000-TBL-SCC-SEARCH THRU 2000-EXIT             05967100
059672           IF H-HHA-PAY-RTC = '31'                                05967200
059673              GO TO 400-EXIT                                      05967300
059674           ELSE                                                   05967400
059675              GO TO PROCESS-PAYMENT                               05967500
059676           END-IF                                                 05967600
059677        END-IF                                                    05967700
059678     END-IF.                                                      05967800
059679*-------------------------------------------------------------*   05967900
059680*   RURAL, NO REPORTING DATA - TABLE 7, 2ND GROUP, 2ND COL    *   05968000
059690*-------------------------------------------------------------*   05969000
059691     IF HHA-CBSA-RURAL-CHECK                                      05969100
059692     OR HHA-CBSA-RURAL-CHECK-ALL                                  05969200
059693        IF HHA-NO-DATA-CHECK                                      05969300
059694           MOVE 03157.33 TO   FED-EPISODE-RATE-AMT                05969400
059695           MOVE 01610.24 TO   OUTLIER-THRESHOLD-AMT               05969500
059696           PERFORM 2000-TBL-SCC-SEARCH THRU 2000-EXIT             05969600
059697           IF H-HHA-PAY-RTC = '31'                                05969700
059698              GO TO 400-EXIT                                      05969800
059699           ELSE                                                   05969900
059700              GO TO PROCESS-PAYMENT                               05970000
059701           END-IF                                                 05970100
059702        END-IF                                                    05970200
059703     END-IF.                                                      05970300
059704*-------------------------------------------------------------*   05970400
059705*   NON-RURAL, REPORTING DATA  -  TABLE 1                     *   05970500
059706*-------------------------------------------------------------*   05970600
059707     IF HHA-WITH-DATA-CHECK                                       05970700
059708        MOVE 03220.79 TO   FED-EPISODE-RATE-AMT                   05970800
059709        MOVE 01642.60 TO   OUTLIER-THRESHOLD-AMT                  05970900
059710        GO TO PROCESS-PAYMENT                                     05971000
059711     END-IF.                                                      05971100
059712*-------------------------------------------------------------*   05971200
059713*   NON-RURAL, NO REPORTING DATA - TABLE 2                    *   05971300
059714*-------------------------------------------------------------*   05971400
059715     IF HHA-NO-DATA-CHECK                                         05971500
059716        MOVE 03157.33 TO   FED-EPISODE-RATE-AMT                   05971600
059717        MOVE 01610.24 TO   OUTLIER-THRESHOLD-AMT                  05971700
059718        GO TO PROCESS-PAYMENT                                     05971800
059719     END-IF.                                                      05971900
059720                                                                  05972000
059721 PROCESS-PAYMENT.                                                 05972100
059722                                                                  05972200
059723* ADJUST REVENUE-DOLL-RATE IF RURAL                               05972300
059724     PERFORM 425-ADJ-REV-DOLL-RATE THRU 425-EXIT                  05972400
059725             VARYING SS-ADJ FROM 1 BY 1                           05972500
059726             UNTIL SS-ADJ > 6.                                    05972600
059727                                                                  05972700
059728     IF H-VALID-TOB-RAP                                           05972800
059729        PERFORM 500-INITIAL-PAYMENT THRU 500-EXIT                 05972900
059730        GO TO 400-EXIT.                                           05973000
059740                                                                  05974000
059750     IF H-VALID-TOB-CLAIM                                         05975000
059760        PERFORM 1000-FINAL-PAYMENT THRU 1000-EXIT                 05976000
059770        GO TO 400-EXIT.                                           05977000
059780                                                                  05978000
059790     MOVE '10' TO H-HHA-PAY-RTC.                                  05979000
059800                                                                  05980000
059900 400-EXIT.   EXIT.                                                05990000
060000                                                                  06000000
060100 425-ADJ-REV-DOLL-RATE.                                           06010000
060200     IF WS-RURAL-CATEGORY = 'A'                                   06020000
060300         COMPUTE H-HHA-REVENUE-DOLL-RATE (SS-ADJ) ROUNDED =       06030000
060301                 H-HHA-REVENUE-DOLL-RATE (SS-ADJ) *               06030100
060302                 WS-RURAL-ADDON-A                                 06030200
060303     END-IF.                                                      06030300
060304     IF WS-RURAL-CATEGORY = 'B'                                   06030400
060305         COMPUTE H-HHA-REVENUE-DOLL-RATE (SS-ADJ) ROUNDED =       06030500
060306                 H-HHA-REVENUE-DOLL-RATE (SS-ADJ) *               06030600
060307                 WS-RURAL-ADDON-B                                 06030700
060308     END-IF.                                                      06030800
060309     IF WS-RURAL-CATEGORY = 'C'                                   06030900
060310         COMPUTE H-HHA-REVENUE-DOLL-RATE (SS-ADJ) ROUNDED =       06031000
060311                 H-HHA-REVENUE-DOLL-RATE (SS-ADJ) *               06031100
060312                 WS-RURAL-ADDON-C                                 06031200
060313     END-IF.                                                      06031300
060314 425-EXIT.    EXIT.                                               06031400
060315                                                                  06031500
060316 500-INITIAL-PAYMENT.                                             06031600
060317                                                                  06031700
060318     MOVE H-HHA-HRG-OUTPUT-CODE (1) TO WORK-HRG.                  06031800
060319                                                                  06031900
060320***************************************************************   06032000
060330*            TOB = 322 OR 332 INITIAL PAYMENT                     06033000
060340***************************************************************   06034000
060350                                                                  06035000
060360     IF  H-HHA-INIT-PAY-INDICATOR  = '0' OR '1' OR '2' OR '3'     06036000
060370         NEXT SENTENCE                                            06037000
060380     ELSE                                                         06038000
060390         MOVE '35' TO H-HHA-PAY-RTC                               06039000
060400         GO TO 500-EXIT.                                          06040000
060500                                                                  06050000
060600     IF  H-HHA-INIT-PAY-INDICATOR  = '1' OR '3'                   06060000
060700         MOVE '03' TO H-HHA-PAY-RTC                               06070000
060800         GO TO 500-EXIT.                                          06080000
060900                                                                  06090000
061000     COMPUTE FED-ADJ ROUNDED =                                    06100000
061100               H-HHA-HRG-WGTS (1) * FED-EPISODE-RATE-AMT.         06110000
061200                                                                  06120000
061300     COMPUTE FED-LABOR-ADJ ROUNDED =                              06130000
061400             WIR-CBSA-WAGEIND *                                   06140000
061500             LABOR-PERCENT *                                      06150000
061600             FED-ADJ.                                             06160000
061700                                                                  06170000
061800     COMPUTE FED-NON-LABOR-ADJ ROUNDED =                          06180000
061900              (NONLABOR-PERCENT * FED-ADJ).                       06190000
062000                                                                  06200000
062100*         YEARCHANGE                              ===========**   06210000
062200                                                                  06220000
062300      PERFORM 10100-SUPPLY-ADD-ON-CALC  THRU 10100-EXIT.          06230000
062400                                                                  06240000
062500*         YEARCHANGE                              ===========**   06250000
062600                                                                  06260000
062700*    IF HHA-SERV-THRU-DATE > 20071231 AND                         06270000
062800*       HHA-SERV-FROM-DATE > 20071231                             06280000
062900*        NEXT SENTENCE                                            06290000
063000*    ELSE                                                         06300000
063100*        MOVE 0000000.00 TO FED-SUPPLY-ADJ.                       06310000
063200                                                                  06320000
063300                                                                  06330000
063400     IF H-HHA-SERV-FROM-DATE = H-HHA-ADMIT-DATE                   06340000
063500        COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                     06350000
063600       (FED-LABOR-ADJ + FED-NON-LABOR-ADJ + FED-SUPPLY-ADJ) * .6  06360000
063700        MOVE H-HHA-TOTAL-PAYMENT TO H-HHA-HRG-PAY (1)             06370000
063800        MOVE '05' TO H-HHA-PAY-RTC                                06380000
063900     ELSE                                                         06390000
064000        COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                     06400000
064100       (FED-LABOR-ADJ + FED-NON-LABOR-ADJ + FED-SUPPLY-ADJ) * .5  06410000
064200        MOVE H-HHA-TOTAL-PAYMENT TO H-HHA-HRG-PAY (1)             06420000
064300        MOVE '04' TO H-HHA-PAY-RTC.                               06430000
064400                                                                  06440000
064500 500-EXIT.   EXIT.                                                06450000
064600                                                                  06460000
064700 1000-FINAL-PAYMENT.                                              06470000
064800                                                                  06480000
064900     IF H-HHA-REVENUE-QTY-COV-VISITS (1) NOT NUMERIC              06490000
065000        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (1).          06500000
065100     IF H-HHA-REVENUE-QTY-COV-VISITS (2) NOT NUMERIC              06510000
065200        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (2).          06520000
065300     IF H-HHA-REVENUE-QTY-COV-VISITS (3) NOT NUMERIC              06530000
065400        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (3).          06540000
065500     IF H-HHA-REVENUE-QTY-COV-VISITS (4) NOT NUMERIC              06550000
065600        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (4).          06560000
065700     IF H-HHA-REVENUE-QTY-COV-VISITS (5) NOT NUMERIC              06570000
065800        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (5).          06580000
065900     IF H-HHA-REVENUE-QTY-COV-VISITS (6) NOT NUMERIC              06590000
066000        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (6).          06600000
066100                                                                  06610000
066200     IF H-HHA-REVENUE-QTY-OUTL-UNITS (1) NOT NUMERIC              06620000
066300        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (1).          06630000
066400     IF H-HHA-REVENUE-QTY-OUTL-UNITS (2) NOT NUMERIC              06640000
066500        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (2).          06650000
066600     IF H-HHA-REVENUE-QTY-OUTL-UNITS (3) NOT NUMERIC              06660000
066700        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (3).          06670000
066800     IF H-HHA-REVENUE-QTY-OUTL-UNITS (4) NOT NUMERIC              06680000
066900        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (4).          06690000
067000     IF H-HHA-REVENUE-QTY-OUTL-UNITS (5) NOT NUMERIC              06700000
067100        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (5).          06710000
067200     IF H-HHA-REVENUE-QTY-OUTL-UNITS (6) NOT NUMERIC              06720000
067300        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (6).          06730000
067400                                                                  06740000
067500     COMPUTE H-HHA-REVENUE-SUM1-3-QTY-THR ROUNDED =               06750000
067600             H-HHA-REVENUE-QTY-COV-VISITS (1) +                   06760000
067700             H-HHA-REVENUE-QTY-COV-VISITS (2) +                   06770000
067800             H-HHA-REVENUE-QTY-COV-VISITS (3).                    06780000
067900     COMPUTE H-HHA-REVENUE-SUM1-6-QTY-ALL ROUNDED =               06790000
068000             H-HHA-REVENUE-QTY-COV-VISITS (1) +                   06800000
068100             H-HHA-REVENUE-QTY-COV-VISITS (2) +                   06810000
068200             H-HHA-REVENUE-QTY-COV-VISITS (3) +                   06820000
068300             H-HHA-REVENUE-QTY-COV-VISITS (4) +                   06830000
068400             H-HHA-REVENUE-QTY-COV-VISITS (5) +                   06840000
068500             H-HHA-REVENUE-QTY-COV-VISITS (6).                    06850000
068600                                                                  06860000
068700     MOVE H-HHA-HRG-OUTPUT-CODE (1) TO WORK-HRG.                  06870000
068800                                                                  06880000
068900     IF H-HHA-REVENUE-SUM1-6-QTY-ALL < 5                          06890000
069000       NEXT SENTENCE                                              06900000
069100     ELSE                                                         06910000
069200       GO TO PEP-CHECK.                                           06920000
069300                                                                  06930000
069400*01  LUPA-ADD-ON                                                  06940000
069500*01  LUPA-ADD-ON-RURAL                                            06950000
069600*01  LUPA-ADD-ON-2PERCENT                                         06960000
069700*01  LUPA-ADD-ON-2PERCENT-RUR                                     06970000
069800                                                                  06980000
069900     IF HHA-WITH-DATA-CHECK                                       06990000
070000        IF HHA-CBSA-RURAL-CHECK                                   07000000
070100        OR HHA-CBSA-RURAL-CHECK-ALL                               07010000
070200           IF WS-RURAL-CATEGORY = 'A'                             07020000
070300              COMPUTE LUPA-ADD-ON-2PERCENT-RUR ROUNDED =          07030000
070400                      LUPA-ADD-ON-2PERCENT-RUR *                  07040000
070500                      WS-RURAL-ADDON-A                            07050000
070600           END-IF                                                 07060000
070700           IF WS-RURAL-CATEGORY = 'B'                             07070000
070800              COMPUTE LUPA-ADD-ON-2PERCENT-RUR ROUNDED =          07080000
070900                      LUPA-ADD-ON-2PERCENT-RUR *                  07090000
071000                                       WS-RURAL-ADDON-B           07100000
071100           END-IF                                                 07110000
071200           IF WS-RURAL-CATEGORY = 'C'                             07120000
071300              COMPUTE LUPA-ADD-ON-2PERCENT-RUR ROUNDED =          07130000
071400                      LUPA-ADD-ON-2PERCENT-RUR *                  07140000
071410                                       WS-RURAL-ADDON-C           07141000
071411           END-IF                                                 07141100
071412*  RECOMPUTE LUPA ADD ON BASED ON CATEGORY HERE                   07141200
071413           COMPUTE LUPA-LABOR-ADJ ROUNDED =                       07141300
071414                 WIR-CBSA-WAGEIND *                               07141400
071415                 LABOR-PERCENT *                                  07141500
071416                 LUPA-ADD-ON-2PERCENT-RUR                         07141600
071417        ELSE                                                      07141700
071418           COMPUTE LUPA-LABOR-ADJ ROUNDED =                       07141800
071419                 WIR-CBSA-WAGEIND *                               07141900
071420                 LABOR-PERCENT *                                  07142000
071430                 LUPA-ADD-ON-2PERCENT                             07143000
071440        END-IF                                                    07144000
071450     ELSE                                                         07145000
071460        IF HHA-CBSA-RURAL-CHECK                                   07146000
071470        OR HHA-CBSA-RURAL-CHECK-ALL                               07147000
071480           IF WS-RURAL-CATEGORY = 'A'                             07148000
071490              COMPUTE LUPA-ADD-ON-RURAL ROUNDED =                 07149000
071500                      LUPA-ADD-ON-RURAL *                         07150000
071600                      WS-RURAL-ADDON-A                            07160000
071700           END-IF                                                 07170000
071800           IF WS-RURAL-CATEGORY = 'B'                             07180000
071900              COMPUTE LUPA-ADD-ON-RURAL ROUNDED =                 07190000
072000                      LUPA-ADD-ON-RURAL *                         07200000
072100                      WS-RURAL-ADDON-B                            07210000
072200           END-IF                                                 07220000
072300           IF WS-RURAL-CATEGORY = 'C'                             07230000
072400              COMPUTE LUPA-ADD-ON-RURAL ROUNDED =                 07240000
072500                      LUPA-ADD-ON-RURAL *                         07250000
072600                      WS-RURAL-ADDON-C                            07260000
072700           END-IF                                                 07270000
072710           COMPUTE LUPA-LABOR-ADJ ROUNDED =                       07271000
072720                 WIR-CBSA-WAGEIND *                               07272000
072730                 LABOR-PERCENT *                                  07273000
072740                 LUPA-ADD-ON-RURAL                                07274000
072750        ELSE                                                      07275000
072760           COMPUTE LUPA-LABOR-ADJ ROUNDED =                       07276000
072770                 WIR-CBSA-WAGEIND *                               07277000
072780                 LABOR-PERCENT *                                  07278000
072790                 LUPA-ADD-ON                                      07279000
072800        END-IF                                                    07280000
072900     END-IF.                                                      07290000
073000                                                                  07300000
073100     IF HHA-WITH-DATA-CHECK                                       07310000
073200        IF HHA-CBSA-RURAL-CHECK                                   07320000
073300        OR HHA-CBSA-RURAL-CHECK-ALL                               07330000
073400           IF WS-RURAL-CATEGORY = 'A'                             07340000
073500              COMPUTE LUPA-ADD-ON-2PERCENT-RUR ROUNDED =          07350000
073600                      LUPA-ADD-ON-2PERCENT-RUR *                  07360000
073700                      WS-RURAL-ADDON-A                            07370000
073800           END-IF                                                 07380000
073900           IF WS-RURAL-CATEGORY = 'B'                             07390000
074000              COMPUTE LUPA-ADD-ON-2PERCENT-RUR ROUNDED =          07400000
074100                      LUPA-ADD-ON-2PERCENT-RUR *                  07410000
074200                      WS-RURAL-ADDON-B                            07420000
074210           END-IF                                                 07421000
074220           IF WS-RURAL-CATEGORY = 'C'                             07422000
074230              COMPUTE LUPA-ADD-ON-2PERCENT-RUR ROUNDED =          07423000
074240                      LUPA-ADD-ON-2PERCENT-RUR *                  07424000
074250                      WS-RURAL-ADDON-C                            07425000
074260           END-IF                                                 07426000
074270           COMPUTE LUPA-NON-LABOR-ADJ ROUNDED =                   07427000
074280                 NONLABOR-PERCENT *                               07428000
074290                 LUPA-ADD-ON-2PERCENT-RUR                         07429000
074300        ELSE                                                      07430000
074400         COMPUTE LUPA-NON-LABOR-ADJ ROUNDED =                     07440000
074500                 NONLABOR-PERCENT *                               07450000
074600                 LUPA-ADD-ON-2PERCENT                             07460000
074700        END-IF                                                    07470000
074800     ELSE                                                         07480000
074900        IF HHA-CBSA-RURAL-CHECK                                   07490000
075000        OR HHA-CBSA-RURAL-CHECK-ALL                               07500000
075100           IF WS-RURAL-CATEGORY = 'A'                             07510000
075200              COMPUTE LUPA-ADD-ON-RURAL ROUNDED =                 07520000
075300                      LUPA-ADD-ON-RURAL *                         07530000
075310                      WS-RURAL-ADDON-A                            07531000
075320           END-IF                                                 07532000
075330           IF WS-RURAL-CATEGORY = 'B'                             07533000
075340              COMPUTE LUPA-ADD-ON-RURAL ROUNDED =                 07534000
075350                      LUPA-ADD-ON-RURAL *                         07535000
075360                      WS-RURAL-ADDON-B                            07536000
075370           END-IF                                                 07537000
075380           IF WS-RURAL-CATEGORY = 'C'                             07538000
075390              COMPUTE LUPA-ADD-ON-RURAL ROUNDED =                 07539000
075391                      LUPA-ADD-ON-RURAL *                         07539100
075392                      WS-RURAL-ADDON-C                            07539200
075393           END-IF                                                 07539300
075394           COMPUTE LUPA-NON-LABOR-ADJ ROUNDED =                   07539400
075395                 NONLABOR-PERCENT *                               07539500
075396                 LUPA-ADD-ON-RURAL                                07539600
075397        ELSE                                                      07539700
075398           COMPUTE LUPA-NON-LABOR-ADJ ROUNDED =                   07539800
075399                 NONLABOR-PERCENT *                               07539900
075400                 LUPA-ADD-ON                                      07540000
075500        END-IF                                                    07550000
075600     END-IF.                                                      07560000
075700                                                                  07570000
075800                                                                  07580000
075900*    IF H-HHA-ADMIT-DATE = H-HHA-SERV-FROM-DATE AND               07590000
076000*        WORK-HRG1 = '1' OR '2'                                   07600000
076100*       COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               07610000
076200*         LUPA-LABOR-ADJ + LUPA-NON-LABOR-ADJ                     07620000
076300*    ELSE                                                         07630000
076400*       MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT.                     07640000
076500*                                                                 07650000
076600***         VARYING SUB1 FROM 1 BY 1 UNTIL                        07660000
076700***         (H-HHA-REVENUE-CODE (SUB1) = SPACES OR                07670000
076800***          SUB1 > 6.                                            07680000
076900                                                                  07690000
077000                                                                  07700000
077100**   CHANGE MISSING DATES TO DEFAULT FOR EARLIEST DATE COMPARE ** 07710000
077200                                                                  07720000
077300     IF H-HHA-REVENUE-EARLIEST-DATE (1) = 0                       07730000
077400        MOVE 29990101 TO H-HHA-REVENUE-EARLIEST-DATE (1).         07740000
077500                                                                  07750000
077600     IF H-HHA-REVENUE-EARLIEST-DATE (3) = 0                       07760000
077700        MOVE 29990101 TO H-HHA-REVENUE-EARLIEST-DATE (3).         07770000
077800                                                                  07780000
077900     IF H-HHA-REVENUE-EARLIEST-DATE (4) = 0                       07790000
078000        MOVE 29990101 TO H-HHA-REVENUE-EARLIEST-DATE (4).         07800000
078100                                                                  07810000
078200*    IF REVENUE EARLIEST DATES = ALL 9'S THEN                     07820000
078300*    LUPA ADD ON DOES NOT CALCULATE                               07830000
078400                                                                  07840000
078500     IF (H-HHA-REVENUE-EARLIEST-DATE (1) = 99999999 AND           07850000
078600         H-HHA-REVENUE-EARLIEST-DATE (3) = 99999999 AND           07860000
078700         H-HHA-REVENUE-EARLIEST-DATE (4) = 99999999)              07870000
078800         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     07880000
078900                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            07890000
079000                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            07900000
079100                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            07910000
079200                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            07920000
079300                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5)            07930000
079400         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     07940000
079500           GO TO RTC-CHECK.                                       07950000
079600                                                                  07960000
079700*    IF  REVENUE EARLIEST DATES = DEFAULT THEN                    07970000
079800*    LUPA ADD ON DOES NOT CALCULATE                               07980000
079900                                                                  07990000
080000     IF (H-HHA-REVENUE-EARLIEST-DATE (1) = 29990101 AND           08000000
080100         H-HHA-REVENUE-EARLIEST-DATE (3) = 29990101 AND           08010000
080200         H-HHA-REVENUE-EARLIEST-DATE (4) = 29990101)              08020000
080300         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     08030000
080400                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            08040000
080500                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            08050000
080600                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            08060000
080700                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            08070000
080800                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5)            08080000
080900         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     08090000
081000           GO TO RTC-CHECK.                                       08100000
081100                                                                  08110000
081200*    IF PT OCCURS ON EARLIEST DATE THEN LUPA ADD ON APPLIES TO    08120000
081300*       PT                                                        08130000
081400                                                                  08140000
081500     IF (H-HHA-REVENUE-EARLIEST-DATE (1) <                        08150000
081600         H-HHA-REVENUE-EARLIEST-DATE (3)) AND                     08160000
081700        (H-HHA-REVENUE-EARLIEST-DATE (1) <                        08170000
081800         H-HHA-REVENUE-EARLIEST-DATE (4))                         08180000
081900        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (1) ROUNDED =     08190000
082000           H-HHA-REVENUE-DOLL-RATE (1) * LUPA-ADD-ON-PT1          08200000
082100        MOVE LUPA-ADD-ON-PT1     TO WS-STDV-LUPA-ADDON-FAC        08210000
082200        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               08220000
082300           H-HHA-LUPA-ADD-ON-PAYMENT +                            08230000
082400           H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)                     08240000
082500           GO TO RTC-CHECK.                                       08250000
082600                                                                  08260000
082700*    IF SLT OCCURS ON EARLIEST DATE THEN LUPA ADD ON APPLIES TO   08270000
082800*       SLT                                                       08280000
082900                                                                  08290000
083000     IF (H-HHA-REVENUE-EARLIEST-DATE (3) <                        08300000
083100         H-HHA-REVENUE-EARLIEST-DATE (1)) AND                     08310000
083200        (H-HHA-REVENUE-EARLIEST-DATE (3) <                        08320000
083300         H-HHA-REVENUE-EARLIEST-DATE (4))                         08330000
083400        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (3) ROUNDED =     08340000
083500           H-HHA-REVENUE-DOLL-RATE (3) * LUPA-ADD-ON-SLT3         08350000
083600        MOVE LUPA-ADD-ON-SLT3    TO WS-STDV-LUPA-ADDON-FAC        08360000
083700        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               08370000
083800           H-HHA-LUPA-ADD-ON-PAYMENT +                            08380000
083900           H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)                     08390000
084000           GO TO RTC-CHECK.                                       08400000
084100                                                                  08410000
084200*    IF SN OCCURS ON EARLIEST DATE THEN LUPA ADD ON APPLIES TO    08420000
084300*       SN                                                        08430000
084400                                                                  08440000
084500     IF (H-HHA-REVENUE-EARLIEST-DATE (4) <                        08450000
084600         H-HHA-REVENUE-EARLIEST-DATE (1)) AND                     08460000
084700        (H-HHA-REVENUE-EARLIEST-DATE (4) <                        08470000
084800         H-HHA-REVENUE-EARLIEST-DATE (3))                         08480000
084900        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) ROUNDED =     08490000
085000           H-HHA-REVENUE-DOLL-RATE (4) * LUPA-ADD-ON-SN4          08500000
085100        MOVE LUPA-ADD-ON-SN4     TO WS-STDV-LUPA-ADDON-FAC        08510000
085200        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               08520000
085300           H-HHA-LUPA-ADD-ON-PAYMENT +                            08530000
085400           H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)                     08540000
085500           GO TO RTC-CHECK.                                       08550000
085600                                                                  08560000
085700*    IF PT  EARLIEST DATE = SLT EARLIEST AND = SN EARLIEST        08570000
085800*    THEN LUPA ADD ON APPLIES TO SN                               08580000
085900*                                                                 08590000
086000                                                                  08600000
086100     IF (H-HHA-REVENUE-EARLIEST-DATE (1) =                        08610000
086200         H-HHA-REVENUE-EARLIEST-DATE (3)) AND                     08620000
086300        (H-HHA-REVENUE-EARLIEST-DATE (1) =                        08630000
086400         H-HHA-REVENUE-EARLIEST-DATE (4))                         08640000
086500        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) ROUNDED =     08650000
086600           H-HHA-REVENUE-DOLL-RATE (4) * LUPA-ADD-ON-SN4          08660000
086700        MOVE LUPA-ADD-ON-SN4     TO WS-STDV-LUPA-ADDON-FAC        08670000
086800        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               08680000
086900           H-HHA-LUPA-ADD-ON-PAYMENT +                            08690000
087000           H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)                     08700000
087100           GO TO RTC-CHECK.                                       08710000
087200                                                                  08720000
087300*    IF PT EARLIEST DATE = SN EARLIEST                            08730000
087400*    THEN LUPA ADD ON APPLIES TO SN                               08740000
087500*                                                                 08750000
087600                                                                  08760000
087700     IF (H-HHA-REVENUE-EARLIEST-DATE (1) =                        08770000
087800         H-HHA-REVENUE-EARLIEST-DATE (4))                         08780000
087900        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) ROUNDED =     08790000
088000           H-HHA-REVENUE-DOLL-RATE (4) * LUPA-ADD-ON-SN4          08800000
088100        MOVE LUPA-ADD-ON-SN4     TO WS-STDV-LUPA-ADDON-FAC        08810000
088200        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               08820000
088300           H-HHA-LUPA-ADD-ON-PAYMENT +                            08830000
088400           H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)                     08840000
088500           GO TO RTC-CHECK.                                       08850000
088600                                                                  08860000
088700*    IF SLT EARLIEST DATE = SN EARLIEST                           08870000
088800*    THEN LUPA ADD ON APPLIES TO SN                               08880000
088900*                                                                 08890000
089000                                                                  08900000
089100     IF (H-HHA-REVENUE-EARLIEST-DATE (3) =                        08910000
089200         H-HHA-REVENUE-EARLIEST-DATE (4))                         08920000
089300        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) ROUNDED =     08930000
089400           H-HHA-REVENUE-DOLL-RATE (4) * LUPA-ADD-ON-SN4          08940000
089500        MOVE LUPA-ADD-ON-SN4     TO WS-STDV-LUPA-ADDON-FAC        08950000
089600        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               08960000
089700           H-HHA-LUPA-ADD-ON-PAYMENT +                            08970000
089800           H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)                     08980000
089900           GO TO RTC-CHECK.                                       08990000
090000                                                                  09000000
090100*    IF PT  EARLIEST DATE = SLT EARLIEST                          09010000
090200*    THEN LUPA ADD ON APPLIES TO PT                               09020000
090300*                                                                 09030000
090400                                                                  09040000
090500     IF (H-HHA-REVENUE-EARLIEST-DATE (1) =                        09050000
090600         H-HHA-REVENUE-EARLIEST-DATE (3))                         09060000
090700        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (1) ROUNDED =     09070000
090800           H-HHA-REVENUE-DOLL-RATE (1) * LUPA-ADD-ON-PT1          09080000
090900        MOVE LUPA-ADD-ON-PT1     TO WS-STDV-LUPA-ADDON-FAC        09090000
091000        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               09100000
091100           H-HHA-LUPA-ADD-ON-PAYMENT +                            09110000
091200           H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)                     09120000
091300           GO TO RTC-CHECK.                                       09130000
091400                                                                  09140000
091500                                                                  09150000
091600 RTC-CHECK.                                                       09160000
091700************************************************************      09170000
091800* ZERO OUT LUPA ADD-ON PAYMENT WHEN CERTAIN CONDITIONS MET *      09180000
091900************************************************************      09190000
092000                                                                  09200000
092100     MOVE H-HHA-HRG-OUTPUT-CODE (1) TO WORK-HRG.                  09210000
092200                                                                  09220000
092300     IF H-HHA-ADMIT-DATE NOT = H-HHA-SERV-FROM-DATE               09230000
092400         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     09240000
092500                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            09250000
092600                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            09260000
092700                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            09270000
092800                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            09280000
092900                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5).           09290000
093000*                                                                 09300000
093100     IF (WORK-HRG1 =  '1' OR '2')                                 09310000
093200       NEXT SENTENCE                                              09320000
093300     ELSE                                                         09330000
093400         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     09340000
093500                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            09350000
093600                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            09360000
093700                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            09370000
093800                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            09380000
093900                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5).           09390000
094000*                                                                 09400000
094100     IF (H-HHA-LUPA-SRC-ADM = 'B' OR 'C')                         09410000
094200         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     09420000
094300                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            09430000
094400                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            09440000
094500                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            09450000
094600                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            09460000
094700                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5).           09470000
094800*                                                                 09480000
094900                                                                  09490000
095000     IF H-HHA-RECODE-IND  = '2'                                   09500000
095100         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     09510000
095200                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            09520000
095300                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            09530000
095400                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            09540000
095500                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            09550000
095600                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5).           09560000
095700                                                                  09570000
095800*                                                                 09580000
095900     IF H-HHA-REVENUE-SUM1-6-QTY-ALL = 0                          09590000
096000         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     09600000
096100                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            09610000
096200                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            09620000
096300                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            09630000
096400                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            09640000
096500                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5).           09650000
096600*                                                                 09660000
096700        PERFORM 1050-LUPA THRU 1050-EXIT.                         09670000
096800                                                                  09680000
096900        IF H-HHA-LUPA-ADD-ON-PAYMENT > 0                          09690000
097000           MOVE '14' TO H-HHA-PAY-RTC                             09700000
097100        ELSE                                                      09710000
097200           MOVE '06' TO H-HHA-PAY-RTC                             09720000
097300        END-IF.                                                   09730000
097400                                                                  09740000
097500**   CHANGE DATES WITH DEFAULT BACK TO ZERO FOR PASSBACK       ** 09750000
097600                                                                  09760000
097700     IF H-HHA-REVENUE-EARLIEST-DATE (1) = 29990101                09770000
097800        MOVE 0 TO H-HHA-REVENUE-EARLIEST-DATE (1).                09780000
097900                                                                  09790000
098000     IF H-HHA-REVENUE-EARLIEST-DATE (3) = 29990101                09800000
098100        MOVE 0 TO H-HHA-REVENUE-EARLIEST-DATE (3).                09810000
098200                                                                  09820000
098300     IF H-HHA-REVENUE-EARLIEST-DATE (4) = 29990101                09830000
098400        MOVE 0 TO H-HHA-REVENUE-EARLIEST-DATE (4).                09840000
098500                                                                  09850000
098600                                                                  09860000
098700     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        09870000
098800             H-HHA-REVENUE-COST (1) +                             09880000
098900             H-HHA-REVENUE-ADD-ON-VISIT-AMT (1) +                 09890000
099000             H-HHA-REVENUE-COST (2) +                             09900000
099100             H-HHA-REVENUE-ADD-ON-VISIT-AMT (2) +                 09910000
099200             H-HHA-REVENUE-COST (3) +                             09920000
099300             H-HHA-REVENUE-ADD-ON-VISIT-AMT (3) +                 09930000
099400             H-HHA-REVENUE-COST (4) +                             09940000
099500             H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) +                 09950000
099600             H-HHA-REVENUE-COST (5) +                             09960000
099700             H-HHA-REVENUE-ADD-ON-VISIT-AMT (5) +                 09970000
099800             H-HHA-REVENUE-COST (6) +                             09980000
099900             H-HHA-REVENUE-ADD-ON-VISIT-AMT (6).                  09990000
100000                                                                  10000000
100100     GO TO 1000-EXIT.                                             10010000
100200                                                                  10020000
100300 PEP-CHECK.                                                       10030000
100400                                                                  10040000
100500     IF (H-HHA-PEP-INDICATOR NOT = 'Y' AND NOT = 'N')             10050000
100600         MOVE '20' TO H-HHA-PAY-RTC                               10060000
100700         GO TO 1000-EXIT.                                         10070000
100800                                                                  10080000
100900      PERFORM 1100-ADD-HRG-DAYS THRU 1100-EXIT                    10090000
101000         VARYING CO1 FROM 1 BY 1 UNTIL CO1 > 6.                   10100000
101100                                                                  10110000
101200      IF WK-HRG-NO-OF-DAYS-TOT > 60                               10120000
101300         MOVE '16' TO H-HHA-PAY-RTC                               10130000
101400         GO TO 1000-EXIT.                                         10140000
101500                                                                  10150000
101600                                                                  10160000
101700*********  HRG  PAYMENT   *******************                     10170000
101800                                                                  10180000
101900***  IF H-HHA-REVENUE-SUM1-3-QTY-THR > 9                          10190000
102000        IF H-HHA-HRG-INPUT-CODE (2) = SPACES                      10200000
102100           IF H-HHA-PEP-INDICATOR = 'N'                           10210000
102200              PERFORM 3000-PEP-N-ADJUST THRU 3000-EXIT            10220000
102300                  VARYING CO1 FROM 1 BY 1 UNTIL                   10230000
102400*                 (H-HHA-HRG-INPUT-CODE (CO1) = SPACES OR         10240000
102500                   CO1 > 6                                        10250000
102600               PERFORM 7000-OUTLIER-PAYMENT THRU 7000-EXIT        10260000
102700                                                                  10270000
102800               GO TO 1000-EXIT.                                   10280000
102900                                                                  10290000
103000                                                                  10300000
103100***  IF H-HHA-REVENUE-SUM1-3-QTY-THR > 9                          10310000
103200        IF H-HHA-HRG-INPUT-CODE (2) = SPACES                      10320000
103300           IF H-HHA-PEP-INDICATOR = 'Y'                           10330000
103400              PERFORM 4000-PEP-Y-ADJUST THRU 4000-EXIT            10340000
103500                  VARYING CO1 FROM 1 BY 1 UNTIL                   10350000
103600*                 (H-HHA-HRG-INPUT-CODE (CO1) = SPACES OR         10360000
103700                   CO1 > 6                                        10370000
103800               PERFORM 7000-OUTLIER-PAYMENT THRU 7000-EXIT        10380000
103900                                                                  10390000
104000               GO TO 1000-EXIT.                                   10400000
104100                                                                  10410000
104200**** IF H-HHA-REVENUE-SUM1-3-QTY-THR > 9                          10420000
104300        IF H-HHA-HRG-INPUT-CODE (2) NOT = SPACES                  10430000
104400           IF H-HHA-PEP-INDICATOR = 'N'                           10440000
104500              PERFORM 5000-PEP-N-ADJUST THRU 5000-EXIT            10450000
104600                  VARYING CO1 FROM 1 BY 1 UNTIL                   10460000
104700*                 (H-HHA-HRG-INPUT-CODE (CO1) = SPACES OR         10470000
104800                   CO1 > 6                                        10480000
104900               PERFORM 7000-OUTLIER-PAYMENT THRU 7000-EXIT        10490000
105000                                                                  10500000
105100               GO TO 1000-EXIT.                                   10510000
105200                                                                  10520000
105300**** IF H-HHA-REVENUE-SUM1-3-QTY-THR > 9                          10530000
105400        IF H-HHA-HRG-INPUT-CODE (2) NOT = SPACES                  10540000
105500           IF H-HHA-PEP-INDICATOR = 'Y'                           10550000
105600              PERFORM 6000-PEP-Y-ADJUST THRU 6000-EXIT            10560000
105700                  VARYING CO1 FROM 1 BY 1 UNTIL                   10570000
105800*                 (H-HHA-HRG-INPUT-CODE (CO1) = SPACES OR         10580000
105900                   CO1 > 6                                        10590000
106000               PERFORM 7000-OUTLIER-PAYMENT THRU 7000-EXIT        10600000
106100                                                                  10610000
106200               GO TO 1000-EXIT.                                   10620000
106300                                                                  10630000
106400                                                                  10640000
106500      MOVE '20' TO H-HHA-PAY-RTC.                                 10650000
106600                                                                  10660000
106700 1000-EXIT.  EXIT.                                                10670000
106800 1050-LUPA.                                                       10680000
106900                                                                  10690000
107000***************************************************************   10700000
107100*                    LUPA PAYMENT                                 10710000
107200***************************************************************   10720000
107300                                                                  10730000
107400*    IF H-HHA-REVENUE-QTY-COV-VISITS (1) = 0                      10740000
107500*       GO TO 1050-EXIT.                                          10750000
107600                                                                  10760000
107700     MOVE H-HHA-HRG-OUTPUT-CODE (1) TO WORK-HRG.                  10770000
107800                                                                  10780000
107900     COMPUTE FED-ADJ1 ROUNDED =                                   10790000
108000            (H-HHA-REVENUE-QTY-COV-VISITS (1) *                   10800000
108100             H-HHA-REVENUE-DOLL-RATE (1)).                        10810000
108200                                                                  10820000
108300     COMPUTE FED-LUPA-ADJ1 ROUNDED =                              10830000
108400             H-HHA-REVENUE-ADD-ON-VISIT-AMT (1).                  10840000
108500                                                                  10850000
108600     COMPUTE FED-LABOR-ADJ1 ROUNDED =                             10860000
108700             WIR-CBSA-WAGEIND *                                   10870000
108800             LABOR-PERCENT *                                      10880000
108900             FED-ADJ1.                                            10890000
109000                                                                  10900000
109100     COMPUTE FED-LABOR-LUPA-ADJ1 ROUNDED =                        10910000
109200             WIR-CBSA-WAGEIND *                                   10920000
109300             LABOR-PERCENT *                                      10930000
109400             FED-LUPA-ADJ1.                                       10940000
109500                                                                  10950000
109600     COMPUTE FED-NON-LABOR-ADJ1 ROUNDED =                         10960000
109700             NONLABOR-PERCENT *                                   10970000
109800             FED-ADJ1.                                            10980000
109900                                                                  10990000
110000     COMPUTE FED-NON-LABOR-LUPA-ADJ1 ROUNDED =                    11000000
110100             NONLABOR-PERCENT *                                   11010000
110200             FED-LUPA-ADJ1.                                       11020000
110300                                                                  11030000
110400     COMPUTE H-HHA-REVENUE-COST (1) ROUNDED =                     11040000
110500             (FED-LABOR-ADJ1 + FED-NON-LABOR-ADJ1).               11050000
110600     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (1) ROUNDED =         11060000
110700             (FED-LABOR-LUPA-ADJ1 + FED-NON-LABOR-LUPA-ADJ1).     11070000
110800                                                                  11080000
110900     COMPUTE FED-ADJ2 ROUNDED =                                   11090000
111000            (H-HHA-REVENUE-QTY-COV-VISITS (2) *                   11100000
111100             H-HHA-REVENUE-DOLL-RATE (2)).                        11110000
111200                                                                  11120000
111300     COMPUTE FED-LABOR-ADJ2 ROUNDED =                             11130000
111400             WIR-CBSA-WAGEIND *                                   11140000
111500             LABOR-PERCENT *                                      11150000
111600             FED-ADJ2.                                            11160000
111700                                                                  11170000
111800     COMPUTE FED-NON-LABOR-ADJ2 ROUNDED =                         11180000
111900             NONLABOR-PERCENT *                                   11190000
112000             FED-ADJ2.                                            11200000
112100                                                                  11210000
112200     COMPUTE H-HHA-REVENUE-COST (2) ROUNDED =                     11220000
112300             (FED-LABOR-ADJ2 + FED-NON-LABOR-ADJ2).               11230000
112400                                                                  11240000
112500     COMPUTE FED-ADJ3 ROUNDED =                                   11250000
112600            (H-HHA-REVENUE-QTY-COV-VISITS (3) *                   11260000
112700             H-HHA-REVENUE-DOLL-RATE (3)).                        11270000
112800                                                                  11280000
112900     COMPUTE FED-LUPA-ADJ3 ROUNDED =                              11290000
113000             H-HHA-REVENUE-ADD-ON-VISIT-AMT (3).                  11300000
113100                                                                  11310000
113200     COMPUTE FED-LABOR-ADJ3 ROUNDED =                             11320000
113300             WIR-CBSA-WAGEIND *                                   11330000
113400             LABOR-PERCENT *                                      11340000
113500             FED-ADJ3.                                            11350000
113600                                                                  11360000
113700     COMPUTE FED-LABOR-LUPA-ADJ3 ROUNDED =                        11370000
113800             WIR-CBSA-WAGEIND *                                   11380000
113900             LABOR-PERCENT *                                      11390000
114000             FED-LUPA-ADJ3.                                       11400000
114100                                                                  11410000
114200     COMPUTE FED-NON-LABOR-ADJ3 ROUNDED =                         11420000
114300             NONLABOR-PERCENT *                                   11430000
114400             FED-ADJ3.                                            11440000
114500                                                                  11450000
114600     COMPUTE FED-NON-LABOR-LUPA-ADJ3 ROUNDED =                    11460000
114700             NONLABOR-PERCENT *                                   11470000
114800             FED-LUPA-ADJ3.                                       11480000
114900                                                                  11490000
115000     COMPUTE H-HHA-REVENUE-COST (3) ROUNDED =                     11500000
115100             (FED-LABOR-ADJ3 + FED-NON-LABOR-ADJ3).               11510000
115200                                                                  11520000
115300     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (3) ROUNDED =         11530000
115400             (FED-LABOR-LUPA-ADJ3 + FED-NON-LABOR-LUPA-ADJ3).     11540000
115500                                                                  11550000
115600     COMPUTE FED-ADJ4 ROUNDED =                                   11560000
115700            (H-HHA-REVENUE-QTY-COV-VISITS (4) *                   11570000
115800             H-HHA-REVENUE-DOLL-RATE (4)).                        11580000
115900                                                                  11590000
116000     COMPUTE FED-LUPA-ADJ4 ROUNDED =                              11600000
116100             H-HHA-REVENUE-ADD-ON-VISIT-AMT (4).                  11610000
116200                                                                  11620000
116300     COMPUTE FED-LABOR-ADJ4 ROUNDED =                             11630000
116400             WIR-CBSA-WAGEIND *                                   11640000
116500             LABOR-PERCENT *                                      11650000
116600             FED-ADJ4.                                            11660000
116700                                                                  11670000
116800     COMPUTE FED-LABOR-LUPA-ADJ4 ROUNDED =                        11680000
116900             WIR-CBSA-WAGEIND *                                   11690000
117000             LABOR-PERCENT *                                      11700000
117100             FED-LUPA-ADJ4.                                       11710000
117200                                                                  11720000
117300     COMPUTE FED-NON-LABOR-ADJ4 ROUNDED =                         11730000
117400             NONLABOR-PERCENT *                                   11740000
117500             FED-ADJ4.                                            11750000
117600                                                                  11760000
117700     COMPUTE FED-NON-LABOR-LUPA-ADJ4 ROUNDED =                    11770000
117800             NONLABOR-PERCENT *                                   11780000
117900             FED-LUPA-ADJ4.                                       11790000
118000                                                                  11800000
118100     COMPUTE H-HHA-REVENUE-COST (4) ROUNDED =                     11810000
118200             (FED-LABOR-ADJ4 + FED-NON-LABOR-ADJ4).               11820000
118300                                                                  11830000
118400     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) ROUNDED =         11840000
118500             (FED-LABOR-LUPA-ADJ4 + FED-NON-LABOR-LUPA-ADJ4).     11850000
118600                                                                  11860000
118700     COMPUTE FED-ADJ5 ROUNDED =                                   11870000
118800            (H-HHA-REVENUE-QTY-COV-VISITS (5) *                   11880000
118900             H-HHA-REVENUE-DOLL-RATE (5)).                        11890000
119000                                                                  11900000
119100     COMPUTE FED-LABOR-ADJ5 ROUNDED =                             11910000
119200             WIR-CBSA-WAGEIND *                                   11920000
119300             LABOR-PERCENT *                                      11930000
119400             FED-ADJ5.                                            11940000
119500                                                                  11950000
119600                                                                  11960000
119700     COMPUTE FED-NON-LABOR-ADJ5 ROUNDED =                         11970000
119800             NONLABOR-PERCENT *                                   11980000
119900             FED-ADJ5.                                            11990000
120000                                                                  12000000
120100     COMPUTE H-HHA-REVENUE-COST (5) ROUNDED =                     12010000
120200             (FED-LABOR-ADJ5 + FED-NON-LABOR-ADJ5).               12020000
120300                                                                  12030000
120400     COMPUTE FED-ADJ6 ROUNDED =                                   12040000
120500            (H-HHA-REVENUE-QTY-COV-VISITS (6) *                   12050000
120600             H-HHA-REVENUE-DOLL-RATE (6)).                        12060000
120700                                                                  12070000
120800     COMPUTE FED-LABOR-ADJ6 ROUNDED =                             12080000
120900             WIR-CBSA-WAGEIND *                                   12090000
121000             LABOR-PERCENT *                                      12100000
121100             FED-ADJ6.                                            12110000
121200                                                                  12120000
121300                                                                  12130000
121400     COMPUTE FED-NON-LABOR-ADJ6 ROUNDED =                         12140000
121500             NONLABOR-PERCENT *                                   12150000
121600             FED-ADJ6.                                            12160000
121700                                                                  12170000
121800     COMPUTE H-HHA-REVENUE-COST (6) ROUNDED =                     12180000
121900             (FED-LABOR-ADJ6 + FED-NON-LABOR-ADJ6).               12190000
122000                                                                  12200000
122100 1050-EXIT.   EXIT.                                               12210000
122200                                                                  12220000
122300 1100-ADD-HRG-DAYS.                                               12230000
122400                                                                  12240000
122500      IF H-HHA-HRG-NO-OF-DAYS (CO1) NUMERIC                       12250000
122600         ADD H-HHA-HRG-NO-OF-DAYS (CO1) TO                        12260000
122700             WK-HRG-NO-OF-DAYS-TOT.                               12270000
122800                                                                  12280000
122900 1100-EXIT.   EXIT.                                               12290000
123000                                                                  12300000
123100***************************************************************   12310000
123200*           STATE & COUNTY CODE TABLE SEARCH                      12320000
123300***************************************************************   12330000
123400 2000-TBL-SCC-SEARCH.                                             12340000
123500                                                                  12350000
123600     IF HHA-COUNTY-CODE = SPACES                                  12360000
123700        MOVE '31' TO H-HHA-PAY-RTC                                12370000
123701        GO TO 2000-EXIT                                           12370100
123702     END-IF.                                                      12370200
123703                                                                  12370300
123704     SEARCH ALL T-SCC-DATA                                        12370400
123705         AT END                                                   12370500
123706            MOVE '31' TO H-HHA-PAY-RTC                            12370600
123707            GO TO 2000-EXIT                                       12370700
123708         WHEN T-SCC-CODE (IX-SCC) = HHA-COUNTY-CODE               12370800
123709            MOVE T-SCC-CATEGORY (IX-SCC) TO WS-RURAL-CATEGORY     12370900
123710            MOVE '00' TO H-HHA-PAY-RTC                            12371000
123711     END-SEARCH.                                                  12371100
123712                                                                  12371200
123713     IF WS-RURAL-CATEGORY = 'A'                                   12371300
123714       COMPUTE FED-EPISODE-RATE-AMT ROUNDED =                     12371400
123715               FED-EPISODE-RATE-AMT  * WS-RURAL-ADDON-A           12371500
123716       COMPUTE OUTLIER-THRESHOLD-AMT ROUNDED =                    12371600
123717               OUTLIER-THRESHOLD-AMT * WS-RURAL-ADDON-A           12371700
123718     END-IF.                                                      12371800
123719     IF WS-RURAL-CATEGORY = 'B'                                   12371900
123720       COMPUTE FED-EPISODE-RATE-AMT ROUNDED =                     12372000
123721               FED-EPISODE-RATE-AMT  * WS-RURAL-ADDON-B           12372100
123722       COMPUTE OUTLIER-THRESHOLD-AMT ROUNDED =                    12372200
123723               OUTLIER-THRESHOLD-AMT * WS-RURAL-ADDON-B           12372300
123724     END-IF.                                                      12372400
123725     IF WS-RURAL-CATEGORY = 'C'                                   12372500
123726       COMPUTE FED-EPISODE-RATE-AMT ROUNDED =                     12372600
123727               FED-EPISODE-RATE-AMT  * WS-RURAL-ADDON-C           12372700
123728       COMPUTE OUTLIER-THRESHOLD-AMT ROUNDED =                    12372800
123729               OUTLIER-THRESHOLD-AMT * WS-RURAL-ADDON-C           12372900
123730     END-IF.                                                      12373000
123740                                                                  12374000
123741 2000-EXIT.   EXIT.                                               12374100
123742                                                                  12374200
123743 3000-PEP-N-ADJUST.                                               12374300
123744                                                                  12374400
123745***************************************************************   12374500
123746*           HRG OCCUR < 2 AND PEP = N ADJUSTMENT                  12374600
123747***************************************************************   12374700
123748                                                                  12374800
123749     IF H-HHA-HRG-INPUT-CODE (CO1) = SPACES                       12374900
123750        MOVE 6 TO CO1                                             12375000
123760        GO TO 3000-EXIT.                                          12376000
123770                                                                  12377000
123780     MOVE H-HHA-HRG-NO-OF-DAYS (CO1) TO WK-HRG-NO-OF-DAYS.        12378000
123790                                                                  12379000
123800     MOVE H-HHA-HRG-OUTPUT-CODE (CO1) TO WORK-HRG.                12380000
123900                                                                  12390000
124000*         YEARCHANGE                              ===========**   12400000
124100                                                                  12410000
124200      PERFORM 10100-SUPPLY-ADD-ON-CALC  THRU 10100-EXIT.          12420000
124300                                                                  12430000
124400*         YEARCHANGE                              ===========**   12440000
124500                                                                  12450000
124600*    IF HHA-SERV-THRU-DATE > 20071231 AND                         12460000
124700*       HHA-SERV-FROM-DATE > 20071231                             12470000
124800*        NEXT SENTENCE                                            12480000
124900*    ELSE                                                         12490000
125000*        MOVE 0000000.00 TO FED-SUPPLY-ADJ.                       12500000
125100                                                                  12510000
125200     COMPUTE FED-ADJ ROUNDED =                                    12520000
125300               H-HHA-HRG-WGTS (1) * FED-EPISODE-RATE-AMT.         12530000
125400                                                                  12540000
125500     COMPUTE FED-LABOR-ADJ ROUNDED =                              12550000
125600              (WIR-CBSA-WAGEIND *                                 12560000
125700               LABOR-PERCENT * FED-ADJ).                          12570000
125800                                                                  12580000
125900     COMPUTE FED-NON-LABOR-ADJ ROUNDED =                          12590000
126000              (NONLABOR-PERCENT * FED-ADJ).                       12600000
126100                                                                  12610000
126200     COMPUTE WK-3000-PEP-N-PAYMENT ROUNDED =                      12620000
126300          (FED-LABOR-ADJ + FED-NON-LABOR-ADJ + FED-SUPPLY-ADJ).   12630000
126400                                                                  12640000
126500     COMPUTE H-HHA-HRG-PAY (CO1) ROUNDED =                        12650000
126600             WK-3000-PEP-N-PAYMENT.                               12660000
126700                                                                  12670000
126800     COMPUTE WK-3000-PEP-N-PRETOT-PAY ROUNDED =                   12680000
126900             WK-3000-PEP-N-PRETOT-PAY + WK-3000-PEP-N-PAYMENT.    12690000
127000                                                                  12700000
127100 3000-EXIT.   EXIT.                                               12710000
127200                                                                  12720000
127300 4000-PEP-Y-ADJUST.                                               12730000
127400                                                                  12740000
127500***************************************************************   12750000
127600*           HRG OCCUR < 2 AND PEP = Y ADJUSTMENT                  12760000
127700***************************************************************   12770000
127800                                                                  12780000
127900     IF H-HHA-HRG-INPUT-CODE (CO1) = SPACES                       12790000
128000        MOVE 6 TO SUB1                                            12800000
128100        GO TO 4000-EXIT.                                          12810000
128200                                                                  12820000
128300     MOVE 2 TO WK-RTC-ADJ-IND.                                    12830000
128400                                                                  12840000
128500     MOVE H-HHA-HRG-NO-OF-DAYS (CO1) TO WK-HRG-NO-OF-DAYS.        12850000
128600                                                                  12860000
128700     MOVE H-HHA-HRG-OUTPUT-CODE (CO1) TO WORK-HRG.                12870000
128800                                                                  12880000
128900*         YEARCHANGE                              ===========**   12890000
129000                                                                  12900000
129100      PERFORM 10100-SUPPLY-ADD-ON-CALC  THRU 10100-EXIT.          12910000
129200                                                                  12920000
129300*         YEARCHANGE                              ===========**   12930000
129400                                                                  12940000
129500                                                                  12950000
129600*    IF HHA-SERV-THRU-DATE > 20071231 AND                         12960000
129700*       HHA-SERV-FROM-DATE > 20071231                             12970000
129800*        NEXT SENTENCE                                            12980000
129900*    ELSE                                                         12990000
130000*        MOVE 0000000.00 TO FED-SUPPLY-ADJ.                       13000000
130100                                                                  13010000
130200                                                                  13020000
130300     COMPUTE FED-ADJP ROUNDED =                                   13030000
130400               H-HHA-HRG-WGTS (1) * FED-EPISODE-RATE-AMT.         13040000
130500                                                                  13050000
130600     COMPUTE FED-LABOR-ADJP ROUNDED =                             13060000
130700               WIR-CBSA-WAGEIND *                                 13070000
130800               LABOR-PERCENT * FED-ADJP.                          13080000
130900                                                                  13090000
131000     COMPUTE FED-NON-LABOR-ADJP ROUNDED =                         13100000
131100               NONLABOR-PERCENT * FED-ADJP.                       13110000
131200                                                                  13120000
131300     COMPUTE WK-4000-PEP-Y-PAYMENT ROUNDED =                      13130000
131400         (FED-LABOR-ADJP + FED-NON-LABOR-ADJP + FED-SUPPLY-ADJ).  13140000
131500                                                                  13150000
131600     COMPUTE WK-HRG-NO-OF-DAYS-FAC ROUNDED =                      13160000
131700               (WK-HRG-NO-OF-DAYS / 60).                          13170000
131800                                                                  13180000
131900     COMPUTE WK-4000-PEP-Y-PAYMENT ROUNDED =                      13190000
132000             WK-4000-PEP-Y-PAYMENT *                              13200000
132100             WK-HRG-NO-OF-DAYS-FAC.                               13210000
132200                                                                  13220000
132300     COMPUTE H-HHA-HRG-PAY (CO1) ROUNDED =                        13230000
132400             WK-4000-PEP-Y-PAYMENT.                               13240000
132500                                                                  13250000
132600     COMPUTE WK-4000-PEP-Y-PRETOT-PAY ROUNDED =                   13260000
132700             WK-4000-PEP-Y-PRETOT-PAY + WK-4000-PEP-Y-PAYMENT.    13270000
132800                                                                  13280000
132900                                                                  13290000
133000 4000-EXIT.   EXIT.                                               13300000
133100                                                                  13310000
133200 5000-PEP-N-ADJUST.                                               13320000
133300                                                                  13330000
133400***************************************************************   13340000
133500*           HRG OCCUR > 1 AND PEP = N ADJUSTMENT                  13350000
133600***************************************************************   13360000
133700                                                                  13370000
133800     IF H-HHA-HRG-INPUT-CODE (CO1) = SPACES                       13380000
133900        MOVE 6 TO SUB1                                            13390000
134000        GO TO 5000-EXIT.                                          13400000
134100                                                                  13410000
134200     MOVE 1 TO WK-RTC-ADJ-IND.                                    13420000
134300                                                                  13430000
134400     MOVE H-HHA-HRG-NO-OF-DAYS (CO1) TO WK-HRG-NO-OF-DAYS.        13440000
134500                                                                  13450000
134600     MOVE H-HHA-HRG-OUTPUT-CODE (CO1) TO WORK-HRG.                13460000
134700                                                                  13470000
134800*         YEARCHANGE                              ===========**   13480000
134900                                                                  13490000
135000      PERFORM 10100-SUPPLY-ADD-ON-CALC  THRU 10100-EXIT.          13500000
135100                                                                  13510000
135200*         YEARCHANGE                              ===========**   13520000
135300                                                                  13530000
135400                                                                  13540000
135500*    IF HHA-SERV-THRU-DATE > 20071231 AND                         13550000
135600*       HHA-SERV-FROM-DATE > 20071231                             13560000
135700*        NEXT SENTENCE                                            13570000
135800*    ELSE                                                         13580000
135900*        MOVE 0000000.00 TO FED-SUPPLY-ADJ.                       13590000
136000                                                                  13600000
136100                                                                  13610000
136200     COMPUTE FED-ADJ ROUNDED =                                    13620000
136300               (WK-HRG-NO-OF-DAYS  *                              13630000
136400                H-HHA-HRG-WGTS (CO1) *                            13640000
136500                FED-EPISODE-RATE-AMT) / 60.                       13650000
136600                                                                  13660000
136700     COMPUTE FED-LABOR-ADJ ROUNDED =                              13670000
136800               WIR-CBSA-WAGEIND *                                 13680000
136900               LABOR-PERCENT * FED-ADJ.                           13690000
137000                                                                  13700000
137100     COMPUTE FED-NON-LABOR-ADJ ROUNDED =                          13710000
137200               NONLABOR-PERCENT * FED-ADJ.                        13720000
137300                                                                  13730000
137400     COMPUTE WK-5000-PEP-N-PAYMENT ROUNDED =                      13740000
137500           (FED-LABOR-ADJ + FED-NON-LABOR-ADJ + FED-SUPPLY-ADJ).  13750000
137600                                                                  13760000
137700     COMPUTE H-HHA-HRG-PAY (CO1) ROUNDED =                        13770000
137800             WK-5000-PEP-N-PAYMENT.                               13780000
137900                                                                  13790000
138000                                                                  13800000
138100     COMPUTE WK-5000-PEP-N-PRETOT-PAY ROUNDED =                   13810000
138200             WK-5000-PEP-N-PRETOT-PAY + WK-5000-PEP-N-PAYMENT.    13820000
138300                                                                  13830000
138400 5000-EXIT.   EXIT.                                               13840000
138500                                                                  13850000
138600 6000-PEP-Y-ADJUST.                                               13860000
138700                                                                  13870000
138800***************************************************************   13880000
138900*           HRG OCCUR > 1 AND PEP = Y SHORTENED EPISODE           13890000
139000***************************************************************   13900000
139100                                                                  13910000
139200     IF H-HHA-HRG-INPUT-CODE (CO1) = SPACES                       13920000
139300        MOVE 6 TO SUB1                                            13930000
139400        GO TO 6000-EXIT.                                          13940000
139500                                                                  13950000
139600     MOVE 3 TO WK-RTC-ADJ-IND.                                    13960000
139700                                                                  13970000
139800     MOVE H-HHA-HRG-NO-OF-DAYS (CO1) TO WK-HRG-NO-OF-DAYS.        13980000
139900     MOVE H-HHA-PEP-DAYS             TO WK-PEP-DAYS.              13990000
140000                                                                  14000000
140100     MOVE H-HHA-HRG-OUTPUT-CODE (CO1) TO WORK-HRG.                14010000
140200                                                                  14020000
140300*         YEARCHANGE                              ===========**   14030000
140400                                                                  14040000
140500      PERFORM 10100-SUPPLY-ADD-ON-CALC  THRU 10100-EXIT.          14050000
140600                                                                  14060000
140700*         YEARCHANGE                              ===========**   14070000
140800                                                                  14080000
140900                                                                  14090000
141000*    IF HHA-SERV-THRU-DATE > 20071231 AND                         14100000
141100*       HHA-SERV-FROM-DATE > 20071231                             14110000
141200*        NEXT SENTENCE                                            14120000
141300*    ELSE                                                         14130000
141400*        MOVE 0000000.00 TO FED-SUPPLY-ADJ.                       14140000
141500*                                                                 14150000
141600*    COMPUTE FED-ADJ ROUNDED =                                    14160000
141700*        (WK-HRG-NO-OF-DAYS / WK-PEP-DAYS)                        14170000
141800*                                *                                14180000
141900*                    ((WK-PEP-DAYS / 60)                          14190000
142000*                                *                                14200000
142100*          (H-HHA-HRG-WGTS (CO1) * FED-EPISODE-RATE-AMT)).        14210000
142200*                                                                 14220000
142300*                                                                 14230000
142400*    COMPUTE FED-ADJ ROUNDED =                                    14240000
142500*        (WK-HRG-NO-OF-DAYS / WK-PEP-DAYS)                        14250000
142600*                                *                                14260000
142700*      ((WK-PEP-DAYS * H-HHA-HRG-WGTS (CO1) *                     14270000
142800*                          FED-EPISODE-RATE-AMT) / 60).           14280000
142900                                                                  14290000
143000     COMPUTE FED-ADJ  ROUNDED =                                   14300000
143100      ((WK-PEP-DAYS * H-HHA-HRG-WGTS (CO1) *                      14310000
143200                           FED-EPISODE-RATE-AMT) / 60).           14320000
143300                                                                  14330000
143400     COMPUTE FED-ADJ ROUNDED  =                                   14340000
143500                  (FED-ADJP * WK-HRG-NO-OF-DAYS) / WK-PEP-DAYS.   14350000
143600                                                                  14360000
143700     COMPUTE FED-LABOR-ADJ ROUNDED =                              14370000
143800               WIR-CBSA-WAGEIND *                                 14380000
143900               LABOR-PERCENT * FED-ADJ.                           14390000
144000                                                                  14400000
144100     COMPUTE FED-NON-LABOR-ADJ ROUNDED =                          14410000
144200               NONLABOR-PERCENT * FED-ADJ.                        14420000
144300                                                                  14430000
144400     COMPUTE WK-6000-PEP-Y-PAYMENT ROUNDED =                      14440000
144500          (FED-LABOR-ADJ + FED-NON-LABOR-ADJ + FED-SUPPLY-ADJ).   14450000
144600                                                                  14460000
144700     COMPUTE H-HHA-HRG-PAY (CO1) ROUNDED =                        14470000
144800             WK-6000-PEP-Y-PAYMENT.                               14480000
144900                                                                  14490000
145000     COMPUTE WK-6000-PEP-Y-PRETOT-PAY ROUNDED =                   14500000
145100             WK-6000-PEP-Y-PRETOT-PAY + WK-6000-PEP-Y-PAYMENT.    14510000
145200                                                                  14520000
145300                                                                  14530000
145400 6000-EXIT.   EXIT.                                               14540000
145500                                                                  14550000
145600 7000-OUTLIER-PAYMENT.                                            14560000
145700                                                                  14570000
145800***************************************************************   14580000
145900*                    OUTLIER PAYMENT                              14590000
146000***************************************************************   14600000
146100     COMPUTE OUT-THRES-LABOR-ADJ ROUNDED =                        14610000
146200               WIR-CBSA-WAGEIND *                                 14620000
146300               LABOR-PERCENT * OUTLIER-THRESHOLD-AMT.             14630000
146400                                                                  14640000
146500     COMPUTE OUT-THRES-NON-LABOR-ADJ ROUNDED =                    14650000
146600               NONLABOR-PERCENT * OUTLIER-THRESHOLD-AMT.          14660000
146700                                                                  14670000
146800     COMPUTE OUT-THRES-AMT-ADJ ROUNDED  =                         14680000
146900             (OUT-THRES-LABOR-ADJ +                               14690000
147000              OUT-THRES-NON-LABOR-ADJ).                           14700000
147100                                                                  14710000
147200      COMPUTE WK-7000-OUTLIER-VALUE-A ROUNDED =                   14720000
147300              OUT-THRES-AMT-ADJ +                                 14730000
147400             WK-3000-PEP-N-PRETOT-PAY +                           14740000
147500             WK-4000-PEP-Y-PRETOT-PAY +                           14750000
147600             WK-5000-PEP-N-PRETOT-PAY +                           14760000
147700             WK-6000-PEP-Y-PRETOT-PAY.                            14770000
147800                                                                  14780000
147900      PERFORM 8000-ADD-REV-DOLL THRU 8000-EXIT                    14790000
148000                  VARYING CO1 FROM 1 BY 1 UNTIL                   14800000
148100                   CO1 > 6.                                       14810000
148200                                                                  14820000
148300      COMPUTE WK-7000-AB-DIFF ROUNDED =                           14830000
148400              WK-8000-OUTLIER-VALUE-B - WK-7000-OUTLIER-VALUE-A.  14840000
148500****===================                                           14850000
148600      IF WK-7000-AB-DIFF > ZERO                                   14860000
148700         COMPUTE WK-7000-CALC ROUNDED =                           14870000
148800               OUTL-LOSS-SHAR-RATIO-PERCENT * WK-7000-AB-DIFF     14880000
148900                                                                  14890000
149000*** ================== NEW OUTLIER CAP HERE ========              14900000
149100         PERFORM 10000-OUTLIER-CAP-CALC THRU 10000-EXIT           14910000
149200*** ================== NEW OUTLIER CAP HERE ========              14920000
149300                                                                  14930000
149400****===================                                           14940000
149500         COMPUTE H-HHA-OUTLIER-PAYMENT ROUNDED =                  14950000
149600               WK-7000-CALC                                       14960000
149700                                                                  14970000
149800****===================                                           14980000
149900         COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                    14990000
150000                (WK-7000-CALC +                                   15000000
150100                 WK-3000-PEP-N-PRETOT-PAY +                       15010000
150200                 WK-4000-PEP-Y-PRETOT-PAY +                       15020000
150300                 WK-5000-PEP-N-PRETOT-PAY +                       15030000
150400                 WK-6000-PEP-Y-PRETOT-PAY)                        15040000
150500                                                                  15050000
150600          PERFORM 9000-WHICH-RTC-OUTLIER THRU 9000-EXIT           15060000
150700      ELSE                                                        15070000
150800         COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                    15080000
150900                (WK-3000-PEP-N-PRETOT-PAY +                       15090000
151000                 WK-4000-PEP-Y-PRETOT-PAY +                       15100000
151100                 WK-5000-PEP-N-PRETOT-PAY +                       15110000
151200                 WK-6000-PEP-Y-PRETOT-PAY)                        15120000
151300          PERFORM 9050-WHICH-RTC-NO-OUTLIER THRU 9050-EXIT.       15130000
151400                                                                  15140000
151500 7000-EXIT.   EXIT.                                               15150000
151600                                                                  15160000
151700 8000-ADD-REV-DOLL.                                               15170000
151800                                                                  15180000
151900***************************************************************   15190000
152000*        ADD ALL REVENUE DOLLARS                                  15200000
152100***************************************************************   15210000
152200     IF H-HHA-REVENUE-CODE (CO1) = SPACES                         15220000
152300        MOVE 6 TO CO1                                             15230000
152400        GO TO 8000-EXIT.                                          15240000
152500                                                                  15250000
152600     PERFORM 8100-ADJ-REV-DOLL    THRU 8100-EXIT.                 15260000
152700                                                                  15270000
152800     COMPUTE FED-ADJ ROUNDED =                                    15280000
152900             WK-REV-DOLL-RATE-UNITS (CO1) *                       15290000
153000             H-HHA-REVENUE-QTY-OUTL-UNITS (CO1).                  15300000
153100                                                                  15310000
153200     COMPUTE FED-LABOR-ADJ ROUNDED =                              15320000
153300               WIR-CBSA-WAGEIND *                                 15330000
153400               LABOR-PERCENT * FED-ADJ.                           15340000
153500                                                                  15350000
153600     COMPUTE FED-NON-LABOR-ADJ ROUNDED =                          15360000
153700               NONLABOR-PERCENT * FED-ADJ.                        15370000
153800                                                                  15380000
153900     COMPUTE WK-8000-OUTLIER-LAB-NLAB ROUNDED =                   15390000
154000           (FED-LABOR-ADJ + FED-NON-LABOR-ADJ).                   15400000
154100                                                                  15410000
154200     COMPUTE H-HHA-REVENUE-COST (CO1) ROUNDED =                   15420000
154300               WK-8000-OUTLIER-LAB-NLAB.                          15430000
154400                                                                  15440000
154500     COMPUTE WK-8000-OUTLIER-VALUE-B ROUNDED =                    15450000
154600             WK-8000-OUTLIER-VALUE-B + WK-8000-OUTLIER-LAB-NLAB.  15460000
154700                                                                  15470000
154800 8000-EXIT.   EXIT.                                               15480000
154900                                                                  15490000
155000*----------------------------------------------------------------*15500000
155100* ADJUST DOLLAR RATE USING THE RURAL ADD ON FACTOR               *15510000
155200*----------------------------------------------------------------*15520000
155300 8100-ADJ-REV-DOLL.                                               15530000
155400                                                                  15540000
155500     IF WS-RURAL-CATEGORY = 'A'                                   15550000
155600         COMPUTE WK-REV-DOLL-RATE-UNITS  (CO1) ROUNDED =          15560000
155700                 WK-REV-DOLL-RATE-UNITS  (CO1) *                  15570000
155800                 WS-RURAL-ADDON-A                                 15580000
155810     END-IF.                                                      15581000
155820     IF WS-RURAL-CATEGORY = 'B'                                   15582000
155830         COMPUTE WK-REV-DOLL-RATE-UNITS  (CO1) ROUNDED =          15583000
155840                 WK-REV-DOLL-RATE-UNITS  (CO1) *                  15584000
155850                 WS-RURAL-ADDON-B                                 15585000
155851     END-IF.                                                      15585100
155852     IF WS-RURAL-CATEGORY = 'C'                                   15585200
155853         COMPUTE WK-REV-DOLL-RATE-UNITS  (CO1) ROUNDED =          15585300
155854                 WK-REV-DOLL-RATE-UNITS  (CO1) *                  15585400
155855                 WS-RURAL-ADDON-C                                 15585500
155856     END-IF.                                                      15585600
155857                                                                  15585700
155858 8100-EXIT.   EXIT.                                               15585800
155859                                                                  15585900
155860 9000-WHICH-RTC-OUTLIER.                                          15586000
155870                                                                  15587000
155880      MOVE '01' TO H-HHA-PAY-RTC.                                 15588000
155890      IF WK-RTC-ADJ-IND = 1  MOVE '08' TO H-HHA-PAY-RTC.          15589000
155900      IF WK-RTC-ADJ-IND = 2  MOVE '11' TO H-HHA-PAY-RTC.          15590000
156000      IF WK-RTC-ADJ-IND = 3  MOVE '13' TO H-HHA-PAY-RTC.          15600000
156100      IF WK-RTC-ADJ-IND = 4  MOVE '02' TO H-HHA-PAY-RTC.          15610000
156200                                                                  15620000
156300                                                                  15630000
156400 9000-EXIT.   EXIT.                                               15640000
156500                                                                  15650000
156600 9050-WHICH-RTC-NO-OUTLIER.                                       15660000
156700                                                                  15670000
156800      MOVE '00' TO H-HHA-PAY-RTC.                                 15680000
156900                                                                  15690000
157000      IF WK-RTC-ADJ-IND = 1  MOVE '07' TO H-HHA-PAY-RTC.          15700000
157100      IF WK-RTC-ADJ-IND = 2  MOVE '09' TO H-HHA-PAY-RTC.          15710000
157200      IF WK-RTC-ADJ-IND = 3  MOVE '12' TO H-HHA-PAY-RTC.          15720000
157300                                                                  15730000
157400 9050-EXIT.   EXIT.                                               15740000
157500                                                                  15750000
157600******************************************************************15760000
157700* ADDED FOR CY2018 RELEASE                                       *15770000
157800* CALCULATES THE VALUE BASED PURCHASING ADJUSTMENT AMOUNT        *15780000
157900******************************************************************15790000
158000 9100-VBP-CALC.                                                   15800000
158100                                                                  15810000
158200     INITIALIZE H-HHA-VBP-ADJ-AMT.                                15820000
158300     MOVE H-HHA-TOTAL-PAYMENT TO WK-9100-TOTAL-PAYMENT.           15830000
158400     MOVE 0                   TO H-HHA-TOTAL-PAYMENT.             15840000
158500                                                                  15850000
158600     IF H-HHA-HRG-PAY(1) > 0                                      15860000
158700       COMPUTE H-HHA-HRG-PAY(1) ROUNDED =                         15870000
158800               H-HHA-HRG-PAY(1) * H-HHA-PROV-VBP-ADJ-FAC          15880000
158900       END-COMPUTE                                                15890000
159000       COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                      15900000
159100               H-HHA-TOTAL-PAYMENT + H-HHA-HRG-PAY (1)            15910000
159200       END-COMPUTE                                                15920000
159300     END-IF.                                                      15930000
159400                                                                  15940000
159500     IF H-HHA-HRG-PAY(1) = 0                                      15950000
159600        PERFORM 9120-VBP-REV-COST  THRU 9120-EXIT                 15960000
159700     END-IF.                                                      15970000
159800                                                                  15980000
159900     COMPUTE H-HHA-OUTLIER-PAYMENT ROUNDED =                      15990000
160000             H-HHA-OUTLIER-PAYMENT * H-HHA-PROV-VBP-ADJ-FAC       16000000
160100     END-COMPUTE.                                                 16010000
160200                                                                  16020000
160300     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16030000
160400             H-HHA-TOTAL-PAYMENT + H-HHA-OUTLIER-PAYMENT          16040000
160500     END-COMPUTE.                                                 16050000
160600                                                                  16060000
160700     COMPUTE H-HHA-VBP-ADJ-AMT ROUNDED =                          16070000
160800             H-HHA-TOTAL-PAYMENT - WK-9100-TOTAL-PAYMENT          16080000
160900     END-COMPUTE.                                                 16090000
161000                                                                  16100000
161100 9100-EXIT.   EXIT.                                               16110000
161200                                                                  16120000
161300 9120-VBP-REV-COST.                                               16130000
161400                                                                  16140000
161500     COMPUTE H-HHA-REVENUE-COST (1) ROUNDED =                     16150000
161600             H-HHA-REVENUE-COST (1) * H-HHA-PROV-VBP-ADJ-FAC      16160000
161700     END-COMPUTE.                                                 16170000
161800                                                                  16180000
161900     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16190000
162000             H-HHA-TOTAL-PAYMENT + H-HHA-REVENUE-COST (1)         16200000
162100     END-COMPUTE.                                                 16210000
162200                                                                  16220000
162300     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (1) ROUNDED =         16230000
162400             H-HHA-REVENUE-ADD-ON-VISIT-AMT (1) *                 16240000
162500             H-HHA-PROV-VBP-ADJ-FAC                               16250000
162600     END-COMPUTE.                                                 16260000
162700                                                                  16270000
162800     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16280000
162900             H-HHA-TOTAL-PAYMENT +                                16290000
163000             H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)                   16300000
163100     END-COMPUTE.                                                 16310000
163200                                                                  16320000
163210     COMPUTE H-HHA-REVENUE-COST (2) ROUNDED =                     16321000
163211             H-HHA-REVENUE-COST (2) * H-HHA-PROV-VBP-ADJ-FAC      16321100
163212     END-COMPUTE.                                                 16321200
163213                                                                  16321300
163214     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16321400
163215             H-HHA-TOTAL-PAYMENT + H-HHA-REVENUE-COST (2)         16321500
163216     END-COMPUTE.                                                 16321600
163217                                                                  16321700
163218     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (2) ROUNDED =         16321800
163219             H-HHA-REVENUE-ADD-ON-VISIT-AMT (2) *                 16321900
163220             H-HHA-PROV-VBP-ADJ-FAC                               16322000
163230     END-COMPUTE.                                                 16323000
163231                                                                  16323100
163232     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16323200
163233             H-HHA-TOTAL-PAYMENT +                                16323300
163234             H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)                   16323400
163235     END-COMPUTE.                                                 16323500
163236                                                                  16323600
163237     COMPUTE H-HHA-REVENUE-COST (3) ROUNDED =                     16323700
163238             H-HHA-REVENUE-COST (3) * H-HHA-PROV-VBP-ADJ-FAC      16323800
163239     END-COMPUTE.                                                 16323900
163240                                                                  16324000
163241     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16324100
163242             H-HHA-TOTAL-PAYMENT + H-HHA-REVENUE-COST (3)         16324200
163243     END-COMPUTE.                                                 16324300
163244                                                                  16324400
163245     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (3) ROUNDED =         16324500
163246             H-HHA-REVENUE-ADD-ON-VISIT-AMT (3) *                 16324600
163247             H-HHA-PROV-VBP-ADJ-FAC                               16324700
163248     END-COMPUTE.                                                 16324800
163249                                                                  16324900
163250     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16325000
163251             H-HHA-TOTAL-PAYMENT +                                16325100
163252             H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)                   16325200
163253     END-COMPUTE.                                                 16325300
163254                                                                  16325400
163255     COMPUTE H-HHA-REVENUE-COST (4) ROUNDED =                     16325500
163256             H-HHA-REVENUE-COST (4) * H-HHA-PROV-VBP-ADJ-FAC      16325600
163257     END-COMPUTE.                                                 16325700
163258                                                                  16325800
163259     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16325900
163260             H-HHA-TOTAL-PAYMENT + H-HHA-REVENUE-COST (4)         16326000
163261     END-COMPUTE.                                                 16326100
163262                                                                  16326200
163263     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) ROUNDED =         16326300
163264             H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) *                 16326400
163265             H-HHA-PROV-VBP-ADJ-FAC                               16326500
163266     END-COMPUTE.                                                 16326600
163267                                                                  16326700
163268     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16326800
163269             H-HHA-TOTAL-PAYMENT +                                16326900
163270             H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)                   16327000
163271     END-COMPUTE.                                                 16327100
163272                                                                  16327200
163273     COMPUTE H-HHA-REVENUE-COST (5) ROUNDED =                     16327300
163274             H-HHA-REVENUE-COST (5) * H-HHA-PROV-VBP-ADJ-FAC      16327400
163275     END-COMPUTE.                                                 16327500
163276                                                                  16327600
163277     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16327700
163278             H-HHA-TOTAL-PAYMENT + H-HHA-REVENUE-COST (5)         16327800
163279     END-COMPUTE.                                                 16327900
163280                                                                  16328000
163281     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (5) ROUNDED =         16328100
163282             H-HHA-REVENUE-ADD-ON-VISIT-AMT (5) *                 16328200
163283             H-HHA-PROV-VBP-ADJ-FAC                               16328300
163284     END-COMPUTE.                                                 16328400
163285                                                                  16328500
163286     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16328600
163287             H-HHA-TOTAL-PAYMENT +                                16328700
163288             H-HHA-REVENUE-ADD-ON-VISIT-AMT (5)                   16328800
163289     END-COMPUTE.                                                 16328900
163290                                                                  16329000
163291     COMPUTE H-HHA-REVENUE-COST (6) ROUNDED =                     16329100
163292             H-HHA-REVENUE-COST (6) * H-HHA-PROV-VBP-ADJ-FAC      16329200
163293     END-COMPUTE.                                                 16329300
163294                                                                  16329400
163295     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16329500
163296             H-HHA-TOTAL-PAYMENT + H-HHA-REVENUE-COST (6)         16329600
163297     END-COMPUTE.                                                 16329700
163298                                                                  16329800
163299     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (6) ROUNDED =         16329900
163300             H-HHA-REVENUE-ADD-ON-VISIT-AMT (6) *                 16330000
163301             H-HHA-PROV-VBP-ADJ-FAC                               16330100
163302     END-COMPUTE.                                                 16330200
163303                                                                  16330300
163304     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16330400
163305             H-HHA-TOTAL-PAYMENT +                                16330500
163306             H-HHA-REVENUE-ADD-ON-VISIT-AMT (6)                   16330600
163307     END-COMPUTE.                                                 16330700
163308                                                                  16330800
163309 9120-EXIT.   EXIT.                                               16330900
163310                                                                  16331000
163311******************************************************************16331100
163312* ADDED FOR CY2018 RELEASE                                       *16331200
163313* CALCULATES THE STANDARDIZED ALLOWED AMOUNT                     *16331300
163314******************************************************************16331400
163315 9200-CALC-STD-VALUE.                                             16331500
163316                                                                  16331600
163317     MOVE 0                   TO H-HHA-PPS-STD-VALUE.             16331700
163318                                                                  16331800
163319     IF H-HHA-REVENUE-SUM1-6-QTY-ALL < 5 AND                      16331900
163320        H-HHA-TOB IS NOT EQUAL TO 322                             16332000
163321        PERFORM 9210-CALC-STD-VALUE-LUPA                          16332100
163322           THRU 9210-EXIT                                         16332200
163323     END-IF.                                                      16332300
163324                                                                  16332400
163325     IF H-HHA-REVENUE-SUM1-6-QTY-ALL > 4 OR                       16332500
163326        H-HHA-TOB IS EQUAL TO 322                                 16332600
163327        PERFORM 9220-CALC-STD-VALUE-NLUPA                         16332700
163328           THRU 9220-EXIT                                         16332800
163329     END-IF.                                                      16332900
163330                                                                  16333000
163331 9200-EXIT.  EXIT.                                                16333100
163332                                                                  16333200
163333******************************************************************16333300
163334* ADDED FOR CY2018 RELEASE                                       *16333400
163335* CALCULATES THE STANDARDIZED ALLOWED AMOUNT FOR LUPA CLAIMS     *16333500
163336******************************************************************16333600
163337 9210-CALC-STD-VALUE-LUPA.                                        16333700
163338                                                                  16333800
163339     MOVE 0                   TO SS-QCV.                          16333900
163340     PERFORM 6 TIMES                                              16334000
163350       ADD 1                  TO SS-QCV                           16335000
163360                                                                  16336000
163361       IF H-HHA-REVENUE-QTY-COV-VISITS (SS-QCV) > 0               16336100
163362                                                                  16336200
163363         COMPUTE H-HHA-PPS-STD-VALUE ROUNDED =                    16336300
163364                 H-HHA-PPS-STD-VALUE +                            16336400
163365                (H-HHA-REVENUE-QTY-COV-VISITS (SS-QCV) *          16336500
163366                 TB-STDV-REV-DOLL-RATE (SS-QCV))                  16336600
163367         END-COMPUTE                                              16336700
163368                                                                  16336800
163369       END-IF                                                     16336900
163370                                                                  16337000
163371       IF H-HHA-REVENUE-ADD-ON-VISIT-AMT (SS-QCV) > 0             16337100
163372                                                                  16337200
163373         COMPUTE H-HHA-PPS-STD-VALUE ROUNDED =                    16337300
163374                  H-HHA-PPS-STD-VALUE +                           16337400
163375                 (TB-STDV-REV-DOLL-RATE (SS-QCV) *                16337500
163376                      WS-STDV-LUPA-ADDON-FAC)                     16337600
163377         END-COMPUTE                                              16337700
163378                                                                  16337800
163379       END-IF                                                     16337900
163380     END-PERFORM.                                                 16338000
163381                                                                  16338100
163382     COMPUTE H-HHA-PPS-STD-VALUE ROUNDED =                        16338200
163383             H-HHA-PPS-STD-VALUE *                                16338300
163384             WS-STDV-RURAL-FAC                                    16338400
163385     END-COMPUTE.                                                 16338500
163386                                                                  16338600
163387 9210-EXIT.  EXIT.                                                16338700
163388                                                                  16338800
163389******************************************************************16338900
163390* ADDED FOR CY2018 RELEASE                                       *16339000
163400* CALCULATES THE STANDARDIZED ALLOWED AMOUNT FOR NON-LUPA CLAIMS *16340000
163410******************************************************************16341000
163411 9220-CALC-STD-VALUE-NLUPA.                                       16341100
163412                                                                  16341200
163413     MOVE 0              TO WS-STDV-FED-SUPPLY-ADJ.               16341300
163414     IF  WORK-HRG5 = 'S' OR '1'                                   16341400
163415         MOVE 0000014.84 TO WS-STDV-FED-SUPPLY-ADJ.               16341500
163416     IF  WORK-HRG5 = 'T' OR '2'                                   16341600
163417         MOVE 0000053.59 TO WS-STDV-FED-SUPPLY-ADJ.               16341700
163418     IF  WORK-HRG5 = 'U' OR '3'                                   16341800
163419         MOVE 0000146.94 TO WS-STDV-FED-SUPPLY-ADJ.               16341900
163420     IF  WORK-HRG5 = 'V' OR '4'                                   16342000
163430         MOVE 0000218.31 TO WS-STDV-FED-SUPPLY-ADJ.               16343000
163431     IF  WORK-HRG5 = 'W' OR '5'                                   16343100
163432         MOVE 0000336.65 TO WS-STDV-FED-SUPPLY-ADJ.               16343200
163433     IF  WORK-HRG5 = 'X' OR '6'                                   16343300
163434         MOVE 0000579.00 TO WS-STDV-FED-SUPPLY-ADJ.               16343400
163435                                                                  16343500
163436* HIPPS CALCULATION                                               16343600
163437                                                                  16343700
163438     COMPUTE WS-STD-VALUE-NLUPA-AMT ROUNDED =                     16343800
163439       ( ( H-HHA-HRG-WGTS(1) * WS-STDV-EPISODE-AMT ) +            16343900
163440           WS-STDV-FED-SUPPLY-ADJ )*                              16344000
163441           H-HHA-HRG-NO-OF-DAYS (1) / 60 *                        16344100
163442           WS-STDV-RURAL-FAC * 1                                  16344200
163443     END-COMPUTE.                                                 16344300
163444                                                                  16344400
163445* OUTLIER CALCULATION                                             16344500
163446                                                                  16344600
163447     COMPUTE WS-STD-VALUE-NLUPA-OUTL ROUNDED =                    16344700
163448       H-HHA-OUTLIER-PAYMENT /                                    16344800
163449       ( (LABOR-PERCENT * WIR-CBSA-WAGEIND) +                     16344900
163450         (1 - LABOR-PERCENT) )                                    16345000
163451     END-COMPUTE.                                                 16345100
163452                                                                  16345200
163453* STANDARD VALUE CALCULATION                                      16345300
163454                                                                  16345400
163455     COMPUTE H-HHA-PPS-STD-VALUE ROUNDED =                        16345500
163456             WS-STD-VALUE-NLUPA-AMT +                             16345600
163457             WS-STD-VALUE-NLUPA-OUTL                              16345700
163458     END-COMPUTE.                                                 16345800
163459                                                                  16345900
163460     IF H-HHA-TOB = 322                                           16346000
163461        IF H-HHA-INIT-PAY-INDICATOR = '1' OR '3'                  16346100
163462           COMPUTE H-HHA-PPS-STD-VALUE ROUNDED =                  16346200
163463                   H-HHA-PPS-STD-VALUE * 0                        16346300
163464           END-COMPUTE                                            16346400
163465           GO TO 9220-EXIT                                        16346500
163466        END-IF                                                    16346600
163467     END-IF.                                                      16346700
163468                                                                  16346800
163469     IF H-HHA-TOB = 322                                           16346900
163470        IF H-HHA-ADMIT-DATE = H-HHA-SERV-FROM-DATE                16347000
163480           COMPUTE H-HHA-PPS-STD-VALUE ROUNDED =                  16348000
163481                   H-HHA-PPS-STD-VALUE * .60                      16348100
163482           END-COMPUTE                                            16348200
163483        ELSE                                                      16348300
163484           COMPUTE H-HHA-PPS-STD-VALUE ROUNDED =                  16348400
163485                   H-HHA-PPS-STD-VALUE * .50                      16348500
163486           END-COMPUTE                                            16348600
163487        END-IF                                                    16348700
163488     END-IF.                                                      16348800
163489                                                                  16348900
163490 9220-EXIT.  EXIT.                                                16349000
163491                                                                  16349100
163492*         YEARCHANGE  2011.0                      ===========**   16349200
163493                                                                  16349300
163494 10000-OUTLIER-CAP-CALC.                                          16349400
163495                                                                  16349500
163496     IF  HHA-PROV-PAYMENT-TOTAL = 0                               16349600
163497        GO TO 10000-EXIT.                                         16349700
163498                                                                  16349800
163499     IF  HHA-PROV-OUTLIER-PAY-TOTAL = 0                           16349900
163500        GO TO 10000-EXIT.                                         16350000
163501                                                                  16350100
163502     COMPUTE WK-10000-OUTLIER-POOL-PERCENT ROUNDED =              16350200
163503         HHA-PROV-PAYMENT-TOTAL * .1.                             16350300
163504                                                                  16350400
163505     COMPUTE WK-10000-OUTLIER-AVAIL-POOL ROUNDED =                16350500
163506      WK-10000-OUTLIER-POOL-PERCENT - HHA-PROV-OUTLIER-PAY-TOTAL. 16350600
163507                                                                  16350700
163508      COMPUTE WK-10000-OUTLIER-POOL-DIF ROUNDED =                 16350800
163509         WK-10000-OUTLIER-AVAIL-POOL - WK-7000-CALC.              16350900
163510                                                                  16351000
163520      IF WK-10000-OUTLIER-POOL-DIF > 0                            16352000
163530        GO TO 10000-EXIT.                                         16353000
163540                                                                  16354000
163550      IF WK-10000-OUTLIER-POOL-DIF < 0 OR                         16355000
163560         HHA-PROV-OUTLIER-PAY-TOTAL < 0                           16356000
163570        COMPUTE WK-7000-CALC ROUNDED = 0                          16357000
163580        MOVE 4 TO WK-RTC-ADJ-IND.                                 16358000
163590                                                                  16359000
163600*         YEARCHANGE  2011.0                      ===========**   16360000
163700                                                                  16370000
163800 10000-EXIT.   EXIT.                                              16380000
163900                                                                  16390000
164000*         YEARCHANGE                              ===========**   16400000
164100                                                                  16410000
164200*===========================================================**    16420000
164300* UPDATED FOR CY2020                                         *    16430000
164400*===========================================================**    16440000
164500 10100-SUPPLY-ADD-ON-CALC.                                        16450000
164600*===========================================================**    16460000
164700*   NON-RURAL, WITH QUALITY DATA =  5B COL 4           =====**    16470000
164800*   NON-RURAL, NO QUALITY DATA   =  6B COL 4           =====**    16480000
164900*   RURAL, WITH QUALITY DATA     =  5B COL 4           =====**    16490000
165000*   RURAL, NO QUALITY DATA       =  6B COL 4           =====**    16500000
165100*===========================================================**    16510000
165200                                                                  16520000
165300*    YEARCHANGE  2019.0 NON RURAL W/ QUALITY DATA  ====**         16530000
165400*    YEARCHANGE  2019.0 TABLE  5B 4TH COL          ====**         16540000
165500                                                                  16550000
165510     IF HHA-CBSA-RURAL-CHECK                                      16551000
165520     OR HHA-CBSA-RURAL-CHECK-ALL                                  16552000
165530        GO TO RURAL-DATA-CHECK.                                   16553000
165540                                                                  16554000
165550     IF HHA-WITH-DATA-CHECK                                       16555000
165560       NEXT SENTENCE                                              16556000
165570     ELSE                                                         16557000
165580       GO TO NO-DATA-CHECK.                                       16558000
165590                                                                  16559000
165600     IF  WORK-HRG5 = 'S' OR '1'                                   16560000
165700         MOVE 0000014.84 TO FED-SUPPLY-ADJ                        16570000
165800         GO TO 10100-EXIT.                                        16580000
165900                                                                  16590000
166000     IF  WORK-HRG5 = 'T' OR '2'                                   16600000
166100         MOVE 0000053.59 TO FED-SUPPLY-ADJ                        16610000
166200         GO TO 10100-EXIT.                                        16620000
166300                                                                  16630000
166400     IF  WORK-HRG5 = 'U' OR '3'                                   16640000
166500         MOVE 0000146.94 TO FED-SUPPLY-ADJ                        16650000
166600         GO TO 10100-EXIT.                                        16660000
166700                                                                  16670000
166800     IF  WORK-HRG5 = 'V' OR '4'                                   16680000
166900         MOVE 0000218.31 TO FED-SUPPLY-ADJ                        16690000
167000         GO TO 10100-EXIT.                                        16700000
167100                                                                  16710000
167200     IF  WORK-HRG5 = 'W' OR '5'                                   16720000
167300         MOVE 0000336.65 TO FED-SUPPLY-ADJ                        16730000
167400         GO TO 10100-EXIT.                                        16740000
167500                                                                  16750000
167600     IF  WORK-HRG5 = 'X' OR '6'                                   16760000
167700         MOVE 0000579.00 TO FED-SUPPLY-ADJ                        16770000
167800         GO TO 10100-EXIT.                                        16780000
167900                                                                  16790000
168000 NO-DATA-CHECK.                                                   16800000
168100                                                                  16810000
168200*    YEARCHANGE  2019.0 NON RURAL WO/ QUALITY DATA   ====**       16820000
168300*    YEARCHANGE  2019.0 TABLE  6B 4TH COL            ====**       16830000
168400                                                                  16840000
168500     IF HHA-NO-DATA-CHECK                                         16850000
168600       NEXT SENTENCE                                              16860000
168700     ELSE                                                         16870000
168800         GO TO 10100-EXIT.                                        16880000
168900                                                                  16890000
169000     IF  WORK-HRG5 = 'S' OR '1'                                   16900000
169100         MOVE 0000014.55 TO FED-SUPPLY-ADJ                        16910000
169200         GO TO 10100-EXIT.                                        16920000
169300                                                                  16930000
169400     IF  WORK-HRG5 = 'T' OR '2'                                   16940000
169500         MOVE 0000052.54 TO FED-SUPPLY-ADJ                        16950000
169600         GO TO 10100-EXIT.                                        16960000
169700                                                                  16970000
169800     IF  WORK-HRG5 = 'U' OR '3'                                   16980000
169900         MOVE 0000144.06 TO FED-SUPPLY-ADJ                        16990000
170000         GO TO 10100-EXIT.                                        17000000
170100                                                                  17010000
170200     IF  WORK-HRG5 = 'V' OR '4'                                   17020000
170300         MOVE 0000214.03 TO FED-SUPPLY-ADJ                        17030000
170400         GO TO 10100-EXIT.                                        17040000
170500                                                                  17050000
170600     IF  WORK-HRG5 = 'W' OR '5'                                   17060000
170700         MOVE 0000330.04 TO FED-SUPPLY-ADJ                        17070000
170800         GO TO 10100-EXIT.                                        17080000
170900                                                                  17090000
171000     IF  WORK-HRG5 = 'X' OR '6'                                   17100000
171100         MOVE 0000567.63 TO FED-SUPPLY-ADJ                        17110000
171200         GO TO 10100-EXIT.                                        17120000
171300                                                                  17130000
171400 RURAL-DATA-CHECK.                                                17140000
171500                                                                  17150000
171600*    YEARCHANGE  2019.0 RURAL W/ QUALITY DATA      ====**         17160000
171700*    YEARCHANGE  2019.0 TABLE  5B  COL 4           ====**         17170000
171800                                                                  17180000
171900     IF HHA-WITH-DATA-CHECK                                       17190000
172000       NEXT SENTENCE                                              17200000
172100     ELSE                                                         17210000
172200       GO TO RURAL-NO-DATA-CHECK.                                 17220000
172300                                                                  17230000
172400     IF  WORK-HRG5 = 'S' OR '1'                                   17240000
172500         MOVE 0000014.84 TO FED-SUPPLY-ADJ                        17250000
172600         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17260000
172700         GO TO 10100-EXIT.                                        17270000
172800                                                                  17280000
172900     IF  WORK-HRG5 = 'T' OR '2'                                   17290000
173000         MOVE 0000053.59 TO FED-SUPPLY-ADJ                        17300000
173100         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17310000
173200         GO TO 10100-EXIT.                                        17320000
173300                                                                  17330000
173400     IF  WORK-HRG5 = 'U' OR '3'                                   17340000
173500         MOVE 0000146.94 TO FED-SUPPLY-ADJ                        17350000
173600         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17360000
173700         GO TO 10100-EXIT.                                        17370000
173800                                                                  17380000
173900     IF  WORK-HRG5 = 'V' OR '4'                                   17390000
173910         MOVE 0000218.31 TO FED-SUPPLY-ADJ                        17391000
173920         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17392000
173930         GO TO 10100-EXIT.                                        17393000
173940                                                                  17394000
173950     IF  WORK-HRG5 = 'W' OR '5'                                   17395000
173960         MOVE 0000336.65 TO FED-SUPPLY-ADJ                        17396000
173970         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17397000
173980         GO TO 10100-EXIT.                                        17398000
173990                                                                  17399000
174000     IF  WORK-HRG5 = 'X' OR '6'                                   17400000
174100         MOVE 0000579.00 TO FED-SUPPLY-ADJ                        17410000
174200         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17420000
174300         GO TO 10100-EXIT.                                        17430000
174400                                                                  17440000
174500 RURAL-NO-DATA-CHECK.                                             17450000
174600                                                                  17460000
174700*    YEARCHANGE  2019.0 RURAL WO/ QUALITY DATA     ====**         17470000
174800*    YEARCHANGE  2019.0 TABLE  6B COL 4            ====**         17480000
174900                                                                  17490000
175000     IF HHA-NO-DATA-CHECK                                         17500000
175100       NEXT SENTENCE                                              17510000
175200     ELSE                                                         17520000
175300         GO TO 10100-EXIT.                                        17530000
175400                                                                  17540000
175500     IF  WORK-HRG5 = 'S' OR '1'                                   17550000
175600         MOVE 0000014.55 TO FED-SUPPLY-ADJ                        17560000
175700         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17570000
175800         GO TO 10100-EXIT.                                        17580000
175900                                                                  17590000
176000     IF  WORK-HRG5 = 'T' OR '2'                                   17600000
176100         MOVE 0000052.54 TO FED-SUPPLY-ADJ                        17610000
176200         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17620000
176300         GO TO 10100-EXIT.                                        17630000
176400                                                                  17640000
176500     IF  WORK-HRG5 = 'U' OR '3'                                   17650000
176600         MOVE 0000144.06 TO FED-SUPPLY-ADJ                        17660000
176700         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17670000
176800         GO TO 10100-EXIT.                                        17680000
176900                                                                  17690000
177000     IF  WORK-HRG5 = 'V' OR '4'                                   17700000
177100         MOVE 0000214.03 TO FED-SUPPLY-ADJ                        17710000
177200         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17720000
177300         GO TO 10100-EXIT.                                        17730000
177400                                                                  17740000
177500     IF  WORK-HRG5 = 'W' OR '5'                                   17750000
177600         MOVE 0000330.04 TO FED-SUPPLY-ADJ                        17760000
177700         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17770000
177800         GO TO 10100-EXIT.                                        17780000
177900                                                                  17790000
178000     IF  WORK-HRG5 = 'X' OR '6'                                   17800000
178100         MOVE 0000567.63 TO FED-SUPPLY-ADJ                        17810000
178200         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17820000
178300         GO TO 10100-EXIT.                                        17830000
178400                                                                  17840000
178500 10100-EXIT.   EXIT.                                              17850000
178510                                                                  17851000
178520 10200-RURAL-ADD-ON.                                              17852000
178530                                                                  17853000
178540      IF WS-RURAL-CATEGORY = 'A'                                  17854000
178550         COMPUTE FED-SUPPLY-ADJ ROUNDED =                         17855000
178560                 FED-SUPPLY-ADJ * WS-RURAL-ADDON-A                17856000
178570      END-IF.                                                     17857000
178580      IF WS-RURAL-CATEGORY = 'B'                                  17858000
178590         COMPUTE FED-SUPPLY-ADJ ROUNDED =                         17859000
178600                 FED-SUPPLY-ADJ * WS-RURAL-ADDON-B                17860000
178700      END-IF.                                                     17870000
178800      IF WS-RURAL-CATEGORY = 'C'                                  17880000
178900         COMPUTE FED-SUPPLY-ADJ ROUNDED =                         17890000
179000                 FED-SUPPLY-ADJ * WS-RURAL-ADDON-C                17900000
179010      END-IF.                                                     17901000
179011                                                                  17901100
179012 10200-EXIT.   EXIT.                                              17901200
179013                                                                  17901300
179014******        L A S T   S O U R C E   S T A T E M E N T   *****   17901400
