000100 IDENTIFICATION DIVISION.                                         00010001
000200 PROGRAM-ID.    HHCAL190.                                         00020001
000201 DATE-COMPILED.                                                   00020101
000202******************************************************************00020201
000203*                        CMS                                     *00020301
000204******************************************************************00020401
000205*  A). NATIONAL HHA PRICER                                       *00020501
000206*  B). NATIONAL HHA PRICER EFFECTIVE OCT 1 2001                  *00020601
000207*  C). THERE ARE YEARLY HHA PRICER MODULES THAT WILL             *00020701
000208*      CALCULATE THE HRG'S,REVENUE CODES AND TYPE OF BILLS       *00020801
000209******************************************************************00020901
000210* LUPA = LOW UTILIZATION PAYMENT ADJUSTMENT                      *00021001
000220******************************************************************00022001
000230*                CY2019.0 CHANGES                                *00023001
000240*----------------------------------------------------------------*00024001
000250* ADDED RURAL ADD-ON LOGIC BASED ON COUNTY CODE                  *00025001
000251* ADDED HHA-COUNTY-CODE TO CLAIM INPUT RECORD                    *00025101
000252* ADDED COPY ADDONTBL - COUNTY CODE TABLE                        *00025201
000253* ADDED RC 31 = COUNTY CODE MISSING OR INVALID                   *00025301
000254* UPDATED LABOR/NON-LABOR PERCENTAGES                            *00025401
000255* UPDATED OUTLIER FACTOR FROM .55 TO .51                         *00025501
000256* UPDATED WS-STDV-RURAL-FAC FROM 1.03 TO 1.0043                  *00025601
000257******************************************************************00025701
000258*            RETURN CODE VALUES (HHA-RTC)                         00025801
000259*                                                                 00025901
000260*        HHA-RTC  WITH PAYMENTS RETURNED                          00026001
000270*                                                                 00027001
000280*     RETURN CODES                                                00028001
000290*          00 = FINAL PAYMENT                                     00029001
000300*               TOB = 329,339,327,337                             00030001
000400*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00040001
000500*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00050001
000600*                  OR 32F OR 32K OR 32P OR 32H                    00060001
000700*                  OR 33F OR 33K OR 33P OR 33H                    00070001
000800*               WITH HRG,REVENUE CODE WHERE NO OUTLIER APPLIES    00080001
000900*          01 = FINAL PAYMENT                                     00090001
001000*               TOB = 329,339,327,337                             00100001
001100*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00110001
001200*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00120001
001300*                  OR 32F OR 32K OR 32P OR 32H                    00130001
001400*                  OR 33F OR 33K OR 33P OR 33H                    00140001
001500*               WITH HRG,REVENUE CODE WHERE OUTLIER APPLIES       00150001
001600*          03 = INITIAL HALF PAYMENT PAYMENT WILL BE ZERO         00160001
001700*               TOB = 332 AND 322                                 00170001
001800*          04 = INITIAL HALF PAYMENT PAID AT 50%                  00180001
001900*               TOB = 332 AND 322                                 00190001
002000*               WITH INITIAL (FIRST) HRG AND NO REVENUE CODES     00200001
002100*          05 = INITIAL HALF PAYMENT PAID AT 60%                  00210001
002200*               TOB = 332 AND 322                                 00220001
002300*               WITH INITIAL (FIRST) HRG AND NO REVENUE CODES     00230001
002400*       06,14 = LUPA PAYMENT ONLY                                 00240001
002500*               TOB = 329,339,327,337                             00250001
002600*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00260001
002700*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00270001
002800*                  OR 32F OR 32K OR 32P OR 32H                    00280001
002900*                  OR 33F OR 33K OR 33P OR 33H                    00290001
003000*               WITH REVENUE CODES AND REVENUE QTYS < 5       *   00300001
003100******************************************************************00310001
003200*          07 = FINAL PAYMENT, SCIC, PEP = N, NO OUTLIER          00320001
003300*               TOB = 329,339,327,337                             00330001
003400*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00340001
003500*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00350001
003600*                  OR 32F OR 32K OR 32P OR 32H                    00360001
003700*                  OR 33F OR 33K OR 33P OR 33H                    00370001
003800*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        00380001
003900*               WITH MORE THAN ONE HRG OCCURRENCE             *   00390001
004000*          08 = FINAL PAYMENT, SCIC, PEP = N, WITH OUTLIER        00400001
004100*               TOB = 329,339,327,337                             00410001
004200*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00420001
004300*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00430001
004400*                  OR 32F OR 32K OR 32P OR 32H                    00440001
004500*                  OR 33F OR 33K OR 33P OR 33H                    00450001
004600*               WITH REVENUE CODE WHERE OUTLIER APPLIES           00460001
004700*               WITH MORE THAN ONE HRG OCCURRENCE             *   00470001
004800******************************************************************00480001
004900*          09 = FINAL PAYMENT, PEP = Y, NO OUTLIER                00490001
005000*               TOB = 329,339,327,337                             00500001
005100*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00510001
005200*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00520001
005300*                  OR 32F OR 32K OR 32P OR 32H                    00530001
005400*                  OR 33F OR 33K OR 33P OR 33H                    00540001
005500*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        00550001
005600*               WITH ONE HRG OCCURRENCE                       *   00560001
005700*          11 = FINAL PAYMENT, PEP = Y, WITH OUTLIER              00570001
005800*               TOB = 329,339,327,337                             00580001
005900*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00590001
006000*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00600001
006100*                  OR 32F OR 32K OR 32P OR 32H                    00610001
006200*                  OR 33F OR 33K OR 33P OR 33H                    00620001
006300*               WITH REVENUE CODE WHERE OUTLIER APPLIES           00630001
006400*               WITH ONE HRG OCCURRENCE                       *   00640001
006500******************************************************************00650001
006600*          12 = FINAL PAYMENT, SCIC, PEP = Y, NO OUTLIER          00660001
006700*               TOB = 329,339,327,337                             00670001
006800*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00680001
006900*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00690001
007000*                  OR 32F OR 32K OR 32P OR 32H                    00700001
007100*                  OR 33F OR 33K OR 33P OR 33H                    00710001
007200*               WITH REVENUE CODE WHERE NO OUTLIER APPLIES        00720001
007300*               WITH MORE THAN ONE HRG OCCURRENCE             *   00730001
007400*          13 = FINAL PAYMENT, SCIC, PEP = Y, WITH OUTLIER        00740001
007500*               TOB = 329,339,327,337                             00750001
007600*                  OR 32G OR 33G OR 32I OR 33I OR 32Q             00760001
007700*                  OR 32J OR 33J OR 32M OR 33M OR 33Q             00770001
007800*                  OR 32F OR 32K OR 32P OR 32H                    00780001
007900*                  OR 33F OR 33K OR 33P OR 33H                    00790001
008000*               WITH REVENUE CODE WHERE OUTLIER APPLIES           00800001
008100*               WITH MORE THAN ONE HRG OCCURRENCE             *   00810001
008200******************************************************************00820001
008300******************************************************************00830001
008400*                                                             *   00840001
008500*            HHA-RTC   NO PAYMENTS RETURNED                   *   00850001
008600*                                                             *   00860001
008700*              10 = INVALID TOB                               *   00870001
008800*                                                             *   00880001
008900*              15 = INVALID PEP DAYS                          *   00890001
009000*                   FOR SHORTENED EPISODE                     *   00900001
009100*                                                             *   00910001
009200*              16 = INVALID HRG DAYS , > 60 DAYS              *   00920001
009300*                                                             *   00930001
009400*              20 = INVALID PEP INDICATOR                     *   00940001
009500*                                                             *   00950001
009600*              25 = INVALID MED REVIEW INDICATOR              *   00960001
009700*                                                             *   00970001
009800*              30 = INVALID CBSA CODE                         *   00980001
009900*                                                             *   00990001
010000*              31 = COUNTY CODE MISSING OR INVALID            *   01000001
010100*                                                             *   01010001
010200*              35 = INVALID INITIAL PAYMENT INDICATOR         *   01020001
010300*                        0 = MAKE NORMAL INITIAL PAYMENT      *   01030001
010400*                        1 = MAKE ZERO PAYMANT                *   01040001
010500*                                                             *   01050001
010600*              40 = INVALID SERVICE THRU DATE FOR             *   01060001
010700*                      CURRENT CALENDER YEAR                  *   01070001
010800*                                                             *   01080001
010900*              70 = INVALID OR NO HRG CODE PRESENT            *   01090001
011000*                                                             *   01100001
011100*              75 = NO HRG PRESENT IN FIRST OCCURANCE AND     *   01110001
011200*                   REVENUE-QTY-COV-VISITS > 4  AND           *   01120001
011300*                       TOB = 329,339,327,337                 *   01130001
011400*                          OR 32G OR 33G OR 32I OR 33I        *   01140001
011500*                          OR 32J OR 33J OR 32M OR 33M        *   01150001
011600*                          OR 32F OR 32K OR 32P OR 32H            01160001
011700*                          OR 33F OR 33K OR 33P OR 33H            01170001
011800*                                                             *   01180001
011900*              80 = INVALID REVENUE CODE                      *   01190001
012000*                                                             *   01200001
012100*              85 = NO REVENUE CODE PRESENT                   *   01210001
012200*                   WITH TOB 329 OR 339 OR 327 OR 337         *   01220001
012300*                         OR 32G OR 33G OR 32I OR 33I         *   01230001
012400*                         OR 32J OR 33J OR 32M OR 33M         *   01240001
012500*                         OR 32F OR 32K OR 32P OR 32H             01250001
012600*                         OR 33F OR 33K OR 33P OR 33H             01260001
012700*                                                             *   01270001
012800***************************************************************   01280001
012900                                                                  01290001
013000 ENVIRONMENT DIVISION.                                            01300001
013100 CONFIGURATION SECTION.                                           01310001
013200 SOURCE-COMPUTER.            IBM-370.                             01320001
013300 OBJECT-COMPUTER.            IBM-370.                             01330001
013400 INPUT-OUTPUT  SECTION.                                           01340001
013500 FILE-CONTROL.                                                    01350001
013600                                                                  01360001
013700 DATA DIVISION.                                                   01370001
013800 FILE SECTION.                                                    01380001
013900                                                                  01390001
014000 WORKING-STORAGE SECTION.                                         01400001
014100 01  W-STORAGE-REF                  PIC X(46)  VALUE              01410001
014200     'HHCAL190       - W O R K I N G   S T O R A G E'.            01420001
014300 01  CAL-VERSION                    PIC X(07)  VALUE 'C2019.0'.   01430001
014400 01  CO1                            PIC S9(04) COMP SYNC.         01440001
014500 01  SUB1                           PIC S9(04) COMP SYNC.         01450001
014600 01  SS-QCV                         PIC S9(04) COMP SYNC.         01460001
014700 01  SS-ADJ                         PIC S9(04) COMP SYNC.         01470001
014800 01  R1                             PIC S9(04) COMP SYNC.         01480001
014900 01  R2                             PIC S9(04) COMP SYNC.         01490001
015000 01  R3                             PIC S9(04) COMP SYNC.         01500001
015100 01  WS-STD-VALUE-NLUPA-AMT         PIC 9(7)V9(2) VALUE 0.        01510001
015200 01  WS-STD-VALUE-NLUPA-OUTL        PIC 9(7)V9(2) VALUE 0.        01520001
015300 01  WS-STDV-LUPA-ADDON-FAC         PIC 9(1)V9(4) VALUE 0.        01530001
015400 01  WS-STDV-RURAL-FAC              PIC 9V9999 VALUE 1.0043.      01540001
015500 01  WS-STDV-EPISODE-AMT            PIC 9(05)V9(02) VALUE 0.      01550001
015510 01  WS-STDV-FED-SUPPLY-ADJ         PIC S9(07)V9(02) VALUE 0.     01551001
015600*-------------------------------------------------------------*   01552001
015700*    RURAL ADD ON PERCENTAGES FOR CY2019                      *   01553001
015800*-------------------------------------------------------------*   01554001
015810 01  WS-RURAL-ADDON-A               PIC 9V999 VALUE 1.015.        01555001
015820 01  WS-RURAL-ADDON-B               PIC 9V999 VALUE 1.040.        01556001
015830 01  WS-RURAL-ADDON-C               PIC 9V999 VALUE 1.030.        01557001
015840 01  WS-RURAL-CATEGORY              PIC X     VALUE SPACE.        01558001
015850***************************************************************   01559001
015860*   YEARCHANGE - UPDATED FOR 2019                             *   01560001
015870*-------------------------------------------------------------*   01570001
015880* - FROM CLAIM EXAMPLE SPREAD SHEET HIPPSPAYCALC TAB          *   01580001
015890***************************************************************   01581001
015900 01  LABOR-NLABOR-PERCENT.                                        01582001
016000     05 LABOR-PERCENT        PIC 9V9(05)  VALUE 0.76100.          01583001
016100     05 NONLABOR-PERCENT     PIC 9V9(05)  VALUE 0.23900.          01584001
016200***************************************************************   01585001
016300*   YEARCHANGE - NO CHANGE FOR 2019                           *   01586001
016400***************************************************************   01587001
016500 01  LUPA-ADD-ON                  PIC 9(03)V9(02) VALUE 093.96.   01588001
016600 01  LUPA-ADD-ON-RURAL            PIC 9(03)V9(02) VALUE 096.78.   01589001
016700 01  LUPA-ADD-ON-2PERCENT         PIC 9(03)V9(02) VALUE 095.85.   01590001
016800 01  LUPA-ADD-ON-2PERCENT-RUR     PIC 9(03)V9(02) VALUE 098.73.   01600001
016900***************************************************************   01610001
017000*   YEARCHANGE - NO CHANGE FOR 2019                           *   01620001
017100***************************************************************   01630001
017200 01  LUPA-ADD-ON-SN4              PIC 9(01)V9(04) VALUE 00.8451.  01640001
017300 01  LUPA-ADD-ON-PT1              PIC 9(01)V9(04) VALUE 00.6700.  01650001
017400 01  LUPA-ADD-ON-SLT3             PIC 9(01)V9(04) VALUE 00.6266.  01660001
017500***************************************************************** 01670001
017600*   YEARCHANGE - NO CHANGE FOR 2019                           *   01680001
017700***    EXAMPLE    *********************************************** 01690001
017800*** FED-EPISODE-RATE-AMT TIMES 1.13 = OUTLIER-THRESHOLD-AMT ***** 01700001
017900******  2327.68 TIMES 0.65  = 1512.99  ROUNDED UP  ************** 01710001
018000***************************************************************** 01720001
018100 01  OUTL-LOSS-SHAR-RATIO-PERCENT PIC 9(01)V9(02) VALUE 0.80.     01730001
018200                                                                  01740001
018300 01  LUPA-LABOR-ADJ               PIC 9(03)V9(02).                01750001
018400 01  LUPA-NON-LABOR-ADJ           PIC 9(03)V9(02).                01760001
018500 01  FED-EPISODE-RATE-AMT         PIC 9(05)V9(02) VALUE 0.        01770001
018600 01  OUTLIER-THRESHOLD-AMT        PIC 9(05)V9(02) VALUE 0.        01780001
018700                                                                  01790001
018800 01  WK-PEP-DAYS           PIC S9(04)       VALUE 0.              01800001
018900 01  WK-HRG-NO-OF-DAYS     PIC S9(04)       VALUE 0.              01810001
019000 01  WK-HRG-NO-OF-DAYS-FAC PIC S9(04)V9(06) VALUE 0.              01820001
019100 01  WK-HRG-NO-OF-DAYS-TOT PIC S9(04)       VALUE 0.              01830001
019200 01  WK-RTC-ADJ-IND        PIC 9            VALUE 0.              01840001
019300 01  WK-ALL-TOTALS.                                               01850001
019400     05  FED-ADJ                        PIC S9(07)V9(02).         01860001
019500     05  FED-ADJP                       PIC S9(07)V9(02).         01870001
019600     05  FED-ADJ1                       PIC S9(07)V9(02).         01880001
019700     05  FED-ADJ2                       PIC S9(07)V9(02).         01890001
019800     05  FED-ADJ3                       PIC S9(07)V9(02).         01900001
019900     05  FED-ADJ4                       PIC S9(07)V9(02).         01910001
020000     05  FED-ADJ5                       PIC S9(07)V9(02).         01920001
020100     05  FED-ADJ6                       PIC S9(07)V9(02).         01930001
020200     05  FED-LUPA-ADJ1                  PIC S9(07)V9(02).         01940001
020300     05  FED-LUPA-ADJ2                  PIC S9(07)V9(02).         01950001
020400     05  FED-LUPA-ADJ3                  PIC S9(07)V9(02).         01960001
020500     05  FED-LUPA-ADJ4                  PIC S9(07)V9(02).         01970001
020600     05  FED-LUPA-ADJ5                  PIC S9(07)V9(02).         01980001
020700     05  FED-LUPA-ADJ6                  PIC S9(07)V9(02).         01990001
020800     05  FED-LABOR-ADJ                  PIC S9(07)V9(02).         02000001
020900     05  FED-LABOR-ADJP                 PIC S9(07)V9(02).         02010001
021000     05  FED-LABOR-ADJ1                 PIC S9(07)V9(02).         02020001
021100     05  FED-LABOR-ADJ2                 PIC S9(07)V9(02).         02030001
021200     05  FED-LABOR-ADJ3                 PIC S9(07)V9(02).         02040001
021300     05  FED-LABOR-ADJ4                 PIC S9(07)V9(02).         02050001
021400     05  FED-LABOR-ADJ5                 PIC S9(07)V9(02).         02060001
021500     05  FED-LABOR-ADJ6                 PIC S9(07)V9(02).         02070001
021600     05  FED-LABOR-LUPA-ADJ1            PIC S9(07)V9(02).         02080001
021700     05  FED-LABOR-LUPA-ADJ2            PIC S9(07)V9(02).         02090001
021800     05  FED-LABOR-LUPA-ADJ3            PIC S9(07)V9(02).         02100001
021900     05  FED-LABOR-LUPA-ADJ4            PIC S9(07)V9(02).         02110001
022000     05  FED-LABOR-LUPA-ADJ5            PIC S9(07)V9(02).         02120001
022100     05  FED-LABOR-LUPA-ADJ6            PIC S9(07)V9(02).         02130001
022200     05  FED-SUPPLY-ADJ                 PIC S9(07)V9(02).         02140001
022300     05  FED-NON-LABOR-ADJ              PIC S9(07)V9(02).         02150001
022400     05  FED-NON-LABOR-ADJP             PIC S9(07)V9(02).         02160001
022500     05  FED-NON-LABOR-ADJ1             PIC S9(07)V9(02).         02170001
022600     05  FED-NON-LABOR-ADJ2             PIC S9(07)V9(02).         02180001
022700     05  FED-NON-LABOR-ADJ3             PIC S9(07)V9(02).         02190001
022800     05  FED-NON-LABOR-ADJ4             PIC S9(07)V9(02).         02200001
022900     05  FED-NON-LABOR-ADJ5             PIC S9(07)V9(02).         02210001
023000     05  FED-NON-LABOR-ADJ6             PIC S9(07)V9(02).         02220001
023100     05  FED-NON-LABOR-LUPA-ADJ1        PIC S9(07)V9(02).         02230001
023200     05  FED-NON-LABOR-LUPA-ADJ2        PIC S9(07)V9(02).         02240001
023300     05  FED-NON-LABOR-LUPA-ADJ3        PIC S9(07)V9(02).         02250001
023400     05  FED-NON-LABOR-LUPA-ADJ4        PIC S9(07)V9(02).         02260001
023500     05  FED-NON-LABOR-LUPA-ADJ5        PIC S9(07)V9(02).         02270001
023600     05  FED-NON-LABOR-LUPA-ADJ6        PIC S9(07)V9(02).         02280001
023700     05  OUT-THRES-AMT-ADJ              PIC S9(07)V9(02).         02290001
023800     05  OUT-THRES-LABOR-ADJ            PIC S9(07)V9(02).         02300001
023900     05  OUT-THRES-NON-LABOR-ADJ        PIC S9(07)V9(02).         02310001
024000     05  WK-3000-PEP-N-PRETOT-PAY       PIC S9(07)V9(02).         02320001
024100     05  WK-3000-PEP-N-PAYMENT          PIC S9(07)V9(02).         02330001
024200     05  WK-4000-PEP-Y-PRETOT-PAY       PIC S9(07)V9(02).         02340001
024300     05  WK-4000-PEP-Y-PAYMENT          PIC S9(07)V9(02).         02350001
024400     05  WK-5000-PEP-N-PRETOT-PAY       PIC S9(07)V9(02).         02360001
024500     05  WK-5000-PEP-N-PAYMENT          PIC S9(07)V9(02).         02370001
024600     05  WK-6000-PEP-Y-PRETOT-PAY       PIC S9(07)V9(02).         02380001
024700     05  WK-6000-PEP-Y-PAYMENT          PIC S9(07)V9(02).         02390001
024800     05  WK-6050-PEP-Y-TOT-DAYS         PIC S9(04).               02400001
024900     05  WK-7000-OUTLIER-VALUE-A        PIC S9(07)V9(02).         02410001
025000     05  WK-7000-AB-DIFF                PIC S9(07)V9(02).         02420001
025100     05  WK-7000-CALC                   PIC S9(07)V9(02).         02430001
025200     05  WK-8000-OUTLIER-VALUE-B        PIC S9(07)V9(02).         02440001
025300     05  WK-8000-OUTLIER-LAB-NLAB       PIC S9(07)V9(02).         02450001
025400     05  WK-9100-TOTAL-PAYMENT          PIC 9(07)V9(02).          02460001
025500     05  WK-10000-OUTLIER-POOL-DIF      PIC S9(07)V9(02).         02470001
025600     05  WK-10000-OUTLIER-POOL-PERCENT  PIC S9(09)V9(02).         02480001
025700     05  WK-10000-OUTLIER-AVAIL-POOL    PIC S9(09)V9(02).         02490001
025800                                                                  02500001
025900 01  WORK-HRG.                                                    02510001
026000     05  WORK-HRG1                      PIC X(01).                02520001
026100     05  WORK-HRG2                      PIC X(01).                02530001
026200     05  WORK-HRG3                      PIC X(01).                02540001
026300     05  WORK-HRG4                      PIC X(01).                02550001
026400     05  WORK-HRG5                      PIC X(01).                02560001
026500                                                                  02570001
026600*----------------------------------------------------------------*02580001
026700 01  HOLD-HHA-DATA.                                               02590001
026800     05  H-HHA-INPUT-DATA.                                        02600001
026900         10  H-HHA-NPI                 PIC X(10).                 02610001
027000         10  H-HHA-HIC                 PIC X(12).                 02620001
027100         10  H-HHA-PROV-NO             PIC X(06).                 02630001
027200         10  H-HHA-TOB                 PIC XXX.                   02640001
027300             88 H-VALID-TOB-CLAIM       VALUE                     02650001
027400             '329', '339', '327', '337',                          02660001
027500             '32G', '33G', '32I', '33I',                          02670001
027600             '32J', '33J', '32M', '33M', '32Q',                   02680001
027700             '32F', '32K', '32P', '32H', '33Q',                   02690001
027800             '33F', '33K', '33P', '33H'.                          02700001
027900             88 H-VALID-TOB-RAP         VALUE                     02710001
028000             '322', '332'.                                        02720001
028100*                                                             *   02730001
028200         10  H-HHA-PEP-INDICATOR       PIC X.                     02740001
028300         10  H-HHA-PEP-DAYS            PIC 999.                   02750001
028400         10  H-HHA-INIT-PAY-INDICATOR  PIC X.                     02760001
028500             88 H-HHA-WITH-DATA-CHECK VALUE '0', '1'.             02770001
028600             88 H-HHA-NO-DATA-CHECK   VALUE '2', '3'.             02780001
028700         10  H-HHA-COUNTY-CODE         PIC X(05).                 02790001
028800         10  FILLER                    PIC X(02).                 02800001
028900         10  H-HHA-MSA1                PIC 9(07)V9(02).           02810001
029000         10  H-HHA-MSA2-DATA REDEFINES H-HHA-MSA1.                02820001
029100             15  FILLER             PIC XXX.                      02830001
029200             15  H-HHA-MSA2         PIC XXXX.                     02840001
029300             15  FILLER             PIC XX.                       02850001
029400         10  H-HHA-CBSA-DATA REDEFINES H-HHA-MSA1.                02860001
029500             15  FILLER             PIC XX.                       02870001
029600             15  H-HHA-CBSA         PIC XXXXX.                    02880001
029700             15  FILLER             PIC XX.                       02890001
029800         10  H-HHA-SERV-FROM-DATE.                                02900001
029900             15  H-HHA-FROM-CC         PIC XX.                    02910001
030000             15  H-HHA-FROM-YYMMDD.                               02920001
030100                 25  H-HHA-FROM-YY     PIC XX.                    02930001
030200                 25  H-HHA-FROM-MM     PIC XX.                    02940001
030300                 25  H-HHA-FROM-DD     PIC XX.                    02950001
030400         10  H-HHA-SERV-THRU-DATE.                                02960001
030500             15  H-HHA-THRU-CC         PIC XX.                    02970001
030600             15  H-HHA-THRU-YYMMDD.                               02980001
030700                 25  H-HHA-THRU-YY     PIC XX.                    02990001
030800                 25  H-HHA-THRU-MM     PIC XX.                    03000001
030900                 25  H-HHA-THRU-DD     PIC XX.                    03010001
031000         10  H-HHA-ADMIT-DATE.                                    03020001
031100             15  H-HHA-ADMIT-CC        PIC XX.                    03030001
031200             15  H-HHA-ADMIT-YYMMDD.                              03040001
031300                 25  H-HHA-ADMIT-YY    PIC XX.                    03050001
031400                 25  H-HHA-ADMIT-MM    PIC XX.                    03060001
031500                 25  H-HHA-ADMIT-DD    PIC XX.                    03070001
031600         10  H-HHA-HRG-DATA      OCCURS 6.                        03080001
031700             15  H-HHA-MED-REVIEW-INDICATOR PIC X.                03090001
031800             15  H-HHA-HRG-INPUT-CODE       PIC X(05).            03100001
031900             15  H-HHA-HRG-OUTPUT-CODE      PIC X(05).            03110001
032000             15  H-HHA-HRG-NO-OF-DAYS       PIC 9(03).            03120001
032100             15  H-HHA-HRG-WGTS             PIC 9(02)V9(04).      03130001
032200             15  H-HHA-HRG-PAY              PIC 9(07)V9(02).      03140001
032300         10  H-HHA-REVENUE-DATA     OCCURS 6.                     03150001
032400             15  H-HHA-REVENUE-CODE             PIC X(04).        03160001
032500             15  H-HHA-REVENUE-QTY-COV-VISITS   PIC 9(03).        03170001
032600             15  H-HHA-REVENUE-QTY-OUTL-UNITS   PIC 9(05).        03180001
032700             15  H-HHA-REVENUE-EARLIEST-DATE    PIC 9(08).        03190001
032800             15  H-HHA-REVENUE-DOLL-RATE        PIC 9(07)V9(02).  03200001
032900             15  H-HHA-REVENUE-COST             PIC 9(07)V9(02).  03210001
033000             15  H-HHA-REVENUE-ADD-ON-VISIT-AMT PIC 9(07)V9(02).  03220001
033100     05  H-HHA-PASSBACK-DATA.                                     03230001
033200         10  H-HHA-PAY-RTC                PIC 99.                 03240001
033300         10  H-HHA-REVENUE-SUM1-3-QTY-THR PIC 9(05).              03250001
033400         10  H-HHA-REVENUE-SUM1-6-QTY-ALL PIC 9(05).              03260001
033500         10  H-HHA-OUTLIER-PAYMENT        PIC 9(07)V9(02).        03270001
033600         10  H-HHA-TOTAL-PAYMENT          PIC 9(07)V9(02).        03280001
033700     05  H-HHA-CASE-MIX-DATA.                                     03290001
033800         10  H-HHA-LUPA-ADD-ON-PAYMENT    PIC 9(03)V9(02).        03300001
033900         10  H-HHA-LUPA-SRC-ADM           PIC X.                  03310001
034000         10  H-HHA-RECODE-IND             PIC X.                  03320001
034100         10  H-HHA-EPISODE-TIMING         PIC 9.                  03330001
034200         10  H-HHA-SEVERITY-POINTS.                               03340001
034300             15  H-HHA-CLINICAL-SEV-EQ1   PIC X(01).              03350001
034400             15  H-HHA-FUNCTION-SEV-EQ1   PIC X(01).              03360001
034500             15  H-HHA-CLINICAL-SEV-EQ2   PIC X(01).              03370001
034600             15  H-HHA-FUNCTION-SEV-EQ2   PIC X(01).              03380001
034700             15  H-HHA-CLINICAL-SEV-EQ3   PIC X(01).              03390001
034800             15  H-HHA-FUNCTION-SEV-EQ3   PIC X(01).              03400001
034900             15  H-HHA-CLINICAL-SEV-EQ4   PIC X(01).              03410001
035000             15  H-HHA-FUNCTION-SEV-EQ4   PIC X(01).              03420001
035100     05  H-HHA-PROV-TOTAL-DATA.                                   03430001
035200         10  H-HHA-PROV-OUTLIER-PAY-TOTAL PIC 9(08)V9(02).        03440001
035300         10  H-HHA-PROV-PAYMENT-TOTAL     PIC 9(09)V9(02).        03450001
035400     05  H-HHA-PROV-VBP-ADJ-FAC           PIC 9V9(5).             03460001
035500     05  H-HHA-VBP-ADJ-AMT                PIC S9(7)V99.           03470001
035600     05  H-HHA-PPS-STD-VALUE              PIC 9(7)V99.            03480001
035700     05  FILLER                           PIC X(27).              03490001
035800*----------------------------------------------------------------*03500001
035900*    STATE & COUNTY CODE RURAL ADD ON TABLE                      *03510001
036000*----------------------------------------------------------------*03520001
036100     COPY ADDONTBL.                                               03530001
036200*----------------------------------------------------------------*03540001
036300 LINKAGE SECTION.                                                 03550001
036400***************************************************************   03560001
036500*                 * * * * * * * * *                           *   03570001
036600***************************************************************   03580001
036610***************************************************************   03590001
036620*    THIS DATA IS CALCULATED BY THIS HHAPR  SUBROUTINE        *   03600001
036630*    AND PASSED BACK TO THE CALLING PROGRAM                   *   03610001
036640***************************************************************   03620001
036650 01  HHA-INPUT-DATA.                                              03630001
036660     05  HHA-DATA.                                                03640001
036670         10  HHA-NPI                 PIC X(10).                   03650001
036680         10  HHA-HIC                 PIC X(12).                   03660001
036690         10  HHA-PROV-NO             PIC X(06).                   03661001
036700         10  HHA-TOB                 PIC XXX.                     03662001
036800             88 HHA-VALID-TOB-CLAIM       VALUE                   03663001
036900             '329', '339', '327', '337',                          03664001
037000             '32G', '33G', '32I', '33I',                          03665001
037100             '32J', '33J', '32M', '33M', '32Q',                   03666001
037200             '32F', '32K', '32P', '32H', '33Q',                   03667001
037300             '33F', '33K', '33P', '33H'.                          03668001
037400             88 HHA-VALID-TOB-RAP         VALUE                   03669001
037500             '322', '332'.                                        03670001
037600*                                                             *   03680001
037700         10  HHA-PEP-INDICATOR       PIC X.                       03690001
037800         10  HHA-PEP-DAYS            PIC 999.                     03700001
037900         10  HHA-INIT-PAY-INDICATOR  PIC X.                       03710001
038000             88  HHA-WITH-DATA-CHECK VALUE '0', '1'.              03720001
038100             88  HHA-NO-DATA-CHECK   VALUE '2', '3'.              03730001
038200         10  HHA-COUNTY-CODE         PIC X(05).                   03740001
038300         10  FILLER                  PIC X(02).                   03750001
038400         10  HHA-MSA1                PIC 9(07)V9(02).             03760001
038500         10  HHA-MSA2-DATA REDEFINES HHA-MSA1.                    03770001
038600             15  FILLER             PIC XXX.                      03780001
038700             15  HHA-MSA2.                                        03790001
038800                 25  HHA-MSA2-RURAL-1ST.                          03800001
038900                     30  HHA-RURAL-MSA         PIC XX.            03810001
039000                     88  HHA-MSA-RURAL-CHECK   VALUE '99'.        03820001
039100                 25  HHA-MSA2-RURAL-2ND        PIC XX.            03830001
039200             15  FILLER             PIC XX.                       03840001
039300         10  HHA-CBSA-DATA REDEFINES HHA-MSA1.                    03850001
039400             15  FILLER             PIC XX.                       03860001
039500             15  HHA-CBSA.                                        03870001
039600                 88  HHA-CBSA-RURAL-CHECK-ALL VALUE               03880001
039700                 '50001', '50002', '50005', '50007', '50025',     03890001
039800                 '50028', '50031', '50035', '50036', '50037',     03900001
039900                 '50041', '50045', '50047', '50048', '50050',     03910001
040000                 '50056', '50057', '50066', '50068', '50071',     03920001
040100                 '50073', '50080', '50084', '50087', '50089',     03930001
040200                 '50090', '50091', '50103', '50104', '50111',     03940001
040300                 '50115', '50117', '50118', '50120', '50121',     03950001
040400                 '50139', '50146', '50147', '50149', '50151',     03960001
040500                 '50164', '50165', '50168', '50169', '50173',     03970001
040600                 '50174', '50177', '50180', '50182', '50183'.     03980001
040700*                                                                 03990001
040800                 25  HHA-CBSA-RURAL-1ST.                          04000001
040900                     30  HHA-RURAL-CBSA        PIC XXX.           04010001
041000                     88  HHA-CBSA-RURAL-CHECK   VALUE '999'.      04020001
041100                 25  HHA-CBSA-RURAL-2ND        PIC XX.            04030001
041200             15  FILLER             PIC XX.                       04040001
041300         10  HHA-SERV-FROM-DATE.                                  04050001
041400             15  HHA-FROM-CC         PIC XX.                      04060001
041500             15  HHA-FROM-YYMMDD.                                 04070001
041600                 25  HHA-FROM-YY     PIC XX.                      04080001
041700                 25  HHA-FROM-MM     PIC XX.                      04090001
041800                 25  HHA-FROM-DD     PIC XX.                      04100001
041900         10  HHA-SERV-THRU-DATE.                                  04110001
042000             15  HHA-THRU-CC         PIC XX.                      04120001
042100             15  HHA-THRU-YYMMDD.                                 04130001
042200                 25  HHA-THRU-YY     PIC XX.                      04140001
042300                 25  HHA-THRU-MM     PIC XX.                      04150001
042400                 25  HHA-THRU-DD     PIC XX.                      04160001
042500         10  HHA-ADMIT-DATE.                                      04170001
042600             15  HHA-ADMIT-CC        PIC XX.                      04180001
042700             15  HHA-ADMIT-YYMMDD.                                04190001
042800                 25  HHA-ADMIT-YY    PIC XX.                      04200001
042900                 25  HHA-ADMIT-MM    PIC XX.                      04210001
043000                 25  HHA-ADMIT-DD    PIC XX.                      04220001
043100         10  HHA-HRG-DATA      OCCURS 6.                          04230001
043200             15  HHA-MED-REVIEW-INDICATOR PIC X.                  04240001
043300             15  HHA-HRG-INPUT-CODE       PIC X(05).              04250001
043400             15  HHA-HRG-OUTPUT-CODE      PIC X(05).              04260001
043500             15  HHA-HRG-NO-OF-DAYS       PIC 9(03).              04270001
043600             15  HHA-HRG-WGTS             PIC 9(02)V9(04).        04280001
043700             15  HHA-HRG-PAY              PIC 9(07)V9(02).        04290001
043800         10  HHA-REVENUE-DATA     OCCURS 6.                       04300001
043900             15  HHA-REVENUE-CODE             PIC X(04).          04310001
044000             15  HHA-REVENUE-QTY-COV-VISITS   PIC 9(03).          04320001
044100             15  HHA-REVENUE-QTY-OUTL-UNITS   PIC 9(05).          04330001
044200             15  HHA-REVENUE-EARLIEST-DATE    PIC 9(08).          04340001
044300             15  HHA-REVENUE-DOLL-RATE        PIC 9(07)V9(02).    04350001
044400             15  HHA-REVENUE-COST             PIC 9(07)V9(02).    04360001
044500             15  HHA-REVENUE-ADD-ON-VISIT-AMT PIC 9(07)V9(02).    04370001
044600     05  HHA-PASSBACK-DATA.                                       04380001
044700         10  HHA-PAY-RTC                PIC 99.                   04390001
044800         10  HHA-REVENUE-SUM1-3-QTY-THR PIC 9(05).                04400001
044900         10  HHA-REVENUE-SUM1-6-QTY-ALL PIC 9(05).                04410001
045000         10  HHA-OUTLIER-PAYMENT        PIC 9(07)V9(02).          04420001
045100         10  HHA-TOTAL-PAYMENT          PIC 9(07)V9(02).          04430001
045200     05  HHA-CASE-MIX-DATA.                                       04440001
045300         10  HHA-LUPA-ADD-ON-PAYMENT      PIC 9(03)V9(02).        04450001
045400         10  HHA-LUPA-SRC-ADM             PIC X.                  04460001
045500         10  HHA-RECODE-IND               PIC X.                  04470001
045600         10  HHA-EPISODE-TIMING           PIC 9.                  04480001
045700         10  HHA-SEVERITY-POINTS.                                 04490001
045800             15  HHA-CLINICAL-SEV-EQ1     PIC X(01).              04500001
045900             15  HHA-FUNCTION-SEV-EQ1     PIC X(01).              04510001
046000             15  HHA-CLINICAL-SEV-EQ2     PIC X(01).              04520001
046100             15  HHA-FUNCTION-SEV-EQ2     PIC X(01).              04530001
046200             15  HHA-CLINICAL-SEV-EQ3     PIC X(01).              04540001
046300             15  HHA-FUNCTION-SEV-EQ3     PIC X(01).              04550001
046400             15  HHA-CLINICAL-SEV-EQ4     PIC X(01).              04560001
046500             15  HHA-FUNCTION-SEV-EQ4     PIC X(01).              04570001
046600     05  HHA-PROV-TOTAL-DATA.                                     04580001
046700         10  HHA-PROV-OUTLIER-PAY-TOTAL PIC 9(08)V9(02).          04590001
046800         10  HHA-PROV-PAYMENT-TOTAL     PIC 9(09)V9(02).          04600001
046900     05  HHA-PROV-VBP-ADJ-FAC           PIC 9V9(5).               04610001
047000     05  HHA-VBP-ADJ-AMT                PIC S9(7)V99.             04620001
047100     05  HHA-PPS-STD-VALUE              PIC 9(7)V99.              04630001
047200     05  FILLER                         PIC X(27).                04640001
047300*----------------------------------------------------------------*04650001
047400                                                                  04660001
047500 01  HOLD-VARIABLES-DATA.                                         04670001
047600     02  HOLD-VAR-DATA.                                           04680001
047700         05  PRICER-OPTION-SW                   PIC X(01).        04690001
047800         05  HHOPN-VERSION                      PIC X(07).        04700001
047900         05  HHDRV-VERSION                      PIC X(07).        04710001
048000         05  HHCAL-VERSION                      PIC X(07).        04720001
048100         05  FILLER                             PIC X(20).        04730001
048200                                                                  04740001
048300 01  CBSA-WAGE-INDEX-DATA.                                        04750001
048400     02  HOLD-WIR-DATA.                                           04760001
048500         05  WIR-CBSA                       PIC X(05).            04770001
048600         05  WIR-CBSA-EFFDATE               PIC X(08).            04780001
048700         05  WIR-CBSA-WAGEIND               PIC 9(02)V9(04).      04790001
048800                                                                  04800001
048900 01  TB-REV-DOLL-RATE-UNITS.                                      04810001
049000     05 WK-REV-DOLL-RATE-UNITS  PIC 9(07)V9(02)                   04820001
049100                                OCCURS 6.                         04830001
049200 01  TB-STDV-DATA.                                                04840001
049300     05 TB-STDV-TABLE           OCCURS 6.                         04850001
049400        10  TB-STDV-REV-CODE           PIC X(04).                 04860001
049500        10  TB-STDV-REV-DOLL-RATE      PIC 9(07)V9(02).           04870001
049600                                                                  04880001
049700 PROCEDURE DIVISION  USING HHA-INPUT-DATA                         04890001
049800                           HOLD-VARIABLES-DATA                    04900001
049900                           CBSA-WAGE-INDEX-DATA                   04910001
050000                           TB-REV-DOLL-RATE-UNITS                 04920001
050100                           TB-STDV-DATA.                          04930001
050200                                                                  04940001
050300***************************************************************   04950001
050400*    PROCESSING:                                              *   04960001
050500*        A. WILL PROCESS NATIONAL HHA FOR CY 2010             *   04970001
050600*                STARTING JAN 1, 2010                         *   04980001
050700***************************************************************   04990001
050800                                                                  05000001
050900     MOVE CAL-VERSION TO HHCAL-VERSION.                           05010001
051000                                                                  05020001
051100     PERFORM 200-MAINLINE-CONTROL THRU 200-EXIT.                  05030001
051200                                                                  05040001
051300*         YEARCHANGE  2014.1                      ===========**   05050001
051400     MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT.                        05060001
051500*         YEARCHANGE  2014.1                      ===========**   05070001
051600                                                                  05080001
051700*----------------------------------------------------------------*05090001
051800* CALCULATE THE HHA-PPS-STD-VALUE                                *05100001
051900*----------------------------------------------------------------*05110001
052000     PERFORM 9200-CALC-STD-VALUE  THRU 9200-EXIT.                 05120001
052010*----------------------------------------------------------------*05130001
052020* CALCULATE THE HHA-VBP-ADJ-AMT                                  *05140001
052030*----------------------------------------------------------------*05150001
052040     PERFORM 9100-VBP-CALC        THRU 9100-EXIT.                 05160001
052050                                                                  05170001
052060     MOVE HOLD-HHA-DATA TO HHA-INPUT-DATA.                        05180001
052070                                                                  05190001
052080     GOBACK.                                                      05200001
052090                                                                  05201001
052100 200-MAINLINE-CONTROL.                                            05202001
052200                                                                  05203001
052300     MOVE HHA-INPUT-DATA TO HOLD-HHA-DATA.                        05204001
052400                                                                  05205001
052500     MOVE SPACE   TO WS-RURAL-CATEGORY.                           05206001
052510                                                                  05207001
052520     MOVE ALL '0' TO                                              05208001
052530                     WK-ALL-TOTALS                                05209001
052540                     WK-HRG-NO-OF-DAYS                            05210001
052550                     WK-HRG-NO-OF-DAYS-TOT                        05220001
052560                     WK-RTC-ADJ-IND                               05230001
052570                     WK-PEP-DAYS                                  05240001
052580                     H-HHA-PASSBACK-DATA                          05250001
052590                     H-HHA-HRG-PAY (1)                            05251001
052600                     H-HHA-HRG-PAY (2)                            05252001
052700                     H-HHA-HRG-PAY (3)                            05253001
052800                     H-HHA-HRG-PAY (4)                            05254001
052900                     H-HHA-HRG-PAY (5)                            05255001
053000                     H-HHA-HRG-PAY (6)                            05256001
053100                     H-HHA-REVENUE-COST (1)                       05257001
053200                     H-HHA-REVENUE-COST (2)                       05258001
053300                     H-HHA-REVENUE-COST (3)                       05259001
053400                     H-HHA-REVENUE-COST (4)                       05260001
053500                     H-HHA-REVENUE-COST (5)                       05270001
053600                     H-HHA-REVENUE-COST (6)                       05280001
053700                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)           05290001
053800                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)           05300001
053900                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)           05310001
054000                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)           05320001
054100                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (5)           05330001
054200                     H-HHA-REVENUE-ADD-ON-VISIT-AMT (6).          05340001
054300                                                                  05350001
054400     IF  H-HHA-PAY-RTC = 00                                       05360001
054500         PERFORM 400-CALC-THE-HHA THRU 400-EXIT.                  05370001
054600                                                                  05380001
054700 200-EXIT.   EXIT.                                                05390001
054800                                                                  05400001
054900 400-CALC-THE-HHA.                                                05410001
055000                                                                  05420001
055100*    IF H-HHA-SERV-THRU-DATE < 20070101                           05430001
055200*        MOVE '40' TO H-HHA-PAY-RTC                               05440001
055300*        GO TO 400-EXIT.                                          05450001
055400                                                                  05460001
055500     IF H-HHA-ADMIT-DATE >                                        05470001
055600        H-HHA-SERV-FROM-DATE                                      05480001
055700         MOVE '40' TO H-HHA-PAY-RTC                               05490001
055800         GO TO 400-EXIT.                                          05500001
055900                                                                  05510001
056000     IF (H-VALID-TOB-RAP  AND                                     05520001
056100        (H-HHA-HRG-INPUT-CODE (1) = SPACE))                       05530001
056200        MOVE '70' TO H-HHA-PAY-RTC                                05540001
056300        GO TO 400-EXIT.                                           05550001
056400                                                                  05560001
056500     IF (H-VALID-TOB-CLAIM AND                                    05570001
056600         (H-HHA-REVENUE-SUM1-6-QTY-ALL > 4 ) AND                  05580001
056700         (H-HHA-HRG-INPUT-CODE (1) = SPACE))                      05590001
056800        MOVE '75' TO H-HHA-PAY-RTC                                05600001
056900        GO TO 400-EXIT.                                           05610001
057000                                                                  05620001
057100     IF (H-VALID-TOB-CLAIM AND                                    05630001
057200         (H-HHA-REVENUE-CODE (1) = SPACE))                        05640001
057300        MOVE '85' TO H-HHA-PAY-RTC                                05650001
057400        GO TO 400-EXIT.                                           05660001
057500                                                                  05670001
057600     IF (H-VALID-TOB-CLAIM AND                                    05680001
057700         (H-HHA-HRG-INPUT-CODE (2) NOT = SPACES) AND              05690001
057800         (H-HHA-PEP-INDICATOR = 'Y') AND                          05700001
057900         (H-HHA-PEP-DAYS NOT NUMERIC OR                           05710001
058000          H-HHA-PEP-DAYS = ZEROES))                               05720001
058100        MOVE '15' TO H-HHA-PAY-RTC                                05730001
058200        GO TO 400-EXIT.                                           05740001
058300                                                                  05750001
058400     IF H-HHA-PAY-RTC NOT = 00 GO TO 400-EXIT.                    05760001
058500                                                                  05770001
058600***************************************************************   05780001
058700*                 YEARCHANGE                                  *   05790001
058800*-------------------------------------------------------------*   05800001
058900* RATES AND THRESHOLDS ARE APPLIED FOR RURAL AND NON-RURAL    *   05810001
059000*-------------------------------------------------------------*   05820001
059100* OUTLIER-THRESHOLD-AMT = FED-EPISODE-RATE-AMT X .51          *   05830001
059200***************************************************************   05840001
059300*-------------------------------------------------------------*   05850001
059400*   NON-RURAL, REPORTING DATA  -  TABLE 1                     *   05860001
059500*   ( SAVE FOR STANDARD VALUE CALCULATION )                   *   05870001
059600*-------------------------------------------------------------*   05880001
059610     MOVE 03154.27           TO  WS-STDV-EPISODE-AMT.             05890001
059620*-------------------------------------------------------------*   05900001
059630*   RURAL, REPORTING DATA    - TABLE 8, 1ST GROUP, 2ND COL    *   05910001
059640*-------------------------------------------------------------*   05920001
059650     IF HHA-CBSA-RURAL-CHECK                                      05930001
059660     OR HHA-CBSA-RURAL-CHECK-ALL                                  05940001
059670        IF HHA-WITH-DATA-CHECK                                    05950001
059671           MOVE 03154.27 TO   FED-EPISODE-RATE-AMT                05960001
059672           MOVE 01608.68 TO   OUTLIER-THRESHOLD-AMT               05961001
059673           PERFORM 2000-TBL-SCC-SEARCH THRU 2000-EXIT             05962001
059674           IF H-HHA-PAY-RTC = '31'                                05963001
059675              GO TO 400-EXIT                                      05964001
059676           ELSE                                                   05965001
059677              GO TO PROCESS-PAYMENT                               05966001
059678           END-IF                                                 05967001
059679        END-IF                                                    05967101
059680     END-IF.                                                      05967201
059690*-------------------------------------------------------------*   05967301
059691*   RURAL, NO REPORTING DATA - TABLE 7, 2ND GROUP, 2ND COL    *   05967401
059692*-------------------------------------------------------------*   05967501
059693     IF HHA-CBSA-RURAL-CHECK                                      05967601
059694     OR HHA-CBSA-RURAL-CHECK-ALL                                  05967701
059695        IF HHA-NO-DATA-CHECK                                      05967801
059696           MOVE 03092.55 TO   FED-EPISODE-RATE-AMT                05967901
059697           MOVE 01577.20 TO   OUTLIER-THRESHOLD-AMT               05968001
059698           PERFORM 2000-TBL-SCC-SEARCH THRU 2000-EXIT             05969001
059699           IF H-HHA-PAY-RTC = '31'                                05969101
059700              GO TO 400-EXIT                                      05969201
059701           ELSE                                                   05969301
059702              GO TO PROCESS-PAYMENT                               05969401
059703           END-IF                                                 05969501
059704        END-IF                                                    05969601
059705     END-IF.                                                      05969701
059706*-------------------------------------------------------------*   05969801
059707*   NON-RURAL, REPORTING DATA  -  TABLE 1                     *   05969901
059708*-------------------------------------------------------------*   05970001
059709     IF HHA-WITH-DATA-CHECK                                       05970101
059710        MOVE 03154.27 TO   FED-EPISODE-RATE-AMT                   05970201
059711        MOVE 01608.68 TO   OUTLIER-THRESHOLD-AMT                  05970301
059712        GO TO PROCESS-PAYMENT                                     05970401
059713     END-IF.                                                      05970501
059714*-------------------------------------------------------------*   05970601
059715*   NON-RURAL, NO REPORTING DATA - TABLE 2                    *   05970701
059716*-------------------------------------------------------------*   05970801
059717     IF HHA-NO-DATA-CHECK                                         05970901
059718        MOVE 03092.55 TO   FED-EPISODE-RATE-AMT                   05971001
059719        MOVE 01577.20 TO   OUTLIER-THRESHOLD-AMT                  05971101
059720        GO TO PROCESS-PAYMENT                                     05971201
059721     END-IF.                                                      05971301
059722                                                                  05971401
059723 PROCESS-PAYMENT.                                                 05971501
059724                                                                  05971601
059725* ADJUST REVENUE-DOLL-RATE IF RURAL                               05971701
059726     PERFORM 425-ADJ-REV-DOLL-RATE THRU 425-EXIT                  05971801
059727             VARYING SS-ADJ FROM 1 BY 1                           05971901
059728             UNTIL SS-ADJ > 6.                                    05972001
059729                                                                  05972101
059730     IF H-VALID-TOB-RAP                                           05972201
059740        PERFORM 500-INITIAL-PAYMENT THRU 500-EXIT                 05972301
059750        GO TO 400-EXIT.                                           05972401
059760                                                                  05972501
059770     IF H-VALID-TOB-CLAIM                                         05972601
059780        PERFORM 1000-FINAL-PAYMENT THRU 1000-EXIT                 05972701
059790        GO TO 400-EXIT.                                           05972801
059800                                                                  05972901
059900     MOVE '10' TO H-HHA-PAY-RTC.                                  05973001
060000                                                                  05974001
060100 400-EXIT.   EXIT.                                                05975001
060200                                                                  05976001
060300 425-ADJ-REV-DOLL-RATE.                                           05977001
060301     IF WS-RURAL-CATEGORY = 'A'                                   05978001
060302         COMPUTE H-HHA-REVENUE-DOLL-RATE (SS-ADJ) ROUNDED =       05979001
060303                 H-HHA-REVENUE-DOLL-RATE (SS-ADJ) *               05980001
060304                 WS-RURAL-ADDON-A                                 05990001
060305     END-IF.                                                      06000001
060306     IF WS-RURAL-CATEGORY = 'B'                                   06010001
060307         COMPUTE H-HHA-REVENUE-DOLL-RATE (SS-ADJ) ROUNDED =       06020001
060308                 H-HHA-REVENUE-DOLL-RATE (SS-ADJ) *               06030001
060309                 WS-RURAL-ADDON-B                                 06030101
060310     END-IF.                                                      06030201
060311     IF WS-RURAL-CATEGORY = 'C'                                   06030301
060312         COMPUTE H-HHA-REVENUE-DOLL-RATE (SS-ADJ) ROUNDED =       06030401
060313                 H-HHA-REVENUE-DOLL-RATE (SS-ADJ) *               06030501
060314                 WS-RURAL-ADDON-C                                 06030601
060315     END-IF.                                                      06030701
060316 425-EXIT.    EXIT.                                               06030801
060317                                                                  06030901
060318 500-INITIAL-PAYMENT.                                             06031001
060319                                                                  06031101
060320     MOVE H-HHA-HRG-OUTPUT-CODE (1) TO WORK-HRG.                  06031201
060321                                                                  06031301
060322***************************************************************   06031401
060330*            TOB = 322 OR 332 INITIAL PAYMENT                     06031501
060340***************************************************************   06031601
060350                                                                  06031701
060360     IF  H-HHA-INIT-PAY-INDICATOR  = '0' OR '1' OR '2' OR '3'     06031801
060370         NEXT SENTENCE                                            06031901
060380     ELSE                                                         06032001
060390         MOVE '35' TO H-HHA-PAY-RTC                               06033001
060400         GO TO 500-EXIT.                                          06034001
060500                                                                  06035001
060600     IF  H-HHA-INIT-PAY-INDICATOR  = '1' OR '3'                   06036001
060700         MOVE '03' TO H-HHA-PAY-RTC                               06037001
060800         GO TO 500-EXIT.                                          06038001
060900                                                                  06039001
061000     COMPUTE FED-ADJ ROUNDED =                                    06040001
061100               H-HHA-HRG-WGTS (1) * FED-EPISODE-RATE-AMT.         06050001
061200                                                                  06060001
061300     COMPUTE FED-LABOR-ADJ ROUNDED =                              06070001
061400             WIR-CBSA-WAGEIND *                                   06080001
061500             LABOR-PERCENT *                                      06090001
061600             FED-ADJ.                                             06100001
061700                                                                  06110001
061800     COMPUTE FED-NON-LABOR-ADJ ROUNDED =                          06120001
061900              (NONLABOR-PERCENT * FED-ADJ).                       06130001
062000                                                                  06140001
062300*         YEARCHANGE                              ===========**   06150001
062400                                                                  06160001
062500      PERFORM 10100-SUPPLY-ADD-ON-CALC  THRU 10100-EXIT.          06170001
062600                                                                  06180001
062700*         YEARCHANGE                              ===========**   06190001
062800                                                                  06200001
062900*    IF HHA-SERV-THRU-DATE > 20071231 AND                         06210001
063000*       HHA-SERV-FROM-DATE > 20071231                             06220001
063100*        NEXT SENTENCE                                            06230001
063200*    ELSE                                                         06240001
063300*        MOVE 0000000.00 TO FED-SUPPLY-ADJ.                       06250001
063400                                                                  06260001
063500                                                                  06270001
063600     IF H-HHA-SERV-FROM-DATE = H-HHA-ADMIT-DATE                   06280001
063700        COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                     06290001
063800       (FED-LABOR-ADJ + FED-NON-LABOR-ADJ + FED-SUPPLY-ADJ) * .6  06300001
063900        MOVE H-HHA-TOTAL-PAYMENT TO H-HHA-HRG-PAY (1)             06310001
064000        MOVE '05' TO H-HHA-PAY-RTC                                06320001
064100     ELSE                                                         06330001
064200        COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                     06340001
064300       (FED-LABOR-ADJ + FED-NON-LABOR-ADJ + FED-SUPPLY-ADJ) * .5  06350001
064400        MOVE H-HHA-TOTAL-PAYMENT TO H-HHA-HRG-PAY (1)             06360001
064500        MOVE '04' TO H-HHA-PAY-RTC.                               06370001
064600                                                                  06380001
064700 500-EXIT.   EXIT.                                                06390001
064800                                                                  06400001
064900 1000-FINAL-PAYMENT.                                              06410001
065000                                                                  06420001
065100     IF H-HHA-REVENUE-QTY-COV-VISITS (1) NOT NUMERIC              06430001
065200        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (1).          06440001
065300     IF H-HHA-REVENUE-QTY-COV-VISITS (2) NOT NUMERIC              06450001
065400        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (2).          06460001
065500     IF H-HHA-REVENUE-QTY-COV-VISITS (3) NOT NUMERIC              06470001
065600        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (3).          06480001
065700     IF H-HHA-REVENUE-QTY-COV-VISITS (4) NOT NUMERIC              06490001
065800        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (4).          06500001
065900     IF H-HHA-REVENUE-QTY-COV-VISITS (5) NOT NUMERIC              06510001
066000        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (5).          06520001
066100     IF H-HHA-REVENUE-QTY-COV-VISITS (6) NOT NUMERIC              06530001
066200        MOVE ZEROES TO H-HHA-REVENUE-QTY-COV-VISITS (6).          06540001
066300                                                                  06550001
066400     IF H-HHA-REVENUE-QTY-OUTL-UNITS (1) NOT NUMERIC              06560001
066500        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (1).          06570001
066600     IF H-HHA-REVENUE-QTY-OUTL-UNITS (2) NOT NUMERIC              06580001
066700        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (2).          06590001
066800     IF H-HHA-REVENUE-QTY-OUTL-UNITS (3) NOT NUMERIC              06600001
066900        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (3).          06610001
067000     IF H-HHA-REVENUE-QTY-OUTL-UNITS (4) NOT NUMERIC              06620001
067100        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (4).          06630001
067200     IF H-HHA-REVENUE-QTY-OUTL-UNITS (5) NOT NUMERIC              06640001
067300        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (5).          06650001
067400     IF H-HHA-REVENUE-QTY-OUTL-UNITS (6) NOT NUMERIC              06660001
067500        MOVE ZEROES TO H-HHA-REVENUE-QTY-OUTL-UNITS (6).          06670001
067600                                                                  06680001
067700     COMPUTE H-HHA-REVENUE-SUM1-3-QTY-THR ROUNDED =               06690001
067800             H-HHA-REVENUE-QTY-COV-VISITS (1) +                   06700001
067900             H-HHA-REVENUE-QTY-COV-VISITS (2) +                   06710001
068000             H-HHA-REVENUE-QTY-COV-VISITS (3).                    06720001
068100     COMPUTE H-HHA-REVENUE-SUM1-6-QTY-ALL ROUNDED =               06730001
068200             H-HHA-REVENUE-QTY-COV-VISITS (1) +                   06740001
068300             H-HHA-REVENUE-QTY-COV-VISITS (2) +                   06750001
068400             H-HHA-REVENUE-QTY-COV-VISITS (3) +                   06760001
068500             H-HHA-REVENUE-QTY-COV-VISITS (4) +                   06770001
068600             H-HHA-REVENUE-QTY-COV-VISITS (5) +                   06780001
068700             H-HHA-REVENUE-QTY-COV-VISITS (6).                    06790001
068800                                                                  06800001
068900     MOVE H-HHA-HRG-OUTPUT-CODE (1) TO WORK-HRG.                  06810001
069000                                                                  06820001
069100     IF H-HHA-REVENUE-SUM1-6-QTY-ALL < 5                          06830001
069200       NEXT SENTENCE                                              06840001
069300     ELSE                                                         06850001
069400       GO TO PEP-CHECK.                                           06860001
069500                                                                  06870001
069600*01  LUPA-ADD-ON                                                  06880001
069700*01  LUPA-ADD-ON-RURAL                                            06890001
069800*01  LUPA-ADD-ON-2PERCENT                                         06900001
069900*01  LUPA-ADD-ON-2PERCENT-RUR                                     06910001
070000                                                                  06920001
070100     IF HHA-WITH-DATA-CHECK                                       06930001
070200        IF HHA-CBSA-RURAL-CHECK                                   06940001
070300        OR HHA-CBSA-RURAL-CHECK-ALL                               06950001
070400           IF WS-RURAL-CATEGORY = 'A'                             06960001
070500              COMPUTE LUPA-ADD-ON-2PERCENT-RUR ROUNDED =          06970001
070600                      LUPA-ADD-ON-2PERCENT-RUR *                  06980001
070700                      WS-RURAL-ADDON-A                            06990001
070800           END-IF                                                 07000001
070900           IF WS-RURAL-CATEGORY = 'B'                             07010001
071000              COMPUTE LUPA-ADD-ON-2PERCENT-RUR ROUNDED =          07020001
071100                      LUPA-ADD-ON-2PERCENT-RUR *                  07030001
071200                                       WS-RURAL-ADDON-B           07040001
071300           END-IF                                                 07050001
071400           IF WS-RURAL-CATEGORY = 'C'                             07060001
071410              COMPUTE LUPA-ADD-ON-2PERCENT-RUR ROUNDED =          07070001
071411                      LUPA-ADD-ON-2PERCENT-RUR *                  07080001
071412                                       WS-RURAL-ADDON-C           07090001
071413           END-IF                                                 07100001
071414*  RECOMPUTE LUPA ADD ON BASED ON CATEGORY HERE                   07110001
071415           COMPUTE LUPA-LABOR-ADJ ROUNDED =                       07120001
071416                 WIR-CBSA-WAGEIND *                               07130001
071417                 LABOR-PERCENT *                                  07140001
071418                 LUPA-ADD-ON-2PERCENT-RUR                         07141001
071419        ELSE                                                      07141101
071420           COMPUTE LUPA-LABOR-ADJ ROUNDED =                       07141201
071430                 WIR-CBSA-WAGEIND *                               07141301
071440                 LABOR-PERCENT *                                  07141401
071450                 LUPA-ADD-ON-2PERCENT                             07141501
071460        END-IF                                                    07141601
071470     ELSE                                                         07141701
071480        IF HHA-CBSA-RURAL-CHECK                                   07141801
071490        OR HHA-CBSA-RURAL-CHECK-ALL                               07141901
071500           IF WS-RURAL-CATEGORY = 'A'                             07142001
071600              COMPUTE LUPA-ADD-ON-RURAL ROUNDED =                 07143001
071700                      LUPA-ADD-ON-RURAL *                         07144001
071800                      WS-RURAL-ADDON-A                            07145001
071900           END-IF                                                 07146001
072000           IF WS-RURAL-CATEGORY = 'B'                             07147001
072100              COMPUTE LUPA-ADD-ON-RURAL ROUNDED =                 07148001
072200                      LUPA-ADD-ON-RURAL *                         07149001
072300                      WS-RURAL-ADDON-B                            07150001
072400           END-IF                                                 07160001
072500           IF WS-RURAL-CATEGORY = 'C'                             07170001
072600              COMPUTE LUPA-ADD-ON-RURAL ROUNDED =                 07180001
072700                      LUPA-ADD-ON-RURAL *                         07190001
072710                      WS-RURAL-ADDON-C                            07200001
072720           END-IF                                                 07210001
072730           COMPUTE LUPA-LABOR-ADJ ROUNDED =                       07220001
072740                 WIR-CBSA-WAGEIND *                               07230001
072750                 LABOR-PERCENT *                                  07240001
072760                 LUPA-ADD-ON-RURAL                                07250001
072770        ELSE                                                      07260001
072780           COMPUTE LUPA-LABOR-ADJ ROUNDED =                       07270001
072790                 WIR-CBSA-WAGEIND *                               07271001
072800                 LABOR-PERCENT *                                  07272001
072900                 LUPA-ADD-ON                                      07273001
073000        END-IF                                                    07274001
073100     END-IF.                                                      07275001
073200                                                                  07276001
073300     IF HHA-WITH-DATA-CHECK                                       07277001
073400        IF HHA-CBSA-RURAL-CHECK                                   07278001
073500        OR HHA-CBSA-RURAL-CHECK-ALL                               07279001
073600           IF WS-RURAL-CATEGORY = 'A'                             07280001
073700              COMPUTE LUPA-ADD-ON-2PERCENT-RUR ROUNDED =          07290001
073800                      LUPA-ADD-ON-2PERCENT-RUR *                  07300001
073900                      WS-RURAL-ADDON-A                            07310001
074000           END-IF                                                 07320001
074100           IF WS-RURAL-CATEGORY = 'B'                             07330001
074200              COMPUTE LUPA-ADD-ON-2PERCENT-RUR ROUNDED =          07340001
074210                      LUPA-ADD-ON-2PERCENT-RUR *                  07350001
074220                      WS-RURAL-ADDON-B                            07360001
074230           END-IF                                                 07370001
074240           IF WS-RURAL-CATEGORY = 'C'                             07380001
074250              COMPUTE LUPA-ADD-ON-2PERCENT-RUR ROUNDED =          07390001
074260                      LUPA-ADD-ON-2PERCENT-RUR *                  07400001
074270                      WS-RURAL-ADDON-C                            07410001
074280           END-IF                                                 07420001
074290           COMPUTE LUPA-NON-LABOR-ADJ ROUNDED =                   07421001
074300                 NONLABOR-PERCENT *                               07422001
074400                 LUPA-ADD-ON-2PERCENT-RUR                         07423001
074500        ELSE                                                      07424001
074600         COMPUTE LUPA-NON-LABOR-ADJ ROUNDED =                     07425001
074700                 NONLABOR-PERCENT *                               07426001
074800                 LUPA-ADD-ON-2PERCENT                             07427001
074900        END-IF                                                    07428001
075000     ELSE                                                         07429001
075100        IF HHA-CBSA-RURAL-CHECK                                   07430001
075200        OR HHA-CBSA-RURAL-CHECK-ALL                               07440001
075300           IF WS-RURAL-CATEGORY = 'A'                             07450001
075310              COMPUTE LUPA-ADD-ON-RURAL ROUNDED =                 07460001
075320                      LUPA-ADD-ON-RURAL *                         07470001
075330                      WS-RURAL-ADDON-A                            07480001
075340           END-IF                                                 07490001
075350           IF WS-RURAL-CATEGORY = 'B'                             07500001
075360              COMPUTE LUPA-ADD-ON-RURAL ROUNDED =                 07510001
075370                      LUPA-ADD-ON-RURAL *                         07520001
075380                      WS-RURAL-ADDON-B                            07530001
075390           END-IF                                                 07531001
075391           IF WS-RURAL-CATEGORY = 'C'                             07532001
075392              COMPUTE LUPA-ADD-ON-RURAL ROUNDED =                 07533001
075393                      LUPA-ADD-ON-RURAL *                         07534001
075394                      WS-RURAL-ADDON-C                            07535001
075395           END-IF                                                 07536001
075396           COMPUTE LUPA-NON-LABOR-ADJ ROUNDED =                   07537001
075397                 NONLABOR-PERCENT *                               07538001
075398                 LUPA-ADD-ON-RURAL                                07539001
075399        ELSE                                                      07539101
075400           COMPUTE LUPA-NON-LABOR-ADJ ROUNDED =                   07539201
075500                 NONLABOR-PERCENT *                               07539301
075600                 LUPA-ADD-ON                                      07539401
075700        END-IF                                                    07539501
075800     END-IF.                                                      07539601
075900                                                                  07539701
076000                                                                  07539801
076100*    IF H-HHA-ADMIT-DATE = H-HHA-SERV-FROM-DATE AND               07539901
076200*        WORK-HRG1 = '1' OR '2'                                   07540001
076300*       COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               07550001
076400*         LUPA-LABOR-ADJ + LUPA-NON-LABOR-ADJ                     07560001
076500*    ELSE                                                         07570001
076600*       MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT.                     07580001
076700*                                                                 07590001
076800***         VARYING SUB1 FROM 1 BY 1 UNTIL                        07600001
076900***         (H-HHA-REVENUE-CODE (SUB1) = SPACES OR                07610001
077000***          SUB1 > 6.                                            07620001
077100                                                                  07630001
077200                                                                  07640001
077300**   CHANGE MISSING DATES TO DEFAULT FOR EARLIEST DATE COMPARE ** 07650001
077400                                                                  07660001
077500     IF H-HHA-REVENUE-EARLIEST-DATE (1) = 0                       07670001
077600        MOVE 29990101 TO H-HHA-REVENUE-EARLIEST-DATE (1).         07680001
077700                                                                  07690001
077800     IF H-HHA-REVENUE-EARLIEST-DATE (3) = 0                       07700001
077900        MOVE 29990101 TO H-HHA-REVENUE-EARLIEST-DATE (3).         07710001
078000                                                                  07720001
078100     IF H-HHA-REVENUE-EARLIEST-DATE (4) = 0                       07730001
078200        MOVE 29990101 TO H-HHA-REVENUE-EARLIEST-DATE (4).         07740001
078300                                                                  07750001
078400*    IF REVENUE EARLIEST DATES = ALL 9'S THEN                     07760001
078500*    LUPA ADD ON DOES NOT CALCULATE                               07770001
078600                                                                  07780001
078700     IF (H-HHA-REVENUE-EARLIEST-DATE (1) = 99999999 AND           07790001
078800         H-HHA-REVENUE-EARLIEST-DATE (3) = 99999999 AND           07800001
078900         H-HHA-REVENUE-EARLIEST-DATE (4) = 99999999)              07810001
079000         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     07820001
079100                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            07830001
079200                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            07840001
079300                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            07850001
079400                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            07860001
079500                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5)            07870001
079600         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     07880001
079700           GO TO RTC-CHECK.                                       07890001
079800                                                                  07900001
079900*    IF  REVENUE EARLIEST DATES = DEFAULT THEN                    07910001
080000*    LUPA ADD ON DOES NOT CALCULATE                               07920001
080100                                                                  07930001
080200     IF (H-HHA-REVENUE-EARLIEST-DATE (1) = 29990101 AND           07940001
080300         H-HHA-REVENUE-EARLIEST-DATE (3) = 29990101 AND           07950001
080400         H-HHA-REVENUE-EARLIEST-DATE (4) = 29990101)              07960001
080500         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     07970001
080600                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            07980001
080700                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            07990001
080800                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            08000001
080900                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            08010001
081000                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5)            08020001
081100         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     08030001
081200           GO TO RTC-CHECK.                                       08040001
081300                                                                  08050001
081400*    IF PT OCCURS ON EARLIEST DATE THEN LUPA ADD ON APPLIES TO    08060001
081500*       PT                                                        08070001
081600                                                                  08080001
081700     IF (H-HHA-REVENUE-EARLIEST-DATE (1) <                        08090001
081800         H-HHA-REVENUE-EARLIEST-DATE (3)) AND                     08100001
081900        (H-HHA-REVENUE-EARLIEST-DATE (1) <                        08110001
082000         H-HHA-REVENUE-EARLIEST-DATE (4))                         08120001
082100        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (1) ROUNDED =     08130001
082200           H-HHA-REVENUE-DOLL-RATE (1) * LUPA-ADD-ON-PT1          08140001
082300        MOVE LUPA-ADD-ON-PT1     TO WS-STDV-LUPA-ADDON-FAC        08150001
082400        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               08160001
082500           H-HHA-LUPA-ADD-ON-PAYMENT +                            08170001
082600           H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)                     08180001
082700           GO TO RTC-CHECK.                                       08190001
082800                                                                  08200001
082900*    IF SLT OCCURS ON EARLIEST DATE THEN LUPA ADD ON APPLIES TO   08210001
083000*       SLT                                                       08220001
083100                                                                  08230001
083200     IF (H-HHA-REVENUE-EARLIEST-DATE (3) <                        08240001
083300         H-HHA-REVENUE-EARLIEST-DATE (1)) AND                     08250001
083400        (H-HHA-REVENUE-EARLIEST-DATE (3) <                        08260001
083500         H-HHA-REVENUE-EARLIEST-DATE (4))                         08270001
083600        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (3) ROUNDED =     08280001
083700           H-HHA-REVENUE-DOLL-RATE (3) * LUPA-ADD-ON-SLT3         08290001
083800        MOVE LUPA-ADD-ON-SLT3    TO WS-STDV-LUPA-ADDON-FAC        08300001
083900        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               08310001
084000           H-HHA-LUPA-ADD-ON-PAYMENT +                            08320001
084100           H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)                     08330001
084200           GO TO RTC-CHECK.                                       08340001
084300                                                                  08350001
084400*    IF SN OCCURS ON EARLIEST DATE THEN LUPA ADD ON APPLIES TO    08360001
084500*       SN                                                        08370001
084600                                                                  08380001
084700     IF (H-HHA-REVENUE-EARLIEST-DATE (4) <                        08390001
084800         H-HHA-REVENUE-EARLIEST-DATE (1)) AND                     08400001
084900        (H-HHA-REVENUE-EARLIEST-DATE (4) <                        08410001
085000         H-HHA-REVENUE-EARLIEST-DATE (3))                         08420001
085100        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) ROUNDED =     08430001
085200           H-HHA-REVENUE-DOLL-RATE (4) * LUPA-ADD-ON-SN4          08440001
085300        MOVE LUPA-ADD-ON-SN4     TO WS-STDV-LUPA-ADDON-FAC        08450001
085400        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               08460001
085500           H-HHA-LUPA-ADD-ON-PAYMENT +                            08470001
085600           H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)                     08480001
085700           GO TO RTC-CHECK.                                       08490001
085800                                                                  08500001
085900*    IF PT  EARLIEST DATE = SLT EARLIEST AND = SN EARLIEST        08510001
086000*    THEN LUPA ADD ON APPLIES TO SN                               08520001
086100*                                                                 08530001
086200                                                                  08540001
086300     IF (H-HHA-REVENUE-EARLIEST-DATE (1) =                        08550001
086400         H-HHA-REVENUE-EARLIEST-DATE (3)) AND                     08560001
086500        (H-HHA-REVENUE-EARLIEST-DATE (1) =                        08570001
086600         H-HHA-REVENUE-EARLIEST-DATE (4))                         08580001
086700        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) ROUNDED =     08590001
086800           H-HHA-REVENUE-DOLL-RATE (4) * LUPA-ADD-ON-SN4          08600001
086900        MOVE LUPA-ADD-ON-SN4     TO WS-STDV-LUPA-ADDON-FAC        08610001
087000        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               08620001
087100           H-HHA-LUPA-ADD-ON-PAYMENT +                            08630001
087200           H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)                     08640001
087300           GO TO RTC-CHECK.                                       08650001
087400                                                                  08660001
087500*    IF PT EARLIEST DATE = SN EARLIEST                            08670001
087600*    THEN LUPA ADD ON APPLIES TO SN                               08680001
087700*                                                                 08690001
087800                                                                  08700001
087900     IF (H-HHA-REVENUE-EARLIEST-DATE (1) =                        08710001
088000         H-HHA-REVENUE-EARLIEST-DATE (4))                         08720001
088100        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) ROUNDED =     08730001
088200           H-HHA-REVENUE-DOLL-RATE (4) * LUPA-ADD-ON-SN4          08740001
088300        MOVE LUPA-ADD-ON-SN4     TO WS-STDV-LUPA-ADDON-FAC        08750001
088400        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               08760001
088500           H-HHA-LUPA-ADD-ON-PAYMENT +                            08770001
088600           H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)                     08780001
088700           GO TO RTC-CHECK.                                       08790001
088800                                                                  08800001
088900*    IF SLT EARLIEST DATE = SN EARLIEST                           08810001
089000*    THEN LUPA ADD ON APPLIES TO SN                               08820001
089100*                                                                 08830001
089200                                                                  08840001
089300     IF (H-HHA-REVENUE-EARLIEST-DATE (3) =                        08850001
089400         H-HHA-REVENUE-EARLIEST-DATE (4))                         08860001
089500        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) ROUNDED =     08870001
089600           H-HHA-REVENUE-DOLL-RATE (4) * LUPA-ADD-ON-SN4          08880001
089700        MOVE LUPA-ADD-ON-SN4     TO WS-STDV-LUPA-ADDON-FAC        08890001
089800        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               08900001
089900           H-HHA-LUPA-ADD-ON-PAYMENT +                            08910001
090000           H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)                     08920001
090100           GO TO RTC-CHECK.                                       08930001
090200                                                                  08940001
090300*    IF PT  EARLIEST DATE = SLT EARLIEST                          08950001
090400*    THEN LUPA ADD ON APPLIES TO PT                               08960001
090500*                                                                 08970001
090600                                                                  08980001
090700     IF (H-HHA-REVENUE-EARLIEST-DATE (1) =                        08990001
090800         H-HHA-REVENUE-EARLIEST-DATE (3))                         09000001
090900        COMPUTE  H-HHA-REVENUE-ADD-ON-VISIT-AMT (1) ROUNDED =     09010001
091000           H-HHA-REVENUE-DOLL-RATE (1) * LUPA-ADD-ON-PT1          09020001
091100        MOVE LUPA-ADD-ON-PT1     TO WS-STDV-LUPA-ADDON-FAC        09030001
091200        COMPUTE H-HHA-LUPA-ADD-ON-PAYMENT ROUNDED =               09040001
091300           H-HHA-LUPA-ADD-ON-PAYMENT +                            09050001
091400           H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)                     09060001
091500           GO TO RTC-CHECK.                                       09070001
091600                                                                  09080001
091700                                                                  09090001
091800 RTC-CHECK.                                                       09100001
091900************************************************************      09110001
092000* ZERO OUT LUPA ADD-ON PAYMENT WHEN CERTAIN CONDITIONS MET *      09120001
092100************************************************************      09130001
092200                                                                  09140001
092300     MOVE H-HHA-HRG-OUTPUT-CODE (1) TO WORK-HRG.                  09150001
092400                                                                  09160001
092500     IF H-HHA-ADMIT-DATE NOT = H-HHA-SERV-FROM-DATE               09170001
092600         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     09180001
092700                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            09190001
092800                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            09200001
092900                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            09210001
093000                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            09220001
093100                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5).           09230001
093200*                                                                 09240001
093300     IF (WORK-HRG1 =  '1' OR '2')                                 09250001
093400       NEXT SENTENCE                                              09260001
093500     ELSE                                                         09270001
093600         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     09280001
093700                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            09290001
093800                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            09300001
093900                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            09310001
094000                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            09320001
094100                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5).           09330001
094200*                                                                 09340001
094300     IF (H-HHA-LUPA-SRC-ADM = 'B' OR 'C')                         09350001
094400         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     09360001
094500                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            09370001
094600                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            09380001
094700                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            09390001
094800                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            09400001
094900                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5).           09410001
095000*                                                                 09420001
095100                                                                  09430001
095200     IF H-HHA-RECODE-IND  = '2'                                   09440001
095300         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     09450001
095400                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            09460001
095500                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            09470001
095600                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            09480001
095700                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            09490001
095800                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5).           09500001
095900                                                                  09510001
096000*                                                                 09520001
096100     IF H-HHA-REVENUE-SUM1-6-QTY-ALL = 0                          09530001
096200         MOVE 0 TO  H-HHA-LUPA-ADD-ON-PAYMENT                     09540001
096300                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)            09550001
096400                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)            09560001
096500                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)            09570001
096600                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)            09580001
096700                    H-HHA-REVENUE-ADD-ON-VISIT-AMT (5).           09590001
096800*                                                                 09600001
096900        PERFORM 1050-LUPA THRU 1050-EXIT.                         09610001
097000                                                                  09620001
097100        IF H-HHA-LUPA-ADD-ON-PAYMENT > 0                          09630001
097200           MOVE '14' TO H-HHA-PAY-RTC                             09640001
097300        ELSE                                                      09650001
097400           MOVE '06' TO H-HHA-PAY-RTC                             09660001
097500        END-IF.                                                   09670001
097600                                                                  09680001
097700**   CHANGE DATES WITH DEFAULT BACK TO ZERO FOR PASSBACK       ** 09690001
097800                                                                  09700001
097900     IF H-HHA-REVENUE-EARLIEST-DATE (1) = 29990101                09710001
098000        MOVE 0 TO H-HHA-REVENUE-EARLIEST-DATE (1).                09720001
098100                                                                  09730001
098200     IF H-HHA-REVENUE-EARLIEST-DATE (3) = 29990101                09740001
098300        MOVE 0 TO H-HHA-REVENUE-EARLIEST-DATE (3).                09750001
098400                                                                  09760001
098500     IF H-HHA-REVENUE-EARLIEST-DATE (4) = 29990101                09770001
098600        MOVE 0 TO H-HHA-REVENUE-EARLIEST-DATE (4).                09780001
098700                                                                  09790001
098800                                                                  09800001
098900     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        09810001
099000             H-HHA-REVENUE-COST (1) +                             09820001
099100             H-HHA-REVENUE-ADD-ON-VISIT-AMT (1) +                 09830001
099200             H-HHA-REVENUE-COST (2) +                             09840001
099300             H-HHA-REVENUE-ADD-ON-VISIT-AMT (2) +                 09850001
099400             H-HHA-REVENUE-COST (3) +                             09860001
099500             H-HHA-REVENUE-ADD-ON-VISIT-AMT (3) +                 09870001
099600             H-HHA-REVENUE-COST (4) +                             09880001
099700             H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) +                 09890001
099800             H-HHA-REVENUE-COST (5) +                             09900001
099900             H-HHA-REVENUE-ADD-ON-VISIT-AMT (5) +                 09910001
100000             H-HHA-REVENUE-COST (6) +                             09920001
100100             H-HHA-REVENUE-ADD-ON-VISIT-AMT (6).                  09930001
100200                                                                  09940001
100300     GO TO 1000-EXIT.                                             09950001
100400                                                                  09960001
100500 PEP-CHECK.                                                       09970001
100600                                                                  09980001
100700     IF (H-HHA-PEP-INDICATOR NOT = 'Y' AND NOT = 'N')             09990001
100800         MOVE '20' TO H-HHA-PAY-RTC                               10000001
100900         GO TO 1000-EXIT.                                         10010001
101000                                                                  10020001
101100      PERFORM 1100-ADD-HRG-DAYS THRU 1100-EXIT                    10030001
101200         VARYING CO1 FROM 1 BY 1 UNTIL CO1 > 6.                   10040001
101300                                                                  10050001
101400      IF WK-HRG-NO-OF-DAYS-TOT > 60                               10060001
101500         MOVE '16' TO H-HHA-PAY-RTC                               10070001
101600         GO TO 1000-EXIT.                                         10080001
101700                                                                  10090001
101800                                                                  10100001
101900*********  HRG  PAYMENT   *******************                     10110001
102000                                                                  10120001
102100***  IF H-HHA-REVENUE-SUM1-3-QTY-THR > 9                          10130001
102200        IF H-HHA-HRG-INPUT-CODE (2) = SPACES                      10140001
102300           IF H-HHA-PEP-INDICATOR = 'N'                           10150001
102400              PERFORM 3000-PEP-N-ADJUST THRU 3000-EXIT            10160001
102500                  VARYING CO1 FROM 1 BY 1 UNTIL                   10170001
102600*                 (H-HHA-HRG-INPUT-CODE (CO1) = SPACES OR         10180001
102700                   CO1 > 6                                        10190001
102800               PERFORM 7000-OUTLIER-PAYMENT THRU 7000-EXIT        10200001
102900                                                                  10210001
103000               GO TO 1000-EXIT.                                   10220001
103100                                                                  10230001
103200                                                                  10240001
103300***  IF H-HHA-REVENUE-SUM1-3-QTY-THR > 9                          10250001
103400        IF H-HHA-HRG-INPUT-CODE (2) = SPACES                      10260001
103500           IF H-HHA-PEP-INDICATOR = 'Y'                           10270001
103600              PERFORM 4000-PEP-Y-ADJUST THRU 4000-EXIT            10280001
103700                  VARYING CO1 FROM 1 BY 1 UNTIL                   10290001
103800*                 (H-HHA-HRG-INPUT-CODE (CO1) = SPACES OR         10300001
103900                   CO1 > 6                                        10310001
104000               PERFORM 7000-OUTLIER-PAYMENT THRU 7000-EXIT        10320001
104100                                                                  10330001
104200               GO TO 1000-EXIT.                                   10340001
104300                                                                  10350001
104400**** IF H-HHA-REVENUE-SUM1-3-QTY-THR > 9                          10360001
104500        IF H-HHA-HRG-INPUT-CODE (2) NOT = SPACES                  10370001
104600           IF H-HHA-PEP-INDICATOR = 'N'                           10380001
104700              PERFORM 5000-PEP-N-ADJUST THRU 5000-EXIT            10390001
104800                  VARYING CO1 FROM 1 BY 1 UNTIL                   10400001
104900*                 (H-HHA-HRG-INPUT-CODE (CO1) = SPACES OR         10410001
105000                   CO1 > 6                                        10420001
105100               PERFORM 7000-OUTLIER-PAYMENT THRU 7000-EXIT        10430001
105200                                                                  10440001
105300               GO TO 1000-EXIT.                                   10450001
105400                                                                  10460001
105500**** IF H-HHA-REVENUE-SUM1-3-QTY-THR > 9                          10470001
105600        IF H-HHA-HRG-INPUT-CODE (2) NOT = SPACES                  10480001
105700           IF H-HHA-PEP-INDICATOR = 'Y'                           10490001
105800              PERFORM 6000-PEP-Y-ADJUST THRU 6000-EXIT            10500001
105900                  VARYING CO1 FROM 1 BY 1 UNTIL                   10510001
106000*                 (H-HHA-HRG-INPUT-CODE (CO1) = SPACES OR         10520001
106100                   CO1 > 6                                        10530001
106200               PERFORM 7000-OUTLIER-PAYMENT THRU 7000-EXIT        10540001
106300                                                                  10550001
106400               GO TO 1000-EXIT.                                   10560001
106500                                                                  10570001
106600                                                                  10580001
106700      MOVE '20' TO H-HHA-PAY-RTC.                                 10590001
106800                                                                  10600001
106900 1000-EXIT.  EXIT.                                                10610001
107000 1050-LUPA.                                                       10620001
107100                                                                  10630001
107200***************************************************************   10640001
107300*                    LUPA PAYMENT                                 10650001
107400***************************************************************   10660001
107500                                                                  10670001
107600*    IF H-HHA-REVENUE-QTY-COV-VISITS (1) = 0                      10680001
107700*       GO TO 1050-EXIT.                                          10690001
107800                                                                  10700001
107900     MOVE H-HHA-HRG-OUTPUT-CODE (1) TO WORK-HRG.                  10710001
108000                                                                  10720001
108100     COMPUTE FED-ADJ1 ROUNDED =                                   10730001
108200            (H-HHA-REVENUE-QTY-COV-VISITS (1) *                   10740001
108300             H-HHA-REVENUE-DOLL-RATE (1)).                        10750001
108400                                                                  10760001
108500     COMPUTE FED-LUPA-ADJ1 ROUNDED =                              10770001
108600             H-HHA-REVENUE-ADD-ON-VISIT-AMT (1).                  10780001
108700                                                                  10790001
108800     COMPUTE FED-LABOR-ADJ1 ROUNDED =                             10800001
108900             WIR-CBSA-WAGEIND *                                   10810001
109000             LABOR-PERCENT *                                      10820001
109100             FED-ADJ1.                                            10830001
109200                                                                  10840001
109300     COMPUTE FED-LABOR-LUPA-ADJ1 ROUNDED =                        10850001
109400             WIR-CBSA-WAGEIND *                                   10860001
109500             LABOR-PERCENT *                                      10870001
109600             FED-LUPA-ADJ1.                                       10880001
109700                                                                  10890001
109800     COMPUTE FED-NON-LABOR-ADJ1 ROUNDED =                         10900001
109900             NONLABOR-PERCENT *                                   10910001
110000             FED-ADJ1.                                            10920001
110100                                                                  10930001
110200     COMPUTE FED-NON-LABOR-LUPA-ADJ1 ROUNDED =                    10940001
110300             NONLABOR-PERCENT *                                   10950001
110400             FED-LUPA-ADJ1.                                       10960001
110500                                                                  10970001
110600     COMPUTE H-HHA-REVENUE-COST (1) ROUNDED =                     10980001
110700             (FED-LABOR-ADJ1 + FED-NON-LABOR-ADJ1).               10990001
110800     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (1) ROUNDED =         11000001
110900             (FED-LABOR-LUPA-ADJ1 + FED-NON-LABOR-LUPA-ADJ1).     11010001
111000                                                                  11020001
111100     COMPUTE FED-ADJ2 ROUNDED =                                   11030001
111200            (H-HHA-REVENUE-QTY-COV-VISITS (2) *                   11040001
111300             H-HHA-REVENUE-DOLL-RATE (2)).                        11050001
111400                                                                  11060001
111500     COMPUTE FED-LABOR-ADJ2 ROUNDED =                             11070001
111600             WIR-CBSA-WAGEIND *                                   11080001
111700             LABOR-PERCENT *                                      11090001
111800             FED-ADJ2.                                            11100001
111900                                                                  11110001
112000     COMPUTE FED-NON-LABOR-ADJ2 ROUNDED =                         11120001
112100             NONLABOR-PERCENT *                                   11130001
112200             FED-ADJ2.                                            11140001
112300                                                                  11150001
112400     COMPUTE H-HHA-REVENUE-COST (2) ROUNDED =                     11160001
112500             (FED-LABOR-ADJ2 + FED-NON-LABOR-ADJ2).               11170001
112600                                                                  11180001
112700     COMPUTE FED-ADJ3 ROUNDED =                                   11190001
112800            (H-HHA-REVENUE-QTY-COV-VISITS (3) *                   11200001
112900             H-HHA-REVENUE-DOLL-RATE (3)).                        11210001
113000                                                                  11220001
113100     COMPUTE FED-LUPA-ADJ3 ROUNDED =                              11230001
113200             H-HHA-REVENUE-ADD-ON-VISIT-AMT (3).                  11240001
113300                                                                  11250001
113400     COMPUTE FED-LABOR-ADJ3 ROUNDED =                             11260001
113500             WIR-CBSA-WAGEIND *                                   11270001
113600             LABOR-PERCENT *                                      11280001
113700             FED-ADJ3.                                            11290001
113800                                                                  11300001
113900     COMPUTE FED-LABOR-LUPA-ADJ3 ROUNDED =                        11310001
114000             WIR-CBSA-WAGEIND *                                   11320001
114100             LABOR-PERCENT *                                      11330001
114200             FED-LUPA-ADJ3.                                       11340001
114300                                                                  11350001
114400     COMPUTE FED-NON-LABOR-ADJ3 ROUNDED =                         11360001
114500             NONLABOR-PERCENT *                                   11370001
114600             FED-ADJ3.                                            11380001
114700                                                                  11390001
114800     COMPUTE FED-NON-LABOR-LUPA-ADJ3 ROUNDED =                    11400001
114900             NONLABOR-PERCENT *                                   11410001
115000             FED-LUPA-ADJ3.                                       11420001
115100                                                                  11430001
115200     COMPUTE H-HHA-REVENUE-COST (3) ROUNDED =                     11440001
115300             (FED-LABOR-ADJ3 + FED-NON-LABOR-ADJ3).               11450001
115400                                                                  11460001
115500     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (3) ROUNDED =         11470001
115600             (FED-LABOR-LUPA-ADJ3 + FED-NON-LABOR-LUPA-ADJ3).     11480001
115700                                                                  11490001
115800     COMPUTE FED-ADJ4 ROUNDED =                                   11500001
115900            (H-HHA-REVENUE-QTY-COV-VISITS (4) *                   11510001
116000             H-HHA-REVENUE-DOLL-RATE (4)).                        11520001
116100                                                                  11530001
116200     COMPUTE FED-LUPA-ADJ4 ROUNDED =                              11540001
116300             H-HHA-REVENUE-ADD-ON-VISIT-AMT (4).                  11550001
116400                                                                  11560001
116500     COMPUTE FED-LABOR-ADJ4 ROUNDED =                             11570001
116600             WIR-CBSA-WAGEIND *                                   11580001
116700             LABOR-PERCENT *                                      11590001
116800             FED-ADJ4.                                            11600001
116900                                                                  11610001
117000     COMPUTE FED-LABOR-LUPA-ADJ4 ROUNDED =                        11620001
117100             WIR-CBSA-WAGEIND *                                   11630001
117200             LABOR-PERCENT *                                      11640001
117300             FED-LUPA-ADJ4.                                       11650001
117400                                                                  11660001
117500     COMPUTE FED-NON-LABOR-ADJ4 ROUNDED =                         11670001
117600             NONLABOR-PERCENT *                                   11680001
117700             FED-ADJ4.                                            11690001
117800                                                                  11700001
117900     COMPUTE FED-NON-LABOR-LUPA-ADJ4 ROUNDED =                    11710001
118000             NONLABOR-PERCENT *                                   11720001
118100             FED-LUPA-ADJ4.                                       11730001
118200                                                                  11740001
118300     COMPUTE H-HHA-REVENUE-COST (4) ROUNDED =                     11750001
118400             (FED-LABOR-ADJ4 + FED-NON-LABOR-ADJ4).               11760001
118500                                                                  11770001
118600     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) ROUNDED =         11780001
118700             (FED-LABOR-LUPA-ADJ4 + FED-NON-LABOR-LUPA-ADJ4).     11790001
118800                                                                  11800001
118900     COMPUTE FED-ADJ5 ROUNDED =                                   11810001
119000            (H-HHA-REVENUE-QTY-COV-VISITS (5) *                   11820001
119100             H-HHA-REVENUE-DOLL-RATE (5)).                        11830001
119200                                                                  11840001
119300     COMPUTE FED-LABOR-ADJ5 ROUNDED =                             11850001
119400             WIR-CBSA-WAGEIND *                                   11860001
119500             LABOR-PERCENT *                                      11870001
119600             FED-ADJ5.                                            11880001
119700                                                                  11890001
119800                                                                  11900001
119900     COMPUTE FED-NON-LABOR-ADJ5 ROUNDED =                         11910001
120000             NONLABOR-PERCENT *                                   11920001
120100             FED-ADJ5.                                            11930001
120200                                                                  11940001
120300     COMPUTE H-HHA-REVENUE-COST (5) ROUNDED =                     11950001
120400             (FED-LABOR-ADJ5 + FED-NON-LABOR-ADJ5).               11960001
120500                                                                  11970001
120600     COMPUTE FED-ADJ6 ROUNDED =                                   11980001
120700            (H-HHA-REVENUE-QTY-COV-VISITS (6) *                   11990001
120800             H-HHA-REVENUE-DOLL-RATE (6)).                        12000001
120900                                                                  12010001
121000     COMPUTE FED-LABOR-ADJ6 ROUNDED =                             12020001
121100             WIR-CBSA-WAGEIND *                                   12030001
121200             LABOR-PERCENT *                                      12040001
121300             FED-ADJ6.                                            12050001
121400                                                                  12060001
121500                                                                  12070001
121600     COMPUTE FED-NON-LABOR-ADJ6 ROUNDED =                         12080001
121700             NONLABOR-PERCENT *                                   12090001
121800             FED-ADJ6.                                            12100001
121900                                                                  12110001
122000     COMPUTE H-HHA-REVENUE-COST (6) ROUNDED =                     12120001
122100             (FED-LABOR-ADJ6 + FED-NON-LABOR-ADJ6).               12130001
122200                                                                  12140001
122300 1050-EXIT.   EXIT.                                               12150001
122400                                                                  12160001
122500 1100-ADD-HRG-DAYS.                                               12170001
122600                                                                  12180001
122700      IF H-HHA-HRG-NO-OF-DAYS (CO1) NUMERIC                       12190001
122800         ADD H-HHA-HRG-NO-OF-DAYS (CO1) TO                        12200001
122900             WK-HRG-NO-OF-DAYS-TOT.                               12210001
123000                                                                  12220001
123100 1100-EXIT.   EXIT.                                               12230001
123200                                                                  12240001
123300***************************************************************   12250001
123400*           STATE & COUNTY CODE TABLE SEARCH                      12260001
123500***************************************************************   12270001
123600 2000-TBL-SCC-SEARCH.                                             12280001
123700                                                                  12290001
123701     IF HHA-COUNTY-CODE = SPACES                                  12300001
123702        MOVE '31' TO H-HHA-PAY-RTC                                12310001
123703        GO TO 2000-EXIT                                           12320001
123704     END-IF.                                                      12330001
123705                                                                  12340001
123706     SEARCH ALL T-SCC-DATA                                        12350001
123707         AT END                                                   12360001
123708            MOVE '31' TO H-HHA-PAY-RTC                            12370001
123709            GO TO 2000-EXIT                                       12370101
123710         WHEN T-SCC-CODE (IX-SCC) = HHA-COUNTY-CODE               12370201
123711            MOVE T-SCC-CATEGORY (IX-SCC) TO WS-RURAL-CATEGORY     12370301
123712            MOVE '00' TO H-HHA-PAY-RTC                            12370401
123713     END-SEARCH.                                                  12370501
123714                                                                  12370601
123715     IF WS-RURAL-CATEGORY = 'A'                                   12370701
123716       COMPUTE FED-EPISODE-RATE-AMT ROUNDED =                     12370801
123717               FED-EPISODE-RATE-AMT  * WS-RURAL-ADDON-A           12370901
123718       COMPUTE OUTLIER-THRESHOLD-AMT ROUNDED =                    12371001
123719               OUTLIER-THRESHOLD-AMT * WS-RURAL-ADDON-A           12371101
123720     END-IF.                                                      12371201
123721     IF WS-RURAL-CATEGORY = 'B'                                   12371301
123722       COMPUTE FED-EPISODE-RATE-AMT ROUNDED =                     12371401
123723               FED-EPISODE-RATE-AMT  * WS-RURAL-ADDON-B           12371501
123724       COMPUTE OUTLIER-THRESHOLD-AMT ROUNDED =                    12371601
123725               OUTLIER-THRESHOLD-AMT * WS-RURAL-ADDON-B           12371701
123730     END-IF.                                                      12371801
123731     IF WS-RURAL-CATEGORY = 'C'                                   12371901
123732       COMPUTE FED-EPISODE-RATE-AMT ROUNDED =                     12372001
123733               FED-EPISODE-RATE-AMT  * WS-RURAL-ADDON-C           12373001
123734       COMPUTE OUTLIER-THRESHOLD-AMT ROUNDED =                    12373101
123735               OUTLIER-THRESHOLD-AMT * WS-RURAL-ADDON-C           12373201
123740     END-IF.                                                      12373301
123741                                                                  12373401
123742 2000-EXIT.   EXIT.                                               12373501
123743                                                                  12373601
123744 3000-PEP-N-ADJUST.                                               12373701
123745                                                                  12373801
123746***************************************************************   12373901
123747*           HRG OCCUR < 2 AND PEP = N ADJUSTMENT                  12374001
123748***************************************************************   12374101
123750                                                                  12374201
123760     IF H-HHA-HRG-INPUT-CODE (CO1) = SPACES                       12374301
123770        MOVE 6 TO CO1                                             12374401
123780        GO TO 3000-EXIT.                                          12374501
123790                                                                  12374601
123800     MOVE H-HHA-HRG-NO-OF-DAYS (CO1) TO WK-HRG-NO-OF-DAYS.        12374701
123900                                                                  12374801
124000     MOVE H-HHA-HRG-OUTPUT-CODE (CO1) TO WORK-HRG.                12374901
124100                                                                  12375001
124200*         YEARCHANGE                              ===========**   12376001
124300                                                                  12377001
124400      PERFORM 10100-SUPPLY-ADD-ON-CALC  THRU 10100-EXIT.          12378001
124500                                                                  12379001
124600*         YEARCHANGE                              ===========**   12380001
124700                                                                  12390001
124800*    IF HHA-SERV-THRU-DATE > 20071231 AND                         12400001
124900*       HHA-SERV-FROM-DATE > 20071231                             12410001
125000*        NEXT SENTENCE                                            12420001
125100*    ELSE                                                         12430001
125200*        MOVE 0000000.00 TO FED-SUPPLY-ADJ.                       12440001
125300                                                                  12450001
125400     COMPUTE FED-ADJ ROUNDED =                                    12460001
125500               H-HHA-HRG-WGTS (1) * FED-EPISODE-RATE-AMT.         12470001
125600                                                                  12480001
125700     COMPUTE FED-LABOR-ADJ ROUNDED =                              12490001
125800              (WIR-CBSA-WAGEIND *                                 12500001
125900               LABOR-PERCENT * FED-ADJ).                          12510001
126000                                                                  12520001
126100     COMPUTE FED-NON-LABOR-ADJ ROUNDED =                          12530001
126200              (NONLABOR-PERCENT * FED-ADJ).                       12540001
126300                                                                  12550001
126400     COMPUTE WK-3000-PEP-N-PAYMENT ROUNDED =                      12560001
126500          (FED-LABOR-ADJ + FED-NON-LABOR-ADJ + FED-SUPPLY-ADJ).   12570001
126600                                                                  12580001
126700     COMPUTE H-HHA-HRG-PAY (CO1) ROUNDED =                        12590001
126800             WK-3000-PEP-N-PAYMENT.                               12600001
126900                                                                  12610001
127000     COMPUTE WK-3000-PEP-N-PRETOT-PAY ROUNDED =                   12620001
127100             WK-3000-PEP-N-PRETOT-PAY + WK-3000-PEP-N-PAYMENT.    12630001
127200                                                                  12640001
127300 3000-EXIT.   EXIT.                                               12650001
127400                                                                  12660001
127500 4000-PEP-Y-ADJUST.                                               12670001
127600                                                                  12680001
127700***************************************************************   12690001
127800*           HRG OCCUR < 2 AND PEP = Y ADJUSTMENT                  12700001
127900***************************************************************   12710001
128000                                                                  12720001
128100     IF H-HHA-HRG-INPUT-CODE (CO1) = SPACES                       12730001
128200        MOVE 6 TO SUB1                                            12740001
128300        GO TO 4000-EXIT.                                          12750001
128400                                                                  12760001
128500     MOVE 2 TO WK-RTC-ADJ-IND.                                    12770001
128600                                                                  12780001
128700     MOVE H-HHA-HRG-NO-OF-DAYS (CO1) TO WK-HRG-NO-OF-DAYS.        12790001
128800                                                                  12800001
128900     MOVE H-HHA-HRG-OUTPUT-CODE (CO1) TO WORK-HRG.                12810001
129000                                                                  12820001
129100*         YEARCHANGE                              ===========**   12830001
129200                                                                  12840001
129300      PERFORM 10100-SUPPLY-ADD-ON-CALC  THRU 10100-EXIT.          12850001
129400                                                                  12860001
129500*         YEARCHANGE                              ===========**   12870001
129600                                                                  12880001
129700                                                                  12890001
129800*    IF HHA-SERV-THRU-DATE > 20071231 AND                         12900001
129900*       HHA-SERV-FROM-DATE > 20071231                             12910001
130000*        NEXT SENTENCE                                            12920001
130100*    ELSE                                                         12930001
130200*        MOVE 0000000.00 TO FED-SUPPLY-ADJ.                       12940001
130300                                                                  12950001
130400                                                                  12960001
130500     COMPUTE FED-ADJP ROUNDED =                                   12970001
130600               H-HHA-HRG-WGTS (1) * FED-EPISODE-RATE-AMT.         12980001
130700                                                                  12990001
130800     COMPUTE FED-LABOR-ADJP ROUNDED =                             13000001
130900               WIR-CBSA-WAGEIND *                                 13010001
131000               LABOR-PERCENT * FED-ADJP.                          13020001
131100                                                                  13030001
131200     COMPUTE FED-NON-LABOR-ADJP ROUNDED =                         13040001
131300               NONLABOR-PERCENT * FED-ADJP.                       13050001
131400                                                                  13060001
131500     COMPUTE WK-4000-PEP-Y-PAYMENT ROUNDED =                      13070001
131600         (FED-LABOR-ADJP + FED-NON-LABOR-ADJP + FED-SUPPLY-ADJ).  13080001
131700                                                                  13090001
131800     COMPUTE WK-HRG-NO-OF-DAYS-FAC ROUNDED =                      13100001
131900               (WK-HRG-NO-OF-DAYS / 60).                          13110001
132000                                                                  13120001
132100     COMPUTE WK-4000-PEP-Y-PAYMENT ROUNDED =                      13130001
132200             WK-4000-PEP-Y-PAYMENT *                              13140001
132300             WK-HRG-NO-OF-DAYS-FAC.                               13150001
132400                                                                  13160001
132500     COMPUTE H-HHA-HRG-PAY (CO1) ROUNDED =                        13170001
132600             WK-4000-PEP-Y-PAYMENT.                               13180001
132700                                                                  13190001
132800     COMPUTE WK-4000-PEP-Y-PRETOT-PAY ROUNDED =                   13200001
132900             WK-4000-PEP-Y-PRETOT-PAY + WK-4000-PEP-Y-PAYMENT.    13210001
133000                                                                  13220001
133100                                                                  13230001
133200 4000-EXIT.   EXIT.                                               13240001
133300                                                                  13250001
133400 5000-PEP-N-ADJUST.                                               13260001
133500                                                                  13270001
133600***************************************************************   13280001
133700*           HRG OCCUR > 1 AND PEP = N ADJUSTMENT                  13290001
133800***************************************************************   13300001
133900                                                                  13310001
134000     IF H-HHA-HRG-INPUT-CODE (CO1) = SPACES                       13320001
134100        MOVE 6 TO SUB1                                            13330001
134200        GO TO 5000-EXIT.                                          13340001
134300                                                                  13350001
134400     MOVE 1 TO WK-RTC-ADJ-IND.                                    13360001
134500                                                                  13370001
134600     MOVE H-HHA-HRG-NO-OF-DAYS (CO1) TO WK-HRG-NO-OF-DAYS.        13380001
134700                                                                  13390001
134800     MOVE H-HHA-HRG-OUTPUT-CODE (CO1) TO WORK-HRG.                13400001
134900                                                                  13410001
135000*         YEARCHANGE                              ===========**   13420001
135100                                                                  13430001
135200      PERFORM 10100-SUPPLY-ADD-ON-CALC  THRU 10100-EXIT.          13440001
135300                                                                  13450001
135400*         YEARCHANGE                              ===========**   13460001
135500                                                                  13470001
135600                                                                  13480001
135700*    IF HHA-SERV-THRU-DATE > 20071231 AND                         13490001
135800*       HHA-SERV-FROM-DATE > 20071231                             13500001
135900*        NEXT SENTENCE                                            13510001
136000*    ELSE                                                         13520001
136100*        MOVE 0000000.00 TO FED-SUPPLY-ADJ.                       13530001
136200                                                                  13540001
136300                                                                  13550001
136400     COMPUTE FED-ADJ ROUNDED =                                    13560001
136500               (WK-HRG-NO-OF-DAYS  *                              13570001
136600                H-HHA-HRG-WGTS (CO1) *                            13580001
136700                FED-EPISODE-RATE-AMT) / 60.                       13590001
136800                                                                  13600001
136900     COMPUTE FED-LABOR-ADJ ROUNDED =                              13610001
137000               WIR-CBSA-WAGEIND *                                 13620001
137100               LABOR-PERCENT * FED-ADJ.                           13630001
137200                                                                  13640001
137300     COMPUTE FED-NON-LABOR-ADJ ROUNDED =                          13650001
137400               NONLABOR-PERCENT * FED-ADJ.                        13660001
137500                                                                  13670001
137600     COMPUTE WK-5000-PEP-N-PAYMENT ROUNDED =                      13680001
137700           (FED-LABOR-ADJ + FED-NON-LABOR-ADJ + FED-SUPPLY-ADJ).  13690001
137800                                                                  13700001
137900     COMPUTE H-HHA-HRG-PAY (CO1) ROUNDED =                        13710001
138000             WK-5000-PEP-N-PAYMENT.                               13720001
138100                                                                  13730001
138200                                                                  13740001
138300     COMPUTE WK-5000-PEP-N-PRETOT-PAY ROUNDED =                   13750001
138400             WK-5000-PEP-N-PRETOT-PAY + WK-5000-PEP-N-PAYMENT.    13760001
138500                                                                  13770001
138600 5000-EXIT.   EXIT.                                               13780001
138700                                                                  13790001
138800 6000-PEP-Y-ADJUST.                                               13800001
138900                                                                  13810001
139000***************************************************************   13820001
139100*           HRG OCCUR > 1 AND PEP = Y SHORTENED EPISODE           13830001
139200***************************************************************   13840001
139300                                                                  13850001
139400     IF H-HHA-HRG-INPUT-CODE (CO1) = SPACES                       13860001
139500        MOVE 6 TO SUB1                                            13870001
139600        GO TO 6000-EXIT.                                          13880001
139700                                                                  13890001
139800     MOVE 3 TO WK-RTC-ADJ-IND.                                    13900001
139900                                                                  13910001
140000     MOVE H-HHA-HRG-NO-OF-DAYS (CO1) TO WK-HRG-NO-OF-DAYS.        13920001
140100     MOVE H-HHA-PEP-DAYS             TO WK-PEP-DAYS.              13930001
140200                                                                  13940001
140300     MOVE H-HHA-HRG-OUTPUT-CODE (CO1) TO WORK-HRG.                13950001
140400                                                                  13960001
140500*         YEARCHANGE                              ===========**   13970001
140600                                                                  13980001
140700      PERFORM 10100-SUPPLY-ADD-ON-CALC  THRU 10100-EXIT.          13990001
140800                                                                  14000001
140900*         YEARCHANGE                              ===========**   14010001
141000                                                                  14020001
141100                                                                  14030001
141200*    IF HHA-SERV-THRU-DATE > 20071231 AND                         14040001
141300*       HHA-SERV-FROM-DATE > 20071231                             14050001
141400*        NEXT SENTENCE                                            14060001
141500*    ELSE                                                         14070001
141600*        MOVE 0000000.00 TO FED-SUPPLY-ADJ.                       14080001
141700*                                                                 14090001
141800*    COMPUTE FED-ADJ ROUNDED =                                    14100001
141900*        (WK-HRG-NO-OF-DAYS / WK-PEP-DAYS)                        14110001
142000*                                *                                14120001
142100*                    ((WK-PEP-DAYS / 60)                          14130001
142200*                                *                                14140001
142300*          (H-HHA-HRG-WGTS (CO1) * FED-EPISODE-RATE-AMT)).        14150001
142400*                                                                 14160001
142500*                                                                 14170001
142600*    COMPUTE FED-ADJ ROUNDED =                                    14180001
142700*        (WK-HRG-NO-OF-DAYS / WK-PEP-DAYS)                        14190001
142800*                                *                                14200001
142900*      ((WK-PEP-DAYS * H-HHA-HRG-WGTS (CO1) *                     14210001
143000*                          FED-EPISODE-RATE-AMT) / 60).           14220001
143100                                                                  14230001
143200     COMPUTE FED-ADJ  ROUNDED =                                   14240001
143300      ((WK-PEP-DAYS * H-HHA-HRG-WGTS (CO1) *                      14250001
143400                           FED-EPISODE-RATE-AMT) / 60).           14260001
143500                                                                  14270001
143600     COMPUTE FED-ADJ ROUNDED  =                                   14280001
143700                  (FED-ADJP * WK-HRG-NO-OF-DAYS) / WK-PEP-DAYS.   14290001
143800                                                                  14300001
143900     COMPUTE FED-LABOR-ADJ ROUNDED =                              14310001
144000               WIR-CBSA-WAGEIND *                                 14320001
144100               LABOR-PERCENT * FED-ADJ.                           14330001
144200                                                                  14340001
144300     COMPUTE FED-NON-LABOR-ADJ ROUNDED =                          14350001
144400               NONLABOR-PERCENT * FED-ADJ.                        14360001
144500                                                                  14370001
144600     COMPUTE WK-6000-PEP-Y-PAYMENT ROUNDED =                      14380001
144700          (FED-LABOR-ADJ + FED-NON-LABOR-ADJ + FED-SUPPLY-ADJ).   14390001
144800                                                                  14400001
144900     COMPUTE H-HHA-HRG-PAY (CO1) ROUNDED =                        14410001
145000             WK-6000-PEP-Y-PAYMENT.                               14420001
145100                                                                  14430001
145200     COMPUTE WK-6000-PEP-Y-PRETOT-PAY ROUNDED =                   14440001
145300             WK-6000-PEP-Y-PRETOT-PAY + WK-6000-PEP-Y-PAYMENT.    14450001
145400                                                                  14460001
145500                                                                  14470001
145600 6000-EXIT.   EXIT.                                               14480001
145700                                                                  14490001
145800 7000-OUTLIER-PAYMENT.                                            14500001
145900                                                                  14510001
146000***************************************************************   14520001
146100*                    OUTLIER PAYMENT                              14530001
146200***************************************************************   14540001
146300     COMPUTE OUT-THRES-LABOR-ADJ ROUNDED =                        14550001
146400               WIR-CBSA-WAGEIND *                                 14560001
146500               LABOR-PERCENT * OUTLIER-THRESHOLD-AMT.             14570001
146600                                                                  14580001
146700     COMPUTE OUT-THRES-NON-LABOR-ADJ ROUNDED =                    14590001
146800               NONLABOR-PERCENT * OUTLIER-THRESHOLD-AMT.          14600001
146900                                                                  14610001
147000     COMPUTE OUT-THRES-AMT-ADJ ROUNDED  =                         14620001
147100             (OUT-THRES-LABOR-ADJ +                               14630001
147200              OUT-THRES-NON-LABOR-ADJ).                           14640001
147300                                                                  14650001
147400      COMPUTE WK-7000-OUTLIER-VALUE-A ROUNDED =                   14660001
147500              OUT-THRES-AMT-ADJ +                                 14670001
147600             WK-3000-PEP-N-PRETOT-PAY +                           14680001
147700             WK-4000-PEP-Y-PRETOT-PAY +                           14690001
147800             WK-5000-PEP-N-PRETOT-PAY +                           14700001
147900             WK-6000-PEP-Y-PRETOT-PAY.                            14710001
148000                                                                  14720001
148100      PERFORM 8000-ADD-REV-DOLL THRU 8000-EXIT                    14730001
148200                  VARYING CO1 FROM 1 BY 1 UNTIL                   14740001
148300                   CO1 > 6.                                       14750001
148400                                                                  14760001
148500      COMPUTE WK-7000-AB-DIFF ROUNDED =                           14770001
148600              WK-8000-OUTLIER-VALUE-B - WK-7000-OUTLIER-VALUE-A.  14780001
148700****===================                                           14790001
148800      IF WK-7000-AB-DIFF > ZERO                                   14800001
148900         COMPUTE WK-7000-CALC ROUNDED =                           14810001
149000               OUTL-LOSS-SHAR-RATIO-PERCENT * WK-7000-AB-DIFF     14820001
149100                                                                  14830001
149200*** ================== NEW OUTLIER CAP HERE ========              14840001
149300         PERFORM 10000-OUTLIER-CAP-CALC THRU 10000-EXIT           14850001
149400*** ================== NEW OUTLIER CAP HERE ========              14860001
149500                                                                  14870001
149600****===================                                           14880001
149700         COMPUTE H-HHA-OUTLIER-PAYMENT ROUNDED =                  14890001
149800               WK-7000-CALC                                       14900001
149900                                                                  14910001
150000****===================                                           14920001
150100         COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                    14930001
150200                (WK-7000-CALC +                                   14940001
150300                 WK-3000-PEP-N-PRETOT-PAY +                       14950001
150400                 WK-4000-PEP-Y-PRETOT-PAY +                       14960001
150500                 WK-5000-PEP-N-PRETOT-PAY +                       14970001
150600                 WK-6000-PEP-Y-PRETOT-PAY)                        14980001
150700                                                                  14990001
150800          PERFORM 9000-WHICH-RTC-OUTLIER THRU 9000-EXIT           15000001
150900      ELSE                                                        15010001
151000         COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                    15020001
151100                (WK-3000-PEP-N-PRETOT-PAY +                       15030001
151200                 WK-4000-PEP-Y-PRETOT-PAY +                       15040001
151300                 WK-5000-PEP-N-PRETOT-PAY +                       15050001
151400                 WK-6000-PEP-Y-PRETOT-PAY)                        15060001
151500          PERFORM 9050-WHICH-RTC-NO-OUTLIER THRU 9050-EXIT.       15070001
151600                                                                  15080001
151700 7000-EXIT.   EXIT.                                               15090001
151800                                                                  15100001
151900 8000-ADD-REV-DOLL.                                               15110001
152000                                                                  15120001
152100***************************************************************   15130001
152200*        ADD ALL REVENUE DOLLARS                                  15140001
152300***************************************************************   15150001
152400     IF H-HHA-REVENUE-CODE (CO1) = SPACES                         15160001
152500        MOVE 6 TO CO1                                             15170001
152600        GO TO 8000-EXIT.                                          15180001
152700                                                                  15190001
152800     PERFORM 8100-ADJ-REV-DOLL    THRU 8100-EXIT.                 15200001
152900                                                                  15210001
153000     COMPUTE FED-ADJ ROUNDED =                                    15220001
153100             WK-REV-DOLL-RATE-UNITS (CO1) *                       15230001
153200             H-HHA-REVENUE-QTY-OUTL-UNITS (CO1).                  15240001
153300                                                                  15250001
153400     COMPUTE FED-LABOR-ADJ ROUNDED =                              15260001
153500               WIR-CBSA-WAGEIND *                                 15270001
153600               LABOR-PERCENT * FED-ADJ.                           15280001
153700                                                                  15290001
153800     COMPUTE FED-NON-LABOR-ADJ ROUNDED =                          15300001
153900               NONLABOR-PERCENT * FED-ADJ.                        15310001
154000                                                                  15320001
154100     COMPUTE WK-8000-OUTLIER-LAB-NLAB ROUNDED =                   15330001
154200           (FED-LABOR-ADJ + FED-NON-LABOR-ADJ).                   15340001
154300                                                                  15350001
154400     COMPUTE H-HHA-REVENUE-COST (CO1) ROUNDED =                   15360001
154500               WK-8000-OUTLIER-LAB-NLAB.                          15370001
154600                                                                  15380001
154700     COMPUTE WK-8000-OUTLIER-VALUE-B ROUNDED =                    15390001
154800             WK-8000-OUTLIER-VALUE-B + WK-8000-OUTLIER-LAB-NLAB.  15400001
154900                                                                  15410001
155000 8000-EXIT.   EXIT.                                               15420001
155100                                                                  15430001
155200*----------------------------------------------------------------*15440001
155300* ADJUST DOLLAR RATE USING THE RURAL ADD ON FACTOR               *15450001
155400*----------------------------------------------------------------*15460001
155500 8100-ADJ-REV-DOLL.                                               15470001
155600                                                                  15480001
155700     IF WS-RURAL-CATEGORY = 'A'                                   15490001
155800         COMPUTE WK-REV-DOLL-RATE-UNITS  (CO1) ROUNDED =          15500001
155810                 WK-REV-DOLL-RATE-UNITS  (CO1) *                  15510001
155820                 WS-RURAL-ADDON-A                                 15520001
155830     END-IF.                                                      15530001
155840     IF WS-RURAL-CATEGORY = 'B'                                   15540001
155850         COMPUTE WK-REV-DOLL-RATE-UNITS  (CO1) ROUNDED =          15550001
155851                 WK-REV-DOLL-RATE-UNITS  (CO1) *                  15560001
155852                 WS-RURAL-ADDON-B                                 15570001
155853     END-IF.                                                      15580001
155854     IF WS-RURAL-CATEGORY = 'C'                                   15581001
155855         COMPUTE WK-REV-DOLL-RATE-UNITS  (CO1) ROUNDED =          15582001
155856                 WK-REV-DOLL-RATE-UNITS  (CO1) *                  15583001
155857                 WS-RURAL-ADDON-C                                 15584001
155858     END-IF.                                                      15585001
155859                                                                  15585101
155860 8100-EXIT.   EXIT.                                               15585201
155870                                                                  15585301
155880 9000-WHICH-RTC-OUTLIER.                                          15585401
155890                                                                  15585501
155900      MOVE '01' TO H-HHA-PAY-RTC.                                 15585601
156000      IF WK-RTC-ADJ-IND = 1  MOVE '08' TO H-HHA-PAY-RTC.          15585701
156100      IF WK-RTC-ADJ-IND = 2  MOVE '11' TO H-HHA-PAY-RTC.          15585801
156200      IF WK-RTC-ADJ-IND = 3  MOVE '13' TO H-HHA-PAY-RTC.          15585901
156300      IF WK-RTC-ADJ-IND = 4  MOVE '02' TO H-HHA-PAY-RTC.          15586001
156400                                                                  15587001
156500                                                                  15588001
156600 9000-EXIT.   EXIT.                                               15589001
156700                                                                  15590001
156800 9050-WHICH-RTC-NO-OUTLIER.                                       15600001
156900                                                                  15610001
157000      MOVE '00' TO H-HHA-PAY-RTC.                                 15620001
157100                                                                  15630001
157200      IF WK-RTC-ADJ-IND = 1  MOVE '07' TO H-HHA-PAY-RTC.          15640001
157300      IF WK-RTC-ADJ-IND = 2  MOVE '09' TO H-HHA-PAY-RTC.          15650001
157400      IF WK-RTC-ADJ-IND = 3  MOVE '12' TO H-HHA-PAY-RTC.          15660001
157500                                                                  15670001
157600 9050-EXIT.   EXIT.                                               15680001
157700                                                                  15690001
157800******************************************************************15700001
157900* ADDED FOR CY2018 RELEASE                                       *15710001
158000* CALCULATES THE VALUE BASED PURCHASING ADJUSTMENT AMOUNT        *15720001
158100******************************************************************15730001
158200 9100-VBP-CALC.                                                   15740001
158300                                                                  15750001
158400     INITIALIZE H-HHA-VBP-ADJ-AMT.                                15760001
158500     MOVE H-HHA-TOTAL-PAYMENT TO WK-9100-TOTAL-PAYMENT.           15770001
158600     MOVE 0                   TO H-HHA-TOTAL-PAYMENT.             15780001
158700                                                                  15790001
158800     IF H-HHA-HRG-PAY(1) > 0                                      15800001
158900       COMPUTE H-HHA-HRG-PAY(1) ROUNDED =                         15810001
159000               H-HHA-HRG-PAY(1) * H-HHA-PROV-VBP-ADJ-FAC          15820001
159100       END-COMPUTE                                                15830001
159200       COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                      15840001
159300               H-HHA-TOTAL-PAYMENT + H-HHA-HRG-PAY (1)            15850001
159400       END-COMPUTE                                                15860001
159500     END-IF.                                                      15870001
159600                                                                  15880001
159700     IF H-HHA-HRG-PAY(1) = 0                                      15890001
159800        PERFORM 9120-VBP-REV-COST  THRU 9120-EXIT                 15900001
159900     END-IF.                                                      15910001
160000                                                                  15920001
160100     COMPUTE H-HHA-OUTLIER-PAYMENT ROUNDED =                      15930001
160200             H-HHA-OUTLIER-PAYMENT * H-HHA-PROV-VBP-ADJ-FAC       15940001
160300     END-COMPUTE.                                                 15950001
160400                                                                  15960001
160500     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        15970001
160600             H-HHA-TOTAL-PAYMENT + H-HHA-OUTLIER-PAYMENT          15980001
160700     END-COMPUTE.                                                 15990001
160800                                                                  16000001
160900     COMPUTE H-HHA-VBP-ADJ-AMT ROUNDED =                          16010001
161000             H-HHA-TOTAL-PAYMENT - WK-9100-TOTAL-PAYMENT          16020001
161100     END-COMPUTE.                                                 16030001
161200                                                                  16040001
161300 9100-EXIT.   EXIT.                                               16050001
161400                                                                  16060001
161500 9120-VBP-REV-COST.                                               16070001
161600                                                                  16080001
161700     COMPUTE H-HHA-REVENUE-COST (1) ROUNDED =                     16090001
161800             H-HHA-REVENUE-COST (1) * H-HHA-PROV-VBP-ADJ-FAC      16100001
161900     END-COMPUTE.                                                 16110001
162000                                                                  16120001
162100     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16130001
162200             H-HHA-TOTAL-PAYMENT + H-HHA-REVENUE-COST (1)         16140001
162300     END-COMPUTE.                                                 16150001
162400                                                                  16160001
162500     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (1) ROUNDED =         16170001
162600             H-HHA-REVENUE-ADD-ON-VISIT-AMT (1) *                 16180001
162700             H-HHA-PROV-VBP-ADJ-FAC                               16190001
162800     END-COMPUTE.                                                 16200001
162900                                                                  16210001
163000     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16220001
163100             H-HHA-TOTAL-PAYMENT +                                16230001
163200             H-HHA-REVENUE-ADD-ON-VISIT-AMT (1)                   16240001
163210     END-COMPUTE.                                                 16250001
163211                                                                  16260001
163212     COMPUTE H-HHA-REVENUE-COST (2) ROUNDED =                     16270001
163213             H-HHA-REVENUE-COST (2) * H-HHA-PROV-VBP-ADJ-FAC      16280001
163214     END-COMPUTE.                                                 16290001
163215                                                                  16300001
163216     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16310001
163217             H-HHA-TOTAL-PAYMENT + H-HHA-REVENUE-COST (2)         16320001
163218     END-COMPUTE.                                                 16321001
163219                                                                  16321101
163220     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (2) ROUNDED =         16321201
163230             H-HHA-REVENUE-ADD-ON-VISIT-AMT (2) *                 16321301
163231             H-HHA-PROV-VBP-ADJ-FAC                               16321401
163232     END-COMPUTE.                                                 16321501
163233                                                                  16321601
163234     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16321701
163235             H-HHA-TOTAL-PAYMENT +                                16321801
163236             H-HHA-REVENUE-ADD-ON-VISIT-AMT (2)                   16321901
163237     END-COMPUTE.                                                 16322001
163238                                                                  16323001
163239     COMPUTE H-HHA-REVENUE-COST (3) ROUNDED =                     16323101
163240             H-HHA-REVENUE-COST (3) * H-HHA-PROV-VBP-ADJ-FAC      16323201
163241     END-COMPUTE.                                                 16323301
163242                                                                  16323401
163243     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16323501
163244             H-HHA-TOTAL-PAYMENT + H-HHA-REVENUE-COST (3)         16323601
163245     END-COMPUTE.                                                 16323701
163246                                                                  16323801
163247     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (3) ROUNDED =         16323901
163248             H-HHA-REVENUE-ADD-ON-VISIT-AMT (3) *                 16324001
163249             H-HHA-PROV-VBP-ADJ-FAC                               16324101
163250     END-COMPUTE.                                                 16324201
163251                                                                  16324301
163252     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16324401
163253             H-HHA-TOTAL-PAYMENT +                                16324501
163254             H-HHA-REVENUE-ADD-ON-VISIT-AMT (3)                   16324601
163255     END-COMPUTE.                                                 16324701
163256                                                                  16324801
163257     COMPUTE H-HHA-REVENUE-COST (4) ROUNDED =                     16324901
163258             H-HHA-REVENUE-COST (4) * H-HHA-PROV-VBP-ADJ-FAC      16325001
163259     END-COMPUTE.                                                 16325101
163260                                                                  16325201
163261     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16325301
163262             H-HHA-TOTAL-PAYMENT + H-HHA-REVENUE-COST (4)         16325401
163263     END-COMPUTE.                                                 16325501
163264                                                                  16325601
163265     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) ROUNDED =         16325701
163266             H-HHA-REVENUE-ADD-ON-VISIT-AMT (4) *                 16325801
163267             H-HHA-PROV-VBP-ADJ-FAC                               16325901
163268     END-COMPUTE.                                                 16326001
163269                                                                  16326101
163270     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16326201
163271             H-HHA-TOTAL-PAYMENT +                                16326301
163272             H-HHA-REVENUE-ADD-ON-VISIT-AMT (4)                   16326401
163273     END-COMPUTE.                                                 16326501
163274                                                                  16326601
163275     COMPUTE H-HHA-REVENUE-COST (5) ROUNDED =                     16326701
163276             H-HHA-REVENUE-COST (5) * H-HHA-PROV-VBP-ADJ-FAC      16326801
163277     END-COMPUTE.                                                 16326901
163278                                                                  16327001
163279     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16327101
163280             H-HHA-TOTAL-PAYMENT + H-HHA-REVENUE-COST (5)         16327201
163281     END-COMPUTE.                                                 16327301
163282                                                                  16327401
163283     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (5) ROUNDED =         16327501
163284             H-HHA-REVENUE-ADD-ON-VISIT-AMT (5) *                 16327601
163285             H-HHA-PROV-VBP-ADJ-FAC                               16327701
163286     END-COMPUTE.                                                 16327801
163287                                                                  16327901
163288     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16328001
163289             H-HHA-TOTAL-PAYMENT +                                16328101
163290             H-HHA-REVENUE-ADD-ON-VISIT-AMT (5)                   16328201
163291     END-COMPUTE.                                                 16328301
163292                                                                  16328401
163293     COMPUTE H-HHA-REVENUE-COST (6) ROUNDED =                     16328501
163294             H-HHA-REVENUE-COST (6) * H-HHA-PROV-VBP-ADJ-FAC      16328601
163295     END-COMPUTE.                                                 16328701
163296                                                                  16328801
163297     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16328901
163298             H-HHA-TOTAL-PAYMENT + H-HHA-REVENUE-COST (6)         16329001
163299     END-COMPUTE.                                                 16329101
163300                                                                  16329201
163301     COMPUTE H-HHA-REVENUE-ADD-ON-VISIT-AMT (6) ROUNDED =         16329301
163302             H-HHA-REVENUE-ADD-ON-VISIT-AMT (6) *                 16329401
163303             H-HHA-PROV-VBP-ADJ-FAC                               16329501
163304     END-COMPUTE.                                                 16329601
163305                                                                  16329701
163306     COMPUTE H-HHA-TOTAL-PAYMENT ROUNDED =                        16329801
163307             H-HHA-TOTAL-PAYMENT +                                16329901
163308             H-HHA-REVENUE-ADD-ON-VISIT-AMT (6)                   16330001
163309     END-COMPUTE.                                                 16330101
163310                                                                  16330201
163311 9120-EXIT.   EXIT.                                               16330301
163312                                                                  16330401
163313******************************************************************16330501
163314* ADDED FOR CY2018 RELEASE                                       *16330601
163315* CALCULATES THE STANDARDIZED ALLOWED AMOUNT                     *16330701
163316******************************************************************16330801
163317 9200-CALC-STD-VALUE.                                             16330901
163318                                                                  16331001
163319     MOVE 0                   TO H-HHA-PPS-STD-VALUE.             16331101
163320                                                                  16331201
163321     IF H-HHA-REVENUE-SUM1-6-QTY-ALL < 5 AND                      16331301
163322        H-HHA-TOB IS NOT EQUAL TO 322                             16331401
163323        PERFORM 9210-CALC-STD-VALUE-LUPA                          16331501
163324           THRU 9210-EXIT                                         16331601
163325     END-IF.                                                      16331701
163326                                                                  16331801
163327     IF H-HHA-REVENUE-SUM1-6-QTY-ALL > 4 OR                       16331901
163328        H-HHA-TOB IS EQUAL TO 322                                 16332001
163329        PERFORM 9220-CALC-STD-VALUE-NLUPA                         16332101
163330           THRU 9220-EXIT                                         16332201
163331     END-IF.                                                      16332301
163332                                                                  16332401
163333 9200-EXIT.  EXIT.                                                16332501
163334                                                                  16332601
163335******************************************************************16332701
163336* ADDED FOR CY2018 RELEASE                                       *16332801
163337* CALCULATES THE STANDARDIZED ALLOWED AMOUNT FOR LUPA CLAIMS     *16332901
163338******************************************************************16333001
163339 9210-CALC-STD-VALUE-LUPA.                                        16333101
163340                                                                  16333201
163350     MOVE 0                   TO SS-QCV.                          16333301
163360     PERFORM 6 TIMES                                              16333401
163361       ADD 1                  TO SS-QCV                           16333501
163362                                                                  16333601
163363       IF H-HHA-REVENUE-QTY-COV-VISITS (SS-QCV) > 0               16333701
163364                                                                  16333801
163365         COMPUTE H-HHA-PPS-STD-VALUE ROUNDED =                    16333901
163366                 H-HHA-PPS-STD-VALUE +                            16334001
163367                (H-HHA-REVENUE-QTY-COV-VISITS (SS-QCV) *          16335001
163368                 TB-STDV-REV-DOLL-RATE (SS-QCV))                  16336001
163369*****            H-HHA-REVENUE-DOLL-RATE (SS-QCV))                16336101
163370         END-COMPUTE                                              16336201
163371                                                                  16336301
163372       END-IF                                                     16336401
163373                                                                  16336501
163374       IF H-HHA-REVENUE-ADD-ON-VISIT-AMT (SS-QCV) > 0             16336601
163375                                                                  16336701
163376         COMPUTE H-HHA-PPS-STD-VALUE ROUNDED =                    16336801
163377                  H-HHA-PPS-STD-VALUE +                           16336901
163378                 (TB-STDV-REV-DOLL-RATE (SS-QCV) *                16337001
163379*****            (H-HHA-REVENUE-DOLL-RATE (SS-QCV) *              16337101
163380                      WS-STDV-LUPA-ADDON-FAC)                     16337201
163381         END-COMPUTE                                              16337301
163382                                                                  16337401
163383       END-IF                                                     16337501
163384     END-PERFORM.                                                 16337601
163385                                                                  16337701
163386     COMPUTE H-HHA-PPS-STD-VALUE ROUNDED =                        16337801
163387             H-HHA-PPS-STD-VALUE *                                16337901
163388             WS-STDV-RURAL-FAC                                    16338001
163389     END-COMPUTE.                                                 16338101
163390                                                                  16338201
163400 9210-EXIT.  EXIT.                                                16338301
163410                                                                  16338401
163411******************************************************************16338501
163412* ADDED FOR CY2018 RELEASE                                       *16338601
163413* CALCULATES THE STANDARDIZED ALLOWED AMOUNT FOR NON-LUPA CLAIMS *16338701
163414******************************************************************16338801
163415 9220-CALC-STD-VALUE-NLUPA.                                       16338901
163416                                                                  16339001
163417     MOVE 0              TO WS-STDV-FED-SUPPLY-ADJ.               16340001
163418     IF  WORK-HRG5 = 'S' OR '1'                                   16341001
163419         MOVE 0000014.62 TO WS-STDV-FED-SUPPLY-ADJ.               16341101
163420     IF  WORK-HRG5 = 'T' OR '2'                                   16341201
163421         MOVE 0000052.80 TO WS-STDV-FED-SUPPLY-ADJ.               16341301
163424     IF  WORK-HRG5 = 'U' OR '3'                                   16341401
163425         MOVE 0000144.78 TO WS-STDV-FED-SUPPLY-ADJ.               16341501
163428     IF  WORK-HRG5 = 'V' OR '4'                                   16341601
163429         MOVE 0000215.10 TO WS-STDV-FED-SUPPLY-ADJ.               16341701
163432     IF  WORK-HRG5 = 'W' OR '5'                                   16341801
163433         MOVE 0000331.69 TO WS-STDV-FED-SUPPLY-ADJ.               16341901
163436     IF  WORK-HRG5 = 'X' OR '6'                                   16342001
163437         MOVE 0000570.48 TO WS-STDV-FED-SUPPLY-ADJ.               16343001
163439                                                                  16343101
163440* HIPPS CALCULATION                                               16343201
163441                                                                  16343301
163442     COMPUTE WS-STD-VALUE-NLUPA-AMT ROUNDED =                     16343401
163443       ( ( H-HHA-HRG-WGTS(1) * WS-STDV-EPISODE-AMT ) +            16343501
163444           WS-STDV-FED-SUPPLY-ADJ )*                              16343601
163445           H-HHA-HRG-NO-OF-DAYS (1) / 60 *                        16343701
163446           WS-STDV-RURAL-FAC * 1                                  16343801
163447     END-COMPUTE.                                                 16343901
163448                                                                  16344001
163449* OUTLIER CALCULATION                                             16344101
163450                                                                  16344201
163451     COMPUTE WS-STD-VALUE-NLUPA-OUTL ROUNDED =                    16344301
163452       H-HHA-OUTLIER-PAYMENT /                                    16344401
163453       ( (LABOR-PERCENT * WIR-CBSA-WAGEIND) +                     16344501
163454         (1 - LABOR-PERCENT) )                                    16344601
163455     END-COMPUTE.                                                 16344701
163456                                                                  16344801
163457* STANDARD VALUE CALCULATION                                      16344901
163458                                                                  16345001
163459     COMPUTE H-HHA-PPS-STD-VALUE ROUNDED =                        16345101
163460             WS-STD-VALUE-NLUPA-AMT +                             16345201
163461             WS-STD-VALUE-NLUPA-OUTL                              16345301
163462     END-COMPUTE.                                                 16345401
163463                                                                  16345501
163464     IF H-HHA-TOB = 322                                           16345601
163465        IF H-HHA-INIT-PAY-INDICATOR = '1' OR '3'                  16345701
163470           COMPUTE H-HHA-PPS-STD-VALUE ROUNDED =                  16345801
163480                   H-HHA-PPS-STD-VALUE * 0                        16345901
163481           END-COMPUTE                                            16346001
163482           GO TO 9220-EXIT                                        16347001
163483        END-IF                                                    16348001
163484     END-IF.                                                      16348101
163485                                                                  16348201
163486     IF H-HHA-TOB = 322                                           16348301
163487        IF H-HHA-ADMIT-DATE = H-HHA-SERV-FROM-DATE                16348401
163488           COMPUTE H-HHA-PPS-STD-VALUE ROUNDED =                  16348501
163489                   H-HHA-PPS-STD-VALUE * .60                      16348601
163490           END-COMPUTE                                            16348701
163491        ELSE                                                      16348801
163492           COMPUTE H-HHA-PPS-STD-VALUE ROUNDED =                  16348901
163493                   H-HHA-PPS-STD-VALUE * .50                      16349001
163494           END-COMPUTE                                            16349101
163495        END-IF                                                    16349201
163496     END-IF.                                                      16349301
163497                                                                  16349401
163498 9220-EXIT.  EXIT.                                                16349501
163499                                                                  16349601
163500*         YEARCHANGE  2011.0                      ===========**   16349701
163501                                                                  16349801
163502 10000-OUTLIER-CAP-CALC.                                          16349901
163503                                                                  16350001
163504     IF  HHA-PROV-PAYMENT-TOTAL = 0                               16350101
163505        GO TO 10000-EXIT.                                         16350201
163506                                                                  16350301
163507     IF  HHA-PROV-OUTLIER-PAY-TOTAL = 0                           16350401
163508        GO TO 10000-EXIT.                                         16350501
163509                                                                  16350601
163510     COMPUTE WK-10000-OUTLIER-POOL-PERCENT ROUNDED =              16350701
163520         HHA-PROV-PAYMENT-TOTAL * .1.                             16350801
163530                                                                  16350901
163540     COMPUTE WK-10000-OUTLIER-AVAIL-POOL ROUNDED =                16351001
163550      WK-10000-OUTLIER-POOL-PERCENT - HHA-PROV-OUTLIER-PAY-TOTAL. 16352001
163560                                                                  16353001
163570      COMPUTE WK-10000-OUTLIER-POOL-DIF ROUNDED =                 16354001
163580         WK-10000-OUTLIER-AVAIL-POOL - WK-7000-CALC.              16355001
163590                                                                  16356001
163600      IF WK-10000-OUTLIER-POOL-DIF > 0                            16357001
163700        GO TO 10000-EXIT.                                         16358001
163800                                                                  16359001
163900      IF WK-10000-OUTLIER-POOL-DIF < 0 OR                         16360001
164000         HHA-PROV-OUTLIER-PAY-TOTAL < 0                           16370001
164100        COMPUTE WK-7000-CALC ROUNDED = 0                          16380001
164200        MOVE 4 TO WK-RTC-ADJ-IND.                                 16390001
164300                                                                  16400001
164400*         YEARCHANGE  2011.0                      ===========**   16410001
164500                                                                  16420001
164600 10000-EXIT.   EXIT.                                              16430001
164700                                                                  16440001
164800*         YEARCHANGE                              ===========**   16450001
164900                                                                  16460001
165000 10100-SUPPLY-ADD-ON-CALC.                                        16470001
165100                                                                  16480001
165200*===========================================================**    16490001
165300*   NON-RURAL, WITH QUALITY DATA =  5B COL 4           =====**    16500001
165400*   NON-RURAL, NO QUALITY DATA   =  6B COL 4           =====**    16510001
165500*   RURAL, WITH QUALITY DATA     =  5B COL 4           =====**    16520001
165510*   RURAL, NO QUALITY DATA       =  6B COL 4           =====**    16530001
165520*===========================================================**    16540001
165530                                                                  16550001
165540*    YEARCHANGE  2019.0 NON RURAL W/ QUALITY DATA  ====**         16551001
165550*    YEARCHANGE  2019.0 TABLE  5B 4TH COL          ====**         16552001
165560                                                                  16553001
165570     IF HHA-CBSA-RURAL-CHECK                                      16554001
165580     OR HHA-CBSA-RURAL-CHECK-ALL                                  16555001
165590        GO TO RURAL-DATA-CHECK.                                   16556001
165600                                                                  16557001
165700     IF HHA-WITH-DATA-CHECK                                       16558001
165800       NEXT SENTENCE                                              16559001
165900     ELSE                                                         16560001
166000       GO TO NO-DATA-CHECK.                                       16570001
166100                                                                  16580001
166200     IF  WORK-HRG5 = 'S' OR '1'                                   16590001
166300         MOVE 0000014.62 TO FED-SUPPLY-ADJ                        16600001
166400         GO TO 10100-EXIT.                                        16610001
166500                                                                  16620001
166600     IF  WORK-HRG5 = 'T' OR '2'                                   16630001
166700         MOVE 0000052.80 TO FED-SUPPLY-ADJ                        16640001
166800         GO TO 10100-EXIT.                                        16650001
166900                                                                  16660001
167000     IF  WORK-HRG5 = 'U' OR '3'                                   16670001
167100         MOVE 0000144.78 TO FED-SUPPLY-ADJ                        16680001
167200         GO TO 10100-EXIT.                                        16690001
167300                                                                  16700001
167400     IF  WORK-HRG5 = 'V' OR '4'                                   16710001
167500         MOVE 0000215.10 TO FED-SUPPLY-ADJ                        16720001
167600         GO TO 10100-EXIT.                                        16730001
167700                                                                  16740001
167800     IF  WORK-HRG5 = 'W' OR '5'                                   16750001
167900         MOVE 0000331.69 TO FED-SUPPLY-ADJ                        16760001
168000         GO TO 10100-EXIT.                                        16770001
168100                                                                  16780001
168200     IF  WORK-HRG5 = 'X' OR '6'                                   16790001
168300         MOVE 0000570.48 TO FED-SUPPLY-ADJ                        16800001
168400         GO TO 10100-EXIT.                                        16810001
168500                                                                  16820001
168600 NO-DATA-CHECK.                                                   16830001
168700                                                                  16840001
168800*    YEARCHANGE  2019.0 NON RURAL WO/ QUALITY DATA   ====**       16850001
168900*    YEARCHANGE  2019.0 TABLE  6B 4TH COL            ====**       16860001
169000                                                                  16870001
169100     IF HHA-NO-DATA-CHECK                                         16880001
169200       NEXT SENTENCE                                              16890001
169300     ELSE                                                         16900001
169400         GO TO 10100-EXIT.                                        16910001
169500                                                                  16920001
169600     IF  WORK-HRG5 = 'S' OR '1'                                   16930001
169700         MOVE 0000014.34 TO FED-SUPPLY-ADJ                        16940001
169800         GO TO 10100-EXIT.                                        16950001
169900                                                                  16960001
170000     IF  WORK-HRG5 = 'T' OR '2'                                   16970001
170100         MOVE 0000051.77 TO FED-SUPPLY-ADJ                        16980001
170200         GO TO 10100-EXIT.                                        16990001
170300                                                                  17000001
170400     IF  WORK-HRG5 = 'U' OR '3'                                   17010001
170500         MOVE 0000141.95 TO FED-SUPPLY-ADJ                        17020001
170600         GO TO 10100-EXIT.                                        17030001
170700                                                                  17040001
170800     IF  WORK-HRG5 = 'V' OR '4'                                   17050001
170900         MOVE 0000210.89 TO FED-SUPPLY-ADJ                        17060001
171000         GO TO 10100-EXIT.                                        17070001
171100                                                                  17080001
171200     IF  WORK-HRG5 = 'W' OR '5'                                   17090001
171300         MOVE 0000325.21 TO FED-SUPPLY-ADJ                        17100001
171400         GO TO 10100-EXIT.                                        17110001
171500                                                                  17120001
171600     IF  WORK-HRG5 = 'X' OR '6'                                   17130001
171700         MOVE 0000559.32 TO FED-SUPPLY-ADJ                        17140001
171800         GO TO 10100-EXIT.                                        17150001
171900                                                                  17160001
172000 RURAL-DATA-CHECK.                                                17170001
172100                                                                  17180001
172200*    YEARCHANGE  2019.0 RURAL W/ QUALITY DATA      ====**         17190001
172300*    YEARCHANGE  2019.0 TABLE  5B  COL 4           ====**         17200001
172400                                                                  17210001
172500     IF HHA-WITH-DATA-CHECK                                       17220001
172600       NEXT SENTENCE                                              17230001
172700     ELSE                                                         17240001
172800       GO TO RURAL-NO-DATA-CHECK.                                 17250001
172900                                                                  17260001
173000     IF  WORK-HRG5 = 'S' OR '1'                                   17270001
173100         MOVE 0000014.62 TO FED-SUPPLY-ADJ                        17280001
173200         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17290001
173300         GO TO 10100-EXIT.                                        17300001
173400                                                                  17310001
173500     IF  WORK-HRG5 = 'T' OR '2'                                   17320001
173600         MOVE 0000052.80 TO FED-SUPPLY-ADJ                        17330001
173700         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17340001
173800         GO TO 10100-EXIT.                                        17350001
173900                                                                  17360001
173910     IF  WORK-HRG5 = 'U' OR '3'                                   17370001
173920         MOVE 0000144.78 TO FED-SUPPLY-ADJ                        17380001
173930         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17390001
173940         GO TO 10100-EXIT.                                        17391001
173950                                                                  17392001
173960     IF  WORK-HRG5 = 'V' OR '4'                                   17393001
173970         MOVE 0000215.10 TO FED-SUPPLY-ADJ                        17394001
173980         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17395001
173990         GO TO 10100-EXIT.                                        17396001
174000                                                                  17397001
174100     IF  WORK-HRG5 = 'W' OR '5'                                   17398001
174200         MOVE 0000331.69 TO FED-SUPPLY-ADJ                        17399001
174300         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17400001
174400         GO TO 10100-EXIT.                                        17410001
174500                                                                  17420001
174600     IF  WORK-HRG5 = 'X' OR '6'                                   17430001
174700         MOVE 0000570.48 TO FED-SUPPLY-ADJ                        17440001
174800         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17450001
174900         GO TO 10100-EXIT.                                        17460001
175000                                                                  17470001
175100 RURAL-NO-DATA-CHECK.                                             17480001
175200                                                                  17490001
175300*    YEARCHANGE  2019.0 RURAL WO/ QUALITY DATA     ====**         17500001
175400*    YEARCHANGE  2019.0 TABLE  6B COL 4            ====**         17510001
175500                                                                  17520001
175600     IF HHA-NO-DATA-CHECK                                         17530001
175700       NEXT SENTENCE                                              17540001
175800     ELSE                                                         17550001
175900         GO TO 10100-EXIT.                                        17560001
176000                                                                  17570001
176100     IF  WORK-HRG5 = 'S' OR '1'                                   17580001
176200         MOVE 0000014.34 TO FED-SUPPLY-ADJ                        17590001
176300         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17600001
176400         GO TO 10100-EXIT.                                        17610001
176500                                                                  17620001
176600     IF  WORK-HRG5 = 'T' OR '2'                                   17630001
176700         MOVE 0000051.77 TO FED-SUPPLY-ADJ                        17640001
176800         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17650001
176900         GO TO 10100-EXIT.                                        17660001
177000                                                                  17670001
177100     IF  WORK-HRG5 = 'U' OR '3'                                   17680001
177200         MOVE 0000141.95 TO FED-SUPPLY-ADJ                        17690001
177300         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17700001
177400         GO TO 10100-EXIT.                                        17710001
177500                                                                  17720001
177600     IF  WORK-HRG5 = 'V' OR '4'                                   17730001
177700         MOVE 0000210.89 TO FED-SUPPLY-ADJ                        17740001
177800         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17750001
177900         GO TO 10100-EXIT.                                        17760001
178000                                                                  17770001
178100     IF  WORK-HRG5 = 'W' OR '5'                                   17780001
178200         MOVE 0000325.21 TO FED-SUPPLY-ADJ                        17790001
178300         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17800001
178400         GO TO 10100-EXIT.                                        17810001
178500                                                                  17820001
178510     IF  WORK-HRG5 = 'X' OR '6'                                   17830001
178520         MOVE 0000559.32 TO FED-SUPPLY-ADJ                        17840001
178530         PERFORM 10200-RURAL-ADD-ON THRU 10200-EXIT               17850001
178540         GO TO 10100-EXIT.                                        17851001
178550                                                                  17852001
178560 10100-EXIT.   EXIT.                                              17853001
178570                                                                  17854001
178580 10200-RURAL-ADD-ON.                                              17855001
178590                                                                  17856001
178600      IF WS-RURAL-CATEGORY = 'A'                                  17857001
178700         COMPUTE FED-SUPPLY-ADJ ROUNDED =                         17858001
178800                 FED-SUPPLY-ADJ * WS-RURAL-ADDON-A                17859001
178900      END-IF.                                                     17860001
179000      IF WS-RURAL-CATEGORY = 'B'                                  17870001
179001         COMPUTE FED-SUPPLY-ADJ ROUNDED =                         17880001
179002                 FED-SUPPLY-ADJ * WS-RURAL-ADDON-B                17890001
179012      END-IF.                                                     17900001
179013      IF WS-RURAL-CATEGORY = 'C'                                  17901001
179014         COMPUTE FED-SUPPLY-ADJ ROUNDED =                         17901101
179015                 FED-SUPPLY-ADJ * WS-RURAL-ADDON-C                17901201
179018      END-IF.                                                     17901301
179019                                                                  17901401
179020 10200-EXIT.   EXIT.                                              17901501
179021                                                                  17901601
179030******        L A S T   S O U R C E   S T A T E M E N T   *****   17901701
